Amarildo de Matos

bom dia Método usado para validar as notas assinadas através do componente ACBrNFe. =================================== PROCEDURE ACBR_NFE_Validar() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Validar") IF gnretorno_acbr=0 THEN Info("validou com sucesso") RESULT("VALIDOU COM SUCESSO") ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada " IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Validar" texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html // NFE_Validar; =================================== // btn NFE ASSINAR E VALIDAR bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) EDT_TRANMISSAO_RESPOSTA+=CR+"ASSINAR=>"+ACBR_NFE_Assinar() EDT_TRANMISSAO_RESPOSTA+=CR+"VALIDAR=>"+ACBR_NFE_Validar() END ACBR_FINALIZAR() =================================== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2427-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html https://acbr.sourceforge.io/ACBrLib/NFE_Assinar.html https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html

bom dia ======================= INTERNAL PROCEDURE ACBR_NFE_Assinar() //https://acbr.sourceforge.io/ACBrLib/NFE_Assinar.html // NFE_ Assinar; gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Assinar") IF gnretorno_acbr=0 THEN RESULT("ASSINOU COM SUCESSO") ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada " IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Assinar" RESULT texto END END ======================= // btn NFE ASSINAR xml bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) EDT_TRANMISSAO_RESPOSTA+=CR+"ASSINAR:"+CR+ACBR_NFE_Assinar() END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2423-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html https://acbr.sourceforge.io/ACBrLib/NFE_Assinar.html

