ABAP调用别的程序

短命女 2023-02-15 03:44 1阅读 0赞

适用场景：

调用别人程序或标准程序 然后加以过滤

*&---------------------------------------------------------------------\**  
*\*& Report ZFI020*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zfi020.  
  
TABLES : mseg .  
  
  
TYPES:  
  
  BEGIN OF ty\_result,  
    root      TYPE i,  
    level     TYPE i,  
    ebeln     TYPE ebeln,  
    ebelp     TYPE ebelp,  
    aufnr     TYPE mseg\-aufnr,  
    kostl     TYPE mseg\-kostl,  
    kdauf     TYPE mseg\-kdauf,  
    kdpos     TYPE mseg\-kdpos,  
    matnr\_in  TYPE mseg\-matnr,  
    maktx\_in  TYPE maktx,  
    charg\_in  TYPE mseg\-charg,  
    matnr\_use TYPE mseg\-matnr,  
    maktx\_use TYPE maktx,  
    charg\_use TYPE mseg\-charg,  
    menge     TYPE mseg\-menge,  
    meins     TYPE mseg\-meins,  
    lifnr     TYPE ekko\-lifnr,  
    name1     TYPE  lfa1\-name1,  
  END OF ty\_result .  
  
SELECT-OPTIONS:  
  s\_werks FOR mseg\-werks NO INTERVALS *"**工厂*  
                         NO\-EXTENSION  
                         OBLIGATORY  
                         DEFAULT '1000',  
  s\_matnr FOR mseg\-matnr , *"**物料编码*  
  s\_charg FOR mseg\-charg . *"**批次号*  
  
  
DATA : gs\_out TYPE  ty\_result .  
  
DATA: gt\_out TYPE  TABLE OF ty\_result .  
  
  
FIELD-SYMBOLS: <lt\_pay\_data> TYPE ANY TABLE,  
               <lt\_temp>     TYPE ANY TABLE,  
               <ls\_data>.  
  
DATA lr\_pay\_data              TYPE REF TO data.  
  
  
cl\_salv\_bs\_runtime\_info=>set( EXPORTING    display  = abap\_false  
                                            metadata = abap\_false  
                                            data     = abap\_true ).  
  
SUBMIT zpp008  
   WITH s\_matnr  IN s\_matnr  
   WITH s\_charg IN  s\_charg  
    AND RETURN.  
  
  
  
  
*\**  
*\*  cl\_salv\_bs\_runtime\_info=>set( EXPORTING display  = abap\_false*  
*\*                                            metadata = abap\_false*  
*\*                                            data     = abap\_true ).*  
*\**  
*\*   CL\_SALV\_BS\_RUNTIME\_INFO=>SET(*  
*\*     EXPORTING*  
*\*       DISPLAY  = ABAP\_FALSE*  
*\*       METADATA = ABAP\_FALSE*  
*\*       DATA     = ABAP\_TRUE ).*  
CLEAR lr\_pay\_data.  
UNASSIGN <lt\_pay\_data>.  
  
TRY.  
    cl\_salv\_bs\_runtime\_info=>get\_data\_ref(  
      IMPORTING r\_data = lr\_pay\_data ).  
    ASSIGN lr\_pay\_data\->\* TO <lt\_pay\_data>.  
  
  CATCH cx\_salv\_bs\_sc\_runtime\_info.  
ENDTRY.  
  
cl\_salv\_bs\_runtime\_info=>clear\_all( ).  
IF <lt\_pay\_data> IS ASSIGNED.  
  LOOP AT <lt\_pay\_data> ASSIGNING <ls\_data>.  
    MOVE-CORRESPONDING <ls\_data> TO gs\_out.  
    APPEND gs\_out TO gt\_out.  
  ENDLOOP .  
ENDIF  .  
  
  
  
LOOP AT gt\_out INTO gs\_out .  
  SELECT  SINGLE  a~lifnr b~name1 INTO ( gs\_out\-lifnr ,gs\_out\-name1 )  
    FROM ekko AS a  
    JOIN lfa1 AS b ON a~lifnr = b~lifnr  
    WHERE a~ebeln = gs\_out\-ebeln .  
  
  
  
ENDLOOP .