AP Batch/Invoice from VB6 - hit a wall.

[mork571]

By browsing these forums and playing with the Macro recording in Accpac, I think I've come pretty close, but I get the following error;
"View: AP0021. View call failed"

The error is thrown on the line "hHeader.Insert". My current code is as follows (tried a lot of different things, and always get that error on the insert of the header)..

any help / pointers / advice is appreciated.


Dim hSession As xapiSession
Dim hPost As xapiView
Dim hBatch As xapiView
Dim hHeader As xapiView
Dim hDetail1 As xapiView
Dim hDetail2 As xapiView

Set hSession = New xapiSession
hSession.Open "MARK", "MARK", "SAMINC", Date, 0
If Not IsNull(hSession) Then
Set hPost = hSession.OpenView("AP0039", "AP&quot
Set hBatch = hSession.OpenView("AP0020", "AP&quot
Set hHeader = hSession.OpenView("AP0021", "AP&quot
Set hDetail1 = hSession.OpenView("AP0022", "AP&quot
Set hDetail2 = hSession.OpenView("AP0023", "AP&quot

hBatch.Compose Array(hHeader)
hHeader.Compose Array(hBatch, hDetail1, hDetail2)
hDetail1.Compose Array(hHeader, hBatch)
hDetail2.Compose Array(hHeader)

hBatch.Fields("CNTBTCH&quot.PutWithoutVerification ("0&quot
hBatch.Init
hBatch.Fields("BTCHDESC&quot.Value = "New Batch " & Format(Date, "yyyy-MM-dd&quot
hBatch.Fields("BTCHTYPE&quot.Value = 2
hBatch.Update
End If

hHeader.Init
With hHeader
.Fields("CNTITEM&quot.Value = 1 ' !
.Fields("IDVEND&quot.Value = "1200"
.Fields("IDINVC&quot.Value = 1 ' !
.Fields("TEXTTRX&quot.Value = 1
.Fields("IDTRX&quot.Value = 12
.Fields("INVCDESC&quot.Value = "yo - description here."
.Fields("ORDRNBR&quot.Value = "order number"
.Fields("PONBR&quot.Value = "P.O. Number"
.Fields("DATEINVC&quot.Value = Date
.Fields("SWTAXBL&quot.Value = 0
.Fields("BASETAX1&quot.Value = 0
.Fields("BASETAX2&quot.Value = 0
.Fields("BASETAX3&quot.Value = 0
.Fields("BASETAX4&quot.Value = 0
.Fields("BASETAX5&quot.Value = 0
.Fields("AMTTAX1&quot.Value = 0
.Fields("AMTTAX2&quot.Value = 0
.Fields("AMTTAX3&quot.Value = 0
.Fields("AMTTAX4&quot.Value = 0
.Fields("AMTTAX5&quot.Value = 0
End With

hDetail1.Init
With hDetail1
.Fields("CNTITEM&quot.PutWithoutVerification (hHeader.Fields("CNTITEM&quot.Value)
.Fields("CNTLINE&quot.PutWithoutVerification ("0&quot
.Fields("CNTBTCH&quot.PutWithoutVerification (hBatch.Fields("CNTBTCH&quot.Value)
.Fields("IDDIST&quot.PutWithoutVerification ("INV&quot
.Fields("AMTDIST&quot.Value = "225.000"
End With

hDetail1.Insert
hHeader.Insert

hDetail1.Cancel
hHeader.Cancel

Set hPost = Nothing
Set hBatch = Nothing
Set hHeader = Nothing
Set hDetail1 = Nothing
Set hDetail2 = Nothing

 

[mork571]

woa. I thre a "hheader.update" in front of the insert and it seems to be working now.

proof-of-concept done. now on to the real work - I'm sure I'll be back with more questions (or even answers).