|
如有两个客户：ABCO2381，ABE2133，二次开发一个字段，要实现根据不同的客户显示不同的新增加一个字段的信息。
实现步骤如下：
找到对应的表，增加测试字段
![]()
找到对应的屏幕，增加测试字段，但需要注意的是在屏幕里表格（模块1）和列表（模块2）模块都要添加，列表只是临时显示数据的，实际上是保存在表格里的
![]()
列表字段需要增加字段前和修改两个事件
![]()
在行号上要加上录入前事件
![]()
所以有3个地方需要加上代码，XYTEST的字段前，修改后，NBITU的录入前
代码如下
Subprog AS_NBITU #NBITU的录入前
NOL = nolign-1
[M:ITU]XYTEST= [M:ITU]YTEST(NOL)
Affzo [M:ITU]XYTEST
End
Subprog AV_XYTEST(VALEUR) # XYTEST的字段前
Variable Char VALEUR()
NOL = nolign-1
If NOL = NBITU
VALEUR=[M:ITU]YTEST(0)
Endif
End
Subprog AM_XYTEST(VALEUR) # XYTEST的修改后
Variable Char VALEUR()
If [M]NBITU=0
mkstat = 2
Endif
[M]YTEST ([M]XLIGITU) = VALEUR
[M]UPDDAT ([M]XLIGITU) = date$ #hcb 030505 29658
[M]UPDUSR ([M]XLIGITU) = GUSER #hcb 030505 29658
End
实现效果如下：
客户：ABCO2381的测试字段为：测试1.
![]()
客户：ABE2133的测试字段为：测试2.
![]()
| 
转播
