Buen dia compañeros del Forun
Estoy haciendo una clase. Mi pregunta es la siguiente.
Puedo hacer la Asignacion de DATA asi deacuerdo al codigo adjunto me da error en DATA a
METHOD ASINDATA() CLASS TApp16
Local a,b,i
For i = 1 to oRecordSet[nRecordSet]:Count()
a:="M_"+oRecordSet[nRecordSet]:Fields(i-1):Name
DATA a
Next
RETURN( Self )
Estoy haciendo una clase. Mi pregunta es la siguiente.
Puedo hacer la Asignacion de DATA asi deacuerdo al codigo adjunto me da error en DATA a
METHOD ASINDATA() CLASS TApp16
Local a,b,i
For i = 1 to oRecordSet[nRecordSet]:Count()
a:="M_"+oRecordSet[nRecordSet]:Fields(i-1):Name
DATA a
Next
RETURN( Self )
CLASS TApp16
DATA oGet, oBtn, aCols3, m1, aArray, aContl, MatValid, regdatos,reggetd AS ARRAY
DATA cSistema, cSystema, cCopyright,cAtencion AS CHARACTER
DATA oBrw,oSay1,oSay2,oSay3
DATA g_status
DATA lExit, x_status, Tierror AS LOGICAL INIT FALSE
METHOD NEW() CONSTRUCTOR
METHOD OPEN()
METHOD ASINDATA()
METHOD CLOSE()
METHOD LOAD()
METHOD SAVE()
METHOD ANULA()
METHOD END()
ENDCLASS
METHOD ASINDATA() CLASS TApp16
Local a,b,i
For i = 1 to oRecordSet[nRecordSet]:Count()
a:="M_"+oRecordSet[nRecordSet]:Fields(i-1):Name
DATA a
Next
RETURN( Self )
METHOD New() CLASS TApp16
Local tmenu,t2007,tmepos,taltu,tanch,tpmen,oTipmod
::oGet := { Nil,Nil,Nil,Nil,Nil,Nil,Nil }
::oBtn := { Nil,Nil,Nil,Nil,Nil,Nil,Nil,Nil }
::aCols3:= {8}
::regdatos:= { Nil,Nil,Nil }
::reggetd := { Nil,Nil,Nil }
::aArray:= {}
::m1 := { Nil,Nil,Nil,Nil,Nil,Nil,Nil,Nil }
RETURN( Self )