TECHASUS - SAP - DIAPI - Adding Invoice

#Region "Invoice auto entry "
    Private Sub CreateIncomingPaymentTest(ByVal objForm As SAPbouiCOM.Form)

         Dim v_duedate, v_paymentp, v_BpCode, v_BpName, v_chkdate, V_PdcDate, 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 = "CA001"
        v_BpName = "PROPEL INDIA LTD"

        V_PdcNo = "1001"
        V_PdcDate = "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.oInvoices)

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


            oIncomePyment.Lines.ItemCode = "PL001"
            oIncomePyment.Lines.Quantity = 11
            '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