生产领料打印(含修改数量)

骑猪看日落 2022-05-21 03:17 195阅读 0赞

![70][]

![70 1][]

\*&---------------------------------------------------------------------\*  
\*& Report ZMMF002  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zmmf005.  
  
  
INCLUDE zmmf005\_top.  
  
INCLUDE zmmf005\_scr.  
  
INCLUDE zmmf005\_frm.  
  
  
START-OF-SELECTION .  
  
  
 if r\_1 eq 'X'.  
  PERFORM  frm\_get\_data.  
 ENDIF .  
  
  IF r\_2 EQ 'X'.  
    PERFORM  frm\_get\_data2.  
  ENDIF .  
  
  
  
IF R\_1 EQ 'X'.  
  PERFORM  frm\_process\_data.  
  ENDIF .  
  
IF R\_2 EQ 'X'.  
    PERFORM  frm\_process\_data2.  
ENDIF.  
  
  
  PERFORM  frm\_display\_alv .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_TOP  
\*&---------------------------------------------------------------------\*  
  
TABLES : rkpf ,resb .  
  
  
  
  
  
DATA: BEGIN OF gs\_out ,  
  
        "     smartform - ZMMS005  
  
        bwart     LIKE rkpf\-bwart , " 移动类型  
        " 移动类型文本  
        " 领料部门  
        rsnum     LIKE rkpf\-rsnum , "预留单号  
        rspos     LIKE resb\-rspos , "项号  
        aufnr     LIKE rkpf\-aufnr ,  "订单单号  
        bdter     LIKE resb\-bdter  , "日期  
        matnr     LIKE  resb\-matnr ,  "物料编码  
        maktx     TYPE  makt\-maktx  , " 物料描述  
        charg     TYPE  resb\-charg  , "评估类别  
        meins     LIKE resb\-meins , " 单位  
        bdmng     LIKE resb\-bdmng ,  "需求数量  
        lgort     LIKE resb\-lgort ,  "仓库代码  
        lgobe     LIKE t001l\-lgobe ,  "仓库名称  
        mark ,  
        ktext     LIKE crtx\-ktext ,    " 工作中心名称  
        zprt\_cnt  LIKE  zmmt001q\-zprt\_cnt , " 打印次数  
        zgldd     LIKE aufk\-zgldd,  
        zzrbl(50) TYPE c,  
      END OF gs\_out .  
  
DATA: gt\_out LIKE TABLE OF gs\_out .  
  
DATA:BEGIN OF gs\_zppt010,  
       vbeln    LIKE zppt010\-vbeln,  
       zzrbl\_01 LIKE zppt010\-zzrbl\_01,  
       zzrbl\_02 LIKE zppt010\-zzrbl\_02,  
       zzrbl\_03 LIKE zppt010\-zzrbl\_03,  
       zzrbl\_04 LIKE zppt010\-zzrbl\_04,  
       zzrbl\_05 LIKE zppt010\-zzrbl\_05,  
       zzrbl\_06 LIKE zppt010\-zzrbl\_06,  
       zzrbl\_07 LIKE zppt010\-zzrbl\_07,  
     END OF gs\_zppt010.  
DATA gt\_zppt010 LIKE TABLE OF gs\_zppt010.  
  
DATA: BEGIN OF gs\_rkpf ,  
  
        bwart LIKE rkpf\-bwart , " 移动类型  
        " 移动类型文本  
        " 领料部门  
        rsnum LIKE rkpf\-rsnum , "预留单号  
      END OF gs\_rkpf .  
  
DATA: gt\_rkpf LIKE TABLE OF gs\_rkpf .  
  
  
DATA: BEGIN OF gs\_resb ,  
        aufnr LIKE resb\-aufnr ,  "订单单号  
        rsnum LIKE resb\-rsnum , "预留单号  
        rspos LIKE resb\-rspos , "项号  
        bdter LIKE resb\-bdter  , "日期  
        matnr LIKE resb\-matnr ,  "物料编码  
        charg LIKE resb\-charg  , "评估类别  
        meins LIKE resb\-meins , " 单位  
        bdmng LIKE resb\-bdmng ,  "需求数量 BDMNG  
        enmng LIKE resb\-enmng ,  "提货数量  
        lgort LIKE resb\-lgort ,  "仓库代码  
        zgldd LIKE aufk\-zgldd,  
      END OF gs\_resb .  
  
DATA: gt\_resb LIKE TABLE OF gs\_resb .  
  
DATA: BEGIN OF gs\_makt ,  
        matnr LIKE makt\-matnr,  
        maktx LIKE makt\-maktx,  
      END OF gs\_makt .  
  
DATA: gt\_makt LIKE TABLE OF gs\_makt .  
  
  
  
DATA: BEGIN OF gs\_marc,  
        matnr LIKE marc\-matnr,  
        lgfsb LIKE marc\-lgfsb,  
      END OF gs\_marc .  
  
