Amarildo de Matos

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() =======================

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

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

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

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

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

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

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

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

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

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

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

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