SAP ABAP ALV下钻

柔光的暖阳◎ 2022-12-23 07:06 192阅读 0赞

在显示出来的ALV里面双击，跳转到自开发的程序或者标准程序

REPORT zalv02.  
  
TABLES : makt.  
  
  
SELECT-OPTIONS : s\_matnr FOR makt\-matnr .  
  
DATA: gt\_out LIKE TABLE OF makt .  
DATA: gs\_out LIKE   makt .  
  
SELECT \*  
  INTO TABLE gt\_out  
 FROM  
 makt  
  WHERE matnr  IN s\_matnr.  
  
  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
  
*\*&---**全局内表定义*  
FIELD-SYMBOLS: <gt\_output> TYPE STANDARD TABLE,      *" **定义指针*  
               <gs\_output>,  
               <dyn\_field>,  
               <fs\_color>  TYPE lvc\_t\_scol,  
               <fs\_style>  TYPE lvc\_t\_styl.  
  
  
  
gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  
gs\_fieldcat\-fieldname = 'MATNR ' .  
gs\_fieldcat\-coltext  = '物料编码' .  
APPEND  gs\_fieldcat TO gt\_fieldcat  .  
CLEAR: gs\_fieldcat .  
  
gs\_fieldcat\-fieldname = 'MAKTX ' .  
gs\_fieldcat\-coltext  = '物料描述' .  
APPEND  gs\_fieldcat TO gt\_fieldcat  .  
CLEAR: gs\_fieldcat .  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
  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\_lvc           = gs\_layout  
    it\_fieldcat\_lvc         = gt\_fieldcat  
    i\_save                  = 'A'  
*\*   i\_grid\_settings         = ls\_grid\_settings*  
*\*   it\_events               = lt\_events*  
*\*   is\_variant              = ls\_variant*  
*\*   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 r\_ucomm LIKE sy\-ucomm  
                         rs\_selfield TYPE slis\_selfield.  
  
  
*\*    WHEN '&IC1'.*  
  READ TABLE gt\_out INDEX  rs\_selfield\-tabindex INTO gs\_out .  
  IF sy\-subrc = 0.  
  
    IF rs\_selfield\-fieldname+0(1) = 'M'  .*"AND P\_YFWD = 'X'.*  
  
*\*          SUBMIT ZALV01 WITH P\_MATNR = gs\_out-matnr*  
*\*                             AND RETURN .*  
  
  
  
      IF rs\_selfield\-fieldname EQ 'MATNR'.  
        CALL FUNCTION 'AUTHORITY\_CHECK\_TCODE'  
          EXPORTING  
            tcode  = 'MM03'  
          EXCEPTIONS  
            ok     = 0  
            not\_ok = 2  
            OTHERS = 3.  
        IF sy\-subrc <> 0.  
        ENDIF.  
        CHECK gs\_out\-matnr IS NOT INITIAL.  
        SET PARAMETER ID 'MAT' FIELD gs\_out\-matnr .  
        CALL TRANSACTION 'MB52' AND SKIP FIRST SCREEN.  
        CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.  
      ENDIF.  
  
  
  
  
*\*          CLEAR:S\_POPER.*  
*\*          FREE:S\_POPER.*  
*\*          S\_POPER-SIGN = 'I'.*  
*\*          S\_POPER-OPTION = 'BT' .*  
*\*          S\_POPER-LOW = RS\_SELFIELD-FIELDNAME+1(3) .*  
*\*          APPEND S\_POPER.*  
*\**  
*\**  
*\**  
*\*          SUBMIT ZCO001\_ITEM  WITH P\_BUKRS  = <FS\_BUKRS>*  
*\*                              WITH P\_GJAHR  = <FS\_GJAHR>*  
*\*                              WITH P\_RCNTR  = <FS\_RCNTR>*  
*\*                              WITH S\_POPER  IN S\_POPER*  
*\*                              WITH P\_RACCT  = <FS\_RACCT>*  
*\*                              AND RETURN.*  
  
  
*\*        "**双击凭证号进入**FB03*  
*\*        IF FU\_SELFIELD-FIELDNAME EQ 'BELNR'.*  
*\*          CALL FUNCTION 'AUTHORITY\_CHECK\_TCODE'*  
*\*            EXPORTING*  
*\*              TCODE  = 'FB03'*  
*\*            EXCEPTIONS*  
*\*              OK     = 0*  
*\*              NOT\_OK = 2*  
*\*              OTHERS = 3.*  
*\*          IF SY-SUBRC <> 0.*  
*\*          ENDIF.*  
*\*          CHECK GS\_ALV-BELNR IS NOT INITIAL.*  
*\*          SET PARAMETER ID 'BLN' FIELD GS\_ALV-BELNR.*  
*\*          SET PARAMETER ID 'BUK' FIELD GS\_ALV-RBUKRS.*  
*\*          SET PARAMETER ID 'GJR' FIELD GS\_ALV-GJAHR.*  
*\*          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.*  
*\*        ENDIF.*  
*\*      ENDIF.*  
  
  
    ENDIF.  
  ENDIF .  
  
ENDFORM .

*\*&---------------------------------------------------------------------\**  
*\*& Report ZALV01*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zalv01.  
  
TABLES : mara.  
  
  
SELECT-OPTIONS : s\_matnr FOR mara\-matnr .  
  
PARAMETERS : P\_matnr TYPE  mara\-matnr .  
  
DATA: gt\_out LIKE TABLE OF mara .  
  
  
SELECT \*  
  INTO TABLE gt\_out  
 FROM  
 mara  
  WHERE matnr   = P\_MATNR .  
  
  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
  
  
gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  
gs\_fieldcat\-fieldname = 'MATNR ' .  
gs\_fieldcat\-coltext  = '物料编码' .  
APPEND  gs\_fieldcat TO gt\_fieldcat  .  
CLEAR: gs\_fieldcat .  
  
gs\_fieldcat\-fieldname = 'ERSDA ' .  
gs\_fieldcat\-coltext  = '日期' .  
APPEND  gs\_fieldcat TO gt\_fieldcat  .  
CLEAR: gs\_fieldcat .  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
  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\_lvc      = gs\_layout  
    it\_fieldcat\_lvc    = gt\_fieldcat  
    i\_save             = 'A'  
*\*   i\_grid\_settings    = ls\_grid\_settings*  
*\*   it\_events          = lt\_events*  
*\*   is\_variant         = ls\_variant*  
*\*   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 FU\_UCOMM LIKE SY\-UCOMM  
                          FU\_SELFIELD TYPE SLIS\_SELFIELD.  
  
  
ENDFORM .