rogerioclaro
-
Total de ítens
8 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por rogerioclaro
-
-
Olá Juliomar, obrigado pela resposta.
já mudei também o patch mas mesmo erro
D:\FortesR\XEE\Fortes\RLMetaCLX.pas(11) Fatal: F1026 File not found: 'D:\ACBr\Pacotes\Delphi\ACBrBoleto\QGraphics.dcu'
olha como está o meu patch
$(BDSLIB)\$(Platform)\release;$(BDSUSERDIR)\Imports;$(BDS)\Imports;$(BDSCOMMONDIR)\Dcp;$(BDS)\include;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;D:\jcl\lib\d19\win32;D:\jcl\source\include;D:\ACBr\Fontes\ACBrBoleto;D:\ACBr\Fontes\ACBrBoleto\Logos;D:\ACBr\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr\Fontes\ACBrCapicom;D:\ACBr\Fontes\ACBrComum;D:\ACBr\Fontes\ACBrConvenio115;D:\ACBr\Fontes\ACBrCTe;D:\ACBr\Fontes\ACBrDiversos;D:\ACBr\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr\Fontes\ACBrGNRE;D:\ACBr\Fontes\ACBrLFD;D:\ACBr\Fontes\ACBrMDFe;D:\ACBr\Fontes\ACBrNFe2;D:\ACBr\Fontes\ACBrNFSe;D:\ACBr\Fontes\ACBrPAF;D:\ACBr\Fontes\ACBrSAT;D:\ACBr\Fontes\ACBrSEF2;D:\ACBr\Fontes\ACBrSerial;D:\ACBr\Fontes\ACBrSintegra;D:\ACBr\Fontes\ACBrSPED;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr\Fontes\ACBrTCP;D:\ACBr\Fontes\ACBrTEFD;D:\ACBr\Fontes\Imagens;D:\ACBr\Fontes\PCN2;D:\ACBr\Fontes\SintegraSultan;D:\ACBr\Fontes\synalist;D:\ACBr\Fontes\ZLibExGZ;D:\ACBr\Fontes\ZLibExGZ\win32;D:\ACBr\Fontes\ZLibExGZ\win64;D:\ACBr\Fontes\ZLibExGZ\zlib;D:\ACBr\Lib\Delphi\LibD19;D:\jvcl\lib\D19\win32;D:\jvcl\common;D:\jvcl\Resources;d:\fortesr\xe5\fortesreport-ce-master\binary\win32_dxe6_vcl;D:\FortesR\XEE\Fortes\bin;D:\FortesR\XEE\Fortes;D:\FortesReportDelphi-master;D:\ACBr\Pacotes\Delphi\ACBrNFe2
o que está em negrito e o que eu instalei a algum tempo atras o fortes report
-
Pessoal, bom dia!
Tenho o delphi xe5 instalado e nele ja tenho o Fortes instalado, tentei instalar o AcBR/NFe2 pelo instalador, e também pelo dpk mas da sempre erro
no Direto pelo dpk da esse erro
nas uses com a letra Q (Já procurei no forum, fiz tudo que tinha mas nada deu certo)
Qt, QTypes, QExtCtrls, QDBCtrls, QControls, QForms, QDialogs, QStdCtrls, QButtons, QGraphics,
e da esse erro no Instalador do AcBR
ompiling package D:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk
"C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\dcc32.exe" "D:\ACBr\\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeRLpkg.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;C:\Users\Rogério-VirtualInfor\Documents\RAD Studio\12.0\Imports;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;D:\jcl\lib\d19\win32;D:\jcl\source\include;D:\ACBr\Fontes\ACBrBoleto;D:\ACBr\Fontes\ACBrBoleto\Logos;D:\ACBr\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr\Fontes\ACBrCapicom;D:\ACBr\Fontes\ACBrComum;D:\ACBr\Fontes\ACBrConvenio115;D:\ACBr\Fontes\ACBrCTe;D:\ACBr\Fontes\ACBrDiversos;D:\ACBr\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr\Fontes\ACBrGNRE;D:\ACBr\Fontes\ACBrLFD;D:\ACBr\Fontes\ACBrMDFe;D:\ACBr\Fontes\ACBrNFe2;D:\ACBr\Fontes\ACBrNFSe;D:\ACBr\Fontes\ACBrPAF;D:\ACBr\Fontes\ACBrSAT;D:\ACBr\Fontes\ACBrSEF2;D:\ACBr\Fontes\ACBrSerial;D:\ACBr\Fontes\ACBrSintegra;D:\ACBr\Fontes\ACBrSPED;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr\Fontes\ACBrTCP;D:\ACBr\Fontes\ACBrTEFD;D:\ACBr\Fontes\Imagens;D:\ACBr\Fontes\PCN2;D:\ACBr\Fontes\SintegraSultan;D:\ACBr\Fontes\synalist;D:\ACBr\Fontes\ZLibExGZ;D:\ACBr\Fontes\ZLibExGZ\win32;D:\ACBr\Fontes\ZLibExGZ\win64;D:\ACBr\Fontes\ZLibExGZ\zlib;D:\ACBr\Lib\Delphi\LibD19;D:\jvcl\lib\D19\win32;D:\jvcl\common;D:\jvcl\Resources;d:\fortesr\xe5\fortesreport-ce-master\binary\win32_dxe6_vcl;D:\FortesR\XEE\Fortes\bin;D:\FortesR\XEE\Fortes" -U"D:\ACBr\Lib\Delphi\LibD19" -I"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;C:\Users\Rogério-VirtualInfor\Documents\RAD Studio\12.0\Imports;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;D:\jcl\lib\d19\win32;D:\jcl\source\include;D:\ACBr\Fontes\ACBrBoleto;D:\ACBr\Fontes\ACBrBoleto\Logos;D:\ACBr\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr\Fontes\ACBrCapicom;D:\ACBr\Fontes\ACBrComum;D:\ACBr\Fontes\ACBrConvenio115;D:\ACBr\Fontes\ACBrCTe;D:\ACBr\Fontes\ACBrDiversos;D:\ACBr\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr\Fontes\ACBrGNRE;D:\ACBr\Fontes\ACBrLFD;D:\ACBr\Fontes\ACBrMDFe;D:\ACBr\Fontes\ACBrNFe2;D:\ACBr\Fontes\ACBrNFSe;D:\ACBr\Fontes\ACBrPAF;D:\ACBr\Fontes\ACBrSAT;D:\ACBr\Fontes\ACBrSEF2;D:\ACBr\Fontes\ACBrSerial;D:\ACBr\Fontes\ACBrSintegra;D:\ACBr\Fontes\ACBrSPED;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr\Fontes\ACBrTCP;D:\ACBr\Fontes\ACBrTEFD;D:\ACBr\Fontes\Imagens;D:\ACBr\Fontes\PCN2;D:\ACBr\Fontes\SintegraSultan;D:\ACBr\Fontes\synalist;D:\ACBr\Fontes\ZLibExGZ;D:\ACBr\Fontes\ZLibExGZ\win32;D:\ACBr\Fontes\ZLibExGZ\win64;D:\ACBr\Fontes\ZLibExGZ\zlib;D:\ACBr\Lib\Delphi\LibD19;D:\jvcl\lib\D19\win32;D:\jvcl\common;D:\jvcl\Resources;d:\fortesr\xe5\fortesreport-ce-master\binary\win32_dxe6_vcl;D:\FortesR\XEE\Fortes\bin;D:\FortesR\XEE\Fortes" -R"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;C:\Users\Rogério-VirtualInfor\Documents\RAD Studio\12.0\Imports;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;D:\jcl\lib\d19\win32;D:\jcl\source\include;D:\ACBr\Fontes\ACBrBoleto;D:\ACBr\Fontes\ACBrBoleto\Logos;D:\ACBr\Fontes\ACBrBoleto\Logos\Colorido;D:\ACBr\Fontes\ACBrBoleto\Logos\PretoBranco;D:\ACBr\Fontes\ACBrCapicom;D:\ACBr\Fontes\ACBrComum;D:\ACBr\Fontes\ACBrConvenio115;D:\ACBr\Fontes\ACBrCTe;D:\ACBr\Fontes\ACBrDiversos;D:\ACBr\Fontes\ACBrDiversos\ACBrFalaWaves;D:\ACBr\Fontes\ACBrGNRE;D:\ACBr\Fontes\ACBrLFD;D:\ACBr\Fontes\ACBrMDFe;D:\ACBr\Fontes\ACBrNFe2;D:\ACBr\Fontes\ACBrNFSe;D:\ACBr\Fontes\ACBrPAF;D:\ACBr\Fontes\ACBrSAT;D:\ACBr\Fontes\ACBrSEF2;D:\ACBr\Fontes\ACBrSerial;D:\ACBr\Fontes\ACBrSintegra;D:\ACBr\Fontes\ACBrSPED;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDContabil;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDECF;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFCont;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\ACBr\Fontes\ACBrSPED\ACBrSPEDPisCofinsImportar;D:\ACBr\Fontes\ACBrTCP;D:\ACBr\Fontes\ACBrTEFD;D:\ACBr\Fontes\Imagens;D:\ACBr\Fontes\PCN2;D:\ACBr\Fontes\SintegraSultan;D:\ACBr\Fontes\synalist;D:\ACBr\Fontes\ZLibExGZ;D:\ACBr\Fontes\ZLibExGZ\win32;D:\ACBr\Fontes\ZLibExGZ\win64;D:\ACBr\Fontes\ZLibExGZ\zlib;D:\ACBr\Lib\Delphi\LibD19;D:\jvcl\lib\D19\win32;D:\jvcl\common;D:\jvcl\Resources;d:\fortesr\xe5\fortesreport-ce-master\binary\win32_dxe6_vcl;D:\FortesR\XEE\Fortes\bin;D:\FortesR\XEE\Fortes" -N0"D:\ACBr\Lib\Delphi\LibD19" -LE"D:\ACBr\Lib\Delphi\LibD19" -LN"D:\ACBr\Lib\Delphi\LibD19" -NS"Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell"
Embarcadero Delphi for Win32 compiler version 26.0
Copyright (c) 1983,2013 Embarcadero Technologies, Inc.
D:\FortesR\XEE\Fortes\RLMetaCLX.pas(11) Fatal: F1026 File not found: 'D:\ACBr\Pacotes\Delphi\ACBrNFe2\QGraphics.dcu'Compilation failure
Desde já meu muito obrigado
-
Pessoal, bom dia!
Eu mesmo observei o erro, e consegui ajustar, desde ja obrigado, Em caso de dúvidas posto novamente.
Obrigado
while not Dm.qryReg50.EOF do
begin
wregistro50 := TRegistro50.Create;
DadosRegistro50;
wregistro50.CPFCNPJ:=Dm.qryReg50.FieldByName('CNPJ').Value;wregistro50.Inscricao:=Dm.qryReg50.FieldByName('IE').Value;
wregistro50.DataDocumento:=Dm.qryReg50.FieldByName('DATA_CADASTRO').Value;
wregistro50.UF:=Dm.qryReg50.FieldByName('UF').Value;
wregistro50.Modelo:=Dm.qryReg50.FieldByName('MODELO').Value;
wregistro50.Serie:=Dm.qryReg50.FieldByName('SERIE').Value;
wregistro50.Numero:=Dm.qryReg50.FieldByName('N_NOTA').Value;
wregistro50.Cfop:=Dm.qryReg50.FieldByName('CFOP').Value;
wregistro50.EmissorDocumento:=Dm.qryReg50.FieldByName('TIPO_EMISSAO').Value;
wregistro50.ValorContabil:=Dm.qryReg50.FieldByName('VALOR_CONTABIL').Value;
wregistro50.BasedeCalculo:=Dm.qryReg50.FieldByName('BASE_CALCULO').Value;
wregistro50.Icms:=Dm.qryReg50.FieldByName('ICMS').Value;
wregistro50.Isentas:=Dm.qryReg50.FieldByName('ISENTAS').Value;
wregistro50.Outras:=Dm.qryReg50.FieldByName('OUTRAS').Value;
wregistro50.Aliquota:=Dm.qryReg50.FieldByName('ALIQUOTA').Value;
wregistro50.Situacao:='N';
ACBrSintegra.Registros50.Add(wregistro50);
Dm.qryReg50.Next;end;
- 1
-
Então veja você somente cria uma vez o componente !
terá que criar quantos for o número de registros
Olá juliomar, bom dia!
como disse sou 'newbie' no mundo delphi. rss fiz dessa forma abaixo, porém ainda so gera um registro...
procedure TFrmSintegra.GerarRegistro50;
var
wregistro50: TRegistro50;begin
dm.qryReg50.Open;
dm.QryReg50.First;
wregistro50:= TRegistro50.Create;while not dm.qryReg50.Eof do begin
with ACBrSintegra do begin
DadosRegistro50;
wregistro50.CPFCNPJ := dm.qryReg50.FieldByName('CNPJ').asstring;
wregistro50.Inscricao := dm.qryReg50.FieldByName('IE').asstring;
wregistro50.DataDocumento := dm.QryReg50.FieldByName('DATA_CADASTRO').AsDateTime;//Registro10.DataFinal;
wregistro50.UF := dm.qryReg50.FieldByName('UF').asstring;
wregistro50.Modelo:= dm.QryReg50.FieldByName('MODELO').AsString;wregistro50.Serie := dm.qryReg50.FieldByName('SERIE').asstring;
wregistro50.Numero := dm.qryReg50.FieldByName('N_NOTA').asstring;
wregistro50.Cfop := dm.qryReg50.FieldByName('CFOP').asstring;
wregistro50.EmissorDocumento:= dm.qryReg50.FieldByName('TIPO_EMISSAO').asstring;
wregistro50.ValorContabil := dm.qryReg50.FieldByName('VALOR_CONTABIL').AsCurrency;
wregistro50.Icms := dm.qryReg50.FieldByName('ICMS').AsCurrency;
wregistro50.BasedeCalculo := dm.qryReg50.FieldByName('BASE_CALCULO').AsCurrency;
wregistro50.Situacao := 'N';
wregistro50.Isentas := 0;
wregistro50.Outras := 0;ACBrSintegra.Registros50.Add(wregistro50);
dm.qryReg50.Next;
end;dm.qryReg50.Close;
end;end;
procedure TfrmSintegra.DadosRegistro50;
begin
//select que fitra o periodo da geração do arquivo
//e modelo da nota
with dm.qryReg50 do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM entrada_nf WHERE ');
SQL.Add('(data_emissao BETWEEN :datahora_ini AND :datahora_fim ) AND (');
SQL.Add('(modelo = ''01'') OR');
SQL.Add('(modelo = ''1A'') OR');
SQL.Add('(modelo = ''03'') OR');
SQL.Add('(modelo = ''06'') OR');
SQL.Add('(modelo = ''55''))');
SQL.Add('ORDER BY data_emissao');
ParamByName('datahora_ini').asdatetime := StrToDate(MaskEdit1.Text);
ParamByName('datahora_fim').asdatetime := StrToDate(MaskEdit2.Text);
Open;end;
-
Sobre seu problema é bem simples tu tá passando um componente para o campo do tipo datetime!
o maskedit é um objeto e o valor dele é um text então terá que converter para passar
Boa tarde, preciso de mais uma ajuda do ACbr, estou usando o compomente acbr para gear o sintegra, peguei como exemplo o que vem na pasta do instalador, até agora funcionou blz, porém estou conseguindo gerar somente 1 registro 50 por vez, e não todos do periodo, já tentei dar um next na query e no cds que estou puxando as informações mas mesmo assim não está indo.. alguém poderia me dar uma ajuda?
procedure TFrmSintegra.GerarRegistro50;
var
wregistro50: TRegistro50;
begin
wregistro50:=TRegistro50.Create;
with ACBrSintegra do
begin
DadosRegistro50;
wregistro50.CPFCNPJ:= dm.qryReg50CNPJ.AsString;
wregistro50.Inscricao:= dm.QryReg50IE.AsString;
wregistro50.DataDocumento:= dm.qryReg50DATA_CADASTRO.AsDateTime;
wregistro50.UF:= dm.qryReg50UF.AsString;
wregistro50.Modelo:= dm.qryReg50MODELO.AsString;;
wregistro50.Serie:= dm.qryReg50SERIE.AsString;
wregistro50.Numero:= dm.qryReg50N_NOTA.AsString;
wregistro50.Cfop:= dm.qryReg50CFOP.AsString;
wregistro50.EmissorDocumento:= dm.qryReg50TIPO_EMISSAO.AsString;
wregistro50.ValorContabil:= dm.qryReg50VALOR_CONTABIL.AsFloat ;
wregistro50.BasedeCalculo:= dm.qryReg50BASE_CALCULO.AsFloat;
wregistro50.Icms:= dm.qryReg50ICMS.AsFloat;
wregistro50.Isentas:= dm.qryReg50ISENTAS.AsFloat;
wregistro50.Outras:= dm.qryReg50OUTRAS.AsFloat;
wregistro50.Aliquota:= dm.qryReg50ALIQUOTA.AsFloat;
wregistro50.Situacao:= 'N';
ACBrSintegra.Registros50.Add(wregistro50);
end;
end;se eu fizer assim acho que daria certo... vou tentar aqui
wregistro50:=TRegistro50.Create; while not sqlaux.Eof do begin with ACBrSintegra do begin wregistro50.CPFCNPJ := TiraMascara(sqlaux.FieldByName('CPFCNPJ').asstring); wregistro50.Inscricao := TiraMascara(sqlaux.FieldByName('RGIE').asstring); wregistro50.DataDocumento := Registro10.DataFinal; wregistro50.UF := sqlaux.FieldByName('UF').asstring; if sqlaux.FieldByName('CODCHACESSO').AsString = '' then wregistro50.Modelo := '01' else wregistro50.Modelo := '55'; wregistro50.Serie := sqlaux.FieldByName('SERIE').asstring; wregistro50.Numero := sqlaux.FieldByName('DOCUMENTO').asstring; wregistro50.Cfop := TiraMascara(sqlaux.FieldByName('NATUREZAOP').asstring); wregistro50.EmissorDocumento:= sqlaux.FieldByName('EMITENTE').asstring; wregistro50.ValorContabil := sqlaux.FieldByName('VLNOTA').AsCurrency; wregistro50.Icms := sqlaux.FieldByName('ICMS').AsCurrency; wregistro50.BasedeCalculo := sqlaux.FieldByName('BCICMS').AsCurrency; wregistro50.Situacao := 'N'; wregistro50.Isentas := 0; wregistro50.Outras := 0; ACBrSintegra.Registros50.Add(wregistro50); end; sqlaux.Next; end;
-
Boa tarde
neste local que postou trata do componente ACBrSintegra e seu problema está em programar em delphi e abrir query!
estou movendo para o local correto pois vejo que é seu primeiro post
Obrigado, e desculpa por postar em lugar indevido.
- 1
-
Pessoal, boa tarde!
Sou novo com delphi, mexo a pouquissimo tempo, estou mexendo em um geração de sintegra, iniciando o registro 50, e utilizando o acbrSintegra
fiz o seguinte para filtrar a data que digitar na geração,
procedure TfrmSintegra.DadosRegistro50;
begin
//
with dm.qryReg50 do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM vendas WHERE ');
SQL.Add('(datahora_emissao BETWEEN :datahora_ini AND :datahora_fim) AND (');
SQL.Add('(modelo_nf = ""01"") OR');
SQL.Add('(modelo_nf = ""1A"") OR');
SQL.Add('(modelo_nf = ""03"") OR');
SQL.Add('(modelo_nf = ""06"") OR');
SQL.Add('(modelo_nf = ""22""))');
SQL.Add('ORDER BY datahora_emissao');
ParamByName('datahora_ini').asdatetime := MaskEdit1;
ParamByName('datahora_fim').asdatetime := MaskEdit2;
Open;
end;mas ele retorna essa mensagem
[dcc32 Error] uSintegra.pas(111): E2010 Incompatible types: 'TDateTime' and 'TMaskEdit'
o campo não e compatível. Aguém pode me ajudar? se erre procedimento daria certo.
Desde já muito obrigado.
Erro ao instalar Fortes Report pelo AcBR
em Object Pascal - Delphi & Lazarus
Postado
Olá sergio, bom dia!
Obrigado pela resposta fiz isso, nao deu erro, mas ao compilar os Exemplo de nfe da ACBr da essa mensagem:
[dcc32 Error] E1026 File not found: 'RpFormSetup.dfm'
[dcc32 Error] E1026 File not found: 'RpFormPreview.dfm'
[dcc32 Error] E1026 File not found: 'RpFormStatus.dfm'
desde já obrigado.