*!*****************************************************************************
*PROCEDURE setlabely
PRIVATE m.koeficient
IF TYPE('_screen.logo') = 'O'
    IF .t. &&"FOOD"$UPPER(_screen.logo.picture) 
*!*	        m.koeficient=_screen.width/1750
*!*	        _SCREEN.LOGO.HEIGHT=1312*m.koeficient
*!*	        _SCREEN.LOGO.WIDTH=1750*m.koeficient

		IF m.slovenskaverzia
	        m.koeficient=_screen.width/2000
	        _SCREEN.LOGO.HEIGHT=1244*m.koeficient
			IF _SCREEN.LOGO.HEIGHT<_screen.height
				_SCREEN.LOGO.HEIGHT=_screen.height
			ENDIF 
	        _SCREEN.LOGO.WIDTH=2000*m.koeficient
	        _SCREEN.LOGO.TOP=_screen.Height-_screen.logo.height
	        _SCREEN.LOGO.LEFT=0
		ELSE
	        m.koeficient=_screen.width/1751
	        _SCREEN.LOGO.HEIGHT=1321*m.koeficient
			IF _SCREEN.LOGO.HEIGHT<_screen.height
				_SCREEN.LOGO.HEIGHT=_screen.height
			ENDIF 
	        _SCREEN.LOGO.WIDTH=1751*m.koeficient
	        _SCREEN.LOGO.TOP=_screen.Height-_screen.logo.height
	        _SCREEN.LOGO.LEFT=0
		ENDIF 
    ELSE
        _SCREEN.LOGO.HEIGHT=_SCREEN.HEIGHT
        _SCREEN.LOGO.WIDTH=_SCREEN.WIDTH
    ENDIF
ENDIF
IF TYPE('_screen.infobox') = 'O'
	_screen.infobox.height=_screen.height
*	IF TYPE('tbscreen') = 'O'
*		_screen.infobox.height=_screen.infobox.height-tbscreen.height
*	ENDIF 
	_screen.infobox.top=0
	_screen.infobox.width=_screen.width/3
*	IF TYPE('tbscreenskl') = 'O'
*		_screen.infobox.left=_screen.width-_screen.infobox.width-tbscreenskl.width
*	ELSE
		_screen.infobox.left=_screen.width-_screen.infobox.width
