Amarildo de Matos

bom dia ======================== PROCEDURE ACBR_ImprimirPDF(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT("Imprimiu com Sucesso") ELSE texto is string=sRecebe_nome_dll+" "+sRecebe_nome_metodo+"Erro Retorno - "+gnretorno_acbr+CR IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao gerar o PDF do DANFe."+CR RESULT texto END //// acbr_nfe_imprimirPdf //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF") ======================= // BTN IMPRIMIR_DACTE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA+=CR+ACBR_CARREGARXML("ACBrCTe32.dll","CTE_CarregarXML",EDT_XML) EDT_RESPOSTA+=CR+ACBR_ImprimirPDF("ACBrCTe32.dll","CTE_ImprimirPDF") ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_CTE+"-CTE.PDF") ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2499-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 24 11 2019. Dica 2499. Método usado para gerar o PDF do DACTE de um CTe carregado.

boa noite ======================== PROCEDURE ACBR_CANCELAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ... 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(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_eChave), ... StringToUTF8(sRECEBER_eJustificativa), StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote, &GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_retorno,gnTamanho,GsResposta)) 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("ACBrNFe32.DLL","NFE_UltimoRetorno") RESULT texto END //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ... // RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta)) //https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html //Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho ); ============================ // BTN_CTE_CANCELAR NOTA bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CANCELAR("ACBrCTe32.DLL","CTE_Cancelar","CTE_UltimoRetorno", ... EDT_cancelar_eChave,EDT_cancelar_Justificativa, ... EDT_cancelar_cnpj_emitente,EDT_cancelar_numero_lote) END ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar") ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== Boa Noite, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 23 11 2019. Dica 2497. Método usado para Cancelar um CTe na SEFAZ. DICAS 2497 - WINDEV WEBDEV MOBILE - ACBR 174 - ACBR LIB - CTE_Cancelar https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2497-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Cancelar.html

bom dia PROCEDURE ACBR_CONSULTAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ... sRECEBE_XML_OU_CHAVE is string="") //sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="",sRECEBE_XML_OU_CHAVE IS STRING="") gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,sRECEBE_XML_OU_CHAVE,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_retorno,gnTamanho,gsResposta)) 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=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_retorno) RESULT texto END ======================== // btn CTE CONSULTAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar") IF bRETORNO=True THEN sConsulta_xml is string="" IF EDT_CONSULTA_eChave="" THEN sConsulta_xml=EDT_consulta_Arquivo_xml ELSE sConsulta_xml=EDT_CONSULTA_eChave END EDT_CONSULTA_RESPOSTA=ACBR_CONSULTAR("ACBrCTe32.DLL","CTE_Consultar","CTE_UltimoRetorno",sConsulta_xml) END ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar") ====================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 22 11 2019. Dica 2493. Método usado para consultar um CTe na SEFAZ DICAS 2493 - WINDEV WEBDEV MOBILE - ACBR 173 - ACBR LIB - CTE_Consultar https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2493-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Consultar.html

boa tarde ======================== PROCEDURE ACBR_CTE_Enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True) GsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrCTe32.DLL","CTE_Enviar",nRecebe_lote,bRecebe_imprimir,&GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrCTe32.DLL","CTE_UltimoRetorno",gnTamanho,GsResposta)) ELSE texto is string="CTE_Enviar-Erro Retorno ["+gnretorno_acbr+"]"+CR IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP"+CR IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao Enviar Cte"+CR texto+=ACBR_ULTIMO_RETORNO("ACBrCTe32.DLL","CTE_UltimoRetorno") texto+=CR+"----------------" texto+=CR+"nome dll[ACBrCTe32.DLL]" texto+=CR+"nome metodo[CTE_Enviar]" texto+=CR+"nome Ultimo Retorno[CTE_UltimoRetorno]" texto+=CR+"----------------" RESULT texto END ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== // btn CTE TRANSMITIR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.DLL","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.DLL","CTE_Assinar","CTE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Validar("ACBrCTe32.DLL","CTE_Validar","CTE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_CTE_Enviar(EDT_CTE_Enviar_LOTE,INT_CTE_Enviar_imprimir) ELSE EDT_RESPOSTA+=CR+"erro VALIDAR" END ELSE EDT_RESPOSTA+=CR+"erro aSSINAR" END ELSE EDT_RESPOSTA+=CR+"erro carregar ini" END END ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2490-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Enviar.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 21 11 2019. Dica 2490. Método usado para enviar um lote de CTe para SEFAZ. DICAS 2490 - WINDEV WEBDEV MOBILE - ACBR 172 - ACBR LIB - CTE_Enviar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev https://web.flock.com/?

Boa noite ======================== PROCEDURE ACBR_Validar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",recebe_ultimo_Retorno is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Validar") IF gnretorno_acbr=0 THEN // 0 = VALIDOU COM SUCESSO RESULT("0") 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("ACBrNFe32.DLL","NFE_UltimoRetorno") texto+=CR+ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno) RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html // NFE_Validar; ======================== PROCEDURE ACBR_Assinar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",recebe_ultimo_Retorno is string="") //gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar") //EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN //assinou com sucesso=0 RESULT("0") 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" // aula 19 11 2019 texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno) //"CTE_UltimoRetorno") RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Assinar.html //Comando: NFE_ Assinar ======================== // btn ASSINAR xml eCTE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar","CTE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN //AULA 20 11 2019 EDT_RESPOSTA=ACBR_Validar("ACBrCTe32.dll","CTE_Validar","CTE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"ASSINADO E VALIDADO COM SUCESSO" ELSE Info("ERRO AO VALIDAR:"+CR+EDT_RESPOSTA) END //AULA 20 11 2019 ELSE Info("erro ao assinar"+EDT_RESPOSTA) END ELSE Info("ERRO AO CARREGAR INI") END END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") gnTamanho is system int=256 gsResposta is string on 256 gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho) sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta) RESULT sTEXTO_R ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2488-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Validar.html Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev https://web.flock.com/?

boa noite ======================== PROCEDURE ACBR_ULTIMO_RETORNO(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") gnTamanho is system int=256 gsResposta is string on 256 gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,&gsResposta,&gnTamanho) sTEXTO_R is string="Retorno["+gnretorno_acbr+"]"+CR sTEXTO_R+=VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_metodo,gnTamanho,gsResposta) RESULT sTEXTO_R ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== // btn ASSINAR xml eCTE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"assinado com sucesso" ELSE Info("erro ao assinar"+EDT_RESPOSTA) END ELSE Info("ERRO AO CARREGAR INI") END END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2486-windev-webdev-mobile-acbr.html

boa noite ======================== PROCEDURE ACBR_Assinar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN //assinou com sucesso=0 RESULT("0") 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 ======================= // btn ASSINAR xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_Assinar") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"ASSINADO COM SUCESSO" ELSE Info("ERRO AO ASSINAR"+CR+EDT_RESPOSTA) END ELSE Info("ERRO AO CARREGAR INI") END END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2482-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Assinar.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 18 11 2019. Dica 2482. Método usado para assinar os conhecimentos carregados no componente ACBrCTe. DICAS 2482 - WINDEV WEBDEV MOBILE - ACBR 169 - ACBR LIB - CTE_Assinar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.

boa tarde ======================== PROCEDURE ACBR_OBTERXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRecebe_nome_ultimo_Retorno is string="",nPosicao is int=0) gsResposta is string on 256 sGsResposta_maior_256 is string="" gnTamanho is system int=256 //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho) gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,nPosicao,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno,gnTamanho,gsResposta)) 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=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_ultimo_Retorno) RESULT texto END // Método para retornar o xml da NFe. // https://acbr.sourceforge.io/ACBrLib/NFE_ObterXml.html // NFE_ObterXml( AIndex, sResposta, esTamanho ); // AiNDEX = Posição da NFe na lista, À lista inicia em 0. ======================== // btn cte obter xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_OBTERXML("ACBrCTe32.DLL","CTE_ObterXml","CTE_UltimoRetorno",0) ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2477-windev-webdev-mobile-acbr_17.html Dica 2479. Método para retornar o xml do CTe com Dll acbr Lib. DICAS 2479 - WINDEV WEBDEV MOBILE - ACBR 168 - ACBR LIB - CTE_ObterXml

