Professor6T9 Web SheLL

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

EmployeeSalaryBLL.vb

Imports UserTableAdapters
Imports Microsoft.VisualBasic
Imports APPCODE.DAL

Public Class EmployeeSalaryBLL
    Private Shared _Adptr As tblUserTableAdapter = Nothing
    Private Shared _spname As String = "_spEmployeeSalary"

Public Shared Function Insert(ByVal _SalaryID As Integer, ByVal _Date As Date, ByVal _Amount As Double, ByVal _Deduction As Double, ByVal _TotalAmount As Double,
                                  ByVal _Paymode As String, ByVal _BankName As String, ByVal _Cqknmbr As String, ByVal _Cqkdate As String, ByVal YearID As Integer,
                                  ByVal _Month As String, ByVal _Year As String) As Integer
        Dim sqlparams(13) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "Insert")
            sqlparams(1) = New SqlParameter("@SalaryID", _SalaryID)
            sqlparams(2) = New SqlParameter("@Sal_Date ", _Date)
            sqlparams(3) = New SqlParameter("@Sal_Amount", _Amount)
            sqlparams(4) = New SqlParameter("@Sal_Deduction ", _Deduction)
            sqlparams(5) = New SqlParameter("@Sal_TotalSal ", _TotalAmount)
            sqlparams(6) = New SqlParameter("@Sal_Mode ", _Paymode)
            sqlparams(7) = New SqlParameter("@Sal_BankName ", _BankName)
            sqlparams(8) = New SqlParameter("@SAl_ChequeNo ", _Cqknmbr)
            sqlparams(9) = New SqlParameter("@Sal_ChequeDate ", _Cqkdate)
            sqlparams(10) = New SqlParameter("@Sal_month ", _Month)
            sqlparams(11) = New SqlParameter("@Sal_year ", _Year)
            sqlparams(12) = New SqlParameter("@Sal_YearID ", YearID)
            Return DBBridge.ExecuteNonQuery(_spname, sqlparams)
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Public Shared Function Update(ByVal _SalaryID As Integer, ByVal _Date As Date, ByVal _Amount As Double, ByVal _Deduction As Double, ByVal _TotalAmount As Double,
                                  ByVal _Paymode As String, ByVal _BankName As String, ByVal _Cqknmbr As String, ByVal _Cqkdate As String,
                                   ByVal _Month As String, ByVal _Year As String, ByVal ID As Integer) As Integer
        Dim sqlparams(13) As SqlParameter
        Try
            sqlparams(0) = New SqlParameter("@Mode", "Update")
            sqlparams(1) = New SqlParameter("@SalaryID", _SalaryID)
            sqlparams(2) = New SqlParameter("@Sal_Date ", _Date)
            sqlparams(3) = New SqlParameter("@Sal_Amount", _Amount)
            sqlparams(4) = New SqlParameter("@Sal_Deduction ", _Deduction)
            sqlparams(5) = New SqlParameter("@Sal_TotalSal ", _TotalAmount)
            sqlparams(6) = New SqlParameter("@Sal_Mode ", _Paymode)
            sqlparams(7) = New SqlParameter("@Sal_BankName ", _BankName)
            sqlparams(8) = New SqlParameter("@SAl_ChequeNo ", _Cqknmbr)
            sqlparams(9) = New SqlParameter("@Sal_ChequeDate ", _Cqkdate)
            sqlparams(10) = New SqlParameter("@Sal_month ", _Month)
            sqlparams(11) = New SqlParameter("@Sal_year ", _Year)
            sqlparams(12) = New SqlParameter("@Sal_ID ", ID)
            Return DBBridge.ExecuteNonQuery(_spname, 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	2021-04-15 04:09:57
..	dir	-	0/0	0777	2021-04-15 04:09:57
CashExpenseBLL.vb	text/plain	2.54 KB	0/0	0666	2018-03-22 11:26:59
CashInvoiceBLL.vb	text/plain	7.35 KB	0/0	0666	2018-03-22 11:26:59
CashPaymentBLL.vb	text/plain	2.12 KB	0/0	0666	2018-03-22 11:26:59
CashProformaBLL.vb	text/plain	6.09 KB	0/0	0666	2018-03-22 11:26:59
CashPurchaseBLL.vb	text/plain	4.55 KB	0/0	0666	2018-03-22 11:26:59
CompanyBLL.vb	text/plain	1.46 KB	0/0	0666	2018-03-22 11:26:59
CustomerBLL.vb	text/plain	4.4 KB	0/0	0666	2018-03-22 11:26:59
DashBoard.vb	text/plain	2.12 KB	0/0	0666	2018-03-22 11:26:59
DesignationBLL.vb	text/plain	1.29 KB	0/0	0666	2018-03-22 11:26:59
DocumentBLL.vb	text/plain	3.11 KB	0/0	0666	2018-03-22 11:26:59
EmpSalaryBLL.vb	text/plain	1.75 KB	0/0	0666	2018-03-22 11:26:59
EmployeeBLL.vb	text/plain	2.54 KB	0/0	0666	2018-03-22 11:26:59
EmployeeSalaryBLL.vb	text/plain	3.29 KB	0/0	0666	2018-03-22 11:26:59
ExpenseBLL.vb	text/plain	4.01 KB	0/0	0666	2018-03-22 11:26:59
ExpenseCategoryBLL.vb	text/plain	1.4 KB	0/0	0666	2018-03-22 11:26:59
InvoiceBLL.vb	text/plain	7.57 KB	0/0	0666	2018-03-22 11:26:59
MainBLL.vb	text/plain	10.53 KB	0/0	0666	2018-03-22 11:26:59
OrderRenewalBLL.vb	text/plain	5.17 KB	0/0	0666	2018-03-22 11:26:59
PaymentBLL.vb	text/plain	3.22 KB	0/0	0666	2018-03-22 11:26:59
ProformaInvoiceBLL.vb	text/plain	7.03 KB	0/0	0666	2020-01-20 06:37:22
PurchaseBLL.vb	text/plain	4.79 KB	0/0	0666	2018-03-22 11:26:59
PurchaseCategoryBLL.vb	text/plain	1.47 KB	0/0	0666	2018-03-22 11:26:59
SendMailBLL.vb	text/plain	5.96 KB	0/0	0666	2018-03-22 11:26:59
ServiceCategoryBLL.vb	text/plain	3.81 KB	0/0	0666	2018-03-22 11:26:59
UserBLL.vb	text/plain	3.67 KB	0/0	0666	2018-03-22 11:26:59
VenderBLL.vb	text/plain	1.23 KB	0/0	0666	2018-03-22 11:26:59
YearBLL.vb	text/plain	1.1 KB	0/0	0666	2018-03-22 11:26:59

Team Anon Force

https://t.me/Professor6T9x