Z_MM_060 物料标签打印

  *&---------------------------------------------------------------------*
*& Report  Z_MM_060
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_mm_060  NO STANDARD PAGE HEADING
 LINE-COUNT  69"每页报表行数
 LINE-SIZE   201. "每页报表列
TABLES: mseg,mkpf,makt,mch1,lfa1,mara.
DATA : BEGIN OF itab OCCURS 0,
  matnr LIKE makt-maktx,  "mseg-matnr,"物料编码
  maktx LIKE makt-maktx,"物料描述
  charg LIKE mseg-charg,"本公司批次
  licha LIKE mch1-licha,"制造商批次
  bldat LIKE mkpf-bldat,"入仓日期
  mblnr LIKE mseg-mblnr,"入仓单号
  erfmg LIKE mseg-erfmg,"数量
  erfme LIKE mseg-erfme,"单位
  name1 LIKE lfa1-name1,"供应商
  wempf LIKE mseg-wempf,"制造商
  sgtxt LIKE mseg-sgtxt,"备注
  ebeln LIKE mseg-ebeln,"订单号码
  ebelp LIKE mseg-ebelp,"行项目
  lifnr LIKE lfa1-lifnr,
  zeile LIKE mseg-zeile,
  normt LIKE mara-normt,
  vfdat LIKE mch1-vfdat, "失效日期
  zrdj(30) TYPE c,
  matnr2(40) TYPE c,    "物料编码说明
END OF itab.
DATA: shu LIKE mseg-erfmg.
DATA:  ipage_now TYPE i.                   "当前页码
DATA _itab LIKE tline OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS:pr_werks LIKE mseg-werks OBLIGATORY MEMORY ID wrk.    "工厂
PARAMETERS: pr_mblnr LIKE mseg-mblnr MEMORY ID pr_mblnr OBLIGATORY.
SELECT-OPTIONS: pr_mjahr FOR mseg-mjahr.
SELECT-OPTIONS: s_matnr FOR mseg-matnr.
SELECT-OPTIONS: pr_zeile FOR mseg-zeile.
SELECT-OPTIONS: pr_bwart FOR mseg-bwart DEFAULT '101'.
PARAMETERS: pr_shu LIKE shu .

SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.

  t1 = '物料标签打印'.
  pr_mjahr-low = sy-datum+(4).
  pr_mjahr-high = sy-datum+(4).
  APPEND pr_mjahr.
  CLEAR pr_mjahr.

TOP-OF-PAGE.
  DATA:
    serial TYPE i VALUE 1.
*  write: /2(3)  serial  centered.
  serial = serial + 1.

START-OF-SELECTION.
  PERFORM getdata.  "读取数据
  PERFORM display.  "显示数据

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM getdata.
  CLEAR ipage_now.
  SELECT * FROM mseg
        INTO CORRESPONDING FIELDS OF itab
        WHERE mseg~mblnr LIKE pr_mblnr
    AND mseg~mjahr IN pr_mjahr
    AND mseg~zeile IN pr_zeile
    AND mseg~matnr IN s_matnr
    AND mseg~bwart IN pr_bwart
    AND mseg~werks = pr_werks.
    SELECT SINGLE bldat
          FROM mkpf
          INTO CORRESPONDING FIELDS OF itab
          WHERE mblnr = itab-mblnr
           AND mjahr IN pr_mjahr.
    SELECT SINGLE licha vfdat
          FROM mch1
          INTO CORRESPONDING FIELDS OF itab
          WHERE charg = itab-charg
           AND matnr = itab-matnr.

    SELECT SINGLE maktx FROM makt
          INTO CORRESPONDING FIELDS OF itab
          WHERE matnr = itab-matnr.

    SELECT SINGLE name1 FROM lfa1
          INTO CORRESPONDING FIELDS OF itab
          WHERE lifnr = itab-lifnr.



