deseo hacerlo vía código. la asignación de campos funciona, ahora si pongo en el evento onshow del formulario el setdbf si funciona todo, pero creo que debería poder ponerse en el with object. no se si estoy claro.
incluso intente ponerlo en el onInitialize del formo y no funciona, se supone que ahí ya están creados los controles, que me está faltando entender...
gracias por su guía...
Código: Seleccionar todo
DBSelectArea( "CLIENTES" )
WITH OBJECT oFormClientC := TFormClientC():New(Self)
:oDbfBrowse1:SetDbf( "CLIENTES" ) //NO FUNCIONA
:oDbfBrowse1:aCols[1]:cHeader := "No."
:oDbfBrowse1:aCols[1]:cFieldName := "NUM_CLIE"
:oDbfBrowse1:aCols[1]:nWidth := 80
:oDbfBrowse1:aCols[2]:cHeader := "Nombre[s]"
:oDbfBrowse1:aCols[2]:cFieldName := "NOMBRES"
:oDbfBrowse1:aCols[2]:nWidth := 150
:oDbfBrowse1:aCols[3]:cHeader := "1er. Apellido"
:oDbfBrowse1:aCols[3]:cFieldName := "PAPELLIDO"
:oDbfBrowse1:aCols[3]:nWidth := 100
:oDbfBrowse1:aCols[4]:cHeader := "2do. Apellido"
:oDbfBrowse1:aCols[4]:cFieldName := "SAPELLIDO"
:oDbfBrowse1:aCols[4]:nWidth := 100
:oDbfBrowse1:aCols[5]:cHeader := "Cédula"
:oDbfBrowse1:aCols[5]:cFieldName := "CEDULA"
:oDbfBrowse1:aCols[5]:nWidth := 130
:oDbfBrowse1:aCols[6]:cHeader := "Ruta de cobro"
:oDbfBrowse1:aCols[6]:cFieldName := "NOM_RUTA"
:oDbfBrowse1:aCols[6]:nWidth := 140
:oDbfBrowse1:aCols[7]:cHeader := "Activo"
:oDbfBrowse1:aCols[7]:cFieldName := "ACTIVO"
:oDbfBrowse1:aCols[7]:nWidth := 60
:oDbfBrowse1:aCols[8]:cHeader := "CLAS"
:oDbfBrowse1:aCols[8]:cFieldName := "CLASIFICACION"
:oDbfBrowse1:aCols[8]:nWidth := 60
:ShowModal()
END