Hola estoy tratando de mostrar un cuenta corriente el código es el siguiente
Me muestra todo bien salvo en (1) y (2) que no me muestran nada
oQrycta=1 es Débitos y
oQrycta=2 es Créditos
algo similar tengo con tablas Dbf y utilizando xHarbour y me muestra correctamente lo solicitado.
Esto esta hecho con harbour
Si pongo en los casos (1)
:bStrData := {|| oQrycta:importe} me muestra los valores
Gracias por su atención, indudablemente es el if que estoy poniendo que esta mal pero porque funciona en el caso de xharbour mencionado anteriromente?
Luis
static function cargocta(oBrw,odlg,oNbut,oMysql)
local oQmae := oMysql:Query( "SELECT * FROM maeclie")
local oQry1
local z := 1
local lTipo := .f.
local nImporte
oQry1 :=busnap(,oQmae,oCta:ncli,oMysql)
if empty(oQry1 )
return .f.
endif
oQrycta :=oMysql:Query( "SELECT * FROM ctacte where ncli = " + alltrim(str(oQry1:ncli) + " ORDER BY fecha" ))
nsaldo := 0
oCta:ncli := oQry1:ncli
oCta:nape := oQry1:nape
oBrw:setdolphin( oQrycta )
WITH OBJECT oBrw:aCols[ 1 ]
:cHeader := "Fecha"
:bEditValue := {|| oQrycta:fecha }
:cEditPicture := "@D"
:nDataStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[ 2 ]
:cHeader := "Descripción"
:bStrData := {|| (oQrycta:descripcion + oQrycta:numero)}
END WITH
WITH OBJECT oBrw:aCols[ 3 ]
:cHeader := "Número"
:bStrData := {|| oQrycta:numero}
END WITH
WITH OBJECT oBrw:aCols[ 4 ]
:cHeader := "Debe"
:bStrData := {||iif(oQrycta:tipo =1, oQrycta:importe, nil) } (1)
:cEditPicture := NumPict( 12, 2 )
END WITH
WITH OBJECT oBrw:aCols[ 5 ]
:cHeader := "Pagos"
:bStrData := {|| iif(oQrycta:tipo =2,oQrycta:importe, nil)} (1)
:cEditPicture := NumPict( 12, 2 )
END WITH
WITH OBJECT oBrw:aCols[ 6 ]
:cHeader := "Saldo"
:bStrData := {|| nsaldo := iif(oQrycta:tipo =1, oQrycta:importe,-oQrycta:importe)} (2)
:cEditPicture := NumPict( 12, 2 )
END WITH
oBrw:refresh()
odlg:update()
return .t.Me muestra todo bien salvo en (1) y (2) que no me muestran nada
oQrycta=1 es Débitos y
oQrycta=2 es Créditos
algo similar tengo con tablas Dbf y utilizando xHarbour y me muestra correctamente lo solicitado.
Esto esta hecho con harbour
Si pongo en los casos (1)
:bStrData := {|| oQrycta:importe} me muestra los valores
Gracias por su atención, indudablemente es el if que estoy poniendo que esta mal pero porque funciona en el caso de xharbour mencionado anteriromente?
Luis
