PDA

Ver la Versión Completa : Calculo De Totales


PETERKANTROPUS
22-05-2004, 23:28:49
me pasa lo siguiente: tengo una tabla Facturas y Otra LineasdeFactura en dBase (por compatibilidad) estan relacionadas 1 a muchos, Facturas esta en diseño normal y Lineas de factura esta relacionada mediante el campo numerodefactura, necesito sumar el total de esas cantidades, al resultado aplicarle un porcentaje y sumar ambos resultados ej:confused:

factura 1: pepito perez
nº fact ctdad desc precio unitario total
1 5 cosas 5 25
1 1 mas cosas 10 10

esto está ya, con sus DBCombo y toda la parafernalia
ahora necesito unos Tlabel en los que figure:
Total......... 35:confused: Tasa......... 7:confused: Grantotal... 42 :confused:
Y que se actualice al cambiar de campo, seguro que es una idiotez, pero me estoy comiendo el coco con este tema cosa mala

Combat-F2D
23-05-2004, 00:53:24
no se si te servira, pero puedes utilizar campos calculados.

ojea los post anteriores y seguro que pùedes encontrar algo de informacion

no obstantes si tienes dudas, hazlo llegar

sanxpue
25-05-2004, 03:06:14
Lo que puedes hacer es lo siguiente :


Procedure Form1.SumaTotales;
Var
Total : Extended;
Begin
Total := 0;
Table1.Filtered := False;
Table1.Filter := '[NumFac] = '+Edit1.Text;//Suponiendo que hay pones
//el # de la factura Sea = 1
Table1.Filtered := True;
Table1.Open;
While Not Table1.EoF Do
Begin
Total := Total+Table1Total.AsFloat;
Table1.Next;
End;
Table1.Close;
Label1.Caption := FormatFloat('#,##0.00',Total);
Label2.Caption := FormatFloat('#,##0.00',Total*Tasa);
Label3.Caption := FormatFloat('#,##0.00',Total+(Total*Tasa));
//Donde tasa tu la traes no se de donde pero la traes je
End;
:D