Bom dia =============== PROCEDURE ACBR_NFE_CARREGARINI(sRECEBER_ARQUIVO_OU_INI is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html //Comando: NFE_ CarregarINI( eArquivoOuINI ); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI)) IF gnretorno_acbr=0 THEN RESULT "Carregou com Sucesso" ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada " IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Carregar o arquivo INI" RESULT texto END ======================= // BTN_COLOCA_dADOS_INI EDT_INI=[ NFE.CriarNFe( " [infNFe] versao=4.00 [Identificacao] cNF=51004200 natOp=5.101 Venda de producao do estabelecimento ======================= // btn NFE carregar INI bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2420-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html

bom dia =============== EDT_CARTA_CONTEUDO_INI=[ NFe.EnviarEvento( " [EVENTO] idLote= [EVENTO001] chNFe=#chNFe# cOrgao=#cOrgao# CNPJ=#CNPJ# dhEvento=#dhEvento# tpEvento=#tpEvento# nSeqEvento=#nSeqEvento# versaoEvento=#versaoEvento# descEvento=Carta de Correcao xCorrecao=#xCorrecao# " ) ] ======================= // btn_carta_preenhce_Dados EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#chNFe#",EDT_CARTA_eChave) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#cOrgao#",EDT_CARTA_cOrgao) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#CNPJ#",EDT_carta_cnpj) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#dhEvento#",DateToString(Today(),"dd/mm/yyyy"+TimeToString(Now()," hh:mm"))) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#tpEvento#",EDT_carta_tpEvento) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#nSeqEvento#",EDT_carta_sequencia_evento) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#xCorrecao#",EDT_carta_xCorrecao) EDT_CARTA_CONTEUDO_INI=Replace(EDT_CARTA_CONTEUDO_INI,"#versaoEvento#",EDT_CARTA_versaoEvento) ======================= INTERNAL PROCEDURE ACBR_NFE_CarregarEventoINI(sRecebe_arquivo_ou_ini) // //https://acbr.sourceforge.io/ACBrLib/NFE_CarregarEventoINI.html // NFE_CarregarEventoINI( eArquivoOuINI );; gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarEventoINI",StringToUTF8(sRecebe_arquivo_ou_ini)) IF gnretorno_acbr=0 THEN RESULT "Carregou Ini com Sucesso" ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada " IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao ler o arquivo INI." texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END END ======================= INTERNAL PROCEDURE ACBR_NFE_EnviarEvento(RECEBE_LOTE is int=0) //https://acbr.sourceforge.io/ACBrLib/NFE_EnviarEvento.html //NFE_EnviarEvento( idLote, sResposta, esTamanho ); GsResposta is string on 256 GsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_EnviarEvento",RECEBE_LOTE,&GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN GsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(GsResposta_maior_256) ELSE RESULT UTF8ToString(GsResposta) END ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada " IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao enviar o evento.." GsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho) texto+=CR+GsResposta_maior_256 RESULT texto END END =========================== // BTN_CARTA_ACBR_NFE_ENVIARVENTO //https://acbr.sourceforge.io/ACBrMonitor/ManifestacaodoDestinatarioCienci.html bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_carTA_RESPOSTA=ACBR_NFE_CarregarEventoINI(EDT_CARTA_CONTEUDO_INI) EDT_carTA_RESPOSTA+=CR+"ENVIAR EVENTO=>"+CR+ACBR_NFE_EnviarEvento(0) END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2418-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrMonitor/CartadeCorrecao.html https://acbr.sourceforge.io/ACBrLib/NFE_CarregarEventoINI.html https://acbr.sourceforge.io/ACBrLib/NFE_EnviarEvento.html

Bom dia =============== //PROCEDURE ACBR_NFE_DistrDFePorChave(nRecebe_AcUFAutor is int=0, sRecebe_eCNPJCPF is string="", ... sRecebe_echave is string="") GsResposta is string on 256 GsResposta_maior_256 is string="" GnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_DistribuicaoDFePorChave",nRecebe_AcUFAutor, ... StringToUTF8(sRecebe_eCNPJCPF), StringToUTF8(sRecebe_echave), ... &GsResposta,&GnTamanho) IF gnretorno_acbr=0 THEN IF GnTamanho>256 THEN GsResposta_maior_256=RepeatString(" ",GnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&GnTamanho) RESULT UTF8ToString(GsResposta_maior_256) ELSE RESULT UTF8ToString(GsResposta) END ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao baixar o NFe" texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END // https://acbr.sourceforge.io/ACBrLib/NFE_DistribuicaoDFePorChave.html // Comando:NFE_DistribuicaoDFePorChave( AcUFAutor, eCNPJCPF, eChave, sResposta, esTamanho ); =============== // btn_nfe_distribuicaoDfePorChave bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_DISTRIBUICAO_RESPOSTA=ACBR_NFE_DistrDFePorChave(EDT_distribuicao_AcUFAutor, ... EDT_distribuicao_eCNPJCPF,EDT_distribuicao_eChave) END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2415-windev-webdev-mobile-acbr.html

bom dia =============== PROCEDURE ACBR_NFE_DistrDFePorNSU(nRECEBE_nAcUFAutor is int=0,sRECEBE_sECNPJCPF is string="", ... sRECEBE_sENSU is string="") gsResposta is string on 256 GsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_DistribuicaoDFePorNSU",nRECEBE_nAcUFAutor, ... StringToUTF8(sRECEBE_sECNPJCPF), ... StringToUTF8(sRECEBE_sENSU), ... &gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN GsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(GsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao baixar o documento." texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END // https://acbr.sourceforge.io/ACBrLib/NFE_DistribuicaoDFePorNSU.html //NFE_DistribuicaoDFePorNSU // Comando:NFE_DistribuicaoDFePorNSU( AcUFAutor, eCNPJCPF, eNSU, sResposta, esTamanho ); =============== // BTN_NFE_DISTRIBUICAODFEPORNSU bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_DISTRIBUICAO_RESPOSTA+=CR+ACBR_NFE_DistrDFePorNSU(EDT_distribuicao_AcUFAutor, ... EDT_distribuicao_eCNPJCPF,EDT_distribuicao_eNSU) END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2411-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_DistribuicaoDFePorNSU.html

bom dia ======================= PROCEDURE ACBR_NFE_DistrDFePorUltNSU(nRECEBE_nAcUFAutor is int=0,sRECEBE_sECNPJCPF is string="", ... sRECEBE_sEultNSU is string="") gsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_DistribuicaoDFePorUltNSU",nRECEBE_nAcUFAutor,sRECEBE_sECNPJCPF,sRECEBE_sEultNSU, ... &gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao baixar os documentos." texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_DistribuicaoDFePorUltNSU.html //Comando:NFE_DistribuicaoDFePorUltNSU( AcUFAutor, eCNPJCPF, eultNSU, sResposta, esTamanho ); ======================= // BTN_NFE_DISTRIBUICAODFEPORULTNSU bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_DISTRIBUICAO_RESPOSTA=ACBR_NFE_DistrDFePorUltNSU(EDT_distribuicao_AcUFAutor,EDT_distribuicao_eCNPJCPF,EDT_distribuicao_eUltNSU) END ACBR_FINALIZAR() https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2407-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_DistribuicaoDFePorUltNSU.html =======================

bom dia ======================= //PROCEDURE ACBR_NFE_CANCELAR(sRECEBER_eChave is string="",sRECEBER_eJustificativa is string="", ... sRECEBER_eCNPJ is string="",nRECEBER_ALote is int=0) GsResposta is string on 256 GsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ... StringToUTF8(sRECEBER_eJustificativa), StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote, &GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN GsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(GsResposta_maior_256) ELSE RESULT UTF8ToString(GsResposta) END ELSE texto is string="Erro Retorno ["+gnretorno_acbr+"]" IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao NFE Cancelar" texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html //Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho ); ======================= // BTN_NFE_CANCELAR NOTA bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_CANCELAMENTO_RESPOSTA=ACBR_NFE_CANCELAR(EDT_cancelar_eChave,EDT_cancelar_Justificativa, ... EDT_cancelar_cnpj_emitente,EDT_cancelar_numero_lote) END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2403-windev-webdev-mobile-acbr.html

bom dia ================ PROCEDURE ACBR_NFE_INUTILIZAR(sRECEBE_CNPJ is string="", sRECEBE_JUSTIFICATIVA is string="", ... nRECEBE_ANO is int=0,nRECEBE_MODELO is int=0,nRECEBE_SERIE int=0, ... nRECEBE_NUMERO_INICIAL is int=0, nRECEBE_NUMERO_FINAL is int=0) GsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inutilizar",StringToUTF8(sRECEBE_CNPJ), ... StringToUTF8(sRECEBE_JUSTIFICATIVA), ... nRECEBE_ANO,nRECEBE_MODELO,nRECEBE_SERIE, ... nRECEBE_NUMERO_INICIAL,nRECEBE_NUMERO_FINAL, ... &GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(GsResposta) END ELSE texto is string="Erro Retorno - "+gnretorno_acbr+" = " IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao inutilizar" texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Inutilizar.html //Comando:NFE_ Inutilizar( ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal, // sResposta, esTamanho ); ========================== // btn NFE Inutilizar bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_INUTILIZA_RESPOSTA=ACBR_NFE_INUTILIZAR(EDT_INUTILIZA_CNPJ,EDT_INUTILIZA_JUSTIFICATIVA, ... EDT_INUTILIZA_ANO,EDT_INUTILIZA_MODELO,EDT_INUTILIZA_SERIE, ... EDT_INUTILIZA_NUMERO_INICIAL,EDT_INUTILIZA_NUMERO_FINAL) END ACBR_FINALIZAR() ================

bom dia PROCEDURE ACBR_NFE_CONSULTACADASTRO(sRECEBE_UF is string="", ... sRECEBE_CNPJ_CPF is string="", ... bRECEBE_INS_EST_P is boolean=False) GsResposta is string on 256 GsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConsultaCadastro",StringToUTF8(sRECEBE_UF), ... StringToUTF8(sRECEBE_CNPJ_CPF),bRECEBE_INS_EST_P, ... &GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN GsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&GsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(GsResposta_maior_256) ELSE RESULT UTF8ToString(GsResposta) END ELSE texto is string="Erro Retorno - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." texto+=CR+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_ConsultaCadastro.html //:NFE_ConsultaCadastro( cUF, nDocumento, nIE, sResposta, esTamanho ); //NIE=TRUE ================================= // btn NFE CONSULTA CADASTRO bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_RESPOSTA_CADASTRO=ACBR_NFE_CONSULTACADASTRO(EDT_CADASTRO_cUF,EDT_CADASTRO_nDocumento,INT_nIE) END ACBR_FINALIZAR() ================================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2398-windev-webdev-mobile-acbr.html

bom dia PROCEDURE ACBR_ULTIMO_RETORNO() gnTamanho is system int=256 gsResposta is string="" gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta,&gnTamanho) TEXTO is string="Retorno:"+gnretorno_acbr+"-"+gsResposta RESULT TEXTO https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2394-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_UltimoRetorno.html

bom dia ======================= PROCEDURE ACBR_NFE_CARREGARXML(sRecebe_arquivo_ou_xml) // NFE_ CarregarXML( eArquivoOuXML ); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml)) IF gnretorno_acbr=0 THEN RESULT "Carregou Xml com Sucesso" ELSE RESULT "Erro Retorno :"+gnretorno_acbr END ==================== // btn NFE carregar xml bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) END ACBR_FINALIZAR() ================================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2385-windev-webdev-mobile-acbr.html bom dia https://acbr.sourceforge.io/ACBrLib/NFE_ImprimirPDF.html ======================= PROCEDURE ACBR_NFE_ImprimirPDF() // https://acbr.sourceforge.io/ACBrLib/NFE_ImprimirPDF.html // NFE_ ImprimirPDF gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF") IF gnretorno_acbr=0 THEN RESULT("Imprimiu com Sucesso") ELSE texto is string="Erro Retorno - "+gnretorno_acbr+" = " IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada" IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao gerar o PDF do DANFe." RESULT texto END ================================= // btn NFE imprimir pdf bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) EDT_RESPOSTA+=CR+ACBR_NFE_ImprimirPDF() ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_NFE+"-NFE.PDF") END ACBR_FINALIZAR() ================================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2390-windev-webdev-mobile-acbr_17.html

