Endrigo Rodrigues

Olá pessoal. Seguinte, estou em Belo Horizonte/MG utilizando BHISS. Estou enviando um lote com 20 notas e estou recebendo o seguinte XML de retorno: <?xml version="1.0" encoding="UTF-8" ?> <ConsultarSituacaoLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <NumeroLote>936</NumeroLote> <Situacao>2</Situacao> </ConsultarSituacaoLoteRpsResposta> Mas pelo que vejo, por ter me retornado Situacao=2, deveria ter vindo também a chave ListaMensagemRetorno, mas não veio, e não tenho como saber o que está dando erro, deve ser o mesmo problema da Vanessa. Tem alguma coisa que posso fazer para ajudar a corrigir o problema?

Muito bom. Também estou no aguardo.

Obrigado Daniel.

Na linha 2431 deve ser feita a seguinte correção: DtHrStr := DtHrStr + ' ' + copy(LinhaVer, I-2, 8 ) ; O fonte atual está da seguinte forma: DtHrStr := ' ' + copy(LinhaVer, I-2, 8 ) ;

Problema resolvido com a nova atualização que saiu logo após. Muito obrigado.

Estou tendo problemas para reinstalar o ACBr em meu computador com a última versão que foi baixada hoje pelo tortoise. Utilizei o instalador e obtive erros no DANFE em Rave. Caminho: C:\ComponentesXE2\ACBr Versão do delphi: Delphi XE2 (1) Plataforma: Win32(0) ================================================================================ Setando parâmetros de plataforma... Setando parâmetros de plataforma... Criando diretórios de bibliotecas... Adicionando libray paths... ... Compiling package C:\ComponentesXE2\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRV.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "C:\ComponentesXE2\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRV.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -U"C:\ComponentesXE2\ACBr\Lib\Delphi\LibD16" -I"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -R"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -N0"C:\ComponentesXE2\ACBr\Lib\Delphi\LibD16" -LE"C:\Users\Public\Documents\RAD Studio\9.0\Bpl" -LN"C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -N"SData.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win" Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(251) Error: E2003 Undeclared identifier: 'DFeUtil' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(254) Error: E2029 ')' expected but identifier 'FormatarCNPJ' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(254) Error: E2029 'END' expected but ')' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(258) Error: E2029 'END' expected but 'ELSE' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(262) Error: E2029 ';' expected but 'WITH' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(264) Error: E2003 Undeclared identifier: 'Connection' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(264) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(264) Error: E2003 Undeclared identifier: 'XLgr' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(265) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(265) Error: E2003 Undeclared identifier: 'Nro' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(266) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(266) Error: E2003 Undeclared identifier: 'XCpl' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(267) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(267) Error: E2003 Undeclared identifier: 'XBairro' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(268) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(268) Error: E2003 Undeclared identifier: 'CMun' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(269) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(269) Error: E2003 Undeclared identifier: 'XMun' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(270) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(270) Error: E2003 Undeclared identifier: 'UF' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(271) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(271) Error: E2003 Undeclared identifier: 'DFeUtil' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(271) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(271) Error: E2003 Undeclared identifier: 'CEP' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(275) Error: E2029 '.' expected but ';' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(86) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDestinatarioCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(87) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomEmitenteCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(88) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomEmitenteCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(89) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomEmitenteCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(90) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomCalculoImpostoCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(91) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomCalculoImpostoCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(92) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomCalculoImpostoCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(93) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDadosProdutosCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(94) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDadosProdutosCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(95) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDadosProdutosCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(96) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomTransportadorCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(97) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomTransportadorCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(98) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomTransportadorCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(99) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomParametrosCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(100) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomParametrosCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(101) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomParametrosCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(102) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomIdentificacaoCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(103) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomIdentificacaoCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(104) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomIdentificacaoCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(105) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDuplicatasCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(106) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDuplicatasCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(107) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomDuplicatasCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(108) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVeiculoCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(109) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVeiculoCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(110) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVeiculoCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(111) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVolumesCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(112) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVolumesCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(113) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomVolumesCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(114) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomInformacoesAdicionaisCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(115) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomInformacoesAdicionaisCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(116) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomInformacoesAdicionaisCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(117) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomISSQNCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(118) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomISSQNCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(119) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomISSQNCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(120) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomFaturaCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(121) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomFaturaCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(122) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomFaturaCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(123) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalRetiradaCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(124) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalRetiradaCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(125) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalRetiradaCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(126) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalEntregaCXNGetCols' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(127) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalEntregaCXNGetRow' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERaveDM.pas(128) Error: E2065 Unsatisfied forward or external declaration: 'TdmACBrNFeRave.CustomLocalEntregaCXNOpen' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrNFeDANFERave.pas(1683) Fatal: F2063 Could not compile used unit 'ACBrNFeDANFERaveDM.pas' Compilation failure Compiling package C:\ComponentesXE2\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRVCodeBase.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin\dcc32.exe" "C:\ComponentesXE2\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRVCodeBase.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -U"C:\ComponentesXE2\ACBr\Lib\Delphi\LibD16" -I"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -R"c:\program files (x86)\embarcadero\rad studio\9.0\lib\Win32\release;C:\Users\Endrigo\Documents\RAD Studio\9.0\Imports;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Imports;C:\Users\Public\Documents\RAD Studio\9.0\Dcp;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\include;C:\Program Files (x86)\FastReports\LibD16;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\RaveReports\Lib;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE2\Win32;C:\ComponentesXE2\JVCL\JCL\lib\d16\win32;C:\ComponentesXE2\JVCL\JCL\source\include;C:\ComponentesXE2\JVCL\JVCL\lib\D16\win32;C:\ComponentesXE2\JVCL\JVCL\common;C:\ComponentesXE2\JVCL\JVCL\Resources;C:\ComponentesXE2\DCPcrypt;C:\ComponentesXE2\DCPcrypt\Ciphers;C:\ComponentesXE2\DCPcrypt\Hashes;C:\ComponentesXE2\ACBr\Fontes\ACBrBoleto;C:\ComponentesXE2\ACBr\Fontes\ACBrCapicom;C:\ComponentesXE2\ACBr\Fontes\ACBrComum;C:\ComponentesXE2\ACBr\Fontes\ACBrCTe;C:\ComponentesXE2\ACBr\Fontes\ACBrDiversos;C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2;C:\ComponentesXE2\ACBr\Fontes\ACBrPAF;C:\ComponentesXE2\ACBr\Fontes\ACBrSerial;C:\ComponentesXE2\ACBr\Fontes\ACBrSintegra;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;C:\ComponentesXE2\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;C:\ComponentesXE2\ACBr\Fontes\ACBrTCP;C:\ComponentesXE2\ACBr\Fontes\ACBrTEFD;C:\ComponentesXE2\ACBr\Fontes\PCN2;C:\ComponentesXE2\ACBr\Fontes\SintegraSultan;C:\ComponentesXE2\ACBr\Fontes\synalist;C:\ComponentesXE2\Zeos\src;C:\ComponentesXE2\Zeos\src\component;C:\ComponentesXE2\Zeos\src\core;C:\ComponentesXE2\Zeos\src\dbc;C:\ComponentesXE2\Zeos\src\parsesql;C:\ComponentesXE2\Zeos\src\plain;C:\ComponentesXE2\WQStatusBar\Source;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\projects\bpl;C:\ComponentesXE2\CEVersionInfo;C:\ComponentesXE2\SevenZip;C:\ComponentesXE2\SevenZip\MemoryModule;C:\ComponentesXE2\ClientDataSet;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Lib\Win32;C:\Program Files (x86)\Devart\PgDAC for RAD Studio XE2\Bin\Win32;C:\ComponentesXE2\RDprint;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -N0"C:\ComponentesXE2\ACBr\Lib\Delphi\LibD16" -LE"C:\Users\Public\Documents\RAD Studio\9.0\Bpl" -LN"C:\Users\Public\Documents\RAD Studio\9.0\Dcp" -N"SData.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win" Embarcadero Delphi for Win32 compiler version 23.0 Copyright (c) 1983,2011 Embarcadero Technologies, Inc. C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1196) Error: E2010 Incompatible types: 'string' and 'class of DFeUtil' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1205) Error: E2003 Undeclared identifier: 'infAdProd' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1207) Error: E2250 There is no overloaded version of 'StringReplace' that can be called with these arguments C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1209) Error: E2008 Incompatible types C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1214) Error: E2003 Undeclared identifier: 'Prod' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1231) Error: E2029 ')' expected but identifier 'CProd' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1234) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1234) Error: E2250 There is no overloaded version of 'Trim' that can be called with these arguments C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1239) Error: E2003 Undeclared identifier: 'Imposto' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1239) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1243) Error: E2003 Undeclared identifier: 'PrintTab' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1243) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1249) Error: E2029 ';' expected but 'IF' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1256) Error: E2003 Undeclared identifier: 'Prod' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1273) Error: E2003 Undeclared identifier: 'Memo' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1273) Error: E2003 Undeclared identifier: 'PosX' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1274) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1274) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1274) Error: E2014 Statement expected, but expression of type 'Extended' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1275) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1276) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1277) Error: E2003 Undeclared identifier: 'PrintMemo' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1279) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1283) Error: E2029 'THEN' expected but identifier 'UCom' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1285) Error: E2003 Undeclared identifier: 'NewLine' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1286) Error: E2003 Undeclared identifier: 'PrintTab' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1291) Error: E2066 Missing operator or semicolon C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(1294) Error: E2029 '.' expected but ';' found C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRavePaisagem.pas(70) Error: E2065 Unsatisfied forward or external declaration: 'ImprimirPaisagem' C:\ComponentesXE2\ACBr\Fontes\ACBrNFe2\ACBrDANFeCBRave.pas(1900) Fatal: F2063 Could not compile used unit 'ACBrDANFeCBRavePaisagem.pas' Compilation failure ...

