jorge andrade

Amigo, No meu ínfimo conhecimento, vc está excedendo nos comandos. Se vc já tem o acbrlib.ini pronto não precisa repartir este comandos: 19/01/26 16:38:12:162 - TLibNFeConfig.AplicarConfiguracoes: .\emissor\parametros\ACBrLib.Ini ** só faz uma vez na criação do acbrlib.ini ** 19/01/26 16:38:12:162 - Travar 19/01/26 16:38:12:169 - TLibNFeConfig.AplicarConfiguracoes - Feito ** só faz uma vez na criação do acbrlib.ini ** 19/01/26 16:38:12:186 - Destravar 19/01/26 16:38:12:186 - TLibNFeConfig.Ler - Feito ** só faz uma vez na criação do acbrlib.ini ** 19/01/26 16:38:12:204 - Destravar Apenas 19/01/26 16:38:12:224 - ACBrLibNFE - 1.4.7.417 - Windows/x86 - ST STDCALL ** iniciar a lib / dll se não foi iniciado antes e depois os demais comandos ** 19/01/26 16:38:12:211 - TACBrLibNFe.Inicializar - Feito 19/01/26 16:38:12:217 - LIB_Inicializar( .\emissor\parametros\ACBrLib.Ini, ) ** iniciar acbrlib.ini, ao menos esta é a ordem correta ** 19/01/26 16:38:12:233 - NFE_CarregarXML(.\emissor\nfce117918.xml ) 19/01/26 16:38:12:233 - Travar 19/01/26 16:38:12:249 - SetRetorno(0, 1 NFe(s) Carregada(s)) 19/01/26 16:38:12:249 - Destravar 19/01/26 16:38:12:249 - NFE_Consultar(.\emissor\nfce117918.xml, True ) 19/01/26 16:38:12:265 - Travar 19/01/26 16:38:12:424 - Destravar 19/01/26 16:38:12:424 - SetRetorno(-10, Access violation) 19/01/26 16:38:14:928 - TACBrLib.Destroy 19/01/26 16:38:14:928 - Finalizar []s,

Juliamar, boa tarde Obrigado pela resposta. No monitor não ocorre esta erro, que por sinal é a mesmo procedimento, então, deve ser mesmo o schema, embora não achei o problema, vou continuar a verificar onde está a diferança. []s,

Juliomar, boa tarde. Fui assinante anual do Acbr muitos anos e participei dos eventos dia Acbr muitas vezes, sou grato ao Acbr, mas infelizmente, tudo que tinha de assinatura diferenciadas como, mensal, trimestral, semestral acabou e isso tornou-se oneroso a assinatura anual/pro. Me desculpe, mas, o valor ficou difícil, além do mais, as opções parcelada com juros ficaram é impraticável. Hoje muitas compras com cartão não há juro, mas o Acbr optou por uma venda com juro. Seria mais prudente e interessante que, sua resposta fosse pra ajudar dirimir a dúvida e não apenas a defender a pessoa criticou o excesso de postagem, pois o fiz , pq não tinha resposta em dos do meios que postei, embora obtive resposta em outro grupo e a solução postei aqui. Agradeço pela resposta []s,

Pessoal, boa tarde. Embora tenha postado no DISCORD e não obtive resposta, porém, somente após ter postado aqui, obtive resposta, mas com reclamação sobre ter postado o mesmo assunto em ambiente diferentes, neste caso, estou fazendo o mesmo, caso alguém tenha passado por isso no LIB. No monitor o cancelamento ocorre normalmente, mas na ACBRLIB dá este erro, será schema? Falha na validação da Mensagem do Evento: Erro: Schema inválido --> 3004 - element decl. '{http://www.portalfiscal.inf.br/nfe}cOrgao', attribute 'type': The QName value '{http://www.portalfiscal.inf.br/nfe}TCOrgaoIBGE' does not resolve to a(n) type definition.[LF] -> Falha na validação da Mensagem do Evento: Erro: Schema inválido --> 3004 - element decl. '{http://www.portalfiscal.inf.br/nfe}cOrgao', attribute 'type': The QName value '{http://www.portalfiscal.inf.br/nfe}TCOrgaoIBGE' does not resolve to a(n) type definition.[LF] []s,

