ABAP 调用其他程序

爱被打了一巴掌 2023-02-19 01:29 14阅读 0赞

1  CALL 事务码

FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
*\*  IF  sy-ucomm EQ '&IC1'  .*  
  
  
  
  READ TABLE gt\_out INDEX  us\_selfield\-tabindex INTO gs\_out .  
  IF sy\-subrc = 0.  
    IF us\_selfield\-fieldname  = 'BELNR' .  
  
      SET PARAMETER ID 'BLN' FIELD  gs\_out\-belnr.  
      SET PARAMETER ID 'GJR' FIELD  gs\_out\-mjahr.  
      SET PARAMETER ID 'BUK' FIELD  '1000'.  
      CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.  
  
*\*      ENDIF .*  
    ENDIF .  
  
  ENDIF .  
ENDFORM .

2 SUBMIT

FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
*\*  IF  sy-ucomm EQ '&IC1'  .*  
  
  
  
    READ TABLE gt\_out INDEX  us\_selfield\-tabindex INTO gs\_out .  
    IF sy\-subrc = 0.  
      IF us\_selfield\-fieldname+0(2) = 'FY' .  
  
        CLEAR:S\_POPER.  
          FREE:S\_POPER.  
          S\_POPER\-SIGN = 'I'.  
          S\_POPER\-OPTION = 'BT' .  
          S\_POPER\-LOW = us\_selfield\-FIELDNAME+2(3) .  
          APPEND S\_POPER.  
      SUBMIT zco001\_item  WITH p\_bukrs  = p\_bukrs  
                             WITH p\_gjahr  = p\_gjahr  
                             WITH p\_rcntr  =  gs\_out\-kostl  
*\*                             WITH s\_poper-low  = us\_selfield-fieldname+1(3)*  
                             WITH  S\_POPER IN S\_POPER  
                             WITH p\_racct  =   gs\_out\-racct  
                             AND RETURN.  
  
*\*      ENDIF .*  
    ENDIF .  
  
  ENDIF .  
ENDFORM .

3 SUBMIT 获取数据

DATA: lv\_i TYPE i .  
lv\_i = 1 .  
  
LOOP AT gt\_matnr INTO gs\_matnr .  
  
  cl\_salv\_bs\_runtime\_info=>set( EXPORTING     display  = abap\_false  
                                              metadata = abap\_false  
                                              data     = abap\_true ).  
  
  
  SUBMIT zpp008\_datatofi  
  WITH s\_matnr  = gs\_matnr\-matnr  
  WITH s\_charg  = gs\_matnr\-charg  
   AND RETURN.  
  
  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 .  
      gs\_out\-root = lv\_i .  
      IF cb\_01 EQ 'X'.  
        IF gs\_out\-matnr\_in =  gs\_matnr\-matnr AND gs\_out\-charg\_in = gs\_matnr\-charg .  
          gs\_out\-flag  = 'X' .  
        ENDIF .  
      ENDIF .  
      APPEND gs\_out  TO gt\_out.  
      CLEAR :gs\_out .  
    ENDLOOP .  
      else .  *"**获取不到*  
        gs\_out\-flag  = 'X' .  
        gs\_out\-root = lv\_i .  
        gs\_out\-matnr\_in =  gs\_matnr\-matnr.  
        gs\_out\-charg\_in = gs\_matnr\-charg  .  
        select SINGLE maktx into gs\_out\-maktx\_in from makt where matnr = gs\_out\-matnr\_in .  
       APPEND gs\_out  TO gt\_out.  
      CLEAR :gs\_out .  
    endif .  
  
 lv\_i = lv\_i + 1  .  
  
ENDLOOP .

案例：集团内外库存

*\*&---------------------------------------------------------------------\**  
*\*& 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,  
    sum       LIKE  mchb\-clabs,  
    flag      TYPE c LENGTH 20,  
    hzkj      TYPE c LENGTH 20,  
    hzrf      TYPE c LENGTH 20,  
    nmkj      TYPE c LENGTH 20,  
    qhkj      TYPE c LENGTH 20,  
    hykj      TYPE c LENGTH 20,  
  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 . *"**批次号*  
  