DATA: gt\_marc LIKE TABLE OF gs\_marc .  
  
  
" 获取打印次数  
DATA: gs\_zmmt001q LIKE zmmt001q .  
DATA: gt\_zmmt001q LIKE TABLE OF gs\_zmmt001q .  
  
DATA: BEGIN OF gs\_t001l ,  
        lgort LIKE resb\-lgort ,  "仓库代码  
        lgobe LIKE t001l\-lgobe ,  "仓库名称  
      END OF gs\_t001l .  
  
DATA: gt\_t001l LIKE TABLE OF gs\_t001l.  
  
DATA: BEGIN OF gs\_stxl,  
        tdobject LIKE stxl\-tdobject , " 文本对象  EKPO  
        tdname   LIKE  stxl\-tdname, "文本名 编号加5位序号 430000000500010  
        tdid     LIKE stxl\-tdid,  
        clustd   LIKE stxl\-clustd , "项目文本数据  
      END OF gs\_stxl .  
  
  
  
DATA : BEGIN OF gs\_zmmt004\_ll ,  
         zlldj LIKE zmmt004\_ll\-zlldj , "领料单据号  
         ztype LIKE zmmt004\_ll\-ztype,  "类型  
         aufnr LIKE zmmt004\_ll\-aufnr ,  "工单号  
         matnr LIKE zmmt004\_ll\-matnr ,  " 物料  
         maktx LIKE zmmt004\_ll\-maktx , " 物料描述  
         meins LIKE zmmt004\_ll\-meins , "单位  
         zllsl LIKE zmmt004\_ll\-zllsl , "领料数量  
         zpglx LIKE  zmmt004\_ll\-zpglx , "评估类型  
\*         lgort LIKE  zmmt004\_ll-lgort , " 仓库  
         zxqrq LIKE zmmt004\_ll\-zxqrq ,  " 需求日期  
       END OF  gs\_zmmt004\_ll  .  
  
  
DATA : gt\_zmmt004\_ll LIKE TABLE OF gs\_zmmt004\_ll .  
  
  
  
  
DATA: BEGIN OF gs\_afko ,  
        aufnr LIKE  afko\-aufnr , " 工单号  
        aufpl LIKE afko\-aufpl,  "工序任务清单叼  
      END OF gs\_afko .  
  
DATA: gt\_afko LIKE TABLE OF gs\_afko .  
  
DATA: BEGIN OF gs\_afvc ,  
        aufpl LIKE afvc\-aufpl , "工序任务清单号  
        aplzl LIKE afvc\-aplzl , "  序号  
        arbid LIKE afvc\-arbid , "对象表枳  
      END OF gs\_afvc.  
  
DATA: gt\_afvc LIKE TABLE OF gs\_afvc.  
  
DATA: BEGIN OF gs\_crtx ,  
        objid LIKE crtx\-objid, "对象标识  
        ktext LIKE crtx\-ktext , " 工作中心名称  
      END OF gs\_crtx .  
  
DATA: gt\_crtx LIKE TABLE OF gs\_crtx .  
  
DATA: BEGIN OF gs\_aufnr\_ktext  ,  
        aufnr LIKE afko\-aufnr, " 工单号  
        ktext LIKE crtx\-ktext,  " 工作中心名称  
      END OF gs\_aufnr\_ktext .  
  
DATA: gt\_aufnr\_ktext  LIKE TABLE OF gs\_aufnr\_ktext.  
  
  
DATA: gv\_zxh  LIKE zmmt005h\-zxh .  
  
  
  
  
  
  
  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
DATA: g\_fm\_name TYPE rs38l\_fnam.  
DATA: gw\_options TYPE ssfcompop,  
      gw\_control TYPE ssfctrlop.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_SCR  
\*&---------------------------------------------------------------------\*  
  
  
SELECT-OPTIONS:  s\_werks for resb\-werks OBLIGATORY ,  
                 s\_rsnum FOR  rkpf\-rsnum , "预留单号  
                 s\_aufnr FOR  rkpf\-aufnr ,  "订单单号  
                 s\_bdter FOR  resb\-bdter . "日期  
  
  
  
\*  
\*\*PARAMETERS :     P\_USNAM TYPE  MSEG-USNAM\_MKPF  OBLIGATORY DEFAULT 'LXF' . "用户名  
\*PARAMETERS :      P\_USNAM TYPE  RKPF-USNAM\_MKPF . "用户名  
  
  
  
PARAMETERS : r\_1 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_2 RADIOBUTTON GROUP g1 .  
  
