您现在的位置是：首页 > Java

当前栏目

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

JAVA 程序开发

2023-04-18 14:13:36 时间

        *   [新增开窗③开窗传参（交易条件）](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_t

WHERE ooefent = g_enterprise #企业编号=当前企业编号

AND ooef001 = g_site #组织编号=据点 



#給予arg

LET g_qryparam.arg1 = l_ooef004

LET 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_t

WHERE 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) THEN

   LET g_xmzyuc_m.xmzyucdocno = g_xmzyucdocno_t	

   NEXT FIELD CURRENT   

END IF

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


#設定g_chkparam.*的參數

LET g_chkparam.arg1 = g_xmzyuc_m.xmzyuc003

LET g_chkparam.arg2 = g_site 

#呼叫檢查存在並帶值的library

IF cl_chk_exist("v_pmaa001_3") THEN

   #檢查成功時後續處理

ELSE

   #檢查失敗時後續處理

   NEXT FIELD CURRENT

END 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 THEN

            LET g_xmzyuc_m.xmzyuc006 = g_xmzyuc_m_o.xmzyuc006

            LET g_xmzyuc_m.xmzyuc008 =  g_xmzyuc_m_o.xmzyuc008

            LET g_xmzyuc_m.xmzyuc009 =  g_xmzyuc_m_o.xmzyuc009

            NEXT FIELD CURRENT                     

         ELSE                    

            #pass

         END IF                       

      END IF

      LET g_xmzyuc_m_o.xmzyuc006 = g_xmzyuc_m.xmzyuc006

      LET g_xmzyuc_m_o.xmzyuc008 = g_xmzyuc_m.xmzyuc008

      LET g_xmzyuc_m_o.xmzyuc009 = g_xmzyuc_m.xmzyuc009

   END IF 

              

   CALL s_desc_get_tax_desc1(g_site,g_xmzyuc_m.xmzyuc006) RETURNING g_xmzyuc_m.xmzyuc006_desc

   DISPLAY 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)]

猜你喜欢

推荐阅读 | 如何部署 LAMP & LNMP网站架构实践?
用Python分析过去10年地震分布~
教你几招消灭代码漏洞的方法
HTTPS你不要这么慢了
DC系列靶机七渗透实战！
面试官你不要说我不懂TLS握手了
Pentester之SQL注入过关纪实
全网最全sqli-labs通关攻略(建议收藏)
HTTP流量拷贝测试神器GoReplay
SQL注入漏洞基础原理（脱水版）
文件上传漏洞小结(脱水版)
全网最全upload-labs通关攻略(建议收藏)
你真的会用度娘么？
面向AI 的数据生态系统
我被这个浏览了 746000 次的问题惊住了！
Window下CMD命令语法应知应会
容器实战｜手把手带你部署Ceph集群
想记录地球表面每时每刻的变化？这个数据库做到了 | TED演讲
如何判断电脑是否被黑客入侵？
聊聊微服务架构中的认证鉴权那些事

zl程序教程

当前栏目

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

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

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

单头部分

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

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

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

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

校验带值 - 单据别

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

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

相关文章