In Sap B1 9.0 Inventory Transfer Posting Issue On Bin Location With Serial No

[Former Member]

Dear All,

In Sap B1 9.0

Inventory Transfer Posting Can be Done Normal and  Serial No Item.

While Inventory Transfer Bin Location Also Posted Successfully,

But Serial No Plus Bin Location Posting m Get Struggling

Please Any One Help Me.

Thanks in Advance

[Former Member]

Could you check your serial No is duplicated?

[Former Member]

Bin Location Wise Posting No Error.

Serial No Wise Posting No Error.

While combine Posting Of these Two i get Trouble..

Errors are -

Enter Positive Value

-2035 :  [WTR1.WhsCode][line: 1] , 'This entry already exists in the following tables (ODBC -2035)'

Could Share any thing Related To Posting..

Kindly Let me knw..

[Former Member]

Checking this line:

          oStock.Lines.BinAllocations.SerialAndBatchNumbersBaseLine = A

     BaseLine mean line of current Serial ,

[Former Member]

Dear Toan Vo

iLineNo1 is FirstLine of Serial No

  Dim iLineNo1 As Integer = 0

                                    Dim A1 As String = rsetBill.Fields.Item(0).Value

                                    Dim A3 As String = oMatrixBin.Columns.Item("qty").Cells.Item(D).Specific.value()

                                    For A As Integer = 1 To oMatrixBin.Columns.Item("qty").Cells.Item(D).Specific.value()

                                        oStock.Lines.SerialNumbers.SystemSerialNumber = oMatrixSub.Columns.Item("SysSerial").Cells.Item(A).Specific.value

                                        oStock.Lines.SerialNumbers.ManufacturerSerialNumber = oMatrixSub.Columns.Item("SerialNo").Cells.Item(A).Specific.value

                                        oStock.Lines.SerialNumbers.InternalSerialNumber = oMatrixSub.Columns.Item("SerialNo").Cells.Item(A).Specific.value

                                        oStock.Lines.BinAllocations.SerialAndBatchNumbersBaseLine = iLineNo1

                                        oStock.Lines.BinAllocations.BinActionType = SAPbobsCOM.BinActionTypeEnum.batToWarehouse

                                        oStock.Lines.BinAllocations.BinAbsEntry = rsetBill.Fields.Item(0).Value

                                        oStock.Lines.BinAllocations.Quantity = "1"

                                        oStock.Lines.BinAllocations.Add()

                                        oStock.Lines.SerialNumbers.SetCurrentLine(iLineNo)

                                        oStock.Lines.SerialNumbers.Add()

                                        ' oStock.Lines.BinAllocations.Add()

                                        iLineNo1 += 1

                                    Next

[kothandaraman_nagarajan]

Hi,

Please share if any error message.

Thanks

[Former Member]

This is my Error

-2035 :  [WTR1.WhsCode][line: 1] , 'This entry already exists in the following tables (ODBC -2035)'

For Using This Code.

For A As Integer = 1 To oMatrixBin.Columns.Item("qty").Cells.Item(D).Specific.value

                                        '  If oMatrixSub.Columns.Item("itemcode").Cells.Item(A).Specific.value = oMatrix.Columns.Item("itemcode").Cells.Item(i).Specific.value Then

                                        '  oStock.Lines.SerialNumber.Insert(1, 898)

                                        'oStock.Lines.FromWarehouseCode = oMatrix.Columns.Item("frmwhscode").Cells.Item(i).Specific.value

                                        'oStock.Lines.WarehouseCode = oMatrix.Columns.Item("towhscode").Cells.Item(i).Specific.value

                                        oStock.Lines.SerialNumbers.SystemSerialNumber = oMatrixSub.Columns.Item("SysSerial").Cells.Item(A).Specific.value

                                        oStock.Lines.SerialNumbers.ManufacturerSerialNumber = oMatrixSub.Columns.Item("SerialNo").Cells.Item(A).Specific.value

                                        oStock.Lines.SerialNumbers.InternalSerialNumber = oMatrixSub.Columns.Item("SerialNo").Cells.Item(A).Specific.value

                                        oStock.Lines.BinAllocations.BinActionType = SAPbobsCOM.BinActionTypeEnum.batToWarehouse

                                        oStock.Lines.BinAllocations.BinAbsEntry = rsetBill.Fields.Item(0).Value

                                        Dim Qty2 As String = oMatrixBin.Columns.Item("qty").Cells.Item(D).Specific.value

                                        oStock.Lines.BinAllocations.Quantity = oMatrixBin.Columns.Item("qty").Cells.Item(D).Specific.value

                                        oStock.Lines.BinAllocations.SerialAndBatchNumbersBaseLine = A

                                        oStock.Lines.SerialNumbers.SetCurrentLine(iLineNo)

                                        oStock.Lines.SerialNumbers.Add()

                                        iLineNo1 += 1

                                    Next