SAP采购订单打印

川长思鸟来 2022-05-27 04:48 681阅读 0赞

![70][]

\*&---------------------------------------------------------------------\*  
\*& Report ZMMF001  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zmmf001.  
  
  
  
INCLUDE zmmf001\_top.  
INCLUDE zmmf001\_scr.  
INCLUDE zmmf001\_frm.  
  
  
  
  
START-OF-SELECTION .  
  
  PERFORM  frm\_radio\_btn .  
  PERFORM  frm\_get\_data  .  
  PERFORM  frm\_process\_data.  
  PERFORM frm\_display\_data.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF001\_TOP  
\*&---------------------------------------------------------------------\*  
  
  
  
  
  
\*采购订单抬头：   EKKO  
\*采购订单行项目： EKPO  
\*采购订单行项目条件（含税单价）： PRCD\_ELEMENTS  
\*供应商基本数据：BUT000  
\*供应商采购组织数据：LFM1  
\*前面查看事务代码：采购订单ME23N、供应商主数据BP  
  
  
  
TABLES : ekko ,lfa1 ,ekpo.  
DATA: gv\_bsart TYPE  ekko\-bsart . "凭证类型  
DATA: gs\_ekko TYPE  ekko .  
DATA: gt\_ekko LIKE TABLE OF ekko .  
DATA: gs\_ekpo TYPE   ekpo .  
DATA: gt\_ekpo LIKE TABLE OF ekpo .  
\*DATA: BEGIN OF GS\_OUT ,  
\*      EBELN TYPE  EKKO-EBELN, " 凭证编号  
\*      BEDAT TYPE  EKKO-BEDAT, "凭证日期  
\*      LIFNR TYPE  LFA1-LIFNR , "供应商编号  
\*      NAME1 TYPE  LFA1-NAME1 ,  "供应商名称  
\*      MARK ,  
\* END OF GS\_OUT .  
DATA: BEGIN OF gs\_out .  
    INCLUDE STRUCTURE  zmms001\_head .  
DATA: mark .  
DATA: END OF gs\_out .  
  
  
DATA: BEGIN OF gs\_ekkn ,  
        ebeln TYPE  ekkn\-ebeln, "凭证编号  
        ebelp TYPE  ekkn\-ebelp, "序号  
        aufnr TYPE  ekkn\-aufnr,  
        kostl LIKE  ekkn\-kostl, " 成本中心  
        anln1 LIKE  ekkn\-anln1 , " 资产编号  
      END OF gs\_ekkn .  
  
DATA gt\_ekkn LIKE TABLE OF gs\_ekkn .  
  
DATA: gv\_zbz\_h TYPE zbz\_h .  
  
  
DATA: BEGIN OF gs\_eban ,  
        banfn LIKE eban\-banfn,  "采购申请号  
        bnfpo LIKE eban\-bnfpo,  "行项目  
        ebeln LIKE eban\-ebeln,  "采购单号  
        ebelp LIKE eban\-ebelp,  "采购单行项目  
  
      END OF gs\_eban .  
  
DATA gt\_eban LIKE TABLE OF gs\_eban .  
  
  
DATA: BEGIN OF gs\_prcd ,  
        knumv TYPE prcd\_elements\-knumv,  
        kposn TYPE prcd\_elements\-kposn,  
        kbetr TYPE prcd\_elements\-kbetr,  
        kpein TYPE prcd\_elements\-kpein,  
  
      END OF gs\_prcd .  
DATA: gt\_prcd LIKE TABLE OF gs\_prcd .  " 取含税价格  
  
DATA: gt\_prcd2 LIKE TABLE OF gs\_prcd .  "取税率  
  
  
  
DATA: gs\_zmms001\_head  TYPE zmms001\_head.  
DATA: gt\_zmms001\_head LIKE TABLE OF zmms001\_head .  
  
DATA: gs\_zmms001\_item TYPE zmms001\_item .  
DATA: gt\_zmms001\_item LIKE  TABLE OF zmms001\_item .  
  
  
DATA  lt\_zmms001\_item LIKE TABLE OF zmms001\_item .  
  
  
  
  
DATA: gt\_out LIKE TABLE OF gs\_out .  
  
  
DATA: gv\_order\_type TYPE string . " 订单类型  
DATA: gv\_ver TYPE c LENGTH 4 .    "版本  
  
  
\*DATA: BEGIN OF gs\_ekkn,  
\*        ebeln LIKE  ekkn-ebeln, "凭证编号  
\*        ebelp LIKE  ekkn-ebelp, "序号  
\*        kostl LIKE  ekkn-kostl, " 成本中心  
\*      END OF gs\_ekkn .  
  
