$PBExportHeader$w_base.srw
forward
global type w_base from window
end type
end forward

global type w_base from window
integer width =  3168 
integer height =  1876 
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor =  67108864 
string icon = "AppIcon!"
boolean center = true
event we_security_process ( )
end type
global w_base w_base

type variables
//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		12-Feb-2007
// Definition of Parameters	:
// Description 					:		Declare instance variables
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
// 3.0			12-Feb-2007  Black Savage		Initial Version
//************************************************************************************

private 	datastore ids_menu_items // it has all accessible controls and menu items
end variables

forward prototypes
public subroutine config ()
private function boolean wf_set_menu (menu an_menu_id)
private function boolean wf_set_controls (graphicobject ago_control)
private function boolean wf_set_buttons (graphicobject ago_control)
end prototypes

event we_security_process();//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		12-Feb-2007
// Definition of Parameters	:
// Description 					:		Security process script
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
// 3.0			12-Feb-2007  Black Savage		Initial Version
//************************************************************************************

string 	ls_cod_op, ls_ppqesystem, ls_window
long		ll_items, ll_row_num
boolean	lb_access
pointer	lpt_oldpointer

// If there is not guo_variables, it'll be impossible to get retrieves arguments
if IsValid(guo_variables) = false then return

// Has the window any controls or menu?
lb_access = false
if IsNull(this.MenuID) = false then
	lb_access = true
end if
ll_items = UpperBound(this.Control[])
if IsNull(ll_items) = false	then
	if ll_items > 0 then
		lb_access = true
	end if
end if
if lb_access = false then return // There are not any menu or controls in the window
	
// Get retrieves arguments
ls_cod_op = guo_variables.gs_user
if Trim(ls_cod_op) = "" then return

ls_ppqesystem	= guo_variables.gs_type
if Trim(ls_ppqesystem) = "" then return

ls_window = ClassName(this)
if IsNull(ls_window) then return
if Trim(ls_window) = "" then return

ls_cod_op = Trim(ls_cod_op)
ls_ppqesystem = Trim(ls_ppqesystem)
ls_window = Upper(Trim(ls_window))

// It's the right time to create datastore. Everything is OK
lpt_oldpointer = SetPointer(HourGlass!)
ids_menu_items = create datastore

ids_menu_items.DataObject = 'dw_menu_items'
ids_menu_items.SetTransObject(SQLCA)
ll_row_num = ids_menu_items.Retrieve(ls_cod_op, ls_ppqesystem, ls_window)
if ll_row_num < 0 then
	destroy ids_menu_items
	guo_message.uf_msg("SYS_000057", this.Title, "", "", StopSign!, OK!) // System can not get information about user's access to the window '%1'
	close(this)
	return
end if

// Now ids_menu_items has all accessible controls and menu items
lb_access = false
// Set menu
if IsNull(this.MenuID) = false then
	if this.wf_set_menu(this.MenuID) then
		lb_access = true
	end if
end if

// Set controls
ll_items = UpperBound(this.Control[])
if IsNull(ll_items) = false then
	if ll_items > 0 then
		if this.wf_set_controls(this) then
			lb_access = true
		end if
	end if
end if

// If  lb_access = true then the user has access to a control or a menu item
SetPointer(lpt_oldpointer)
end event

public subroutine config ();//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		13-Feb-2007
// Definition of Parameters	:
// Description 					:		Description for this object
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
// 3.0			13-Feb-2007  Black Savage		Initial Version
//************************************************************************************

/*

The base application's window. 

CONTROLS:


INSTANCE VARIABLES:

		private 	datastore ids_menu_items // it has all accessible controls and menu items

FUNCTIONS:
		public		config()												return nothing
		private	wf_set_buttons(graphicobject ago_control)	return boolean
		private	wf_set_controls(graphicobject ago_control)	return boolean
		private	wf_set_menu(menu an_menu_id)				return boolean
		
EVENTS:
		open
		close
		we_security_process
*/
end subroutine

