*&---------------------------------------------------------------------*
*& 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
*& 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