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

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;

Bom tarde; Como utilizar ACBRLib com xHarbour ou Harbour. Exemplo: oDll:Inutilizar(ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal, sResposta, esTamanho) Obrigado;