Amarildo de Matos

bom dia ================= // btn MDFE CONSULTAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_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_RESPOSTA=ACBR_CONSULTAR("ACBrMDFe32.DLL","MDFE_Consultar","MDFE_UltimoRetorno",CONSULTA_XML) END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ======================== 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 ======================================= Bom Dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 08 12 2019. Dica 2539. Método usado para consultar um MDFe na SEFAZ DICAS 2539 - WINDEV WEBDEV MOBILE - ACBR 187 - MDFE_Consultar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2539-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Consultar.html

bom dia ================================== // btn_Mdfe_cancelar_cancelar bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CANCELAR("ACBrMDFe32.DLL","MDFE_Cancelar","MDFE_UltimoRetorno", ... EDT_mdfe_cancelar_eChave,EDT_mdfe_cancelar_Justificativa, ... EDT_mdfe_cancelar_cnpj_emitente,EDT_mdfe_cancelar_numero_lote) ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ================================== 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 ); ======================================== 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" ===================================================== 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 ====================================================== Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 07 12 2019. Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Dica 2537. Método usado para Cancelar um MDFe na SEFAZ. DICAS 2537 - WINDEV WEBDEV MOBILE - ACBR 186 - MDFE_Cancelar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2537-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Cancelar.html

bom dia =================================================== PROCEDURE ACBR_MDFE_enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True,bRecebe_sincrono is boolean=True) gsResposta is string on 256 gnTamanho is system int=256 gnretorno_acbr=API("ACBrMDFe32.DLL","MDFE_Enviar",nRecebe_lote, bRecebe_imprimir,bRecebe_sincrono,&gsResposta,&gnTamanho) IF gnretorno_acbr=0 THEN RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta)) ELSE texto is string="MDFE_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("ACBrMDFe32.DLL","MDFE_UltimoRetorno") texto+=CR+"----------------" texto+=CR+"nome dll[ACBrMDFe32.DLL]" texto+=CR+"nome metodo[MDFE_Enviar]" texto+=CR+"nome Ultimo Retorno[MDFE_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" ================================================== 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 ============================================ //BTN ASSINAR VALIDAR XML TRANSMITIR MDFE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_LIMPA_LISTA("ACBrMDFe32.dll","MDFE_LimparLista") EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_MDFE_enviar(EDT_MDFE_Enviar_LOTE,INT_MDFE_Enviar_imprimir,INT_MDFE_Enviar_Sincrono) Info("Enviou"+CR+EDT_RESPOSTA) ELSE EDT_RESPOSTA+=CR+"ERRO VALIDAR" END ELSE EDT_RESPOSTA+=CR+"ERRO ASSINAR" END ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ====================================== Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 06 12 2019. Dica 2534.Método usado para enviar um lote de MDFe para SEFAZ. DICAS 2534 - WINDEV WEBDEV MOBILE - ACBR 185 - MDFE_Enviar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2534-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Enviar.html

bom dia ===================================== PROCEDURE acbr_LimparListaEventos(recebe_nome_dll is string="",recebe_nome_metodo is string="") gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo) IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso Info("LIMPOU CORRETAMENTE") RESULT "0" ELSE texto is string="Limpa Lista Eventos-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 limpar a lista Eventos."+CR texto+="Dll->"+recebe_nome_dll+CR texto+="Metodo->"+recebe_nome_metodo+CR Info("ERRO RETORNO LIMPA LISTA") RESULT texto END ======================================== // BTN_CARTA_ACBR_NFE_ENVIARVENTO //https://acbr.sourceforge.io/ACBrMonitor/ManifestacaodoDestinatarioCienci.html bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_carTA_RESPOSTA=acbr_LimparListaEventos("ACBrNFe32.dll","NFE_LimparListaEventos") EDT_carTA_RESPOSTA=ACBR_NFE_CarregarEventoINI(EDT_CARTA_CONTEUDO_INI) EDT_carTA_RESPOSTA+=CR+"ENVIAR EVENTO=>"+CR+ACBR_NFE_EnviarEvento(0) END ACBR_FINALIZAR("ACBrNFe32.DLL","NFE_Finalizar") ========================================= Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 05 12 2019. Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Dica 2531.Método usado para limpar a lista de eventos no componente ACBrMDFe. DICAS 2531 - WINDEV WEBDEV MOBILE - ACBR 184 - MDFE_LimparListaEventos Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2531-windev-webdev-mobile-acbr_5.html https://acbr.sourceforge.io/ACBrLib/MDFE_LimparListaEventos.html

bom dia Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2527-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_LimparLista.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 04 12 2019. Dica 2527. Método usado para limpar a lista de mdfe no componente ACBrMDFe. DICAS 2527 - WINDEV WEBDEV MOBILE - ACBR 183 - MDFE_LimparLista ================ PROCEDURE ACBR_LIMPA_LISTA(recebe_nome_dll is string="",recebe_nome_metodo is string="") gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo) IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso RESULT "0" ELSE texto is string="Limpa Lista-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 limpar a lista."+CR texto+="Dll->"+recebe_nome_dll+CR texto+="Metodo->"+recebe_nome_metodo+CR Info("ERRO RETORNO LIMPA LISTA") RESULT texto END ================== // btn NFE TRANSMITIR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrNFe32.DLL","NFE_Inicializar") IF bRETORNO=True THEN EDT_TRANMISSAO_RESPOSTA=ACBR_LIMPA_LISTA("ACBrNFe32.DLL","NFE_LimparLista") EDT_TRANMISSAO_RESPOSTA=ACBR_CARREGARINI("ACBrNFe32.DLL","NFE_CarregarINI",EDT_INI) IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_Assinar("ACBrNFe32.DLL","NFE_Assinar","NFE_UltimoRetorno") IF EDT_TRANMISSAO_RESPOSTA=0 THEN EDT_TRANMISSAO_RESPOSTA=ACBR_Validar("ACBrNFe32.DLL","NFE_Validar","NFE_UltimoRetorno") 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("ACBrNFe32.DLL","NFE_Finalizar") ================