\*PARAMETERS: cb\_1 AS CHECKBOX  .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF002\_FRM  
\*&---------------------------------------------------------------------\*  
  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data .  
  
  
  
  SELECT  
       a~aufnr   "订单单号  
       a~rsnum  "预留单号  
       rspos  "项号  
       bdter  "日期  
       matnr   "物料编码  
       charg   "评估类别  
       meins  " 单位  
       bdmng  "需求数量  
       enmng  "提货数量  
       lgort   "仓库代码  
       zgldd  
     INTO TABLE gt\_resb  
      FROM resb AS  a JOIN rkpf AS  b ON a~rsnum = b~rsnum AND b~bwart IN ('261')  
      JOIN aufk ON a~aufnr = aufk~aufnr  
      WHERE  a~rsnum IN s\_rsnum  
       AND   a~aufnr IN s\_aufnr  
       AND   bdter IN s\_bdter  
       AND  a~xloek  = space  
       AND  a~werks IN s\_werks  
       AND a~bwart = '261'  
       AND a~bdmng <> 0 .  
  SORT gt\_resb BY rsnum .  
  
  IF gt\_resb IS NOT INITIAL.  
    SELECT \* INTO CORRESPONDING FIELDS OF TABLE gt\_zppt010 FROM zppt010.  
    LOOP AT gt\_zppt010 INTO gs\_zppt010.  
      CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
        EXPORTING  
          input  = gs\_zppt010\-vbeln  
        IMPORTING  
          output = gs\_zppt010\-vbeln.  
      MODIFY gt\_zppt010 FROM gs\_zppt010 TRANSPORTING vbeln.  
    ENDLOOP.  
  ENDIF.  
  
  IF gt\_resb IS NOT INITIAL .  
    SELECT  
        bwart " 移动类型  
        rsnum  "预留单号  
        INTO TABLE gt\_rkpf  
       FROM  rkpf  
      FOR ALL ENTRIES IN gt\_resb  
      WHERE rsnum = gt\_resb\-rsnum .  
  ENDIF .  
  
  SORT gt\_resb BY matnr .  
  IF gt\_resb IS NOT INITIAL .  
    SELECT matnr maktx  
      INTO TABLE gt\_makt  
      FROM makt  
      FOR ALL ENTRIES IN gt\_resb  
      WHERE matnr = gt\_resb\-matnr .  
  ENDIF .  
  
  IF gt\_resb IS NOT INITIAL .  
    SELECT matnr   lgfsb  
      INTO TABLE  gt\_marc  
      FROM marc  
      FOR ALL ENTRIES IN gt\_resb  
      WHERE matnr = gt\_resb\-matnr  
       AND werks EQ s\_werks\-low .  
  
  ENDIF .  
  
  SELECT  
   lgort   "仓库代码  
   lgobe  "仓库名称  
   INTO  TABLE gt\_t001l  
   FROM t001l  
   WHERE werks = s\_werks\-low .  
  
  " 获取打印次数  
  IF gt\_resb IS NOT INITIAL .  
    SELECT \*  
      INTO TABLE  gt\_zmmt001q  
      FROM zmmt001q  
      FOR ALL ENTRIES IN gt\_resb  
      WHERE   zdh = gt\_resb\-rsnum  
       AND    zcxm EQ  'ZMMF005' .  
  
  ENDIF .  
  
  
  
  
  "得到工单号和工作中心名称  
  IF  gt\_resb IS NOT INITIAL  .  
    SELECT  
       aufnr  
       aufpl  
      INTO TABLE  gt\_afko  
      FROM afko  
      FOR ALL ENTRIES IN gt\_resb  
      WHERE aufnr = gt\_resb\-aufnr.  
  
  ENDIF .  
  
  SORT gt\_afko BY aufpl.  
  IF gt\_afko IS NOT INITIAL .  
    SELECT  
      aufpl  
      aplzl " 序号  
      arbid  
  
      INTO TABLE gt\_afvc  
      FROM afvc  
      FOR ALL ENTRIES IN gt\_afko  
      WHERE aufpl = gt\_afko\-aufpl.  
  
  ENDIF .  
  
  SORT gt\_afvc BY arbid .  
  IF  gt\_afvc IS NOT INITIAL .  
    SELECT  
       objid  
      ktext  
      INTO TABLE  gt\_crtx  
      FROM crtx  
      FOR ALL ENTRIES IN gt\_afvc  
      WHERE objid = gt\_afvc\-arbid .  
  
  ENDIF .  
  
  SORT gt\_afvc BY arbid .  
  
  IF gt\_afvc IS NOT INITIAL  .  
    SELECT objid ktext  
      INTO TABLE gt\_crtx  
      FROM crtx  
      FOR ALL ENTRIES IN gt\_afvc  
      WHERE objid = gt\_afvc\-arbid .  
  
  ENDIF .  
  
  
  SORT gt\_crtx BY objid .  
  SORT gt\_afvc BY aufpl aplzl .  
  
  LOOP AT gt\_afko INTO gs\_afko .  
    gs\_aufnr\_ktext\-aufnr = gs\_afko\-aufnr .  
    CLEAR gs\_afvc .  
    READ TABLE gt\_afvc INTO gs\_afvc WITH KEY aufpl = gs\_afko\-aufpl  .  
    IF sy\-subrc EQ 0 .  
      CLEAR gs\_crtx .  
      READ TABLE gt\_crtx INTO gs\_crtx WITH  KEY objid = gs\_afvc\-arbid.  
      IF sy\-subrc EQ 0  .  
        gs\_aufnr\_ktext\-ktext = gs\_crtx\-ktext .  
      ENDIF .  
  
    ENDIF .  
    APPEND gs\_aufnr\_ktext TO gt\_aufnr\_ktext .  
    CLEAR gs\_aufnr\_ktext .  
  ENDLOOP .  
  "得到工单号和工作中心名称 结束  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data .  
  SORT gt\_resb BY rsnum rspos .  
  SORT gt\_rkpf BY rsnum  .  
  SORT gt\_makt BY matnr .  
  SORT gt\_marc BY matnr .  
  SORT gt\_aufnr\_ktext BY aufnr .  
  SORT gt\_zppt010 BY vbeln.  
  SORT gt\_zmmt001q BY zdh .  
  
  LOOP AT gt\_resb INTO gs\_resb.  
    gs\_out\-rsnum = gs\_resb\-rsnum . "预留单号  
    gs\_out\-rspos = gs\_resb\-rspos . " 项号  
    gs\_out\-aufnr = gs\_resb\-aufnr . "订单号  
    gs\_out\-bdter = gs\_resb\-bdter ."日期  
    gs\_out\-matnr = gs\_resb\-matnr ."物料编码  
    gs\_out\-charg = gs\_resb\-charg . "评估类别  
    gs\_out\-meins = gs\_resb\-meins . " 单位  
    gs\_out\-bdmng = gs\_resb\-bdmng \- gs\_resb\-enmng . "需求数量-提货数量  
    gs\_out\-lgort = gs\_resb\-lgort . "仓库代码  
    gs\_out\-zgldd = gs\_resb\-zgldd.  
    "计划内为空  
