何为单据别,例如下图,新增的时候开窗选择单据别:

新增单据别:

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——单据别的新增、修改设置的更多相关文章

  1. salesforce 零基础学习(六十九)当新增/修改一条记录以后发生了什么(适合初学者)

    salesforce开发中,我们会对object进行很多的操作,比如对object设置字段的必填性唯一性等,设置validation rule实现一下相关的字段的逻辑校验,设置workflow实现某个 ...

  2. 如何使用编辑模板在ASPxGridView中进行新增修改(除去常规的gridviw模板编辑外)

    aspgridview模板编辑效果图: //前端代码:(核心: <Templates><EditForm>.....中间可用栅格样式布局等(随意)...</Templat ...

  3. AMH4.2 Ftp账号路径修改设置

    AMH4.2的ftp控制有点不尽如人意,每个ftp账号只能对应一个站点:如果按照面板所提供的权限,有多少个站就得设置多少个ftp账号,这一操作就会非常麻烦,造成效率低下:不过AMH5.0已经能够通过面 ...

  4. Java代码操作properties文件(读取,新增/修改,删除)

    项目中需要用到操作properties文件中的数据,记录一下 package com.bonc.savepic.save; import java.io.FileNotFoundException; ...

  5. CentOS7修改设置静态IP和DNS

    当前位置: 主页 > CentOS入门 > 系统配置 > CentOS7修改设置静态IP和DNS 时间:2016-02-22 00:55来源:blog.csdn.net 作者:get ...

  6. eclipse快速复制一行代码(向下/向上)快捷键修改设置

    eclipse快速复制一行代码(向下/向上)快捷键修改设置 2015年10月05日 17:46:57 xiaoguanglgc 阅读数:20906 标签: eclipse快速复制一行快捷键冲突英特尔 ...

  7. Oracle忘记用户名和密码以及管理员用户新增修改删除用户

    Oracle忘记密码: 1.以管理员身份登录,打开dos窗口,输入 sqlplus / as sysdba 回车 2.查看当前用户和状态 select username, account_status ...

  8. 解析大型.NET ERP系统 单据标准(新增,修改,删除,复制,打印)功能程序设计

    ERP系统的单据具备标准的功能,这里的单据可翻译为Bill,Document,Entry,具备相似的工具条操作界面.通过设计可复用的基类,子类只需要继承基类窗体即可完成单据功能的程序设计.先看标准的销 ...

  9. MYSQL基础01(新增,修改,删除)

    首先说明一下,本人之前一直都是用MSSQL,由于工作原因,每天写上百条sql语句,并持续了几年;由于换了工作目前主要接触的MYSQL;所以现在开始学习MYSQL. 我的学习计划很简单,我在MSSQL使 ...

随机推荐

  1. isPrototypeOf,instanceof, hasOwnProperty,in的作用与区别

    isPrototypeOf 作用:检测一个对象是否是另一个对象的原型.或者说一个对象是否被包含在另一个对象的原型链中 function Fn(name){ this.name=name; } var ...

  2. 10分钟梳理MySQL核心知识点

    数据库的使用,是开发人员的基本功,对它掌握越清晰越深入,你能做的事情就越多. 做业务,要懂基本的SQL语句:做性能优化,要懂索引,懂引擎:做分库分表,要懂主从,懂读写分离... 今天我们用10分钟,重 ...

  3. VC 实现程序只运行一个实例,并激活已运行的程序

    转载:http://blog.sina.com.cn/s/blog_4b44e1c00100bh69.html 进程的互斥运行:CreateMutex函数实现只运行一个程序实例 正常情况下,一个进程的 ...

  4. DeepLearningBook(中文版)书PDF

    介绍深度学历基础理论.模型和应用.(738页). 第一部分 应用数学与机器学习基础,包括深度学习需要用到的线性代数.概率与信息论.数值计算.机器学习等内容. 第二部分 深度网络:现代实践,包括深度前馈 ...

  5. vsCoad设置代码自动换行

  6. 把文档中的数据取出并插入到excel中

    from xlrd import open_workbookfrom xlutils.copy import copy jsonfile=r'C:\Users\Administrator\Deskto ...

  7. CentOS linux7 磁盘分区

    常用命令 df [选项] [文件] -a  显示全部文件系统 -h 方便阅读方式显示 -l 只显示本地文件系统 -T 显示文件系统类型 fdisk  /dev/sda1

  8. 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 ...

  9. [Distributed ML] Yi WANG's talk

    王益,分布式机器学习的践行者,他的足迹值得后来者学习. 膜拜策略: LinkedIn高级分析师王益:大数据时代的理想主义和现实主义(图灵访谈)[心路历程] 分布式机器学习的故事-王益[历史由来] 分布 ...

  10. SqlServer/Oracle 通过一个sql判断新增/修改

    if (Config.DbInfo.DbType.Equals(DBType.SQLServer)) { sql = ].GetString() + ].GetString() + ].GetStri ...