Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : BillMaster.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Data.Common
Imports System.Data
Public Class BillMaster
#Region "Debit Entery"
    Public Shared Function DebitEntryOther(ByVal otherdebitentry_kid As Integer,
                                            ByVal otherdebitentry_region As Decimal, ByVal otherdebitentry_ddutrkid As Integer, ByVal otherdebitentry_ddutrno As String,
                                            ByVal otherdebitentry_debitform As String, ByVal otherdebitentry_accountno As String, ByVal otherdebitentry_beneficiaryname As String,
                                            ByVal otherdebitentry_amount As Decimal, ByVal otherdebitentry_payablelocation As String, ByVal otherdebitentry_paymentmode As String,
                                            ByVal otherdebitentry_postingdate As String, ByVal otherdebitentry_beneficiaryadd1 As String, ByVal otherdebitentry_beneficiaryadd2 As String,
                                            ByVal otherdebitentry_beneficiaryadd3 As String, ByVal otherdebitentry_ifsccode As String, ByVal otherdebitentry_printlocation As String,
                                            ByVal otherdebitentry_mailids As String, ByVal otherdebitentry_dummy As String, ByVal otherdebitentry_ifscvalidation As String,
                                            ByVal otherdebitentry_status As String, ByVal otherdebitentry_enterby As Integer, ByVal otherdebitentry_flag As String,
                                            ByVal otherdebitentry_paymenttype As String, ByVal otherdebitentry_paymenttypename As String, ByVal otherdebitentry_remarks As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_otherdebitentry")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_kid", DbType.Int64, otherdebitentry_kid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_region", DbType.Decimal, otherdebitentry_region)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrkid", DbType.Int64, otherdebitentry_ddutrkid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrno", DbType.String, otherdebitentry_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_debitform", DbType.String, otherdebitentry_debitform)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_accountno", DbType.String, otherdebitentry_accountno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryname", DbType.String, otherdebitentry_beneficiaryname)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_amount", DbType.Decimal, otherdebitentry_amount)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_payablelocation", DbType.String, otherdebitentry_payablelocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymentmode", DbType.String, otherdebitentry_paymentmode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_postingdate", DbType.String, otherdebitentry_postingdate)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd1", DbType.String, otherdebitentry_beneficiaryadd1)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd2", DbType.String, otherdebitentry_beneficiaryadd2)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd3", DbType.String, otherdebitentry_beneficiaryadd3)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifsccode", DbType.String, otherdebitentry_ifsccode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_printlocation", DbType.String, otherdebitentry_printlocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_mailids", DbType.String, otherdebitentry_mailids)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_dummy", DbType.String, otherdebitentry_dummy)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifscvalidation", DbType.String, otherdebitentry_ifscvalidation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_status", DbType.String, otherdebitentry_status)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_enterby", DbType.Int64, otherdebitentry_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_flag", DbType.String, otherdebitentry_flag)

Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymenttype", DbType.Int64, otherdebitentry_paymenttype)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymenttypename", DbType.String, otherdebitentry_paymenttypename)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_remarks", DbType.String, otherdebitentry_remarks)

Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function DebitEntryOtherNonUTR(ByVal otherdebitentry_kid As Integer,
                                            ByVal otherdebitentry_region As Decimal, ByVal otherdebitentry_ddutrkid As Integer, ByVal otherdebitentry_ddutrno As String,
                                            ByVal otherdebitentry_debitform As String, ByVal otherdebitentry_accountno As String, ByVal otherdebitentry_beneficiaryname As String,
                                            ByVal otherdebitentry_amount As Decimal, ByVal otherdebitentry_payablelocation As String, ByVal otherdebitentry_paymentmode As String,
                                            ByVal otherdebitentry_postingdate As String, ByVal otherdebitentry_beneficiaryadd1 As String, ByVal otherdebitentry_beneficiaryadd2 As String,
                                            ByVal otherdebitentry_beneficiaryadd3 As String, ByVal otherdebitentry_ifsccode As String, ByVal otherdebitentry_printlocation As String,
                                            ByVal otherdebitentry_mailids As String, ByVal otherdebitentry_dummy As String, ByVal otherdebitentry_ifscvalidation As String,
                                            ByVal otherdebitentry_status As String, ByVal otherdebitentry_enterby As Integer, ByVal otherdebitentry_flag As String,
                                            ByVal otherdebitentry_paymenttype As String, ByVal otherdebitentry_paymenttypename As String, ByVal otherdebitentry_remarks As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_otherdebitentrynonutr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_kid", DbType.Int64, otherdebitentry_kid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_region", DbType.Decimal, otherdebitentry_region)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrkid", DbType.Int64, otherdebitentry_ddutrkid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrno", DbType.String, otherdebitentry_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_debitform", DbType.String, otherdebitentry_debitform)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_accountno", DbType.String, otherdebitentry_accountno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryname", DbType.String, otherdebitentry_beneficiaryname)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_amount", DbType.Decimal, otherdebitentry_amount)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_payablelocation", DbType.String, otherdebitentry_payablelocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymentmode", DbType.String, otherdebitentry_paymentmode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_postingdate", DbType.String, otherdebitentry_postingdate)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd1", DbType.String, otherdebitentry_beneficiaryadd1)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd2", DbType.String, otherdebitentry_beneficiaryadd2)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd3", DbType.String, otherdebitentry_beneficiaryadd3)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifsccode", DbType.String, otherdebitentry_ifsccode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_printlocation", DbType.String, otherdebitentry_printlocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_mailids", DbType.String, otherdebitentry_mailids)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_dummy", DbType.String, otherdebitentry_dummy)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifscvalidation", DbType.String, otherdebitentry_ifscvalidation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_status", DbType.String, otherdebitentry_status)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_enterby", DbType.Int64, otherdebitentry_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_flag", DbType.String, otherdebitentry_flag)

Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function DebitEntryOtherNonUTRDr(ByVal otherdebitentry_kid As Integer,
                                            ByVal otherdebitentry_region As Decimal, ByVal otherdebitentry_ddutrkid As Integer, ByVal otherdebitentry_ddutrno As String,
                                            ByVal otherdebitentry_debitform As String, ByVal otherdebitentry_accountno As String, ByVal otherdebitentry_beneficiaryname As String,
                                            ByVal otherdebitentry_amount As Decimal, ByVal otherdebitentry_payablelocation As String, ByVal otherdebitentry_paymentmode As String,
                                            ByVal otherdebitentry_postingdate As String, ByVal otherdebitentry_beneficiaryadd1 As String, ByVal otherdebitentry_beneficiaryadd2 As String,
                                            ByVal otherdebitentry_beneficiaryadd3 As String, ByVal otherdebitentry_ifsccode As String, ByVal otherdebitentry_printlocation As String,
                                            ByVal otherdebitentry_mailids As String, ByVal otherdebitentry_dummy As String, ByVal otherdebitentry_ifscvalidation As String,
                                            ByVal otherdebitentry_status As String, ByVal otherdebitentry_enterby As Integer, ByVal otherdebitentry_flag As String,
                                            ByVal otherdebitentry_paymenttype As String, ByVal otherdebitentry_paymenttypename As String, ByVal otherdebitentry_remarks As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_otherdebitentrynonutrdr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_kid", DbType.Int64, otherdebitentry_kid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_region", DbType.Decimal, otherdebitentry_region)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrkid", DbType.Int64, otherdebitentry_ddutrkid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrno", DbType.String, otherdebitentry_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_debitform", DbType.String, otherdebitentry_debitform)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_accountno", DbType.String, otherdebitentry_accountno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryname", DbType.String, otherdebitentry_beneficiaryname)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_amount", DbType.Decimal, otherdebitentry_amount)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_payablelocation", DbType.String, otherdebitentry_payablelocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymentmode", DbType.String, otherdebitentry_paymentmode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_postingdate", DbType.String, otherdebitentry_postingdate)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd1", DbType.String, otherdebitentry_beneficiaryadd1)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd2", DbType.String, otherdebitentry_beneficiaryadd2)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd3", DbType.String, otherdebitentry_beneficiaryadd3)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifsccode", DbType.String, otherdebitentry_ifsccode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_printlocation", DbType.String, otherdebitentry_printlocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_mailids", DbType.String, otherdebitentry_mailids)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_dummy", DbType.String, otherdebitentry_dummy)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifscvalidation", DbType.String, otherdebitentry_ifscvalidation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_status", DbType.String, otherdebitentry_status)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_enterby", DbType.Int64, otherdebitentry_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_flag", DbType.String, otherdebitentry_flag)

Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function DebitEntryOtherDelete(ByVal otherdebitentry_kid As Integer,
                                            ByVal otherdebitentry_region As Integer, ByVal otherdebitentry_ddutrkid As Integer, ByVal otherdebitentry_ddutrno As String,
                                            ByVal otherdebitentry_debitform As String, ByVal otherdebitentry_accountno As String, ByVal otherdebitentry_beneficiaryname As String,
                                            ByVal otherdebitentry_amount As Decimal, ByVal otherdebitentry_payablelocation As String, ByVal otherdebitentry_paymentmode As String,
                                            ByVal otherdebitentry_postingdate As String, ByVal otherdebitentry_beneficiaryadd1 As String, ByVal otherdebitentry_beneficiaryadd2 As String,
                                            ByVal otherdebitentry_beneficiaryadd3 As String, ByVal otherdebitentry_ifsccode As String, ByVal otherdebitentry_printlocation As String,
                                            ByVal otherdebitentry_mailids As String, ByVal otherdebitentry_dummy As String, ByVal otherdebitentry_ifscvalidation As String,
                                            ByVal otherdebitentry_status As String, ByVal otherdebitentry_enterby As Integer, ByVal otherdebitentry_flag As String,
                                            ByVal otherdebitentry_paymenttype As String, ByVal otherdebitentry_paymenttypename As String, ByVal otherdebitentry_remarks As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_otherdebitentry")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_kid", DbType.Int64, otherdebitentry_kid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_region", DbType.Int64, otherdebitentry_region)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrkid", DbType.Int64, otherdebitentry_ddutrkid)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ddutrno", DbType.String, otherdebitentry_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_debitform", DbType.String, otherdebitentry_debitform)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_accountno", DbType.String, otherdebitentry_accountno)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryname", DbType.String, otherdebitentry_beneficiaryname)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_amount", DbType.Decimal, otherdebitentry_amount)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_payablelocation", DbType.String, otherdebitentry_payablelocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_paymentmode", DbType.String, otherdebitentry_paymentmode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_postingdate", DbType.String, otherdebitentry_postingdate)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd1", DbType.String, otherdebitentry_beneficiaryadd1)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd2", DbType.String, otherdebitentry_beneficiaryadd2)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_beneficiaryadd3", DbType.String, otherdebitentry_beneficiaryadd3)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifsccode", DbType.String, otherdebitentry_ifsccode)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_printlocation", DbType.String, otherdebitentry_printlocation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_mailids", DbType.String, otherdebitentry_mailids)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_dummy", DbType.String, otherdebitentry_dummy)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_ifscvalidation", DbType.String, otherdebitentry_ifscvalidation)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_status", DbType.String, otherdebitentry_status)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_enterby", DbType.Int64, otherdebitentry_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@otherdebitentry_flag", DbType.String, otherdebitentry_flag)

Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
#End Region
#Region "Company Code"
    Public Shared Function CompanyCodeFyrInsert(ByVal action As String, ByVal FYR As String, ByVal FYR1 As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iCustMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_newcccodefyr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, action)
        Connection.dbase.AddInParameter(dbCommand, "@FYR", DbType.String, FYR)
        Connection.dbase.AddInParameter(dbCommand, "@FYR1", DbType.String, FYR1)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '  iCustMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@cust_kid"))
        Return Nothing
        ' Return Nothing
    End Function
    Public Shared Function CompanyCodeInsert(ByVal action As String, ByVal cc_id As Decimal, ByVal cc_type As String, ByVal cc_code As String, ByVal cc_desc As String, ByVal cc_flax_02 As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iCustMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_companycode")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, action)
        Connection.dbase.AddInParameter(dbCommand, "@cc_id", DbType.Decimal, cc_id)
        Connection.dbase.AddInParameter(dbCommand, "@cc_type", DbType.String, cc_type)
        Connection.dbase.AddInParameter(dbCommand, "@cc_code", DbType.String, cc_code)
        Connection.dbase.AddInParameter(dbCommand, "@cc_desc", DbType.String, cc_desc)
        Connection.dbase.AddInParameter(dbCommand, "@cc_flax_02", DbType.String, cc_flax_02)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '  iCustMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@cust_kid"))
        Return Nothing
        ' Return Nothing
    End Function
    Public Shared Function CompanyCodeUpdate(ByVal action As String, ByVal cc_id As Decimal, ByVal cc_type As String, ByVal cc_code As String, ByVal cc_desc As String, ByVal cc_flax_02 As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iCustMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_companycode")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, action)
        Connection.dbase.AddInParameter(dbCommand, "@cc_id", DbType.Decimal, cc_id)
        Connection.dbase.AddInParameter(dbCommand, "@cc_type", DbType.String, cc_type)
        Connection.dbase.AddInParameter(dbCommand, "@cc_code", DbType.String, cc_code)
        Connection.dbase.AddInParameter(dbCommand, "@cc_desc", DbType.String, cc_desc)
        Connection.dbase.AddInParameter(dbCommand, "@cc_flax_02", DbType.String, cc_flax_02)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '  iCustMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@cust_kid"))
        Return Nothing
        ' Return Nothing
    End Function
#End Region
#Region "Expense Master"
    Public Shared Function UpdateExpDeduction(ByVal expensedetail_kid As Decimal, ByVal expensedetail_location As Decimal, ByVal expensedetail_billmaster As Decimal) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensedetaildeduction")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATEDEDUCTION")
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_kid", DbType.Decimal, expensedetail_kid)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_location", DbType.Decimal, expensedetail_location)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_billmaster", DbType.Decimal, expensedetail_billmaster)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ExpenseDetailsUpdateDeduction(ByVal expensedetail_location As Decimal, ByVal expensedetail_billmaster As Decimal) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensedetaildeduction")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@expensedetail_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_location", DbType.Decimal, expensedetail_location)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_billmaster", DbType.Decimal, expensedetail_billmaster)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ExpenseDetailsInsert(ByVal expensedetail_location As Integer, ByVal expensedetail_billmaster As Integer, ByVal expensedetail_itemname As String, ByVal expensedetail_hsncode As String, ByVal expensedetail_customer As Integer, ByVal expensedetail_customername As String,
                                             ByVal expensedetail_amount As Decimal, ByVal expensedetail_qty As Decimal, ByVal expensedetail_igst As Decimal, ByVal expensedetail_cgst As Decimal, ByVal expensedetail_sgst As Decimal, ByVal expensedetail_cby As Integer, ByVal expensedetail_status As String, ByVal expensedetail_flag As String, ByVal expensedetail_tds As Decimal, ByVal expensedetail_indusid As String, ByVal expensedetail_sitename As String, ByVal expensedetail_head As Decimal, ByVal expensedetail_headname As String, ByVal expensedetail_billno As String, ByVal expensedetail_date As Date, ByVal expensedetail_ramarks As String, ByVal expensedetail_billcopy As String,
                                             ByVal expensedetail_exptype As Decimal, ByVal expensedetail_exptypename As String, ByVal expensedetail_pono As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensedetail")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@expensedetail_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_location", DbType.Int32, expensedetail_location)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_billmaster", DbType.Int32, expensedetail_billmaster)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_itemname", DbType.String, expensedetail_itemname)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_hsncode", DbType.String, expensedetail_hsncode)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_customer", DbType.Int32, expensedetail_customer)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_customername", DbType.String, expensedetail_customername)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_amount", DbType.Decimal, expensedetail_amount)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_qty", DbType.Decimal, expensedetail_qty)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_igst", DbType.Decimal, expensedetail_igst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_cgst", DbType.Decimal, expensedetail_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_sgst", DbType.Decimal, expensedetail_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_cby", DbType.Int32, expensedetail_cby)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_status", DbType.String, expensedetail_status)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_flag", DbType.String, expensedetail_flag)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_tds", DbType.Decimal, expensedetail_tds)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_indusid", DbType.String, expensedetail_indusid)

