Izpis SQL-I
	Opcije:
	Kriteriji:
			10	Izvajanje			Naredi ponudbo
Naredi ponudbo
SQL ukaz
set nocount on
declare
@dExpiration datetime,
@iDMnth int,
@fVrednost money,
@fCena money,
@dDatum datetime,
@cKljuc char(9),
@nPoz int,
@ikol int
-- dobi datum preteka osveževalne pogodbe
exec opombe.dbo.dl_UpgradeExpiration #SUBJEKT#, @dExpiration output
set @iDMnth = DateDiff(mm,@dExpiration,GetDate())
-- dobi vrednost osveževalne pogodbe
select @fVrednost = SUM(KOLICINA*MPCENA)*0.15
from _ListaLicenc where SUBJEKT = #SUBJEKT#
-- naredi glavo
set @dDatum = GetDate()
exec dl_GetNewNaroc_Kljuc #PD#,@dDatum,@cKljuc output
insert into NAROC (KLJUC,DATUMZAP,DATUMSPRE,DATUM,DATUMVELJ,NAROCNIK,PREJEMNIK,POSLDOG,DNIZAVELJ,OPOMBA)
values (@cKljuc,@dDatum,@dDatum,@dDatum,DateDiff(day,@dDatum,7),#SUBJEKT#,#SUBJEKT#,#PD#,7,'Osveževalna pogodba je pretekla dne:
'+Convert(varchar,@dExpiration,104))
-- naredi pozicije za nesklenjena obdobja
set @fCena = @fVrednost / 12
-- > 24 mesecev = 30% vrednosti
if @iDMnth > 24
begin
set @iKol = @iDMnth - 24
exec dl_GetNewNarocPoz_Poz @cKljuc,@nPoz output
insert into NAROCPOZ (KLJUC,POZ,IDENT,NAZIV,KOLICINA,CENA,RABAT,DAVEK,EM,TS,DATUMZAP,DATUMSPRE,OPOMBA)
values (@cKljuc,@nPoz,'PAPOMHIS','Doplačilo za nesklenjeno osv. pogodbo',@iKol,@fCena,70,19,'ME','S9',@dDatum,@dDatum,'Doplačilo za
nesklenjeno osveževalno pogodbo nad 24 mesecev')
set @iDMnth = 13
end
-- > 12 mesecev = 50% vrednosti
if @iDMnth > 12
begin
set @iKol = @iDMnth - 12
exec dl_GetNewNarocPoz_Poz @cKljuc,@nPoz output
insert into NAROCPOZ (KLJUC,POZ,IDENT,NAZIV,KOLICINA,CENA,RABAT,DAVEK,EM,TS,DATUMZAP,DATUMSPRE,OPOMBA)
values (@cKljuc,@nPoz,'PAPOMHIS','Doplačilo za nesklenjeno osv. pogodbo',@iKol,@fCena,50,19,'ME','S9',@dDatum,@dDatum,'Doplačilo za
nesklenjeno osveževalno pogodbo nad 12 mesecev')
set @iDMnth = 12
end
-- 1 - 12 mesecev = 75% vrednosti
if (@iDMnth <= 12) and (@iDMnth > 1)
begin
set @iKol = @iDMnth
exec dl_GetNewNarocPoz_Poz @cKljuc,@nPoz output
insert into NAROCPOZ (KLJUC,POZ,IDENT,NAZIV,KOLICINA,CENA,RABAT,DAVEK,EM,TS,DATUMZAP,DATUMSPRE,OPOMBA)
values (@cKljuc,@nPoz,'PAPOMHIS','Doplačilo za nesklenjeno osv. pogodbo',@iKol,@fCena,25,19,'ME','S9',@dDatum,@dDatum,'Doplačilo za
nesklenjeno osveževalno pogodbo 1-12 mesecev')
end
-- dodaj še pozicijo za zdajšnje osveževanje
if #POGODBA# = 3
begin
set @fCena = @fVrednost / 4
exec dl_GetNewNarocPoz_Poz @cKljuc,@nPoz output
insert into NAROCPOZ (KLJUC,POZ,IDENT,NAZIV,KOLICINA,CENA,RABAT,DAVEK,EM,TS,DATUMZAP,DATUMSPRE)
values (@cKljuc,@nPoz,'PAPOOSVK','Kvartalna osveževalna pogodba',1,@fCena,0,19,'ME','S9',@dDatum,@dDatum)
								Stran:	1
Registriran uporabnik: DATALAB d.o.o.											Obrazec: 11F
end
else
begin
exec dl_GetNewNarocPoz_Poz @cKljuc,@nPoz output
insert into NAROCPOZ (KLJUC,POZ,IDENT,NAZIV,KOLICINA,CENA,RABAT,DAVEK,EM,TS,DATUMZAP,DATUMSPRE)
values (@cKljuc,@nPoz,'PAPOOSVL','Letna osvež. pogodba DataLab PANTHEON',1,@fVrednost,10,19,'ME','S9',@dDatum,@dDatum)
end
-- izračunaj sumo
exec dl_SetNarocSum 'P','SIT','SIT',0.1,0.1,@cKljuc
-- vrni kljuc kot parameter za odpiranje dokumenta
select @cKljuc as KLJUC
			20	Izvajanje			Prikaži ponudbo
Prikaži ponudbo
SQL ukaz
~R~PoisciDokument #KLJUC#,#KLJUC#