Purchase Order Coding

Question

Hi All,
             iam developing a webservice using DI-server in my asp.net application to access my sap company DB.now i have to create a purchase order...can anybody give me some web service coding about how to create a purchase order.....(like creating new customers & updating them...)
Regads,
Shangai.

Answer 1

Hi Shangai
Below is my sample code about how to add a jornal voucher via DIServer.
You can add a purchase order in the similar way,the only thing need to be changed is
the SOAP message format.
    ' add journal voucher
    '<WebMethod()> Public Function AddJV(ByVal SessionID As String, _
    '                                    ByVal xmlJVObject As String) As Xml.XmlDocument
    <WebMethod()> Public Function AddJV(ByVal SessionID As String) As Xml.XmlDocument
        Dim n As SBODI_Server.Node
        Dim s, sCmd As String
        Dim d As Xml.XmlDocument
        d = New Xml.XmlDocument
        n = New SBODI_Server.Node
        sCmd = "<?xml version=""1.0"" encoding=""UTF-16""?> "
        sCmd += "<env:Envelope xmlns:env=""http://schemas.xmlsoap.org/soap/envelope/""> "
        sCmd += " <env:Header> "
        sCmd += "<SessionID>" & CStr(SessionID) & "</SessionID>"
        sCmd += " </env:Header> "
        sCmd += " <env:Body> "
        sCmd += "<dis:AddObject xmlns:dis=""http://www.sap.com/SBO/DIS"" > "
        sCmd += "<BOM>"
        sCmd += "<BO>"
        sCmd += "<AdmInfo>"
        sCmd += "<Object>oJournalVouchers</Object> "
        sCmd += "</AdmInfo> "
        sCmd += "<JournalEntries>"
        sCmd += "<Row>"
        sCmd += "<ReferenceDate></ReferenceDate>"
        sCmd += "<Memo>TEST</Memo>"
        sCmd += "<DueDate>20080325</DueDate>"
        sCmd += "</Row>"
        sCmd += "</JournalEntries> "
        sCmd += "<JournalEntries_Lines> "
        sCmd += "<Row>"
        sCmd += "<AccountCode>111101</AccountCode> "
        sCmd += "<Debit>100</Debit>"
        sCmd += "</Row>"
        sCmd += "<Row>"
        sCmd += "<AccountCode>111101</AccountCode>"
        sCmd += "<Credit>100</Credit>"
        sCmd += "</Row>"
        sCmd += "</JournalEntries_Lines>"
        sCmd += "</BO> "
        sCmd += "</BOM> "
        sCmd += "</dis:AddObject> "
        sCmd += " </env:Body> "
        sCmd += "</env:Envelope> "
        s = n.Interact(sCmd)
        d.LoadXml(s)
        Return (RemoveEnv(d))
    End Function
I posted the xml template format of purchase order here.
  <?xml version="1.0" encoding="utf-8" ?>
- <BOM>
- <BO>
- <AdmInfo>
  <Object>oDocuments</Object>
  </AdmInfo>
- <QueryParams>
  <DocEntry />
  </QueryParams>