*	ENDIF 
	IF TYPE('_screen.infobox.label') = 'O'
	    _SCREEN.infobox.LABEL.VISIBLE=.F.
	    _SCREEN.infobox.LABEL.FONTSIZE = 36
	    DO WHILE TXTWIDTH(_SCREEN.infobox.LABEL.CAPTION,_SCREEN.infobox.LABEL.FONTNAME,_SCREEN.infobox.LABEL.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.LABEL.FONTNAME,_SCREEN.infobox.LABEL.FONTSIZE,"BS") > (_SCREEN.infobox.WIDTH-20)
	        IF _SCREEN.infobox.LABEL.FONTSIZE>10
	            _SCREEN.infobox.LABEL.FONTSIZE=_SCREEN.infobox.LABEL.FONTSIZE-1
	        ELSE
	            EXIT
	        ENDIF
	    ENDDO
	    _SCREEN.infobox.LABEL.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.LABEL.FONTNAME,_SCREEN.infobox.LABEL.FONTSIZE,"BS")
	    _SCREEN.infobox.LABEL.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label.LEFT=10
		_SCREEN.infobox.label.ALIGNMENT = 1
	    _SCREEN.infobox.LABEL.VISIBLE=.T.
	ENDIF
	IF TYPE('_screen.infobox.label3') = 'O'
	    _SCREEN.infobox.label3.VISIBLE=.F.
	    _SCREEN.infobox.label3.FONTSIZE=15
	    _SCREEN.infobox.label3.CAPTION=m.uctobdtxt+"  "
	    DO WHILE TXTWIDTH(_SCREEN.infobox.label3.CAPTION,_SCREEN.infobox.label3.FONTNAME,_SCREEN.infobox.label3.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label3.FONTNAME,_SCREEN.infobox.label3.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
	        IF _SCREEN.infobox.label3.FONTSIZE>5
	            _SCREEN.infobox.label3.FONTSIZE=_SCREEN.infobox.label3.FONTSIZE-1
	        ELSE
	            EXIT
	        ENDIF
	    ENDDO
	    _SCREEN.infobox.label3.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label3.LEFT=10
		_SCREEN.infobox.label3.TOP=_SCREEN.infobox.LABEL.TOP+_SCREEN.infobox.LABEL.height+10
		_SCREEN.infobox.label3.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label3.FONTNAME,_SCREEN.infobox.label3.FONTSIZE,"BS")
		_SCREEN.infobox.label3.ALIGNMENT = 1
	    _SCREEN.infobox.label3.VISIBLE=.T.
	ENDIF
	IF TYPE('_screen.infobox.label4') = 'O'
	    _SCREEN.infobox.label4.VISIBLE=.F.
	    _SCREEN.infobox.label4.FONTSIZE=15
	    DO WHILE TXTWIDTH(_SCREEN.infobox.label4.CAPTION,_SCREEN.infobox.label4.FONTNAME,_SCREEN.infobox.label4.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label4.FONTNAME,_SCREEN.infobox.label4.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
	        IF _SCREEN.infobox.label4.FONTSIZE>5
	            _SCREEN.infobox.label4.FONTSIZE=_SCREEN.infobox.label4.FONTSIZE-1
	        ELSE
	            EXIT
	        ENDIF
	    ENDDO
	    _SCREEN.infobox.label4.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label4.LEFT=10
		_SCREEN.infobox.label4.TOP=_SCREEN.infobox.LABEL3.TOP+_SCREEN.infobox.LABEL3.height+20
		_SCREEN.infobox.label4.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label4.FONTNAME,_SCREEN.infobox.label4.FONTSIZE,"BS")
		_SCREEN.infobox.label4.ALIGNMENT = 1
	    _SCREEN.infobox.label4.VISIBLE=.T.
	ENDIF
	IF TYPE('_screen.infobox.label5') = 'O'
		*** Príjemky
		_SCREEN.infobox.label5.FONTSIZE = 10
		_SCREEN.infobox.label5.FONTBOLD = .T.
		_SCREEN.infobox.label5.FONTSHADOW = .T.
		_SCREEN.infobox.label5.BACKSTYLE = 0
		_SCREEN.infobox.label5.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label5.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label5.CAPTION,_SCREEN.infobox.label5.FONTNAME,_SCREEN.infobox.label5.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label5.FONTNAME,_SCREEN.infobox.label5.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label5.FONTSIZE>5
				_SCREEN.infobox.label5.FONTSIZE=_SCREEN.infobox.label5.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label5.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label5.LEFT=10
		_SCREEN.infobox.label5.TOP=_SCREEN.infobox.LABEL4.TOP+_SCREEN.infobox.LABEL4.height+60
		_SCREEN.infobox.label5.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label5.FONTNAME,_SCREEN.infobox.label5.FONTSIZE,"BS")
		_SCREEN.infobox.label5.ALIGNMENT = 1
		_SCREEN.infobox.label5.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label6') = 'O'
		*** Žiadanky
		_SCREEN.infobox.label6.FONTSIZE = 10
		_SCREEN.infobox.label6.FONTBOLD = .T.
		_SCREEN.infobox.label6.FONTSHADOW = .T.
		_SCREEN.infobox.label6.BACKSTYLE = 0
		_SCREEN.infobox.label6.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label6.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label6.CAPTION,_SCREEN.infobox.label6.FONTNAME,_SCREEN.infobox.label6.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label6.FONTNAME,_SCREEN.infobox.label6.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label6.FONTSIZE>5
				_SCREEN.infobox.label6.FONTSIZE=_SCREEN.infobox.label6.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label6.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label6.LEFT=10
		_SCREEN.infobox.label6.TOP=_SCREEN.infobox.LABEL5.TOP+_SCREEN.infobox.LABEL5.height+5
		_SCREEN.infobox.label6.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label6.FONTNAME,_SCREEN.infobox.label6.FONTSIZE,"BS")
		_SCREEN.infobox.label6.ALIGNMENT = 1
		_SCREEN.infobox.label6.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label7') = 'O'
		*** Odpočty
		_SCREEN.infobox.label7.FONTSIZE = 10
		_SCREEN.infobox.label7.FONTBOLD = .T.
		_SCREEN.infobox.label7.FONTSHADOW = .T.
		_SCREEN.infobox.label7.BACKSTYLE = 0
		_SCREEN.infobox.label7.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label7.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label7.CAPTION,_SCREEN.infobox.label7.FONTNAME,_SCREEN.infobox.label7.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label7.FONTNAME,_SCREEN.infobox.label7.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label7.FONTSIZE>5
				_SCREEN.infobox.label7.FONTSIZE=_SCREEN.infobox.label7.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label7.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label7.LEFT=10
		_SCREEN.infobox.label7.TOP=_SCREEN.infobox.LABEL6.TOP+_SCREEN.infobox.LABEL6.height+5
		_SCREEN.infobox.label7.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label7.FONTNAME,_SCREEN.infobox.label7.FONTSIZE,"BS")
		_SCREEN.infobox.label7.ALIGNMENT = 1
		_SCREEN.infobox.label7.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label8') = 'O'
		*** Inventúra
		_SCREEN.infobox.label8.FONTSIZE = 10
		_SCREEN.infobox.label8.FONTBOLD = .T.
		_SCREEN.infobox.label8.FONTSHADOW = .T.
		_SCREEN.infobox.label8.BACKSTYLE = 0
		_SCREEN.infobox.label8.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label8.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label8.CAPTION,_SCREEN.infobox.label8.FONTNAME,_SCREEN.infobox.label8.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label8.FONTNAME,_SCREEN.infobox.label8.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label8.FONTSIZE>5
				_SCREEN.infobox.label8.FONTSIZE=_SCREEN.infobox.label8.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label8.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label8.LEFT=10
		_SCREEN.infobox.label8.TOP=_SCREEN.infobox.LABEL7.TOP+_SCREEN.infobox.LABEL7.height+5
		_SCREEN.infobox.label8.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label8.FONTNAME,_SCREEN.infobox.label8.FONTSIZE,"BS")
		_SCREEN.infobox.label8.ALIGNMENT = 1
		_SCREEN.infobox.label8.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label9') = 'O'
		*** Info zásoby
		_SCREEN.infobox.label9.FONTSIZE = 10
		_SCREEN.infobox.label9.FONTBOLD = .T.
		_SCREEN.infobox.label9.FONTSHADOW = .T.
		_SCREEN.infobox.label9.BACKSTYLE = 0
		_SCREEN.infobox.label9.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label9.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label9.CAPTION,_SCREEN.infobox.label9.FONTNAME,_SCREEN.infobox.label9.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label9.FONTNAME,_SCREEN.infobox.label9.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label9.FONTSIZE>5
				_SCREEN.infobox.label9.FONTSIZE=_SCREEN.infobox.label9.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label9.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label9.LEFT=10
		_SCREEN.infobox.label9.TOP=_SCREEN.infobox.LABEL8.TOP+_SCREEN.infobox.LABEL8.height+5
		_SCREEN.infobox.label9.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label9.FONTNAME,_SCREEN.infobox.label9.FONTSIZE,"BS")
		_SCREEN.infobox.label9.ALIGNMENT = 1
		_SCREEN.infobox.label9.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label10') = 'O'
		*** Ceny pod pozadovanym rozpatim
		_SCREEN.infobox.label10.FONTSIZE = 10
		_SCREEN.infobox.label10.FONTBOLD = .T.
		_SCREEN.infobox.label10.FONTSHADOW = .T.
		_SCREEN.infobox.label10.BACKSTYLE = 0
		_SCREEN.infobox.label10.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label10.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label10.CAPTION,_SCREEN.infobox.label10.FONTNAME,_SCREEN.infobox.label10.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label10.FONTNAME,_SCREEN.infobox.label10.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label10.FONTSIZE>5
				_SCREEN.infobox.label10.FONTSIZE=_SCREEN.infobox.label10.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label10.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label10.LEFT=10
		_SCREEN.infobox.label10.TOP=_SCREEN.infobox.LABEL9.TOP+_SCREEN.infobox.LABEL9.height+60
		_SCREEN.infobox.label10.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label10.FONTNAME,_SCREEN.infobox.label10.FONTSIZE,"BS")
		_SCREEN.infobox.label10.ALIGNMENT = 1
		_SCREEN.infobox.label10.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label11') = 'O'
		*** Stav objednávok
		_SCREEN.infobox.label11.FONTSIZE = 10
		_SCREEN.infobox.label11.FONTBOLD = .T.
		_SCREEN.infobox.label11.FONTSHADOW = .T.
		_SCREEN.infobox.label11.BACKSTYLE = 0
		_SCREEN.infobox.label11.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label11.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label11.CAPTION,_SCREEN.infobox.label11.FONTNAME,_SCREEN.infobox.label11.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label11.FONTNAME,_SCREEN.infobox.label11.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label11.FONTSIZE>5
				_SCREEN.infobox.label11.FONTSIZE=_SCREEN.infobox.label11.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_screen.infobox.label11.wordwrap=.t.
		_SCREEN.infobox.label11.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label11.LEFT=10
		_SCREEN.infobox.label11.TOP=_SCREEN.infobox.LABEL10.TOP+_SCREEN.infobox.LABEL10.height+10
		_SCREEN.infobox.label11.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label11.FONTNAME,_SCREEN.infobox.label11.FONTSIZE,"BS")
		_SCREEN.infobox.label11.HEIGHT=_SCREEN.infobox.label11.HEIGHT*(OCCURS(CHR(13)+CHR(10), _SCREEN.infobox.label11.caption)+1)
		_SCREEN.infobox.label11.ALIGNMENT = 1
		_SCREEN.infobox.label11.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label12') = 'O'
		*** Informácie
		_SCREEN.infobox.label12.FONTSIZE = 15
		_SCREEN.infobox.label12.FONTBOLD = .T.
		_SCREEN.infobox.label12.FONTSHADOW = .T.
		_SCREEN.infobox.label12.BACKSTYLE = 0
		_SCREEN.infobox.label12.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label12.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label12.CAPTION,_SCREEN.infobox.label12.FONTNAME,_SCREEN.infobox.label12.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label12.FONTNAME,_SCREEN.infobox.label12.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label12.FONTSIZE>5
				_SCREEN.infobox.label12.FONTSIZE=_SCREEN.infobox.label12.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label12.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label12.LEFT=10
		_SCREEN.infobox.label12.TOP=_SCREEN.infobox.LABEL11.TOP+_SCREEN.infobox.LABEL11.height+10
		_SCREEN.infobox.label12.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label12.FONTNAME,_SCREEN.infobox.label12.FONTSIZE,"BS")
		_SCREEN.infobox.label12.ALIGNMENT = 1
		_SCREEN.infobox.label12.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label13') = 'O'
		*** Zásoby pod/nad limitom
		_SCREEN.infobox.label13.FONTSIZE = 10
		_SCREEN.infobox.label13.FONTBOLD = .T.
		_SCREEN.infobox.label13.FONTSHADOW = .T.
		_SCREEN.infobox.label13.BACKSTYLE = 0
		_SCREEN.infobox.label13.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label13.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label13.CAPTION,_SCREEN.infobox.label13.FONTNAME,_SCREEN.infobox.label13.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label13.FONTNAME,_SCREEN.infobox.label13.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label13.FONTSIZE>5
				_SCREEN.infobox.label13.FONTSIZE=_SCREEN.infobox.label13.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label13.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label13.LEFT=10
		_SCREEN.infobox.label13.TOP=_SCREEN.infobox.LABEL12.TOP+_SCREEN.infobox.LABEL12.height+10
		_SCREEN.infobox.label13.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label13.FONTNAME,_SCREEN.infobox.label13.FONTSIZE,"BS")
		_SCREEN.infobox.label13.ALIGNMENT = 1
		_SCREEN.infobox.label13.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.label14') = 'O'
		*** Info o verzii Foodie
		_SCREEN.infobox.label14.FONTSIZE = 10
		_SCREEN.infobox.label14.FONTBOLD = .T.
		_SCREEN.infobox.label14.FONTSHADOW = .T.
		_SCREEN.infobox.label14.BACKSTYLE = 0
		_SCREEN.infobox.label14.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.label14.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.label14.CAPTION,_SCREEN.infobox.label14.FONTNAME,_SCREEN.infobox.label14.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.label14.FONTNAME,_SCREEN.infobox.label14.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.label14.FONTSIZE>5
				_SCREEN.infobox.label14.FONTSIZE=_SCREEN.infobox.label14.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.label14.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.label14.LEFT=10
		_SCREEN.infobox.label14.TOP=_SCREEN.infobox.LABEL13.TOP+_SCREEN.infobox.LABEL14.height+10
		_SCREEN.infobox.label14.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.label14.FONTNAME,_SCREEN.infobox.label14.FONTSIZE,"BS")
		_SCREEN.infobox.label14.ALIGNMENT = 1
		_SCREEN.infobox.label14.VISIBLE=.T.
	ENDIF 
	IF TYPE('_screen.infobox.labelfoodman') = 'O'
		*** FoodMan
		IF !EMPTY(_screen.infobox.label.Caption)
			_SCREEN.infobox.labelfoodman.FONTSIZE = 100
		ELSE
			_SCREEN.infobox.labelfoodman.FONTSIZE = 36
		ENDIF 
		_SCREEN.infobox.labelfoodman.FONTBOLD = .T.
		_SCREEN.infobox.labelfoodman.FONTSHADOW = .T.
		_SCREEN.infobox.labelfoodman.BACKSTYLE = 0
		_SCREEN.infobox.labelfoodman.FORECOLOR=_SCREEN.infobox.LABEL.FORECOLOR
		_SCREEN.infobox.labelfoodman.FONTNAME=m.label_font
		DO WHILE TXTWIDTH(_SCREEN.infobox.labelfoodman.CAPTION,_SCREEN.infobox.labelfoodman.FONTNAME,_SCREEN.infobox.labelfoodman.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.infobox.labelfoodman.FONTNAME,_SCREEN.infobox.labelfoodman.FONTSIZE,"BS")  > (_SCREEN.infobox.WIDTH-20)
			IF _SCREEN.infobox.labelfoodman.FONTSIZE>5
				_SCREEN.infobox.labelfoodman.FONTSIZE=_SCREEN.infobox.labelfoodman.FONTSIZE-1
			ELSE
				EXIT
			ENDIF
		ENDDO
		_SCREEN.infobox.labelfoodman.WIDTH=_screen.infobox.width-20
		_SCREEN.infobox.labelfoodman.LEFT=10
		_SCREEN.infobox.labelfoodman.HEIGHT=FONTMETRIC(1,_SCREEN.infobox.labelfoodman.FONTNAME,_SCREEN.infobox.labelfoodman.FONTSIZE,"BS")
		_SCREEN.infobox.labelfoodman.TOP=_screen.infobox.Height-_screen.infobox.labelfoodman.height-20
		_SCREEN.infobox.labelfoodman.ALIGNMENT = 1
		_SCREEN.infobox.labelfoodman.VISIBLE=.T.
	ENDIF 

	IF TYPE('_screen.infobox.logo') = 'O'
		IF m.slovenskaverzia
			_SCREEN.infobox.LOGO.WIDTH=_screen.infobox.width-20
			_SCREEN.infobox.LOGO.HEIGHT=_SCREEN.infobox.LOGO.WIDTH/730*139
			_SCREEN.infobox.LOGO.STRETCH= 1
			_SCREEN.infobox.LOGO.left=10
			_SCREEN.infobox.LOGO.TOP=_screen.infobox.Height-_screen.infobox.logo.height-20
			_SCREEN.infobox.LOGO.VISIBLE=.T.
		ENDIF	
	ENDIF 
ENDIF 
IF TYPE('_screen.label') = 'O'
    _SCREEN.LABEL.VISIBLE=.F.
    _SCREEN.LABEL.FONTSIZE = 36
    DO WHILE TXTWIDTH(_SCREEN.LABEL.CAPTION,_SCREEN.LABEL.FONTNAME,_SCREEN.LABEL.FONTSIZE)* FONTMETRIC(6,_SCREEN.LABEL.FONTNAME,_SCREEN.LABEL.FONTSIZE)  > _SCREEN.WIDTH
        IF _SCREEN.LABEL.FONTSIZE>10
            _SCREEN.LABEL.FONTSIZE=_SCREEN.LABEL.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.LABEL.HEIGHT=FONTMETRIC(1,_SCREEN.LABEL.FONTNAME,_SCREEN.LABEL.FONTSIZE)
    _SCREEN.LABEL.WIDTH=MIN(TXTWIDTH(_SCREEN.LABEL.CAPTION,_SCREEN.LABEL.FONTNAME,_SCREEN.LABEL.FONTSIZE)* ;
        FONTMETRIC(6,_SCREEN.LABEL.FONTNAME,_SCREEN.LABEL.FONTSIZE),_SCREEN.WIDTH)
	_SCREEN.label.LEFT=_SCREEN.WIDTH-40-_SCREEN.label.WIDTH
    _SCREEN.LABEL.VISIBLE=.T.
