生产订单批量报工

状态栏及屏幕设置见图

*&---------------------------------------------------------------------*
*& Report  ZPPR106
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZPPR106.

TABLES: afko,afpo,aufk.

TYPES: BEGIN OF tp_output,
         box    TYPE xfeld,
         aufnr  TYPE afko-aufnr,    " 生产订单
         werks  TYPE afru-werks,    " 工厂
         plnbez TYPE afko-plnbez,   " 物料编码
         maktx  TYPE makt-maktx,    " 物料描述
         wrkst  TYPE mara-wrkst,    " 基本物料
         zcpgg  TYPE mara-zcpgg,    " 规格型号
         gamng  TYPE afko-gamng,    " 生产订单数量
         gmein  TYPE afko-gmein,    " 单位
         lmnga  TYPE afru-lmnga,    " 确认数量
         xmnga  TYPE afru-xmnga,    " 确认废品数量
         rmnga  TYPE afru-rmnga,    " 确认返工数量
*         meinh  TYPE afru-meinh,    " 单位
         isdd   TYPE afru-isdd,     " 执行开始日期
         iedd   TYPE afru-iedd,     " 执行完成日期
         budat  TYPE afru-budat,    " 过账日期
         lmngv  TYPE afvv-lmnga,    " 已确认数量
         xmngv  TYPE afvv-xmnga,    " 已确认废品数量
         rmngv  TYPE afvv-rmnga,    " 已确认返工数量
         ltxa1  TYPE afru-ltxa1,    " 确认文本
         statu  TYPE char50,
         msg    TYPE bapi_msg,      " 消息
         fstyle TYPE lvc_t_styl,
         aufpl  TYPE afko-aufpl,
         objnr  TYPE aufk-objnr,
         ablad  TYPE afpo-ablad,
         rcol   TYPE char4,               "颜色
       END OF tp_output.
DATA: gt_output TYPE STANDARD TABLE OF tp_output.


TYPES: BEGIN OF tp_afvv,
         aufpl TYPE afvv-aufpl,
         aplzl TYPE afvv-aplzl,
         gmnga TYPE afvv-gmnga,
         objnr TYPE afvc-objnr,
         lmnga TYPE afvv-lmnga,
         xmnga TYPE afvv-xmnga,
         rmnga TYPE afvv-rmnga,
       END OF tp_afvv.

TYPES: BEGIN OF tp_statu,
         objnr TYPE afvc-objnr,
         stat  TYPE jest-stat,
         txt04 TYPE tj02t-txt04,
         txt30 TYPE tj02t-txt30,
       END OF tp_statu.

DATA: gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo.

CONSTANTS: yx VALUE 'X'.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
PARAMETERS: p_werks TYPE afru-werks OBLIGATORY DEFAULT '3100'.
SELECT-OPTIONS:s_aufnr FOR afko-aufnr,
               s_fevor FOR afko-fevor,
               s_gstrp FOR afko-gstrp, "订单开始日期
               s_gltrp FOR afko-gltrp,"完成日期
               s_auart  FOR aufk-auart. "订单类型
*               s_ablad FOR afpo-ablad.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN:
  COMMENT 1(20) TEXT-sys FOR FIELD p_syst1             MODIF ID fnr,
  POSITION 33.
PARAMETERS:
  p_syst1 LIKE tj02t-txt04                           MODIF ID fnr,
  p_sysh1 LIKE jest-stat                    NO-DISPLAY.
SELECTION-SCREEN
  POSITION 46.
PARAMETERS:
  p_kz_e1   LIKE rcosa-excl1                           MODIF ID fnr.
SELECTION-SCREEN:
  COMMENT 40(5) TEXT-exc FOR FIELD p_kz_e1             MODIF ID fnr,
  COMMENT 52(3) TEXT-and FOR FIELD p_syst2             MODIF ID fnr,
    POSITION 58.
PARAMETERS:
  p_syst2 LIKE tj02t-txt04                           MODIF ID fnr,
  p_sysh2 LIKE jest-stat                    NO-DISPLAY.
SELECTION-SCREEN
    POSITION 71.

PARAMETERS:
  p_kz_e2   LIKE rcosa-excl1                           MODIF ID fnr.
SELECTION-SCREEN:
    COMMENT 65(5) TEXT-exc FOR FIELD p_kz_e2             MODIF ID fnr.

SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN END OF BLOCK blk1.


