计划订单批量转生产订单---可直接使用

*&---------------------------------------------------------------------*
*& Report ZPPR022
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zppr104.

TABLES: plaf, ioitem.
TYPES: BEGIN OF tp_output.
    INCLUDE STRUCTURE sfc_poco.
TYPES: cy_seqnr   TYPE afko-cy_seqnr,
       aufnr_t    TYPE string,
       cy_seqnr_t TYPE string,
       txt        TYPE t024f-txt,
       ablad      TYPE afpo-ablad,
       msg        TYPE bapi_msg,      " 消息
       fstyle     TYPE lvc_t_styl,
       ZKHBZ     TYPE MARA-ZKHBZ, "客户备注
       WRKST     TYPE MARA-WRKST,
       ZCPGG     TYPE MARA-ZCPGG.
TYPES: END OF tp_output.

TYPES: BEGIN OF tp_material,
         matnr TYPE marc-matnr,
         maktx TYPE makt-maktx,
       END OF tp_material.

TYPES: BEGIN OF tp_auart,
         auart     TYPE auart,
         numkr     TYPE t003o-numkr,
         externind TYPE nriv-externind,
         stsma     TYPE t003o-stsma,
       END OF tp_auart.

TYPES: BEGIN OF tp_mbew,
         matnr TYPE mbew-matnr,
         bwkey TYPE mbew-bwkey,
         werks TYPE afpo-dwerk,
         bwtar TYPE mbew-bwtar,
         lplpr TYPE mbew-lplpr,
       END OF tp_mbew.

TYPES: BEGIN OF tp_ordaut,
         auart TYPE t003o-auart,
         txt   TYPE t003p-txt,
       END OF tp_ordaut.

DATA: gt_output TYPE STANDARD TABLE OF tp_output,
      gs_auart  TYPE tp_auart.

DATA: gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
"PARAMETERS: p_werks TYPE plaf-plwrk OBLIGATORY DEFAULT '1000'.
PARAMETERS: p_werks TYPE plaf-plwrk .
SELECT-OPTIONS: s_plnum FOR plaf-plnum,
                s_matnr FOR plaf-matnr,
                s_plgrp FOR plaf-plgrp ,
                s_dispo FOR plaf-dispo,
                s_psttr FOR plaf-psttr,
                s_pedtr FOR plaf-pedtr,
                s_kdauf FOR ioitem-kdauf MATCHCODE OBJECT vmva,
                s_kdpos FOR ioitem-kdpos.
PARAMETERS: p_auart TYPE aufk-auart OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.


INITIALIZATION.
  CLEAR: gs_auart.
  PERFORM frm_init_fcat.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_auart.
  PERFORM frm_auart_f4 CHANGING p_auart.

 AT SELECTION-SCREEN.
PERFORM FRM_CXKZPP.     " 权限检查

START-OF-SELECTION.
  PERFORM frm_get_data.

END-OF-SELECTION.
  PERFORM frm_show_data.



FORM frm_init_fcat.
  DATA: ls_fcat TYPE lvc_s_fcat.
  gs_layo-zebra = 'X'.
