Obtener dato de un TDBBrowse
Publicado: Mié Ene 21, 2009 1:38 pm
Hola.
Como obtengo y modifico un campo es particular de la tabla?
Ej: tengo un TDBBrowse con 3 campos: codigo, nombre,saldo. Y depende del
valor del codigo quiero cambiar el valor de otro campo del mismo registro.
METHOD FormInitialize( oSender ) CLASS TFormSaldosFinales
WITH OBJECT ::oComprobantes := TSQLQuery():New()
:oDataSource := AppData:oBase
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
cTituloPrincipal := "Detalle"
:Create()
END
ConectarBase()
::oDBBrowse1:oDataSet:= ::oComprobantes
RETURN Nil
METHOD LeerDatos() // Boton en el formulario
Local cBusqueda
cBusqueda := "select A.CODIGO,B.NOMBRE, sum(A.DEUDAPENDIENTE) as SALDO
from ctacteclientes as A, clientes as B where "
If ::oComboSucursal:cText != "Todas"
cBusqueda +=" left(numero,4)='"+::oComboSucursal:cText+"' and "
EndIf
cBusqueda += " A.CODIGO = B.CODIGO group by A.CODIGO with rollup"
WITH OBJECT ::oComprobantes
IF :lOpen
:Close()
ENDIF
:cSelect := cBusqueda
:Open()
END WITH
::oDBBrowse1:Refresh()
Return Nil
METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS
TFormSaldosFinales // columna de código
If Empty(Value ) // debe ser una dato NULL devuelto por MySQL por la clusula
rollup
aca necesito la ayuda, cambiar el valor del campo nombre por "Saldo
Final"
como indico campo 2 (nombre)
EndIf
RETURN Nil
Como obtengo y modifico un campo es particular de la tabla?
Ej: tengo un TDBBrowse con 3 campos: codigo, nombre,saldo. Y depende del
valor del codigo quiero cambiar el valor de otro campo del mismo registro.
METHOD FormInitialize( oSender ) CLASS TFormSaldosFinales
WITH OBJECT ::oComprobantes := TSQLQuery():New()
:oDataSource := AppData:oBase
:cProcess := "GENERAL"
:nLockType := adLockOptimistic
cTituloPrincipal := "Detalle"
:Create()
END
ConectarBase()
::oDBBrowse1:oDataSet:= ::oComprobantes
RETURN Nil
METHOD LeerDatos() // Boton en el formulario
Local cBusqueda
cBusqueda := "select A.CODIGO,B.NOMBRE, sum(A.DEUDAPENDIENTE) as SALDO
from ctacteclientes as A, clientes as B where "
If ::oComboSucursal:cText != "Todas"
cBusqueda +=" left(numero,4)='"+::oComboSucursal:cText+"' and "
EndIf
cBusqueda += " A.CODIGO = B.CODIGO group by A.CODIGO with rollup"
WITH OBJECT ::oComprobantes
IF :lOpen
:Close()
ENDIF
:cSelect := cBusqueda
:Open()
END WITH
::oDBBrowse1:Refresh()
Return Nil
METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS
TFormSaldosFinales // columna de código
If Empty(Value ) // debe ser una dato NULL devuelto por MySQL por la clusula
rollup
aca necesito la ayuda, cambiar el valor del campo nombre por "Saldo
Final"
como indico campo 2 (nombre)
EndIf
RETURN Nil