попробовал сделать так (использую Visual Studio 2012 Visual Basic)
код такой (мне нужно просто снять с контроля много накопившихся РК за долгие годы):
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
head = CreateObject("eapi.head")
head.OpenWithParamsEx("XX.XX.XX.X\subsidii", "XXX", "XXX", "XXX")
doc = head.GetResultSet
doc.Source = head.GetCriterion("Table")
With doc.Source
.Params("DocKind") = "In"
.Params("Rc.DocDate") = "01/10/2013:01/12/2013"
End With
doc.Fill()
For Each res In doc
If (res.Isn = 48379) Then
ii = 0
'тут можно забрать в класс полученные РК
End If
Next res
proc = head.GetProc("edit_rc")
proc.Parameters.Append(proc.CreateParameter("aIsnDoc", 3, 1, 0, 48379))
proc.Parameters.Append(proc.CreateParameter("aDueCard", 200, 1, 48, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aIsnCab", 3, 1, 0, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aFreeNum", 200, 1, 64, "07-02/43"))
proc.Parameters.Append(proc.CreateParameter("aDocDate", 200, 1, 20, "2013.10.31"))
proc.Parameters.Append(proc.CreateParameter("aSecureLevel", 3, 1, 0, 1))
proc.Parameters.Append(proc.CreateParameter("aConsist", 200, 1, 255, "много"))
proc.Parameters.Append(proc.CreateParameter("aSpecimen", 200, 1, 64, "1"))
proc.Parameters.Append(proc.CreateParameter("aPlanDate", 200, 1, 20, "2013.11.15"))
proc.Parameters.Append(proc.CreateParameter("aFactDate", 200, 1, 20, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aControlState", 3, 1, 0, 2))
proc.Parameters.Append(proc.CreateParameter("aAnnotat", 200, 1, 2000, "Текст РК"))
proc.Parameters.Append(proc.CreateParameter("aNote", 200, 1, 2000, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aDuePersonWho", 200, 1, 48, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aIsnDelivery", 3, 1, 0, 4057329))
proc.Parameters.Append(proc.CreateParameter("aIsCollective", 3, 1, 0, 0))
proc.Parameters.Append(proc.CreateParameter("aIsAnonim", 3, 1, 0, 0))
proc.Parameters.Append(proc.CreateParameter("aDuePersonSign", 200, 1, 48, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aDuePersonExe", 200, 1, 48, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aNothardcopy", 3, 1, 0, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aCito", 3, 1, 0, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aOrderNum", 3, 1, 0, DBNull.Value))
proc.Parameters.Append(proc.CreateParameter("aEDocument", 3, 1, 0, DBNull.Value))
head.ExecuteProc(proc)
Теперь ругается на то что "Поле doc_rc.e_document is not null" ErrCode=-7
