WINDOW TITLE "Kabelová komora v zemi"

*----------------------------
set %position.row% = 0.5
set %position.col% = 15

@ %position.row%, %position.col% \\\
		GET LabelNo SIZE 0,4 PREFIX "Číslo komory:" \\\
		MESSAGE "Číslo komory" 

@ %position.row%, %position.col%+6 \\\
		GET LabelSuf SIZE 0,2 \\\
		MESSAGE "Přípona čísla komory" 

@ %position.row%+1, %position.col% \\\
		GET CabName SIZE 0,15 PREFIX "Název komory:" \\\
		MESSAGE "Název komory"

@ %position.row%+2, %position.col% \\\
		GET CabType SIZE 0,30 PREFIX "Typ komory:" \\\
		MESSAGE "Typ komory"

*----------------------------
* Adresa
*----------------------------
set %position.row% = 3.5
set %position.col% = 15

@ %position.row%, 0 TO %position.row%+6, %position.col%+49 TITLE "Adresa"

@ %position.row%+1, %position.col% \\\
		GET Street SIZE 0,40 PREFIX "Ulice:" \\\
		MESSAGE "Ulice"
		
@ %position.row%+2, %position.col% \\\
		GET StreetNo SIZE 0,4 PREFIX "Číslo orientační:" \\\
		MESSAGE "Číslo orientační"
		
@ %position.row%+2, %position.col%+6 \\\
		GET StreetNoL SIZE 0,2 \\\
		MESSAGE "Písmeno čísla orientačního"
		
@ %position.row%+3, %position.col% \\\
		GET CityNo SIZE 0,6 PREFIX "Číslo popisné:" \\\
		MESSAGE "Číslo popisné"
		
@ %position.row%+4, %position.col% \\\
		GET Locality SIZE 0,24 PREFIX "Lokalita:" \\\
		MESSAGE "Popis lokality, název města nebo městské části"
		
@ %position.row%+5, %position.col% \\\
		GET Location SIZE 0,48 PREFIX "Umístění:" \\\
		MESSAGE "Popis umístění spojky nebo koncovky"

*----------------------------
* Ostatní údaje
*----------------------------
set %position.row% = 10.5
set %position.col% = 15

@ %position.row%, %position.col% \\\
		GET DGNDescr SIZE 0,50 PREFIX "Popis ve výkrese:" \\\
		MESSAGE "Popis zobrazovaný ve výkrese"
		
@ %position.row%+1, %position.col% \\\
		GET Comment SIZE 0,50 PREFIX "Poznámka:" \\\
		MESSAGE "Poznámka"

@ %position.row%+3, 0 \\\
		LIST 2072 SIZE 5,65 TITLE "Obsazení spojkami a koncovkami trubek:" NOHEADING \\\
		BUTTONS BOTTOM \\\
		OPERATION "" \\\
		COLUMNS "SQLDescr:30, Tubes:30" \\\
		SORTBY "SQLDescr"

@ %position.row%+9.5, 0 \\\
		LIST 1074 SIZE 5,65 TITLE "Obsazení kabelovými objekty:"  \\\
		BUTTONS BOTTOM \\\
		OPERATION "INSERT,EDIT,DELETE" \\\
		COLUMNS "ObjectPRJ:18, ObjName:20, CableO1:10, CableO2:10" \\\
		SORTBY "ObjectPRJ, ObjName"