Muito obrigado Ítalo.

Ítalo, alguma novidade se o código será implementado?

E aí Ítalo, conseguiu verificar isso?

Ítalo, desculpe a demora. AY0116949B20122000000270-lista-nfse.xml

O Envio de Lote e a consulta de lote não está gravando as mensagens para serem tratadas pela aplicação. Segue abaixo sugestão de alteração na unit pnfsConsLoteRpsResposta na função LerXml. Está assim hoje: // Ler a Lista de Mensagens if leitor.rExtrai(2, 'ListaMensagemRetorno') <> '' then begin i := 0; while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno[i].FCodigo := Leitor.rCampo(tcStr, prefixo4 + 'Codigo'); ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem'); ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao'); inc(i); end; end; Result := True; end; except result := False; end; Sugestão: // Ler a Lista de Mensagens if leitor.rExtrai(2, 'ListaMensagemRetorno') <> '' then begin i := 0; while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno[i].FCodigo := Leitor.rCampo(tcStr, prefixo4 + 'Codigo'); ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem'); ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao'); inc(i); end; end; // Ler a Lista de Mensagens do Lote if leitor.rExtrai(2, 'ListaMensagemRetornoLote') <> '' then begin i := 0; while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno[i].FCodigo := Leitor.rCampo(tcStr, prefixo4 + 'Codigo'); ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem'); ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao'); inc(i); end; end; Result := True; end; except result := False; end;

