Windev21 Aulas,Estudos e Desenvolvimento: DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar

===================================================
PROCEDURE ACBR_MDFE_enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True,bRecebe_sincrono is boolean=True)
gsResposta is string on 256
gnTamanho is system int=256

gnretorno_acbr=API("ACBrMDFe32.DLL","MDFE_Enviar",nRecebe_lote, bRecebe_imprimir,bRecebe_sincrono,&gsResposta,&gnTamanho)

IF gnretorno_acbr=0 THEN

RESULT(VER_RETORNO_MAIOR_256("ACBrMDFe32.DLL","MDFE_UltimoRetorno",gnTamanho,gsResposta))

ELSE
texto is string="MDFE_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("ACBrMDFe32.DLL","MDFE_UltimoRetorno")

texto+=CR+"----------------"
texto+=CR+"nome dll[ACBrMDFe32.DLL]"
texto+=CR+"nome metodo[MDFE_Enviar]"
texto+=CR+"nome Ultimo Retorno[MDFE_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"

==================================================
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
============================================
//BTN ASSINAR VALIDAR XML TRANSMITIR MDFE
bRETORNO is boolean=ACBR_INICIALIZAR("ACBrMDFe32.dll","MDFE_Inicializar")
IF bRETORNO=True THEN
EDT_RESPOSTA=ACBR_LIMPA_LISTA("ACBrMDFe32.dll","MDFE_LimparLista")
EDT_RESPOSTA=ACBR_CARREGARINI("ACBrMDFe32.dll","MDFE_CarregarINI",EDT_INI)
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_Assinar("ACBrMDFe32.dll","MDFE_Assinar","MDFE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_Validar("ACBrMDFe32.dll","MDFE_Validar","MDFE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN

EDT_RESPOSTA=ACBR_MDFE_enviar(EDT_MDFE_Enviar_LOTE,INT_MDFE_Enviar_imprimir,INT_MDFE_Enviar_Sincrono)
Info("Enviou"+CR+EDT_RESPOSTA)
ELSE
EDT_RESPOSTA+=CR+"ERRO VALIDAR"
END
ELSE
EDT_RESPOSTA+=CR+"ERRO ASSINAR"
END
ELSE
EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrMDFe32.dll","MDFE_Finalizar")
======================================

Páginas

sexta-feira, 6 de dezembro de 2019

DICAS 2534 WINDEV WEBDEV MOBILE ACBR 185 MDFE Enviar

Nenhum comentário:

Postar um comentário

Teste