Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 23-06-2007
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 21
MaMu Va por buen camino
Bueno, yo para calcular las columnas DEBE,HABER y SALDO hago lo siguiente:

Código Delphi [-]
//DEBE
 if QCaja.FieldByName('movimiento').AsString='EGRESO'
  then begin
//En True elije DOLAR como moneda, en False elije PESOS como moneda
   if dxCheckbox2.Checked=True     
    then begin
      QCajaDebe.Value:=QCaja.FieldByName('importe').AsCurrency/dolar;
      QCajaHaber.Value:=0;
      QCajaSaldo.Value:=QCajaHaber.Value-QCajaDebe.Value;
    end
    else begin
      QCajaDebe.Value:=QCaja.FieldByName('importe').AsCurrency;
      QCajaHaber.Value:=0;
      QCajaSaldo.Value:=QCajaHaber.Value-QCajaDebe.Value;
    end;
  end
  else begin
//HABER
   if dxCheckbox2.Checked=True
    then begin
      QCajaHaber.Value:=QCaja.FieldByName('importe').AsCurrency/dolar;
      QCajaDebe.Value:=0;
      QCajaSaldo.Value:=QCajaHaber.Value-QCajaDebe.Value;
    end
    else begin
      QCajaHaber.Value:=QCaja.FieldByName('importe').AsCurrency;
      QCajaDebe.Value:=0;
      QCajaSaldo.Value:=QCajaHaber.Value-QCajaDebe.Value;
    end;
  end;

Lastima que no se como hacer el ARRASTRE de saldo anterior. No se me ocurre la forma.
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

Última edición por MaMu fecha: 23-06-2007 a las 18:40:51.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Campos Calculados Kaller Tablas planas 1 12-12-2006 00:11:13
campos calculados Nelly SQL 2 07-10-2005 18:13:51
Campos calculados SaurioNet MS SQL Server 4 21-01-2005 23:47:38
CAmpos calculados? cmena Conexión con bases de datos 4 17-06-2004 11:54:51
Campos CAlculados karlita_cb Tablas planas 4 24-03-2004 04:40:03


La franja horaria es GMT +2. Ahora son las 16:50:54.


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