Amarildo de Matos

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/

bom dia Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 29 10 2019. Dica 2430. Método usado para enviar um lote de NFe para SEFAZ pela Dll Acbr Lib. Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. ======================= PROCEDURE ACBR_NFE_Enviar(nRecebe_lote is int=0, ... bRecebe_imprimir is boolean=True, ... bRecebe_sincrono is boolean=True, ... bRecebe_zipado is boolean=False) GsResposta is string on 256 GsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Enviar",nRecebe_lote , ... bRecebe_imprimir,bRecebe_sincrono,bRecebe_zipado, ... &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 Enviar Nfe" texto+=CR+"Ultimo Retorno NFE_Enviar=>"+ACBR_ULTIMO_RETORNO() RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Enviar.html //NFE_ Enviar( (ALote, Imprimir, Sincrono, Zipado, sResposta, esTamanho ); ======================= // btn NFE TRANSMITIR XML bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_CARREGARINI(EDT_INI) IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_Assinar() IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_Validar() IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_NFE_Enviar(EDT_NFE_Enviar_LOTE, ... INT_NFE_Enviar_imprimir,INT_NFE_Enviar_Sincrono,INT_NFE_Enviar_Zipado) Info(EDT_TRANMISSAO_RESPOSTA) ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro VALIDAR" END ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro aSSINAR" END ELSE EDT_TRANMISSAO_RESPOSTA+=CR+"erro carregar ini" END END ACBR_FINALIZAR() ======================= https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2430-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 https://acbr.sourceforge.io/ACBrLib/NFE_Enviar.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 30 10 2019. Dica 2434. Método usado para consultar um NFe na SEFAZ com dll acbr lib. Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/10/dicas-2434-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/NFE_Consultar.html https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/ ======================= // seleciona arquivo sFile is string // Opens the file picker sFile = fSelect("", "", "Seleciona Arquivo Ini", "All the files (*.*)" + TAB + "*.*" + CR + "ini" + TAB + "*.ini", "*.ini") EDT_consulta_Arquivo_xml=sFile ======================= PROCEDURE ACBR_NFE_CONSULTAR(sRECEBE_XML_OU_CHAVE is string="") gsResposta is string on 256 gsResposta_maior_256 is string="" gnTamanho is system int=256 gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Consultar",sRECEBE_XML_OU_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 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 //CHAVE COM PROBLEMAS.. SERA VERIFICADO //NFE_ Consultar( eChaveOuNFe, sResposta, esTamanho ); ======================= // btn NFE CONSULTAR bRetorno is boolean=ACBR_INICIALIZAR() IF bRetorno=True THEN CONSULTA_XML is string="" IF EDT_CONSULTA_eChave="" THEN CONSULTA_XML=EDT_consulta_Arquivo_xml ELSE CONSULTA_XML=EDT_CONSULTA_eChave END EDT_CONSULTA_RESPOSTA=ACBR_NFE_CONSULTAR(CONSULTA_XML) END ACBR_FINALIZAR() =======================