vielleicht ist es ja zu trivial, aber mancher Newbie hat mit den "kleinen
Unterschied" beim migieren von Cl*pper nach Xbase++ zu kämpfen.
Im Alaska Newsforum ist eine Anfrage wegen einem "ab und zu crash"
gewesen. Nachdem ich mir den veröffentlichten code angesehen hatte,
die eine DBF per "net_use" öffnen sollte, hab ich mal "meine Net_Use"
angesehen und musste festellen das ich dort einen Unterschied zwischen
Xbase++ / Cl*pper dokumentiert habe :
Code: Alles auswählen
*** snip ***
IF FILE(file_dbf) // does (path+)files exist
DO WHILE m_dauer> 0 // timeout
IF ex_use // Exclusive
#IFDEF __XPP__ // Xbase++
IF lNewAlias // with Aliasname
USE (file_dbf) EXCLUSIVE ALIAS (myalias)
ELSE
USE (file_dbf) EXCLUSIVE
ENDIF
#ELSE // Cl*pper
IF lNewAlias
USE &file_dbf EXCLUSIVE ALIAS &myalias
ELSE
USE &file_dbf EXCLUSIVE
ENDIF
#ENDIF
ELSE // shared
#IFDEF __XPP__ // Xbase++
IF lNewAlias
USE (file_dbf) ALIAS (myalias)
ELSE
USE (file_dbf)
ENDIF
#ELSE // Cl*pper
IF lNewAlias
USE &file_dbf ALIAS &myalias
ELSE
USE &file_dbf
ENDIF
#ENDIF
ENDIF
IF .NOT. NETERR() // Error open DBF ?
DO CASE // set Index
CASE ALIAS() = "ABZU"
SET INDEX TO &ZABZUNROK, &ZABNRDATE, &ZABQNR
...
bekommen sollte, obwohl es unter Cl*pper läuft, der sollte es dann
mal mit () versuchen.
gruss by OHR
Jimmy