SAP固定资产双列标签打印代码

梦里梦外; 2022-11-30 01:32 218阅读 0赞

购买的标签是两列，就是一行要打两个标签。

关键思路：打印结构一行里面包含两个列

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

*\*&---------------------------------------------------------------------\**  
*\*& Report ZFI027*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zfi027.  
  
  
TABLES:anla,csks,anlh,anlz,cskt,but000.  
  
DATA:BEGIN OF gs\_anla,  
       bukrs  LIKE anla\-bukrs, *"**公司代码*  
       anln1  LIKE anla\-anln1, *"**主资产号*  
       txt50  LIKE anla\-txt50, *"**资产品名*  
       gdlgrp LIKE anla\-gdlgrp, *"**评估组** 5-**购置日期*  
       aktiv  LIKE anla\-aktiv, *"**资产资本化日期*  
       lifnr  LIKE anla\-lifnr, *"**资产提供者名*  
       txa50  LIKE anla\-txa50,  
       sernr  LIKE anla\-sernr, *"**序列号*  
       invnr  LIKE anla\-invnr,  
     END OF gs\_anla.  
  
DATA:BEGIN OF gs\_but000,  
       partner   LIKE but000\-partner,  
       name\_org1 LIKE but000\-name\_org1,  
     END OF gs\_but000.  
DATA:gt\_but000 LIKE TABLE OF gs\_but000.  
  
DATA:BEGIN OF gs\_anlz,  
       anln1 LIKE anlz\-anln1,  
       kostl LIKE anlz\-kostl, *"**成本中心*  
       bdatu LIKE anlz\-bdatu, *"**结束日*  
       adatu LIKE anlz\-adatu, *"**起始日*  
     END OF gs\_anlz.  
  
DATA:BEGIN OF gs\_cskt,  
       kostl LIKE cskt\-kostl,  
       ltext LIKE cskt\-ltext,  
     END OF gs\_cskt.  
  
  
DATA:BEGIN OF gs\_csks,  
       kostl LIKE csks\-kostl, *"**成本中心*  
*\*       name1 LIKE csks-name1, "**使用部门*  
       verak LIKE csks\-verak, *"**负责人*  
*\*       datbi LIKE csks-datbi,*  
*\*       datab LIKE csks-datab,*  
     END OF gs\_csks.  
  
  
DATA:BEGIN OF gs\_anlh,  
       anln1   LIKE anlh\-anln1,  
       anlhtxt LIKE anlh\-anlhtxt, *"**资产主号说明**-**规格型号*  
     END OF gs\_anlh.  
  
  
DATA:BEGIN OF gs\_out,  
       mark,  
       bukrs     LIKE anla\-bukrs,  
       anln1     LIKE anla\-anln1,  
       txt50     LIKE anla\-txt50,  
       gdlgrp    LIKE anla\-gdlgrp,  
       aktiv     LIKE anla\-aktiv,  
       name\_org1 LIKE but000\-name\_org1,  
       kostl     LIKE anlz\-kostl,  
       ltext     LIKE cskt\-ltext,  
       verak     LIKE csks\-verak,  
       txa50     LIKE anla\-txa50,  
       bdatu     LIKE anlz\-bdatu, *"**结束日*  
       adatu     LIKE anlz\-adatu, *"**起始日*  
       sernr     LIKE anla\-sernr, *"**序列号*  
       invnr     LIKE anla\-invnr,  
       anlhtxt   LIKE anlh\-anlhtxt,  
     END OF gs\_out.  
  
DATA:gt\_anla LIKE TABLE OF gs\_anla,  
     gt\_anlz LIKE TABLE OF gs\_anlz,  
     gt\_csks LIKE TABLE OF gs\_csks,  
     gt\_anlh LIKE TABLE OF gs\_anlh,  
     gt\_cskt LIKE TABLE OF gs\_cskt,  
     gt\_out  LIKE TABLE OF gs\_out.  
  
  
  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv,  
      gt\_fieldcat LIKE TABLE OF gs\_fieldcat.  
  
DATA: gs\_layout TYPE slis\_layout\_alv.  
  
  
DATA: g\_fm\_name TYPE rs38l\_fnam.  
DATA: gw\_options TYPE ssfcompop,  
      gw\_control TYPE ssfctrlop.  
  
  
*\*ZPPS008S*  
  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& **包含**               ZPPF006\_SCR*  
*\*&---------------------------------------------------------------------\**  
SELECT-OPTIONS:s\_bukrs FOR anla\-bukrs.  
SELECT-OPTIONS:s\_anln1 FOR anla\-anln1.  
SELECT-OPTIONS:s\_txt50 FOR anla\-txt50.  
SELECT-OPTIONS:s\_gdlgrp FOR anla\-gdlgrp.  
SELECT-OPTIONS:s\_aktiv FOR anla\-aktiv.  
SELECT-OPTIONS:s\_kostl FOR csks\-kostl.  
SELECT-OPTIONS:s\_sernr FOR anla\-sernr.  
  
  
START-OF-SELECTION.  
  PERFORM:frm\_get\_data.  
  PERFORM:frm\_process\_data.  
  PERFORM:frm\_display\_data.  
  
  