\*    READ TABLE  gt\_rkpf INTO gs\_rkpf WITH KEY rsnum = gs\_resb-rsnum  
\*                                     BINARY SEARCH .  
\*    gs\_out-bwart = gs\_rkpf-bwart .  "凭证类型  
\*    CLEAR gs\_rkpf .  
  
    CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
      EXPORTING  
        input  = gs\_out\-zgldd  
      IMPORTING  
        output = gs\_out\-zgldd.  
    CLEAR gs\_zppt010.  
    READ TABLE gt\_zppt010 INTO gs\_zppt010 WITH KEY vbeln = gs\_out\-zgldd+2(10) BINARY SEARCH .  
    IF  sy\-subrc EQ 0.  
      gs\_out\-zzrbl = '市场' && gs\_zppt010\-zzrbl\_01 &&'/南城研发'&& gs\_zppt010\-zzrbl\_02 &&'/工厂研发'&& gs\_zppt010\-zzrbl\_03 &&'/工程'&& gs\_zppt010\-zzrbl\_04  
                     &&'/生产'&& gs\_zppt010\-zzrbl\_05 &&'/品质'&& gs\_zppt010\-zzrbl\_06 &&'/其他'&& gs\_zppt010\-zzrbl\_07.  
    ENDIF.  
  
    READ TABLE gt\_makt INTO gs\_makt WITH KEY matnr = gs\_resb\-matnr  
                                    BINARY SEARCH .  
    gs\_out\-maktx = gs\_makt\-maktx .  "物料描述  
  
    CLEAR gs\_makt .  
    IF gs\_resb\-lgort IS INITIAL .  
      READ TABLE gt\_marc INTO gs\_marc WITH KEY matnr = gs\_resb\-matnr  
                                    BINARY SEARCH  .  
      IF sy\-subrc EQ 0 .  
        READ TABLE gt\_t001l INTO gs\_t001l WITH KEY lgort = gs\_marc\-lgfsb .  
        IF sy\-subrc EQ  0.  
          gs\_out\-lgobe = gs\_t001l\-lgobe .   "仓库名称  
        ENDIF .  
        CLEAR gs\_t001l.  
      ENDIF .  
      CLEAR gs\_marc .  
  
    ELSE .  
      READ TABLE gt\_t001l INTO  gs\_t001l WITH KEY  lgort = gs\_resb\-lgort.  
      gs\_out\-lgobe = gs\_t001l\-lgobe .   "仓库名称  
      CLEAR gs\_t001l.  
    ENDIF .  
  
    CLEAR gs\_aufnr\_ktext.  
    READ TABLE gt\_aufnr\_ktext INTO gs\_aufnr\_ktext WITH KEY aufnr = gs\_resb\-aufnr  
                                      BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-ktext = gs\_aufnr\_ktext\-ktext .  
    ENDIF .  
  
  
    " 获取打印次数  
    CLEAR gs\_zmmt001q  .  
    READ TABLE gt\_zmmt001q INTO  gs\_zmmt001q WITH KEY zdh = gs\_out\-rsnum  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-zprt\_cnt = gs\_zmmt001q\-zprt\_cnt .  
  
    ENDIF .  
  
  
    APPEND gs\_out TO gt\_out .  
  
    CLEAR gs\_out .  
  
  ENDLOOP .  
  
  DELETE gt\_out WHERE  bdmng  EQ 0 .  
  SORT gt\_out BY aufnr.  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_ALV  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_alv .  
  
  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  IF r\_1 EQ 'X' .  
    append\_field: 'RSNUM' '预留单号' .  
  ENDIF .  
  IF r\_2 EQ 'X'.  
    append\_field: 'RSNUM' '领料单号' .  
  ENDIF .  
  
  append\_field: 'RSPOS' '项号' .  
  append\_field: 'AUFNR' '订单单号' .  
  append\_field: 'BDTER' '日期' .  
