Problem in Creating Sales Order From One DB to another DB

Question

Hello All,
I am trying to create a Sales Order in another database from the current database based on the Purchase Order but while creating the sales order system is throwing an error " In "To Whse" enter valid values [ZAPp 0] "
My Code for Creating Sales Order in another DB are as follows :-
             '==== Connect To another SAP Company ====='
            '=====================================
            Dim oCompany_DB As New SAPbobsCOM.Company
            oCompany_DB.Server = "OSL_SERVER"
            oCompany_DB.LicenseServer = "OSL_SERVER"
            oCompany_DB.UseTrusted = False
            oCompany_DB.CompanyDB = Database_Name
            oCompany_DB.UserName = SAPUserName
            oCompany_DB.Password = SAPPassword
            oCompany_DB.DbUserName = DBUserName
            oCompany_DB.DbPassword = DBPassword
            oCompany_DB.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2005
            lRetCode = oCompany_DB.Connect()
            If lRetCode <> 0 Then
                oCompany_DB.GetLastError(lErrCode, sErrMsg)
                If (lErrCode <> -4006) Then
                    Class_InterCmp_Main.SBO_Application.MessageBox(sErrMsg)
                End If
            End If
'===== Creating the Sales Order ====='
'================================
  Dim oOrder As SAPbobsCOM.Documents = oCompany_DB.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
            Dim DocDueDate As String = oRecord.Fields.Item("DocDueDate").Value
            oOrder.DocDueDate = DocDueDate
            oOrder.CardCode = Customer
  While Not oRecord.EoF
                Dim ItemCode As String = oRecord.Fields.Item("ItemCode").Value
                Dim WhsCode As String = oRecord.Fields.Item("WhsCode").Value
                Dim Quantity As Double = oRecord.Fields.Item("Quantity").Value
                Dim Price As Double = oRecord.Fields.Item("Price").Value
                Dim Discnt As Double = oRecord.Fields.Item("DiscPrcnt").Value
                Dim TaxCode As String = oRecord.Fields.Item("TaxCode").Value
                oOrder.Lines.ItemCode = ItemCode
                oOrder.Lines.WarehouseCode = WhsCode
                oOrder.Lines.Quantity = Quantity
                oOrder.Lines.Price = Price
                oOrder.Lines.DiscountPercent = Discnt
                oOrder.Lines.TaxCode = TaxCode
                oOrder.Lines.Add()
                oRecord.MoveNext()
            End While
            lRetCode = oOrder.Add
            '=== Check For Error if any ===='
            If lRetCode <> 0 Then
                oCompany_DB.GetLastError(lErrCode, sErrMsg)
                If (lErrCode <> -4006) Then
                    Class_InterCmp_Main.SBO_Application.MessageBox(sErrMsg)
                End If
            End If
            oCompany_DB.Disconnect()
When i execute the above code company gets connected but sales order not getting added in another company.
Thanks,
Amit

Answer 1

You can not do it the alternate way Kevin suggests, direct DB inserts are prohibited by SAP and can corrupt your DB, particularly because unlike what most people think, all SAP documents affect more than just their own tables (e.g. the numbering table, the history tables).
Are you getting any error message, or is it returning 0?
If it is returning 0, then check is the document actually going to the newly created database or maybe somehow going to old one.
If it isn't returning 0, what is the error code and message.
Edit:
Also I do see an error in your code. As it stands, you are adding an empty line to the end of every order. This can cause problems for SAP.
Dim counter As Integer = 0
If counter <> 0 Then 'Not equals 0, forum hides lt & gt symbols.
oOrder.Lines.Add()
End If
counter = counter + 1
oOrder.Lines.ItemCode = ItemCode
oOrder.Lines.WarehouseCode = WhsCode
oOrder.Lines.Quantity = Quantity
oOrder.Lines.Price = Price
oOrder.Lines.DiscountPercent = Discnt
oOrder.Lines.TaxCode = TaxCode
Edited by: njmog1 on May 9, 2011 10:14 AM