Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 19 11 2019.
Dica 2486. Fazendo Modificacoes na Rotina acbr. Muito Importante.
DICAS 2486 - WINDEV WEBDEV MOBILE - ACBR 170 - ACBR LIB - Fazendo Modificacoes Rotinas
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
* AcbrLib - Integrando com Windev
* AcbrLib - Integrando Boleto com Windev
* AcbrLib - Integrando Cte com Windev
https://web.flock.com/?
========================
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")
========================
DICAS 2477 WINDEV WEBDEV MOBILE ACBR 167 ACBR LIB CTE CarregarXML
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml
DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar
DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R..
DICAS 2488 WINDEV WEBDEV MOBILE ACBR 171 ACBR LIB CTE Validar
============================