How to add Purchase Order entry using B1WS?

Question

Hi,
I have implemented B1WS in DI server, I am trying to add purchase order entry, but after adding it via B1WS, I am not able to find entry in SAP;
My code using B1WS:
public void SAPPurchaseOrder(string _SID)
            _PIService = new PurchaseInvoicesService();
            Document doc = new Document();
            doc.Address ="ab";
            doc.AgentCode = "ab";
            doc.BaseAmountSCSpecified = false;
            doc.CardCode = "VEND7";
            doc.CardName = "Baker & Taylor";
            doc.DocDate = DateTime.Now.Date;
            doc.CreationDate = DateTime.Now.Date;
            doc.DocType = DocumentDocType.dDocument_Items;
            doc.DocumentStatus = DocumentDocumentStatus.bost_Open;
            doc.BaseAmount = 100000;
            doc.DocCurrency = "USD";
            MsgHeader msgHeader = new MsgHeader();
            msgHeader.SessionID = _SID;
            msgHeader.ServiceName = MsgHeaderServiceName.PurchaseInvoicesService;
            msgHeader.ServiceNameSpecified = true;
            _PIService.MsgHeaderValue = msgHeader;
            _PIService.Add(doc);
Also, I found error while I have use "ADD FUNCTION" as;
can not empty list of tables, doc1, doc3 and doc10
Please suggest me a proper entry flow or code to implement.
Thank you.
Piyush
(Rob IT team - Parabox Media Group)

Answer 1

Hello,
Just like DI API, you need add doc lines to purcahse order, here is a sample to add a purchase order.
Public Function Add() As DocumentParams
            Dim myPOParams As DocumentParams = Nothing
            Try               
                ' Create Input parameters
                Dim poDoc As Document = New Document
                poDoc.DocDueDate = Date.Now
                poDoc.CardCode = "V10000"
                Dim docLine1 As DocumentDocumentLine = New DocumentDocumentLine
                docLine1.ItemCode = "A00001"
                docLine1.Quantity = 1
                docLine1.TaxCode = "NY"
                poDoc.DocumentLines = Array.CreateInstance(docLine1.GetType(), 2)
                poDoc.DocumentLines.SetValue(docLine1, 0)
                Dim docLine2 As DocumentDocumentLine = New DocumentDocumentLine
                docLine2.ItemCode = "A00002"
                docLine2.Quantity = 1
                docLine2.TaxCode = "NY"
                poDoc.DocumentLines.SetValue(docLine2, 1)
                ' Create Service
                myPOService = New PurchaseOrdersService
                ' Create Header
                Dim msgHeader As MsgHeader = New MsgHeader()
                msgHeader.SessionID = GlbData.sessionID
                msgHeader.ServiceName = MsgHeaderServiceName.PurchaseOrdersService
                msgHeader.ServiceNameSpecified = True
                myPOService.MsgHeaderValue = msgHeader
                ' Call command with output return
                myPOParams = myPOService.Add(poDoc)
                MsgBox("Purhcase Order added: " + myPOParams.DocEntry.ToString(), MsgBoxStyle.DefaultButton2)
            Catch ex As System.Exception
                MsgBox(ex.Message, MsgBoxStyle.DefaultButton2)
            End Try
            Return myPOParams
        End Function
Kind Regards
-Yatsea