************读取阻燃等级START********************
    DATA:stxl LIKE stxl OCCURS 0 WITH HEADER LINE."抬头备注
    SELECT SINGLE * FROM stxl INTO stxl
      WHERE tdname = itab-matnr AND tdid = 'PRUE' AND tdspras = 'ZH' AND tdobject = 'MATERIAL'.
    stxl-tdid = 'PRUE'.
    stxl-tdspras = '1'.
    stxl-tdname = itab-matnr.
    stxl-tdobject = 'MATERIAL'.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        client                  = sy-mandt
        id                      = stxl-tdid    "读取文本的id
        language                = stxl-tdspras "读取文本的语言
        name                    = stxl-tdname    "读取文本的名字
        object                  = stxl-tdobject  "MATERIAL
      TABLES
        lines                   = _itab
      EXCEPTIONS
        id                      = 1
        language                = 2
        name                    = 3
        not_found               = 4
        object                  = 5
        reference_check         = 6
        wrong_access_to_archive = 7
        OTHERS                  = 8.

    DATA: itemp1 LIKE thead-tdname."itemp为变量无值

    LOOP AT _itab .
      CONCATENATE itemp1 _itab-tdline INTO itemp1 SEPARATED BY space."解决回车事件
    ENDLOOP.
    itab-zrdj = itemp1.
    itemp1 = ''.
*      ITAB-ZRDJ = ''.
************读取阻燃等级END********************
    SELECT SINGLE normt INTO itab-normt  FROM mara WHERE matnr = itab-matnr.

    CONCATENATE itab-matnr '  /' itab-normt INTO itab-matnr.


    APPEND itab.

  ENDSELECT.
ENDFORM.                    "getdata
*end-of-selection.
FORM print_lable1.
*   write:4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,34'物料标签' centered,72 sy-vline,101'物料标签' centered,139 sy-vline,168'物料标签' centered ,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'物料编码'centered,72 sy-vline,'物料编码'centered,139 sy-vline,'物料编码'centered,19 sy-vline,itab-matnr NO-GAP,86 sy-vline,
*     itab-matnr NO-GAP ,154 sy-vline,itab-matnr NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'物料描述' centered,72 sy-vline,'物料描述' centered,139 sy-vline,'物料描述' centered,19 sy-vline,
*     itab-maktx NO-GAP,86 sy-vline,itab-maktx NO-GAP,154 sy-vline,itab-maktx NO-GAP,69 sy-vline, 137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'本公司批次' centered,72 sy-vline,'本公司批次' centered,139 sy-vline,'本公司批次' centered,19 sy-vline,itab-charg NO-GAP,
*   86 sy-vline,itab-charg NO-GAP,154 sy-vline,itab-charg NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'制造商批次' centered,72 sy-vline,'制造商批次' centered,139 sy-vline,'制造商批次' centered,19 sy-vline,itab-licha NO-GAP,
*   86 sy-vline,itab-licha NO-GAP,154 sy-vline,itab-licha NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'入仓日期' centered,72 sy-vline,'入仓日期' centered,139 sy-vline,'入仓日期' centered,19 sy-vline,itab-bldat NO-GAP,
*   86 sy-vline,itab-bldat NO-GAP,154 sy-vline,itab-bldat NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'入仓单号' centered,72 sy-vline,'入仓单号' centered,139 sy-vline,'入仓单号' centered,19 sy-vline,itab-mblnr NO-GAP,
*   86 sy-vline,itab-mblnr NO-GAP,154 sy-vline,itab-mblnr NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'数量（单位）' centered,72 sy-vline,'数量（单位）' centered,139 sy-vline,'数量（单位）' centered,19 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
*   86 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,154 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED
*   ,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'供应商'centered,72 sy-vline,'供应商'centered,139 sy-vline,'供应商'centered,19 sy-vline,itab-name1 NO-GAP,
*   86 sy-vline,itab-name1 NO-GAP,154 sy-vline,itab-name1 NO-GAP, 69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'制造商'centered,72 sy-vline,'制造商'centered,139 sy-vline,'制造商'centered,19 sy-vline,itab-wempf NO-GAP,
*   86 sy-vline,itab-wempf NO-GAP,154 sy-vline,itab-wempf NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
*/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
*/4 sy-vline,'备注'centered,72 sy-vline,'备注'centered,139 sy-vline,'备注'centered,19 sy-vline,itab-sgtxt NO-GAP,
*   86 sy-vline,itab-sgtxt NO-GAP,154 sy-vline,itab-sgtxt NO-GAP,69  sy-vline,137 sy-vline,203 sy-vline.
*write: 4(66) sy-uline,72(66) sy-uline,135(65) sy-uline.

  WRITE:/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,34'物料标签' CENTERED,72 sy-vline,101'物料标签' CENTERED,139 sy-vline,168'物料标签' CENTERED ,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'物料编码'CENTERED,72 sy-vline,'物料编码'CENTERED,139 sy-vline,'物料编码'CENTERED,19 sy-vline,itab-matnr NO-GAP,86 sy-vline,
    itab-matnr NO-GAP ,154 sy-vline,itab-matnr NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'物料描述' CENTERED,72 sy-vline,'物料描述' CENTERED,139 sy-vline,'物料描述' CENTERED,19 sy-vline,
    itab-maktx NO-GAP,86 sy-vline,itab-maktx NO-GAP,154 sy-vline,itab-maktx NO-GAP,69 sy-vline, 137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'本公司批次' CENTERED,72 sy-vline,'本公司批次' CENTERED,139 sy-vline,'本公司批次' CENTERED,19 sy-vline,itab-charg NO-GAP,
  86 sy-vline,itab-charg NO-GAP,154 sy-vline,itab-charg NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'制造商批次' CENTERED,72 sy-vline,'制造商批次' CENTERED,139 sy-vline,'制造商批次' CENTERED,19 sy-vline,itab-licha NO-GAP,
  86 sy-vline,itab-licha NO-GAP,154 sy-vline,itab-licha NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'入库日期' CENTERED,72 sy-vline,'入库日期' CENTERED,139 sy-vline,'入库日期' CENTERED,19 sy-vline,itab-bldat NO-GAP,
  86 sy-vline,itab-bldat NO-GAP,154 sy-vline,itab-bldat NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'入库凭证号' CENTERED,72 sy-vline,'入库凭证号' CENTERED,139 sy-vline,'入库凭证号' CENTERED,19 sy-vline,itab-mblnr NO-GAP,
  86 sy-vline,itab-mblnr NO-GAP,154 sy-vline,itab-mblnr NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'数量（单位）' CENTERED,72 sy-vline,'数量（单位）' CENTERED,139 sy-vline,'数量（单位）' CENTERED,19 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
  86 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,154 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED
  ,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'失效日期'CENTERED,72 sy-vline,'失效日期'CENTERED,139 sy-vline,'失效日期'CENTERED,19 sy-vline,itab-vfdat NO-GAP,
  86 sy-vline,itab-vfdat NO-GAP,154 sy-vline,itab-vfdat NO-GAP, 69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'阻燃等级'CENTERED,72 sy-vline,'阻燃等级'CENTERED,139 sy-vline,'阻燃等级'CENTERED,19 sy-vline,itab-zrdj NO-GAP,
  86 sy-vline,itab-zrdj NO-GAP,154 sy-vline,itab-zrdj NO-GAP,69 sy-vline,137 sy-vline,203 sy-vline,
