Clipper On Line • Ver Tópico - Usando ACBRLib com harbour

Usando ACBRLib com harbour

Discussão sobre ferramentas de apoio à programação (Clipper/[x]Harbour)

Moderador: Moderadores

 

Usando ACBRLib com harbour

Mensagempor rubens » 03 Set 2020 14:46

Bom dia,
Um colega pediu ajuda para colocar para funcionar.
Resolvi postas aqui para ajudar outros colegas...
Quando baixa a lib do site... já em uma classe para usar... a classe é xharbour.
mas pode ser compilada tranquilamente pelo harbour... consegui compilar na versao Harbour 3.2.0dev (r1802131223).
Daí vou deixar um exemplo aqui de imprimir o danfe enviando um xml..
Na classe que vem de exemplo tem muita coisa pronta, mas eu sou meio ruinzinho de classe, fui testando os métodos(funções) conforme as minhas necessidades..
é muito jóia essa opção da dll. Para imprimir um danfe tinha que ter o acbrmonitor instalado... agora basta mandar a dll junto...

#define DC_CALL_STD 0x0020      // __stdcall
#define DLL_OSAPI DC_CALL_STD
#define STR_LEN 256
#define ACBrLIB "ACBrNFe32.dll"

Function main
    // Se mandar .f. - imprime o xml
    // Se mandar .t. - gera o pdf
    ImprimirPDFNfe( 'C:\ARQXML.XML', .F. )
    Return nil

FUNCTION ImprimirPDFNfe(cArq, lPdf) 
     Local cTexto    := ''
   Local cBufferlen
   Local hLib
   hLib       := DllLoad(ACBrLIB)
        iRet       := DllCall(hLib, DLL_OSAPI, "NFE_Inicializar", "", "")
   bufferLen:= STR_LEN
   cTexto    := Space(bufferLen)
   iRet       := DllCall(hLib, DLL_OSAPI, "NFE_CarregarXML", hb_StrToUTF8(cArq))
   If lPdf
      iRet       := DllCall(hLib, DLL_OSAPI, "NFE_ImprimirPDF")
   Else
      iRet      := DllCall(hLib, DLL_OSAPI,"NFE_Imprimir", hb_StrToUTF8(""), 1, hb_StrToUTF8(""), hb_StrToUTF8(""), hb_StrToUTF8(""), hb_StrToUTF8(''), hb_StrToUTF8(""))      
   EndIf
   iRet       := DllCall( hLib, DLL_OSAPI,"NFE_Finalizar")    
   hLib       := NIL
   RETURN nil

tem que ter as seguintes libs no path do executável:
Libs acbrlib.JPG

e as configurações de pastas, impressora etc são feitas no acbrlib.ini.
Para quem já trabalha com acbrmonitor, é bem parecido...

Vlw..

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1524
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 75 vezes
Mens.Curtidas: 100 vezes

Usando ACBRLib com harbour

Mensagempor lucimauro » 05 Set 2020 16:34

Muito bom, parabéns por compartilhar.
lucimauro
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 361
Data de registro: 21 Set 2004 21:02
Cidade/Estado: Sobral-CE
Curtiu: 1 vez
Mens.Curtidas: 7 vezes

Usando ACBRLib com harbour

Mensagempor JoséQuintas » 06 Set 2020 05:10

rubens escreveu:é muito jóia essa opção da dll. Para imprimir um danfe tinha que ter o acbrmonitor instalado... agora basta mandar a dll junto...


Pois é... e com a Sefazclass, nem DLL precisa, e nem arquivo de configuração, nem nada.
Nem mesmo o XML, basta uma variável com o conteúdo do XML.
NADA mesmo, nem a imagem do logotipo precisa existir em disco.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14703
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 867 vezes

Usando ACBRLib com harbour

Mensagempor JoséQuintas » 06 Set 2020 05:22

Curiosidade sobre as DLLs, pode acontecer em Harbour também:

libeay32.dll e ssleay32.dll, se não me engano tem a ver com openssl
msvcr120.dll, tem a ver com usar Microsoft Visual C pra compilar, talvez o run-time da versão 12.0

As demais não conheço, apenas numa suposição, pelo nome:
libiconv.dll - talvez pra converter icone, por usar ícone não compatível, ou não usar opção do Windows de redimensionamento
libxml2.dll - talvez opção open para equivalentes Microsoft que já vém no Windows
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14703
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 867 vezes




Retornar para Ferramentas de Apoio

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro