I wanted to know if in Tdatabase I can do this
sample
CLASS TUtenti from TDataBase
METHOD New()
METHOD ToArray()
ENDCLASS
METHOD New( lShared ) CLASS TUtenti
Default lShared := .t.
::New(,oApp():cExePath + "Utenti" ,, lShared)
if ::use()
::setOrder(1)
::gotop()
endif
RETURN Self
METHOD ToArray(aTmp) CLASS TUtenti
if ::use()
aTmp:=ARRAYTODBF()
endif
RETURN aTmp
because I have some function I use often on all procedures and I ask I can insert on each class ,
but for a sample I not Know How save the field to array with arraytodbf until nos I used fw_arratodbf ( exclusive)
ANY SOLUTION ?
sample
CLASS TUtenti from TDataBase
METHOD New()
METHOD ToArray()
ENDCLASS
METHOD New( lShared ) CLASS TUtenti
Default lShared := .t.
::New(,oApp():cExePath + "Utenti" ,, lShared)
if ::use()
::setOrder(1)
::gotop()
endif
RETURN Self
METHOD ToArray(aTmp) CLASS TUtenti
if ::use()
aTmp:=ARRAYTODBF()
endif
RETURN aTmp
because I have some function I use often on all procedures and I ask I can insert on each class ,
but for a sample I not Know How save the field to array with arraytodbf until nos I used fw_arratodbf ( exclusive)
ANY SOLUTION ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com