private function boolean wf_set_menu (menu an_menu_id);//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		 13 -Feb- 2007 
// Definition of Parameters	:
// Description 					:		Set menu according to security
//
//											return false - means access denied
//											return true  - means access granted
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
//  3 . 0 			 13 -Feb- 2007   Black Savage		Initial Version
//************************************************************************************

long		ll_item, ll_count_items
long		ll_row, ll_row_count
boolean	lb_access
string		ls_itemname
menu		lm_item
boolean	lb_enabled, lb_visible, lb_toolbaritemvisible

if IsNull(an_menu_id) then return true

lb_access = false
ll_row_count = ids_menu_items.RowCount()
ll_count_items = UpperBound(an_menu_id.Item[])
if IsNull(ll_count_items)	then return false
if ll_count_items <=  0 	then return false

for ll_item =  1  to ll_count_items
	
	// Look at a lower level of menu
	if UpperBound(an_menu_id.Item[ll_item].Item[]) >  0  then
		if wf_set_menu(an_menu_id.Item[ll_item]) and lb_access = false then
			lb_access = true
		end if
	end if
	
	// Make item to be disable, if Enabled, Visible or ToolbarItemVisible are equal true
	// If a menu item is not in a list, it means it is disable
	lb_enabled				= an_menu_id.Item[ll_item].Enabled	
	lb_visible					= an_menu_id.Item[ll_item].Visible
	lb_toolbaritemvisible	= an_menu_id.Item[ll_item].ToolbarItemVisible
	if lb_enabled = true or lb_visible = true or lb_toolbaritemvisible = true then
		if lb_enabled = true		then an_menu_id.Item[ll_item].Enabled 					= false
		if lb_visible = true			then an_menu_id.Item[ll_item].Visible					= false
		if lb_toolbaritemvisible	then an_menu_id.Item[ll_item].ToolbarItemVisible	= false
	else
		// It means the menu item is hidden by a developer
		continue
	end if
	
	for ll_row =  1  to ll_row_count
		ls_itemname = ids_menu_items.GetItemString(ll_row, "itemname", Primary!, false)
		if IsNull(ls_itemname) then continue
		ls_itemname = Trim(ls_itemname)
		if ls_itemname = "" then continue
		
		if Lower(ClassName(an_menu_id.Item[ll_item])) = ls_itemname then
			if lb_enabled = true		then an_menu_id.Item[ll_item].Enabled 					= true
			if lb_visible = true			then an_menu_id.Item[ll_item].Visible					= true
			if lb_toolbaritemvisible	then an_menu_id.Item[ll_item].ToolbarItemVisible	= true
			lb_access = true
			exit
		end if
	next
next

return lb_access
end function

private function boolean wf_set_controls (graphicobject ago_control);//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		 13 -Feb- 2007 
// Definition of Parameters	:
// Description 					:		Set controls according to security
// 
//											return false - means access denied
//											return true  - means access granted
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
//  3 . 0 			 13 -Feb- 2007   Black Savage		Initial Version
//************************************************************************************

string					ls_type
window				lw_win
tab					ltab_tab
userobject			luo_uo
long					ll_item, ll_count_items
boolean				lb_access

if IsNull(ago_control)				then return false
if IsValid(ago_control) = false	then return false

// Define object's type
choose case ago_control.TypeOf()
	case Window!
		lw_win = ago_control
		ll_count_items = UpperBound(lw_win.Control[])
		if IsNull(ll_count_items) then return false
		ls_type = 'w'
	case Tab!
		ltab_tab = ago_control
		ll_count_items = UpperBound(ltab_tab.Control[])
		if IsNull(ll_count_items) then return false
		ls_type = 't'
	case UserObject!
		luo_uo = ago_control
		ll_count_items = UpperBound(luo_uo.Control[])
		if IsNull(ll_count_items) then return false
		ls_type = 'u'
	case else
		return false
end choose

