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

rowling.luo

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

1.      定义新的序列号规则: SUPfficeffice" />

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

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

 

SPEBPS.src

 

# add by zhouliya ffice:smarttags" />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

Sean

不懂编程，支持一下！希望x3日益完善！