#=============================================================================================
# @TITLE			Checking forth window - Backup Wizard.
#
# @NUMBER			DBM2_FKT_02109
#
# @DESCRIPTION		Checking the delete window of a backup medium.
#
# @EXP_RESULT		All controls will be displayed there will be one media in the lvwMedia -
# @					listview.
#
# @REQUIREMENTS		"Database Manager" is installed.
#=============================================================================================
static WizardOpen = 1;

#change copy_MediumName / field contents / and field legnth in 2nd run of Complete Backup
if (CompleteBackupRun == 1) {
		copy_Medium = "TestBackupCopy";
		list_array_before[0] = "TestBackup";
		list_array_before[1] = "TestBackupCopy";
		list_array_after[0] = "TestBackup";
		maxList_entries_before = 2;
		maxList_entries_after = 1;
	}
	else {
		copy_Medium = "TestBackup_2Copy";
		list_array_before[0] = "TestBackup";
		list_array_before[1] = "TestBackup_2";
		list_array_before[2] = "TestBackup_2Copy";
		list_array_after[0] = "TestBackup";
		list_array_after[1] = "TestBackup_2";
		maxList_entries_before = 3;
		maxList_entries_after = 2;
		}
#=============================================================================================
# @STEP 1			Checking window.
#=============================================================================================
if (win_exists("Database Manager Backup Wizard",0) == 0) {
	
	tl_step("Database Manager Backup Wizard - Window Check", "0", "Window still open");
#=============================================================================================
# @STEP 2			Delete TestBackupCopy --> Request --> No.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	list_select_item ("lvwMedia", copy_Medium);
	toolbar_button_press ("msvb_lib_toolbar", "Delete");	

	set_window ("Confirm Medium Delete", 0);
	button_press ("No");
#=============================================================================================
# @STEP 3			Checking entries in lvwMedia - before delete.
#=============================================================================================	
	#sort the lvwMedia list alphabetically
	set_window ("Database Manager Backup Wizard", 3);
	list_get_item("lvwMedia", 0, firstitem);
	while (firstitem != "TestBackup")
	{
	obj_mouse_click ("msvb_lib_header", 1, 1, LEFT);
	list_get_item("lvwMedia", 0, firstitem);
	}
	
	for (i = 0;i < maxList_entries_before;i++) {
		
		set_window ("Database Manager Backup Wizard", 2);
		list_get_item("lvwMedia", i, Listitem);
		
		if (Listitem != list_array_before[i]) {
			
			list_array_before_ok = 0;
			break;
		}
	}
	
	if (list_array_before_ok == 0) {
		
		tl_step ("Database Manager Backup Wizard - Delete", "1", "Not all listitems are correct");
		tl_step ("Database Manager Backup Wizard - Delete", "1", "Last item: " & Listitem & " expected: " & list_array_before [i]);
	} else {
		
		tl_step ("Database Manager Backup Wizard - Delete", "0", "All listitems are correct - rename correct");
	}
#=============================================================================================
# @STEP 4			Delete TestBackupCopy --> Request --> Yes.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	list_select_item ("lvwMedia", copy_Medium);
	toolbar_button_press ("msvb_lib_toolbar", "Delete");

	set_window ("Confirm Medium Delete", 0);
	button_press ("Yes");
#=============================================================================================
# @STEP 5			Checking entries in lvwMedia - after delete.
#=============================================================================================	
	
	#sort the lvwMedia list alphabetically
	set_window ("Database Manager Backup Wizard", 3);
	list_get_item("lvwMedia", 0, firstitem);
	while (firstitem != "TestBackup")
	{
	obj_mouse_click ("msvb_lib_header", 1, 1, LEFT);
	list_get_item("lvwMedia", 0, firstitem);
	}
	
	for (i = 0;i < maxList_entries_after;i++) {
		
		set_window ("Database Manager Backup Wizard", 2);
		list_get_item("lvwMedia", i, Listitem);
		
		if (Listitem != list_array_after [i]) {
			
			list_array_after_ok = 0;
			break;
		}
	}
	
	if (list_array_after_ok == 0) {
		
		tl_step ("Database Manager Backup Wizard - Delete", "1", "Not all listitems are correct");
		tl_step ("Database Manager Backup Wizard - Delete", "1", "Last item: " & Listitem & " expected: " & list_array [i]);
	} else {
		
		tl_step ("Database Manager Backup Wizard - Delete", "0", "All listitems are correct - rename correct");
	}
#=============================================================================================
# @STEP 5			Clicking 'Next'.
#=============================================================================================	
	set_window ("Database Manager Backup Wizard", 2);
	button_press ("Next >");
} else {
	
	tl_step("Database Manager Backup Wizard - Window Check", "1", "Window not open");
	WizardOpen = 0;
}