boa tarde ======================== PROCEDURE ACBR_CARREGARXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRecebe_arquivo_ou_xml is string="") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRecebe_arquivo_ou_xml)) IF gnretorno_acbr=0 THEN // 0 = Carregou Xml com Sucesso RESULT "0" 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 XML" RESULT texto END // NFE_ CarregarXML( eArquivoOuXML ); // gnretorno_acbr=api("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml)) ======================== // BTN CTE CARREGAR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARXML("ACBrCTe32.DLL","CTE_CarregarXML",EDT_XML) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA="XML CARREGADO COM SUCESSO" ELSE EDT_RESPOSTA="ERRO CARREGAR XML" END // IMPORTANTE SALIENTAR SE NAO FOR INFORMADO NOME DO XML E DIRETORIO, ELE MESMO CRIA SOZINHO END ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2477-windev-webdev-mobile-acbr.html Boa tarde, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 16 11 2019. Dica 2477. Método usado para ler o arquivo XML para o componente ACBrCTe. DICAS 2477 - WINDEV WEBDEV MOBILE - ACBR 167 - ACBR LIB - CTE_CarregarXML https://acbr.sourceforge.io/ACBrLib/CTE_CarregarXML.html https://acbr.sourceforge.io/ACBrLib/CTE_CarregarINI.html https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev

boa noite ======================== PROCEDURE ACBR_CARREGARINI(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ... sRECEBER_ARQUIVO_OU_INI is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI)) gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_ARQUIVO_OU_INI)) IF gnretorno_acbr=0 THEN // 0 Carregou com Sucesso RESULT "0" 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 //https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html //Comando: NFE_ CarregarINI( eArquivoOuINI ); ======================== // btn cte carregar ini bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrCTe32.dll","CTE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"Ini Cte Carregando com Sucesso" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2476-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_CarregarINI.html https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 15 11 2019. Dica 2476. Método usado para ler o arquivo INI para o componente ACBrCTe. DICAS 2476 - WINDEV WEBDEV MOBILE - ACBR 166 - ACBR LIB - CTE_CarregarINI Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev

bom dia ======================== // btn_inicializar_finalizar bResposta is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar") IF bResposta=True THEN // COMANDOS END ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar") // https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html // https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ====================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" Info("ERRO FINALIZAR DLL"+texto) RESULT texto END ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2473-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 14 11 2019. Dica 2473. Inicio ACBrCTe32 AcbrLib dll com Windev. DICAS 2473 - WINDEV WEBDEV MOBILE - ACBR 164 - ACBR LIB - Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev

boa tarde ======================== PROCEDURE ACBR_Boleto_GerarRemessa(RECEBER_DIRETORIO_REMESSA is string="", ... RECEBER_NUMEROARQUIVO is int=0,RECEBER_NOME_ARQUIVO is string="") gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_GerarRemessa",StringToUTF8(RECEBER_DIRETORIO_REMESSA), ... RECEBER_NUMEROARQUIVO,StringToUTF8(RECEBER_NOME_ARQUIVO)) IF gnretorno_acbr=0 THEN RESULT(True) ELSE texto is string="Boleto_GerarRemessa-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 falhas na execução do método" RESULT texto END ======================== // btn_Boleto_REMESSA // btn_Boleto_REMESSA bRETORNO is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bRETORNO=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_LimparLista() IF EDT_BOLETO_RESPOSTA=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_ConfigurarDados(EDT_BOLETO_ARQUIVO_CEDENTE_INI) IF EDT_BOLETO_RESPOSTA="OK" THEN sTipo_saida is string=RADIO_Boleto_Tipo_Saida EDT_BOLETO_RESPOSTA=ACBR_Boleto_IncluirTitulos(EDT_BOLETO_ARQUIVO_TITULO_INI,sTipo_saida) IF EDT_BOLETO_RESPOSTA="OK" THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_GerarRemessa(EDT_BOLETO_REMESSA_DIRETORIO,EDT_BOLETO_REMESSA_NUMERO_ARQUIVO,EDT_BOLETO_REMESSA_NOME_ARQUIVO) END END END END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2468-windev-webdev-mobile-acbr_13.html https://acbr.sourceforge.io/ACBrLib/Boleto_GerarRemsessa.html https://acbr.sourceforge.io/ACBrLib/Boleto_Imprimir.html https://acbr.sourceforge.io/ACBrLib/Boleto_IncluirTitulos.html https://acbr.sourceforge.io/ACBrLib/Boleto_ConfigurarDados.html https://acbr.sourceforge.io/ACBrLib/ComoEmitirumBoleto.html https://acbr.sourceforge.io/ACBrLib/ModeloCedenteINI.html https://acbr.sourceforge.io/ACBrLib/ModeloTituloINI.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev https://www.projetoacbr.com.br/forum/topic/54183-acbrlib-integrando-com-windev/ * AcbrLib - Integrando Boleto com Windev https://www.projetoacbr.com.br/forum/topic/54670-acbrlib-integrando-dll-boleto-com-windev/ https://wxdev.com.br/forum/index.php Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 13 11 2019. Dica 2468. Método responsável por Gerar o arquivo de Remessa dos Títulos adicionados a Lista. DICAS 2468 - WINDEV WEBDEV MOBILE - ACBR 163 - ACBR LIB - Boleto_GerarRemsessa Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.

