abap qm01创建质检通知单相关bapi:IQS4_CREATE_NOTIFICATION

  网上查找关于创建质检通知单相关bapi时,基本都是显示BAPI_QUALNOT_CREATE该函数,经查看,该函数缺少QF01缺陷记录的参数,比如检验批,退货数量等字段,同时即使该函数成功执行,生成的通知单也是有问题的,记录的原因,活动,任务都是空白,并未保存成功,qm模块网上资料甚少,经过不懈查找终于找到该IQS4_CREATE_NOTIFICATION函数完美匹配写入参数。

  该函数可写入检验批,退货数量,缺陷记录报告类型,绑定生产订单,工艺路线以及工序编号等数据,并且标准表记录数值。

下面是该函数的使用简例:

DATA: ls_riqs5      TYPE riqs5,ls_viqmel     TYPE viqmel,lt_rfc_tline  TYPE TABLE OF rfc_tline,lt_rfc_viqmfe TYPE TABLE OF rfc_viqmfe,lt_rfc_viqmur TYPE TABLE OF rfc_viqmur,lt_rfc_viqmsm TYPE TABLE OF rfc_viqmsm,lt_rfc_viqmma TYPE TABLE OF rfc_viqmma,lt_rfc_ihpa   TYPE TABLE OF rfc_ihpa,lt_rfc_key    TYPE TABLE OF rfc_key,ls_rfc_tline  TYPE  rfc_tline,ls_rfc_viqmfe TYPE  rfc_viqmfe,ls_rfc_viqmur TYPE  rfc_viqmur,ls_rfc_viqmsm TYPE  rfc_viqmsm,ls_rfc_viqmma TYPE  rfc_viqmma,ls_rfc_ihpa   TYPE  rfc_ihpa,ls_rfc_key    TYPE  rfc_key.LOOP AT gt_alv2 INTO wa_alv2.IF wa_alv2-prueflos+1(1) = '1'.ls_riqs5-qmart = 'F2'.ELSEIF wa_alv2-prueflos+1(1) = '3'.ls_riqs5-qmart = 'F3'.ENDIF."抬头ls_riqs5-matnr = wa_alv2-matnr.ls_riqs5-mawerk = wa_alv2-werks.ls_riqs5-ekorg =  wa_alv2-ekorg.ls_riqs5-qmtxt = wa_alv2-qmtxt.ls_riqs5-priok = wa_alv2-priok.ls_riqs5-strmn = wa_alv2-strmn.
*    ls_riqs5-qmkat = 'D'.ls_riqs5-qmkat = wa_alv2-qmkat.ls_riqs5-qmgrp = wa_alv2-qmgrp.ls_riqs5-qmcod = wa_alv2-qmcod.
*    ls_riqs5-bzmng = '200'.
*    ls_riqs5-rkmng = '200'.ls_riqs5-rgmng = wa_alv2-rgmng.ls_riqs5-prueflos = wa_alv2-prueflos.IF wa_alv2-aufnr IS NOT INITIAL.ls_riqs5-fertaufnr = wa_alv2-aufnr.            "生产订单ls_riqs5-fertaufpl = wa_alv2-aufpl.            "工艺路线READ TABLE lt_afvc INTO DATA(ls_afvc) WITH KEY aufpl = wa_alv2-aufplvornr = wa_alv2-vornrBINARY SEARCH.IF sy-subrc = 0.ls_riqs5-pnlkn = ls_afvc-aplzl.            "计数器(工序VORNR)ls_riqs5-arbpl = ls_afvc-arbid.            "工作中心对象标识ls_riqs5-arbplwerk = ls_afvc-werks.        "工作中心工厂ENDIF.ENDIF."长文本写入ls_rfc_tline-refobjtyp = 'QMEL'.ls_rfc_tline-tdformat = '*'.ls_rfc_tline-tdline = wa_alv2-longtext.APPEND ls_rfc_tline TO lt_rfc_tline.LOOP AT gt_alv INTO wa_alv WHERE prueflos = wa_alv2-prueflos."项目ls_rfc_viqmfe-fenum = wa_alv-urnum.ls_rfc_viqmfe-fetxt = wa_alv-fetxt.ls_rfc_viqmfe-fekat =  '9'.ls_rfc_viqmfe-fegrp = wa_alv-fegrp.ls_rfc_viqmfe-fecod = wa_alv-fecod.ls_rfc_viqmfe-otkat = 'E'.ls_rfc_viqmfe-otgrp = wa_alv-otgrp.ls_rfc_viqmfe-oteil = wa_alv-oteil.lv_len = strlen( wa_alv-bautl ).IF lv_len > 18.wa_alv-bautl = |{ wa_alv-bautl ALPHA = IN }|.ls_rfc_viqmfe-bautl = wa_alv-bautl.ELSE.lv_bautl = |{ wa_alv-bautl ALPHA = IN }|.ls_rfc_viqmfe-bautl = lv_bautl.ENDIF.ls_rfc_viqmfe-posnr = wa_alv-urnum.ls_rfc_viqmfe-anzfehler = wa_alv-anzfehler.ls_rfc_viqmfe-feart = '00000042'.    "缺陷记录的报告类型APPEND ls_rfc_viqmfe TO lt_rfc_viqmfe."原因ls_rfc_viqmur-fenum = wa_alv-urnum.ls_rfc_viqmur-urnum = wa_alv-urnum.ls_rfc_viqmur-urkat = '5'.ls_rfc_viqmur-urtxt = wa_alv-urtxt.ls_rfc_viqmur-urgrp = wa_alv-urgrp.ls_rfc_viqmur-urcod = wa_alv-urcod.ls_rfc_viqmur-posnr = wa_alv-vornr.          "工序编号ls_rfc_viqmur-qurnum = wa_alv-qurnum.   "通知单项目号APPEND ls_rfc_viqmur TO lt_rfc_viqmur."任务ls_rfc_viqmsm-fenum = wa_alv-urnum.ls_rfc_viqmsm-manum = wa_alv-urnum.ls_rfc_viqmsm-matxt = wa_alv-matxt.ls_rfc_viqmsm-mnkat = '2'.ls_rfc_viqmsm-mngrp = wa_alv-mngrp.ls_rfc_viqmsm-mncod = wa_alv-mncod.ls_rfc_viqmsm-qsmnum = wa_alv-qsmnum.ls_rfc_viqmsm-parvw = 'VU'.ls_rfc_viqmsm-parnr = sy-uname.ls_rfc_viqmsm-posnr = wa_alv-vornr.APPEND ls_rfc_viqmsm TO lt_rfc_viqmsm."作业ls_rfc_viqmma-fenum = wa_alv-urnum.ls_rfc_viqmma-manum = wa_alv-urnum.ls_rfc_viqmma-matxt = wa_alv-matxt1.ls_rfc_viqmma-mnkat = '8'.ls_rfc_viqmma-mngrp = wa_alv-mngrp1.ls_rfc_viqmma-mncod = wa_alv-mncod1.ls_rfc_viqmma-qmanum = wa_alv-qmanum.ls_rfc_viqmma-posnr = wa_alv-vornr.APPEND ls_rfc_viqmma TO lt_rfc_viqmma."合作伙伴IF wa_alv2-prueflos+1(1) = '1'.ls_rfc_ihpa-parvw =  'LF'.ls_rfc_ihpa-parnr =  wa_alv-lifnr.APPEND ls_rfc_ihpa TO lt_rfc_ihpa.ELSEIF wa_alv2-prueflos+1(1) = '3'.ls_rfc_ihpa-parvw =  'AO'.ls_rfc_ihpa-parnr =  sy-uname.APPEND ls_rfc_ihpa TO lt_rfc_ihpa.ENDIF.ls_rfc_ihpa-parvw =  'KU'.ls_rfc_ihpa-parnr =  sy-uname.APPEND ls_rfc_ihpa TO lt_rfc_ihpa.CLEAR:wa_alv,ls_rfc_viqmfe,ls_rfc_viqmur,ls_rfc_viqmsm,ls_rfc_viqmma,ls_rfc_ihpa.ENDLOOP."创建质量通知单CALL FUNCTION 'IQS4_CREATE_NOTIFICATION'EXPORTING
*       I_QMNUM            =
*       I_AUFNR            =i_riqs5            = ls_riqs5
*       I_TASK_DET         = ' '
*       I_CONV             = ' '
*       I_BIN_RELATIONSHIP = ' '
*       I_SENDER           =i_post             = 'X'i_commit           = 'X'i_wait             = 'X'i_refresh_complete = 'X'i_check_parnr_comp = 'X'i_rfc_call         = 'X'i_rbnr             = 'X'
*       I_NOTIF_COPY       = ' '
*       I_DMS_COPY         = ' '
*       I_GEO_COPY         = ' '
*       I_DATE_ADJUSTMENT  = 'O'IMPORTINGe_viqmel           = ls_viqmel
*       E_RIWO03           =TABLESi_inlines_t        = lt_rfc_tlinei_viqmfe_t         = lt_rfc_viqmfei_viqmur_t         = lt_rfc_viqmuri_viqmsm_t         = lt_rfc_viqmsmi_viqmma_t         = lt_rfc_viqmmai_ihpa_t           = lt_rfc_ihpae_keys             = lt_rfc_key
*       E_BIN_RELATION_TAB =return             = lt_return.LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.lv_mess = lv_mess && ls_return-message && '/'.ENDLOOP.IF sy-subrc <> 0."通知单保存CALL FUNCTION 'IQS4_SAVE_NOTIFICATION'EXPORTINGi_qmnum  = ls_viqmel-qmnumi_commit = 'X'i_wait   = 'X'
*       IMPORTING
*         E_VIQMEL =TABLESreturn   = lt_return.LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'.lv_mess = lv_mess && ls_return-message && '/'.ENDLOOP.IF sy-subrc <> 0."提交CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.wa_alv-zmess = wa_alv-zmess && '/' && '通知单创建成功'.wa_alv-icon = icon_green_light.wa_alv-qmnum = ls_viqmel-qmnum.MODIFY gt_alv FROM wa_alv TRANSPORTING zmess icon qmnum WHERE prueflos = wa_alv2-prueflos.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.wa_alv-zmess = wa_alv-zmess && '/' && lv_mess.wa_alv-icon = icon_red_light.MODIFY gt_alv FROM wa_alv TRANSPORTING zmess icon WHERE prueflos = wa_alv2-prueflos.ENDIF.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.wa_alv-zmess = wa_alv-zmess && '/' && lv_mess.wa_alv-icon = icon_red_light.MODIFY gt_alv FROM wa_alv TRANSPORTING zmess icon WHERE prueflos = wa_alv2-prueflos.ENDIF.CLEAR:wa_alv2,ls_riqs5,lt_rfc_viqmfe,lt_rfc_viqmur,lt_rfc_viqmsm,lt_rfc_viqmma,lt_rfc_ihpa,lt_return,lt_lines,ls_viqmel,lt_rfc_tline,ls_afvc.ENDLOOP.

