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:


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;

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]

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

Saludos.

¿Leiste esto? :confused:
¿lo hiciste? :confused: