kapiaba

Se alguém mais precisar...

Certo João,
A função NFe_ChecaPortal( cChave, 2 ) deu  certinho para a consulta. 
Obrigado.

kapi boa tarde 
Obrigado por ter enviado vou testar
 

Amiguinhos,
kapiaba esqueça o link, nem lembro o conteúdo, mas o que tava nele tá explícito nas postagens anteriores. É um arquivo de lote que cria o ISS e chama o INNOSetup para criar a compilação.
 

Rochinhassss, link quebrado. Thanks.

João,
Eu uso esse software somente para instalar os executáveis e as bibliotecas necessárias para rodar o sistema.
O meu executável é que verifica se o banco de dados existe ou não, verifica se houve alteração no layout das tabelas, etc.
Mas eu acho que o que você quer está na última aba do instalador chamada "Outros". Lá atem origem, destino e o que fazer se existir.
Se não conseguir com essa versão, baixe a versão mais recente desse utilitário que ela está bem mais completa. Sucesso!

Tranka, Pegaste a última versão da DLL?
http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=vt1oG6+se5c%3D&fbclid=IwAR082cGWY9xUEkRv9ZVSTnZcdbmoqBeKS32-Mht6uaiuI5VHUHmcUAONnFQ
 
http://www.flexdocs.com.br/DL/uploads/leiauteNfe_v4.00.xsd?fbclid=IwAR0RVFVjPmvUur27luWDKkExvFXoE9u5BMpctESAOimt2nSKZq43gqzNRNo

https://atendimento.tecnospeed.com.br/hc/pt-br/articles/360034114933-Rejeição-897-Informado-Código-numérico-em-formato-inválido
 

Sempre post o número da Rejeição:
 
Veja:
 
https://www.oobj.com.br/bc/article/rejeição-897-código-numérico-em-formato-inválido-como-resolver-921.html

Amiguinhos,
Inno Setup é XouDeBola é uma postagem bem atual, lançada em 2004 deve servir.
 

Uso a anos o CreateInstall que é leve, simples e eficiente.
https://www.createinstall.com/

Meu caro, eu uso há muitos anos o Inno Setup Compiler.

Nas instruções quando envio o pacote sempre alerto os usuários para desabilitar o anti-virus antes da instalação e desbloquear o executável final no firewall para acesso pleno à internet.
 
[]´s
 

No windows 7, basta fazer todos os UpDates, que é automático.

 
Abs

Tranka...
É relativo ao Internet Explorer. 
Veja :
https://support.microsoft.com/en-us/help/3071338/internet-explorer-11-adds-support-for-http-strict-transport-security-s
Abraços

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37654

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=35644&p=212224#p212224
 
Perfect mister Rao. Many thanks.

#Include "FiveWin.ch" static oWnd //----------------------------------------------------------------// FUNCTION Main()    LOCAL oBar, cOrigen, cDestino    cOrigen  := Curdrive()+":\fwh1701\samples\*.prg"    cDestino := Curdrive()+":\backup\"    DEFINE WINDOW oWnd TITLE "Copiar Archivos"    DEFINE BUTTONBAR oBar _3D OF oWnd    DEFINE BUTTON OF oBar ACTION( Copiar( cOrigen, cDestino ), oWnd:End() )    SET MESSAGE OF oWnd TO "Copiar Archivos" NOINSET CLOCK DATE KEYBOARD    ACTIVATE WINDOW oWnd CENTER RETURN NIL //----------------------------------------------------------------// FUNCTION Copiar( cOrigen, cDestino )    LOCAL oFs    If .not. Lisdir( cDestino )       LMkdir( cDestino )    Endif    CURSORWAIT()    oFs   := CreateObject( "Scripting.FileSystemObject" )    // oFs:CopyFile( "z:\systems\xml\*.xml" , "r:\backups\systems\xml\", .t. ) // .t. for overwrite    oFs:CopyFile( cOrigen, cDestino, .T. ) // .t. for overwrite    CURSORARROW()    ? "Pronto..." RETURN NIL
 

Achei legal e vocês?
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=36244&start=0&hilit=dialog+mdichild
 
Mister Nages é um gênio.
 

