Foros Club Delphi - Truncar o que:

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Truncar o que: (https://www.clubdelphi.com/foros/showthread.php?t=22477)

alcides

16-06-2005 17:20:58

Truncar o que:

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

16-06-2005 18:37:48

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

16-06-2005 19:38:41

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

Alcides
Rep.Dom.

jachguate

16-06-2005 21:59:03

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

Saludos.

alcides

16-06-2005 22:34:06

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

17-06-2005 00:34:24

Cita:

Empezado por jachguate

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

Saludos.

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

La franja horaria es GMT +2. Ahora son las 06:26:36.