鼎捷T100—二次开发：利用开窗多选实现批量插入单身

最新推荐文章于 2023-08-12 10:34:40 发布

井里鱼

最新推荐文章于 2023-08-12 10:34:40 发布

阅读量560

点赞数 1

分类专栏：鼎捷T100笔记文章标签：笔记经验分享

本文链接：https://blog.csdn.net/weixin_52342654/article/details/130563283

版权

鼎捷T100笔记专栏收录该内容

16 篇文章 9 订阅

订阅专栏

最近解决系统bug的同时，发现了系统作业中可以通过开窗多选勾选的方式，一次性批量插入对应的料号的数据进入单身表，特此记录一下

ON ACTION controlp INFIELD xmzzucdoc001

LET g_qryparam.state = "c" #多选
LET g_qryparam.reqry = TRUE #全部展示

CALL cq_xmzzuc001() #料号开窗

IF g_qryparam.str_array.getLength() <= 1 THEN

	IF g_qryparam.str_array.getLength()=1 THEN #如果只有一笔时
		LET g_xmzzuc_d[l_ac].xmzzuc001 = g_qryparam.str_array[1]
		DISPLAY g_xmzzuc_d[l_ac].sfeb001 TO sfeb001
	ELSE
		LET g_xmzzuc_d[l_ac].sfeb001 = g_qryparam.return1
		DISPLAY g_xmzzuc_d[l_ac].xmzzuc001 TO xmzzuc001
	END IF
	INITIALIZE g_qryparam.str_array TO NULL
ELSE
	LET l_multi_xmzzuc_ins = TRUE
	CALL cxmt666_unlock_b("xmzzuc","'1'") #关闭游标
	CALL s_transaction_end('Y','0')#结束事务
END IF
	



#如果l_multi_xmzzuc_ins = TRUE 表示开窗多选，执行多选的方案
IF l_multi_xmzzuc_ins THEN
	LET g_errshow = 0
	CALL cl_err_collect_init()
	CALL s_transaction_begin()
	IF cxmt666_multi_xmzzuc_ins(g_xmza_m.xmzadocno) THEN #将料件编号开窗勾选资料，整批写入单身中
	CALL s_transaction_end('Y','0')
	ELSE
	CALL s_transaction_end('N','0')
	END IF





#定义asft340_multi_sfeb_ins（）方法
PRIVATE FUNCTION cxmt666_multi_xmzzuc_ins(p_xmzzucent)
DEFINE p_xmzzucdocno LIKE xmzzuc_t.xmzzucdocno
DEFINE l_xmzzuc RECORD
	xmzzucent LIKE xmzzuc_t.xmzzucent,
	xmzzucsite LIKE xmzzuc_t.xmzzucsite,
	xmzzucdocno LIKE xmzzuc_t.xmzzucdocno,
	xmzzucseq LIKE xmzzuc_t.xmzzucseq,
	xmzzuc001 LIKE xmzzuc_t.xmzzuc001,
	xmzzuc002 LIKE xmzzuc_t.xmzzuc002,
	xmzzuc003 LIKE xmzzuc_t.xmzzuc003,
	xmzzuc004 LIKE xmzzuc_t.xmzzuc004,
	xmzzuc005 LIKE xmzzuc_t.xmzzuc005,
	xmzzuc006 LIKE xmzzuc_t.xmzzuc006,
	xmzzuc007 LIKE xmzzuc_t.xmzzuc007,
	xmzzuc008 LIKE xmzzuc_t.xmzzuc008,
	xmzzuc009 LIKE xmzzuc_t.xmzzuc009,
	xmzzuc010 LIKE xmzzuc_t.xmzzuc010,
	xmzzuc011 LIKE xmzzuc_t.xmzzuc011,
	xmzzuc012 LIKE xmzzuc_t.xmzzuc012
END RECORD

DEFINE  l_i           LIKE type_t.num10
DEFINE r_success LIKE type_t.num5
DEFINE l_xmzzucseq LIKE xmzzuc_t.xmzzucseq

LET r_success = TRUE
	
	SELECT MAX(xmzzucseq) INTO l_xmzzucseq FROM sfeb_t
    	WHERE xmzzucent = g_enterprise AND xmzzucdocno = p_xmzzucdocno
    	
    IF cl_null(l_xmzzucseq) THEN
    	LET l_xmzzucseq = 0
    END IF
    
    
    FOR l_i TO g_qryparam.str_array.getLength()
    	##初始化
    	INITIALIZE l_xmzzuc TO NULL
    	LET l_xmzzuc.xmzzuc001 = g_qryparam.str_array[l_i]
    	LET l_xmzzuc.xmzzuc002 = ""
    	LET l_xmzzuc.xmzzuc003 = 0
    	LET l_xmzzuc.xmzzuc004 = ""
    	LET l_xmzzuc.xmzzuc005 = ""
    	LET l_xmzzuc.xmzzuc006 = 0
    	LET l_xmzzuc.xmzzuc007 = 0
    	LET l_xmzzuc.xmzzuc008 = 0
    	LET l_xmzzuc.xmzzuc009 = 0
    	LET l_xmzzuc.xmzzuc010 = 0
    	LET l_xmzzuc.xmzzuc011 = ""
    	LET l_xmzzuc.xmzzuc012 = ""
    	LET l_xmzzucseq = l_xmzzucseq + 1
    	
    	
    	
    	##自定义校验
    	
    	
    	##INSERT
    	
    	INSERT INTO xmzzuc_t (xmzzucent,xmzzucsite,xmzzucdocno,xmzzucseq,xmzzuc001,xmzzuc002,xmzzuc003,xmzzuc004,xmzzuc005,xmzzuc006,xmzzuc007,xmzzuc008,xmzzuc009,xmzzuc010,xmzzuc011,xmzzuc012)
    	VALUES (g_enterprise,l_xmzzuc.xmzzucseq,p_xmzzucdocno,l_xmzzucseq,l_xmzzuc.xmzzuc001,l_xmzzuc.xmzzuc002,l_xmzzuc.xmzzuc003,l_xmzzuc.xmzzuc005,l_xmzzuc.xmzzuc006,l_xmzzuc.xmzzuc007,l_xmzzuc.xmzzuc008,l_xmzzuc.xmzzuc009,l_xmzzuc.xmzzuc010,l_xmzzuc.xmzzuc011,l_xmzzuc.xmzzuc012)
    	
    	IF SQL.sqlcode THEN
    		INITALIZE g_errparam TO NULL
    		LET g_errparam.code=SQLCA.sqlcode
    		LET g_errparam.extend="xmzzuc_t"
    		LET g_errparam.popup=FALSE
    		CALL cl_err()
    		CONTINUE FOR
    	END IF
    	
    END FOR
    
    RETURN r_success
    	
END FUNCTION