#=============================================================================================
# @TITLE			Check - Server - check table
#
# @NUMBER			WDBM_FKT_02042
#
# @DESCRIPTION		The for 'Server - Check' will be used and the shown table will be checked.
#
# @EXP_RESULT		The database1 verfiy will work.
#
# @REQUIREMENTS		Test: WDBM_FKT_01000; WDBM_FKT_00100; WDBM_FKT_01010;
#=============================================================================================

public function trim (in str) {
	if (substr(str, 1, 1) == " ") {

		str = trim(substr(str, 2));
	}
	if (substr(str, length(str)) == " ") {
		str = trim(substr(str, 1, length(str)-1));
	}
	return (str);
}

static headline_items_ok = 1;
static headline_items [] = {"Name","Description"};
#=============================================================================================
# @STEP 1			Clicking the link for Check - Backup.
#=============================================================================================
set_window (menu_window, 3);

if (version == "7.3.00") {
	web_link_click("Server");
}
if (version == "7.4.03" ||
	version == "7.5.00" ||
	version == "7.5.01" ||
	version == "7.6.00") {
	web_link_click("Database Server");
}
#=============================================================================================
# @STEP 2			Checking the shown text and radiobuttons.
#=============================================================================================
set_window (work_window, 3);
web_obj_get_text("Information - CACHES - DB73","#1","#1",cell_value_1,"","",1);

if ((trim(cell_value_1) == "Server - " & database && version == "7.3.00") ||
	(trim(cell_value_1) == "Check - Database Server" && (version == "7.4.03" || version == "7.5.00" || version == "7.5.01" || version == "7.6.00"))) {
	
	for(n=1;n<3;n++) {
		
		if (new_interface == "1") {
			web_obj_get_text ("Database Users", "#1", "#"&n, cell_value_2, "", "", 1);
		} else {
			tbl_get_cell_data ("1x1", "#1", "#"&n, cell_value_2);
		}
		
		if (trim(cell_value_2) != headline_items [n-1]) {
			headline_items_ok = 0;
			break;
		}
	}
	
	if (headline_items_ok == 0) {
		tl_step("Check Backup - Tableheadline","1","is incorrect");
	} else {
		tl_step("Check Backup - Tableheadline","0","is correct");
	}
} else {
	tl_step ("Check - Database Server","1","Window header name is incorrect");
}

set_window (work_window, 3);
if (new_interface == "1") {
	tbl_get_cols_count ("Database Users", cols_count);
} else {
	tbl_get_cols_count ("1x1", cols_count);
}

if (cols_count > 1) {
	tl_step("'Check - Server' table","0","Table has " & cols_count & "rows - correct");
} else {
	tl_step("'Check - Server' table","1","Table has only " & cols_count & "rows - incorrect");
}
#=============================================================================================
# @STEP 3			Checking table content after 'Refresh'.
#=============================================================================================
set_window (work_window, 1);
if (new_interface == "1") {
	web_image_click("1x1.gif", 7, 9);
} else {
	web_image_click("refresh", 9, 4);
}
wait(5);
set_window (work_window, 1);
web_obj_get_text("Information - CACHES - DB73","#1","#1",cell_value_3,"","",1);

if ((trim(cell_value_3) == "Server - " & database && version == "7.3.00") ||
	(trim(cell_value_3) == "Check - Database Server" && (version == "7.4.03" || version == "7.5.00" || version == "7.5.01" || version == "7.6.00"))) {

	tl_step("After 'Refresh'","0","still the same table");
} else {
	tl_step("After 'Refresh'","1","is not the same table");
}
#=============================================================================================
# @STEP 3			Clicking one link for functionality.
#=============================================================================================
set_window (work_window, 3);

if (new_interface == "1") {
	web_obj_get_text("Database Users", "#2", "#1", cell_value_4, "", "", 1);
} else {
	tbl_get_cell_data("1x1","#2","#1",cell_value_4);
}
set_window (work_window, 1);
web_link_click(trim(cell_value_4));

set_window (work_window, 3);
if (new_interface == "1") {
	web_obj_get_text("Information - CACHES - DB73", "#1", "#1", cell_value_5, "", "", 1);
} else {
	tbl_get_cell_data("Database/Servername", "#1", "#1", cell_value_5);
}

if ((trim(cell_value_5) == "Show - " & trim(cell_value_4) && version == "7.3.00") ||
	(trim(cell_value_5) == "Check - Database Server - " & trim(cell_value_4) && (version == "7.4.03" || version == "7.5.00" || version == "7.5.01" || version == "7.6.00"))) {

	tl_step("Link in 'Check - Server' table","0","is correct");
} else {
	tl_step("Link in 'Check - Server' table","1","is incorrect");
}