Devido a reclamação de várias postagem, msg excluida. []s,

Boa tarde pessoal. Sei que já teve uma postagem sobre o assunto, mas não consegui achar resposta nele, alguém pode ajudar? Falha na validacao dos dados da nota: 9617 -> 1871 - Element '{http://www.portalfiscal.inf.br/nfe%7DvIBS': This element is not expected. Expected is ( {http://www.portalfiscal.inf.br/nfe%7DgCBS ). <IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>32.62</vBC> //total de bc ibs+cbs do produto <gIBSUF> <pIBSUF>0.1000</pIBSUF> <vIBSUF>0.03</vIBSUF> //valor calculado ibs do produto </gIBSUF> <gIBSMun> <pIBSMun>0.0000</pIBSMun> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>0.03</vIBS> //valor total calculado ibs/cbs do produto <gCBS> <pCBS>0.9000</pCBS> <vCBS>0.29</vCBS> //valor calculado cbs do produto </gCBS> </gIBSCBS> </IBSCBS> </imposto> <vItem>32.62</vItem> </det> <IBSCBSTot> <vBCIBSCBS>32.62</vBCIBSCBS> //total geral do bc ibs+cbs <gIBS> <gIBSUF> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSUF>0.03</vIBSUF> //valor total calculado do ibs </gIBSUF> <gIBSMun> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSMun>0.00</vIBSMun> ////valor total calculado do mun </gIBSMun> <vIBS>0.03</vIBS> //valor total calculado do ibs+mun <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gIBS> <gCBS> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vCBS>0.29</vCBS> //valor total calculado do cbs <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gCBS> </IBSCBSTot> <vNFTot>32.62</vNFTot> //valor total da nfe </total> qual deles não é esperados vibs ou gcbs? È no total do produto ou no total gerar? [],

Boa tarde galera. Como eu pra previa, mas não tinha certeza, mas, talvez alguns já tinha o conhecimento, obtive uma resposta de alguém de confiança no assunto, o Marco Polo, mas fico grato ao Rochinha por ter dado ênfase ao assunto, embora, ainda aguardo uma resposta pra finalizar a dúvida. Resposta:

Boa tarde amigos, Embora tenho postado estes assuntos com frequência, para ajudar os amigos, normalmente no fórum fivewin, porém, não me envolvi totalmente no assunto, apenas criando envolvidos, por dúvidas. Sabemos que as empresas que estão nos regimes CRT=1, CRT=2 e CRT-4, terão início só em 2027 (Conforme eu li. Desculpe se estou enganado), então, podemos levar em consideração que as Tags serão utilizadas conforme o regime, por operação, ou seja, por mercadorias e serviços? Serão são utilizadas pra todas, ou algumas somente pra CRT=3 (Lucro real e presumidos). Por favor, se alguém puder ajudar ou ter uma resposta confiável, com base tributária, agradeço. </dest> <det nItem="1"> *** Todas Crt´s ou específica *** <IS> <CSTIS>000</CSTIS> <cClassTribIS>000001</cClassTribIS> <vBCIS>2000.00</vBCIS> <pIS>5.00</pIS> <pISEspec>0.00</pISEspec> <uTrib>UN</uTrib> <qTrib>0.00</qTrib> <vIS>100.00</vIS> </IS> *** Todas Crt´s ou específica *** <IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>2000.00</vBC> <gIBSUF> <pIBSUF>14.00</pIBSUF> <vIBSUF>280.00</vIBSUF> </gIBSUF> <gIBSMun> <pIBSMun>2.00</pIBSMun> <vIBSMun>40.00</vIBSMun> </gIBSMun> <gCBS> <pCBS>8.00</pCBS> <vCBS>160.00</vCBS> </gCBS> </gIBSCBS> </IBSCBS> </imposto> </det>

Juliomar, obrigado por responder. A mesma configuração é, usado no microsoft outlook. []s,

Srs. Boa tarde Alguém está com problemas no envio de email do terra? Os dados foram testados pelo webmail com sucesso e seguindo os dados informados pelo site do terra, tais como porta, smtp, senha de email, usuário, email e etc... dá o seguinte erro. mail: Enviando dados. SMTP Error: Unable to send Mail data. 550 5.7.1 message rejected for policy reasons - TODD601 - 04c8d1ab-183fc4c4b1746dd1 []s,

Pessoa, boa tarde. Isso é problema do site ou da minha internet, embora estou com acesso a tudo. Obrigado []s,

Boiei nessa amigo. Acho que não vi isso. Obrigado.

Pessoal Boa tarde No Monitor tenho como determinar esta opção, na Lib tem? Onde fica? Obrigado

Sim amigo, então, não há opção de outra pasta, pq fica baseada onde está a LIB/DLL. Pensei que tivesse outra alternativa. Obrigado []s,

Pessoal Boa tarde Andei fazendo algumas alterações, fique com algumas dúvidas. 1 - Arquivo de log da LIB, posso configurar e determinar o nome? 2 - Pode ser gravado em um pasta escolhida, ou somente se onde encontra o INI e/ou DLL? []s,

Ah! Obrigado amigo, existe muitas diferenças nas informações entre o arquivo gerado para monitor e pra Lib.

Obrigado amigo, mas infelizmente no manual, o qual eu recorro a tudo e sigo fielmente, não tem a resposta que preciso e nem exemplo. []s,

neste caso, o que pode ser? Tem algum modelo pra LIB? Posso gerar e enviar em xml? Tem exemplo? Obrigado Mandei um INI e deu este erro: Falha na validação da Mensagem do Evento: 1824 - Element '{http://www.portalfiscal.inf.br/nfe}tpEvento': '-99999' is not a valid value of the local atomic type

Uma dúvida. O INI que eu faço pro monitor pra fazer uma CCE é igual a LIB? no monitor faço assim? NFE.CARTADECORRECAO("[CCE] idLote=152 [EVENTO001] chNFe=35240912345678901234550010000059291000640490 cOrgao=35 CNPJ=12345678901234 dhEvento=25/09/2024 13:53:21 nSeqEvento=01 xCorrecao=CONSIDERAR: 0=Contratacao do Frete por conta do Remetente (CIF)") e o xml que gero que dá certo

Sr(a)s. Boa tarde Não sei se este seria o canal correto, e se alguém já se manifestou sobre o assunto, mas, venho através deste, manifestar meus sentimentos a família pelo passamento do Rubinho que, no âmbito profissional ajudou muito os parceiros Elgin, promovendo e participando de eventos, além de disponibilizar ferramentas, equipamentos e estruturas Elgin. Que deus conforte a família e os seus colegas. []s,

Fiz os teste que vc postou acima com sucesso: xLib := LibLoad( "ACBrNFe32.dll" ) xRetorno := DllCall( xLib , DLL_OSAPI , "NFE_Inicializar" , xACBrLib , xSenha )

O amigo Brizolla, me enviou por email o seu projeto não vou disponibilizar, pq é algo particular dele, porém, se ele achar conveniente anexar aqui como contribuição, acredito que, muitos irão agradecer, pois irá contribuir e quem sabe, até desafogar um pouco as perguntas ao Sac, além da contribuição de outros com ideias e ajustes. []s,

Como O Rafael afirmou e eu te falei e off, vc deve usar 0 ou 1. Tente simular conforme o monitor que te serve como procedimento, onde vc pode definir antecipadamente tudo o que vc define nele. A facilidade das DLL's é que vc pode dinamicamente orientar os seus processos, independente do que supostamente vc tenha configurado no monitor e lembre que é gerado o INI (ACBrLib.ini) da LIB com as configurações, o qual vc pode carregar. Se vc enviar assim nfe:Imprimir(,,,1,,,), vc terá o preview para escolher a impressora, ou defina-a corretamente com o nome capturado do windows pela sua aplicação . []s,

Obrigado pela informação Juliana. Postei de forma aberta, pq em alguns fóruns não permitem UP-LOAD.

Pessoal boa tarde Diante da dificuldades de alguns, inclusive a minha e com a ajuda do Rafael Dias, estou disponibilizando algumas informações(Corrijam o que for necessário), que podem ajudar aos colegas e por sua vez, devem criar uma avalanche de informações para outros e que possamos fortalecer o projeto e possamos divulgar ainda mais o projeto e a adesão aos usuários SAC. Ao contrário de alguns, que apenas participam daqui com suas dúvidas e depois somem com as suas soluções, eu não faço isso, aliás, sinto-me feliz e privilegiado em poder ajudar com o meu ínfimo conhecimento, porém, feliz e satisfeito com os poucos passos no entendimento do projeto. Espero que estas informações sirvam para alguns e que estas elucidem dúvidas iniciais em relação as DLL's, sendo cada delas em suas particularidades. Ciente de que a classe e o demo (Vide link) estão a disposição no SVN http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/NFe/ , anda assim, informo aqui, para facilitar aos colegas. Mais uma vez me dirijo aos que solicitei que postassem as suas soluções e os que fazem uso do fórum para expor suas soluções de forma comercial sem nenhum retorno ao mesmo. Me desculpem, mas é uma realidade de alguns aqui. []s, //------------------------------ACBRDEMO---------------------------------. Function Main () local nfe local vendaRetorno, strIniVenda local hIni, hIniVenda LOCAL cSection LOCAL hIniData nfe := ACBrNFe():New("", "") // Sessão Chave Valor nfe := ACBrNFe():New("", "") nfe:ConfigGravarValor("Principal", "LogNivel", "4") // logParanoico nfe:ConfigGravarValor("Principal", "LogPath", "C:\WINDOWS\TEMP" ) nfe:ConfigGravarValor("NFE", "FormaEmissao", "0") nfe:ConfigGravarValor("NFE", "SalvarGer", "1") nfe:ConfigGravarValor("NFE", "ExibirErroSchema", "1") nfe:ConfigGravarValor("NFE", "RetirarAcentos", "1") nfe:ConfigGravarValor("NFE", "RetirarEspacos", "1") nfe:ConfigGravarValor("NFE", "IdentarXML", "1") nfe:ConfigGravarValor("NFE", "ValidarDigest", "0") nfe:ConfigGravarValor("NFE", "IdCSC", "000001") nfe:ConfigGravarValor("NFE", "CSC", "92052b84-e609-436c-8c27-a3922e509922") nfe:ConfigGravarValor("NFE", "ModeloDF", "0") //nfe //nfe:ConfigGravarValor("NFE", "ModeloDF", "1") //nfce nfe:ConfigGravarValor("NFE", "VersaoDF", "3") //versao 4.00 nfe:ConfigGravarValor("NFE", "AtualizarXMLCancelado", "1") nfe:ConfigGravarValor("NFE", "VersaoQRCode", "2") nfe:ConfigGravarValor("NFE", "CamposFatObrigatorios", "1") //adiiconar tag nfe:ConfigGravarValor("NFE", "TagNT2018005", "1") //0 nunca 1 producao 2 somente homologacao 3 sempre nfe:ConfigGravarValor("NFE", "Ambiente", "0") //0 producao 1 homologação nfe:ConfigGravarValor("NFE", "SalvarWS", "1") nfe:ConfigGravarValor("NFE", "Timeout", "5000") nfe:ConfigGravarValor("NFE", "TimeoutPorThread", "0") nfe:ConfigGravarValor("NFE", "Visualizar", "1") //sim nfe:ConfigGravarValor("NFE", "AjustaAguardaConsultaRet", "1") //sim nfe:ConfigGravarValor("NFE", "AguardarConsultaRet", "0") nfe:ConfigGravarValor("NFE", "IntervaloTentativas", "1000") nfe:ConfigGravarValor("NFE", "Tentativas", "5") nfe:ConfigGravarValor("NFE", "SSLType", "0") //LT_all nfe:ConfigGravarValor("NFE", "PathSalvar", "C:\WINDOWS\TEMP") nfe:ConfigGravarValor("NFE", "PathSchemas", "C:\ACBrMonitorPLUS\Schemas") nfe:ConfigGravarValor("NFE", "IniServicos", "C:\ACBrMonitorPLUS\INIS") nfe:ConfigGravarValor("NFE", "SalvarArq", "1") //ARQUIVOS DE EVENTOS nfe:ConfigGravarValor("NFE", "AdicionarLiteral", "0") nfe:ConfigGravarValor("NFE", "SepararPorCNPJ", "0") nfe:ConfigGravarValor("NFE", "SepararPorModelo", "0") nfe:ConfigGravarValor("NFE", "SepararPorAno", "0") nfe:ConfigGravarValor("NFE", "SepararPorMes", "0") nfe:ConfigGravarValor("NFE", "SepararPorDia", "0") nfe:ConfigGravarValor("NFE", "SalvarEvento", "1") nfe:ConfigGravarValor("NFE", "SalvarApenasNFeProcessadas", "1") nfe:ConfigGravarValor("NFE", "EmissaoPathNFe", "0") //por data de emissão nfe:ConfigGravarValor("NFE", "NormatizarMunicipios", "1") nfe:ConfigGravarValor("NFE", "PathNFe", "c:\windows\temp") nfe:ConfigGravarValor("NFE", "PathInu", "c:\windows\temp") nfe:ConfigGravarValor("NFE", "PathEvento", "c:\windows\temp") nfe:ConfigGravarValor("NFE", "PathArquivoMunicipios", "C:\ACBrMonitorPLUS\MunIBGE") nfe:ConfigGravarValor("NFE", "Download.PathDownload", "c:\windows\temp") nfe:ConfigGravarValor("NFE", "Download.SepararPorNome", "0") nfe:ConfigGravarValor("NFE", "IdCSRT", "") nfe:ConfigGravarValor("NFE", "CSRT", "") nfe:ConfigGravarValor("DANFE", "PathPDF", "c:\windows\temp") nfe:ConfigGravarValor("DANFE", "UsaSeparadorPathPDF", "0") nfe:ConfigGravarValor("DANFE", "Impressora", "") nfe:ConfigGravarValor("DANFE", "NomeDocumento", "") nfe:ConfigGravarValor("DANFE", "MostraSetup", "1") nfe:ConfigGravarValor("DANFE", "MostraPreview", "1") nfe:ConfigGravarValor("DANFE", "MostraStatus", "1") nfe:ConfigGravarValor("DANFE", "Copias", "") nfe:ConfigGravarValor("DANFE", "PathLogo", "c:\windows\temp") nfe:ConfigGravarValor("DANFE", "MargemInferior", "0,10") nfe:ConfigGravarValor("DANFE", "MargemSuperior", "0,00") nfe:ConfigGravarValor("DANFE", "MargemEsquerda", "0,00") nfe:ConfigGravarValor("DANFE", "MargemDireita", "0,00") nfe:ConfigGravarValor("DANFE", "ExpandeLogoMarca", "0") //0 e expande ou nao //nfe:ConfigGravarValor("DANFE", "CasasDecimais.Formato", "0,00") //nfe:ConfigGravarValor("DANFE", "CasasDecimais.MaskqCom", "0,00") //nfe:ConfigGravarValor("DANFE", "CasasDecimais.MaskvUnCom", "0,00") //nfe:ConfigGravarValor("DANFE", "CasasDecimais.qCom", "0,00") //nfe:ConfigGravarValor("DANFE", "CasasDecimais.vUnCom", "0,00") //nfe:ConfigGravarValor("DANFE", "TipoDANFE", "1") //nfe:ConfigGravarValor("DANFE", "ImprimeTotalLiquido", "") nfe:ConfigGravarValor("DFe", "ArquivoPFX", "W:\SERV\CERTIFICADO\CLIENTES\ANDERSON\RUBINO\ArquivoPFX.pfx") ///nfe:ConfigGravarValor("DFe", "DadosPFX", "") ///nfe:ConfigGravarValor("DFe", "NumeroSerie", "") nfe:ConfigGravarValor("DFe", "Senha", "XXXPASSWORD DO CERTIFICADOXXX") ///nfe:ConfigGravarValor("DFe", "FK", "") nfe:ConfigGravarValor("DFe", "VerificarValidade", "1") nfe:ConfigGravarValor("DFe", "SSLCryptLib", "1") nfe:ConfigGravarValor("DFe", "SSLHttpLib", "3") nfe:ConfigGravarValor("DFe", "SSLXmlSignLib", "4") nfe:ConfigGravarValor("DFe", "UF", "SP") nfe:ConfigGravarValor("DFe", "TimeZone.Modo", "0") nfe:ConfigGravarValor("DFe", "TimeZone.Str", "") // Salvando configurações CLEAR SCREEN ?nfe:ConfigGravar("") ?nfe:Nome ?nfe:Versao ?x1 := nfe:StatusServico //() INKEY(0) nfe := nil INKEY(0) return NIL //------------------------------CLASSE ACBRNFE---------------------------------. #include "hbclass.ch" #include "error.ch" #define DC_CALL_CDECL 0x0010 // __cdecl #define DC_CALL_STD 0x0020 // __stdcall #ifdef __XHARBOUR__ #define ACBrLIB "ACBrNFe32.dll" #define DLL_OSAPI DC_CALL_STD #else #if defined( __PLATFORM__WINDOWS ) #define ACBrLIB "ACBrNFe32.dll" #define DLL_OSAPI DC_CALL_STD #else #define ACBrLIB "libacbrnfe64.so" #define DLL_OSAPI DC_CALL_CDECL #endif #endif #define STR_LEN 256 CREATE CLASS ACBrNFe HIDDEN: VAR hHandle METHOD CheckResult(hResult) METHOD ProcessResult(buffer, bufferLen) VISIBLE: METHOD New(eArqConfig, eChaveCrypt) CONSTRUCTOR DESTRUCTOR Destroy METHOD Nome METHOD Versao METHOD ConfigLer(eArqConfig) METHOD ConfigGravar(eArqConfig) METHOD ConfigLerValor(eSessao, eChave) METHOD ConfigGravarValor(eSessao, eChave, eValor) METHOD CarregarXML(eArquivoOuXml) METHOD CarregarINI(eArquivoOuIni) METHOD ObterXml(AIndex) METHOD GravarXml(AIndex, eNomeArquivo, ePathArquivo) METHOD CarregarEventoXML(eArquivoOuXml) METHOD CarregarEventoINI(eArquivoOuIni) METHOD LimparLista() METHOD LimparListaEventos() METHOD Assinar() METHOD Validar() METHOD ValidarRegrasdeNegocios() METHOD VerificarAssinatura() METHOD GerarChave(ACodigoUF, ACodigoNumerico, AModelo, ASerie, ANumero, ATpEmi, AEmissao, ACNPJCPF) METHOD StatusServico() METHOD Consultar(eChaveOuNFe) METHOD Inutilizar(ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal) METHOD Enviar(ALote, Imprimir, Sincrono, Zipado) METHOD ConsultarRecibo(ARecibo) METHOD Cancelar(eChave, eJustificativa, eCNPJ, ALote) METHOD EnviarEvento(ALote) METHOD DistribuicaoDFePorUltNSU(acUFAutor, eCNPJCPF, eultNSU) METHOD DistribuicaoDFePorNSU(acUFAutor, eCNPJCPF, eNSU) METHOD DistribuicaoDFePorChave(acUFAutor, eCNPJCPF, echNFe) METHOD EnviarEmail(ePara, eChaveNFe, aEnviaPDF, eAssunto, eMensagem, eCc, eAnexos) METHOD EnviarEmailEvento(ePara, eChaveEvento, eChaveNFe, aEnviaPDF, eAssunto, eMensagem, eCc, eAnexos) METHOD Imprimir(cImpressora, nNumCopias, cProtocolo, bMostrarPreview, cMarcaDagua, bViaConsumidor, bSimplificado) METHOD ImprimirPDF() METHOD ImprimirEvento(eArquivoXmlNFe, eArquivoXmlEvento) METHOD ImprimirEventoPDF(eArquivoXmlNFe, eArquivoXmlEvento) METHOD ImprimirInutilizacao(eArquivoXml) METHOD ImprimirInutilizacaoPDF(eArquivoXml) END CLASS METHOD New(eArqConfig, eChaveCrypt) CLASS ACBrNFe local hResult, buffer, bufferLen, oErr eArqConfig :=if(eArqConfig = nil, '', eArqConfig) eChaveCrypt:=if(eChaveCrypt = nil, '', eChaveCrypt) ::hHandle := DllLoad(ACBrLIB) if ::hHandle = nil oErr := ErrorNew() oErr:Severity := ES_ERROR oErr:Description := "Erro a carregar a dll [" + ACBrLIB + "]" Throw(oErr) endif hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Inicializar", hb_StrToUTF8(eArqConfig), hb_StrToUTF8(eChaveCrypt)) ::CheckResult(hResult) RETURN Self PROCEDURE Destroy CLASS ACBrNFe DllCall(::hHandle, DLL_OSAPI, "NFE_Finalizar") DllUnload(::hHandle) RETURN METHOD CheckResult(hResult) CLASS ACBrNFe local buffer, bufferLen, oErr if hResult >= 0 RETURN nil endif bufferLen := STR_LEN buffer := Space(bufferLen) DllCall(::hHandle, DLL_OSAPI, "NFE_UltimoRetorno", @buffer, @bufferLen) if bufferLen > STR_LEN buffer := Space(bufferLen) DllCall(::hHandle, DLL_OSAPI, "NFE_UltimoRetorno", @buffer, @bufferLen) endif oErr := ErrorNew() oErr:Severity := ES_ERROR oErr:Description := hb_UTF8ToStr(buffer) Throw(oErr) RETURN nil METHOD ProcessResult(buffer, bufferLen) CLASS ACBrNFe if bufferLen > STR_LEN buffer := Space(bufferLen) DllCall(::hHandle, DLL_OSAPI, "NFE_UltimoRetorno", @buffer, @bufferLen) endif RETURN buffer METHOD Nome CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Nome", @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD Versao CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Versao", @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD ConfigLer(eArqConfig) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConfigLer", hb_StrToUTF8(eArqConfig)) ::CheckResult(hResult) RETURN nil METHOD ConfigGravar(eArqConfig) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConfigGravar", hb_StrToUTF8(eArqConfig)) ::CheckResult(hResult) RETURN nil METHOD ConfigLerValor(eSessao, eChave) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConfigLerValor", hb_StrToUTF8(eSessao), hb_StrToUTF8(eChave), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD ConfigGravarValor(eSessao, eChave, eValor) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConfigGravarValor", hb_StrToUTF8(eSessao), hb_StrToUTF8(eChave), hb_StrToUTF8(eValor)) ::CheckResult(hResult) RETURN nil METHOD CarregarXML(eArquivoOuXml) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_CarregarXML", hb_StrToUTF8(eArquivoOuXml)) ::CheckResult(hResult) RETURN nil METHOD CarregarINI(eArquivoOuIni) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_CarregarINI", hb_StrToUTF8(eArquivoOuIni)) ::CheckResult(hResult) RETURN nil METHOD ObterXml(AIndex) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ObterXml", AIndex, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD GravarXml(AIndex, eNomeArquivo, ePathArquivo) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_GravarXml", AIndex, hb_StrToUTF8(eNomeArquivo), hb_StrToUTF8(ePathArquivo)) ::CheckResult(hResult) RETURN nil METHOD CarregarEventoXML(eArquivoOuXml) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_CarregarEventoXML", hb_StrToUTF8(eArquivoOuXml)) ::CheckResult(hResult) RETURN nil METHOD CarregarEventoINI(eArquivoOuIni) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_CarregarEventoINI", hb_StrToUTF8(eArquivoOuIni)) ::CheckResult(hResult) RETURN nil METHOD LimparLista() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_LimparLista") ::CheckResult(hResult) RETURN nil METHOD LimparListaEventos() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_LimparListaEventos") ::CheckResult(hResult) RETURN nil METHOD Assinar() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Assinar") ::CheckResult(hResult) RETURN nil METHOD Validar() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Validar") ::CheckResult(hResult) RETURN nil METHOD ValidarRegrasdeNegocios() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ValidarRegrasdeNegocios") ::CheckResult(hResult) RETURN nil METHOD VerificarAssinatura() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_VerificarAssinatura") ::CheckResult(hResult) RETURN nil METHOD GerarChave(ACodigoUF, ACodigoNumerico, AModelo, ASerie, ANumero, ATpEmi, AEmissao, ACNPJCPF) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_GerarChave", ACodigoUF, ACodigoNumerico, AModelo, ASerie, ANumero, ATpEmi, AEmissao, ACNPJCPF, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD StatusServico() CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_StatusServico", @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD Consultar(eChaveOuNFe) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Consultar", hb_StrToUTF8(eChaveOuNFe), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD Inutilizar(ACNPJ, AJustificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Inutilizar", hb_StrToUTF8(ACNPJ), hb_StrToUTF8(AJustificativa), Ano, Modelo, Serie, NumeroInicial, NumeroFinal, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD Enviar(ALote, Imprimir, Sincrono, Zipado) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Enviar", ALote, Imprimir, Sincrono, Zipado, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD ConsultarRecibo(ARecibo) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ConsultarRecibo", hb_StrToUTF8(ARecibo), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD Cancelar(eChave, eJustificativa, eCNPJ, ALote) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Cancelar", hb_StrToUTF8(eChave), hb_StrToUTF8(eJustificativa), hb_StrToUTF8(eCNPJ), ALote, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD EnviarEvento(ALote) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_EnviarEvento", ALote, @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD DistribuicaoDFePorUltNSU(acUFAutor, eCNPJCPF, eultNSU) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_DistribuicaoDFePorUltNSU", hb_StrToUTF8(acUFAutor), hb_StrToUTF8(eCNPJCPF), hb_StrToUTF8(eultNSU), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD DistribuicaoDFePorNSU(acUFAutor, eCNPJCPF, eNSU) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_DistribuicaoDFePorNSU", hb_StrToUTF8(acUFAutor), hb_StrToUTF8(eCNPJCPF), hb_StrToUTF8(eNSU), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD DistribuicaoDFePorChave(acUFAutor, eCNPJCPF, echNFe) CLASS ACBrNFe local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_DistribuicaoDFePorChave", hb_StrToUTF8(acUFAutor), hb_StrToUTF8(eCNPJCPF), hb_StrToUTF8(echNFe), @buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) METHOD EnviarEmail(ePara, eChaveNFe, aEnviaPDF, eAssunto, eMensagem, eCc, eAnexos) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_EnviarEmail", hb_StrToUTF8(ePara), hb_StrToUTF8(eChaveNFe), aEnviaPDF, hb_StrToUTF8(eAssunto), hb_StrToUTF8(eMensagem), hb_StrToUTF8(eCc), hb_StrToUTF8(eAnexos)) ::CheckResult(hResult) RETURN nil METHOD EnviarEmailEvento(ePara, eChaveEvento, eChaveNFe, aEnviaPDF, eAssunto, eMensagem, eCc, eAnexos) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_EnviarEmailEvento", hb_StrToUTF8(ePara), hb_StrToUTF8(eChaveEvento), hb_StrToUTF8(eChaveNFe), aEnviaPDF, hb_StrToUTF8(eAssunto), hb_StrToUTF8(eMensagem), hb_StrToUTF8(eCc), hb_StrToUTF8(eAnexos)) ::CheckResult(hResult) RETURN nil METHOD Imprimir(cImpressora, nNumCopias, cProtocolo, bMostrarPreview, cMarcaDagua, bViaConsumidor, bSimplificado) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_Imprimir", hb_StrToUTF8(cImpressora), nNumCopias, hb_StrToUTF8(bMostrarPreview), hb_StrToUTF8(cMarcaDagua), hb_StrToUTF8(bViaConsumidor), hb_StrToUTF8(bSimplificado)) ::CheckResult(hResult) RETURN nil METHOD ImprimirPDF() CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ImprimirPDF") ::CheckResult(hResult) RETURN nil METHOD ImprimirEvento(eArquivoXmlNFe, eArquivoXmlEvento) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ImprimirEvento", hb_StrToUTF8(eArquivoXmlNFe), hb_StrToUTF8(eArquivoXmlEvento)) ::CheckResult(hResult) RETURN nil METHOD ImprimirEventoPDF(eArquivoXmlNFe, eArquivoXmlEvento) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ImprimirEventoPDF", hb_StrToUTF8(eArquivoXmlNFe), hb_StrToUTF8(eArquivoXmlEvento)) ::CheckResult(hResult) RETURN nil METHOD ImprimirInutilizacao(eArquivoXml) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ImprimirInutilizacao", hb_StrToUTF8(eArquivoXml)) ::CheckResult(hResult) RETURN nil METHOD ImprimirInutilizacaoPDF(eArquivoXml) CLASS ACBrNFe local hResult hResult := DllCall(::hHandle, DLL_OSAPI, "NFE_ImprimirInutilizacaoPDF", hb_StrToUTF8(eArquivoXml)) ::CheckResult(hResult) RETURN nil //---------------------------------------------EOF----------------------------------------