ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 工艺路线当日创建或修改自动分配物料组件

工艺路线当日创建或修改自动分配物料组件

Linux操作系统 作者:弋孤秋 时间:2014-01-24 13:13:03 0 删除 编辑

*&---------------------------------------------------------------------*
*& Report  Z_CA01_BACKGROUND
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

工艺路线当日如果有新建或修改,将会重新分配物料.

程序定义成了后台作业.

前提是BOM中每个物都维护的排序字符串,排序字符串和工序的简称相同.作为自动分配组件的原则

report  z_ca01_background.

*AEDAT          2010.11.24
*AEUZEIT        15:10:11
*今日创建修改的工艺路线(PLKZ)
data: begin of i_matnr occurs 0,
      werks like mapl-werks,
      matnr like mapl-matnr,
      end of i_matnr.

 data subrc type sy-subrc.
data messtab like  bdcmsgcoll occurs 0.

data: matnr_001 type bdcdata-fval.
data: werks_002 type bdcdata-fval.
data: p_model type c.
data: w_msg(200) type c.


parameters  p_model1 type c radiobutton group r1.
parameters  p_model2 type c radiobutton group r1.
parameters  p_tag type c as checkbox.

 

if p_model1 eq 'X'.
  p_model = 'N'.
else.
  p_model = 'A'.

endif.


select distinct werks matnr
into corresponding fields of table i_matnr
from mapl
inner join plkz  on  mapl~plnnr = plkz~plnnr
where plkz~aedat eq sy-datum and loekz eq space and mapl~plnty = 'N'.

 

  loop at i_matnr.

 

  matnr_001 = i_matnr-matnr.

  werks_002 = i_matnr-werks.

 

  call function 'ZCA02'
   exporting
*   CTU                 = 'X'
   mode                = p_model
*   UPDATE              = 'L'
*   GROUP               = GROUP
*   USER                = USER
*   KEEP                = KEEP
*   HOLDDATE            = HOLDDATE
*   NODATA              = '/'
     matnr_001           = matnr_001
     werks_002           = werks_002
*   PLNNR_003           = '10008203'
*   STTAG_004           = '2010.11.08'
*   PLNAL_005           = ''
*   ENTRY_ACT_006       = '1'
*   SORTF_007           = 'X'
*   SORTF_008           = 'ai'
*   VORNR_009           = '0010'
*   PLNFL_010           = '0'
*   SORTF_011           = 'X'
*   SORTF_012           = 'dip'
*   VORNR_013           = '0020'
*   PLNFL_014           = '0'
   p_tag = p_tag
   importing
     subrc               = subrc
 tables
   messtab             = messtab
            .

endloop.

function zca02.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(CTU) LIKE  APQI-PUTACTIVE DEFAULT 'X'
*"     VALUE(MODE) LIKE  APQI-PUTACTIVE DEFAULT 'N'
*"     VALUE(UPDATE) LIKE  APQI-PUTACTIVE DEFAULT 'L'
*"     VALUE(GROUP) LIKE  APQI-GROUPID OPTIONAL
*"     VALUE(USER) LIKE  APQI-USERID OPTIONAL
*"     VALUE(KEEP) LIKE  APQI-QERASE OPTIONAL
*"     VALUE(HOLDDATE) LIKE  APQI-STARTDATE OPTIONAL
*"     VALUE(NODATA) LIKE  APQI-PUTACTIVE DEFAULT '/'
*"     VALUE(MATNR_001) LIKE  BDCDATA-FVAL DEFAULT '120201355'
*"     VALUE(WERKS_002) LIKE  BDCDATA-FVAL DEFAULT '1000'
*"     VALUE(PLNNR_003) LIKE  BDCDATA-FVAL DEFAULT '10008203'
*"     VALUE(STTAG_004) LIKE  BDCDATA-FVAL DEFAULT '2010.11.08'
*"     VALUE(PLNAL_005) LIKE  BDCDATA-FVAL DEFAULT ''
*"     VALUE(ENTRY_ACT_006) LIKE  BDCDATA-FVAL DEFAULT '1'
*"     VALUE(SORTF_007) LIKE  BDCDATA-FVAL DEFAULT 'X'
*"     VALUE(SORTF_008) LIKE  BDCDATA-FVAL DEFAULT 'ai'
*"     VALUE(VORNR_009) LIKE  BDCDATA-FVAL DEFAULT '0010'
*"     VALUE(PLNFL_010) LIKE  BDCDATA-FVAL DEFAULT '0'
*"     VALUE(SORTF_011) LIKE  BDCDATA-FVAL DEFAULT 'X'
*"     VALUE(SORTF_012) LIKE  BDCDATA-FVAL DEFAULT 'dip'
*"     VALUE(VORNR_013) LIKE  BDCDATA-FVAL DEFAULT '0020'
*"     VALUE(PLNFL_014) LIKE  BDCDATA-FVAL DEFAULT '0'
*"     VALUE(P_TAG) TYPE  C1 OPTIONAL
*"  EXPORTING
*"     VALUE(SUBRC) LIKE  SYST-SUBRC
*"  TABLES
*"      MESSTAB STRUCTURE  BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------

  data wa_messatab like bdcmsgcoll.
  data i_capp_com like table of capp_com with header line.
 data: begin of i_stb occurs 0.
         include structure stpox.
 data: end of i_stb.
 data: l_werks like marc-werks.
 data: wa_zca02_log like zca02_log.

  data: w_msg(200) type c.

 

*定义工序信息,
  data i_opr like table of capp_opr with header line.
  data i_opr_bom like table of capp_opr with header line.

  tables  mapl.
  data: wa_matnr like mara-matnr.

    data: l_matnr like mara-matnr.

 

*查找物料的工序信息放入内标。

  select single * from mapl
  where matnr = matnr_001 and werks = werks_002 and loekz = space.


  call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
    exporting
      input  = mapl-matnr
    importing
      utput = wa_matnr.

  l_werks = werks_002.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = wa_matnr
    importing
      utput = l_matnr.

 


  call function 'CARO_ROUTING_READ'
    exporting
*   DATE_FROM                  = '19000101'
*   DATE_TO                    = '99991231'
      plnty                      = mapl-plnty
      plnnr                      = mapl-plnnr
      plnal                      = mapl-plnal
     matnr                      = l_matnr
*   BUFFER_DEL_FLG             = 'X'
*   DELETE_ALL_CAL_FLG         = 'X'
*   ADAPT_FLG                  = 'X'
*   IV_CREATE_ADD_CHANGE       = ' '
   tables
*   TSK_TAB                    = TSK_TAB
*   SEQ_TAB                    = SEQ_TAB
     opr_tab                    = i_opr
*   PHASE_TAB                  = PHASE_TAB
*   SUBOPR_TAB                 = SUBOPR_TAB
*   REL_TAB                    = REL_TAB
*   com_tab                    = i_capp_com
*   REFERR_TAB                 = REFERR_TAB
*   REFMIS_TAB                 = REFMIS_TAB
   exceptions
     not_found                  = 1
     ref_not_exp                = 2
     not_valid                  = 3
            .
*需要先关联到BOM表取排序字符串

*    IF LINES( i_capp_com ) < 1.
*      CLEAR w_msg.
*      CONCATENATE  '物料:'  matnr_001+9(9) '工厂:'   werks_002 '没有组件' INTO w_msg.
*      WRITE :/ w_msg COLOR COL_NEGATIVE.
*      EXIT.
*    ENDIF.

*通过展BOM来获取排序字符串
    call function 'CS_BOM_EXPL_MAT_V2'
     exporting
          capid  = 'PP01'
          datuv  = sy-datum          "BOM用效日期.
          ehndl  = '1'
          emeng  = 1
          mtnrv  = l_matnr
          mehrs  = 'X'             "多层BOM展开标记.
          mmory  = '1'
*          stlal  = '1'              "代用BOM.
*          stlan  = w_stlan "s_stlan-low           "BOM用途.
          stpst  = '99'
          werks  = l_werks           "P_WERKS.
*       importing
*            topmat = selpool
*            dstst  = dstst_flg
     tables
          stb    = i_stb              "存放BOM项目.
*          matcat = matcat
      exceptions
         alt_not_found         =  4
         call_invalid          =  8
         material_not_foun     = 12
*         OBJECT_NOT_FOUND      = 12
         missing_authorization = 16
         no_bom_found          = 20
         no_plant_data         = 24
         no_suitable_bom_found = 28
         conversion_error      = 32.

sort i_stb by sortf.
delete adjacent duplicates from i_stb comparing sortf.


loop at i_stb.
  if i_stb-sortf ne space.
    i_opr_bom-ktsch =  i_stb-sortf.
    append i_opr_bom.
  endif.
endloop.


