ABAP OOALV

短命女 2022-04-03 14:12 310阅读 0赞

效果

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3][]

MODULE init\_alv OUTPUT.  
  
  PERFORM init\_alv.  
  PERFORM init\_alv2.  
  PERFORM init\_alv3.  
ENDMODULE.

FORM init\_alv .  
  " ------------------display avv1-------------------------  
  IF gs\_alv IS INITIAL .  
    "-------------------build fieldcat ----------------  
    DEFINE %%add\_fieldcat .  
      CLEAR gs\_fieldcat .  
      gv\_pos = gv\_pos + 1 .  
      gs\_fieldcat-col\_pos = gv\_pos .  
      gs\_fieldcat-fieldname = &1 .  
      gs\_fieldcat-scrtext\_m = &2 .  
      gs\_fieldcat-outputlen = &3.  
      CASE &1 .  
        WHEN 'GYS' .  
          gs\_fieldcat-edit  = 'X' .  "单列可修改  
      ENDCASE .  
  
      APPEND gs\_fieldcat TO gt\_fieldcat .  
  
    END-OF-DEFINITION .  
  
    %%add\_fieldcat:  
\*    'ZYMD' '日期'        '10',  
\*    'ZXUHH' '序号'        '10' ,  
\*    'ZGGDM' '规格代码'     '10' ,  
\*    'ZGGMC' '规格名称'     '20',  
\*    'ZPACK'  '包装方式'   '10',  
\*    'ZNUM ' '数量'        '10' .  
  
\*    'ZYMD' '日期' '10',  
\*    'ZXUHH' '系统订单编号' '10',  
    'ZCOL1' '下单日期' '10',  
    'ZCOL2' '下单日期' '10',  
    'ZCOL3' '客户参考日期/发货日期' '10',  
    'ZCOL4' '单据类型' '10',  
    'ZCOL5' '销售部门' '10',  
    'ZCOL6' '客户参考/平台单号' '10',  
    'ZCOL7' '名称/旺旺号' '10',  
    'ZSPBH' '商品编号' '10',  
    'ZGGDM' '规格代码' '10',  
    'ZGGMC' '规格名称' '10',  
    'ZPACK' '包装方式' '10',  
    'ZNUM' '数量' '10',  
  
  
  
    'ZCOL13' '行项目文本' '10',  
    'ZCOL14' '库存地点' '10',  
    'ZCOL15' '物流方式' '10',  
    'ZCOL16' '物流单号' '10',  
    'ZCOL17' '您的参考/客户联系人' '10',  
    'ZCOL18' '单位' '10',  
    'ZCOL19' '抬头文本' '10',  
    'ZCOL20' '单价' '10',  
    'ZCOL21' '总金额' '10',  
    'ZCOL22' '货币' '10',  
    'ZCOL23' '付款条件' '10',  
    'ZCOL24' '物料编码' '10',  
    'ZCOL25' '规格型号' '10',  
    'ZCOL26' '物料描述' '10',  
    'ZCOL27' '请求交货日期' '10',  
    'ZCOL28' '行项目类别' '10',  
    'ZCOL29' '销售组织' '10',  
    'ZCOL30' '分销渠道' '10',  
    'ZCOL31' '产品组' '10',  
    'ZCOL32' '销售组' '10',  
    'ZCOL33' '客户编号' '10',  
    'ZCOL34' '送达方' '10',  
    'ZCOL35' '工厂' '10',  
    'ZCOL36' '订单原因' '10' .  
  
  
  
  
    " -----------------buildalv--------------------  
    CREATE OBJECT gs\_parent  
      EXPORTING  
        container\_name = 'GC\_CON1'.  
    " 将ALV植入容器  
    CREATE OBJECT gs\_alv  
      EXPORTING  
        i\_parent = gs\_parent.  
  
    CALL METHOD gs\_alv->set\_table\_for\_first\_display  
      EXPORTING  
