FiveTech Software tech support forums

... display it in TCBrowse. I played around with setting oBrw:cAlias := "ARRAY" but get no data. Not sure how to set the bGoTop, bGoBottom, bSkip, bLogicLen blocks. For now I am creating a dynamic recordset from the json object, but I feel like it is an extra step. Thanks, again...

...  oRep:bStartLine := { || oRep:lShadow := (oRep:nCounter % 2 != 0)  }    // oReport:bSkip := {|| ( oRs:SKIP(), IF(oRep:nCounter % 2 = 0, oRep:lShadow := .F., oRep:lShadow := .T. ) ) }   oRep:bPostEnd   := { || oRep:Say( 1, ...

...  oRep:bStartLine := { || oRep:lShadow := (oRep:nCounter % 2 != 0)  }    // oReport:bSkip := {|| ( oRs:SKIP(), IF(oRep:nCounter % 2 = 0, oRep:lShadow := .F., oRep:lShadow := .T. ) ) }   oRep:bPostEnd   := { || oRep:Say( 1, ...

...  oRep:bStartLine := { || oRep:lShadow := (oRep:nCounter % 2 != 0)  }    // oReport:bSkip := {|| ( oRs:SKIP(), IF(oRep:nCounter % 2 = 0, oRep:lShadow := .F., oRep:lShadow := .T. ) ) }   oRep:bPostEnd   := { || oRep:Say( ...

... have simple and not double lines, a test on the left and the date and page number/pages on the right bSetUp := < |oRep, Brw, n | if n == 2 oRep:bSkip := {|| (IF(!oDbf:Eof(),oDbf:Skip(),nil),; IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} return nil endif return 2 > oBrw:Report("List", ...

Silvio: En el metodo Report de Xbrowse, oRep:bSkip lo sobreescribe con esto: if Len( ::aSelected ) > If( ::lMultiSelect, 1, 0 )       Eval( ::bBookMark, ::aSelected[ 1 ] )       nRows        := Len( ::aSelected ...

Silvio: En el metodo Report de Xbrowse, oRep:bSkip lo sobreescribe con esto: if Len( ::aSelected ) > If( ::lMultiSelect, 1, 0 )       Eval( ::bBookMark, ::aSelected[ 1 ] )      ...

... < |oRep, Brw, n | bImage := {|oRep| oRep:SayBitmap(0.5, 7, cLogo)} bStart := {|oRep| oRep:bStartPage := bImage} bInit := {|| oBrw:oDbf:GoTop()} bSkip := {|| (IF(!oBrw:oDbf:Eof(),oBrw:oDbf:Skip(),nil),IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} if n == 2 oRep:oShdBrush ...

... ofont1 oBrow:bLogicLen = { || oRS1Cli:RecordCount } oBrow:bGoTop = { || oRS1Cli:MoveFirst() } oBrow:bGoBottom = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle := 2 oBrow:nclrpane := { || iif( ( oRS1Cli:AbsolutePosition ...

... } oBrw:bGoTop := { || nItem := 1 } oBrw:bGoBottom := { || nItem := Len(aAcc_No) } oBrw:SetArray( aAcc_No, aAcc_Desc, aTrn_AmtD, aTrn_AmtC ) oBrw:bSkip := { |nWant, nOld| nOld:=nItem, nItem+=nWant, ; nItem := max( 1, min( nItem, eval( oBrw:bLogicLen ))), nItem - nOld } oBrw:bLDblClick:= {|| W_21AEU(oBrw,nItem,mMode,oDlg)} ...

... oReport:SetTxtColor(CLR_GREEN,4) oReport:SetPenColor(CLR_HBLUE) oReport:SetShdColor(CLR_YELLOW) oReport:bInit := {|| oTELE0060:GoTop() } oReport:bSkip := {|| oTELE0060:Skip() } If EMPTY(vEntregador) ACTIVATE REPORT oReport ; ON STARTPAGE StartPage(oReport); FOR oTELE0060:A_STATUS60 # 'C' .AND. ...

... 2. Please do no use bStrData. 3. You see xbrowse builds your picture formats correctly. 4. Please NEVER directly assign to datas like bGoTop, bSkip, etc. Till you become a GREAT EXPERT of XBrowse, please do not touch them. Please let xbrowse create these codeblocks. 5. Please do not mix xbrowse ...

... 2. Please do no use bStrData. 3. You see xbrowse builds your picture formats correctly. 4. Please NEVER directly assign to datas like bGoTop, bSkip, etc. Till you become a GREAT EXPERT of XBrowse, please do not touch them. Please let xbrowse create these codeblocks. 5. Please do not mix xbrowse ...

... REDEFINE LISTBOX olbm FIELDS (oDbf:calias) ->NAPE ID 101; ON DBLCLICK (lacepto:= .t.,odlg:end()) of odlg olbm:setfocus() olbm:bSkip := { | nRecs | odbf:Skipper( nRecs ) } 1-Quite esta parte olbm:bSeek := {|lRet| olbm:DbfSeek(.T.) } oLbm:bkeydown := {|nkey,nflags| iif(nKey = ...

... oDBF1 := TDatabase():New(,"cFilename") oDBF1:use() oDBF2 := TDatabase():New(,"cFilename") oDBF2:use() ... Then use oDBF1:bSkip:= {...} to coordinate movements between two browses. James