*  SELECT sortf AS ktsch
*    FROM stpo
*   INTO CORRESPONDING FIELDS OF TABLE i_opr_bom
*    FOR ALL ENTRIES IN i_capp_com
*    WHERE stlnr = i_capp_com-stlnr AND stlkn =  i_capp_com-stlkn.
*比较工序中文本和BOM中文本,如果BOM中文本和工序中不同,则退出不做。
  loop at i_opr_bom.

    read table i_opr with key ktsch =  i_opr_bom-ktsch.
    if sy-subrc ne 0.
      clear w_msg.
      concatenate  '物料:'  matnr_001+9(9) '工厂:'   werks_002 'BOM排序字符串:'  i_opr_bom-ktsch '在工序中不存在' INTO w_msg.
      WRITE :/ w_msg COLOR COL_NEGATIVE.
      CLEAR WA_ZCA02_LOG.
      WA_ZCA02_LOG-DATUM = SY-DATUM.
      WA_ZCA02_LOG-UZEIT = SY-UZEIT.
      WA_ZCA02_LOG-MATNR = matnr_001.
      WA_ZCA02_LOG-WERKS = WERKS_002.
      WA_ZCA02_LOG-MSG = W_MSG.
       WA_ZCA02_LOG-SUCC_TAG = '失败'.

      INSERT ZCA02_LOG FROM WA_ZCA02_LOG.
      REJECT.
    ENDIF.

  ENDLOOP.

 

 

 

  subrc = 0.
  IF LINES( i_opr ) > 0.

    PERFORM. bdc_nodata      USING nodata.

    PERFORM. open_group      USING group user keep holddate ctu.

    PERFORM. bdc_dynpro      USING 'saplcpdi' '1010'.
    PERFORM. bdc_field       USING 'bdc_cursor'
                                  'rc27m-werks'.
    PERFORM. bdc_field       USING 'bdc_okcode'
                                  '/00'.
    PERFORM. bdc_field       USING 'rc27m-matnr'
                                  matnr_001+9(9).
    PERFORM. bdc_field       USING 'rc27m-werks'
                                  werks_002.
    PERFORM. bdc_field       USING 'rc271-plnnr'
                                  mapl-plnnr.
    PERFORM. bdc_field       USING 'rc271-sttag'
                                  sy-datum.                 "sttag_004.
    PERFORM. bdc_field       USING 'rc271-plnal'
                                  plnal_005.
    PERFORM. bdc_dynpro      USING 'saplcpdi' '1400'.
    PERFORM. bdc_field       USING 'bdc_cursor'
                                  'rc27x-entry_act'.
    PERFORM. bdc_field       USING 'bdc_okcode'
                                  '=mata'.
    PERFORM. bdc_field       USING 'rc27x-entry_act'
                                  entry_act_006.
    PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
    PERFORM. bdc_field       USING 'bdc_cursor'
                                  'rcm01-matnr'.
    PERFORM. bdc_field       USING 'bdc_okcode'
                                  '=mara'.
    PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
    PERFORM. bdc_field       USING 'bdc_cursor'
                                  'rcm01-matnr'.
    PERFORM. bdc_field       USING 'bdc_okcode'
                                  '=del'.
    PERFORM. bdc_dynpro      USING 'saplspo1' '0100'.
    PERFORM. bdc_field       USING 'bdc_okcode'
                                  '=yes'.
    PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
    PERFORM. bdc_field       USING 'bdc_cursor'
                                  'rcm01-matnr'.


    LOOP AT i_opr.

*排序字符串过滤条件
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '=filt'.
      PERFORM. bdc_dynpro      USING 'saplcm01' '1070'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'd1070-sortf'.
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '=pick'.
      PERFORM. bdc_field       USING 'd1070-sortf'
                                    sortf_007.
      PERFORM. bdc_dynpro      USING 'saplcm01' '1080'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'stpo-sortf'.
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '/00'.
      PERFORM. bdc_field       USING 'stpo-sortf'
                                    i_opr-ktsch.
      PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'rcm01-matnr'.
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '=mara'.
      PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'rcm01-matnr'.
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '=new'.
      PERFORM. bdc_dynpro      USING 'saplcm01' '1090'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'rcm01-vornr'.
      PERFORM. bdc_field       USING 'bdc_okcode'
                                    '=goon'.
      PERFORM. bdc_field       USING 'rcm01-vornr'
                                    i_opr-vornr.
      PERFORM. bdc_field       USING 'rcm01-plnfl'
                                    plnfl_010.
      PERFORM. bdc_dynpro      USING 'saplcmdi' '1000'.
      PERFORM. bdc_field       USING 'bdc_cursor'
                                    'rcm01-matnr'.


