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 : MainBLL.vb

Imports Microsoft.VisualBasic
Imports APPCODE.DAL
Public Class MainBLL
    Public Shared Function ReportByDate(ByVal EndDate As String, ByVal StartDate As String, ByVal Mode As String, ByVal Acc_ID As Integer) As DataSet
        Dim sqlparams(4) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@StartDate", StartDate)
            sqlparams(2) = New SqlParameter("@EndDate", EndDate)
            sqlparams(3) = New SqlParameter("@Acc_ID", Acc_ID)
            Return DBBridge.ExecuteDataset("_spReport", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function ReportByDateNew(ByVal Order_ID As Integer, ByVal StartDate As String, ByVal Mode As String, ByVal Acc_ID As Integer) As DataSet
        Dim sqlparams(4) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@StartDate", StartDate)
            sqlparams(2) = New SqlParameter("@Order_ID", Order_ID)
            sqlparams(3) = New SqlParameter("@Acc_ID", Acc_ID)
            Return DBBridge.ExecuteDataset("_spReport", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function ReportBycrDate(ByVal EndDate As String, ByVal StartDate As String, ByVal Mode As String, ByVal Acc_ID As Integer, ByVal Crdate As String, ByVal Order_Code As String) As DataSet
        Dim sqlparams(7) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@StartDate", StartDate)
            sqlparams(2) = New SqlParameter("@EndDate", EndDate)
            sqlparams(3) = New SqlParameter("@Acc_ID", Acc_ID)
            If Crdate = "" Then
                sqlparams(4) = New SqlParameter("@Crdate", DBNull.Value)
            Else
                sqlparams(4) = New SqlParameter("@Crdate", Crdate)
            End If
            sqlparams(5) = New SqlParameter("@Order_Code", Order_Code)
            Return DBBridge.ExecuteDataset("_spReport", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function ReportBycrDateNew(ByVal Order_ID As Integer, ByVal StartDate As String, ByVal Mode As String, ByVal Acc_ID As Integer, ByVal Crdate As String) As DataSet
        Dim sqlparams(5) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@StartDate", StartDate)
            sqlparams(2) = New SqlParameter("@Order_ID", Order_ID)
            sqlparams(3) = New SqlParameter("@Acc_ID", Acc_ID)
            If Crdate = "" Then
                sqlparams(4) = New SqlParameter("@Crdate", DBNull.Value)
            Else
                sqlparams(4) = New SqlParameter("@Crdate", Crdate)
            End If
            Return DBBridge.ExecuteDataset("_spReport", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillGridView(ByVal PageIndex As Integer, ByVal PageSize As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@PageIndex", PageIndex)
            sqlparams(2) = New SqlParameter("@PageSize", PageSize)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    ''' for year wise order grid  on 20-04-2019
    Public Shared Function FillGridView(ByVal PageIndex As Integer, ByVal PageSize As Integer, ByVal Mode As String, ByVal yearid As Integer) As DataSet
        Dim sqlparams(5) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@PageIndex", PageIndex)
            sqlparams(2) = New SqlParameter("@PageSize", PageSize)
            sqlparams(3) = New SqlParameter("@yearId", yearid)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillGrid(ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillGridView(ByVal Mode As String, ByVal Id As Integer) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Id", Id)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    '====================GAYATRI For Product Image==========================================
    Public Shared Function FillGridView1(ByVal Mode As String, ByVal Id As Integer) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Product_Id", Id)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function FillGridViewDisc(ByVal Mode As String, ByVal Id As Integer) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Discount_CustId", Id)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function FillGridViewDiscNew(ByVal Mode As String) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    '=====================================================
    Public Shared Function FillGridViewById(ByVal PageIndex As Integer, ByVal PageSize As Integer, ByVal Id As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@PageIndex", PageIndex)
            sqlparams(2) = New SqlParameter("@PageSize", PageSize)
            sqlparams(3) = New SqlParameter("@Id", Id)
            Return DBBridge.ExecuteDataset("_spFillPagingById", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function SearchGridView(ByVal SearchValue As String, ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@SearchValue", SearchValue)
            Return DBBridge.ExecuteDataset("_spSearch", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    ''' for year wise order sorting on 20-04-2019
    Public Shared Function SearchGridView(ByVal SearchValue As String, ByVal Mode As String, ByVal yearId As Integer) As DataSet
        Dim sqlparams(5) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@SearchValue", SearchValue)
            sqlparams(2) = New SqlParameter("@yearId", yearId)
            Return DBBridge.ExecuteDataset("_spSearch", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function TotalRowInGridview(ByVal Mode As String, ByVal yearId As Integer) As Integer
        Dim sqlparams(4) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@yearId", yearId)
            Return DBBridge.ExecuteScalar("_spTotalNumberOfRecord", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function TotalRowInGridview(ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteScalar("_spTotalNumberOfRecord", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function PendingAmount(ByVal ID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function PendingAmountDate(ByVal ID As Integer, ByVal Mode As String) As String
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function SortingGridView(ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteDataset("_spFillAllRecordForSorting", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    ''' for year wise sorting order on 20-04-2019
    Public Shared Function SortingGridView1(ByVal Mode As String, ByVal yearId As Integer) As DataSet
        Dim sqlparams(4) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@yearId", yearId)
            Return DBBridge.ExecuteDataset("_spFillAllRecordForSorting", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function SortingGridView(ByVal Mode As String, ByVal WarehouseId As Integer) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Id", WarehouseId)
            Return DBBridge.ExecuteDataset("_spFillAllRecordForSorting", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function DeleteSI(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ModifiedID", ModifiedID)
            Return DBBridge.ExecuteScalar("_spDeleteSi", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function RTypeDeleteSI(ByVal ID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_spDeleteSi", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function Restore(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ModifiedID", ModifiedID)
            Return DBBridge.ExecuteScalar("_spRestore", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function UpdateStockStatus(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ModifiedID", ModifiedID)
            Return DBBridge.ExecuteScalar("_spProduct", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function UpdateStatus(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ModifiedID", ModifiedID)
            Return DBBridge.ExecuteScalar("_spOrder", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function RTyprUpdateStatus(ByVal ID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)

Return DBBridge.ExecuteScalar("_spUpdateStatus", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function GetCustId(ByVal Cust_ID As Integer) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "GetCustId")
            sqlparams(1) = New SqlParameter("@id", Cust_ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function GetBillCustId(ByVal Cust_ID As Integer) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "GetBillCustId")
            sqlparams(1) = New SqlParameter("@id", Cust_ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function ViewByID(ByVal ID As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteDataset("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function Dropdown(ByVal Mode As String) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteDataset("_spDropdown", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function DropdownWithID(ByVal Mode As String, ByVal _ID As Integer) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", _ID)
            Return DBBridge.ExecuteDataset("_spDropdown", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function CheckPageName(ByVal _Value As String, ByVal Mode As String) As String
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Value", _Value)
            Return DBBridge.ExecuteScalar("_spCheckExist", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function CheckPageName1(ByVal _Value As String, ByVal _Acc_Id As String) As String
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "CheckPass")
            sqlparams(1) = New SqlParameter("@Value", _Value)
            sqlparams(2) = New SqlParameter("@Acc_Id", _Acc_Id)
            Return DBBridge.ExecuteScalar("_spCheckExist", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function MenuParentID(ByVal ID As Integer, ByVal Mode As String) As Integer
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillRecycleBin(ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            Return DBBridge.ExecuteDataset("_spFillrecyclebin", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function DynamicparcelMenu() As String
        If HttpRuntime.Cache("DynamicparcelMenu") Is Nothing Then
            Dim spoorfishMenu As New MenuDemo
            spoorfishMenu.ExecuteXSLTransformation()
        End If
        Return DirectCast(HttpRuntime.Cache("DynamicparcelMenu"), String)
    End Function

Public Shared Function DynamicparcelMenuFooter() As String
        If HttpRuntime.Cache("DynamicparcelMenuFooter") Is Nothing Then

End If
        Return DirectCast(HttpRuntime.Cache("DynamicparcelMenuFooter"), String)
    End Function

Public Shared Sub AddDynamicparcelMenuFooter(ByVal _Html As String)
        If Not HttpRuntime.Cache("DynamicparcelMenuFooter") Is Nothing Then HttpRuntime.Cache.Remove("DynamicparcelMenuFooter")
        HttpRuntime.Cache.Add("DynamicparcelMenuFooter", _Html, Nothing, Date.MaxValue, TimeSpan.Zero, _
                                  CacheItemPriority.Normal, Nothing)
    End Sub

Public Shared Function DynamicparcelMenuFooterChild(ByVal _ID As Integer) As DataSet
        If HttpRuntime.Cache("DynamicparcelMenuFooterChild") Is Nothing Then
            Return MenuFooterBLL.ChildFooter(_ID)
        End If
        Return DirectCast(HttpRuntime.Cache("DynamicparcelMenuFooterChild"), DataSet)
    End Function

Public Shared Function GetEmployeeName(ByVal ID As Integer) As String
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_spGetEmployeeName", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillListView(ByVal Mode As String) As DataSet
        Dim sqlparams(0) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
           
            Return DBBridge.ExecuteDataset("_spFillListView", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function NumbersToWords(ByVal inputNumber As Integer) As String
        Dim inputNo As Integer = inputNumber

If inputNo = 0 Then
            Return "Zero"
        End If

Dim numbers As Integer() = New Integer(3) {}
        Dim first As Integer = 0
        Dim u As Integer, h As Integer, t As Integer
        Dim sb As New System.Text.StringBuilder()

If inputNo < 0 Then
            sb.Append("Minus ")
            inputNo = -inputNo
        End If

Dim words0 As String() = {"", "One ", "Two ", "Three ", "Four ", "Five ", _
         "Six ", "Seven ", "Eight ", "Nine "}
        Dim words1 As String() = {"Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", _
         "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen "}
        Dim words2 As String() = {"Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", _
         "Eighty ", "Ninety "}
        Dim words3 As String() = {"Thousand ", "Lakh ", "Crore "}

numbers(0) = inputNo Mod 1000
        ' units
        numbers(1) = inputNo \ 1000
        numbers(2) = inputNo \ 100000
        numbers(1) = numbers(1) - 100 * numbers(2)
        ' thousands
        numbers(3) = inputNo \ 10000000
        ' crores
        numbers(2) = numbers(2) - 100 * numbers(3)
        ' lakhs
        For i As Integer = 3 To 1 Step -1
            If numbers(i) <> 0 Then
                first = i
                Exit For
            End If
        Next
        For i As Integer = first To 0 Step -1
            If numbers(i) = 0 Then
                Continue For
            End If
            u = numbers(i) Mod 10
            ' ones
            t = numbers(i) \ 10
            h = numbers(i) \ 100
            ' hundreds
            t = t - 10 * h
            ' tens
            If h > 0 Then
                sb.Append(words0(h) & "Hundred ")
            End If
            If u > 0 OrElse t > 0 Then
                If h > 0 OrElse i = 0 Then
                    sb.Append(" ")
                End If
                If t = 0 Then
                    sb.Append(words0(u))
                ElseIf t = 1 Then
                    sb.Append(words1(u))
                Else
                    sb.Append(words2(t - 2) & words0(u))
                End If
            End If
            If i <> 0 Then
                sb.Append(words3(i - 1))
            End If
        Next
        Return sb.ToString().TrimEnd()
    End Function

Public Shared Function ProductionReport(ByVal Mode As String, ByVal Avg As String, ByVal startdate As String, ByVal enddate As String) As DataSet
        Dim sqlparams(4) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Avg", Avg)
            sqlparams(2) = New SqlParameter("@startdate", startdate)
            sqlparams(3) = New SqlParameter("@enddate", enddate)

Return DBBridge.ExecuteDataset("_spSearch", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

'faisal label printing 16-03-17
    Public Shared Function LabelByID(ByVal ID As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@InvoiceID", ID)
            Return DBBridge.ExecuteDataset("_spLabelPrint", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    '===================================GAYATRI- VIEW CUSTOMER ===============================================
    Public Shared Function TotalRowInGridviewBYID(ByVal Mode As String, ByVal ID As Integer) As Integer
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Id", ID)
            Return DBBridge.ExecuteScalar("_spTotalNumberOfUserRecordByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function DeleteSICRM(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String, ByVal AudtTrail_LogId As Integer) As String
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@U_ID", ID)
            sqlparams(2) = New SqlParameter("@U_ModifiedID", ModifiedID)
            sqlparams(3) = New SqlParameter("@AudtTrail_LogId", AudtTrail_LogId)
            Return DBBridge.ExecuteScalar("_spDeleteSiUser", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function SearchGridViewByID(ByVal SearchValue As String, ByVal Id As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@SearchValue", SearchValue)
            sqlparams(2) = New SqlParameter("@id", Id)
            Return DBBridge.ExecuteDataset("_spSearchById", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function UpdateStatusCRM(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String, ByVal AudtTrail_LogId As Integer) As Integer
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@U_ID", ID)
            sqlparams(2) = New SqlParameter("@U_ModifiedID", ModifiedID)
            sqlparams(3) = New SqlParameter("@AudtTrail_LogId", AudtTrail_LogId)
            Return DBBridge.ExecuteScalar("_spUpdateUserStatus", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function DropdownWithtypeAndID(ByVal Mode As String, ByVal Type As String, ByVal _ID As Integer) As DataSet
		Dim sqlparams(2) As SqlParameter
		Try
			sqlparams(0) = New SqlParameter("@Mode", Mode)
			sqlparams(1) = New SqlParameter("@Type", Type)
			sqlparams(2) = New SqlParameter("@ID", _ID)
			Return DBBridge.ExecuteDataset("_spDropdown", sqlparams)
		Catch ex As Exception
			Throw ex
		End Try
	End Function
	Public Shared Function ContactViewed(ByVal Order_ID As Integer) As Integer
		Dim sqlparams(1) As SqlParameter
		Try
			sqlparams(0) = New SqlParameter("@Mode", "ContactViewed")
			sqlparams(1) = New SqlParameter("@id", Order_ID)
			Return DBBridge.ExecuteScalar("_spCount", sqlparams)
		Catch ex As Exception
			Throw ex
		End Try
	End Function
	Public Shared Function QuatationViewed(ByVal Order_ID As Integer) As Integer
		Dim sqlparams(1) As SqlParameter
		Try
			sqlparams(0) = New SqlParameter("@Mode", "QuatationViewed")
			sqlparams(1) = New SqlParameter("@id", Order_ID)
			Return DBBridge.ExecuteScalar("_spCount", sqlparams)
		Catch ex As Exception
			Throw ex
		End Try
    End Function
    '' Created by shahalam on  14-12-2018
    Public Shared Function ProductReport(ByVal StartDate As String, ByVal EndDate As String, ByVal Mode As String, ByVal strId As String, ByVal ID As Integer) As DataSet
        Dim sqlparams(6) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@StartDate", StartDate)
            sqlparams(2) = New SqlParameter("@EndDate", EndDate)
            sqlparams(3) = New SqlParameter("@str", strId)
            sqlparams(4) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteDataset("_spReport", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try

End Function
 Public Shared Function ViewByTwoID(ByVal ID As Integer, ByVal ID1 As Integer, ByVal Mode As String) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ID1", ID1)
            Return DBBridge.ExecuteDataset("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function FillPendPayReport(ByVal Mode As String, ByVal ID As Integer) As DataSet
        Dim sqlparams(2) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            If ID = 0 Then
                sqlparams(1) = New SqlParameter("@ID", DBNull.Value)
            Else
                sqlparams(1) = New SqlParameter("@ID", ID)
            End If
            Return DBBridge.ExecuteDataset("_spFillByPaging", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function CheckExistById(ByVal Mode As String, ByVal _Value1 As String, ByVal Id As Integer) As String
        Dim sqlparams(5) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Value", _Value1)
            sqlparams(2) = New SqlParameter("@Id", Id)
            Return DBBridge.ExecuteScalar("_spCheckExist", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function UpdateStatus(ByVal ID As Integer, ByVal ModifiedID As Integer, ByVal Mode As String, ByVal AudtTrail_LogId As Integer) As Integer
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            sqlparams(2) = New SqlParameter("@ModifiedID", ModifiedID)
            sqlparams(3) = New SqlParameter("@AudtTrail_LogId", AudtTrail_LogId)
            Return DBBridge.ExecuteScalar("_spUpdateStatus", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function EmailByID(ByVal ID As Integer, ByVal Mode As String) As String
        Dim sqlparams(1) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@ID", ID)
            Return DBBridge.ExecuteScalar("_ViewByID", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Shared Function CheckExistOpt(ByVal Mode As String, ByVal _Value1 As String, ByVal _Value2 As String) As String
        ' By mubyn used in ModifyAccount
        Dim sqlparams(3) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", Mode)
            sqlparams(1) = New SqlParameter("@Value1", _Value1)
            'sqlparams(2) = New SqlParameter("@Value2", _Value2)
            If _Value2 = 0 Then
                sqlparams(2) = New SqlParameter("@Value2", DBNull.Value)
            Else
                sqlparams(2) = New SqlParameter("@Value2", _Value2)
            End If
            Return DBBridge.ExecuteScalar("_spCheckExist", sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2020-06-29 07:00:35
..	dir	-	0/0	0777	2020-09-22 06:26:44
AccountBLL.vb	text/plain	9.59 KB	0/0	0666	2020-09-12 06:58:40
AddressBLL.vb	text/plain	3.69 KB	0/0	0666	2020-07-11 03:14:06
AssignToBLL.vb	text/plain	2.22 KB	0/0	0666	2020-06-29 07:00:34
BillBLL.vb	text/plain	1.62 KB	0/0	0666	2020-06-29 07:00:34
CategoryBLL.vb	text/plain	3.35 KB	0/0	0666	2020-06-29 07:00:34
ContactBLL.vb	text/plain	8.2 KB	0/0	0666	2020-06-29 07:00:34
CountBLL.vb	text/plain	2.77 KB	0/0	0666	2020-06-29 07:00:34
CustomerBLL.vb	text/plain	17.1 KB	0/0	0666	2020-06-29 07:00:34
DiscountBLL.vb	text/plain	1.27 KB	0/0	0666	2020-06-29 07:00:34
DocumentBLL.vb	text/plain	4.94 KB	0/0	0666	2020-06-29 07:00:34
EmailBLL.vb	text/plain	2.58 KB	0/0	0666	2020-06-29 07:00:37
EmployeeBLL.vb	text/plain	3.46 KB	0/0	0666	2020-06-29 07:00:34
ExecptionBLL.vb	text/plain	1.13 KB	0/0	0666	2020-06-29 07:00:34
GroupBLL.vb	text/plain	4.33 KB	0/0	0666	2020-06-29 07:00:34
HomeBLL.vb	text/plain	1.37 KB	0/0	0666	2020-06-29 07:00:34
InvoiceBLL.vb	text/plain	13.34 KB	0/0	0666	2020-06-29 07:00:34
ItemDetailBLL.vb	text/plain	4.61 KB	0/0	0666	2020-06-29 07:00:34
MainBLL.vb	text/plain	30.63 KB	0/0	0666	2020-10-06 04:54:00
MenuFooterBLL.vb	text/plain	2.87 KB	0/0	0666	2020-06-29 07:00:34
NoteBLL.vb	text/plain	6.24 KB	0/0	0666	2020-06-29 07:00:34
OrderBLL.vb	text/plain	20.4 KB	0/0	0666	2020-06-29 07:00:35
PacketBLL.vb	text/plain	1.31 KB	0/0	0666	2020-06-29 07:00:35
PackingBLL.vb	text/plain	2.02 KB	0/0	0666	2020-06-29 07:00:38
PaymentBLL.vb	text/plain	10.67 KB	0/0	0666	2020-06-29 07:00:35
PaymentRefBLL.vb	text/plain	2.39 KB	0/0	0666	2020-06-29 07:00:35
PrivilageBLL.vb	text/plain	1.9 KB	0/0	0666	2020-06-29 07:00:35
ProductBLL.vb	text/plain	16.1 KB	0/0	0666	2020-07-29 06:53:41
ProductImageBLL.vb	text/plain	1.24 KB	0/0	0666	2020-06-29 07:00:35
PromotionBLL.vb	text/plain	4.98 KB	0/0	0666	2020-06-29 07:00:35
QuotationBLL.vb	text/plain	5.31 KB	0/0	0666	2020-06-29 07:00:35
RealTimeStockBLL.vb	text/plain	1.73 KB	0/0	0666	2020-06-29 07:00:35
ReportBLL.vb	text/plain	4.92 KB	0/0	0666	2020-06-29 07:00:35
SmsBLL.vb	text/plain	2.12 KB	0/0	0666	2020-06-29 07:00:35
StatusBLL.vb	text/plain	1.87 KB	0/0	0666	2020-06-29 07:00:35
UOMBLL.vb	text/plain	1.42 KB	0/0	0666	2020-06-29 07:00:36
UserBLL.vb	text/plain	17.3 KB	0/0	0666	2020-06-29 07:00:36

Team Anon Force

https://t.me/Professor6T9x