*  gs_layo-cwidth_opt = 'X'.
  gs_layo-box_fname = 'SEL'.
  gs_layo-stylefname = 'FSTYLE'.

  DEFINE mro_fcat.
    CLEAR: ls_fcat.
    ls_fcat-fieldname = &1.
    ls_fcat-coltext = &2.
    ls_fcat-scrtext_l = &2.
    ls_fcat-scrtext_m = &2.
    ls_fcat-scrtext_s = &2.
    ls_fcat-no_zero = 'X'.
    TRANSLATE ls_fcat-fieldname TO UPPER CASE.
    ls_fcat-ref_table = &3.
    ls_fcat-ref_field = &4.
    ls_fcat-edit = &5.
    TRANSLATE ls_fcat-ref_table TO UPPER CASE.

    IF &1 EQ 'AUFNR_T' OR &1 EQ 'CY_SEQNR_T'.
      ls_fcat-outputlen = 20 .
    ENDIF .
    IF  &1 NE 'AUFNR_T' AND &1 NE 'CY_SEQNR_T'.
      ls_fcat-col_opt = 'X' .
    ENDIF .
    ls_fcat-DD_OUTLEN = &6.
    APPEND ls_fcat TO gt_fcat.
  END-OF-DEFINITION.

  mro_fcat 'PWWRK' '工厂'  '' '' '' ''.
  mro_fcat 'AUFNUM' '生产订单号' '' '' 'X' ''.
  mro_fcat 'AUART' '订单类型' '' '' space space.
  mro_fcat 'MATNR' '物料编码' '' '' space space.
  mro_fcat 'KTEXT' '物料描述' '' '' space space.
  mro_fcat 'MEINS' '单位' ''  '' ''  space.
  mro_fcat 'PLNUM' '计划订单'  '' '' space space.
  mro_fcat 'AUFNR_T' '来源工单'  '' '' space space.
  mro_fcat 'CY_SEQNR_T' '优先级'  '' '' space space.
  mro_fcat 'GSMNG' '订单数量' 'PLAF'  'GSMNG' 'X' '13'.
  mro_fcat 'PSTTR' '订单开始日期' 'PLAF'  'PSTTR' 'X'  ''.
  mro_fcat 'PEDTR' '订单结束日期' 'PLAF'  'PEDTR' 'X'  ''.
  mro_fcat 'CY_SEQNR' '销售订单数量' ''  '' 'X' '14'.
  mro_fcat 'PLGRP' '生产管理员' ''  '' ''  ''.
  mro_fcat 'TXT' '生产管理员名称'  '' ''  '' ''.
  mro_fcat 'ABLAD' '卸货点' ''  '' 'X'  '25'.
  mro_fcat 'VERID' '生产版本' 'MKAL'  'VERID' 'X'  ''.
  mro_fcat 'LGORT' '库存地点' 'PLAF'  'LGORT' 'X'  ''.
  mro_fcat 'KDAUF' '销售订单号' ''  '' ''  '' .
  mro_fcat 'KDPOS' '行项目号' ''  '' ''  '' .
  mro_fcat 'ZKHBZ' '客户备注' ''  '' 'X'  '100' .
  mro_fcat 'WRKST' '基本物料' 'MARA'  'WRKST' ''  '' .
  mro_fcat 'ZCPGG' '产品型号' 'MARA'  'ZCPGG' ''  '' .
  mro_fcat 'MSG' '消息' '' '' '' '20' .

ENDFORM.


FORM frm_auart_f4 CHANGING cv_auart TYPE aufart.
  DATA: lt_ordaut TYPE STANDARD TABLE OF tp_ordaut.
  SELECT t003o~auart t003p~txt
    INTO CORRESPONDING FIELDS OF TABLE lt_ordaut
    FROM t003o INNER JOIN t003p
      ON t003o~auart EQ t003p~auart
     AND t003p~spras EQ sy-langu
   WHERE t003o~autyp EQ '10'.  
CHECK sy-subrc EQ 0.  
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'    
EXPORTING      retfield        
= 'AUART'      dynpprog        
= sy-repid      dynpnr          
= sy-dynnr      dynprofield     
= 'P_AUART'      value_org       
= 'S'    
TABLES      value_tab       
= lt_ordaut    
EXCEPTIONS      parameter_error 
= 1      no_values_found 
= 2      
OTHERS          = 3.  
IF sy-subrc <> 0.
* Implement suitable error handling here  
ENDIF.

ENDFORM.

FORM FRM_CXKZPP .    "权限检查 
DATA:LV_MESSAGE TYPE CHAR255.     

AUTHORITY-CHECK OBJECT 'M_MATE_WRK'      
ID 'ACTVT' DUMMY"FIELD 'xxxxxxxx'      
ID 'WERKS' FIELD p_werks.    
IF SY-SUBRC <> 0.      LV_MESSAGE 
= '没有公司代码的查询权限！'.      
MESSAGE LV_MESSAGE TYPE 'E'.    
ENDIF.
ENDFORM.

