Aντιγραφή παραστατικού (πωλήσεων) outprocess

[gml...@gmail.com]

Παραθέτω τον επισυναπτόμενο κώδικα
μετα το     newID = NsalObj.PostData()
παιρνω Exception
{"Το παραστατικό δεν έχει καμία γραμμή"}
δεν ξερω τι κανω λάθος.
Ευχαριστώ.

[gml...@gmail.com]

Μάλλον το βρήκα.
όταν διόρθωσα το  NIteLinesTable = NsalObj.GetTable("MTRLINES") σε  

NIteLinesTable = NsalObj.GetTable("ΙΤΕLINES") επαιξε 'Ομως έχω ακόμη ένα πρόβλημα.
όταν η σειρά έχει SERIES.SOISCONV = 1 δηλ Μόνο από μετασχηματισμό/συνέχεια

δεν περνάει η τιμή σε  NSalDocTable.Current("SERIES") = SafeInt(dtSalDoc(0)!SERIES)

Ευχαριστώ.

[gml...@gmail.com]

Παραθέτω την λυση για όποιον ενδιαφέρεται

Dim sql As String = "UPDATE SERIES SET SOISCONV = 0 WHERE SERIES = 11046"
                Dim affected As Integer = s1Conn.ExecuteSQL(sql)
                'MsgBox("Ενημερώθηκαν σειρές: " & affected)

                'XSupport.CallFunction(s1Conn, "GENERAL", "RefreshMemoryTable", "SERIES")
                Dim xTable = s1Conn.GetMemoryTable("SERIES", True)

                NPurDocTable.Current("SERIES") = SafeInt(dtSalDoc(0)!SERIES) '11046 'CInt(SalDocTable.Current("SERIES"))
                sql = "UPDATE SERIES SET SOISCONV = 1 WHERE SERIES = 11046"
                affected = s1Conn.ExecuteSQL(sql)
                xTable = s1Conn.GetMemoryTable("SERIES", True)