DATA: BEGIN OF gs\_cskt ,  
        kostl LIKE cskt\-kostl,   " 成本中心  
        ktext LIKE cskt\-ktext , "部门  
      END OF gs\_cskt .  
  
DATA: gt\_cskt LIKE TABLE OF gs\_cskt .  
  
DATA: BEGIN OF gs\_aufk ,  
        aufnr LIKE aufk\-aufnr , " 工单号  
        ktext LIKE aufk\-ktext , " 模号  
      END OF gs\_aufk .  
  
DATA: gt\_aufk LIKE TABLE OF gs\_aufk.  
  
  
  
DATA: BEGIN OF gs\_anlz ,  
        anln1 LIKE anlz\-anln1 , "资产编号  
        kostl LIKE anlz\-kostl, "成本中心  
      END OF gs\_anlz .  
  
DATA: gt\_anlz LIKE TABLE OF gs\_anlz .  
  
  
  
" 获取打印次数  
DATA: gs\_zmmt001p LIKE zmmt001p .  
DATA: gt\_zmmt001p LIKE TABLE OF gs\_zmmt001p .  
  
  
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.

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF001\_SCR  
\*&---------------------------------------------------------------------\*  
  
  
SELECT-OPTIONS   s\_ekorg FOR ekko\-ekorg  OBLIGATORY . "  
SELECT-OPTIONS  p\_ebeln FOR ekko\-ebeln .  
SELECT-OPTIONS  p\_bedat FOR ekko\-bedat .  
SELECT-OPTIONS  p\_lifnr FOR lfa1\-lifnr.  
SELECT-OPTIONS  p\_ernam FOR ekko\-ernam .  
  
  
  
  
PARAMETERS : r\_1 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_2 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_3 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_4 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_5 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_6 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_7 RADIOBUTTON GROUP g1 .  
\* cb\_01   AS CHECKBOX DEFAULT 'X',  
  
\*PARAMETERS: cb\_1 AS CHECKBOX  .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMF001\_FRM  
\*&---------------------------------------------------------------------\*  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data .  
  
  
  
  SELECT  a~ebeln  "采购编号  
    a~bedat  "采购日期  
    a~lifnr  " 供应商编码  
    b~name\_org1   " 供应名称  
    c~telf1 " 电话  
    a~waers   " 货币码  
    b~bu\_sort1     "供应商类别  
    a~bsart  "订单类型  
    c~verkf " 联络人  
    a~zterm " 付款条件代码  
    d~text1  "付款条件名称  
    a~knumv   "凭证条件号 主要指价格  
    a~ernam " 创建人  
   INTO  CORRESPONDING FIELDS OF TABLE  gt\_out  
   FROM ekko AS a  
   INNER JOIN but000 AS b  ON  a~lifnr = b~partner  
   INNER JOIN lfm1   AS c   ON  b~partner = c~lifnr AND a~ekorg = c~ekorg  
   INNER JOIN t052u  AS d   ON  a~zterm = d~zterm AND  d~spras EQ '1'  
   WHERE a~bsart = gv\_bsart  "凭证类型 选择界面获取  
   AND  a~ernam IN  p\_ernam  
   AND  a~lifnr IN p\_lifnr  
   AND  a~ebeln IN p\_ebeln  
   AND  a~bedat IN p\_bedat  
   AND  a~memory EQ  space  
    AND a~ekorg IN s\_ekorg .  "排除暂存订单  
  
  
  IF r\_7 EQ 'X' . "转储订单  
    SELECT  a~ebeln  "采购编号  
a~bedat  "采购日期  
a~lifnr  " 供应商编码  
\*    b~name\_org1   " 供应名称  
\*    c~telf1 " 电话  
a~waers   " 货币码  
\*    b~bu\_sort1     "供应商类别  
a~bsart  "订单类型  
\*    c~verkf " 联络人  
a~zterm " 付款条件代码  
\*    d~text1  "付款条件名称  
a~knumv   "凭证条件号 主要指价格  
a~ernam " 创建人  
INTO  CORRESPONDING FIELDS OF TABLE  gt\_out  
FROM ekko AS a  
  
