通知单的长文本和合作伙伴功能获得
通知单的透明表：
VIQMEL 视图，通知单的主要属性
Qmsm 任务表
Qmur 主题
Qmih 故障表
Qmel 主表
Qmfe 项目 （长文本 缺陷定位 等）
T356_t 优先级
Qpgt 代码组文本 qpct 代码文本
目录的定义（KATALOGART）：
一，长文本
长文本的存储位置： 抬头：STXH 行项目：STXL
关键字：TDNAME，TDOBJECT, TDID ，TDSPRAS
TDNAME ： 号码
TDOBJECT ： （同一类对象的 tdobject 都相同）
TDID ： ？
TDSPRAS ：语言
由于长文本数据保存在 STXL 不能正常读取，所有应该利用一个函数 :
READ_TEXT
我们调用它，并且提供上述的几个参数即刻读取到指定的长文本。由于长文本很长，所以我们读取出来的数据可能是很多条数据。所以我们需要遍历读取到的数据，然后进行拼接。
保存用另一个函数 save_text ，只是用这个函数保存至今还没有保存成功。
例子： 通知单的长文本分为五类：抬头，原因，工序，结果，评估
|
类别 |
Tdname |
Tdobject |
Tdid |
tdspras |
备注 |
|
抬头 |
通知单号 |
QMEL |
LTXT |
||
|
原因 |
通知单号+qmfe-fenum |
QMFE |
LTXT |
Qmfe-fecod = 0010 |
|
|
工序 |
通知单号+qmfe-fenum |
QMFE |
LTXT |
Qmfe-fecod = 0020 |
|
|
结果 |
通知单号+qmfe-fenum |
QMFE |
LTXT |
Qmfe-fecod = 0030 |
|
|
评估 |
通知单号+qmfe-fenum |
QMFE |
LTXT |
Qmfe-fecod = 0040 |
代码实例：
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S52 { color: #0000FF; } TYPES: BEGIN OF ty_text,
qmnum LIKE qmel-qmnum, "通知单号
fenum LIKE qmfe-fenum,
fecod LIKE qmfe-fecod,
kurztext(20) TYPE c,
text(1000) TYPE c, "
END OF ty_text.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S52 { color: #0000FF; } DATA: gt_text TYPE TABLE OF ty_text,
gs_text TYPE ty_text.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } FORM get_text2 USING v_qmnum.
DATA: td_name LIKE stxh-tdname,
fenum LIKE qmfe-fenum,
l_qmnum(12) TYPE c,
c_fenum(4) TYPE c
.
DATA itab_line LIKE tline OCCURS 0 WITH HEADER LINE.
CLEAR: gt_text,gs_text.
SELECT a~qmnum a~fenum a~fecod b~kurztext
INTO CORRESPONDING FIELDS OF TABLE gt_text
FROM qmfe AS a
INNER JOIN qpct AS b
ON a~fekat = b~katalogart
AND a~fegrp = b~codegruppe
AND a~fever = b~version
AND a~fecod = b~code
WHERE a~qmnum = v_qmnum
AND a~indtx = 'X'
AND b~sprache = 1
AND b~katalogart = 'C'
AND b~codegruppe = 'CLM-01'
AND b~version = '000001'
.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_qmnum
IMPORTING
output = l_qmnum.
IF sy-subrc = 0.
LOOP AT gt_text INTO gs_text.
c_fenum = gs_text-fenum.
PERFORM zero_do USING c_fenum 4.
CONCATENATE l_qmnum c_fenum INTO td_name.
CLEAR itab_line. REFRESH itab_line.
CALL FUNCTION 'READ_TEXT' " 读取通知内容长文本
EXPORTING
client = sy-mandt
id = 'LTXT'
language = sy-langu
name = td_name
object = 'QMFE'
TABLES
lines = itab_line
EXCEPTIONS
not_found = 4.
IF sy-subrc = 0.
LOOP AT itab_line.
CONCATENATE gs_text-text itab_line-tdline INTO gs_text-text. "把多行长文本加在一起
ENDLOOP.
MODIFY gt_text FROM gs_text.
ENDIF.
ENDLOOP.
ENDIF.
td_name = l_qmnum.
CLEAR itab_line. REFRESH itab_line.
CALL FUNCTION 'READ_TEXT' " 读取通知内容长文本
EXPORTING
client = sy-mandt
id = 'LTXT'
language = sy-langu
name = td_name
object = 'QMEL'
TABLES
lines = itab_line
EXCEPTIONS
not_found = 4.
IF sy-subrc = 0.
CLEAR gs_text.
LOOP AT itab_line.
CONCATENATE gs_text-text itab_line-tdline INTO gs_text-text. "把多行长文本加在一起
ENDLOOP.
gs_text-qmnum = v_qmnum.
gs_text-fecod = '0000'.
gs_text-kurztext = '抬头长文本'.
APPEND gs_text TO gt_text.
ENDIF.
ENDFORM.
二，合作伙伴
Ihpa 合作伙伴 （QM+通知单号 关联 通知单）
Tpar 合伙人 角色定义（合作伙伴功能及描述，合作伙伴编号类型）
TVPA 合作伙伴编号类型表 （合作伙伴编号类型及描述，对应的数据表格）
tpart 合作伙伴功能定义文本
Objnr = QM+通知单号 objty = QMC
合作伙伴定义如下(PARVW)：
读取方法：
首先通过 PM_Partner_get 获得合作伙伴列表
参数：Objnr = QM+qmel-qmnum(12位)
返回：IHPA_TAB （合作伙伴列表）
然后调用 PM_Partner_read 获得 diadrc_wa
参数：parvw = ihpa_tab-pa
Parnr = ihpa_itab-parnr
Objnr = ihpa_itab-objnr
|
1. 合作伙伴功能 |
1. 名称 |
1. Table |
1. Field1 |
1. Field2 |
1. 备注 |
|
1. AB |
2. 负责部门 3. |
2. HRP1000 |
2. Objid |
2. Stext |
2. |
|
1. VW |
4. 负责人 5. |
3. |
3. |
3. |
3. |
|
1. AU |
6. 创始人 |
4. |
4. |
4. |
4. |
|
1. HR |
7. 制造厂商 |
5. LFA1 |
5. Lifnr |
5. Name1 |
5. |
|
1. AG |
8. 售达方 |
6. KNA1 |
6. Kunnr |
6. Name1 |
6. 界面中显示SP |
|
1. VU |
9. 负责的用户 |
7. |
7. |
7. |
7. |
|
1. LF |
10. 供应商 |
8. LFA1 |
8. Lifnr |
8. Name1 |
8. 界面中显示VN |
|
1. KU |
11. 协调者 |
9. |
9. |
9. |
9. |
|
1. CP |
12. 联系人 |
10. |
10. |
10. |
10. |
|
2. |
13. |
11. |
11. |
11. |
11. |
代码实例：
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S52 { color: #0000FF; } *合作伙伴
TYPES: BEGIN OF ty_parter,
vtext TYPE tpart-vtext, " 功能
parnr TYPE ihpa-parnr, "（合作伙伴）
name1 TYPE diadrcpd-name1, " 名称
addr(200) TYPE c, " 地址
city1 TYPE diadrcpd-city1 , "城市
tel_number TYPE diadrcpd-tel_number , "电话号码
fax_number TYPE diadrcpd-fax_number , "传真
sort1 TYPE diadrcpd-sort1, "排序
END OF ty_parter.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S52 { color: #0000FF; } DATA: gt_parter TYPE TABLE OF ty_parter,
gs_parter TYPE ty_parter.
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } FORM get_parter USING v_qmnum.
DATA: it_part_h TYPE TABLE OF ihpavb WITH HEADER LINE.
DATA: wa_d LIKE diadr.
DATA: v_text TYPE tpart-vtext.
DATA l_objnr TYPE onr00-objnr.
DATA l_qmnum(12) TYPE c.
DATA tabix TYPE sy-tabix.
CLEAR: it_part_h,wa_d,gt_parter,gs_parter.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_qmnum
IMPORTING
output = l_qmnum.
CONCATENATE 'QM' l_qmnum INTO l_objnr.
READ TABLE gt_main INTO gs_main WITH KEY qmnum = v_qmnum.
tabix = sy-tabix.
* 读取合作伙伴列表
CALL FUNCTION 'PM_PARTNER_GET'
EXPORTING
objnr = l_objnr
TABLES
ihpa_tab = it_part_h.
IF sy-subrc = 0.
LOOP AT it_part_h.
* 读取合作伙伴细节
CALL FUNCTION 'PM_PARTNER_READ'
EXPORTING
parvw = it_part_h-parvw
parnr = it_part_h-parnr
objnr = it_part_h-objnr
IMPORTING
diadr_wa = wa_d
vtext = v_text.
IF sy-subrc = 0.
gs_parter-parnr = it_part_h-parnr.
gs_parter-name1 = wa_d-name1.
gs_parter-city1 = wa_d-city1.
gs_parter-tel_number = wa_d-tel_number.
gs_parter-fax_number = wa_d-fax_number.
gs_parter-sort1 = wa_d-sort1.
gs_parter-vtext = v_text.
CONCATENATE wa_d-name1 ',' wa_d-city1 ','
wa_d-tel_number ','
wa_d-fax_number ','
wa_d-sort1
INTO gs_parter-addr.
APPEND gs_parter TO gt_parter.
* 把负责人 和 协调者 放到主表中
IF it_part_h-parvw = 'VW' AND gs_main-fzr IS INITIAL.
gs_main-fzr = wa_d-name1.
MODIFY gt_main FROM gs_main INDEX tabix.
ENDIF.
IF it_part_h-parvw = 'KU' AND gs_main-xtz IS INITIAL.
gs_main-xtz = wa_d-name1.
MODIFY gt_main FROM gs_main INDEX tabix.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
当让对于其它对象的长文本和合作伙伴，也可以用类似的方法读取
通知单的长文本和合作伙伴功能获得相关推荐
- python使用fpdf的multi_cell API实现长文本写入的自动换行功能实战
python使用fpdf的multi_cell API实现长文本写入的自动换行功能实战 目录 python使用fpdf的multi_cell API实现长文本写入的自动换行功能实战
- SAP 供应商合作伙伴功能设置
XK01 创建供应商主数据 创建合作伙伴功能界面 (图一) 供应商账户设置:后勤-常规 --> 业务合作伙伴 --> 供应商 --> 控制 --> 定义科目组 ...
- 给采购凭证分配合作伙伴方案
一．说明 在创建采购订单中,供应商是作为合同方签订购买合同,但实际供货方.结算方可能是其它业务合伙伙伴,就这涉及到合作伙伴方案在采购凭证的应用. 与采购凭证相关的合作伙伴配置有两项:方案的定义.方案的 ...
- 32 SD配置-合作伙伴确认-设置客户主数据的合作伙伴确定
业务背景:设置客户主数据的合作伙伴确定 事务码:SPRO SPRO路径:SPRO->销售和分销->基本功能->合作伙伴确定->设置合作伙伴确定->设置客户主数据的合作伙伴 ...
- bp配置 sap_客户主数据的合作伙伴配置
一．说明 一个客户可以有多重角色,集销售.送达.结算为一体:也可是仅有部分角色,像结算之类由其它客户承担:另外,可能还需引入联系人.贷运代理(属供应商)等信息,这些已不属于客户主数据范畴.以上这些信息 ...
- 2022镭速新功能发布暨合作伙伴招募线上会议，邀您参加
大数据时代到来,数据的价值得到充分体现,数据也呈现爆发式增长,分布式存储类型正在向集中式存储转变.为了应对越来越大的数据量和日益严重的网络安全问题,达到容灾容错的目的, 数据中心须对其管理的数据进行全 ...
- 由世纪互联运营的Microsoft Teams携创新功能正式发布，助力合作伙伴生态共赢
2023年4月18日,北京--由世纪互联运营的Microsoft Teams推出一系列创新功能,围绕企业数字核心能力,赋能数字化协作空间.智能化协作体验.整合生产力工具和工作流.安全合规.构建团队文化 ...
- 合伙人/合作伙伴招募！
合伙人/合作伙伴招募! 我们不是招聘员工,我们是在寻找事业合作伙伴! 中奥智能工业研究院是南京市一家中外合资的新型研发机构,主要业务包括人工智能.信息技术及相关技术研发.项目实施及产品开发.研究院凭借 ...
- 2021-09-15核芯物联推荐生态合作伙伴莱讯科技#蓝牙AoA微信小程序跨楼层高精度定位导航，支持ibeacon+aoa融合，完美解决ibeacon导航存在的覆盖盲区
2021-09-15核芯物联推荐生态合作伙伴莱讯科技#蓝牙AoA微信小程序跨楼层高精度定位导航,支持ibeacon+aoa融合,完美解决ibeacon导航存在的覆盖盲区 核芯物联推荐生态合作伙伴莱讯科 ...
最新文章
- 大脑芯片公司Neuralink计划在人脑内植入芯片，他们到底想干什么？
- Spring Boot 学习系列（09）—自定义Bean的顺序加载
- php简单代码大全,征集常用的PHP简单代码
- 爬取某瓣电影中你好，李焕英电影的短评并生成词云
- HDU 4339 Query
- 液压支架销轴力学计算分析研究_基于RFID射频精准定位的智能开采研究与应用...
- linux islower_Python字符串islower（）
- Qt5学习笔记之零碎问题记录
- css改火狐滚动条样式_自定义滚动条,可解决火狐滚动条默认样式修改不了问题...
- caffee安装 Windows10+vs2015+python3.7+CPU
- 单点登录原理及其实现方案
- 安卓apk反编译教程
- google吃豆子游戏
- R安装时出现辑程包不存在，解决方法
- 安装spinningup填坑ERROR: Could not build wheels for mpi4py which use PEP 517
- 使用Scala实现Either数据结构
- 如何查看iOS版本？
- Microsoft Visual Studio 2010 Service Pack 1官方下载版（ISO）
- 一键图解iframe标签属性以及使用
- 数据中心趋势：提高功率密度