FORM frm_get_data.  
TYPES:BEGIN OF ty_plaf.        
INCLUDE TYPE plaf.  
TYPES:zkhbz TYPE mara-zkhbz,        wrkst 
TYPE mara-wrkst,        zcpgg 
TYPE mara-zcpgg.  
TYPES:END OF ty_plaf.  
DATA: lt_plaf TYPE STANDARD TABLE OF ty_plaf,        ls_plaf 
LIKE LINE OF lt_plaf.  
DATA: ls_output LIKE LINE OF gt_output,        lv_index  
LIKE sy-tabix.  
DATA: lt_material TYPE STANDARD TABLE OF tp_material,        ls_material 
LIKE LINE OF lt_material,        lt_mbew     

TYPE STANDARD TABLE OF tp_mbew,        ls_mbew     
LIKE LINE OF lt_mbew,        ls_style    

TYPE lvc_s_styl.
DATA:BEGIN OF ls_zkhbz,     matnr 
TYPE mara-matnr,     zkhbz 
TYPE mara-zkhbz,     wrkst 
TYPE mara-wrkst,     zcpgg 
TYPE mara-zcpgg,     
END OF ls_zkhbz,     lt_zkhbz 
LIKE STANDARD TABLE OF ls_zkhbz.  
RANGES: rg_matnr FOR plaf-matnr.  

PERFORM frm_get_auart CHANGING gs_auart.  

SELECT *    
INTO CORRESPONDING FIELDS OF TABLE lt_plaf    
FROM plaf   
WHERE matnr IN s_matnr     
AND plwrk EQ p_werks     
AND plnum IN s_plnum     
AND dispo IN s_dispo     
AND plgrp IN s_plgrp     
AND psttr IN s_psttr     
AND pedtr IN s_pedtr     
AND kdauf IN s_kdauf     
AND kdpos IN s_kdpos     
AND umskz EQ 'X'     
AND beskz NE 'F'.  

LOOP AT lt_plaf INTO ls_plaf.    lv_index 
= sy-tabix.    

AUTHORITY-CHECK OBJECT 'ZPP001'     
ID 'WERKS' FIELD ls_plaf-pwwrk     
ID 'ZFEVOR' FIELD ls_plaf-plgrp     
ID 'AUFART' FIELD p_auart.    
IF sy-subrc <> 0.
*     Implement a suitable exception handling here      
DELETE lt_plaf INDEX lv_index.      
CONTINUE.    
ENDIF.    

CHECK rg_matnr[] IS INITIAL OR ls_plaf-matnr NOT IN rg_matnr.    rg_matnr
-sign = 'I'.    rg_matnr
-option = 'EQ'.    rg_matnr
-low = ls_plaf-matnr.    
APPEND rg_matnr.  
ENDLOOP.  

DATA: BEGIN OF ls_resb,          rsnum    
LIKE resb-rsnum,          rspos    
LIKE resb-rspos,          rsart    
LIKE resb-rsart,          matnr    
LIKE resb-matnr,          werks    
LIKE resb-werks,          bdter    
LIKE resb-bdter,          aufnr    
LIKE resb-aufnr,          cy_seqnr 
LIKE afko-cy_seqnr,        
END OF ls_resb,        lt_resb 
LIKE TABLE OF ls_resb.  

CHECK lt_plaf[] IS NOT INITIAL.  

IF rg_matnr[] IS NOT INITIAL.    
SELECT marc~matnr makt~maktx      
INTO CORRESPONDING FIELDS OF TABLE lt_material      
FROM marc INNER JOIN makt        
ON marc~matnr EQ makt~matnr       
AND makt~spras EQ sy-langu     
WHERE marc~matnr IN rg_matnr     
ORDER BY marc~matnr ASCENDING.    

SELECT matnr zkhbz wrkst zcpgg      
INTO TABLE lt_zkhbz      
FROM mara      
WHERE mara~matnr IN rg_matnr ORDER BY mara~matnr ASCENDING.      

SORT lt_zkhbz BY matnr.    

SELECT mbew~matnr mbew~bwkey mbew~bwtar mbew~lplpr           t001w
~werks      
INTO CORRESPONDING FIELDS OF TABLE lt_mbew      
FROM mbew INNER JOIN t001w        
ON mbew~bwkey EQ t001w~bwkey     
WHERE mbew~matnr IN rg_matnr       
AND t001w~werks EQ p_werks     
ORDER BY mbew~matnr.    

