#=============================================================================================
# @TITLE			Create parallel medium - incremental.
#
# @NUMBER			DBM3_BackupP_030b_CreateParallelMedium_incNL
#
# @DESCRIPTION		Checking the window to enter parallel mediums - incremental.
# 				    Creating paralel backup medium.
#
#=============================================================================================
static WizardOpen = 1;
static unit_array [] = {"KB","MB","GB","Pages"};
static unit_array_ok = 1;
Testname = getvar("testname");
#=============================================================================================
# @STEP 1			Checking window and clicking 'New Parallel Medium'.
#=============================================================================================
if (win_exists("Database Manager Backup Wizard",0) == 0) {
	
	tl_step("Database Manager Backup Wizard - Window Check", "0", "Window still open - TN: " & Testname);
	
	set_window ("Database Manager Backup Wizard", 1);
	toolbar_button_press ("msvb_lib_toolbar", "New Parallel Medium");
		
#=============================================================================================
# @STEP 2			Checking the window content.
#=============================================================================================	
	set_window("Medium Properties", 1);
	L_RC_1 = obj_exists("picMedium",0);
	L_RC_2 = obj_exists("txtName",0);
	L_RC_3 = obj_exists("txtBackupType",0);
	L_RC_4 = obj_exists("cmbDeviceType",0);
	L_RC_5 = obj_exists("flxGrid",0);
	
	if (L_RC_1 == 0 &&
		L_RC_2 == 0 &&
		L_RC_3 == 0 &&
		L_RC_4 == 0 &&
		L_RC_5 == 0) {
		
		tl_step ("Medium Properties - New Medium - General","0","All controls displayed - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - General","1","Not all controls displayed - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - General","1","picMedium: " & L_RC_1 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - General","1","txtName: " & L_RC_2 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - General","1","txtBackupType: " & L_RC_3 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - General","1","cmbDeviceType: " & L_RC_4 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - General","1","flxGrid: " & L_RC_5 & " expected: 0 - TN: " & Testname);
	}
#=============================================================================================
# @STEP 3			Entering medium name and Location Data
#=============================================================================================
	set_window ("Medium Properties", 3);
	edit_set ("txtName", "TestBackupP_incNL");

	tbl_set_selected_cell ( "flxGrid","#1","#2" );
	edit_set ("txtSingle", database & "_INC_NL_01");
	tbl_set_selected_cell ( "flxGrid","#2","#2" );
	edit_set ("txtSingle", database & "_INC_NL_02");
		
#=============================================================================================
# @STEP 4			Going to 'Extended' tab and checking the objects.
#=============================================================================================
	set_window ("Medium Properties", 1);
	tab_select_item ("tabPages", "&Extended");
	
	L_RC_6 = obj_exists("cmbUnit",0);
	L_RC_7 = obj_exists("ThunderRT6CheckBox_0",0);
	L_RC_8 = obj_exists("ThunderRT6CheckBox_1",0);
	L_RC_9 = obj_exists("txtBlocksize",0);
	L_RC_10 = obj_exists("ThunderRT6CheckBox_2",0);
	L_RC_11 = obj_exists("flxGrid",0);
	
	if (L_RC_6 == 0 &&
		L_RC_7 == 0 &&
		L_RC_8 == 0 &&
		L_RC_9 == 0 &&
		L_RC_10 == 0 &&
		L_RC_11 == 0) {
		
		tl_step ("Medium Properties - New Medium - Extended","0","All controls displayed - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - Extended","1","Not all controls displayed - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","cmbUnit: " & L_RC_1 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","ThunderRT6CheckBox_0: " & L_RC_2 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","ThunderRT6CheckBox_1: " & L_RC_3 & " expected:  - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","txtBlocksize: " & L_RC_4 & " expected:  - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","ThunderRT6CheckBox_2: " & L_RC_5 & " expected: 0 - TN: " & Testname);
		tl_step ("Medium Properties - New Medium - Extended","1","flxGrid: " & L_RC_5 & " expected: 0 - TN: " & Testname);
	}
	
#=============================================================================================
# @STEP 5			Checking units.
#=============================================================================================
	list_get_info("cmbUnit","count",UnitCount);
	
	for (i = 0;i < UnitCount;i++) {
		
		list_get_item("cmbUnit",i,item);
		
		if (item != unit_array[i]) {
			
			unit_array_ok = 0;
			break;
		}
	}
	
	if (unit_array_ok == 0) {
		tl_step ("Medium Properties - New Medium - Extended - units","1","Items not o.k. - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - Extended - units","0","Items o.k. - TN: " & Testname);
	}
	
#=============================================================================================
# @STEP 6			Checking blocksize field.
#=============================================================================================
	obj_get_info("ThunderRT6CheckBox_1", "value", BlockSizeCheckbox);	
	ActiveX_get_info("txtBlocksize","Locked",BlockSizeTextfield);

	if (BlockSizeCheckbox == 0 &&
		BlockSizeTextfield == "True") {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize off)","0","Correct state - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize off)","1","Incorrect state - TN: " & Testname);
	}
	
	set_window ("Medium Properties", 1);
	button_set ("ThunderRT6CheckBox_1", ON);

	obj_get_info("ThunderRT6CheckBox_1", "value", BlockSizeCheckbox);
	ActiveX_get_info("txtBlocksize","Locked",BlockSizeTextfield);

	if (BlockSizeCheckbox == 1 &&
		BlockSizeTextfield == "False") {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize on)","0","Correct state - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize on)","1","Incorrect stat - TN: " & Testname);
	}
	
	set_window ("Medium Properties", 1);
	button_set ("ThunderRT6CheckBox_1", OFF);
	
	obj_get_info("ThunderRT6CheckBox_1", "value", BlockSizeCheckbox);	
	ActiveX_get_info("txtBlocksize","Locked",BlockSizeTextfield);

	if (BlockSizeCheckbox == 0 &&
		BlockSizeTextfield == "True") {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize off)","0","Correct state - TN: " & Testname);
	} else {
		tl_step ("Medium Properties - New Medium - Extended - Checking blocksize field (Blocksize off)","1","Incorrect state - TN: " & Testname);
	}

#=============================================================================================
# @STEP 7			Entering numer of pages
#=============================================================================================
	medium_1_size = 800;
	medium_2_size = 800;
	if (match (database, "TT730") != 0) {
		medium_1_size = 235;
		medium_2_size = 235;
	}
	
	list_select_item ("cmbUnit", "KB");
	set_window ("Medium Properties", 4);
	tbl_set_selected_cell ( "flxGrid","#1","#1" );
	edit_set ("txtSingle", medium_1_size);
	tbl_set_selected_cell ( "flxGrid","#2","#1" );
	edit_set ("txtSingle", medium_2_size);

#=============================================================================================
# @STEP 8			Clicking 'Overwrite'
#=============================================================================================
	set_window ("Medium Properties", 2);
	button_set ("ThunderRT6CheckBox_0", ON);
	
#=============================================================================================
# @STEP 9			Press OK and Next
#=============================================================================================
	set_window ("Medium Properties", 2);
	button_press("OK");	
	
	set_window ("Database Manager Backup Wizard", 2);
	button_press("Next >");
	
} else {
	
	tl_step("Database Manager Backup Wizard - Window Check", "1", "Window not open - TN: " & Testname);
	WizardOpen = 0;
}
