Amarildo de Matos

25 Novembro, 2019

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.

23 Novembro, 2019

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

22 Novembro, 2019

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

21 Novembro, 2019

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

20 Novembro, 2019

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

20 Novembro, 2019

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

19 Novembro, 2019

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.

17 Novembro, 2019

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

16 Novembro, 2019

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

16 Novembro, 2019

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

15 Novembro, 2019

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

13 Novembro, 2019

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.

12 Novembro, 2019

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

11 Novembro, 2019

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

10 Novembro, 2019

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

9 Novembro, 2019

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

8 Novembro, 2019

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

7 Novembro, 2019

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

6 Novembro, 2019

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

5 Novembro, 2019

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

========================

4 Novembro, 2019

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/

3 Novembro, 2019

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")

========================

2 Novembro, 2019

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

1 Novembro, 2019

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

=======================

31 Outubro, 2019

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/

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Amarildo de Matos

Sobre nós...

Informação Importante