Esta ai como pegar a atividade principal (codigo e texto)
Function u_Teste() Local cCnpj := "53.113.791/0001-22" Local cLink := "https://www.receitaws.com.br/v1/cnpj/" Local cResult Local hDados Local cNome cCnpj := StrTran(cCnpj,".","") cCnpj := StrTran(cCnpj,"/","") cCnpj := StrTran(cCnpj,"-","") cCnpj := AllTrim(cCnpj) cLink+=cCnpj cResult := Emt_GetHtml(cLink) cResult := StrTran(cResult,"true",'"true"') hDados := My_JsonToHash(cResult) cNome := hDados["nome"] cNameAtPrin := hDados["atividade_principal"][1]["text"] cCodeAtPrin := hDados["atividade_principal"][1]["code"] MsgStop(cNome) MsgStop(cCodeAtPrin+" "+cNameAtPrin) Return Static Function My_JsonToHash(cStringJson) Local hJson := {=>} cStringJson := Alltrim(cStringJson) cStringJson := StrTran( cStringJson,':[','=>{') cStringJson := StrTran( cStringJson,'":"','" => "') cStringJson := StrTran( cStringJson,'[','{') cStringJson := StrTran( cStringJson,']','}') cStringJson := StrTran( cStringJson,'":null','"=>nil') cStringJson := StrTran( cStringJson,'":true' ,'"=>.t.' ) cStringJson := StrTran( cStringJson,'":false','"=>.f.') cStringJson := StrTran( cStringJson,'": true' ,'"=>.t.' ) cStringJson := StrTran( cStringJson,'": false','"=>.f.') cStringJson := StrTran( cStringJson,'":','"=>') cStringJson := StrTran( cStringJson,"\/","/" ) cStringJson := StrTran( cStringJson,Chr(13),"" ) cStringJson := StrTran( cStringJson,Chr(10),"" ) Try hJSon := &( cStringJson ) Catch msgstop("Erro") msgstop(cStringJson) End Return hJson Static Function Emt_GetHtml(cLink) Local oOle Local cHtml := "" Try oOle := CreateObject( "Microsoft.XMLHTTP" ) oOle:Open( "GET", cLink, .f. ) oOle:Send() cHtml := oOle:ResponseBody oOle := nil Catch End Return cHtml  

#include "FiveWin.ch" STATIC oWnd FUNCTION Main()    LOCAL cSiteCnpj    LOCAL cCnpj := "50306471000109"    cSiteCnpj := ( "https://www.receitaws.com.br/v1/cnpj/" + cCnpj )    //-> Invisibilizo a Janela    DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5    ACTIVATE WINDOW oWnd     ;       ON INIT( ShellExecute(GetActiveWindow(),"OPEN",'"'+cSiteCnpj+'"'), oWnd:End() ) Return Nil // Tranka, todos os dados que precisas, abra com este programa. Veja: /*  {   "atividade_principal": [     {       "text": "Comércio atacadista de resinas e elastômeros",       "code": "46.84-2-01"     }   ],   "data_situacao": "03/11/2005",   "nome": "ETILUX IMPORTACAO E DISTRIBUICAO DE ARTIGOS DE CUTELARIA S.A.",   "uf": "SP",   "telefone": "(11) xxxx-xxxx",  // retirei   "email": "xxxx@terra.com.br",  // retirei   "atividades_secundarias": [     {       "text": "Comércio atacadista de artigos de armarinho",       "code": "46.41-9-03"     },     {       "text": "Comércio atacadista de roupas e acessórios para uso profissional e de segurança do trabalho",       "code": "46.42-7-02"     },     {       "text": "Comércio atacadista de bolsas, malas e artigos de viagem",       "code": "46.43-5-02"     },     {       "text": "Comércio atacadista de cosméticos e produtos de perfumaria",       "code": "46.46-0-01"     },     {       "text": "Comércio atacadista de produtos de higiene pessoal",       "code": "46.46-0-02"     },     {       "text": "Comércio atacadista de artigos de escritório e de papelaria",       "code": "46.47-8-01"     },     {       "text": "Comércio atacadista de lustres, luminárias e abajures",       "code": "46.49-4-06"     },     {       "text": "Comércio atacadista de outros equipamentos e artigos de uso pessoal e doméstico não especificados anteriormente",       "code": "46.49-4-99"     },     {       "text": "Comércio atacadista de madeira e produtos derivados",       "code": "46.71-1-00"     },     {       "text": "Comércio atacadista de ferragens e ferramentas",       "code": "46.72-9-00"     },     {       "text": "Comércio atacadista de material elétrico",       "code": "46.73-7-00"     },     {       "text": "Comércio atacadista especializado de materiais de construção não especificados anteriormente",       "code": "46.79-6-04"     },     {       "text": "Comércio atacadista de materiais de construção em geral",       "code": "46.79-6-99"     },     {       "text": "Comércio atacadista especializado em outros produtos intermediários não especificados anteriormente",       "code": "46.89-3-99"     },     {       "text": "Comércio atacadista de mercadorias em geral, sem predominância de alimentos ou de insumos agropecuários",       "code": "46.93-1-00"     }   ],   "qsa": [     {       "qual": "10-Diretor",       "nome": "SIAHOU HAIM DAYAN"     },     {       "qual": "10-Diretor",       "nome": "DAVID DAYAN"     },     {       "qual": "10-Diretor",       "nome": "PRADEEP EMPREENDIMENTOS E PARTICIPACOES S.A."     }   ],   "situacao": "ATIVA",   "bairro": "PARQUE NOVO MUNDO",   "logradouro": "AV AMADEU POLI",   "numero": "940",   "cep": "02.188-020",   "municipio": "SAO PAULO",   "porte": "DEMAIS",   "abertura": "08/06/1982",   "natureza_juridica": "205-4 - Sociedade Anônima Fechada",   "cnpj": "50.306.471/0001-09",   "ultima_atualizacao": "2019-07-24T22:05:41.955Z",   "status": "OK",   "tipo": "MATRIZ",   "fantasia": "",   "complemento": "",   "efr": "",   "motivo_situacao": "",   "situacao_especial": "",   "data_situacao_especial": "",   "capital_social": "xxxxxxxxxxxx",  // retirei.   "extra": {},   "billing": {     "free": true,     "database": true   } } */ Abs.