/4(66) sy-uline,72(66) sy-uline,139(65) sy-uline,
/4 sy-vline,'供应商'CENTERED,72 sy-vline,'供应商'CENTERED,139 sy-vline,'供应商'CENTERED,19 sy-vline,itab-name1 NO-GAP,
  86 sy-vline,itab-name1 NO-GAP,154 sy-vline,itab-name1 NO-GAP,69  sy-vline,137 sy-vline,203 sy-vline.
  WRITE: /4(66) sy-uline,72(66) sy-uline,135(65) sy-uline.
ENDFORM.                    "print_lable1

*&---------------------------------------------------------------------*
*&      Form  print_labelblank
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM print_labelblank.
  WRITE:/4(66) sy-uline,/ sy-vline,34'物料标签'CENTERED,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'物料编码'CENTERED,19 sy-vline,
       itab-matnr NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'物料描述' CENTERED,19 sy-vline,
       itab-maktx NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'本公司批次' CENTERED,19 sy-vline,
     itab-charg NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'制造商批次' CENTERED,19 sy-vline,
     itab-licha NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'入仓日期' CENTERED,19 sy-vline,
     itab-bldat NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'入仓单号' CENTERED,19 sy-vline,
     itab-mblnr NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'数量（单位）' CENTERED,19 sy-vline,

  /4(66) sy-uline,/ sy-vline,'供应商'CENTERED,19 sy-vline,
    itab-name1 NO-GAP, 69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'制造商'CENTERED,19 sy-vline,
    itab-wempf NO-GAP,69 sy-vline,
  /4(66) sy-uline,/ sy-vline,'备注'CENTERED,19 sy-vline,
     itab-sgtxt NO-GAP,69  sy-vline.
  WRITE: /4(66) sy-uline.
