AcbrLib - Integrando com Windev

[Amarildo de Matos]

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

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