###########################################################################
# TSL-BIBLIOTHEK:	FRM_home_Lib
###########################################################################
# $Revision: 1.6 $
# $Author: cbueche $
# $Date: 2001/07/25 08:52:54 $
# $Source: 
# $NoKeywords: $
###########################################################################
#**# 
#*	Diese Library enthlt Funktionen die zur Ausfhrung der
#*	Benutzerverwaltung bentigt werden. 
#*	
#*	FRM_menu ( in table, in test, in idx, in mode )
#*	
#*	
#*@Author: cbueche 
#*/

#**
#*	 FRM_menu whlt im 
#*	Menu und aus der Toolbar aus
#*	
#*
#* @param table	(in)	Index der Tabelle mit den Testdaten
#* @param test	(in)	Name der Spalte mit den Testdaten
#* @param idx	(in)	Name des Testblocks
#* @param mode	(in)	SET/CHK/GEN
#* @return
#*	E_OK:	erfolgreich
#*	else:	fehlerhaft
#*/

public function FRM_Main_window_Profil ( in table, in test, in idx, in mode )
{
	auto rc;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "Main_window", 5 );
	rc+=FRM_web_link_click( table, test, "Groupware und Workflowmanagement" );
	rc+=FRM_web_link_click( table, test, "Netzwerke und Systemtechnik" );
	rc+=FRM_web_link_click( table, test, "Software und System Development" );
	rc+=FRM_web_link_click( table, test, "Qualittssicherung / Softwaretest" );
	rc+=FRM_web_link_click( table, test, "Content Management Systeme" );
	rc+=FRM_web_link_click( table, test, "Leistungen" );
	rc+=FRM_web_link_click( table, test, "Druckansicht" );
	return rc;
}
public function FRM_Main_window_Leistungen ( in table, in test, in idx, in mode )
{
	auto rc;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "Main_window", 5 );
	rc+=FRM_web_link_click( table, test, "Groupware/Workflowmanagementsystemen" );
	rc+=FRM_web_link_click( table, test, "Netzwerke" );
	rc+=FRM_web_link_click( table, test, "Softwaredesign und -entwicklung" );
	rc+=FRM_web_link_click( table, test, "Qualittsmanagement und Softwaretesting" );
	rc+=FRM_web_link_click( table, test, "Content Management System" );
	rc+=FRM_web_link_click( table, test, "Druckansicht" );
	return rc;
}

public function FRM_Main_get_text ( in table, in test, in idx, in mode )
{
	auto rc,text,val,loc;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	# Browser_HOME Positionieren
	win_move ("{ class: window, active: 1 }", 2, 1);
	win_resize ("{ class: window, active: 1 }", 1100, 851);
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
	{
	rc+=set_window( "Main_window", 5 );
	rc = web_obj_get_text("EMOS Computer Consulting GmbH","#0","#0",text,"","",1);
	loc=match(text,val);
	if (loc == 0)
		rc=1;
	tl_step("match" & loc, rc ,"verifiziert :"& val);
	}
	return rc;
}

public function FRM_Main_link_get_text ( in table, in test, in idx, in mode )
{
	auto rc,text,val,loc;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "navbar", 5 );
	rc+=FRM_web_image_click( table, test );
	wait(1);
	# Browser_HOME Positionieren
	win_move ("{ class: window, active: 1 }", 2, 1);
	win_resize ("{ class: window, active: 1 }", 1100, 851);
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
	{
	rc+=set_window( "Main_window", 5 );
	rc = web_obj_get_text("EMOS Computer Consulting GmbH","#0","#0",text,"","",1);
	loc=match(text,val);
	if (loc == 0)
		rc=1;
	tl_step("match" & loc, rc ,"verifiziert :"& val);
	}
	return rc;
}
public function FRM_Main_window_Kontakt ( in table, in test, in idx, in mode )
{
	auto rc,val;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "Main_window", 5 );
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
		tl_step("web_link_click" , rc ,"Main_window :"& val);
	return rc;
	val="";
	wait(2);
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
		tl_step("web_link_click" , rc ,"Main_window :"& val);
	return rc;
	val="";
	rc+=FRM_web_link_click( table, test, "Druckansicht" );
	return rc;
}
public function FRM_Main_window_link ( in table, in test, in idx, in mode )
{
	auto rc,val;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "Main_window", 5 );
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
	return rc;
	val="";
	wait(2);
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
	return rc;
	val="";
		rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
	return rc;
	val="";
	wait(2);
	rc = FRM_get_next( table, test, val );
	if ( rc == E_OK )
		rc+=web_link_click( val);
	return rc;
	val="";
	rc+=FRM_web_link_click( table, test, "Druckansicht" );
	return rc;
}

public function FRM_Drucken ( in table, in test, in idx, in mode )
{
	auto rc;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	rc+=set_window( "Drucken", 5 );
	rc+=FRM_button_press (table, test,"OK");
	rc+=FRM_button_press (table, test,"Abbrechen");
	return rc;
}
