Imports System Imports System.Data Imports System.Data.SqlClient Imports Ajax Partial Class supplier_warehouse_master Inherits System.Web.UI.Page Shared City_Kid As String Shared City_Code As String Shared sel_ddlwarehouse As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Ajax.Utility.RegisterTypeForAjax(GetType(supplier_warehouse_master)) lblMsg.Visible = False ' Label For Displaying Message in Factory Part lblConMsg.Visible = False ' Label For Displaying Message in Contact Person Part ' pnl.Visible = False ' pnlUpdateOK.Visible = False Try If Session("SupplierID") Is Nothing Then Response.Redirect("listproduct.aspx?sess=expire") Exit Sub End If If Not IsPostBack Then txtValidate.Value = 0 ddlWareHouseName.Enabled = True If Session("SupplierID") Is Nothing Then ' check whether supplier is loged in or not Response.Redirect("listproduct.aspx") Exit Sub End If btnDelete.Attributes.Add("onclick", "return ConfrmMsg();") btnConDelete.Attributes.Add("onclick", "return ConfrmMsg();") btnUpdate.Attributes.Add("onclick", "return UpdateMsg();") btnConUpdate.Attributes.Add("onclick", "return UpdateMsg();") btnConSave.Attributes.Add("onclick", "return SaveConfirm();") If Request.QueryString("BackId") = Nothing Then If Session("Index") <> Nothing Then btnBack.Visible = True Else Session("ProductID") = Nothing ' Sessioon productid set nothing btnBack.Visible = False End If Else Session("ProductID") = Nothing Session("Index") = Nothing btnBack.Visible = False End If 'Session("ProductID") = Nothing ' Sessioon productid set nothing btnDelete.Attributes.Add("onclick", "return ConfrmMsg();") btnConDelete.Attributes.Add("onclick", "return ConfrmMsg();") txtCountryCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtCityCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtPhoneNo.Attributes.Add("onkeypress", "return numbersonly(event);") txtCountryCodeF.Attributes.Add("onkeypress", "return numbersonly(event);") txtCityCodeF.Attributes.Add("onkeypress", "return numbersonly(event);") txtFaxNo.Attributes.Add("onkeypress", "return numbersonly(event);") txtPinCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtConExtension.Attributes.Add("onkeypress", "return numbersonly(event);") txtConCountryCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtConMobileNo.Attributes.Add("onkeypress", "return numbersonly(event);") fillyear() txtTollFreeCountryCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtTollFreeCityCode.Attributes.Add("onkeypress", "return numbersonly(event);") txtTollFreePhoneNo.Attributes.Add("onkeypress", "return numbersonly(event);") txtTollFreeCountryCodeF.Attributes.Add("onkeypress", "return numbersonly(event);") txtTollFreeCityCodeF.Attributes.Add("onkeypress", "return numbersonly(event);") txtTollFreeFaxNo.Attributes.Add("onkeypress", "return numbersonly(event);") Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' Fill factory dropdownlist Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) ' fill contact factory drop down list Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm) ' fill from time combo Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm) ' fill to time combo 'cleartime() fillcombo() ' Fill country, state and city combo fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) ' fill grid with existing value for factory contact 'FillGrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) enablecontrol(False) ' disable factory control enableconcontrol(False) ' disable contact control CancelClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) ' call cancel clik function for factory CancelClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) ' call cancel fuction for contact If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' check whether admin is login or not 'btnUpdate.Visible = True 'btnDelete.Visible = True 'btnConUpdate.Visible = True 'btnConDelete.Visible = True Else btnUpdate.Visible = False btnDelete.Visible = False btnConUpdate.Visible = False btnConDelete.Visible = False End If pnlCon.Visible = False tblcontacthead.Visible = False ScriptManager1.SetFocus(btnADD) End If btnSave.Attributes.Add("onclick", "return SaveMsg('" & txtValidate.ClientID & "');") lblError.Text = "" ddlCity_Code.Visible = True Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub _ Public Function AddCity(ByVal strCity As String, ByVal strStateID As String, ByVal strCompanyID As String, ByVal strUserID As String, ByVal strFinancialYearID As String) As String Dim KID As String KID = NewPrimaryKey(Me) If IsAlreadyPresent("Select count(*) from City_Master where City_Name='" & strCity.Trim & "' and City_StateId ='" & strStateID.ToString & "'") Then Return "false" End If Dim con As New SqlConnection() con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the connection string from web.config Dim cmd As New SqlCommand() cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "City_Master_Proc" cmd.Connection = con cmd.Parameters.Add(New SqlParameter("@City_Kid", SqlDbType.NVarChar, 10)).Value = KID cmd.Parameters.Add(New SqlParameter("@City_Code", SqlDbType.NVarChar, 25)).Value = Generate_Code("Select count(*) from City_Master where City_Code='", "CC").ToString() cmd.Parameters.Add(New SqlParameter("@City_Name", SqlDbType.NVarChar, 100)).Value = strCity.Trim cmd.Parameters.Add(New SqlParameter("@City_StateId", SqlDbType.NVarChar, 10)).Value = strStateID.Trim cmd.Parameters.Add(New SqlParameter("@City_CompanyId", SqlDbType.NVarChar, 10)).Value = Trim(strCompanyID) cmd.Parameters.Add(New SqlParameter("@City_UserId", SqlDbType.NVarChar, 10)).Value = Trim(strUserID) cmd.Parameters.Add(New SqlParameter("@City_FinancialYearId", SqlDbType.NVarChar, 10)).Value = strFinancialYearID.Trim cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar, 50)).Value = "SupplierRegistration1" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.VarChar, 10)).Value = "Insert" Try con.Open() cmd.ExecuteNonQuery() con.Close() Return KID Catch ex As Exception con.Close() Return "false" End Try Return True End Function Public Sub fillyear() Dim I As Integer Dim FinancialYear As String For I = 2005 To Year(Now) FinancialYear = I.ToString ddlycommencement.Items.Add(FinancialYear) Next ddlycommencement.Items.FindByText(Year(Now).ToString.Trim).Selected = True End Sub Public Sub enableconcontrol(ByVal action As Boolean) 'lblConField.Visible = action txtConCountryCode.Enabled = action txtConDesi.Enabled = action txtConEmailId.Enabled = action txtConExtension.Enabled = action txtConMobileNo.Enabled = action txtConName.Enabled = action 'ddlConWareHouseName.Enabled = action ddlkcperson.Enabled = action End Sub Public Sub enablecontrol(ByVal action As Boolean) 'lblField.Visible = action txtAddress.Enabled = action txtasqft.Enabled = action 'txtCity.Enabled = action txtCityCode.Enabled = action txtCityCodeF.Enabled = action 'txtCountryCode.Enabled = action 'txtCountryCodeF.Enabled = action txtcstno.Enabled = action txtecode.Enabled = action txtFaxNo.Enabled = action txtilno.Enabled = action txtNearestAirport.Enabled = action txtNearestPort.Enabled = action txtNearestRailway.Enabled = action txtPhoneNo.Enabled = action txtPinCode.Enabled = action txtstrno.Enabled = action txttinno.Enabled = action txtTollFreeCityCode.Enabled = action txtTollFreeCityCodeF.Enabled = action 'txtTollFreeCountryCode.Enabled = action 'txtTollFreeCountryCodeF.Enabled = action txtTollFreeFaxNo.Enabled = action txtTollFreePhoneNo.Enabled = action txtWareHouseName.Enabled = action txtWebSite.Enabled = action ddlCity_Code.Enabled = action ddlCountry_Code.Enabled = action ddlFromAmPm.Enabled = action ddlFromHour.Enabled = action ddlFromMinute.Enabled = action ddlState_Code.Enabled = action ddlToAmPm.Enabled = action ddlToHour.Enabled = action ddlToMinute.Enabled = action ddlWareHouseType.Enabled = action ddlWeeklyHoliday.Enabled = action ddlycommencement.Enabled = action End Sub Public Sub clearfields() txtAddress.Text = "" txtasqft.Text = "" 'txtCity.Text = "" txtCityCode.Text = "" txtCityCodeF.Text = "" 'txtCountryCode.Text = "" 'txtCountryCodeF.Text = "" txtcstno.Text = "" txtecode.Text = "" txtFaxNo.Text = "" txtilno.Text = "" txtNearestAirport.Text = "" txtNearestPort.Text = "" txtNearestRailway.Text = "" txtPhoneNo.Text = "" txtPinCode.Text = "" txtstrno.Text = "" txttinno.Text = "" txtTollFreeCityCode.Text = "" txtTollFreeCityCodeF.Text = "" 'txtTollFreeCountryCode.Text = "" 'txtTollFreeCountryCodeF.Text = "" txtTollFreeFaxNo.Text = "" txtTollFreePhoneNo.Text = "" txtWareHouseName.Text = "" txtWebSite.Text = "" 'ddlCity_Code.Enabled = Action 'ddlCountry_Code.Enabled = Action 'ddlFromAmPm.Enabled = Action 'ddlFromHour.Enabled = Action 'ddlFromMinute.Enabled = Action 'ddlState_Code.Enabled = Action 'ddlToAmPm.Enabled = Action 'ddlToHour.Enabled = Action 'ddlToMinute.Enabled = Action ddlWareHouseType.ClearSelection() ddlWeeklyHoliday.ClearSelection() ddlycommencement.ClearSelection() ddlState_Code.ClearSelection() ddlCity_Code.ClearSelection() End Sub Public Sub conclearfields() txtConCountryCode.Text = "" txtConDesi.Text = "" txtConEmailId.Text = "" txtConExtension.Text = "" txtConMobileNo.Text = "" txtConName.Text = "" 'ddlConWareHouseName.ClearSelection() End Sub Public Sub fillcombo() ' fill country, state, city combo and get according value in country code textbox Fill_Combo("SELECT distinct Country_Kid, Country_Name FROM Country_Master where Country_IsDeleted='0'and Country_CompanyId='" & Session("g_Company").ToString & "' order by Country_Name", ddlCountry_Code) ddlCountry_Code.ClearSelection() ddlCountry_Code.Items.FindByText("India").Selected = True Fill_Combo("SELECT State_Master.State_Kid, State_Master.State_Name, Country_Master.Country_Name FROM Country_Master INNER JOIN State_Master ON Country_Master.Country_Kid = State_Master.State_CountryId WHERE State_Master.State_CompanyId = '" & Session("g_Company").ToString & "' AND State_Master.State_IsDeleted = '0' AND Country_Master.Country_Kid = '" & ddlCountry_Code.SelectedItem.Value & "'", ddlState_Code) txtCountryCode.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") txtCountryCodeF.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") txtTollFreeCountryCode.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") txtTollFreeCountryCodeF.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") ddlCity_Code.Items.Clear() ddlCity_Code.Items.Add("Select") End Sub Protected Sub fillgrid(ByVal Str As String) Try Dim dt As New DataTable If Str.ToString = "Select" Then dt = ReturnDataTable("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')") gvCon.Columns(1).Visible = True gvCon.Columns(7).Visible = True gvCon.Columns(3).Visible = True If dt.Rows.Count < 1 Then tblheading.Visible = False tblgrid1.Visible = False gvCon.Visible = False Else tblheading.Visible = True tblgrid1.Visible = True gvCon.Visible = True End If Else dt = ReturnDataTable("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & Str & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')") tblheading.Visible = True tblgrid1.Visible = True gvCon.Visible = True End If gvCon.DataSource = dt gvCon.DataBind() gvCon.SelectedIndex = -1 gvCon.PageIndex = 0 Dim i As Integer For i = 0 To gvCon.Rows.Count - 1 gvCon.Rows(i).Cells(4).Text = gvCon.Rows(i).Cells(3).Text & " " & gvCon.Rows(i).Cells(4).Text If gvCon.Rows(i).Cells(7).Text.ToString <> " " Then gvCon.Rows(i).Cells(8).Text = gvCon.Rows(i).Cells(7).Text & " - " & gvCon.Rows(i).Cells(8).Text End If Next gvCon.Columns(1).Visible = False gvCon.Columns(7).Visible = False gvCon.Columns(3).Visible = False Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") End Try End Sub 'Public Sub FillGrid(ByVal StrQry As String, ByVal gv As GridView) ' ' used to fill grid acounrding to StrQry Parameter ' Try ' Dim Con As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString")) 'Define connection variable for connecting to SQL-Server ' Con.Open() 'Open the Connection ' ' Dim cmd As New SqlCommand(StrQry, con) 'Define command variable to execute the query ' ' Dim dr As SqlDataReader 'Define DataReader variable for storing the output of the query ' ' dr = cmd.ExecuteReader 'Assign the output of query to DataReader variable ' Dim dt As DataTable = ReturnDataTable(StrQry) ' If dt.Rows.Count > 0 Then ' tblheading.Visible = True ' tblgrid1.Visible = True ' gv.Visible = True ' gv.Columns(1).Visible = True ' gv.Columns(7).Visible = True ' gv.Columns(3).Visible = True ' gv.DataSource = dt 'Set the DataTable Variable as DataSource for the Grid ' gv.DataBind() ' gv.Columns(1).Visible = False ' gv.Columns(7).Visible = False ' gv.Columns(3).Visible = False ' If Con.State = ConnectionState.Open Then Con.Close() ' If Connection Exists Then Close ' Con = Nothing ' Set Connnection Object as nothing ' cmd = Nothing ' Set Command Object as nothing ' dt = Nothing ' Set DataReader Object as nothing ' Dim i As Integer ' For i = 0 To gv.Rows.Count - 1 ' gv.Rows(i).Cells(4).Text = gv.Rows(i).Cells(3).Text & " " & gv.Rows(i).Cells(4).Text ' If gv.Rows(i).Cells(7).Text.ToString <> " " Then ' gv.Rows(i).Cells(8).Text = gv.Rows(i).Cells(7).Text & " - " & gv.Rows(i).Cells(8).Text ' End If ' Next ' Else ' tblheading.Visible = False ' tblgrid1.Visible = False ' gv.Visible = False ' End If ' Catch ex As Exception ' ' CreateMessageAlert(gv.Page, ex.Message, "StrKeyVal") 'Display the Error Message ' End Try 'End Sub Protected Sub btnADD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnADD.Click Try Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' fill dropdown according to existing factroy value. enablecontrol(True) ddlWareHouseName.ClearSelection() ddlWareHouseName.Enabled = False If ddlWareHouseName.SelectedIndex > 0 Then ddlConWareHouseName.Enabled = True Else ' ddlConWareHouseName.Enabled = True End If AddClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) ScriptManager1.SetFocus(ddlWareHouseName) clearfields() txtWareHouseName.Focus() Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click Try ' If txtValidate.Value = 0 Then Dim temp1 As String Dim temp2 As String temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue Dim i As Integer Try i = DateDiff(DateInterval.Hour, Convert.ToDateTime(temp1), Convert.ToDateTime(temp2)) If (i < 0) Then lblError.Text = "Select Proper Time." Exit Sub Else lblError.Text = "" End If If (i = 0) Then Dim j As Integer Try j = DateDiff(DateInterval.Minute, Convert.ToDateTime(temp1), Convert.ToDateTime(temp2)) Catch ex As Exception End Try If (j <= 0) Then 'CreateMessageAlert(Me, "Time is Not Valid ....!!!!", "StrKeyVal") lblError.Text = "Select Proper Time." Exit Sub Else lblError.Text = "" End If Else lblError.Text = "" End If Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try hf1.Value = txtWareHouseName.Text Dim con As New SqlConnection Dim cmd As New SqlCommand con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = con cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "StockingWarehouseInformation_Proc" ' define store procedure cmd.Parameters.Add(New SqlParameter("@swi_Kid", SqlDbType.NVarChar)).Value = RemoveLiterals(NewPrimaryKey(Me).ToString.Trim) cmd.Parameters.Add(New SqlParameter("@swi_Code", SqlDbType.NVarChar)).Value = GenerateSupplierStockingCode() cmd.Parameters.Add(New SqlParameter("@swi_SupplierId", SqlDbType.NVarChar)).Value = RemoveLiterals(Session("SupplierID").ToString.Trim) cmd.Parameters.Add(New SqlParameter("@swi_whtype", SqlDbType.NVarChar)).Value = ddlWareHouseType.SelectedItem.Value cmd.Parameters.Add(New SqlParameter("@swi_whname", SqlDbType.NVarChar)).Value = txtWareHouseName.Text cmd.Parameters.Add(New SqlParameter("@swi_country", SqlDbType.NVarChar)).Value = ddlCountry_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_state", SqlDbType.NVarChar)).Value = ddlState_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_city", SqlDbType.NVarChar)).Value = ddlCity_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_add", SqlDbType.NVarChar)).Value = txtAddress.Text cmd.Parameters.Add(New SqlParameter("@swi_pinno", SqlDbType.Int)).Value = CType(txtPinCode.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_TINNo", SqlDbType.NVarChar)).Value = txttinno.Text cmd.Parameters.Add(New SqlParameter("@swi_CSTNo", SqlDbType.NVarChar)).Value = txtcstno.Text cmd.Parameters.Add(New SqlParameter("@swi_STRNo", SqlDbType.NVarChar)).Value = txtstrno.Text cmd.Parameters.Add(New SqlParameter("@swi_ExiseCode", SqlDbType.NVarChar)).Value = txtecode.Text cmd.Parameters.Add(New SqlParameter("@swi_ILNo", SqlDbType.NVarChar)).Value = txtilno.Text cmd.Parameters.Add(New SqlParameter("@swi_phno1", SqlDbType.NVarChar)).Value = txtCountryCode.Text cmd.Parameters.Add(New SqlParameter("@swi_phno2", SqlDbType.Int)).Value = CType(txtCityCode.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_phno3", SqlDbType.Int)).Value = CType(txtPhoneNo.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_fax1", SqlDbType.NVarChar)).Value = txtCountryCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_fax2", SqlDbType.NVarChar)).Value = txtCityCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_fax3", SqlDbType.NVarChar)).Value = txtFaxNo.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno1", SqlDbType.NVarChar)).Value = txtTollFreeCountryCode.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno2", SqlDbType.NVarChar)).Value = txtTollFreeCityCode.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno3", SqlDbType.NVarChar)).Value = txtTollFreePhoneNo.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax1", SqlDbType.NVarChar)).Value = txtTollFreeCountryCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax2", SqlDbType.NVarChar)).Value = txtTollFreeCityCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax3", SqlDbType.NVarChar)).Value = txtTollFreeFaxNo.Text cmd.Parameters.Add(New SqlParameter("@swi_website", SqlDbType.NVarChar)).Value = txtWebSite.Text cmd.Parameters.Add(New SqlParameter("@swi_wholiday", SqlDbType.NVarChar)).Value = ddlWeeklyHoliday.SelectedItem.Value.ToString If ddlFromHour.SelectedValue <> "HH" And ddlFromMinute.SelectedValue <> "MM" Then temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue cmd.Parameters.Add(New SqlParameter("swi_wstime", SqlDbType.NVarChar)).Value = Format$(Convert.ToDateTime(temp1), "") End If If ddlToHour.SelectedValue <> "HH" And ddlToMinute.SelectedValue <> "MM" Then temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue cmd.Parameters.Add(New SqlParameter("swi_wetime", SqlDbType.NVarChar)).Value = Format$(Convert.ToDateTime(temp2), "") End If cmd.Parameters.Add(New SqlParameter("@swi_ycommencement", SqlDbType.Int)).Value = CType(ddlycommencement.SelectedItem.Value, Integer) cmd.Parameters.Add(New SqlParameter("@swi_asqft", SqlDbType.NVarChar)).Value = txtasqft.Text cmd.Parameters.Add(New SqlParameter("@swi_nairport", SqlDbType.NVarChar)).Value = txtNearestAirport.Text cmd.Parameters.Add(New SqlParameter("@swi_nrstation", SqlDbType.NVarChar)).Value = txtNearestRailway.Text cmd.Parameters.Add(New SqlParameter("@swi_nport", SqlDbType.NVarChar)).Value = txtNearestPort.Text cmd.Parameters.Add(New SqlParameter("@swi_FinancialYearId", SqlDbType.NVarChar)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@swi_CompanyId", SqlDbType.NVarChar)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@swi_UserId", SqlDbType.NVarChar)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar)).Value = "Stocking Warehouse Information" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar)).Value = "Insert" If con.State = ConnectionState.Open Then ' check whether connection is closed or not con.Close() End If con.Open() cmd.ExecuteNonQuery() con.Close() ' close connection con.Dispose() 'Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' Fill factory dropdownlist 'Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) CreateMessageAlert(Me, "WareHouse Information Saved Successfully.\n" + "\n Add Contact Information Click on Add Contact Button.", "StrKeyVal") showmessage("Record Saved Successfully.", lblMsg) ' pnl.Visible = True 'enablecontrol(False) 'ClearFields() 'SaveClick(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel, btnSearch) Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm) ' fill from time combo Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm) ' fill to time combo SaveClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) clearfields() enablecontrol(False) ddlWareHouseName.Enabled = True '' java script code starts here 'Dim sString As System.Text.StringBuilder 'sString = New System.Text.StringBuilder 'sString.Append("") 'ScriptManager.RegisterStartupScript(Me, Me.GetType, "ClientScript", "JJTest();", True) 'clearfields() 'ElseIf txtValidate.Value = 1 Then 'pnlCon.Visible = True 'tblcontacthead.Visible = True 'pnlWareHouse.Visible = False 'tblhead.Visible = False ' Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) 'ddlConWareHouseName.ClearSelection() 'ddlConWareHouseName.Items.FindByText(hf1.Value).Selected = True 'ddlConWareHouseName.Enabled = False ' ScriptManager1.SetFocus(btnConAdd) 'If ddlWareHouseName.SelectedIndex > 0 Then ' ddlConWareHouseName.Items.FindByValue(ddlWareHouseName.SelectedItem.Value).Selected = True ' ddlConWareHouseName.Enabled = False ' ViewState("Select") = "NotSelect" ' FillGrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'Else ' ViewState("Select") = "Select" ' ddlConWareHouseName.Enabled = True ' FillGrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'End If 'gvCon.SelectedIndex = -1 'AddClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) 'txtValidate.Value = 0 'clearfields() 'enablecontrol(False) 'enableconcontrol(True) 'Else 'SaveClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) 'clearfields() 'enablecontrol(False) 'ddlWareHouseName.Enabled = True 'End If Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Function GenerateSupplierStockingCode() As String ' generate supplier factory details code and kid Try Dim i As String Dim qry As String Dim code As String i = "1" i = Format(Val(i), "000") While True code = "SFD" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from StockingWarehouseInformation where swi_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else Return code Exit Function End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Function Protected Sub ddlCountry_Code_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCountry_Code.SelectedIndexChanged Try ' set the country code textboxes according to country selected txtCountryCode.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") If txtCountryCode.Text = "" Then txtCountryCode.Enabled = True Else txtCountryCode.Enabled = False End If If ddlCountry_Code.SelectedIndex > 0 Then Fill_Combo("Select State_Kid,State_Name from State_Master where State_IsDeleted='0' and state_CountryId='" & ddlCountry_Code.SelectedValue.Trim & "'and State_CompanyId='" & Session("g_Company").ToString.Trim & "'", ddlState_Code) End If txtCountryCodeF.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") If txtCountryCodeF.Text = "" Then txtCountryCodeF.Enabled = True Else txtCountryCodeF.Enabled = False End If txtTollFreeCountryCode.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") If txtTollFreeCountryCode.Text = "" Then txtTollFreeCountryCode.Enabled = True Else txtTollFreeCountryCode.Enabled = False End If txtTollFreeCountryCodeF.Text = ReturnValue("Select Country_ISDCode from Country_Master where Country_Isdeleted ='0' and Country_Kid ='" & ddlCountry_Code.SelectedItem.Value & "'and Country_CompanyId ='" & Session("g_Company").ToString & "'") If txtTollFreeCountryCodeF.Text = "" Then txtTollFreeCountryCodeF.Enabled = True Else txtTollFreeCountryCodeF.Enabled = False End If If ddlCountry_Code.SelectedIndex > 0 Then Fill_Combo("Select State_Kid,State_Name from State_Master where State_IsDeleted='0' and state_CountryId='" & ddlCountry_Code.SelectedValue.Trim & "'and State_CompanyId='" & Session("g_Company").ToString.Trim & "'", ddlState_Code) Else ddlState_Code.Items.Clear() ddlState_Code.Items.Add("Select") End If ddlCity_Code.Items.Clear() ddlCity_Code.Items.Add("Select") ScriptManager1.SetFocus(ddlState_Code) Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub ddlState_Code_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlState_Code.SelectedIndexChanged ' fill city drop downlist according to state Try If ddlState_Code.SelectedIndex > 0 Then ddlCity_Code.Visible = True ddlCity_Code.Items.Clear() Fill_Combo("SELECT City_Kid, City_Name FROM City_Master WHERE City_IsDeleted = N'0' AND City_CompanyId = '" & Session("g_Company") & "' and City_StateId='" & ddlState_Code.SelectedValue & "' order by City_Name", ddlCity_Code) ' ddlCity_Code.Attributes.Add("onchange", "return checkCityddl(this,'" & ddlState_Code.SelectedItem.Value.ToString & "','" & Session("g_Company").ToString & "','" & Session("g_User") & "','" & Session("g_FinYear") & "');") Else ddlCity_Code.Items.Clear() ddlCity_Code.Items.Add("Select") End If ScriptManager1.SetFocus(ddlCity_Code) Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub ddlCity_Code_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCity_Code.SelectedIndexChanged 'If ddlCity_Code.SelectedItem.Text = "Others" Then ' txtCity.Text = "" ' txtCity.Visible = True ' BtnCityAdd.Visible = True ' ddlCity_Code.Visible = False 'Else ' txtCity.Visible = False ' BtnCityAdd.Visible = False 'End If ScriptManager1.SetFocus(txtAddress) End Sub Protected Sub GenerateCityCode() ' generate city code and kid Try Dim i As String Dim qry As String Dim code As String City_Kid = NewPrimaryKey(Me) i = "1" i = Format(Val(i), "000") While True code = "CC" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from CityMaster where City_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else City_Code = code Exit Sub End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Sub Protected Sub ddlWareHouseName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlWareHouseName.SelectedIndexChanged fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) ' sel_ddlwarehouse = ddlWareHouseName.SelectedItem.Value.ToString 'If ddlWareHouseName.SelectedItem.Text = "Select" Then ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'Else ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'End If If ddlWareHouseName.SelectedIndex > 0 Then getExistingData() GridClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' check whether admin is login or not btnUpdate.Visible = True btnDelete.Visible = True btnConUpdate.Visible = True btnConDelete.Visible = True btnCancel.Visible = True btnADD.Visible = False enablecontrol(True) Else btnUpdate.Visible = False btnDelete.Visible = False btnConUpdate.Visible = False btnConDelete.Visible = False btnADD.Visible = True enablecontrol(False) End If Else clearfields() enablecontrol(False) End If ScriptManager1.SetFocus(ddlWareHouseType) End Sub Private Sub getExistingData() Dim dt As DataTable = getTable("Select * from StockingWarehouseInformation where swi_Kid='" & ddlWareHouseName.SelectedItem.Value.Trim & "' and swi_IsDeleted='0' and swi_CompanyID='" & Session("g_Company").ToString.Trim & "'", "SFD") If dt.Rows.Count > 0 Then 'check whether data is exist or not ' if exist then assign value to control ddlWareHouseType.ClearSelection() Try ddlWareHouseType.Items.FindByText(dt.Rows(0).Item("swi_whtype").ToString).Selected = True Catch ex As Exception End Try txtWareHouseName.Text = dt.Rows(0).Item("swi_whname").ToString fillcombo() ddlCountry_Code.ClearSelection() Try ddlCountry_Code.Items.FindByText(ReturnValue("SELECT Country_Name FROM Country_Master WHERE Country_Kid='" & dt.Rows(0).Item("swi_country").ToString & "' AND Country_IsDeleted = '0'")).Selected = True Catch ex As Exception End Try ddlState_Code.ClearSelection() Try ' ddlState_Code.Items.FindByText(ReturnValue("SELECT State_Name FROM State_Master WHERE State_Kid='" & dt.Rows(0).Item("swi_state").ToString & "' AND State_IsDeleted = '0'")).Selected = True ddlState_Code.Items.FindByValue(dt.Rows(0).Item("swi_state").ToString).Selected = True Catch ex As Exception End Try Fill_Combo("SELECT City_Kid, City_Name FROM City_Master WHERE City_StateID ='" & ddlState_Code.SelectedItem.Value & "'and City_CompanyId = '" & Session("g_Company").ToString & "' and City_IsDeleted = '0'", ddlCity_Code) ddlCity_Code.ClearSelection() Try 'ddlCity_Code.Items.FindByText(ReturnValue("SELECT City_Name FROM City_Master WHERE City_Kid='" & dt.Rows(0).Item("swi_city").ToString & "' AND City_IsDeleted = '0'")).Selected = True ddlCity_Code.Items.FindByValue(dt.Rows(0).Item("swi_city").ToString).Selected = True Catch ex As Exception End Try txtAddress.Text = dt.Rows(0).Item("swi_add").ToString txtPinCode.Text = dt.Rows(0).Item("swi_pinno").ToString txttinno.Text = dt.Rows(0).Item("swi_TINNo").ToString() txtcstno.Text = dt.Rows(0).Item("swi_CSTNo").ToString() txtstrno.Text = dt.Rows(0).Item("swi_STRNo").ToString() txtecode.Text = dt.Rows(0).Item("swi_ExiseCode").ToString() txtilno.Text = dt.Rows(0).Item("swi_ILNo").ToString() txtCountryCode.Text = dt.Rows(0).Item("swi_phno1").ToString txtCityCode.Text = dt.Rows(0).Item("swi_phno2").ToString txtPhoneNo.Text = dt.Rows(0).Item("swi_phno3").ToString txtCountryCodeF.Text = dt.Rows(0).Item("swi_fax1").ToString txtCityCodeF.Text = dt.Rows(0).Item("swi_fax2").ToString txtFaxNo.Text = dt.Rows(0).Item("swi_fax3").ToString txtTollFreeCountryCode.Text = dt.Rows(0).Item("swi_tfphno1").ToString txtTollFreeCityCode.Text = dt.Rows(0).Item("swi_tfphno2").ToString txtTollFreePhoneNo.Text = dt.Rows(0).Item("swi_tfphno3").ToString txtTollFreeCountryCodeF.Text = dt.Rows(0).Item("swi_tffax1").ToString txtTollFreeCityCodeF.Text = dt.Rows(0).Item("swi_tffax2").ToString txtTollFreeFaxNo.Text = dt.Rows(0).Item("swi_tffax3").ToString txtWebSite.Text = dt.Rows(0).Item("swi_website").ToString ddlWeeklyHoliday.ClearSelection() Try ddlWeeklyHoliday.Items.FindByValue(dt.Rows(0).Item("swi_wholiday")).Selected = True Catch ex As Exception End Try Dim time As DateTime Dim str As String Try time = CType(dt.Rows(0).Item("swi_wstime").ToString, DateTime) str = Format$(Convert.ToDateTime(time), "hh") ddlFromHour.ClearSelection() ddlFromHour.SelectedValue = str str = Format$(Convert.ToDateTime(time), "mm") ddlFromMinute.ClearSelection() ddlFromMinute.SelectedValue = str str = Format$(Convert.ToDateTime(time), "tt") ddlFromAmPm.ClearSelection() ddlFromAmPm.SelectedValue = str Catch ex As Exception ddlFromAmPm.ClearSelection() ddlFromHour.ClearSelection() ddlFromMinute.ClearSelection() End Try str = "" Try ddlToAmPm.ClearSelection() ddlToHour.ClearSelection() ddlToMinute.ClearSelection() time = CType(dt.Rows(0).Item("swi_wetime").ToString, DateTime) str = Format$(Convert.ToDateTime(time), "hh") ddlToHour.SelectedValue = str str = Format$(Convert.ToDateTime(time), "mm") ddlToMinute.SelectedValue = str str = Format$(Convert.ToDateTime(time), "tt") ddlToAmPm.SelectedValue = str Catch ex As Exception ddlToAmPm.ClearSelection() ddlToHour.ClearSelection() ddlToMinute.ClearSelection() End Try Try If IsDBNull(dt.Rows(0).Item("swi_ycommencement")) Or dt.Rows(0).Item("swi_ycommencement").ToString = 0 Then ddlycommencement.ClearSelection() Else ddlycommencement.ClearSelection() ddlycommencement.Items.FindByText(dt.Rows(0).Item("swi_ycommencement")).Selected = True End If Catch ex As Exception ddlycommencement.ClearSelection() End Try txtasqft.Text = dt.Rows(0).Item("swi_asqft").ToString txtNearestAirport.Text = dt.Rows(0).Item("swi_nairport").ToString txtNearestRailway.Text = dt.Rows(0).Item("swi_nrstation").ToString txtNearestPort.Text = dt.Rows(0).Item("swi_nport").ToString enablecontrol(True) End If dt.Clear() End Sub Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click Try ddlWareHouseName.Enabled = True clearfields() enablecontrol(False) ddlWareHouseName.ClearSelection() 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm) ' fill from time combo Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm) ' fill to time combo CancelClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Try Dim temp1 As String Dim temp2 As String temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue Dim i As Integer Try i = DateDiff(DateInterval.Hour, Convert.ToDateTime(temp1), Convert.ToDateTime(temp2)) If (i < 0) Then lblError.Text = "Select Proper Time." Exit Sub Else lblError.Text = "" End If If (i = 0) Then Dim j As Integer Try j = DateDiff(DateInterval.Minute, Convert.ToDateTime(temp1), Convert.ToDateTime(temp2)) Catch ex As Exception End Try If (j <= 0) Then 'CreateMessageAlert(Me, "Time is Not Valid ....!!!!", "StrKeyVal") lblError.Text = "Select Proper Time." Exit Sub Else lblError.Text = "" End If Else lblError.Text = "" End If Fill_Time(ddlFromHour, ddlFromMinute, ddlFromAmPm) ' fill from time combo Fill_Time(ddlToHour, ddlToMinute, ddlToAmPm) ' fill to time combo Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try Dim con As New SqlConnection Dim cmd As New SqlCommand con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd.Connection = con cmd.CommandType = CommandType.StoredProcedure cmd.CommandText = "StockingWarehouseInformation_Proc" ' define store procedure cmd.Parameters.Add(New SqlParameter("@swi_Kid", SqlDbType.NVarChar)).Value = RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) cmd.Parameters.Add(New SqlParameter("@swi_Code", SqlDbType.NVarChar)).Value = ReturnValue("Select swi_Code from StockingWarehouseInformation where swi_Kid ='" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "' and swi_IsDeleted = '0'") cmd.Parameters.Add(New SqlParameter("@swi_SupplierId", SqlDbType.NVarChar)).Value = RemoveLiterals(Session("SupplierID").ToString.Trim) cmd.Parameters.Add(New SqlParameter("@swi_whtype", SqlDbType.NVarChar)).Value = ddlWareHouseType.SelectedItem.Value cmd.Parameters.Add(New SqlParameter("@swi_whname", SqlDbType.NVarChar)).Value = txtWareHouseName.Text cmd.Parameters.Add(New SqlParameter("@swi_country", SqlDbType.NVarChar)).Value = ddlCountry_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_state", SqlDbType.NVarChar)).Value = ddlState_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_city", SqlDbType.NVarChar)).Value = ddlCity_Code.SelectedItem.Value.ToString cmd.Parameters.Add(New SqlParameter("@swi_add", SqlDbType.NVarChar)).Value = txtAddress.Text cmd.Parameters.Add(New SqlParameter("@swi_pinno", SqlDbType.Int)).Value = CType(txtPinCode.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_TINNo", SqlDbType.NVarChar)).Value = txttinno.Text cmd.Parameters.Add(New SqlParameter("@swi_CSTNo", SqlDbType.NVarChar)).Value = txtcstno.Text cmd.Parameters.Add(New SqlParameter("@swi_STRNo", SqlDbType.NVarChar)).Value = txtstrno.Text cmd.Parameters.Add(New SqlParameter("@swi_ExiseCode", SqlDbType.NVarChar)).Value = txtecode.Text cmd.Parameters.Add(New SqlParameter("@swi_ILNo", SqlDbType.NVarChar)).Value = txtilno.Text cmd.Parameters.Add(New SqlParameter("@swi_phno1", SqlDbType.NVarChar)).Value = txtCountryCode.Text cmd.Parameters.Add(New SqlParameter("@swi_phno2", SqlDbType.Int)).Value = CType(txtCityCode.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_phno3", SqlDbType.Int)).Value = CType(txtPhoneNo.Text, Integer) cmd.Parameters.Add(New SqlParameter("@swi_fax1", SqlDbType.NVarChar)).Value = txtCountryCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_fax2", SqlDbType.NVarChar)).Value = txtCityCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_fax3", SqlDbType.NVarChar)).Value = txtFaxNo.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno1", SqlDbType.NVarChar)).Value = txtTollFreeCountryCode.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno2", SqlDbType.NVarChar)).Value = txtTollFreeCityCode.Text cmd.Parameters.Add(New SqlParameter("@swi_tfphno3", SqlDbType.NVarChar)).Value = txtTollFreePhoneNo.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax1", SqlDbType.NVarChar)).Value = txtTollFreeCountryCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax2", SqlDbType.NVarChar)).Value = txtTollFreeCityCodeF.Text cmd.Parameters.Add(New SqlParameter("@swi_tffax3", SqlDbType.NVarChar)).Value = txtTollFreeFaxNo.Text cmd.Parameters.Add(New SqlParameter("@swi_website", SqlDbType.NVarChar)).Value = txtWebSite.Text cmd.Parameters.Add(New SqlParameter("@swi_wholiday", SqlDbType.NVarChar)).Value = ddlWeeklyHoliday.SelectedItem.Value.ToString If ddlFromHour.SelectedValue <> "HH" And ddlFromMinute.SelectedValue <> "MM" Then temp1 = ddlFromHour.SelectedValue & ":" & ddlFromMinute.SelectedValue & ":00" & ddlFromAmPm.SelectedValue cmd.Parameters.Add(New SqlParameter("swi_wstime", SqlDbType.NVarChar)).Value = Format$(Convert.ToDateTime(temp1), "") End If If ddlToHour.SelectedValue <> "HH" And ddlToMinute.SelectedValue <> "MM" Then temp2 = ddlToHour.SelectedValue & ":" & ddlToMinute.SelectedValue & ":00" & ddlToAmPm.SelectedValue cmd.Parameters.Add(New SqlParameter("swi_wetime", SqlDbType.NVarChar)).Value = Format$(Convert.ToDateTime(temp2), "") End If cmd.Parameters.Add(New SqlParameter("@swi_ycommencement", SqlDbType.Int)).Value = CType(ddlycommencement.SelectedItem.Value, Integer) cmd.Parameters.Add(New SqlParameter("@swi_asqft", SqlDbType.NVarChar)).Value = txtasqft.Text cmd.Parameters.Add(New SqlParameter("@swi_nairport", SqlDbType.NVarChar)).Value = txtNearestAirport.Text cmd.Parameters.Add(New SqlParameter("@swi_nrstation", SqlDbType.NVarChar)).Value = txtNearestRailway.Text cmd.Parameters.Add(New SqlParameter("@swi_nport", SqlDbType.NVarChar)).Value = txtNearestPort.Text cmd.Parameters.Add(New SqlParameter("@swi_FinancialYearId", SqlDbType.NVarChar)).Value = Session("g_FinYear").ToString cmd.Parameters.Add(New SqlParameter("@swi_CompanyId", SqlDbType.NVarChar)).Value = Session("g_Company").ToString cmd.Parameters.Add(New SqlParameter("@swi_UserId", SqlDbType.NVarChar)).Value = Session("g_User").ToString cmd.Parameters.Add(New SqlParameter("@FormName", SqlDbType.NVarChar)).Value = "Stocking Warehouse Information" cmd.Parameters.Add(New SqlParameter("@Mode", SqlDbType.NVarChar)).Value = "update" If con.State = ConnectionState.Open Then ' check whether connection is closed or not con.Close() End If con.Open() cmd.ExecuteNonQuery() con.Close() ' close connection con.Dispose() Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' Fill factory dropdownlist Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) CreateMessageAlert(Me, "WareHouse Information Updated Successfully.", "StrKeyVal") CreateMessageAlert(Me, "Record Updated Successfully...", "StrKeyVal") 'showmessage("Record Updated Successfully.", lblMsg) 'CreateMessageAlert(Me, "Your Record is saved successfully.", "StrKeyVal") enablecontrol(False) clearfields() EditClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click Try 'PnlDelete.Visible = True 'DeleteClick(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel, btnSearch) ExecuteQuery("UPDATE StockingWarehouseInformation SET swi_IsDeleted = '1' WHERE (swi_Kid = '" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "')") ' update factorydetails_Isdeleted to 1 ExecuteQuery("UPDATE StockingWareHouseContacts SET WareHouseContacts_IsDeleted = '1' WHERE (WareHouseContacts_StockingWareHouseId = '" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "')") ' update supplierfactorycontacts_isdeleted to 1 CreateMessageAlert(Me, "WareHouse Information Deletd Successfully.", "StrKeyVal") CreateMessageAlert(Me, "Record Deleted Successfully...", "StrKeyVal") 'CreateMessageAlert(Me, "Your Record is Deleted successfully.", "StrKeyVal") DeleteClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) ' call deleteclick function enablecontrol(False) clearfields() Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' Fill factory dropdownlist Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) ' fill contact factory drop down list fillcombo() ' Fill country, state and city combo 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) gvCon.SelectedIndex = -1 ' fill grid with existing value for factory contact Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub Protected Sub btnConAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConAdd.Click ' Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) ' fill dropdown according to existing factroy value. Try enableconcontrol(True) ddlWareHouseName.ClearSelection() AddClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) ScriptManager1.SetFocus(ddlConWareHouseName) Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Function GenerateContactsCode() As String ' generate supplier factory details code and kid Try Dim i As String Dim qry As String Dim code As String i = "1" i = Format(Val(i), "000") While True code = "SFC" & "/" & Year(Date.Today) & "/" & Format(Month(Date.Today), "00") & "/" & Day(Date.Today) & "/" & i qry = "select count(*) from StockingWareHouseContacts where WareHouseContacts_Code='" & code & "'" If IsAlreadyPresent(qry) Then i = Val(i) + 1 i = Format(Val(i), "000") Else Return code Exit Function End If End While Catch ex As Exception CreateMessageAlert(Me, ex.Message, "StrKeyVal") 'Display the Error Message End Try End Function Protected Sub btnConSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConSave.Click Try Dim cmd As New Data.SqlClient.SqlCommand() Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@WareHouseContacts_Kid", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(NewPrimaryKey(Me)) sqlcoll.Add("@WareHouseContacts_Code", Data.SqlDbType.NVarChar, 25).Value = GenerateContactsCode().ToString sqlcoll.Add("@WareHouseContacts_Title", Data.SqlDbType.NVarChar, 10).Value = ddlkcperson.SelectedItem.Text sqlcoll.Add("@WareHouseContacts_ContactPerson", Data.SqlDbType.NVarChar, 100).Value = txtConName.Text sqlcoll.Add("@WareHouseContacts_PersonDesignation", Data.SqlDbType.NVarChar, 50).Value = txtConDesi.Text.Trim sqlcoll.Add("@WareHouseContacts_PhoneExtn", Data.SqlDbType.NVarChar, 15).Value = txtConExtension.Text.Trim sqlcoll.Add("@WareHouseContacts_CCMobileNo", Data.SqlDbType.NVarChar, 10).Value = txtConCountryCode.Text.Trim sqlcoll.Add("@WareHouseContacts_MobileNo", Data.SqlDbType.NVarChar, 15).Value = txtConMobileNo.Text sqlcoll.Add("@WareHouseContacts_EmailId", Data.SqlDbType.NVarChar, 50).Value = txtConEmailId.Text.Trim sqlcoll.Add("@WareHouseContacts_StockingWareHouseId", Data.SqlDbType.NVarChar, 15).Value = RemoveLiterals(ddlConWareHouseName.SelectedItem.Value.ToString.Trim) sqlcoll.Add("@WareHouseContacts_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = Session("g_FinYear").ToString sqlcoll.Add("@WareHouseContacts_CompanyID", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company").ToString sqlcoll.Add("@WareHouseContacts_UserID", Data.SqlDbType.NVarChar, 10).Value = Session("g_User").ToString sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.NVarChar, 10).Value = "Insert" ExecQuery("StockingWareHouseContacts_Proc", sqlcoll) sqlcoll.Clear() 'If ddlConWareHouseName.SelectedItem.Text = "Select" Then 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'Else 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlConWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'End If fillgrid(ddlConWareHouseName.SelectedItem.Value.ToString) gvCon.SelectedIndex = -1 CreateMessageAlert(Me, "Contact Information Saved Successfully.", "StrKeyVal") showmessage("Record Saved Successfully.", lblConMsg) 'CreateMessageAlert(Me, "Record Save Successfully.", "StrKeyVal") enableconcontrol(False) conclearfields() SaveClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) hf1.Value = "" Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub btnConUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConUpdate.Click Try Dim cmd As New Data.SqlClient.SqlCommand() Dim sqlcoll As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcoll.Clear() sqlcoll.Add("@WareHouseContacts_Kid", Data.SqlDbType.NVarChar, 10).Value = RemoveLiterals(gvCon.SelectedDataKey.Value.ToString) sqlcoll.Add("@WareHouseContacts_Code", Data.SqlDbType.NVarChar, 25).Value = ReturnValue("Select WareHouseContacts_Code from StockingWareHouseContacts where WareHouseContacts_Kid ='" & ReturnValue(gvCon.SelectedDataKey.Value.ToString) & "'") sqlcoll.Add("@WareHouseContacts_Title", Data.SqlDbType.NVarChar, 10).Value = ddlkcperson.SelectedItem.Text sqlcoll.Add("@WareHouseContacts_ContactPerson", Data.SqlDbType.NVarChar, 100).Value = txtConName.Text sqlcoll.Add("@WareHouseContacts_PersonDesignation", Data.SqlDbType.NVarChar, 50).Value = txtConDesi.Text.Trim sqlcoll.Add("@WareHouseContacts_PhoneExtn", Data.SqlDbType.NVarChar, 15).Value = txtConExtension.Text.Trim sqlcoll.Add("@WareHouseContacts_CCMobileNo", Data.SqlDbType.NVarChar, 10).Value = txtConCountryCode.Text.Trim sqlcoll.Add("@WareHouseContacts_MobileNo", Data.SqlDbType.NVarChar, 15).Value = txtConMobileNo.Text sqlcoll.Add("@WareHouseContacts_EmailId", Data.SqlDbType.NVarChar, 50).Value = txtConEmailId.Text.Trim sqlcoll.Add("@WareHouseContacts_StockingWareHouseId", Data.SqlDbType.NVarChar, 15).Value = RemoveLiterals(ddlConWareHouseName.SelectedItem.Value.ToString.Trim) sqlcoll.Add("@WareHouseContacts_FinancialYearId", Data.SqlDbType.NVarChar, 10).Value = Session("g_FinYear").ToString sqlcoll.Add("@WareHouseContacts_CompanyID", Data.SqlDbType.NVarChar, 10).Value = Session("g_Company").ToString sqlcoll.Add("@WareHouseContacts_UserID", Data.SqlDbType.NVarChar, 10).Value = Session("g_User").ToString sqlcoll.Add("@FormName", Data.SqlDbType.NVarChar, 50).Value = Me.Title.ToString sqlcoll.Add("@Mode", Data.SqlDbType.NVarChar, 10).Value = "Update" ExecQuery("StockingWareHouseContacts_Proc", sqlcoll) sqlcoll.Clear() 'If ddlConWareHouseName.SelectedItem.Text = "Select" Then ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'Else ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlConWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'End If fillgrid(ddlConWareHouseName.SelectedItem.Value.ToString) gvCon.SelectedIndex = -1 CreateMessageAlert(Me, "Contact Information Updated Successfully.", "StrKeyVal") showmessage("Record Updated Successfully.", lblConMsg) 'CreateMessageAlert(Me, "Record Updated Successfully.", "StrKeyVal") enableconcontrol(False) conclearfields() EditClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub btnConDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConDelete.Click Try ExecuteQuery("UPDATE StockingWareHouseContacts SET WareHouseContacts_IsDeleted = '1' WHERE (WareHouseContacts_Kid = '" & RemoveLiterals(gvCon.SelectedDataKey.Value.ToString) & "')") CreateMessageAlert(Me, "Contact Information Deletd Successfully.", "StrKeyVal") showmessage("Record Deleted Successfully.", lblConMsg) DeleteClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) enableconcontrol(False) conclearfields() 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) fillgrid(ddlConWareHouseName.SelectedItem.Value.ToString) gvCon.SelectedIndex = -1 Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub btnConCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConCancel.Click Try conclearfields() gvCon.SelectedIndex = -1 enableconcontrol(False) If ddlConWareHouseName.Enabled <> False Then ddlConWareHouseName.ClearSelection() End If If ddlWareHouseName.SelectedIndex > 0 Then ddlConWareHouseName.Items.FindByValue(ddlWareHouseName.SelectedItem.Value).Selected = True ddlConWareHouseName.Enabled = False End If CancelClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub gvCon_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvCon.SelectedIndexChanged Try pnlCon.Visible = True tblcontacthead.Visible = True pnlWareHouse.Visible = False tblhead.Visible = False Dim dt As DataTable dt = ReturnDataTable("Select * From StockingWareHouseContacts where WareHouseContacts_Kid ='" & RemoveLiterals(gvCon.SelectedDataKey.Value.ToString) & "'and WareHouseContacts_IsDeleted = '0'") If dt.Rows.Count > 0 Then Try ddlkcperson.ClearSelection() ddlkcperson.Items.FindByText(dt.Rows(0).Item("WareHouseContacts_Title").ToString()).Selected = True Catch ex As Exception ddlkcperson.ClearSelection() End Try 'Contacts_Kid = dt.Rows(0).Item("SupplierFactoryContacts_Kid").ToString() 'Contacts_Code = dt.Rows(0).Item("SupplierFactoryContacts_Code").ToString() txtConName.Text = dt.Rows(0).Item("WareHouseContacts_ContactPerson").ToString() txtConDesi.Text = dt.Rows(0).Item("WareHouseContacts_PersonDesignation").ToString() txtConExtension.Text = dt.Rows(0).Item("WareHouseContacts_PhoneExtn").ToString() txtConCountryCode.Text = dt.Rows(0).Item("WareHouseContacts_CCMobileNo").ToString() txtConMobileNo.Text = dt.Rows(0).Item("WareHouseContacts_MobileNo").ToString() txtConEmailId.Text = dt.Rows(0).Item("WareHouseContacts_EmailId").ToString() Try ddlConWareHouseName.ClearSelection() ddlConWareHouseName.Items.FindByValue(dt.Rows(0).Item("WareHouseContacts_StockingWareHouseId").ToString).Selected = True Catch ex As Exception ddlConWareHouseName.ClearSelection() End Try GridClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) If Session("AdminID") <> Nothing Or Session("AdminID") = Nothing Then ' check whether admin is login or not btnUpdate.Visible = True btnDelete.Visible = True btnConUpdate.Visible = True btnConDelete.Visible = True enableconcontrol(True) Else btnUpdate.Visible = False btnDelete.Visible = False btnConUpdate.Visible = False btnConDelete.Visible = False enableconcontrol(False) End If End If Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub btnAddCon_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddCon.Click Try Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) pnlCon.Visible = True tblcontacthead.Visible = True pnlWareHouse.Visible = False tblhead.Visible = False ScriptManager1.SetFocus(btnConAdd) enableconcontrol(False) If ddlWareHouseName.SelectedIndex > 0 Then ddlConWareHouseName.Items.FindByValue(ddlWareHouseName.SelectedItem.Value).Selected = True ddlConWareHouseName.Enabled = False ViewState("Select") = "NotSelect" fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) Else If hf1.Value <> "" Then ddlConWareHouseName.Items.FindByText(RemoveLiterals(hf1.Value.ToString)).Selected = True ddlConWareHouseName.Enabled = False Else ddlConWareHouseName.Enabled = True End If ViewState("Select") = "Select" fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) 'ddlConWareHouseName.Enabled = True ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) End If gvCon.SelectedIndex = -1 CancelClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) Catch ex As Exception showmessage(ex.Message.ToString, lblError) End Try End Sub 'Protected Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click ' pnlCon.Visible = True ' tblcontacthead.Visible = True ' ScriptManager1.SetFocus(btnConAdd) ' pnlWareHouse.Visible = False ' tblhead.Visible = False ' FillGrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) ' gvCon.SelectedIndex = -1 ' Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlConWareHouseName) ' 'If ddlWareHouseName.SelectedIndex > 0 Then ' Try ' ddlConWareHouseName.ClearSelection() ' ddlConWareHouseName.Items.FindByText(txtWareHouseName.Text).Selected = True ' ddlConWareHouseName.Enabled = False ' Catch ex As Exception ' ddlConWareHouseName.ClearSelection() ' End Try ' ViewState("Select") = "Select" ' enablecontrol(False) ' clearfields() ' SaveClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) ' AddClickVisible(Me, btnConAdd, btnConSave, btnConUpdate, btnConDelete, btnConCancel) ' enableconcontrol(True) ' If Session("AdminID") <> Nothing or Session("AdminID") = Nothing Then ' check whether admin is login or not ' btnUpdate.Visible = True ' btnDelete.Visible = True ' btnConUpdate.Visible = True ' btnConDelete.Visible = True ' Else ' btnUpdate.Visible = False ' btnDelete.Visible = False ' btnConUpdate.Visible = False ' btnConDelete.Visible = False ' End If ' 'End If 'End Sub 'Protected Sub btnc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnc.Click ' enablecontrol(False) ' clearfields() ' SaveClickVisible(Me, btnADD, btnSave, btnUpdate, btnDelete, btnCancel) ' Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' pnlWareHouse.Visible = True ' tblhead.Visible = True ' pnlCon.Visible = False ' tblcontacthead.Visible = False 'End Sub 'Protected Sub btnUpdateOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdateOK.Click ' pnlUpdateOK.Visible = False 'End Sub Protected Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClose.Click Try Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) pnlWareHouse.Visible = True tblhead.Visible = True pnlCon.Visible = False tblcontacthead.Visible = False 'btnADD.Focus() gvCon.SelectedIndex = -1 ScriptManager1.SetFocus(btnADD) conclearfields() ddlWareHouseName.Enabled = True If ViewState("Select") = "NotSelect" Then ddlWareHouseName.Items.FindByValue(ddlConWareHouseName.SelectedItem.Value).Selected = True End If fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) hf1.Value = "" Catch ex As Exception showmessage(ex.Message.ToString, lblConMsg) End Try End Sub Protected Sub ddlConWareHouseName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlConWareHouseName.SelectedIndexChanged 'If ddlConWareHouseName.SelectedItem.Text = "Select" Then ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'Else ' fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_Kid = '" & RemoveLiterals(ddlConWareHouseName.SelectedItem.Value.ToString.Trim) & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) 'End If fillgrid(ddlConWareHouseName.SelectedItem.Value.ToString) gvCon.SelectedIndex = -1 If gvCon.Rows.Count = 0 Then 'showmessage("No Contacts Found.", lblConMsg) End If conclearfields() ScriptManager1.SetFocus(txtConName) End Sub Protected Sub iCLose_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles iCLose.Click Fill_Combo("Select swi_Kid, swi_whname from StockingWarehouseInformation where swi_SupplierID = '" & Session("SupplierID").ToString() & "' and swi_IsDeleted = '0'", ddlWareHouseName) 'fillgrid("SELECT StockingWarehouseContacts.*, StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId AS Expr1, StockingWarehouseInformation.swi_SupplierId, StockingWarehouseInformation.swi_IsDeleted, StockingWarehouseInformation.swi_whname AS [WareHouse Name], StockingWarehouseContacts.WarehouseContacts_IsDeleted AS Expr2 FROM StockingWarehouseInformation INNER JOIN StockingWarehouseContacts ON StockingWarehouseInformation.swi_Kid = StockingWarehouseContacts.WarehouseContacts_StockingWarehouseId WHERE (StockingWarehouseInformation.swi_SupplierId = '" & Session("SupplierID").ToString.Trim & "') AND (StockingWarehouseInformation.swi_IsDeleted = '0') AND (StockingWarehouseContacts.WareHouseContacts_IsDeleted = N'0')", gvCon) pnlWareHouse.Visible = True tblhead.Visible = True pnlCon.Visible = False tblcontacthead.Visible = False 'btnADD.Focus() gvCon.SelectedIndex = -1 conclearfields() If ViewState("Select") = "NotSelect" Then ddlWareHouseName.Items.FindByValue(ddlConWareHouseName.SelectedItem.Value).Selected = True End If fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) ScriptManager1.SetFocus(btnADD) hf1.Value = "" End Sub Protected Sub btnBack_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBack.Click Response.Redirect("other-details.aspx") End Sub Protected Sub gvCon_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvCon.PageIndexChanging gvCon.PageIndex = e.NewPageIndex If ddlConWareHouseName.SelectedIndex > 0 Then fillgrid(ddlConWareHouseName.SelectedItem.Value.ToString) ElseIf ddlWareHouseName.SelectedIndex > 0 Then fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) Else fillgrid(ddlWareHouseName.SelectedItem.Value.ToString) End If End Sub End Class