SAP 销售订单审批状态（查询/修改）

销售订单审批状态启用后，前端显示界面如下图

销售订单审批状态读取：STATUS_READ

销售订单审批状态修改：I_CHANGE_STATUS

销售订单审批状态读取

代码样例如下：

DATA: lv_objnr   TYPE vbak-objnr,lv_objnr_t TYPE jsto-objnr,lv_obtyp   TYPE jsto-obtyp,lv_stsma   TYPE jsto-stsma,lv_stonr   TYPE tj30-stonr,lt_status  TYPE TABLE OF jstat,ls_status  TYPE jstat.
SELECT SINGLE objnr INTO lv_objnrFROM vbakWHERE vbeln = i_vbeln.IF lv_objnr IS NOT INITIAL.lv_objnr_t = lv_objnr.CALL FUNCTION 'STATUS_READ'EXPORTING
*       CLIENT           = SY-MANDTobjnr            = lv_objnr_t
*       ONLY_ACTIVE      = ' 'IMPORTINGobtyp            = lv_obtypstsma            = lv_stsmastonr            = lv_stonrTABLESstatus           = lt_statusEXCEPTIONSobject_not_found = 1OTHERS           = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2inact = ''.IF sy-subrc = 0.ENDIF.
ENDIF.

销售订单审批状态修改

具体代码样例如下：