WHERE a~bsart = gv\_bsart  "凭证类型 选择界面获取  
AND  a~ernam IN  p\_ernam  
AND  a~lifnr IN p\_lifnr  
AND  a~ebeln IN p\_ebeln  
AND  a~bedat IN p\_bedat  
AND  a~memory EQ  space  .  "排除暂存订单  
  
  
  
  
  ENDIF .  
  
  
  
  
  " 获取打印次数  
  
  IF gt\_out IS NOT INITIAL .  
    SELECT \*  
      INTO TABLE  gt\_zmmt001p  
      FROM zmmt001p  
      FOR ALL ENTRIES IN gt\_out  
      WHERE   zdh = gt\_out\-ebeln  
       AND     zcxm EQ  'ZMMF001' .  
  
  ENDIF .  
  
  
  
  
  
ENDFORM.  
  
  
  
  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data .  
  
  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: 'BSART' '凭证类型' .  
  append\_field: 'EBELN' '凭证编号' .  
  append\_field: 'BEDAT' '凭证日期' .  
  append\_field: 'LIFNR' '供应商编号' .  
  append\_field: 'NAME\_ORG1' '供应商名称' .  
  append\_field: 'ZPRT\_CNT ' '打印次数'.  
  
\*  采购订单类型  
\*  采购订单类型描述  
  
  
  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  
\*     IT\_EXCLUDING             =  
\*     IT\_SPECIAL\_GROUPS        =  
\*     IT\_SORT                  =  
\*     IT\_FILTER                =  
\*     IS\_SEL\_HIDE              =  
\*     I\_DEFAULT                = 'X'  
    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 rs\_selfield  TYPE  slis\_selfield  .  打印次数怎么刷新  
  CLEAR: gt\_zmms001\_head\[\].  
  CLEAR: gt\_zmms001\_item\[\].  
  LOOP AT gt\_out  INTO gs\_out .  
    IF gs\_out\-mark  EQ 'X'.  
      MOVE-CORRESPONDING gs\_out TO gs\_zmms001\_head.  
      APPEND gs\_zmms001\_head TO gt\_zmms001\_head.  
\*      EXIT .  
    ENDIF .  
  ENDLOOP .  
  
  
  IF  sy\-ucomm EQ 'PRINT' .  
  
    PERFORM frm\_print\_open .  
  
    "得到行项目相关数据  
    LOOP AT gt\_zmms001\_head INTO gs\_zmms001\_head .  
      gs\_zmmt001p\-zcxm = 'ZMMF001' .  
      gs\_zmmt001p\-zdh = gs\_zmms001\_head\-ebeln .  
      gs\_zmmt001p\-zprt\_cnt = gs\_zmms001\_head\-zprt\_cnt + 1 .  
\*      MODIFY gt\_out from gs\_out .  
      MODIFY zmmt001p FROM gs\_zmmt001p .  
      gs\_zmms001\_head\-zprt\_cnt = gs\_zmms001\_head\-zprt\_cnt + 1 .  
      CLEAR:  lt\_zmms001\_item\[\] .  
      PERFORM frm\_get\_ver .  
      PERFORM frm\_get\_price\_tax . "得到价格数  
      PERFORM frm\_get\_data\_item .  
      PERFORM  frm\_print\_data .  
    ENDLOOP .  
    PERFORM frm\_print\_close .  
  
  ENDIF .  
  
\*  
\*     " 获取交货日期  
\*      SELECT \*  
\*        INTO TABLE LT\_EKET  
\*        FROM EKET  
\*        FOR ALL ENTRIES IN LT\_ITEM  
\*        WHERE   EBELN = LT\_ITEM-EBELN  
\*        AND     EBELP = LT\_ITEM-EBELP .  
\*  
\*      SORT LT\_EKET BY EBELN EBELP.  
\*  
\*      LOOP AT LT\_ITEM INTO LS\_ITEM .  
\*            GS\_ZMMS001\_ITEM-EBELN = LS\_ITEM-EBELN .  
\*            GS\_ZMMS001\_ITEM-MATNR = LS\_ITEM-MATNR .  
\*            GS\_ZMMS001\_ITEM-MAKTX  = LS\_ITEM-MAKTX .  
\*            GS\_ZMMS001\_ITEM-MEINS  = LS\_ITEM-MEINS.  
\*            GS\_ZMMS001\_ITEM-MENGE  = LS\_ITEM-MENGE.  
\*            GS\_ZMMS001\_ITEM-NETPR  = LS\_ITEM-NETPR.  
\*            GS\_ZMMS001\_ITEM-BRTWR  = LS\_ITEM-BRTWR.  
\*            read TABLE  LT\_EKET into LS\_EKET WITH key EBELN = LS\_ITEM-EBELN  
\*                                                      ebelp = LS\_ITEM-EBELP  
\*                                                      BINARY SEARCH  .  
\*              "取交货日期  
\*             GS\_ZMMS001\_ITEM-EINDT  = LS\_EKET-EINDT.  
\*  
\*            APPEND   GS\_ZMMS001\_ITEM TO GT\_ZMMS001\_ITEM     .  
\*  
\*      ENDLOOP .  
  
  
  "第一种传递打印的方式  