CLEAR: lt_resb[], lt_resb .    
SELECT resb~rsnum           resb
~rspos           resb
~rsart           resb
~matnr           resb
~werks           resb
~bdter           resb
~aufnr           afko
~cy_seqnr      
INTO CORRESPONDING FIELDS OF TABLE lt_resb      
FROM resb      INNER 
JOIN afko ON resb~aufnr = afko~aufnr      
WHERE resb~matnr IN rg_matnr        
AND resb~xloek = ''        
AND resb~kzear = ''..  
ENDIF.  

LOOP AT lt_plaf INTO ls_plaf.    
MOVE-CORRESPONDING ls_plaf TO ls_output.    ls_output
-auart = p_auart.    
READ TABLE lt_material INTO ls_material WITH KEY matnr = ls_plaf-matnr BINARY SEARCH.    
IF sy-subrc EQ 0.      ls_output
-ktext = ls_material-maktx.    
ENDIF.    
READ TABLE lt_zkhbz INTO ls_zkhbz WITH KEY matnr = ls_plaf-matnr BINARY SEARCH.    
IF sy-subrc = 0.        ls_output
-zkhbz = ls_zkhbz-zkhbz.        ls_output
-wrkst = ls_zkhbz-wrkst.        ls_output
-zcpgg = ls_zkhbz-zcpgg.    
ENDIF.    
"生产管理员    
SELECT SINGLE txt INTO ls_output-txt FROM t024f WHERE fevor = ls_output-plgrp .    

IF gs_auart-externind EQ space.      
CLEAR: ls_style.      ls_style
-fieldname = 'AUFNUM'.      ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.      
INSERT ls_style INTO TABLE ls_output-fstyle.    
ENDIF.

*    READ TABLE lt_mbew INTO ls_mbew WITH KEY matnr = ls_output-matnr.
*    IF sy-subrc EQ 0 AND ls_mbew-lplpR EQ 0.
*      MOVE '物料未做标准成本估算不允许创建标准生产订单，请走财务估算流程' TO ls_output-msg.
*      CLEAR: ls_style.
*      ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
*      INSERT ls_style INTO TABLE ls_output-fstyle.
*    ENDIF.    

LOOP AT lt_resb INTO ls_resb WHERE matnr = ls_plaf-matnr                                        
AND bdter <= ls_plaf-pertr .      
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'        
EXPORTING          
input  = ls_resb-aufnr        
IMPORTING          
output = ls_resb-aufnr.      

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'        
EXPORTING          
input  = ls_resb-cy_seqnr        
IMPORTING          
output = ls_resb-cy_seqnr.      ls_output

-aufnr_t    = ls_output-aufnr_t     && '/' && ls_resb-aufnr .      ls_output
-cy_seqnr_t = ls_output-cy_seqnr_t  && '/' && ls_resb-cy_seqnr .      
CLEAR: ls_resb .    
ENDLOOP .    

APPEND ls_output TO gt_output.    
CLEAR: ls_output .  
ENDLOOP.

ENDFORM.


FORM frm_get_auart CHANGING cs_auart TYPE tp_auart.  

SELECT SINGLE t003o~auart t003o~numkr nriv~externind                t003o
~stsma    
INTO CORRESPONDING FIELDS OF cs_auart    
FROM t003o INNER JOIN nriv      
ON t003o~numkr EQ nriv~nrrangenr     
AND nriv~object EQ 'AUFTRAG'     
AND nriv~subobject EQ space   
WHERE t003o~auart EQ p_auart "IN rg_auart     
AND t003o~autyp EQ '10'.

ENDFORM.

FORM frm_show_data.  
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'    
EXPORTING      i_callback_program       
= sy-repid      i_callback_pf_status_set 
= 'FRM_SET_STATUS'      i_callback_user_command  
= 'FRM_USER_COMMAND'      is_layout_lvc            
= gs_layo      it_fieldcat_lvc          
= gt_fcat      i_save                   
= 'A'    
TABLES      t_outtab                 
= gt_output    
EXCEPTIONS      program_error            
= 1      
OTHERS                   = 2.  
IF sy-subrc <> 0.
* Implement suitable error handling here  
ENDIF.
ENDFORM.

FORM frm_set_status USING rt_extab TYPE slis_t_extab.  
SET PF-STATUS 'ZPF_001'.  

