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