赛捷软件论坛's Archiver

lynn.yu 发表于 2018-3-23 10:16

[V6功能解说] 需要在(功能GESBPC中)[地址]页签上添加一个字段

[b]问题汇总[/b]
向客户功能(GESBPC)的[地址]页签上添加一个字段


[b]管理模块[/b]
该解决方案适用于下列版本:Sage X3 V6


[b]解决方法[/b]
你需要在屏幕BPABPC [BPAC]中申报2个字段

例如,我们如下所示添加了ZTEST字段:

1) 在BPABPC屏幕中,你需要申报2个字段:

——在版块1中设置ZTEST,录入方式为“隐藏”
——在版块2中设置XZTEST,录入方式为“录入”

对于字段XZTEST,你必须管理一个操作SPE:“更改后”,使用以下代码:

Script SPEBPA :
###################
$ACTION
Case ACTION
When default
Endcase
Return

Subprog AM_XZTEST(VALEUR)
Variable Char    VALEUR()

[M]ZTEST([M]XNUMLIG) = VALEUR
[M]FLMOD([M]XNUMLIG) = 1

End
########################

2) 你必须如下所示那样管理来自TRTBPA的录入点“REMP_ADRBPA”:

########################
$ACTION
  Case ACTION
    When "REMP_ADRBPA" : Gosub REMP
  Endcase

Return

#--------------------------------------------------
# For populate specific fields  [M]Xzone
# from field  [M]zone(NOL)
#-----------------------------------------

$REMP
  
If dim([M]XZTEST)>0
[M]XZTEST = [M]ZTEST(NOL)
Endif

Return

3) 你需要在表BPADDRESS中添加ZTEST。

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.