<%@ CodePage="65001" %>
<%
Response.Buffer = EW_RESPONSE_BUFFER
%>
<!--#include file="ewcfg.asp"-->
<!--#include file="pharmacymenudetailsinfo.asp"-->
<!--#include file="aspfn.asp"-->
<!--#include file="userfn.asp"-->
<% Call ew_Header(False, EW_CHARSET, False) %>
<%

' Define page object
Dim pharmacymenudetails_delete
Set pharmacymenudetails_delete = New cpharmacymenudetails_delete
Set Page = pharmacymenudetails_delete

' Page init processing
Call pharmacymenudetails_delete.Page_Init

' Page main
Call pharmacymenudetails_delete.Page_Main

' Global Page Rendering event (in userfn*.asp)
Page_Rendering()

' Page Render event
pharmacymenudetails_delete.Page_Render()
%>
<!--#include file="header.asp"-->
<script type="text/javascript">
// Form object
var CurrentPageID = EW_PAGE_ID = "delete";
var CurrentForm = fpharmacymenudetailsdelete = new ew_Form("fpharmacymenudetailsdelete", "delete");
// Form_CustomValidate event
fpharmacymenudetailsdelete.Form_CustomValidate = 
 function(fobj) { // DO NOT CHANGE THIS LINE!
 	// Your custom validation code here, return false if invalid. 
 	return true;
 }
// Use JavaScript validation or not
<% If EW_CLIENT_VALIDATE Then %>
fpharmacymenudetailsdelete.ValidateRequired = true; // Use JavaScript validation
<% Else %>
fpharmacymenudetailsdelete.ValidateRequired = false; // No JavaScript validation
<% End If %>
// Dynamic selection lists
<% Set arAS = Nothing %>
// Form object for search
</script>
<script type="text/javascript">
// Write your client script here, no need to add script tags.
</script>
<% Call pharmacymenudetails_delete.ShowPageHeader %>
<% Call pharmacymenudetails_delete.ShowMessage %>
<form name="fpharmacymenudetailsdelete" id="fpharmacymenudetailsdelete" class="form-inline ewForm ewDeleteForm" action="<%= ew_CurrentPage() %>" method="post">
<% If pharmacymenudetails_delete.CheckToken Then %>
<input type="hidden" name="<%= EW_TOKEN_NAME %>" value="<%= pharmacymenudetails_delete.Token %>">
<% End If %>
<input type="hidden" name="t" value="pharmacymenudetails">
<input type="hidden" name="a_delete" id="a_delete" value="D">
<% For i = 0 to UBound(pharmacymenudetails_delete.RecKeys) %>
<input type="hidden" name="key_m" id="key_m" value="<%= ew_HtmlEncode(ew_GetKeyValue(pharmacymenudetails_delete.RecKeys(i))) %>">
<% Next %>
<div class="box ewBox ewGrid">
<div class="<% If ew_IsResponsiveLayout() Then %>table-responsive <% End If %>ewGridMiddlePanel">
<table class="table ewTable">
	<thead>
	<tr class="ewTableHeader">
<% If pharmacymenudetails.ID.Visible Then ' ID %>
		<th class="<%= pharmacymenudetails.ID.HeaderCellClass() %>"><span id="elh_pharmacymenudetails_ID" class="pharmacymenudetails_ID"><%= pharmacymenudetails.ID.FldCaption %></span></th>
<% End If %>
<% If pharmacymenudetails.zMenu.Visible Then ' Menu %>
		<th class="<%= pharmacymenudetails.zMenu.HeaderCellClass() %>"><span id="elh_pharmacymenudetails_zMenu" class="pharmacymenudetails_zMenu"><%= pharmacymenudetails.zMenu.FldCaption %></span></th>
<% End If %>
<% If pharmacymenudetails.URL.Visible Then ' URL %>
		<th class="<%= pharmacymenudetails.URL.HeaderCellClass() %>"><span id="elh_pharmacymenudetails_URL" class="pharmacymenudetails_URL"><%= pharmacymenudetails.URL.FldCaption %></span></th>
<% End If %>
<% If pharmacymenudetails.Parent_id.Visible Then ' Parent_id %>
		<th class="<%= pharmacymenudetails.Parent_id.HeaderCellClass() %>"><span id="elh_pharmacymenudetails_Parent_id" class="pharmacymenudetails_Parent_id"><%= pharmacymenudetails.Parent_id.FldCaption %></span></th>
<% End If %>
<% If pharmacymenudetails.Sequence.Visible Then ' Sequence %>
		<th class="<%= pharmacymenudetails.Sequence.HeaderCellClass() %>"><span id="elh_pharmacymenudetails_Sequence" class="pharmacymenudetails_Sequence"><%= pharmacymenudetails.Sequence.FldCaption %></span></th>
<% End If %>
	</tr>
	</thead>
	<tbody>
