Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Calculo De Totales (https://www.clubdelphi.com/foros/showthread.php?t=10573)

PETERKANTROPUS 22-05-2004 23:28:49

Calculo De Totales
 
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

Pues lo que puedes hacer
 
Lo que puedes hacer es lo siguiente :

Código Delphi [-]
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


La franja horaria es GMT +2. Ahora son las 07:39:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi