TECHASHUS - SAP - DIAPI - Adding Goods Receipt Note

#Region "GRN auto entry "
    Private Sub CreateIncomingPaymentTest(ByVal objForm As SAPbouiCOM.Form)
        Dim v_duedate, v_paymentp, v_BpCode, v_BpName, v_chkdate, V_DocDate, V_Bank, V_Acc, V_Branch, V_PdcNo As String
        Dim v_TotCashAmt, v_row, v_ChkAmt As Integer
        Dim v_checknumber As Integer
        Dim V_CHECSUM, v_totalcheckamt As Double
        Dim v_rowId As Integer
        Dim v_strpaymentNo, v_obbalnstr As String
        Dim v_Docentry As Integer
        Dim oIncomePyment As SAPbobsCOM.Documents

        v_BoolIncPaymt = False
        v_BpCode = "SA001"
        v_BpName = "XYZ Supplier"
        'V_PdcNo = "1001"
        V_DocDate = "2017-11-17"
        'V_Acc = "1022001"
        'V_Bank = "HDFC"
        'v_totalcheckamt = 5000
        'v_checknumber = 1234567
        'v_chkdate = "2017-11-17"
        'V_CHECSUM = 315

        Try
            oIncomePyment = objSBOAPI.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes)

            oIncomePyment.CardCode = v_BpCode
            oIncomePyment.CardName = v_BpName
            'oIncomePyment.Comments = "Based on PDC No:" & V_PdcNo
            oIncomePyment.DocDate = V_DocDate
            oIncomePyment.DocDueDate = V_DocDate


            oIncomePyment.Lines.ItemCode = "PL001"
            oIncomePyment.Lines.Quantity = 33
            'oIncomePyment.Lines.Price = 1
            oIncomePyment.Lines.LineTotal = 100
            oIncomePyment.Lines.TaxCode = "CST@4"
            'oIncomePyment.Lines.WarehouseCode = "01"
            oIncomePyment.Lines.Add()



            If oIncomePyment.Add() <> 0 Then
                v_BoolIncPaymt = False
                strErrorMsg = ("Error / " & objSBOAPI.oCompany.GetLastErrorDescription)
                objSBOAPI.SBO_Appln.StatusBar.SetText(strErrorMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
                Exit Sub
                '   objMatrix.Columns.Item("V_8").Cells.Item(i).Specific.string = ""
            Else
                v_BoolIncPaymt = True
                Dim v_PaymentDocentry As Integer
                v_PaymentDocentry = objSBOAPI.oCompany.GetNewObjectKey()

                'objMatrix.Columns.Item("V_8").Cells.Item(i).Specific.value = v_PaymentDocentry
                'objMatrix.CommonSetting.SetCellEditable(i, 1, False)
                'objMatrix.CommonSetting.SetCellEditable(i, 2, False)

            End If

        Catch ex As Exception
            objSBOAPI.SBO_Appln.StatusBar.SetText(strErrorMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region