Bom dia ======================= PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) //NFE_ ConfigGravarValor(eSessao, eChave, sValor); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigGravarValor",RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) IF gnretorno_acbr=0 THEN RESULT "ALTERADO COM SUCESSO" ELSE RESULT "ERRO RETORNO DA GRAVACAO:"+gnretorno_acbr END ================================= // btn NFE CONFIG Grava Valor bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_sessao_resposta=ACBR_CONFIG_GRAVA_VALOR(EDT_SESSAO,EDT_CHAVE,EDT_sessao_resposta) END ACBR_FINALIZAR() ========================== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2381-windev-webdev-mobile-acbr.html bom dia ======================= PROCEDURE ACBR_NFE_CARREGARXML(sRecebe_arquivo_ou_xml) // NFE_ CarregarXML( eArquivoOuXML ); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml)) IF gnretorno_acbr=0 THEN RESULT "Carregou Xml com Sucesso" ELSE RESULT "Erro Retorno :"+gnretorno_acbr END ==================== // btn NFE carregar xml bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) END ACBR_FINALIZAR() ================================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2385-windev-webdev-mobile-acbr.html

Bom dia ======================= PROCEDURE ACBR_CONFIG_GRAVA_VALOR(RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) //NFE_ ConfigGravarValor(eSessao, eChave, sValor); gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigGravarValor",RECEBE_SESSAO,RECEBE_CHAVE,RECEBE_VALOR) IF gnretorno_acbr=0 THEN RESULT "ALTERADO COM SUCESSO" ELSE RESULT "ERRO RETORNO DA GRAVACAO:"+gnretorno_acbr END ================================= // btn NFE CONFIG Grava Valor bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_sessao_resposta=ACBR_CONFIG_GRAVA_VALOR(EDT_SESSAO,EDT_CHAVE,EDT_sessao_resposta) END ACBR_FINALIZAR() ========================== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2381-windev-webdev-mobile-acbr.html

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 14 10 2019. Dica 2378. Vou Alterar a maneira de fazer a leitura do ini (Graças Cassiano) Em vez de fazer tudo manual, foi feito em cima do proprio arquivo ini. =============== GLOBAL gnretorno_acbr is int gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini gs_nome_sessao is string="" ST_chaves is Structure sChave is string sValue is string END ST_ini is Structure sEssao is string arrChaves is array of ST_chaves END arrIni is array of ST_ini ================= PROCEDURE ATUALIZA_LIST_BOX_SESSAO() LIST_SESSAO.DeleteAll() // ListDeleteAll(LIST_SESSAO) sTexto is ANSI string=fLoadText(EDT_ARQUIVO_ACBR_LIB,foAnsi) EDT_RESPOSTA=sTexto arrSplitgeral is array of strings= StringSplit(sTexto,CR) nPos is int=0 FOR EACH sLinha OF arrSplitgeral IF sLinha[1]="[" THEN sEssao is string=NoCharacter(sLinha,"[]") //listadd(LIST_SESSAO,sEssao) LIST_SESSAO.Add(sEssao) nPos = Add(arrIni) arrIni[nPos].sEssao=sEssao ELSE IF nPos>0 THEN schave is string=ExtractString(sLinha,1,"=") sValue is string=ExtractString(sLinha,2,"=") IF schave<>"" THEN nPoschave is int=Add(arrIni[nPos].arrChaves) arrIni[nPos].arrChaves[nPoschave].sChave=schave arrIni[nPos].arrChaves[nPoschave].sValue=sValue END END END END ======================== PROCEDURE ATUALIZA_LIST_CHAVE() LIST_CHAVE.DeleteAll() //DeleteAll(LIST_CHAVE) FOR EACH stCHAVE OF arrIni[LIST_SESSAO].arrChaves //ListAdd(LIST_CHAVE,stCHAVE.sChave) LIST_CHAVE.Add(stCHAVE.sChave) END ============== https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2378-windev-webdev-mobile-acbr.html fonte_windev_Lista_Chave fonte_windev_Lista_sessao fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR

