CLASS TTABLEDATA
Publicado: Lun Abr 26, 2021 2:23 am
				por Cristobal
				Datatable control
			► 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