Project record: RCM Program-change delivery date in VMS action [Reproduced]

[Reference]: soaring clouds

176 views

The program development processing detail for recording my work.

1: Create Table for this program

Table definitionnugg_zsdccmg.nugg

 

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 shocould 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 _ c000000 '.
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 the ccm_info-ZDATAPRCCM is not initial and the 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

Reference: http://www.abaptech.com /? P = 481