segunda-feira, 18 de novembro de 2019

DICAS 2482 WINDEV WEBDEV MOBILE ACBR 169 ACBR LIB CTE Assinar













ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html






Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 18 11 2019.
Dica 2482. Método usado para assinar os conhecimentos carregados no componente ACBrCTe.

DICAS 2482 - WINDEV WEBDEV MOBILE - ACBR 169 - ACBR LIB - CTE_Assinar


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

PROCEDURE ACBR_Assinar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="")

//gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar")
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)
IF gnretorno_acbr=0 THEN
//assinou com sucesso=0
RESULT("0")
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=-10 THEN texto+=" Indica que houve erro ao Assinar"
RESULT texto
END
=======================

// btn  ASSINAR 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")
IF EDT_RESPOSTA=0 THEN
EDT_RESPOSTA+=CR+"ASSINADO COM SUCESSO"
    ELSE
        Info("ERRO AO ASSINAR"+CR+EDT_RESPOSTA)
END
ELSE
Info("ERRO AO CARREGAR INI")
END
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")



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





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
























Postado por às Nenhum comentário:
Marcadores: ,

Ao vivo 2483 - 17/11/2019 15:00 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Postado por às Nenhum comentário:

Ao vivo 2481 - 17/11/2019 07:30 - Amarildo Desenvolvimento Diversos



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Postado por às Nenhum comentário:

domingo, 17 de novembro de 2019

DICAS 2479 WINDEV WEBDEV MOBILE ACBR 168 ACBR LIB CTE ObterXml







ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html



Dica 2479. Método para retornar o xml do CTe com Dll acbr Lib.

DICAS 2479 - WINDEV WEBDEV MOBILE - ACBR 168 - ACBR LIB - CTE_ObterXml

https://acbr.sourceforge.io/ACBrLib/CTE_ObterXml.html






========================
PROCEDURE ACBR_OBTERXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
                        sRecebe_nome_ultimo_Retorno is string="",nPosicao is int=0)
gsResposta is string on 256
sGsResposta_maior_256 is string=""
gnTamanho is system int=256
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ObterXml",nPosicao_nfe,&gsResposta,&gnTamanho)
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,nPosicao,&gsResposta,&gnTamanho)
IF gnretorno_acbr=0 THEN
RESULT(VER_RETORNO_MAIOR_256(sRecebe_nome_dll,sRecebe_nome_ultimo_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_ultimo_Retorno)
RESULT texto
END
// Método para retornar o xml da NFe.
// https://acbr.sourceforge.io/ACBrLib/NFE_ObterXml.html
// NFE_ObterXml( AIndex, sResposta, esTamanho  );
// AiNDEX = Posição da NFe na lista, À lista inicia em 0.


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

// btn cte obter 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 // carregou com sucesso
EDT_RESPOSTA=ACBR_OBTERXML("ACBrCTe32.DLL","CTE_ObterXml","CTE_UltimoRetorno",0)
ELSE
EDT_RESPOSTA+=CR+"ERRO CARREGAR INI"
END
ELSE
EDT_RESPOSTA="erro inicializar"
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")


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












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






















Postado por às Nenhum comentário:
Marcadores: ,

Ao vivo 2480 - 17/11/2019 14:30 - Amarildo Estudando



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Postado por às Nenhum comentário:

Ao vivo 2480 - 17/11/2019 14:30 - Amarildo Estudando



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Postado por às Nenhum comentário:

Ao vivo 2478 - 17/11/2019 08:00 - Amarildo Estudando - Sem Som



TESTE
TESTE
TESTE
TESSETET
SETSET
SETES
T
Postado por às Nenhum comentário:
Assinar: Postagens (Atom)

Teste

Teste
teste