Quando mando executar o ConsultarLoteRps ele não está procurando na pasta correta do mês. Sugestão de código abaixo: function TACBrNFSe.ConsutarLoteRps(ANumLote, AProtocolo: String): Boolean; var wDia, wMes, wAno : Word; aPath: String; begin aPath := FConfiguracoes.Geral.PathSalvar; // Acrescentado por Endrigo Rodrigues if FConfiguracoes.Arquivos.PastaMensal then begin DecodeDate(Now, wAno, wMes, wDia); if Pos(IntToStr(wAno)+IntToStrZero(wMes,2),aPath) <= 0 then aPath := PathWithDelim(aPath)+IntToStr(wAno)+IntToStrZero(wMes,2) + '\'; end; // Alterado por Rodrigo Cantelli if FConfiguracoes.Arquivos.AdicionarLiteral then NotasFiscais.LoadFromFile(aPath+'Ger\'+ANumLote+'-env-lot.xml') else NotasFiscais.LoadFromFile(aPath+ANumLote+'-env-lot.xml'); if NotasFiscais.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhum RPS adicionado'); raise Exception.Create('ERRO: Nenhum RPS adicionado'); exit; end; Result := WebServices.ConsultaLoteRps(AProtocolo); end;

Ítalo, mas o que o Márcio está dizendo faz todo sentido, pois de acordo com a função, você não precisa ter o XML do RPS para realizar a consulta, basta as informações que já são passados nos parâmetros da função. Então está sendo obrigatório o carregamento do XML sem necessidade alguma. Pois, se observar o programa de exemplo, ele se utiliza do carregamento do XML simplesmente para passar os parâmetros para a função, e mais nada.

Deu tudo certo Ítalo. Parabéns.

Italo, vou atualizar e fazer os testes, aí te falo aí.

Ítalo, resolvi postar em um tópico separado para que todos possam acompanhar. Notei algo estranho em meu sistema, tenho o seguinte procedimento, envio lotes de 20 notas cada, pois tenho que enviar quase 1000 notas por mês. E observei que o retorno que pego do número e do protocolo da NFSe e salvo no meu registro vieram trocadas para as minhas notas enviadas. Simplificando, os códigos relevantes ao meu processo são estes: if Enviar(IdRps, False) then begin . . . sProtocolo := WebServices.ConsLote.Protocolo; for x := 0 to NotasFiscais.Count - 1 do begin if Trim(NotasFiscais.Items[x].NFSe.Numero) <> EmptyStr then begin tbTabela1.First; tbTabela1.Locate('NUMNOTA', StrToInt(Trim(NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero)), []); tbTabela1.Edit; tbTabela1DATA.AsDateTime := Date; tbTabela1NFSE_ENVIADA.AsString := '1'; tbTabela1NFSE_RPS.AsString := IntToStr(IdRps); tbTabela1NFSE_RPS_PROTOCOLO.AsString := Trim(sProtocolo); tbTabela1NFSE_STATUS.AsInteger := 9; tbTabela1NFSE_NUMERO.AsString := Trim(NotasFiscais.Items[x].NFSe.Numero); tbTabela1NFSE_CODIGO_VERIF.AsString := Trim(NotasFiscais.Items[x].NFSe.CodigoVerificacao); if FileExists(Configuracoes.Arquivos.GetPathNFSe + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '-nfse.xml') then tbTabela1NFSE_XML.LoadFromFile(Configuracoes.Arquivos.GetPathNFSe + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '-nfse.xml'); if FileExists(DANFSe.PathPDF + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '.pdf') then tbTabela1NFSE_PDF.LoadFromFile(DANFSe.PathPDF + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '.pdf'); tbTabela1.Post; end; end; tbTabela1.ApplyUpdates(-1); tbTabela1.First; end; end; O meu sistema só possui o número do RPS antes de enviar o lote de NFSe, portanto, para atualizar o lote de notas enviadas preciso de procurar o RPS no meu banco de dados para atualizar as outras informações (número da NFSe, código de verificação, protocolo e o XML). Porém quando mando procurar o RPS que está em NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero, não condiz com as outras informações. Um exemplo que acabei de fazer agora, enviei um lote com 3 notas (RPS 25907, 25908 e 25909). Os retornos no componente foram trocados, veja abaixo: Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25907 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004214, sendo que o correto deveria ser 201200000004216. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25908 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004216, sendo que o correto deveria ser 201200000004214. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25909 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004215, está correto. Mas já fiz um teste onde as três vieram trocadas.

Deu certo Ítalo. Mas estou tendo problemas na função ConsutarNFSeporRps(), se estou passando o RPS como parâmetro para que você está verificando NotasFiscais.Count? Não tenho a Nota Fiscal, estou consultando o RPS. Para a consulta Ítalo, vejo que deveria ter NotasFiscais.Clear e NotasFiscais.Add automaticamente no código. Pois não tem como eu abrir uma NFSe sendo que não possuo a mesma. Você não tem a Nota Fiscal, mas tem o XML do RPS, xxx-Rps.xml. É ele que você precisa carregar para criar a listagem e conforme o retorno atualizar as informações. Se você tem o número do RPS no seu BD, pode montar o nome desse arquivo sem problemas e dar um LoadFromFile, conforme o exemplo faz. Mas repito, sugiro consultar o lote. Pelo menos se houver algum problema vai retornar que não foi processado, ou foi processado com erro informando o problema, e você poderá tratar a nível de aplicação. No caso de consultar o RPS, ele pode não existir na prefeitura, e só vai retornar como inexistente. Rodrigo, obrigado pela sugestão. Mas no caso em que testei fiz da seguinte forma, após o NotasFiscais.Clear; adicionei o NotasFiscais.Add; e deixei tudo em branco e funcionou. O que estou dizendo é que não precisei carregar nenhum XML para realizar a consulta. O que eu sugeri para o Ítalo, é que esse NotasFiscais.Clear e NotasFiscais.Add já estivesse no código fonte.

