【实习之T100开发(1)，韩顺平Java视频教程百度云盘

        *   [新增开窗③开窗传参（交易条件）](about:blank#_211)*   [校验带值 - 单据别](about:blank#___219)*   [根据 \[税种\] 带出 \[含税否\]](about:blank#____246)*   [根据 \[币种\] 带出 \[汇率\]](about:blank#____281)*   [查询开窗](about:blank#_319)*   [查询开窗 - 单号（自建开窗）](about:blank#___326)*   [单身部分](about:blank#_346)*   *   [项次自增](about:blank#_347)*   [表身根据\[料号\]带出\[品名\]和\[规格\]](about:blank#_362)*   [单身根据 \[税种\] 带出 \[税率\]](about:blank#____369)*   [\[数量\]、\[单价\] 变化时要计算\[含税金额\]、\[未税金额\]、\[税额\]](about:blank#__389)*   [查询时单身部分\[规格\]不显示（新增时有的）](about:blank#_414)*   [12\. azzi850 给程序授权](about:blank#12_azzi850__426)*   [13\. r.r 执行程序](about:blank#13_rr__427)*   [14\. azzi880 将程序挂到 menu](about:blank#14_azzi880__menu_428)

单据别建立流程 ???
双档程序源码分析
总结

目录：【实习】T100学习笔记

单档程序和双档程序的区别

所谓单档程序相当于只有表头，下面的东西就相当于表头。

而双档不仅有表头，还有表身，表身一般就是个表格。

单双档程序的 (全新) 开发流程

===================================================================================

首先要通过 r.t (adzi140) 建立表

azzi900 建立 程序代号

程序代号是唯一的。
azzi910 建立 作业代号

一个程序代号可以被多个作业使用。
通过设计器 - 规格（签出规格）

规格相当于画面。
通过设计器 - 程序（签出程序）
adzp168 通过画面产生器产生画面
通过设计器 - 规格（下载规格）
r.q 开窗，r.v 校验带值（根据需求设定）
通过设计器 - 程序（下载程序）
通过设计器 - 档案（开启规格档案）- 修改程序 - 上传程序
通过设计器 - 程序（下载程序）- 上传程序

（先上传程序，没有报错再来修改对应逻辑）

通过 azzi850 给程序授权
r.r 执行程序
azzi880 将程序挂到 menu

r.t 建表

=========================================================================

单头表 xmzyuc_t，字段为：订单单号、订单日期、业务人员、业务部门、客户编号、收款条件、交易条件、税种、币种、税率、含税否、汇率、发票类型、订单备注、基础资料档。

单身表 xmzzuc_t，字段为：项次、料号 (品名、规格)、单位 (单位名称)、订购数量、预计交货日期、税种、税率、单位、含税金额、未税金额、税额、紧急度、备注

单档程序只需要一张表，双档需要建多张表。

1. 建立单头表

单头一般是主档

企业代码、营运据点基本是必要的，其他按需求设置。

字段设置完毕后，【执行异动】

2. 建立单身表

单身一般是明细档

单身表与单头表的主键位置需要一一对应，不然自动生成的SQL语句会关联错误。

单头表的顺序是：企业代码(主)、营运据点、单号(主)、…

则单身表的顺序必须是：企业代码(主)、营运据点、单号(主)、…

单身表一定会比单头表多1个主键。

字段设置完毕后，【执行异动】

3. 单身表中建立主外键关联

在单身表中建立与单头表的主外键关联。

同时查出多张表的小技巧：xmzyuc | xmzzuc

4. 建表完成执行操作

所有步骤完成后按照如下顺序操作：

单头【产出数据表纲要】、单身【产出数据表纲要】、
单头【产出数据表清单】、单身【产出数据表清单】
单头【产出数据表结构与规格设置】、单身【产出数据表结构与规格设置】

双档 (全新) 完整开发

===============================================================================

注：双档和单档在整体流程上差不多，所以这里过程很简略，具体有哪个步骤忘记可以参考单档的文章（图片很全，很细）。

T100 单档程序开发（1）开发流程

r.t 建表

adzi170 可以查询数据表的内容

1. azzi900 建立程序编号

点击【录入信息】，然后输入 [程序编号] 和 [程序名称]，选择 [归属模块]

2. azzi910 建立作业编号

由于是订单维护作业，还需要建立单据别，具体参考下面的单据别建立流程

3. 设计器 - 签出规格和程序

【4】 adzp168画面产生器（产生画面）???

点击【字段设置】，分别给单头、单身以及查询方案设置字段

单头设置字段，注意 Table 必须选中单头表，画面结构要选中 Page:page_1

ps：上图少放了一个字段单据日期。。已补上，截图没有改

单身设置字段，Table 选中单身表，画面结构中选中 Table:s_detail1。单号是单头和单身的主键，单头里放了，单身不需要再放。

查询方案设置字段，查询方案一般放一些重要的单头字段

操作完以后，【保存底稿】、【生成画面】，弹出预览界面后关掉它。

6. 设计器 - 规格（下载规格）

7. 设计器 - 档案 - 开启档案（修改规格）

如果没有数据，【进阶功能】-【更新基础数据】、【重新产生基础数据】

注意，带开窗的组件有的需要自己转：右键，Concert Widget，ButtonEdit 即可。

【8】r.q 开窗，r.v 校验带值（根据需求设定）???

业务人员开窗 可以抄 资料所有者开窗

业务部门开窗 可以抄 资料所有部门开窗

所有的都可以抄 axmt500。。。。

表头开窗、校验带值、设置参考字段

业务人员开窗

业务人员参考语系

交易条件开窗

交易条件参考字段 ******************

太多了。。直接抄 axmt500 。。。。。

表身开窗、校验带值、设置参考字段

开窗抄 axmt500，参考字段需要点击要添加的列，右键 Add Reference Field，然后抄 axmt500

9. 设计器 - 程序（下载程序）

【10】设计器 - 档案 - 开启档案，直接上传程序（修改程序）

将刚下载的程序直接【上传】一下，确保设计器默认生成的没有问题，再开始修改。

单头部分

新增开窗①单号开窗需要传参数（参照表编号、程序编号）+ 开窗测试工具使用

下图中，在 adzi210开窗设计器中可以看到，单号的开窗识别码要求传2个参数，分别是 参照表编号 和 程序编号 ，需要我们在代码里添加。

参照表编号 在下面的【单据别建立流程】中有讲，aooi100 中可以查看
程序编号在代码里是个全局变量，g_prog，本程序中即 cxmt666

如何知道对应的数据表字段？

在 aooi100 中查询过后，可知参照表编号为 S01

并且，我们将鼠标放上去，可以看见它是在哪个数据库中进行维护的。

查看 ooef_t 表，发现 ooef004 的确是参照表编号。

开窗测试工具的使用

在 adzi210开窗设计工具中，查出了对应的开窗识别码后，点击【开窗测试工具】，然后将对应的参数输入，点击右边的开窗，即可查出对应的值。

如果没有查出来，按照【单据别建立流程】检查一遍流程。

在 ON ACTION controlp INFIELD xmzyucdocno，即点击单号开窗的位置，写代码：


#add by lzy #2021/1/27 根据当前的据点找到对应的单据别参照表号LET l_ooef004 = ''SELECT ooef004 INTO l_ooef004 FROM ooef_tWHERE ooefent = g_enterprise #企业编号=当前企业编号AND ooef001 = g_site #组织编号=据点 #給予argLET g_qryparam.arg1 = l_ooef004LET g_qryparam.arg2 = g_prog #程序编号:cxmt666

注：l_ooef004 需要在前面定义变量，我们在 cxmt666_input() 开头定义：


DEFINE l_ooef004 LIKE ooef_t.ooef004 #add by lzy#2021/1/27 单据别参照表号

学会这个以后，再有开窗需要传参的，都是以此类推！

新增开窗①++ 将开窗要传的参数改为全局变量

在 ① 里我们是用 l_ 开头的局部变量的方式写的，但是有时候很多开窗要传的参数是一样的，如果每次都要重新写，那将很麻烦，不如直接改成全局变量，后需要用到都可以拿来用。

将变量声明到 MAIN 上面的全局区域：


#add-point:自定義模組變數(Module Variable) (請盡量不要在客製環境修改此段落內容, 否則將後續patch的調整需人工處理) name="global.variable"DEFINE  g_ooef004 LIKE ooef_t.ooef004 #add by lzy#2021/1/27 单据别参照表号DEFINE  g_ooef024 LIKE ooef_t.ooef024 #add by lzy#2021/1/27 供应商编号DEFINE  g_ooef019 LIKE ooef_t.ooef019 #add by lzy#2021/1/27 税区编号#end add-point

在 xxxx_init() 的画面资料初始化区域写SQL查询：


#add-point:畫面資料初始化 name="init.init"LET g_ooef004 = ''LET g_ooef024 = ''SELECT ooef004,ooef024,ooef019 INTO g_ooef004,g_ooef024,g_ooef019 FROM ooef_tWHERE ooefent = g_enterprise #企业编号=当前企业编号AND ooef001 = g_site #组织编号=据点 #end add-point

最后在 ON ACTION controlp INFIELD xxxxx 处给参数赋值即可。

新增开窗②将单据日期默认为今天

在 xxx_insert() 中的单头预设值处填写代码：


#add-point:單頭預設值 name="insert.default"LET g_xmzyuc_m.xmzyucdocdt = g_today #add by lzy#2021/1/27 单据日期默认为今天#end add-point

新增开窗③开窗传参（交易条件）

交易条件由 apmi012 维护。

直接在代码里给传入参数设为 '238' 即可。


LET g_qryparam.arg1 = '238' #交易条件

校验带值 - 单据别

校验带值都是写在 xxxx_input() 下的 AFTER FIELD xxxxx。

比如要写单号 xmzyucdocno 的校验带值，写下面代码：


#add by lzy 单据别校验带值IF NOT s_aooi200_chk_slip(g_site,'',g_xmzyuc_m.xmzyucdocno,g_prog) THENLET g_xmzyuc_m.xmzyucdocno = g_xmzyucdocno_t   NEXT FIELD CURRENT   END IF

客户编号校验带值，直接抄 axmt500，参数也要一起抄。。


#設定g_chkparam.*的參數LET g_chkparam.arg1 = g_xmzyuc_m.xmzyuc003LET g_chkparam.arg2 = g_site #呼叫檢查存在並帶值的libraryIF cl_chk_exist("v_pmaa001_3") THEN#檢查成功時後續處理ELSE#檢查失敗時後續處理NEXT FIELD CURRENTEND IF

后面有问题的校验带值，都直接抄。。。

根据 [税种] 带出 [含税否]

要达到的效果主要是选择了 [税种] 以后，下面的 [税率] 和 [含税否] 也会自动有值。

现在开始不用记那么多套路了，抄axmt500就完事，上传报错就跟着报错信息改，比如下面的代码直接上传会报错，因为 l_success 和 l_oodb011 都没有定义，去axmt500里搜一下，看看它怎么定义的，直接拿过来来。

顺带一提，视频中老师一开始都是自己写的，讲道理真的看不懂，直到后面她开始抄axtm500。。。我也就学会了抄了。。


AFTER FIELD xmzyuc006#add-point:AFTER FIELD xmzyuc006 name="input.a.xmzyuc006"LET g_xmzyuc_m.xmzyuc006_desc = ''IF NOT cl_null(g_xmzyuc_m.xmzyuc006) THEN IF p_cmd = 'a' OR (p_cmd = 'u' AND (g_xmzyuc_m.xmzyuc006 <> g_xmzyuc_m_o.xmzyuc006 OR g_xmzyuc_m_o.xmzyuc006 IS NULL)) THEN              CALL s_tax_chk(g_site,g_xmzyuc_m.xmzyuc006)RETURNING l_success,g_xmzyuc_m.xmzyuc006_desc,g_xmzyuc_m.xmzyuc009,g_xmzyuc_m.xmzyuc008,l_oodb011                         IF NOT l_success THENLET g_xmzyuc_m.xmzyuc006 = g_xmzyuc_m_o.xmzyuc006LET g_xmzyuc_m.xmzyuc008 =  g_xmzyuc_m_o.xmzyuc008LET g_xmzyuc_m.xmzyuc009 =  g_xmzyuc_m_o.xmzyuc009NEXT FIELD CURRENT                     ELSE                    #passEND IF                       END IFLET g_xmzyuc_m_o.xmzyuc006 = g_xmzyuc_m.xmzyuc006LET g_xmzyuc_m_o.xmzyuc008 = g_xmzyuc_m.xmzyuc008LET g_xmzyuc_m_o.xmzyuc009 = g_xmzyuc_m.xmzyuc009END IF CALL s_desc_get_tax_desc1(g_site,g_xmzyuc_m.xmzyuc006) RETURNING g_xmzyuc_m.xmzyuc006_descDISPLAY BY NAME g_xmzyuc_m.xmzyuc006,g_xmzyuc_m.xmzyuc008,g_xmzyuc_m.xmzyuc009,g_xmzyuc_m.xmzyuc006_desc

根据 [币种] 带出 [汇率]

这个有坑！直接抄 axmt500也可能会跳进坑里。。。主要在于它似乎需要一个 [内外销] 字段来计算出汇率。。。但是这个字段在我的项目中并没有建，我只能在调函数s_axmt540_get_exchange的时候手动给这个参数传值，经过测试，只要传'2'就可以了。


#應用 a02 樣板自動產生(Version:2)AFTER FIELD xmzyuc007# 资料分享这是我从某优质机构弄来的一些资料，内容我认为确实称得上优质二字**[CodeChina开源项目：【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频】](https://codechina.csdn.net/m0_60958482/java-p7)****首先分享一份学习大纲，内容较多，涵盖了互联网行业所有的流行以及核心技术，以截图形式分享：**（亿级流量性能调优实战+一线大厂分布式实战+架构师筑基必备技能+设计思想开源框架解读+性能直线提升架构技术+高效存储让项目性能起飞+分布式扩展到微服务架构.........实在是太多了）![](https://img-blog.csdnimg.cn/img_convert/a792073bb5945eb2c2c176db172d1445.png)**其次分享一些技术知识，以截图形式分享一部分：**Tomcat架构解析：![](https://img-blog.csdnimg.cn/img_convert/f7c6ab16b1f6a6277d9b97ffa88bce09.png)算法训练+高分宝典：![](https://img-blog.csdnimg.cn/img_convert/d4c72090e0c712e8e78700fd3d8f943e.png)Spring Cloud+Docker微服务实战：![](https://img-blog.csdnimg.cn/img_convert/e5d9d5f2214e544316daf9f1a0aefcdf.png)**最后分享一波面试资料：**> 切莫死记硬背，小心面试官直接让你出门右拐1000道互联网Java面试题：![](https://img-blog.csdnimg.cn/img_convert/64b7e62ce4ae7272ca437ad30ea027f6.png)Java高级架构面试知识整理：![](https://img-blog.csdnimg.cn/img_convert/7b27a79ff2dc621cdc216048eaedf580.png)rsion:2)AFTER FIELD xmzyuc007# 资料分享这是我从某优质机构弄来的一些资料，内容我认为确实称得上优质二字**[CodeChina开源项目：【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频】](https://codechina.csdn.net/m0_60958482/java-p7)****首先分享一份学习大纲，内容较多，涵盖了互联网行业所有的流行以及核心技术，以截图形式分享：**（亿级流量性能调优实战+一线大厂分布式实战+架构师筑基必备技能+设计思想开源框架解读+性能直线提升架构技术+高效存储让项目性能起飞+分布式扩展到微服务架构.........实在是太多了）[外链图片转存中...(img-ncCDdyRH-1630927280231)]**其次分享一些技术知识，以截图形式分享一部分：**Tomcat架构解析：[外链图片转存中...(img-RaOXQyS7-1630927280232)]算法训练+高分宝典：[外链图片转存中...(img-Csq7EqXK-1630927280234)]Spring Cloud+Docker微服务实战：[外链图片转存中...(img-B0YioHnM-1630927280235)]**最后分享一波面试资料：**> 切莫死记硬背，小心面试官直接让你出门右拐1000道互联网Java面试题：[外链图片转存中...(img-j30oSaXm-1630927280237)]Java高级架构面试知识整理：[外链图片转存中...(img-dizEJceO-1630927280238)]