Connection.dbase.AddInParameter(dbCommand, "@expensedetail_sitename", DbType.String, expensedetail_sitename)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_head", DbType.Decimal, expensedetail_head)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_headname", DbType.String, expensedetail_headname)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_billno", DbType.String, expensedetail_billno)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_date", DbType.Date, expensedetail_date)

Connection.dbase.AddInParameter(dbCommand, "@expensedetail_ramarks", DbType.String, expensedetail_ramarks)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_billcopy", DbType.String, expensedetail_billcopy)

Connection.dbase.AddInParameter(dbCommand, "@expensedetail_exptype", DbType.Decimal, expensedetail_exptype)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_exptypename", DbType.String, expensedetail_exptypename)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetail_pono", DbType.String, expensedetail_pono)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ExpenseMaster(ByVal expensemaster_locaiton As Integer, ByVal expensemaster_billno As String, ByVal expensemaster_areaoffice As Integer, ByVal expensemaster_localoffice As Integer, ByVal expensemaster_customer As Integer,
                                         ByVal expensemaster_customernm As String, ByVal expensemaster_billingaddress As String, ByVal expensemaster_state As Integer, ByVal expensemaster_statename As String,
                                         ByVal expensemaster_month As Integer, ByVal expensemaster_monthname As String, ByVal expensemaster_fyr As String,
                                         ByVal expensemaster_year As Integer, ByVal expensemaster_amount As Decimal, ByVal expensemaster_igst As Decimal, ByVal expensemaster_cgst As Decimal,
                                         ByVal expensemaster_sgst As Decimal, ByVal expensemaster_tds As Decimal, ByVal expensemaster_remarks As String,
                                        ByVal expensemaster_cby As Integer, ByVal expensemaster_status As String,
                                         ByVal expensemaster_flag As String, ByVal expensemaster_exphead As Integer, ByVal expensemaster_expheadname As String, ByVal expensemaster_docrefno As String, ByVal expensemaster_billtype As Integer, ByVal expensemaster_billtypename As String, ByVal expensemaster_filepath As String, ByVal expensemaster_billdate As Date, ByVal expensemaster_no As String, ByVal expensemaster_otherdeduction As Decimal,
        ByVal expensemaster_paidby As Integer, ByVal expensemaster_employeeid As Integer, ByVal expensemaster_empname As String,
        ByVal expensemaster_expstartperiod As Date, ByVal expensemaster_expendperiod As Date) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iContractMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensemaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddOutParameter(dbCommand, "@expensemaster_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_locaiton", DbType.Int32, expensemaster_locaiton)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billno", DbType.String, expensemaster_billno)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_areaoffice", DbType.Int32, expensemaster_areaoffice)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_localoffice", DbType.Int32, expensemaster_localoffice)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_customer", DbType.Int32, expensemaster_customer)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_customernm", DbType.String, expensemaster_customernm)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billingaddress", DbType.String, expensemaster_billingaddress)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_state", DbType.Int32, expensemaster_state)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_statename", DbType.String, expensemaster_statename)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_month", DbType.Int32, expensemaster_month)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_monthname", DbType.String, expensemaster_monthname)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_fyr", DbType.String, expensemaster_fyr)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_year", DbType.Int32, expensemaster_year)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_cby", DbType.Int32, expensemaster_cby)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_status", DbType.String, expensemaster_status)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_flag", DbType.String, expensemaster_flag)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_exphead", DbType.Int32, expensemaster_exphead)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_expheadname", DbType.String, expensemaster_expheadname)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_docrefno", DbType.String, expensemaster_docrefno)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billtype", DbType.Int32, expensemaster_billtype)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billtypename", DbType.String, expensemaster_billtypename)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_filepath", DbType.String, expensemaster_filepath)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billdate", DbType.Date, expensemaster_billdate)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_no", DbType.String, expensemaster_no)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_otherdeduction", DbType.Decimal, expensemaster_otherdeduction)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_paidby", DbType.Int32, expensemaster_paidby)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_employeeid", DbType.Int32, expensemaster_employeeid)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_empname", DbType.String, expensemaster_empname)

Connection.dbase.ExecuteNonQuery(dbCommand)
        iContractMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@expensemaster_kid"))
        Return iContractMaster
    End Function
    Public Shared Function ExpenseMasterUpdate(ByVal expensemaster_kid As Decimal, ByVal expensemaster_locaiton As Integer, ByVal expensemaster_billno As String, ByVal expensemaster_areaoffice As Integer, ByVal expensemaster_localoffice As Integer, ByVal expensemaster_customer As Integer,
                                         ByVal expensemaster_customernm As String, ByVal expensemaster_billingaddress As String, ByVal expensemaster_state As Integer, ByVal expensemaster_statename As String,
                                         ByVal expensemaster_month As Integer, ByVal expensemaster_monthname As String, ByVal expensemaster_fyr As String,
                                         ByVal expensemaster_year As Integer, ByVal expensemaster_amount As Decimal, ByVal expensemaster_igst As Decimal, ByVal expensemaster_cgst As Decimal,
                                         ByVal expensemaster_sgst As Decimal, ByVal expensemaster_tds As Decimal, ByVal expensemaster_remarks As String,
                                        ByVal expensemaster_cby As Integer, ByVal expensemaster_status As String,
                                         ByVal expensemaster_flag As String, ByVal expensemaster_exphead As Integer, ByVal expensemaster_expheadname As String, ByVal expensemaster_docrefno As String, ByVal expensemaster_billtype As Integer, ByVal expensemaster_billtypename As String, ByVal expensemaster_filepath As String, ByVal expensemaster_billdate As Date, ByVal expensemaster_no As String, ByVal expensemaster_otherdeduction As Decimal, ByVal expensemaster_paidby As Integer, ByVal expensemaster_employeeid As Integer, ByVal expensemaster_empname As String,
                                         ByVal expensemaster_expstartperiod As Date, ByVal expensemaster_expendperiod As Date) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iContractMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensemaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_kid", DbType.Decimal, expensemaster_kid)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_locaiton", DbType.Int32, expensemaster_locaiton)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_billno", DbType.String, expensemaster_billno)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_areaoffice", DbType.Int32, expensemaster_areaoffice)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_localoffice", DbType.Int32, expensemaster_localoffice)

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_otherdeduction", DbType.Decimal, expensemaster_otherdeduction)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_paidby", DbType.Int32, expensemaster_paidby)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_employeeid", DbType.Int32, expensemaster_employeeid)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_empname", DbType.String, expensemaster_empname)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_expstartperiod", DbType.Date, expensemaster_expstartperiod)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_expendperiod", DbType.Date, expensemaster_expendperiod)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '' iContractMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@expensemaster_kid"))
        Return Nothing
    End Function
    Public Shared Function ExpenseMasterUpdateBillNo(ByVal expensemaster_kid As Decimal, ByVal expensemaster_locaiton As Integer, ByVal expensemaster_billno As String, ByVal expensemaster_areaoffice As Integer, ByVal expensemaster_localoffice As Integer, ByVal expensemaster_customer As Integer,
                                         ByVal expensemaster_customernm As String, ByVal expensemaster_billingaddress As String, ByVal expensemaster_state As Integer, ByVal expensemaster_statename As String,
                                         ByVal expensemaster_month As Integer, ByVal expensemaster_monthname As String, ByVal expensemaster_fyr As String,
                                         ByVal expensemaster_year As Integer, ByVal expensemaster_amount As Decimal, ByVal expensemaster_igst As Decimal, ByVal expensemaster_cgst As Decimal,
                                         ByVal expensemaster_sgst As Decimal, ByVal expensemaster_tds As Decimal, ByVal expensemaster_remarks As String,
                                        ByVal expensemaster_cby As Integer, ByVal expensemaster_status As String,
                                         ByVal expensemaster_flag As String, ByVal expensemaster_exphead As Integer, ByVal expensemaster_expheadname As String, ByVal expensemaster_docrefno As String, ByVal expensemaster_billtype As Integer, ByVal expensemaster_billtypename As String, ByVal expensemaster_filepath As String, ByVal expensemaster_billdate As Date, ByVal expensemaster_no As String, ByVal expensemaster_otherdeduction As Decimal, ByVal expensemaster_paidby As Integer, ByVal expensemaster_employeeid As Integer, ByVal expensemaster_empname As String,
                                         ByVal expensemaster_expstartperiod As Date, ByVal expensemaster_expendperiod As Date) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iContractMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensemaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATEBILLNO")

Connection.dbase.AddInParameter(dbCommand, "@expensemaster_expstartperiod", DbType.Date, expensemaster_expstartperiod)
        Connection.dbase.AddInParameter(dbCommand, "@expensemaster_expendperiod", DbType.Date, expensemaster_expendperiod)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '' iContractMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@expensemaster_kid"))
        Return Nothing
    End Function
#End Region
#Region "Temp Billd Item"
    Public Shared Function ExpenseItemTemp(ByVal expensedetailtemp_location As Integer, ByVal expensedetailtemp_item As String, ByVal expensedetailtemp_cgst As Decimal, ByVal expensedetailtemp_sgst As Decimal, ByVal expensedetailtemp_igst As Decimal, ByVal expensedetailtemp_hsn As String, ByVal expensedetailtemp_rate As Decimal, ByVal expensedetailtemp_qty As Decimal, ByVal expensedetailtemp_usr As Integer, ByVal expensedetailtemp_indusid As String, ByVal expensedetailtemp_sitename As String, ByVal expensedetailtemp_head As Decimal, ByVal expensedetailtemp_headname As String, ByVal expensedetailtemp_billno As String, ByVal expensedetailtemp_date As Date, ByVal expensedetailtemp_ramarks As String, ByVal expensedetailtemp_billcopy As String, ByVal expensedetailtemp_expkid As String, ByVal expensedetailtemp_exptype As Integer, ByVal expensedetailtemp_exptypename As String, ByVal expensedetailtemp_pono As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensedetailtemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_location", DbType.Int32, expensedetailtemp_location)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_item", DbType.String, expensedetailtemp_item)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_cgst", DbType.Decimal, expensedetailtemp_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_sgst", DbType.Decimal, expensedetailtemp_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_igst", DbType.Decimal, expensedetailtemp_igst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_hsn", DbType.String, expensedetailtemp_hsn)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_rate", DbType.Decimal, expensedetailtemp_rate)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_qty", DbType.Decimal, expensedetailtemp_qty)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_usr", DbType.Int32, expensedetailtemp_usr)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_indusid", DbType.String, expensedetailtemp_indusid)

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_sitename", DbType.String, expensedetailtemp_sitename)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_head", DbType.Decimal, expensedetailtemp_head)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_headname", DbType.String, expensedetailtemp_headname)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_billno", DbType.String, expensedetailtemp_billno)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_date", DbType.Date, expensedetailtemp_date)

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_ramarks", DbType.String, expensedetailtemp_ramarks)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_billcopy", DbType.String, expensedetailtemp_billcopy)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_expkid", DbType.String, expensedetailtemp_expkid)

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_exptype", DbType.Int64, expensedetailtemp_exptype)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_exptypename", DbType.String, expensedetailtemp_exptypename)

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_pono", DbType.String, expensedetailtemp_pono)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ExpenseItemTempDelete(ByVal expensedetailtemp_kid As Integer, ByVal expensedetailtemp_location As Integer, ByVal expensedetailtemp_item As String, ByVal expensedetailtemp_cgst As Decimal, ByVal expensedetailtemp_sgst As Decimal, ByVal expensedetailtemp_igst As Decimal, ByVal expensedetailtemp_hsn As String, ByVal expensedetailtemp_rate As Decimal, ByVal expensedetailtemp_qty As Decimal, ByVal expensedetailtemp_usr As Integer, ByVal expensedetailtemp_indusid As String, ByVal expensedetailtemp_sitename As String, ByVal expensedetailtemp_head As Decimal, ByVal expensedetailtemp_headname As String, ByVal expensedetailtemp_billno As String, ByVal expensedetailtemp_date As Date, ByVal expensedetailtemp_ramarks As String, ByVal expensedetailtemp_billcopy As String, ByVal expensedetailtemp_expkid As String, ByVal expensedetailtemp_exptype As Integer, ByVal expensedetailtemp_exptypename As String, ByVal expensedetailtemp_pono As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_expensedetailtemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "Delete")

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_kid", DbType.Int32, expensedetailtemp_kid)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_location", DbType.Int32, expensedetailtemp_location)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_item", DbType.String, expensedetailtemp_item)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_cgst", DbType.Decimal, expensedetailtemp_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_sgst", DbType.Decimal, expensedetailtemp_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_igst", DbType.Decimal, expensedetailtemp_igst)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_hsn", DbType.String, expensedetailtemp_hsn)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_rate", DbType.Decimal, expensedetailtemp_rate)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_qty", DbType.Decimal, expensedetailtemp_qty)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_usr", DbType.Int32, expensedetailtemp_usr)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_indusid", DbType.String, expensedetailtemp_indusid)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_sitename", DbType.String, expensedetailtemp_sitename)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_head", DbType.Decimal, expensedetailtemp_head)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_headname", DbType.String, expensedetailtemp_headname)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_billno", DbType.String, expensedetailtemp_billno)
        Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_date", DbType.Date, expensedetailtemp_date)

Connection.dbase.AddInParameter(dbCommand, "@expensedetailtemp_pono", DbType.String, expensedetailtemp_pono)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
#End Region
#Region "Rent Bill"
    Public Shared Function InsertVenderBillRent(ByVal billCircle As Integer, ByVal billserialno As String, ByVal billfyr As String, ByVal billsite As String, ByVal billvender As Integer, ByVal billno As String, ByVal billdate As Date, ByVal billamount As Decimal, ByVal billremarks As String, ByVal billenterby As Integer, ByVal billflag As String, ByVal billClaimamount As Decimal, ByVal billservicetax As Decimal, ByVal billservicepo As String, ByVal billswachhbharat As Decimal, ByVal billkrishikalyan As Decimal, ByVal billannexure As String, ByVal billsgst As Decimal, ByVal billigst As Decimal, ByVal venderbill_billperiod As String) As Integer
        Dim billid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderrentbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "NEW")
        Connection.dbase.AddOutParameter(dbCommand, "@venderbill_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_circle", DbType.Int32, billCircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_no", DbType.String, billserialno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_fyr", DbType.String, billfyr)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_site", DbType.String, billsite)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_vender", DbType.Int32, billvender)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billno", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billdate", DbType.Date, billdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_amount", DbType.Decimal, billamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_remark", DbType.String, billremarks)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_eby", DbType.Int32, billenterby)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_flag", DbType.String, billflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_claimamount", DbType.Decimal, billClaimamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicetax", DbType.Decimal, billservicetax)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicepo", DbType.String, billservicepo)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_swachhbharattax", DbType.Decimal, billswachhbharat)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_krishikalyantac", DbType.Decimal, billkrishikalyan)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_annexure", DbType.String, billannexure)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_sgst", DbType.String, billsgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_igst", DbType.String, billigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billperiod", DbType.String, venderbill_billperiod)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        billid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@venderbill_kid"))
        Return billid
    End Function
    Public Shared Function InsertVenderBillRentUpdate(ByVal billkid As Integer, ByVal billCircle As Integer, ByVal billserialno As String, ByVal billfyr As String, ByVal billsite As String, ByVal billvender As Integer, ByVal billno As String, ByVal billdate As Date, ByVal billamount As Decimal, ByVal billremarks As String, ByVal billenterby As Integer, ByVal billflag As String, ByVal billClaimamount As Decimal, ByVal billservicetax As Decimal, ByVal billservicepo As String, ByVal billswachhbharat As Decimal, ByVal billkrishikalyan As Decimal, ByVal billannexure As String, ByVal billsgst As Decimal, ByVal billigst As Decimal, ByVal venderbill_billperiod As String) As Integer
        ''Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderrentbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_kid", DbType.Int32, billkid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_circle", DbType.Int32, billCircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_no", DbType.String, billserialno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_fyr", DbType.String, billfyr)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_site", DbType.String, billsite)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_vender", DbType.Int32, billvender)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billno", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billdate", DbType.Date, billdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_amount", DbType.Decimal, billamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_remark", DbType.String, billremarks)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_eby", DbType.Int32, billenterby)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_flag", DbType.String, billflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_claimamount", DbType.Decimal, billClaimamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicetax", DbType.Decimal, billservicetax)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicepo", DbType.String, billservicepo)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_swachhbharattax", DbType.Decimal, billswachhbharat)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_krishikalyantac", DbType.Decimal, billkrishikalyan)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_annexure", DbType.String, billannexure)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_sgst", DbType.String, billsgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_igst", DbType.String, billigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billperiod", DbType.String, venderbill_billperiod)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        ''   boqid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@invoicemaster_kid"))
        Return Nothing
    End Function
    Public Shared Function InsertVenderBillUpdateDelete(ByVal billkid As Integer, ByVal billCircle As Integer, ByVal billserialno As String, ByVal billfyr As String, ByVal billsite As String, ByVal billvender As Integer, ByVal billno As String, ByVal billdate As Date, ByVal billamount As Decimal, ByVal billremarks As String, ByVal billenterby As Integer, ByVal billflag As String, ByVal billClaimamount As Decimal, ByVal billservicetax As Decimal, ByVal billservicepo As String, ByVal billswachhbharat As Decimal, ByVal billkrishikalyan As Decimal, ByVal billannexure As String, ByVal billsgst As Decimal, ByVal billigst As Decimal, ByVal billtype As String, ByVal billStartdate As Date, ByVal billEnddate As Date) As Integer
        ''Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_kid", DbType.Int32, billkid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_circle", DbType.Int32, billCircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_no", DbType.String, billserialno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_fyr", DbType.String, billfyr)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_site", DbType.String, billsite)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_vender", DbType.Int32, billvender)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billno", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billdate", DbType.Date, billdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_amount", DbType.Decimal, billamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_remark", DbType.String, billremarks)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_eby", DbType.Int32, billenterby)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_flag", DbType.String, billflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_claimamount", DbType.Decimal, billClaimamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicetax", DbType.Decimal, billservicetax)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicepo", DbType.String, billservicepo)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_swachhbharattax", DbType.Decimal, billswachhbharat)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_krishikalyantac", DbType.Decimal, billkrishikalyan)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_annexure", DbType.String, billannexure)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_sgst", DbType.String, billsgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_igst", DbType.String, billigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billtype", DbType.String, billtype)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_startdate", DbType.Date, billStartdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_enddate", DbType.Date, billEnddate)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        ''   boqid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@invoicemaster_kid"))
        Return Nothing
    End Function
     
    Public Shared Sub venderbilldetailsDelete(ByVal podetailkid As Integer, ByVal podetailcircle As Integer, ByVal positeid As String, ByVal pobillid As Integer, ByVal poid As Integer, ByVal poindent As Integer, ByVal podetailitem As Integer, ByVal poactivitydtl As String, ByVal poactivitydesc As String, ByVal poqty As Decimal, ByVal porate As Decimal, ByVal podetailflag As String, ByVal positedetails As String, ByVal positecgst As Decimal, ByVal positesgst As Decimal, ByVal positeigst As Decimal, ByVal postartdate As Date, ByVal positeenddate As Date)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        'Dim itemid As Integer = Integer.MaxValue
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderbilldtl")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETESRR")
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_kid", DbType.Int32, podetailkid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_circle", DbType.Int32, podetailcircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_site", DbType.String, positeid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_billid", DbType.Int32, pobillid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_poid", DbType.Int32, poid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_indent", DbType.Int32, poindent)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_item", DbType.Int32, podetailitem)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_activitydtl", DbType.String, poactivitydtl)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_activitydesc", DbType.String, poactivitydesc)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_qty", DbType.Decimal, poqty)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_rate", DbType.Decimal, porate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_flag", DbType.String, podetailflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_sitedtl", DbType.String, positedetails)

Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_cgst", DbType.Decimal, positecgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_sgst", DbType.Decimal, positesgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_igst", DbType.Decimal, positeigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_startdate", DbType.Date, postartdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbilldtl_enddate", DbType.Date, positeenddate)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return
    End Sub
#End Region
#Region "BILL MASTER"
    Public Shared Function BillIVRUpdate(ByVal billmaster_billno As String, ByVal billmaster_irnno As String, ByVal billmaster_ackno As String, ByVal billmaster_ackdate As Date, ByVal billmaster_qrcode As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("[prc_billmasterirnupdate]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_billno", DbType.String, billmaster_billno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_irnno", DbType.String, billmaster_irnno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_ackno", DbType.String, billmaster_ackno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_ackdate", DbType.Date, billmaster_ackdate)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_qrcode", DbType.String, billmaster_qrcode)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function BillIVRUpdatecn(ByVal billmaster_billno As String, ByVal billmaster_irnno As String, ByVal billmaster_ackno As String, ByVal billmaster_ackdate As Date, ByVal billmaster_qrcode As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("[prc_billmasterirnupdate]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATECN")
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_billno", DbType.String, billmaster_billno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_irnno", DbType.String, billmaster_irnno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_ackno", DbType.String, billmaster_ackno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_ackdate", DbType.Date, billmaster_ackdate)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_qrcode", DbType.String, billmaster_qrcode)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function BillMaster(ByVal billmaster_locaiton As Integer, ByVal billmaster_billno As String,
                                      ByVal billmaster_customer As Integer, ByVal billmaster_customernm As String,
                                      ByVal contractmaster_billingaddress As String, ByVal billmaster_state As Integer,
                                      ByVal billmaster_statename As String,
                                       ByVal billmaster_customerrefno As String,
                                        ByVal billmaster_customerrefdt As Date, ByVal billmaster_contractype As Integer, ByVal billmaster_contractypename As String,
                                       ByVal billmaster_fyr As String, ByVal billmaster_amount As Decimal,
                                       ByVal billmaster_igst As Decimal, ByVal billmaster_cgst As Decimal,
                                       ByVal billmaster_sgst As Decimal, ByVal billmaster_paymentstatus As String,
                                       ByVal billmaster_paymentdone As Decimal, ByVal billmaster_billingperiod As Integer,
                                       ByVal billmaster_billingperiodname As String, ByVal billmaster_hsncode As String,
                                       ByVal billmaster_description As String, ByVal billmaster_remarks As String,
                                       ByVal billmaster_invoicedt As Date, ByVal billmaster_invoiceduedt As Date,
                                       ByVal billmaster_cby As Integer, ByVal billmaster_status As String,
                                       ByVal billmaster_flag As String, ByVal billmaster_field As String,
                                       ByVal billmaster_field1 As String, ByVal billmaster_field2 As String,
                                       ByVal billmaster_field3 As String, ByVal billmaster_path As String,
                                       ByVal billmaster_wccdate As Date, ByVal billmaster_receiptdate As Date,
                                       ByVal billmaster_field4 As String, ByVal billmaster_field5 As String,
                                       ByVal billmaster_field6 As String) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iContractMaster As Integer = 0
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_billmaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddOutParameter(dbCommand, "@billmaster_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_locaiton", DbType.Int32, billmaster_locaiton)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_billno", DbType.String, billmaster_billno)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_customer", DbType.Int32, billmaster_customer)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_customernm", DbType.String, billmaster_customernm)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_billingaddress", DbType.String, contractmaster_billingaddress)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_state", DbType.Int32, billmaster_state)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_statename", DbType.String, billmaster_statename)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_customerrefno", DbType.String, billmaster_customerrefno)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_customerrefdt", DbType.Date, billmaster_customerrefdt)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_contractype", DbType.Int32, billmaster_contractype)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_contractypename", DbType.String, billmaster_contractypename)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_fyr", DbType.String, billmaster_fyr)

'' Connection.dbase.AddInParameter(dbCommand, "@contractmaster_remarks", DbType.String, contractmaster_remarks)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_amount", DbType.Decimal, billmaster_amount)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_igst", DbType.Decimal, billmaster_igst)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_cgst", DbType.Decimal, billmaster_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_sgst", DbType.Decimal, billmaster_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_paymentstatus", DbType.String, billmaster_paymentstatus)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_paymentdone", DbType.Decimal, billmaster_paymentdone)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_billingperiod", DbType.Int32, billmaster_billingperiod)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_billingperiodname", DbType.String, billmaster_billingperiodname)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_hsncode", DbType.String, billmaster_hsncode)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_description", DbType.String, billmaster_description)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_remarks", DbType.String, billmaster_remarks)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_invoicedt", DbType.Date, billmaster_invoicedt)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_invoiceduedt", DbType.Date, billmaster_invoiceduedt)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_cby", DbType.Int32, billmaster_cby)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_status", DbType.String, billmaster_status)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_flag", DbType.String, billmaster_flag)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_field", DbType.String, billmaster_field)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field1", DbType.String, billmaster_field1)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field2", DbType.String, billmaster_field2)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field3", DbType.String, billmaster_field3)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_path", DbType.String, billmaster_path)

Connection.dbase.AddInParameter(dbCommand, "@billmaster_wccdate", DbType.DateTime, billmaster_wccdate)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_receiptdate", DbType.DateTime, billmaster_receiptdate)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field4", DbType.String, billmaster_field4)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field5", DbType.String, billmaster_field5)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_field6", DbType.String, billmaster_field6)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        iContractMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@billmaster_kid"))
        Return iContractMaster
    End Function
    Public Shared Function BillDetailsInsert(ByVal billdetail_location As Integer, ByVal billdetail_billmaster As Integer, ByVal billingdtltemp_bookingstation As String, ByVal billingdtltemp_dwmlrnodate As Date,
                                                 ByVal billingdtltemp_containerno As String, ByVal billdetail_customer As Integer, ByVal billdetail_customername As String, ByVal billingdtltemp_truckno As String, ByVal billingdtltemp_deliverystation As String, ByVal billingdtltemp_rate As Decimal, ByVal billingdtltemp_qty As Decimal,
                                                 ByVal billingdtltemp_finalamount As Decimal, ByVal billingdtltemp_advanceamt As Decimal, ByVal billingdtltemp_balanceamt As Decimal) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_billdetail")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@billdetail_customer", DbType.Int32, billdetail_customer)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_customername", DbType.String, billdetail_customername)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_truckno", DbType.String, billingdtltemp_truckno)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_deliverystation", DbType.String, billingdtltemp_deliverystation)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_rate", DbType.Decimal, billingdtltemp_rate)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_qty", DbType.Decimal, billingdtltemp_qty)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_finalamount", DbType.Decimal, billingdtltemp_finalamount)

Connection.dbase.AddInParameter(dbCommand, "@billdetail_advanceamt", DbType.Decimal, billingdtltemp_advanceamt)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_balanceamt", DbType.Decimal, billingdtltemp_balanceamt)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function BillDetailsInsertSiteDetails(ByVal billdetail_location As Integer, ByVal billdetail_billmaster As Integer, ByVal billdetail_itemname As String, ByVal billdetail_hsncode As String, ByVal billdetail_customer As Integer, ByVal billdetail_customername As String,
                                           ByVal billdetail_amount As Decimal, ByVal billdetail_qty As Decimal, ByVal billdetail_igst As Decimal, ByVal billdetail_cgst As Decimal, ByVal billdetail_sgst As Decimal, ByVal billdetail_cby As Integer, ByVal billdetail_status As String, ByVal billdetail_flag As String,
                                           ByVal billdetail_uom As String, ByVal billdetail_field As String, ByVal billdetail_field1 As String, ByVal billdetail_field2 As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("[prc_billdetailsite]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@billdetail_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_location", DbType.Int32, billdetail_location)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_billmaster", DbType.Int32, billdetail_billmaster)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_sitedetails", DbType.String, billdetail_itemname)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_hsncode", DbType.String, billdetail_hsncode)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_customer", DbType.Int32, billdetail_customer)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_customername", DbType.String, billdetail_customername)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_amount", DbType.Decimal, billdetail_amount)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_qty", DbType.Decimal, billdetail_qty)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_igst", DbType.Decimal, billdetail_igst)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_cgst", DbType.Decimal, billdetail_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_sgst", DbType.Decimal, billdetail_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_cby", DbType.Int32, billdetail_cby)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_status", DbType.String, billdetail_status)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_flag", DbType.String, billdetail_flag)

Connection.dbase.AddInParameter(dbCommand, "@billdetail_uom", DbType.String, billdetail_uom)

Connection.dbase.AddInParameter(dbCommand, "@billdetail_field", DbType.String, billdetail_field)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_field1", DbType.String, billdetail_field1)
        Connection.dbase.AddInParameter(dbCommand, "@billdetail_field2", DbType.String, billdetail_field2)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function BillCancel(ByVal billmaster_kid As Integer, ByVal billmaster_locaiton As Integer, ByVal billmaster_reason As String, ByVal billmaster_reasoncopy As String, ByVal billmaster_cancelby As Integer, ByVal billmaster_status As String, ByVal billmaster_flag As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_billmastercancel")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_kid", DbType.Int32, billmaster_kid)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_locaiton", DbType.Int32, billmaster_locaiton)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_reason", DbType.String, billmaster_reason)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_reasoncopy", DbType.String, billmaster_reasoncopy)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_cancelby", DbType.Int32, billmaster_cancelby)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_status", DbType.String, billmaster_status)
        Connection.dbase.AddInParameter(dbCommand, "@billmaster_flag", DbType.String, billmaster_flag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ItemBillItemTempSales(ByVal billingdtltemp_location As Integer, ByVal billingdtltemp_bookingstation As String, ByVal billingdtltemp_dwmlrnodate As Date,
                                                 ByVal billingdtltemp_containerno As String, ByVal billingdtltemp_truckno As String, ByVal billingdtltemp_deliverystation As String, ByVal billingdtltemp_rate As Decimal, ByVal billingdtltemp_qty As Decimal,
                                                 ByVal billingdtltemp_finalamount As Decimal, ByVal billingdtltemp_advanceamt As Decimal, ByVal billingdtltemp_balanceamt As Decimal
                                                  ) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("[dbo].[prc_billingdtltemp]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_location", DbType.Int32, billingdtltemp_location)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_bookingstation", DbType.String, billingdtltemp_bookingstation)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_dwmlrnodate", DbType.Date, billingdtltemp_dwmlrnodate)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_containerno", DbType.String, billingdtltemp_containerno)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_truckno", DbType.String, billingdtltemp_truckno)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_deliverystation", DbType.String, billingdtltemp_deliverystation)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_rate", DbType.Decimal, billingdtltemp_rate)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_qty", DbType.Decimal, billingdtltemp_qty)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_finalamount", DbType.Decimal, billingdtltemp_finalamount)

Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_advanceamt", DbType.Decimal, billingdtltemp_advanceamt)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_balanceamt", DbType.Decimal, billingdtltemp_balanceamt)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ItemBillItemDeleteTemp(ByVal billingdtltemp_kid As Integer, ByVal billingdtltemp_location As Integer, ByVal billingdtltemp_item As String, ByVal billingdtltemp_cgst As Decimal, ByVal billingdtltemp_sgst As Decimal, ByVal billingdtltemp_igst As Decimal, ByVal billingdtltemp_hsn As String, ByVal billingdtltemp_rate As Decimal, ByVal billingdtltemp_qty As Decimal, ByVal billingdtltemp_usr As Integer) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_billingdtltemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "Delete")

Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_kid", DbType.Int32, billingdtltemp_kid)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_location", DbType.Int32, billingdtltemp_location)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_item", DbType.String, billingdtltemp_item)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_cgst", DbType.Decimal, billingdtltemp_cgst)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_sgst", DbType.Decimal, billingdtltemp_sgst)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_igst", DbType.Decimal, billingdtltemp_igst)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_hsn", DbType.String, billingdtltemp_hsn)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_rate", DbType.Decimal, billingdtltemp_rate)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_qty", DbType.Decimal, billingdtltemp_qty)
        Connection.dbase.AddInParameter(dbCommand, "@billingdtltemp_usr", DbType.Int32, billingdtltemp_usr)

Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function ItemBillItemDeleteTempSales(ByVal billingdtltemp_kid As Integer, ByVal billingdtltemp_location As Integer, ByVal billingdtltemp_item As String, ByVal billingdtltemp_cgst As Decimal, ByVal billingdtltemp_sgst As Decimal, ByVal billingdtltemp_igst As Decimal, ByVal billingdtltemp_hsn As String, ByVal billingdtltemp_rate As Decimal, ByVal billingdtltemp_qty As Decimal, ByVal billingdtltemp_usr As Integer) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("[prc_billingdtltempsales]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "Delete")

Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_servicembmaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "REJECT")
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_kid", DbType.Int32, auditid)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_circle", DbType.Int32, auditcircle)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_comments", DbType.String, auditcomments)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_by", DbType.String, auditdoneby)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_flag", DbType.String, auditflag)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_stage", DbType.String, auditstage)
        Connection.dbase.AddInParameter(dbCommand, "@servicembmaster_upby", DbType.Int32, auditupdateby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        ' strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@servicembmaster_kid"))
        Return Nothing
    End Function
    Public Shared Function insertservicembdetails(ByVal tempauditid As Integer, ByVal tempcircle As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As String, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempstage As String) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_servicembdtl")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_audit", DbType.Int32, tempauditid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.String, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_stage", DbType.String, tempstage)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function InsertVenderBill(ByVal billCircle As Integer, ByVal billserialno As String, ByVal billfyr As String, ByVal billsite As String, ByVal billvender As Integer, ByVal billno As String, ByVal billdate As Date, ByVal billamount As Decimal, ByVal billremarks As String, ByVal billenterby As Integer, ByVal billflag As String, ByVal billClaimamount As Decimal, ByVal billservicetax As Decimal, ByVal billservicepo As String, ByVal billswachhbharat As Decimal, ByVal billkrishikalyan As Decimal, ByVal billannexure As String, ByVal billsgst As Decimal, ByVal billigst As Decimal, ByVal billtype As String, ByVal billStartdate As Date, ByVal billEnddate As Date) As Integer
        Dim billid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "NEW")
        Connection.dbase.AddOutParameter(dbCommand, "@venderbill_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_circle", DbType.Int32, billCircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_no", DbType.String, billserialno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_fyr", DbType.String, billfyr)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_site", DbType.String, billsite)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_vender", DbType.Int32, billvender)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billno", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billdate", DbType.Date, billdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_amount", DbType.Decimal, billamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_remark", DbType.String, billremarks)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_eby", DbType.Int32, billenterby)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_flag", DbType.String, billflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_claimamount", DbType.Decimal, billClaimamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicetax", DbType.Decimal, billservicetax)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicepo", DbType.String, billservicepo)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_swachhbharattax", DbType.Decimal, billswachhbharat)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_krishikalyantac", DbType.Decimal, billkrishikalyan)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_annexure", DbType.String, billannexure)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_sgst", DbType.String, billsgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_igst", DbType.String, billigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billtype", DbType.String, billtype)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_startdate", DbType.Date, billStartdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_enddate", DbType.Date, billEnddate)

Connection.dbase.ExecuteNonQuery(dbCommand)
        billid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@venderbill_kid"))
        Return billid
    End Function
    Public Shared Function InsertVenderBillUpdateRent(ByVal billkid As Integer, ByVal billCircle As Integer, ByVal billserialno As String, ByVal billfyr As String, ByVal billsite As String, ByVal billvender As Integer, ByVal billno As String, ByVal billdate As Date, ByVal billamount As Decimal, ByVal billremarks As String, ByVal billenterby As Integer, ByVal billflag As String, ByVal billClaimamount As Decimal, ByVal billservicetax As Decimal, ByVal billservicepo As String, ByVal billswachhbharat As Decimal, ByVal billkrishikalyan As Decimal, ByVal billannexure As String, ByVal billsgst As Decimal, ByVal billigst As Decimal, ByVal billtype As String, ByVal billStartdate As Date, ByVal billEnddate As Date) As Integer
        ''Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_venderbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATERENT")
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_kid", DbType.Int32, billkid)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_circle", DbType.Int32, billCircle)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_no", DbType.String, billserialno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_fyr", DbType.String, billfyr)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_site", DbType.String, billsite)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_vender", DbType.Int32, billvender)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billno", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billdate", DbType.Date, billdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_amount", DbType.Decimal, billamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_remark", DbType.String, billremarks)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_eby", DbType.Int32, billenterby)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_flag", DbType.String, billflag)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_claimamount", DbType.Decimal, billClaimamount)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicetax", DbType.Decimal, billservicetax)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_servicepo", DbType.String, billservicepo)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_swachhbharattax", DbType.Decimal, billswachhbharat)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_krishikalyantac", DbType.Decimal, billkrishikalyan)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_annexure", DbType.String, billannexure)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_sgst", DbType.String, billsgst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_igst", DbType.String, billigst)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_billtype", DbType.String, billtype)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_startdate", DbType.Date, billStartdate)
        Connection.dbase.AddInParameter(dbCommand, "@venderbill_enddate", DbType.Date, billEnddate)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        ''   boqid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@invoicemaster_kid"))
        Return Nothing
    End Function
#End Region
#Region "TSP BILLING"
    Public Shared Function insertboq(ByVal boqindussrno As String, ByVal boqsession As String, ByVal boqcircle As Integer, ByVal boqitem As String, ByVal boqitemdesc As String, ByVal boqunit As String, ByVal boqremark As String, ByVal boqrate As Decimal, ByVal boqtype As String, ByVal boqflag As String, ByVal boqsupplycharges As Decimal) As Integer
        Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_boqitem")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@boq_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@boq_srno", DbType.Int32, boqindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@boq_session", DbType.String, boqsession)
        Connection.dbase.AddInParameter(dbCommand, "@boq_circle", DbType.Int32, boqcircle)
        Connection.dbase.AddInParameter(dbCommand, "@boq_item", DbType.String, boqitem)
        Connection.dbase.AddInParameter(dbCommand, "@boq_desc", DbType.String, boqitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@boq_unit", DbType.String, boqunit)
        Connection.dbase.AddInParameter(dbCommand, "@boq_remark", DbType.String, boqremark)
        Connection.dbase.AddInParameter(dbCommand, "@boq_rate", DbType.Decimal, boqrate)
        Connection.dbase.AddInParameter(dbCommand, "@boq_type", DbType.String, boqtype)
        Connection.dbase.AddInParameter(dbCommand, "@boq_flag", DbType.String, boqflag)
        Connection.dbase.AddInParameter(dbCommand, "@boq_supplycharge", DbType.Decimal, boqsupplycharges)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        boqid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@boq_kid"))
        Return boqid
    End Function
    Public Shared Function updateboq(ByVal itemid As Int32, ByVal boqindussrno As Int32, ByVal boqsession As String, ByVal boqcircle As Integer, ByVal boqitem As String, ByVal boqitemdesc As String, ByVal boqunit As String, ByVal boqremark As String, ByVal boqrate As Decimal, ByVal boqtype As String, ByVal boqflag As String, ByVal boqsupplycharges As Decimal) As Integer
        '   Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_boqitem")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@boq_kid", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@boq_srno", DbType.Int32, boqindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@boq_session", DbType.String, boqsession)
        Connection.dbase.AddInParameter(dbCommand, "@boq_circle", DbType.Int32, boqcircle)
        Connection.dbase.AddInParameter(dbCommand, "@boq_item", DbType.String, boqitem)
        Connection.dbase.AddInParameter(dbCommand, "@boq_desc", DbType.String, boqitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@boq_unit", DbType.String, boqunit)
        Connection.dbase.AddInParameter(dbCommand, "@boq_remark", DbType.String, boqremark)
        Connection.dbase.AddInParameter(dbCommand, "@boq_rate", DbType.Decimal, boqrate)
        Connection.dbase.AddInParameter(dbCommand, "@boq_type", DbType.String, boqtype)
        Connection.dbase.AddInParameter(dbCommand, "@boq_flag", DbType.String, boqflag)
        Connection.dbase.AddInParameter(dbCommand, "@boq_supplycharge", DbType.Decimal, boqsupplycharges)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        '   boqid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@boq_kid"))
        Return Nothing
    End Function
    Public Shared Sub inserttempboq(ByVal Circle As Int32, ByVal siteid As Int32, ByVal itemid As Integer, ByVal flag As String, ByVal boqtype As Decimal, ByVal boqrate As Decimal, ByVal boqqty As Decimal, ByVal boqitemname As String, ByVal boqitemdesc As String, ByVal boqunit As String)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempboq")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_circle", DbType.Int32, Circle)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_siteid", DbType.Int32, siteid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_item", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_flage", DbType.String, flag)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_type", DbType.Decimal, boqtype)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_rate", DbType.Decimal, boqrate)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_qty", DbType.Decimal, boqqty)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemnm", DbType.String, boqitemname)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemdesc", DbType.String, boqitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemunit", DbType.String, boqunit)
        Connection.dbase.ExecuteNonQuery(dbCommand)
    End Sub
    Public Shared Sub Deleteiempboq(ByVal Circle As Int32, ByVal siteid As Int32, ByVal itemid As Integer, ByVal flag As String, ByVal boqtype As Integer, ByVal boqrate As Decimal, ByVal boqqty As Decimal, ByVal boqitemname As String, ByVal boqitemdesc As String, ByVal boqunit As String)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempboq")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_circle", DbType.Int32, Circle)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_siteid", DbType.Int32, siteid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_item", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_flage", DbType.String, flag)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_type", DbType.Int32, boqtype)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_rate", DbType.Decimal, boqrate)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_qty", DbType.Decimal, boqqty)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemnm", DbType.String, boqitemname)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemdesc", DbType.String, boqitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_itemunit", DbType.String, boqunit)
        Connection.dbase.ExecuteNonQuery(dbCommand)
    End Sub
    Public Shared Function insertpo(ByVal pocircle As Integer, ByVal positeid As Integer, ByVal pobpano As String, ByVal pobpadate As String, ByVal porono As String, ByVal porodate As String, ByVal poamount As Decimal, ByVal potype As Integer, ByVal poenterby As Integer, ByVal poflag As String, ByVal poupdateby As Integer) As Integer
        Dim poid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_podetails")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@po_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@po_circle", DbType.Int32, pocircle)
        Connection.dbase.AddInParameter(dbCommand, "@po_site", DbType.Int32, positeid)
        Connection.dbase.AddInParameter(dbCommand, "@po_bpano", DbType.String, pobpano)
        Connection.dbase.AddInParameter(dbCommand, "@po_bpadate", DbType.String, pobpadate)
        Connection.dbase.AddInParameter(dbCommand, "@po_rono", DbType.String, porono)
        Connection.dbase.AddInParameter(dbCommand, "@po_rodate", DbType.String, porodate)
        Connection.dbase.AddInParameter(dbCommand, "@po_amount", DbType.Decimal, poamount)
        Connection.dbase.AddInParameter(dbCommand, "@po_type", DbType.Int32, potype)
        Connection.dbase.AddInParameter(dbCommand, "@po_eby", DbType.Int32, poenterby)
        Connection.dbase.AddInParameter(dbCommand, "@po_flag", DbType.String, poflag)
        Connection.dbase.AddInParameter(dbCommand, "@po_upby", DbType.Int32, poupdateby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        poid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return poid
    End Function
    Public Shared Function updatepo(ByVal pocircle As Integer, ByVal positeid As Integer, ByVal pobpano As String, ByVal pobpadate As String, ByVal porono As String, ByVal porodate As String, ByVal poamount As Decimal, ByVal potype As Integer, ByVal poenterby As Integer, ByVal poflag As String, ByVal poupdateby As Integer) As Integer
        Dim poid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_podetails")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddOutParameter(dbCommand, "@po_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@po_circle", DbType.Int32, pocircle)
        Connection.dbase.AddInParameter(dbCommand, "@po_site", DbType.Int32, positeid)
        Connection.dbase.AddInParameter(dbCommand, "@po_bpano", DbType.String, pobpano)
        Connection.dbase.AddInParameter(dbCommand, "@po_bpadate", DbType.String, pobpadate)
        Connection.dbase.AddInParameter(dbCommand, "@po_rono", DbType.String, porono)
        Connection.dbase.AddInParameter(dbCommand, "@po_rodate", DbType.String, porodate)
        Connection.dbase.AddInParameter(dbCommand, "@po_amount", DbType.Decimal, poamount)
        Connection.dbase.AddInParameter(dbCommand, "@po_type", DbType.Int32, potype)
        Connection.dbase.AddInParameter(dbCommand, "@po_eby", DbType.Int32, poenterby)
        Connection.dbase.AddInParameter(dbCommand, "@po_flag", DbType.String, poflag)
        Connection.dbase.AddInParameter(dbCommand, "@po_upby", DbType.Int32, poupdateby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'poid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return poid
    End Function
    Public Shared Function inserttemptspbill(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltsp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function updatetemptspbill(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltsp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function deletetemptspbill(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltsp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function insertauditbillmaster(ByVal auditcircle As Integer, ByVal auditsite As Integer, ByVal auditcomments As String, ByVal auditdoneby As Integer, ByVal auditflag As String, ByVal auditstage As String, ByVal auditupdateby As Integer) As Integer
        Dim strid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_auditmaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@audit_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@audit_circle", DbType.Int32, auditcircle)
        Connection.dbase.AddInParameter(dbCommand, "@audit_site", DbType.Int32, auditsite)
        Connection.dbase.AddInParameter(dbCommand, "@audit_comments", DbType.String, auditcomments)
        Connection.dbase.AddInParameter(dbCommand, "@audit_by", DbType.String, auditdoneby)
        Connection.dbase.AddInParameter(dbCommand, "@audit_flag", DbType.String, auditflag)
        Connection.dbase.AddInParameter(dbCommand, "@audit_stage", DbType.String, auditstage)
        Connection.dbase.AddInParameter(dbCommand, "@audit_upby", DbType.Int32, auditupdateby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@audit_kid"))
        Return strid
    End Function
    Public Shared Function updateauditbillmaster(ByVal auditcircle As Integer, ByVal auditsite As Integer, ByVal auditcomments As String, ByVal auditdoneby As Integer, ByVal auditflag As String, ByVal auditstage As String, ByVal auditupdateby As Integer) As Integer
        Dim strid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_auditmaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@audit_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@audit_circle", DbType.Int32, auditcircle)
        Connection.dbase.AddInParameter(dbCommand, "@audit_site", DbType.Int32, auditsite)
        Connection.dbase.AddInParameter(dbCommand, "@audit_comments", DbType.String, auditcomments)
        Connection.dbase.AddInParameter(dbCommand, "@audit_by", DbType.String, auditdoneby)
        Connection.dbase.AddInParameter(dbCommand, "@audit_flag", DbType.String, auditflag)
        Connection.dbase.AddInParameter(dbCommand, "@audit_stage", DbType.String, auditstage)
        Connection.dbase.AddInParameter(dbCommand, "@audit_upby", DbType.Int32, auditupdateby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@audit_kid"))
        Return strid
    End Function
    Public Shared Function insertauditbilldetails(ByVal tempauditid As Integer, ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempstage As String) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_auditbilldtl")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_audit", DbType.Int32, tempauditid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_stage", DbType.String, tempstage)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function inserttspbillmaster(ByVal auditcircle As Integer, ByVal auditsite As Integer, ByVal fyr As String, ByVal auditdoneby As Integer, ByVal auditflag As String, ByVal auditstage As String, ByVal auditupdateby As Integer) As Integer
        Dim strid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tspbillmaster")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@tsp_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_circle", DbType.Int32, auditcircle)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_siteid", DbType.Int32, auditsite)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_fyr", DbType.String, fyr)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_eby", DbType.String, auditdoneby)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_uby", DbType.Int32, auditupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_flag", DbType.String, auditflag)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_stage", DbType.String, auditstage)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@tsp_kid"))
        Return strid
    End Function
    Public Shared Function chktspbillmaster(ByVal auditcircle As Integer, ByVal auditsite As Integer, ByVal auditflag As String, ByVal auditstage As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tspmasterchk")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "CHK")
        Connection.dbase.AddInParameter(dbCommand, "@tsp_circle", DbType.Int32, auditcircle)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_siteid", DbType.Int32, auditsite)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_flag", DbType.String, auditflag)
        Connection.dbase.AddInParameter(dbCommand, "@tsp_stage", DbType.String, auditstage)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@tsp_kid"))
        'Return strid
        Return Nothing
    End Function
    Public Shared Function inserttspinvoice(ByVal invoicecircle As Integer, ByVal invoicesite As Integer, ByVal masterid As Integer, ByVal billno As String, ByVal fyr As String, ByVal invoicetype As String, ByVal invoicetax As Decimal, ByVal invoiceeby As Integer, ByVal invoiceuby As Integer, ByVal invoicecivil As Boolean, ByVal invoiceelect As Boolean, ByVal invoiceother As Boolean, ByVal invoicepmc As Boolean, ByVal invoicetrans As Boolean, ByVal invoicepad As Boolean, ByVal invoiceoandm As Boolean, ByVal invoiceeb As Boolean) As Integer
        Dim strid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tspinvoicedtl")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@bill_kid", DbType.Int32, Integer.MaxValue)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, invoicecircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_site", DbType.Int32, invoicesite)
        Connection.dbase.AddInParameter(dbCommand, "@bill_masterid", DbType.Int32, masterid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_no", DbType.String, billno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_fyr", DbType.String, fyr)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.String, invoicetype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, invoicetax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, invoiceeby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_uby", DbType.Int32, invoiceuby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_civil", DbType.Boolean, invoicecivil)
        Connection.dbase.AddInParameter(dbCommand, "@bill_elect", DbType.Boolean, invoiceelect)
        Connection.dbase.AddInParameter(dbCommand, "@bill_other", DbType.Boolean, invoiceother)
        Connection.dbase.AddInParameter(dbCommand, "@bill_pmc", DbType.Boolean, invoicepmc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_trans", DbType.Boolean, invoicetrans)
        Connection.dbase.AddInParameter(dbCommand, "@bill_pad", DbType.Boolean, invoicepad)
        Connection.dbase.AddInParameter(dbCommand, "@bill_oandm", DbType.Boolean, invoiceoandm)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eb", DbType.Boolean, invoiceeb)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@bill_kid"))
        Return strid
    End Function
    Public Shared Function inserttspbilldetail(ByVal tempauditid As Integer, ByVal tempinvoiceid As Integer, ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbilltax As Decimal, ByVal tempflag As String) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("dbo.prc_tspbilldetails")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_tspmaster", DbType.Int32, tempauditid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoice", DbType.Int32, tempinvoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function UpdateBillMaster() As Integer
        Dim billid As Integer
        Return billid
    End Function
    Public Shared Function DeleteBillMaster() As Integer
        Dim billid As Integer
        Return billid
    End Function
    Public Shared Function UpdateBillDetail() As Integer
        Dim billid As Integer
        Return billid
    End Function
    Public Shared Function DeleteBillDetail() As Integer
        Dim billid As Integer
        Return billid
    End Function
#End Region
#Region "AMAND TSP BILL"
    Public Shared Sub inserttempbilldtl(ByVal Circle As Int32, ByVal siteid As Int32, ByVal masterid As Int32, ByVal invoiceid As Int32, ByVal itemid As Integer, ByVal enterby As Int32, ByVal flag As String, ByVal boqtype As Integer)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempamandtspbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_circle", DbType.Int32, Circle)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_site", DbType.Int32, siteid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_masterid", DbType.Int32, masterid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_item", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_eby", DbType.Int32, enterby)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_flage", DbType.String, flag)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_type", DbType.Int32, boqtype)
        Connection.dbase.ExecuteNonQuery(dbCommand)
    End Sub
    Public Shared Sub deletetempbilldtl(ByVal Circle As Int32, ByVal siteid As Int32, ByVal masterid As Int32, ByVal invoiceid As Int32, ByVal itemid As Integer, ByVal enterby As Int32, ByVal flag As String, ByVal boqtype As Integer)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempamandtspbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_circle", DbType.Int32, Circle)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_site", DbType.Int32, siteid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_masterid", DbType.Int32, masterid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_item", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_eby", DbType.Int32, enterby)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_flage", DbType.String, flag)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_type", DbType.Int32, boqtype)
        Connection.dbase.ExecuteNonQuery(dbCommand)
    End Sub
    Public Shared Function inserttemptspbillamand(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempmasterid As Integer, ByVal tempinvoiceid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltspamand")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_masterid", DbType.Int32, tempmasterid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoiceid", DbType.Int32, tempinvoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function deletetemptspbillamand(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempmasterid As Integer, ByVal tempinvoiceid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltspamand")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_masterid", DbType.Int32, tempmasterid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoiceid", DbType.Int32, tempinvoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function inserttspinvoiceamand(ByVal invoicecircle As Integer, ByVal invoicesite As Integer, ByVal masterid As Integer, ByVal invoiceid As Integer, ByVal fyr As String, ByVal invoicetype As String, ByVal invoicetax As Decimal, ByVal invoiceeby As Integer, ByVal invoiceuby As Integer, ByVal invoicecivil As Boolean, ByVal invoiceelect As Boolean, ByVal invoiceother As Boolean, ByVal invoicepmc As Boolean, ByVal invoicetrans As Boolean, ByVal invoicepad As Boolean, ByVal invoiceoandm As Boolean) As Integer
        Dim strid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tspinvoicedtlamend")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@bill_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, invoicecircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_site", DbType.Int32, invoicesite)
        Connection.dbase.AddInParameter(dbCommand, "@bill_masterid", DbType.Int32, masterid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_fyr", DbType.String, fyr)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.String, invoicetype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, invoicetax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, invoiceeby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_uby", DbType.Int32, invoiceuby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_civil", DbType.Boolean, invoicecivil)
        Connection.dbase.AddInParameter(dbCommand, "@bill_elect", DbType.Boolean, invoiceelect)
        Connection.dbase.AddInParameter(dbCommand, "@bill_other", DbType.Boolean, invoiceother)
        Connection.dbase.AddInParameter(dbCommand, "@bill_pmc", DbType.Boolean, invoicepmc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_trans", DbType.Boolean, invoicetrans)
        Connection.dbase.AddInParameter(dbCommand, "@bill_pad", DbType.Boolean, invoicepad)
        Connection.dbase.AddInParameter(dbCommand, "@bill_oandm", DbType.Boolean, invoiceoandm)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        strid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@bill_kid"))
        Return strid
    End Function
    Public Shared Function inserttspbilldetailamand(ByVal tempamandid As Integer, ByVal tempauditid As Integer, ByVal tempinvoiceid As Integer, ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbilltax As Decimal, ByVal tempflag As String) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tspbilldetailsamend")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@bill_amandid", DbType.Int32, tempamandid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tspmaster", DbType.Int32, tempauditid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoice", DbType.Int32, tempinvoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Sub deletetallempbilldtl(ByVal Circle As Int32, ByVal siteid As Int32, ByVal masterid As Int32, ByVal invoiceid As Int32, ByVal itemid As Integer, ByVal enterby As Int32, ByVal flag As String, ByVal boqtype As Integer)
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempamandtspbill")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "ALLDELETE")
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_circle", DbType.Int32, Circle)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_site", DbType.Int32, siteid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_masterid", DbType.Int32, masterid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_item", DbType.Int32, itemid)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_eby", DbType.Int32, enterby)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_flage", DbType.String, flag)
        Connection.dbase.AddInParameter(dbCommand, "@tempboq_type", DbType.Int32, boqtype)
        Connection.dbase.ExecuteNonQuery(dbCommand)
    End Sub
    Public Shared Function deletealltemptspbillamand(ByVal tempcircle As Integer, ByVal tempsiteid As Integer, ByVal tempmasterid As Integer, ByVal tempinvoiceid As Integer, ByVal tempbiltype As Integer, ByVal tempindussrno As Integer, ByVal tempitemid As Integer, ByVal tempitem As String, ByVal tempitemdesc As String, ByVal tempitemunit As String, ByVal temprate As Decimal, ByVal tempqty As Decimal, ByVal tempbpano As String, ByVal tempbpadate As String, ByVal temprono As String, ByVal temprodate As String, ByVal tempbilltax As Decimal, ByVal tempenterby As Integer, ByVal tempflag As String, ByVal tempupdateby As Integer, ByVal temtotalpovalue As Decimal) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_tempbilltspamand")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "ALLDELETE")
        Connection.dbase.AddInParameter(dbCommand, "@bill_circle", DbType.Int32, tempcircle)
        Connection.dbase.AddInParameter(dbCommand, "@bill_siteid", DbType.Int32, tempsiteid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_masterid", DbType.Int32, tempmasterid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_invoiceid", DbType.Int32, tempinvoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_type", DbType.Int32, tempbiltype)
        Connection.dbase.AddInParameter(dbCommand, "@bill_indussrno", DbType.Int32, tempindussrno)
        Connection.dbase.AddInParameter(dbCommand, "@bill_item", DbType.Int32, tempitemid)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemnm", DbType.String, tempitem)
        Connection.dbase.AddInParameter(dbCommand, "@bill_itemdesc", DbType.String, tempitemdesc)
        Connection.dbase.AddInParameter(dbCommand, "@bill_unit", DbType.String, tempitemunit)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rate", DbType.Decimal, temprate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_qty", DbType.Decimal, tempqty)
        Connection.dbase.AddInParameter(dbCommand, "@bill_bpa", DbType.String, tempbpano)
        Connection.dbase.AddInParameter(dbCommand, "@biill_bpadate", DbType.String, tempbpadate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rono", DbType.String, temprono)
        Connection.dbase.AddInParameter(dbCommand, "@bill_rodate", DbType.String, temprodate)
        Connection.dbase.AddInParameter(dbCommand, "@bill_tax", DbType.Decimal, tempbilltax)
        Connection.dbase.AddInParameter(dbCommand, "@bill_eby", DbType.Int32, tempenterby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_flage", DbType.String, tempflag)
        Connection.dbase.AddInParameter(dbCommand, "@bill_upby", DbType.Int32, tempupdateby)
        Connection.dbase.AddInParameter(dbCommand, "@bill_povalue", DbType.Decimal, temtotalpovalue)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
#End Region
#Region "PMC AND LOADING SUPPORT BILLING"
    'Public Shared Function InsertPMCBillMaster(ByVal finalcialyear As String, ByVal circle_id As Integer, ByVal Created_by As Integer, ByVal status As Boolean) As Integer
    '    Dim billid As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PmcBillMaster_Insert")

'    Connection.dbase.AddOutParameter(dbCommand, "@PMCbill_id", DbType.Int32, Integer.MaxValue)
    '    Connection.dbase.AddInParameter(dbCommand, "@finalcialyear", DbType.String, finalcialyear)
    '    Connection.dbase.AddInParameter(dbCommand, "@circle_id", DbType.Int32, circle_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bill_date", DbType.Date, System.DateTime.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@Created_by", DbType.Int32, Created_by)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    billid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@PMCbill_id"))
    '    Return billid
    'End Function
    'Public Shared Function InserPMCBillDetail(ByVal bill_id As Integer, ByVal indus_id As String, ByVal reqref_no As String, ByVal Gsm As String, ByVal Mw As String) As String
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PMCSiteTrans_Insert")

'    Connection.dbase.AddInParameter(dbCommand, "@bill_id", DbType.Int32, bill_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@indus_id", DbType.String, indus_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@reqref_no", DbType.String, reqref_no)
    '    Connection.dbase.AddInParameter(dbCommand, "@Gsm", DbType.String, Gsm)
    '    Connection.dbase.AddInParameter(dbCommand, "@Mw", DbType.String, Mw)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing

'End Function
    'Public Shared Function InsertPMCInvoice(ByVal bill_id As Integer, ByVal BillNo As String, ByVal FinancialYear As String, ByVal Circleid As Integer, ByVal No_of_Site As Integer, ByVal Pmc_rate As Integer, ByVal totalamount As Decimal, ByVal servicetax As Decimal, ByVal educess As Decimal, ByVal Seceducess As Decimal, ByVal grandtotal As Decimal, ByVal status As Boolean, ByVal service_applied As Decimal, ByVal Edu_applied As Decimal, ByVal Sec_applied As Decimal, ByVal Created_by As Integer, ByVal BpaNo As String, ByVal Bpadt As DateTime, ByVal RoNo As String, ByVal Rodt As DateTime, ByVal InvoiceType As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PmcInvoice_Insert")

'    Connection.dbase.AddInParameter(dbCommand, "@Bill_id", DbType.Int32, bill_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@BillNo", DbType.String, BillNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@finalcialyear", DbType.String, FinancialYear)
    '    Connection.dbase.AddInParameter(dbCommand, "@InvoiceDate", DbType.DateTime, System.DateTime.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle_id", DbType.Int32, Circleid)
    '    Connection.dbase.AddInParameter(dbCommand, "@No_of_Site", DbType.Int32, No_of_Site)
    '    Connection.dbase.AddInParameter(dbCommand, "@Pmc_rate", DbType.Int32, Pmc_rate)
    '    Connection.dbase.AddInParameter(dbCommand, "@Total_amo", DbType.Decimal, totalamount)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_applied", DbType.Decimal, service_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_tax", DbType.Decimal, servicetax)
    '    Connection.dbase.AddInParameter(dbCommand, "@Edu_applied", DbType.Decimal, Edu_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@Edu_cess", DbType.Decimal, educess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Sec_applied", DbType.Decimal, Sec_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@Sec_edu_cess", DbType.Decimal, Seceducess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Grand_total", DbType.Decimal, grandtotal)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedBy", DbType.Int32, Created_by)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bpa_No", DbType.String, BpaNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bpa_Date", DbType.DateTime, Bpadt)
    '    Connection.dbase.AddInParameter(dbCommand, "@RO_No", DbType.String, RoNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@Ro_Date", DbType.DateTime, Rodt)
    '    Connection.dbase.AddInParameter(dbCommand, "@Type", DbType.String, InvoiceType)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    Return Nothing
    'End Function
    'Public Shared Function InsertMOUNTBillMaster(ByVal finalcialyear As String, ByVal circle_id As Integer, ByVal Created_by As Integer, ByVal status As Boolean) As Integer
    '    Dim billid As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_MOUNTBillMaster")

'    Connection.dbase.AddOutParameter(dbCommand, "@PMCbill_id", DbType.Int32, Integer.MaxValue)
    '    Connection.dbase.AddInParameter(dbCommand, "@finalcialyear", DbType.String, finalcialyear)
    '    Connection.dbase.AddInParameter(dbCommand, "@circle_id", DbType.Int32, circle_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bill_date", DbType.Date, System.DateTime.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@Created_by", DbType.Int32, Created_by)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    billid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@PMCbill_id"))
    '    Return billid
    'End Function
    'Public Shared Function InserMOUNTBillDetail(ByVal bill_id As Integer, ByVal indus_id As String, ByVal reqref_no As String, ByVal Gsm As String, ByVal Mw As String) As String
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_MOUNTSiteTrans")

'    Return Nothing

'End Function
    'Public Shared Function InsertMOUNTInvoice(ByVal bill_id As Integer, ByVal BillNo As String, ByVal FinancialYear As String, ByVal Circleid As Integer, ByVal No_of_Site As Integer, ByVal Pmc_rate As Integer, ByVal totalamount As Decimal, ByVal servicetax As Decimal, ByVal educess As Decimal, ByVal Seceducess As Decimal, ByVal grandtotal As Decimal, ByVal status As Boolean, ByVal service_applied As Decimal, ByVal Edu_applied As Decimal, ByVal Sec_applied As Decimal, ByVal Created_by As Integer, ByVal BpaNo As String, ByVal Bpadt As DateTime, ByVal RoNo As String, ByVal Rodt As DateTime, ByVal InvoiceType As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_MOUNTInvoice")

'    Connection.dbase.AddInParameter(dbCommand, "@Bill_id", DbType.Int32, bill_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@BillNo", DbType.String, BillNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@finalcialyear", DbType.String, FinancialYear)
    '    Connection.dbase.AddInParameter(dbCommand, "@InvoiceDate", DbType.DateTime, System.DateTime.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle_id", DbType.Int32, Circleid)
    '    Connection.dbase.AddInParameter(dbCommand, "@No_of_Site", DbType.Int32, No_of_Site)
    '    Connection.dbase.AddInParameter(dbCommand, "@Pmc_rate", DbType.Int32, Pmc_rate)
    '    Connection.dbase.AddInParameter(dbCommand, "@Total_amo", DbType.Decimal, totalamount)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_applied", DbType.Decimal, service_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_tax", DbType.Decimal, servicetax)
    '    Connection.dbase.AddInParameter(dbCommand, "@Edu_applied", DbType.Decimal, Edu_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@Edu_cess", DbType.Decimal, educess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Sec_applied", DbType.Decimal, Sec_applied)
    '    Connection.dbase.AddInParameter(dbCommand, "@Sec_edu_cess", DbType.Decimal, Seceducess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Grand_total", DbType.Decimal, grandtotal)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedBy", DbType.Int32, Created_by)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bpa_No", DbType.String, BpaNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@Bpa_Date", DbType.DateTime, Bpadt)
    '    Connection.dbase.AddInParameter(dbCommand, "@RO_No", DbType.String, RoNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@Ro_Date", DbType.DateTime, Rodt)
    '    Connection.dbase.AddInParameter(dbCommand, "@Type", DbType.String, InvoiceType)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    Return Nothing
    'End Function
    'Public Shared Function InsertBoq11(ByVal IndusNo As String, ByVal session As String, ByVal Circle_id As Integer, ByVal item_name As String, ByVal item_description As String, ByVal Unit As String, ByVal remark As String, ByVal price As Decimal, ByVal boq_type As Integer, ByVal status As Boolean, ByVal EnterBy As Integer) As Integer

'    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_AddBoq")
    '    Connection.dbase.AddInParameter(dbCommand, "@Indusno", DbType.String, IndusNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@session", DbType.String, session)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle_id", DbType.Int32, Circle_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@item_name", DbType.String, item_name)
    '    Connection.dbase.AddInParameter(dbCommand, "@item_description", DbType.String, item_description)
    '    Connection.dbase.AddInParameter(dbCommand, "@unit", DbType.String, Unit)
    '    Connection.dbase.AddInParameter(dbCommand, "@remark", DbType.String, remark)
    '    Connection.dbase.AddInParameter(dbCommand, "@price", DbType.Decimal, price)
    '    Connection.dbase.AddInParameter(dbCommand, "@Boq_type", DbType.Int32, boq_type)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.AddInParameter(dbCommand, "@Date", DbType.Date, System.DateTime.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@EnterBy", DbType.Int32, EnterBy)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing

'End Function
    'Public Shared Function UpdateBoq(ByVal BOQ_id As Integer, ByVal IndusNo As String, ByVal Circle_id As Integer, ByVal item_name As String, ByVal item_description As String, ByVal Unit As String, ByVal remark As String, ByVal price As Decimal, ByVal boq_type As Integer) As Integer

'    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_BoqUpdate")

'    Connection.dbase.AddInParameter(dbCommand, "@BOQ_id", DbType.Int32, BOQ_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@Indusno", DbType.String, IndusNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle_id", DbType.Int32, Circle_id)
    '    Connection.dbase.AddInParameter(dbCommand, "@item_name", DbType.String, item_name)
    '    Connection.dbase.AddInParameter(dbCommand, "@item_description", DbType.String, item_description)
    '    Connection.dbase.AddInParameter(dbCommand, "@unit", DbType.String, Unit)
    '    Connection.dbase.AddInParameter(dbCommand, "@remark", DbType.String, remark)
    '    Connection.dbase.AddInParameter(dbCommand, "@price", DbType.Decimal, price)
    '    Connection.dbase.AddInParameter(dbCommand, "@Boq_type", DbType.Int32, boq_type)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'End Function
    'Public Shared Function TSPBillSubmit_Trans(ByVal Billno As String, ByVal Submitdate As DateTime, ByVal TransType As Char, ByVal Submitby As String, ByVal status As Boolean, ByVal RTVreason As String) As Integer

'    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("Spcosmo_TSPBillSubmit_Trans")
    '    Connection.dbase.AddInParameter(dbCommand, "@Bill_no", DbType.String, Billno)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submitted_date", DbType.DateTime, Submitdate)
    '    Connection.dbase.AddInParameter(dbCommand, "@TransType", DbType.String, TransType)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submit_by", DbType.Int32, Submitby)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.AddInParameter(dbCommand, "@RTVReason", DbType.String, RTVreason)

'    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    Return Nothing

'End Function
    'Public Shared Function PMCBillSubmit_Trans(ByVal Billno As String, ByVal Submitdate As DateTime, ByVal TransType As Char, ByVal Submitby As String, ByVal status As Boolean, ByVal RTVreason As String) As Integer

'    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("Spcosmo_PMCBillSubmit_Trans")
    '    Connection.dbase.AddInParameter(dbCommand, "@Bill_no", DbType.String, Billno)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submitted_date", DbType.DateTime, Submitdate)
    '    Connection.dbase.AddInParameter(dbCommand, "@TransType", DbType.String, TransType)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submit_by", DbType.Int32, Submitby)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.Boolean, status)
    '    Connection.dbase.AddInParameter(dbCommand, "@RTVReason", DbType.String, RTVreason)

'    Connection.dbase.ExecuteNonQuery(dbCommand)
    '    Return Nothing

'End Function
    'Public Shared Function InsertTspBillTrans(ByVal Bill_no As Integer, ByVal Submitted_date As DateTime, ByVal TransType As String, ByVal Submit_by As Integer, ByVal status As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("Spcosmo_TSPBillSubmit_Trans")
    '    Connection.dbase.AddInParameter(dbCommand, "@Bill_no", DbType.Int32, Bill_no)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submitted_date", DbType.DateTime, Submitted_date)
    '    Connection.dbase.AddInParameter(dbCommand, "@TransType", DbType.String, TransType)
    '    Connection.dbase.AddInParameter(dbCommand, "@Submit_by", DbType.Int32, Submit_by)
    '    Connection.dbase.AddInParameter(dbCommand, "@status", DbType.String, status)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing

'End Function
    'Public Shared Function InsertPaymentReceived(ByVal ChequeDate As DateTime, ByVal PaymentMode As Integer, ByVal BankName As String, ByVal BranchName As String, ByVal ChequeNo As String, ByVal CheqReceived As Integer, ByVal Circle As Integer, ByVal CreatedDate As DateTime, ByVal CreatedBy As String, ByVal UpdatedDate As String, ByVal UpdatedBy As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PaymentReceive_Insert")
    '    Connection.dbase.AddInParameter(dbCommand, "@ChequeDate", DbType.DateTime, ChequeDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@PaymentMode", DbType.Int32, PaymentMode)
    '    Connection.dbase.AddInParameter(dbCommand, "@BankName", DbType.String, BankName)
    '    Connection.dbase.AddInParameter(dbCommand, "@BranchName", DbType.String, BranchName)
    '    Connection.dbase.AddInParameter(dbCommand, "@ChequeNo", DbType.String, ChequeNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@CheqReceived", DbType.Decimal, CheqReceived)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle", DbType.Int32, Circle)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedDate", DbType.DateTime, CreatedDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedBy", DbType.String, CreatedBy)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedDate", DbType.String, UpdatedDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedBy", DbType.String, UpdatedBy)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing

'End Function
    'Public Shared Function UpdatePaymentReceived(ByVal PaymentRecvId As Integer, ByVal ChequeDate As DateTime, ByVal PaymentMode As Integer, ByVal BankName As String, ByVal BranchName As String, ByVal ChequeNo As String, ByVal CheqReceived As Integer, ByVal Circle As Integer, ByVal UpdatedDate As DateTime, ByVal UpdatedBy As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PaymentRecevUpdate")
    '    Connection.dbase.AddInParameter(dbCommand, "@PaymentRecvId", DbType.Int32, PaymentRecvId)
    '    Connection.dbase.AddInParameter(dbCommand, "@ChequeDate", DbType.DateTime, ChequeDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@PaymentMode", DbType.Int32, PaymentMode)
    '    Connection.dbase.AddInParameter(dbCommand, "@BankName", DbType.String, BankName)
    '    Connection.dbase.AddInParameter(dbCommand, "@BranchName", DbType.String, BranchName)
    '    Connection.dbase.AddInParameter(dbCommand, "@ChequeNo", DbType.String, ChequeNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@CheqReceived", DbType.Decimal, CheqReceived)
    '    Connection.dbase.AddInParameter(dbCommand, "@Circle", DbType.Int32, Circle)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedDate", DbType.DateTime, UpdatedDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedBy", DbType.Int32, UpdatedBy)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'End Function
    'Public Shared Function InsertPaymentRecvDetail(ByVal PaymentRecevId As String, ByVal BillNo As String, ByVal IndusId As String, ByVal BillAmt As Decimal, ByVal PassedAmt As Decimal, ByVal CreditNote As Decimal, ByVal RecdAmt As Decimal, ByVal Retention As Decimal, ByVal Wctl As Decimal, ByVal Tds As Decimal, ByVal Deduction As Decimal, ByVal Balance As Decimal, ByVal BillNotPassed As Decimal, ByVal CreatedDate As DateTime, ByVal CreatedBy As String, ByVal UpdatedDate As String, ByVal UpdatedBy As String) As Integer
    '    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_PaymentRecvDetlInsert")
    '    Connection.dbase.AddInParameter(dbCommand, "@PaymentRecevId", DbType.Int32, PaymentRecevId)
    '    Connection.dbase.AddInParameter(dbCommand, "@BillNo", DbType.String, BillNo)
    '    Connection.dbase.AddInParameter(dbCommand, "@IndusId", DbType.String, IndusId)
    '    Connection.dbase.AddInParameter(dbCommand, "@BillAmt", DbType.Decimal, BillAmt)
    '    Connection.dbase.AddInParameter(dbCommand, "@PassedAmt", DbType.Decimal, PassedAmt)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreditNote", DbType.Decimal, CreditNote)
    '    Connection.dbase.AddInParameter(dbCommand, "@RecdAmt", DbType.Decimal, RecdAmt)
    '    Connection.dbase.AddInParameter(dbCommand, "@Retention", DbType.Decimal, Retention)
    '    Connection.dbase.AddInParameter(dbCommand, "@Wctl", DbType.Decimal, Wctl)
    '    Connection.dbase.AddInParameter(dbCommand, "@Tds", DbType.Decimal, Tds)
    '    Connection.dbase.AddInParameter(dbCommand, "@Deduction", DbType.Decimal, Deduction)
    '    Connection.dbase.AddInParameter(dbCommand, "@Balance", DbType.Decimal, Balance)
    '    Connection.dbase.AddInParameter(dbCommand, "@BillNotPassed", DbType.Decimal, BillNotPassed)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedDate", DbType.DateTime, CreatedDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@CreatedBy", DbType.String, CreatedBy)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedDate", DbType.String, UpdatedDate)
    '    Connection.dbase.AddInParameter(dbCommand, "@UpdatedBy", DbType.String, UpdatedBy)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing

'End Function
    'Public Shared Function UpdateTSPInvoice(ByVal Bill_no As String, ByVal billid As Integer, ByVal TotalAmount As Decimal, ByVal serviceapplied As Decimal, ByVal servicetax As Decimal, ByVal EductionApplied As Decimal, ByVal EductionCess As Decimal, ByVal Secapplied As Decimal, ByVal secondhgrcess As Decimal, ByVal Grandtotal As Decimal, ByVal UpdateBY As Integer, ByVal Vat As Decimal, ByVal Vattotal As Decimal) As Integer

'    Dim Connection As Connection = New Connection()
    '    Dim dbCommand As DbCommand = Nothing
    '    dbCommand = Connection.dbase.GetStoredProcCommand("spcosmo_EditInvoiceDTL")
    '    Connection.dbase.AddInParameter(dbCommand, "@billno", DbType.String, Bill_no)
    '    Connection.dbase.AddInParameter(dbCommand, "@billid", DbType.Int32, billid)
    '    Connection.dbase.AddInParameter(dbCommand, "@Tot_amo", DbType.Decimal, TotalAmount)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_applied", DbType.Decimal, serviceapplied)
    '    Connection.dbase.AddInParameter(dbCommand, "@service_tax", DbType.Decimal, servicetax)
    '    Connection.dbase.AddInParameter(dbCommand, "@Edu_applied", DbType.Decimal, EductionApplied)
    '    Connection.dbase.AddInParameter(dbCommand, "@Eduction_Cess", DbType.Decimal, EductionCess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Sec_applied", DbType.Decimal, Secapplied)
    '    Connection.dbase.AddInParameter(dbCommand, "@second_hgr_cess", DbType.Decimal, secondhgrcess)
    '    Connection.dbase.AddInParameter(dbCommand, "@Grand_total", DbType.Decimal, Grandtotal)
    '    Connection.dbase.AddInParameter(dbCommand, "@Update_BY", DbType.Int32, UpdateBY)
    '    Connection.dbase.AddInParameter(dbCommand, "@Updatedate", DbType.Date, Date.Now)
    '    Connection.dbase.AddInParameter(dbCommand, "@vat", DbType.Decimal, Vat)
    '    Connection.dbase.AddInParameter(dbCommand, "@VatTotal", DbType.Decimal, vattotal)
    '    Connection.dbase.ExecuteNonQuery(dbCommand)

'    Return Nothing
    'End Function
#End Region
#Region "SUPPLYMENRTARY INVOICE"
    Public Shared Function insertsupplyinvoice(ByVal supplycircle As Integer, ByVal supplysite As Integer, ByVal suppyflag As String, ByVal suppytype As Integer) As Integer

Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_supplyinvoice")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@supplyinvoice_circle", DbType.Int32, supplycircle)
        Connection.dbase.AddInParameter(dbCommand, "@supplyinvoice_site", DbType.Int32, supplysite)
        Connection.dbase.AddInParameter(dbCommand, "@supplyinvoice_flag", DbType.String, suppyflag)
        Connection.dbase.AddInParameter(dbCommand, "@supplyinvoice_type", DbType.Int32, suppytype)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
#End Region
#Region "SUBMIT INVOICE"
    Public Shared Function invoicesubmitdetails(ByVal invoicecircle As Integer, ByVal invoicesiteid As Integer, ByVal invoiceid As Integer, ByVal invoicesdate As Date, ByVal invoiceenterby As Integer) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("dbo.prc_invoicesubmit")
        Connection.dbase.AddInParameter(dbCommand, "@i_action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@i_circle", DbType.Int32, invoicecircle)
        Connection.dbase.AddInParameter(dbCommand, "@i_site", DbType.Int32, invoicesiteid)
        Connection.dbase.AddInParameter(dbCommand, "@i_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@i_sdate", DbType.Date, invoicesdate)
        Connection.dbase.AddInParameter(dbCommand, "@i_eby", DbType.Int32, invoiceenterby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function invoicertv(ByVal invoicecircle As Integer, ByVal invoicesiteid As Integer, ByVal invoiceid As Integer, ByVal invoicesdate As Date, ByVal invoiceenterby As Integer, ByVal invoicremark As String) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("dbo.prc_invoicertvdtl")
        Connection.dbase.AddInParameter(dbCommand, "@i_action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@i_circle", DbType.Int32, invoicecircle)
        Connection.dbase.AddInParameter(dbCommand, "@i_site", DbType.Int32, invoicesiteid)
        Connection.dbase.AddInParameter(dbCommand, "@i_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@i_rtvdate", DbType.Date, invoicesdate)
        Connection.dbase.AddInParameter(dbCommand, "@i_remark", DbType.String, invoicremark)
        Connection.dbase.AddInParameter(dbCommand, "@i_eby", DbType.Int32, invoiceenterby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
    Public Shared Function invoicertvsubmit(ByVal invoicecircle As Integer, ByVal invoicesiteid As Integer, ByVal invoiceid As Integer, ByVal invoicesdate As Date, ByVal invoiceenterby As Integer) As Integer
        Dim tempid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("dbo.prc_invoicertvsubmit")
        Connection.dbase.AddInParameter(dbCommand, "@i_action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@i_circle", DbType.Int32, invoicecircle)
        Connection.dbase.AddInParameter(dbCommand, "@i_site", DbType.Int32, invoicesiteid)
        Connection.dbase.AddInParameter(dbCommand, "@i_invoice", DbType.Int32, invoiceid)
        Connection.dbase.AddInParameter(dbCommand, "@i_sdate", DbType.Date, invoicesdate)
        Connection.dbase.AddInParameter(dbCommand, "@i_eby", DbType.Int32, invoiceenterby)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'tempid = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@po_kid"))
        Return tempid
    End Function
#End Region
#Region "BANK MASTER"
    Public Shared Function insertbank(ByVal bankname As String, ByVal banknterby As Integer, ByVal bankflag As String) As Integer
        Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_bank")
        Connection.dbase.AddInParameter(dbCommand, "@ACTION", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@BANKBANE", DbType.String, bankname)
        Connection.dbase.AddInParameter(dbCommand, "@ENTERBY", DbType.Int32, banknterby)
        Connection.dbase.AddInParameter(dbCommand, "@FLAG", DbType.String, bankflag)
        Connection.dbase.ExecuteNonQuery(dbCommand)

Return boqid
    End Function
    Public Shared Function insertpaymentreceive(ByVal circleid As Integer, ByVal receivedate As Date, ByVal paymentmode As Integer, ByVal bankid As Integer, ByVal branchname As String, ByVal chequeno As String, ByVal checqueamt As Decimal, ByVal remark As String, ByVal enterby As Integer, ByVal flag As String) As Integer
        Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_paymentreceive")
        Connection.dbase.AddInParameter(dbCommand, "@ACTION", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@CIRCLEID", DbType.Int32, circleid)
        Connection.dbase.AddInParameter(dbCommand, "@RECEIVEDATE", DbType.Date, receivedate)
        Connection.dbase.AddInParameter(dbCommand, "@PAYMENTMODE", DbType.Int32, paymentmode)
        Connection.dbase.AddInParameter(dbCommand, "@BANKID", DbType.Int32, bankid)
        Connection.dbase.AddInParameter(dbCommand, "@BRANCHNAME", DbType.String, branchname)
        Connection.dbase.AddInParameter(dbCommand, "@CHEQUENO", DbType.String, chequeno)
        Connection.dbase.AddInParameter(dbCommand, "@CHEQUEAMT", DbType.Decimal, checqueamt)
        Connection.dbase.AddInParameter(dbCommand, "@REMARK", DbType.String, remark)
        Connection.dbase.AddInParameter(dbCommand, "@ENTERBY", DbType.Int32, enterby)
        Connection.dbase.AddInParameter(dbCommand, "@FLAG", DbType.String, flag)
        Connection.dbase.ExecuteNonQuery(dbCommand)

Return boqid
    End Function
#End Region
#Region "DD/UTR Master"
    Public Shared Function UTRTempDelete(ByVal ddutrno_kid As Decimal, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnotemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRTemp(ByVal ddutrno_kid As Integer, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_siteid As String, ByVal ddutrno_pono As String, ByVal ddutrno_circleid As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnotemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsert(ByVal ddutrno_kid As Integer, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_siteid As String, ByVal ddutrno_pono As String, ByVal ddutrno_circleid As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrno")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_siteid", DbType.String, ddutrno_siteid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_pono", DbType.String, ddutrno_pono)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_circleid", DbType.String, ddutrno_circleid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_accountno", DbType.String, ddutrno_accountno)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRTempDeleteDr(ByVal ddutrno_kid As Decimal, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnotempdr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRTempDr(ByVal ddutrno_kid As Integer, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnotempdr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsertDr(ByVal ddutrno_kid As Integer, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnodr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_accountno", DbType.String, ddutrno_accountno)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsertDrUpdate(ByVal ddutrno_kid As Decimal, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnodr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "UPDATE")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_accountno", DbType.String, ddutrno_accountno)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsertDrAmand(ByVal ddutrno_kid As Decimal, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnodr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "AMANDUTR")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_accountno", DbType.String, ddutrno_accountno)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsertDrDelete(ByVal ddutrno_kid As Decimal, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_ddutrnodr")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETEUTR")
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, ddutrno_kid)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

Connection.dbase.AddInParameter(dbCommand, "@ddutrno_no", DbType.String, ddutrno_no)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_crdr", DbType.String, ddutrno_crdr)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_amount", DbType.Decimal, ddutrno_amount)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_type", DbType.String, ddutrno_type)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_status", DbType.String, ddutrno_status)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_enterby", DbType.Int64, ddutrno_enterby)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_flag", DbType.String, ddutrno_flag)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_accountno", DbType.String, ddutrno_accountno)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function UTRInsertDrNew(ByVal ddutrno_kid As Integer, ByVal ddutrno_transactionno As String, ByVal ddutrno_valuedate As Date, ByVal ddutrno_date As Date, ByVal ddutrno_chequeno As String, ByVal ddutrno_no As String, ByVal ddutrno_crdr As String, ByVal ddutrno_amount As Decimal, ByVal ddutrno_type As String, ByVal ddutrno_status As String, ByVal ddutrno_enterby As Integer, ByVal ddutrno_flag As String, ByVal ddutrno_accountno As String) As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        Dim iUTRNo As String = String.Empty
        dbCommand = Connection.dbase.GetStoredProcCommand("[prc_ddutrnotempdrNew]")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")
        Connection.dbase.AddOutParameter(dbCommand, "@ddutrno_kid", DbType.Decimal, 0)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_transactionno", DbType.String, ddutrno_transactionno)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_valuedate", DbType.Date, ddutrno_valuedate)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_date", DbType.Date, ddutrno_date)
        Connection.dbase.AddInParameter(dbCommand, "@ddutrno_chequeno", DbType.String, ddutrno_chequeno)

#End Region
#Region "Payment Master"
    Public Shared Function PaymentMaster(ByVal payment_location As Integer, ByVal payment_date As Date, ByVal payment_customer As Decimal, ByVal payment_customernm As String, ByVal payment_amount As Decimal, ByVal payment_ddutrno As String, ByVal payment_cby As Integer, ByVal payment_flag As String, ByVal payment_fyr As String, ByVal payment_ramarks As String, ByVal payment_otheramount As Decimal, ByVal payment_otherremarks As String) As Integer
        Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_payment")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddOutParameter(dbCommand, "@payment_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@payment_location", DbType.Int32, payment_location)
        Connection.dbase.AddInParameter(dbCommand, "@payment_date", DbType.Date, payment_date)
        Connection.dbase.AddInParameter(dbCommand, "@payment_customer", DbType.Decimal, payment_customer)
        Connection.dbase.AddInParameter(dbCommand, "@payment_customernm", DbType.String, payment_customernm)
        Connection.dbase.AddInParameter(dbCommand, "@payment_amount", DbType.Decimal, payment_amount)
        Connection.dbase.AddInParameter(dbCommand, "@payment_ddutrno", DbType.String, payment_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@payment_cby", DbType.Int32, payment_cby)
        Connection.dbase.AddInParameter(dbCommand, "@payment_flag", DbType.String, payment_flag)
        Connection.dbase.AddInParameter(dbCommand, "@payment_fyr", DbType.String, payment_fyr)
        Connection.dbase.AddInParameter(dbCommand, "@payment_ramarks", DbType.String, payment_ramarks)

Connection.dbase.AddInParameter(dbCommand, "@payment_otheramount", DbType.Decimal, payment_otheramount)
        Connection.dbase.AddInParameter(dbCommand, "@payment_otherremarks", DbType.String, payment_otherremarks)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        Return iPaymentMaster
        Return Nothing
    End Function
    Public Shared Function PaymentMasterDelete(ByVal payment_location As Integer, ByVal payment_date As Date, ByVal payment_customer As Decimal, ByVal payment_customernm As String, ByVal payment_amount As Decimal, ByVal payment_ddutrno As String, ByVal payment_cby As Integer, ByVal payment_flag As String, ByVal payment_fyr As String, ByVal payment_ramarks As String, ByVal payment_otheramount As Decimal, ByVal payment_otherremarks As String) As Integer
        ' Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_payment")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")

Connection.dbase.AddInParameter(dbCommand, "@payment_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@payment_location", DbType.Int32, payment_location)
        Connection.dbase.AddInParameter(dbCommand, "@payment_date", DbType.Date, payment_date)
        Connection.dbase.AddInParameter(dbCommand, "@payment_customer", DbType.Decimal, payment_customer)
        Connection.dbase.AddInParameter(dbCommand, "@payment_customernm", DbType.String, payment_customernm)
        Connection.dbase.AddInParameter(dbCommand, "@payment_amount", DbType.Decimal, payment_amount)
        Connection.dbase.AddInParameter(dbCommand, "@payment_ddutrno", DbType.String, payment_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@payment_cby", DbType.Int32, payment_cby)
        Connection.dbase.AddInParameter(dbCommand, "@payment_flag", DbType.String, payment_flag)
        Connection.dbase.AddInParameter(dbCommand, "@payment_fyr", DbType.String, payment_fyr)
        Connection.dbase.AddInParameter(dbCommand, "@payment_ramarks", DbType.String, payment_ramarks)
        Connection.dbase.AddInParameter(dbCommand, "@payment_otheramount", DbType.Decimal, payment_otheramount)
        Connection.dbase.AddInParameter(dbCommand, "@payment_otherremarks", DbType.String, payment_otherremarks)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return iPaymentMaster
        Return Nothing
    End Function
    Public Shared Function PaymentDetails(ByVal paymentdtl_kid As Integer, ByVal paymentdtl_circle As Integer, ByVal paymentdtl_customer As Decimal, ByVal paymentdtl_customername As String, ByVal paymentdtl_paymentmaster As Integer, ByVal paymentdtl_billmaster As Integer, ByVal paymentdtl_amount As Decimal, ByVal paymentdtl_tds As Decimal, ByVal paymentdtl_penalty As Decimal, ByVal paymentdtl_wct As Decimal, ByVal paymentdtl_other As Decimal, ByVal paymentdtl_other1 As Decimal, ByVal paymentdtl_other2 As Decimal, ByVal paymentdtl_remarks As String, ByVal paymentdtl_eby As Integer, ByVal paymentdtl_flag As String, ByVal paymentdtl_fyr As String) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_paymentdtl")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_kid", DbType.Int32, paymentdtl_kid)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_circle", DbType.Int32, paymentdtl_circle)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_customer", DbType.Decimal, paymentdtl_customer)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_customername", DbType.String, paymentdtl_customername)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_paymentmaster", DbType.Int32, paymentdtl_paymentmaster)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_billmaster", DbType.Int32, paymentdtl_billmaster)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_amount", DbType.Decimal, paymentdtl_amount)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_tds", DbType.Decimal, paymentdtl_tds)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_penalty", DbType.Decimal, paymentdtl_penalty)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_wct", DbType.Decimal, paymentdtl_wct)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other", DbType.Decimal, paymentdtl_other)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other1", DbType.Decimal, paymentdtl_other1)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other2", DbType.Decimal, paymentdtl_other2)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_remarks", DbType.String, paymentdtl_remarks)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_eby", DbType.Int32, paymentdtl_eby)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_flag", DbType.String, paymentdtl_flag)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_fyr", DbType.String, paymentdtl_fyr)

Connection.dbase.ExecuteNonQuery(dbCommand)

Return Nothing
    End Function
    Public Shared Function PaymentDetailsDelete(ByVal paymentdtl_kid As Decimal, ByVal paymentdtl_circle As Decimal, ByVal paymentdtl_customer As Decimal, ByVal paymentdtl_customername As String, ByVal paymentdtl_paymentmaster As Decimal, ByVal paymentdtl_billmaster As Decimal, ByVal paymentdtl_amount As Decimal, ByVal paymentdtl_tds As Decimal, ByVal paymentdtl_penalty As Decimal, ByVal paymentdtl_wct As Decimal, ByVal paymentdtl_other As Decimal, ByVal paymentdtl_other1 As Decimal, ByVal paymentdtl_other2 As Decimal, ByVal paymentdtl_remarks As String, ByVal paymentdtl_eby As Integer, ByVal paymentdtl_flag As String, ByVal paymentdtl_fyr As String) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_paymentdtlfordelete")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "DELETE")
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_kid", DbType.Int32, paymentdtl_kid)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_circle", DbType.Int32, paymentdtl_circle)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_customer", DbType.Decimal, paymentdtl_customer)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_customername", DbType.String, paymentdtl_customername)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_paymentmaster", DbType.Decimal, paymentdtl_paymentmaster)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_billmaster", DbType.Decimal, paymentdtl_billmaster)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_amount", DbType.Decimal, paymentdtl_amount)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_tds", DbType.Decimal, paymentdtl_tds)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_penalty", DbType.Decimal, paymentdtl_penalty)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_wct", DbType.Decimal, paymentdtl_wct)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other", DbType.Decimal, paymentdtl_other)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other1", DbType.Decimal, paymentdtl_other1)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other2", DbType.Decimal, paymentdtl_other2)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_remarks", DbType.String, paymentdtl_remarks)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_eby", DbType.Int32, paymentdtl_eby)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_flag", DbType.String, paymentdtl_flag)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_fyr", DbType.String, paymentdtl_fyr)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        Return Nothing
    End Function
    Public Shared Function PaymentDetailsTemp(ByVal paymentdtl_kid As Integer, ByVal paymentdtl_circle As Integer, ByVal paymentdtl_ddutrno As String, ByVal paymentdtl_ddutrdate As Date, ByVal paymentdtl_no As String, ByVal paymentdtl_amount As Decimal, ByVal paymentdtl_tds As Decimal, ByVal paymentdtl_penalty As Decimal, ByVal paymentdtl_wct As Decimal, ByVal paymentdtl_other As Decimal, ByVal paymentdtl_other1 As Decimal, ByVal paymentdtl_other2 As Decimal, ByVal paymentdtl_remarks As String, ByVal paymentdtl_eby As Integer) As Integer
        ' Dim boqid As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_paymentdtltemp")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_kid", DbType.Int32, paymentdtl_kid)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_circle", DbType.Int32, paymentdtl_circle)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_ddutrno", DbType.String, paymentdtl_ddutrno)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_ddutrdate", DbType.Date, paymentdtl_ddutrdate)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_no", DbType.String, paymentdtl_no)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_amount", DbType.Decimal, paymentdtl_amount)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_tds", DbType.Decimal, paymentdtl_tds)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_penalty", DbType.Decimal, paymentdtl_penalty)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_wct", DbType.Decimal, paymentdtl_wct)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other", DbType.Decimal, paymentdtl_other)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other1", DbType.Decimal, paymentdtl_other1)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_other2", DbType.Decimal, paymentdtl_other2)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_remarks", DbType.String, paymentdtl_remarks)
        Connection.dbase.AddInParameter(dbCommand, "@paymentdtl_eby", DbType.Int32, paymentdtl_eby)

Connection.dbase.ExecuteNonQuery(dbCommand)

Return Nothing
    End Function
    Public Shared Function BillBulkDataInsert(ByVal filepath_location As Integer, ByVal filepath_utrdate As Date, ByVal filepath_utrno As String, ByVal filepath_usr As Integer, ByVal filepath_path As String) As Integer
        '  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_filepath")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@filepath_kid", DbType.Int32, 0)
        Connection.dbase.AddInParameter(dbCommand, "@filepath_location", DbType.Int32, filepath_location)
        Connection.dbase.AddInParameter(dbCommand, "@filepath_utrdate", DbType.Date, filepath_utrdate)
        Connection.dbase.AddInParameter(dbCommand, "@filepath_utrno", DbType.String, filepath_utrno)
        Connection.dbase.AddInParameter(dbCommand, "@filepath_usr", DbType.Int32, filepath_usr)
        Connection.dbase.AddInParameter(dbCommand, "@filepath_path", DbType.String, filepath_path)
        Connection.dbase.ExecuteNonQuery(dbCommand)
        'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
#End Region
#Region "Budget Master"
    Public Shared Function BudgetNew(ByVal monthlybgd_kid As Decimal, ByVal monthlybgd_region As Decimal, ByVal monthlybgd_regionname As String, ByVal monthlybgd_month As Decimal, ByVal monthlybgd_monthname As String,
                                    ByVal monthlybgd_year As Decimal, ByVal monthlybgd_fyr As String, ByVal monthlybgd_head As Decimal, ByVal monthlybgd_headname As String,
                                    ByVal monthlybgd_noofsites As Decimal, ByVal monthlybgd_ratepersite As Decimal,
                                    ByVal monthlybgd_cby As Decimal, ByVal monthlybgd_status As String,
                                    ByVal monthlybgd_flag As String, ByVal monthlybgd_mode As Decimal, ByVal monthlybgd_modename As String,
                                    ByVal monthlybgd_company As Decimal, ByVal monthlybgd_companyname As String) As Integer