PARAMETERS p\_LFGJA type mchb\-lfgja .  
PARAMETERS p\_LFMON type mchb\-LFMON .  
  
PARAMETERS: cb\_01 AS CHECKBOX  DEFAULT 'X' .  
PARAMETERS: cb\_02 AS CHECKBOX  DEFAULT 'X' .  
  
  
DATA : gs\_out TYPE  ty\_result .  
  
DATA: gt\_out TYPE  TABLE OF ty\_result .  
  
  
  
  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
  
FIELD-SYMBOLS: <lt\_pay\_data> TYPE ANY TABLE,  
               <lt\_temp>     TYPE ANY TABLE,  
               <ls\_data>.  
  
DATA : lr\_pay\_data              TYPE REF TO data.  
  
  
DATA: BEGIN OF gs\_matnr,  
        matnr LIKE mseg\-matnr,  
        charg LIKE mseg\-charg,  
      END OF gs\_matnr .  
  
DATA: gt\_matnr LIKE TABLE OF gs\_matnr .  
  
DATA: gs\_matnr2 like gs\_matnr .  
DATA: gt\_matnr2 LIKE TABLE OF gs\_matnr .  
  
*"**取数数据*  
  
SELECT matnr charg  
  INTO TABLE gt\_matnr  
  FROM mchb  
  WHERE matnr IN s\_matnr  
  AND charg IN s\_charg  
  and lfgja eq p\_lfgja  
  and lfmon eq p\_lfmon  
  .  
  
  
  
*"**委外仓*  
  
SELECT matnr charg  
  INTO TABLE gt\_matnr2  
  FROM mslb  
  WHERE matnr IN s\_matnr  
  AND charg IN s\_charg  
    and lfgja eq p\_lfgja  
  and lfmon eq p\_lfmon  
  .  
  
LOOP at gt\_matnr2 into gs\_matnr2 .  
  
      APPEND gs\_matnr2 to gt\_matnr .  
  
ENDLOOP .  
  
  
SORT gt\_matnr by matnr charg .  
  
delete ADJACENT DUPLICATES FROM  gt\_matnr COMPARING matnr charg .  
  
  
  
  
  
DATA: lv\_i TYPE i .  
lv\_i = 1 .  
  
LOOP AT gt\_matnr INTO gs\_matnr .  
  
  cl\_salv\_bs\_runtime\_info=>set( EXPORTING     display  = abap\_false  
                                              metadata = abap\_false  
                                              data     = abap\_true ).  
  
  
  SUBMIT zpp008\_datatofi  
  WITH s\_matnr  = gs\_matnr\-matnr  
  WITH s\_charg  = gs\_matnr\-charg  
   AND RETURN.  
  
  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 .  
      gs\_out\-root = lv\_i .  
      IF cb\_01 EQ 'X'.  
        IF gs\_out\-matnr\_in =  gs\_matnr\-matnr AND gs\_out\-charg\_in = gs\_matnr\-charg .  
          gs\_out\-flag  = 'X' .  
        ENDIF .  
      ENDIF .  
      APPEND gs\_out  TO gt\_out.  
      CLEAR :gs\_out .  
    ENDLOOP .  
  ELSE .  *"**获取不到*  
    gs\_out\-flag  = 'X' .  
    gs\_out\-root = lv\_i .  
    gs\_out\-matnr\_in =  gs\_matnr\-matnr.  
    gs\_out\-charg\_in = gs\_matnr\-charg  .  
    SELECT SINGLE maktx INTO gs\_out\-maktx\_in FROM makt WHERE matnr = gs\_out\-matnr\_in .  
    APPEND gs\_out  TO gt\_out.  
    CLEAR :gs\_out .  
  ENDIF .  
  
  lv\_i = lv\_i + 1  .  
  
