供应商部分: 在屏幕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