FORM frm\_get\_data .  
  
  CLEAR:gt\_anla.  
  DATA:lv\_tabix LIKE sy\-tabix.  
  
  SELECT bukrs anln1 txt50 gdlgrp aktiv lifnr txa50 sernr invnr  
                 INTO TABLE gt\_anla  
                 FROM anla  
                 WHERE bukrs IN s\_bukrs  
                 AND anln1 IN s\_anln1  
                 AND txt50 IN s\_txt50  
                 AND gdlgrp IN s\_gdlgrp  
                 AND aktiv IN s\_aktiv  
                  AND sernr IN  s\_sernr.  
  
  SORT gt\_anla BY anln1.  
  DELETE ADJACENT DUPLICATES FROM gt\_anla COMPARING anln1.  
  
  
  
  IF gt\_anlz\[\] IS NOT INITIAL.  
    SELECT kostl  verak  INTO TABLE gt\_csks  
                             FROM csks  
                             FOR ALL ENTRIES IN gt\_anlz  
                             WHERE kostl = gt\_anlz\-kostl.  
*\*                             AND datbi = '99991231'.*  
  ENDIF.  
  
  IF gt\_anla\[\] IS NOT INITIAL.  
    SELECT anln1 kostl bdatu adatu INTO TABLE  gt\_anlz FROM anlz FOR ALL ENTRIES IN gt\_anla  
                            WHERE anln1 = gt\_anla\-anln1  
                             AND kostl IN s\_kostl  
                             AND bdatu = '99991231'.  
  
  ENDIF.  
  
  IF s\_kostl\[\] IS NOT INITIAL.  
    LOOP AT gt\_anla INTO gs\_anla.  
      lv\_tabix = sy\-tabix.  
      READ TABLE gt\_anlz WITH KEY anln1 = gs\_anla\-anln1  
                         TRANSPORTING NO FIELDS.  
      IF sy\-subrc <> 0.  
        DELETE gt\_anla INDEX lv\_tabix.  
        CONTINUE.  
        CLEAR:lv\_tabix.  
      ENDIF.  
  
    ENDLOOP.  
  ENDIF.  
  
  IF gt\_anla\[\] IS NOT INITIAL.  
    SELECT partner name\_org1 INTO TABLE gt\_but000 FROM but000  
              FOR ALL ENTRIES IN gt\_anla  
              WHERE partner = gt\_anla\-lifnr.  
  
  
  ENDIF.  
  
  IF  gt\_anla\[\] IS NOT INITIAL.  
    SELECT kostl ltext INTO TABLE gt\_cskt FROM cskt  
                  FOR ALL ENTRIES IN gt\_anlz  
                  WHERE kostl = gt\_anlz\-kostl.  
  ENDIF.  
  
  
  IF gt\_anlz\[\] IS NOT INITIAL.  
    SELECT kostl  verak  INTO TABLE gt\_csks  
                             FROM csks  
                             FOR ALL ENTRIES IN gt\_anlz  
                             WHERE kostl = gt\_anlz\-kostl.  
*\*                             AND datbi = '99991231'.*  
  
    IF gt\_anla\[\] IS NOT INITIAL.  
      SELECT anln1 anlhtxt INTO TABLE gt\_anlh  
                            FROM anlh  
                            FOR ALL ENTRIES IN gt\_anla  
                            WHERE anln1 = gt\_anla\-anln1.  
  
    ENDIF.  
  
  ENDIF.  
  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_PROCESS\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_process\_data .  
  
  SORT gt\_anla BY anln1.  
  SORT gt\_anlz BY anln1.  
  SORT gt\_csks BY kostl.  
  SORT gt\_anlh BY anln1.  
  SORT gt\_cskt BY kostl.  
  SORT gt\_but000 BY partner.  
  
  CLEAR:gs\_anla,gs\_anlz, gs\_csks,gs\_anlh ,gs\_cskt.  
  
  
  CLEAR:gs\_but000.  
  LOOP AT gt\_anla INTO gs\_anla.  
    gs\_out\-bukrs = gs\_anla\-bukrs.  
    gs\_out\-anln1 = gs\_anla\-anln1.  
    gs\_out\-txt50 = gs\_anla\-txt50.  
    gs\_out\-gdlgrp = gs\_anla\-gdlgrp.  
    gs\_out\-aktiv = gs\_anla\-aktiv.  
    gs\_out\-txa50 = gs\_anla\-txa50.  
    gs\_out\-sernr = gs\_anla\-sernr.  
    gs\_out\-invnr = gs\_anla\-invnr.  