\*  append\_field: 'MATNR' '物料编号' .  
  gs\_fieldcat\-fieldname = 'MATNR'.  
  gs\_fieldcat\-seltext\_l = '物料编号' .  
  gs\_fieldcat\-ref\_fieldname = 'MATNR'.  
  gs\_fieldcat\-ref\_tabname = 'MARA' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'CHARG' '评估类别' .  
  
\*  append\_field: 'BDMNG' '数量'.  
\*  gs\_fieldcat-decimals\_out = '0'.  
  gs\_fieldcat\-fieldname = 'BDMNG '.  
  gs\_fieldcat\-edit =  'X'.  
  gs\_fieldcat\-ref\_tabname = 'RESB'.  
  gs\_fieldcat\-ref\_fieldname = 'BDMNG' .  
  gs\_fieldcat\-seltext\_l =  '数量' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  append\_field: 'MEINS' '单位' .  
  append\_field: 'LGORT' '仓库代码' .  
  append\_field: 'LGOBE' '仓储地点' .  
  append\_field: 'BWART' '移动类型' .  
  append\_field: 'ZPRT\_CNT ' '打印次数'.  
  IF r\_1 EQ 'X' .  
    append\_field: 'ZGLDD' '退货单号' .  
    append\_field: 'ZZRBL' '退货责任比例' .  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  ENDIF.  
  
  
  
  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.  
  
  
ENDFORM.  
  
  
FORM frm\_status\_set USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
  
ENDFORM.  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  DATA: lr\_grid TYPE REF TO cl\_gui\_alv\_grid.  
  
  "alv 修改后传给GT\_OUT  
  CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
    IMPORTING  
      e\_grid = lr\_grid.  
  
  CALL METHOD lr\_grid\->check\_changed\_data .  
  CALL METHOD lr\_grid\->refresh\_table\_display .  
  
  " 不合并打印  
  
  IF  sy\-ucomm EQ 'PRINT' OR sy\-ucomm EQ 'PRINT2'  .  
  
    IF s\_werks\-low EQ '1000'.  
      IF sy\-ucomm EQ 'PRINT' .  
        IF r\_1 EQ 'X'.  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005IN'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
        IF r\_2 EQ 'X' .  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
                                   endif.  
        ENDIF .  
      ENDIF.  
  
  
      IF sy\-ucomm EQ 'PRINT2' .  
        IF r\_1 EQ 'X'.  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005AIN'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
        IF r\_2 EQ 'X'.  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005A'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
  
      ENDIF .  
  
    ELSE .  
  
      IF sy\-ucomm EQ 'PRINT' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005D'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
  
      IF sy\-ucomm EQ 'PRINT2' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005AD'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
    ENDIF .  
    gw\_options\-tdnewid = 'X'.    "New Spool  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
    gw\_options\-tddest = 'LP01'.  
  
    gw\_control\-no\_dialog = 'X'.  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
  
    DATA: lt\_out LIKE TABLE OF gs\_out .  
    DATA: ls\_out LIKE gs\_out .  
    DATA: lt\_out2 LIKE TABLE OF gs\_out .  
    lt\_out = gt\_out .  
    DELETE lt\_out WHERE mark <> 'X'.  
    SORT lt\_out BY rsnum .  
    DELETE ADJACENT DUPLICATES FROM  lt\_out COMPARING rsnum .  
  
  
    PERFORM get\_xh .  " 得到本月最大序号  
  
    DATA: lv\_djbh  TYPE string .  
    DATA: gs\_zmmt005h LIKE zmmt005h .  
    DATA:lv\_y TYPE c LENGTH 2.  
    DATA:lv\_m TYPE c LENGTH 2 .  
    lv\_y = sy\-datum+2(2) .  
    lv\_m = sy\-datum+4(2) .  
  
    LOOP  AT  lt\_out  INTO ls\_out  .  
      " 取得打印次数并保存  
      gs\_zmmt001q\-zcxm = 'ZMMF005' .  
      gs\_zmmt001q\-zdh = ls\_out\-rsnum  .  
      gs\_zmmt001q\-zprt\_cnt = ls\_out\-zprt\_cnt + 1 .  
