Skip to Content
0
Former Member
Dec 01, 2011 at 07:47 AM

Approval procedure in Add On

76 Views

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.