双击显示明细

超、凢脫俗 2024-04-18 15:09 64阅读 0赞

A 调用标准事务码

*\*&---------------------------------------------------------------------\**  
*\*& Report ZLXF24*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zlxf24.  
  
TABLES : ekko .  
  
DATA: BEGIN OF gs\_out,  
        ebeln LIKE ekpo\-ebeln,  
        matnr LIKE ekpo\-matnr,  
  
      END OF gs\_out .  
  
DATA: gt\_out LIKE TABLE OF gs\_out .  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
SELECT-OPTIONS : s\_ebeln FOR ekko\-ebeln .  
SELECT ebeln matnr  
  INTO TABLE gt\_out  
  FROM  ekpo  
  WHERE ebeln IN s\_ebeln .  
DEFINE append\_field.  
  gs\_fieldcat\-fieldname = &1.  
  gs\_fieldcat\-seltext\_l = &2.  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
END-OF-DEFINITION.  
  
  
  
append\_field: 'EBELN' '采购单号' .  
append\_field: 'MATNR' '物料编号' .  
  
  
  
*\*  gs\_layout-box\_fieldname = 'MARK'.*  
gs\_layout\-colwidth\_optimize = 'X'.  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
  EXPORTING  
    i\_callback\_program      = sy\-repid  
*\*   i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'*  
    i\_callback\_user\_command = 'FRM\_USER\_COMMAND'  
*\**  
*\*   I\_GRID\_SETTINGS         =*  
    is\_layout               = gs\_layout  
    it\_fieldcat             = gt\_fieldcat  
*\*   ES\_EXIT\_CAUSED\_BY\_USER  =*  
  TABLES  
    t\_outtab                = gt\_out  
  EXCEPTIONS  
    program\_error           = 1  
    OTHERS                  = 2.  
IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
ENDIF.  
  
  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  DATA: l\_answer TYPE c.  
  
  
  IF  uv\_ucomm EQ  '&IC1' .  
    IF us\_selfield\-fieldname = 'MATNR'.  *" gs\_out **里面的字段*  
      READ TABLE gt\_out INTO gs\_out INDEX us\_selfield\-tabindex.  
      IF sy\-subrc = 0.  
        SET PARAMETER ID 'MAT' FIELD gs\_out\-matnr.  
*\*      SET PARAMETER ID 'WRK' FIELD gw\_out-werks.*  
*\*      SET PARAMETER ID 'LIF' FIELD gw\_out-lifnr.*  
        CALL TRANSACTION 'ME1M' AND SKIP FIRST SCREEN.  
      ENDIF.  
    ENDIF.  
  
  
  ENDIF .  
  
  us\_selfield\-col\_stable = 'X'.  
  us\_selfield\-row\_stable = 'X'. *"**自动刷新之前记住光标所在的行和列的位置*  
  us\_selfield\-refresh = 'X'.  *"**自动刷新*  
  
ENDFORM .

B 另外 自定义弹出窗口（部分代码）

CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program      = sy\-repid  
      i\_callback\_user\_command = 'USER\_COMMAND'  
      is\_layout               = ws\_layout  
      it\_fieldcat             = ws\_fieldcat\[\]  
      it\_special\_groups       = ws\_fieldgroups\_tab\[\]  
      it\_sort                 = ws\_sortfields\_tab\[\]  
      it\_events               = ws\_events\[\]  
      i\_grid\_title            = title  
      i\_default               = 'X'  
      i\_save                  = 'A'  
    TABLES  
      t\_outtab                = gt\_itab\[\]  
    EXCEPTIONS  
      program\_error           = 1  
      OTHERS                  = 2.  
  
ENDFORM.                    *" WRITE\_DATA*  
  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  USER\_COMMAND*  
*\*&---------------------------------------------------------------------\**  
*\*       text*  
*\*----------------------------------------------------------------------\**  
FORM user\_command USING r\_ucomm LIKE sy\-ucomm  
rs\_selfield TYPE slis\_selfield.  
  
  DATA: g\_selected\_field\_value(80).  
  
  IF rs\_selfield\-fieldname EQ 'MATNR'.  
  
    CASE r\_ucomm.  
  
      WHEN '&IC1'.  
        READ TABLE gt\_itab INDEX  rs\_selfield\-tabindex.  
        PERFORM show\_detial USING gt\_itab\-matnr gt\_itab\-lgort  
                                  gt\_itab\-zsqjc gt\_itab\-zbqjc..  
*\*        SET PARAMETER ID 'MAT' FIELD GT\_ITAB-MATNR.*  
*\*        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN .*  
    ENDCASE.  
  ENDIF.  
ENDFORM.

show\_detial  里面部分代码

CLEAR ls\_fcat.  
  ls\_fcat\-fieldname = 'REF\_POS'.  
  ls\_fcat\-seltext\_l = '参考行项目'.  
  ls\_fcat\-outputlen = 10.  
  APPEND ls\_fcat TO lt\_fcat.  
  
  CLEAR ls\_fcat.  
  ls\_fcat\-fieldname = 'REF\_TXT'.  
  ls\_fcat\-seltext\_l = '抬头文本'.  
  ls\_fcat\-outputlen = 50.  
  APPEND ls\_fcat TO lt\_fcat.  
  CALL FUNCTION 'REUSE\_ALV\_POPUP\_TO\_SELECT'  
    EXPORTING  
      i\_screen\_start\_column = 7                                       *"ALV**起始位置*  
      i\_screen\_start\_line   = 7  
      i\_screen\_end\_column   = 173  
      i\_screen\_end\_line     = 30  
      i\_title               = '本期发生明细'  *"**这里设置**alv**标题*  
      i\_tabname             = space    *"**这里默认是空就**OK**了*  
      it\_fieldcat           = lt\_fcat\[\]  *"**这里是字段目录*  
      i\_callback\_program    = sy\-repid  
    TABLES  
      t\_outtab              = lt\_itab\[\]  *"**输出内表**.*  
    EXCEPTIONS  
      program\_error         = 1  
      OTHERS                = 2.  
ENDFORM.