FiveTech Software tech support forums

Antonio, It's no possible because I made local nOrder := CL->(OrdNumber()) DEFINE DIALOG oDlg ..... if nOrder == 1 @ 0,7 SAY i18n( "Introdurre il cliente'" ) OF oDlg @ 1,2 SAY i18n( "Cliente :" ) OF oDlg cGet := space(40) ...

oLotto:= TDatabase():Open( , cDir+"Lotto", "DBFCDX", .T. )
oLotto:setorder(nOrder)
oLotto:gotop()
oLotto:lbuffer:=.f.

... structures of the databases that Silvio was using so this gives the option to set each one differently. Granted this could also be done by passing nOrder to the superclass, but it is still harder to grasp if a new user can't visualize exactly what is happening. All the ways are workable solutions.

... :nHeadBmpNo := 1 :nHeadBmpAlign := AL_RIGHT :bLClickHeader :={ ||(CuSel_Index(1,"CU"), CU->(DbSetOrder(1),nOrder:=1) ) } END END IF I insert :AddBitmap( { "c:\work\fwh\bitmaps\16x16\up2.bmp", "c:\work\fwh\bitmaps\16x16\down2.bmp" } ) ...

... then the archive must be opened in an exclusive way to use dbzap. I thought there was a less risky method like: change the position and save the Norder field with the new position For n= 1 to Len(aArray) aArray[n][3]:=n //FIELD ELORDINE next SELECT EL DbZap() EL->( FW_ArrayToDBF( aArray, "ELNUMERO,ELNOME,ELORDINE,ELCOLORE,ELATTIVO,ELIMGLIB,ELIMGOCC,ELIMGALT,ELLOCK" ...

... "Workarea ==>  " + DBF() + "       Index ==>  " + (cFileName)->(INDEXKEY(nOrder)) + ;      "       Order ==>  " + ALLTRIM( STR( (cFileName)->(INDEXORD()) ) ) ...

... the Col-position at runtime On startup it is OK There is a RUNTIME-change of < FILE + INDEX > ON INIT :nRowSel := nGoRecord :D :nColSel := nOrder :D :SetGroupHeader( "Workarea ==> " + DBF() + " Index ==> " + (cFileName)->(INDEXKEY(nOrder)) + ; " Order ==> ...

... DBOrderInfo(<nDefine>,[<cIndexFile>],[<nOrder>|<cIndexName>],[<xNewSetting>])->xCurrentSetting DBPack()->Nil DBRecall()->Nil DBRecordInfo(<nDefine>,[<nRecord>],[<xNewSetting>])->xOldSetting ...

... from the server altering the ORDER BY clause. This may have performance implications on slow and remote connections. oRs:aSortSecs --> { nSecs, nOrder } // time taken for last sort. METHODS: OrdSetFocus( cFieldName/nFieldNo ) --> cOrder OrdSetFocus( 0 ) -- "" // Restores natural ...

Mr Rao I made @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ; OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; ITEMS "Tutti","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z" ...

I tried : @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ; OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; ITEMS "Tutti","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z" ...

Sorry Mr rao , I made @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ; OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; ITEMS "Tutti","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z" ...

... ADD COLUMN command in xbrowse.ch. If you like, you may correct. in xbrowse.ch, line 196 is now CODE: SELECT ALL EXPAND VIEW <.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ; The two commas at the end of the line should be made as one comma ...

... := 2 BTW take care (if you use ADD oCol) xbrowse.ch have BUG in xbrowse.ch, line 196 is now CODE: SELECT ALL EXPAND VIEW <.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ; The two commas at the end of the line should be made as one comma ...

... 13.01 & 13.02 for applications ....higher for testing I have seen now BUG in the ADD COLUMN command in xbrowse.ch line 196 <.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ; and changed in to <.lite.>, <nOrder>, <nAt>, <nBmpElem>, ...