AcbrLib - Integrando Dll Cte com Windev

[Amarildo de Matos]

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

 

 

 

[Amarildo de Matos]

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

 

 

[Amarildo de Matos]

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

 

 

[Amarildo de Matos]

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
 

 

[Amarildo de Matos]

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.

 

 

 

[Amarildo de Matos]

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

 

 

[Amarildo de Matos]

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/?

 

 

[Amarildo de Matos]

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/?

 

 

[Amarildo de Matos]

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
 

 

 

[Amarildo de Matos]

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
 

 

 

 

[Amarildo de Matos]

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.
 

 

 

 

[Amarildo de Matos]

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