Validr, veja esta versão:

#include "FiveWin.ch" STATIC lExito := .F.  // Para checar se o CNPJ e valido. FUNCTION Main()    LOCAL cNome, cSituacao,  cMotivoSit, cLogradouro, cNumero, cbairro, cUf, ;          cCep,  cMunicipio, cAbertura,  cNatJurid,   cFantasia, cFinalXB    LOCAL cResult, hDados    LOCAL cLink := "https://www.receitaws.com.br/v1/cnpj/"    //   LOCAL cCnpj := "53.113.791/0001-22"    LOCAL cCnpj := "50.306.471/0001-09"  // ETILUX - Valdir.    cCnpj := StrTran( cCnpj, ".", "" )    cCnpj := StrTran( cCnpj, "/", "" )    cCnpj := StrTran( cCnpj, "-", "" )    cCnpj := AllTrim( cCnpj )    cLink += cCnpj    cResult := Emt_GetHtml( cLink )    cResult := StrTran( cResult, "true", '"true"' )    hDados := My_JsonToHash( cResult )    // Checar se o CNPJ e valido ou nao.    IF hDados["status"] == "OK"       lExito := .T.    ELSE       lExito := .F.    ENDIF    IF lExito  // CNPJ E VALIDO       cNome       := hDados["nome"]       cSituacao   := hDados["situacao"]       cMotivoSit  := hDados["motivo_situacao"]       cLogradouro := hDados["logradouro"]       cNumero     := hDados["numero"]       cbairro     := hDados["bairro"]       cUf         := hDados["uf"]       cCep        := hDados["cep"]       cMunicipio  := hDados["municipio"]       cAbertura   := hDados["abertura"]       cNatJurid   := hDados["natureza_juridica"]       cFantasia   := hDados["fantasia"]       cFinalXB := cNome       + " - " + cSituacao + " - " + cMotivoSit + " - " + ;                   cLogradouro + " - " + cNumero   + " - " + cbairro    + " - " + ;                   cUf         + " - " + cCep      + " - " + cMunicipio + " - " + ;                   cAbertura   // + " - " + cNatJurid + " - " + cFantasia       XBROWSE( cFinalXB  )    ELSE       ? [VERIFIQUE O CNPJ COM O CONTADOR VALDIR]       lExito := .F.    ENDIF RETURN NIL STATIC FUNCTION My_JsonToHash( cStringJson )    LOCAL hJson := { => }    cStringJson := Alltrim( cStringJson )    cStringJson := StrTran( cStringJson, ':[', '=>{' )    cStringJson := StrTran( cStringJson, '":"', '" => "' )    cStringJson := StrTran( cStringJson, '[', '{' )    cStringJson := StrTran( cStringJson, ']', '}' )    cStringJson := StrTran( cStringJson, '":null', '"=>nil' )    cStringJson := StrTran( cStringJson, '":true' , '"=>.t.' )    cStringJson := StrTran( cStringJson, '":false', '"=>.f.' )    cStringJson := StrTran( cStringJson, '": true' , '"=>.t.' )    cStringJson := StrTran( cStringJson, '": false', '"=>.f.' )    cStringJson := StrTran( cStringJson, '":', '"=>' )    cStringJson := StrTran( cStringJson, "\/", "/" )    cStringJson := StrTran( cStringJson, Chr( 13 ), "" )    cStringJson := StrTran( cStringJson, Chr( 10 ), "" )    Try       hJSon := &( cStringJson )    Catch       MsgStop( "Erro de Conexao" )       // MsgStop( cStringJson )    End RETURN hJson STATIC FUNCTION Emt_GetHtml( cLink )    LOCAL oOle    LOCAL cHtml := ""    Try       oOle := CreateObject( "Microsoft.XMLHTTP" )       oOle:Open( "GET", cLink, .F. )       oOle:Send()       cHtml := oOle:ResponseBody       oOle := nil    Catch      ? "Algo deu errado com o site"    End RETURN cHtml
 

Agora funfou certinho...
Obrigado.
 

O problema é que a resposta de STATUS do SEFAZ não é completa, pois se o link tiver ativo ele vai responder OK, mas nem todos os serviços podem estar ativos.
 
[]s,

esse é o espirito da comunidade.... um da inicio, outro melhora e outro melhora ainda mais !!! excelente