INITIALIZATION.
  PERFORM frm_init_fcat.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst1.
  PERFORM val_req_status IN PROGRAM ppio_entry IF FOUND USING 'P_SYST1' CHANGING p_syst1 p_sysh1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_syst2.
  PERFORM val_req_status IN PROGRAM ppio_entry IF FOUND USING 'P_SYST2' CHANGING p_syst2 p_sysh2.

AT SELECTION-SCREEN ON p_syst1.
  PERFORM system_state_check IN PROGRAM ppio_entry IF FOUND USING yx CHANGING p_syst1 p_sysh1.

AT SELECTION-SCREEN ON p_syst2.
  PERFORM system_state_check IN PROGRAM ppio_entry IF FOUND USING yx CHANGING p_syst2 p_sysh2.


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 = 'BOX'.
  gs_layo-stylefname = 'FSTYLE'.
  gs_layo-info_fname = 'RCOL'.

  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.
    IF &3 NE space.
      ls_fcat-ref_field = ls_fcat-fieldname.
      ls_fcat-ref_table = &3.
      TRANSLATE ls_fcat-ref_table TO UPPER CASE.
    ENDIF.
    IF &1 EQ 'aufnr'. " OR &1 EQ 'aufnr'.
      ls_fcat-hotspot = 'X'.
      ls_fcat-key = 'X'.
    ENDIF.
    ls_fcat-edit = &4.
    TRANSLATE ls_fcat-ref_table TO UPPER CASE.
    APPEND ls_fcat TO gt_fcat.
  END-OF-DEFINITION.

  mro_fcat 'aufnr' '生产订单' 'afko' space.
  mro_fcat 'werks' '工厂' space space.
  mro_fcat 'plnbez' '物料编码' space space.  mro_fcat 
'maktx' '物料描述' space space.  mro_fcat 
'wrkst' '基本物料' space space.  mro_fcat 
'zcpgg' '产品规格' space space.  mro_fcat 
'gamng' '生产订单数量' 'afko' space.  mro_fcat 
'gmein' '单位' 'afko' space.  mro_fcat 
'lmnga' '确认数量' 'afru' 'X'.  mro_fcat 
'xmnga' '确认废品数量' 'afru' 'X'.  mro_fcat 
'rmnga' '确认返工数量' 'afru' 'X'.  mro_fcat 
'ablad' '卸货点' 'afpo' space.  mro_fcat 
'isdd' '执行开始日期' 'afru' 'X'.  mro_fcat 
'iedd' '执行完成日期' 'afru' 'X'.  mro_fcat 
'budat' '过账日期' 'afru' 'X'.  mro_fcat 
'lmngv' '已确认数量' 'afvv' space.  mro_fcat 
'xmngv' '已确认废品数量' 'afvv' space.  mro_fcat 
'rmngv' '已确认返工数量' 'afvv' space.  mro_fcat 
'ltxa1' '确认文本' 'afru' 'X'.  mro_fcat 
'statu' '系统状态' space space.  mro_fcat 
'msg' '消息' space space.

ENDFORM.



*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_get_data .  
DATA result3 TYPE string.  
DATA c_test3 TYPE string.  
DATA c_test6 TYPE string.                              "add by pengxz 20180903  
DATA result2(4) TYPE c.  
DATA result TYPE string.  

CONSTANTS:c_test TYPE string VALUE '002920|000178|002154|002154|002850|000178|000487|000054|003091|002553'.  
CONSTANTS:c_zfc TYPE string VALUE 'sap_'.  
DATA:c_test1 TYPE string .  
DATA: lv_timestamp TYPE timestamp. "UTC Time Stamp in Short Form (YYYYMMDDhhmmss)  
GET TIME STAMP FIELD lv_timestamp.  
DATA: lv_timestamp1 TYPE string .  c_test1 
= c_zfc && lv_timestamp .  

CONSTANTS:c_test2 TYPE string VALUE 'SAP消息通知'.  
DATA: ls_style  TYPE lvc_s_styl.  
DATA: lv_stprs TYPE stprs .  
DATA: ls_output LIKE LINE OF gt_output,        lv_delfag 
TYPE xfeld,        lv_index  
LIKE sy-tabix.  

DATA: lt_afvv  TYPE STANDARD TABLE OF tp_afvv,        ls_afvv  
LIKE LINE OF lt_afvv,        lt_statu 

TYPE STANDARD TABLE OF tp_statu,        ls_statu 
LIKE LINE OF lt_statu,        lt_jest  

TYPE STANDARD TABLE OF jest,        ls_jest  
LIKE LINE OF lt_jest.  

RANGES: rg_aufpl FOR afko-aufpl,          rg_objnr 
FOR aufk-objnr,          rg_stati 
FOR jest-stat,          rg_state 
FOR jest-stat.  

IF p_sysh1 NE space.    
IF p_kz_e1 EQ space.      rg_stati
-sign = 'I'.      rg_stati
-option = 'EQ'.      rg_stati
-low = p_sysh1.      
APPEND rg_stati.    
ELSE.      rg_state
-sign = 'I'.      rg_state
-option = 'EQ'.      rg_state
-low = p_sysh1.      
APPEND rg_state.    
ENDIF.  
ENDIF.  

IF p_sysh2 NE space.    
IF p_kz_e2 EQ space.      rg_stati
-sign = 'I'.      rg_stati
-option = 'EQ'.      rg_stati
-low = p_sysh2.      
APPEND rg_stati.    
ELSE.      rg_state
-sign = 'I'.      rg_state
-option = 'EQ'.      rg_state
-low = p_sysh2.      
APPEND rg_state.    
ENDIF.  
ENDIF.  

"排除技术性完成的，已删除的，已关闭的，已报工的  
CLEAR: rg_state .  rg_state
-sign = 'I'.  rg_state
-option = 'EQ'.  rg_state
-low = 'I0045'.  
APPEND rg_state.  

CLEAR: rg_state .  rg_state
-sign = 'I'.  rg_state
-option = 'EQ'.  rg_state
-low = 'I0013'.  
APPEND rg_state.  

CLEAR: rg_state .  rg_state
-sign = 'I'.  rg_state
-option = 'EQ'.  rg_state
-low = 'I0046'.  
APPEND rg_state.  

CLEAR: rg_state .  rg_state
-sign = 'I'.  rg_state
-option = 'EQ'.  rg_state
-low = 'I0009'.  
APPEND rg_state.

*  CLEAR: rg_state .
*  rg_state-sign = 'I'.
*  rg_state-option = 'EQ'.
*  rg_state-low = 'I0010'.
*  APPEND rg_state.  

SELECT afko~aufnr afpo~matnr as plnbez makt~maktx mara~wrkst mara~zcpgg aufk~werks         afko
~gamng afko~gmein afko~aufpl aufk~objnr afpo~ablad    
INTO CORRESPONDING FIELDS OF TABLE gt_output    
FROM afko   INNER 
JOIN afpo      
ON afko~aufnr EQ afpo~aufnr   INNER 
JOIN aufk      
ON afko~aufnr EQ aufk~aufnr   INNER 
JOIN makt      
ON afpo~matnr EQ makt~matnr     
AND makt~spras EQ sy-langu   INNER 
JOIN mara ON afpo~matnr EQ mara~matnr   
WHERE afko~aufnr IN s_aufnr     
AND afko~fevor IN s_fevor     
AND afko~gstrp IN s_gstrp     
AND afko~gltrp IN s_gltrp     
AND aufk~auart IN s_auart     
AND aufk~werks EQ p_werks     
AND aufk~autyp EQ '10'     
AND aufk~loekz EQ space.  

CHECK sy-subrc EQ 0.  
LOOP AT gt_output INTO ls_output.    
IF rg_aufpl[] IS INITIAL OR ls_output-aufpl NOT IN rg_aufpl.      rg_aufpl
-sign = 'I'.      rg_aufpl
-option = 'EQ'.      rg_aufpl
-low = ls_output-aufpl.      
APPEND rg_aufpl.    
ENDIF.    

IF rg_objnr[] IS INITIAL OR ls_output-objnr NOT IN rg_objnr.      rg_objnr
-sign = 'I'.      rg_objnr
-option = 'EQ'.      rg_objnr
-low = ls_output-objnr.      
APPEND rg_objnr.    
ENDIF.  
ENDLOOP.  

IF rg_objnr[] IS NOT INITIAL.    
SELECT jest~objnr jest~stat tj02t~txt04 tj02t~txt30           tj02
~nodis      
INTO CORRESPONDING FIELDS OF TABLE lt_statu      
FROM jest INNER JOIN tj02t        
ON jest~stat EQ tj02t~istat       
AND tj02t~spras EQ sy-langu     INNER 
JOIN tj02        
ON jest~stat EQ tj02~istat       
AND tj02~nodis EQ space     
WHERE jest~objnr IN rg_objnr       
AND jest~inact EQ space     
ORDER BY jest~objnr ASCENDING tj02t~txt04 DESCENDING.  
ENDIF.  

