Ir para conteúdo
  • Cadastre-se

dev botao

AcbrLib - Integrando Dll Cte com Windev


Amarildo de Matos
  • Este tópico foi criado há 1584 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

bom dia


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

// btn_inicializar_finalizar

bResposta is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar")

IF bResposta=True THEN
    
    // COMANDOS
    
END

ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")

// https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html
// https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html


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

//https://acbr.sourceforge.io/ACBrLib/NFE_Finalizar.html
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Finalizar")
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

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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2473-windev-webdev-mobile-acbr.html

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

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

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 14 11 2019.
Dica 2473. Inicio ACBrCTe32 AcbrLib dll com Windev.

DICAS 2473 - WINDEV WEBDEV MOBILE - ACBR 164 - ACBR LIB - 
Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg
* AcbrLib - Integrando com Windev


 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa noite


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

PROCEDURE ACBR_CARREGARINI(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
                               sRECEBER_ARQUIVO_OU_INI is string="")
                               
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_CarregarINI",StringToUTF8(sRECEBER_ARQUIVO_OU_INI))
gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_ARQUIVO_OU_INI))

IF gnretorno_acbr=0 THEN
    // 0 Carregou com Sucesso
    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 Carregar o arquivo INI"
    RESULT texto
END
//https://acbr.sourceforge.io/ACBrLib/NFE_CarregarINI.html
//Comando: NFE_ CarregarINI( eArquivoOuINI );

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

// btn cte carregar ini

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+=CR+"Ini Cte Carregando com Sucesso"
    END
ELSE
    EDT_RESPOSTA="erro inicializar"    
END

ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")

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


https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2476-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/CTE_CarregarINI.html
https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html


Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 15 11 2019.
Dica 2476. Método usado para ler o arquivo INI para o componente ACBrCTe.

DICAS 2476 - WINDEV WEBDEV MOBILE - ACBR 166 - ACBR LIB - CTE_CarregarINI


Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg
* AcbrLib - Integrando com Windev


 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa tarde

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

PROCEDURE ACBR_CARREGARXML(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="", ...
                           sRecebe_arquivo_ou_xml is string="")

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRecebe_arquivo_ou_xml))
IF gnretorno_acbr=0 THEN
    // 0 = Carregou Xml com Sucesso
    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 ler o arquivo XML"
    
    RESULT texto    
END

// NFE_ CarregarXML( eArquivoOuXML );
// gnretorno_acbr=api("ACBrNFe32.DLL","NFE_CarregarXML",StringToUTF8(sRecebe_arquivo_ou_xml))

========================
// BTN CTE CARREGAR XML

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN
    EDT_RESPOSTA=ACBR_CARREGARXML("ACBrCTe32.DLL","CTE_CarregarXML",EDT_XML)
    IF EDT_RESPOSTA=0 THEN
        EDT_RESPOSTA="XML CARREGADO COM SUCESSO"
    ELSE
        EDT_RESPOSTA="ERRO CARREGAR XML"    
    END
    // IMPORTANTE SALIENTAR SE NAO FOR INFORMADO NOME DO XML E DIRETORIO, ELE MESMO CRIA SOZINHO
END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")


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


https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2477-windev-webdev-mobile-acbr.html

Boa tarde, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 16 11 2019.
Dica 2477. Método usado para ler o arquivo XML para o componente ACBrCTe.

DICAS 2477 - WINDEV WEBDEV MOBILE - ACBR 167 - ACBR LIB - CTE_CarregarXML

https://acbr.sourceforge.io/ACBrLib/CTE_CarregarXML.html
https://acbr.sourceforge.io/ACBrLib/CTE_CarregarINI.html
https://acbr.sourceforge.io/ACBrLib/CTE_Inicializar.html
https://acbr.sourceforge.io/ACBrLib/CTE_Finalizar.html

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg
* AcbrLib - Integrando com Windev

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa tarde

========================
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")


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