另外,该系列函数还有:
通知单查询:IQS4_GET_NOTIFICATION
通知单修改:IQS4_MODIFY_NOTIFICATION
通知单添加:IQS4_ADD_DATA_NOTIFICATION
通知单删除:IQS4_DEL_DATA_NOTIFICATION
通知单保存:IQS4_SAVE_NOTIFICATION

qm模块相关表:
检验批:qals
通知单抬头:qmel
通知单明细:qmfe
通知-作业:qmma
通知-任务:qmsm
通知-原因:qmur
通知检验批关系:qmfel

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/158470.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

搜索记录及使用缓存的设计思路

目录 背景&#xff1a; 思路: 问题 实现 背景&#xff1a; 最近业务写到检索这块的内容&#xff0c;设计到搜索记录的增删操作。考虑到频繁写库操作所以使用缓存技术 redis 和 cacha。 思路: 查询&#xff1a;先查内存查缓存在查询数据库&#xff0c;查询数据库先更新内存…

电脑开机过程中,程序的启动的顺序是怎么样的?

电脑的启动过程涉及多个步骤,程序按照特定的顺序启动。这个过程通常如下: 电源开启: 当你按下电源按钮时,电源供应器(PSU)开始向电脑的各个组件供电。 自检加电(POST): 这是电脑启动过程的第一步。在这个阶段,基本输入输出系统(BIOS)或统一可扩展固件接口(UEFI)执行…