IF rg_aufpl[] IS NOT INITIAL.    
SELECT afvv~aufpl afvv~aplzl afvv~gmnga afvc~objnr           afvv
~lmnga afvv~xmnga afvv~rmnga      
INTO CORRESPONDING FIELDS OF TABLE lt_afvv      
FROM afvv INNER JOIN afvc        
ON afvv~aufpl EQ afvc~aufpl       
AND afvv~aplzl EQ afvc~aplzl     
WHERE afvv~aufpl IN rg_aufpl       
AND NOT EXISTS ( SELECT * FROM jest WHERE objnr EQ afvc~objnr AND stat EQ 'I0013' AND inact EQ space )     
ORDER BY afvv~aufpl ASCENDING afvv~aplzl DESCENDING.  
ENDIF.  


LOOP AT gt_output INTO ls_output.    lv_index 
= sy-tabix.    
CLEAR: lv_delfag.    
READ TABLE lt_afvv INTO ls_afvv WITH KEY aufpl = ls_output-aufpl.    
IF sy-subrc EQ 0.      ls_output
-lmngv = ls_afvv-lmnga.      ls_output
-xmngv = ls_afvv-xmnga.      ls_output
-rmngv = ls_afvv-rmnga.    
ENDIF.    ls_output
-isdd = sy-datum.    ls_output
-iedd = sy-datum.    ls_output
-budat = sy-datum.    ls_output
-lmnga = ls_output-gamng - ( ls_output-lmngv + ls_output-xmngv + ls_output-rmngv ).    
LOOP AT lt_statu INTO ls_statu WHERE objnr EQ ls_output-objnr. " AND stat IN rg_stat.      
IF ls_output-statu EQ space.        ls_output
-statu = ls_statu-txt04.      
ELSE.        
CONCATENATE ls_output-statu ls_statu-txt04 INTO ls_output-statu SEPARATED BY space.      
ENDIF.    
ENDLOOP.    

" 排除范围内    
IF rg_state[] IS NOT INITIAL.      
CLEAR: lv_delfag.      
LOOP AT rg_state.        
READ TABLE lt_statu WITH KEY objnr = ls_output-objnr stat = rg_state-low TRANSPORTING NO FIELDS.        
IF sy-subrc EQ 0.          lv_delfag 
= 'X'.          
EXIT.        
ENDIF.      
ENDLOOP.      
IF lv_delfag EQ 'X'.        
DELETE gt_output INDEX lv_index.        
CONTINUE.      
ENDIF.    
ENDIF.    

" 只查询范围内    
IF rg_stati[] IS NOT INITIAL.      
CLEAR: lv_delfag.      
LOOP AT rg_stati.        
READ TABLE lt_statu WITH KEY objnr = ls_output-objnr stat = rg_stati-low TRANSPORTING NO FIELDS.        
IF sy-subrc NE 0.          lv_delfag 
= 'X'.          
EXIT.        
ENDIF.      
ENDLOOP.      
IF lv_delfag EQ 'X'.        
DELETE gt_output INDEX lv_index.        
CONTINUE.      
ENDIF.    
ENDIF.    

CLEAR: lv_stprs .
*    SELECT SINGLE stprs INTO lv_stprs FROM mbew WHERE matnr = ls_output-plnbez AND bwkey = '1000' .

*    IF lv_stprs = 0 OR lv_stprs IS INITIAL .
*      ls_output-msg = 'W：物料无标准成本，无法报工自动入库' .
*      CLEAR: ls_output-fstyle, ls_output-fstyle[].
*      ls_style-style = cl_gui_alv_grid=>mc_style_disabled.
*      INSERT ls_style INTO TABLE ls_output-fstyle.
*    ENDIF .

*    IF ls_output-msg = 'W：物料无标准成本，无法报工自动入库' .
*      ls_output-rcol = 'C610' .
*    ENDIF .    

MODIFY gt_output FROM ls_output INDEX lv_index.  
ENDLOOP.  
CLEAR: c_test6 .  
LOOP AT gt_output INTO ls_output WHERE rcol = 'C610'.    
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'      
EXPORTING        
input  = ls_output-aufnr      
IMPORTING        
output = ls_output-aufnr.    result 
= ls_output-aufnr && '*' && ls_output-plnbez.    
IF c_test6 EQ space.      c_test6 
= result.      
CLEAR result.    
ELSE.      
"CONCATENATE '下列工单物料无标准成本'c_test3 result '成本核算后，请仓库再入库，谢谢！'INTO c_test3.      
CONCATENATE c_test6 '；'result INTO c_test6.    
ENDIF.    
CLEAR: ls_output .  
ENDLOOP.