bom dia ======================== ======================== // btn NFE ASSINAR VALIDAR XML MDFE bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"ASSINADO E VALIDADO COM SUCESSO" ELSE Info("ERRO AO VALIDAR MDFE"+CR+EDT_RESPOSTA) END ELSE Info("ERRO AO ASSINAR"+EDT_RESPOSTA) END ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") =============== 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(sRecebe_nome_dll,recebe_ultimo_Retorno) RESULT texto END //https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html // NFE_Validar; //texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno") ================ PROCEDURE ACBR_LIMPA_LISTA(recebe_nome_dll is string="",recebe_nome_metodo is string="") gnretorno_acbr=API(recebe_nome_dll,recebe_nome_metodo) IF gnretorno_acbr=0 THEN // 0 = Limpou a lista com sucesso RESULT "0" ELSE texto is string="Limpa Lista-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 limpar a lista."+CR texto+="Dll->"+recebe_nome_dll+CR texto+="Metodo->"+recebe_nome_metodo+CR Info("ERRO RETORNO LIMPA LISTA") RESULT texto END ================== https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2524-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 03 12 2019. Dica 2524. Método usado para validar os mdfe assinados através do componente ACBrMDFe. DICAS 2524 - WINDEV WEBDEV MOBILE - ACBR 182 - MDFE_Validar

bom dia ====================== // btn MDFE ASSINAR VALIDAR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno") IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"ASSINADO COM SUCESSO" END ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ================================= 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://windevdesenvolvimento.blogspot.com/2019/12/dicas-2522-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_Assinar.html Doaçao Amarildo Matos - Link da doação: https://streamelements.com/amarildo_matos/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 02 12 2019. Dica 2522. Método usado para assinar os Mdfe carregados no componente ACBrMDFe. DICAS 2522 - WINDEV WEBDEV MOBILE - ACBR 181 - MDFE_Assinar Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.

boa noite https://windevdesenvolvimento.blogspot.com/2019/12/dicas-2519-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_ObterXml.html Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 01 12 2019. Dica 2519. Método para retornar o xml do MDFe. DICAS 2519 - WINDEV WEBDEV MOBILE - ACBR 180 - MDFe_ObterXml Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades. =========================== // btn Mdfe obter xml bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN // carregou com sucesso EDT_RESPOSTA=ACBR_OBTERXML("ACBrMDFe32.dll","MDFE_ObterXml","MDFE_UltimoRetorno",0) ELSE EDT_RESPOSTA+=CR+"ERRO CARREGAR INI" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") =========================== 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="ObterXml-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 executar a função." +CR IF gnretorno_acbr=-13 THEN texto+=" Indica que o índice passado não se encontra no intervalo"+CR texto+="Dll:"+sRecebe_nome_dll+CR texto+="recebe_nome_metodo:"+sRecebe_nome_metodo+CR texto+="recebe_nome_ultimo_Retorno:"+sRecebe_nome_ultimo_Retorno+CR texto+="posicao_lista:"+nPosicao+CR texto+=ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno") 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" =========================== 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 ===========================

bom dia =========================== // BTN MDFE CARREGAR XML bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARXML("ACBrMDFe32.dll","MDFE_CarregarXML",EDT_XML) //Comando: MDFE_CarregarXML( eArquivoOuXML ); 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("ACBrMDFe32.dll","MDFE_Finalizar") =========================== 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 =========================== https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2515-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarXML.html Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 30 11 2019. Dica 2515. Método usado para ler o arquivo XML para o componente ACBrMDFe. DICAS 2515 - WINDEV WEBDEV MOBILE - ACBR 179 - MDFE_CarregarXML Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.

bom dia ======================== // btn MDFE carregar ini bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") // 1 IF bRETORNO=True THEN EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI) IF EDT_RESPOSTA=0 THEN EDT_RESPOSTA+=CR+"Ini Mdfe Carregando com Sucesso" END ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") ======================== 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 ================================ Doaçao Amarildo Matos - https://streamelements.com/amyteste/tip Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 29 11 2019. Dica 2511. Método usado para ler o arquivo INI para o componente ACBrMDFe. https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2511-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFE_CarregarINI.html Compartilhe Canal Youtube Amarildo Matos Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando sonhos em realidades.

bom dia ============= // BTN MDFE INICIALIZAR E FINALIZAR bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar") IF bRETORNO=True THEN EDT_RESPOSTA="Inicializou" ELSE EDT_RESPOSTA="erro inicializar" END ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar") EDT_RESPOSTA+=CR+"Finalizou" =============== 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),StringToUTF8(sChaveCrypt)) 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="") 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 ============= Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 28 11 2019. Dica 2508. Método usado para inicializar e Finalizar Mdfe acbr lib. DICAS 2508 - WINDEV WEBDEV MOBILE - ACBR 177 - MDFe_Inicializar e Finalizar https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2508-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/MDFe_Inicializar.html https://acbr.sourceforge.io/ACBrLib/MDFe_Finalizar.html

bom dia Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 26 11 2019. Dica 2505. Método usado para gerar o PDF do DACTE de um CTe carregado. DICAS 2505 - WINDEV WEBDEV MOBILE - ACBR 176 - CTE_ImprimirPDF https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2505-windev-webdev-mobile-acbr.html https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html

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/?