Sugestão de alteração-CTE-Transporte de veículos -

luisclaudio_jr · 6 Janeiro, 2016

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