Me parece pior um pouco Ítalo. Não vir na mesma ordem não seria problema algum, o problema que observei é que o número e o protocolo da NFSe está sendo gravado no registro de outro RPS. Ítalo, veja bem. O meu sistema só possui o número do RPS antes de enviar o lote de NFSe, portanto, para atualizar o lote de notas enviadas preciso de procurar o RPS no meu banco de dados para atualizar as outras informações (número da NFSe, código de verificação, protocolo e o XML). Porém quando mando procurar o RPS que está em NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero, não condiz com as outras informações. Um exemplo que acabei de fazer agora, enviei um lote com 3 notas (RPS 25907, 25908 e 25909). Os retornos no componente foram trocados, veja abaixo: Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25907 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004214, sendo que o correto deveria ser 201200000004216. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25908 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004216, sendo que o correto deveria ser 201200000004214. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25909 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004215, está correto. Mas já fiz um teste onde as três vieram trocadas. Espero que tenha ficado claro agora. Chegou a ver essa questão Ítalo, do que poderia estar acontecendo?

No caso do Delphi 7, seria uma versão paga?

Ítalo, só um esclarecimento. Para gerar o PDF da NFS-e preciso de ter o QuickReport pago, somente dessa forma é que consigo gerar o PDF?

Em qual caso Ítalo? Se você estiver falando da questão que citei da função ConsutarNFSeporRps() vejo como redundante carregar o XML sendo que no caso em que utilizo, é exatamente quando não possuo o XML, como no caso de conseguir enviar o lote e não ter conseguido concluir a gravação no meu banco de dados por algum problema específico. Eu não abro telas para o usuário procurar NFSe ou RPS, tento fazer tudo automaticamente, e no caso da função ConsutarNFSeporRps() não é necessário ler o XML, veja que no exemplo a leitura do XML foi feita somente para pegar os dados do RPS para passar no parâmetro, o XML da NFSe será retornada pelo WebService.

Em qual caso Ítalo?

Me parece pior um pouco Ítalo. Não vir na mesma ordem não seria problema algum, o problema que observei é que o número e o protocolo da NFSe está sendo gravado no registro de outro RPS. Ítalo, veja bem. O meu sistema só possui o número do RPS antes de enviar o lote de NFSe, portanto, para atualizar o lote de notas enviadas preciso de procurar o RPS no meu banco de dados para atualizar as outras informações (número da NFSe, código de verificação, protocolo e o XML). Porém quando mando procurar o RPS que está em NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero, não condiz com as outras informações. Um exemplo que acabei de fazer agora, enviei um lote com 3 notas (RPS 25907, 25908 e 25909). Os retornos no componente foram trocados, veja abaixo: Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25907 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004214, sendo que o correto deveria ser 201200000004216. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25908 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004216, sendo que o correto deveria ser 201200000004214. Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25909 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004215, está correto. Mas já fiz um teste onde as três vieram trocadas. Espero que tenha ficado claro agora.

Deu certo Ítalo. Mas estou tendo problemas na função ConsutarNFSeporRps(), se estou passando o RPS como parâmetro para que você está verificando NotasFiscais.Count? Não tenho a Nota Fiscal, estou consultando o RPS. Para a consulta Ítalo, vejo que deveria ter NotasFiscais.Clear e NotasFiscais.Add automaticamente no código. Pois não tem como eu abrir uma NFSe sendo que não possuo a mesma.

Depois que atualizei passei a ter o seguinte erro: Falha na validação do Lote 483 Element '{http://www.abrasf.org.br/nfse.xsd}Cidade' is unexpected according to content model of parent element '{http://www.abrasf.org.br/nfse.xsd}Endereco'. Expecting: {http://www.abrasf.org.br/nfse.xsd}CodigoMunicipio, {http://www.abrasf.org.br/nfse.xsd}Uf, {http://www.abrasf.org.br/nfse.xs.... Meu município é Belo Horizonte/MG.