DATA: lo_grid TYPE REF TO cl_gui_alv_grid.  
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'    
IMPORTING      e_grid 
= lo_grid.  

CALL METHOD lo_grid->register_edit_event    
EXPORTING      i_event_id 
= cl_gui_alv_grid=>mc_evt_modified.  
IF sy-subrc <> 0.  
ENDIF.

ENDFORM.


FORM frm_user_command USING r_ucomm LIKE sy-ucomm                            rs_selfield 
TYPE slis_selfield.  
CASE r_ucomm.    
WHEN 'STRE'.    " 库存需求清单      
PERFORM frm_link_md04 USING rs_selfield-tabindex.    
WHEN 'BU'.      " 转换      
PERFORM frm_tran_order.      rs_selfield
-refresh = 'X'.    
WHEN '&IC1'.      
IF rs_selfield-fieldname EQ 'AUFNUM' AND rs_selfield-value NE space.        
SET PARAMETER ID 'ANR' FIELD rs_selfield-value.        
CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.      
ENDIF.  
ENDCASE.
ENDFORM.



FORM frm_link_md04 USING iv_tabix TYPE sy-tabix.  
DATA: ls_output LIKE LINE OF gt_output.  
IF iv_tabix EQ 0.    
MESSAGE e208(00) WITH '请选择一行记录'.    
RETURN.  
ENDIF.  
READ TABLE gt_output INTO ls_output INDEX iv_tabix.  
CHECK sy-subrc EQ 0.  
SET PARAMETER ID 'MAT' FIELD ls_output-matnr.  
SET PARAMETER ID 'BERID' FIELD ls_output-berid.  
SET PARAMETER ID 'WRK' FIELD ls_output-plwrk.  
CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN.
ENDFORM.



*&---------------------------------------------------------------------*
*& Form FRM_TRAN_ORDER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_tran_order .  
DATA: ls_output     LIKE LINE OF gt_output,        ls_output2    
LIKE ls_output,        ls_output_sav 
LIKE ls_output,        ls_style      
TYPE lvc_s_styl,        lv_index      
LIKE sy-tabix.  
DATA: l_error_counter TYPE p,        xfehl           
TYPE p,        l_number        
TYPE p.  
DATA: l_coll_order_err TYPE c.  
DATA: entry_tot(4) TYPE n.  
DATA: entry_act(4) TYPE n.  
DATA BEGIN OF c OCCURS 0.  
INCLUDE STRUCTURE caufvd.  
DATA END OF c.  
DATA BEGIN OF p OCCURS 0.  
INCLUDE STRUCTURE plaf  .  
DATA END OF p.  
DATA BEGIN OF a OCCURS 0.  
INCLUDE STRUCTURE afpod .  
DATA END OF a.  
DATA BEGIN OF s OCCURS 0.  
INCLUDE STRUCTURE sfc_poco.  
DATA END OF s.  
DATA caufvd_num LIKE caufvdn OCCURS 0 WITH HEADER LINE.  

DATA: l_msgnr LIKE cmimsg-msgnr,        l_msgid 
LIKE sy-msgid,        l_msgv1 
LIKE sy-msgv1,        l_msgv2 
LIKE sy-msgv2,        l_msgv3 
LIKE sy-msgv3,        l_msgv4 
LIKE sy-msgv4.  

DATA: ls_caufvd TYPE caufvd,        ls_afpod  
TYPE afpod,        ls_plaf   
TYPE plaf,        ls_t003o  
TYPE t003o.  

DATA: hfield      TYPE c,        convert_suc 
TYPE p,        ls_afpod_e  
TYPE afpod,        ls_caufvd_e 
TYPE caufvd.  

SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_t003o    
FROM t003o   
WHERE auart = p_auart.  
LOOP AT gt_output INTO ls_output WHERE sel EQ 'X' AND msg EQ space.    lv_index 
= sy-tabix.    
CLEAR: l_error_counter, l_number, l_coll_order_err.    
CALL FUNCTION 'CM_F_INITIALIZE'      
EXPORTING        aplid               
= 'PPTM'        no_other_initialize 
= 'X'        refresh_old_log     
= 'X'.    

