T100——单据别的新增、修改设置
何为单据别,例如下图,新增的时候开窗选择单据别:
新增单据别:
1、首先在azzi600 系统分类码维护作业里面新增新的系统分类码(在系统分类码24下新增),如图:
2、在azzi910 作业基本数据维护里,修改对应作业的默认单据性质,如下图:
3、在aooi199 单据别设置作业里面新增新的单据别,如下图:
4、在aooi200 单据别维护作业里面新增基本数据,注意单据别编号跟第3步新增的单据别编号一样,如下图:
5、注意,怎样查看参照表编号?在aooi100 组织基本数据维护作业里面查询,注意组织编号就是运营据点,如下图:
6、另外,比如如果是想直接使用axmt500的单据性质,可以现在azzi910把作业的单据性质改成axmt500,之后再在aooi200下查看想要使用的单据别编号,再到zooi199里面把作业编号新增下去,具体见下图:
代码上:
1、在开窗代码上:
#應用 a03 樣板自動產生(Version:)
ON ACTION controlp INFIELD xmmaucdocno
#add-point:ON ACTION controlp INFIELD xmmaucdocno name="input.c.xmmaucdocno"
#應用 a07 樣板自動產生(Version:)
#開窗i段
INITIALIZE g_qryparam.* TO NULL
LET g_qryparam.state = 'i'
LET g_qryparam.reqry = FALSE LET g_qryparam.default1 = g_xmmauc_m.xmmaucdocno #給予default值 # by ljr
SELECT ooef004 INTO l_ooef004
FROM ooef_t
WHERE ooefent=g_enterprise AND ooef001=g_site #給予arg
LET g_qryparam.arg1 = l_ooef004 #参照表编号
LET g_qryparam.arg2 = g_code #对应程序编号 CALL q_ooba002_1() #呼叫開窗 LET g_xmmauc_m.xmmaucdocno = g_qryparam.return1 DISPLAY g_xmmauc_m.xmmaucdocno TO xmmaucdocno # NEXT FIELD xmmaucdocno #返回原欄位
注意:
DEFINE l_ooef004 LIKE ooef_t.ooef004
#170621 by ljr
SELECT ooef004 INTO l_ooef004
FROM ooef_t
WHERE ooefent=g_enterprise AND ooef001=g_site
#給予arg
LET g_qryparam.arg1 = l_ooef004 #参照表编号
LET g_qryparam.arg2 = g_code #对应程序编号
CALL q_ooba002_1() #呼叫開窗
以上根据参照表编号和对应程序编号,获取到对应的单据别数据,进行开窗(参考axmt500的订单编号开窗,q_ooba002_1);
其次,还需要在调用s_aooi200_gen_docno 函数,对订单编号进行自动编号,在#add-point:單頭新增前 name="input.head.b_insert" 下增加代码:
IF p_cmd <> 'u' THEN CALL s_transaction_begin() #add-point:單頭新增前 name="input.head.b_insert"
# by ljr
CALL s_aooi200_gen_docno(g_site,g_xmmauc_m.xmmaucdocno,g_xmmauc_m.xmmaucdocdt,g_prog) RETURNING l_success,g_xmmauc_m.xmmaucdocno
IF NOT l_success THEN
CALL s_transaction_end('N','')
INITIALIZE g_errparam TO NULL
LET g_errparam.code = 'apm-00003'
LET g_errparam.extend = g_xmmauc_m.xmmaucdocno
LET g_errparam.popup = TRUE
CALL cl_err()
NEXT FIELD xmmaucdocno
CONTINUE DIALOG
END IF
DISPLAY BY NAME g_xmmauc_m.xmmaucdocno
#end add-point
注意:
CALL s_aooi200_gen_docno(g_site,g_xmmauc_m.xmmaucdocno,g_xmmauc_m.xmmaucdocdt,g_prog)
RETURNING l_success,g_xmmauc_m.xmmaucdocno
T100——单据别的新增、修改设置的更多相关文章
- salesforce 零基础学习(六十九)当新增/修改一条记录以后发生了什么(适合初学者)
salesforce开发中,我们会对object进行很多的操作,比如对object设置字段的必填性唯一性等,设置validation rule实现一下相关的字段的逻辑校验,设置workflow实现某个 ...
- 如何使用编辑模板在ASPxGridView中进行新增修改(除去常规的gridviw模板编辑外)
aspgridview模板编辑效果图: //前端代码:(核心: <Templates><EditForm>.....中间可用栅格样式布局等(随意)...</Templat ...
- AMH4.2 Ftp账号路径修改设置
AMH4.2的ftp控制有点不尽如人意,每个ftp账号只能对应一个站点:如果按照面板所提供的权限,有多少个站就得设置多少个ftp账号,这一操作就会非常麻烦,造成效率低下:不过AMH5.0已经能够通过面 ...
- Java代码操作properties文件(读取,新增/修改,删除)
项目中需要用到操作properties文件中的数据,记录一下 package com.bonc.savepic.save; import java.io.FileNotFoundException; ...
- CentOS7修改设置静态IP和DNS
当前位置: 主页 > CentOS入门 > 系统配置 > CentOS7修改设置静态IP和DNS 时间:2016-02-22 00:55来源:blog.csdn.net 作者:get ...
- eclipse快速复制一行代码(向下/向上)快捷键修改设置
eclipse快速复制一行代码(向下/向上)快捷键修改设置 2015年10月05日 17:46:57 xiaoguanglgc 阅读数:20906 标签: eclipse快速复制一行快捷键冲突英特尔 ...
- Oracle忘记用户名和密码以及管理员用户新增修改删除用户
Oracle忘记密码: 1.以管理员身份登录,打开dos窗口,输入 sqlplus / as sysdba 回车 2.查看当前用户和状态 select username, account_status ...
- 解析大型.NET ERP系统 单据标准(新增,修改,删除,复制,打印)功能程序设计
ERP系统的单据具备标准的功能,这里的单据可翻译为Bill,Document,Entry,具备相似的工具条操作界面.通过设计可复用的基类,子类只需要继承基类窗体即可完成单据功能的程序设计.先看标准的销 ...
- MYSQL基础01(新增,修改,删除)
首先说明一下,本人之前一直都是用MSSQL,由于工作原因,每天写上百条sql语句,并持续了几年;由于换了工作目前主要接触的MYSQL;所以现在开始学习MYSQL. 我的学习计划很简单,我在MSSQL使 ...
随机推荐
- isPrototypeOf,instanceof, hasOwnProperty,in的作用与区别
isPrototypeOf 作用:检测一个对象是否是另一个对象的原型.或者说一个对象是否被包含在另一个对象的原型链中 function Fn(name){ this.name=name; } var ...
- 10分钟梳理MySQL核心知识点
数据库的使用,是开发人员的基本功,对它掌握越清晰越深入,你能做的事情就越多. 做业务,要懂基本的SQL语句:做性能优化,要懂索引,懂引擎:做分库分表,要懂主从,懂读写分离... 今天我们用10分钟,重 ...
- VC 实现程序只运行一个实例,并激活已运行的程序
转载:http://blog.sina.com.cn/s/blog_4b44e1c00100bh69.html 进程的互斥运行:CreateMutex函数实现只运行一个程序实例 正常情况下,一个进程的 ...
- DeepLearningBook(中文版)书PDF
介绍深度学历基础理论.模型和应用.(738页). 第一部分 应用数学与机器学习基础,包括深度学习需要用到的线性代数.概率与信息论.数值计算.机器学习等内容. 第二部分 深度网络:现代实践,包括深度前馈 ...
- vsCoad设置代码自动换行
- 把文档中的数据取出并插入到excel中
from xlrd import open_workbookfrom xlutils.copy import copy jsonfile=r'C:\Users\Administrator\Deskto ...
- CentOS linux7 磁盘分区
常用命令 df [选项] [文件] -a 显示全部文件系统 -h 方便阅读方式显示 -l 只显示本地文件系统 -T 显示文件系统类型 fdisk /dev/sda1
- Apple全系列缓冲区溢出内核RCE(CVE-2018-4407)poc
# CVE-2018-4407 ICMP DOS # https://lgtm.com/blog/apple_xnu_icmp_error_CVE-2018-4407 # from https://t ...
- [Distributed ML] Yi WANG's talk
王益,分布式机器学习的践行者,他的足迹值得后来者学习. 膜拜策略: LinkedIn高级分析师王益:大数据时代的理想主义和现实主义(图灵访谈)[心路历程] 分布式机器学习的故事-王益[历史由来] 分布 ...
- SqlServer/Oracle 通过一个sql判断新增/修改
if (Config.DbInfo.DbType.Equals(DBType.SQLServer)) { sql = ].GetString() + ].GetString() + ].GetStri ...