Truncar o que:

[alcides]

Hola a todos,
uso delphi 7 y mis tablas estan access, resulta que:
tengo una tabla donde tengo ej.: cuenta, debito y credito.
el campo cuenta es string y debito/credito numerico
lo que quiero:
Que cuando los tres primeros digito del campo cuenta sean igual a 412 sumar el valor del debito en una variable y que cuando los tres primeros digitos del campo cuenta sean igual 422 sumar el valor del credito.

espero por favor puedan darme una mano,

Alcides
Rep.Dom.

[jachguate]

Algo asi:

Código Delphi [-]
if Copy(TablaCuenta.AsString, 1, 3) = '412' Then
  Variable := Variable + TablaDebito.AsFloat
else if Copy(TablaCuenta.AsString, 1, 3) = '422' Then
  Variable := Variable + TablaCredito.AsFloat;

Hasta luego.

[alcides]

Gracias jachguate por tu ayuda,
lo estoy probando en un query y las variables salen en cero


Alcides
Rep.Dom.

[jachguate]

Lo has seguido paso a paso?
¿entra en el if?

Saludos.

[alcides]

jachguate esto es lo que tengo
Qry_Detalle.Close;

Código PHP:

qry_detalle.open ;
if Copy(Qry_DetalleCuenta.AsString, 1, 3) = '421' Then
     ppVariable2.AsDouble := ppVariable2.AsDouble +   Qry_DetalleCredito.AsFloat
else if Copy(Qry_DetalleCuenta.AsString, 1, 3) = '422' Then
  ppVariable3.AsDouble := ppVariable3.AsDouble + Qry_DetalleCredito.AsFloat; 


ppReport1.PrintReport;


gracias

Alcides
Rep.Dom.

[jachguate]

Empezado por jachguate

Lo has seguido paso a paso?
¿entra en el if?

Saludos.

¿Leiste esto?
¿lo hiciste?