Ver Mensaje Individual
  #2  
Antiguo 23-06-2007
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Reputación: 19
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