\*  
\*    DATA: lv\_fname TYPE rs38l\_fnam.  
\*    CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
\*      EXPORTING  
\*        formname           = 'ZMMF001'  
\*\*       VARIANT            = ' '  
\*\*       DIRECT\_CALL        = ' '  
\*      IMPORTING  
\*        fm\_name            = lv\_fname  
\*      EXCEPTIONS  
\*        no\_form            = 1  
\*        no\_function\_module = 2  
\*        OTHERS             = 3.  
\*    IF sy-subrc <> 0.  
\*\*    Implement suitable error handling here  
\*    ENDIF.  
\*  
\*  
\*  
\*  
\*    CALL FUNCTION lv\_fname  
\*\*      EXPORTING  
\*\*        is\_zmmt001\_head  = gs\_zmmt001\_head  
\*      TABLES  
\*        IT\_ZMMS001\_HEAD  = GT\_ZMMS001\_HEAD  
\*        IT\_EKPO          = GT\_ZMMS001\_ITEM  
\*  
\*      EXCEPTIONS  
\*        formatting\_error = 1  
\*        internal\_error   = 2  
\*        send\_error       = 3  
\*        user\_canceled    = 4  
\*        OTHERS           = 5.  
\*  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PRINT\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_print\_data .  
  
  PERFORM frm\_zbz\_h\_data.  
  
  READ TABLE lt\_zmms001\_item INTO gs\_zmms001\_item INDEX 1.  
\*  clear gs\_zmms001\_item .  
\*  DO 8 TIMES.  
\*    APPEND gs\_zmms001\_item TO lt\_zmms001\_item.  
\*  ENDDO.  
  IF gv\_bsart EQ r\_1 OR gv\_bsart EQ r\_3 OR gv\_bsart EQ r\_4  .  
    SORT lt\_zmms001\_item  BY matnr .  
  ELSE .  
    SORT lt\_zmms001\_item  BY ebelp .  
  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  
      is\_zmms001\_head    = gs\_zmms001\_head  
      iv\_order\_type      = gv\_order\_type  
      iv\_ver             = gv\_ver  
      iv\_zbz\_h           = gv\_zbz\_h  
    TABLES  
      it\_zmms001\_item    = lt\_zmms001\_item  
\*     it\_bkpf            = lt\_bkpf  
    EXCEPTIONS  
      formatting\_error   = 1  
      internal\_error     = 2  
      send\_error         = 3  
      user\_canceled      = 4  
      OTHERS             = 5.  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_DATA\_ITEM  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_data\_item .  
  
  SELECT  
 a~ebeln  " 凭证编号  
 a~ebelp   "行号  
 a~matnr   " 物料编号  
\* b~maktx   " 物料描述  
 a~txz01    " 短文本 == 物料描述  
 a~meins    "单位  
\* c~meins    "单位  
 a~menge    "订单数量  
\* d~eindt     "交货日期  
 a~netpr   " 净价  
 a~brtwr    "总价值  
 a~mwskz     "税码  
\* d~eindt     "交货日期  
 a~banfn    "采购申请单号  
 e~zzcer    " cer 编号  
 a~matkl    " 物料组  
 a~afnam    "申请者  
 INTO CORRESPONDING FIELDS OF  TABLE  lt\_zmms001\_item  
 FROM ekpo AS  a  
\* INNER JOIN makt AS b ON a~matnr = b~matnr  
\* INNER JOIN mara AS  c ON c~matnr = a~matnr  
\* INNER JOIN eket AS d    ON  a~ebeln = d~ebeln AND   a~ebelp = d~ebelp  
  
 LEFT   JOIN zmmt002 AS e ON a~matnr = e~matnr  
 WHERE a~ebeln = gs\_zmms001\_head\-ebeln  
    AND a~loekz <> 'L' .  
