|
|
发表于 2011/8/24 09:13:30
|
显示全部楼层
一小段由FS顾问写的APID用 FSTI写入的代码,初始化 --》 赋值 --》提交。(Visiwatch)
'APID00 Add A/P Invoice
Dim newApid00 As New APID00
newApid00.VendorID.Value = InvoiceRec.VendorID
newApid00.InvoiceNumber.Value = InvoiceRec.InvoiceNumber
newApid00.InvoiceDate.Value = ChangeDateToRegionSpecificFS(Date) 'Format (Date(),"mmddyy") 'Input current date
If InvoiceRec.InvoiceType = "I" Then 'Invoice
newApid00.InvoiceType.Value = InvoiceRec.InvoiceType
Else 'debit memo "R"
newApid00.InvoiceType.Value = "D" 'change to "D"
End If
newApid00.POReceiptControllingAmount.Value = FormatApidNum(InvoiceRec.TotalLinesLocalAmount)
newApid00.DocumentNumber.Value = " " '11 Invoice/Debit Memo Ref
newApid00.TermsCode.Value = "D" '26 Terms
newApid00.DisplayedCurrency.Value = "F" '50 (displayed Currency) L,Local currency;F,Foreign currency '
newApid00.InvoiceComment.Value="VSAP APID"
If Not newApid00.RequiredAreSet Then
ErrorOutputMsg UNIT_FILE_Invoice, "WriteApid00", "APID00 error,the required properties were not provided for APID00.",funcCode,mailSiteCode
GoTo Finally
End If |
|