Pesquisar na Comunidade

BOM DIA, Implementamos no trunk 2, o transporte de veículos para fastreport, segue as units para analise e se possível implementar ao projeto. Muito obrigado. Segue DACTE.FR3 e Alterações do ACBrCTeDACTEFR.PAS, // TRANSPORTES DE VEICULOS NOVOS ZERO KM cdsVeiculosNovos := TClientDataSet.Create(nil); with cdsVeiculosNovos, FieldDefs do begin Close; Clear; Add('chassi', ftString, 17); Add('cCor' , ftString, 04); Add('xCor' , ftString, 120); Add('cMod' , ftString, 06); Add('vUnit' , ftFloat); Add('vFrete', ftFloat); CreateDataSet; end; Procedure TACBrCTeDACTEFR.CarregaVeiculosNovos ; var i : Integer; Begin {$IFDEF PL_200} with cdsVeiculosNovos do begin Append; for i := 0 to CTe.infCTeNorm.veicNovos.Count - 1 do begin Append; FieldByName('chassi').AsString := CTe.infCTeNorm.veicNovos.Items[i].chassi; FieldByName('cCor').AsString := CTe.infCTeNorm.veicNovos.Items[i].cCor; FieldByName('xCor').AsString := CTe.infCTeNorm.veicNovos.Items[i].xCor; FieldByName('cMod').AsString := CTe.infCTeNorm.veicNovos.Items[i].cMod; FieldByName('vUnit').AsFloat := CTe.infCTeNorm.veicNovos.Items[i].vUnit ; FieldByName('vFrete').AsFloat := CTe.infCTeNorm.veicNovos.Items[i].vFrete ; Post; end; end; {$ENDIF} {$IFDEF PL_104} // versao 1.04 with cdsVeiculosNovos do begin Append; for i := 0 to CTe.veicNovos.Count - 1 do begin Append; FieldByName('chassi').AsString := CTe.veicNovos.Items[i].chassi; FieldByName('cCor').AsString := CTe.veicNovos.Items[i].cCor; FieldByName('xCor').AsString := CTe.veicNovos.Items[i].xCor; FieldByName('cMod').AsString := CTe.veicNovos.Items[i].cMod; FieldByName('vUnit').AsFloat := CTe.veicNovos.Items[i].vUnit ; FieldByName('vFrete').AsFloat := CTe.veicNovos.Items[i].vFrete ; Post; end; end; {$ENDIF} End; DACTE.fr3 ACBrCTeDACTEFR.pas