\*    and a~werks in s\_werks .  
  
  DATA: ls\_zmms001\_item TYPE   zmms001\_item  .  
  LOOP AT lt\_zmms001\_item INTO ls\_zmms001\_item.  
    SELECT MIN( eindt ) INTO ls\_zmms001\_item\-eindt FROM  eket WHERE ebeln = gs\_zmms001\_head\-ebeln AND ebelp = ls\_zmms001\_item\-ebelp.  
    MODIFY lt\_zmms001\_item FROM ls\_zmms001\_item.  
  ENDLOOP.  
  
  
  SORT lt\_zmms001\_item BY ebeln ebelp .  
  
  IF lt\_zmms001\_item IS NOT INITIAL .  
    SELECT  
      ebeln "凭证编号  
      ebelp  "序号  
      aufnr   "生产订单号  
      kostl   " 成本中心  
      anln1     " 资产编号  
      INTO TABLE gt\_ekkn  
      FROM ekkn  
      FOR ALL ENTRIES IN  lt\_zmms001\_item  
      WHERE ebeln =  lt\_zmms001\_item\-ebeln  
       AND  ebelp =  lt\_zmms001\_item\-ebelp.  
  ENDIF .  
  
  SORT gt\_ekkn BY ebeln ebelp .  
  
  IF gt\_ekkn IS NOT INITIAL .  
    SELECT  
      kostl   " 成本中心  
      ktext  " 部门  
      INTO TABLE gt\_cskt  
      FROM cskt  . " 如果是资产类 EKKN 里面没有成本中心  
\*      FOR ALL ENTRIES IN gt\_ekkn  
\*      WHERE kostl = gt\_ekkn-kostl .  
  ENDIF .  
  
  
  " 得到模号  
  IF gt\_ekkn IS NOT INITIAL .  
    SELECT  
       aufnr  
       ktext  
      INTO TABLE gt\_aufk  
      FROM aufk  
      FOR ALL ENTRIES IN gt\_ekkn  
      WHERE aufnr = gt\_ekkn\-aufnr .  
  
  ENDIF .  
  SORT gt\_aufk BY aufnr .  
  DELETE ADJACENT DUPLICATES FROM gt\_aufk COMPARING aufnr .  
  
  
  " 得到资产的成本中心  
  IF  gt\_ekkn IS NOT INITIAL .  
    SELECT anln1 " 资产编号  
           kostl "  成本中心  
  
     INTO TABLE gt\_anlz  
     FROM anlz  
      FOR ALL ENTRIES IN gt\_ekkn  
      WHERE anln1 = gt\_ekkn\-anln1 .  
  
  ENDIF .  
  
  
\*采购申请  
  SELECT banfn bnfpo ebeln ebelp  
        INTO TABLE  gt\_eban  
        FROM eban  
        FOR ALL ENTRIES IN lt\_zmms001\_item  
        WHERE   ebeln = lt\_zmms001\_item\-ebeln  
         AND    ebelp = lt\_zmms001\_item\-ebelp.  
  
  
  
  DATA: lv\_name TYPE thead\-tdname.  
  DATA: lv\_name2 TYPE thead\-tdname.  
  DATA: lv\_name3 TYPE thead\-tdname.  
  DATA: ls\_tline LIKE tline .  
  DATA: lt\_tline LIKE TABLE OF tline .  
  DATA: ls\_tline2 LIKE tline .  
  DATA: lt\_tline2 LIKE TABLE OF tline .  
  DATA: ls\_tline3 LIKE tline .  
  DATA: lt\_tline3 LIKE TABLE OF tline .  
  DATA: lv\_kostl TYPE ekkn\-kostl .  
  
  
  
  SORT gt\_eban BY ebeln ebeln.  
  
  LOOP AT lt\_zmms001\_item INTO ls\_zmms001\_item .  
  
