// This include reads all user parameters from the SAP database // and stores them into the variables V[user_parameter_XXX] where // XXX is the parameter id (e.g. "WRK" for "Plant", see transaction SU01) // // // It requires GuiXT 2004 Q1 2 or above, because of the use of data dictionary structures // For previous versions, you can use fixed offsets instead of symbolic fields: // // (BAPIPARAM-PARID) -> (1-20) // (BAPIPARAM-PARVA) -> (21-38) // // Usage: // // if not V[user_parameters_read=X] // include "read_user_parameters.txt" // endif // // Indicate: parameters read Set V[user_parameters_read] "X" // Call Bapi to read user parameters Call "BAPI_USER_GET_DETAIL" in.USERNAME="&V[_user]" table.PARAMETER=userparams Set V[i] 1 label read_user_parameters_get_line CopyText toString="userparams_wa" fromText="userparams" line=&V[i] if Q[OK] Set V[user_parameter_&V[userparams_wa](BAPIPARAM-PARID)] "&V[userparams_wa](BAPIPARAM-PARVA)" Set V[i] &V[i] + 1 goto read_user_parameters_get_line endif endif