FUNCTION zjkdms003.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_VBELN) TYPE  VBELN_VA OPTIONAL
*"     VALUE(I_ESTAT) TYPE  J_ESTAT OPTIONAL
*"     VALUE(I_APPROVER) TYPE  TEXT30 OPTIONAL
*"     VALUE(I_NAME) TYPE  TEXT30 OPTIONAL
*"  EXPORTING
*"     VALUE(E_MSG) TYPE  BAPIRET2
*"----------------------------------------------------------------------DATA: lv_objnr   TYPE vbak-objnr,lv_objnr_t TYPE jsto-objnr,lv_obtyp   TYPE jsto-obtyp,lv_stsma   TYPE jsto-stsma,lv_stonr   TYPE tj30-stonr,lt_status  TYPE TABLE OF jstat,ls_status  TYPE jstat,lt_tj30    TYPE TABLE OF tj30,ls_tj30    TYPE tj30,lv_estat1  TYPE tj30-estat,lv_estat2  TYPE tj30-estat,lv_estat3  TYPE tj30-estat,ieinfo     TYPE einfo,lt_003     TYPE TABLE OF ztjkdms003,ls_003     TYPE ztjkdms003.CLEAR: lv_objnr,lv_objnr_t,lv_obtyp,lv_stsma,lv_stonr,lt_status,ls_status,lt_tj30,ls_tj30,lv_estat1,lv_estat2,lv_estat3,ieinfo,lt_003,ls_003.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput  = i_vbelnIMPORTINGoutput = i_vbeln.SELECT SINGLE objnr INTO lv_objnrFROM vbakWHERE vbeln = i_vbeln.IF lv_objnr IS NOT INITIAL.lv_objnr_t = lv_objnr.CALL FUNCTION 'STATUS_READ'EXPORTING
*       CLIENT           = SY-MANDTobjnr            = lv_objnr_t
*       ONLY_ACTIVE      = ' 'IMPORTINGobtyp            = lv_obtypstsma            = lv_stsmastonr            = lv_stonrTABLESstatus           = lt_statusEXCEPTIONSobject_not_found = 1OTHERS           = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF lt_status IS NOT INITIAL.SELECT * INTO TABLE lt_tj30FROM tj30WHERE stsma = lv_stsma.SORT lt_tj30 BY estat.CLEAR: ls_tj30.READ TABLE lt_tj30 INTO ls_tj30 INDEX 1.IF sy-subrc = 0.lv_estat1 = ls_tj30-estat.ENDIF.CLEAR: ls_tj30.READ TABLE lt_tj30 INTO ls_tj30 INDEX 2.IF sy-subrc = 0.lv_estat2 = ls_tj30-estat.ENDIF.CLEAR: ls_tj30.READ TABLE lt_tj30 INTO ls_tj30 INDEX 3.IF sy-subrc = 0.lv_estat3 = ls_tj30-estat.ENDIF.IF i_estat = lv_estat1.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat2estat_active   = lv_estat1stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat3inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat3estat_active   = lv_estat1stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF sy-msgty = 'E' OR sy-msgty = 'A'.e_msg-type = sy-msgty.e_msg-id = sy-msgid.e_msg-number = sy-msgno.ieinfo-msgid = sy-msgid.ieinfo-msgty = sy-msgty.ieinfo-msgno = sy-msgno.CALL FUNCTION 'MESSAGE_GET_TEXT'EXPORTINGieinfo        = ieinfoilangu        = '1'IMPORTINGetext         = e_msg-messageEXCEPTIONSno_t100_found = 1OTHERS        = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.ELSE.e_msg-type = 'S'.e_msg-message = '审批成功'.ENDIF.ENDIF.IF i_estat = lv_estat2.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat1inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat1estat_active   = lv_estat2stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat3inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat3estat_active   = lv_estat2stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF sy-msgty = 'E' OR sy-msgty = 'A'.e_msg-type = sy-msgty.e_msg-id = sy-msgid.e_msg-number = sy-msgno.ieinfo-msgid = sy-msgid.ieinfo-msgty = sy-msgty.ieinfo-msgno = sy-msgno.CALL FUNCTION 'MESSAGE_GET_TEXT'EXPORTINGieinfo        = ieinfoilangu        = '1'IMPORTINGetext         = e_msg-messageEXCEPTIONSno_t100_found = 1OTHERS        = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.ELSE.e_msg-type = 'S'.e_msg-message = '审批成功'.ENDIF.ENDIF.IF i_estat = lv_estat3.IF lv_estat3 IS NOT INITIAL.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat2inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat2estat_active   = lv_estat3stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.READ TABLE lt_status INTO ls_status WITH KEY stat = lv_estat1inact = ''.IF sy-subrc = 0.CALL FUNCTION 'I_CHANGE_STATUS'EXPORTINGobjnr          = lv_objnr_testat_inactive = lv_estat1estat_active   = lv_estat3stsma          = lv_stsmaEXCEPTIONScannot_update  = 1OTHERS         = 2.ENDIF.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.IF sy-msgty = 'E' OR sy-msgty = 'A'.e_msg-type = sy-msgty.e_msg-id = sy-msgid.e_msg-number = sy-msgno.ieinfo-msgid = sy-msgid.ieinfo-msgty = sy-msgty.ieinfo-msgno = sy-msgno.CALL FUNCTION 'MESSAGE_GET_TEXT'EXPORTINGieinfo        = ieinfoilangu        = '1'IMPORTINGetext         = e_msg-messageEXCEPTIONSno_t100_found = 1OTHERS        = 2.IF sy-subrc <> 0.
* Implement suitable error handling hereENDIF.ELSE.e_msg-type = 'S'.e_msg-message = '审批成功'.ENDIF.ENDIF.ENDIF.IF i_estat IS INITIAL.e_msg-type = 'E'.e_msg-message = '请指定审批节点'.ENDIF.ENDIF.ENDIF.IF e_msg-type = 'S'. "当状态更新成功后，记录当前审批人信息ls_003-vbeln = i_vbeln.ls_003-estat = i_estat.ls_003-approver = i_approver.ls_003-name = i_name.ls_003-erdat = sy-datum.ls_003-erzet = sy-uzeit.COLLECT ls_003 INTO lt_003.CLEAR: ls_003.IF lt_003 IS NOT INITIAL.MODIFY ztjkdms003 FROM TABLE lt_003.IF sy-subrc = 0.COMMIT WORK AND WAIT.ELSE.ROLLBACK WORK.ENDIF.ENDIF.ENDIF.ENDFUNCTION.

销售订单审批状态更新日志表

表：JCDS

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

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

相关文章

LeetCode:707. 设计链表

LeetCode:707. 设计链表