ENDIF
IF TYPE('_screen.label1') = 'O'
    _SCREEN.label1.VISIBLE=.F.
    _SCREEN.label1.FONTSIZE = 80
    DO WHILE TXTWIDTH(_SCREEN.label1.CAPTION,_SCREEN.label1.FONTNAME,_SCREEN.label1.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.label1.FONTNAME,_SCREEN.label1.FONTSIZE,"BS")  > ((_SCREEN.WIDTH-80)/2)
        IF _SCREEN.label1.FONTSIZE>10
            _SCREEN.label1.FONTSIZE=_SCREEN.label1.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.label1.TOP=_SCREEN.HEIGHT-70-FONTMETRIC(1,_SCREEN.label1.FONTNAME,_SCREEN.label1.FONTSIZE,"BS")
    _SCREEN.label1.HEIGHT=FONTMETRIC(1,_SCREEN.label1.FONTNAME,_SCREEN.label1.FONTSIZE,"BS")
    _SCREEN.label1.WIDTH=(_SCREEN.WIDTH-80)/2
    _SCREEN.label1.VISIBLE=.T.
ENDIF
IF TYPE('_screen.label2') = 'O'
    _SCREEN.label2.VISIBLE=.F.
    _SCREEN.label2.FONTSIZE=20
    DO WHILE TXTWIDTH(_SCREEN.label2.CAPTION,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")  > ((_SCREEN.WIDTH-80)/4)
        IF _SCREEN.label2.FONTSIZE>5
            _SCREEN.label2.FONTSIZE=_SCREEN.label2.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.label2.WIDTH=TXTWIDTH(_SCREEN.label2.CAPTION,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")* ;
        FONTMETRIC(6,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")
    _SCREEN.label2.LEFT=_SCREEN.WIDTH-40-_SCREEN.label2.WIDTH
    _SCREEN.label2.TOP=_SCREEN.HEIGHT-70-FONTMETRIC(1,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")
    _SCREEN.label2.HEIGHT=FONTMETRIC(1,_SCREEN.label2.FONTNAME,_SCREEN.label2.FONTSIZE,"BS")
    _SCREEN.label2.VISIBLE=.T.
ENDIF
IF TYPE('_screen.label3') = 'O'
    _SCREEN.label3.VISIBLE=.F.
    _SCREEN.label3.FONTSIZE=20
    _SCREEN.label3.CAPTION=m.uctobdtxt+"  "
    DO WHILE TXTWIDTH(_SCREEN.label3.CAPTION,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")  > ((_SCREEN.WIDTH-80)/4)
        IF _SCREEN.label3.FONTSIZE>5
            _SCREEN.label3.FONTSIZE=_SCREEN.label3.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.label3.WIDTH=TXTWIDTH(_SCREEN.label3.CAPTION,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")* ;
        FONTMETRIC(6,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")
*!*	    _SCREEN.label3.LEFT=_SCREEN.WIDTH-40-_SCREEN.label3.WIDTH
*!*	    _SCREEN.label3.TOP=_SCREEN.LABEL.TOP
*!*	    _SCREEN.label3.HEIGHT=FONTMETRIC(1,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")
		_SCREEN.label3.LEFT=_SCREEN.WIDTH-40-_SCREEN.label3.WIDTH
*		_SCREEN.label3.TOP=_SCREEN.LABEL.TOP
		_SCREEN.label3.TOP=_SCREEN.LABEL.TOP+_SCREEN.LABEL.height+10
		_SCREEN.label3.HEIGHT=FONTMETRIC(1,_SCREEN.label3.FONTNAME,_SCREEN.label3.FONTSIZE,"BS")
		_SCREEN.label3.ALIGNMENT = 2
    _SCREEN.label3.VISIBLE=.T.
ENDIF
IF TYPE('_screen.label4') = 'O'
    _SCREEN.label4.VISIBLE=.F.
    _SCREEN.label4.FONTSIZE=20
	TRY
		IF !EMPTY(m.hotline_id)
			_SCREEN.label4.CAPTION="HOT Line ID:"+ALLTRIM(m.hotline_id)+"  "
		ELSE 
			_SCREEN.label4.CAPTION=""
		ENDIF 
	CATCH
		_SCREEN.label4.CAPTION=""
	ENDTRY
    DO WHILE TXTWIDTH(_SCREEN.label4.CAPTION,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")  > ((_SCREEN.WIDTH-80)/4)
        IF _SCREEN.label4.FONTSIZE>5
            _SCREEN.label4.FONTSIZE=_SCREEN.label4.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.label4.WIDTH=TXTWIDTH(_SCREEN.label4.CAPTION,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")* ;
        FONTMETRIC(6,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")
*!*	    _SCREEN.label4.LEFT=40
*!*	    _SCREEN.label4.TOP=_SCREEN.HEIGHT-30-FONTMETRIC(1,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")
*!*	    _SCREEN.label4.HEIGHT=FONTMETRIC(1,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")
*		_SCREEN.label4.LEFT=40
		_SCREEN.label4.LEFT=_SCREEN.WIDTH-40-_SCREEN.label4.WIDTH
		_SCREEN.label4.TOP=_SCREEN.HEIGHT-30-FONTMETRIC(1,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")
		_SCREEN.label4.HEIGHT=FONTMETRIC(1,_SCREEN.label4.FONTNAME,_SCREEN.label4.FONTSIZE,"BS")
		_SCREEN.label4.ALIGNMENT = 2
    _SCREEN.label4.VISIBLE=.T.
ENDIF
IF TYPE('_screen.label5') = 'O'
    _SCREEN.label5.VISIBLE=.F.
    _SCREEN.label5.FONTSIZE=15
	TRY
		_SCREEN.label5.CAPTION=m.lic_pokec
	CATCH
		_SCREEN.label5.CAPTION=""
	ENDTRY
    DO WHILE TXTWIDTH(_SCREEN.label5.CAPTION,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")* FONTMETRIC(6,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")  > ((_SCREEN.WIDTH-80)/4)
        IF _SCREEN.label5.FONTSIZE>5
            _SCREEN.label5.FONTSIZE=_SCREEN.label5.FONTSIZE-1
        ELSE
            EXIT
        ENDIF
    ENDDO
    _SCREEN.label5.WIDTH=TXTWIDTH(_SCREEN.label5.CAPTION,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")* ;
        FONTMETRIC(6,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")
*!*	    _SCREEN.label5.LEFT=40
*!*	    _SCREEN.label5.TOP=_SCREEN.HEIGHT-30-FONTMETRIC(1,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")
*!*	    _SCREEN.label5.HEIGHT=FONTMETRIC(1,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")
*		_SCREEN.label5.LEFT=40
		_SCREEN.label5.LEFT=10
		_SCREEN.label5.TOP=10
		_SCREEN.label5.HEIGHT=FONTMETRIC(1,_SCREEN.label5.FONTNAME,_SCREEN.label5.FONTSIZE,"BS")
		_SCREEN.label5.ALIGNMENT = 2
    _SCREEN.label5.VISIBLE=.T.
ENDIF
