Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-05-2004
PETERKANTROPUS PETERKANTROPUS is offline
Registrado
 
Registrado: may 2004
Ubicación: GRAN CANARIA
Posts: 1
Poder: 0
PETERKANTROPUS Va por buen camino
Cool 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

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 Tasa......... 7 Grantotal... 42
Y que se actualice al cambiar de campo, seguro que es una idiotez, pero me estoy comiendo el coco con este tema cosa mala
Responder Con Cita
  #2  
Antiguo 23-05-2004
Avatar de Combat-F2D
Combat-F2D Combat-F2D is offline
Miembro
 
Registrado: may 2003
Ubicación: Toletum
Posts: 454
Poder: 21
Combat-F2D Va por buen camino
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
__________________
online
Responder Con Cita
  #3  
Antiguo 25-05-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Poder: 21
sanxpue Va por buen camino
Talking 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;
__________________
saludos desde Puebla Mexico..
asanxt@hotmail.com
"como siempre a sus ordenes y siempre con buena cara"
'lolita me excitas, perversa piel de melocotón'
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 14:35:33.


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
Copyright 1996-2007 Club Delphi