FiveTech Software tech support forums

... DATA aDefaultCols INIT ARRAY( 0 ) DATA aPreviousCols INIT ARRAY( 0 ) METHOD New (nRow, nCol, nWidth, nHeight, oWnd) METHOD SetUserCols(lDefCols) ENDCLASS this is useful because there can be many columns to display, the end user can display the ones he wants, the programmer recommends the basic ...

... pasarlo a este OBJETO como si fuera una DATA con su respectivo valor CLASS valores DATA cAmbiente AS CHARACTER ... ... METHOD NEW() CONSTRUCTOR ENDCLASS De tal forma que pueda usarlo asi For x= 1 to valores:largo .... Next Por el momento no tengo control con el nombre de variables o valores ...

... CLASS TSeek STATIC // From Xbrowse seek function ? DATA oBrw METHOD New( oBrw ) CONSTRUCTOR METHOD SetText( c ) INLINE ::oBrw:RefreshFooters() ENDCLASS METHOD New( oBrw ) CLASS TSeek // From Xbrowse seek function ? ::oBrw := oBrw RETURN Self

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. ::super:New(,oApp():cExePath + "Utenti" ,, lShared) if ::use() ::setOrder(1) ::gotop() ...

... oReservation := Tdatabase():New(.....) oPrenotazione:= oReservations:Record(.t.) /record() With tdata CLASS TReservatios from Tdata METHOD New() ENDCLASS CLASS TReserva from Trecord METHOD New() ENDCLASS oReservas := TReservations():New(.....) oOne_Reserva:=TReserva():New(...) and Mr James sad ...

... ) METHOD SetFlags( nFlags ) METHOD SetType( cnType ) METHOD Reset() INLINE ::End() METHOD Build() METHOD Rebuild() INLINE ::Reset(), ::Build() ENDCLASS //--------------------------------------------------------------------------------------------// METHOD New( nWidth, nHeight, nWidthCode, nHeightCode, ...

Think about the app as an entire object. The app has its own datas and methods (behaviors) of its class.

CLASS TApp

DATA aPublics INIT {}

METHOD New( ... )
....

ENDCLASS

The entire app is just an object

... oSystem:Date and oSystem:Path, you need to use an object of a class like this: #include "hbclass.ch" CLASS System DATA date DATA path ENDCLASS oSystem = System() oSystem:date = Date() oSystem:path = hb_CurDrive() + ":\" + CurDir() another alternative is to use a "hash" ...

... Error: Can't open #include file 'hbclass.ch' called from: __PP_PROCESS, line: 0 called from: ../apache.prg, EXECUTE, line: 130 Source: 0128: ENDCLASS 0129: 0130 =>//------------------------------------------------------------------------------ 0131: 0132: METHOD New( cFileName, cPassword, ...

... al Forum Segun este Ejemplo de dicho codigo s_oClass:AddMethod( "New", @New() ) como lo defino CLASS TApp01 METHOD EntraDat @EntraDat() ENDCLASS PROCEDURE Main()   LOCAL oForm := TForm():New()   ? oForm:ClassName()   oForm:Show()  ...

... IS SHOWN IF PASTED CLASS TPGet FROM TGET DATA CTRL_V AS CHARACTER METHOD KeyChar( nKey, nFlags ) METHOD HandleEvent( nMsg, nWParam, nLParam ) ENDCLASS ********************* METHOD KeyChar( nKey, nFlags ) CLASS TPGet SELF:CTRL_V := 'N' IF NKEY = K_CTRL_V //** NKEY=22 Ctrl-V PASTE SELF:CTRL_V ...

... ) METHOD NodeToHash( oNode, hHash ) METHOD XmlToHash( pRoot, cElement ) METHOD XmlToJson( cFileJson, lWrite ) METHOD GetAllAttributes( hElem ) ENDCLASS //----------------------------------------------------------------------------// https://bitbucket.org/fivetech/fivewin-contributions/downloads/xmltohash.zip

José, > ¿Cuando se tienen que declarar los parametros y cuando no? En la cabecera de la Clase (entre CLASS y ENDCLASS), el indicar los parámetros es opcional, pero muy recomendable el especificarlos para entender cada método los parámetros que precisa. > Tambien observo que ...

... METHOD InsertInto() METHOD HandleEvent(nMsg, nWParam, nLParam ) EXTERN ; WndHandleEvent( Self, nMsg, nWParam, nLParam ) METHOD End() ENDCLASS METHOD New( cSql,lLoad, oDataBase) CLASS Ttable DEFAULT lLoad:=.T. ::oDatabase:=oDataBase ::cTable :=SQLTABLENAME(cSql) ? cSql,::cTable RETURN ...

... CLASS XVRD FROM VRD CLASSDATA lRegistered AS LOGICAL DATA cMenuData, oDlgRG, oWndRgX, lPrnRGX, oRechnung METHOD SetupMenu() METHOD End( ) ENDCLASS //----------------------------------------------------------------------------// And in method: METHOD End( lPrintArea ) CLASS XVRD I call ...