*\*    gs\_out-liefe = gs\_anla-liefe.*  
  
  
    CLEAR:gs\_but000.  
    READ TABLE gt\_but000 INTO gs\_but000  
       WITH KEY partner = gs\_anla\-lifnr  
       BINARY SEARCH.  
    IF sy\-subrc EQ 0 .  
      gs\_out\-name\_org1 = gs\_but000\-name\_org1.  
  
    ENDIF.  
  
  
  
    READ TABLE gt\_anlz INTO gs\_anlz  
            WITH KEY anln1 = gs\_anla\-anln1  
             BINARY SEARCH.  
    IF sy\-subrc EQ 0.  
      gs\_out\-kostl = gs\_anlz\-kostl.  
      gs\_out\-bdatu = gs\_anlz\-bdatu.  
      gs\_out\-adatu = gs\_anlz\-adatu.  
  
      READ TABLE gt\_csks INTO gs\_csks  
          WITH KEY kostl = gs\_anlz\-kostl  
          BINARY SEARCH.  
      IF sy\-subrc EQ 0.  
*\*        gs\_out-name1 = gs\_csks-name1.*  
        gs\_out\-verak = gs\_csks\-verak.  
*\*        gs\_out-datbi = gs\_csks-datbi.*  
*\*        gs\_out-datab = gs\_csks-datab.*  
  
        READ TABLE gt\_cskt INTO gs\_cskt  
           WITH KEY kostl = gs\_anlz\-kostl  
           BINARY SEARCH.  
        IF sy\-subrc EQ 0.  
          gs\_out\-ltext = gs\_cskt\-ltext.  
  
        ENDIF.  
      ENDIF.  
    ENDIF.  
  
  
  
  
  
    READ TABLE gt\_anlh INTO gs\_anlh  
               WITH  KEY anln1 = gs\_anla\-anln1  
               BINARY SEARCH.  
    IF sy\-subrc EQ 0.  
      gs\_out\-anlhtxt = gs\_anlh\-anlhtxt.  
  
    ENDIF.  
    APPEND gs\_out TO gt\_out.  
  
    CLEAR:gs\_out.  
  ENDLOOP.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_DISPLAY\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_display\_data .  
  
  CLEAR: gt\_fieldcat.  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
  
    IF &1 EQ 'ANLN1'.  
    gs\_fieldcat\-ref\_fieldname = &1.  
    gs\_fieldcat\-ref\_tabname = 'ANLA'.  
 ENDIF.  
  
  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
 CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field:'BUKRS' '公司代码'.  
  append\_field:'ANLN1' '主资产号'.  
  append\_field:'TXT50' '资产品名'.  
  append\_field:'SERNR' '序列号'.  
  append\_field:'invnr' '存货号'.  
  append\_field:'ADATU' '起始日期'.  
  append\_field:'BDATU' '截止日期'.  
  append\_field:'GDLGRP' '购置日期'.  
  append\_field:'AKTIV' '资产资本化日期'.  
  append\_field:'NAME\_ORG1' '供应商'.  
  append\_field:'KOSTL' '成本中心'.  
  append\_field:'LTEXT' '使用部门'.  
  append\_field:'VERAK' '负责人'.  
  append\_field:'TXA50' '规格型号'.  
  
  gs\_layout\-box\_fieldname = 'MARK'.  
  gs\_layout\-colwidth\_optimize = 'X'.  
  gs\_layout\-zebra = 'X'.  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
    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 TYPE sy\-ucomm  
                            rs\_selfield TYPE slis\_selfield.  
  
  IF uv\_ucomm EQ 'PRINT'.  
  
  
   CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFFI005'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
  
  
    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:ls\_out LIKE zsfi005 .  
    DATA: lt\_out LIKE TABLE OF zsfi005 .  
    DATA: lv\_i TYPE i .  
    DATA: lv\_mod TYPE i .  
    lv\_i = 0 .  
    LOOP  AT  gt\_out  INTO gs\_out WHERE mark EQ 'X'  .  
      lv\_i = lv\_i + 1 .  
      lv\_mod = lv\_i MOD 2 .  
      IF lv\_mod EQ 1 .  
        ls\_out\-bukrs1 = gs\_out\-bukrs .  
        ls\_out\-anln11 = gs\_Out\-anln1 .  
        ls\_out\-txt501 = gs\_out\-txt50 .  
        ls\_out\-aktiv1 = gs\_out\-aktiv .  
      ELSE .  
        ls\_out\-bukrs2 =  gs\_out\-bukrs .  
        ls\_out\-anln12 = gs\_Out\-anln1 .  
        ls\_out\-txt502 = gs\_out\-txt50 .  
        ls\_out\-aktiv2 = gs\_out\-aktiv .  
        APPEND ls\_out TO lt\_out .  
      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*  
      TABLES  
        it\_out             = lt\_out  
*\*       it\_bkpf            = lt\_bkpf*  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
    CLEAR: lt\_out\[\] .  
  
  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF .  
ENDFORM.  
  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_OUT2\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20221124/e1942219374f43e7882be6a236d9a270.png