► Mostrar Spoiler
Código: Seleccionar todo
CLASS TTableData FROM TBForm
DATA oDiv
DATA oRow
DATA oCol
DATA cTitle
DATA lFullPaint INIT .T.
DATA cIdTable INIT ""
DATA cDomTable INIT ""
DATA lLengthChange INIT .T.
DATA lFiltering INIT .T.
DATA lPagination INIT .T.
DATA lProcessing INIT .T.
DATA lTable INIT .T.
DATA lInfo INIT .T.
DATA lOrdering INIT .T.
DATA lScrollCollapse INIT .F.
DATA lInfo INIT .T.
DATA lPaging INIT .T.
DATA lSearching INIT .T.
DATA lServerSide INIT .F.
DATA aButtons INIT {}
DATA nPageLenght
// Tabulator
DATA lAutoColumns INIT .F.
DATA bHeaders
DATA bFooters
DATA bColumns
DATA nTypeRdd INIT 0
DATA uSource
DATA uSourceRef
DATA uParam
DATA aColNums INIT {}
DATA aColNumsRef INIT {}
DATA nNumColKey //INIT -1
DATA nPage INIT 1
DATA nAtCol INIT 0
DATA nAtRow INIT 0
DATA nAtPos INIT 0
DATA nWTable INIT "100%"
DATA nHTable INIT "100%"
DATA nColorT
DATA nColorB
DATA nRows
DATA nCols // En pantalla filas y columnas
METHOD New( lCompact, oDoc, cP, uAction ) CONSTRUCTOR
METHOD Activate( cClass, cId, lAdd )
METHOD CreateDivRow( cClass, cId, lAdd, nInd )
METHOD CreateDivTable( cClass, cId, lAdd, nInd )
METHOD SetDomDataTable()
METHOD SetTable( oMain, oP, nInd, lAdd, lTabul )
METHOD SetSourceTable( cType, uSource, uParam, aCols, nKey, uSource1, aCols1 )
METHOD SetScriptDataTable( cMeth, uSource, uParam, aCols, cDom, uSource1, aCols1 )
METHOD SetScriptTabulator( cMeth, uSource, uParam, aCols, cDom, uSource1, aCols1 )
METHOD DoubleClickScript( lAjax )
METHOD SetPageLenght( nP )
METHOD SetOrdering( lOnOff )
METHOD SetScrollCollapse( lOnOff )
METHOD SetAtCol( nC )
METHOD SetAtRow( nR )
METHOD SetAtPos( nP )
METHOD SetColorTable( nClrT, nClrB )
METHOD SetHeightTable( nH, cUni )
METHOD SetInfo( lOnOff )
METHOD SetPage( nP )
METHOD SetPaging( lOnOff )
METHOD SetSearching( lOnOff )
METHOD SetServerSide( lOnOff )
METHOD SetSourceTable( uSource )
METHOD SetTableFuncs( uHead, uBody, uFoot )
METHOD SetWidthTable( nW, cUni )
METHOD TableDesign()
ENDCLASS