REFRESH: c, p, a, s.    
CLEAR: ls_caufvd, ls_afpod, ls_afpod_e, ls_caufvd_e, hfield.    

MOVE: ls_output-auart TO ls_caufvd-auart,          ls_output
-aufnum TO ls_caufvd-aufnr,          
'X' TO ls_caufvd-umskz,          p_werks 
TO ls_caufvd-werks,          ls_output
-pwwrk TO ls_afpod-dwerk,          gs_auart
-stsma TO ls_caufvd-stats,          ls_output
-cy_seqnr TO ls_caufvd-cy_seqnr,          ls_output
-plnum TO ls_afpod-plnum,          ls_output
-ablad TO ls_afpod-ablad.    
MOVE-CORRESPONDING ls_output TO ls_plaf.    
MOVE ls_output-cy_seqnr TO ls_plaf-seqnr.    

PERFORM frm_full_init.    

IF ls_output-leadplnum NE space.      
MOVE-CORRESPONDING ls_output TO s.      
APPEND s.    
ENDIF.    

IF ls_output-leadplnum IS INITIAL AND       
NOT ls_output-arsnr IS INITIAL.      l_coll_order_err 
= 'X'.    
ENDIF.    
MOVE-CORRESPONDING ls_output TO ls_output_sav.    

IF l_coll_order_err IS INITIAL.      
LOOP AT gt_output INTO ls_output2 WHERE leadplnum EQ ls_output-plnum                                          
AND plnum NE ls_output-plnum                                          
AND beskz EQ 'E'.        
CLEAR: c, p, a, s.
*        s = sfc_pocot. APPEND s.        
MOVE-CORRESPONDING ls_output2 TO s.        
APPEND s.
*...Tab. der Planauftr#ge zu erstellenden Positionen und K#pfe aufbauen
*...Daten übernehmen        
MOVE: ls_caufvd-auart   TO c-auart,
*              'X'               TO one_marked,              
'X'               TO c-umskz,              gs_auart
-stsma      TO c-stats.
*...Werk füllen wegen Verprobung Auftragsart.        
MOVE  p_werks    TO c-werks.
*...Index merken, wegen Meldungen        
APPEND c.        
MOVE-CORRESPONDING ls_output TO p. APPEND p.        
MOVE ls_output-plnum TO a-plnum.   APPEND a.      
ENDLOOP.      
ADD 1 TO l_number.      

CALL FUNCTION 'CO_ZV_COMMIT_SUPPRESS_ACTIVATE'.      

CALL FUNCTION 'CO_SD_PLANNED_ORDER_CONVERT'        
EXPORTING          afpod_imp     
= ls_afpod          caufvd_imp    
= ls_caufvd          t003o_imp     
= ls_t003o          plaf_imp      
= ls_plaf        
IMPORTING          afpod_exp     
= ls_afpod_e          caufvd_exp    
= ls_caufvd_e          convert_suc   
= hfield        
TABLES          plaf_tab      
= p          caufvd_tab    
= c          sfc_pocot     
= s          afpod_tab     
= a        
EXCEPTIONS          error_message 
= 01.    
ENDIF.    

IF NOT sy-subrc IS INITIAL OR      
NOT l_coll_order_err IS INITIAL.      
IF sy-msgno NE 819 AND         sy
-msgno NE 650.
* -> Messagenummer zwischenspeichern        
IF l_coll_order_err IS INITIAL.          l_msgid 
= sy-msgid.          l_msgnr 
= sy-msgno.          l_msgv1 
= sy-msgv1.          l_msgv2 
= sy-msgv2.          l_msgv3 
= sy-msgv3.          l_msgv4 
= sy-msgv4.        
ELSE.          l_msgid 
= 'C2'.          l_msgnr 
= '256'.          l_msgv1 
= ls_output-plnum.          l_msgv2 
= ls_output-arsnr.          l_msgv3 
= ' '.          l_msgv4 
= ' '.        
ENDIF.        
ADD 1 TO l_error_counter.
* ->'Umsetzung des Planauftrags & wurde abgebrochen aufgrund der Meld.        
CALL FUNCTION 'CM_F_MESSAGE'          
EXPORTING            arbgb 
= 'CO'            msgnr 
= '875'            msgty 
= 'E'            msgv1 
= ls_output_sav-plnum.        
CALL FUNCTION 'CM_F_MESSAGE'          
EXPORTING            arbgb 
= l_msgid            msgnr 
= l_msgnr            msgty 
= 'E'            msgv1 
= l_msgv1            msgv2 
= l_msgv2            msgv3 
= l_msgv3            msgv4 
= l_msgv4.      
ENDIF.      

