I RECOMPILED MINE APPLICATION
IT use the restore state command of Xbrowse
LOCAL cState := GetPvProfString(INIBROWSE, "VdsState","", oApp():cIniFile)
...
oApp():oGrid := TXBrWin7():New( oApp():oDlg )
oApp():oGrid:nTop := 00
oApp():oGrid:nLeft := nSplit+2
oApp():oGrid:nBottom := ::nGridBottom
oApp():oGrid:nRight := ::nGridRight
all cols here
oApp():oGrid:SetRDD()
oApp():oGrid:CreateFromCode()
oApp():oGrid:nRowHeight := 21
oApp():oGrid:RestoreState( cState )
INITIAL the state was symply and all people can read it
[VDS]
sociState=40;1:50:Codice:S;2:25::S;3:360:Nome/Ragione Sociale:S;4:100:Ult Acquisto:S;5:100:Sdo. Attuale:S;6:100:Tipo:S
SociOrder=1
SociRecno=63
SociSplit=102.00
NOW the state is a string code no good for me
[VDS]
SociState=XSS:4165010500414F000200430D005265417272616E6765436F6C73413A000D004E0100314E0100324E0100334E0100344E0100354E0100364E0100374E0100384E0100394E020031304E020031314E020031324E020031334115000200430B005F6E526F774865696768744E0200353441570002004308005F6E5769647468734147000D004E020038304E020032354E03003235304E020034304E020033304E020035374E020034304E020034304E020034304E020039304E03003135304E03003230304E0300313030415F0002004307005F6C48696465734150000D004C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E4C03002E462E413A0002004309005F63477270486472734129000D00550000550000550000550000550000550000550000550000550000550000550000550000550000
SociOrder=7
SociRecno=7
SociSplit=157.00
but it make error or I not undesrstood How it must run
here the ERROR when I reopen the archive
- Code: Select all Expand view
- Application
===========
Path and name: C:\WORK\PRG\VDSWIN\FSDI.Exe (32 bits)
Size: 2,897,920 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 12-02-2011, 13:29:07
Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = U
[ 2] = N 1
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWIN7:RESTORESTATE(5421)
Called from: => AEVAL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWIN7:RESTORESTATE(5421)
Variables in use
- Code: Select all Expand view
- ================
Procedure Type Value
==========================
(b)TXBRWIN7:RESTORESTATE
Param 1: U
Param 2: N 4
Local 1: U
Local 2: U
Local 3: O Class: TXBRWIN7
Local 4: U
Local 5: N 1
Local 6: U
Local 7: U
AEVAL
Param 1: A Len: 5
Param 2: B {|| ... }
TXBRWIN7:RESTORESTATE
Param 1: C "XSS:415D0605004194010200430D005265417272616E6765436F6C73417F014E004E0100314E0100324E0100334E0100344E0100354E0100364E0100374E0100384E0100394E020031304E020031314E020031324E020031334E020031344E020031354E020031364E020031374E020031384E020031394E020032304E020032314E020032324E020032334E020032344E020032354E020032364E020032374E020032384E020032394E020033304E020033314E020033324E020033334E020033344E020033354E020033364E020033374E020033384E020033394E020034304E020034314E020034324E020034334E020034344E020034354E020034364E020034374E020034384E020034394E020035304E020035314E020035324E020035334E020035344E020035354E020035364E020035374E020035384E020035394E020036304E020036314E020036324E020036334E020036344E020036354E020036364E020036374E020036384E020036394E020037304E020037314E020037324E020037334E020037344E020037354E020037364E020037374E020037384115000200430B005F6E526F774865696768744E0200323141C10102004308005F6E57696474687341B1014E004E020034374E03003238364E020037364E020037364E020033314E020034324E020037364E03003238364E03003238364E020036"
Local 1: O Class: TXBRWIN7
Local 2: A Len: 5
VDS110
Local 1: U
Local 2: U
Local 3: C "XSS:415D0605004194010200430D005265417272616E6765436F6C73417F014E004E0100314E0100324E0100334E0100344E0100354E0100364E0100374E0100384E0100394E020031304E020031314E020031324E020031334E020031344E020031354E020031364E020031374E020031384E020031394E020032304E020032314E020032324E020032334E020032344E020032354E020032364E020032374E020032384E020032394E020033304E020033314E020033324E020033334E020033344E020033354E020033364E020033374E020033384E020033394E020034304E020034314E020034324E020034334E020034344E020034354E020034364E020034374E020034384E020034394E020035304E020035314E020035324E020035334E020035344E020035354E020035364E020035374E020035384E020035394E020036304E020036314E020036324E020036334E020036344E020036354E020036364E020036374E020036384E020036394E020037304E020037314E020037324E020037334E020037344E020037354E020037364E020037374E020037384115000200430B005F6E526F774865696768744E0200323141C10102004308005F6E57696474687341B1014E004E020034374E03003238364E020037364E020037364E020033314E020034324E020037364E03003238364E03003238364E020036"
Local 4: N 1
Local 5: N 1
Local 6: N 102.00
Local 7: U
Local 8: U
Local 9: U
Local 10: O Class: TBRUSH
Local 11: A Len: 8
Local 12: A Len: 28
Local 13: A Len: 8
Local 14: O Class: TMENUITEM
Local 15: O Class: TBTNBMP
(b)PERFORM
PERFORM
Param 1: C "VDS110()"
Param 2: O Class: TMENUITEM
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: C "VDS110"
Local 3: C "Gestione anagrafica volontari "
Local 4: B {|| ... }
Local 5: U
Local 6: C "MODULI"
Local 7: C "PERMESSI"
Local 8: U
Local 9: U
Local 10: U
Local 11: U
(b)TAPPLICATION:BUILDBTNBAR
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 34
Param 2: N 18
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2228242
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 2228242
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 2228242
Param 2: N 514
Param 3: N 0
Param 4: N 2228242
Param 5: N 4
Local 1: O Class: TBTNBMP
WINRUN
Param 1: N 1115536
TWINDOW:ACTIVATE
Param 1: C "NORMAL"
Param 2: U
Param 3: U
Param 4: U
Param 5: B {|| ... }
Param 6: B {|| ... }
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
TAPPLICATION:ACTIVATE
Local 1: O Class: TAPPLICATION
MAIN
Can I have a solution ?
Or How I can to re- insert the old code ( restorestate and savestate) ?
