Como utilizar ACBRLib com xHarbour ou Harbour.

[Arlindo Oliveira Reis]

Bom tarde;

Como utilizar ACBRLib com xHarbour ou Harbour.

Exemplo:
oDll:Inutilizar(ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal, sResposta, esTamanho)

Obrigado;

[Renato Rubinho]

Boa tarde,

Veja como foram feitos os programas de exemplo para ter uma base.

https://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/

[Arlindo Oliveira Reis]

Obrigado pela ajuda;

Já estou conseguindo Emitir

O meu maior problema é em cancelar, inutilizar e outros;

Fiz assim e está dando erro;

    oDll:=ACBrNFe():New(".\dll\ACBrLib.ini")
    oDll:ConfigGravarValor("Principal", "LogNivel", "4")     
    oDll:ConfigGravarValor("Principal", "LogPath", ".\Temp" )
    oDll:ConfigGravarValor("NFe", "Visualizar", "0") // 1-Mostra as mensagens de retorno 0-Não mostra
    oDll:ConfigGravarValor("NFe", "Ambiente", xAmbient) // 0-producao 1-homologação
    oDll:ConfigGravarValor("DFe", "ArquivoPFX", xCert) 
    oDll:ConfigGravarValor("DFe", "Senha", xPass ) 
    
    lRet:=oDll:Inutilizar(ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal, sResposta, esTamanho)
    ?lRet
    ?sResposta
    
    oDll:=nil
 

Estou me baseando de como emiti a NFCe

 

Mais não deu;

 

[Arlindo Oliveira Reis]

AGORA FIZ ASSIM:

    oDll:=ACBrNFe():New(".\dll\ACBrLib.ini")
    oDll:LimparLista()
    oDll:LimparListaEventos()

    oDll:ConfigGravarValor("Principal", "LogNivel", "4")     
    oDll:ConfigGravarValor("Principal", "LogPath", ".\Temp" )
    oDll:ConfigGravarValor("NFe", "Visualizar", "0") // 1-Mostra as mensagens de retorno 0-Não mostra
    oDll:ConfigGravarValor("NFe", "Ambiente", "1") // 0-producao 1-homologação
    oDll:ConfigGravarValor("DFe", "ArquivoPFX", xCert) 
    oDll:ConfigGravarValor("DFe", "Senha", xPass ) 
    oDll:ConfigGravarValor("DFe", "NumeroSerie", "") // So preencher se for pegar serial de certificado A3
    oDll:ConfigGravarValor("DFe", "VerificarValidade", "1")
    oDll:ConfigGravarValor("DFe", "SSLCryptLib",       "3") // Default=1 -> 0=cryNone 1=cryOpenSSL "3=cryWinCrypt"
    oDll:ConfigGravarValor("DFe", "SSLHttpLib",        "2") // Default=3 -> 0=httpNone 1=httpWinINet "2=httpWinHttp" 3=httpOpenSSL
    oDll:ConfigGravarValor("DFe", "SSLXmlSignLib",     "4") // Defailt=4 -> 0=xsNone "4=xsLibXml2"
    oDll:ConfigGravarValor("DFe", "UF", "PA" )
    oDll:ConfigGravarValor("Emissor", "RazaoSocial",  xRzao)
    oDll:ConfigGravarValor("Emissor", "NomeFantasia", xFant)
    oDll:ConfigGravarValor("SoftwareHouse", "CNPJ",   "00491193000120")
    oDll:ConfigGravarValor("SoftwareHouse", "RazaoSocial",  "AR SISTEMAS R/S")
    oDll:ConfigGravarValor("SoftwareHouse", "NomeFantasia", "AR SISTEMAS R/S")
    oDll:ConfigGravarValor("SoftwareHouse", "WebSite",      "www.arsistemas.com.br")
    oDll:ConfigGravarValor("SoftwareHouse", "Email",        "[email protected]")
    oDll:ConfigGravarValor("SoftwareHouse", "Telefone",     "91984174044")
    oDll:ConfigGravarValor("SoftwareHouse", "Responsavel",  "Arlindo Reis")
    // Salvar o arquivo pra usar depois  [  ACBrLib.ini    ]
    oDll:ConfigGravar(".\dll\ACBrLib.ini")  // Vou gravar uma copia do xml de configuracao assim posso usar depois 
    
    lRet:=oDll:CarregarIni( cIniFile )
    lRet:=oDll:Cancelar()
    ?"Aqui::"+lRet
    
    oDll:=nil
 

[Renato Rubinho]

Está apresentando algum erro?

Qual a dúvida?

Não programo nessa linguagem para maiores detalhes sobre a programação em si, mas a respeito da lib, além dos exemplos, chegou a ver a documentação?

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

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

Talvez consiga mais ajuda também no discord.

https://discord.com/channels/798697718800318484/800042850959491072