\*       i\_buffer\_active      =  
\*       i\_bypassing\_buffer   =  
\*       i\_consistency\_check  =  
\*       i\_structure\_name     =  
\*       is\_variant           =  
\*       i\_save               =  
\*       i\_default            = 'X'  
        is\_layout            = gs\_layout  
\*       is\_print             =  
\*       it\_special\_groups    =  
        it\_toolbar\_excluding = gt\_exclude  
\*       it\_hyperlink         =  
\*       it\_alv\_graphics      =  
\*       it\_except\_qinfo      =  
\*       ir\_salv\_adapter      =  
      CHANGING  
        it\_outtab            = gt\_outa  
        it\_fieldcatalog      = gt\_fieldcat  
\*       t\_sort               =  
\*       it\_filter            =  
\*                      EXCEPTIONS  
\*       invalid\_parameter\_combination = 1  
\*       program\_error        = 2  
\*       too\_many\_lines       = 3  
\*       others               = 4  
      .  
  
    IF sy-subrc <> 0 .  
\*                     Implement suitable error handling here  
    ENDIF.  
  
  
  ELSE .  
    PERFORM  frm\_fresh\_alv .  
  
  ENDIF .  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form INIT\_ALV2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM init\_alv2 .  
  
  "-------------------------display alv2 ------------------------  
  
  
  IF gs\_alv2 IS INITIAL .  
    "-------------------build fieldcat ----------------  
    DEFINE %%add\_fieldcat .  
      CLEAR gs\_fieldcat .  
      gv\_pos = gv\_pos + 1 .  
      gs\_fieldcat-col\_pos = gv\_pos .  
      gs\_fieldcat-fieldname = &1 .  
      gs\_fieldcat-scrtext\_m = &2 .  
      gs\_fieldcat-outputlen = &3.  
      CASE &1 .  
        WHEN 'GYS' .  
          gs\_fieldcat-edit  = 'X' .  "单列可修改  
      ENDCASE .  
  
      APPEND gs\_fieldcat TO gt\_fieldcat2 .  
  
    END-OF-DEFINITION .  
  
    %%add\_fieldcat:  
\*    'ZYMD' '日期'        '10',  
    'ZXUHH' '序号'        '10' ,  
    'ZSPBH' '商品编号'     '20',  
    'ZGGMC' '规格名称'     '20',  
    'ZPACK'  '包装方式'   '10',  
    'ZASSIGN\_NUM ' '数量'   '10' .  
  
  
  
    " -----------------buildalv--------------------  
    CREATE OBJECT gs\_parent2  
      EXPORTING  
        container\_name = 'GC\_CON2'.  
    " 将ALV植入容器  
    CREATE OBJECT gs\_alv2  
      EXPORTING  
        i\_parent = gs\_parent2.  
  
    CALL METHOD gs\_alv2->set\_table\_for\_first\_display  
      EXPORTING  
\*       i\_buffer\_active      =  
\*       i\_bypassing\_buffer   =  
\*       i\_consistency\_check  =  
\*       i\_structure\_name     =  
\*       is\_variant           =  
\*       i\_save               =  
\*       i\_default            = 'X'  
        is\_layout            = gs\_layout2  
\*       is\_print             =  
\*       it\_special\_groups    =  
        it\_toolbar\_excluding = gt\_exclude  
\*       it\_hyperlink         =  
\*       it\_alv\_graphics      =  
\*       it\_except\_qinfo      =  
\*       ir\_salv\_adapter      =  
      CHANGING  
        it\_outtab            = gt\_outb  
        it\_fieldcatalog      = gt\_fieldcat2  
\*       t\_sort               =  
\*       it\_filter            =  
\*                      EXCEPTIONS  
\*       invalid\_parameter\_combination = 1  
\*       program\_error        = 2  
\*       too\_many\_lines       = 3  
\*       others               = 4  
      .  
  
    IF sy-subrc <> 0 .  
