Ver Mensaje Individual
  #1  
Antiguo 08-09-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
Como mostrar el total del ticket

Quisiera que me digan como hacen uds para mostrar el total de un ticket debajo de donde esta el detalle de la compra, ese lugar que dice subtotal, iva, decuento, total, etc...
Pense en colocar un dbgrid y asociarle estos campos desde el clientdataset, por ejemplo tengo total como un Aggregate donde su Expression es sum(total) y total es precio unitario por cantidad. Pero el problema es que no puedo posicionar los titulos de las columnas a la izquierda y sus valores a la derecha, no se si el DBGrid permite esto.
De lo contrario usaria un STRingGRid, pero no me aparece el total:

Código Delphi [-]
begin

         with mdatos.dsticket do
          begin
             Open;
             Insert;
             FieldByName('idproducto').AsInteger:=GrillaProd.DataSource.DataSet.FieldByName('idproducto').AsInteg  er;
             FieldByName('cantidad').AsFloat:=StrToFloat(Edit2.Text);
             FieldByName('nombre').AsString:=GrillaProd.DataSource.DataSet.FieldByName('nombre').AsString;
             FieldByName('marca').AsString:=GrillaProd.DataSource.DataSet.FieldByName('marca').AsString;
             FieldByName('preciou').AsFloat:=GrillaProd.DataSource.DataSet.FieldByName('preciou').AsFloat;
             FieldByName('total').AsFloat:=FieldByName('preciou').AsFloat *  StrToFloat(Edit2.Text);

          end;
          if mdatos.dsticket.State in [dsEdit, dsInsert] then
             mdatos.dsticket.Post;
        if mdatos.dsticket.ChangeCount > 0 then

        mdatos.dsticket.ApplyUpdates(0);
        Form2.StringGrid1.Cells[0,0]:='Total';
        Form2.StringGrid1.Cells[1,0]:=mdatos.dsticket.FieldByName('sumtotal').AsString;
        Edit2.Text:='';
        Form4.Close;

Saludos y agradezco su ayuda
Responder Con Cita