bom dia PROCEDURE ACBR_NOME_VERSAO_NFE() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Nome",&gsResposta,&gnTamanho) sNOME is string=gsResposta gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Versao",&gsResposta,&gnTamanho) sVERSAO is string=gsResposta RESULT "NOME:"+sNOME+" VERSAO:"+sVERSAO ========================== // btn nome versao bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_RESPOSTA=ACBR_NOME_VERSAO_NFE() END ACBR_FINALIZAR() bom dia https://acbr.sourceforge.io/ACBrLib/NFE_ConfigLerValor.html PROCEDURE ACBR_CONFIG_LER_VALOR(RECEBE_SESSAO,RECEBE_CHAVE) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ConfigLerValor",RECEBE_SESSAO,RECEBE_CHAVE,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE RESULT "Erro Retorno:"+gnretorno_acbr END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2376-windev-webdev-mobile-acbr.html fonte_windev_Global_Acbr fonte_windev_ACBR_CONFIG_LER_VALOR fonte_windev_Lista_Chave fonte_windev_Lista_sessao

bom dia https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html https://acbr.sourceforge.io/ACBrLib/NFE_UltimoRetorno.html PROCEDURE ACBR_STATUS_SERVICO() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta_maior_256,&gnTamanho) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(gsResposta) END ELSE RESULT "Erro Retorno:"+gnretorno_acbr END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2371-windev-webdev-mobile-acbr.html

bom dia ======================= https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html https://acbr.sourceforge.io/ACBrLib/NFE_StatusServico.html ======================= GLOBAL gnretorno_acbr is int gsarquivo_ini is string="C:\My_Projects\_Curso_erpAmarildo_v24\componente_acbr_dll\Exe\acbrlib.ini" // acbrlib.ini gsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int = 256 ======================= // btn Status Servico bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_STATUS_SERVICO() END ACBR_FINALIZAR() ======================== PROCEDURE ACBR_STATUS_SERVICO() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_StatusServico",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT UTF8ToString(gsResposta) ELSE RESULT "Erro Retorno:"+gnretorno_acbr END // gsResposta_maior_256 => ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2370-windev-webdev-mobile-acbr.html

bom dia.. Finalizar Metodo //PROCEDURE ACBR_FINALIZAR() //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") IF gnretorno_acbr=0 THEN RESULT True ELSE Info("erro retorno"+CR+gnretorno_acbr) END https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2367-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html

Bom dia // GLOBAL gnretorno_acbr is int gsarquivo_ini is string="" // acbrlib.ini // PROCEDURE ACBR_INICIALIZAR() gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE Info("erro retorno"+CR+gnretorno_acbr) END ,

Hangout , iniciando Acbrlib integrando com Windev

bom dia.. voce usa componente ou usa acbrmonitorPlus?

bom dia http://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= Acesse esse link , e pode consultar com o numero da chave. Quero deixar uma coisa que nos ja desenvolvemos aqui, e voce poderiam fazer ai tambem. Quando fizerem a nota, ja gravar o xml dentro do banco de dados..

bom dia.. verifique se nao teve nenhuma atualizacao no windows

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.