ENDFORM.                    "print_labelblank

*&---------------------------------------------------------------------*
*&      Form  display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM display.
*---------------------------
*     输出表头
*---------------------------

*  write:
*     /2(10) sy-datum.
*   skip 2.
*---------------------------
*     输出列表正文(表体)
*---------------------------


  DATA: yushu TYPE mseg-erfmg.

  DATA: linecount TYPE i.
  DATA: linecount1 LIKE mseg-erfmg.
  DATA: linecount2 TYPE i.
  DATA: linecount3 LIKE mseg-erfmg, _zeile LIKE mseg-zeile.
  DATA: x TYPE i.
*      write / 'itab-erfmg / pr_shu /9'.

  x = 3.
  LOOP AT itab.
    IF _zeile = itab-zeile.
      IF pr_shu = ''.
        yushu = itab-erfmg.
      ELSE.
        yushu = itab-erfmg - ( itab-erfmg DIV pr_shu ) * pr_shu.
        linecount1 = itab-erfmg / pr_shu / 9.
*      linecount2 = ( itab-erfmg DIV pr_shu ) DIV 9 .
        linecount2 = itab-erfmg / pr_shu / 9.
        IF linecount1 > linecount2.
          linecount3 = linecount1 - linecount2 .
        ENDIF.
        IF linecount3 < 1 AND linecount3 <> 0.
          linecount3 = 1.
        ENDIF.
        linecount = linecount2 + linecount3 .
        IF linecount < 1.
          linecount = 1.
        ENDIF.
      ENDIF.
      IF pr_shu > itab-erfmg.
        linecount = 0.
      ENDIF.
      IF pr_shu = ''.
        linecount = 0.
        yushu = itab-erfmg.
      ENDIF.
      DO linecount TIMES.
        IF pr_werks = '1000'.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,
       / sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
*skip.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
*skip.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
*skip.

        ELSE.
          PERFORM print_lable1.
          "   skip.
          PERFORM print_lable1.
          "   skip.
          PERFORM print_lable1.
        ENDIF.
      ENDDO.

      IF yushu = 0.
        CONTINUE.
      ENDIF.
      IF pr_werks = '1000'.
        WRITE:/(66) sy-uline,/ sy-vline,30'物料标签'CENTERED,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'物料编码'CENTERED,15 sy-vline,
          itab-matnr NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'物料描述' CENTERED,15 sy-vline,
          itab-maktx NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'本公司批次' CENTERED,15 sy-vline,
        itab-charg NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'制造商批次' CENTERED,15 sy-vline,
        itab-licha NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'入仓日期' CENTERED,15 sy-vline,
        itab-bldat NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'入仓单号' CENTERED,15 sy-vline,
        itab-mblnr NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'数量（单位）' CENTERED,15 sy-vline,
        yushu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'供应商'CENTERED,15 sy-vline,
       itab-name1 NO-GAP, 66 sy-vline,
     /(66) sy-uline,/ sy-vline,'制造商'CENTERED,15 sy-vline,
       itab-wempf NO-GAP,66 sy-vline,
     /(66) sy-uline,/ sy-vline,'备注'CENTERED,15 sy-vline,
        itab-sgtxt NO-GAP,66  sy-vline.
        WRITE: /(66) sy-uline.
      ELSE.
        WRITE:/4(66) sy-uline,/ sy-vline,34'物料标签'CENTERED,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'物料编码'CENTERED,19 sy-vline,
             itab-matnr NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'物料描述' CENTERED,19 sy-vline,
             itab-maktx NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'本公司批次' CENTERED,19 sy-vline,
           itab-charg NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'制造商批次' CENTERED,19 sy-vline,
           itab-licha NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'入仓日期' CENTERED,19 sy-vline,
           itab-bldat NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'入仓单号' CENTERED,19 sy-vline,
           itab-mblnr NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'数量（单位）' CENTERED,19 sy-vline,
           yushu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'供应商'CENTERED,19 sy-vline,
          itab-name1 NO-GAP, 69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'制造商'CENTERED,19 sy-vline,
          itab-wempf NO-GAP,69 sy-vline,
        /4(66) sy-uline,/ sy-vline,'备注'CENTERED,19 sy-vline,
           itab-sgtxt NO-GAP,69  sy-vline.
        WRITE: /4(66) sy-uline.
      ENDIF.
    ELSE.
      NEW-PAGE.
      IF pr_shu = ''.
        yushu = itab-erfmg.
      ELSE.
        yushu = itab-erfmg - ( itab-erfmg DIV pr_shu ) * pr_shu.
        linecount1 = itab-erfmg / pr_shu / 9.
