REPORT ZQM_PRT04.
*----------------------------------------------------------------------*
* TABLES *
*----------------------------------------------------------------------*
TABLES:
qals,PLKOD.
type-pools: slis.
DATA: it_alv TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA gt_fieldcat TYPE lvc_t_fcat .
DATA ls_fcat TYPE lvc_s_fcat .
DATA: g_status_set TYPE slis_formname,
g_layout TYPE slis_layout_alv, " alv layout
g_sort TYPE slis_t_sortinfo_alv, " ALV sort table
g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
g_events TYPE slis_t_event.
*ALV相关声明
TYPE-POOLS: slis.
DATA: wcl_container TYPE REF TO cl_gui_custom_container, "一个容器
wcl_alv TYPE REF TO cl_gui_alv_grid. "一个ALV对象
DATA gs_layout TYPE lvc_s_layo .
*data:count type i.
data:BEGIN OF gt_output OCCURS 100,
WERK like QALS-WERK, "工厂
NAME1 LIKE T001W-NAME1, "名称
MTYPE(10) type C, "报告单类型
KTEXTLOS LIKE QALS-KTEXTLOS, "编号
MATNR like QALS-MATNR, "物料
MAKTX LIKE MAKT-MAKTX, "物料名称
LOSMENGE LIKE QALS-LOSMENGE, "检验批数量
LMENGE01 like QALS-LMENGE01, "合格数量
MENGENEINH LIKE QALS-MENGENEINH, "单位
PRUEFLOS LIKE QALS-PRUEFLOS, "检验批
CHARG LIKE QALS-CHARG, "批次
HSDAT LIKE MCHA-HSDAT, "生产日期
PASTRTERM LIKE QALS-PASTRTERM,"检验日期
PAENDTERM LIKE QALS-PAENDTERM,"报告日期，检验结束日期
KTEXT LIKE PLKOD-KTEXT, "执行标准
VBEWERTUNG LIKE QAVE-VBEWERTUNG, "使用决策
****特性
MERKNR LIKE QAMV-MERKNR, "检验特性编号
VERWMERKM LIKE QAMV-VERWMERKM, "项目编号
KURZTEXT LIKE QAMV-KURZTEXT, "项目名称
AUSWMENGE1 LIKE QAMV-AUSWMENGE1, "检验标准编码
MBEWERTG LIKE QAMR-MBEWERTG, "结果类型
CODE1 LIKE QAMR-CODE1, "代码组
JYJG LIKE QPCT-KURZTEXT, "结果
JYBZ LIKE QPCT-KURZTEXT,
JYJLL(40) TYPE C,
PLAUSIOBEN like qpmk-PLAUSIOBEN, "上限
PLAUSIUNTE like qpmk-PLAUSIUNTE, "下限
STELLEN LIKE PLMW-STELLEN,
uu(8) type P decimals 4,
pp(8) type p DECIMALS 4,
tt(8) type p DECIMALS 4,
MASSEINHSW like qpmk-MASSEINHSW, "单位
MSEHT LIKE T006A-MSEHT,
VCODE like qave-VCODE,
VCODEGRP like qave-VCODEGRP,
****
JYJL(50) TYPE C, "检验结论
VNAME LIKE QAVE-VNAME, "签发人
***材料单
type(10) type C, "报告单类型
LIFNR like QALS-LIFNR, "供应商代码
LIFNRNAME LIKE lfa1-NAME1, "供应商名称
LICHN LIKE QALS-LICHN, "供应商批次
* CHARG LIKE QALS-CHARG, "系统批次
QFR(13) TYPE C,
JYR(13) TYPE C,
FHR(13) TYPE C,
MTART LIKE MARA-MTART, "物料类型
JYYJ(40) TYPE C, "检验依据
end of gt_output.
data: BEGIN OF gt_out3 OCCURS 100,
PRUEFLOS LIKE QALS-PRUEFLOS, "检验批
type(10) type C, "报告单类型
END OF gt_out3.
data:BEGIN OF gt_display OCCURS 100,
temp1(40) type c,
temp2(40) type c,
temp3(40) type c,
temp4(40) type c,
temp5(40) type c,
END OF gt_display.
data:BEGIN OF gt_temp,
temp1(40) type c,
temp2(40) type c,
temp3(40) type c,
temp4(40) type c,
temp5(40) type c,
END OF gt_temp.
data:gt_play LIKE TABLE OF gt_temp.
DATA:gt_out1 like TABLE OF gt_output WITH HEADER LINE.
DATA:gt_out2 like TABLE OF gt_output WITH HEADER LINE.
DATA: form_name(20).
DATA: COUNT(10) TYPE C.
data: t_temp type i.
data: t_amount(13) type c.
****************************备注变量生命
DATA: l_mandt LIKE stxh-mandt,
l_tdobject LIKE stxh-tdobject,
l_tdname LIKE thead-tdname, "stxh-tdobject,
l_tdid LIKE stxh-tdid,
l_tdspras LIKE thead-tdspras. "stxh-TDSPRAS.
DATA i_tline LIKE tline OCCURS 7 WITH HEADER LINE.
DATA: l-text(1000) TYPE c,
l-totali TYPE i VALUE -1,
l-total TYPE c.
DATA:tdname TYPE STXH-tdname.
data:t_len type I.
data:uu(12) type c,pp(12) type c,tt(12) type c,kk(12) type c,mm(17) type c.
data:t_jybz LIKE QPCT-KURZTEXT.
data:t_code like QPCT-CODE.
data:t_jyjl like QPCT-KURZTEXT.
DATA: ok_code LIKE sy-ucomm.
DATA ls_stable TYPE lvc_s_stbl.
data:my_options like ITCPO.
data:t_type(1) type c.
data:t_p(1) type c.
data:t_i type i.
data:t_ii type i.
data:t_jybz1(18) type c.
data:t_jybz2(18) type c.
data:t_jybz3(18) type c.
data:t_jyjg1(18) type c.
data:t_jyjg2(18) type c.
data:t_jyjg3(18) type c.
data:t_jyxm1(10) type c,
t_jyxm2(10) type c,
t_jyxm3(10) type c,
t_jyxm4(10) type c.
data:t_c type i.
data:t_pzr(10) TYPE c,t_fhr(10) TYPE c,t_jyr(10) TYPE c.
data:t_jyjl1(40) type c,t_jyjl2(40) type c.
data:t_row type i.
data:t_name1(16) type c,t_name2(16) type c,t_name3(18) type c,t_name4(18) type c,t_name(50) type c,t_name5(16) type c.
data:t_jyyj1(12) type c,t_jyyj2(12) type c,t_jyyj3(12) type c,t_jyyj4(12) type c,
t_jybzz1(12) type c,t_jybzz2(12) type c,t_jybzz3(12) type c,t_jybzz4(12) type c,
t_jyjgg1(12) type c,t_jyjgg2(12) type c,t_jyjgg3(12) type c,t_jyjgg4(12) type c.
*data:t_amount(13) type c.
DATA: G_CHAR(12) TYPE C.
DATA: t_kk(8) type P decimals 4.
*****************************
*----------------------------------------------------------------------*
* INTERNAL TABLES AND WORK AREAS *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* GLOBAL VARIABLES *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* PARAMETERS AND SELECT-OPTIONS *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK rad1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
P_WERKS FOR qals-werk OBLIGATORY,
P_PRUEF FOR QALS-PRUEFLOS OBLIGATORY.
* P_MATNR FOR QALS-MATNR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK rad1.
************************************************************************
* MAIN PROCESS *
************************************************************************
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
*INITIALIZATION.
**----------------------------------------------------------------------
* START-OF-SELECTION *
*----------------------------------------------------------------------*
*****取数
PERFORM get_data.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET TITLEBAR 'BAR1'.
SET PF-STATUS 'ZQM_PRT04'.
***呈现
PERFORM display_data.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'FPRINT'."打印
PERFORM FPRINT.
WHEN OTHERS.
ENDCASE.
CLEAR ok_code.
ENDMODULE. " USER_COMMAND_0100 INPUT
*
*AT USER-COMMAND .
* CASE sy-ucomm .
* WHEN 'FPRINT' .
**form print .
* PERFORM FORM_PRINT.
* WHEN 'EXIT' OR 'BACK' .
* LEAVE TO SCREEN 0 .
* ENDCASE .
* CLEAR sy-ucomm .
*END-OF-SELECTION.
FORM get_data.
SELECT QALS~WERK
MARC~BESKZ AS MTYPE
QALS~KTEXTLOS
QALS~MATNR
QALS~LOSMENGE
QALS~LMENGE01
QALS~MENGENEINH
QALS~PRUEFLOS
QALS~CHARG
MCH1~HSDAT
QAVE~VCODE
QAVE~VCODEGRP
QALS~PASTRTERM
QALS~PAENDTERM
* PLKOD~KTEXT
QAVE~VBEWERTUNG
QAVE~VNAME
QAMV~MERKNR
QAMV~VERWMERKM
QAMV~KURZTEXT
QAMV~AUSWMENGE1
QAMR~MBEWERTG
QAMR~CODE1
QPCT~KURZTEXT AS JYJG
MARC~BESKZ AS TYPE
QALS~LIFNR
QALS~LICHN
MARA~MTART
INTO CORRESPONDING FIELDS OF TABLE GT_OUT1
FROM QALS
JOIN MARC ON QALS~WERK = MARC~WERKS AND QALS~MATNR = MARC~MATNR
JOIN MARA ON QALS~MATNR = MARA~MATNR
LEFT JOIN MCH1 ON QALS~MATNR = MCH1~MATNR AND QALS~CHARG = MCH1~CHARG
JOIN QAVE ON QALS~PRUEFLOS = QAVE~PRUEFLOS
JOIN QAMV ON QALS~PRUEFLOS = QAMV~PRUEFLOS
JOIN QAMR ON QALS~PRUEFLOS = QAMR~PRUEFLOS AND QAMV~MERKNR = QAMR~MERKNR
JOIN QPCT ON QAMV~AUSWMENGE1 = QPCT~CODEGRUPPE AND QAMR~CODE1 = QPCT~CODE
* JOIN PLKOD ON QALS~PLNTY = PLKOD~PLNTY AND QALS~PLNNR = PLKOD~PLNNR AND QALS~PLNAL = PLKOD~PLNAL AND QALS~ZAEHL = PLKOD~ZAEHL
WHERE QALS~WERK IN P_WERKS AND
* QALS~MATNR IN P_MATNR AND
QALS~PRUEFLOS IN P_PRUEF AND
QAVE~VBEWERTUNG <> ''.
SELECT QALS~WERK
MARC~BESKZ AS MTYPE
QALS~KTEXTLOS
QALS~MATNR
QALS~LOSMENGE
QALS~LMENGE01
QALS~MENGENEINH
QALS~PRUEFLOS
QALS~CHARG
MCH1~HSDAT
QAVE~VCODE
QAVE~VCODEGRP
QALS~PASTRTERM
QALS~PAENDTERM
* PLKOD~KTEXT
QAVE~VBEWERTUNG
QAVE~VNAME
QAMV~MERKNR
QAMV~VERWMERKM
QAMV~KURZTEXT
QAMV~AUSWMENGE1
QAMR~MBEWERTG
QAMR~CODE1
* QPCT~KURZTEXT AS JYJG
QAMR~ORIGINAL_INPUT AS JYJG
QPMK~PLAUSIUNTE
QPMK~PLAUSIOBEN
QPMK~PLAUSIUNTE as uu
QPMK~PLAUSIOBEN as pp
QPMK~MASSEINHSW
MARC~BESKZ AS TYPE
QALS~LIFNR
QALS~LICHN
MARA~MTART
INTO CORRESPONDING FIELDS OF TABLE GT_OUT2
FROM QALS
JOIN MARC ON QALS~WERK = MARC~WERKS AND QALS~MATNR = MARC~MATNR
JOIN MARA ON QALS~MATNR = MARA~MATNR
LEFT JOIN MCH1 ON QALS~MATNR = MCH1~MATNR AND QALS~CHARG = MCH1~CHARG
JOIN QAVE ON QALS~PRUEFLOS = QAVE~PRUEFLOS
JOIN QAMV ON QALS~PRUEFLOS = QAMV~PRUEFLOS
JOIN QAMR ON QALS~PRUEFLOS = QAMR~PRUEFLOS AND QAMV~MERKNR = QAMR~MERKNR
JOIN QPMK ON QAMV~VERWMERKM = QPMK~MKMNR AND QAMV~QPMK_WERKS = QPMK~ZAEHLER AND QAMV~MKVERSION = QPMK~VERSION
* JOIN QPCT ON QAMV~AUSWMENGE1 = QPCT~CODEGRUPPE AND QAMR~CODE1 = QPCT~CODE
* JOIN PLKOD ON QALS~PLNTY = PLKOD~PLNTY AND QALS~PLNNR = PLKOD~PLNNR AND QALS~PLNAL = PLKOD~PLNAL AND QALS~ZAEHL = PLKOD~ZAEHL
WHERE QALS~WERK IN P_WERKS AND
* QALS~MATNR IN P_MATNR AND
QALS~PRUEFLOS IN P_PRUEF AND
QAVE~VBEWERTUNG <> '' AND
QAMV~AUSWMENGE1 = ''.
loop at gt_out1.
append gt_out1 to gt_output.
CLEAR:gt_out1.
endloop.
loop at gt_out2.
append gt_out2 to gt_output.
CLEAR:gt_out2.
endloop.
t_temp = 0.
LOOP AT GT_OUTPUT.
PERFORM GET_TEXT.
if gt_output-mtype = 'E'.
t_p = gt_output-type.
GT_OUTPUT-MTYPE = '产成品检验报告单'.
ELSE.
t_p = gt_output-type.
GT_OUTPUT-MTYPE = '材料检验报告单'.
ENDIF.
if gt_output-type = 'E'.
select SINGLE QPCT~KURZTEXT
into t_jyjl
from QPCT
WHERE QPCT~CODEGRUPPE = GT_OUTPUT-VCODEGRP AND
QPCT~CODE = GT_OUTPUT-VCODE.
* CONCATENATE '结论："' t_jyjl '"； ' gt_output-jyjl into gt_display-temp2.
* CONDENSE:gt_display-temp2.
if gt_output-vbewertung = 'A'.
* CONCATENATE '结论："' t_jyjl '"； 符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONCATENATE '符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONDENSE:GT_OUTPUT-JYJL.
else.
* CONCATENATE '结论："' t_jyjl '"； 不符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONCATENATE '不符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONDENSE:GT_OUTPUT-JYJL.
ENDIF.
else.
select SINGLE QPCT~KURZTEXT
into t_jyjl
from QPCT
WHERE QPCT~CODEGRUPPE = GT_OUTPUT-VCODEGRP AND
QPCT~CODE = GT_OUTPUT-VCODE.
* CONCATENATE '结论："' t_jyjl '"； ' gt_output-jyjl into gt_display-temp2.
* CONDENSE:gt_display-temp2.
if gt_output-vbewertung = 'A'.
* CONCATENATE '结论："' t_jyjl '"； 符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONCATENATE '符合 ' GT_OUTPUT-JYJL ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONDENSE:GT_OUTPUT-JYJL.
else.
* CONCATENATE '结论："' t_jyjl '"； 不符合 ' GT_OUTPUT-KTEXT ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONCATENATE '不符合 ' GT_OUTPUT-JYJL ' 标准要求。' INTO GT_OUTPUT-JYJL.
CONDENSE:GT_OUTPUT-JYJL.
ENDIF.
**** 增加取检验依据数据
select SINGLE TXZ01 INTO gt_output-jyyj
from ZQM_INSP_BASIS
where WERKS = GT_OUTPUT-WERK and
MATNR = GT_OUTPUT-MATNR.
endif.
***** 取物料描述
select single makt~MAKTX
INTO GT_OUTPUT-MAKTX
from makt
where MATNR = GT_OUTPUT-MATNR and
SPRAS = 1.
***** 取工厂名称
select single t001w~NAME1
INTO GT_OUTPUT-NAME1
from t001w
where WERKS = GT_OUTPUT-WERK.
**** 取供应商账户名称
select SINGLE lfa1~NAME1
into GT_OUTPUT-LIFNRNAME
from lfa1
where LIFNR = GT_OUTPUT-LIFNR.
t_amount = gt_output-LOSMENGE.
IF GT_OUTPUT-MBEWERTG = 'A'.
GT_OUTPUT-JYJLL = '合格'.
ELSE.
GT_OUTPUT-JYJLL = '不合格'.
endif.
****检验标准
SEARCH gt_output-VERWMERKM for 'XJQL' ABBREVIATED.
IF SY-SUBRC = 0.
IF GT_OUTPUT-MBEWERTG = 'A'.
T_LEN = STRLEN( GT_OUTPUT-JYJG ).
T_LEN = T_LEN - 3.
SEARCH GT_OUTPUT-JYJG FOR '符合' ABBREVIATED .
IF sy-subrc = 0.
GT_OUTPUT-JYBZ = GT_OUTPUT-JYJG+3(t_len).
t_temp = t_temp + 1.
else.
t_temp = 0.
endif.
if t_temp = 0.
T_LEN = STRLEN( GT_OUTPUT-JYJG ).
T_LEN = T_LEN - 4.
SEARCH GT_OUTPUT-JYJG FOR '不符合' ABBREVIATED .
IF sy-subrc = 0.
GT_OUTPUT-JYBZ = GT_OUTPUT-JYJG+4(t_len).
t_temp = t_temp + 1.
else.
t_temp = 0.
endif.
endif.
if t_temp = 0.
GT_OUTPUT-JYBZ = GT_OUTPUT-JYJG.
endif.
else.
t_code = gt_output-code1.
t_code = t_code - 1.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = t_code
IMPORTING
OUTPUT = t_code.
select SINGLE QPCT~KURZTEXT
into t_jybz
from qpct
where QPCT~CODEGRUPPE = gt_output-AUSWMENGE1 and
QPCT~CODE = t_code.
IF SY-SUBRC <> 0.
t_jybz = ''.
endif.
T_LEN = STRLEN( t_jybz ).
T_LEN = T_LEN - 3.
SEARCH t_jybz FOR '符合' ABBREVIATED .
IF sy-subrc = 0.
GT_OUTPUT-JYBZ = t_jybz+3(t_len).
t_temp = t_temp + 1.
else.
t_temp = 0.
endif.
if t_temp = 0.
T_LEN = STRLEN( t_jybz ).
T_LEN = T_LEN - 4.
SEARCH t_jybz FOR '不符合' ABBREVIATED .
IF sy-subrc = 0.
GT_OUTPUT-JYBZ = t_jybz+4(t_len).
t_temp = t_temp + 1.
else.
t_temp = 0.
endif.
endif.
if t_temp = 0.
GT_OUTPUT-JYBZ = t_jybz.
endif.
endif.
ELSE.
*****取上下限标准
select SINGLE PLMW~PLAUSIUNTE PLMW~PLAUSIOBEN PLMW~SOLLWERT PLMW~STELLEN
INTO (gt_output-uu,gt_output-pp,gt_output-tt,gt_output-STELLEN)
FROM PLMW
JOIN PLMK ON PLMK~PLNTY = PLMW~PLNTY AND PLMK~PLNNR = PLMW~PLNNR AND PLMK~PLNKN = PLMW~PLNKN AND
PLMK~KZEINSTELL = PLMW~KZEINSTELL AND PLMK~MERKNR = PLMW~MERKNR
WHERE PLMW~MATNR = GT_OUTPUT-MATNR AND
PLMW~WERKS = GT_OUTPUT-WERK AND
PLMK~VERWMERKM = gt_output-VERWMERKM.
SELECT SINGLE MSEHT
INTO GT_OUTPUT-MSEHT
FROM T006A
WHERE SPRAS = 1 AND
MSEHI = gt_output-MASSEINHSW.
IF gt_output-uu = 0.
if gt_output-pp = 0.
gt_output-jybz = ''.
else.
pp = gt_output-pp.
PERFORM SET_NUM USING PP GT_OUTPUT-STELLEN.
PP = G_CHAR.
CLEAR:G_CHAR.
CONCATENATE '≤ ' pp GT_OUTPUT-MSEHT INTO GT_OUTPUT-JYBZ.
CONDENSE:gt_output-jybz.
endif.
ELSE.
if gt_output-pp = 0.
uu = gt_output-uu.
PERFORM SET_NUM USING UU GT_OUTPUT-STELLEN.
UU = G_CHAR.
CLEAR:G_CHAR.
CONCATENATE '≥ ' uu GT_OUTPUT-MSEHT INTO GT_OUTPUT-JYBZ.
CONDENSE:gt_output-jybz.
else.
if gt_output-tt = 0.
uu = gt_output-uu.
PERFORM SET_NUM USING UU GT_OUTPUT-STELLEN.
UU = G_CHAR.
CLEAR:G_CHAR.
pp = gt_output-pp.
PERFORM SET_NUM USING PP GT_OUTPUT-STELLEN.
PP = G_CHAR.
CLEAR:G_CHAR.
CONCATENATE uu ' - ' pp GT_OUTPUT-MSEHT INTO GT_OUTPUT-JYBZ.
CONDENSE:gt_output-jybz.
else.
tt = gt_output-tt.
t_kk = gt_output-pp - gt_output-tt.
kk = t_kk.
PERFORM SET_NUM USING TT GT_OUTPUT-STELLEN.
TT = G_CHAR.
CLEAR:G_CHAR.
PERFORM SET_NUM USING KK GT_OUTPUT-STELLEN.
KK = G_CHAR.
CLEAR:G_CHAR.
CONCATENATE tt ' ± ' kk GT_OUTPUT-MSEHT INTO GT_OUTPUT-JYBZ.
CONDENSE:gt_output-jybz.
endif.
endif.
ENDIF.
ENDIF.
MODIFY GT_OUTPUT.
CLEAR:GT_OUTPUT.
ENDLOOP.
****取出对应检验批次
loop at gt_output.
gt_out3-PRUEFLOS = gt_output-PRUEFLOS.
gt_out3-type = gt_output-type.
append gt_out3.
CLEAR:gt_output.
ENDLOOP.
sort gt_out3 by PRUEFLOS.
DELETE ADJACENT DUPLICATES FROM gt_out3 COMPARING ALL FIELDS.
loop at gt_out3.
READ TABLE gt_output with key PRUEFLOS = gt_out3-PRUEFLOS.
IF sy-tabix >= 1.
if gt_output-type = 'E'. "产成品
*** 第一行放公司
gt_display-temp2 = gt_output-NAME1.
append gt_display.
CLEAR:gt_display.
*** 第二行放报告单类别
gt_display-temp2 = gt_output-mtype.
APPEND gt_display.
CLEAR:gt_display.
*** 第三行放编号
CONCATENATE '编号：' gt_output-KTEXTLOS INTO gt_display-temp1.
CONDENSE:gt_display-temp1.
APPEND gt_display.
CLEAR:gt_display.
*** 第四行放产品名称、数量
gt_display-temp1 = '产品名称'.
CONCATENATE gt_output-matnr '/' gt_output-MAKTX into gt_display-temp2.
CONDENSE:gt_display-temp2.
* gt_display-temp2 = gt_output-MAKTX.
gt_display-temp3 = '数量'.
* IF GT_OUTPUT-vbewertung = 'A'.
* mm = gt_output-LOSMENGE.
* else.
if gt_output-LMENGE01 = 0.
mm = gt_output-LOSMENGE.
else.
mm = gt_output-LMENGE01.
endif.
* endif.
CONCATENATE mm ' ' gt_output-MENGENEINH INTO gt_display-temp4.
APPEND gt_display.
CLEAR:gt_display.
*** 第五行放检验批
gt_display-temp1 = '检验批'.
gt_display-temp2 = gt_output-PRUEFLOS.
APPEND gt_display.
CLEAR:gt_display.
*** 第六行放批号，日期
gt_display-temp1 = '生产批号'.
gt_display-temp2 = gt_output-CHARG.
gt_display-temp3 = '生产日期'.
if gt_output-hsdat = '00000000'.
gt_display-temp4 = ''.
else.
gt_display-temp4 = gt_output-hsdat.
endif.
APPEND gt_display.
CLEAR:gt_display.
*** 第七行放检验日期、报告日期
gt_display-temp1 = '检验日期'.
gt_display-temp2 = gt_output-PASTRTERM.
gt_display-temp3 = '报告日期'.
gt_display-temp4 = gt_output-PAENDTERM.
APPEND gt_display.
CLEAR:gt_display.
*** 第八行放执行标准
gt_display-temp1 = '执行标准'.
gt_display-temp2 = gt_output-KTEXT.
APPEND gt_display.
CLEAR:gt_display.
*** 第九行放标题
gt_display-temp1 = '检验项目'.
gt_display-temp2 = '检验标准'.
gt_display-temp3 = '检验结果'.
gt_display-temp4 = '结论'.
APPEND gt_display.
CLEAR:gt_display.
**** 第十行开始放明细
loop at gt_output where PRUEFLOS = gt_out3-PRUEFLOS.
gt_display-temp1 = gt_output-KURZTEXT.
gt_display-temp2 = gt_output-jybz.
gt_display-temp3 = gt_output-jyjg.
gt_display-temp4 = gt_output-jyjll.
APPEND gt_display.
CLEAR:gt_display.
endloop.
* ** 最后放尾页
gt_display-temp1 = '检验结论'.
gt_display-temp2 = gt_output-jyjl.
APPEND gt_display.
CLEAR:gt_display.
**** 自建表取数
****签字人取法
select SINGLE pzuser fhuser jyuser
into (gt_display-temp1,gt_display-temp3,gt_display-temp4)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'A' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
gt_display-temp2 = ''.
CONCATENATE '签发人:' gt_display-temp1 into gt_display-temp1.
CONCATENATE '复核人:' gt_display-temp3 into gt_display-temp3.
CONCATENATE '检验人:' gt_display-temp4 into gt_display-temp4.
* ** 检验人
APPEND gt_display.
CLEAR:gt_display.
ELSE."原材料
*** 第一行放公司
gt_display-temp2 = gt_output-NAME1.
append gt_display.
CLEAR:gt_display.
*** 第二行放报告单类别
gt_display-temp2 = gt_output-mtype.
APPEND gt_display.
CLEAR:gt_display.
*** 第三行放编号
CONCATENATE '编号：' gt_output-KTEXTLOS INTO gt_display-temp1.
CONDENSE:gt_display-temp1.
APPEND gt_display.
CLEAR:gt_display.
*** 第四行放产品名称、数量
gt_display-temp1 = '产品名称'.
CONCATENATE gt_output-matnr '/' gt_output-MAKTX into gt_display-temp2.
CONDENSE:gt_display-temp2.
* gt_display-temp2 = gt_output-MAKTX.
gt_display-temp3 = '数量'.
* IF GT_OUTPUT-vbewertung = 'A'.
* mm = gt_output-LOSMENGE.
* else.
if gt_output-LMENGE01 = 0.
mm = gt_output-LOSMENGE.
else.
mm = gt_output-LMENGE01.
endif.
* endif.
CONCATENATE mm ' ' gt_output-MENGENEINH INTO gt_display-temp4.
APPEND gt_display.
CLEAR:gt_display.
*** 第五行放供应商，日期
gt_display-temp1 = '供应商'.
CONCATENATE gt_output-LIFNR '/' gt_output-LIFNRNAME INTO gt_display-temp2.
CONDENSE:gt_display-temp2.
gt_display-temp3 = '生产日期'.
if gt_output-hsdat = '00000000'.
gt_display-temp4 = ''.
else.
gt_display-temp4 = gt_output-hsdat.
endif.
APPEND gt_display.
CLEAR:gt_display.
*** 第六行放供应商批次、系统批次
gt_display-temp1 = '检验批'.
gt_display-temp2 = gt_output-PRUEFLOS."gt_output-LICHN.
gt_display-temp3 = '批次'.
gt_display-temp4 = gt_output-CHARG.
APPEND gt_display.
CLEAR:gt_display.
*** 第七行放检验日期、报告日期
gt_display-temp1 = '检验日期'.
gt_display-temp2 = gt_output-PASTRTERM.
gt_display-temp3 = '报告日期'.
gt_display-temp4 = gt_output-PAENDTERM.
APPEND gt_display.
CLEAR:gt_display.
*** 第八行放执行标准
* gt_display-temp1 = '执行标准'.
* gt_display-temp2 = gt_output-KTEXT.
* APPEND gt_display.
* CLEAR:gt_display.
*** 第九行放标题
gt_display-temp1 = '检验项目'.
gt_display-temp2 = '检验依据'.
gt_display-temp3 = '检验标准'.
gt_display-temp4 = '检验结果'.
gt_display-temp5 = '检验结论'.
APPEND gt_display.
CLEAR:gt_display.
**** 第十行开始放明细
loop at gt_output where PRUEFLOS = gt_out3-PRUEFLOS.
gt_display-temp1 = gt_output-KURZTEXT.
gt_display-temp2 = gt_output-jyyj.
gt_display-temp3 = gt_output-jybz.
gt_display-temp4 = gt_output-jyjg.
gt_display-temp5 = gt_output-jyjll.
APPEND gt_display.
CLEAR:gt_display.
endloop.
* ** 最后放尾页
gt_display-temp1 = '检验结论'.
select SINGLE QPCT~KURZTEXT
into t_jyjl
from QPCT
WHERE QPCT~CODEGRUPPE = GT_OUTPUT-VCODEGRP AND
QPCT~CODE = GT_OUTPUT-VCODE.
* CONCATENATE '结论："' t_jyjl '"； ' gt_output-jyjl into gt_display-temp2.
* CONDENSE:gt_display-temp2.
gt_display-temp2 = gt_output-jyjl.
* if gt_output-VBEWERTUNG = 'A'.
* CONCATENATE gt_output-jyjl ' 结论合格' into gt_display-temp2.
* CONDENSE:gt_display-temp2.
** gt_display-temp2 = '合格'.
* else.
* CONCATENATE gt_output-jyjl ' 结论不合格' into gt_display-temp2.
* CONDENSE:gt_display-temp2.
** gt_display-temp2 = '不合格'.
* endif.
* gt_display-temp2 = gt_output-jyjl.
APPEND gt_display.
CLEAR:gt_display.
**** 自建表取数
****签字人取法
if gt_output-MTART = 'ROH'.
select SINGLE pzuser fhuser jyuser
into (gt_display-temp1,gt_display-temp3,gt_display-temp4)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'B' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
endif.
if gt_output-MTART = 'VERP'.
select SINGLE pzuser fhuser jyuser
into (gt_display-temp1,gt_display-temp3,gt_display-temp4)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'C' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
endif.
gt_display-temp2 = ''.
CONCATENATE '批准人:' gt_display-temp1 into gt_display-temp1.
CONCATENATE '复核人:' gt_display-temp3 into gt_display-temp3.
CONCATENATE '检验人:' gt_display-temp4 into gt_display-temp4.
* ** 检验人
APPEND gt_display.
CLEAR:gt_display.
ENDIF.
endif.
ENDLOOP.
loop at gt_display.
append gt_display to gt_play.
CLEAR:gt_display.
ENDLOOP.
***
if gt_output[] is INITIAL.
else.
CALL SCREEN 100.
endif.
* LOOP AT GT_OUTPUT.
* PERFORM FORM_PRINT.
* ENDLOOP.
ENDFORM.
FORM FORM_PRINT .
DATA: lld_flag.
DATA: tkd_flag.
DATA: index TYPE i.
CLEAR lld_flag.
CLEAR tkd_flag.
index = 0.
count = 0.
if t_p = 'E'.
form_name = 'ZQM_PRT041'.
ELSE.
form_name = 'ZQM_PRT042'.
ENDIF.
IF lld_flag is INITIAL.
lld_flag = 'X'.
PERFORM open_form.
ENDIF.
ENDFORM. " FORM_PRINT
*&---------------------------------------------------------------------*
*& Form OPEN_FORM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM OPEN_FORM .
* my_options-TDDEST = 'WAHAHA_PRT'. "打印设备
my_options-TDIMMED = 'X'.
my_options-TDDELETE = 'X'.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
form = form_name
OPTIONS = my_options
EXCEPTIONS
OTHERS = 1.
if sy-subrc <> 0 .
t_type = 'X'.
else.
t_type = ''.
endif.
ENDFORM. " OPEN_FORM
*&---------------------------------------------------------------------*
*& Form PRINT_LLD_HEAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRINT_LLD_HEAD .
*CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = 'LLD'
* window = 'TITLE'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LLD'
window = 'HEAD'.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM_HEAD1'
window = 'HEAD1'.
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = 'LLD_HEAD1'
* window = 'HEAD1'.
ENDFORM. " PRINT_LLD_HEAD
*&---------------------------------------------------------------------*
*& Form PRINT_LLD_ITEM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM PRINT_LLD_ITEM .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM_BODY'
window = 'MAIN'
FUNCTION = 'APPEND'
TYPE = 'BODY'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_LLD_ITEM2 .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM_BODY2'
window = 'MAIN2'
* FUNCTION = 'APPEND'
TYPE = 'BODY'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_LLD_BODY .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LLD_BODY'
window = 'MAIN'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_TKD_BODY .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TKD_BODY'
window = 'MAIN'
FUNCTION = 'APPEND'
TYPE = 'BODY'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_TKD_BODY2 .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TKD_BODY'
window = 'MAIN2'
* FUNCTION = 'APPEND'
TYPE = 'BODY'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_TKD_BODY_D .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TKD_BODY'
window = 'MAIN'
function = 'DELETE'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_TKD_BODY_OTHER.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TKD_BODY'
window = 'MAIN'.
ENDFORM. " PRINT_LLD_ITEM
FORM PRINT_BOTTOM .
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'LLD'
window = 'MAIN'.
ENDFORM. " PRINT_LLD_ITEM
FORM NEXT_PAGE.
CALL FUNCTION 'CONTROL_FORM'
EXPORTING
COMMAND = 'NEW-PAGE'.
ENDFORM.
FORM PRINT_HEAD.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM_HEAD1'
window = 'HEAD1'.
ENDFORM.
FORM PRINT_HEAD2.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'ITEM_HEAD2'
window = 'HEAD2'.
ENDFORM.
FORM PRINT_TPP_BODY.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TPP_BODY'
window = 'MAIN'.
ENDFORM.
FORM PRINT_TJY_BT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TJY_BT'
window = 'MAIN'.
ENDFORM.
FORM PRINT_TJYH_BT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TJYH_BT'
window = 'MAIN'.
ENDFORM.
FORM PRINT_TPD_BODY.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'TPD_BODY'
window = 'MAIN'.
ENDFORM.
FORM PRINT_PIC_BODY.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'PIC_BODY'
window = 'MAIN'.
ENDFORM.
FORM PRINT_PIC2_BODY.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'PIC2_BODY'
window = 'MAIN'.
ENDFORM.
FORM GET_TEXT.
CONCATENATE sy-mandt GT_OUTPUT-PRUEFLOS 'L' INTO tdname.
SELECT SINGLE mandt tdobject tdname tdid tdspras
INTO (l_mandt,l_tdobject,l_tdname,l_tdid,l_tdspras)
FROM stxh
CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND tdid = 'QAVE'
AND tdname = tdname.
if sy-subrc = 0.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = l_tdid
language = l_tdspras
name = l_tdname
object = l_tdobject
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
lines = i_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
LOOP AT i_tline.
IF sy-tabix = 1.
if gt_output-type = 'E'.
GT_OUTPUT-KTEXT = i_tline-tdline.
else.
GT_OUTPUT-JYJL = i_tline-tdline.
endif.
ENDIF.
ENDLOOP.
endif.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM display_data.
IF gt_display[] is INITIAL.
return.
ENDIF.
* sort gt_display by PRUEFLOS MERKNR.
* PERFORM display_alv TABLES gt_display USING '检验报告单'.
*-----如果窗口还没有创建ALV对象则创建它
IF wcl_container IS INITIAL .
CREATE OBJECT: wcl_container "建立容器对象
EXPORTING
container_name = 'ALV_CONTAINER'. "容器对象的名字
CREATE OBJECT wcl_alv "建立ALV对象
EXPORTING
i_parent = wcl_container. "ALV对象所在的容器
PERFORM build_fieldcat.
*-----设置布局
PERFORM prepare_layout CHANGING gs_layout .
*-----显示alv
CALL METHOD wcl_alv->set_table_for_first_display
EXPORTING
is_layout = gs_layout "传入布局设置
* it_toolbar_excluding = gt_exclude "传入按钮设置
CHANGING
it_outtab = gt_play "传入内表
it_fieldcatalog = gt_fieldcat "传入表头
* it_sort = gt_sort "传入排序标准
* it_filter = s_line
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
ELSE .
*----刷新alv
CALL METHOD wcl_alv->refresh_table_display
EXPORTING
is_stable = ls_stable "这个是稳定刷新属性，作用是再次刷新表格的时候滚动条停留在当前位置不动
EXCEPTIONS
finished = 1
OTHERS = 2.
IF sy-subrc <> 0.
*--异常处理
ENDIF.
ENDIF .
ENDFORM. "DISPLAY_DATA
FORM build_fieldcat.
REFRESH it_alv.
PERFORM alv_append USING 'TEMP1' '' .
PERFORM alv_append USING 'TEMP2' '' .
PERFORM alv_append USING 'TEMP3' '' .
PERFORM alv_append USING 'TEMP4' '' .
PERFORM alv_append USING 'TEMP5' '' .
ENDFORM. " file_upload
FORM alv_append USING fieldname seltext_l.
CLEAR ls_fcat.
ls_fcat-fieldname = fieldname.
ls_fcat-coltext = seltext_l.
ls_fcat-seltext = seltext_l.
APPEND ls_fcat TO gt_fieldcat.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form PREPARE_LAYOUT ALV格式
*&---------------------------------------------------------------------*
FORM prepare_layout CHANGING gs_layout TYPE lvc_s_layo.
gs_layout-zebra = 'X' . "隔行变色
gs_layout-cwidth_opt = 'X'. "自动调整行宽
gs_layout-sel_mode = 'A'.
ENDFORM. " PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*& Form FPRINT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FPRINT .
LOOP AT GT_OUT3.
t_p = ''.
count = 0.
t_i = 0.
t_ii = 0.
t_row = 0.
LOOP AT GT_OUTPUT WHERE PRUEFLOS = GT_OUT3-PRUEFLOS.
if t_p = ''.
t_p = gt_output-type.
ENDIF.
if gt_output-hsdat = '00000000'.
gt_output-hsdat = ''.
endif.
if gt_output-LMENGE01 = 0.
t_amount = gt_output-LOSMENGE.
else.
t_amount = gt_output-LMENGE01.
endif.
modify gt_output.
CLEAR:gt_output.
t_i = t_i + 1.
t_row = t_row + 1.
ENDLOOP.
*** 判断有多少页
if t_i <= 4.
t_ii = 1.
elseif t_i <= 12.
t_ii = 2.
elseif t_i <= 20.
t_ii = 3.
elseif t_i <= 28.
t_ii = 4.
elseif t_i <= 36.
t_ii = 5.
endif.
****
* t_ii = 2."测试用
* t_row = 5.
read table gt_output WITH KEY PRUEFLOS = GT_OUT3-PRUEFLOS.
**** 表尾检测人
if gt_output-type = 'E'.
select SINGLE pzuser fhuser jyuser
into (t_pzr,t_fhr,t_jyr)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'A' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
else.
****签字人
if gt_output-MTART = 'ROH'.
select SINGLE pzuser fhuser jyuser
into (t_pzr,t_fhr,t_jyr)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'B' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
endif.
if gt_output-MTART = 'VERP'.
select SINGLE pzuser fhuser jyuser
into (t_pzr,t_fhr,t_jyr)
from zqm_jy_user
where werks = gt_output-werk and
mtype = 'C' and
stdate <= gt_output-PAENDTERM and
endate >= gt_output-PAENDTERM.
endif.
endif.
PERFORM FORM_PRINT.
IF sy-subrc <> 0.
WRITE: 'Error in OPEN_FORM'(001).
exit.
ENDIF.
t_i = 0.
LOOP AT GT_OUTPUT WHERE PRUEFLOS = GT_OUT3-PRUEFLOS.
t_i = t_i + 1.
****产品名称
CONCATENATE GT_OUTPUT-MATNR '/' GT_OUTPUT-MAKTX INTO T_NAME.
t_c = 16.
t_len = STRLEN( T_NAME ).
t_len = t_len - t_c.
t_name1 = T_NAME+0(16).
IF T_LEN > 0.
if t_len <= 16.
t_name2 = T_NAME+16(t_len).
CLEAR:t_name5.
else.
if t_len <= 32.
t_name2 = T_NAME+16(16).
t_len = t_len - t_c.
if t_len > 0.
t_name5 = T_NAME+32(t_len).
else.
CLEAR:t_name5.
endif.
else.
t_name2 = T_NAME+16(16).
t_len = t_len - t_c.
t_name5 = T_NAME+32(t_len).
endif.
endif.
ELSE.
CLEAR:t_name2.
CLEAR:t_name5.
ENDIF.
****供应商名称
CONCATENATE GT_OUTPUT-LIFNR '/' GT_OUTPUT-LIFNRNAME INTO T_NAME.
t_c = 18.
t_len = STRLEN( T_NAME ).
t_len = t_len - t_c.
t_name3 = T_NAME+0(18).
IF T_LEN > 0.
t_name4 = T_NAME+18(t_len).
ELSE.
CLEAR:t_name4.
ENDIF.
**截取项目名称
t_c = 10.
t_len = STRLEN( GT_OUTPUT-KURZTEXT ).
t_len = t_len - t_c.
t_jyxm1 = GT_OUTPUT-KURZTEXT+0(10).
IF T_LEN > 0.
if t_len <= 10.
t_jyxm2 = GT_OUTPUT-KURZTEXT+10(t_len).
CLEAR:t_jyxm3.
CLEAR:t_jyxm4.
else.
if t_len <= 20.
t_jyxm2 = GT_OUTPUT-KURZTEXT+10(10).
t_len = t_len - t_c.
if t_len > 0.
t_jyxm3 = GT_OUTPUT-KURZTEXT+20(t_len).
else.
CLEAR:t_jyxm3.
endif.
CLEAR:t_jyxm4.
else.
t_jyxm2 = GT_OUTPUT-KURZTEXT+10(10).
t_len = t_len - t_c.
t_jyxm3 = GT_OUTPUT-KURZTEXT+20(10).
t_len = t_len - t_c.
if t_len > 0.
t_jyxm4 = GT_OUTPUT-KURZTEXT+30(t_len).
else.
CLEAR:t_jyxm4.
endif.
endif.
endif.
ELSE.
CLEAR:t_jyxm2.
CLEAR:t_jyxm3.
CLEAR:t_jyxm4.
ENDIF.
***截取结果
*截取标准
****产成品
if gt_output-type = 'E'.
t_c = 18.
t_len = STRLEN( GT_OUTPUT-JYBZ ).
t_len = t_len - t_c.
t_jybz1 = GT_OUTPUT-JYBZ+0(18).
IF T_LEN > 0.
if t_len <= 18.
t_jybz2 = GT_OUTPUT-JYBZ+18(t_len).
CLEAR:t_jybz3.
else.
t_jybz2 = GT_OUTPUT-JYBZ+18(18).
t_len = t_len - t_c.
if t_len > 0.
t_jybz3 = GT_OUTPUT-JYBZ+36(t_len).
else.
CLEAR:t_jybz3.
endif.
endif.
ELSE.
CLEAR:t_jybz2.
CLEAR:t_jybz3.
ENDIF.
else.
****原材料
t_c = 12.
t_len = STRLEN( GT_OUTPUT-JYBZ ).
t_len = t_len - t_c.
t_jybzz1 = GT_OUTPUT-JYBZ+0(12).
IF T_LEN > 0.
if t_len <= 12.
t_jybzz2 = GT_OUTPUT-JYBZ+12(t_len).
CLEAR:t_jybzz3.
CLEAR:t_jybzz4.
else.
if t_len <= 24.
t_jybzz2 = GT_OUTPUT-JYBZ+12(12).
t_len = t_len - t_c.
if t_len > 0.
t_jybzz3 = GT_OUTPUT-JYBZ+24(t_len).
else.
CLEAR:t_jybzz3.
endif.
CLEAR:t_jybzz4.
else.
t_jybzz2 = GT_OUTPUT-JYBZ+12(12).
t_len = t_len - t_c.
t_jybzz3 = GT_OUTPUT-JYBZ+24(12).
t_len = t_len - t_c.
if t_len > 0.
t_jybzz4 = GT_OUTPUT-JYBZ+36(t_len).
else.
CLEAR:t_jybzz4.
endif.
endif.
endif.
ELSE.
CLEAR:t_jybzz2.
CLEAR:t_jybzz3.
CLEAR:t_jybzz4.
ENDIF.
**** 增加取依据数据
t_c = 12.
t_len = STRLEN( GT_OUTPUT-JYYJ ).
t_len = t_len - t_c.
t_jyyj1 = GT_OUTPUT-JYYJ+0(12).
IF T_LEN > 0.
if t_len <= 12.
t_jyyj2 = GT_OUTPUT-JYYJ+12(t_len).
CLEAR:t_jyyj3.
CLEAR:t_jyyj4.
else.
if t_len <= 24.
t_jyyj2 = GT_OUTPUT-JYYJ+12(12).
t_len = t_len - t_c.
if t_len > 0.
t_jyyj3 = GT_OUTPUT-JYYJ+24(t_len).
else.
CLEAR:t_jyyj3.
endif.
CLEAR:t_jyyj4.
else.
t_jyyj2 = GT_OUTPUT-JYYJ+12(12).
t_len = t_len - t_c.
t_jyyj3 = GT_OUTPUT-JYYJ+24(12).
t_len = t_len - t_c.
if t_len > 0.
t_jyyj4 = GT_OUTPUT-JYYJ+36(t_len).
else.
CLEAR:t_jyyj4.
endif.
endif.
endif.
ELSE.
CLEAR:t_jyyj2.
CLEAR:t_jyyj3.
CLEAR:t_jyyj4.
ENDIF.
endif.
***截取结果
***产成品
if gt_output-type = 'E'.
t_c = 17.
t_len = STRLEN( GT_OUTPUT-JYJG ).
t_len = t_len - t_c.
t_jyjg1 = GT_OUTPUT-JYJG+0(17).
IF T_LEN > 0.
if t_len <= 17.
t_jyjg2 = GT_OUTPUT-JYJG+17(t_len).
CLEAR:t_jyjg3.
else.
t_jyjg2 = GT_OUTPUT-JYJG+17(17).
t_len = t_len - t_c.
if t_len > 0.
t_jyjg3 = GT_OUTPUT-JYJG+34(t_len).
else.
CLEAR:t_jyjg3.
endif.
endif.
ELSE.
CLEAR:t_jyjg2.
CLEAR:t_jyjg3.
ENDIF.
else.
***原材料
t_c = 12.
t_len = STRLEN( GT_OUTPUT-JYJG ).
t_len = t_len - t_c.
t_jyjgg1 = GT_OUTPUT-JYJG+0(12).
IF T_LEN > 0.
if t_len <= 24.
t_jyjgg2 = GT_OUTPUT-JYJG+12(12).
t_len = t_len - t_c.
if t_len > 0.
t_jyjgg3 = GT_OUTPUT-JYJG+24(t_len).
else.
CLEAR:t_jyjgg3.
endif.
CLEAR:t_jyjgg4.
else.
t_jyjgg2 = GT_OUTPUT-JYJG+12(12).
t_len = t_len - t_c.
t_jyjgg3 = GT_OUTPUT-JYJG+24(12).
t_len = t_len - t_c.
if t_len > 0.
t_jyjgg4 = GT_OUTPUT-JYJG+36(t_len).
else.
CLEAR:t_jyjgg4.
endif.
endif.
ELSE.
CLEAR:t_jyjgg2.
CLEAR:t_jyjgg3.
CLEAR:t_jyjgg4.
ENDIF.
endif.
if t_jyjgg1 = ''.
t_jyjgg1 = ' '.
endif.
if t_jyjgg2 = ''.
t_jyjgg2 = ' '.
endif.
if t_jyjgg3 = ''.
t_jyjgg3 = ' '.
endif.
if t_jyjgg4 = ''.
t_jyjgg4 = ' '.
endif.
****检验结论
t_c = 40.
t_len = STRLEN( GT_OUTPUT-JYJL ).
t_len = t_len - t_c.
t_jyjl1 = GT_OUTPUT-JYJL+0(40).
IF T_LEN > 0.
t_jyjl2 = GT_OUTPUT-JYJl+40(t_len).
ELSE.
CLEAR:t_jyjl2.
ENDIF.
****打开第一个page
IF t_i = 1.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE1'
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
WRITE: 'Error in START_FORM PAGE1'.
exit.
ENDIF.
PERFORM print_lld_head.
IF sy-subrc <> 0.
WRITE: 'Error in HEAD'(001).
exit.
ENDIF.
endif.
**** 第一页放的下
if t_ii = 1.
* if t_i <= 4. "测试用
count = count + 18.
if t_type <> 'X'.
PERFORM PRINT_LLD_ITEM.
PERFORM PRINT_TKD_BODY.
ENDIF.
if t_row <= 4 and t_i = t_row.
count = count + 110.
* count = count + 80
PERFORM PRINT_TPP_BODY.
PERFORM PRINT_TPD_BODY.
if gt_output-WERK = '2589'.
PERFORM PRINT_PIC2_BODY. "测试用
else.
PERFORM PRINT_PIC_BODY. "测试用
endif.
* count = count + 40.
* PERFORM PRINT_TJY_BT.
PERFORM PRINT_TJYH_BT.
endif.
* endif.
endif.
if t_ii = 2.
* if t_i <= 5."测试用
if t_i <= 8.
count = count + 18.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in HEAD1'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
IF sy-subrc <> 0.
WRITE: 'Error in HEAD1'(001).
exit.
ENDIF.
if t_i >= 5.
if t_i = t_row.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE2'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
* count = count + 18.
* PERFORM PRINT_LLD_ITEM2.
* IF sy-subrc <> 0.
* WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
* exit.
* ENDIF.
endif.
* count = count + 18.
* PERFORM PRINT_LLD_ITEM.
* IF sy-subrc <> 0.
* WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
* exit.
* ENDIF.
* PERFORM PRINT_TKD_BODY.
* count = count + 18.
if t_i = t_row.
count = count + 92.
PERFORM PRINT_TPP_BODY.
PERFORM PRINT_TPD_BODY.
if gt_output-WERK = '2589'.
PERFORM PRINT_PIC2_BODY. "测试用
else.
PERFORM PRINT_PIC_BODY. "测试用
endif.
* count = count + 70.
* PERFORM PRINT_TJY_BT.
PERFORM PRINT_TJYH_BT.
endif.
endif.
elseif t_i <= 12."t_i = 9.
if t_i = 9.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE2'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
* count = count + 18.
* PERFORM PRINT_LLD_ITEM2.
* IF sy-subrc <> 0.
* WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
* exit.
* ENDIF.
endif.
* count = count + 18.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
count = count + 18.
if t_i = t_row.
count = count + 92.
PERFORM PRINT_TPP_BODY.
PERFORM PRINT_TPD_BODY.
if gt_output-WERK = '2589'.
PERFORM PRINT_PIC2_BODY. "测试用
else.
PERFORM PRINT_PIC_BODY. "测试用
endif.
* count = count + 70.
* PERFORM PRINT_TJY_BT.
PERFORM PRINT_TJYH_BT.
endif.
* ENDIF.
* PERFORM PRINT_TKD_BODY2.
elseif t_i <= 20.
if t_i = 17.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE3'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
* count = count + 18.
* PERFORM PRINT_LLD_ITEM2.
* IF sy-subrc <> 0.
* WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
* exit.
* ENDIF.
endif.
* count = count + 18.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
count = count + 18.
if t_i = t_row.
count = count + 92.
PERFORM PRINT_TPP_BODY.
PERFORM PRINT_TPD_BODY.
if gt_output-WERK = '2589'.
PERFORM PRINT_PIC2_BODY. "测试用
else.
PERFORM PRINT_PIC_BODY. "测试用
endif.
* count = count + 70.
* PERFORM PRINT_TJY_BT.
PERFORM PRINT_TJYH_BT.
endif.
endif.
* endif.
elseif t_ii = 3.
if t_i <= 8.
count = count + 18.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in HEAD1'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
IF sy-subrc <> 0.
WRITE: 'Error in HEAD1'(001).
exit.
ENDIF.
elseif t_i <= 20."t_i = 9.
if t_i = 9.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE2'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
* count = count + 18.
* PERFORM PRINT_LLD_ITEM2.
* IF sy-subrc <> 0.
* WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
* exit.
* ENDIF.
endif.
if t_i >= 12 and t_i <= 16.
* count = count + 18.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
count = count + 18.
if t_i = t_row.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE3'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
endif.
else.
if t_i = 17.
count = 0.
CALL FUNCTION 'END_FORM'.
CALL FUNCTION 'START_FORM'
EXPORTING
form = form_name
startpage = 'PAGE3'
EXCEPTIONS
FORM = 1
FORMAT = 2
UNENDED = 3
UNOPENED = 4
UNUSED = 5
SPOOL_ERROR = 6
CODEPAGE = 7
OTHERS = 8.
IF sy-subrc <> 0.
WRITE: 'Error in START_FROM PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_HEAD2.
endif.
PERFORM PRINT_LLD_ITEM.
IF sy-subrc <> 0.
WRITE: 'Error in LLD_ITEM2 PAGE2'(001).
exit.
ENDIF.
PERFORM PRINT_TKD_BODY.
count = count + 18.
endif.
if t_i = t_row.
count = count + 92.
PERFORM PRINT_TPP_BODY.
PERFORM PRINT_TPD_BODY.
if gt_output-WERK = '2589'.
PERFORM PRINT_PIC2_BODY. "测试用
else.
PERFORM PRINT_PIC_BODY. "测试用
endif.
* count = count + 70.
* PERFORM PRINT_TJY_BT.
PERFORM PRINT_TJYH_BT.
endif.
* ENDIF.
* PERFORM PRINT_TKD_BODY2.
endif.
endif.
* if t_i <= 4. "放的下尾页
* count = count + 18.
* if t_type <> 'X'.
* PERFORM PRINT_LLD_ITEM.
* PERFORM PRINT_TKD_BODY.
* ENDIF.
* elseif t_i <= 8."尾页放第二页
* count = count + 18.
* if t_type <> 'X'.
* PERFORM PRINT_LLD_ITEM.
* PERFORM PRINT_TKD_BODY.
* ENDIF.
* elseif t_i <= 12."第二页放的下尾页
* if t_ii <= 8.
* count = count + 18.
* if t_type <> 'X'.
* PERFORM PRINT_LLD_ITEM.
* PERFORM PRINT_TKD_BODY.
* ENDIF.
* else.
* call FUNCTION 'END_FORM'.
* CALL FUNCTION 'START_FORM'
* EXPORTING
* startpage = 'PAGE2'
* EXCEPTIONS
* OTHERS = 1.
** call FUNCTION 'END_FORM'.
** PERFORM NEXT_PAGE.
* PERFORM PRINT_HEAD2.
** PERFORM PRINT_TKD_BODY.
* endif.
* elseif t_i <= 15. "尾页放第三页
*
* endif.
ENDLOOP.
* PERFORM PRINT_TPP_BODY.
* PERFORM PRINT_TPD_BODY.
* PERFORM PRINT_TJY_BT.
* PERFORM PRINT_TJYH_BT.
CALL FUNCTION 'END_FORM'.
if t_type <> 'X'.
CALL FUNCTION 'CLOSE_FORM'.
ENDIF.
ENDLOOP.
ENDFORM. " FPRINT
***小数位截取
FORM SET_NUM USING P_CHAR P_NUM.
DATA: P_LEN TYPE I.
DATA: P_TEMP TYPE I.
DATA: P_BEN(12) TYPE C.
DATA: P_AF(4) TYPE C.
DATA: P_AF_TEMP(1) TYPE C.
DATA: P_I TYPE I.
DATA: P_C TYPE I.
P_LEN = STRLEN( P_CHAR ).
P_TEMP = P_LEN - 4.
P_BEN = P_CHAR+0(P_TEMP).
P_AF = P_CHAR+P_TEMP(4).
P_I = 0.
G_CHAR = P_BEN.
P_C = P_NUM.
WHILE P_C > 0.
P_AF_TEMP = P_AF+P_I(1).
CONCATENATE G_CHAR P_AF_TEMP INTO G_CHAR.
CONDENSE:G_CHAR.
P_I = P_I + 1.
P_C = P_C - 1.
ENDWHILE.
CLEAR:P_LEN,P_TEMP,P_BEN,P_AF,P_AF_TEMP,P_I,P_C.
ENDFORM.