SAOliveira

http://www.receita.fazenda.gov.br/Sped/Download/Default.htm Amigo indique neste link, qual você esta usando.

Valdir, no mercado existe inúmeros equipamentos Wireless, desde R$ 50,00 a R$ 1.000,00 ou mais. O que ocorre é que na maioria dos casos, o usuário opta pelo mais barato. Isto posto, o que define o resultado do wireless, é "QUALIDADE DE EQUIPAMENTOS" e ambiente.

Desculpe, esqueci de dizer que o Array{}, é o resultado de um select, e retorna 2 parâmetros [x,y]

Quem usa GetHbArrayVar() poderia passar os parâmetros. [GetHbArrayVar('aArray',x)] dá erro.

Oscar, se possível me esclareça. Sua versão do Five 13.9 com o xHarbour 1.2.3, está apresentando algum problema ?

http://www.fabulatech.com/usb-over-network.html Lendo em outro fórum achei interessante. Quem usa Certificado A3 para NF-e, acho que vai quebrar um galhão. Não testei, só repassando.

Base em Access, MySql e .TXT http://www.oho.com.br/fw/cep_02_2013.zip

1 - Pela imagem da pra ver a foto, e esta capturando 648x480, um exagero pra meu gosto. 2 - Passei pro márcio, uma forma de redimensionar a imagem, desta forma ocupando menor espaço em BD. Sem resposta dele até o presente momento. Como quem cala......

Este link, não traz informação estadual alguma, portanto não terá utilidade no caso do uso "DENEGADO de NF-e"

No MontSintegra() ELSEIF(cUF $ "BA") Do Whil (nPos := At("<!--%",cSintegra)) > 0 nPo1 := At("%-->",cSintegra) cTexto := SubStr(cSintegra,nPos,(nPo1-nPos)+4) cSintegra := StrTran(cSintegra,cTexto,"") ENDDO ENDIF ElseIf cUF == "BA" aRet := {"http://www.sefaz.ba.gov.br/Sintegra/",; "sintegra.asp?estado=BA/",; "",; {"IDENTIFICAÇÃO","Os dados acima são baseados em"},; {,; "Data da Consulta:",; "Número da Consulta:",; "CNPJ:",; "Inscrição Estadual:",; "UF:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "UF:",; "Município:",; "CEP:",; "Endereço Eletrônico:",; "Telefone:",; "Atividade Econômica:",; "Data da Inscrição Estadual:",; "Usuário SEPD :",; "Situação Cadastral Atual:",; "Data desta Situação Cadastral:",; "Condição:",; "Regime de Apuração de ICMS:"; } ; }

IF(!PCS_StatusExe("nome_do_exe.exe")) // faz o que quer ENDIF **------------------------------------------------------------------------------** ** Finalidade : Verificar se um Programa está em execução **------------------------------------------------------------------------------** FUNCTION PCS_StatusExe(cExecutavel) **------------------------------------------------------------------------------** LOCAL oWmiService,oListaProcess,oProcessos,Wexecutando:=.F. oWmiService=Service_WMI() oListaProcess:=oWmiService:ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+cExecutavel+"'") FOR EACH oProcessos IN oListaProcess Wexecutando:=.t. Next RETURN(Wexecutando) **----------------------------------------------------------** STATIC FUNCTION Service_WMI() **----------------------------------------------------------** STATIC oWmiService LOCAL oScriptObj IF(oWmiService==NIL) oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator") oWmiService=oScriptObj:ConnectServer() ENDIF RETURN(oWmiService)

Senhores, se permitem uma sugestão. Os que conseguirem consultar e pegar o retorno postar a solução e o retorno. Desta forma poderíamos ir eliminando e repassando as UFs. Detalhe: postar só a parte que foi alterada/adequada.

Blz. Señores, testei e funciona de boa Kapi, traduz na integra, ta funcionando todos os estados "de boa" ? Outra, de uma olhada em DEFINE CLIPBOARD, não testei, se atender, poste como fez.

ElseIf cUF == "SP" aRet := {"http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/","consultaSintegraServlet","sintegra",; {"IDENTIFICAÇÃO","Os dados acima estão baseados"},; {"CNPJ:",; "Inscrição Estadual:",; "Razão Social:",; "Logradouro:",; "Número:",; "Complemento:",; "Bairro:",; "Município:",; "UF:",; "CEP:",; "Telefone:",; "Atividade Econômica:",; "Situação Cadastral Vigente:",; "Data desta Situação Cadastral:",; "Regime de Apuração:" ,; "Data de Credenciamento como emissor de NF-e:",; "Indicador de Obrigatoriedade de NF-e:",; "Data de Início da Obrigatoriedade de NF-e:",; // aqui // "Data da Consulta:"; } ; } João a coisa é muito simples. Você faz a consulta desejada direto no link que vc deseja Vou usar SP como exemplo. vai aparecer o retorno da consulta. Observe "Dara da Consulta:' Marque o texto e agregue a sua rotina do estado. Vai ficar assim como acima "code"

Hergon: No lugar de SR_ShowVector(aRet) use xBrowse(aAret)

Limitação: Só consulta a UF do certificado.

Não o fiz, porque só acontecia no link que o ale_sb postou sobre harbour para vc. Ou o Gilmer leu e corrigiu, Ou é mais uma das coisas que só a informática faz para você. Passou, passou chefinho !!!

Postado Ontem, 09:19 @Joao, meu bravo e grande amigo gaivota (heheheh), já pode testar: http://fivewin.com.b...harbour-fw-bcc/ Tentando acessar DICAS. DESCULPE VOCE NAO TEM PERMISSÃO PARA ISTO.

EMotta. Qual outra alternativa você conhece para o Linux se tornar servidor de arquivos para estações Windows ?

Kapi, este negócio de SAMBA com DBF não combina, deve ser muito bem analisado. Trabalho com Linux/Samba/DBF faz mais de 15 anos, e nunca, nunca tive problemas com lentidão. Agora se tiver usando Linux para descktop com samba, pode ser aí o problema Outra, Qual a versao do Linux e Terminais Windows ?

oCol_His:=oBrwRec:AddCol() oCol_His:cHeader :="Histórico" oCol_His:nHeadStrAlign:=AL_CENTER oCol_His:nDataStrAlign:=AL_LEFT oCol_His:bStrData :={|| TMPREC->linrec } oCol_His:oDataFont :=oPub:fBCour13 oCol_His:nWidth :=400 oCol_His:bFooter :={|| "Valor Líquido " } oCol_His:oFooterFont :=oPub:fBCour16

"Funcionou com o ButtonBmp!!! Só que o botão fica veinho.. rsrsrsrs" que ser isto "Veinho" Vc por acaso ativou o manifest no seu sistema ?

Não sei na "BTNBMP", mas na "BUTTON" nativa, isto é controlado pelo recurso.

mande para mim tambem