rogerioclaro

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.

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;

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;

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;

Obrigado, e desculpa por postar em lugar indevido.

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.