力扣题目链接 单链表 class ListNode {int val;ListNode next;public ListNode(int val) {this.val val;} } class MyLinkedList {int size;ListNode head;public MyLinkedList() {size 0;head new ListNode(0);}public int get (int index) {if ( index < 0 || index …
阅读更多...
20/76-卷积，填充，步幅，多通道输入输出

20/76-卷积，填充，步幅，多通道输入输出

19/76 卷积层总结 1、卷积层将输入矩阵和核矩阵进行交叉相关&#xff0c;加上偏移所得到输出。 2、核矩阵和偏移是可学习的参数。 3、核矩阵的大小是超参数。 import torch from torch import nndef corr2d(X, K): # 本函数已保存在d2lzh_pytorch包中方便以后使用,x是输入&a…
阅读更多...
难道说 IT行业的下一个风口是鸿蒙开发吗？

难道说 IT行业的下一个风口是鸿蒙开发吗？

按往年的习俗&#xff0c;在年底之季有很多HC都会缩减&#xff0c;尤其当下各种裁员的情况下&#xff0c;不管你是在哪个传统开发行业&#xff0c; 如&#xff1a;C/C、Java、前端、后端……等多少都会一股互联网寒流的影响。而今年却出现了一个怪现象&#xff0c;有个岗位在这…
阅读更多...
微信小程序打包上线流程

微信小程序打包上线流程

微信公众平台 https://mp.weixin.qq.com/注册一个小程序账号&#xff08;小程序和公众号&#xff0c;服务号等&#xff0c;不互通&#xff09;按流程注册开发&#xff0c;开发设置&#xff0c;小程序ID 发布流程 4.微信开发者工具点击上传 5. 上传代码 6. 提交审核 7. 发布 在…
阅读更多...
Ubuntu1804下如何切换python版本

Ubuntu1804下如何切换python版本

Ubuntu1804下如何切换python版本 目录 1 如何查看当前python版本 2 如何配置默认python版本 2.1 配置python2为默认版本 2.2 配置python3为默认版本 3 小结 1 如何查看当前python版本 可以用过以下命令&#xff0c;查看当前python默认版本&#xff1a; python --version2 …
阅读更多...
【欢迎您的到来】这里是开源库get_local_info作者的付费专栏

【欢迎您的到来】这里是开源库get_local_info作者的付费专栏

您好&#xff0c; 我是带剑书生&#xff0c;开源库get_local_info的作者&#xff0c;欢迎您的到来&#xff0c;这里是我的付费专栏&#xff0c;会用更简洁的语言&#xff0c;更通俗的话语&#xff0c;来帮助您更好的学习rust&#xff0c;这里不仅仅讲解Rust在某些应用功能实现上…
阅读更多...
Java可视化物联网智慧工地综合云平台源码 私有化部署

Java可视化物联网智慧工地综合云平台源码 私有化部署

智慧工地平台围绕建筑施工人、物、事的安全管理为核心&#xff0c;对应研发了劳务实名制、视频监控、扬尘监测、起重机械安全监测、安全帽监测等功能一体化管理的解决方案。 智慧工地是聚焦工程施工现场&#xff0c;紧紧围绕人、机、料、法、环等关键要素&#xff0c;综合运用…
阅读更多...
智慧矿山知识点总结

智慧矿山知识点总结

目录 1.第一章数字矿山的定义、基本特征和功能数字矿山的框架结合专业&#xff0c;如何发挥专业优势参与数字矿山建设&#xff08;GPT&#xff09; 2.第二章矿区地质构造和生态环境信息都包括哪些内容地球探测信息技术分类矿山品味与储量矿量估算 3.第三章矿山空间信息获取的仪…
阅读更多...
Linux grep命令教程：强大的文本搜索工具(附案例详解和注意事项)

Linux grep命令教程：强大的文本搜索工具(附案例详解和注意事项)

Linux grep命令介绍 grep (Global Regular Expression Print)命令用来在文件中查找包含或者不包含某个字符串的行&#xff0c;它是强大的文本搜索工具&#xff0c;并可以使用正则表达式进行搜索。当你需要在文件或者多个文件中搜寻特定信息时&#xff0c;grep就显得无比重要啦…
阅读更多...
RT-Thread Studio学习（十四）ADC

RT-Thread Studio学习（十四）ADC

RT-Thread Studio学习&#xff08;十四&#xff09;ADC 一、简介二、新建RT-Thread项目并使用外部时钟三、启用ADC四、测试 一、简介 本文将基于STM32F407VET芯片介绍如何在RT-Thread Studio开发环境下使用ADC设备。硬件及开发环境如下&#xff1a; OS WIN10STM32F407VET6STM…
阅读更多...
基于Springboot的摄影分享网站系统（有报告）。Javaee项目，springboot项目。

基于Springboot的摄影分享网站系统（有报告）。Javaee项目，springboot项目。

演示视频&#xff1a; 基于Springboot的摄影分享网站系统&#xff08;有报告&#xff09;。Javaee项目&#xff0c;springboot项目。 项目介绍&#xff1a; 采用M&#xff08;model&#xff09;V&#xff08;view&#xff09;C&#xff08;controller&#xff09;三层体系结构…
阅读更多...
Python文件自动化处理

Python文件自动化处理

os模块 Python标准库和操作系统有关的操作创建、移动、复制文件和文件夹文件路径和名称处理 路径的操作 获取当前Python程序运行路径不同操作系统之间路径的表示方式 windows中采用反斜杠(\)作为文件夹之间的分隔符 Mac和Linux中采用斜杠(/)作为文件夹之间的分隔符 把文件…
阅读更多...
算法专题：差分数组

算法专题：差分数组

文章目录 前置知识构建一个差分数组操作一个连续区间 练习习题1094. 拼车1109. 航班预订统计1450. 在既定时间做作业的学生人数2406. 将区间分为最小组数2381. 字母移位II2772. 使数组中的所有元素都等于零 前置知识 构建一个差分数组 void func(int * lb1,int len) {int * l…
阅读更多...
详解React与Vue的性能对比

详解React与Vue的性能对比

React 和 Vue 是当前最流行的前端开发框架之一。它们都具有高度的灵活性和可扩展性&#xff0c;但在某些方面有所不同。在本篇文章中&#xff0c;我将详细介绍 React 和 Vue 这两个技术&#xff0c;并比较它们的优点和缺点。 目录 1. React&#xff1a; 1.1 优点&#xff1a; …
阅读更多...
Qt之QxOrm

Qt之QxOrm

QxORM介绍 QxORM库是一种为了C/Qt开发者服务的关系对象映射型数据库的类库&#xff0c;每个类都有简单的C设置函数&#xff0c;你可以接触到如下特性&#xff1a; 持久性&#xff1a;支持最常见的数据库&#xff0c;如 SQLite、MySQL、PostgreSQL、Oracle、MS SQL Server、Mon…
阅读更多...
2023年第十四届蓝桥杯软件赛省赛总评

2023年第十四届蓝桥杯软件赛省赛总评

报名明年4月蓝桥杯软件赛的同学们&#xff0c;如果你是大一零基础&#xff0c;目前懵懂中&#xff0c;不知该怎么办&#xff0c;可以看看本博客系列&#xff1a;备赛20周合集 20周的完整安排请点击&#xff1a;20周计划 每周发1个博客&#xff0c;共20周。 在QQ群上交流答疑&am…
阅读更多...
VCG 网格清洗之移除小组件

VCG 网格清洗之移除小组件

文章目录 一、简介二、实现代码三、实现效果参考资料一、简介 基于之前连通性的思路，我们可以很容易获取到许多连通的面片集合，这里我们根据指定的数量阈值来剔除较小的面片集合，以此达到网格清洗的目的。 二、实现代码 //VCG #include <vcg/complex/algorithms/create/…
阅读更多...
[AI争霸] 普通人看ChatGPT和文心一言那个更好

[AI争霸] 普通人看ChatGPT和文心一言那个更好

文章目录 引言便利性准确性总结 引言 从2022/2/24号openAI正式发布chatgpt第一个版本以来&#xff0c;到2023年中旬openAI宣布chatgpt成为用户增长量最快的软件&#xff0c;随后掀起的大模型热。随后国内的各大厂商纷纷推出自己的大模型&#xff0c;首当其冲的就是百度的文心一…
阅读更多...
Springboot整合Canal -- Canal 多客户端

Springboot整合Canal -- Canal 多客户端

文章目录 前言一、批量注册bean定义&#xff1a;1.1 定义Canal注解&#xff1a;1.2 canal bean定义注册&#xff1a;1.3 canal bean 生成&#xff1a; 二、canal客户端获取mysql数据变动2.1 canal客户端2.2 消息处理 总结参考 前言 在项目中如果想要多个Canal 客户端通过tcp直…
阅读更多...
Redis 消息队列和发布订阅

Redis 消息队列和发布订阅

文章目录 基本模式生产者消费者原理&模型redis实现java实现 发布者订阅者原理&模型redis实现java实现 stream模式原理&模型工作原理redis实现Java实现 选型外传 基本模式 采用redis 三种方案&#xff1a; ● 生产者消费者&#xff1a;一个消息只能有一个消费者 ●…
阅读更多...
最新文章

Copyright @ 2022~2023