📄 zsdr0017.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>ZSDR0017</title>
</head>
<body bgcolor="#FFFFE0">
<font size="3" face = "Arial" color="#000000"><b>Code listing for: ZSDR0017</b></font>
<br>
<font size="3" face = "Arial" color="#000000"><b>Description: 合同评审</b></font>
<hr>
<pre width="100">
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*& Report ZSDR0017</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
report zsdr0017.
tables: vbak,vbfa,kna1,pa0001.
data: f_formname type tdsfname value 'ZSDR01'. "Smart form formname
data: f_funcname type rs38l_fnam. "Smart form function name
data: sy_uname like sy-uname.
data: sy_datum like sy-datum.
data: sy_uzeit like sy-uzeit.
data: it_pcol like ssfctrlop occurs 0 with header line,
it_pout type ssfcompop occurs 0 with header line,
control_parameters type ssfctrlop,
errtab type tsferror.
<font color ="#0000FF">*DATA:rs_selfield TYPE slis_selfield.</font>
data: begin of wa,
bstkd like vbkd-bstkd, "合同号
bstdk like vbkd-bstdk, "采购订单日期
vbeln like vbak-vbeln, "原对应订单号
erdat like vbak-erdat, "创建日期
name1 like kna1-name1, "订货单位
vkorg like vbak-vkorg, "销售范围
vkbur like vbak-vkbur, "销售办公室
vkgrp like vbak-vkgrp, "销售小组
end of wa.
data it like wa occurs 0 with header line.
data: p_name1 like kna1-name1, "最终用户名称
p_sname like pa0001-sname, "销售人员
p_text1 like tvkot-vtext,
p_text2 like tvkbt-bezei,
p_text3 like tvgrt-bezei.
selection-screen begin of block blk with frame title text-001.
parameters s_vbeln like vbak-vbeln obligatory.
selection-screen end of block blk.
select b~bstkd b~bstdk a~vbeln a~erdat c~name1 a~vkorg a~vkbur a~vkgrp
into corresponding fields of table it
from vbak as a
left join vbkd as b on a~vbeln = b~vbeln
left join kna1 as c on a~kunnr = c~kunnr
where a~vbeln = s_vbeln.
if sy-subrc <> 0.
message '您输入的订单号不存在！' type 'I'.
exit.
endif.
select single b~name1 into p_name1
from vbpa as a
inner join kna1 as b on a~kunnr = b~kunnr
where parvw = 'ZU'
and a~vbeln = s_vbeln.
select single sname into p_sname
from vbpa as a
inner join pa0001 as b on a~pernr = b~pernr
where a~parvw = 'VE'
and a~vbeln = s_vbeln.
loop at it into wa.
select single vtext into p_text1 from tvkot where
vkorg = wa-vkorg and spras = '1'.
select single bezei into p_text2 from tvkbt where
vkbur = wa-vkbur and spras = '1'.
select single bezei into p_text3 from tvgrt where
vkgrp = wa-vkgrp and spras = '1'.
endloop.
<font color ="#0000FF">*******************</font>
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = f_formname
<font color ="#0000FF">* FORMNAME = YWZUIJI1</font>
importing
fm_name = f_funcname.
control_parameters-no_dialog = 'X'.
if sy-ucomm = 'PRIR'.
control_parameters-preview = 'X'.
else.
control_parameters-preview = 'X'.
endif.
control_parameters-no_open = 'X'.
control_parameters-no_close = 'X'.
call function 'SSF_OPEN'
exporting
control_parameters = control_parameters
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
others = 5.
<font color ="#0000FF">*********************</font>
call function f_funcname
exporting
control_parameters = control_parameters
f_bstkd = wa-bstkd "
f_bstdk = wa-bstdk "
f_vbeln = wa-vbeln "
f_erdat = wa-erdat "
f_name1 = wa-name1 "
f_vkorg = wa-vkorg
f_vkbur = wa-vkbur
f_vkgrp = wa-vkgrp
f_name2 = p_name1
f_sname = p_sname
f_text1 = p_text1
f_text2 = p_text2
f_text3 = p_text3.
<font color ="#0000FF">**********************</font>
call function 'SSF_CLOSE'
<font color ="#0000FF">* IMPORTING</font>
<font color ="#0000FF">* JOB_OUTPUT_INFO =</font>
exceptions
formatting_error = 1
internal_error = 2
send_error = 3
others = 4
.
if sy-subrc <> 0.
<font color ="#0000FF">* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</font>
<font color ="#0000FF">* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</font>
endif.
call function 'SSF_READ_ERRORS'
importing
errortab = errtab.
<font color ="#0000FF">*******************</font>
<font color ="#0000FF">*Text elements</font>
<font color ="#0000FF">*----------------------------------------------------------</font>
<font color ="#0000FF">* 001 选择限制</font>
<font color ="#0000FF">*Selection texts</font>
<font color ="#0000FF">*----------------------------------------------------------</font>
<font color ="#0000FF">* S_VBELN 销售订单号</font>
<font color ="#0000FF">*Messages</font>
<font color ="#0000FF">*----------------------------------------------------------</font>
<font color ="#0000FF">*</font>
<font color ="#0000FF">* Message class: Hard coded</font>
<font color ="#0000FF">* 您输入的订单号不存在！</font>
</pre>
<hr>
<font size="2" face = "Sans Serif">Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -