TECHASHUS - SAP - DIAPI - Adding Vendor Master

#Region "Cardcode 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.BusinessPartners

        v_BoolIncPaymt = False

        v_BpCode = "AS1234"
        v_BpName = "TestCust10"

        '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.oBusinessPartners)
            oIncomePyment.CardCode = v_BpCode
            oIncomePyment.CardName = v_BpName
            oIncomePyment.CardType = SAPbobsCOM.BoCardTypes.cCustomer
            oIncomePyment.GroupCode = "100"
            oIncomePyment.FiscalTaxID.TaxId0 = "1234567890"
            oIncomePyment.SubjectToWithholdingTax = SAPbobsCOM.BoYesNoEnum.tNO
            '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"

            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