*  IF c_test6 IS NOT INITIAL .
*    CLEAR: c_test3 .
*    CONCATENATE '下列工单物料无标准成本''('c_test6 ')''成本核算后，请再报工入库，谢谢！' INTO c_test3.
*
*    CLEAR: result3 .
*    CALL FUNCTION 'ZWXCP_MESSAGE'
*      EXPORTING
*        l_userid      = c_test
*        l_messageid   = c_test1
*        l_title       = c_test2
*        l_description = c_test3
*      IMPORTING
*        e_c           = result3.
*  ENDIF .
ENDFORM.


*&---------------------------------------------------------------------*
*& Form FRM_SHOW_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
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.  
IF r_ucomm  EQ '&CHDR'.    
PERFORM frm_prohdr_create.    rs_selfield
-refresh = 'X'.  
ELSEIF r_ucomm EQ '&IC1'.    
IF rs_selfield-fieldname EQ 'AUFNR' AND rs_selfield-value NE space.      
SET PARAMETER ID 'ANR' FIELD rs_selfield-value.      
CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.    
ENDIF.  
ENDIF.

ENDFORM.


FORM frm_prohdr_create.  

DATA: ls_output LIKE LINE OF gt_output,        ls_style  
TYPE lvc_s_styl,        lv_index  
LIKE sy-tabix.  
DATA: ls_return TYPE bapiret1,        lt_detrtn 
TYPE STANDARD TABLE OF bapi_coru_return,        ls_detrtn 
LIKE LINE OF lt_detrtn,        lt_hdrlev 
TYPE STANDARD TABLE OF bapi_pp_hdrlevel,        ls_hdrlev 
LIKE LINE OF lt_hdrlev.  
DATA:lt_merry TYPE c VALUE 'X'.  
CLEAR: ls_return, lt_hdrlev, lt_hdrlev[].  
LOOP AT gt_output INTO ls_output WHERE box = 'X' AND msg = ''.    lv_index 
= sy-tabix.    
CHECK ls_output-fstyle[] IS INITIAL.    
CLEAR: ls_hdrlev, lt_hdrlev[], lt_detrtn, lt_detrtn[], ls_return.    ls_hdrlev

-orderid = ls_output-aufnr.        " 订单号    ls_hdrlev
-fin_conf = '1'.                   " 自动最终确认    ls_hdrlev
-postg_date = ls_output-budat.     " 过账日期    ls_hdrlev
-conf_text = ls_output-ltxa1.      " 确认文本    ls_hdrlev
-conf_quan_unit = ls_output-gmein. " 单位    ls_hdrlev
-exec_start_date = ls_output-isdd. " 确认执行开始日期    ls_hdrlev
-exec_fin_date = ls_output-iedd.   " 确认执行完成日期    ls_hdrlev
-yield = ls_output-lmnga.          " 确认数量    ls_hdrlev
-scrap = ls_output-xmnga.          " 确认废品数量    ls_hdrlev
-rework = ls_output-rmnga.         " 确认返工数量    
APPEND ls_hdrlev TO lt_hdrlev.


*  IF lt_hdrlev[] IS INITIAL.
*    MESSAGE e208(00) WITH '请选择还未报工的订单数据'.
*    RETURN.
*  ENDIF.
*  CHECK lt_hdrlev[] IS NOT INITIAL.    
CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_HDR'      
IMPORTING        
return        = ls_return      
TABLES        athdrlevels   
= lt_hdrlev        detail_return 
= lt_detrtn.    

IF ls_return-type = 'S' OR ls_return-type EQ space.      
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'        
EXPORTING          
wait = 'X'.    
ELSE.      
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.    
ENDIF.

*    LOOP AT gt_output INTO ls_output WHERE box = 'X'.
*    
LOOP AT lt_detrtn INTO ls_detrtn FROM 1.      ls_output
-msg = ls_detrtn-message.    
ENDLOOP.    
IF ls_return-type = 'S' OR ls_return-type EQ space.      
CLEAR: ls_output-fstyle, ls_output-fstyle[].      ls_style
-style = cl_gui_alv_grid=>mc_style_disabled.      
INSERT ls_style INTO TABLE ls_output-fstyle.    
ENDIF.    
MODIFY gt_output FROM ls_output INDEX lv_index.    
CLEAR: ls_output, ls_detrtn, ls_return .    
CLEAR: lt_detrtn, lt_detrtn[] .
*    ENDLOOP.  
ENDLOOP.
ENDFORM.