\*      MODIFY gt\_out from gs\_out .  
      MODIFY zmmt001q FROM gs\_zmmt001q .  
      " 只有计划内才编号  
      IF r\_1 EQ 'X'.  
        "本月最大序号并加1  
        gv\_zxh = gv\_zxh + 1 .  
        gs\_zmmt005h\-zxh = gv\_zxh .  
        gs\_zmmt005h\-phdat = sy\-datum .  
        MODIFY zmmt005h FROM gs\_zmmt005h .  
  
        CONCATENATE 'ST' lv\_y lv\_m  gv\_zxh INTO lv\_djbh .  
      ELSE .  
        lv\_djbh = '计划外' .  
  
      ENDIF .  
  
  
  
  
      LOOP AT gt\_out INTO gs\_out WHERE mark EQ 'X'.  
        IF gs\_out\-rsnum EQ ls\_out\-rsnum .  
          APPEND gs\_out TO lt\_out2 .  
        ENDIF .  
      ENDLOOP .  
  
  
      CALL FUNCTION g\_fm\_name  
        EXPORTING  
          control\_parameters = gw\_control  
          output\_options     = gw\_options  
\*         is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*         job\_output\_info    = l\_end  
\*         job\_output\_options = l\_start  
          iv\_djbh            = lv\_djbh  
        TABLES  
          it\_out             = lt\_out2  
\*         it\_bkpf            = lt\_bkpf  
        EXCEPTIONS  
          formatting\_error   = 1  
          internal\_error     = 2  
          send\_error         = 3  
          user\_canceled      = 4  
          OTHERS             = 5.  
      CLEAR: lt\_out2\[\] .  
  
    ENDLOOP .  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
  
  " 合并打印  
  PERFORM frm\_print34 .  
  
  
  
  
  
ENDFORM .  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data2 .  
  
  SELECT  
    zlldj  "领料单据号  
    ztype  " 类型  
    aufnr  "工单号  
    matnr  " 物料  
    maktx  " 物料描述  
    meins  "单位  
    zllsl  "领料数量  
    zpglx   "评估类型  
\*       LGORT   " 仓库  
    zxqrq   " 需求日期  
    INTO TABLE gt\_zmmt004\_ll  
    FROM zmmt004\_ll  
    WHERE aufnr IN s\_aufnr  
    AND zxqrq IN s\_bdter  
    AND ztype EQ 'Z2'  
    AND loekz = space  
    AND werks IN s\_werks  .  
  
  
  IF gt\_zmmt004\_ll IS NOT  INITIAL .  
    SELECT  
      matnr  
      lgfsb  "外部仓储地点  
      INTO TABLE gt\_marc  
      FROM marc  
       WHERE werks EQ s\_werks\-low.  