bom dia ======================== PROCEDURE ACBR_Boleto_Imprimir(sRECEBE_NOME_IMPRESSORA is string="") gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_Imprimir",StringToUTF8(sRECEBE_NOME_IMPRESSORA)) IF gnretorno_acbr=0 THEN RESULT(True) 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 falhas na execução do método" RESULT texto END //https://acbr.sourceforge.io/ACBrLib/Boleto_Imprimir.html //Comando: Boleto_Imprimir([eNomeImpressora]) ======================== // btn_Boleto_Incluir Titulos bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_LimparLista() IF EDT_BOLETO_RESPOSTA=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_ConfigurarDados(EDT_BOLETO_ARQUIVO_CEDENTE_INI) sTipo_saida is string=RADIO_Boleto_Tipo_Saida EDT_BOLETO_RESPOSTA=ACBR_Boleto_IncluirTitulos(EDT_BOLETO_ARQUIVO_TITULO_INI,sTipo_saida) IF EDT_BOLETO_RESPOSTA="OK" THEN sNOME_IMPRESSORA is string="" EDT_BOLETO_RESPOSTA+=CR+"iMPRIMIR"+ACBR_Boleto_Imprimir(sNOME_IMPRESSORA) Info("BOLETO OK") END END END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2466-windev-webdev-mobile-acbr.html Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2466-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_Imprimir.html https://acbr.sourceforge.io/ACBrLib/Boleto_IncluirTitulos.html https://acbr.sourceforge.io/ACBrLib/Boleto_ConfigurarDados.html https://acbr.sourceforge.io/ACBrLib/ComoEmitirumBoleto.html https://acbr.sourceforge.io/ACBrLib/ModeloCedenteINI.html https://acbr.sourceforge.io/ACBrLib/ModeloTituloINI.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev https://web.flock.com/?

