vbfa_tab = l_itab_vbfa_temp exceptions no_vbfa = 1 no_vbuk_found = 2 others = 3. BAPI_OUTB_DELIVERY_CREATE_STOSTO创建OBD BAPI_TRANSACTION_COMMIT 提交更改 BAPI_TRANSACTION_ROLLBACK 回滚 BAPI_OUTB_DELIVERY_CREATE_SLS SO创建OBD ENQUEUE_EVVBLKE OBD上锁 DEQUEUE_EVVBLKE OBD解锁 WS_DELIVERY_U...
Solved: The delivery picking program is customizing. I used FM 'ENQUEUE_EVVBLKE' in order to lock the delivery no. before picking. I also used FM 'DEQUEUE_EVVBLKE' after
100 * Lock delivery after update 101 CALL FUNCTION 'ENQUEUE_EVVBLKE' 102 EXPORTING 103 VBELN = T_DELIVERY_ITEMS-VBELN 104 EXCEPTIONS 105 FOREIGN_LOCK = 1 106 SYSTEM_FAILURE = 2. 107 108 IF SY-SUBRC <> 0. 109 RAISE LOCK_AFTER_UPDATE_FAILED. 110 ENDIF. 111 112 ENDFUNCTION. Reply ...
"DELETE LOCKS CALL FUNCTION 'DEQUEUE_EVVBAKE'. CALL FUNCTION 'DEQUEUE_EVVBLKE'. CALL FUNCTION 'DEQUEUE_EVVBRKE'. "Call the reorg. with its own locks / unlocks PERFORM fill_joblist USING variant1 user '1'. "Set newly the locks CALL FUNCTION 'ENQUEUE_EVVBAKE' EXPORTING vbeln = con_e...
FORMfrm_lock_deliveryUSINGp_delivery.DATA: lv_timeTYPEp DECIMALS2VALUE'0.50'.CHECKp_deliveryISNOTINITIAL.DO50TIMES.CALLFUNCTION'ENQUEUE_EVVBLKE'EXPORTINGvbeln=p_deliveryEXCEPTIONSforeign_lock=1system_failure=2OTHERS=3.IFsy-subrc <>0.*Implement suitable error handling hereENDIF.IFsy-subrcEQ0.CALLFU...
FORMfrm_lock_deliveryUSINGp_delivery.DATA: lv_timeTYPEp DECIMALS2VALUE'0.50'.CHECKp_deliveryISNOTINITIAL.DO50TIMES.CALLFUNCTION'ENQUEUE_EVVBLKE'EXPORTINGvbeln=p_deliveryEXCEPTIONSforeign_lock=1system_failure=2OTHERS=3.IFsy-subrc <>0.*Implement suitable error handling hereENDIF.IFsy-subrcEQ0.CALLFU...
LV_TIMETYPEP DECIMALS2VALUE'0.50'.CHECKP_DELIVERYISNOTINITIAL.DO10TIMES.CALLFUNCTION'ENQUEUE_EVVBLKE'EXPORTINGVBELN=P_DELIVERYEXCEPTIONSFOREIGN_LOCK=1SYSTEM_FAILURE=2OTHERS=3.IFSY-SUBRC <>0.*Implement suitable error handling hereENDIF.IFSY-SUBRCEQ0.CALLFUNCTION'DEQUEUE_EVVBLKE'EXPORTINGMODE_LIKP='...