4. 设计器 - 常用工具 - r.a画面产生器 - 产生规格
===================================================================================================
P批次作业是个空框架,直接保存底稿,生成画面即可。
======================================================================================
===========================================================================================
直接将之前做的 cmxq666 画面上的东西复制过来了。。
注意不要漏了查询条件,给每一个都添加上:
===========================================================================================
在 xxxx_ui_dialog
中补全开窗代码…(略,参考之前文章)
在 xxxx_process
中调用函数 cxmp666_conf(g_master.wc)
cxmt666_conf(p_arg1)
函数:
PRIVATE FUNCTION cxmp666_conf(p_arg1)
DEFINE p_arg1 STRING
DEFINE l_sql STRING
DEFINE l_xmzyuc DYNAMIC ARRAY OF RECORD
xmzyucdocno LIKE xmzyuc_t.xmzyucdocno,
xmzyucstus LIKE xmzyuc_t.xmzyucstus
END RECORD
DEFINE l_ac LIKE type_t.num5
DEFINE l_n LIKE type_t.num5
DEFINE l_success LIKE type_t.num5
CALL s_transaction_begin() #开启事务
CALL l_xmzyuc.clear()
LET l_success = TRUE
LET l_ac = 1
LET l_sql = "SELECT xmzyucdocno,xmzyucstus FROM xmzyuc_t WHERE xmzyucent=",g_enterprise,
" AND ", p_arg1
PREPARE cxmp666_pre FROM l_sql
DECLARE cxmp666_cs CURSOR FOR cxmp666_pre
FOREACH cxmp666_cs INTO l_xmzyuc[l_ac].xmzyucdocno, l_xmzyuc[l_ac].xmzyucstus
IF SQLCA.sqlcode THEN
INITIALIZE g_errparam TO NULL
LET g_errparam.extend = "FOREACH:",SQLERRMESSAGE
LET g_errparam.code = SQLCA.SQLCODE
LET g_errparam.popup = TRUE
CALL cl_err()
EXIT FOREACH
END IF
#判断状态码是否为N, 如果不为N则不执行这笔
IF l_xmzyuc[l_ac].xmzyucstus <> 'N' THEN
CONTINUE FOREACH
END IF
#判断此笔单号对应的单身有无数据,如果对应的这个单身没有数据需要报错
LET l_n = 0
SELECT COUNT(*) INTO l_n FROM xmzyuc_t
WHERE xmzyucent = g_enterprise
AND xmzyucdocno = l_xmzyuc[l_ac].xmzyucdocno
IF cl_null(l_n) THEN LET l_n = 0 END IF
IF l_n = 0 THEN
CONTINUE FOREACH
END IF
UPDATE xmzyuc_t SET xmzyucstus = 'Y'
WHERE xmzyucent = g_enterprise
AND xmzyucdocno = l_xmzyuc[l_ac].xmzyucdocno
IF SQLCA.sqlcode THEN
INITIALIZE g_errparam TO NULL
LET g_errparam.extend = "FOREACH:",SQLERRMESSAGE
LET g_errparam.code = SQLCA.SQLCODE
LET g_errparam.popup = TRUE
CALL cl_err()
LET l_success = FALSE
EXIT FOREACH
# 最后我们该如何学习?
**1、看视频进行系统学习**
这几年的Crud经历,让我明白自己真的算是菜鸡中的战斗机,也正因为Crud,导致自己技术比较零散,也不够深入不够系统,所以重新进行学习是很有必要的。我差的是系统知识,差的结构框架和思路,所以通过视频来学习,效果更好,也更全面。关于视频学习,个人可以推荐去B站进行学习,B站上有很多学习视频,唯一的缺点就是免费的容易过时。
另外,我自己也珍藏了好几套视频资料躺在网盘里,有需要的我也可以分享给你:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/59569ae6c88695e0dc7cc749f66014b6.png)
**2、读源码,看实战笔记,学习大神思路**
“编程语言是程序员的表达的方式,而架构是程序员对世界的认知”。所以,程序员要想快速认知并学习架构,读源码是必不可少的。阅读源码,是解决问题 + 理解事物,更重要的:看到源码背后的想法;程序员说:读万行源码,行万种实践。
Spring源码深度解析:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/18aa1bf64527b019561188427118ca00.png)
Mybatis 3源码深度解析:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/c94b3f2f286c7990cd2bf4e0d0cb9fc3.png)
Redis学习笔记:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/e3e81600df834d35de63fad72242e32a.png)
Spring Boot核心技术-笔记:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/b2c32afd4c7be63e65d8fb55f32abcb3.png)
**3、面试前夕,刷题冲刺**
面试的前一周时间内,就可以开始刷题冲刺了。请记住,刷题的时候,技术的优先,算法的看些基本的,比如排序等即可,而智力题,除非是校招,否则一般不怎么会问。
关于面试刷题,我个人也准备了一套系统的面试题,帮助你举一反三:
![1年半经验,2本学历,Curd背景,竟给30K,我的美团Offer终于来了](https://img-blog.csdnimg.cn/img_convert/ecca26959f1f68f48e8cb86cd0301b53.png)
只有技术过硬,在哪儿都不愁就业,“万般带不去,唯有业随身”学习本来就不是在课堂那几年说了算,而是在人生的旅途中不间断的事情。
人生短暂,别稀里糊涂的活一辈子,不要将就。
**[CodeChina开源项目:【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频】](https://codechina.csdn.net/m0_60958482/java-p7)**
文章内容中涉及到的Java面试题、源码文档,技术笔记等学习资料,均可以免费分享给大家学习,只需你动动手多多支持即可!
习本来就不是在课堂那几年说了算,而是在人生的旅途中不间断的事情。
人生短暂,别稀里糊涂的活一辈子,不要将就。
**[CodeChina开源项目:【一线大厂Java面试题解析+核心总结学习笔记+最新讲解视频】](https://codechina.csdn.net/m0_60958482/java-p7)**
文章内容中涉及到的Java面试题、源码文档,技术笔记等学习资料,均可以免费分享给大家学习,只需你动动手多多支持即可!