boa noite ======================== PROCEDURE ACBR_Boleto_IncluirTitulos(sRECEBE_ARQUIVO_INI is string="",sRECEBE_TIPO_sAIDA is string="") // nRECEBE_TIPO_sAIDA IS INT=0 Info(sRECEBE_TIPO_sAIDA) gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_IncluirTitulos",StringToUTF8(sRECEBE_ARQUIVO_INI), ... StringToUTF8(sRECEBE_TIPO_sAIDA),&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END // https://acbr.sourceforge.io/ACBrLib/Boleto_IncluirTitulos.html // Comando: Boleto_IncluirTitulos(eArquivoIni, [eTipoSaida], sResposta, esTamanho); // obs: Podem ser adicionados todos os Títulos do Cedente em um único arquivo, adicionando // número sequencial nas chaves. // ex: // [Titulo1] // [Tutulo2] // Se informado o tipo de Saída será executado a tarefa conforme solicitação abaixo: // P - PDF // I - Impressora // E - e-mail ========================= PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" =========================== // BTN PROCURA TITULO sFile is string // Opens the file picker sFile = fSelect("", "", "Select a file...", "All the files (*.*)" + TAB + "*.*", "*.*") EDT_BOLETO_ARQUIVO_TITULO_INI=sFile ======================== // btn mostra dados titulo EDT_BOLETO_TITULO_INI=fLoadText(EDT_BOLETO_ARQUIVO_TITULO_INI,foAnsi) ======================== // BTN GRAVAR DADOS titulo fSaveText(EDT_BOLETO_ARQUIVO_TITULO_INI,EDT_BOLETO_TITULO_INI) ======================== // btn_Boleto_Incluir Titulos bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_LimparLista() IF EDT_BOLETO_RESPOSTA=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_ConfigurarDados(EDT_BOLETO_ARQUIVO_CEDENTE_INI) sTIPO_SAIDA is string=RADIO_Boleto_Tipo_Saida EDT_BOLETO_RESPOSTA=ACBR_Boleto_IncluirTitulos(EDT_BOLETO_ARQUIVO_TITULO_INI,sTIPO_SAIDA) IF EDT_BOLETO_RESPOSTA="OK" THEN Info("boleto ok") END END END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== [Titulo1] NumeroDocumento=000010 NossoNumero=0000001 Carteira=20 ValorDocumento=10,50 Vencimento=11/12/2019 ValorMoraJuros=0,50 DataDocumento=11/11/2019 DataProcessamento= DataAbatimento= DataDesconto= DataMoraJuros= DiasDeProtesto=0 DataProtesto= DataMulta= ValorAbatimento=5,00 ValorDesconto=0,50 ValorMoraJuros=0,55 ValorIOF=3,50 ValorOutrasDespesas=2,50 MultaValorFixo=0 PercentualMulta=05,00 LocalPagamento=Pagável em qualquer agência bancária mesmo após o vencimento Especie=DM EspecieMod=R$ Sacado.NomeSacado=AMARILDO SACADO Sacado.CNPJCPF=92715978000158 Sacado.Pessoa=0 Sacado.Logradouro=Rua PARAIBA Sacado.Numero=100 Sacado.Bairro=CENTRO Sacado.Complemento=C Sacado.Cidade=NOVO HAMBURGO Sacado.UF=RS Sacado.CEP=93310010 [email protected] Sacado.SacadoAvalista.NomeAvalista= Sacado.SacadoAvalista.CNPJCPF= Sacado.SacadoAvalista.Logradouro= Sacado.SacadoAvalista.Numero= Sacado.SacadoAvalista.Complemento= Sacado.SacadoAvalista.Bairro= Sacado.SacadoAvalista.Cidade= Sacado.SacadoAvalista.UF= Sacado.SacadoAvalista.CEP= Sacado.SacadoAvalista.Email= Sacado.SacadoAvalista.Fone= Sacado.SacadoAvalista.InscricaoNr= Mensagem=teste1|teste2 Instrucao1=10 Instrucao2=11 Aceite=1 OcorrenciaOriginal.TipoOcorrencia=0 Parcela=1 TotalParcelas=1 SeuNumero=000020 TipoDiasProtesto=1 TipoImpressao=1 CodigoMora=1 TipoDesconto=0 TipoDesconto2=0 ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 11 11 2019. Dica 2464. Método responsável por Incluir os Títulos utilizando um arquivo .INI. DICAS 2464 - WINDEV WEBDEV MOBILE - ACBR 161 - ACBR LIB - Boleto_IncluirTitulos Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2464-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_IncluirTitulos.html https://acbr.sourceforge.io/ACBrLib/Boleto_ConfigurarDados.html https://acbr.sourceforge.io/ACBrLib/ComoEmitirumBoleto.html https://acbr.sourceforge.io/ACBrLib/ModeloCedenteINI.html https://acbr.sourceforge.io/ACBrLib/ModeloTituloINI.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg * AcbrLib - Integrando com Windev

