Ademir P. Voigt

Boa Tarde! Ao importar um XML da versão 2.0 não está sendo possível pegar a a Data da emissão e Data da saída... aparece em ambos 30/12/1899. Se importar um XML da versão 3.1 não tem problema algum. Fiz os testes inclusive no demo. No link abaixo encontrei informações a respeito, mas não consegui resolver. Faço da seguinte forma: MyTbXMLCorpoemissao.AsDateTime := Ide.dEmi; MyTbXMLCorpodata_ent_sai.AsDateTime := Ide.dSaiEnt; Pelo que sei, não preciso informar ao ACBR a versão, pois o mesmo pega do próprio XML. Alguma sugestão?

ACBRDevice deve ser declarada. Vou testar no cliente novamente.

Somente isso daqui: ACBrECF1.ArquivoMFD_DLL(DataInicial, DataFinal, Caminho); Como eu insiro Documentos e Finalidade? Assim não compila: ArquivoMFD_DLL(DataInicial, DataFinal, Caminho, [docTodos], finTDM); Devo declarar alguma Unit específica na clausula Uses?

Fiz os testes e continua saindo MFD. Será que é problema da Elgin? Alguém tem alguma ideia?

Gerei um executavel e vou no cliente testar. Retorno o resultado aqui.

Bom dia! Uso o seguinte comando para gerar o ato cotepe: ACBrECF1.PafMF_MFD_Cotepe1704(DataInicial, DataFinal, Caminho); Porem, o validador do Nota Gaucha acusa erro : E01EL051300000000018800 ECF-IF ELGIN K 01.00.05 2008100108000500110436132000114MFD000389000415201503012015033101.05.21AC1704 01.00.00 Esse MFD, deveria ser TDM. Pelo menos nas impressoras bematech é assim que ocorre e valida corretamente pelo sistema do Nota Gaúcha.

Nesse caso, o meu cliente recebeu um xml com problemas. Entrei no sefaz e baixei o correto com o certificado do cliente. Fiz os testes e está tudo correto.

Vou fazer o seguinte: Irei baixar do site do sefaz um novo xml, pq pode ser que o que foi enviado seja algo que o cliente ainda não tinha validado ou caiso do tipo. Posto o resultado aqui. Obrigado por enquanto.

Bem lembrado Ricardo, mas veja na imagem que também não constam as informações no grupo ProcNFe. Será que é problema no XML? Alguem pode testar isso para ver se terá o mesmo resultado do que eu estou tendo? Fiz uma consulta com a chave 4215 0401 7367 0400 0190 5500 1000 0013 4119 5537 5933, e a mesma consta autorizada no sefaz

Uso o ABCR NFe sim. Vou lhe mandar tela de um XML versão 3.10 e depois 2.0. Observe no GroupBox Dados na NFe que tem informações faltando. Segue também XML para avaliar. Agora, Versão 2.0 com campos preenchidos: Link para XML v3.10

Boa Tarde! Pessoal, estou importando um NFe gerada na versão 3.10, mas percebi que alguns campos não estão sendo lidos. Chave, protocolo, data e hora de saída etc. Devo mudar algo no meu sistema para atender a nova versão? Na versão 2.0 está importando normalmente esses campos. Dedo identificar a versão antes da importação? Tem algum link para estudar o caso? MyTbXMLCorpochave.AsString := procNFe.chNFe; MyTbXMLCorpodigitoverif.AsString := IntToStr(Ide.cDV); MyTbXMLCorpodatahorasefaz.AsDateTime := procNFe.dhRecbto; MyTbXMLCorpoprotocolo.AsString := procNFe.nProt;

O problema está nesse cara aqui: RefNFP.modelo. O ACBR espera uma string, mas o campo na verdade é integer. 4=NF de Produtor; 1=NF (v2.0) E no teste coloquei escrito uma string. Para resolver, criei um radiogroup e tudo certo.

Em modo debug, somente quando tiver nf de produto referenciada, está dando esse erro nessa linha: ACBrNFe1.Enviar(vNumLote, True); Esse erro de conversão para booleano se refere ao True dessa linha. Quando não tiver nf de produtor referenciada não trava o debug nessa linha.

Regys, o erro é na nf referenciada... se eu comentar o trecho, da pra emitir sem problemas. O XML está recebendo os dados, e eu não estou convertendo nada: O que for String está vindo como string O que for Integer está vindo como integer. BANCO DE DADOS MYSQL: `RefNFPcUF` int(11) DEFAULT NULL COMMENT 'ref nota fiscal de produtor', `RefNFPAAMM` varchar(5) DEFAULT NULL, `RefNFPCNPJCPF` varchar(20) DEFAULT NULL, `RefNFPIE` varchar(20) DEFAULT NULL, `RefNFPmodelo` varchar(20) DEFAULT NULL, `RefNFPserie` int(11) DEFAULT NULL, `RefNFPnNF` int(11) DEFAULT NULL, DELPHI: if MyQrNFeRefNFPnNF.AsInteger > 0 then begin with Ide.NFref.Add do begin RefNFP.cUF := MyQrNFeRefNFPcUF.AsInteger; // | RefNFP.AAMM := MyQrNFeRefNFPAAMM.AsString; // | RefNFP.CNPJCPF := MyQrNFeRefNFPCNPJCPF.AsString; // | RefNFP.IE := MyQrNFeRefNFPIE.AsString; // |- NF produtor Rural RefNFP.modelo := MyQrNFeRefNFPmodelo.AsString; // | RefNFP.serie := MyQrNFeRefNFPserie.AsInteger; // | RefNFP.nNF := MyQrNFeRefNFPnNF.AsInteger; // | end; end; XML: - <NFref>- <refNFP> <cUF>43</cUF> <AAMM>1503</AAMM> <CPF>93982186072</CPF> <IE>0330020595</IE> <mod>15</mod> <serie>1</serie> <nNF>25</nNF> </refNFP> </NFref>