*      linecount2 = ( itab-erfmg DIV pr_shu ) DIV 9 .
        linecount2 = itab-erfmg / pr_shu / 9.
        IF linecount1 > linecount2.
          linecount3 = linecount1 - linecount2 .
        ENDIF.
        IF linecount3 < 1 AND linecount3 <> 0.
          linecount3 = 1.
        ENDIF.
        linecount = linecount2 + linecount3 .
        IF linecount < 1.
          linecount = 1.
        ENDIF.
      ENDIF.
      IF pr_shu > itab-erfmg.
        linecount = 0.
      ENDIF.
      IF pr_shu = ''.
        linecount = 0.
        yushu = itab-erfmg.
      ENDIF.
      DO linecount TIMES.
*write: /5(20) sy-uline,
*    /5 sy-vline.
        IF pr_werks = '1000'.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
*skip.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
*skip.
          WRITE:(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,30'物料标签' CENTERED,68 sy-vline,97'物料标签' CENTERED,135 sy-vline,164'物料标签' CENTERED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料编码'CENTERED,68 sy-vline,'物料编码'CENTERED,135 sy-vline,'物料编码'CENTERED,15 sy-vline,itab-matnr NO-GAP,82 sy-vline,
            itab-matnr NO-GAP,150 sy-vline,itab-matnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'物料描述' CENTERED,68 sy-vline,'物料描述' CENTERED,135 sy-vline,'物料描述' CENTERED,15 sy-vline,
            itab-maktx NO-GAP,82 sy-vline,itab-maktx NO-GAP,150 sy-vline,itab-maktx NO-GAP,66 sy-vline, 133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'本公司批次' CENTERED,68 sy-vline,'本公司批次' CENTERED,135 sy-vline,'本公司批次' CENTERED,15 sy-vline,itab-charg NO-GAP,
          82 sy-vline,itab-charg NO-GAP,150 sy-vline,itab-charg NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商批次' CENTERED,68 sy-vline,'制造商批次' CENTERED,135 sy-vline,'制造商批次' CENTERED,15 sy-vline,itab-licha NO-GAP,
          82 sy-vline,itab-licha NO-GAP,150 sy-vline,itab-licha NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓日期' CENTERED,68 sy-vline,'入仓日期' CENTERED,135 sy-vline,'入仓日期' CENTERED,15 sy-vline,itab-bldat NO-GAP,
          82 sy-vline,itab-bldat NO-GAP,150 sy-vline,itab-bldat NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'入仓单号' CENTERED,68 sy-vline,'入仓单号' CENTERED,135 sy-vline,'入仓单号' CENTERED,15 sy-vline,itab-mblnr NO-GAP,
          82 sy-vline,itab-mblnr NO-GAP,150 sy-vline,itab-mblnr NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'数量（单位）' CENTERED,68 sy-vline,'数量（单位）' CENTERED,135 sy-vline,'数量（单位）' CENTERED,15 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,
          82 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,150 sy-vline,pr_shu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'供应商'CENTERED,68 sy-vline,'供应商'CENTERED,135 sy-vline,'供应商'CENTERED,15 sy-vline,itab-name1 NO-GAP,
          82 sy-vline,itab-name1 NO-GAP,150 sy-vline,itab-name1 NO-GAP, 66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'制造商'CENTERED,68 sy-vline,'制造商'CENTERED,135 sy-vline,'制造商'CENTERED,15 sy-vline,itab-wempf NO-GAP,
          82 sy-vline,itab-wempf NO-GAP,150 sy-vline,itab-wempf NO-GAP,66 sy-vline,133 sy-vline,199 sy-vline,
       /(66) sy-uline,68(66) sy-uline,135(65) sy-uline,/ sy-vline,'备注'CENTERED,68 sy-vline,'备注'CENTERED,135 sy-vline,'备注'CENTERED,15 sy-vline,itab-sgtxt NO-GAP,
          82 sy-vline,itab-sgtxt NO-GAP,150 sy-vline,itab-sgtxt NO-GAP,66  sy-vline,133 sy-vline,199 sy-vline.
          WRITE: /(66) sy-uline,68(66) sy-uline,135(65) sy-uline.
        ELSE.
          PERFORM print_lable1.
          PERFORM print_lable1.
          PERFORM print_lable1.
*   perform print_lable1.
        ENDIF.

      ENDDO.
      IF yushu = 0.
        CONTINUE.
      ENDIF.
      IF pr_werks = '1000'.
        WRITE:/(66) sy-uline,/ sy-vline,30'物料标签'CENTERED,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'物料编码'CENTERED,15 sy-vline,
             itab-matnr NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'物料描述' CENTERED,15 sy-vline,
             itab-maktx NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'本公司批次' CENTERED,15 sy-vline,
           itab-charg NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'制造商批次' CENTERED,15 sy-vline,
           itab-licha NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'入仓日期' CENTERED,15 sy-vline,
           itab-bldat NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'入仓单号' CENTERED,15 sy-vline,
           itab-mblnr NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'数量（单位）' CENTERED,15 sy-vline,
           yushu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'供应商'CENTERED,15 sy-vline,
          itab-name1 NO-GAP, 66 sy-vline,
        /(66) sy-uline,/ sy-vline,'制造商'CENTERED,15 sy-vline,
          itab-wempf NO-GAP,66 sy-vline,
        /(66) sy-uline,/ sy-vline,'备注'CENTERED,15 sy-vline,
           itab-sgtxt NO-GAP,66  sy-vline.
        WRITE: /(66) sy-uline.
      ELSE.
*write:/4(66) sy-uline,/ sy-vline,34'物料标签'centered,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'物料编码'centered,19 sy-vline,
*     itab-matnr NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'物料描述' centered,19 sy-vline,
*     itab-maktx NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'本公司批次' centered,19 sy-vline,
*   itab-charg NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'制造商批次' centered,19 sy-vline,
*   itab-licha NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'入仓日期' centered,19 sy-vline,
*   itab-bldat NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'入仓单号' centered,19 sy-vline,
*   itab-mblnr NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'数量（单位）' centered,19 sy-vline,
*   yushu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'供应商'centered,19 sy-vline,
*  itab-name1 NO-GAP, 69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'制造商'centered,19 sy-vline,
*  itab-wempf NO-GAP,69 sy-vline,
*/4(66) sy-uline,/ sy-vline,'备注'centered,19 sy-vline,
*   itab-sgtxt NO-GAP,69  sy-vline.
*write: /4(66) sy-uline.
        WRITE:/4(66) sy-uline,/ sy-vline,34'物料标签'CENTERED,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'物料编码'CENTERED,19 sy-vline,
           itab-matnr NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'物料描述' CENTERED,19 sy-vline,
           itab-maktx NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'本公司批次' CENTERED,19 sy-vline,
         itab-charg NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'制造商批次' CENTERED,19 sy-vline,
         itab-licha NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'入库日期' CENTERED,19 sy-vline,
         itab-bldat NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'入库凭证号' CENTERED,19 sy-vline,
         itab-mblnr NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'数量（单位）' CENTERED,19 sy-vline,
         yushu LEFT-JUSTIFIED,itab-erfme  LEFT-JUSTIFIED,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'失效日期'CENTERED,19 sy-vline,
        itab-vfdat NO-GAP, 69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'阻燃等级'CENTERED,19 sy-vline,
        itab-zrdj NO-GAP,69 sy-vline,
      /4(66) sy-uline,/ sy-vline,'供应商'CENTERED,19 sy-vline,
         itab-name1 NO-GAP,69  sy-vline.
        WRITE: /4(66) sy-uline.

      ENDIF.

      _zeile = itab-zeile.
    ENDIF.
  ENDLOOP.

ENDFORM.                    "display