Fórum consulta produtos pelo dbgrid #394745

 procedure TFormGridProduto.gridProdutoDblClick(Sender: TObject);
var
  total, qtd: string;
  TotalV, TotalGeral, Troco: Currency;
 i: integer;
begin
  with FormVenda.ListView1.Items.Add do
  begin
    qtd:= (Edit2.Text);
    Total:= (FORMATCurr ('R$ 0.00',DmPrincipal.TbProdutoPreo_venda.Value * StrToInt (qtd)));
    Caption := Dmprincipal.TbProdutoProdCodigo.AsString;//Qualquer String. Caption é 1ª Coluna do LV
    SubItems.Add(Dmprincipal.TbProdutoProduto.value);//2ª Coluna do LV
    SubItems.Add(qtd);//3ª Coluna do LV
    SubItems.Add(FORMATCurr ('R$ 0.00',Dmprincipal.TbProdutoPreo_venda.value));//4ª Coluna do LV
    SubItems.Add('');
    SubItems.Add(Total);
  end;//with
    formgridproduto.close;

    TotalV := 0;

    for i := 0 to FormVenda.ListView1.Items.Count - 1 do
    begin
     with FormVenda.ListView1.Items.Item[I] do
      begin
        TotalV := TotalV + TextToCurr(subItems.Strings[4]);
      end;
        FormVenda.Edit1.Text := formatCurr('R$ 0.00',TotalV);
    //    Troco := FloatToCurr (StrToFloat(EdtPago.Text) - ((StrToFloat(Edit2.Text)) - (StrToFLoat(EdtDesconto.Text))));
    //    TotalGeral := (StrToCurr(Edit2.Text)) - (TextToCurr(MaskEdit2.Text));
    //    Edit3.Text:= FormatCurr('R$ 0.00',(TextToCurr(EdtPago.Text) - ( Total - (TextToCurr(EdtDesconto.Text)))));
        TotalGeral:= TotalV - (StrToCurr(FormVenda.EdtDesconto.Text));
        FormVenda.Edit2.Text:= FormatCurr('R$ 0.00',TotalGeral);
        if FormVenda.EdtPago.Text = FLoatToStr(0) then
           FormVenda.Edit3.Text:= FloatToStr(0);
        if (TotalGeral < StrToCurr(FormVenda.EdtPago.Text)) AND (FormVenda.EdtPago.Text <> FLoatToStr(0)) then
           Begin
             Troco:= StrToCurr(FormVenda.EdtPago.Text) - TotalGeral;
             FormVenda.Edit3.Text:= FormatCurr('R$ 0.00',Troco);
           End;
        if (TotalGeral > StrToCurr(FormVenda.EdtPago.Text)) AND (FormVenda.EdtPago.Text <> FLoatToStr(0))then
               FormVenda.Edit3.Text:= 'CONFERIR $ PAGO!';
     end;

end;