// Define that CommandButton! and PictureButton! only have security functionality
lb_access = false
for ll_item = 1 to ll_count_items
	choose case ls_type
		case 'w'
			choose case lw_win.Control[ll_item].TypeOf()
				case CommandButton!, PictureButton!
					// Set button
					if wf_set_buttons(lw_win.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case Tab!
					if wf_set_controls(lw_win.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case UserObject!
					if wf_set_controls(lw_win.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
			end choose			
		case 't'
			choose case ltab_tab.Control[ll_item].TypeOf()
				case CommandButton!, PictureButton!
					// Set button
					if wf_set_buttons(ltab_tab.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case Tab!
					if wf_set_controls(ltab_tab.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case UserObject!
					if wf_set_controls(ltab_tab.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
			end choose			
		case 'u'
			choose case luo_uo.Control[ll_item].TypeOf()
				case CommandButton!, PictureButton!
					// Set button
					if wf_set_buttons(luo_uo.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case Tab!
					if wf_set_controls(luo_uo.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
				case UserObject!
					if wf_set_controls(luo_uo.Control[ll_item]) and lb_access = false then
						lb_access = true
					end if
			end choose			
	end choose	
next

return lb_access
end function

private function boolean wf_set_buttons (graphicobject ago_control);//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		13-Feb-2007
// Definition of Parameters	:
// Description 					:		Set CommandButton! and PictureButton! according to security
// 
//											return false - means access denied
//											return true  - means access granted
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
// 3.0			13-Feb-2007  Black Savage		Initial Version
//************************************************************************************

string					ls_type, ls_itemname
commandbutton	lcb_button
picturebutton		lpb_button
long					ll_row, ll_row_count
boolean				lb_access
boolean				lb_enabled, lb_visible

if IsNull(ago_control)				then return false
if IsValid(ago_control) = false	then return false

// Define object's type
choose case ago_control.TypeOf()
	case CommandButton!
		lcb_button = ago_control
		ls_type = 'cb'
	case PictureButton!
		lpb_button = ago_control
		ls_type = 'pb'
	case else
		return false
end choose

// Make button to be disable, if Enabled or Visible are equal true
// If a button is not in a list, it means the button disable
choose case ls_type
	case 'cb'
		lb_enabled	= lcb_button.enabled
		lb_visible		= lcb_button.visible
		if lb_enabled = true or lb_visible = true then
			if lb_enabled	= true then lcb_button.enabled		= false
			if lb_visible		= true then lcb_button.visible		= false
		else
			// It means the button is hidden by a developer
			return false
		end if
	case 'pb'
		lb_enabled	= lpb_button.enabled
		lb_visible		= lpb_button.visible
		if lb_enabled = true or lb_visible = true then
			if lb_enabled	= true then lpb_button.enabled		= false
			if lb_visible		= true then lpb_button.visible		= false
		else
			// It means the button is hidden by a developer
			return false
		end if
end choose

ll_row_count = ids_menu_items.RowCount()
lb_access = false
for ll_row =  1  to ll_row_count
	ls_itemname = ids_menu_items.GetItemString(ll_row, "itemname", Primary!, false)
	if IsNull(ls_itemname) then continue
	ls_itemname = Trim(ls_itemname)
	if ls_itemname = "" then continue
	
	if Lower(ClassName(ago_control)) = ls_itemname then
		choose case ls_type
			case 'cb'
				if lb_enabled	= true then lcb_button.enabled		= true
				if lb_visible		= true then lcb_button.visible		= true
				lb_access = true
				exit
			case 'pb'
				if lb_enabled	= true then lpb_button.enabled		= true
				if lb_visible		= true then lpb_button.visible		= true
				lb_access = true
				exit
		end choose
	end if
next

return lb_access
end function

on w_base.create
end on

on w_base.destroy
end on

event open;//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		 12 -Feb- 2007 
// Definition of Parameters	:
// Description 					:		Open script
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
//  3 . 0 			 12 -Feb- 2007   Black Savage		Initial Version
//************************************************************************************

this.PostEvent("we_security_process")
end event

event close;//************************************************************************************
// Author Name					:		Black Savage
// Creation Date 				:  		 12 -Feb- 2007 
// Definition of Parameters	:
// Description 					:		Close script
//
// Modification history 
//====================================================================================
// Version !   Date			!  Author			! 	Description
//====================================================================================
//  3 . 0 			 12 -Feb- 2007   Black Savage		Initial Version
//************************************************************************************

if IsValid(ids_menu_items) then destroy ids_menu_items
end event