\*             READ TABLE gt\_prcd into gs\_prcd  with key KPOSN  = ls\_zmms001\_item-EBELP .  
\*              ls\_zmms001\_item-VFPRC1 =  gs\_prcd-kbetr / gs\_prcd-kpein  .  
\*                CLEAR gs\_prcd .  
  
    "获取单价.1 .head 过滤 激活及PBOO PBXX 均在得到gt\_prcd 时过滤，LOOP时按行项目汇总  
    LOOP AT gt\_prcd INTO gs\_prcd WHERE   kposn  = ls\_zmms001\_item\-ebelp .  
      ls\_zmms001\_item\-vfprc1 = ls\_zmms001\_item\-vfprc1 + gs\_prcd\-kbetr / gs\_prcd\-kpein  .  
      CLEAR gs\_prcd .  
    ENDLOOP .  
  
  
  
    READ TABLE gt\_prcd2 INTO gs\_prcd  WITH KEY kposn  = ls\_zmms001\_item\-ebelp  .  
    ls\_zmms001\_item\-vfprc2 =  gs\_prcd\-kbetr .  
  
  
    READ TABLE gt\_ekkn INTO gs\_ekkn WITH KEY ebeln = ls\_zmms001\_item\-ebeln  
                                             ebelp = ls\_zmms001\_item\-ebelp  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      ls\_zmms001\_item\-aufnr = gs\_ekkn\-aufnr .  
      " 取得成本心  
      lv\_kostl = gs\_ekkn\-kostl .  
      IF r\_2 EQ 'X' .  
        READ TABLE gt\_anlz INTO gs\_anlz  WITH KEY anln1 = gs\_ekkn\-anln1 .  
        IF sy\-subrc EQ 0 .  
          lv\_kostl =   gs\_anlz\-kostl .  
        ENDIF .  
        CLEAR gs\_anlz .  
      ENDIF .  
  
  
      " 取得申请部门  
      READ TABLE gt\_cskt INTO gs\_cskt WITH KEY kostl = lv\_kostl .  
      IF sy\-subrc EQ 0 .  
        ls\_zmms001\_item\-ktext = gs\_cskt\-ktext .  
        CLEAR gs\_cskt .  
      ENDIF .  
  
      " 取得模号  
      READ TABLE gt\_aufk INTO gs\_aufk WITH KEY aufnr = gs\_ekkn\-aufnr  
                                      BINARY SEARCH .  
      IF sy\-subrc EQ 0 .  
        ls\_zmms001\_item\-ktext2 = gs\_aufk\-ktext .  
      ENDIF .  
      CLEAR gs\_aufk .  
  
    ENDIF .  
    CLEAR gs\_ekkn .  
  
    CONCATENATE ls\_zmms001\_item\-ebeln  ls\_zmms001\_item\-ebelp  INTO lv\_name.  
  
    CLEAR: lt\_tline\[\] .  
    CALL FUNCTION 'READ\_TEXT'  
      EXPORTING  
        client                  = sy\-mandt  
        id                      = 'F01'  
        language                = sy\-langu  
        name                    = lv\_name  
        object                  = 'EKPO'  
\*       ARCHIVE\_HANDLE          = 0  
\*       LOCAL\_CAT               = ' '  
\*             IMPORTING  
\*       HEADER                  =  
\*       OLD\_LINE\_COUNTER        =  
      TABLES  
        lines                   = lt\_tline  
      EXCEPTIONS  
        id                      = 1  
        language                = 2  
        name                    = 3  
        not\_found               = 4  
        object                  = 5  
        reference\_check         = 6  
        wrong\_access\_to\_archive = 7  
        OTHERS                  = 8.  
    IF sy\-subrc <> 0.  
\*           Implement suitable error handling here  
    ENDIF.  
  
    CLEAR   ls\_zmms001\_item\-zbz\_i .  
    LOOP AT lt\_tline  INTO ls\_tline .  
      IF ls\_zmms001\_item\-zbz\_i IS INITIAL.  
        ls\_zmms001\_item\-zbz\_i = ls\_tline\-tdline.  
      ELSE.  
        CONCATENATE ls\_zmms001\_item\-zbz\_i ls\_tline\-tdline INTO ls\_zmms001\_item\-zbz\_i .  
      ENDIF.  
    ENDLOOP.  
  
  
  
    " 得到长文本  
    CLEAR lv\_name2 .  
    CLEAR lt\_tline2\[\].  
    lv\_name2 = ls\_zmms001\_item\-matnr .  
    CALL FUNCTION 'READ\_TEXT'  
      EXPORTING  
        client                  = sy\-mandt  
        id                      = 'GRUN'  
        language                = sy\-langu  
        name                    = lv\_name2  
        object                  = 'MATERIAL'  
\*       ARCHIVE\_HANDLE          = 0  
\*       LOCAL\_CAT               = ' '  
\*             IMPORTING  
\*       HEADER                  =  
\*       OLD\_LINE\_COUNTER        =  
      TABLES  
        lines                   = lt\_tline2  
      EXCEPTIONS  
        id                      = 1  
        language                = 2  
        name                    = 3  
        not\_found               = 4  
        object                  = 5  
        reference\_check         = 6  
        wrong\_access\_to\_archive = 7  
        OTHERS                  = 8.  
    IF sy\-subrc <> 0.  
\*           Implement suitable error handling here  
    ENDIF.  
  
    CLEAR  ls\_zmms001\_item\-zlong\_txt .  
    LOOP AT lt\_tline2  INTO ls\_tline2 .  
  
      CONCATENATE ls\_zmms001\_item\-zlong\_txt ls\_tline2\-tdline INTO ls\_zmms001\_item\-zlong\_txt .  
  
    ENDLOOP.  
  