- <Documents>
- <row>
  <DocNum />
  <DocType />
  <HandWritten />
  <Printed />
  <DocDate />
  <DocDueDate />
  <CardCode />
  <CardName />
  <Address />
  <NumAtCard />
  <DocCurrency />
  <DocRate />
  <DocTotal />
  <Reference1 />
  <Reference2 />
  <Comments />
  <JournalMemo />
  <PaymentGroupCode />
  <DocTime />
  <SalesPersonCode />
  <TransportationCode />
  <Confirmed />
  <ImportFileNum />
  <SummeryType />
  <ContactPersonCode />
  <ShowSCN />
  <Series />
  <TaxDate />
  <PartialSupply />
  <DocObjectCode />
  <ShipToCode />
  <Indicator />
  <FederalTaxID />
  <DiscountPercent />
  <PaymentReference />
  <Form1099 />
  <Box1099 />
  <RevisionPo />
  <RequriedDate />
  <CancelDate />
  <BlockDunning />
  <Pick />
  <PaymentMethod />
  <PaymentBlock />
  <PaymentBlockEntry />
  <CentralBankIndicator />
  <MaximumCashDiscount />
  <Project />
  <ExemptionValidityDateFrom />
  <ExemptionValidityDateTo />
  <WareHouseUpdateType />
  <Rounding />
  <ExternalCorrectedDocNum />
  <InternalCorrectedDocNum />
  <DeferredTax />
  <TaxExemptionLetterNum />
  <AgentCode />
  <NumberOfInstallments />
  <ApplyTaxOnFirstInstallment />
  <VatDate />
  <DocumentsOwner />
  <FolioPrefixString />
  <FolioNumber />
  <DocumentSubType />
  <BPChannelCode />
  <BPChannelContact />
  <Address2 />
  <PayToCode />
  <ManualNumber />
  <UseShpdGoodsAct />
  <IsPayToBank />
  <PayToBankCountry />
  <PayToBankCode />
  <PayToBankAccountNo />
  <PayToBankBranch />
  <BPL_IDAssignedToInvoice />
  <DownPayment />
  <LanguageCode />
  <TrackingNumber />
  <PickRemark />
  <ClosingDate />
  <SequenceCode />
  <SequenceSerial />
  <SeriesString />
  <SubSeriesString />
  <SequenceModel />
  <UseCorrectionVATGroup />
  <VatPercent />
  </row>
  </Documents>
- <Document_Lines>
- <row>
  <LineNum />
  <ItemCode />
  <ItemDescription />
  <Quantity />
  <ShipDate />
  <Price />
  <PriceAfterVAT />
  <Currency />
  <Rate />
  <DiscountPercent />
  <VendorNum />
  <SerialNum />
  <WarehouseCode />
  <SalesPersonCode />
  <CommisionPercent />
  <TreeType />
  <AccountCode />
  <UseBaseUnits />
  <SupplierCatNum />
  <CostingCode />
  <ProjectCode />
  <BarCode />
  <VatGroup />
  <Height1 />
  <Hight1Unit />
  <Height2 />
  <Height2Unit />
  <Lengh1 />
  <Lengh1Unit />
  <Lengh2 />
  <Lengh2Unit />
  <Weight1 />
  <Weight1Unit />
  <Weight2 />
  <Weight2Unit />
  <Factor1 />
  <Factor2 />
  <Factor3 />
  <Factor4 />
  <BaseType />
  <BaseEntry />
  <BaseLine />
  <Volume />
  <VolumeUnit />
  <Width1 />
  <Width1Unit />
  <Width2 />
  <Width2Unit />
  <Address />
  <TaxCode />
  <TaxType />
  <TaxLiable />
  <BackOrder />
  <FreeText />
  <ShippingMethod />
  <CorrectionInvoiceItem />
  <CorrInvAmountToStock />
  <CorrInvAmountToDiffAcct />
  <WTLiable />
  <DeferredTax />
  <NetTaxAmount />
  <NetTaxAmountFC />
  <LineTotal />
  <TaxPercentagePerRow />
  <ConsumerSalesForecast />
  <ExciseAmount />
  <CountryOrg />
  <SWW />
  <TransactionType />
  <DistributeExpense />
  <ShipToCode />
  <RowTotalFC />
  <CFOPCode />
  <CSTCode />
  <Usage />
  <TaxOnly />
  <UnitPrice />
  <LineStatus />
  <LineType />
  <COGSCostingCode />
  <COGSAccountCode />
  <ChangeAssemlyBoMWarehouse />
  <U_BLD_LyID />
  <U_BLD_NCps />
  </row>
  </Document_Lines>
- <Document_LinesAdditionalExpenses>
- <row>
  <LineNumber />
  <GroupCode />
  <ExpenseCode />
  <LineTotal />
  <TaxLiable />
  <VatGroup />
  <TaxPercent />
  <TaxSum />
  <DeductibleTaxSum />
  <TaxCode />
  <TaxType />
  <EqualizationTaxPercent />
  <EqualizationTaxSum />
  <WTLiable />
  <BaseGroup />
  </row>
  </Document_LinesAdditionalExpenses>