ENDLOOP .  
  
  
  
  
  
*"**取出数据*  
  
DATA:BEGIN OF ls\_mchb ,  
       werks LIKE mchb\-werks,  
       lgort LIKE mchb\-lgort,  
       matnr LIKE mchb\-matnr,  
       charg LIKE mchb\-charg,  
       clabs LIKE mchb\-clabs,  
       cinsm LIKE mchb\-cinsm,  
     END OF ls\_mchb .  
  
DATA : lt\_mchb  LIKE TABLE OF ls\_mchb .  
  
*"**非限制和质检*  
SELECT  werks  lgort matnr charg clabs cinsm  
  INTO TABLE lt\_mchb  
  FROM mchb  
  FOR ALL ENTRIES IN gt\_out  
  WHERE matnr  = gt\_out\-matnr\_in .  
  
  
*"**汇总数据取出数据*  
  
DATA:BEGIN OF ls\_mchb2 ,  
       matnr LIKE mchb\-matnr,  
       charg LIKE mchb\-charg,  
       clabs LIKE mchb\-clabs,  
       cinsm LIKE mchb\-cinsm,  
     END OF ls\_mchb2 .  
  
DATA : lt\_mchb2  LIKE TABLE OF ls\_mchb2 .  
  
  
LOOP AT lt\_mchb INTO ls\_mchb .  
  
  MOVE-CORRESPONDING ls\_mchb TO ls\_mchb2 .  
  COLLECT ls\_mchb2 INTO  lt\_mchb2 .  
  CLEAR : ls\_mchb2 .  
ENDLOOP .  
  
  
  
DATA : BEGIN OF ls\_mslb ,  
         matnr LIKE mslb\-matnr,  
         werks LIKE mslb\-werks,  
         charg LIKE mslb\-charg,  
         sobkz LIKE mslb\-sobkz,  
         lifnr LIKE mslb\-lifnr,  
         lblab LIKE mslb\-lblab,  
         lbins LIKE mslb\-lbins,  
       END OF ls\_mslb .  
  
DATA:lt\_mslb LIKE TABLE OF ls\_mslb .  
  
*"**供应商库存*  
SELECT  
        matnr  
        werks  
        charg  
        sobkz  
        lifnr  
        lblab  
        lbins  
  INTO TABLE lt\_mslb  
  FROM mslb  
  FOR ALL ENTRIES IN gt\_out  
  WHERE matnr  = gt\_out\-matnr\_in .  
  
  
  
DATA : BEGIN OF ls\_mslb2 ,  
         matnr LIKE mslb\-matnr,  
         charg LIKE mslb\-charg,  
         lblab LIKE mslb\-lblab,  
         lbins LIKE mslb\-lbins,  
       END OF ls\_mslb2 .  
  
DATA:lt\_mslb2 LIKE TABLE OF ls\_mslb2 .  
  
LOOP AT lt\_mslb INTO ls\_mslb .  
  MOVE-CORRESPONDING ls\_mslb TO ls\_mslb2 .  
  COLLECT ls\_mslb2 INTO lt\_mslb2 .  
ENDLOOP .  
  
  
*"**没有启用物料批次库存*  
  
  
  
DATA : BEGIN OF gs\_sum ,  
         matnr LIKE mara\-matnr,  
         charg LIKE mchb\-charg,  
         sum   LIKE mchb\-clabs,  
       END OF gs\_sum .  
  
DATA: ls\_out LIKE gs\_out .  
DATA :lt\_out LIKE TABLE OF gs\_out .  
  
lt\_out = gt\_out .  
  
  
SORT lt\_out BY matnr\_in  charg\_in .  
  
