供应商自动编号-小程序,上海sagittariusyaya提供

kingson

功能: 在供应商记录新创建的时候，编码取序列号SUP.
1.
定义新的序列号规则: SUP
2.

在创建供应商时候,用新的序列号规则生成供应商编码

供应商部分:
在屏幕BPS0的过程SPEBPS中, 加入如下代码, 然后F7 编译. 重新登录即可.

SPEBPS.src

# add by zhouliya 2007-10-16
liya.zhou@sagesoft.cn
$ACTION
Case ACTION

When "INICRE"
: Gosub INICRE

When "RAZCRE"
: Gosub RAZCRE

When "APRES_CRE" : Gosub APRES_CRE

When "ABANDON"
: Gosub ABANDON

When Default
Endcase
Return

$RAZCRE

#Grizo [M:BPS0]BPSNUM

#Grizo [M:BPS3]BPSINV,BPSPYR,BPSGRU
Return

$INICRE
Local Char VNUM
Local Char VCPT(3)
Local Integer VSTAT

VCPT='SUP'

Call NUMERO (VCPT,[M:BPS4]TSSCOD,date$,"",VNUM,VSTAT) From SUBANM



[M:BPS0]BPSNUM = VNUM

[M:BPS2]BPSINV = VNUM

[M:BPS2]BPRPAY = VNUM

[M:BPS2]BPSGRU = VNUM

Affzo [M:BPS0]BPSNUM

Affzo [M:BPS2]BPSINV,BPRPAY,BPSGRU

[F:BPS]BPSNUM = VNUM

[F:BPS]BPSINV = VNUM

[F:BPS]BPRPAY = VNUM

[F:BPS]BPSGRU = VNUM


Return

$APRES_CRE

Actzo [M:BPS0]BPSNUM

Actzo [M:BPS2]BPSINV,BPRPAY,BPSGRU
Return

$ABANDON

Actzo [M:BPS0]BPSNUM

Actzo [M:BPS2]BPSINV,BPRPAY,BPSGRU
Return

hulala_98

seyanakatamusic@yahoo.co.jp,能给我发一份该项目的详细功能介绍吗,谢谢