鼎捷T100二次开发——维护作业新增实体字段

鼎捷T100维护作业二次开发

目录

任务描述

二、规格程式设计

1.实现实体字段的新增

1.规格设计

 2.程式设计

2.增加说明字段（非实体字段）

总结

---

任务描述

在维护作业apmixxx中新增实体字段(存进数据库表中)

• 州省

  • 要求开设开窗

  • 要求增设说明字段（非实体字段）

• 国家地区

  • 要求根据州省获取对应的国家地区

  • 要求增设说明字段（非实体字段）

---

一、表格设计

通过 r.t 或者 通过adzi140 进入

搜索该维护作业所使用的表名称，进行修改（在修改前应签出）

在表格后根据需要的字段类型，选择自定义字段进行修改（自定义字段是一般表格在设计的时候就会留出部分字段供用户进行客制化）

 

二、规格程式设计

1.实现实体字段的新增

在设置前应将对应作业的规格和程式签出

1.规格设计

在单身中可以右键新增一列新的栏位，如果需要开窗主要栏位的类型，如ButoonEdit是可以使用开窗的

 

然后对栏位进行相应的设置，如属性、开窗、控件代号等

 2.程式设计

 ON ACTION controlp INFIELD pmaoud001
            #add-point:ON ACTION controlp INFIELD pmaoud001 name="input.c.page1.pmaoud001"
            #應用 a07 樣板自動產生(Version:3)   
            #開窗i段
            INITIALIZE g_qryparam.* TO NULL
            LET g_qryparam.state = 'i'
            LET g_qryparam.reqry = FALSE
 
            LET g_qryparam.default1 = g_pmao_d[l_ac].pmaoud001             #給予default值
            LET g_qryparam.default2 = "" #g_pmao_d[l_ac].ooci002 #州省編號
            #給予arg
            LET g_qryparam.arg1 = "" #

 
            CALL q_ooci002_2()                                #呼叫開窗
 
            LET g_pmao_d[l_ac].pmaoud001 = g_qryparam.return2              
            LET g_pmao_d[l_ac].pmaoud002 = g_qryparam.return1
            DISPLAY g_pmao_d[l_ac].pmaoud001 TO pmaoud001 
            DISPLAY g_pmao_d[l_ac].pmaoud002 TO pmaoud002
            
            #DISPLAY g_pmao_d[l_ac].ooci002 TO ooci002 #州省編號
            NEXT FIELD pmaoud001                          #返回原欄位

根据开窗设置（q_ooci002_2开窗有两个返回值，第一个返回值是国家地区，第二个返回值是州省）

所以在代码中这样设置，使得用户在使用州省开窗的时候，将两个值分别赋值给对应的栏位。

修改完毕上传程式

2.增加说明字段（非实体字段）

打开规格设计

在左上角有参考字段可以设置，添加到对应的位置，然后进行栏位字段的绑定与设置

其中，

控件名称必须以_desc结果否则会报错

全部修改过后，上传规格，同步生产程式，然后将程式上传就可以直接实现说明字段

效果如下

---

 

 

 

总结

利用规格设置，加上简单的程式逻辑就能实现实体字段以及对应说明字段的添加