DELETE ADJACENT DUPLICATES FROM lt\_out COMPARING matnr\_in charg\_in .  
  
  
LOOP AT  lt\_out INTO ls\_out .  
   *"**质检和费限制*  
  LOOP AT  lt\_mchb2  INTO ls\_mchb2  WHERE matnr = ls\_out\-matnr\_in AND charg  = ls\_out\-charg\_in .  
    ls\_out\-sum = ls\_out\-sum  \+ ls\_mchb2\-clabs + ls\_mchb2\-cinsm .  
  ENDLOOP .  
   *"**委外库存*  
  LOOP AT  lt\_mslb2  INTO ls\_mslb2 WHERE matnr = ls\_out\-matnr\_in AND charg  = ls\_out\-charg\_in .  
    ls\_out\-sum = ls\_out\-sum  \+ ls\_mslb2\-lblab + ls\_mslb2\-lbins.  
  ENDLOOP .  
  MODIFY lt\_out FROM ls\_out .  
  CLEAR : ls\_out .  
ENDLOOP .  
  
  
SORT lt\_out BY  matnr\_in charg\_in .  
  
  
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 .  
  CLEAR: ls\_out .  
  READ TABLE lt\_out INTO ls\_out WITH KEY matnr\_in = gs\_out\-matnr\_in  
                                         charg\_in  = gs\_out\-charg\_in  
                                         BINARY SEARCH .  
  IF sy\-subrc EQ 0 .  
    gs\_out\-sum = ls\_out\-sum .  
  ENDIF .  
  
  MODIFY gt\_out FROM gs\_out .  
  CLEAR : gs\_out .  
  
  
ENDLOOP .  
  
  
  
  
  
IF cb\_01 EQ 'X'.  
  DELETE gt\_out WHERE flag <> 'X' AND ( lifnr <> '2000' OR lifnr <> '3000' OR lifnr <> '5000' OR lifnr <> '6000' OR lifnr <> '7000' )  .  
ENDIF .  
  
  
LOOP AT gt\_out INTO gs\_out .  
  
  IF gs\_out\-lifnr EQ '0000002000' .  
    gs\_out\-hzkj  = '湖州小米' .  
  ENDIF  .  
  
  IF gs\_out\-lifnr EQ '0000003000' .  
    gs\_out\-hzrf  = '湖州VIVO' .  
  ENDIF .  
  
  IF gs\_out\-lifnr EQ '0000005000' .  
    gs\_out\-nmkj  = '内蒙小米' .  
  ENDIF   .  
  
  
  IF gs\_out\-lifnr EQ '0000006000' .  
    gs\_out\-qhkj  = '青海小米' .  
  ENDIF   .  
  
  IF gs\_out\-lifnr EQ '0000007000' .  
    gs\_out\-hykj  = '河源小米' .  
  ENDIF   .  
  MODIFY gt\_out FROM gs\_out .  
ENDLOOP .  
  
  
  
DATA: lv\_c TYPE c .  
DATA: lv\_i2 TYPE i .  
DATA : lv\_sum  LIKE  mchb\-clabs  .  
lv\_i2  = 1 .  
lv\_c = 'X' .  
LOOP AT gt\_out INTO gs\_out .  
  lv\_sum =   gs\_out\-sum  .  
  IF lv\_i2  <> 1 AND lv\_c <> 'X' .  
    CLEAR :gs\_out\-sum .  
    lv\_sum =   gs\_out\-sum  .  
  ENDIF .  
  
  
  CLEAR :lv\_c .  
  AT END OF  root  .  
    lv\_c = 'X' .  
  ENDAT .  
  
  gs\_out\-sum = lv\_sum .  
  MODIFY gt\_out FROM gs\_out .  
  lv\_i2  = lv\_i2  + 1 .  
ENDLOOP .  
  
*\*append\_field: 'HZRF' '**湖州小米**'   '' '' .*  
*\*append\_field: 'HZRF' '**湖州**VIVO'   '' '' .*  
*\*append\_field: 'NMKJ' '**内蒙小米**'   '' '' .*  
*\*append\_field: 'QHKJ' '**青海小米**'   '' '' .*  
*\*append\_field: 'HYKJ' '**河源小米**'   '' '' .*  
  
