Dear All
In SAP B1 new version 8.82 have approval procedure. please help me a question below:
In SAP. user account 01 create A/R credit memo DocNo(01) --> it save approval pending.
user manager --> approval A/R credit memo DocNo(01) --> A/R credit memo DocNo(01) is created. --> End process. --> success.
In Add On. I use account: user account 01 Create A/R credit memo DocNo(02) -> it save --> A/R credit memo DocNo(02) is created. -->End process. --> no success with approval procedure
I want to Add On with approval procedure the same as in SAP
And Add On Code below:
'----
Input A/R invoice with Object = 13, DocEntry
> to add A/R Credit memo
> no success with approval procedure
Public Function SO_Return(ByVal DocEntry As Integer, ByVal ObjType As Integer) As Integer
Dim i As Integer = -1
Try
Dim oObj As SAPbobsCOM.Documents
If ObjType = 13 Then
oObj = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
' set properties of the Order object
oObj.GetByKey(DocEntry)
Dim oARCreditMemo As SAPbobsCOM.Documents
oARCreditMemo = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oCreditNotes)
oARCreditMemo.CardCode = oObj.CardCode
oARCreditMemo.DocDueDate = oObj.DocDueDate
oARCreditMemo.NumAtCard = oObj.NumAtCard
If oObj.Lines.Count = 1 Then
oARCreditMemo.Lines.ItemCode = oObj.Lines.ItemCode
oARCreditMemo.Lines.Quantity = oObj.Lines.Quantity
oARCreditMemo.Lines.Price = oObj.Lines.Price
oARCreditMemo.Lines.BaseEntry = DocEntry
oARCreditMemo.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oInvoices
oARCreditMemo.Lines.BaseLine = 0 'first line
Else
MessageBox.Show("A/R Invoice have " + oObj.Lines.ItemCode.ToString() + " rows, don't return. if want, use SAP.")
Return i
End If
i = oARCreditMemo.Add
End If
Return i
End Function
'----
it add success but don't approval procedure
This code is no success with approval procedure. Please help me.
Thanks.