Página 1 de 1

Obtener dato de un TDBBrowse

Publicado: Mié Ene 21, 2009 1:38 pm
por jrcsistemas
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

Obtener dato de un TDBBrowse

Publicado: Jue Ene 22, 2009 12:41 pm
por jrcsistemas
No se si me explique bien, quiero hacer algo como lo hice siempre en clipper
BASE->NOMBRE := "JUAN"
Como lo hago en un DBBrowse? Con que metodo le indico el campo "NOMBRE"? Le
busco la vuelta con FieldPut pero no se como.
Gracias
Se que es algo sencillo, pero estas cosas sencillas son el mayor problema
para mi.