https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2477-windev-webdev-mobile-acbr_17.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
 

 

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa noite

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

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")

========================
https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2482-windev-webdev-mobile-acbr.html

https://acbr.sourceforge.io/ACBrLib/CTE_Assinar.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

Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.

 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa noite

========================
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

========================
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  ASSINAR xml eCTE
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"+EDT_RESPOSTA)    
        END
    ELSE    
        Info("ERRO AO CARREGAR INI")
    END
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")
========================
https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2486-windev-webdev-mobile-acbr.html

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa noite

========================
PROCEDURE ACBR_Validar(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",recebe_ultimo_Retorno is string="")


gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo)
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Validar")


IF gnretorno_acbr=0 THEN
    // 0 = VALIDOU COM SUCESSO
    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 Validar"
    
    //texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
    texto+=CR+ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno)
   
    RESULT texto
    
END
//https://acbr.sourceforge.io/ACBrLib/NFE_Validar.html
// NFE_Validar;    

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

//gnretorno_acbr=api("ACBrNFe32.DLL","NFE_Assinar")
//EDT_RESPOSTA=ACBR_Assinar("ACBrCTe32.dll","CTE_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"
    
    // aula 19 11 2019
    texto+=ACBR_ULTIMO_RETORNO(sRecebe_nome_dll,recebe_ultimo_Retorno)
    
    //"CTE_UltimoRetorno")
   
    RESULT texto
END


//https://acbr.sourceforge.io/ACBrLib/NFE_Assinar.html
//Comando: NFE_ Assinar

========================
// btn  ASSINAR xml eCTE
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
            
            //AULA 20 11 2019
            EDT_RESPOSTA=ACBR_Validar("ACBrCTe32.dll","CTE_Validar","CTE_UltimoRetorno")
            IF EDT_RESPOSTA=0 THEN
                EDT_RESPOSTA+=CR+"ASSINADO E VALIDADO COM SUCESSO"    
            ELSE
                Info("ERRO AO VALIDAR:"+CR+EDT_RESPOSTA)
                    
            END            
            //AULA 20 11 2019
        ELSE
            Info("erro ao assinar"+EDT_RESPOSTA)    
        END
    ELSE    
        Info("ERRO AO CARREGAR INI")
    END
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")
========================
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
========================
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"

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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2488-windev-webdev-mobile-acbr.html

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

 


Compartilhe Canal Youtube Amarildo Matos
Amarildo, desde 1990 ensinando Desenvolvimento de Sistemas, tornando
sonhos em realidades.


https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg
* AcbrLib - Integrando com Windev

 


https://web.flock.com/?

 

 

2019-11-20_2006.png

2019-11-20_2008.png

2019-11-20_2010.png

2019-11-20_2011.png

2019-11-20_2013.png

2019-11-20_2015.png

inicio - Copia - Copia.png

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa tarde

========================
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")

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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2490-windev-webdev-mobile-acbr.html

 

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

 

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.


https://www.projetoacbr.com.br/forum/files/category/36-acbrlib/
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Boleto/ACBrBoleto.prg
* AcbrLib - Integrando com Windev


https://web.flock.com/?

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

bom dia


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")

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

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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2493-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/CTE_Consultar.html
 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

boa noite

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

PROCEDURE ACBR_CANCELAR(sRecebe_nome_dll is string="",sRecebe_nome_metodo is string="",sRecebe_nome_retorno is string="", ...
                            sRECEBER_eChave is string="",sRECEBER_eJustificativa is string="", ... 
                            sRECEBER_eCNPJ is string="",nRECEBER_ALote is int=0)                            
GsResposta is string on 256
GsResposta_maior_256 is string=""
gnTamanho is system int=256

