FiveTech Software tech support forums

... User" ; OF oDlg oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) ...

... "Add User" oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) ...

... fine. My aim is to detect if datasoruce is a dbf or an Array. How can I detect is an array is the datasource of the Report?. I think I can check bSkip?. In a DBF is always nil. Best regards

... Letras / fondo Verde oBrw:SetArray ( oDlg:aControls ) oBrw:bGotop := { | | n := 1 } oBrw:bGoBottom := { | | n := EVAL ( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant ,; n := MAX ( 1, MIN ( n, EVAL ( oBrw:bLogicLen ) ) ), n - nOld } oBrw:bLogicLen := { | | LEN ( oDlg:aControls ...

Hunter,

First all the files must have fields that will allow you to link them, e.g. partNo. Then open all three files and either use relations or use the oRpt:bSkip codeblock to keep all the files in sync. I use the codeblock and database objects myself.

James

RAO, in xbrowse.prg in methos setmysql change: this -> DEFAULT ::bSkip := {| n | ::oMysql:Skip( n ) } and put this -> DEFAULT ::bSkip := { |n,x| x := ::oMySql:RecNo(), ; ::oMySql:GoTo( Max( 1, Min( ::oMySql:LastRec(), x + IfNil( n, 1 ) ) ) ), ; ::oMySql:RecNo() ...

RAO, in xbrowse.prg in methos setmysql change: this -> DEFAULT ::bSkip := {| n | ::oMysql:Skip( n ) } and put this -> DEFAULT ::bSkip := { |n,x| x := ::oMySql:RecNo(), ; ::oMySql:GoTo( Max( 1, Min( ::oMySql:LastRec(), x + IfNil( n, 1 ) ) ) ), ; ::oMySql:RecNo() ...

... := oServer:Query( cSelect ) DEFINE WINDOW oChild ; TITLE cTitle ; MDICHILD WITH OBJECT oBrw := TXBrowse():New(oChild) :SetMySQL( @oQry, .F. ) :bSkip := { | n | oQry:Skip( n ) } :lFooter := .T. :bKeyCount := { | | oQry:RecCount() } :CreateFromCode() END WITH OBJECT oChild :oClient := oBrw :SetControl( ...

Dear Mr. James, Here's the xBrowse tree I wish to re-filter or by :bskip with condition http://i208.photobucket.com/albums/bb82/fraxzi/COA.png Say... I want to see items with only string 'Telephone'... user should only see items with that ...

... otree .. the tree created was rubbish... it doesnt meet criteria. Well, I have to wonder, if filtering the database didn't work, then how is using bSkip going to solve the problem? I think perhaps that your filter was incorrect. You still need a working filter to use bSkip. Regards, James Dear ...

... otree .. the tree created was rubbish... it doesnt meet criteria. Well, I have to wonder, if filtering the database didn't work, then how is using bSkip going to solve the problem? I think perhaps that your filter was incorrect. You still need a working filter to use bSkip. Regards, James

Dear All, MR. RAO,


Maybe a skipper to :bSkip ?? skip when TreeItem:Cargo <> cCondition?


Anyone with sample?


Kind Regards,
Frances

... "nacionalidad" ):Value // Deberia ir aqui : GROUP ON oRsRpt:Fields( "dias" ):Value END REPORT if oRpt:lCreated oRpt:bSkip := { || ( nDesde++, oRs:MoveNext() ) } endif ACTIVATE REPORT oRpt WHILE nDesde <= nHasta o bien puedes hacerlo desde el ACTIVATE REPORT como ...

... ) UPDATE oLbx:bLogicLen := { || oRs:RecordCount } oLbx:bGoTop := { || oRs:MoveFirst() } oLbx:bGoBottom := { || oRs:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias := "ARRAY" oDlgs:lHelpIcon := .f. ACTIVATE DIALOG oDlgs ............................................. ...

oReport:bSkip := {|| nLine++ , ...... dbf->( DBSKIP() )} This has the same effect of using oRep:nCounter. In the Method Skip(), oRep:nCounter is incremented with every evaluation of oRep:bSkip. By having nLine++ in the skip ...