quinta-feira, 21 de novembro de 2019
Ao vivo 2492 - 21/11/2019 20:45 - Amarildo Desenvolvimento Diversos
TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Ao vivo 2492 - 21/11/2019 20:00 - Amarildo Desenvolvimento Diversos
TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Ao vivo 2489 - 20/11/2019 20:00 - Amarildo Desenvolvimento Diversos
TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
DICAS 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
Dica 2490. Método usado para enviar um lote de CTe para SEFAZ.
DICAS 2490 - WINDEV WEBDEV MOBILE - ACBR 172 - ACBR LIB - CTE_Enviar
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.
========================
PROCEDURE ACBR_CTE_Enviar(nRecebe_lote is int=0,bRecebe_imprimir is boolean=True)
GsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API("ACBrCTe32.DLL","CTE_Enviar",nRecebe_lote,bRecebe_imprimir,&GsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256("ACBrCTe32.DLL","CTE_UltimoRetorno",gnTamanho,GsResposta))
ELSE
texto is string="CTE_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("ACBrCTe32.DLL","CTE_UltimoRetorno")
texto+=CR+"----------------"
texto+=CR+"nome dll[ACBrCTe32.DLL]"
texto+=CR+"nome metodo[CTE_Enviar]"
texto+=CR+"nome Ultimo Retorno[CTE_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"
========================
// btn CTE TRANSMITIR XML
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","CTE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_Validar("ACBrCTe32.DLL","CTE_Validar","CTE_UltimoRetorno")
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA=ACBR_CTE_Enviar(EDT_CTE_Enviar_LOTE,INT_CTE_Enviar_imprimir)
ELSE
EDT_RESPOSTA+=CR+"erro VALIDAR"
END
ELSE
EDT_RESPOSTA+=CR+"erro aSSINAR"
END
ELSE
EDT_RESPOSTA+=CR+"erro 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 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
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 2490 WINDEV WEBDEV MOBILE ACBR 172 ACBR LIB CTE Enviar
DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar
============================
Ao vivo 2491 - 21/11/2019 06:30 - Amarildo Desenvolvimento Diversos
TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Assinar:
Postagens (Atom)