CALL FUNCTION 'FORMAT_MESSAGE'        
EXPORTING          
id        = sy-msgid          lang      
= sy-langu          
no        = sy-msgno          v1        
= sy-msgv1          v2        
= sy-msgv2          v3        
= sy-msgv3          v4        
= sy-msgv4        
IMPORTING          msg       
= ls_output_sav-msg        
EXCEPTIONS          not_found 
= 1          
OTHERS    = 2.      
IF sy-subrc <> 0.
* Implement suitable error handling here      
ENDIF.      ls_output_sav

-conv_fehl = 2.
* -> Markierung zurücknehmen      
CLEAR ls_output_sav-sel.      
MODIFY gt_output FROM ls_output_sav INDEX lv_index.
* -> text-memory l#schen, wegen performance nur im fehlerfall      
CALL FUNCTION 'DELETE_TEXT_FROM_CATALOG'        
EXPORTING          object    
= '*'          name      
= '*'          
id        = '*'          
language  = '*'        
EXCEPTIONS          not_found 
= 1          
OTHERS    = 2.
*       Reset all internal buffers      
CALL FUNCTION 'CO_ZF_DATA_RESET_COMPLETE'.
*       create conversion log
*      PERFORM create_message_table USING sfc_pocot_sav.      
CONTINUE.    
ENDIF.    

IF sy-msgid = 'CO' AND sy-msgno GE 816 AND sy-msgno LE 818.      hfield 
= ' '.    
ENDIF.    

IF NOT hfield IS INITIAL.      convert_suc 
= convert_suc + 1.      
CALL FUNCTION 'CO_ZV_ORDER_POST'        
EXPORTING          no_gui_message 
= 'X' "yx          trans_typ      
= 'H' "tc10-trtyp        
IMPORTING          first_aufnr    
= ls_caufvd-aufnr        
TABLES          caufvd_num_exp 
= caufvd_num        
EXCEPTIONS          no_change      
= 01          update_reject  
= 02.      
IF sy-subrc = 2.        
ROLLBACK WORK.        
ADD 1 TO l_error_counter.        ls_output_sav
-conv_fehl = 2.        
CLEAR ls_output_sav-sel.        
IF NOT sy-msgid IS INITIAL AND NOT sy-msgno IS INITIAL.
*           Posting failed, then save the last message in the log          l_msgid 
= sy-msgid.          l_msgnr 
= sy-msgno.          l_msgv1 
= sy-msgv1.          l_msgv2 
= sy-msgv2.          l_msgv3 
= sy-msgv3.          l_msgv4 
= sy-msgv4.          
CALL FUNCTION 'CM_F_MESSAGE'            
EXPORTING              arbgb 
= 'CO'              msgnr 
= '875'              msgty 
= 'E'              msgv1 
= ls_output_sav-plnum.          
CALL FUNCTION 'CM_F_MESSAGE'            
EXPORTING              arbgb 
= l_msgid              msgnr 
= l_msgnr              msgty 
= 'E'              msgv1 
= l_msgv1              msgv2 
= l_msgv2              msgv3 
= l_msgv3              msgv4 
= l_msgv4.        
ELSE.          
CALL FUNCTION 'CM_F_MESSAGE'            
EXPORTING              arbgb 
= 'CO'              msgnr 
= '335'              msgty 
= 'E'              msgv1 
= ls_output_sav-plnum.        
ENDIF.        
CALL FUNCTION 'CO_ZF_DATA_RESET_COMPLETE'.        

CALL FUNCTION 'FORMAT_MESSAGE'          
EXPORTING            
id        = sy-msgid            lang      
= sy-langu            
no        = sy-msgno            v1        
= sy-msgv1            v2        
= sy-msgv2            v3        
= sy-msgv3            v4        
= sy-msgv4          
IMPORTING            msg       
= ls_output_sav-msg          
EXCEPTIONS            not_found 
= 1            
OTHERS    = 2.        
MODIFY gt_output FROM ls_output_sav INDEX lv_index.      