Ubuntu 搭建FTP服务

在Linux中使用的FTP是vsftp&#xff0c;Ubuntu中安装vsftp: apt install vsftpd 配置文件在/etc路径下&#xff0c;会出现两个配置文件&#xff1a; /etc/vsftpd.conf &#xff1a;主配置文件 /etc/ftpusers&#xff1a;指定那些用户不能访问FTP服务器&#xff0c;这里的用…

RunwayGen2上线全新控制功能「运动笔刷」

从8月份开始&#xff0c;我就在各种场合表达过&#xff0c;AI视频现在最痛苦的点&#xff0c;是控制性极差。Gen2的语义理解本来就差&#xff0c;还几乎没有任何可控性&#xff0c;只有那几个镜头控制&#xff0c;剩下全靠roll。但是你roll的&#xff0c;全是白花花的银子啊...…

每日一练:X加上100为完全平方数,再加上168仍然为完全平方数

题目 一个整数&#xff0c;它加上100后是一个完全平方数&#xff0c;再加上168又是一个完全平方数&#xff0c;请问该数是多少&#xff1f; 实现方式1 解题思路 设整数为x&#xff0c;根据题意建立方程&#xff1a;   (1) x 100 是一个完全平方数&#xff0c;即存在整数a满…

设计模式-15-Jdk源码中的设计模式

