sexta-feira, 22 de novembro de 2019

Ao vivo 2494 - 22/11/2019 08:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T

DICAS 2493 WINDEV WEBDEV MOBILE ACBR 173 ACBR LIB CTE Consultar


















Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 22 11 2019.
Dica 2493. Método usado para consultar um CTe na SEFAZ

DICAS 2493 - WINDEV WEBDEV MOBILE - ACBR 173 - ACBR LIB - CTE_Consultar




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

PROCEDURE ACBR_CONSULTAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
                         sRECEBE_XML_OU_CHAVE is string="")

//sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="",sRECEBE_XML_OU_CHAVE IS STRING="")
gsResposta is string on 256
gnTamanho is system int=256
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,sRECEBE_XML_OU_CHAVE,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_retorno,gnTamanho,gsResposta))
ELSE
texto is string="Erro Retorno - "+gnretorno_acbr
IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"
IF gnretorno_acbr=-5 THEN texto+=" Indica que o arquivo passado não existe."
IF gnretorno_acbr=-7 THEN texto+=" Indica erro na comunicação HTTP."
IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao consultar."
IF gnretorno_acbr=-12 THEN texto+=" Indica falha na validação da chave passada."
texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,sRecebe_nome_retorno)
RESULT texto
END

========================
// btn CTE  CONSULTAR

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN

sConsulta_xml is string=""
IF EDT_CONSULTA_eChave="" THEN
sConsulta_xml=EDT_consulta_Arquivo_xml
ELSE
sConsulta_xml=EDT_CONSULTA_eChave
END

EDT_CONSULTA_RESPOSTA=ACBR_CONSULTAR("ACBrCTe32.DLL","CTE_Consultar","CTE_UltimoRetorno",sConsulta_xml)


END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")


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















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





























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

















Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 21 11 2019.
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")

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














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





























Teste

Teste
teste