\*采购申请行文本  
    READ TABLE gt\_eban INTO gs\_eban WITH KEY ebeln = ls\_zmms001\_item\-ebeln  
                                             ebelp = ls\_zmms001\_item\-ebelp  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
  
  
      CONCATENATE gs\_eban\-banfn  gs\_eban\-bnfpo  INTO lv\_name3.  
  
      CLEAR: lt\_tline\[\] .  
      CALL FUNCTION 'READ\_TEXT'  
        EXPORTING  
          client                  = sy\-mandt  
          id                      = 'B01'  
          language                = sy\-langu  
          name                    = lv\_name3  
          object                  = 'EBAN'  
\*         ARCHIVE\_HANDLE          = 0  
\*         LOCAL\_CAT               = ' '  
\*             IMPORTING  
\*         HEADER                  =  
\*         OLD\_LINE\_COUNTER        =  
        TABLES  
          lines                   = lt\_tline3  
        EXCEPTIONS  
          id                      = 1  
          language                = 2  
          name                    = 3  
          not\_found               = 4  
          object                  = 5  
          reference\_check         = 6  
          wrong\_access\_to\_archive = 7  
          OTHERS                  = 8.  
      IF sy\-subrc <> 0.  
\*           Implement suitable error handling here  
      ENDIF.  
  
      CLEAR   ls\_zmms001\_item\-zbz\_2 .  
      LOOP AT lt\_tline3  INTO ls\_tline3 .  
        IF ls\_zmms001\_item\-zbz\_2 IS INITIAL.  
          ls\_zmms001\_item\-zbz\_2 = ls\_tline3\-tdline.  
        ELSE.  
          CONCATENATE ls\_zmms001\_item\-zbz\_2 ls\_tline3\-tdline INTO ls\_zmms001\_item\-zbz\_2 .  
        ENDIF.  
      ENDLOOP.  
  
  
    ENDIF.  
  
  
    MODIFY lt\_zmms001\_item  FROM ls\_zmms001\_item  .  
  
    CLEAR gs\_prcd .  
    CLEAR gs\_ekkn .  
    CLEAR lv\_name .  
  
  
  
  
  ENDLOOP .  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_CALL\_PRINT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_print\_open .  
  
  IF s\_ekorg\-low  EQ '1200' . "大罗沙  
    IF   r\_1  EQ 'X'  .    "物料采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001AD'  
        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           = 'ZMMF001ED'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF   r\_3  EQ 'X' . "消耗性采购  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001CD'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF     r\_4  EQ 'X' .    "委外加工采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001FD'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF   r\_5  EQ 'X' .    "退货采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001BD'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
  
    IF   r\_6  EQ 'X' .      " 工序外包采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001DD'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
  
  
    IF   r\_7  EQ 'X' .      " UB转储订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001G'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
  ELSE  .  
  
    IF   r\_1  EQ 'X'  .    "物料采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001A'  
        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           = 'ZMMF001E'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF   r\_3  EQ 'X' . "消耗性采购  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001C'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
    IF     r\_4  EQ 'X' .    "委外加工采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001F'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
    IF   r\_5  EQ 'X' .    "退货采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001B'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
  
  
  
  
  
  
    IF   r\_6  EQ 'X' .      " 工序外包采购订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001D'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
    ENDIF .  
  
  
  
    IF   r\_7  EQ 'X' .      " UB转储订单  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZMMF001G'  
        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.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PRINT\_CLOSE  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_print\_close .  
  
  CALL FUNCTION 'SSF\_CLOSE'  
    EXCEPTIONS  
      formatting\_error = 1  
      internal\_error   = 2  
      send\_error       = 3  
      OTHERS           = 4.  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_RADIO\_BTN  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_radio\_btn .  
  IF r\_1 EQ 'X' .  
    gv\_bsart = 'Z001' .  
    CONCATENATE 'Z001 ' '物料采购订单' INTO gv\_order\_type .  
  ELSEIF  r\_2 EQ 'X' .  
    gv\_bsart = 'Z002'.  
    CONCATENATE 'Z002 ' '资产采购订单' INTO gv\_order\_type .  
  
  ELSEIF  r\_3 EQ 'X' .  
    gv\_bsart = 'Z003'.  
    CONCATENATE 'Z003 ' '消耗性采购订单' INTO gv\_order\_type .  
  ELSEIF  r\_4 EQ 'X' .  
    gv\_bsart = 'Z004'.  
    CONCATENATE 'Z004 ' '委外加工采购订单' INTO gv\_order\_type .  
  ELSEIF  r\_5 EQ 'X' .  
    gv\_bsart = 'Z005'.  
    CONCATENATE 'Z005 ' '退货采购订单' INTO gv\_order\_type .  
  
  ELSEIF  r\_6 EQ 'X' .  
    gv\_bsart = 'NB'.  
    CONCATENATE 'Z005 ' '工序外包采购订单' INTO gv\_order\_type .  
  
  ELSEIF  r\_7 EQ 'X' .  
    gv\_bsart = 'ZUB'.  
    CONCATENATE 'ZUB ' '转储订单' INTO gv\_order\_type .  
  
  ENDIF .  
  
  
  IF sy\-mandt EQ '900' AND r\_5 EQ 'X' .  
    gv\_bsart = 'Z003'.  
    CONCATENATE 'Z003 ' '退货采购订单' INTO gv\_order\_type .  
  ENDIF .  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_VER  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_ver .  
  
  
  DATA: lv\_cnt .  
  lv\_cnt = 0 .  
  SELECT COUNT(\*)  
    FROM cdpos  
    WHERE objectid EQ gs\_zmms001\_head\-ebeln  "凭证号  
    AND   fname EQ 'FRGKE'  
     AND value\_new EQ 'B'.     "取晓审核  
  
  lv\_cnt = sy\-dbcnt .  
  CONCATENATE 'V1.' lv\_cnt INTO gv\_ver .  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_GET\_PRICE\_TXT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_get\_price\_tax .  
  
  "找单价 kpein  
  
  SELECT  
      a~knumv   "价格条件编号  
      a~kposn  "行项目  
      a~kbetr   "价格（金额）  
      a~kpein   " 系数  
       INTO TABLE  gt\_prcd  
       FROM   prcd\_elements AS a  
      WHERE knumv EQ gs\_zmms001\_head\-knumv  
       AND kinak EQ '' "激活条件  
       AND ( kschl   EQ  'PB00'  OR   kschl   EQ  'PBXX'   ) .  
  
  
  
  SELECT  
      a~knumv   "价格条件编号  
      a~kposn  "行项目  
      a~kbetr "价格（金额）  
       INTO TABLE  gt\_prcd2  
       FROM   prcd\_elements AS a  
      WHERE knumv EQ gs\_zmms001\_head\-knumv  
       AND  kschl EQ  'Z001'.  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_ZBZ\_H\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_zbz\_h\_data .  
  
  DATA: ls\_tline LIKE tline .  
  DATA: lt\_tline LIKE TABLE OF tline .  
  DATA: lv\_name TYPE thead\-tdname.  
  lv\_name =  gs\_zmms001\_head\-ebeln .  
  
  CALL FUNCTION 'READ\_TEXT'  
    EXPORTING  
      client                  = sy\-mandt  
      id                      = 'F01'  
      language                = sy\-langu  
      name                    = lv\_name  
      object                  = 'EKKO'  
