- Code: Select all Expand view
- 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