<%
pharmacymenudetails_delete.RecCnt = 0
pharmacymenudetails_delete.RowCnt = 0
Do While Not pharmacymenudetails_delete.Recordset.EOF
	pharmacymenudetails_delete.RecCnt = pharmacymenudetails_delete.RecCnt + 1
	pharmacymenudetails_delete.RowCnt = pharmacymenudetails_delete.RowCnt + 1

	' Set row properties
	Call pharmacymenudetails.ResetAttrs
	pharmacymenudetails.RowType = EW_ROWTYPE_VIEW ' view

	' Get the field contents
	Call pharmacymenudetails_delete.LoadRowValues(pharmacymenudetails_delete.Recordset)

	' Render row
	Call pharmacymenudetails_delete.RenderRow
%>
	<tr<%= pharmacymenudetails.RowAttributes %>>
<% If pharmacymenudetails.ID.Visible Then ' ID %>
		<td<%= pharmacymenudetails.ID.CellAttributes %>>
<span id="el<%= pharmacymenudetails_delete.RowCnt %>_pharmacymenudetails_ID" class="form-group pharmacymenudetails_ID">
<span<%= pharmacymenudetails.ID.ViewAttributes %>>
<%= pharmacymenudetails.ID.ListViewValue %>
</span>
</span>
</td>
<% End If %>
<% If pharmacymenudetails.zMenu.Visible Then ' Menu %>
		<td<%= pharmacymenudetails.zMenu.CellAttributes %>>
<span id="el<%= pharmacymenudetails_delete.RowCnt %>_pharmacymenudetails_zMenu" class="form-group pharmacymenudetails_zMenu">
<span<%= pharmacymenudetails.zMenu.ViewAttributes %>>
<%= pharmacymenudetails.zMenu.ListViewValue %>
</span>
</span>
</td>
<% End If %>
<% If pharmacymenudetails.URL.Visible Then ' URL %>
		<td<%= pharmacymenudetails.URL.CellAttributes %>>
<span id="el<%= pharmacymenudetails_delete.RowCnt %>_pharmacymenudetails_URL" class="form-group pharmacymenudetails_URL">
<span<%= pharmacymenudetails.URL.ViewAttributes %>>
<%= pharmacymenudetails.URL.ListViewValue %>
</span>
</span>
</td>
<% End If %>
<% If pharmacymenudetails.Parent_id.Visible Then ' Parent_id %>
		<td<%= pharmacymenudetails.Parent_id.CellAttributes %>>
<span id="el<%= pharmacymenudetails_delete.RowCnt %>_pharmacymenudetails_Parent_id" class="form-group pharmacymenudetails_Parent_id">
<span<%= pharmacymenudetails.Parent_id.ViewAttributes %>>
<%= pharmacymenudetails.Parent_id.ListViewValue %>
</span>
</span>
</td>
<% End If %>
<% If pharmacymenudetails.Sequence.Visible Then ' Sequence %>
		<td<%= pharmacymenudetails.Sequence.CellAttributes %>>
<span id="el<%= pharmacymenudetails_delete.RowCnt %>_pharmacymenudetails_Sequence" class="form-group pharmacymenudetails_Sequence">
<span<%= pharmacymenudetails.Sequence.ViewAttributes %>>
<%= pharmacymenudetails.Sequence.ListViewValue %>
</span>
</span>
</td>
<% End If %>
	</tr>
<%
	pharmacymenudetails_delete.Recordset.MoveNext
Loop
pharmacymenudetails_delete.Recordset.Close
Set pharmacymenudetails_delete.Recordset = Nothing
%>
	</tbody>
</table>
</div>
</div>
<div>
<button class="btn btn-primary ewButton" name="btnAction" id="btnAction" type="submit"><%= Language.Phrase("DeleteBtn") %></button>
<button class="btn btn-default ewButton" name="btnCancel" id="btnCancel" type="button" data-href="<%= pharmacymenudetails.ReturnUrl %>"><%= Language.Phrase("CancelBtn") %></button>
</div>
</form>
<script type="text/javascript">
fpharmacymenudetailsdelete.Init();
</script>
<%
Call pharmacymenudetails_delete.ShowPageFooter
If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg()
%>
<script type="text/javascript">
// Write your table-specific startup script here
// document.write("page loaded");
</script>
<!--#include file="footer.asp"-->
<%

' Clean up and drop page object
Call pharmacymenudetails_delete.Page_Terminate("")
Set pharmacymenudetails_delete = Nothing
%>
<%

'
' Page Class
'
Class cpharmacymenudetails_delete

	' Page ID
	Public Property Get PageID
		PageID = "delete"
	End Property

	' Project ID
	Public Property Get ProjectID
		ProjectID = "panel"
	End Property

	' Table Name
	Public Property Get TableName
		TableName = "pharmacymenudetails"
	End Property

	' Page Object Name
	Public Property Get PageObjName
		PageObjName = "pharmacymenudetails_delete"
	End Property

	' Field (ID)
	Public Property Get ID
		Set ID = pharmacymenudetails.ID
	End Property

	' Field (Menu)
	Public Property Get zMenu
		Set zMenu = pharmacymenudetails.zMenu
	End Property

	' Field (URL)
	Public Property Get URL
		Set URL = pharmacymenudetails.URL
	End Property

	' Field (Parent_id)
	Public Property Get Parent_id
		Set Parent_id = pharmacymenudetails.Parent_id
	End Property

	' Field (Sequence)
	Public Property Get Sequence
		Set Sequence = pharmacymenudetails.Sequence
	End Property

	' Get field object dictionary (ASP)
	Public Property Get Fields
		Set Fields = pharmacymenudetails.Fields
	End Property

	' Get field object by name (alias of Fields) (ASP)
	Public Function GetField(Name)
		Set GetField = Fields.Get(Name)
	End Function

	' Get field object by parm (ASP)
	Public Function GetFieldByParm(Parm)
		Dim keys, key
		keys = Fields.Keys()
		For Each key In keys
			If Fields.Get(key).FldParm = Parm Then
				Set GetFieldByParm = Fields.Get(key)
				Exit Function
			End If
		Next
		Set GetFieldByParm = Nothing
	End Function

	' Export document (ASP)
	Dim ExportDoc

	' Page headings
	Dim Heading
	Dim Subheading

	' Page heading
	Function PageHeading()
		PageHeading = ""
		If Heading <> "" Then
			PageHeading = Heading
		ElseIf ew_NotEmpty(pharmacymenudetails) Then
			PageHeading = pharmacymenudetails.TableCaption
		End If
	End Function

	' Page subheading
	Function PageSubheading()
		If Subheading <> "" Then
			PageSubheading = Subheading
		Else
			PageSubheading = ""
			If TableName <> "" Then
				PageSubheading = Language.Phrase(PageID)
			End If
		End If
	End Function

	' Page Name
	Public Property Get PageName
		PageName = ew_CurrentPage()
	End Property

	' Page Url
	Public Property Get PageUrl
		PageUrl = ew_CurrentPage() & "?"
		If pharmacymenudetails.UseTokenInUrl Then PageUrl = PageUrl & "t=" & pharmacymenudetails.TableVar & "&" ' add page token
	End Property

	' Message
	Public Property Get Message
		Message = Session(EW_SESSION_MESSAGE)
	End Property

	Public Property Let Message(v)
		Dim msg
		msg = Session(EW_SESSION_MESSAGE)
		Call ew_AddMessage(msg, v)
		Session(EW_SESSION_MESSAGE) = msg
	End Property

	Public Property Get FailureMessage
		FailureMessage = Session(EW_SESSION_FAILURE_MESSAGE)
	End Property

	Public Property Let FailureMessage(v)
		Dim msg
		msg = Session(EW_SESSION_FAILURE_MESSAGE)
		Call ew_AddMessage(msg, v)
		Session(EW_SESSION_FAILURE_MESSAGE) = msg
	End Property

	Public Property Get SuccessMessage
		SuccessMessage = Session(EW_SESSION_SUCCESS_MESSAGE)
	End Property

	Public Property Let SuccessMessage(v)
		Dim msg
		msg = Session(EW_SESSION_SUCCESS_MESSAGE)
		Call ew_AddMessage(msg, v)
		Session(EW_SESSION_SUCCESS_MESSAGE) = msg
	End Property

	Public Property Get WarningMessage
		WarningMessage = Session(EW_SESSION_WARNING_MESSAGE)
	End Property

	Public Property Let WarningMessage(v)
		Dim msg
		msg = Session(EW_SESSION_WARNING_MESSAGE)
		Call ew_AddMessage(msg, v)
		Session(EW_SESSION_WARNING_MESSAGE) = msg
	End Property

	' Methods to clear message
	Public Sub ClearMessage()
		Session(EW_SESSION_MESSAGE) = ""
	End Sub

	Public Sub ClearFailureMessage()
		Session(EW_SESSION_FAILURE_MESSAGE) = ""
	End Sub

	Public Sub ClearSuccessMessage()
		Session(EW_SESSION_SUCCESS_MESSAGE) = ""
	End Sub

	Public Sub ClearWarningMessage()
		Session(EW_SESSION_WARNING_MESSAGE) = ""
	End Sub

	Public Sub ClearMessages()
		Session(EW_SESSION_MESSAGE) = ""
		Session(EW_SESSION_FAILURE_MESSAGE) = ""
		Session(EW_SESSION_SUCCESS_MESSAGE) = ""
		Session(EW_SESSION_WARNING_MESSAGE) = ""
	End Sub

	' Show Message
	Public Sub ShowMessage()
		Dim hidden, html, sMessage
		hidden = False
		html = ""

		' Message
		sMessage = Message
		Call Message_Showing(sMessage, "")
		If sMessage <> "" Then ' Message in Session, display
			If Not hidden Then sMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sMessage
			html = html & "<div class=""alert alert-info ewInfo"">" & sMessage & "</div>"
			Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session
		End If

		' Warning message
		Dim sWarningMessage
		sWarningMessage = WarningMessage
		Call Message_Showing(sWarningMessage, "warning")
		If sWarningMessage <> "" Then ' Message in Session, display
			If Not hidden Then sWarningMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sWarningMessage
			html = html & "<div class=""alert alert-warning ewWarning"">" & sWarningMessage & "</div>"
			Session(EW_SESSION_WARNING_MESSAGE) = "" ' Clear message in Session
		End If

		' Success message
		Dim sSuccessMessage
		sSuccessMessage = SuccessMessage
		Call Message_Showing(sSuccessMessage, "success")
		If sSuccessMessage <> "" Then ' Message in Session, display
			If Not hidden Then sSuccessMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sSuccessMessage
			html = html & "<div class=""alert alert-success ewSuccess"">" & sSuccessMessage & "</div>"
			Session(EW_SESSION_SUCCESS_MESSAGE) = "" ' Clear message in Session
		End If

		' Failure message
		Dim sErrorMessage
		sErrorMessage = FailureMessage
		Call Message_Showing(sErrorMessage, "failure")
		If sErrorMessage <> "" Then ' Message in Session, display
			If Not hidden Then sErrorMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sErrorMessage
			html = html & "<div class=""alert alert-danger ewError"">" & sErrorMessage & "</div>"
			Session(EW_SESSION_FAILURE_MESSAGE) = "" ' Clear message in Session
		End If
		Response.Write "<div class=""ewMessageDialog""" & ew_IIf(hidden, " style=""display: none;""", "") & ">" & html & "</div>"
	End Sub
	Dim PageHeader
	Dim PageFooter

	' Show Page Header
	Public Sub ShowPageHeader()
		Dim sHeader
		sHeader = PageHeader
		Call Page_DataRendering(sHeader)
		If sHeader <> "" Then ' Header exists, display
			Response.Write "<p>" & sHeader & "</p>"
		End If
	End Sub

	' Show Page Footer
	Public Sub ShowPageFooter()
		Dim sFooter
		sFooter = PageFooter
		Call Page_DataRendered(sFooter)
		If sFooter <> "" Then ' Footer exists, display
			Response.Write "<p>" & sFooter & "</p>"
		End If
	End Sub

	'
	' Validate Page request
	'
	Public Function IsPageRequest()
		If pharmacymenudetails.UseTokenInUrl Then
			IsPageRequest = False
			If ew_NotEmpty(ObjForm) Then
				IsPageRequest = (pharmacymenudetails.TableVar = ObjForm.GetValue("t"))
			End If
			If Request.QueryString("t").Count > 0 Then
				IsPageRequest = (pharmacymenudetails.TableVar = Request.QueryString("t"))
			End If
		Else
			IsPageRequest = True
		End If
	End Function
	Dim Token
	Dim CheckToken
	Dim TokenTimeout

	' Valid Post
	Function ValidPost()
		If Not CheckToken Or Not ew_IsPost() Then
			ValidPost = True
			Exit Function
		End If
		If Request.Form(EW_TOKEN_NAME).Count = 0 Then
			ValidPost = False
			Exit Function
		End If
		ValidPost = ew_CheckToken(Request.Form(EW_TOKEN_NAME),TokenTimeout)
	End Function

	' Create Token
	Sub CreateToken()
		If CheckToken And Token = "" Then
			Token = ew_CreateToken()
			gsToken = Token ' Save to global variable
		End If
	End Sub

	'
	' Class initialize
	'
	Private Sub Class_Initialize()
		Session.LCID = 1033 ' Always use US locale id
		If IsEmpty(StartTimer) Then StartTimer = Timer ' Init start time

		' Check Token
		Token = ""
		CheckToken = EW_CHECK_TOKEN
		TokenTimeout = 0
		TokenTimeout = ew_SessionTimeoutTime()

		' Initialize language object
		If IsEmpty(Language) Then
			Set Language = New cLanguage
			Call Language.LoadPhrases
		End If

		' Initialize table object
		If IsEmpty(pharmacymenudetails) Then Set pharmacymenudetails = New cpharmacymenudetails
		Set Table = pharmacymenudetails

		' Initialize URLs
		' Initialize form object

		Set ObjForm = Nothing

		' Get resize object
		Call ew_GetResizeObj

		' Intialize page id (for backward compatibility)
		EW_PAGE_ID = "delete"

		' Initialize table name (for backward compatibility)
		EW_TABLE_NAME = "pharmacymenudetails"

		' Debug message
		Call ew_LoadDebugMsg

		' Open connection to the database
		If IsEmpty(Conn) Then
			Set Conn = ew_Connect(pharmacymenudetails.TableDBID)
		End If
	End Sub

	'
	' Page_Init
	'
	Sub Page_Init()

		' User profile
		Set UserProfile = New cUserProfile

		' Security
		Set Security = New cAdvancedSecurity
		If Not Security.IsLoggedIn() Then Security.AutoLogin()
		Call Security.LoadCurrentUserLevel(ProjectID & TableName)
		If Not Security.CanDelete Then
			Call Security.SaveLastUrl
			If Security.CanList Then
				Call Page_Terminate(ew_GetUrl("pharmacymenudetailslist.asp"))
			Else
				Call Page_Terminate(ew_GetUrl("login.asp"))
			End If
		End If
		Call pharmacymenudetails.ID.SetVisibility(pharmacymenudetails)
		If pharmacymenudetails.IsAdd() Or pharmacymenudetails.IsCopy() Or pharmacymenudetails.IsGridAdd() Then
			pharmacymenudetails.ID.Visible = False
		End If
		Call pharmacymenudetails.zMenu.SetVisibility(pharmacymenudetails)
		Call pharmacymenudetails.URL.SetVisibility(pharmacymenudetails)
		Call pharmacymenudetails.Parent_id.SetVisibility(pharmacymenudetails)
		Call pharmacymenudetails.Sequence.SetVisibility(pharmacymenudetails)

		' Global page loading event (in userfn*.asp)
		Call Page_Loading

		' Page load event, used in current page
		Call Page_Load

		' Check token
		If Not ValidPost() Then
			Response.Write Language.Phrase("InvalidPostRequest")
			Call Page_Terminate("")
			Response.End
		End If

		' Create Token
		Call CreateToken
	End Sub

	'
	' Page_Terminate
	'
	Sub Page_Terminate(url)
		If Request.Form("customexport")&"" = "" Then

			' Page unload event, used in current page
			Call Page_Unload

			' Global page unloaded event (in userfn*.asp)
			Call Page_Unloaded
		End If

		' Export
		If ew_NotEmpty(pharmacymenudetails) Then
			If pharmacymenudetails.Export <> "" And Request.Form("data").Count > 0 Then
				Dim sContent
				sContent = Request.Form("data")
				gsExportFile = Request.Form("filename")
				If gsExportFile = "" Then gsExportFile = pharmacymenudetails.TableVar
				If pharmacymenudetails.Export = "pdf" Then
					Call ExportPdf(sContent)
				ElseIf pharmacymenudetails.Export = "email" Then
					Response.Write ExportEmail(sContent)
				ElseIf pharmacymenudetails.Export = "excel" Then
					Call ExportExcel(sContent)
				ElseIf pharmacymenudetails.Export = "word" Then
					Call ExportWord(sContent)
				End If
			End If
		End If
		Dim sRedirectUrl
		sRedirectUrl = url
		Call Page_Redirecting(sRedirectUrl)
		Call ew_CloseConn ' Close Connection
		Set Security = Nothing
		Set ObjForm = Nothing
		Set gResizeObj = Nothing

		' Go to URL if specified
		If gsExport & "" = "" Then
			If sRedirectUrl <> "" Then
				If Response.Buffer Then Response.Clear
				Call ew_SaveDebugMsg
				Response.Redirect sRedirectUrl
			End If
		End If
		Set pharmacymenudetails = Nothing
		Call ew_CleanUp
	End Sub

	'
	' Page_Terminate (End)
	'

	Dim DbMasterFilter, DbDetailFilter
	Dim StartRec
	Dim TotalRecs
	Dim RecCnt
	Dim RecKeys
	Dim Recordset
	Dim StartRowCnt
	Dim RowCnt

	' Page main
	Sub Page_Main()
		Dim sFilter
		StartRowCnt = 1

		' Set up Breadcrumb
		Call SetupBreadcrumb

		' Load key parameters
		RecKeys = pharmacymenudetails.GetRecordKeys() ' Load record keys
		sFilter = pharmacymenudetails.GetKeyFilter()
		If sFilter = "" Then
			Call Page_Terminate("pharmacymenudetailslist.asp") ' Prevent SQL injection, return to list
		End If

		' Set up filter (SQL WHERE clause) and get SQL
		' SQL constructor in pharmacymenudetails class, pharmacymenudetailsinfo.asp

		pharmacymenudetails.CurrentFilter = sFilter

		' Get action
		If Request.Form("a_delete").Count > 0 Then
			pharmacymenudetails.CurrentAction = Request.Form("a_delete")
		ElseIf Request.QueryString("a_delete") = "1" Then
			pharmacymenudetails.CurrentAction = "D" ' Delete record directly
		Else
			pharmacymenudetails.CurrentAction = "I"	' Display record
		End If
		If pharmacymenudetails.CurrentAction = "D" Then ' Delete
			pharmacymenudetails.SendEmail = True ' Send email on delete success
			If DeleteRows() Then ' Delete rows
				If SuccessMessage = "" Then SuccessMessage = Language.Phrase("DeleteSuccess") ' Set up success message
				Call Page_Terminate(pharmacymenudetails.ReturnUrl) ' Return to caller
			Else ' Delete failed
				pharmacymenudetails.CurrentAction = "I" ' Display record
			End If
		End If
		If pharmacymenudetails.CurrentAction = "I" Then ' Load records for display
			Set Recordset = LoadRecordset(-1, -1)
			TotalRecs = Recordset.RecordCount ' Get record count
			If TotalRecs <= 0 Then ' No record found, exit
				Recordset.Close
				Set Recordset = Nothing
				Call Page_Terminate("pharmacymenudetailslist.asp") ' Return to list
			End If
		End If
	End Sub

	'
	' Load recordset
	'
	Function LoadRecordset(offset, rowcnt)
		Dim sSql, rs, useSelectLimit, dbType, hasOrderBy
		useSelectLimit = rowcnt > 0 And offset >= 0
		dbType = ew_GetConnectionType(pharmacymenudetails.TableDBID)
		If dbType = "MSSQL" Then
			If ew_IsMsSql2012(pharmacymenudetails.TableDBID) Then dbType = "MSSQL2012" ' ASP
		End If

		' Load List page SQL
		sSql = pharmacymenudetails.ListSQL
		If useSelectLimit Then
			hasOrderBy = pharmacymenudetails.SqlOrderBy <> "" Or pharmacymenudetails.SessionOrderBy <> ""
			sSql = ew_GetSelectLimitSql(sSql, rowcnt, offset, hasOrderBy, dbType)
		End If

		' Load recordset
		Set rs = ew_LoadRecordsetByDbid(sSql, pharmacymenudetails.TableDBID)
		If Not useSelectLimit Or dbType <> "MSSQL2012" And dbType <> "MYSQL" And dbType <> "POSTGRESQL" Then ' ASP
			If offset > 0 And Not rs.EOF Then rs.Move offset
		End If

		' Call Recordset Selected event
		Call pharmacymenudetails.Recordset_Selected(rs)
		Set LoadRecordset = rs
	End Function

	'
	' Load row based on key values
	'
	Function LoadRow()
		Dim RsRow, sSql, sFilter
		sFilter = pharmacymenudetails.KeyFilter

		' Call Row Selecting event
		Call pharmacymenudetails.Row_Selecting(sFilter)

		' Load SQL based on filter
		pharmacymenudetails.CurrentFilter = sFilter
		sSql = pharmacymenudetails.SQL
		Call ew_SetDebugMsg("LoadRow: " & sSql) ' Show SQL for debugging
		Set RsRow = ew_LoadRowByDbid(sSql, pharmacymenudetails.TableDBID)
		If RsRow.EOF Then
			LoadRow = False
		Else
			LoadRow = True
			RsRow.MoveFirst
			Call LoadRowValues(RsRow) ' Load row values
		End If
		RsRow.Close
		Set RsRow = Nothing
	End Function

	'
	' Load row values from recordset
	'
	Sub LoadRowValues(RsRow)
		Dim sDetailFilter
		If Not EW_DEBUG_ENABLED Then On Error Resume Next
		If IsNull(RsRow) Then
			Set RsRow = NewRow()
		End If

		' Call Row Selected event
		Call pharmacymenudetails.Row_Selected(RsRow)
		If ew_Empty(RsRow) Then Exit Sub
		If RsRow.EOF Then Exit Sub
		pharmacymenudetails.ID.DbValue = RsRow("ID")
		pharmacymenudetails.zMenu.DbValue = RsRow("Menu")
		pharmacymenudetails.URL.DbValue = RsRow("URL")
		pharmacymenudetails.Parent_id.DbValue = RsRow("Parent_id")
		pharmacymenudetails.Sequence.DbValue = RsRow("Sequence")
	End Sub

	' Return a row with default values
	Function NewRow
		Dim cnn, rs, sSql, sFilter

		' Clear any previous errors
		Err.Clear
		Set cnn = pharmacymenudetails.TableConnection
		sFilter = pharmacymenudetails.CurrentFilter
		pharmacymenudetails.CurrentFilter = "(0 = 1)"
		sSql = pharmacymenudetails.SQL
		pharmacymenudetails.CurrentFilter = sFilter
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.CursorLocation = 3 ' adUseClient
		Call ew_SetDebugMsg("NewRow: " & sSql) ' Show SQL for debugging
		rs.Open sSql, cnn, 3, 4 ' adOpenStatic, adLockBatchOptimistic

		' Disconnect the Recordset
		Set rs.ActiveConnection = Nothing

		' Add new record
		rs.AddNew
		rs("Menu") = Null
		rs("URL") = Null
		rs("Parent_id") = Null
		rs("Sequence") = Null

		' Return the recordset
		If Err.Number = 0 Then
			Set NewRow = rs
		Else
			Set NewRow = Nothing
		End If
	End Function

	' Load DbValue from recordset
	Sub LoadDbValues(Rs)
		If Not EW_DEBUG_ENABLED Then On Error Resume Next
		If ew_Empty(Rs) Then Exit Sub
		If Rs.EOF Then Exit Sub
		pharmacymenudetails.ID.m_DbValue = Rs("ID")
		pharmacymenudetails.zMenu.m_DbValue = Rs("Menu")
		pharmacymenudetails.URL.m_DbValue = Rs("URL")
		pharmacymenudetails.Parent_id.m_DbValue = Rs("Parent_id")
		pharmacymenudetails.Sequence.m_DbValue = Rs("Sequence")
	End Sub

	'
	' Render row values based on field settings
	'
	Sub RenderRow()

		' Initialize URLs
		' Call Row Rendering event

		Call pharmacymenudetails.Row_Rendering

		'
		' Common render codes for all row types
		'
		' ID
		' Menu
		' URL
		' Parent_id
		' Sequence
		'
		' View Row
		'

		If pharmacymenudetails.RowType = EW_ROWTYPE_VIEW Then ' View row

			' ID
			pharmacymenudetails.ID.ViewValue = pharmacymenudetails.ID.CurrentValue
			pharmacymenudetails.ID.ViewCustomAttributes = ""

			' Menu
			pharmacymenudetails.zMenu.ViewValue = pharmacymenudetails.zMenu.CurrentValue
			pharmacymenudetails.zMenu.ViewCustomAttributes = ""

			' URL
			pharmacymenudetails.URL.ViewValue = pharmacymenudetails.URL.CurrentValue
			pharmacymenudetails.URL.ViewCustomAttributes = ""

			' Parent_id
			pharmacymenudetails.Parent_id.ViewValue = pharmacymenudetails.Parent_id.CurrentValue
			pharmacymenudetails.Parent_id.ViewCustomAttributes = ""

			' Sequence
			pharmacymenudetails.Sequence.ViewValue = pharmacymenudetails.Sequence.CurrentValue
			pharmacymenudetails.Sequence.ViewCustomAttributes = ""

			' View refer script
			' ID

			pharmacymenudetails.ID.LinkCustomAttributes = ""
			pharmacymenudetails.ID.HrefValue = ""
			pharmacymenudetails.ID.TooltipValue = ""

			' Menu
			pharmacymenudetails.zMenu.LinkCustomAttributes = ""
			pharmacymenudetails.zMenu.HrefValue = ""
			pharmacymenudetails.zMenu.TooltipValue = ""

			' URL
			pharmacymenudetails.URL.LinkCustomAttributes = ""
			pharmacymenudetails.URL.HrefValue = ""
			pharmacymenudetails.URL.TooltipValue = ""

			' Parent_id
			pharmacymenudetails.Parent_id.LinkCustomAttributes = ""
			pharmacymenudetails.Parent_id.HrefValue = ""
			pharmacymenudetails.Parent_id.TooltipValue = ""

			' Sequence
			pharmacymenudetails.Sequence.LinkCustomAttributes = ""
			pharmacymenudetails.Sequence.HrefValue = ""
			pharmacymenudetails.Sequence.TooltipValue = ""
		End If

		' Call Row Rendered event
		If pharmacymenudetails.RowType <> EW_ROWTYPE_AGGREGATEINIT Then
			Call pharmacymenudetails.Row_Rendered
		End If
	End Sub

	'
	' Delete records based on current filter
	'
	Function DeleteRows()
		If Not EW_DEBUG_ENABLED Then On Error Resume Next
		Dim sKey, sThisKey, sKeyFld, arKeyFlds, sSql, RsDelete, RsOld, RsDetail, OldFiles, i, cnn
		DeleteRows = True
		sSql = pharmacymenudetails.UpdateTableSQL
		Set cnn = pharmacymenudetails.TableConnection
		cnn.BeginTrans
		Set RsDelete = Server.CreateObject("ADODB.Recordset")
		RsDelete.CursorLocation = pharmacymenudetails.TableCursorLocation
		Call ew_SetDebugMsg("DeleteRows: " & sSql) ' Show SQL for debugging
		RsDelete.Open sSql, cnn, 1, pharmacymenudetails.TableRecordsetLockType
		If Err.Number <> 0 Then
			FailureMessage = Err.Description
			RsDelete.Close
			Set RsDelete = Nothing
			DeleteRows = False
			Exit Function
		ElseIf RsDelete.EOF Then
			FailureMessage = Language.Phrase("NoRecord") ' No record found
			RsDelete.Close
			Set RsDelete = Nothing
			DeleteRows = False
			Exit Function
		End If

		' Clone old recordset object
		Set RsOld = ew_CloneRs(RsDelete)

		' Call row deleting event
		If DeleteRows Then
			RsDelete.MoveFirst
			Do While Not RsDelete.EOF
				DeleteRows = pharmacymenudetails.Row_Deleting(RsDelete)
				If Not DeleteRows Then Exit Do
				RsDelete.MoveNext
			Loop
			RsDelete.MoveFirst
		End If
		If DeleteRows Then
			sKey = ""
			RsDelete.MoveFirst
			Do While Not RsDelete.EOF
				sThisKey = ""
				If sThisKey <> "" Then sThisKey = sThisKey & EW_COMPOSITE_KEY_SEPARATOR
				sThisKey = sThisKey & RsDelete("ID")
				Call LoadDbValues(RsDelete)
				If DeleteRows Then
					Call ew_SetDebugMsg("Delete: " & sSql) ' Show SQL for debugging
					RsDelete.Delete
				End If
				If Err.Number <> 0 Or Not DeleteRows Then
					If Err.Description <> "" Then FailureMessage = Err.Description ' Set up error message
					DeleteRows = False
					Exit Do
				End If
				If sKey <> "" Then sKey = sKey & ", "
				sKey = sKey & sThisKey
				RsDelete.MoveNext
			Loop
		End If
		If Not DeleteRows Then

			' Set up error message
			If SuccessMessage <> "" Or FailureMessage <> "" Then

				' Use the message, do nothing
			ElseIf pharmacymenudetails.CancelMessage <> "" Then
				FailureMessage = pharmacymenudetails.CancelMessage
				pharmacymenudetails.CancelMessage = ""
			Else
				FailureMessage = Language.Phrase("DeleteCancelled")
			End If
		End If
		If DeleteRows Then
			cnn.CommitTrans ' Commit the changes
			If Err.Number <> 0 Then
				FailureMessage = Err.Description
				DeleteRows = False ' Delete failed
			End If
		Else
			cnn.RollbackTrans ' Rollback changes
		End If
		RsDelete.Close
		Set RsDelete = Nothing

		' Call row deleting event
		If DeleteRows Then
			RsOld.MoveFirst
			Do While Not RsOld.EOF
				Call pharmacymenudetails.Row_Deleted(RsOld)
				RsOld.MoveNext
			Loop
		End If
		RsOld.Close
		Set RsOld = Nothing
	End Function

	' Set up Breadcrumb
	Sub SetupBreadcrumb()
		Dim PageId, url
		Set Breadcrumb = New cBreadcrumb
		url = Mid(ew_CurrentUrl(), InStrRev(ew_CurrentUrl(), "/") + 1)
		Call Breadcrumb.Add("list", pharmacymenudetails.TableVar, pharmacymenudetails.AddMasterUrl("pharmacymenudetailslist.asp"), "", pharmacymenudetails.TableVar, True)
		PageId = "delete"
		Call Breadcrumb.Add("delete", PageId, url, "", "", False)
	End Sub

	' Setup lookup filters of a field
	Sub SetupLookupFilters(fld, pageId)
		pageId = ew_IIf(ew_EmptyStr(pageId), pharmacymenudetails_delete.PageID, pageId)
		Select Case fld.FldVar
		End Select
	End Sub

	' Setup AutoSuggest filters of a field
	Sub SetupAutoSuggestFilters(fld, pageId)
		pageId = ew_IIF(ew_EmptyStr(pageId), pharmacymenudetails_delete.PageID, pageId)
		Select Case fld.FldVar
		End Select
	End Sub

	' Page Load event
	Sub Page_Load()

		'Response.Write "Page Load"
	End Sub

	' Page Unload event
	Sub Page_Unload()

		'Response.Write "Page Unload"
	End Sub

	' Page Redirecting event
	Sub Page_Redirecting(url)

		'url = newurl
	End Sub

	' Message Showing event
	' typ = ""|"success"|"failure"|"warning"
	Sub Message_Showing(msg, typ)

		' Example:
		'If typ = "success" Then
		'	msg = "your success message"
		'ElseIf typ = "failure" Then
		'	msg = "your failure message"
		'ElseIf typ = "warning" Then
		'	msg = "your warning message"
		'Else
		'	msg = "your message"
		'End If

	End Sub

	' Page Render event
	Sub Page_Render()

		'Response.Write "Page Render"
	End Sub

	' Page Data Rendering event
	Sub Page_DataRendering(header)

		' Example:
		'header = "your header"

	End Sub

	' Page Data Rendered event
	Sub Page_DataRendered(footer)

		' Example:
		'footer = "your footer"

	End Sub
End Class
%>