terça-feira, 19 de novembro de 2019

DICAS 2486 WINDEV WEBDEV MOBILE ACBR 170 ACBR LIB Fazendo Modificacoes R...


















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















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





























Ao vivo 2485 - 18/11/2019 14:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Ao vivo 2484 - 18/11/2019 05:30 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Teste

Teste
teste