Project Record: RCM Program–Change Delivery Date in VMS Action[转载]

[引用]：翱翔云天

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 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

引用：http://www.abaptech.com/?p=481