\*      FOR ALL ENTRIES IN gt\_zmmt004\_ll  
\*      WHERE matnr =  gt\_zmmt004\_ll-matnr .  
  
  ENDIF .  
  
  SELECT  
   lgort   "仓库代码  
   lgobe  "仓库名称  
   INTO  TABLE gt\_t001l  
   FROM t001l  
    WHERE werks EQ s\_werks\-low.  
  
  " 打印次数  
  
  IF gt\_zmmt004\_ll IS NOT INITIAL .  
    SELECT \*  
      INTO TABLE  gt\_zmmt001q  
      FROM zmmt001q  
      FOR ALL ENTRIES IN gt\_zmmt004\_ll  
      WHERE   zdh = gt\_zmmt004\_ll\-zlldj  
       AND     zcxm EQ  'ZMMF005' .  
  
  ENDIF .  
  
  
  
  
  "得到工单号和工作中心名称  
  IF  gt\_zmmt004\_ll IS NOT INITIAL  .  
    SELECT  
       aufnr  
       aufpl  
      INTO TABLE  gt\_afko  
      FROM afko  
      FOR ALL ENTRIES IN gt\_zmmt004\_ll  
      WHERE aufnr = gt\_zmmt004\_ll\-aufnr.  
  
  ENDIF .  
  
  SORT gt\_afko BY aufpl.  
  IF gt\_afko IS NOT INITIAL .  
    SELECT  
      aufpl  
      aplzl " 序号  
      arbid  
  
      INTO TABLE gt\_afvc  
      FROM afvc  
      FOR ALL ENTRIES IN gt\_afko  
      WHERE aufpl = gt\_afko\-aufpl.  
  
  ENDIF .  
  
  SORT gt\_afvc BY arbid .  
  IF  gt\_afvc IS NOT INITIAL .  
    SELECT  
       objid  
      ktext  
      INTO TABLE  gt\_crtx  
      FROM crtx  
      FOR ALL ENTRIES IN gt\_afvc  
      WHERE objid = gt\_afvc\-arbid .  
  
  ENDIF .  
  
  SORT gt\_afvc BY arbid .  
  
  IF gt\_afvc IS NOT INITIAL  .  
    SELECT objid ktext  
      INTO TABLE gt\_crtx  
      FROM crtx  
      FOR ALL ENTRIES IN gt\_afvc  
      WHERE objid = gt\_afvc\-arbid .  
  
  ENDIF .  
  
  
  SORT gt\_crtx BY objid .  
  SORT gt\_afvc BY aufpl aplzl .  
  
  LOOP AT gt\_afko INTO gs\_afko .  
    gs\_aufnr\_ktext\-aufnr = gs\_afko\-aufnr .  
    CLEAR gs\_afvc .  
    READ TABLE gt\_afvc INTO gs\_afvc WITH KEY aufpl = gs\_afko\-aufpl  .  
    IF sy\-subrc EQ 0 .  
      CLEAR gs\_crtx .  
      READ TABLE gt\_crtx INTO gs\_crtx WITH  KEY objid = gs\_afvc\-arbid.  
      IF sy\-subrc EQ 0  .  
        gs\_aufnr\_ktext\-ktext = gs\_crtx\-ktext .  
      ENDIF .  
  
    ENDIF .  
    APPEND gs\_aufnr\_ktext TO gt\_aufnr\_ktext .  
    CLEAR gs\_aufnr\_ktext .  
  ENDLOOP .  
  "得到工单号和工作中心名称 结束  
  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data2 .  
  SORT gt\_aufnr\_ktext BY aufnr .  
  SORT gt\_zmmt001q BY zdh .  
  SORT gt\_marc BY matnr .  
  LOOP AT gt\_zmmt004\_ll INTO gs\_zmmt004\_ll .  
    gs\_out\-rsnum = gs\_zmmt004\_ll\-zlldj . "领料单号  
    gs\_out\-bwart = gs\_zmmt004\_ll\-ztype .  
    gs\_out\-aufnr = gs\_zmmt004\_ll\-aufnr .  "订单号  
    gs\_out\-matnr = gs\_zmmt004\_ll\-matnr .  "物料编码  
    gs\_out\-maktx = gs\_zmmt004\_ll\-maktx .  
    gs\_out\-meins = gs\_zmmt004\_ll\-meins .  " 单位  
    gs\_out\-bdmng = gs\_zmmt004\_ll\-zllsl.     "需求数量  
    gs\_out\-charg = gs\_zmmt004\_ll\-zpglx.   "评估类别  
    gs\_out\-bdter = gs\_zmmt004\_ll\-zxqrq .   "日期  
  
    CLEAR gs\_aufnr\_ktext.  
    READ TABLE gt\_aufnr\_ktext INTO gs\_aufnr\_ktext WITH KEY aufnr = gs\_zmmt004\_ll\-aufnr  
                                      BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-ktext = gs\_aufnr\_ktext\-ktext .  
    ENDIF .  
  
    "得到外部仓库代码  
    CLEAR gs\_marc .  
    READ TABLE gt\_marc INTO gs\_marc  WITH KEY matnr = gs\_zmmt004\_ll\-matnr  
                                     BINARY SEARCH .  
  
    IF sy\-subrc EQ 0 .  
      "得到仓库名称  
      CLEAR gs\_t001l.  
      READ TABLE gt\_t001l INTO gs\_t001l WITH KEY lgort = gs\_marc\-lgfsb.  
      IF sy\-subrc EQ 0 .  
        gs\_out\-lgobe = gs\_t001l\-lgobe .  
      ENDIF .  
  
    ENDIF .  
  
  
    " 获取打印次数  
    CLEAR gs\_zmmt001q  .  
    READ TABLE gt\_zmmt001q INTO  gs\_zmmt001q WITH KEY zdh = gs\_out\-rsnum  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-zprt\_cnt = gs\_zmmt001q\-zprt\_cnt .  
  
    ENDIF .  
  
    APPEND gs\_out TO gt\_out .  
    CLEAR gs\_out.  
  ENDLOOP .  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form GET\_XH  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM get\_xh .  
  
  DATA: lv\_xh TYPE i .  
  DATA:lv\_year TYPE c LENGTH 4.  
  DATA:lv\_month TYPE c LENGTH 2 .  
  DATA:lv\_where TYPE c  LENGTH 7.  
  DATA: lv\_str TYPE string .  
  DATA: phdat TYPE sy\-datum.  
  phdat = sy\-datum.  
  lv\_where = phdat(6).  
  lv\_year  =  phdat+2(2) .  
  lv\_month =  phdat+4(2).  
  
  CONCATENATE  lv\_where  '%' INTO lv\_where .  
  SELECT  COUNT(\*)  
    FROM zmmt005h  
    WHERE phdat  LIKE lv\_where.  
  
  gv\_zxh = sy\-dbcnt .  
  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PRINT34  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_print34 .  
  
  
  IF  sy\-ucomm EQ 'PRINT3' OR sy\-ucomm EQ 'PRINT4' OR sy\-ucomm EQ 'PRINT6' OR sy\-ucomm EQ 'PRINT7' .  
  
    IF s\_werks\-low EQ '1000'.  
      IF sy\-ucomm EQ 'PRINT3' .  
        IF r\_1 EQ 'X' .  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005IN'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
        IF r\_2 EQ 'X' .  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
      ENDIF .  
  
  
      IF sy\-ucomm EQ 'PRINT4' .  
        IF r\_1 EQ 'X'.  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005AIN'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
  
        IF r\_2 EQ 'X'.  
          CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
            EXPORTING  
              formname           = 'ZMMF005A'  
            IMPORTING  
              fm\_name            = g\_fm\_name  
            EXCEPTIONS  
              no\_form            = 1  
              no\_function\_module = 2  
              OTHERS             = 3.  
        ENDIF .  
      ENDIF .  
  
      IF sy\-ucomm EQ 'PRINT6' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005F'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
      IF sy\-ucomm EQ 'PRINT7' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005G'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
    ELSE .  
  
      IF sy\-ucomm EQ 'PRINT3' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005D'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
  
      IF sy\-ucomm EQ 'PRINT4' .  
        CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
          EXPORTING  
            formname           = 'ZMMF005AD'  
          IMPORTING  
            fm\_name            = g\_fm\_name  
          EXCEPTIONS  
            no\_form            = 1  
            no\_function\_module = 2  
            OTHERS             = 3.  
      ENDIF .  
  
  
    ENDIF .  
    gw\_options\-tdnewid = 'X'.    "New Spool  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    "Delete Spool After Print  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    "Exit after printing in print preview  
    gw\_options\-tddest = 'LP01'.  
  
    gw\_control\-no\_dialog = 'X'.  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    "打开打印窗口  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
  
    DATA: lt\_out LIKE TABLE OF gs\_out .  
    DATA: ls\_out LIKE gs\_out .  
    DATA: lt\_out2 LIKE TABLE OF gs\_out .  
    lt\_out = gt\_out .  
    DELETE lt\_out WHERE mark <> 'X'.  
    " 数据传给smartforms  
    lt\_out2  = lt\_out .  
  
  
  
    " 每个预留保存打印一次  
    SORT lt\_out BY rsnum .  
    DELETE ADJACENT DUPLICATES FROM  lt\_out COMPARING rsnum .  
  
    LOOP  AT  lt\_out  INTO ls\_out  .  
      " 取得打印次数并保存  
      gs\_zmmt001q\-zcxm = 'ZMMF005' .  
      gs\_zmmt001q\-zdh = ls\_out\-rsnum  .  
      gs\_zmmt001q\-zprt\_cnt = ls\_out\-zprt\_cnt + 1 .  