ELSE.        ls_output_sav
-fehl = ls_caufvd-fehl.        ls_output_sav
-conv_fehl = 1.        
CLEAR ls_output_sav-sel.
*        MOVE '*' TO ls_output_sav-sel_dark.        
READ TABLE caufvd_num WITH KEY plnum = ls_output_sav-plnum.        
IF sy-subrc IS INITIAL.          
DELETE caufvd_num INDEX sy-tabix.          
MOVE caufvd_num-aufnr_neu TO ls_output_sav-aufnum.          
MOVE ls_caufvd-auart TO ls_output_sav-auart.        
ENDIF.        
IF NOT ls_caufvd-fehl IS INITIAL.          xfehl 
= xfehl + 1.        
ENDIF.      
ENDIF.    
ENDIF.
*  ELSE.
*    CLEAR sfc_pocot_sav-sel.
*  ENDIF.    


MODIFY gt_output FROM ls_output_sav INDEX lv_index.
**   Create conversion log.
*  PERFORM create_message_table USING sfc_pocot_sav.
** Bei Auftragsnetzen enth#lt die Tabelle CAUFVD_NUM weitere Eintr#ge    
LOOP AT caufvd_num.      
READ TABLE gt_output INTO ls_output2 WITH KEY plnum = caufvd_num-plnum.      
CHECK sy-subrc IS INITIAL.      ls_output2
-aufnum   = caufvd_num-aufnr_neu.      ls_output2
-sel_dark = '*'.      
MODIFY gt_output FROM ls_output2 INDEX sy-tabix.    
ENDLOOP.

*    PERFORM send_gui(saplcozf) USING space.    

IF NOT convert_suc IS INITIAL.      
IF convert_suc > 1.        
IF xfehl IS INITIAL.          
MESSAGE s305(co) WITH convert_suc INTO ls_output_sav-msg.        
ELSE.          
MESSAGE s536(co) WITH convert_suc xfehl INTO ls_output_sav-msg.        
ENDIF.        
CLEAR: ls_output_sav-fstyle, ls_output_sav-fstyle[].        ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.        
INSERT ls_style INTO TABLE ls_output_sav-fstyle.      
ELSE.        
IF ls_caufvd-autyp = '40'.          
MESSAGE s019(40) WITH  ls_output-plnum ls_caufvd-aufnr INTO ls_output_sav-msg.        
ELSE.          
IF xfehl IS INITIAL.            
MESSAGE s306(co) WITH ls_output-plnum ls_caufvd-aufnr INTO ls_output_sav-msg.          
ELSE.            
MESSAGE s537(co) WITH ls_output-plnum ls_caufvd-aufnr INTO ls_output_sav-msg.          
ENDIF.        
ENDIF.        
CLEAR: ls_output_sav-fstyle, ls_output_sav-fstyle[].        ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.        
INSERT ls_style INTO TABLE ls_output_sav-fstyle.      
ENDIF.    
ENDIF.    

IF ls_output-pwwrk = '3100' OR ls_output-pwwrk = '3200'.          
UPDATE aufk SET zkhbz = ls_output-zkhbz WHERE AUFNR = ls_caufvd-aufnr.          
IF sy-subrc = 0.              
COMMIT WORK.              
ELSE.                
ROLLBACK WORK.          
ENDIF.   
ENDIF.    

MODIFY gt_output FROM ls_output_sav INDEX lv_index.  
ENDLOOP.

ENDFORM.



FORM frm_full_init.
*.....Zurücksetzen aller Tabellen zum Fertigungsauftrag  
CALL FUNCTION 'CO_EXT_ORDER_RESET'    
EXPORTING      i_no_mat_reset 
= 'X'.
*...Tabellen Proze#daten zurücksetzen  
CALL FUNCTION 'CKML_ORD_CONN_MOD_BUFFER_INIT'.
* Daten für Komponentenzuordnung zurücksetzen  
CALL FUNCTION 'CS_EX_DATA_REFRESH'.
ENDFORM.