使用代码生成Transaction时处理Credit Limit

使用代码创建Transaction时，经常会遇到当超出Credit Limit时程序报错的情况，这个时候需要手动写入Approve代码，由于Accpac代码设计的缺陷，这里需要使用Try Catch代码，以OE Shipment为例，处理Credit Limit代码如下：

Try
   OESHI1headerFields.Item("GOCHKCRDT").Value = "1"
   OESHI1header.Process()
Catch ex As Exception
   '信用额度超出时产生异常，需要强行忽略
End Try
'Approve by
OESHI1headerFields.Item("APPROVEBY").Value = "ADMIN"
OESHI1headerFields.Item("GOAPPROSEC").Value = "1"
'Approve人员的密码
OESHI1headerFields.Item("APPPASSWRD").PutWithoutVerification(ADMIN)
OESHI1header.Process()
OESHI1headerFields.Item("GOCHKCRDT").Value = "1"
OESHI1header.Process()

［此帖子已被 stone 在 2008-10-6 21:23:23 编辑过］