\*      MODIFY gt\_out from gs\_out .  
      MODIFY zmmt001q FROM gs\_zmmt001q .  
    ENDLOOP .  
  
  
    "单据编号  
  
    PERFORM get\_xh .  " 得到本月最大序号  
    DATA: lv\_djbh  TYPE string .  
    DATA: gs\_zmmt005h LIKE zmmt005h .  
    DATA:lv\_y TYPE c LENGTH 2.  
    DATA:lv\_m TYPE c LENGTH 2 .  
    lv\_y = sy\-datum+2(2) .  
    lv\_m = sy\-datum+4(2) .  
  
    "取打单据打印编号  
    IF r\_1 EQ 'X'.  
      "本月最大序号并加1  
      gv\_zxh = gv\_zxh + 1 .  
      gs\_zmmt005h\-zxh = gv\_zxh .  
      gs\_zmmt005h\-phdat = sy\-datum .  
      MODIFY zmmt005h FROM gs\_zmmt005h .  
  
      CONCATENATE 'ST' lv\_y lv\_m  gv\_zxh INTO lv\_djbh .  
    ELSE .  
      lv\_djbh = '计划外' .  
  
    ENDIF .  
  
  
  
  
    CALL FUNCTION g\_fm\_name  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
\*       is\_bkpf            = gs\_bkpf  
\*    IMPORTING  
\*       job\_output\_info    = l\_end  
\*       job\_output\_options = l\_start  
        iv\_djbh            = lv\_djbh  
      TABLES  
        it\_out             = lt\_out2  
\*       it\_bkpf            = lt\_bkpf  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
    CLEAR: lt\_out2\[\] .  
  
  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
ENDFORM.

![70 2][]

[70]: /images/20220521/5295e7a486df43af84b30ed6dab947f8.png
[70 1]: /images/20220521/44d5c9c9b6914e93bc684b9f4645571f.png
[70 2]: /images/20220521/414fb93546e64457b149f38f93d7a246.png