Project Record: RCM Program–Change Delivery Date in VMS Action

The program development processing detail for recording my work.

1: Create table for this program

2: Create table maintainance view

3. Translation to Chinese version

4. Create T-code for table maintainance

5. Program change:
Delevery Date change function get:
Client 200, vehcle model: -X25C  Action Code: ZO10
According to the ABAP stack, I should check the function module ZSDVELOD_CHECK_DATE

6. Get CCM value:

7. Date caculation
Function Module:
FACTORYDATE_CONVERT_TO_DATE
DATE_CONVERT_TO_FACTORYDATE

8. Modify function for Create new vehicle and Sales Order
Action: ZO10 ZO11 ZO15 ZO16
Add Code:
* Add by bob with TR: LDEK900449
data: ls type BAPICUVAL, ls1 type ZSDCCMG.
data: conf_ls type VLCBAPICU.
if read_ccm = ‘B’.
loop at conf into conf_ls.
READ TABLE CONF_ls-VCUVAL into ls with KEY CHARC = ‘SD_C0000′.
if sy-subrc = 0.
select SINGLE * from ZSDCCMG into ls1 where ZCCMCODE = ls-VALUE.
if sy-subrc = 0.
fdate = fdate + ls1-ZBBAVE_TIME.
endif.
endif.
exit.
endloop.
endif.
* End Add

8. Modify function for Create SO based on existing vehicle
Testing data: 0050000962~0050000971
Action: ZO00 ZO03
Add Code:
* Add by bob with TR LDEK900449
data: ccm_info type ZSDVMSCCM.
data: ccm_cus  type ZSDCCMG.
if not vhead-kunwe is initial.
select SINGLE * from ZSDVMSCCM into ccm_info where VGUID = gui_id.
if sy-subrc = 0.
if ccm_info-ZDATAPRCCM is not INITIAL and ccm_info-ZDATAFINPRCCM is not INITIAL.
days = days + ( ccm_info-ZDATAFINPRCCM – ccm_info-ZDATAPRCCM + 1 ).
else.
select SINGLE * from ZSDCCMG into ccm_cus where ZCCMCODE = ccm_info-ZCCM.
if sy-subrc = 0.
days = days + ccm_cus-ZBBAVE_TIME + ccm_cus-ZTRANSADD_TIME.
endif.
endif.
endif.
endif.
* End add