REM  *****  BASIC  *****
sub export
dim  tlacidlo as integer
dim dokument, list, bunka, bunka_cislo,document, dispatcher as object
dim  novy, cislo as string

dim hore(1) as new com.sun.star.beans.PropertyValue
hore(0).Name = "By"
hore(0).Value = 1
hore(1).Name = "Sel"
hore(1).Value = false

dokument=stardesktop.currentcomponent
list=dokument.sheets(0)
bunka=list.GetCellByPosition(10,1)'I2
novy=trim(bunka.string)
bunka_cislo=list.GetCellByPosition(0,14)'A20
cislo=trim(bunka_cislo.string)
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
ovladanie.vyberlb("","A15:J15")
ovladanie.zkopiruj
	if novy="1" then ' záznam je už v databáze
		gosub najdi
	else
		gosub vloz_novy  'záznam je nový
	end if
ovladanie.vymaz("tovar","B2:J2")
msgbox("Databáza",0,"Vložené")
tlacidlo=msgbox("Pokračovať vo vkladaní dát?", 35,"Databáza")
	if tlacidlo=6 then ' ano
stop
	else 'nie 

msgbox("Databáza",0,"Teraz uprav ceny a potom ich exportuj")
ovladanie.vyberlb("ceny","A2")
	endif
ovladanie.uloz_novy_zosit("C:\firma\obchod\databázy\tovary.ods")
exit sub

vloz_novy:
ovladanie.vyberlb("data","A10000")
dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, hore())
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array()
ovladanie.vloz
ovladanie.vyberlb("tovar")
return
najdi:
ovladanie.najdi(cislo,"data")
ovladanie.vloz
ovladanie.vyberlb("tovar")
return
end sub

sub export_ceny
dim document, dispatcher, sablona  as object

dim datum(0) as new com.sun.star.beans.PropertyValue
datum(0).Name = "NumberFormatValue"
datum(0).Value = 36

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
	with ovladanie
		.vyberlb("ceny","F6")'dátum
		.zkopiruj
		.vyberlb("ceny","F4")'dátum
		.vloz
	end with
dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, datum())
'potialto to vloží dátum poslednej úpravy 
' kopírovanie dát na export
	with ovladanie
		.vyberlb("data","A1:L500")
		.zkopiruj
		.vyberlb("ceny")
		rem ------export dát----------------------- zošit č.2----(do šablony faktúra)
		.otvor("C:\firma\obchod\šablony\faktúra.ots")'otvorenie dokumetu 
		.uloz_novy_zosit("C:\firma\obchod\šablony\faktúra.ots")
		.vyberlb("tovary","A1")
		.vloz
		.vyberlb("faktúra")
		.uloz_zosit("C:\firma\obchod\šablony\faktúra.ots") 
		rem ---------uloženie dát----------------------- zošit č.3----(do šablony objednávka)
		.otvor("C:\firma\obchod\šablony\objednávka.ots")'otvorenie dokumetu
		.uloz_novy_zosit("C:\firma\obchod\šablony\objednávka.ots") 
		.vyberlb("tovary","A1")
		.vloz
		.vyberlb("objednávka")
		.uloz_zosit("C:\firma\obchod\šablony\objednávka.ots")
		rem ---------uloženie dát----------------------- zošit č.4----(do cenníkov)
		.otvor("C:\firma\obchod\databázy\cenníky.ods")'otvorenie dokumetu 
		.vyberlb("ceny","A1")
		.vloz
		.uloz_zosit("C:\firma\obchod\databázy\cenníky.ods")
	end with
	msgbox("Databáza",0,"Exportované")
	ovladanie.vyberlb("tovar")
	ovladanie.uloz_zosit("C:\firma\obchod\databázy\tovary.ods")
end sub