DATA : ls\_out2 LIKE gs\_out .  
DATA : lt\_out2 LIKE  TABLE OF gs\_out .  
  
  
IF cb\_02 EQ 'X'.  
  lt\_out2 = gt\_out .  
  DELETE gt\_out WHERE flag <> 'X'  .  
  DELETE gt\_out WHERE sum   EQ 0 .  
  
  LOOP AT gt\_out INTO gs\_out .  
  
    LOOP AT  lt\_out2 INTO ls\_out2 WHERE root = gs\_out\-root .  
      IF ls\_out2\-lifnr EQ '0000002000' .  
        gs\_out\-hzkj  = '湖州小米' .  
      ENDIF  .  
  
      IF ls\_out2\-lifnr EQ '0000003000' .  
        gs\_out\-hzrf  = '湖州VIVO' .  
      ENDIF .  
  
      IF ls\_out2\-lifnr EQ '0000005000' .  
        gs\_out\-nmkj  = '内蒙小米' .  
      ENDIF   .  
  
  
      IF ls\_out2\-lifnr EQ '0000006000' .  
        gs\_out\-qhkj  = '青海小米' .  
      ENDIF   .  
  
      IF ls\_out2\-lifnr EQ '0000007000' .  
        gs\_out\-hykj  = '河源小米' .  
      ENDIF   .  
    ENDLOOP .  
      MODIFY gt\_out FROM gs\_out .  
      CLEAR : gs\_out .  
  ENDLOOP .  
  
ENDIF .  
  
  
  
DEFINE append\_field.  
  gs\_fieldcat\-fieldname = &1.  
  gs\_fieldcat\-coltext = &2.  
 gs\_fieldcat\-ref\_field = &3.  
 gs\_fieldcat\-ref\_table =  &4.  
  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
END-OF-DEFINITION.  
  
  
  
*\*    gs\_layout-box\_fname = 'MARK'.*  
*\*  gs\_layout-coltab\_fieldname = 'CLR' . "**列颜色*  
*\*gs\_layout-ctab\_fname = 'CELLCOLOR' .   "**单元格颜色*  
gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  
  
append\_field: 'ROOT' '物料追溯ID'  '' '' .  
append\_field: 'LEVEL' '追溯层级'  '' ''  .  
append\_field: 'EBELN' '采购订单'  '' '' .  
*\*append\_field: 'ZFPZT' '**发票状态**'  '' '' .*  
append\_field: 'AUFNR' '生产订单'  '' ''  .  
append\_field: 'KOSTL'     '成本中心'   '' '' .  
append\_field: 'MATNR\_IN' '入库物料'  'MATNR' 'MARA'  .  
append\_field: 'MAKTX\_IN' '入库物料描述' '' ''  .  
append\_field: 'CHARG\_IN' '入库批次'   '' '' .  
append\_field: 'MATNR\_USE' '使用物料'    'MATNR' 'MARA'.  
  
append\_field: 'MAKTX\_USE' '使用物料描述'   '' '' .  
append\_field: 'CHARG\_USE' '使用批次'    '' ''.  
*\*append\_field: 'MENGE' '**使用数量**'   '' '' .*  
append\_field: 'LIFNR' '供应商'   '' '' .  
append\_field: 'NAME1' '供应商名称'   '' '' .  
append\_field: 'SUM' '现有库存'   '' '' .  
append\_field: 'MEINS' '库存单位'   '' '' .  
append\_field: 'HZKJ' '湖州小米'   '' '' .  
append\_field: 'HZRF' '湖州VIVO'   '' '' .  
append\_field: 'NMKJ' '内蒙小米'   '' '' .  
append\_field: 'QHKJ' '青海小米'   '' '' .  
append\_field: 'HYKJ' '河源小米'   '' '' .  
  
  
  
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.