*perform. bdc_field       using 'BDC_OKCODE'
*                              '=FILT'.
*perform. bdc_dynpro      using 'SAPLCM01' '1070'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'D1070-SORTF'.
*perform. bdc_field       using 'BDC_OKCODE'
*                              '=PICK'.
*perform. bdc_field       using 'D1070-SORTF'
*                              SORTF_011.
*perform. bdc_dynpro      using 'SAPLCM01' '1080'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'STPO-SORTF'.
*perform. bdc_field       using 'BDC_OKCODE'
*                              '/00'.
*perform. bdc_field       using 'STPO-SORTF'
*                              SORTF_012.
*perform. bdc_dynpro      using 'SAPLCMDI' '1000'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'RCM01-MATNR'.
*perform. bdc_field       using 'BDC_OKCODE'
*                              '=MARA'.
*perform. bdc_dynpro      using 'SAPLCMDI' '1000'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'RCM01-MATNR'.
*perform. bdc_field       using 'BDC_OKCODE'
*                              '=NEW'.
*perform. bdc_dynpro      using 'SAPLCM01' '1090'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'RCM01-VORNR'.
*perform. bdc_field       using 'BDC_OKCODE'
*                              '=GOON'.
*perform. bdc_field       using 'RCM01-VORNR'
*                              VORNR_013.
*perform. bdc_field       using 'RCM01-PLNFL'
*                              PLNFL_014.
*perform. bdc_dynpro      using 'SAPLCMDI' '1000'.
*perform. bdc_field       using 'BDC_CURSOR'
*                              'RCM01-MATNR'.


    ENDLOOP.

    PERFORM. bdc_field       USING 'bdc_okcode'
                                 '=bu'.

 

*提交
    PERFORM. bdc_transaction TABLES messtab
    USING                         'ca02'
                                  ctu
                                  mode
                                  update.
    IF sy-subrc <> 0.
      subrc = sy-subrc.
*      EXIT.
    ENDIF.

 

  ENDIF.
  IF subrc NE 0.
    LOOP AT messtab INTO wa_messatab ."WHERE  msgtyp NE 's'.
      CLEAR w_msg.
      CONCATENATE  '物料:'  matnr_001+9(9) '工厂:'   werks_002 '分配组件失败  '  wa_messatab-msgv1   wa_messatab-msgv2  wa_messatab-msgv3   wa_messatab-msgv4 INTO w_msg.
      WRITE :/ w_msg COLOR COL_NEGATIVE.
       CLEAR WA_ZCA02_LOG.
      WA_ZCA02_LOG-DATUM = SY-DATUM.
      WA_ZCA02_LOG-UZEIT = SY-UZEIT.
      WA_ZCA02_LOG-MATNR = matnr_001.
      WA_ZCA02_LOG-WERKS = WERKS_002.
      WA_ZCA02_LOG-MSG = W_MSG.
       WA_ZCA02_LOG-SUCC_TAG = '失败'.

      INSERT ZCA02_LOG FROM WA_ZCA02_LOG.

    ENDLOOP.

  ELSE.
    IF p_tag EQ space.
      CLEAR w_msg.
      CONCATENATE :  '物料:'  matnr_001+9(9) '工厂:' werks_002 '分配组件成功' INTO w_msg .

      WRITE :/  w_msg COLOR COL_POSITIVE.
      CLEAR WA_ZCA02_LOG.
      WA_ZCA02_LOG-DATUM = SY-DATUM.
      WA_ZCA02_LOG-UZEIT = SY-UZEIT.
      WA_ZCA02_LOG-MATNR = matnr_001.
      WA_ZCA02_LOG-WERKS = WERKS_002.
      WA_ZCA02_LOG-MSG = W_MSG.
       WA_ZCA02_LOG-SUCC_TAG = '成功'.
      INSERT ZCA02_LOG FROM WA_ZCA02_LOG.


    ENDIF.
  ENDIF.
  ULINE.

  PERFORM. close_group USING     ctu.


ENDFUNCTION.
INCLUDE bdcrecxy .

 

 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/14542251/viewspace-1074951/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2014-01-06

  • 博文量
    16
  • 访问量
    22086