\*                     Implement suitable error handling here  
    ENDIF.  
  
  
  ELSE .  
    PERFORM  frm\_fresh\_alv2 .  
  
  ENDIF .  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form INIT\_ALV3  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM init\_alv3 .  
  
  "-------------------------display alv2 ------------------------  
  
  
  IF gs\_alv3 IS INITIAL .  
    "-------------------build fieldcat ----------------  
    DEFINE %%add\_fieldcat .  
      CLEAR gs\_fieldcat .  
      gv\_pos = gv\_pos + 1 .  
      gs\_fieldcat-col\_pos = gv\_pos .  
      gs\_fieldcat-fieldname = &1 .  
      gs\_fieldcat-scrtext\_m = &2 .  
      gs\_fieldcat-outputlen = &3.  
      CASE &1 .  
        WHEN 'GYS' .  
          gs\_fieldcat-edit  = 'X' .  "单列可修改  
      ENDCASE .  
  
      APPEND gs\_fieldcat TO gt\_fieldcat3 .  
  
    END-OF-DEFINITION .  
  
    %%add\_fieldcat:  
  
    'ZSPBH'  '商品编号'   '10' ,  
    'ZGGMC' '规格名称'     '20' ,  
    'ZPACK'  '包装方式'   '10',  
    'MATNR  ' '物料编码'    '10' ,  
    'ZGGXH' '规格型号'  '10' ,  
    'ZGGDM' '规格代码'     '10' ,  
    'CPPMC' '产品名称'  '10'.  
  
  
  
    " -----------------buildalv--------------------  
    CREATE OBJECT gs\_parent3  
      EXPORTING  
        container\_name = 'GC\_CON3'.  
    " 将ALV植入容器  
    CREATE OBJECT gs\_alv3  
      EXPORTING  
        i\_parent = gs\_parent3.  
  
    CALL METHOD gs\_alv3->set\_table\_for\_first\_display  
      EXPORTING  
\*       i\_buffer\_active      =  
\*       i\_bypassing\_buffer   =  
\*       i\_consistency\_check  =  
\*       i\_structure\_name     =  
\*       is\_variant           =  
\*       i\_save               =  
\*       i\_default            = 'X'  
        is\_layout            = gs\_layout3  
\*       is\_print             =  
\*       it\_special\_groups    =  
        it\_toolbar\_excluding = gt\_exclude  
\*       it\_hyperlink         =  
\*       it\_alv\_graphics      =  
\*       it\_except\_qinfo      =  
\*       ir\_salv\_adapter      =  
      CHANGING  
        it\_outtab            = gt\_outd  
        it\_fieldcatalog      = gt\_fieldcat3  
\*       t\_sort               =  
\*       it\_filter            =  
\*                      EXCEPTIONS  
\*       invalid\_parameter\_combination = 1  
\*       program\_error        = 2  
\*       too\_many\_lines       = 3  
\*       others               = 4  
      .  
  
    IF sy-subrc <> 0 .  
\*                     Implement suitable error handling here  
    ENDIF.  
  
  
  ELSE .  
    PERFORM  frm\_fresh\_alv3 .  
  
  ENDIF .  
  
ENDFORM.

**OOALV 相关**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6][]![20181222202340349.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220403/161b3cd5e9804733b48bb47d8be82c2e.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220403/a39464d5237d41f08ab30acd75e12bef.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2]: /images/20220403/a9cf6ef4e3a442c099bb97cebd590ec7.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3]: /images/20220403/aa4d3a3d26b3459b96c6a640b3125d1c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4]: /images/20220403/6641bb1d51f04e059f7581d887bce6fe.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5]: /images/20220403/f99738ce27874e7d99e18be0894f1cad.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6]: https://img-blog.csdnimg.cn/20181222202303167.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ==,size_16,color_FFFFFF,t_70
[20181222202340349.png]: /images/20220403/a77329d478bc4dcf87f42454030545f0.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7]: /images/20220403/7210648542924b35a26b6fd6d01d227b.png