clear
set century on
set date german
set exclusive off
set confirm on
set console off
SET SAFETY OFF
set status bar off
set talk off
set deleted on
SET REPROCESS TO AUTOMATIC
SET OPTIMIZE ON
SET MULTILOCKS ON

CLOSE DATABASES

set sysmenu save
SET SYSMENU OFF
DEACTIVATE WINDOW "Standard"
putanja=CURDIR()
set default to &putanja

USE firma
mopcija=firma.opcioni
CLOSE databases
set path to &mopcija


set procedure to sve_proc.prg
USE parame
nazfir=ALLTRIM(naziv)+" "+ALLTRIM(naziv1)
CLOSE databases

MODIFY WINDOW SCREEN TITLE 'Robno poslovanje :'+nazfir icon file bluebug.ico

WITH _Screen
.WindowState = 2 
.MaxHeight=735
.MaxWidth=1020
.MaxButton=.f.
.Closable=.t.
.AutoCenter=.t.
.backcolor=0
.movable=.f.
.left=6
.top=25
.fontbold=.t.
.fontsize=14
*.maxbutton=.f.
*.fontname="Tahoma"
*.picture=putanja+"\nsgeo.jpg"
ENDWITH

CLOSE databases
	DO FORM indexiraj
*read event
CLOSE DATABASES

return



