#include "fivewin.ch"
//XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, "SlNo", lNoModal, lAutoFit )
function main
local uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit, bValid, cSlNo, lNoModal, lAutoFit
//local cCode := "XBrowse( uData , cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )"
// local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )'
local cTmp := ""
local nlencTmp := 0
local cTmp2 := ""
local cLog := ""
cCode := ALLTRIM( cCode )
cTmp := StrToken( cCode, 1, "," )
nlencTmp := len( cTmp )
cTmp2 := ALLTRIM( SUBSTR( cCode, ( nlencTmp + 2 ) ) )
uData := SUBSTR( cTmp, 8 )
uData := STRTRAN( uData, "(", "" )
cLog := "uData: " + uData + CRLF + "remaining: " + cTmp2
if cTmp2 = '"' // to do .or. cTmp2 = "'"
cTmp := ALLTRIM( StrToken( cTmp2, 1, '"' ) )
cTitle := cTmp
nlencTmp := len( cTmp )
cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
cTmp2 := SUBSTR( cTmp2, 2 )
else
cTmp := StrToken( cTmp2, 1, "," )
cTitle := cTmp
nlencTmp := len( cTmp )
cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
endif
cTmp := StrToken( cTmp2, 1, "," )
lAutoSort := cTmp
nlencTmp := len( cTmp )
cTmp2 := ALLTRIM( SUBSTR( cTmp2, ( nlencTmp + 2 ) ) )
cLog := "uData: " + uData + CRLF +;
"cTitle: " + cTitle + CRLF +;
"lAutoSort: " + lAutoSort + CRLF +;
CRLF + "remaining: " + cTmp2
MsgInfo( cLog )
return