Bom dia! Estou de mãos atadas. Será esse o primeiro caso que eu posto q vai ficar sem solução no forum? Alguém poderia referenciar uma nota de produtor e tentar simular o erro?

Coloquei um showmessage após cada uma das linhas, porem, não ocorre erro nenhum dentro do bloco: with Ide.NFref.Add do begin end; Somente após. Se comentar toda a instrução a NFe emite sem problemas.

Bom dia! Caso alguém puder me ajudar fico grato. Ainda não consegui resolver a situação.

Boa Tarde! Implementei a parte de referenciar NF de produtor Rural no nosso sistema, porem, quando emito a NFe recebo o erro abaixo. Se comentar o código a nota sai sem problemas. Código Delphi: if MyQrNFeRefNFPnNF.AsInteger > 0 then begin with Ide.NFref.Add do begin RefNFP.cUF := MyQrNFeRefNFPcUF.AsInteger; // | RefNFP.AAMM := MyQrNFeRefNFPAAMM.AsString; // | RefNFP.CNPJCPF := MyQrNFeRefNFPCNPJCPF.AsString; // | RefNFP.IE := MyQrNFeRefNFPIE.AsString; // |- NF produtor Rural RefNFP.modelo := MyQrNFeRefNFPmodelo.AsString; // | RefNFP.serie := MyQrNFeRefNFPserie.AsInteger; // | RefNFP.nNF := MyQrNFeRefNFPnNF.AsInteger; // | end; end; XML: - <NFref> - <refNFP> <cUF>43</cUF> <AAMM>1503</AAMM> <CPF>93982186072</CPF> <IE>0330020595</IE> <mod>15</mod> <serie>1</serie> <nNF>25</nNF> </refNFP> </NFref> No XML aparentemente está ok.

ja testei sim. Coloquei o filtro no forma e eliminei a analise que pega a condicional do arquivo .inc. //{$IFDEF QReport_PDF} // QRPDFFilt, // {$ENDIF}} Deixei somente QRPDFFilt... sem o {$IFDEF QReport_PDF} e deu certo. Porem, nao terei as atualizações do acbr... Ou sempre terei de abrir o .pas e alterar a linha antes de lançar nova versão.

Veja parte do arquivo ACBR.inc // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ {$DEFINE QReport_PDF} Abri o arquivo ACBrNFeDANFeQRNFCeA4 e comentei as linhas abaixo e após coloquei o componente QRPDFFilter no form. Mas acredito não ser viável, tendo em vista, que, não terei as atualizações do componente nas proximas versões do acbr. //{$IFDEF QReport_PDF} // QRPDFFilt, // {$ENDIF}} Até ter um resposta usarei dessa forma. Aguardo comentários ou alguma solução.

Quick report. Quando uso ele não gera PDF.

Acabei de instalar o componente ACBrNFeDANFEQR1 para emitir NCFe em formulario A4. A emissão e impressão estão corretas, porem, não obedece nenhum comando dos usados pela NFe ou se usar NFCe pelo ACBrNFeDANFCeFortes. Comandos que me refiro: Enviar email, gerar PDF. Já verifiquei e está descomentada a linha: {$DEFINE QReport_PDF} no arquivo ACBr.inc da pasta ACBrComum e meu QR é versão 5.05.1. O que devo fazer?

Existe sim, porem, o QR que eu tenho instalado não possui esse QR5RunXE.BPL E .DCP, e sim QR5RunNBDEDXE2. O que eu fiz: abri o pacote, C:\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeQRpkg.dpk e substituí a linha QR5RunXE por QR5RunNBDEDXE2.

Estou tentando instalar o Pacote ACBrNFeDanfeQRpkg, porem, recebo um erro conforme log. "C:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeQRpkg.dpk(86) Fatal: E2202 Required package 'QR5RunDXE2' not found Compilation failure" Já executei o .bat em todas as unidades. Já tenho alguns relatórios em nosso sistema desenvolvidos QR versão 5.05.1. Quero instalar esse componente para usar a versão A4 da NFCe, pois usando a Dande do fortes sempre tenho a QR Code na segunda pagina.

Bom dia! Quando começamos a desenvolver a NFCe, pensamos em fazer isso dentro do mesmo ambiente da NFe. Acredito que foi a melhor escolha, tendo em vista que nosso cliente poderá usar as duas formas de emissão sem ter que assimilar uma nova tela. Apenas separamos alguns parâmetros. Lá no inicio, lembro que eu consultava a NFCe, e caso o codstatus fosse = 100 e procedia com o cancelamento. Nesse momento, caso recebesse o codstatus = 135 eu seguia com o processo de postar os dados no banco de dados, pois o cancelamento teria sido homologado com sucesso. Isso pq na época não conseguia consultar pelo comando ACBrNFe1.WebServices.Consulta.cStat e sim ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat. Na época tive essas informações aqui no forum, e naquele momento ou quem sabe hj ainda estão corretas. Porem, pude perceber que nas ultimas consultas, se buscar ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat eu recebo 135 e se buscar ACBrNFe1.WebServices.Consulta.cStat eu recebo 101; Isso mudou mesmo, ou estava equivocado? Quero saber se realmente eu poderia ter usado ACBrNFe1.WebServices.Consulta.cStat desde o inicio, ou o ambiente do sefaz mudou isso de algum tempo pra cá.