- <WithholdingTaxLines>
- <row>
  <WTCode />
  <WTAmountSys />
  <WTAmountFC />
  <WTAmount />
  <TaxableAmountinSys />
  <TaxableAmountFC />
  <TaxableAmount />
  <AppliedWTAmountSys />
  <AppliedWTAmountFC />
  <AppliedWTAmount />
  <BaseDocEntry />
  <BaseDocLine />
  <BaseDocType />
  </row>
  </WithholdingTaxLines>
- <SerialNumbers>
- <row>
  <ManufacturerSerialNumber />
  <InternalSerialNumber />
  <ExpiryDate />
  <ManufactureDate />
  <ReceptionDate />
  <WarrantyStart />
  <WarrantyEnd />
  <Location />
  <Notes />
  <BatchID />
  <SystemSerialNumber />
  <BaseLineNumber />
  </row>
  </SerialNumbers>
- <BatchNumbers>
- <row>
  <BatchNumber />
  <ManufacturerSerialNumber />
  <InternalSerialNumber />
  <ExpiryDate />
  <ManufacturingDate />
  <AddmisionDate />
  <Location />
  <Notes />
  <Quantity />
  <BaseLineNumber />
  </row>
  </BatchNumbers>
- <DocumentsAdditionalExpenses>
- <row>
  <ExpenseCode />
  <LineTotal />
  <Remarks />
  <DistributionMethod />
  <TaxLiable />
  <VatGroup />
  <TaxPercent />
  <TaxSum />
  <DeductibleTaxSum />
  <TaxCode />
  <TaxType />
  <EqualizationTaxPercent />
  <EqualizationTaxSum />
  <BaseDocEntry />
  <BaseDocLine />
  <BaseDocType />
  <LastPurchasePrice />
  <Stock />
  <WTLiable />
  </row>
  </DocumentsAdditionalExpenses>
- <WithholdingTaxData>
- <row>
  <WTCode />
  <WTAmountSys />
  <WTAmountFC />
  <WTAmount />
  <TaxableAmountinSys />
  <TaxableAmountFC />
  <TaxableAmount />
  <AppliedWTAmountSys />
  <AppliedWTAmountFC />
  <AppliedWTAmount />
  <BaseDocEntry />
  <BaseDocLine />
  <BaseDocType />
  </row>
  </WithholdingTaxData>
- <TaxExtension>
- <row>
  <TaxId0 />
  <TaxId1 />
  <TaxId2 />
  <TaxId3 />
  <TaxId4 />
  <TaxId5 />
  <TaxId6 />
  <TaxId7 />
  <TaxId8 />
  <TaxId9 />
  <State />
  <County />
  <Incoterms />
  <Vehicle />
  <VehicleState />
  <NFRef />
  <Carrier />
  <PackQuantity />
  <PackDescription />
  <Brand />
  <ShipUnitNo />
  <NetWeight />
  <GrossWeight />
  <StreetS />
  <BlockS />
  <BuildingS />
  <CityS />
  <ZipCodeS />
  <CountyS />
  <StateS />
  <CountryS />
  <StreetB />
  <BlockB />
  <BuildingB />
  <CityB />
  <ZipCodeB />
  <CountyB />
  <StateB />
  <CountryB />
  </row>
  </TaxExtension>
  </BO>
  </BOM>
You can also get the template by GetBusinessObjectTemplate method.(oPurchaseOrders)
<WebMethod()> Public Function GetTemplate(ByVal SessionID As String, ByVal ObjectType As String) As Xml.XmlDocument
        Dim n As SBODI_Server.Node
        Dim s, strXML As String
        Dim d As Xml.XmlDocument
        d = New Xml.XmlDocument
        n = New SBODI_Server.Node
        strXML = "<?xml version=""1.0"" encoding=""UTF-16""?>" & _
        "<env:Envelope xmlns:env=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
        "<env:Header>" & _
        "<SessionID>" & CStr(SessionID) & "</SessionID>" & _
        "</env:Header>" & _
        "<env:Body>" & _
        "<dis:GetBusinessObjectTemplate xmlns:dis=""http://www.sap.com/SBO/DIS"">" & _
        "<Object>" & CStr(ObjectType) & "</Object>" & _
        "</dis:GetBusinessObjectTemplate>" & _
         "</env:Body></env:Envelope>"
        s = n.Interact(strXML)
        d.LoadXml(s)
        Return (RemoveEnv(d))
    End Function