\*     ARCHIVE\_HANDLE          = 0  
\*     LOCAL\_CAT               = ' '  
\*   IMPORTING  
\*     HEADER                  =  
\*     OLD\_LINE\_COUNTER        =  
    TABLES  
      lines                   = lt\_tline  
    EXCEPTIONS  
      id                      = 1  
      language                = 2  
      name                    = 3  
      not\_found               = 4  
      object                  = 5  
      reference\_check         = 6  
      wrong\_access\_to\_archive = 7  
      OTHERS                  = 8.  
  IF sy\-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
  
  CLEAR  gv\_zbz\_h  .  
  LOOP AT lt\_tline INTO ls\_tline  .  
    IF gv\_zbz\_h  IS INITIAL.  
      gv\_zbz\_h  = ls\_tline\-tdline.  
    ENDIF .  
  ENDLOOP .  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_PROCESS\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_process\_data .  
  
  SORT gt\_zmmt001p BY zdh .  
  
  
  LOOP AT  gt\_out  INTO gs\_out .  
  
  
    " 获取打印次数  
    CLEAR gs\_zmmt001p  .  
    READ TABLE gt\_zmmt001p INTO  gs\_zmmt001p WITH KEY zdh = gs\_out\-ebeln  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-zprt\_cnt = gs\_zmmt001p\-zprt\_cnt .  
      MODIFY gt\_out FROM gs\_out .  
  
    ENDIF .  
  
  
  
  
  ENDLOOP.  
  
  
  
ENDFORM.

![70 1][]

[70]: /images/20220527/6602971c1ae54d6a927f646ec357387a.png
[70 1]: /images/20220527/b4c8d42b37f548539f1e05b88b2e838e.png