gnretorno_acbr=API(sRecebe_nome_dll,sRecebe_nome_metodo,StringToUTF8(sRECEBER_eChave), ...
                             StringToUTF8(sRECEBER_eJustificativa),
                             StringToUTF8(sRECEBER_eCNPJ),nRECEBER_ALote,
                             &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=-7 THEN texto+=" Indica erro na comunicação HTTP"
    IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao NFE Cancelar"
    
    // texto+=CR+ACBR_ULTIMO_RETORNO("ACBrNFe32.DLL","NFE_UltimoRetorno")
    
    RESULT texto
END
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_Cancelar",StringToUTF8(sRECEBER_eChave), ...
//    RESULT(VER_RETORNO_MAIOR_256("ACBrNFe32.DLL","NFE_UltimoRetorno",gnTamanho,GsResposta))

//https://acbr.sourceforge.io/ACBrLib/NFE_Cancelar.html
//Comando:NFE_ Cancelar( eChave, eJustificativa, eCNPJ, ALote, sResposta, esTamanho );


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

// BTN_CTE_CANCELAR NOTA

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.DLL","CTE_Inicializar")
IF bRETORNO=True THEN
    EDT_RESPOSTA=ACBR_CANCELAR("ACBrCTe32.DLL","CTE_Cancelar","CTE_UltimoRetorno", ...
    EDT_cancelar_eChave,EDT_cancelar_Justificativa, ... 
    EDT_cancelar_cnpj_emitente,EDT_cancelar_numero_lote)
    
END
ACBR_FINALIZAR("ACBrCTe32.DLL","CTE_Finalizar")
========================
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"

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

Boa Noite, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 23 11 2019.
Dica 2497. Método usado para Cancelar um CTe na SEFAZ.

DICAS 2497 - WINDEV WEBDEV MOBILE - ACBR 174 - ACBR LIB - CTE_Cancelar

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2497-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/CTE_Cancelar.html
 

 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

bom dia

========================
PROCEDURE ACBR_ImprimirPDF(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("Imprimiu com Sucesso")
ELSE
    texto is string=sRecebe_nome_dll+" "+sRecebe_nome_metodo+"Erro Retorno - "+gnretorno_acbr+CR
    IF gnretorno_acbr=-1 THEN texto+=" Indica que a biblioteca não foi inicializada"+CR
    IF gnretorno_acbr=-10 THEN texto+=" Indica que houve erro ao gerar o PDF do DANFe."+CR
    RESULT texto
END
//// acbr_nfe_imprimirPdf
//gnretorno_acbr=API("ACBrNFe32.DLL","NFE_ImprimirPDF")
=======================
// BTN IMPRIMIR_DACTE 

bRETORNO is boolean=ACBR_INICIALIZAR("ACBrCTe32.dll","CTE_Inicializar")
IF bRETORNO=True THEN
    EDT_RESPOSTA+=CR+ACBR_CARREGARXML("ACBrCTe32.dll","CTE_CarregarXML",EDT_XML)
    
    EDT_RESPOSTA+=CR+ACBR_ImprimirPDF("ACBrCTe32.dll","CTE_ImprimirPDF")
    
    ShellExecute("C:\ERPMATOS\xml_acbr\PDF\"+EDT_CHAVE_CTE+"-CTE.PDF")
ELSE
    EDT_RESPOSTA="erro inicializar"    
END
ACBR_FINALIZAR("ACBrCTe32.dll","CTE_Finalizar")


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

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2499-windev-webdev-mobile-acbr.html
https://acbr.sourceforge.io/ACBrLib/CTE_ImprimirPDF.html

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 24 11 2019.
Dica 2499. Método usado para gerar o PDF do DACTE de um CTe carregado.
 

 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Moderadores

bom dia

Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 26 11 2019.
Dica 2505. Método usado para gerar o PDF do DACTE de um CTe carregado.

DICAS 2505 - WINDEV WEBDEV MOBILE - ACBR 176 - CTE_ImprimirPDF

https://windevdesenvolvimento.blogspot.com/2019/11/dicas-2505-windev-webdev-mobile-acbr.html

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


 

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1584 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.