'  Dim iPaymentMaster As Integer
        Dim Connection As Connection = New Connection()
        Dim dbCommand As DbCommand = Nothing
        dbCommand = Connection.dbase.GetStoredProcCommand("prc_monthlybgd")
        Connection.dbase.AddInParameter(dbCommand, "@action", DbType.String, "INSERT")

Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_kid", DbType.Decimal, monthlybgd_kid)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_region", DbType.Decimal, monthlybgd_region)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_regionname", DbType.String, monthlybgd_regionname)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_month", DbType.Decimal, monthlybgd_month)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_monthname", DbType.String, monthlybgd_monthname)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_year", DbType.Decimal, monthlybgd_year)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_fyr", DbType.String, monthlybgd_fyr)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_head", DbType.Decimal, monthlybgd_head)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_headname", DbType.String, monthlybgd_headname)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_noofsites", DbType.Decimal, monthlybgd_noofsites)

Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_ratepersite", DbType.Decimal, monthlybgd_ratepersite)

Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_cby", DbType.Decimal, monthlybgd_cby)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_status", DbType.String, monthlybgd_status)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_flag", DbType.String, monthlybgd_flag)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_mode", DbType.Decimal, monthlybgd_mode)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_modename", DbType.String, monthlybgd_modename)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_company", DbType.Decimal, monthlybgd_company)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_companyname", DbType.String, monthlybgd_companyname)
        Connection.dbase.ExecuteNonQuery(dbCommand)

'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
    Public Shared Function BudgetNewUpdate(ByVal monthlybgd_kid As Decimal, ByVal monthlybgd_region As Decimal, ByVal monthlybgd_regionname As String, ByVal monthlybgd_month As Decimal, ByVal monthlybgd_monthname As String,
                                    ByVal monthlybgd_year As Decimal, ByVal monthlybgd_fyr As String, ByVal monthlybgd_head As Decimal, ByVal monthlybgd_headname As String,
                                    ByVal monthlybgd_noofsites As Decimal, ByVal monthlybgd_ratepersite As Decimal,
                                    ByVal monthlybgd_cby As Decimal, ByVal monthlybgd_status As String,
                                    ByVal monthlybgd_flag As String, ByVal monthlybgd_mode As Decimal, ByVal monthlybgd_modename As String,
                                    ByVal monthlybgd_company As Decimal, ByVal monthlybgd_companyname As String) As Integer

Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_ratepersite", DbType.Decimal, monthlybgd_ratepersite)

Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_company", DbType.Decimal, monthlybgd_company)
        Connection.dbase.AddInParameter(dbCommand, "@monthlybgd_companyname", DbType.String, monthlybgd_companyname)

Connection.dbase.ExecuteNonQuery(dbCommand)

'iPaymentMaster = Convert.ToInt32(Connection.dbase.GetParameterValue(dbCommand, "@payment_kid"))
        ' Return Nothing
        Return Nothing
    End Function
#End Region
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2024-08-15 06:32:47
..	dir	-	0/0	0777	2024-08-15 06:33:40
BillMaster.vb	text/plain	241.06 KB	0/0	0666	2024-08-15 06:32:46
ChallanMaster.vb	text/plain	14.75 KB	0/0	0666	2024-08-15 06:32:46
CircleMaster.vb	text/plain	1.13 KB	0/0	0666	2024-08-15 06:32:46
CommonHelper.vb	text/plain	24.62 KB	0/0	0666	2024-08-15 06:32:46
Connection.vb	text/plain	576 B	0/0	0666	2024-08-15 06:32:46
Database.vb	text/plain	3 B	0/0	0666	2024-08-15 06:32:46
Datautility.vb	text/plain	4.52 KB	0/0	0666	2024-08-15 06:32:46
DownloadImage.vb	text/plain	926 B	0/0	0666	2024-08-15 06:32:46
LoginMaster.vb	text/plain	3.26 KB	0/0	0666	2024-08-15 06:32:46
Masters.vb	text/plain	4.43 KB	0/0	0666	2024-08-15 06:32:46
Material.xsd	text/xml	803.5 KB	0/0	0666	2024-08-15 06:32:46
Material.xss	text/xml	9.69 KB	0/0	0666	2024-08-15 06:32:46
MaterialRelated.vb	text/plain	250.4 KB	0/0	0666	2024-08-15 06:32:47
Patient.vb	text/plain	13.85 KB	0/0	0666	2024-08-15 06:32:47
SessionHelper.vb	text/plain	5.91 KB	0/0	0666	2024-08-15 06:32:47
SiteStage.vb	text/plain	2.77 KB	0/0	0666	2024-08-15 06:32:47
accountdtl.vb	text/plain	33.73 KB	0/0	0666	2024-08-15 06:32:45
commercial.xsd	text/xml	894.17 KB	0/0	0666	2024-08-15 06:32:46
commercial.xss	text/xml	9.04 KB	0/0	0666	2024-08-15 06:32:46
data.vb	text/plain	2.46 KB	0/0	0666	2024-08-15 06:32:46
sitemaster.vb	text/plain	79.98 KB	0/0	0666	2024-08-15 06:32:47
userdetails.vb	text/plain	20.7 KB	0/0	0666	2024-08-15 06:32:47

Team Anon Force

https://t.me/Professor6T9x