SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
LOOP AT LT_BDC.
MOVE-CORRESPONDING LT_BDC TO ADDRESS.
MOVE-CORRESPONDING LT_BDC TO LOGONDATA.
MOVE-CORRESPONDING LT_BDC TO PARAMETER1.
APPEND PARAMETER1 TO PARAMETER.
CALL FUNCTION 'BAPI_USER_CREATE1'
EXPORTING
USERNAME = LT_BDC-USERNAME
* NAME_IN =
LOGONDATA = LOGONDATA
PASSWORD = LT_BDC-PASSWORD
* DEFAULTS =
ADDRESS = ADDRESS
* COMPANY =
* SNC =
* REF_USER =
ALIAS = LT_BDC-ALIAS
* EX_ADDRESS =
* UCLASS =
* FORCE_SYSTEM_ASSIGNMENT =
* SELF_REGISTER = ' '
* TECH_USER =
TABLES
PARAMETER = PARAMETER
RETURN = RETURN.
* ADDTEL =
* ADDFAX =
* ADDTTX =
* ADDTLX =
* ADDSMTP =
* ADDRML =
* ADDX400 =
* ADDRFC =
* ADDPRT =
* ADDSSF =
* ADDURI =
* ADDPAG =
* ADDCOMREM =
* GROUPS =
* PARAMETER1 =
* EXTIDHEAD =
* EXTIDPART =
.
LOOP AT RETURN.
IF RETURN-TYPE <> 'E'.
P_NAMEIN = LT_BDC-USERNAME.
CALL FUNCTION 'BAPI_USER_PROFILES_ASSIGN'
EXPORTING
USERNAME = P_NAMEIN
TABLES
PROFILES = T_PROF
RETURN = T_RETURN.
ENDIF.
ENDLOOP.
LOOP AT RETURN.
WRITE: / RETURN-MESSAGE.
ENDLOOP.
ENDLOOP.
阅读(2178) | 评论(0) | 转发(0) |
