[引用]：翱翔云天
176 views
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