之前我们学习了一些设计模式&#xff0c;今天我们剖析Java JDK 源码中用到的几种常见的设计模式。 1-jdk之工厂模式 在前面讲到工厂模式的时候&#xff0c;大部分工厂类都是以Factory作为后缀来命名&#xff0c;并且工厂类主要负责创建对象这样一件事情。但在实际的项目开发中…

技术分享| gcc版本升级到5.2

一、介绍 GCC&#xff08;GNU Compiler Collection&#xff09;是一套广泛使用的开源编译器集合&#xff0c;用于编译多种编程语言&#xff0c;包括C、C、Objective-C、Fortran等。GCC 的不同版本提供了许多新功能、改进和修复&#xff0c;其中包括从 GCC 4.8.5 升级到 GCC 5.…

泛型边界的问题

作者简介&#xff1a;大家好&#xff0c;我是smart哥&#xff0c;前中兴通讯、美团架构师&#xff0c;现某互联网公司CTO 联系qq&#xff1a;184480602&#xff0c;加我进群&#xff0c;大家一起学习&#xff0c;一起进步&#xff0c;一起对抗互联网寒冬 我们花了两篇文章讲述了…

常见树种(贵州省):007青冈

摘要&#xff1a;本专栏树种介绍图片来源于PPBC中国植物图像库&#xff08;下附网址&#xff09;&#xff0c;本文整理仅做交流学习使用&#xff0c;同时便于查找&#xff0c;如有侵权请联系删除。 图片网址&#xff1a;PPBC中国植物图像库——最大的植物分类图片库 一、青冈 …

AI一点通:卷积神经网络的输出节点大小如何计算?全连接层必要输入大小如何设置

在使用卷积网络&#xff08;CNN&#xff09;时&#xff0c;一个步骤是计算经过卷积和池化步骤后的输出大小&#xff0c;以便我们可以将输出连接到一个完全收集的线性层。 以Pytorch中的一维CNN为例&#xff0c; self.conv1 nn.Conv1d(in_channels1, out_channels64, kernel_s…