boa tarde ======================== PROCEDURE ACBR_Boleto_ConfigurarDados(sRECEBE_ARQUIVO_INI_CEDENTE is string="") gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_ConfigurarDados",sRECEBE_ARQUIVO_INI_CEDENTE,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END // https://acbr.sourceforge.io/ACBrLib/Boleto_ConfigurarDados.html //Método responsável por Alterar as Configurações do Cedente, Banco e Conta utilizando um arquivo .INI //obs: Os dados do Cedente também podem ser configurados utilizando a biblioteca do componente. // veja em: Configurações da Biblioteca //Comando: Boleto_ConfigurarDados(eArquivoIni, sResposta, esTamanho); ======================== // btn_Boleto_ConfigurarDados bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_LimparLista() IF EDT_BOLETO_RESPOSTA=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_ConfigurarDados(EDT_BOLETO_ARQUIVO_CEDENTE_INI) IF EDT_BOLETO_RESPOSTA="OK" THEN Info("CONFIGUROU CORRETAMENTE") END END END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" =========================== // btn mostra dados cedente EDT_BOLETO_CEDENTE_INI=fLoadText(EDT_BOLETO_ARQUIVO_CEDENTE_INI,foAnsi) ========================== // BTN GRAVAR DADOS CEDENTE fSaveText(EDT_BOLETO_ARQUIVO_CEDENTE_INI,EDT_BOLETO_CEDENTE_INI) ========================= EDT_BOLETO_CEDENTE_INI=[ [Cedente] Nome=SAO JOAO LTDA. CNPJCPF= 99.999.999/9999-99 Logradouro=Rua Evaristo Mendes Numero=200 Bairro=Centro Cidade=Tatui CEP=18.270-000 Complemento=Sala 10 UF=SP RespEmis=0 TipoPessoa=1 CodigoCedente=123456 LayoutBol=3 CaracTitulo=0 TipoCarteira=0 TipoDocumento=0 Modalidade=17 CodTransmissao=10 Convenio=123456 [Conta] Conta=99999 DigitoConta=9 Agencia=9999 DigitoAgencia=9 DigitoVerificadorAgenciaConta= [Banco] Numero=237 CNAB=1 IndiceACBr=5 NumeroCorrespondente=0 VersaoArquivo=0 VersaoLote=0 ] ========================= https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2463-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_ConfigurarDados.html https://acbr.sourceforge.io/ACBrLib/ComoEmitirumBoleto.html https://acbr.sourceforge.io/ACBrLib/ModeloCedenteINI.html

boa tarde ======================== PROCEDURE ACBR_Boleto_LimparLista() gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_LimparLista") IF gnretorno_acbr=0 THEN RESULT(True) 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 falhas na execução do método" RESULT texto END ======================== // BTN_BOLETO_LISTACARACTTITULO bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=ACBR_Boleto_LimparLista() IF EDT_BOLETO_RESPOSTA=True THEN Info("LIMPA LISTA COM SUCESSO") END END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 09 11 2019. Dica 2462. Método para limpar os Títulos da Lista. DICAS 2462 - WINDEV WEBDEV MOBILE - ACBR 158 - ACBR LIB - Boleto_LimparLista Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2462-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_LimparLista.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev

bom dia PROCEDURE acbr_Boleto_ListaCaractTitulo() gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_ListaCaractTitulo",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END // https://acbr.sourceforge.io/ACBrLib/Boleto_ListaCaractTitulo.html // Comando: Boleto_ListaCaractTitulo(sResposta, esTamanho); // Método para Listar as Características de Carteiras aceitas pelo componente ======================== // BTN_BOLETO_LISTACARACTTITULO bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=acbr_Boleto_ListaCaractTitulo() END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ========================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 08 11 2019. Dica 2458. Método para Listar as Características de Carteiras aceitas pelo componente DICAS 2458 - WINDEV WEBDEV MOBILE - ACBR 154 - ACBR LIB - Boleto_ListaCaractTitulo Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2458-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_ListaCaractTitulo.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev

bom dia ======================== PROCEDURE acbr_Boleto_CodigosMoraAceitos() gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_CodigosMoraAceitos",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END //https://acbr.sourceforge.io/ACBrLib/Boleto_CodigosMoraAceitos.html // Comando: Boleto_CodigosMoraAceitos(sResposta, esTamanho); //obs: A listagem de Código retornado pode ser utilizada como índice para a geração do Título campo: "CodigoMora" //Método para Listar os códigos de Mora aceito pelos Bancos =========== // BTN_BOLETO_CODIGOSMORACEITOS bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=acbr_Boleto_CodigosMoraAceitos() END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 07 11 2019. Dica 2455. Método para Listar os códigos de Mora aceito pelos Bancos DICAS 2455 - WINDEV WEBDEV MOBILE - ACBR 151 - ACBR LIB - Boleto_CodigosMoraAceitos Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2455-windev-webdev-mobile-acbr_7.html https://acbr.sourceforge.io/ACBrLib/Boleto_CodigosMoraAceitos.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev

bom dia ======================== PROCEDURE acbr_Boleto_ListaOcorrencias() gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_ListaOcorrencias",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END //https://acbr.sourceforge.io/ACBrLib/BOLETO_ListaOcorrencias.html // Boleto_ListaOcorrencias(sResposta, esTamanho); ======================== PROCEDURE acbr_Boleto_ListaOcorrencias_ex() gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_ListaOcorrenciasEX",&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrBoleto32.DLL","Boleto_UltimoRetorno",gnTamanho,gsResposta)) 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 falhas na execução do método" RESULT texto END // https://acbr.sourceforge.io/ACBrLib/Boleto_ListaOcorrenciasEX.html // Comando: Boleto_ListaOcorrenciasEX(sResposta, esTamanho); ======================== // BTN_LISTA_OCORRENCIAS bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=acbr_Boleto_ListaOcorrencias() END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== // btn_LISTA_OCORRENCIAS_EX bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA=acbr_Boleto_ListaOcorrencias_ex() END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 06 11 2019. Dica 2452. Método para Listar os códigos e tipos de ocorrências aceito pelos Bancos com Dll AcbrLib DICAS 2452 - WINDEV WEBDEV MOBILE - ACBR 148 - ACBR LIB - Boleto_ListaOcorrencias Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2452-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_ListaOcorrencias.html https://acbr.sourceforge.io/ACBrLib/Boleto_ListaOcorrenciasEX.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 05 11 2019. Dica 2450. Alterando e Criando uma procedure VER_RETORNO_MAIOR_256 para facilitar o desenvolvimento. DICAS 2450 - WINDEV WEBDEV MOBILE - ACBR 147 - ACBR LIB - Criando VER_RETORNO_MAIOR_256 Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2450-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_UltimoRetorno.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ * AcbrLib - Integrando com Windev https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2450-windev-webdev-mobile-acbr.html ======================== PROCEDURE VER_RETORNO_MAIOR_256(RECEBE_NOME_DLL,RECEBE_METODO,RECEBE_GNTAMANHO,RECEBE_GSRESPOSTA) gsResposta_maior_256 is string="" IF RECEBE_GNTAMANHO>256 THEN gsResposta_maior_256=RepeatString(" ",RECEBE_GNTAMANHO) gnretorno_acbr=API(RECEBE_NOME_DLL,RECEBE_METODO,&gsResposta_maior_256,&RECEBE_GNTAMANHO) RESULT UTF8ToString(gsResposta_maior_256) ELSE RESULT UTF8ToString(RECEBE_GSRESPOSTA) END //"NFE_UltimoRetorno" ======================== RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta)) ======================== PROCEDURE ACBR_NFE_OBTERXML(nPosicao_nfe is int=0) gsResposta is string on 256 sGsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,gsResposta)) 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=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO() RESULT texto END ========================

bom dia ======================== PROCEDURE ACBR_BOLETO_LISTABANCOS() GsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_ListaBancos",&GsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN IF gnTamanho>256 THEN gsResposta_maior_256=RepeatString(" ",gnTamanho) gnretorno_acbr=API("ACBrBoleto32.DLL","Boleto_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 falhas na execução do método." RESULT texto END //https://acbr.sourceforge.io/ACBrLib/BOLETO_ListaBancos.html //Boleto_ListaBancos(sResposta, esTamanho) ======================== // BTN_LISTA_bANCOS bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") EDT_BOLETO_RESPOSTA=ACBR_BOLETO_LISTABANCOS() ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ======================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 04 11 2019. Dica 2447. Método para Listar os Bancos disponíveis no Componente ACBrLibBoleto. DICAS 2447 - WINDEV WEBDEV MOBILE - ACBR 146 - ACBR LIB - Boleto_ListaBancos Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2447-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_ListaBancos.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 11 2019. Dica 2445. Vamos chamar os metodos inicializar e finalizar Boleto da dll acbr lib. DICAS 2445 - WINDEV WEBDEV MOBILE - ACBR 145 - ACBR LIB - Boleto_Inicializar - Boleto_Finalizar Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2445-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ AcbrLib - Integrando com Windev ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ======================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" RESULT texto END ======================== // BTN_INI // https://acbr.sourceforge.io/ACBrLib/Boleto_Inicializar.html // https://acbr.sourceforge.io/ACBrLib/Boleto_Finalizar.html bResposta is boolean=ACBR_INICIALIZAR("ACBrBoleto32.dll","Boleto_Inicializar") IF bResposta=True THEN EDT_BOLETO_RESPOSTA="Dll Inicializado com sucesso" END ACBR_FINALIZAR("ACBrBoleto32.dll","Boleto_Finalizar") ========================

boa noite Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 02 11 2019. Dica 2444. Modificando Metodo Inicializar e Finalizar Para Comecar Boletos. Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2444-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_Inicializar.html https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html ======================== PROCEDURE ACBR_INICIALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Inicializar",StringToUTF8(gsarquivo_ini),"") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(gsarquivo_ini),"") IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-1 THEN texto+=" Indica que houve falhas na finalização da biblioteca " IF gnretorno_acbr=-5 THEN texto+=" Indica que não foi possível localizar o arquivo INI informado " IF gnretorno_acbr=-6 THEN texto+=" Indica que não foi possível encontrar o diretório do arquivo INI " RESULT texto END ======================== PROCEDURE ACBR_FINALIZAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="") //https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html //gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar") gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo) IF gnretorno_acbr=0 THEN RESULT True ELSE texto is string="Erro Retorno"+" - "+gnretorno_acbr IF gnretorno_acbr=-2 THEN texto+=" Indica que houve falhas na finalização da biblioteca" RESULT texto END ======================== // btn NFE carregar xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) END ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar") ========================

bom dia https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2441-windev-webdev-mobile-acbr.html Dica 2441. Método para gravar o xml da NFe. ======================== PROCEDURE ACBR_NFE_GRAVARXML(recebe_posicao_nfe_lista is int=0,recebe_nome_arquivo is string="",recebe_path_arquivo is string="") gnretorno_acbr=API("ACBrNFe32.DLL","NFE_GravarXml",recebe_posicao_nfe_lista,StringToUTF8(recebe_nome_arquivo),StringToUTF8(recebe_path_arquivo)) IF gnretorno_acbr=0 THEN RESULT "xml Gravado 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 executar a função." IF gnretorno_acbr=-13 THEN texto+=" Indica que o índice passado não se encontra no intervalo" IF gnretorno_acbr=-14 THEN texto+=" Indica que houve um erro ao gerar o xml." texto+=ACBR_ULTIMO_RETORNO() RESULT texto END // https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html // https://acbr.sourceforge.io/ACBrLib/NFE_CarregarXML.html // https://acbr.sourceforge.io/ACBrLib/NFE_GravarXml.html // Comando: NFE_GravarXml( aIndex, [eNomeArquivo], [ePathArquivo] ); // Caso nao informar o nome do arquivo ou o path // a propria dll vai gravar no caminho certo ======================== // btn procura diretorio sDirectory is string sDirectory = fSelectDir("", "") edt_transmissao_diretorio=sDirectory ======================== // BTN NFE GRAVAR XML bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN IF EDT_INI="" THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARXML(EDT_XML) ELSE EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) END IF EDT_TRANMISSAO_RESPOSTA=0 THEN // é porque carregou o ini EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_GRAVARXML(0,edt_transmissao_nome_xml,edt_transmissao_diretorio) ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro ao carregar ini" END END ACBR_FINALIZAR() =======================

bom dia ======================= PROCEDURE ACBR_NFE_OBTERXML(nPosicao_nfe is int=0) gsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&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=-5 THEN texto+=" Indica que o arquivo passado não existe." IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP." IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar." IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada." texto+=ACBR_ULTIMO_RETORNO() RESULT texto END ======================= PROCEDURE ACBR_ULTIMO_RETORNO() gnTamanho is system int=256 gsResposta is string="" gnretorno_acbr=API("ACBrNFe32.DLL","NFE_UltimoRetorno",&gsResposta,&gnTamanho) sTEXTO_R is string="Retorno:"+gnretorno_acbr+"-"+gsResposta RESULT sTEXTO_R ======================= // BTN NFE OBTER XML bRETORNO is boolean=ACBR_INICIALIZAR() IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) IF EDT_TRANMISSAO_RESPOSTA=0 THEN // é porque carregou o ini EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_OBTERXML(0) ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro ao carregar ini" END END ACBR_FINALIZAR() ======================= Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 31 10 2019. Dica 2438. Método para retornar o xml da NFe. Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2438-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_ObterXml.html https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/