Truncar o que:

[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?