Metodo2

procedure TVendaop.AppendProdtoRitchCancelbyCode(aDatasetItens: TFDquery);
var i: Integer;
  nTamDescricao: Integer;
  fQuant, VlrLiquido: Double;
  sItem, sCodigo, sUnidade, sVlrUnitario, sVlrProduto,
  sVlrImpostos, LinhaCmd: String; sDescricao: string[19];
  sQuantidade: string[10];
begin
  if not ( sistemaclass.Situacaodosistema = stCancelamentoItens ) and not ( sistemaclass.Situacaodosistema = stCancelamentobyCodebar ) then
  begin
   aDatasetItens.Refresh;
  end;

   FGridVD.Paragraph.Alignment:= taLeftJustify ;
   FGridVD.SelAttributes.Style := [];
   FGridVD.SelAttributes.Size := 10;

    sItem        := IntToStrZero(aDatasetItens.FieldByName('ITENS_POSICAOITEN').AsInteger, 3);
    sDescricao   := Trim(aDatasetItens.FieldByName('ITENS_DESCPRODUTO').AsString);
    sUnidade     := Trim(aDatasetItens.FieldByName('ITENS_UN').AsString);
    sVlrProduto  := FormatFloatBr(aDatasetItens.FieldByName('ITENS_VLUN').AsCurrency *
                     aDatasetItens.FieldByName('ITENS_QUANTIDADE').AsCurrency );
    sCodigo      :=  stringofChar( '0', ( 13 - length(Trim(aDatasetItens.FieldByName('ITENS_CODBARRAS').AsString))))+
                     Trim(aDatasetItens.FieldByName('ITENS_CODBARRAS').AsString);
    sVlrUnitario := FormatFloatBr(aDatasetItens.FieldByName('ITENS_VLUN').AsCurrency);
    fQuant := aDatasetItens.FieldByName('ITENS_QUANTIDADE').AsCurrency;

    if Frac(fQuant) > 0 then
      sQuantidade := formatcurr('###,###0.000',fQuant)
    else
    sQuantidade := formatcurr('###,###0.000',fQuant);
    sQuantidade := StringOfChar(' ', 4 - length(sQuantidade) )+sQuantidade;

    LinhaCmd := sItem + ' ' + sCodigo + ' ' + '[DesProd] ' +' '+ sQuantidade + ' ' +
    ' '+ PadLeft(sUnidade,2,' ') + ' X' + PadLeft(sVlrUnitario,5,' ') +' '+ ' '+PadLeft(sVlrProduto,8,' ');

   nTamDescricao := EM_LIMITTEXT - Length(LinhaCmd) + 2;
   sDescricao := AcbrUtil.PadRight(Copy(sDescricao, 1, nTamDescricao), nTamDescricao);

   LinhaCmd := StringReplace(LinhaCmd, '[DesProd]', sDescricao, [rfReplaceAll]);
   FGridVD.SelText := LinhaCmd + PularLinha;

   SendMessage(FGridVD.Handle, WM_VSCROLL, SB_BOTTOM, 0);
   SelecionaUltimaLinha;

   if aDatasetItens.FieldByName('ITENS_DESCVL').AsCurrency > 0 then
     begin

      VlrLiquido := (aDatasetItens.FieldByName('ITENS_TOTAL').AsCurrency -
                     aDatasetItens.FieldByName('ITENS_DESCVL').AsCurrency);
      FGridVD.Lines.Add( padSpace(
              'DESCONTO NO ITEM NRO.:  '+ sItem + padLeft(FormatFloatBr
                       (aDatasetItens.FieldByName('ITENS_DESCVL').AsCurrency, '-,0.00'), 15, ' ')
              + '|' + FormatFloatBr(VlrLiquido),
              80, '|'));

     end;

end;