quinta-feira, 28 de novembro de 2019

063 ERPMATOS TGSISTEMAS NFE MODELO 55 CST 60 CONSUMIDOR FINAL OBRIGATORI...



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

Ao vivo 2509 - 28/11/2019 11:00 - Amarildo Desenvolvimento Diversos Sem ...



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

DICAS 2508 WINDEV WEBDEV MOBILE ACBR 177 MDFe Inicializar E Finalizar






Doação Para Amarildo matos - https://streamelements.com/amyteste/tip














Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 28 11 2019.
Dica 2508. Método usado para inicializar e Finalizar Mdfe acbr lib.

DICAS 2508 - WINDEV WEBDEV MOBILE - ACBR 177 - MDFe_Inicializar e Finalizar




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

// BTN MDFE INICIALIZAR E FINALIZAR

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN

EDT_RESPOSTA="Inicializou"

ELSE
   EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
EDT_RESPOSTA+=CR+"Finalizou"

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

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),StringToUTF8(sChaveCrypt))
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="")
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


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



























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









Teste

Teste
teste