JAVA sql 查询3

-- 1. 求各个月入职的的员工个数 select date_format(hiredate,%m),count(date_format(hiredate,%m)) from employees group by date_format(hiredate,%m) -- 2. 查询 50 号部门,60 号部门,70 号部门的各个部门的平均工资 SELECT department_id,avg(salary) FROM employees WH…

CPSC发布关于亚马逊含有纽扣电池或硬币电池产品的相关规则标准!UL4200A

2023年9月21日&#xff0c;美国消费品安全委员会&#xff08;CPSC&#xff09;在《联邦公报》上发布了纽扣及硬币电池及相关产品的最终规则&#xff08;DFR&#xff09;16 CFR 1263&#xff0c;以保护6岁以下儿童免受电池摄入危害。DFR将于2023年10月23日生效&#xff0c;除非消…

数据库:sql查询值为空的数据

在日常的数据处理中&#xff0c;经常会遇到需要查询某个字段值为空的数据的情况。 针对这种情况&#xff0c;我们可以使用SQL语句来查询值为空的数据&#xff0c;以便更好地对数据进行分析和处理。 一、查询NULL值 在SQL中&#xff0c;NULL表示缺少值或未知值。要查询NULL值…

vue.config.js文件devServer字段的常用选项

在 Vue CLI 生成的 vue.config.js 文件中&#xff0c;devServer 字段用于配置开发服务器的选项。下面是其中几个常用选项的说明&#xff1a; host&#xff1a;指定开发服务器的主机名&#xff0c;默认值是 localhost。你可以将其设置为 0.0.0.0&#xff0c;以允许通过局域网中的…

Unity 控制物体透明度变化

1.需求 给物体绑定一个脚本&#xff0c;这个脚本实现物体的透明度渐变变化&#xff0c;并且可以重置回原来的颜色。物体为Unity自带的材质Shader为Standard。 2.代码 using System.Collections; using System.Collections.Generic; using UnityEngine;public class Transpare…

pgsql 时区查看和修改

建议使用UTC时区&#xff0c;或者和linux、后端程序的时区保持一致&#xff0c;否则容易出现时间的差别。 pgsql的时间字段有一个带时区的timestamp with time zone&#xff0c;如果业务涉及多个时区&#xff0c;建议使用这个字段。 相关链接参考&#xff1a; linux时区设置和…

Git 教程

目录 Git 与 SVN 区别 Git 快速入门 学习目录 git简明指南 Git 安装配置 Git 工作流程、工作区、暂存区和版本库 Git 创建仓库 Git 基本操作 Git 分支管理 Git 查看提交历史 Git 标签 Git 远程仓库(Github) Git 服务器搭建 Git 是一个开源的分布式版本控…

如何写老客户开发信?维护客户邮件怎么写?

老客户开发信的写作技巧&#xff1f;针对老客户的营销邮件模板&#xff1f; 老客户开发信是维护和发展客户关系的关键工具之一。通过巧妙的信函&#xff0c;您可以巩固与老客户之间的联系&#xff0c;促使他们继续购买您的产品或服务。在本文中&#xff0c;蜂邮将分享一些建议…

多线程股吧用户信息爬取

今天分享一些代码&#xff0c;欢迎参考和学习&#xff0c;在上一篇博客的基础上加入了多线程&#xff0c;使得速度提升了十几倍&#xff0c;代码如下&#xff1a; import csv import random import re import threadingimport chardet import pandas as pd from bs4 import Be…

小程序Tab栏与页面滚动联动

小程序tab栏切换与页面滚动联动 tab栏与页面滚动联动点击tab栏页面跳到指定位置滚动页面时切换tab栏 tab栏与页面滚动联动 在进行小程序开发时&#xff0c;需要实现点击tab栏页面滚动到某一指定位置&#xff0c;并且滚动页面时&#xff0c;小程序的tab栏进行切换。 在一开始&a…