95.86.62.111/95.86.62.111.tar/95.86.62.111/SQL.rar/WTrg.sql

Text File | 2012-02-11 | 9MB | 242,859 lines

IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Naracki_Brnar' AND type = 'TR') DROP TRIGGER tr_Naracki_Brnar

Go
CREATE   TRIGGER tr_Naracki_Brnar
ON dbo.Naracki
FOR INSERT
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Nar Smallint
   Declare @Broj_Nar Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Nar=Sifra_Nar, @Broj_Nar=Broj_Nar FROM Inserted
   IF EXISTS(SELECT * FROM Brnar WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar)
      UPDATE Brnar SET Broj_Nar=@Broj_Nar WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar
   ELSE
      INSERT INTO Brnar(Sifra_OE, Sifra_Nar, Broj_Nar)
         VALUES(@Sifra_OE, @Sifra_Nar, @Broj_Nar)
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo2_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo2_Vnes_Izmena

Go

CREATE  TRIGGER tr_Drugo2_Vnes_Izmena
ON dbo.Drugo2
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_2    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_2 = Sifra_2
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo2 Where Sifra_2 = @Sifra_2)
    If @Propagiraj='D'
    Begin
        Update Drugo2 Set Propagiraj=Null  Where Sifra_2 = @Sifra_2
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_2 From ' + @VtoraBaza + '..Drugo2
                        Where Sifra_2 = ' + cast(@Sifra_2 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo2
                    Set Ime_2=D.Ime_2
                    From Drugo2 D
                    Where D.Sifra_2 = ' + cast(@Sifra_2 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo2.Sifra_2 = ' + cast(@Sifra_2 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo2 Select * From Drugo2 Where Sifra_2= ' + cast(@Sifra_2 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KatArt_Vnes' AND type = 'TR') DROP TRIGGER tr_KatArt_Vnes

Go
CREATE  TRIGGER tr_KatArt_Vnes
ON dbo.KatArt
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Art    varchar(20),
    @Lokacija    varchar(10),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @DaliArtCeni    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Art = Sifra_Art, @Lokacija = Lokacija
    FROM INSERTED
    --If Not Exists (Select Sifra_Art From KatLokProm Where Sifra_Art = @Sifra_Art) And @Lokacija IS NOT NULL
    --    INSERT INTO KatLokProm (Sifra_Art, Nova_Lok, Datum_Prom, Sifra_Oper)
    --    VALUES (@Sifra_Art, @Lokacija, GETDATE(), SUSER_SNAME())   -- gk; dm 23.08.2010
    ------------------------------------------------ Istorija za promena Artiklite ------------------------------------------------------------------------
    Insert Into KatartH (Sifra_Art, ImeArt, ImeArt2, EdMera, Alt_Ime, Alt_Ime2, Alt_EdMera, Sifra_Podg, Sifra_Tar,
            Kto, Cena, Sostojba, CarBroj, SMatUsl, Sifra_Drg, KolkuDrg, Drugo1, Drugo2, Drugo3, Drugo4, Drugo5,
            DaliSurov, Uces, Datum_Cena, Fakturna, Nabavna, DogCena, MalCena, GotCena, SpeCena, PCena4, PCena5,
            PCena6, Proc_Marza, Nom, SMin_Sost, SMax_Sost, SOpt_Sost, Lokacija, Popust, ImaBroevi, ImaKomerc,
            Tezina, PopusMar, IzmenetNa, IzmenetOd, Alt_Sifra, Iskluci, SpecRabat, SpecRabatOd, SpecRabatDo, BTezina,
            Volumen, Rabat_Dali, SodrziEd, Propagiraj, ProcAlk, RokKontrDali, Aktiven, Sifra_Amb, Prenesen, Rok_Tra,
            ImaPaleta, RokTraDen, PDA_Ime, Sifra_Div, Sif_Depoz_Amb, Sifra_KHier, Kto_Anal, DeklArt, Koef, Drugo6, Drugo7,
            ProcKalo, VoPDA, MKProiz, AkcijaDali, Sifra_ATC,
            AvtNar, Sifra_TipArtZal, Sifra_LayOutUnit, PrivLabel, KategArt, IzvorNab, SeVodiNaZaliha, BlokadaPopust,
            Sifra_Pat_Man, Sifra_Pat_Ref, TipEtiketa, Sirina, Visina, Dolzina, PodTipUsl, MultiFaktorNar, Sifra_Art_Sablon,
            Datum_Art_Poc, Datum_Art_Kr, StatusArt, Sezonski, Datum_Art_MozeNar_Poc, Datum_Art_MozeNar_Kr,
            Datum_Art_MozePriem_Poc, Datum_Art_MozePriem_Kr, Broj_PresmGrupa)
    Select Sifra_Art, ImeArt, ImeArt2, EdMera, Alt_Ime, Alt_Ime2, Alt_EdMera, Sifra_Podg, Sifra_Tar,
            Kto, Cena, Sostojba, CarBroj, SMatUsl, Sifra_Drg, KolkuDrg, Drugo1, Drugo2, Drugo3, Drugo4, Drugo5,
            DaliSurov, Uces, Datum_Cena, Fakturna, Nabavna, DogCena, MalCena, GotCena, SpeCena, PCena4, PCena5,
            PCena6, Proc_Marza, Nom, SMin_Sost, SMax_Sost, SOpt_Sost, Lokacija, Popust, ImaBroevi, ImaKomerc,
            Tezina, PopusMar, GetDate(), SUser_SName(), Alt_Sifra, Iskluci, SpecRabat, SpecRabatOd, SpecRabatDo, BTezina,
            Volumen, Rabat_Dali, SodrziEd, Propagiraj, ProcAlk, RokKontrDali, Aktiven, Sifra_Amb, Prenesen, Rok_Tra,
            ImaPaleta, RokTraDen, PDA_Ime, Sifra_Div, Sif_Depoz_Amb, Sifra_KHier, Kto_Anal, DeklArt, Koef, Drugo6, Drugo7,
            ProcKalo, VoPDA, MKProiz, AkcijaDali, Sifra_ATC,
            AvtNar, Sifra_TipArtZal, Sifra_LayOutUnit, PrivLabel, KategArt, IzvorNab, SeVodiNaZaliha, BlokadaPopust,
            Sifra_Pat_Man, Sifra_Pat_Ref, TipEtiketa, Sirina, Visina, Dolzina, PodTipUsl, MultiFaktorNar, Sifra_Art_Sablon,
            Datum_Art_Poc, Datum_Art_Kr, StatusArt, Sezonski, Datum_Art_MozeNar_Poc, Datum_Art_MozeNar_Kr,
            Datum_Art_MozePriem_Poc, Datum_Art_MozePriem_Kr, Broj_PresmGrupa
    From Inserted
-------------------------------------  Dodadeno 20.09.2004  za Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Katart Where Sifra_Art = @Sifra_Art)
    If @Propagiraj='D'
    Begin
        Update Katart Set Propagiraj=Null  Where Sifra_Art = @Sifra_Art
        Select Rbr, ImeBaza, DaliArt, DaliArtCeni
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt, @DaliArtCeni=DaliArtCeni From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
                    Begin
                Set @SSQL =  ' Select  Sifra_Art From ' + @VtoraBaza + '..Katart
                    Where Sifra_Art = ''' + @Sifra_Art + ''' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Katart
                    Set ImeArt=K.ImeArt, ImeArt2=K.ImeArt2, EdMera=K.EdMera, Alt_Ime=K.Alt_Ime, Alt_Ime2=K.Alt_Ime2,
                    Alt_EdMera=K.Alt_EdMera, Sifra_Podg=K.Sifra_Podg, Sifra_Tar=K.Sifra_Tar, Kto=K.Kto, Cena=K.Cena,
                    Sostojba=K.Sostojba, CarBroj=K.CarBroj, SMatUsl=K.SMatUsl, Sifra_Drg=K.Sifra_Drg, KolkuDrg=K.KolkuDrg,
                    Drugo1=K.Drugo1, Drugo2=K.Drugo2, Drugo3=K.Drugo3, Drugo4=K.Drugo4, Drugo5=K.Drugo5,
                    DaliSurov=K.DaliSurov, Uces=K.Uces, Datum_Cena=K.Datum_Cena, Fakturna=K.Fakturna, Nabavna=K.Nabavna,
                    PCena4=K.PCena4, PCena5=K.PCena5, PCena6=K.PCena6, Proc_Marza=K.Proc_Marza, Nom=K.Nom,
                    SMin_Sost=K.SMin_Sost, SMax_Sost=K.SMax_Sost, SOpt_Sost=K.SOpt_Sost, Lokacija=K.Lokacija,
                    Popust=K.Popust, ImaBroevi=K.ImaBroevi, ImaKomerc=K.ImaKomerc, Tezina=K.Tezina, PopusMar=K.PopusMar,
                    DodadenNa=K.DodadenNa, DodadenOd=K.DodadenOd, IzmenetNa=K.IzmenetNa, IzmenetOd=K.IzmenetOd,
                    Alt_Sifra=K.Alt_Sifra, Iskluci=K.Iskluci, SpecRabat=K.SpecRabat, SpecRabatOd=K.SpecRabatOd,
                    SpecRabatDo=K.SpecRabatDo, BTezina=K.BTezina, Volumen=K.Volumen, Rabat_Dali=K.Rabat_Dali,
                    SodrziEd=K.SodrziEd, ProcAlk=K.ProcAlk, RokKontrDali=K.RokKontrDali, Aktiven=K.Aktiven, Sifra_Amb=K.Sifra_Amb,
                    MKProiz=K.MkProiz, Prenesen=K.Prenesen, AkcijaDali=K.AkcijaDali, Sifra_ATC=K.Sifra_ATC,
                    AvtNar=K.AvtNar, Sifra_TipArtZal=K.Sifra_TipArtZal, Sifra_LayOutUnit=K.Sifra_LayOutUnit, PrivLabel=K.PrivLabel,
                    KategArt=K.KategArt, IzvorNab=K.IzvorNab, SeVodiNaZaliha=k.SeVodiNaZaliha, BlokadaPopust=K.BlokadaPopust,
                    Sifra_Pat_Man=K.Sifra_Pat_Man, Sifra_Pat_Ref=K.Sifra_Pat_Ref, TipEtiketa=K.TipEtiketa, Sirina=K.Sirina, Visina=K.Visina,
                    Dolzina=K.Dolzina, PodTipUsl=K.PodTipUsl, MultiFaktorNar=K.MultiFaktorNar, Sifra_Art_Sablon=K.Sifra_Art_Sablon,
                    Datum_Art_Poc=K.Datum_Art_Poc, Datum_Art_Kr=K.Datum_Art_Kr, StatusArt=K.StatusArt, Sezonski=K.Sezonski,
                    Datum_Art_MozeNar_Poc=K.Datum_Art_MozeNar_Poc, Datum_Art_MozeNar_Kr=K.Datum_Art_MozeNar_Kr,
                    Datum_Art_MozePriem_Poc=K.Datum_Art_MozePriem_Poc, Datum_Art_MozePriem_Kr=K.Datum_Art_MozePriem_Kr,
                    Broj_PresmGrupa=K.Broj_PresmGrupa '
                    If @DaliArtCeni = 'D'
                    Begin
                        Set @SSQL = @SSQL + ', DogCena=K.DogCena, MalCena=K.MalCena, GotCena=K.GotCena,
                                    SpeCena=K.SpeCena '
                    End
                    Set @SSQL = @SSQL + ' From Katart K
                    Where K.Sifra_Art = ''' + @Sifra_Art + '''
                    and ' + @VtoraBaza + '..Katart.Sifra_Art = ''' + @Sifra_Art + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Katart Select * From Katart Where Sifra_Art= ''' + @Sifra_Art + ''' '
                     Exec(@SSQL)
                     End  -- Else
                  End --If @DaliKup = 'D'
            Set @Redovi = @Redovi - 1
                  end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo3_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo3_Vnes_Izmena

Go

CREATE  TRIGGER tr_Drugo3_Vnes_Izmena
ON dbo.Drugo3
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_3    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_3 = Sifra_3
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo3 Where Sifra_3 = @Sifra_3)
    If @Propagiraj='D'
    Begin
        Update Drugo3 Set Propagiraj=Null  Where Sifra_3 = @Sifra_3
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_3 From ' + @VtoraBaza + '..Drugo3
                        Where Sifra_3 = ' + cast(@Sifra_3 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo3
                    Set Ime_3=D.Ime_3
                    From Drugo3 D
                    Where D.Sifra_3 = ' + cast(@Sifra_3 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo3.Sifra_3 = ' + cast(@Sifra_3 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo3 Select * From Drugo3 Where Sifra_3= ' + cast(@Sifra_3 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo4_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo4_Vnes_Izmena

Go

CREATE  TRIGGER tr_Drugo4_Vnes_Izmena
ON dbo.Drugo4
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_4    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_4 = Sifra_4
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo4 Where Sifra_4 = @Sifra_4)
    If @Propagiraj='D'
    Begin
        Update Drugo4 Set Propagiraj=Null  Where Sifra_4 = @Sifra_4
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_4 From ' + @VtoraBaza + '..Drugo4
                        Where Sifra_4 = ' + cast(@Sifra_4 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo4
                    Set Ime_4=D.Ime_4
                    From Drugo4 D
                    Where D.Sifra_4 = ' + cast(@Sifra_4 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo4.Sifra_4 = ' + cast(@Sifra_4 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo4 Select * From Drugo4 Where Sifra_4= ' + cast(@Sifra_4 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo7_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo7_Vnes_Izmena

Go
CREATE  TRIGGER tr_Drugo7_Vnes_Izmena
ON dbo.Drugo7
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_7    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_7 = Sifra_7
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo7 Where Sifra_7 = @Sifra_7)
    If @Propagiraj='D'
    Begin
        Update Drugo7 Set Propagiraj=Null  Where Sifra_7 = @Sifra_7
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_7 From ' + @VtoraBaza + '..Drugo7
                        Where Sifra_7 = ' + cast(@Sifra_7 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo7
                    Set Ime_7=D.Ime_7
                    From Drugo7 D
                    Where D.Sifra_7 = ' + cast(@Sifra_7 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo7.Sifra_7 = ' + cast(@Sifra_7 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo7 Select * From Drugo7 Where Sifra_7= ' + cast(@Sifra_7 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo5_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo5_Vnes_Izmena

Go

CREATE  TRIGGER tr_Drugo5_Vnes_Izmena
ON dbo.Drugo5
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_5    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_5 = Sifra_5
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo5 Where Sifra_5 = @Sifra_5)
    If @Propagiraj='D'
    Begin
        Update Drugo5 Set Propagiraj=Null  Where Sifra_5 = @Sifra_5
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_5 From ' + @VtoraBaza + '..Drugo5
                        Where Sifra_5 = ' + cast(@Sifra_5 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo5
                    Set Ime_5=D.Ime_5
                    From Drugo5 D
                    Where D.Sifra_5 = ' + cast(@Sifra_5 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo5.Sifra_5 = ' + cast(@Sifra_5 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo5 Select * From Drugo5 Where Sifra_5= ' + cast(@Sifra_5 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_DrgPodel_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_DrgPodel_Vnes_Izmena

Go
CREATE  TRIGGER tr_DrgPodel_Vnes_Izmena
ON dbo.DrgPodel
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Drg    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Drg = Sifra_Drg
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From DrgPodel Where Sifra_Drg = @Sifra_Drg)
    If @Propagiraj='D'
    Begin
        Update DrgPodel Set Propagiraj=Null  Where Sifra_Drg = @Sifra_Drg
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Drg From ' + @VtoraBaza + '..DrgPodel
                        Where Sifra_Drg = ' + cast(@Sifra_Drg as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..DrgPodel
                    Set Ime=D.Ime, Sifra_Drg1=D.Sifra_Drg1, DodadenNa=D.DodadenNa, DodadenOd=D.DodadenOd,
                        IzmenetNa=D.IzmenetNa, IzmenetOd=D.IzmenetOd, MinSuma=D.MinSuma, Uces=D.Uces
                    From DrgPodel D
                    Where D.Sifra_Drg = ' + cast(@Sifra_Drg as varchar(5)) + '
                    and ' + @VtoraBaza + '..DrgPodel.Sifra_Drg = ' + cast(@Sifra_Drg as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..DrgPodel Select * From DrgPodel Where Sifra_Drg= ' + cast(@Sifra_Drg as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_StaProdMest_Insert' AND type = 'TR') DROP TRIGGER tg_StaProdMest_Insert

Go





CREATE      TRIGGER tg_StaProdMest_Insert
 ON [dbo].[StaProdMest]
FOR  INSERT
AS
BEGIN
    Declare @Sifra_Mest Int,
        @Sifra_Kup Char(6),
        @Sifra_Obj Smallint,
        @VlIzlPros Char(1)
    Select @Sifra_Mest=Sifra_Mest, @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj, @VlIzlPros=VlIzlPros From Inserted
    If Exists (Select * From ProdMest Where Sifra_Mest=@Sifra_Mest)
    Begin
        If @VlIzlPros = 'I'
            Update ProdMest Set Sifra_Kup=@Sifra_Kup, Sifra_Obj=@Sifra_Obj  Where Sifra_Mest=@Sifra_Mest
        If @VlIzlPros = 'V' or @VlIzlPros = 'N'
            Update ProdMest Set Sifra_Kup=Null, Sifra_Obj=Null  Where Sifra_Mest=@Sifra_Mest
        If @VlIzlPros = 'O'
            Update ProdMest Set DaliAktiven='N'  Where Sifra_Mest=@Sifra_Mest
        If @VlIzlPros = 'A'
            Update ProdMest Set DaliAktiven='D'  Where Sifra_Mest=@Sifra_Mest
        If @VlIzlPros = 'P'
            Update ProdMest Set DaliSporen='D'  Where Sifra_Mest=@Sifra_Mest
        If @VlIzlPros = 'E'
            Update ProdMest Set DaliSporen='N'  Where Sifra_Mest=@Sifra_Mest
    End
    Else
        Begin
        Insert Into ProdMest(Sifra_Mest, Sifra_Kup, Sifra_Obj)
        Values (@Sifra_Mest, @Sifra_Kup, @Sifra_Obj)
    End
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_DrgPodel1_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_DrgPodel1_Vnes_Izmena

Go
CREATE  TRIGGER tr_DrgPodel1_Vnes_Izmena
ON dbo.DrgPodel1
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Drg1    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Drg1 = Sifra_Drg1
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From DrgPodel1 Where Sifra_Drg1 = @Sifra_Drg1)
    If @Propagiraj='D'
    Begin
        Update DrgPodel1 Set Propagiraj=Null  Where Sifra_Drg1 = @Sifra_Drg1
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Drg1 From ' + @VtoraBaza + '..DrgPodel1
                        Where Sifra_Drg1 = ' + cast(@Sifra_Drg1 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..DrgPodel1
                    Set Ime_Drg1=D.Ime_Drg1
                    From DrgPodel1 D
                    Where D.Sifra_Drg1 = ' + cast(@Sifra_Drg1 as varchar(5)) + '
                    and ' + @VtoraBaza + '..DrgPodel1.Sifra_Drg1 = ' + cast(@Sifra_Drg1 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..DrgPodel1 Select * From DrgPodel1 Where Sifra_Drg1= ' + cast(@Sifra_Drg1 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_NarReal_Vnes' AND type = 'TR') DROP TRIGGER tr_NarReal_Vnes

Go
CREATE TRIGGER tr_NarReal_Vnes
ON [dbo].[NarReal]
FOR INSERT
AS
BEGIN
Declare @NarID        int,
    @Sifra_Art    varchar(20),
    @Kolicina    decimal(18,6),
    @KolicVoStNar    decimal(18,6),
    @RealizKolic    decimal(18,6),
    @Realiziran    char(1)
    SELECT @NarID = NarID, @Sifra_Art = Sifra_Art,  @Kolicina = Kolicina
    FROM INSERTED
    SELECT @KolicVoStNar = Kolic, @RealizKolic = Realiz_Kolic, @Realiziran=Realiziran
    FROM StaNarac
    WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    IF @@ROWCOUNT = 0
    BEGIN
        SET @RealizKolic = @RealizKolic + @Kolicina
        IF @RealizKolic = @KolicVoStNar
            SET @Realiziran = 'D'
        UPDATE StaNarac SET Realiz_Kolic = @RealizKolic, Realiziran = @Realiziran
        WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    END
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnFinDok_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_AnFinDok_IzmeniBrisi

Go
CREATE TRIGGER tr_AnFinDok_IzmeniBrisi ON dbo.AnFinDok
                        FOR DELETE, UPDATE
                        AS
                        BEGIN
                            If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
                            Begin
                                RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
                                Rollback Tran
                            End
                        END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AkciiProd_Insert' AND type = 'TR') DROP TRIGGER tr_AkciiProd_Insert

Go
CREATE TRIGGER tr_AkciiProd_Insert
ON AkciiProd
FOR INSERT
AS
Begin
    Declare @Sifra_Art_Paket Varchar(20), @Kolic decimal(18,0), @Kolic_Ispor decimal(18,0)
    Declare InsStavki Cursor Fast_Forward For
    Select Sifra_Art_Paket, Kolic
    From Inserted
    Open InsStavki
    Fetch Next From InsStavki Into @Sifra_Art_Paket, @Kolic
    While @@Fetch_Status = 0
    Begin
        Set @Kolic_Ispor = 0
        Select @Kolic_Ispor = Kolic_Ispor From AkciiKolic Where Sifra_Art_Paket = @Sifra_Art_Paket
        If @Kolic_Ispor Is Null
            Set @Kolic_Ispor = 0
        If @Kolic Is Null
            Set @Kolic = 0
        Set @Kolic_Ispor = @Kolic_Ispor + @Kolic
        Update AkciiKolic Set Kolic_Ispor = @Kolic_Ispor Where  Sifra_Art_Paket = @Sifra_Art_Paket
        Fetch Next From InsStavki Into @Sifra_Art_Paket, @Kolic
    End
    Close InsStavki
    Deallocate InsStavki
End

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AkciiProd_Delete' AND type = 'TR') DROP TRIGGER tr_AkciiProd_Delete

Go
CREATE TRIGGER tr_AkciiProd_Delete
ON AkciiProd
FOR DELETE
AS
Begin
    Declare @Sifra_Art_Paket Varchar(20), @Kolic decimal(18,0), @Kolic_Ispor decimal(18,0)
    Declare DelStavki Cursor Fast_Forward For
    Select Sifra_Art_Paket, Kolic
    From Deleted
    Open DelStavki
    Fetch Next From DelStavki Into @Sifra_Art_Paket, @Kolic
    While @@Fetch_Status = 0
    Begin
        Set @Kolic_Ispor = 0
        Select @Kolic_Ispor = Kolic_Ispor From AkciiKolic Where Sifra_Art_Paket = @Sifra_Art_Paket
        If @Kolic_Ispor Is Null
            Set @Kolic_Ispor = 0
        If @Kolic Is Null
            Set @Kolic = 0
        Set @Kolic_Ispor = @Kolic_Ispor - @Kolic
        Update AkciiKolic Set Kolic_Ispor = @Kolic_Ispor Where  Sifra_Art_Paket = @Sifra_Art_Paket
        Fetch Next From DelStavki Into @Sifra_Art_Paket, @Kolic
    End
    Close DelStavki
    Deallocate DelStavki
End

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo6_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo6_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo6_Vnes_Izmena
ON dbo.KDrugo6
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_6k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_6k = Sifra_6k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo6 Where Sifra_6k = @Sifra_6k)
    If @Propagiraj='D'
    Begin
        Update KDrugo6 Set Propagiraj=Null  Where Sifra_6k = @Sifra_6k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_6k From ' + @VtoraBaza + '..KDrugo6
                        Where Sifra_6k = ' + cast(@Sifra_6k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo6
                    Set Ime_6k=D.Ime_6k
                    From KDrugo6 D
                    Where D.Sifra_6k = ' + cast(@Sifra_6k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo6.Sifra_6k = ' + cast(@Sifra_6k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo6 Select * From KDrugo6 Where Sifra_6k= ' + cast(@Sifra_6k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Grad_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Grad_Vnes_Izmena

Go
CREATE  TRIGGER tr_Grad_Vnes_Izmena
ON dbo.Grad
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Grad    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Grad = Sifra_Grad
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Grad Where Sifra_Grad = @Sifra_Grad)
    If @Propagiraj='D'
    Begin
        Update Grad Set Propagiraj=Null  Where Sifra_Grad = @Sifra_Grad
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup<>'N' Or @DaliPodelKup Is Null)
            Begin
                Set @SSQL =  ' Select  Sifra_Grad From ' + @VtoraBaza + '..Grad
                        Where Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Grad
                    Set ImeGrad=D.ImeGrad
                    From Grad D
                    Where D.Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + '
                    and ' + @VtoraBaza + '..Grad.Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Grad Select * From Grad Where Sifra_Grad= ' + cast(@Sifra_Grad as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo7_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo7_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo7_Vnes_Izmena
ON dbo.KDrugo7
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_7k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_7k = Sifra_7k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo7 Where Sifra_7k = @Sifra_7k)
    If @Propagiraj='D'
    Begin
        Update KDrugo7 Set Propagiraj=Null  Where Sifra_7k = @Sifra_7k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_7k From ' + @VtoraBaza + '..KDrugo7
                        Where Sifra_7k = ' + cast(@Sifra_7k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo7
                    Set Ime_7k=D.Ime_7k
                    From KDrugo7 D
                    Where D.Sifra_7k = ' + cast(@Sifra_7k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo7.Sifra_7k = ' + cast(@Sifra_7k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo7 Select * From KDrugo7 Where Sifra_7k= ' + cast(@Sifra_7k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_NarReal_Brisi' AND type = 'TR') DROP TRIGGER tr_NarReal_Brisi

Go
CREATE TRIGGER tr_NarReal_Brisi
ON [dbo].[NarReal]
FOR DELETE
AS
BEGIN
Declare @NarID        int,
    @Sifra_Art    varchar(20),
    @Kolicina    decimal(18,6),
    @KolicVoStNar    decimal(18,6),
    @RealizKolic    decimal(18,6),
    @Realiziran    char(1)
    SELECT @NarID = NarID, @Sifra_Art = Sifra_Art,  @Kolicina = Kolicina
    FROM INSERTED
    SELECT @KolicVoStNar = Kolic, @RealizKolic = Realiz_Kolic, @Realiziran=Realiziran
    FROM StaNarac
    WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    IF @@ROWCOUNT = 0
    BEGIN
        SET @RealizKolic = @RealizKolic - @Kolicina
        IF @RealizKolic = @KolicVoStNar
            SET @Realiziran = 'D'
        UPDATE StaNarac SET Realiz_Kolic = @RealizKolic, Realiziran = @Realiziran
        WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    END
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_GRegion_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_GRegion_Vnes_Izmena

Go
CREATE  TRIGGER tr_GRegion_Vnes_Izmena
ON dbo.GRegion
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Reg    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Reg = Sifra_Reg
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From GRegion Where Sifra_Reg = @Sifra_Reg)
    If @Propagiraj='D'
    Begin
        Update GRegion Set Propagiraj=Null  Where Sifra_Reg = @Sifra_Reg
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup<>'N' Or @DaliPodelKup Is Null)
            Begin
                Set @SSQL =  ' Select  Sifra_Reg From ' + @VtoraBaza + '..GRegion
                        Where Sifra_Reg = ' + cast(@Sifra_Reg as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..GRegion
                    Set ImeRegion=D.ImeRegion
                    From GRegion D
                    Where D.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(5)) + '
                    and ' + @VtoraBaza + '..GRegion.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..GRegion Select * From GRegion Where Sifra_Reg= ' + cast(@Sifra_Reg as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KSPromet_Vnes' AND type = 'TR') DROP TRIGGER tr_KSPromet_Vnes

Go
CREATE TRIGGER tr_KSPromet_Vnes ON [dbo].[KSPromet]
FOR INSERT
AS
BEGIN
    Declare @Sifra_OE smallint, @Sifra_Art varchar(20), @Kolic decimal(18,6), @Sost decimal(18,6)
    Declare InsStavki Cursor Fast_Forward For
    Select Sifra_OE, Sifra_Art, Kolic     From Inserted
    Open InsStavki
    Fetch Next From InsStavki  Into @Sifra_OE, @Sifra_Art, @Kolic
    While @@Fetch_Status = 0
    Begin
        SELECT @Sost = Sostojba FROM KatKasa WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art
        IF @@RowCount >0
            UPDATE KatKasa SET Sostojba = @Sost - @Kolic WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art
        Fetch Next From InsStavki Into @Sifra_OE, @Sifra_Art, @Kolic
    End --While
    Close InsStavki
    Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StaNaracRealReal_Insert' AND type = 'TR') DROP TRIGGER tr_StaNaracRealReal_Insert

Go
CREATE  TRIGGER tr_StaNaracRealReal_Insert
ON dbo.StaNaracReal
FOR INSERT
AS
BEGIN
DECLARE
    @NarId             int,
    @Sifra_Art         varchar(20),
    @Kolic             decimal(18, 6),
    @Kolic_BO         decimal(18, 6),
    @Sifra_Nar         smallint,
    @Sifra_OE        Smallint,
    @VlIzl            Char(1),
    @Sifra_GrNar    smallint,
    @POsn            Decimal(6,2),
    @soaVlez        decimal(18,6),
    @soaIzlez        decimal(18,6),
    @soaVlez_BO        decimal(18,6),
    @soaIzlez_BO    decimal(18,6),
    @Prvo            int,
    @DokrID        int
set @Prvo = 1
Declare InsStavki Cursor Fast_Forward For
Select NarId, Sifra_Art, Kolic, Kolic_BO, Sifra_Nar, DokrID
From Inserted
Open InsStavki
Fetch Next From InsStavki
INTO @NarId, @Sifra_Art, @Kolic, @Kolic_BO, @Sifra_Nar,@DokrID
While @@Fetch_Status = 0
Begin
   if @Prvo = 1
   Begin
       set @Prvo = 0    -- Za da ne prebaruvame vo baza edno te isto 100 pati
       Select @VlIzl = VlIzl, @Sifra_GrNar = Sifra_GrNar
       FROM TipNarac WHERE Sifra_Nar = @Sifra_Nar
       Select @Sifra_Oe=Sifra_Oe From Naracki Where NarID=@NarID
       Select @Posn=T.ProcOsn From Katart K Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
   end
   If @Sifra_GrNar IS NOT NULL AND @DokrID IS NOT NULL
   Begin
    if @Kolic_BO is null
       set @Kolic_BO = 0
    -- Barame zapis vo SoNar
    Select @soaVlez=Vlez, @soaIzlez=Izlez, @SoaVlez_BO=Vlez_BO, @SoaIzlez_BO=Izlez_BO
    From SoNar Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
    -- Ako ne postoi dodavame nov
    IF @@ROWCOUNT = 0                -- Ne postoi zapis vo SoNar
        Begin                        -- pa vednas dodavame soodveten
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
                if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaVlez = 0
                    Set @soaIzlez = @Kolic
                    Set @soaVlez_BO = 0
                    Set @soaIzlez_BO = @Kolic_BO
                End
            Else
                Begin
                    Set @soaVlez = @Kolic
                    Set @soaIzlez = 0
                    Set @soaVlez_BO = @Kolic_BO
                    Set @soaIzlez_BO = 0
                End
            Insert SoNar (Sifra_OE, Sifra_Art, Sifra_GrNar, Vlez, Izlez, Cena, DanCena, POsn, Vlez_BO, Izlez_BO)
            Values(@Sifra_OE, @Sifra_Art, @Sifra_GrNar, @soaVlez, @soaIzlez, 0, 'D', @Posn, @soaVlez_BO, @soaIzlez_BO)
        End
    ELSE
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
            if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaIzlez = @soaIzlez + @Kolic
                    set @soaIzlez_BO = @soaIzlez_BO + @Kolic_BO
                    Update SoNar
                    Set Vlez=@soaVlez, Izlez=@soaIzlez, Vlez_BO=@SoaVlez_BO, Izlez_BO=@soaIzlez_BO
                    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
                End
            Else
                Begin
                    Set @soaVlez = @soaVlez + @Kolic
                    Set @soaVlez_BO = @soaVlez_BO + @Kolic_BO
                    Update SoNar
                    Set Vlez=@soaVlez, Izlez=@soaIzlez, Vlez_BO=@soaVlez_BO, Izlez_BO=@soaIzlez_BO
                    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
                End
        END
   End
   Fetch Next From InsStavki
   INTO @NarId, @Sifra_Art, @Kolic, @Kolic_BO, @Sifra_Nar, @DokrID
End --While
Close InsStavki
Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StaNaracReal_Delete' AND type = 'TR') DROP TRIGGER tr_StaNaracReal_Delete

Go
CREATE                      TRIGGER tr_StaNaracReal_Delete
ON dbo.StaNaracReal
FOR DELETE
AS
BEGIN
DECLARE
    @NarId         int,
    @Sifra_Art     varchar(20),
    @Kolic         decimal(18, 6),
    @Kolic_BO     decimal(18, 6),
    @Sifra_Nar     smallint,
    @Sifra_OE        Smallint,
    @VlIzl            Char(1),
    @Sifra_GrNar    smallint,
    @POsn            Decimal(6,2),
    @soaVlez        decimal(18,6),
    @soaIzlez        decimal(18,6),
    @soaVlez_BO        decimal(18,6),
    @soaIzlez_BO    decimal(18,6),
    @Prvo            int,
    @DokrID        int
set @Prvo = 1
Declare DelStavki Cursor Fast_Forward For
Select NarId, Sifra_Art, Kolic, Kolic_BO, Sifra_Nar, DokrID
From Deleted
Open DelStavki
Fetch Next From DelStavki
Into @NarId, @Sifra_Art, @Kolic, @Kolic_BO, @Sifra_Nar, @DokrID
While @@Fetch_Status = 0
Begin
   if @Prvo = 1
   begin
    set @Prvo = 0
    Select @VlIzl = VlIzl, @Sifra_GrNar = Sifra_GrNar
    FROM TipNarac WHERE Sifra_Nar = @Sifra_Nar
    Select @Sifra_Oe=Sifra_Oe From Naracki Where NarID=@NarID
    Select @Posn=T.ProcOsn From Katart K Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
   end
   If @Sifra_GrNar IS NOT NULL AND @DokrID IS NOT NULL
   Begin
        if @Kolic_BO is null
        set @Kolic_BO = 0
    -- Barame zapis vo SoNar
    Select @soaVlez=Vlez, @soaIzlez=Izlez, @SoaVlez_BO=Vlez_BO, @SoaIzlez_BO=Izlez_BO FROM SoNar
    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
    -- Ako ne postoi dodavame nov
    IF @@ROWCOUNT = 0
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
            if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaVlez = 0
                    Set @soaIzlez = - @Kolic
                    Set @soaVlez_BO = 0
                    Set @soaIzlez_BO = - @Kolic_BO
                End
            Else
                Begin
                    Set @soaVlez = - @Kolic
                    Set @soaIzlez = 0
                    Set @soaVlez_BO = - @Kolic_BO
                    Set @soaIzlez_BO = 0
                End
            Insert SoNar (Sifra_OE, Sifra_Art, Sifra_GrNar, Vlez, Izlez, Cena, DanCena, POsn, Vlez_BO, Izlez_BO)
            Values(@Sifra_OE,@Sifra_Art,@Sifra_GrNar,@soaVlez,@soaIzlez,0,'D',@Posn, @soaVlez_BO, @soaIzlez_BO)
        End
    ELSE
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
            if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                        begin
                Set @soaIzlez = @soaIzlez - @Kolic
                set @soaIzlez_BO = @soaIzlez_BO - @Kolic_BO
            end
            Else
            begin
                Set @soaVlez = @soaVlez - @Kolic
                Set @soaVlez_BO = @soaVlez_BO - @Kolic_BO
            end
            Update SoNar
            Set Vlez=@soaVlez, Izlez=@soaIzlez, Vlez_BO=@soaVlez_BO, Izlez_BO=@soaIzlez_BO
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
        END
   End
   Fetch Next From DelStavki
   Into @NarId, @Sifra_Art, @Kolic, @Kolic_BO, @Sifra_Nar, @DokrID
End --While
Close DelStavki
Deallocate DelStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_Anal_Insert_Update' AND type = 'TR') DROP TRIGGER tg_Anal_Insert_Update

Go
CREATE   TRIGGER tg_Anal_Insert_Update
ON dbo.Anal
FOR INSERT, UPDATE
AS
BEGIN
    Declare @Kto_Anal Char(10)
    Declare @ImeAnal Varchar(40)
    Declare @VtoraBaza as Varchar(20)
    Declare @DaliAnal as char(1)
    Declare @SSQL as varchar(8000)
    Declare @Redovi as Smallint
    Declare @Propagiraj as char(1)
    Declare @Klas    char(3)
    Declare @Sint    char(3)
    Select @Kto_Anal = Kto_Anal, @ImeAnal = ImeAnal From Inserted
-------------------------------------  Dodadeno 11.06.2007  za Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Anal Where Kto_Anal = @Kto_Anal)
    If @Propagiraj='D'
    Begin
        Update Anal Set Propagiraj=Null  Where Kto_Anal = @Kto_Anal
        Select Rbr, ImeBaza, DaliAnal
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliAnal=DaliAnal From FirParal Where Rbr=@Redovi
            If @DaliAnal = 'D'
                    Begin
                Set @SSQL =  ' Select Kto_Anal From ' + @VtoraBaza + '..Anal
                    Where Kto_Anal = ''' + @Kto_Anal + ''' '
                Exec(@SSQL)
                If @@RowCount <> 0--Exists Exec(@SSQL)
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Anal
                    Set ImeAnal=A.ImeAnal, ImeAnal2=A.ImeAnal2, SImeAnal=A.SImeAnal, SImeAnal2=A.SImeAnal2,
                    DaliOrg=A.DaliOrg, DaliKupuv=A.DaliKupuv, DaliDev=A.DaliDev, OtvPrenos=A.OtvPrenos, MozeTrans=A.MozeTrans,
                    Kto_Sint=Substring(A.Kto_Anal, 1,3), Prenos_PoOE = A.Prenos_PoOE, DanMaskGlk=A.DanMaskGlk
                    From Anal A
                    Where A.Kto_Anal = ''' + @Kto_Anal + '''
                    and ' + @VtoraBaza + '..Anal.Kto_Anal = ''' + @Kto_Anal + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @Klas = Null
                    Set @Sint = Null
                    Set @SSQL = ' SELECT Kto_Klas FROM ' + @VtoraBaza + '..Klas WHERE Kto_Klas = Substring( ''' + @Kto_Anal + ''',1,1) '
                    Exec (@SSQL)
                    If @@RowCount = 0
                    Begin
                        Set @SSQL = ' INSERT INTO ' + @VtoraBaza + '..Klas (Kto_Klas, ImeKlasa) VALUES (Substring(''' + @Kto_Anal + ''',1,1), ''Klasa'') '
                        Exec(@SSQL)
                    End
                    Set @SSQL = ' SELECT Kto_Sint FROM ' + @VtoraBaza + '..Sint WHERE Kto_Sint = Substring( ''' + @Kto_Anal + ''',1,3) '
                    Exec (@SSQL)
                    If @@RowCount = 0
                    Begin
                        Set @SSQL = ' INSERT INTO ' + @VtoraBaza + '..Sint (Kto_Sint, ImeSint) VALUES (Substring(''' + @Kto_Anal + ''',1,3), ''' + @ImeAnal + ''') '
                        Exec(@SSQL)
                    End
                     Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Anal
                        (Kto_Anal, ImeAnal, ImeAnal2, SImeAnal, SImeAnal2, DaliOrg, DaliKupuv, DaliDev,
                        OtvPrenos, MozeTrans, Kto_Sint, Prenos_PoOE,DanMaskGlk)
                        Select
                         Kto_Anal, ImeAnal, ImeAnal2, SImeAnal, SImeAnal2, DaliOrg, DaliKupuv, DaliDev,
                        OtvPrenos, MozeTrans, Kto_Sint, Prenos_PoOE,DanMaskGlk
                        From Anal Where Kto_Anal= ''' + @Kto_Anal + ''' '
                     Exec(@SSQL)
                   End  -- Else
                  End --If @DaliAnal = 'D'
            Set @Redovi = @Redovi - 1
                  end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Banki_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Banki_Vnes_Izmena

Go
CREATE   TRIGGER tr_Banki_Vnes_Izmena
ON dbo.Banki
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Ban    char(6),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Ban = Sifra_Ban
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Banki Where Sifra_Ban = @Sifra_Ban)
    If @Propagiraj='D'
    Begin
        Update Banki Set Propagiraj=Null  Where Sifra_Ban = @Sifra_Ban
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Ban From ' + @VtoraBaza + '..Banki
                        Where Sifra_Ban = ''' + @Sifra_Ban + ''' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Banki
                    Set ImeBanka=B.ImeBanka, ZiroSkaNBRM=B.ZiroSkaNBRM, Zabeleska=B.Zabeleska
                    From Banki B
                    Where B.Sifra_Ban = ''' + @Sifra_Ban + '''
                    and ' + @VtoraBaza + '..Banki.Sifra_Ban = ''' + @Sifra_Ban + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Banki Select * From Banki Where Sifra_Ban= ''' + @Sifra_Ban + ''' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_KBanki_Insert' AND type = 'TR') DROP TRIGGER tg_KBanki_Insert

Go

CREATE  TRIGGER tg_KBanki_Insert
ON dbo.KBanki
FOR INSERT, UPDATE
AS
BEGIN
    Declare @Sifra_Kup Char(6)
    Declare @RbrBan Smallint
    Declare @Propagiraj    char(1)
    Declare @Redovi     smallint
    Declare @VtoraBaza    varchar(20)
    Declare @DaliKup    char(1)
    Declare @SSQL      varchar(8000)
    Select @Sifra_Kup=Sifra_Kup, @RbrBan=RbrBan From Inserted
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KBanki Where Sifra_Kup = @Sifra_Kup and RbrBan = @RbrBan)
    If @Propagiraj='D'
    Begin
        Update KBanki Set Propagiraj=Null  Where Sifra_Kup = @Sifra_Kup and RbrBan = @RbrBan
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Kup, RbrBan From ' + @VtoraBaza + '..KBanki
                        Where Sifra_Kup = ''' + @Sifra_Kup + ''' and RbrBan = ' + cast(@RbrBan as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KBanki
                    Set ZiroSka=KB.ZiroSka, Sifra_Ban=KB.Sifra_Ban, ImeKor=KB.ImeKor
                    From KBanki KB
                    Where KB.Sifra_Kup = ''' + @Sifra_Kup + ''' and KB.RbrBan = ' + cast(@RbrBan as varchar(5)) + '
                    and ' + @VtoraBaza + '..KBanki.Sifra_Kup = ''' + @Sifra_Kup + '''
                    and ' + @VtoraBaza + '..KBanki.RbrBan = ' + cast(@RbrBan as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KBanki Select * From KBanki
                                        Where Sifra_Kup = ''' + @Sifra_Kup + '''
                                        and RbrBan= ' + cast(@RbrBan as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_MagStavr_Delete' AND type = 'TR') DROP TRIGGER tr_MagStavr_Delete

Go

CREATE     TRIGGER tr_MagStavr_Delete
ON dbo.MagStavr
FOR DELETE
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Art        varchar(20),
    @Sifra_KatPak        Int,
    @Sifra_KatStatus    int,
    @Lokacija        Char(10),
    @VlIzl            Char(1),
    @LotBr            varchar(20),
    @Kolic            Decimal(18,6),
    @Stara_Sostojba        decimal(18,6),
    @Nova_Sostojba        decimal(18,6),
    @RokRed            varchar(6),
    @WHMSys            char(1),
    @Sifra_Oe_WHM        smallint
    Declare DelStavki Cursor Fast_Forward For
       Select Sifra_OE, Sifra_Art, Sifra_KatPak, Sifra_KatStatus, Lokacija, VlIzl, LotBr, Kolic, RokRed, WHMSys, Sifra_Oe_WHM
    From Deleted
    Open DelStavki
    Fetch Next From DelStavki
    Into @Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @VlIzl, @LotBr, @Kolic, @RokRed, @WHMSys, @Sifra_Oe_WHM
    While @@Fetch_Status = 0
    Begin
        if @WHMSys = 'D'
        begin
           IF @Lokacija is not null and @LotBr is not null and @Sifra_KatStatus is not null
           Begin
            SELECT @Stara_Sostojba = Sostojba
            FROM WHMSost
            WHERE Sifra_OE = @Sifra_OE_WHM and Sifra_Art = @Sifra_Art and
                      Sifra_KatStatus = @Sifra_KatStatus and Lokac_ID = @Lokacija and LotBr = @LotBr
            IF @@ROWCOUNT = 0
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = - @Kolic
                else IF @VlIzl = 'I'
                    SET @Nova_Sostojba = - (- @Kolic)
                INSERT WHMSost (Sifra_OE, Sifra_Art, Sifra_KatStatus, Lokac_ID, LotBr, Sostojba, RokRed)
                VALUES (@Sifra_OE_WHM, @Sifra_Art,  @Sifra_KatStatus, @Lokacija, @LotBr, @Nova_Sostojba, @RokRed)
            End
            ELSE
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Stara_Sostojba - @Kolic
                IF @VlIzl = 'I'
                    SET @Nova_Sostojba = @Stara_Sostojba - (- @Kolic)
                UPDATE WHMSost SET Sostojba = @Nova_Sostojba
                WHERE Sifra_OE = @Sifra_OE_WHM and Sifra_Art = @Sifra_Art and
                          Sifra_KatStatus = @Sifra_KatStatus and Lokac_ID = @Lokacija and LotBr = @LotBr
            End
           End
        end
        else IF @Lokacija is not null and @LotBr is not null and @Sifra_KatPak is not null and @Sifra_KatStatus is not null
        Begin
            SELECT @Stara_Sostojba = Sostojba
            FROM SoMag
            WHERE Sifra_OE = @Sifra_OE and Sifra_Art = @Sifra_Art and Sifra_KatPak = @Sifra_KatPak and
                                      Sifra_KatStatus = @Sifra_KatStatus and Lokacija = @Lokacija and LotBr = @LotBr
            IF @@ROWCOUNT = 0
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = - @Kolic
                else IF @VlIzl = 'I'
                    SET @Nova_Sostojba = - (- @Kolic)
                INSERT SoMag (Sifra_OE, Sifra_Art, Sifra_KatPak, Sifra_KatStatus, Lokacija, LotBr, Sostojba, RokRed)
                VALUES (@Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @LotBr, @Nova_Sostojba, @RokRed)
            End
            ELSE
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Stara_Sostojba - @Kolic
                IF @VlIzl = 'I'
                    SET @Nova_Sostojba = @Stara_Sostojba - (- @Kolic)
                UPDATE SoMag SET Sostojba = @Nova_Sostojba
                WHERE Sifra_OE = @Sifra_OE and Sifra_Art = @Sifra_Art and Sifra_KatPak = @Sifra_KatPak and
                                          Sifra_KatStatus = @Sifra_KatStatus and Lokacija = @Lokacija and LotBr = @LotBr
            End
        End
        Fetch Next From DelStavki
        Into @Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @VlIzl, @LotBr, @Kolic, @RokRed, @WHMSys, @Sifra_Oe_WHM
    End --While
    Close DelStavki
    Deallocate DelStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_MagStavr_Insert' AND type = 'TR') DROP TRIGGER tr_MagStavr_Insert

Go

CREATE      TRIGGER tr_MagStavr_Insert
ON dbo.MagStavr
FOR INSERT
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Art        varchar(20),
    @Sifra_KatPak        Int,
    @Sifra_KatStatus    int,
    @Lokacija        Char(10),
    @VlIzl            Char(1),
    @LotBr            varchar(20),
    @Kolic            Decimal(18,6),
    @Stara_Sostojba        decimal(18,6),
    @Nova_Sostojba        decimal(18,6),
    @RokRed            varchar(6),
    @WHMSys            char(1),
    @Sifra_Oe_WHM        smallint
    Declare InsStavki Cursor Fast_Forward For
           Select Sifra_OE, Sifra_Art, Sifra_KatPak, Sifra_KatStatus, Lokacija, VlIzl, LotBr, Kolic, RokRed, WHMSys, Sifra_Oe_WHM
        From Inserted
    Open InsStavki
    Fetch Next From InsStavki
    Into @Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @VlIzl, @LotBr, @Kolic, @RokRed, @WHMSys, @Sifra_Oe_WHM
    While @@Fetch_Status = 0
    Begin
        if @WHMSys = 'D'
        begin
           IF @Lokacija is not null and @LotBr is not null and @Sifra_KatStatus is not null
           Begin
            SELECT @Stara_Sostojba = Sostojba
            FROM WHMSost
            WHERE Sifra_OE = @Sifra_OE_Whm and Sifra_Art = @Sifra_Art and
                                       Sifra_KatStatus = @Sifra_KatStatus and Lokac_ID = @Lokacija and LotBr = @LotBr
            IF @@ROWCOUNT = 0
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Kolic
                else IF @VlIzl = 'I'
                    SET @Nova_Sostojba = - @Kolic
                INSERT WHMSost (Sifra_OE, Sifra_Art, Sifra_KatStatus, Lokac_ID,
                        LotBr, Sostojba, RokRed, Vreme_Posl_Prom)
                VALUES (@Sifra_OE_WHM, @Sifra_Art, @Sifra_KatStatus, @Lokacija,
                    @LotBr, @Nova_Sostojba, @RokRed, GetDate())
            End
            ELSE
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Stara_Sostojba + @Kolic
                IF @VlIzl = 'I'
                    SET @Nova_Sostojba = @Stara_Sostojba - @Kolic
                UPDATE WHMSost
                SET Sostojba = @Nova_Sostojba, Vreme_Posl_Prom = GetDate ()
                WHERE Sifra_OE = @Sifra_OE_WHM and Sifra_Art = @Sifra_Art and
                          Sifra_KatStatus = @Sifra_KatStatus and Lokac_ID = @Lokacija and LotBr = @LotBr
            End
           End
        end
        else IF @Lokacija is not null and @LotBr is not null and @Sifra_KatPak is not null and @Sifra_KatStatus is not null
        Begin
            SELECT @Stara_Sostojba = Sostojba
            FROM SoMag
            WHERE Sifra_OE = @Sifra_OE and Sifra_Art = @Sifra_Art and Sifra_KatPak = @Sifra_KatPak and
                                      Sifra_KatStatus = @Sifra_KatStatus and Lokacija = @Lokacija and LotBr = @LotBr
            IF @@ROWCOUNT = 0
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Kolic
                else IF @VlIzl = 'I'
                    SET @Nova_Sostojba = - @Kolic
                INSERT SoMag (Sifra_OE, Sifra_Art, Sifra_KatPak, Sifra_KatStatus, Lokacija, LotBr, Sostojba, RokRed)
                VALUES (@Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @LotBr, @Nova_Sostojba, @RokRed)
            End
            ELSE
            Begin
                IF @VlIzl = 'V'
                    SET @Nova_Sostojba = @Stara_Sostojba + @Kolic
                IF @VlIzl = 'I'
                    SET @Nova_Sostojba = @Stara_Sostojba - @Kolic
                UPDATE SoMag SET Sostojba = @Nova_Sostojba
                WHERE Sifra_OE = @Sifra_OE and Sifra_Art = @Sifra_Art and Sifra_KatPak = @Sifra_KatPak and
                                          Sifra_KatStatus = @Sifra_KatStatus and Lokacija = @Lokacija and LotBr = @LotBr
            End
        End
        Fetch Next From InsStavki
        Into @Sifra_OE, @Sifra_Art, @Sifra_KatPak, @Sifra_KatStatus, @Lokacija, @VlIzl, @LotBr, @Kolic, @RokRed, @WHMSys, @Sifra_Oe_WHM
    End --While
    Close InsStavki
    Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_ProdMest_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_ProdMest_Vnes_Izmena

Go
CREATE    TRIGGER tr_ProdMest_Vnes_Izmena
ON dbo.ProdMest
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Mest    int,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Mest = Sifra_Mest
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From ProdMest Where Sifra_Mest = @Sifra_Mest)
    If @Propagiraj='D'
    Begin
        Update ProdMest Set Propagiraj=Null  Where Sifra_Mest = @Sifra_Mest
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Mest From ' + @VtoraBaza + '..ProdMest
                        Where Sifra_Mest = ' + cast(@Sifra_Mest as varchar(10)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..ProdMest
                    Set Opis=P.Opis, Opis2=P.Opis2, Sifra_Kup=P.Sifra_Kup, Sifra_Obj=P.Sifra_Obj,
                        DaliAktiven=P.DaliAktiven, Posrednik=P.Posrednik, DaliSporen=P.DaliSporen
                    From ProdMest P
                    Where P.Sifra_Mest = ' + cast(@Sifra_Mest as varchar(10)) + '
                    and ' + @VtoraBaza + '..ProdMest.Sifra_Mest = ' + cast(@Sifra_Mest as varchar(10)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..ProdMest Select * From ProdMest Where Sifra_Mest= ' + cast(@Sifra_Mest as varchar(10)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RabNal_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_RabNal_IzmeniBrisi

Go
CREATE TRIGGER tr_RabNal_IzmeniBrisi
    ON dbo.RabNal
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KatGAmb_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KatGAmb_Vnes_Izmena

Go

CREATE  TRIGGER tr_KatGAmb_Vnes_Izmena
ON dbo.KatGAmb
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_GAmb    char(6),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_GAmb = Sifra_GAmb
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KatGAmb Where Sifra_GAmb = @Sifra_GAmb)
    If @Propagiraj='D'
    Begin
        Update KatGAmb Set Propagiraj=Null  Where Sifra_GAmb = @Sifra_GAmb
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_GAmb From ' + @VtoraBaza + '..KatGAmb
                        Where Sifra_GAmb = ' + cast(@Sifra_GAmb as varchar(6)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KatGAmb
                    Set ImeGAmb=D.ImeGAmb, SodrziAmb=D.SodrziAmb, DodadenNa=D.DodadenNa, DodadenOd=D.DodadenOd,
                         IzmenetNa=D.IzmenetNa, IzmenetOd=D.IzmenetOd
                    From KatGAmb D
                    Where D.Sifra_GAmb= ' + @Sifra_GAmb + '
                    and ' + @VtoraBaza + '..KatGAmb.Sifra_GAmb = ' + @Sifra_GAmb + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KatGAmb Select * From KatGAmb Where Sifra_GAmb= ' + @Sifra_GAmb + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_FavtVrski_Brisi' AND type = 'TR') DROP TRIGGER tr_FavtVrski_Brisi

Go
CREATE      TRIGGER tr_FavtVrski_Brisi
ON FAvtVrski
FOR DELETE
AS
BEGIN
    Declare @GstID  Int
    Declare @Dolzi decimal (18, 4)
    Declare @Pobaruva decimal (18, 4)
    Declare @Dev_Dolzi decimal (18, 4)
    Declare @Dev_Pobaruva decimal (18, 4)
    Declare @Bazna_Dolzi decimal (18, 4)
    Declare @Bazna_Pobaruva decimal (18, 4)
    Declare @KolkuVrski int
    SELECT @GstID=GstID, @Dolzi=Dolzi, @Pobaruva=Pobaruva,  @Dev_Dolzi=Dev_Dolzi, @Dev_Pobaruva=Dev_Pobaruva,
        @Bazna_Dolzi=Bazna_Dolzi, @Bazna_Pobaruva=Bazna_Pobaruva
    FROM Deleted
    IF EXISTS (SELECT * FROM Gstav WHERE GstId=@GstId and OdKade = 'V')        --     Mnogui vazno e deka zasega e samo za Vrzani!
    begin
        UPDATE Gstav
        SET Dolzi=Dolzi-@Dolzi, Pobaruva=Pobaruva-@Pobaruva, Dev_Dolzi=Dev_Dolzi-@Dev_Dolzi , Dev_Pobaruva=Dev_Pobaruva-@Dev_Pobaruva,
        Bazna_Dolzi=Bazna_Dolzi-@Bazna_Dolzi, Bazna_Pobaruva=Bazna_Pobaruva-@Bazna_Pobaruva, KolkuVrski=KolkuVrski - 1
        WHERE GstId = @GstId
    end
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_FavtVrski_Zacuvaj' AND type = 'TR') DROP TRIGGER tr_FavtVrski_Zacuvaj

Go
CREATE   TRIGGER tr_FavtVrski_Zacuvaj
ON FAvtVrski
FOR INSERT
AS
BEGIN
   Declare @GstID  Int
   Declare @Dolzi decimal (18, 4)
   Declare @Pobaruva decimal (18, 4)
   Declare @Dev_Dolzi decimal (18, 4)
   Declare @Dev_Pobaruva decimal (18, 4)
   Declare @Bazna_Dolzi decimal (18, 4)
   Declare @Bazna_Pobaruva decimal (18, 4)
   SELECT @GstID=GstID, @Dolzi=Dolzi, @Pobaruva=Pobaruva,  @Dev_Dolzi=Dev_Dolzi, @Dev_Pobaruva=Dev_Pobaruva,
          @Bazna_Dolzi=Bazna_Dolzi, @Bazna_Pobaruva=Bazna_Pobaruva
   FROM Inserted
   IF EXISTS (SELECT * FROM Gstav WHERE GstId=@GstId and OdKade = 'V' )            --      Mnogui vazno e deka zasega e samo za Vrzani!
   begin
      UPDATE Gstav
      SET Dolzi=Dolzi+@Dolzi, Pobaruva=Pobaruva+@Pobaruva, Dev_Dolzi=Dev_Dolzi+@Dev_Dolzi , Dev_Pobaruva=Dev_Pobaruva+@Dev_Pobaruva,
          Bazna_Dolzi=Bazna_Dolzi+@Bazna_Dolzi, Bazna_Pobaruva=Bazna_Pobaruva+@Bazna_Pobaruva, KolkuVrski = KolkuVrski + 1
      WHERE GstId = @GstId
  end
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Nalozi_Izmena' AND type = 'TR') DROP TRIGGER tr_Nalozi_Izmena

Go

CREATE      TRIGGER tr_Nalozi_Izmena
ON Nalozi
FOR UPDATE
AS
BEGIN
   Declare @Sifra_Nal Smallint
   Declare @Broj_Nal Int
   Declare @Datum_Nal Smalldatetime
   SELECT @Sifra_Nal=Sifra_Nal, @Broj_Nal=Broj_Nal, @Datum_Nal=Datum_Nal FROM Inserted
   Declare @DatNalSta Smalldatetime
   SELECT @DatNalSta=Datum_Nal FROM Deleted
   IF EXISTS(SELECT * FROM Brnal WHERE Sifra_Nal=@Sifra_Nal And Broj_Nal=@Broj_Nal)
      UPDATE Brnal SET Datum_Nal=@Datum_Nal WHERE Sifra_Nal=@Sifra_Nal And Broj_Nal=@Broj_Nal
    UPDATE AnFinDok
        SET Datum_Nal=@Datum_Nal, Prenesen=''
    Where Sifra_Nal=@Sifra_Nal And Broj_Nal=@Broj_Nal AND Datum_Nal<>@Datum_Nal
    UPDATE GStav SET Datum_Nal=@Datum_Nal
    Where Sifra_Nal=@Sifra_Nal And Broj_Nal=@Broj_Nal AND Datum_Nal<>@Datum_Nal
    If @DatNalSta<>@Datum_Nal
        UPDATE Nalozi Set Izmenet_Od=SUser_SName(), Izmenet_Na=GetDate() Where Sifra_Nal=@Sifra_Nal And Broj_Nal=@Broj_Nal
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StavOsnSred_Vnes' AND type = 'TR') DROP TRIGGER tr_StavOsnSred_Vnes

Go


CREATE    TRIGGER tr_StavOsnSred_Vnes
ON dbo.StavOsnSred
FOR INSERT
AS
BEGIN
Declare @Inv_Broj        Char(10),
    @Datum_Dok        smalldatetime,
    @Tip_StaOsn        Char(1),
    @Orig_Nab_Vr        decimal(18,2),
    @Valuta        char(3),
    @Orig_Nab_Vr_Val    decimal(18,2),
    @Sifra_MikLok        char(10),
    @Delov_God        smallint,
    @Osn_Amor        decimal(18,2),
    @Otpis_Pret        decimal(18,2),
    @RedTrans        int,
    @Sifra_Rab        int,
    @Sifra_Div         smallint,
    @Sifra_TrosM    smallint,
    @Sifra_TrosV    smallint
Declare StavIV Cursor Fast_Forward For
SELECT Inv_Broj, Datum_Dok, Tip_StaOsn, Orig_Nab_Vr, Valuta, Orig_Nab_Vr_Val, Sifra_MikLok, RedTrans,
    Delov_God, Osn_Amor, Otpis_Pret, Sifra_Rab, Sifra_Div, Sifra_TrosM, Sifra_TrosV FROM INSERTED
Open StavIV
Fetch Next From StavIV Into @Inv_Broj, @Datum_Dok, @Tip_StaOsn, @Orig_Nab_Vr, @Valuta,
    @Orig_Nab_Vr_Val, @Sifra_MikLok, @RedTrans, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV
While @@Fetch_Status=0
Begin
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Tip_StaOsn In ('I', 'P')
    Begin
        Update OsnSred Set DatAkt=@Datum_Dok, Orig_Nab_Vr=@Orig_Nab_Vr,
            Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val   Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn = 'Y'
    Begin
        Update OsnSred Set DatNab=@Datum_Dok, DatAkt=@Datum_Dok, Orig_Nab_Vr=@Orig_Nab_Vr,
            Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val   Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn In ('F', 'R', 'T', 'Q')
    Begin
        Update OsnSred Set DatPrest=@Datum_Dok Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn In ('I', 'P', 'Z', 'Y') --, 'F', 'R', 'T', 'Q')  --sto baraat ovde R-rashod,F-prodazba,T-otpis,Q-otpis_pregupiranje
    Begin
        Update OsnSred Set Sifra_MikLok=@Sifra_MikLok, Sifra_Rab=@Sifra_Rab Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn In ('I', 'P', 'Y', '1', '2', '3') --, 'F', 'R', 'T', 'Q')  --sto baraat ovde R-rashod,F-prodazba,T-otpis,Q-otpis_pregupiranje
    Begin
        Update OsnSred Set Sifra_Div=@Sifra_Div, Sifra_TrosM=@Sifra_TrosM, Sifra_TrosV=@Sifra_TrosV Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn ='I' OR @Tip_StaOsn='Y'
    Begin
        Insert Into PocSostOsn (Inv_Broj, Godina, Osn_Amor, Otpis_Pret, Sifra_MikLok, Sifra_Rab, Sifra_Div, Sifra_TrosM, Sifra_TrosV)
        Values(@Inv_Broj, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_MikLok, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV)
    End
    Fetch Next From StavIV Into @Inv_Broj, @Datum_Dok, @Tip_StaOsn, @Orig_Nab_Vr, @Valuta,
    @Orig_Nab_Vr_Val, @Sifra_MikLok, @RedTrans, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV
End
Close StavIV
Deallocate StavIV
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
End --Triger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StavOsnSred_Izmena' AND type = 'TR') DROP TRIGGER tr_StavOsnSred_Izmena

Go


CREATE     TRIGGER tr_StavOsnSred_Izmena
ON dbo.StavOsnSred
FOR UPDATE
AS
BEGIN
Declare @Inv_Broj        Char(10),
    @Datum_Dok        smalldatetime,
    @Tip_StaOsn        Char(1),
    @Orig_Nab_Vr        decimal(18,2),
    @Valuta        char(3),
    @Orig_Nab_Vr_Val    decimal(18,2),
    @Sifra_MikLok        char(10),
    @RedTrans        smallint,
    @RedTransOsnSred    smallint,
    @Delov_God        smallint,
    @Osn_Amor        decimal(18,2),
    @Otpis_Pret        decimal(18,2),
    @Sifra_Rab        int,
    @Sifra_Div         smallint,
    @Sifra_TrosM    smallint,
    @Sifra_TrosV    smallint
Declare StavIO Cursor Fast_Forward For
SELECT Inv_Broj, Datum_Dok, Tip_StaOsn, Orig_Nab_Vr, Valuta, Orig_Nab_Vr_Val, Sifra_MikLok, RedTrans,
    Delov_God, Osn_Amor, Otpis_Pret, Sifra_Rab, Sifra_Div, Sifra_TrosM, Sifra_TrosV FROM INSERTED
Open StavIO
Fetch Next From StavIO Into @Inv_Broj, @Datum_Dok, @Tip_StaOsn, @Orig_Nab_Vr, @Valuta,
    @Orig_Nab_Vr_Val, @Sifra_MikLok, @RedTrans, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV
While @@Fetch_Status=0
Begin
--    SELECT @Inv_Broj=Inv_Broj, @Datum_Dok=Datum_Dok, @Tip_StaOsn=Tip_StaOsn, @Orig_Nab_Vr=Orig_Nab_Vr,
--        @Valuta=Valuta, @Orig_Nab_Vr_Val=Orig_Nab_Vr_Val, @Sifra_MikLok=Sifra_MikLok, @RedTrans=RedTrans,
--        @Delov_God=Delov_God, @Osn_Amor=Osn_Amor, @Otpis_Pret=Otpis_Pret, @Sifra_Rab=Sifra_Rab
--    FROM INSERTED
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Tip_StaOsn In ('I', 'P')
    Begin
        Update OsnSred Set DatAkt=@Datum_Dok, Orig_Nab_Vr=@Orig_Nab_Vr,
            Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val   Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn = 'Y'
    Begin
        Update OsnSred Set DatNab=@Datum_Dok, DatAkt=@Datum_Dok, Orig_Nab_Vr=@Orig_Nab_Vr,
            Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val   Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn In ('F', 'R', 'T', 'Q')
    Begin
        Update OsnSred Set DatPrest=@Datum_Dok Where Inv_Broj=@Inv_Broj
    End
    If @Tip_StaOsn In ('I', 'P', 'Z', 'Y') --, 'F', 'R', 'T', 'Q' )        ----???????  zosto T, Q, R, F
    Begin
        Set @RedTransOsnSred=(Select RedTrans From OsnSred Where Inv_Broj=@Inv_Broj)
        If @RedTrans=@RedTransOsnSred
        Begin
            Update OsnSred Set Sifra_MikLok=@Sifra_MikLok, Sifra_Rab=@Sifra_Rab Where Inv_Broj=@Inv_Broj
        End
    End
    If @Tip_StaOsn In ('I', 'P', '1','2','3', 'Y') --, 'F', 'R', 'T', 'Q' )        ----???????  zosto T, Q, R, F
    Begin
        Set @RedTransOsnSred=(Select RedTrans From OsnSred Where Inv_Broj=@Inv_Broj)
        If @RedTrans=@RedTransOsnSred
        Begin
            Update OsnSred Set Sifra_Div=@Sifra_Div, Sifra_TrosM=@Sifra_TrosM, Sifra_TrosV=@Sifra_TrosV Where Inv_Broj=@Inv_Broj
        End
    End
    If @Tip_StaOsn = 'I' OR @Tip_StaOsn = 'Y'
    Begin
        If Not Exists(Select Inv_Broj From PocSostOsn Where Inv_Broj=@Inv_Broj And Godina=@Delov_God)
        Begin
            Insert Into PocSostOsn (Inv_Broj, Godina, Osn_Amor, Otpis_Pret, Sifra_MikLok, Sifra_Rab, Sifra_Div, Sifra_TrosM, Sifra_TrosV)
            Values(@Inv_Broj, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_MikLok, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV)
        End
        Else
        Begin
            Update PocSostOsn Set Osn_Amor=@Osn_Amor, Otpis_Pret=@Otpis_Pret, Sifra_MikLok=@Sifra_MikLok,
                Sifra_Rab=@Sifra_Rab, Sifra_Div=@Sifra_Div, Sifra_TrosM=@Sifra_TrosM, Sifra_TrosV=@Sifra_TrosV    Where Inv_Broj=@Inv_Broj And Godina=@Delov_God
        End
    End
    Fetch Next From StavIO Into @Inv_Broj, @Datum_Dok, @Tip_StaOsn, @Orig_Nab_Vr, @Valuta,
    @Orig_Nab_Vr_Val, @Sifra_MikLok, @RedTrans, @Delov_God, @Osn_Amor, @Otpis_Pret, @Sifra_Rab, @Sifra_Div, @Sifra_TrosM, @Sifra_TrosV
End
Close StavIO
Deallocate  StavIO
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
End --Triger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StavOsnSred_Brisi' AND type = 'TR') DROP TRIGGER tr_StavOsnSred_Brisi

Go

CREATE   TRIGGER tr_StavOsnSred_Brisi
ON dbo.StavOsnSred
FOR DELETE
AS
BEGIN
Declare @Inv_Broj        Char(10),
    @Tip_StaOsn        Char(1),
    @Delov_God        smallint,
    @Sifra_MikLok_Od    char(10),
    @Sifra_RabOd    int,
    @Sifra_Div_Od     smallint,
    @Sifra_TrosM_Od    smallint,
    @Sifra_TrosV_Od    smallint
    Declare Stavki Cursor Fast_Forward For
    SELECT Inv_Broj, Tip_StaOsn, Delov_God, Sifra_MikLok_Od, Sifra_RabOd, Sifra_Div_Od, Sifra_TrosM_Od,    Sifra_TrosV_Od FROM DELETED
    Open Stavki
    Fetch Next From Stavki Into @Inv_Broj, @Tip_StaOsn, @Delov_God, @Sifra_MikLok_Od, @Sifra_RabOd, @Sifra_Div_Od, @Sifra_TrosM_Od, @Sifra_TrosV_Od
    While @@Fetch_Status=0
    Begin
        If @Tip_StaOsn ='I' OR @Tip_StaOsn='Y'
        Begin
            Delete From PocSostOsn Where Inv_Broj=@Inv_Broj And Godina=@Delov_God
        End
        If @Tip_StaOsn = 'Z'
        Begin
            Update OsnSred Set Sifra_MikLok=@Sifra_MikLok_Od, Sifra_Rab=@Sifra_RabOd Where Inv_Broj=@Inv_Broj
        End
        If @Tip_StaOsn IN ('1','2','3')
        Begin
            Update OsnSred Set Sifra_Div=@Sifra_Div_Od, Sifra_TrosM=@Sifra_TrosM_Od, Sifra_TrosV=@Sifra_TrosV_Od Where Inv_Broj=@Inv_Broj
        End
        If @Tip_StaOsn in ('R', 'F', 'T', 'Q')
        Begin
            Update OsnSred Set DatPrest=Null Where Inv_Broj=@Inv_Broj
        End
        Fetch Next From Stavki Into @Inv_Broj, @Tip_StaOsn, @Delov_God, @Sifra_MikLok_Od, @Sifra_RabOd, @Sifra_Div_Od, @Sifra_TrosM_Od, @Sifra_TrosV_Od
    End
    Close Stavki
    Deallocate  Stavki
End --Triger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlCeni_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_RazlCeni_IzmeniBrisi

Go
CREATE TRIGGER tr_RazlCeni_IzmeniBrisi
    ON dbo.RazlCeni
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlProd_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_RazlProd_IzmeniBrisi

Go
CREATE TRIGGER tr_RazlProd_IzmeniBrisi
    ON dbo.RazlProd
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlFin_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_RazlFin_IzmeniBrisi

Go
CREATE TRIGGER tr_RazlFin_IzmeniBrisi
    ON dbo.RazlFin
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_GStav_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_GStav_IzmeniBrisi

Go
CREATE TRIGGER tr_GStav_IzmeniBrisi
    ON dbo.GStav
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnFinDok_Zacuvaj' AND type = 'TR') DROP TRIGGER tr_AnFinDok_Zacuvaj

Go

CREATE       TRIGGER tr_AnFinDok_Zacuvaj
ON dbo.AnFinDok
FOR INSERT
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
    Declare @DaliMater Char(1)
    ------------------------------------------------------------
    -- 18/09/2003 Dodadeno: Inner Join TipDok... i uslovot za
    -- azuriranje na BrDok samo koga dokumentot e cisto finansiski
    -- a ne i materijalen koj doagja od "Azuriranje na dokumenti"
    ------------------------------------------------------------
   SELECT @Sifra_OE=I.Sifra_OE, @Sifra_Dok=I.Sifra_Dok, @Broj_Dok=I.Broj_Dok, @DaliMater=TD.DaliMater
    FROM Inserted I
    Inner Join TipDok TD On I.Sifra_Dok=TD.Sifra_Dok
    If @Sifra_Dok is not null AND @DaliMater='N'
        Begin
           IF EXISTS(SELECT * FROM Brdok WITH(NOLOCK) WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok)
              UPDATE Brdok SET Broj_Dok=@Broj_Dok WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok
           ELSE
              INSERT INTO Brdok(Sifra_OE, Sifra_Dok, Broj_Dok)
                 VALUES(@Sifra_OE, @Sifra_Dok, @Broj_Dok)
        End
    ------------------------------------------------------------
    -- 26/09/2003 Dodadeno: Zacuvaj i vo OpstLog
    ------------------------------------------------------------
    /*INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)    TRGNATO 26.10.03
    Values
        (     GetDate(),
            'ZacuvAnFin',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))  */
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Dokr_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_Dokr_IzmeniBrisi

Go
CREATE TRIGGER tr_Dokr_IzmeniBrisi
    ON dbo.Dokr
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnFinDok_Izmeni' AND type = 'TR') DROP TRIGGER tr_AnFinDok_Izmeni

Go
CREATE    TRIGGER tr_AnFinDok_Izmeni
ON dbo.AnFinDok
FOR UPDATE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Dok=Sifra_Dok, @Broj_Dok=Broj_Dok FROM Inserted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values (    GetDate(), 'IzmenAnFin',     'INF', 'trig',
    'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' + 'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' + 'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
    'Korisnik: ' + SUser_SName(), Substring(SUser_SName(),1,20))
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Naracki_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_Naracki_IzmeniBrisi

Go
CREATE TRIGGER tr_Naracki_IzmeniBrisi
    ON dbo.Naracki
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnFinDok_Brisi' AND type = 'TR') DROP TRIGGER tr_AnFinDok_Brisi

Go
CREATE TRIGGER tr_AnFinDok_Brisi
ON dbo.AnFinDok
FOR DELETE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Dok=Sifra_Dok, @Broj_Dok=Broj_Dok FROM Deleted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values
        (     GetDate(),
            'BrisiAnFin',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))
    INSERT INTO BrsFinDok (Sifra_OE, Sifra_Dok, Broj_Dok, Prenesen)
    SELECT Sifra_OE, Sifra_Dok, Broj_Dok, ''  FROM Deleted
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KreditVrskaZatv_Del' AND type = 'TR') DROP TRIGGER tr_KreditVrskaZatv_Del

Go

create TRIGGER tr_KreditVrskaZatv_Del
ON dbo.KreditVrskaZatv
FOR DELETE
AS
BEGIN
   Declare SiteZatv CURSOR FOR
    SELECT SifrA_oe_1, Broj_Kredit_1, Rbr_KreditTrans_1,
           SifrA_oe_2, Broj_Kredit_2, Rbr_KreditTrans2,
           Iznos, Datum_Zatv
        FROM DELETED
    Declare @SifrA_Oe_1 Int
    Declare @Broj_Kredit_1 Int
    Declare @Rbr_KreditTrans_1 int
    Declare @SifrA_Oe_2 Int
    Declare @Broj_Kredit_2 Int
    Declare @Rbr_KreditTrans_2 int
    Declare @Iznos Numeric(18, 4)
    Declare @Datum_Zatv smalldatetime
    OPEN SiteZatv
    FETCH NEXT FROM SiteZatv
    INTO @SifrA_oe_1, @Broj_Kredit_1, @Rbr_KreditTrans_1,
                  @SifrA_oe_2, @Broj_Kredit_2, @Rbr_KreditTrans_2,
                    @Iznos, @Datum_Zatv
    WHILE @@FETCH_STATUS = 0
    Begin
        update KreditTransakc
        set Plateno_Pobaruva = Plateno_Pobaruva - @Iznos
        WHERE Sifra_oe = @SifrA_oe_1 and Broj_Kredit = @Broj_Kredit_1
            and Rbr_KreditTrans = @Rbr_KreditTrans_1
        update KreditTransakc
        set Plateno_Dolzi = Plateno_Dolzi - @Iznos
        WHERE Sifra_oe = @SifrA_oe_2 and Broj_Kredit = @Broj_Kredit_2
            and Rbr_KreditTrans = @Rbr_KreditTrans_2
        FETCH NEXT FROM SiteZatv
        INTO @SifrA_oe_1, @Broj_Kredit_1, @Rbr_KreditTrans_1,
                  @SifrA_oe_2, @Broj_Kredit_2, @Rbr_KreditTrans_2,
                    @Iznos, @Datum_Zatv
    End --While
    CLOSE SiteZatv
    DEALLOCATE SiteZatv
END --Trigger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KreditVrskaZatv_Ins' AND type = 'TR') DROP TRIGGER tr_KreditVrskaZatv_Ins

Go


CREATE TRIGGER tr_KreditVrskaZatv_Ins
ON dbo.KreditVrskaZatv
FOR INSERT
AS
BEGIN
   Declare SiteZatv CURSOR FOR
    SELECT SifrA_oe_1, Broj_Kredit_1, Rbr_KreditTrans_1,
           SifrA_oe_2, Broj_Kredit_2, Rbr_KreditTrans2,
           Iznos, Datum_Zatv
        FROM INSERTED
    Declare @SifrA_Oe_1 Int
    Declare @Broj_Kredit_1 Int
    Declare @Rbr_KreditTrans_1 int
    Declare @SifrA_Oe_2 Int
    Declare @Broj_Kredit_2 Int
    Declare @Rbr_KreditTrans_2 int
    Declare @Iznos Numeric(18, 4)
    Declare @Datum_Zatv smalldatetime
    Declare @Datum_1 smalldatetime
    Declare @Datum_2 smalldatetime
    OPEN SiteZatv
    FETCH NEXT FROM SiteZatv
    INTO @SifrA_oe_1, @Broj_Kredit_1, @Rbr_KreditTrans_1,
                  @SifrA_oe_2, @Broj_Kredit_2, @Rbr_KreditTrans_2,
                    @Iznos, @Datum_Zatv
    WHILE @@FETCH_STATUS = 0
    Begin
        SELECT  @Datum_1 = Datum_Dosp
        FROM KreditTransakc
        WHERE Sifra_oe = @SifrA_oe_1 and Broj_Kredit = @Broj_Kredit_1
            and Rbr_KreditTrans = @Rbr_KreditTrans_1
        SELECT  @Datum_2 = Datum_Dosp
        FROM KreditTransakc
        WHERE Sifra_oe = @SifrA_oe_2 and Broj_Kredit = @Broj_Kredit_2
            and Rbr_KreditTrans= @Rbr_KreditTrans_2
        update KreditTransakc
        set Plateno_Pobaruva = Plateno_Pobaruva + @Iznos,
            Datum_Kontra = @Datum_2
        WHERE Sifra_oe = @SifrA_oe_1 and Broj_Kredit = @Broj_Kredit_1
            and Rbr_KreditTrans = @Rbr_KreditTrans_1
        update KreditTransakc
        set Plateno_Dolzi = Plateno_Dolzi + @Iznos,
            Datum_Kontra = @Datum_1
        WHERE Sifra_oe = @SifrA_oe_2 and Broj_Kredit = @Broj_Kredit_2
            and Rbr_KreditTrans = @Rbr_KreditTrans_2
        FETCH NEXT FROM SiteZatv
        INTO @SifrA_oe_1, @Broj_Kredit_1, @Rbr_KreditTrans_1,
                  @SifrA_oe_2, @Broj_Kredit_2, @Rbr_KreditTrans_2,
                    @Iznos, @Datum_Zatv
    End --While
    CLOSE SiteZatv
    DEALLOCATE SiteZatv
END --Trigger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Popis_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_Popis_IzmeniBrisi

Go
CREATE TRIGGER tr_Popis_IzmeniBrisi
    ON dbo.Popis
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KomintIzmena' AND type = 'TR') DROP TRIGGER tr_KomintIzmena

Go
CREATE     TRIGGER tr_KomintIzmena
ON dbo.Komint
FOR UPDATE
AS
BEGIN
    Declare @Sifra_Kup Char(6)
    Select @Sifra_Kup=Sifra_Kup From Inserted
--dodadeno 22.03.04
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values (GetDate(),     'IzmKomint', 'INF', 'trig', 'Komintent:' + @Sifra_Kup + ' ' + 'Korisnik: ' + SUser_SName(), Substring(SUser_SName(),1,20))
------------------------------------------------------Dodadeno 14.04.2006 ------------------------------------------------------------------------
    Declare @MozeIsporaka as char(1)
    Declare @MozeIsporakaBese as char(1)
    Select @MozeIsporaka = MozeIsporaka From Inserted
    Select @MozeIsporakaBese = MozeIsporaka From Deleted
    If @MozeIsporaka<>@MozeIsporakaBese
        Insert Into IstBlokKom (Sifra_Kup, Datum, MozeIsporaka, IzmenetNa, IzmenetOd)
        Values (@Sifra_Kup,  dbo.fn_VratiDatum(GetDate()), @MozeIsporaka, GetDate(), SUser_SName())
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KartProm_Insert' AND type = 'TR') DROP TRIGGER tr_KartProm_Insert

Go
CREATE   TRIGGER tr_KartProm_Insert
ON dbo.KartProm
FOR INSERT
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Broj_Ska        Int,
    @Sifra_Kor         VarChar(20),
    @Sifra_Nac        Int,
    @Datum_Ska        SmallDateTime,
    @Dolzi            Decimal(18,6),
    @Pobaruva        Decimal(18,6),
    @FraUpl        Char(1),
    @VnsOnLine        Char(1),
    @Sifra_Kup        Char(6),
    @KlubDolzi        Decimal(18,6)
    Declare InsStavki Cursor Fast_Forward For
       Select Sifra_OE, Broj_Ska, Sifra_Kor, Sifra_Nac, Datum_Ska, Dolzi, Pobaruva, FraUpl, VnsOnLine,  Sifra_Kup, KlubDolzi
    From Inserted
    Open InsStavki
    Fetch Next From InsStavki
    Into @Sifra_OE, @Broj_Ska, @Sifra_Kor, @Sifra_Nac, @Datum_Ska, @Dolzi, @Pobaruva, @FraUpl, @VnsOnLine,  @Sifra_Kup, @KlubDolzi
    While @@Fetch_Status = 0
    Begin
        IF @FraUpl='U'
        Begin
            INSERT ArkaKartKpm (Sifra_Oe , Grp_Kasa, BrKasa, Broj_Ska ,Sifra_Kor , Sifra_Nac, cDatumSka, Datum_Ska,Dolzi , Pobaruva,FraUpl, VnsOnLine, Sifra_Kup, KlubDolzi , Rasknizen )
            VALUES (@Sifra_OE, @Sifra_OE, @Sifra_OE, @Broj_Ska, @Sifra_Kor, @Sifra_Nac, cast (Year(@Datum_Ska) as Char(4))
                                                    + (case when Month(@Datum_Ska)<10 then '0' else '' end) +  cast (month(@Datum_Ska) as varchar(2))
                                                    + (case when day(@Datum_Ska)<10 then '0' else '' end) +  cast (day(@Datum_Ska) as varchar(2)),
                                                                @Datum_Ska, @Dolzi, @Pobaruva, @FraUpl, @VnsOnLine,  @Sifra_Kup, @KlubDolzi,'N')
        End
        Fetch Next From InsStavki
        Into @Sifra_OE, @Broj_Ska, @Sifra_Kor, @Sifra_Nac, @Datum_Ska, @Dolzi, @Pobaruva, @FraUpl, @VnsOnLine,  @Sifra_Kup, @KlubDolzi
    End --While
    Close InsStavki
    Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_Komint_Insert' AND type = 'TR') DROP TRIGGER tg_Komint_Insert

Go
CREATE      TRIGGER tg_Komint_Insert
ON dbo.Komint
FOR INSERT, UPDATE
AS
BEGIN
    Declare @Sifra_Kup Char(6)
    Declare @VtoraBaza as Varchar(20)
    Declare @DaliKup as char(1)
    Declare @DaliPodelKup as char(1)
    Declare @SSQL as varchar(8000)
    Declare @ImeKup Varchar(40)
    Declare @Redovi as Smallint
    Declare @Propagiraj as char(1)
-------------------------------------  Od Stariot Triger -------------------------------------------------------------------------------------
    Select @Sifra_Kup=Sifra_Kup, @ImeKup=ImeKup From Inserted
    -- UPDATE Komint SET DodadenNa=GetDate(), DodadenOd=SUser_SName() WHERE Sifra_Kup = @Sifra_Kup   Trgnato 12.08.2010 (staveno vo procedurata)
    If Not Exists (Select Sifra_Obj From KObjekti Where Sifra_Kup = @Sifra_Kup)
        Insert KObjekti (Sifra_Kup, Sifra_Obj, ImeObj)
        Values (@Sifra_Kup, 0, @ImeKup)
------------------------------------------------ Istorija za promena komintenti ------------------------------------------------------------------------
-------- Log za izmena na komintenti -------
    Insert Into KomintH (Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, SMesto, Posta, Zemja, ImaObj, IspAdresa, IspAdresa2, IspMesto, IspPosta, IspZemja,
                Telefon, Tel1, Tel2, TelMobil, Fax, Telex, EMail, AdrWeb, Sopstvenik, LK, Sopst_Mat, Danocen, Ziro, Ziro2, Banka, Banka2,
                Sifra_Ban, Sifra_Ban2, BRIZJAVA, KONTAKT, Sifra_Pat, Sifra_Grad, TipKup, Sifra_reg, Sifra_Nivo, Sifra_Tip, KDrugo1, KDrugo2,
                KDrugo3, KDrugo4, KDrugo5, Uces, KojaSmetka, Rok_Dosp, Kasa, KojaCena, BrPoseti, DirDistr, ZemaOd, Zabeleska, Aktiven, BrProdMesta,
                BrAktProdMesta, IzmenetNa, IzmenetOd, ImaBanka, Alt_ImeKup, Alt_Adresa, DogovorBroj, MozeIsporaka, Garancija, Propagiraj, MatBr, Sifra_Pat2,
                Sopst_Adr, Sopst_Mesto, Prenesen, ForsUces, Limit_Dolzi, Prioritet, FraRepr, Aneks1, Aneks2, God_Rabat, Spec_Rabat, m2, Sifra_VPJ, Rok_Dobav,
                Uces_Kol, SkrOznaka, KDrugo6, KDrugo7, MemoKup, Priv_Lice, VidStalazi, TolerDena_Dosp,
                Kto_Anal, EMail2, EMail3, Datum_Kom_Poc, Datum_Kom_Kr, Sifra_Kom_Man, Sifra_Kom_Ref, TipCenaDatum, Sifra_Kup_Sablon, Valuta)
    Select Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, SMesto, Posta, Zemja, ImaObj, IspAdresa, IspAdresa2, IspMesto, IspPosta, IspZemja,
                Telefon, Tel1, Tel2, TelMobil, Fax, Telex, EMail, AdrWeb, Sopstvenik, LK, Sopst_Mat, Danocen, Ziro, Ziro2, Banka, Banka2,
                Sifra_Ban, Sifra_Ban2, BRIZJAVA, KONTAKT, Sifra_Pat, Sifra_Grad, TipKup, Sifra_reg, Sifra_Nivo, Sifra_Tip, KDrugo1, KDrugo2,
                KDrugo3, KDrugo4, KDrugo5, Uces, KojaSmetka, Rok_Dosp, Kasa, KojaCena, BrPoseti, DirDistr, ZemaOd, Zabeleska, Aktiven, BrProdMesta,
                BrAktProdMesta, GetDate(), Suser_Sname(), ImaBanka, Alt_ImeKup, Alt_Adresa, DogovorBroj, MozeIsporaka, Garancija, Propagiraj, MatBr, Sifra_Pat2,
                Sopst_Adr, Sopst_Mesto, Prenesen, ForsUces, Limit_Dolzi, Prioritet, FraRepr, Aneks1, Aneks2, God_Rabat, Spec_Rabat, m2, Sifra_VPJ, Rok_Dobav,
                Uces_Kol, SkrOznaka, KDrugo6, KDrugo7, MemoKup, Priv_Lice, VidStalazi, TolerDena_Dosp,
                Kto_Anal, EMail2, EMail3, Datum_Kom_Poc, Datum_Kom_Kr, Sifra_Kom_Man, Sifra_Kom_Ref, TipCenaDatum, Sifra_Kup_Sablon, Valuta
    From Inserted
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------  Dodadeno 20.09.2004  za Azuriranje na Paralelni Bazi -------------------------------------------
    Set @Propagiraj = (Select Propagiraj From Komint Where Sifra_Kup = @Sifra_Kup)
    If @Propagiraj='D'
    Begin
        Update Komint Set Propagiraj=Null  Where Sifra_Kup = @Sifra_Kup
        Select Rbr, ImeBaza, DaliKup, DaliPodelKup
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D'
                    Begin
                Set @SSQL =  ' Select  Sifra_Kup From ' + @VtoraBaza + '..Komint
                    Where Sifra_Kup = ' + @Sifra_Kup + ' '
                Exec(@SSQL)
                If @@RowCount <> 0--Exists Exec(@SSQL)
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Komint
                            Set ImeKup=K.ImeKup, ImeKup2=K.ImeKup2, Adresa=K.Adresa, Adresa2=K.Adresa2, SMesto=K.SMesto, Posta=K.Posta, Zemja=K.Zemja,
                            ImaObj=K.ImaObj, IspAdresa=K.IspAdresa, IspAdresa2=K.IspAdresa2, IspMesto=K.IspMesto, IspPosta=K.IspPosta,
                            IspZemja=K.IspZemja, Telefon=K.Telefon, Tel1=K.Tel1, Tel2=K.Tel2, TelMobil=K.TelMobil, Fax=K.Fax, Telex=K.Telex,
                            EMail=K.EMail, AdrWeb=K.AdrWeb, Sopstvenik=K.Sopstvenik, LK=K.LK, Sopst_Mat=K.Sopst_Mat, Danocen=K.Danocen,
                            Ziro=K.Ziro, Ziro2=K.Ziro2, Banka=K.Banka, Banka2=K.Banka2, Sifra_Ban=K.Sifra_Ban, Sifra_Ban2=K.Sifra_Ban2,
                            KONTAKT=K.KONTAKT, KojaSmetka=K.KojaSmetka, DodadenNa=K.DodadenNa, DodadenOd=K.DodadenOd,
                            IzmenetNa=K.IzmenetNa, IzmenetOd=K.IzmenetOd, ImaBanka=K.ImaBanka, Alt_ImeKup=K.Alt_ImeKup, Alt_Adresa=K.Alt_Adresa,
                            Garancija=K.Garancija, MatBr=K.MatBr, Sopst_Adr=K.Sopst_Adr, Sopst_Mesto=K.Sopst_Mesto,
                            FraRepr=K.FraRepr, m2=K.m2 '
                    If @DaliPodelKup <> 'N' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ', Sifra_Pat=K.Sifra_Pat, Sifra_Grad=K.Sifra_Grad, TipKup=K.TipKup,
                            Sifra_reg=K.Sifra_reg, Sifra_Nivo=K.Sifra_Nivo, Sifra_Tip=K.Sifra_Tip, KDrugo1=K.KDrugo1, KDrugo2=K.KDrugo2,
                            KDrugo3=K.KDrugo3, KDrugo4=K.KDrugo4, KDrugo5=K.KDrugo5, Sifra_Pat2=K.Sifra_Pat2, Sifra_VPJ=K.Sifra_VPJ,
                            Uces=K.Uces, Rok_Dosp=K.Rok_Dosp, Kasa=K.Kasa, KojaCena=K.KojaCena, God_Rabat=K.God_Rabat, Spec_Rabat=K.Spec_Rabat,
                            Rok_Dobav=K.Rok_Dobav, Uces_Kol=K.Uces_Kol, BRIZJAVA=K.BRIZJAVA,
                            DogovorBroj=K.DogovorBroj, BrPoseti=K.BrPoseti, DirDistr=K.DirDistr, ZemaOd=K.ZemaOd, Zabeleska=K.Zabeleska,
                            Aktiven=K.Aktiven, BrProdMesta=K.BrProdMesta, BrAktProdMesta=K.BrAktProdMesta,
                            ForsUces=K.ForsUces, Aneks1=K.Aneks1, Aneks2=K.Aneks2, Prioritet=K.Prioritet '
                    If @DaliPodelKup <> 'L' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ' ' --, Limit_Dolzi=K.Limit_Dolzi  Trgnato 21.12.2011 PKB
                                        --,MozeIsporaka=K.MozeIsporaka  ' trgnato 18.05.2011 PKB
                    Set @SSQL = @SSQL + ' From Komint K
                            Where K.Sifra_Kup = ''' + @Sifra_Kup + '''
                            and ' + @VtoraBaza + '..Komint.Sifra_Kup = ''' + @Sifra_Kup + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    --Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Komint Select * From Komint Where Sifra_Kup= ''' + @Sifra_Kup + ''' '
                     Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Komint
                            (Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, SMesto, Posta, Zemja, ImaObj, IspAdresa,
                             IspAdresa2, IspMesto, IspPosta, IspZemja, Telefon, Tel1, Tel2, TelMobil, Fax, Telex,
                             EMail, AdrWeb, Sopstvenik, LK, Sopst_Mat, Danocen, Ziro, Ziro2, Banka, Banka2, Sifra_Ban,
                             Sifra_Ban2, KONTAKT, KojaSmetka,
                             DodadenNa, DodadenOd, IzmenetNa, IzmenetOd, ImaBanka, Alt_ImeKup, Alt_Adresa,
                             Garancija, Propagiraj, MatBr, Sopst_Adr, Sopst_Mesto, Prenesen,
                             FraRepr, m2 '
                    If @DaliPodelKup <> 'N' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ', Sifra_Pat, Sifra_Grad, TipKup, Sifra_reg, Sifra_Nivo,
                             Sifra_Tip, KDrugo1, KDrugo2, KDrugo3, KDrugo4, KDrugo5, Sifra_Pat2, Sifra_VPJ,
                             Uces, Rok_Dosp, Kasa, KojaCena, God_Rabat, Spec_Rabat, Rok_Dobav, Uces_Kol, BRIZJAVA,
                             DogovorBroj, BrPoseti, DirDistr, ZemaOd,  Aktiven, BrProdMesta, BrAktProdMesta,
                             ForsUces, Aneks1, Aneks2, Prioritet  '
                    If @DaliPodelKup <> 'L' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ' ' --, Limit_Dolzi Trgnato 21.12.2011 PKB
                                       -- , MozeIsporaka ' trgnato 18.05.2011 PKB
                    Set @SSQL = @SSQL + ')
                             Select
                             Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, SMesto, Posta, Zemja, ImaObj, IspAdresa,
                             IspAdresa2, IspMesto, IspPosta, IspZemja, Telefon, Tel1, Tel2, TelMobil, Fax, Telex,
                             EMail, AdrWeb, Sopstvenik, LK, Sopst_Mat, Danocen, Ziro, Ziro2, Banka, Banka2, Sifra_Ban,
                             Sifra_Ban2, KONTAKT, KojaSmetka,
                             DodadenNa, DodadenOd, IzmenetNa, IzmenetOd, ImaBanka, Alt_ImeKup, Alt_Adresa,
                             Garancija, Propagiraj, MatBr, Sopst_Adr, Sopst_Mesto, Prenesen,
                             FraRepr, m2 '
                    If @DaliPodelKup <> 'N' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ', Sifra_Pat, Sifra_Grad, TipKup, Sifra_reg, Sifra_Nivo,
                             Sifra_Tip, KDrugo1, KDrugo2, KDrugo3, KDrugo4, KDrugo5, Sifra_Pat2, Sifra_VPJ,
                             Uces, Rok_Dosp, Kasa, KojaCena, God_Rabat, Spec_Rabat, Rok_Dobav, Uces_Kol, BRIZJAVA,
                             DogovorBroj, BrPoseti, DirDistr, ZemaOd,  Aktiven, BrProdMesta, BrAktProdMesta,
                             ForsUces, Aneks1, Aneks2, Prioritet '
                    If @DaliPodelKup <> 'L' Or @DaliPodelKup Is Null
                        Set @SSQL = @SSQL + ' ' --, Limit_Dolzi Trgnato 21.12.2011 PKB
                                        --, MozeIsporaka ' trgnato 18.05.2011 PKB
                    Set @SSQL = @SSQL + ' From Komint Where Sifra_Kup= ''' + @Sifra_Kup + ''' '
                     Exec(@SSQL)
                   End  -- Else
                  End --If @DaliKup = 'D'
            Set @Redovi = @Redovi - 1
                  end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KasStav_IzmeniBrisi' AND type = 'TR') DROP TRIGGER tr_KasStav_IzmeniBrisi

Go
CREATE TRIGGER tr_KasStav_IzmeniBrisi
    ON dbo.KasStav
    FOR DELETE, UPDATE
    AS
    BEGIN
        If Exists(Select Zaklucen From Deleted Where Zaklucen ='D')
        Begin
            RaisError(' Zapisot e zaklucen i ne moze da se BRISE / MENUVA ' , 16, 1)
            Rollback Tran
        End
    END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Nivo_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Nivo_Vnes_Izmena

Go
CREATE  TRIGGER tr_Nivo_Vnes_Izmena
ON dbo.Nivo
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Nivo    char(2),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Nivo = Sifra_Nivo
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Nivo Where Sifra_Nivo = @Sifra_Nivo)
    If @Propagiraj='D'
    Begin
        Update Nivo Set Propagiraj=Null  Where Sifra_Nivo = @Sifra_Nivo
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_Nivo From ' + @VtoraBaza + '..Nivo
                        Where Sifra_Nivo = ''' + @Sifra_Nivo  + ''' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Nivo
                    Set ImeNivo=D.ImeNivo, Prioritet=D.Prioritet, Rok_Dosp=D.Rok_Dosp,
                        Kasa=D.Kasa, Uces=D.Uces, KojaCena=D.KojaCena
                    From Nivo D
                    Where D.Sifra_Nivo = ' + cast(@Sifra_Nivo as varchar(5)) + '
                    and ' + @VtoraBaza + '..Nivo.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Nivo Select * From Nivo Where Sifra_Nivo= ''' + @Sifra_Nivo + ''' '
print @SSQL
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_GTipKup_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_GTipKup_Vnes_Izmena

Go
CREATE  TRIGGER tr_GTipKup_Vnes_Izmena
ON dbo.GTipKup
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @TipKup    varchar(11),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @TipKup = TipKup
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From GTipKup Where TipKup = @TipKup)
    If @Propagiraj='D'
    Begin
        Update GTipKup Set Propagiraj=Null  Where TipKup = @TipKup
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  TipKup From ' + @VtoraBaza + '..GTipKup
                        Where TipKup = ''' + @TipKup + ''' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..GTipKup
                    Set ImeTipKup=D.ImeTipKup
                    From GTipKup D
                    Where D.TipKup = ''' + @TipKup + '''
                    and ' + @VtoraBaza + '..GTipKup.TipKup = ''' + @TipKup + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..GTipKup Select * From GTipKup Where TipKup= ''' + @TipKup + ''' '
print @SSQL
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo1_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo1_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo1_Vnes_Izmena
ON dbo.KDrugo1
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_1k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_1k = Sifra_1k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo1 Where Sifra_1k = @Sifra_1k)
    If @Propagiraj='D'
    Begin
        Update KDrugo1 Set Propagiraj=Null  Where Sifra_1k = @Sifra_1k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_1k From ' + @VtoraBaza + '..KDrugo1
                        Where Sifra_1k = ' + cast(@Sifra_1k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo1
                    Set Ime_1k=D.Ime_1k, VoZemjata=D.VoZemjata
                    From KDrugo1 D
                    Where D.Sifra_1k = ' + cast(@Sifra_1k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo1.Sifra_1k = ' + cast(@Sifra_1k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo1 Select * From KDrugo1 Where Sifra_1k= ' + cast(@Sifra_1k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Naracki_Brisi' AND type = 'TR') DROP TRIGGER tr_Naracki_Brisi

Go
CREATE  TRIGGER tr_Naracki_Brisi
ON dbo.Naracki
FOR DELETE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Nar Smallint
   Declare @Broj_Nar Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Nar=Sifra_Nar, @Broj_Nar=Broj_Nar FROM Deleted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values
        (     GetDate(),
            'BrisiNar',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Nar:' + Cast(@Sifra_Nar As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Nar As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo2_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo2_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo2_Vnes_Izmena
ON dbo.KDrugo2
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_2k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_2k = Sifra_2k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo2 Where Sifra_2k = @Sifra_2k)
    If @Propagiraj='D'
    Begin
        Update KDrugo2 Set Propagiraj=Null  Where Sifra_2k = @Sifra_2k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_2k From ' + @VtoraBaza + '..KDrugo2
                        Where Sifra_2k = ' + cast(@Sifra_2k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo2
                    Set Ime_2k=D.Ime_2k, VoZemjata=D.VoZemjata
                    From KDrugo2 D
                    Where D.Sifra_2k = ' + cast(@Sifra_2k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo2.Sifra_2k = ' + cast(@Sifra_2k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo2 Select * From KDrugo2 Where Sifra_2k= ' + cast(@Sifra_2k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo3_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo3_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo3_Vnes_Izmena
ON dbo.KDrugo3
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_3k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_3k = Sifra_3k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo3 Where Sifra_3k = @Sifra_3k)
    If @Propagiraj='D'
    Begin
        Update KDrugo3 Set Propagiraj=Null  Where Sifra_3k = @Sifra_3k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_3k From ' + @VtoraBaza + '..KDrugo3
                        Where Sifra_3k = ' + cast(@Sifra_3k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo3
                    Set Ime_3k=D.Ime_3k
                    From KDrugo3 D
                    Where D.Sifra_3k = ' + cast(@Sifra_3k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo3.Sifra_3k = ' + cast(@Sifra_3k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo3 Select * From KDrugo3 Where Sifra_3k= ' + cast(@Sifra_3k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_NarRealSta_1_ND_Vnes' AND type = 'TR') DROP TRIGGER tr_NarRealSta_1_ND_Vnes

Go
CREATE TRIGGER [dbo].[tr_NarRealSta_1_ND_Vnes]
ON [dbo].[NarRealSta_1_ND]
FOR INSERT
AS
BEGIN
    Declare @NarID        int,
            @Sifra_Art    varchar(20),
            @Kolic_Nar    decimal(18, 6),
            @Kolic_Dokr    decimal(18, 6),
            @KolicVoStNar    decimal(18, 6),
            @RealizKolic    decimal(18, 6),
            @Realiziran    char(1)
  DECLARE cRealSta CURSOR FAST_FORWARD FOR
         SELECT NarId, Sifra_Art, Kolic_Dokr, Kolic_Nar
         FROM Inserted
  OPEN cRealSta
  FETCH NEXT FROM cRealSta
  INTO @NarId, @Sifra_Art, @Kolic_Dokr, @Kolic_Nar
  While @@Fetch_Status = 0
  Begin
    SELECT @NarID = NarID, @Sifra_Art = Sifra_Art,  @Kolic_Dokr = Kolic_Dokr, @Kolic_Nar = Kolic_Nar
    FROM INSERTED
    SELECT @KolicVoStNar = Kolic, @RealizKolic = Realiz_Kolic, @Realiziran = Realiziran
    FROM StaNarac
    WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    if @RealizKolic is null
        set @RealizKolic = 0
    SET @RealizKolic = @RealizKolic + @Kolic_Dokr
    IF @RealizKolic = @KolicVoStNar
        SET @Realiziran = 'D'
    else if @RealizKolic <> 0
        SET @Realiziran = 'P'
    UPDATE StaNarac
    SET Realiz_Kolic = @RealizKolic, Realiziran = @Realiziran
    WHERE NarID = @NarID AND Sifra_Art = @Sifra_Art
    FETCH NEXT FROM cRealSta
    INTO @NarId, @Sifra_Art, @Kolic_Dokr, @Kolic_Nar
  end
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Naracki_Izmeni' AND type = 'TR') DROP TRIGGER tr_Naracki_Izmeni

Go
CREATE   TRIGGER tr_Naracki_Izmeni
ON dbo.Naracki
FOR UPDATE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Nar Smallint
   Declare @Broj_Nar Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Nar=Sifra_Nar, @Broj_Nar=Broj_Nar FROM Inserted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values
        (     GetDate(),
            'IzmenNar',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Nar:' + Cast(@Sifra_Nar As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Nar As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnZatv_Ins' AND type = 'TR') DROP TRIGGER tr_AnZatv_Ins

Go

CREATE         TRIGGER tr_AnZatv_Ins
ON dbo.AnZatv
FOR INSERT
AS
BEGIN
   Declare SiteZatv CURSOR FOR
    SELECT Anid1, Anid2, Iznos, Iznos_Dev FROM INSERTED
    Declare @Anid1 Int
    Declare @Anid2 Int
    Declare @Iznos Numeric(18, 4)
    Declare @Iznos_Dev Numeric(18, 4)
    Declare @Dolzi Numeric(18, 4)
    Declare @Pobaruva Numeric(18, 4)
    Declare @Plateno_Dolzi Numeric(18, 4)
    Declare @Plateno_Pobar Numeric(18, 4)
    Declare @DevDolzi Numeric(18, 4)
    Declare @DevPobaruva Numeric(18, 4)
    Declare @DevPlateno_Dolzi Numeric(18, 4)
    Declare @DevPlateno_Pobar Numeric(18, 4)
    Declare @Kurs Numeric(18,6)
    Declare @Sifra_Dok Smallint
    Declare @Vl_Izl Char(1)
    Declare @Sifra_Za Char(1)
    Declare @TipDok Char(1)
    Declare @Plus_Minus Char(1)
    Declare @Dev Char(1)
    Declare @Kom_I_Prim char(1)
    Declare @Kto char(10)
    Declare @DevZatvDen char(1)
    OPEN SiteZatv
    FETCH NEXT FROM SiteZatv
        INTO @Anid1, @Anid2, @Iznos, @Iznos_Dev
    WHILE @@FETCH_STATUS = 0
    Begin
        --------------------------------------------------
        --Go zemame prviot dokument identifikuvan so Anid1
        --------------------------------------------------
        SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva, @Sifra_Za=Sifra_Za,
            @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
            @DevDolzi=Dev_Dolzi, @DevPobaruva=Dev_Pobaruva,
            @DevPlateno_Dolzi=Dev_Plat_Dolzi, @DevPlateno_Pobar=Dev_Plat_Pobar,
            @Sifra_Dok=Sifra_Dok, @Kto=Kto, @Kurs=Kurs
        FROM AnFinDok WHERE ANID=@Anid1
        SELECT @Sifra_Dok=Sifra_Dok, @Vl_Izl=Vl_Izl, @Kom_I_Prim=Kom_I_Prim, --@Sifra_Za=Sifra_Za,
                @TipDok=TipDok, @Plus_Minus=Plus_Minus, @Dev = Dev
        FROM TipDok WHERE Sifra_Dok=@Sifra_Dok
        If @Kom_I_Prim='D' AND @TipDok='4' SET @TipDok='1'
        IF @Dev='D'
            SELECT @DevZatvDen=DevZatvDen FROM Anal WHERE Kto_Anal=@Kto
        IF @DevZatvDen IS NULL
            SET @DevZatvDen='N'
        IF (@Sifra_Za=1 AND @TipDok=1) OR (@Sifra_Za=2 AND @TipDok=2)
            Begin --Fra za Kupuvac ili Uplata na Dobavuvac
                If (@Dolzi>0 and @Iznos<0) or (@Dolzi<0 and @Iznos>0)
                Begin        --1
                    If @Dev = 'D'
                    Begin    --2
                        IF @DevZatvDen='D'
                        Begin
                            IF @Kurs=0
                            UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+round(@Iznos/@Kurs,2)  * -1,
                                    Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                        End
                        ELSE
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+@Iznos_Dev * -1,
                                    Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                    End    --2
                    Else
                        UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                End        --1
                Else
                Begin
                    If @Dev = 'D'
                    Begin
                        IF @DevZatvDen='D'
                        Begin
                            IF @Kurs=0
                            UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+round(@Iznos/@Kurs,2),
                                Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid1
                        End
                        ELSE
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+@Iznos_Dev,
                                Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid1
                    End
                    Else
                        UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid1
                End
            End
        ELSE IF (@Sifra_Za=1 AND @TipDok=2) OR (@Sifra_Za=2 AND @TipDok=1)
            Begin --Uplata od Kupuvac ili Fra od Dobavuvac
                If (@Pobaruva>0 and @Iznos<0) or (@Pobaruva<0 and @Iznos>0)
                Begin
                    If @Dev = 'D'
                    Begin
                        IF @DevZatvDen='D'
                        Begin
                            IF @Kurs=0
                                UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                                UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+round(@Iznos/@Kurs,2) * -1,
                                Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                        End
                        Else
                        UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+@Iznos_Dev * -1,
                                Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                    End
                    Else
                         UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                End
                Else
                Begin
                    If @Dev = 'D'
                    Begin
                        IF @DevZatvDen='D'
                        Begin
                            IF @Kurs=0
                                UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                                UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+ROUND(@Iznos/@Kurs,2),
                                Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid1
                        End
                        Else
                        UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+@Iznos_Dev,
                            Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid1
                    End
                    Else
                           UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid1
                End
            End
        ---------------------------------------------------
        --Go zemame vtoriot dokument identifikuvan so Anid2
        ---------------------------------------------------
        SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva,@Sifra_Za=Sifra_Za,
            @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
            @DevDolzi=Dev_Dolzi, @DevPobaruva=Dev_Pobaruva,
            @DevPlateno_Dolzi=Dev_Plat_Dolzi, @DevPlateno_Pobar=Dev_Plat_Pobar,
            @Sifra_Dok=Sifra_Dok
        FROM AnFinDok
        WHERE ANID=@Anid2
        SELECT @Sifra_Dok=Sifra_Dok, @Vl_Izl=Vl_Izl, @Kom_I_Prim=Kom_I_Prim, --@Sifra_Za=Sifra_Za,
                @TipDok=TipDok, @Plus_Minus=Plus_Minus, @Dev = Dev
        FROM TipDok     WHERE Sifra_Dok=@Sifra_Dok
        If @Kom_I_Prim='D' AND @TipDok='4' SET @TipDok='1'
        IF (@Sifra_Za=1 AND @TipDok=1) OR (@Sifra_Za=2 AND @TipDok=2)
            Begin --Fra za Kupuvac ili Uplata na Dobavuvac
                If (@Dolzi>0 and @Iznos<0) or (@Dolzi<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+@Iznos_Dev * -1,
                                Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                        Else
                            UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                    End
                Else
                    Begin
                        If @Dev = 'D'
                            UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi+@Iznos_Dev,
                                Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid2
                        Else
                            UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi+@Iznos, Prenesen='' WHERE ANID=@Anid2
                    End
            End
        ELSE IF (@Sifra_Za=1 AND @TipDok=2) OR (@Sifra_Za=2 AND @TipDok=1)
            Begin --Uplata od Kupuvac ili Fra od Dobavuvac
                If (@Pobaruva>0 and @Iznos<0) or (@Pobaruva<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                            UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+@Iznos_Dev * -1,
                                Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                        Else
                             UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                    End
                Else
                    Begin
                        If @Dev = 'D'
                             UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar+@Iznos_Dev,
                                Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid2
                        Else
                             UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar+@Iznos, Prenesen='' WHERE ANID=@Anid2
                    End
            End
        FETCH NEXT FROM SiteZatv
            INTO @Anid1, @Anid2, @Iznos, @Iznos_Dev
    End --While
    CLOSE SiteZatv
    DEALLOCATE SiteZatv
END --Trigger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo4_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo4_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo4_Vnes_Izmena
ON dbo.KDrugo4
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_4k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_4k = Sifra_4k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo4 Where Sifra_4k = @Sifra_4k)
    If @Propagiraj='D'
    Begin
        Update KDrugo4 Set Propagiraj=Null  Where Sifra_4k = @Sifra_4k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_4k From ' + @VtoraBaza + '..KDrugo4
                        Where Sifra_4k = ' + cast(@Sifra_4k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo4
                    Set Ime_4k=D.Ime_4k, Denovi=D.Denovi, Uces=D.Uces
                    From KDrugo4 D
                    Where D.Sifra_4k = ' + cast(@Sifra_4k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo4.Sifra_4k = ' + cast(@Sifra_4k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo4 Select * From KDrugo4 Where Sifra_4k= ' + cast(@Sifra_4k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnZatv_Del' AND type = 'TR') DROP TRIGGER tr_AnZatv_Del

Go




CREATE         TRIGGER tr_AnZatv_Del
ON dbo.AnZatv
FOR DELETE
AS
BEGIN
   Declare SiteZatv CURSOR FOR
        SELECT Anid1, Anid2, Iznos, Iznos_Dev FROM DELETED
    Declare @Anid1 Int
    Declare @Anid2 Int
    Declare @Iznos Numeric(18, 4)
    Declare @Iznos_Dev Numeric(18, 4)
    Declare @Dolzi Numeric(18, 4)
    Declare @Pobaruva Numeric(18, 4)
    Declare @Plateno_Dolzi Numeric(18, 4)
    Declare @Plateno_Pobar Numeric(18, 4)
    Declare @DevDolzi Numeric(18, 4)
    Declare @DevPobaruva Numeric(18, 4)
    Declare @DevPlateno_Dolzi Numeric(18, 4)
    Declare @DevPlateno_Pobar Numeric(18, 4)
    Declare @Kurs Numeric(18,6)
    Declare @Sifra_Dok Smallint
    Declare @Vl_Izl Char(1)
    Declare @Sifra_Za Char(1)
    Declare @TipDok Char(1)
    Declare @Plus_Minus Char(1)
    Declare @Dev Char(1)
    Declare @Kom_I_Prim char(1)
    Declare @Kto char(10)
    Declare @DevZatvDen char(1)
    OPEN SiteZatv
    FETCH NEXT FROM SiteZatv
        INTO @Anid1, @Anid2, @Iznos, @Iznos_Dev
    WHILE @@FETCH_STATUS = 0
    Begin
    --    insert into tmptmp (anid1, anid2, iznos) values (@anid1, @anid2, @iznos)
        --------------------------------------------------
        --Go zemame prviot dokument identifikuvan so Anid1
        --------------------------------------------------
        SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva, @Sifra_Za=Sifra_Za,
            @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
            @DevDolzi=Dev_Dolzi, @DevPobaruva=Dev_Pobaruva,
            @DevPlateno_Dolzi=Dev_Plat_Dolzi, @DevPlateno_Pobar=Dev_Plat_Pobar,
            @Sifra_Dok=Sifra_Dok, @Kto=Kto, @Kurs=Kurs
        FROM AnFinDok
        WHERE ANID=@Anid1
        SELECT @Sifra_Dok=Sifra_Dok, @Vl_Izl=Vl_Izl, @Kom_I_Prim=Kom_I_Prim, --@Sifra_Za=Sifra_Za,
                @TipDok=TipDok, @Plus_Minus=Plus_Minus, @Dev = Dev
        FROM TipDok WHERE Sifra_Dok=@Sifra_Dok
        If @Kom_I_Prim='D' AND @TipDok='4' SET @TipDok='1'
        IF @Dev='D'
            SELECT @DevZatvDen=DevZatvDen FROM Anal WHERE Kto_Anal=@Kto
        IF @DevZatvDen IS NULL
            SET @DevZatvDen='N'
        IF (@Sifra_Za=1 AND @TipDok=1) OR (@Sifra_Za=2 AND @TipDok=2)
            Begin --Fra za Kupuvac ili Uplata na Dobavuvac
                If (@Dolzi>0 and @Iznos<0) or (@Dolzi<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                        Begin    --2
                            IF @DevZatvDen='D'
                            Begin
                            IF @Kurs=0
                                UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                                UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-round(@Iznos/@Kurs,2) * -1,
                                Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            End
                            ELSE    --ne zatvden
                           UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-@Iznos_Dev * -1,
                            Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                        End        --2
                        Else    --ne e dev
                           UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                    End
                Else
                    Begin
                        If @Dev = 'D'
                        Begin    --2
                            IF @DevZatvDen='D'
                            Begin
                            IF @Kurs=0
                              UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                              UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-round(@Iznos/@Kurs,2),
                                Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid1
                            End
                            ELSE     --ne zatvden
                          UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-@Iznos_Dev,
                            Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid1
                        End        --2
                        Else    --ne e dev
                           UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid1
                    End
            End
        ELSE IF (@Sifra_Za=1 AND @TipDok=2) OR (@Sifra_Za=2 AND @TipDok=1)
            Begin --Uplata od Kupuvac ili Fra od Dobavuvac
                If (@Pobaruva>0 and @Iznos<0) or (@Pobaruva<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                        Begin    --2
                            IF @DevZatvDen='D'
                            Begin
                            IF @Kurs=0
                                UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                                UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-round(@Iznos/@Kurs,2) * -1,
                                Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                            End
                            ELSE     --ne zatvden
                            UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-@Iznos_Dev * -1,
                            Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                        End        --2
                         Else     --ne e dev
                           UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid1
                    End
                Else
                    Begin
                        If @Dev = 'D'
                        Begin    --2
                            IF @DevZatvDen='D'
                            Begin
                            IF @Kurs=0
                               UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid1
                            ELSE
                               UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-round(@Iznos/@Kurs,2),
                                Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid1
                            End
                            ELSE     --ne zatvden
                               UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-@Iznos_Dev,
                                Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid1
                        End        --2
                        Else
                           UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid1
                    End
            End
        ---------------------------------------------------
        --Go zemame vtoriot dokument identifikuvan so Anid2
        ---------------------------------------------------
        SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva, @Sifra_Za=Sifra_Za,
            @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
            @DevDolzi=Dev_Dolzi, @DevPobaruva=Dev_Pobaruva,
            @DevPlateno_Dolzi=Dev_Plat_Dolzi, @DevPlateno_Pobar=Dev_Plat_Pobar,
            @Sifra_Dok=Sifra_Dok
        FROM AnFinDok
        WHERE ANID=@Anid2
        SELECT @Sifra_Dok=Sifra_Dok, @Vl_Izl=Vl_Izl, @Kom_I_Prim=Kom_I_Prim, --@Sifra_Za=Sifra_Za,
                @TipDok=TipDok, @Plus_Minus=Plus_Minus, @Dev=Dev
        FROM TipDok WHERE Sifra_Dok=@Sifra_Dok
        If @Kom_I_Prim='D' AND @TipDok='4' SET @TipDok='1'
        IF (@Sifra_Za=1 AND @TipDok=1) OR (@Sifra_Za=2 AND @TipDok=2)
            Begin --Fra za Kupuvac ili Uplata na Dobavuvac
                If (@Dolzi>0 and @Iznos<0) or (@Dolzi<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                           UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-@Iznos_Dev * -1,
                            Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                        Else
                           UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                    End
                Else
                    Begin
                        If @Dev = 'D'
                          UPDATE AnFinDok SET Dev_Plat_Dolzi=@DevPlateno_Dolzi-@Iznos_Dev,
                            Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid2
                        Else
                           UPDATE AnFinDok SET Plateno_Dolzi=@Plateno_Dolzi-@Iznos, Prenesen='' WHERE ANID=@Anid2
                    End
            End
        ELSE IF (@Sifra_Za=1 AND @TipDok=2) OR (@Sifra_Za=2 AND @TipDok=1)
            Begin --Uplata od Kupuvac ili Fra od Dobavuvac
                If (@Pobaruva>0 and @Iznos<0) or (@Pobaruva<0 and @Iznos>0)
                    Begin
                        If @Dev = 'D'
                            UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-@Iznos_Dev * -1,
                            Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                         Else
                           UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos * -1, Prenesen='' WHERE ANID=@Anid2
                    End
                Else
                    Begin
                        If @Dev = 'D'
                           UPDATE AnFinDok SET Dev_Plat_Pobar=@DevPlateno_Pobar-@Iznos_Dev,
                            Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid2
                        Else
                           UPDATE AnFinDok SET Plateno_Pobar=@Plateno_Pobar-@Iznos, Prenesen='' WHERE ANID=@Anid2
                    End
            End
        FETCH NEXT FROM SiteZatv
            INTO @Anid1, @Anid2, @Iznos, @Iznos_Dev
    End --While
    CLOSE SiteZatv
    DEALLOCATE SiteZatv
END --Trigger

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KDrugo5_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KDrugo5_Vnes_Izmena

Go
CREATE  TRIGGER tr_KDrugo5_Vnes_Izmena
ON dbo.KDrugo5
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_5k    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_5k = Sifra_5k
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KDrugo5 Where Sifra_5k = @Sifra_5k)
    If @Propagiraj='D'
    Begin
        Update KDrugo5 Set Propagiraj=Null  Where Sifra_5k = @Sifra_5k
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_5k From ' + @VtoraBaza + '..KDrugo5
                        Where Sifra_5k = ' + cast(@Sifra_5k as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KDrugo5
                    Set Ime_5k=D.Ime_5k
                    From KDrugo5 D
                    Where D.Sifra_5k = ' + cast(@Sifra_5k as varchar(5)) + '
                    and ' + @VtoraBaza + '..KDrugo5.Sifra_5k = ' + cast(@Sifra_5k as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KDrugo5 Select * From KDrugo5 Where Sifra_5k= ' + cast(@Sifra_5k as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_ZacuvajKartProm_Klub_KumulC' AND type = 'TR') DROP TRIGGER tr_ZacuvajKartProm_Klub_KumulC

Go

CREATE   TRIGGER [dbo].[tr_ZacuvajKartProm_Klub_KumulC] ON [dbo].[KartProm_Klub_KumulC]
FOR INSERT
AS
    Declare @OsnovKumul int
    Declare @TokenStamp bigint
    Declare @Sifra_Kor varchar(20)
    Declare @TipTransVouch char(1)
    Declare @PoeniOdSmetka decimal(18, 2)
    Declare @PoeniDobieni decimal(18, 2)
    Declare @PoeniIskoristeni decimal(18, 2)
    Declare @Datum_Ska smalldatetime
    Select @Sifra_Kor=Sifra_Kor, @OsnovKumul=OsnovKumul, @TipTransVouch=TipTransVouch,
        @PoeniOdSmetka=PoeniOdSmetka, @PoeniIskoristeni=PoeniIskoristeni,
        @PoeniDobieni = PoeniDobieni, @Datum_Ska = Datum_Ska
    From Inserted
    --Set @VoCentralaSum = dbo.fix_VoCentralaSum()
    If dbo.fix_VoCentralaSum() = 'D'
    Begin
        If @TipTransVouch = 'V' And @PoeniOdSmetka <> 0
        Begin
            If Not Exists (Select Sifra_Kor From KartKor_Klub_KumulC Where Sifra_Kor=@Sifra_Kor And OsnovKumul=@OsnovKumul)
                Insert Into KartKor_Klub_KumulC (Sifra_Kor, OsnovKumul, Poeni_Prethodni_Meseci, Poeni_Tekoven_Mesec,
                    Datum_Posl_Izdavanje_Voucher, Dobiena_Vredn_Posl_Voucher, Dobieni_Voucheri_Vredn, Potroseni_Voucheri_Vredn)
                Values (@Sifra_Kor, @OsnovKumul, 0, @PoeniOdSmetka, Null, 0, 0, 0)
            Else
                Update KartKor_Klub_KumulC
                Set Poeni_Tekoven_Mesec = Poeni_Tekoven_Mesec + @PoeniOdSmetka
                Where Sifra_Kor=@Sifra_Kor And OsnovKumul=@OsnovKumul
        End
        Else If @TipTransVouch = 'T'    -- Trosenje na voucher
        Begin
            Update KartKor_Klub_KumulC
            Set Potroseni_Voucheri_Vredn = Potroseni_Voucheri_Vredn + @PoeniIskoristeni
            Where Sifra_Kor=@Sifra_Kor And OsnovKumul=@OsnovKumul
        End
        Else If @TipTransVouch = 'I' and @PoeniDobieni > 0    -- Izdavanje na voucher
        Begin
            Update KartKor_Klub_KumulC
            Set Dobieni_Voucheri_Vredn = Dobieni_Voucheri_Vredn + @PoeniDobieni,
                Datum_Posl_Izdavanje_Voucher = @Datum_Ska,
                Dobiena_Vredn_Posl_Voucher = @PoeniDobieni,
                Poeni_Tekoven_Mesec = case when Poeni_Tekoven_Mesec >= 1500 then 0 else Poeni_Tekoven_Mesec end,
                Poeni_Prethodni_Meseci = 0
            Where Sifra_Kor=@Sifra_Kor And OsnovKumul=@OsnovKumul
        End
    End

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Grupi_Vnes' AND type = 'TR') DROP TRIGGER tr_Grupi_Vnes

Go
CREATE  TRIGGER tr_Grupi_Vnes
ON dbo.Grupi
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Gr    varchar(6),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Gr = Sifra_Gr
    FROM INSERTED
-------------------------------------  Dodadeno 20.09.2004  za Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Grupi Where Sifra_Gr = @Sifra_Gr)
    If @Propagiraj='D'
    Begin
        Update Grupi Set Propagiraj=Null  Where Sifra_Gr = @Sifra_Gr
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Gr From ' + @VtoraBaza + '..Grupi
                        Where Sifra_Gr = ' + @Sifra_Gr + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Grupi
                    Set Ime_Gr=G.Ime_Gr
                    From Grupi G
                    Where G.Sifra_Gr = ''' + @Sifra_Gr + '''
                    and ' + @VtoraBaza + '..Grupi.Sifra_Gr = ''' + @Sifra_Gr + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Grupi Select * From Grupi Where Sifra_Gr= ''' + @Sifra_Gr + ''' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_KObjekti_Delete' AND type = 'TR') DROP TRIGGER tg_KObjekti_Delete

Go

CREATE TRIGGER tg_KObjekti_Delete
ON dbo.KObjekti
FOR Delete
AS
BEGIN
    Declare @Sifra_Kup Char(6)
    Declare @Sifra_Obj Smallint
    Select @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj From Deleted
    Select Sifra_Obj From KObjekti Where Sifra_Kup=@Sifra_Kup And Sifra_Obj>0
    If @Sifra_Obj=0 And @@ROWCOUNT>0
        Begin
        RaisError (50005,16,1) With Nowait
        Rollback Transaction
        End
    Else If @Sifra_Obj<>0 And @@ROWCOUNT=0
        Update Komint Set ImaObj=Null Where Sifra_Kup=@Sifra_Kup
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_DevStavKons_Insert' AND type = 'TR') DROP TRIGGER tr_DevStavKons_Insert

Go

CREATE  TRIGGER tr_DevStavKons_Insert
ON dbo.DevStavKons
FOR INSERT
AS
BEGIN
DECLARE
    @DevKonsID    Integer,
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Kons    int,
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6),
    @DevCena    decimal(18,6),
    @Uces        decimal(6,2),
    @CenaIznos    char(1),
    @Koleti        decimal(18,6),
    @Bruto        decimal(18,6),
    @Neto        decimal(18,6),
    @VlIzl        char(1),
    @KojaVal    char(3),
    @Sifra_Dok_Vlez    smallint,
    @Broj_Kons_Vlez    smallint,
    @Cena_Pak    decimal(18,6),
    @Vlez        Decimal(18,6),
    @Izlez        Decimal(18,6),
    @soaVlez    Decimal(18,6),
    @soaIzlez    Decimal(18,6),
    @soaCena    Decimal(18,6),
    @soaBruto_Vl    decimal(18, 6) ,
    @soaNeto_Vl    decimal(18, 6) ,
    @soaKoleti_Vl    decimal(18, 6),
    @soaBruto_Izl    decimal(18, 6),
    @soaNeto_Izl    decimal(18, 6) ,
    @soaKoleti_Izl    decimal(18, 6),
    @soaCena_Pak decimal(18, 6),
    @soaVr_Vlez    decimal(18, 6),
    @soaVr_Izlez    decimal(18, 6)
    Declare InsStavki Cursor Fast_Forward For
    Select I.Sifra_OE, I.Sifra_Dok, I.Broj_Kons, I.Sifra_Art, I.Kolic, I.DevCena,I.VlIzl, I.Koleti, I.Bruto, I.Neto,
        I.Sifra_Dok_Vlez, I.Broj_Kons_Vlez, I.Cena_Pak, D.KojaVal
    From Inserted  I INNER JOIN DevKons D  ON I.DevKonsID = D.DevKonsID
    Open InsStavki
    Fetch Next From InsStavki
    Into @Sifra_OE, @Sifra_Dok, @Broj_Kons, @Sifra_Art, @Kolic, @DevCena,@VlIzl, @Koleti, @Bruto, @Neto, @Sifra_Dok_Vlez,
        @Broj_Kons_Vlez, @Cena_Pak, @KojaVal
    While @@Fetch_Status = 0
    Begin
        If @VlIzl='V'
        Begin
            SET @Broj_Kons_Vlez = @Broj_Kons
            SET @Sifra_Dok_Vlez = @Sifra_Dok
        End
        IF @Kolic IS NULL SET @Kolic = 0
        IF @Bruto IS NULL SET @Bruto = 0
        IF @Neto IS NULL SET @Neto = 0
        IF @Koleti IS NULL SET @Koleti = 0
        -- Barame zapis vo soart
        Select @soaVlez=Vlez, @soaIzlez=Izlez, @soaCena=DevCena,
        @soaBruto_Vl=Bruto_Vl, @soaNeto_Vl=Neto_Vl, @soaKoleti_Vl=Koleti_Vl, @soaBruto_Izl=Bruto_Izl,
        @soaNeto_Izl=Neto_Izl, @soaKoleti_Izl=Koleti_Izl, @soaVr_Vlez=Vr_Vlez, @soaVr_Izlez=Vr_Izlez, @soaCena_Pak=Cena_Pak
        From SoartKons
        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_Dok = @Sifra_Dok_Vlez AND Broj_Kons = @Broj_Kons_Vlez
        -- Ako ne postoi dodavame nov, i zaradi performansi
        -- vednas gi popolnuvame potrebnite polinja
        IF @@ROWCOUNT = 0            -- Ne postoi zapis vo soart
            Begin                        -- pa vednas dodavame soodveten
                If @VlIzl = 'V'
                    Begin
                        Set @soaVlez =@Kolic
                        Set @soaIzlez=0
                        Set @soaBruto_Vl=@Bruto
                        Set @soaNeto_Vl=@Neto
                        Set @soaKoleti_Vl=@Koleti
                        Set @soaBruto_Izl=0
                        Set @soaNeto_Izl=0
                        Set @soaKoleti_Izl=0
                        Set @soaVr_Vlez=@Kolic * @DevCena
                        Set @soaVr_Izlez=0
                    End
                Else
                    Begin
                        Set @soaVlez =0
                        Set @soaIzlez=@Kolic
                        Set @soaBruto_Vl=0
                        Set @soaNeto_Vl=0
                        Set @soaKoleti_Vl=0
                        Set @soaBruto_Izl=@Bruto
                        Set @soaNeto_Izl=@Neto
                        Set @soaKoleti_Izl=@Koleti
                        Set @soaVr_Vlez=0
                        Set @soaVr_Izlez=@Kolic * @DevCena
                    End
                Insert SoartKons (Sifra_OE,  Sifra_Dok, Broj_Kons, Sifra_Art, Vlez, Izlez, DevCena, KojaVal,
                Bruto_Vl, Neto_Vl, Koleti_Vl, Bruto_Izl, Neto_Izl, Koleti_Izl, Vr_Vlez, Vr_Izlez, Cena_Pak)
                Values(@Sifra_OE, @Sifra_Dok_Vlez, @Broj_Kons_Vlez,@Sifra_Art, @soaVlez, @soaIzlez, @DevCena, @KojaVal,
                @soaBruto_Vl, @soaNeto_Vl, @soaKoleti_Vl, @soaBruto_Izl, @soaNeto_Izl, @soaKoleti_Izl, @soaVr_Vlez,
                @soaVr_Izlez, @Cena_Pak    )
            End
        ELSE    -- Postoi zapis vo Soart, @@ROWCOUNT <> 0
            Begin
                If @VlIzl = 'V'
                    Begin
                        Set @Vlez =@soaVlez+@Kolic
                        Set @soaBruto_Vl=@soaBruto_Vl + @Bruto
                        Set @soaNeto_Vl=@soaNeto_Vl + @Neto
                        Set @soaKoleti_Vl=@soaKoleti_Vl + @Koleti
                        Set @soaVr_Vlez= @soaVr_Vlez + @Kolic * @DevCena
                        Update SoartKons
                        Set Vlez=@Vlez, DevCena=@DevCena, KojaVal = @KojaVal, Cena_Pak=@Cena_Pak,
                        Bruto_Vl = @soaBruto_Vl, Neto_Vl = @soaNeto_Vl, Koleti_Vl = @soaKoleti_Vl, Vr_Vlez=@soaVr_Vlez
                        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND
                        Sifra_Dok = @Sifra_Dok_Vlez AND Broj_Kons = @Broj_Kons_Vlez
                    End
                Else    --@VlIzl='I'
                    Begin
                        Set @Izlez=@soaIzlez+@Kolic
                        Set @soaBruto_Izl=@soaBruto_Izl + @Bruto
                        Set @soaNeto_Izl=@soaNeto_Izl + @Neto
                        Set @soaKoleti_Izl=@soaKoleti_Izl + @Koleti
                        Set @soaVr_Izlez= @soaVr_Izlez + @Kolic * @DevCena
                        If @SoaCena = 0
                            Set @soaCena = @DevCena
                        If @SoaCena_Pak = 0
                            Set @soaCena_Pak = @Cena_Pak
                        Update SoartKons
                        Set Izlez=@Izlez, DevCena=@soaCena, Cena_Pak=@soaCena_Pak,
                        Bruto_Izl = @soaBruto_Izl, Neto_Izl = @soaNeto_Izl, Koleti_Izl = @soaKoleti_Izl, Vr_Izlez=@soaVr_Izlez
                        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND
                        Sifra_Dok = @Sifra_Dok_Vlez AND Broj_Kons = @Broj_Kons_Vlez
                    End
            END        -- IF @@ROWCOUNT = 0 ...
        Fetch Next From InsStavki Into @Sifra_OE, @Sifra_Dok, @Broj_Kons, @Sifra_Art, @Kolic, @DevCena,@VlIzl, @Koleti, @Bruto, @Neto, @Sifra_Dok_Vlez,
        @Broj_Kons_Vlez, @Cena_Pak, @KojaVal
    End --While
    Close InsStavki
    Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Stavr_Delete' AND type = 'TR') DROP TRIGGER tr_Stavr_Delete

Go


CREATE                    TRIGGER tr_Stavr_Delete
ON dbo.Stavr
FOR DELETE
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Dok        Smallint,
    @Broj_Dok        Int,
    @Sifra_Prim        Smallint,
    @ImaDodatna        Char(1),
    @VlIzl            Char(1),
    @Sifra_Art        varchar(20),
    @Kolic            Decimal(18,6),
    @DokCena        Decimal(18,6),
    @MagCena        Decimal(18,6),
    @NabCena        Decimal(18,6),
    @POsn            Decimal(6,2),
    @PTar            Char(3),
    @Uces            Decimal(6,2),
    @DanDokCena        Char(1),
    @DanMagCena        Char(1),
    @CenaIznos        Char(1),
    @Kod_Danok        Char(1),
    @Datum_Dok        Smalldatetime,
    @soaVlez        Decimal(18,6),
    @soaIzlez        Decimal(18,6),
    @soaCena        Decimal(18,6),
    @soaDanCena        Char(1),
    @soaPOsn        Decimal(6,2),
    @soaNabCena        Decimal(18,6),
    @soaDokCena        Decimal(18,6),
    @soaUces        Decimal(6,2),
    @Sifra_Razl        Char(3),
    @Kolicina        Decimal(18,6),
    @PocCena        Decimal(18,6),
    @KrCena        Decimal(18,6),
    @DanPocCena        Char(1),
    @DanKrCena        Char(1),
    @Vlez            Decimal(18,6),
    @Izlez            Decimal(18,6),
    @ZacuvajRazliki    Tinyint,
    @soaNNabCena    decimal(18,6),        -- Dodadeno 11/12/2003
    @NovaNabCena    decimal(18,6),
    @wKolic        Decimal(18,6),
    @Vr_Stara        Decimal(18,6),
    @Vr_Nova        Decimal(18,6),
    @Stara_kolic        decimal(18,6),
    @Nova_Kolic        decimal(18,6),
    @Nova_NNabCena    decimal(18,6),
    @Ima_Nova        char(1),
    @NMaxCena        decimal(18,6),
    @NMinCena        decimal(18,6),
    @KontrSer        varchar(40),
    @SoKontrVlez        decimal(18,6),
    @SoKontrIzlez        decimal(18,6),
    @Redosled        varchar(25)
    --@Nova_MaxCena    decimal(18,6),
    --@Nova_MinCena    decimal(18,6)
    Declare DelStavki Cursor Fast_Forward For
       Select Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna, VlIzl, Sifra_Art,
                 Kolic,DokCena, MagCena, NabCena, POsn, PTar, Uces,
                 DanDokCena, DanMagCena, Kod_Danok, Datum_Dok, KontrSer
       From Deleted
    Open DelStavki
    Fetch Next From DelStavki
        Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna, @VlIzl, @Sifra_Art,
              @Kolic, @DokCena, @MagCena, @NabCena, @POsn, @PTar, @Uces,
              @DanDokCena, @DanMagCena, @Kod_Danok, @Datum_Dok, @KontrSer
    While @@Fetch_Status = 0
    Begin
        -- Barame zapis vo soaart
        Select @soaVlez=Vlez, @soaIzlez=Izlez, @soaCena=Cena, @soaDanCena=DanCena,
            @soaPOsn=POsn, @soaNabCena=NabCena, @soaDokCena=DokCena, @soaUces=Uces,
            @soaNNabCena = NNabCena, @NMaxCena = NMaxCena, @NMinCena = NMinCena
        From Soart
        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
        -- Ako ne postoi dodavame nov, i zaradi performansi
        -- vednas gi popolnuvame potrebnite polinja
        IF @@ROWCOUNT = 0
            Begin                        -- pa vednas dodavame soodveten
                If @soaNNabCena IS NULL
                    SET @soaNNabCena = 0
                If @NMaxCena IS NULL
                    SET @NMaxCena = 0
                If @NMinCena IS NULL
                    SET @NMinCena = 0
                                    Set @ZacuvajRazliki=0
                 If @VlIzl = 'V'
                    Begin
                        Set @soaVlez = (-1) * @Kolic
                        Set @soaIzlez=0
                        Set @soaCena =@MagCena
                        Set @soaDanCena=@DanMagCena
                        Set @Nova_NNabCena = @NabCena
                    End
                Else
                    Begin
                        Set @soaVlez =0
                        Set @soaIzlez= (-1) * @Kolic
                        Set @soaCena =@DokCena * (1 - @Uces / 100)
                        Set @soaDanCena=@DanDokCena
                        Set @Nova_NNabCena = 0
                    End
                Set @soaPOsn   =@POsn
                Set @soaNabCena=@NabCena
                Set @soaDokCena=@DokCena
                Set @soaUces   =@Uces
                Insert Soart (Sifra_OE,  Sifra_Art,  Vlez,     Izlez,     Cena,     DanCena,     POsn,     NabCena,     DokCena,     Uces, NNabCena)
                Values(@Sifra_OE, @Sifra_Art, @soaVlez, @soaIzlez, @soaCena, @soaDanCena, @soaPosn, @soaNabCena, @soaDokCena, @soaUces, @Nova_NNabCena)
                -- Ako zapisuvame nesto vo RazlCeni, da se napravi ovde
                                                     -- Treba samo ako sakame da ima evidencija na promenata na cena, iako vrednosta na razlikata ke e 0 i ne vlijae na slaganjeto
            End
        ELSE    -- Postoi zapis vo Soart, @@ROWCOUNT <> 0
            Begin
                If @soaNNabCena IS NULL
                    SET @soaNNabCena = 0
                If @NMaxCena IS NULL
                    SET @NMaxCena = 0
                If @NMinCena IS NULL
                    SET @NMinCena = 0
                Set @Stara_Kolic = @soaVlez - @soaIzlez                --dod. 11.12.03
                If @soaNNabCena <> 0
                    SET @Vr_Stara = @soaNNabCena * @Stara_Kolic
                Else
                    SET @Vr_Stara = @NabCena * @Stara_Kolic            --dod. 11.12.03
                If @VlIzl = 'V'
                    Begin
                        Set @Vlez =@soaVlez-@Kolic
                        Set @Izlez=@soaIzlez
                        SET @Vr_Nova = @Vr_Stara + @NabCena * @Kolic * (-1)        --dod. 11.12.03
                        SET @Nova_Kolic = @Stara_Kolic + @Kolic * (-1)            --dod. 11.12.03
                    End
                Else -- @VlIzl = 'I'
                    Begin
                        Set @Vlez=@soaVlez
                        Set @Izlez=@soaIzlez-@Kolic
                        SET @Vr_Nova = @Vr_Stara + @NabCena * @Kolic        --dod. 11.12.03
                        SET @Nova_Kolic = @Stara_Kolic + @Kolic            --dod. 11.12.03
                    End
                Begin                                        --dod. 11.12.03
                    SET @Ima_Nova = 'N'      --Ne postoese do Mar 15, 2004
                    If Abs(@Nova_Kolic) > 0.000001
                        Begin
                            SET @Nova_NNabCena = @Vr_Nova / @Nova_Kolic
                            If @Nova_NNabCena > 0
                            SET @Ima_Nova = 'D'
                        End
                    If @Ima_Nova = 'N'
                    Begin
                        If @soaNNabCena <> 0
                            SET @Nova_NNabCena = @soaNNabCena
                        Else
                            SET @Nova_NNabCena = @NabCena
                    End
                    SET @Nova_NNabCena = dbo.Pros_Min_Max(@Nova_NNabCena, @NMinCena, @NMaxCena, 0)
                End
                Update Soart
                Set Vlez=@Vlez, Izlez=@Izlez, NNabCena = @Nova_NNabCena
                Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
                -- Zapisuvame vo RazlCeni ako e potrebno
                If @VlIzl='V'
                    Begin
                        If @DanMagCena = 'D'
                            Set @MagCena=@MagCena/(1+@POsn/100)
                        If @soaDanCena = 'D'
                            Set @soaCena=@soaCena/(1+@soaPOsn/100)
                        If Abs(@MagCena-@soaCena)>=0.001
                            Begin
                                Set @ZacuvajRazliki = 1
                                If @DanMagCena = 'D'
                                    Set @MagCena=@MagCena*(1+@POsn/100)
                                If @soaDanCena = 'D'
                                    Set @soaCena=@soaCena*(1+@soaPOsn/100)
                                Set @Sifra_Razl='903'
                                Set @Kolicina=@Kolic
                                Set @PocCena=@soaCena
                                Set @KrCena =@MagCena
                                Set @DanPocCena=@soaDanCena
                                Set @DanKrCena =@DanMagCena
                            End
                        Else
                            Set @ZacuvajRazliki = 0
                    End
                Else If @VlIzl='I'
                    Begin
                        If @DanDokCena = 'D'
                            Set @DokCena=@DokCena/(1+@POsn/100)
                        If @soaDanCena = 'D'
                            Set @soaCena=@soaCena/(1+@soaPOsn/100)
                        Set @DokCena=@DokCena*(1-@Uces/100)
                        If Abs(@DokCena-@soaCena)>=0.001
                            Begin
                                Set @ZacuvajRazliki = 1
                                If @DanDokCena = 'D'
                                    Set @DokCena=@DokCena*(1+@POsn/100)
                                If @soaDanCena = 'D'
                                    Set @soaCena=@soaCena*(1+@soaPOsn/100)
                                Set @Sifra_Razl='904'
                                Set @Kolicina=(-1)*@Kolic
                                Set @PocCena=@soaCena
                                Set @KrCena =@DokCena
                                Set @DanPocCena=@soaDanCena
                                Set @DanKrCena =@DanDokCena
                            End
                        Else
                            Set @ZacuvajRazliki = 0
                    End
                If @ZacuvajRazliki = 1
                    Insert RazlCeni
                    (Sifra_Razl,  Sifra_OE,  Orig_Dok, Orig_Broj, Orig_Prim, Orig_ImaDod, Broj_Nal, Sifra_Art, Kolic, PocCena, KrCena, POsn, PTar, DanPocCena,  DanKrCena, Datum_Dok, Datum_Vnes, Sifra_Oper)
                    Values(@Sifra_Razl, @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna, NULL, @Sifra_Art, @Kolicina, @PocCena,
                    @KrCena, @POsn, @PTar, @DanPocCena, @DanKrCena, @Datum_Dok, GETDATE(),SUSER_SNAME())
            END        -- IF @@ROWCOUNT = 0 ...
--Sega ke az. vo SoKontrSer kade sto ima kontr.br
    IF @KontrSer IS NOT NULL   AND @KontrSer <> '' AND (SubString(@KontrSer,1,3)='RR>' OR SubString(@KontrSer,1,3)='KK>' OR SubString(@KontrSer,1,3)='DD>')
    Begin
        SELECT @soKontrVlez = Vlez, @SoKontrIzlez = Izlez FROM SoKontrSer
        WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND KontrSer = @KontrSer
        IF @@ROWCOUNT = 0
        Begin
            SET @Redosled = dbo.fn_VratiGodMesDen (@KontrSer, @Datum_Dok)
            SET @soKontrVlez = 0
            SET @SoKontrIzlez = 0
            IF @VlIzl = 'V'
                SET @soKontrVlez = @Kolic * -1
            IF @VlIzl = 'I'
                SET @soKontrIzlez = @Kolic * -1
            INSERT SoKontrSer (Sifra_OE, Sifra_Art, KontrSer, Vlez, Izlez, Redosled)
            VALUES (@Sifra_OE, @Sifra_Art, @KontrSer, @soKontrVlez, @SoKontrIzlez, @Redosled)
        End
        ELSE
        Begin
            IF @VlIzl = 'V'
                SET @soKontrVlez = @soKontrVlez - @Kolic
            IF @VlIzl = 'I'
                SET @soKontrIzlez = @soKontrIzlez - @Kolic
            UPDATE SoKontrSer SET Vlez = @SoKontrVlez, Izlez = @SoKontrIzlez
            WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND KontrSer = @KontrSer
        End
    End
        Fetch Next From DelStavki Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna,
            @VlIzl, @Sifra_Art, @Kolic, @DokCena, @MagCena, @NabCena,
            @POsn, @PTar, @Uces, @DanDokCena, @DanMagCena, @Kod_Danok, @Datum_Dok, @KontrSer
    End --While
    Close DelStavki
    Deallocate DelStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Podgrupi_Vnes' AND type = 'TR') DROP TRIGGER tr_Podgrupi_Vnes

Go
CREATE  TRIGGER tr_Podgrupi_Vnes
ON dbo.Podgrupi
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Podg    char(6),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Podg = Sifra_Podg
    FROM INSERTED
-------------------------------------  Dodadeno 20.09.2004  za Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Podgrupi Where Sifra_Podg = @Sifra_Podg)
    If @Propagiraj='D'
    Begin
        Update Podgrupi Set Propagiraj=Null  Where Sifra_Podg = @Sifra_Podg
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Podg From ' + @VtoraBaza + '..Podgrupi
                        Where Sifra_Podg = ' + @Sifra_Podg + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Podgrupi
                    Set Ime_Podg=P.Ime_Podg, Ime_Podg2=P.Ime_Podg2, Sifra_Gr=P.Sifra_Gr, DodadenNa=P.DodadenNa,
                    DodadenOd=P.DodadenOd, IzmenetNa=P.IzmenetNa, IzmenetOd=P.IzmenetOd, Period_Nar=P.Period_Nar,
                    Period_Sigurno=P.Period_Sigurno, Marza_Gol=P.Marza_Gol, Marza_Mal=P.Marza_Mal
                    From Podgrupi P
                    Where P.Sifra_Podg = ''' + @Sifra_Podg + '''
                    and ' + @VtoraBaza + '..Podgrupi.Sifra_Podg = ''' + @Sifra_Podg + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Podgrupi Select * From Podgrupi Where Sifra_Podg= ''' + @Sifra_Podg + ''' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KatAmb_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_KatAmb_Vnes_Izmena

Go
CREATE  TRIGGER tr_KatAmb_Vnes_Izmena
ON dbo.KatAmb
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Amb    char(6),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Amb = Sifra_Amb
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KatAmb Where Sifra_Amb = @Sifra_Amb)
    If @Propagiraj='D'
    Begin
        Update KatAmb Set Propagiraj=Null  Where Sifra_Amb = @Sifra_Amb
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Amb From ' + @VtoraBaza + '..KatAmb
                        Where Sifra_Amb = ' + cast(@Sifra_Amb as varchar(6)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KatAmb
                    Set ImeAmb=D.ImeAmb, SodrziArt=D.SodrziArt, Sifra_GAmb=D.Sifra_GAmb, DodadenNa=D.DodadenNa,
                    DodadenOd=D.DodadenOd, IzmenetNa=D.IzmenetNa, IzmenetOd=D.IzmenetOd, VoGAmb=D.VoGAmb
                    From KatAmb D
                    Where D.Sifra_Amb= ' + @Sifra_Amb + '
                    and ' + @VtoraBaza + '..KatAmb.Sifra_Amb = ' + @Sifra_Amb + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KatAmb Select * From KatAmb Where Sifra_Amb= ' + @Sifra_Amb + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Stavr_Insert' AND type = 'TR') DROP TRIGGER tr_Stavr_Insert

Go


CREATE                                   TRIGGER tr_Stavr_Insert
ON dbo.Stavr
FOR INSERT
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Dok        Smallint,
    @Broj_Dok        Int,
    @Sifra_Prim        Smallint,
    @ImaDodatna        Char(1),
    @VlIzl            Char(1),
    @Sifra_Art        varchar(20),
    @Kolic            Decimal(18,6),
    @DokCena        Decimal(18,6),
    @MagCena        Decimal(18,6),
    @NabCena        Decimal(18,6),
    @POsn            Decimal(6,2),
    @PTar            Char(3),
    @Uces            Decimal(6,2),
    @DanDokCena        Char(1),
    @DanMagCena        Char(1),
    @CenaIznos        Char(1),
    @Kod_Danok        Char(1),
    @Datum_Dok        Smalldatetime,
    @soaVlez        Decimal(18,6),
    @soaIzlez        Decimal(18,6),
    @soaCena        Decimal(18,6),
    @soaDanCena        Char(1),
    @soaPOsn        Decimal(6,2),
    @soaNabCena        Decimal(18,6),
    @soaDokCena        Decimal(18,6),
    @soaUces        Decimal(6,2),
    @soaNNabCena    Decimal(18,6),
    @Sifra_Razl        Char(3),
    @Kolicina        Decimal(18,6),
    @PocCena        Decimal(18,6),
    @KrCena        Decimal(18,6),
    @DanPocCena        Char(1),
    @DanKrCena        Char(1),
    @Vlez            Decimal(18,6),
    @Izlez            Decimal(18,6),
    @Cena            Decimal(18,6),
    @DanCena        Char(1),
    @ZacuvajRazliki    Tinyint,
    @POsnNov        Decimal(6,2),        -- Dodadeno na 01/10/2003
    @DanCenaNov        Char(1),            -- Kraj za dodadeno na 01/10/2003
    @DokID        int,                   -- 03.12.03
    @NovaNabCena    decimal(18,6),        -- Dodadeno 11/12/2003
    @wKolic        Decimal(18,6),
    @Vr_Stara        Decimal(18,6),
    @Vr_Nova        Decimal(18,6),
    @Stara_kolic        decimal(18,6),
    @Nova_Kolic        decimal(18,6),
    @Nova_NNabCena    decimal(18,6),
    @Ima_Nova        char(1),
    @NMaxCena        decimal(18,6),
    @NMinCena        decimal(18,6),
    @Nova_MaxCena    decimal(18,6),
    @Nova_MinCena    decimal(18,6),
    @CenaNNabDava       decimal(18,6),
    @Nisto                  int,
    @KontrSer        varchar(40),
    @SoKontrVlez        decimal(18,6),
    @SoKontrIzlez        decimal(18,6),
    @Redosled        varchar(25),
        @DaliCenaSoa         char (1),
        @NabCenaZadad        char (1)
    SET @Ima_Nova = 'N'
    Declare InsStavki Cursor Fast_Forward For
       Select Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna, VlIzl, Sifra_Art,
                 Kolic,DokCena, MagCena, NabCena, POsn, PTar, Uces,
                 DanDokCena, DanMagCena, Kod_Danok, Datum_Dok, DokID, KontrSer, DaliCenaSoa, NabCenaZadad
       From Inserted
    Open InsStavki
    Fetch Next From InsStavki
        Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna, @VlIzl, @Sifra_Art,
              @Kolic, @DokCena, @MagCena, @NabCena, @POsn, @PTar, @Uces,
              @DanDokCena, @DanMagCena, @Kod_Danok, @Datum_Dok, @DokID, @KontrSer, @DaliCenaSoa, @NabCenaZadad
    While @@Fetch_Status = 0
    Begin
                -- Dodadeno 3.3.2004
                -- Ako e prenosnica, vidi ja cenata na strana DAVA vo SOART
        Begin
                If @ImaDodatna is null
                set @Nisto = 0
            Else if @ImaDodatna = 'P' and @VlIzl = 'V'
            Begin
                            if @NabCenaZadad = 'D'
                set @Nisto = 0
                            else if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe, @Sifra_Dok, @Sifra_Prim) = 'N'
                               begin
                                 -- ne treba da gleda od SOART od DAVA, tuku ednostavno toa e DOK.CENATA
                                 set @Nabcena = dbo.fn_vraticena(@Dokcena, @Posn, @DanDokCena, 'N')
                                 update stavr SET NabCena = @NabCena
                        WHERE DokID = @DokID
                               end
                            else
                              begin
                Select @CenaNNabDava = NNabCena
                From Soart
                Where Sifra_OE=@Sifra_Prim And Sifra_Art=@Sifra_Art     --Vsusnost e ORG - DAVA
                IF @@ROWCOUNT = 0            -- Ne postoi zapis vo soart
                    Set @Nisto = 0
                Else
                Begin
                    Set @NabCena = @CenaNNabDava
                    IF @NabCena IS NULL   SET @NabCena=0
                    If @NabCena > 0
                        UPDATE Stavr SET NabCena = @NabCena     --trgnato 24.03.04 RNabC = 'D'
                        WHERE DokID = @DokID                    --dod. 11.12.03
                End
                              end
            End
        End
        -- Gotovo so 3.3.2004 za prenosnicite
        -- Barame zapis vo soart
        Select @soaVlez=Vlez, @soaIzlez=Izlez, @soaCena=Cena, @soaDanCena=DanCena, @soaPOsn=POsn,
            @soaNabCena=NabCena, @soaDokCena=DokCena, @soaUces=Uces, @soaNNabCena = NNabCena,
            @NMaxCena = NMaxCena, @NMinCena = NMinCena
        From Soart
        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
        -- Ako ne postoi dodavame nov, i zaradi performansi
        -- vednas gi popolnuvame potrebnite polinja
        IF @@ROWCOUNT = 0            -- Ne postoi zapis vo soart
            Begin                        -- pa vednas dodavame soodveten
                If @soaNNabCena IS NULL
                    SET @soaNNabCena = 0
                If @NMaxCena IS NULL
                    SET @NMaxCena = 0
                If @NMinCena IS NULL
                    SET @NMinCena = 0
                If @VlIzl = 'V'
                    Begin
                        Set @soaVlez = @Kolic
                        Set @soaIzlez = 0
                        Set @soaCena = @MagCena
                        Set @soaDanCena = @DanMagCena
                        Set @Nova_NNabCena    = @NabCena
                        Set @Nova_MaxCena    = @NabCena
                        Set @Nova_MinCena    = @NabCena
                        if @ImaDodatna is null
                            begin
                                Set @soaNabCena = @NabCena
                                Set @soaDokCena = @DokCena
                                Set @soaUces    = @Uces
                                if @DanDokCena = 'N'
                                Set @soaDokCena = @soaDokCena * (1 + @POsn / 100)
                            end
                                                else
                                                    begin
                                Set @soaNabCena = 0
                                Set @soaDokCena = 0
                                Set @soaUces    = 0
                                                    end
                    End
                Else
                    Begin
                        Set @soaVlez = 0
                        Set @soaIzlez = @Kolic
                        Set @soaCena = @DokCena * (1 - @Uces / 100)
                        Set @soaDanCena = @DanDokCena
                        Set @Nova_NNabCena = 0
                        Set @Nova_MaxCena    = 0
                        Set @Nova_MinCena    = 0
                        Set @soaNabCena = 0
                        Set @soaDokCena = 0
                        Set @soaUces    = 0
                    End
                Set @soaPOsn   =@POsn
                --- Do Sept 22, 07  gresno  Set @soaNabCena=@NabCena
                --- Do Sept 22, 07  gresno  Set @soaDokCena=@DokCena
                --- Do Sept 22, 07  gresno  Set @soaUces   =@Uces
                Insert Soart (Sifra_OE, Sifra_Art, Vlez, Izlez, Cena, DanCena, POsn, NabCena, DokCena, Uces, NNabCena, NMaxCena, NMinCena)
                Values(@Sifra_OE, @Sifra_Art, @soaVlez, @soaIzlez, @soaCena, @soaDanCena, @soaPosn, @soaNabCena, @soaDokCena, @soaUces,
                     @Nova_NNabCena, @Nova_MaxCena, @Nova_MinCena)
                -- Ako zapisuvame nesto vo RazlCeni, da se napravi ovde
                                -- Treba samo ako sakame da ima evidencija na promenata na cena, iako vrednosta na razlikata ke e 0 i ne vlijae na slaganjeto
                if @VlIzl = 'V'            -- Dodadeno Noe 18, 2005 DK
                                Begin
                    Insert RazlCeni
                    (Sifra_Razl,  Sifra_OE,  Orig_Dok,   Orig_Broj, Orig_Prim,   Orig_ImaDod,
                    Broj_Nal,  Sifra_Art,  Kolic, PocCena,  KrCena,  POsn,  PTar,  DanPocCena,  DanKrCena,  Datum_Dok, Datum_Vnes, Sifra_Oper)
                    Values('903', @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna, NULL,
                        @Sifra_Art, 0, 0, @SoaCena, @POsn, @PTar, @SoaDanCena, @SoaDanCena, @Datum_Dok, GETDATE(),SUSER_SNAME())
                                end
            End
        ELSE    -- Postoi zapis vo Soart, @@ROWCOUNT <> 0
            Begin
                If @soaNNabCena IS NULL
                    SET @soaNNabCena = 0
                If @NMaxCena IS NULL
                    SET @NMaxCena = 0
                If @NMinCena IS NULL
                    SET @NMinCena = 0
                If @VlIzl = 'V'
                    Begin
                        Set @Vlez =@soaVlez+@Kolic
                        Set @Izlez=@soaIzlez
                        Set @Stara_Kolic = @soaVlez - @soaIzlez                --dod. 11.12.03
                        If @soaNNabCena <> 0
                             SET @Vr_Stara = @soaNNabCena * @Stara_Kolic
                        Else
                             SET @Vr_Stara = @NabCena * @Stara_Kolic
                        SET @Vr_Nova = @Vr_Stara + @NabCena * @Kolic
                        SET @Nova_Kolic = @Stara_Kolic + @Kolic
                        SET @Ima_Nova = 'N'
                        If Abs(@Nova_Kolic) > 0.000001
                            Begin
                              SET @Nova_NNabCena = @Vr_Nova / @Nova_Kolic
                              If @Nova_NNabCena > 0
                                SET @Ima_Nova = 'D'
                            End
                        If @Ima_Nova = 'N'
                        Begin
                            If @NabCena <> 0
                                SET @Nova_NNabCena = @NabCena
                            Else
                                SET @Nova_NNabCena = @soaNNabCena
                        End
                        SET @Nova_NNabCena = dbo.Pros_Min_Max(@Nova_NNabCena, @NMinCena, @NMaxCena, @NabCena)
                        SET @Nova_MaxCena = @NMaxCena
                        SET @Nova_MinCena = @NMinCena
                        If @NabCena > 0 and (@NabCena < @Nova_MinCena or @Nova_MinCena <= 0)
                            SET @Nova_MinCena = @NabCena
                        If @NabCena > 0 and (@NabCena > @Nova_MaxCena or @Nova_MaxCena <= 0)
                            SET @Nova_MaxCena = @NabCena            --dod. 11.12.03
                                                if @DaliCenaSoa = 'N'
                            Begin
                                Set @Cena=@soaCena
                                Set @POsnNov=@soaPOsn
                                Set @DanCenaNov=@soaDanCena
                            End
                        else
                          begin
                                     If @Kolic >= 0    -- DK Okt 27, 2010 -- bese samo > 0 i ne ja menuvase kat.cena pri kolic = 0
                            Begin
                                Set @Cena=@MagCena
                                Set @POsnNov=@POsn
                                Set @DanCenaNov=@DanMagCena
                                if @ImaDodatna is null
                                    begin
                                        Set @soaNabCena = @NabCena
                                        Set @soaDokCena = @DokCena
                                        Set @soaUces    = @Uces
                                        if @DanDokCena = 'N'
                                            Set @soaDokCena = @soaDokCena * (1 + @POsn / 100)
                                    end
                            End
                             Else    --@Kolic < 0
                            Begin
                                Set @Cena=@soaCena
                                Set @POsnNov=@soaPOsn
                                Set @DanCenaNov=@soaDanCena
                            End
                                                  end
                        Update Soart
                        Set Vlez=@Vlez, Izlez=@Izlez, Cena=@Cena,
                            NabCena=@soaNabCena, DokCena=@soaDokCena, DanCena=@DanCenaNov,
                            Uces=@soaUces, POsn=@POsnNov,
                            NNabCena = @Nova_NNabCena, NMaxCena = @Nova_MaxCena, NMinCena = @Nova_MinCena
                        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
                    End
                Else    --@VlIzl='I'
                    Begin
                           Set @Vlez=@soaVlez
                       Set @Izlez=@soaIzlez+@Kolic
                                   if @NabCenaZadad = 'D'
                        set @Nisto = 0
                                   else if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe, @Sifra_Dok, @Sifra_Prim) = 'N'
                                     begin
                                         -- ne treba da gleda od SOART, tuku ednostavno toa e DOK.CENATA
                                            update stavr SET NabCena = dbo.fn_vraticena(@Dokcena, @Posn, @DanDokCena, 'N')
                            WHERE DokID = @DokID
                                     end
                                           else
                                         begin
                        if @soaNNabCena > 0                            --dod. 11.12.03
                            UPDATE Stavr SET NabCena = @soaNNabCena             --trgnato 24.03.04, RNabC = 'D'
                            WHERE DokID = @DokID                    --dod. 11.12.03
                                             end
                                         Update Soart
                       Set Vlez=@Vlez, Izlez=@Izlez
                       Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
                    End
                -- Zapisuvame vo RazlCeni ako e potrebno
                If @VlIzl='V'
                    Begin
                        If @DanMagCena = 'D'
                            Set @MagCena=@MagCena/(1+@POsn/100)
                        If @soaDanCena = 'D'
                            Set @soaCena=@soaCena/(1+@soaPOsn/100)
                        If Abs(@MagCena-@soaCena)>=0.001
                            Begin
                                If @DanMagCena = 'D'
                                    Set @MagCena=@MagCena*(1+@POsn/100)
                                If @soaDanCena = 'D'
                                    Set @soaCena=@soaCena*(1+@soaPOsn/100)
                                Set @ZacuvajRazliki = 1
                                Set @Sifra_Razl='903'
                                                                if @DaliCenaSoa = 'N'
                                                                  begin
                                     Set @Kolicina=@Kolic
                                                                     Set @KrCena=@soaCena
                                     Set @PocCena =@MagCena
                                     Set @DanKrCena=@soaDanCena
                                     Set @DanPocCena =@DanMagCena
                                                                  end
                                                                else
            begin
                                     If @Kolic > 0
                                    Set @Kolicina=@soaVlez-@soaIzlez
                                     Else
                                     Set @Kolicina=(-1)*@Kolic
                                                                     Set @PocCena=@soaCena
                                     Set @KrCena =@MagCena
                                      Set @DanPocCena=@soaDanCena
                                     Set @DanKrCena =@DanMagCena
                                                                  end
                            End
                        Else
                            Set @ZacuvajRazliki = 0
                    End
                Else If @VlIzl='I'
                    Begin
                        If @DanDokCena = 'D'
                            Set @DokCena=@DokCena/(1+@POsn/100)
                        If @soaDanCena = 'D'
                            Set @soaCena=@soaCena/(1+@soaPOsn/100)
                        Set @DokCena=@DokCena*(1-@Uces/100)
                        If Abs(@DokCena-@soaCena)>=0.001
                            Begin
                                If @DanDokCena = 'D'
                                    Set @DokCena=@DokCena*(1+@POsn/100)
                                If @soaDanCena = 'D'
                                    Set @soaCena=@soaCena*(1+@soaPOsn/100)
                                Set @ZacuvajRazliki = 1
                                Set @Sifra_Razl='904'
                                Set @Kolicina=@Kolic
                                Set @PocCena=@soaCena
                                Set @KrCena =@DokCena
                                Set @DanPocCena=@soaDanCena
                                Set @DanKrCena =@DanDokCena
                            End
                        Else
                            Set @ZacuvajRazliki = 0
                    End
                If @ZacuvajRazliki = 1
                    Insert RazlCeni
                    (Sifra_Razl,  Sifra_OE,  Orig_Dok,   Orig_Broj, Orig_Prim,     Orig_ImaDod, Broj_Nal,  Sifra_Art,  Kolic, PocCena,  KrCena,  POsn,  PTar,  DanPocCena,  DanKrCena,  Datum_Dok, Datum_Vnes, Sifra_Oper)
                    Values(@Sifra_Razl, @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim,    @ImaDodatna, NULL, @Sifra_Art, @Kolicina, @PocCena,
                    @KrCena, @POsn, @PTar, @DanPocCena, @DanKrCena, @Datum_Dok, GETDATE(),SUSER_SNAME())
            END        -- IF @@ROWCOUNT = 0 ...
        --Sega ke az. vo SoKontrSer kade sto ima kontr.br
        IF @KontrSer IS NOT NULL   AND @KontrSer <> '' AND (SubString(@KontrSer,1,3)='RR>' OR SubString(@KontrSer,1,3)='KK>' OR SubString(@KontrSer,1,3)='DD>')
        Begin
            SET @Redosled = dbo.fn_VratiGodMesDen (@KontrSer, @Datum_Dok)
            SELECT @soKontrVlez = Vlez, @SoKontrIzlez = Izlez FROM SoKontrSer
            WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND KontrSer = @KontrSer
            IF @@ROWCOUNT = 0
            Begin
                SET @soKontrVlez = 0
                SET @SoKontrIzlez = 0
                IF @VlIzl = 'V'
                    SET @soKontrVlez = @Kolic
                IF @VlIzl = 'I'
                    SET @soKontrIzlez = @Kolic
                INSERT SoKontrSer (Sifra_OE, Sifra_Art, KontrSer, Vlez, Izlez, Redosled)
                VALUES (@Sifra_OE, @Sifra_Art, @KontrSer, @soKontrVlez, @SoKontrIzlez, @Redosled)
            End
            ELSE
            Begin
                IF @SoKontrVlez = 0
                    UPDATE SoKontrSer SET Redosled = @Redosled
                WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND KontrSer = @KontrSer
                IF @VlIzl = 'V'
                    SET @soKontrVlez = @soKontrVlez + @Kolic
                IF @VlIzl = 'I'
                    SET @soKontrIzlez = @soKontrIzlez + @Kolic
                UPDATE SoKontrSer SET Vlez = @SoKontrVlez, Izlez = @SoKontrIzlez
                WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND KontrSer = @KontrSer
            End
        End
        Fetch Next From InsStavki Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna,
            @VlIzl, @Sifra_Art, @Kolic, @DokCena, @MagCena, @NabCena,
            @POsn, @PTar, @Uces, @DanDokCena, @DanMagCena, @Kod_Danok, @Datum_Dok, @DokID, @KontrSer, @DaliCenaSoa, @NabCenaZadad
    End --While
    Close InsStavki
    Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Dokr_Zacuvaj' AND type = 'TR') DROP TRIGGER tr_Dokr_Zacuvaj

Go

CREATE     TRIGGER tr_Dokr_Zacuvaj
ON dbo.Dokr
FOR INSERT
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
   Declare @Imadodatna char(1)
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Dok=Sifra_Dok, @Broj_Dok=Broj_Dok, @Imadodatna=Imadodatna
   FROM Inserted
  if (@Imadodatna = 'D' or @Imadodatna is null or ltrim(@Imadodatna) = '' or @Imadodatna='Z')
    AND @Broj_Dok IS NOT NULL
     begin
       IF EXISTS(SELECT * FROM Brdok WITH(NOLOCK) WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok)
          UPDATE Brdok SET Broj_Dok=@Broj_Dok WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok
       ELSE
          INSERT INTO Brdok(Sifra_OE, Sifra_Dok, Broj_Dok)
                 VALUES(@Sifra_OE, @Sifra_Dok, @Broj_Dok)
     end
    /*INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)        TRGNATO 26.10.03
    Values
        (     GetDate(),
            'ZacuvDokr',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))        */
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_DevStavKons_Delete' AND type = 'TR') DROP TRIGGER tr_DevStavKons_Delete

Go

CREATE  TRIGGER tr_DevStavKons_Delete
ON dbo.DevStavKons
FOR DELETE
AS
BEGIN
DECLARE
    @DevKonsID    Integer,
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Kons    int,
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6),
    @DevCena    decimal(18,6),
    @Uces        decimal(6,2),
    @Koleti        decimal(18,6),
    @Bruto        decimal(18,6),
    @Neto        decimal(18,6),
    @VlIzl        char(1),
    @KojaVal    char(3),
    @Sifra_Dok_Vlez    smallint,
    @Broj_Kons_Vlez    smallint,
    @Cena_Pak    decimal(18,6),
    @Vlez        Decimal(18,6),
    @Izlez        Decimal(18,6),
    @soaVlez    Decimal(18,6),
    @soaIzlez    Decimal(18,6),
    @soaCena    Decimal(18,6),
    @soaBruto_Vl decimal(18, 6) ,
    @soaNeto_Vl decimal(18, 6) ,
    @soaKoleti_Vl decimal(18, 6),
    @soaBruto_Izl decimal(18, 6),
    @soaNeto_Izl decimal(18, 6) ,
    @soaKoleti_Izl decimal(18, 6),
    @soaCena_Pak decimal(18, 6),
    @soaVr_Vlez decimal(18, 6),
    @soaVr_Izlez decimal(18, 6)
    Declare DelStavki Cursor Fast_Forward For
    Select D.Sifra_OE, D.Sifra_Dok, D.Broj_Kons, D.Sifra_Art, D.Kolic, D.DevCena, D.VlIzl, D.Sifra_Dok_Vlez,
        D.Broj_Kons_Vlez, D.Cena_Pak, K.KojaVal, D.Bruto, D.Neto, D.Koleti
    From Deleted  D INNER JOIN DevKons K ON D.DevKonsID = K.DevKonsID
    Open DelStavki
    Fetch Next From DelStavki
    Into @Sifra_OE, @Sifra_Dok, @Broj_Kons, @Sifra_Art, @Kolic, @DevCena,
        @VlIzl, @Sifra_Dok_Vlez, @Broj_Kons_Vlez, @Cena_Pak, @KojaVal, @Bruto, @Neto, @Koleti
    While @@Fetch_Status = 0
    Begin
        -- Barame zapis vo soart
        If @VlIzl='V'
        Begin
            SET @Broj_Kons_Vlez = @Broj_Kons
            SET @Sifra_Dok_Vlez = @Sifra_Dok
        End
        IF @Kolic IS NULL SET @Kolic = 0
        IF @Bruto IS NULL SET @Bruto = 0
        IF @Neto IS NULL SET @Neto = 0
        IF @Koleti IS NULL SET @Koleti = 0
        Select @soaVlez=Vlez, @soaIzlez=Izlez, @soaCena=DevCena,
            @soaBruto_Vl=Bruto_Vl, @soaNeto_Vl =Neto_Vl, @soaKoleti_Vl=Koleti_Vl,
            @soaBruto_Izl=Bruto_Izl, @soaNeto_Izl=Neto_Izl, @soaKoleti_Izl =Koleti_Izl,
            @soaCena_Pak =Cena_Pak, @soaVr_Vlez =Vr_Vlez, @soaVr_Izlez=Vr_Izlez
        From SoartKons
        Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_Dok=@Sifra_Dok_Vlez AND Broj_Kons=@Broj_Kons_Vlez
        -- Ako ne postoi dodavame nov
        IF @@ROWCOUNT = 0
            Begin                        -- pa vednas dodavame soodveten
                 If @VlIzl = 'V'
                    Begin
                        Set @soaVlez =(-1) * @Kolic
                        Set @soaIzlez=0
                        Set @soaBruto_Vl=(-1) * @Bruto
                        Set @soaNeto_Vl =(-1) * @Neto
                        Set @soaKoleti_Vl=(-1) * @Koleti
                        Set @soaBruto_Izl=0
                        Set @soaNeto_Izl=0
                        Set @soaKoleti_Izl =0
                        Set @soaVr_Vlez =(-1) * @Kolic * @DevCena
                        Set @soaVr_Izlez=0
                    End
                Else
                    Begin
                        Set @soaVlez =0
                        Set @soaIzlez= (-1) * @Kolic
                        Set @soaBruto_Vl=0
                        Set @soaNeto_Vl =0
                        Set @soaKoleti_Vl=0
                        Set @soaBruto_Izl=(-1) * @Bruto
                        Set @soaNeto_Izl=(-1) * @Neto
                        Set @soaKoleti_Izl =(-1) * @Koleti
                        Set @soaVr_Vlez =0
                        Set @soaVr_Izlez=(-1) * @Kolic * @DevCena
                    End
                Insert SoartKons (Sifra_OE,  Sifra_Dok, Broj_Kons, Sifra_Art, Vlez, Izlez, DevCena, KojaVal,
                Bruto_Vl, Neto_Vl, Koleti_Vl, Bruto_Izl, Neto_Izl, Koleti_Izl, Cena_Pak, Vr_Vlez, Vr_Izlez)
                Values(@Sifra_OE, @Sifra_Dok_Vlez, @Broj_Kons_Vlez, @Sifra_Art, @soaVlez, @soaIzlez, @DevCena, @KojaVal,
                @soaBruto_Vl, @soaNeto_Vl, @soaKoleti_Vl, @soaBruto_Izl, @soaNeto_Izl, @soaKoleti_Izl, @Cena_Pak, @soaVr_Vlez, @soaVr_Izlez)
            End
        ELSE    -- Postoi zapis vo Soart, @@ROWCOUNT <> 0
            Begin
                If @VlIzl = 'V'
                    Begin
                        Set @Vlez =@soaVlez-@Kolic
                        Set @Izlez=@soaIzlez
                        Set @soaBruto_Vl=@soaBruto_Vl-@Bruto
                        Set @soaNeto_Vl =@soaNeto_Vl-@Neto
                        Set @soaKoleti_Vl=@soaKoleti_Vl - @Koleti
                        Set @soaVr_Vlez =@soaVr_Vlez - @Kolic * @DevCena
                    End
                Else -- @VlIzl = 'I'
                    Begin
                        Set @Vlez=@soaVlez
                        Set @Izlez=@soaIzlez-@Kolic
                        Set @soaBruto_Izl=@soaBruto_Izl-@Bruto
                        Set @soaNeto_Izl=@soaNeto_Izl-@Neto                        Set @soaKoleti_Izl =@soaKoleti_Izl- @Koleti
                        Set @soaVr_Izlez=@soaVr_Izlez - @Kolic * @DevCena
                    End
                Update SoartKons
                Set Vlez=@Vlez, Izlez=@Izlez, Bruto_Vl = @soaBruto_Vl, Neto_Vl=@soaNeto_Vl,
                    Koleti_Vl = @soaKoleti_Vl, Vr_Vlez = @soaVr_Vlez, Bruto_Izl = @soaBruto_Izl,
                    Neto_Izl=@soaNeto_Izl, Koleti_Izl = @soaKoleti_Izl, Vr_Izlez = @soaVr_Izlez
                Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art  AND Sifra_Dok=@Sifra_Dok_Vlez AND Broj_Kons=@Broj_Kons_Vlez
            End
        Fetch Next From DelStavki Into  @Sifra_OE, @Sifra_Dok, @Broj_Kons, @Sifra_Art, @Kolic, @DevCena, @VlIzl, @Sifra_Dok_Vlez,
                @Broj_Kons_Vlez, @Cena_Pak, @KojaVal, @Bruto, @Neto, @Koleti
    End --While
    Close DelStavki
    Deallocate DelStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Kompenz_BrKomp' AND type = 'TR') DROP TRIGGER tr_Kompenz_BrKomp

Go

CREATE   TRIGGER tr_Kompenz_BrKomp
ON dbo.Kompenz
FOR INSERT
AS
BEGIN
   Declare @Broj_Komp Int
   SELECT @Broj_Komp=Broj_Komp FROM Inserted
   IF EXISTS(SELECT * FROM BrKomp)
      UPDATE BrKomp SET Broj_Komp=@Broj_Komp
   ELSE
      INSERT INTO BrKomp(Broj_Komp)
         VALUES(@Broj_Komp)
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Dokr_Izmeni' AND type = 'TR') DROP TRIGGER tr_Dokr_Izmeni

Go

CREATE  TRIGGER tr_Dokr_Izmeni
ON dbo.Dokr
FOR UPDATE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Dok=Sifra_Dok, @Broj_Dok=Broj_Dok FROM Inserted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values
        (     GetDate(),
            'IzmenDokr',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Tarifi_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Tarifi_Vnes_Izmena

Go
CREATE  TRIGGER tr_Tarifi_Vnes_Izmena
ON dbo.Tarifi
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Tar    char(3),
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Tar = Sifra_Tar
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Tarifi Where Sifra_Tar = @Sifra_Tar)
    If @Propagiraj='D'
    Begin
        Update Tarifi Set Propagiraj=Null  Where Sifra_Tar = @Sifra_Tar
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_Tar From ' + @VtoraBaza + '..Tarifi
                        Where Sifra_Tar = ' + @Sifra_Tar + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Tarifi
                    Set ImeTar=T.ImeTar, ProcOsn=T.ProcOsn
                    From Tarifi T
                    Where T.Sifra_Tar = ''' + @Sifra_Tar + '''
                    and ' + @VtoraBaza + '..Tarifi.Sifra_Tar = ''' + @Sifra_Tar + ''' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Tarifi Select * From Tarifi Where Sifra_Tar= ''' + @Sifra_Tar + ''' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Dokr_Brisi' AND type = 'TR') DROP TRIGGER tr_Dokr_Brisi

Go
CREATE TRIGGER tr_Dokr_Brisi
ON dbo.Dokr
FOR DELETE
AS
BEGIN
   Declare @Sifra_OE Smallint
   Declare @Sifra_Dok Smallint
   Declare @Broj_Dok Int
   SELECT @Sifra_OE=Sifra_OE, @Sifra_Dok=Sifra_Dok, @Broj_Dok=Broj_Dok FROM Deleted
    INSERT INTO OpstLog (Koga, ImeLog, Tip, Izvor, Tekst, Korisnik)
    Values
        (     GetDate(),
            'BrisiDokr',
            'INF',
            'trig',
            'OE:' + Cast(@Sifra_OE As Varchar(6)) + ' ' +
            'Dok:' + Cast(@Sifra_Dok As Varchar(6)) + ' ' +
            'Broj:' + Cast(@Broj_Dok As Varchar(10)) + ' ' +
            'Korisnik: ' + SUser_SName(),
            Substring(SUser_SName(),1,20))
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StaNarac_Insert' AND type = 'TR') DROP TRIGGER tr_StaNarac_Insert

Go



CREATE                   TRIGGER tr_StaNarac_Insert
ON dbo.StaNarac
FOR INSERT
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Nar        Smallint,
    @VlIzl            Char(1),
    @Sifra_GrNar        smallint,
    @Sifra_Art        varchar(20),
    @Kolic            Decimal(18,6),
    @DokCena        Decimal(18,6),
    @POsn            Decimal(6,2),
    @PTar            Char(3),
    @DanDokCena        Char(1),
    @Uces            decimal(18,6),
    @soaVlez        decimal(18,6),
    @soaIzlez        decimal(18,6),
    @soaCena        decimal(18,6),
    @Kolic_BO        Decimal(18,6),
    @soaVlez_BO        decimal(18,6),
    @soaIzlez_BO        decimal(18,6),
    @Prvo            int
set @Prvo = 1
Declare InsStavki Cursor Fast_Forward For
Select Sifra_OE, Sifra_Nar, Sifra_Art, Kolic, DokCena, POsn, DanDokCena, Uces, Kolic_BO
From Inserted
Open InsStavki
Fetch Next From InsStavki
INTO @Sifra_OE, @Sifra_Nar, @Sifra_Art, @Kolic, @DokCena, @POsn, @DanDokCena, @Uces, @Kolic_BO
While @@Fetch_Status = 0
Begin
   if @Prvo = 1
   Begin
       set @Prvo = 0    -- Za da ne prebaruvame vo baza edno te isto 100 pati
       Select @VlIzl = VlIzl, @Sifra_GrNar = Sifra_GrNar
       FROM TipNarac WHERE Sifra_Nar = @Sifra_Nar
   end
   If @Sifra_GrNar IS NOT NULL
   Begin
    if @Kolic_BO is null
       set @Kolic_BO = 0
    -- Barame zapis vo SoNar
    Select @soaVlez=Vlez, @soaIzlez=Izlez, @SoaVlez_BO=Vlez_BO, @SoaIzlez_BO=Izlez_BO
    From SoNar Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
    -- Ako ne postoi dodavame nov
    IF @@ROWCOUNT = 0                -- Ne postoi zapis vo SoNar
        Begin                        -- pa vednas dodavame soodveten
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
                if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaVlez = @Kolic
                    Set @soaIzlez = 0
                    Set @soaCena = @DokCena
                    Set @soaVlez_BO = @Kolic_BO
                    Set @soaIzlez_BO = 0
                End
            Else
                Begin
                    Set @soaVlez = 0
                    Set @soaIzlez = @Kolic
                    Set @soaCena = @DokCena * (1 - @Uces / 100)
                    Set @soaVlez_BO = 0
                    Set @soaIzlez_BO = @Kolic_BO
                End
            Insert SoNar (Sifra_OE, Sifra_Art, Sifra_GrNar, Vlez, Izlez, Cena, DanCena, POsn, Vlez_BO, Izlez_BO)
            Values(@Sifra_OE, @Sifra_Art, @Sifra_GrNar, @soaVlez, @soaIzlez, @soaCena, @DanDokCena, @Posn, @soaVlez_BO, @soaIzlez_BO)
        End
    ELSE
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
                if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaVlez = @soaVlez + @Kolic
                    Set @soaVlez_BO = @soaVlez_BO + @Kolic_BO
                    Update SoNar
                    Set Vlez=@soaVlez, Izlez=@soaIzlez, Cena=@DokCena, DanCena=@DanDokCena, POsn=@POsn, Vlez_BO=@soaVlez_BO, Izlez_BO=@soaIzlez_BO
                    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
                End
            Else
                Begin
                    Set @soaIzlez = @soaIzlez + @Kolic
                    set @soaIzlez_BO = @soaIzlez_BO + @Kolic_BO
                    Update SoNar
                    Set Vlez=@soaVlez, Izlez=@soaIzlez, Vlez_BO=@SoaVlez_BO, Izlez_BO=@soaIzlez_BO
                    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
                End
        END
   End
   Fetch Next From InsStavki
   INTO @Sifra_OE, @Sifra_Nar, @Sifra_Art, @Kolic, @DokCena, @POsn, @DanDokCena, @Uces, @Kolic_BO
End --While
Close InsStavki
Deallocate InsStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tg_KObjekti_Insert' AND type = 'TR') DROP TRIGGER tg_KObjekti_Insert

Go
CREATE  TRIGGER tg_KObjekti_Insert
ON dbo.KObjekti
FOR INSERT, UPDATE
AS
BEGIN
    Declare @Sifra_Kup Char(6)
    Declare @Sifra_Obj Smallint
    Declare @Propagiraj    char(1)
    Declare @Redovi     smallint
    Declare @VtoraBaza    varchar(20)
    Declare @DaliKup    char(1)
    Declare @DaliPodelKup    char(1)
    Declare @SSQL      varchar(8000)
    Select @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj From Inserted
    If @Sifra_Obj<>0
        Update Komint Set ImaObj='D' Where Sifra_Kup=@Sifra_Kup
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From KObjekti Where Sifra_Kup = @Sifra_Kup and Sifra_Obj = @Sifra_Obj)
    If @Propagiraj='D'
    Begin
        Update KObjekti Set Propagiraj=Null  Where Sifra_Kup = @Sifra_Kup and Sifra_Obj = @Sifra_Obj
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup<>'N' Or @DaliPodelKup Is Null)
            Begin
                Set @SSQL =  ' Select  Sifra_Kup, Sifra_Obj From ' + @VtoraBaza + '..KObjekti
                        Where Sifra_Kup = ''' + @Sifra_Kup + ''' and Sifra_Obj = ' + cast(@Sifra_Obj as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..KObjekti
                    Set Star_Kup=KO.Star_Kup, ImeObj=KO.ImeObj, ImeObj2=KO.ImeObj2, Adresa=KO.Adresa,
                        Adresa2=KO.Adresa2, SMesto=KO.SMesto, Posta=KO.Posta, Zemja=KO.Zemja, Telefon=KO.Telefon,
                        Tel1=KO.Tel1, Tel2=KO.Tel2, TelMobil=KO.TelMobil, Fax=KO.Fax, Telex=KO.Telex,
                        EMail=KO.EMail, Kontakt=KO.Kontakt, Sifra_Pat=KO.Sifra_Pat, Sifra_Grad=KO.Sifra_Grad,
                        TipKup=KO.TipKup, Sifra_Reg=KO.Sifra_Reg, Sifra_Nivo=KO.Sifra_Nivo, Sifra_Tip=KO.Sifra_Tip,
                        Zabeleska=KO.Zabeleska, Aktiven=KO.Aktiven, BrProdMesta=KO.BrProdMesta, BrAktProdMesta=KO.BrAktProdMesta,
                        KDrugo4=KO.KDrugo4, KDrugo3=KO.KDrugo3, KDrugo2=KO.KDrugo2, Kdrugo1=KO.Kdrugo1,
                        Sifra_Pat2=KO.Sifra_Pat2
                    From KObjekti KO
                    Where KO.Sifra_Kup = ''' + @Sifra_Kup + ''' and KO.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(5)) + '
                    and ' + @VtoraBaza + '..KObjekti.Sifra_Kup = ''' + @Sifra_Kup + '''
                    and ' + @VtoraBaza + '..KObjekti.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..KObjekti Select * From KObjekti
                                        Where Sifra_Kup = ''' + @Sifra_Kup + '''
                                        and Sifra_Obj= ' + cast(@Sifra_Obj as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Patnici_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Patnici_Vnes_Izmena

Go
CREATE   TRIGGER tr_Patnici_Vnes_Izmena
ON dbo.Patnici
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_Pat    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliKup    char(1),
    @DaliPodelKup    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_Pat = Sifra_Pat
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Patnici Where Sifra_Pat = @Sifra_Pat)
    If @Propagiraj='D'
    Begin
        Update Patnici Set Propagiraj=Null  Where Sifra_Pat = @Sifra_Pat
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliKup=DaliKup, @DaliPodelKup=DaliPodelKup From FirParal Where Rbr=@Redovi
            If @DaliKup = 'D' And (@DaliPodelKup Is Null Or @DaliPodelKup<>'N')
            Begin
                Set @SSQL =  ' Select  Sifra_Pat From ' + @VtoraBaza + '..Patnici
                        Where Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Patnici
                    Set ImePat=P.ImePat, Adresa=P.Adresa, Adresa2=P.Adresa2, SMesto=P.SMesto,
                        Posta=P.Posta, Zemja=P.Zemja, Aktiven=P.Aktiven, Telefon=P.Telefon,
                        TelMobil=P.TelMobil, Fax=P.Fax, EMail=P.EMail, LK=P.LK, Sopst_Mat=P.Sopst_Mat
                    From Patnici P
                    Where P.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5)) + '
                    and ' + @VtoraBaza + '..Patnici.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Patnici Select * From Patnici Where Sifra_Pat= ' + cast(@Sifra_Pat as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Nalozi_Brnal' AND type = 'TR') DROP TRIGGER tr_Nalozi_Brnal

Go
CREATE  TRIGGER tr_Nalozi_Brnal
ON Nalozi
FOR INSERT
AS
BEGIN
   Declare @Sifra_Nal Smallint
   Declare @Broj_Nal Int
   Declare @Datum_Nal Smalldatetime
   Declare @VleguvaVorekap char(1)
   SELECT @Sifra_Nal=Sifra_Nal, @Broj_Nal=Broj_Nal, @Datum_Nal=Datum_Nal, @VleguvaVorekap=VleguvaVorekap FROM Inserted
   IF @VleguvaVorekap IS NULL    SET @VleguvaVorekap=''
If @VleguvaVorekap <> 'N'
Begin
    IF EXISTS(SELECT * FROM Brnal WHERE Sifra_Nal=@Sifra_Nal)
        UPDATE Brnal SET Broj_Nal=@Broj_Nal, Datum_Nal=@Datum_Nal
        WHERE Sifra_Nal=@Sifra_Nal
    ELSE
        INSERT INTO Brnal(Sifra_Nal, Broj_Nal, Datum_Nal)
        VALUES(@Sifra_Nal, @Broj_Nal, @Datum_Nal)
End
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo1_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo1_Vnes_Izmena

Go
CREATE  TRIGGER tr_Drugo1_Vnes_Izmena
ON dbo.Drugo1
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_1    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_1 = Sifra_1
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo1 Where Sifra_1 = @Sifra_1)
    If @Propagiraj='D'
    Begin
        Update Drugo1 Set Propagiraj=Null  Where Sifra_1 = @Sifra_1
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_1 From ' + @VtoraBaza + '..Drugo1
                        Where Sifra_1 = ' + cast(@Sifra_1 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo1
                    Set Ime_1=D.Ime_1
                    From Drugo1 D
                    Where D.Sifra_1 = ' + cast(@Sifra_1 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo1.Sifra_1 = ' + cast(@Sifra_1 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo1 Select * From Drugo1 Where Sifra_1= ' + cast(@Sifra_1 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_StaNarac_Delete' AND type = 'TR') DROP TRIGGER tr_StaNarac_Delete

Go

CREATE                     TRIGGER tr_StaNarac_Delete
ON dbo.StaNarac
FOR DELETE
AS
BEGIN
DECLARE
    @Sifra_OE        Smallint,
    @Sifra_Nar        Smallint,
    @VlIzl            Char(1),
    @Sifra_Art        varchar(20),
    @Kolic            Decimal(18,6),
    @DokCena        Decimal(18,6),
    @POsn            Decimal(6,2),
    @Uces            Decimal(6,2),
    @DanDokCena        Char(1),
    @Sifra_GrNar        smallint,
    @soaVlez        Decimal(18,6),
    @soaIzlez        Decimal(18,6),
    @soaCena        Decimal(18,6),
    @Kolic_BO        Decimal(18,6),
    @soaVlez_BO        decimal(18,6),
    @soaIzlez_BO        decimal(18,6),
    @Prvo            int
set @Prvo = 1
Declare DelStavki Cursor Fast_Forward For
Select Sifra_OE, Sifra_Nar, Sifra_Art, Kolic, DokCena, POsn, Uces, DanDokCena, Kolic_BO
From Deleted
Open DelStavki
Fetch Next From DelStavki
Into @Sifra_OE, @Sifra_Nar, @Sifra_Art, @Kolic, @DokCena, @POsn, @Uces, @DanDokCena, @Kolic_BO
While @@Fetch_Status = 0
Begin
   if @Prvo = 1
   begin
    set @Prvo = 0
    Select @VlIzl = VlIzl, @Sifra_GrNar = Sifra_GrNar
    FROM TipNarac WHERE Sifra_Nar = @Sifra_Nar
   end
   If @Sifra_GrNar IS NOT NULL
   Begin
        if @Kolic_BO is null
        set @Kolic_BO = 0
    -- Barame zapis vo SoNar
    Select @soaVlez=Vlez, @soaIzlez=Izlez, @SoaVlez_BO=Vlez_BO, @SoaIzlez_BO=Izlez_BO FROM SoNar
    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
    -- Ako ne postoi dodavame nov
    IF @@ROWCOUNT = 0
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
                if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                Begin
                    Set @soaVlez = - @Kolic
                    Set @soaIzlez = 0
                    Set @soaCena = @DokCena
                    Set @soaVlez_BO = - @Kolic_BO
                    Set @soaIzlez_BO = 0
                End
            Else
                Begin
                    Set @soaVlez = 0
                    Set @soaIzlez = - @Kolic
                    Set @soaCena = @DokCena * (1 - @Uces / 100)
                    Set @soaVlez_BO = 0
                    Set @soaIzlez_BO = - @Kolic_BO
                End
            Insert SoNar (Sifra_OE, Sifra_Art, Sifra_GrNar, Vlez, Izlez, Cena, DanCena, POsn, Vlez_BO, Izlez_BO)
            Values(@Sifra_OE,@Sifra_Art,@Sifra_GrNar,@soaVlez,@soaIzlez,@soaCena,@DanDokCena,@Posn, @soaVlez_BO, @soaIzlez_BO)
        End
    ELSE
        Begin
            if @SoaVlez_BO is null
                set @SoaVlez_BO = 0
                if @SoaIzlez_BO is null
                set @SoaIzlez_BO = 0
            If @VlIzl = 'V'
                        begin
                Set @soaVlez = @soaVlez - @Kolic
                Set @soaVlez_BO = @soaVlez_BO - @Kolic_BO
            end
            Else
            begin
                Set @soaIzlez = @soaIzlez - @Kolic
                set @soaIzlez_BO = @soaIzlez_BO - @Kolic_BO
            end
            Update SoNar
            Set Vlez=@soaVlez, Izlez=@soaIzlez, Vlez_BO=@soaVlez_BO, Izlez_BO=@soaIzlez_BO
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art AND Sifra_GrNar=@Sifra_GrNar
        END
   End
   Fetch Next From DelStavki
   Into @Sifra_OE, @Sifra_Nar, @Sifra_Art, @Kolic, @DokCena, @POsn, @Uces, @DanDokCena, @Kolic_BO
End --While
Close DelStavki
Deallocate DelStavki
END

Go
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Drugo6_Vnes_Izmena' AND type = 'TR') DROP TRIGGER tr_Drugo6_Vnes_Izmena

Go
CREATE  TRIGGER tr_Drugo6_Vnes_Izmena
ON dbo.Drugo6
FOR INSERT, UPDATE
AS
BEGIN
Declare
    @Sifra_6    smallint,
    @Propagiraj    char(1),
    @Redovi     smallint,
    @VtoraBaza    varchar(20),
    @DaliArt    char(1),
    @SSQL      varchar(8000)
    SELECT @Sifra_6 = Sifra_6
    FROM INSERTED
-------------------------------------  Azuriranje na Paralelni Bazi --------------------------
    Set @Propagiraj = (Select Propagiraj From Drugo6 Where Sifra_6 = @Sifra_6)
    If @Propagiraj='D'
    Begin
        Update Drugo6 Set Propagiraj=Null  Where Sifra_6 = @Sifra_6
        Select Rbr, ImeBaza
        From FirParal
        Set @Redovi = @@RowCount
        While @Redovi > 0
        Begin
            Select @VtoraBaza=ImeBaza, @DaliArt=DaliArt From FirParal Where Rbr=@Redovi
            If @DaliArt = 'D'
            Begin
                Set @SSQL =  ' Select  Sifra_6 From ' + @VtoraBaza + '..Drugo6
                        Where Sifra_6 = ' + cast(@Sifra_6 as varchar(5)) + ' '
                Exec(@SSQL)
                If @@RowCount <> 0
                      Begin
                    Set @SSQL = ' Update ' + @VtoraBaza + '..Drugo6
                    Set Ime_6=D.Ime_6
                    From Drugo6 D
                    Where D.Sifra_6 = ' + cast(@Sifra_6 as varchar(5)) + '
                    and ' + @VtoraBaza + '..Drugo6.Sifra_6 = ' + cast(@Sifra_6 as varchar(5)) + ' '
                    Exec(@SSQL)
                     End  -- If  @@RowCount <> 0
                Else
                     Begin
                    Set @SSQL = ' Insert Into ' + @VtoraBaza + '..Drugo6 Select * From Drugo6 Where Sifra_6= ' + cast(@Sifra_6 as varchar(5)) + ' '
                     Exec(@SSQL)
                     End  -- Else
            End -- DaliArt
            Set @Redovi = @Redovi - 1
                       end -- While
    End -- Propagiraj
End --Triger
------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_brandkolic]'))
begin declare @SSQL as varchar(8000) set @SSQL = '




create    FUNCTION fix_BrandKolic
(
    @KolkuDrg Float
)
RETURNS Float
AS
BEGIN
    If @KolkuDrg Is Null Or @kolkuDrg = 0.0
        Set @KolkuDrg = 1
    Return(@KolkuDrg)
END




' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_dajcenapreddatum]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE      FUNCTION dbo.fix_DajCenaPredDatum
(    @VlIzl            char(1)=''I'',
    @Tip_Sif_Kup        char(1)='''',
    @Sif_Kup_Gen        varchar(11)='''',
    @Tip_Sif_Art        char(1)=''A'',
    @Sif_Art_Gen        varchar(20),
    @Datum    smalldatetime,
    @MalCena    decimal(18,6)   )
RETURNS  @UslKomerc TABLE
( Rok_Dosp    smallint,
  Uces        decimal(6,2),
  Dod_Uces    decimal(6,2),
  Cena        decimal(18,4),
  MalCena    decimal(18,4),
  DanCena    char(1),
  DanMalCena    char(1),
  Datum_Od    smalldatetime,
  Datum_Do    smalldatetime  )
AS
BEGIN
    INSERT INTO @UslKomerc
    SELECT TOP 1 Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena, Datum_Od, Datum_Do
    FROM Usl_Komerc_Per WHERE VlIzl=@VlIzl and Tip_Sif_Kup=@Tip_Sif_Kup and Sif_Kup_Gen=@Sif_Kup_Gen
    and Tip_Sif_Art=@Tip_Sif_Art and Sif_Art_Gen = @Sif_Art_Gen AND Datum_Do IS NULL AND Datum_Od<@Datum AND MalCena<>@MalCena
    ORDER BY Datum_Od DESC
RETURN
END






' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_dajcenazadatum]'))
begin declare @SSQL as varchar(8000) set @SSQL = '





CREATE      FUNCTION dbo.fix_DajCenaZaDatum
(    @VlIzl            char(1)=''I'',
    @Tip_Sif_Kup        char(1)='''',
    @Sif_Kup_Gen        varchar(11)='''',
    @Tip_Sif_Art        char(1)=''A'',
    @Sif_Art_Gen        varchar(20),
    @Datum    smalldatetime   )
RETURNS  @UslKomerc TABLE
( Rok_Dosp    smallint,
  Uces        decimal(6,2),
  Dod_Uces    decimal(6,2),
  Cena        decimal(18,4),
  MalCena    decimal(18,4),
  DanCena    char(1),
  DanMalCena    char(1),
  Datum_Od    smalldatetime,
  Datum_Do      smalldatetime,
  Sif_art_gen    varchar(20))
AS
BEGIN
    INSERT INTO @UslKomerc
    SELECT TOP 1 Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena, Datum_Od, Datum_Do, Sif_Art_Gen
    FROM Usl_Komerc_Per WHERE VlIzl=@VlIzl and Tip_Sif_Kup=@Tip_Sif_Kup and Sif_Kup_Gen=@Sif_Kup_Gen and Tip_Sif_Art=@Tip_Sif_Art and Sif_Art_Gen = @Sif_Art_Gen AND Datum_Do IS NOT NULL AND Datum_Od <= @Datum AND Datum_Do >= @Datum
    ORDER BY Datum_Od DESC

    IF @@RowCount < 1
    Begin
    INSERT INTO @UslKomerc
    SELECT TOP 1 Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena, Datum_Od, Datum_Do, Sif_Art_Gen
    FROM Usl_Komerc_Per WHERE VlIzl=@VlIzl and Tip_Sif_Kup=@Tip_Sif_Kup and Sif_Kup_Gen=@Sif_Kup_Gen and Tip_Sif_Art=@Tip_Sif_Art and Sif_Art_Gen = @Sif_Art_Gen AND Datum_Do IS NULL AND Datum_Od <= @Datum
    ORDER BY Datum_Od DESC
    End
RETURN
END






' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_dokrbrsmoze]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

create FUNCTION fix_DokrBrsMoze
(    @Sega smalldatetime,
    @Sifra_Oe smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @ImaDodatna char(1),
    @Sifra_Prim smallint
)
RETURNS char (1)
AS
BEGIN

    Return (''D'')

END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_dokrizmmoze]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

create  FUNCTION fix_DokrIzmMoze
(    @Sega smalldatetime,
    @Datum_Dok smalldatetime,
    @Sifra_Oe smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @ImaDodatna char(1),
    @Sifra_Prim smallint
)
RETURNS char (1)
AS
BEGIN

    Return (''D'')

END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_dokrvnesmoze]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


create   FUNCTION fix_DokrVnesMoze
(    @Sega smalldatetime,
    @Datum_Dok smalldatetime
)
RETURNS char (1)
AS
BEGIN

    Return (''D'')

END


' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_kade_pec_treb]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE FUNCTION fix_Kade_Pec_Treb
(
    @Sifra_Podg     char(6),
    @Spec_Opis    varchar(200)
)
RETURNS Smallint
AS
BEGIN
    Declare @KadePec as smallint

    If @Sifra_Podg < ''000500''
        If @Spec_Opis Is Not Null And @Spec_Opis <> '' ''
            Set @KadePec = 0
        Else
            Set @KadePec = 1
    Else if @Sifra_Podg >= ''000500'' and @Sifra_Podg < ''000900''
        Set @KadePec = 2
    Else
        If @Spec_Opis Is Not Null And @Spec_Opis <> '' ''
            Set @KadePec = 0
        Else
            Set @KadePec = 3
    Return(@KadePec)
END





' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_list_atr]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE   FUNCTION [dbo].fix_list_atr
()
RETURNS  @ListAtr TABLE
(
    [Tip_Atr] [varchar](20) NOT NULL,
    [Sifra_Art] [varchar](20) NOT NULL,
    [dParam1] [decimal](9, 2) NULL,
    [dParam2] [decimal](18, 6) NULL,
    [cParam3] [varchar](20) NULL,
    [cParam4] [varchar](20) NULL,
    [Markiraj] [char](1) NULL
 )

AS
BEGIN

    INSERT INTO @ListAtr
    SELECT ''BOIVEL'', Sifra_PodSif_Art, Sifra_Boja, Sifra_Velic, Sifra_Art, null, null
    from KatPodSifra WITH (NOLOCK)

    INSERT INTO @ListAtr
    SELECT ''BOJA'', Sifra_Boja, null, null, ImeBoja, null, null
    from BOJA WITH (NOLOCK)

    INSERT INTO @ListAtr
    SELECT ''VELICINA'', Sifra_Velic, null, null, ImeVelic, null, null
    from VELICINA WITH (NOLOCK)

    Return

END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_moze_isporaka]'))
begin declare @SSQL as varchar(8000) set @SSQL = '




CREATE      FUNCTION fix_Moze_Isporaka
(
    @Sifra_Kup char(6),
    @MozeIsporaka char(1),
    @Limit_Dolzi decimal(9,0),
    @Garancija varchar(30),
    @Denes smalldatetime,
    @KDrugo5 smallint
)
RETURNS char (1)
AS
BEGIN
    Return(@MozeIsporaka)
END









' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_odredi_kto_grupa]'))
begin declare @SSQL as varchar(8000) set @SSQL = '



CREATE    FUNCTION fix_Odredi_Kto_Grupa
(    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int)
RETURNS varchar(3)  --ova mislam deka e dovolno 3
AS
BEGIN
    RETURN ''''
END




' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_podel5_vo_cparam2_dali]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE FUNCTION dbo.fix_Podel5_Vo_CParam2_Dali ()

RETURNS  char (1)

as

BEGIN

    -- Fixirano da vraka
    return (''N'')

END


' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_podgr_arkakat_dali]'))
begin declare @SSQL as varchar(8000) set @SSQL = '




CREATE    FUNCTION dbo.fix_Podgr_ArkaKat_Dali ()

RETURNS  char (1)

as

BEGIN

    -- Fixirano da vraka
    return (''N'')

END




' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_sp_upros]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


create   PROCEDURE FIX_SP_Upros
    @Sifra_Oe smallint

----- SE KORISTI VO SCHEDULER SO
-- EXEC FIX_SP_Upros 1      (sifrata na org.edinica)

AS

    Declare @Sifra_Art_Od    varchar(20)
    Declare @Sifra_Art_Do    varchar(20)
    Declare @AzurProsCena    char(1)
    Declare @Datum_Poc    smalldatetime   -- Tipicno e NULL (ekviv.na ona "ign.poc.datum vo maskata") DK Apr 2, 06
    Declare @AzurNabCStavr    char (1)    -- D=azuriraj kade sto ne se azurirani,
                        -- F=forsiraj azuriranje na site dokumenti, bez ogled na azurirani
    Declare @Datum_Od    smalldatetime    -- Vazen samo pri azuriranje na nabavnata cena vo STAVR    DK Apr 2, 06
    Declare @Azur_DokMagCena char (1)
    Declare @Azur_DokMag_TipDok varchar (50)

    Declare @Datum_Do    smalldatetime

    ------------------------------------------------------------

    set @Datum_Do = getdate ()
    set @Sifra_Art_Od = null
    set @Sifra_Art_Do = null
    set @AzurProsCena = ''D''
    set @AzurNabCStavr = ''F''

    set @Datum_Poc = null
    set @Datum_Od = null
    set @Azur_DokMagCena = null
    set @Azur_DokMag_TipDok = null

print @Sifra_Oe

        EXEC sp_NajdiFinRazl @Sifra_OE, @Sifra_Art_Od, @Sifra_Art_Do, @Datum_Do, @AzurProsCena, @Datum_Poc,
                             @AzurNabCStavr, @Datum_Od, @Azur_DokMagCena, @Azur_DokMag_Tipdok

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_uproseci_izlez]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE FUNCTION fix_uproseci_izlez
(
    @Sifra_Art varchar(20),
        @Sifra_Oe smallint,
        @Sifra_Dok smallint,
        @Sifra_Prim smallint
)
RETURNS char (1)
AS
BEGIN
    Return (''D'')
END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_vocentralasum]'))
begin declare @SSQL as varchar(8000) set @SSQL = '
CREATE   FUNCTION dbo.fix_VoCentralaSum ()
RETURNS  char (1)
AS
BEGIN
    -- Fixirano da vraka
    Return (''N'')

END








' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_vopda_arkakat_dozvsifra]'))
begin declare @SSQL as varchar(8000) set @SSQL = '



CREATE   FUNCTION dbo.fix_VOPDA_ArkaKat_DozvSifra ()

RETURNS  char (1)

as

BEGIN

    -- Fixirano da vraka
    return (''N'')

END





' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_grogrzanar]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE       FUNCTION [dbo].[fix_WHM_Daj_GrOgrZaNar]
(

)

RETURNS varchar(10)

AS

BEGIN
     Return('''')

END


' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_grogrzanarnova]'))
begin declare @SSQL as varchar(8000) set @SSQL = '



Create        FUNCTION fix_WHM_Daj_GrOgrZaNarNOVA
(
     @Sifra_OE_WHM smallint
)

RETURNS varchar(10)

AS

BEGIN
     Return('''')

END



' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_kakovdatum]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

create  FUNCTION fix_WHM_Daj_KakovDatum
( @Sifra_OE_WHM as smallint )
RETURNS char(1)

AS

BEGIN

    Return(''I'')

END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_orged]'))
begin declare @SSQL as varchar(8000) set @SSQL = '






CREATE       FUNCTION fix_WHM_Daj_OrgEd
(
    @Sifra_OE_WHM Smallint = null
)
RETURNS varchar(100)
AS
BEGIN
    Return('''')
END







' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_orgednova]'))
begin declare @SSQL as varchar(8000) set @SSQL = '
CREATE           FUNCTION fix_WHM_Daj_OrgEdNOVA
(
    @Sifra_OE_WHM Smallint =null
)
RETURNS varchar(100)
AS
BEGIN
    Return(''1'')
END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_prevkomerc]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE   FUNCTION fix_WHM_Daj_PrevKomerc
( @Sifra_OE_WHM as smallint )
RETURNS char(1)

AS

BEGIN

    Return('''')

END







' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_sifnar]'))
begin declare @SSQL as varchar(8000) set @SSQL = '




CREATE     FUNCTION fix_WHM_Daj_SifNar
()
RETURNS varchar(100)
AS
BEGIN
    Return(''87,88'')
END





' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_sifnarnova]'))
begin declare @SSQL as varchar(8000) set @SSQL = '






CREATE       FUNCTION fix_WHM_Daj_SifNarNOVA
(
    @Sifra_OE_WHM smallint
)
RETURNS varchar(100)
AS
BEGIN
    Return('''')
END







' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_sifnarpriem]'))
begin declare @SSQL as varchar(8000) set @SSQL = '







Create        FUNCTION fix_WHM_Daj_SifNarPRIEM
(
    @Sifra_OE_WHM smallint
)
RETURNS varchar(100)
AS
BEGIN
    Return('''')
END








' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_sifpovrat]'))
begin declare @SSQL as varchar(8000) set @SSQL = '
CREATE          FUNCTION fix_WHM_Daj_SifPovrat
(
     @Sifra_OE_WHM smallint
)

RETURNS varchar(10)

AS

BEGIN
     Return('''')

END
' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_daj_tipdok]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE            FUNCTION fix_WHM_Daj_TipDok
(
    @Sifra_OE_WHM Smallint =null
)
RETURNS @ListaDok Table
(
    [Sifra_Oe]     [smallint] not null,
    [Sifra_Dok]    [smallint] not null,
    [Sifra_Za]     [smallint] not null
)
AS
BEGIN
    --popolni sto sakas da ti vraka
--    Insert Into @ListaDok
--    Values 1,1,3

    Return
END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_koj_datum_dok]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE    FUNCTION fix_WHM_Koj_Datum_Dok
(
    @Sifra_Dok    smallint,
    @Sifra_Nar    smallint
)
RETURNS char(1)
AS
BEGIN
    Return('''')
END
' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_opisnarnalog]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE FUNCTION fix_WHM_OpisNarNalog
(
    @SifGrOrgIsporaka    varchar(15),
    @SifGrDok        varchar(30)
)

RETURNS char(1)

AS

BEGIN

    Return('' '')

END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_podr_izlez]'))
begin declare @SSQL as varchar(8000) set @SSQL = '

CREATE  FUNCTION fix_WHM_Podr_Izlez
(
    @Sifra_OE_WHM smallint
)
RETURNS varchar(10)
AS
BEGIN
    Return( '''')
END

' exec(@SSQL)
end

Go
if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fix_whm_specceni]'))
begin declare @SSQL as varchar(8000) set @SSQL = '


CREATE   FUNCTION fix_WHM_SpecCeni
(
    @Sifra_OE_Dok    smallint,
    @Sifra_Dok        smallint,
    @Sifra_OE_Nar    smallint,
    @Sifra_Nar        smallint
)
RETURNS varchar(2)
AS
BEGIN
    Return( '''')
END


' exec(@SSQL)
end

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_biznis_den]'))
drop function [dbo].[fn_biznis_den]

Go

create  FUNCTION fn_Biznis_Den
(
    @DatumVreme smalldatetime
)
RETURNS smalldatetime
AS
BEGIN

    Declare @AdjDatum  smalldatetime
    set @AdjDatum = DateADD(hour, -2, @DatumVreme)

    Declare @Datum  smalldatetime
    Set @Datum = NULL
    Set @Datum  = cast(cast(datepart(yyyy, @AdjDatum) as char(4)) +'-'+
            cast(datepart(mm, @AdjDatum) as char(2)) +'-'+
            cast(datepart(dd, @AdjDatum) as char(2)) as smalldatetime)
    Return(@Datum)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_bojdenovipogodmes]'))
drop function [dbo].[fn_bojdenovipogodmes]

Go


CREATE    function fn_BojDenoviPoGodMes
    (
    @GodMes char(7)
    )
returns smallint
AS
BEGIN
declare @Dat_Od smalldatetime
declare @Dat_Do smalldatetime
declare @Dat_OdS smalldatetime
declare @Dat_DoS smalldatetime
declare @denovi as smallint
SET @Dat_Od = Cast(Substring(@GodMes,1, 4) + '-' + Substring(@GodMes, 6, 7) + '-' + '01' as smalldatetime)
SET @Dat_Do=DateADD(month, 1, @Dat_Od)
SET @Dat_Do=DateADD(day, -1, @Dat_Do)
set @denovi=day(@Dat_Do) - day(@Dat_Od) + 1
    RETURN (@denovi)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_brandkolic]'))
drop function [dbo].[fn_brandkolic]

Go



CREATE   FUNCTION fn_BrandKolic
(
    @KolkuDrg Float
)
RETURNS Float
AS
BEGIN
    If @KolkuDrg Is Null Or @kolkuDrg = 0.0
        Set @KolkuDrg = 1
    Return(@KolkuDrg)
END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_cenadatum]'))
drop function [dbo].[fn_cenadatum]

Go
CREATE    FUNCTION fn_CenaDatum
    (@Sifra_OE Smallint,
     @Sifra_Art Varchar(20),
     @Datum Smalldatetime,
     @SoDDV Char(1))
RETURNS decimal(18,4)
AS
BEGIN
    Declare @DatumStavr Smalldatetime
    Declare @DatumRazl  Smalldatetime
    Declare @CenaStavr Decimal(18,6)
    Declare @CenaRazl Decimal(18,6)
    Declare @DanCenaStavr Char(1)
    Declare @DanCenaRazl Char(1)
    Declare @DanCena Char(1)
    Declare @POsn Decimal(6,2)
    Declare @Cena Decimal(18,6)
    Select Top 1 @DatumStavr=Datum_Dok,
             @CenaStavr=MagCena,
             @DanCenaStavr=DanMagCena,
             @POsn=POsn
    From Stavr Where Sifra_Art=@Sifra_Art And VlIzl='V' And Kolic>=0 And Sifra_OE=@Sifra_OE And Datum_Dok<=@Datum
    Order By Datum_Dok Desc, DokID Desc
    If @@RowCount = 1
        Begin
            If @SoDDV='D' And @DanCenaStavr='N'
                Set @CenaStavr=@CenaStavr*(1+@POsn/100)
            If @SoDDV='N' And @DanCenaStavr='D'
                Set @CenaStavr=@CenaStavr/(1+@POsn/100)
        End
    Else
        Begin
            Set @CenaStavr=0
            Set @DatumStavr='1900-01-01'
        End
    Select Top 1 @DatumRazl=Datum_Dok,
             @CenaRazl=KrCena,
             @DanCenaRazl=DanKrCena,
             @POsn=POsn
    From RazlCeni Where Sifra_Art=@Sifra_Art And Sifra_Razl='902' And Sifra_OE=@Sifra_OE And Datum_Dok<=@Datum
    Order By Datum_Dok Desc, RDokID Desc
    If @@RowCount = 1
        Begin
            If @SoDDV='D' And @DanCenaRazl='N'
                Set @CenaRazl=@CenaRazl*(1+@POsn/100)
            If @SoDDV='N' And @DanCenaRazl='D'
                Set @CenaRazl=@CenaRazl/(1+@POsn/100)
        End
    Else
        Begin
            Set @CenaRazl=0
            Set @DatumRazl='1900-01-01'
        End
    If @CenaStavr <> 0 And @CenaRazl = 0
        Set @Cena = @CenaStavr
    Else If @CenaStavr = 0 And @CenaRazl <> 0
        Set @Cena = @CenaRazl
    Else If @CenaStavr = 0 And @CenaRazl = 0
        Set @Cena = 0
    Else
        If @DatumStavr > @DatumRazl
            Set @Cena = @CenaStavr
        Else
            Set @Cena = @CenaRazl
    If @Cena = 0
        Begin
            Select @Cena=Cena, @DanCena=DanCena, @POsn=POsn From Soart
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
            If @SoDDV='D' And @DanCena='N'
                Set @Cena=@Cena*(1+@POsn/100)
            If @SoDDV='N' And @DanCena='D'
                Set @Cena=@Cena/(1+@POsn/100)
            If @Cena Is Null
                Set @Cena = 0
        End
    Return @Cena
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_cenadatum_dokcena]'))
drop function [dbo].[fn_cenadatum_dokcena]

Go




CREATE        FUNCTION fn_CenaDatum_DokCena
    (@Sifra_OE Smallint,
     @Sifra_Art Varchar(20),
     @Datum Smalldatetime,
     @SoDDV Char(1))
RETURNS decimal(18,4)
AS
BEGIN
    Declare @DatumStavr Smalldatetime
    Declare @CenaStavr Decimal(18,6)
    Declare @DanCenaStavr Char(1)
    Declare @DanCena Char(1)
    Declare @POsn Decimal(6,2)
    Declare @Cena Decimal(18,6)
    Declare @Uces Decimal(6,2)
    Declare @Kasa Decimal(6,2)
    Select Top 1 @DatumStavr=S.Datum_Dok,
             @CenaStavr=S.DokCena,
             @DanCenaStavr=S.DanDokCena,
             @POsn=S.POsn,
             @Uces=S.Uces,
             @Kasa=D.Kasa
    From Stavr S
    Inner Join Dokr D On D.DokrID=S.DokrID
    Where S.Sifra_Art=@Sifra_Art And S.VlIzl='V' And D.Sifra_Za='2' And S.Kolic>0 And S.Sifra_OE=@Sifra_OE And S.Datum_Dok<=@Datum
    Order By S.Datum_Dok Desc, S.DokID Desc
    If @@RowCount = 1
        Begin
            If @SoDDV='D' And @DanCenaStavr='N'
                Set @CenaStavr=@CenaStavr*(1+@POsn/100)*(1-@Uces/100)*(1-@Kasa/100)
            Else If @SoDDV='D' And @DanCenaStavr='D'
                Set @CenaStavr=@CenaStavr*(1-@Uces/100)*(1-@Kasa/100)
            Else If @SoDDV='N' And @DanCenaStavr='D'
                Set @CenaStavr=@CenaStavr/(1+@POsn/100)*(1-@Uces/100)*(1-@Kasa/100)
            Else If @SoDDV='N' And @DanCenaStavr='N'
                Set @CenaStavr=@CenaStavr*(1-@Uces/100)*(1-@Kasa/100)
        End
    Else
        Begin
            Set @CenaStavr=0
            Set @DatumStavr='1900-01-01'
        End
/*    If @Cena = 0
        Begin
            Select @Cena=Cena, @DanCena=DanCena, @POsn=POsn From Soart
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
            If @SoDDV='D' And @DanCena='N'
                Set @Cena=@Cena*(1+@POsn/100)
            If @SoDDV='N' And @DanCena='D'
                Set @Cena=@Cena/(1+@POsn/100)
            If @Cena Is Null
                Set @Cena = 0
        End
*/
    Return @CenaStavr
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_cenadatumnarac]'))
drop function [dbo].[fn_cenadatumnarac]

Go
CREATE   FUNCTION fn_CenaDatumNarac
    (@Sifra_OE Smallint,
     @Sifra_Art Varchar(20),
     @Datum Smalldatetime,
     @SoDDV Char(1))
RETURNS decimal(18,4)
AS
BEGIN
    Declare @DatumStavr Smalldatetime
    Declare @DatumRazl  Smalldatetime
    Declare @CenaStavr Decimal(18,6)
    Declare @CenaRazl Decimal(18,6)
    Declare @DanCenaStavr Char(1)
    Declare @DanCenaRazl Char(1)
    Declare @DanCena Char(1)
    Declare @POsn Decimal(6,2)
    Declare @Cena Decimal(18,6)
    Select Top 1 @DatumStavr=Realiz_Na,
             @CenaStavr=MagCena,
             @DanCenaStavr=DanMagCena,
             @POsn=POsn
    From StaNarac Where Sifra_Art=@Sifra_Art And Sifra_OE=@Sifra_OE And Realiz_Na<=@Datum
    Order By Realiz_Na Desc, StaNarID Desc
    If @@RowCount = 1
        Begin
            If @SoDDV='D' And @DanCenaStavr='N'
                Set @CenaStavr=@CenaStavr*(1+@POsn/100)
            If @SoDDV='N' And @DanCenaStavr='D'
                Set @CenaStavr=@CenaStavr/(1+@POsn/100)
        End
    Else
        Begin
            Set @CenaStavr=0
            Set @DatumStavr='1900-01-01'
        End
    Set @Cena = @CenaStavr
    If @Cena = 0
        Begin
            Select @Cena=Cena, @DanCena=DanCena, @POsn=POsn From Soart
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
            If @SoDDV='D' And @DanCena='N'
                Set @Cena=@Cena*(1+@POsn/100)
            If @SoDDV='N' And @DanCena='D'
                Set @Cena=@Cena/(1+@POsn/100)
            If @Cena Is Null
                Set @Cena = 0
        End
    Return @Cena
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dajbrojvlez]'))
drop function [dbo].[fn_dajbrojvlez]

Go

CREATE FUNCTION dbo.fn_DajBrojVlez
(    @Broj_Kons        int,
    @Broj_Kons_Vlez    int,
    @VlIzl            char(1)
)
RETURNS int
AS
BEGIN
    Declare @Vrati    int
    If @VlIzl = 'V'
        SET @Vrati = @Broj_Kons
    Else
        SET @Vrati = @Broj_Kons_Vlez
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dajdatumvlez]'))
drop function [dbo].[fn_dajdatumvlez]

Go

CREATE FUNCTION dbo.fn_DajDatumVlez
(    @Dat_dok        smalldatetime,
    @Dat_Dok_Vlez    smalldatetime,
    @VlIzl            char(1)
)
RETURNS smalldatetime
AS
BEGIN
    Declare @Vrati    smalldatetime
    If @VlIzl = 'V'
        SET @Vrati = @Dat_Dok
    Else
        SET @Vrati = @Dat_Dok_Vlez
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dajdrvlez]'))
drop function [dbo].[fn_dajdrvlez]

Go

CREATE FUNCTION dbo.fn_DajDrVlez
(    @Od_Dok        varchar(50),
    @Od_Dok_Vlez        varchar(50),
    @VlIzl            char(1)
)
RETURNS varchar(50)
AS
BEGIN
    Declare @Vrati    varchar(50)
    If @VlIzl = 'V'
        SET @Vrati = @Od_Dok
    Else
        SET @Vrati = @Od_Dok_Vlez
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dajkurszadatum]'))
drop function [dbo].[fn_dajkurszadatum]

Go
CREATE  FUNCTION dbo.fn_DajKursZaDatum
(    @Datum as datetime,
    @SImeVal as char(3))
RETURNS  decimal (9,6)  AS
BEGIN
    Declare @Kurs decimal (9,6)
    Select Top 1 @Kurs = KursSreden
    From KrsVaznost Where Datum <= @Datum and SImeVal = @SImeVal Order By Datum desc
    IF @Kurs IS NULL     SET @Kurs = 1
    RETURN @Kurs
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dajsifravlez]'))
drop function [dbo].[fn_dajsifravlez]

Go

CREATE FUNCTION dbo.fn_DajSifraVlez
(    @Sifra_dok        smallint,
    @Sifra_Dok_Vlez    smallint,
    @VlIzl            char(1)
)
RETURNS smallint
AS
BEGIN
    Declare @Vrati    smallint
    If @VlIzl = 'V'
        SET @Vrati = @Sifra_Dok
    Else
        SET @Vrati = @Sifra_Dok_Vlez
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dekada]'))
drop function [dbo].[fn_dekada]

Go

CREATE  FUNCTION fn_dekada
(
    @PocDatum Smalldatetime,
    @Datum Smalldatetime,
    @Denovi Smallint
)
RETURNS Smallint
AS
BEGIN
    Declare @Dekada Smallint
    Set @Dekada = 1+(DATEDIFF(day, @PocDatum, @Datum))/@Denovi
    Return(@Dekada)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_dekada_round]'))
drop function [dbo].[fn_dekada_round]

Go
CREATE  FUNCTION fn_dekada_Round
(
    @PocDatum Smalldatetime,
    @Datum Smalldatetime,
    @Denovi Smallint
)
RETURNS Smallint
AS
BEGIN
    Declare @Period as decimal(6,2)
    Set @Period = @Denovi
    Declare @Dekada Decimal(6,2)
    Set @Dekada = Round((DATEDIFF(day, @PocDatum, @Datum))/@Period, 0)
    If @dekada < 1
        Set @Dekada = 1
    Return(@Dekada)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_denodnedela]'))
drop function [dbo].[fn_denodnedela]

Go
CREATE FUNCTION fn_DenOdNedela
(    @Datum smalldatetime )
RETURNS smallint
AS
BEGIN
    Declare @Den smallint
    SET @Den = datepart(dw, @Datum)
    IF @Den=1 SET @Den=7
    Else SET @Den=@Den-1
    RETURN @Den
END




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_denovistaz]'))
drop function [dbo].[fn_denovistaz]

Go






CREATE       function fn_DenoviStaz
    (
    @Sif_Rabot int,
    @GodMes char(7)
    )
returns smallint
AS
BEGIN
declare @Dat_Od smalldatetime
declare @Dat_Do smalldatetime
declare @Dat_OdS smalldatetime
declare @Dat_DoS smalldatetime
declare @denovi as smallint
SET @Dat_Od = Cast(Substring(@GodMes,1, 4) + '-' + Substring(@GodMes, 6, 7) + '-' + '01' as smalldatetime)
SET @Dat_Do=DateADD(month, 1, @Dat_Od)
SET @Dat_Do=DateADD(day, -1, @Dat_Do)
SELECT @Dat_OdS = DatumOd FROM Staz WHERE Sifra_Rab=@Sif_Rabot AND DatumOd>=@Dat_Od AND DatumOd<=@Dat_Do
IF @Dat_OdS IS NOT NULL SET @Dat_Od=@Dat_OdS
SELECT @Dat_DoS = DatumDo FROM Staz where Sifra_Rab=@Sif_Rabot AND DatumDo<=@Dat_Do And DatumDo>=@Dat_Od
If @Dat_DoS IS NOT NULL set @Dat_Do=@Dat_DoS
set @denovi=day(@Dat_Do) - day(@Dat_Od) + 1
    RETURN (@denovi)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_desnonuli]'))
drop function [dbo].[fn_desnonuli]

Go


create   FUNCTION dbo.fn_DesnoNuli  (@Broj as Decimal(15,0), @Dolzina as smallint)
RETURNS varchar(15)
AS
BEGIN
    Declare @VratiStr varchar(15)
    SET @VratiStr = Cast(@Broj as varchar(15))
    While Len(@VratiStr) < @Dolzina
    Begin
        SET @VratiStr = @VratiStr + '0'
    End
    RETURN (@VratiStr)
END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_godinivraboten]'))
drop function [dbo].[fn_godinivraboten]

Go
CREATE Function fn_GodiniVraboten
(
    @Mat_br varchar(13),
    @GodMes char(7)
)
Returns smallint
As
    Begin
    Declare @Datum smalldatetime
    Declare @Godini smallint
    Declare @DatumRag smalldatetime

    SET @Datum = Cast(Substring(@GodMes,1, 4) + '-' + Substring(@GodMes, 6, 2) + '-' + '01' as smalldatetime)
    SET @DatumRag = Cast('1' + Substring(@Mat_Br,5, 3) + '-' + Substring(@Mat_br, 3, 2) + '-' + Substring(@Mat_br, 1, 2) as smalldatetime)
    Set @Godini=datediff(year, @DatumRag, @Datum)
    Return (@Godini)
end




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_kolicsoznak]'))
drop function [dbo].[fn_kolicsoznak]

Go




CREATE    FUNCTION fn_KolicSoZnak
(
    @Plus_Minus char(1),
    @Kolic      decimal(18,4)
)
RETURNS decimal(18,4)
AS
BEGIN
    Declare @KolicZn  decimal(18,4)
    Set @KolicZn = 0
    If @Plus_Minus = '+'
        Set @KolicZn = @Kolic
    Else
        Set @KolicZn = @Kolic * -1
    Return(@KolicZn)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_kolicvlizl]'))
drop function [dbo].[fn_kolicvlizl]

Go





CREATE     FUNCTION fn_KolicVlIzl
(
    @VlIzl    char(1),
    @Kolic    Decimal(18,4),
    @Sakam    char(1)
)
RETURNS decimal(18,4)
AS
BEGIN
    Declare @KolicZ  decimal(18,4)
    Set @KolicZ = 0
    If @Sakam = @VlIzl
        Set @KolicZ = @Kolic
    Return(@KolicZ)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_konvvodec]'))
drop function [dbo].[fn_konvvodec]

Go

CREATE FUNCTION dbo.fn_KonvVoDec
(    @Broj    decimal(18,6)
)
RETURNS decimal(18,6)
AS
BEGIN
    Declare @Vrati    decimal(18,6)
    If @Broj IS NULL
        SET @Vrati = 0
    Else
        SET @Vrati = @Broj
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_konvvostr]'))
drop function [dbo].[fn_konvvostr]

Go


CREATE  FUNCTION dbo.fn_KonvVoStr
(    @Podatok    varchar(50)
)
RETURNS varchar(50)
AS
BEGIN
    Declare @Vrati    varchar(50)
    If @Podatok IS NULL
        SET @Vrati = ''
    Else
        SET @Vrati = @Podatok
    RETURN (@Vrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_levonuli]'))
drop function [dbo].[fn_levonuli]

Go

CREATE  FUNCTION dbo.fn_LevoNuli  (@Broj as Decimal(15,0), @Dolzina as smallint)
RETURNS varchar(15)
AS
BEGIN
    Declare @VratiStr varchar(15)
    SET @VratiStr = Cast(@Broj as varchar(15))
    While Len(@VratiStr) < @Dolzina
    Begin
        SET @VratiStr = '0'+@VratiStr
    End
    RETURN (@VratiStr)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_levonulidecimal]'))
drop function [dbo].[fn_levonulidecimal]

Go

CREATE  FUNCTION dbo.fn_LevoNuliDecimal  (@Broj as Decimal(11,0), @Dolzina as smallint)
RETURNS decimal(10,2)
AS
BEGIN
    Declare @VratiStr decimal(10,2)
    SET @VratiStr = Cast(@Broj as varchar(15))
    While Len(@VratiStr) < @Dolzina
    Begin
        SET @VratiStr = '0'+@VratiStr
    End
    RETURN (@VratiStr)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_levonulistr]'))
drop function [dbo].[fn_levonulistr]

Go




CREATE     FUNCTION dbo.fn_LevoNuliStr  (@Nesto as varchar(20), @Dolzina as smallint)
RETURNS varchar(20)
AS
BEGIN
    Declare @VratiStr varchar(20)
    SET @VratiStr = Cast(@Nesto as varchar(20))
    While Len(@VratiStr) < @Dolzina
    Begin
        SET @VratiStr = '0'+@VratiStr
    End
    RETURN (@VratiStr)
END








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_nabcenadatum]'))
drop function [dbo].[fn_nabcenadatum]

Go
CREATE   FUNCTION fn_NabCenaDatum
    (@Sifra_Art Varchar(20),
     @Datum Smalldatetime,
     @SoDDV Char(1))
RETURNS decimal(18,4)
AS
BEGIN
    Declare @DatumStavr Smalldatetime
    Declare @CenaStavr Decimal(18,6)
    Declare @DanCenaStavr Char(1)
    Declare @POsn Decimal(6,2)
    Select Top 1 @DatumStavr=Datum_Dok,
             @CenaStavr=DokCena,
             @DanCenaStavr=DanDokCena,
             @POsn=POsn
    From Stavr Where Sifra_Art=@Sifra_Art And VlIzl='V' And Datum_Dok<=@Datum And Sifra_Dok=132
    Order By Datum_Dok Desc--, DokID Desc
    If @@RowCount = 1
        Begin
            If @SoDDV='D' And @DanCenaStavr='N'
                Set @CenaStavr=@CenaStavr*(1+@POsn/100)
            If @SoDDV='N' And @DanCenaStavr='D'
                Set @CenaStavr=@CenaStavr/(1+@POsn/100)
        End
    Else
        Begin
            Set @CenaStavr=0
            Set @DatumStavr='1900-01-01'
        End
    Return @CenaStavr
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_napravidatum]'))
drop function [dbo].[fn_napravidatum]

Go
CREATE     FUNCTION fn_NapraviDatum
(
    @Godina smallint,
    @Mesec    smallint,
    @Den    smallint
)
RETURNS smalldatetime
AS
BEGIN
    Declare @Datum  smalldatetime
    Set @Datum = NULL
    Set @Datum = Cast(Cast(@Godina as Varchar(4)) + '-' +
            Cast(@Mesec as Varchar(2))  + '-' +
            Cast(@Den as Varchar(2)) as smalldatetime)
    Return(@Datum)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_napravisifra]'))
drop function [dbo].[fn_napravisifra]

Go

CREATE  FUNCTION dbo.fn_NapraviSifra
(
    @Prefix    char(2),
    @Kod    char(4)
)
RETURNS char(6)
AS
BEGIN
    Declare @Sifra    char(6)
    Declare @Kod1    char(4)
    Declare @LenKod    smallint
    Declare @i        smallint
    Set @LenKod = Len(@Kod)
    if @LenKod = 4
        Set @Kod1 = @Kod
    Else If @LenKod = 3
        Set @Kod1 = '0' + Ltrim(@Kod)
    Else If @LenKod = 2
        Set @Kod1 = '00' + Ltrim(@Kod)
    Else If @LenKod = 1
        Set @Kod1 = '000' + Ltrim(@Kod)
    IF Len(@Prefix) = 2
        Set @Sifra = @Prefix+@Kod1
    ELSE
        Set @Sifra = '0'+LTrim(@Prefix)+@Kod1
    RETURN @Sifra
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_nom]'))
drop function [dbo].[fn_nom]

Go
CREATE   FUNCTION fn_Nom
(
    @Sifra_Art Varchar(20)
)
RETURNS Varchar(50)
AS
BEGIN
    Declare @Nom Varchar(50)
    Select Top 1 @Nom=Nom From ABarKod Where Sifra_Art=@Sifra_Art
    Return(@Nom)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_odvoiimeodrabotnikimerab]'))
drop function [dbo].[fn_odvoiimeodrabotnikimerab]

Go


CREATE  function fn_OdvoiImeOdRabotnikImeRab
    (
    @ImeRab varchar(30)
    )
returns varchar(30)
AS
BEGIN
    declare @ime as varchar(30)
    declare @pos as smallint
    set @pos=CHARINDEX(' ', @ImeRab, 1)
    set @ime = substring(@ImeRab,1, @pos)
    RETURN (@ime)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_odvoiprezimeodrabotnikimerab]'))
drop function [dbo].[fn_odvoiprezimeodrabotnikimerab]

Go


create  function fn_OdvoiPrezimeOdRabotnikImeRab
    (
    @ImeRab varchar(30)
    )
returns varchar(30)
AS
BEGIN
    declare @pos as smallint
    declare @len as smallint
    declare @prezime as varchar(30)
    set @pos=CHARINDEX(' ', @ImeRab, 1)
    set @len=LEN(@ImeRab)
    set @prezime = substring(@ImeRab,@pos, @len)
    RETURN (@prezime)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_opsegcena]'))
drop function [dbo].[fn_opsegcena]

Go


CREATE   FUNCTION fn_OpsegCena
(
    @Cena Decimal(18,6)
)
RETURNS Decimal
AS
BEGIN
    If @Cena Is Null Or @Cena <= 10.0
        Set @Cena = 10.0
    Else If @Cena > 10.0 And @Cena <= 20.0
        Set @Cena = 20.0
    Else If @Cena > 20.0 And @Cena <= 30.0
        Set @Cena = 30.0
    Else If @Cena > 30.0 And @Cena <= 40.0
        Set @Cena = 40.0
    Else If @Cena > 40.0 And @Cena <= 50.0
        Set @Cena = 50.0
    Else If @Cena > 50.0 And @Cena <= 60.0
        Set @Cena = 60.0
    Else If @Cena > 60.0 And @Cena <= 70.0
        Set @Cena = 70.0
    Else If @Cena > 70.0 And @Cena <= 80.0
        Set @Cena = 80.0
    Else If @Cena > 80.0 And @Cena <= 90.0
        Set @Cena = 90.0
    Else If @Cena > 90.0 And @Cena <= 100.0
        Set @Cena = 100.0
    Else If @Cena > 100.0 And @Cena <= 120.0
        Set @Cena = 120.0
    Else If @Cena > 120.0 And @Cena <= 140.0
        Set @Cena = 140.0
    Else If @Cena > 140.0 And @Cena <= 160.0
        Set @Cena = 160.0
    Else If @Cena > 160.0 And @Cena <= 180.0
        Set @Cena = 180.0
    Else If @Cena > 180.0 And @Cena <= 200.0
        Set @Cena = 200.0
    Else If @Cena > 200.0 And @Cena <= 250.0
        Set @Cena = 250.0
    Else If @Cena > 250.0 And @Cena <= 300.0
        Set @Cena = 300.0
    Else If @Cena > 300.0 And @Cena <= 350.0
        Set @Cena = 350.0
    Else If @Cena > 350.0 And @Cena <= 400.0
        Set @Cena = 400.0
    Else If @Cena > 400.0 And @Cena <= 450.0
        Set @Cena = 450.0
    Else If @Cena > 450.0 And @Cena <= 500.0
        Set @Cena = 500.0
    Else If @Cena > 500.0 And @Cena <= 600.0
        Set @Cena = 600.0
    Else If @Cena > 600.0 And @Cena <= 700.0
        Set @Cena = 700.0
    Else If @Cena > 700.0 And @Cena <= 800.0
        Set @Cena = 800.0
    Else If @Cena > 800.0 And @Cena <= 900.0
        Set @Cena = 900.0
    Else If @Cena > 900.0 And @Cena <= 1000.0
        Set @Cena = 1000.0
    Else If @Cena > 1000.0 And @Cena <= 1100.0
        Set @Cena = 1100.0
    Else If @Cena > 1200.0 And  @Cena <= 1300.0
        Set @Cena = 1300.0
    Else If @Cena > 1300.0 And @Cena <= 1400.0
        Set @Cena = 1400.0
    Else If @Cena > 1400.0 And @Cena <= 1500.0
        Set @Cena = 1500.0
    Else If @Cena > 1500.0 And @Cena <= 1600.0
        Set @Cena = 1600.0
    Else If @Cena > 1600.0 And @Cena <= 1700.0
        Set @Cena = 1700.0
    Else If @Cena > 1700.0 And @Cena <= 1800.0
        Set @Cena = 1800.0
    Else If @Cena > 1800.0 And @Cena <= 1900.0
        Set @Cena = 1900.0
    Else If @Cena > 1900.0 And @Cena <= 2000.0
        Set @Cena = 2000.0
    Else If @Cena > 2000.0 And @Cena <= 3000.0
        Set @Cena = 3000.0
    Else If @Cena > 3000.0 And @Cena <= 4000.0
        Set @Cena = 4000.0
    Else If @Cena > 4000.0 And @Cena <= 5000.0
        Set @Cena = 5000.0
    Else If @Cena > 5000.0 And @Cena <= 6000.0
        Set @Cena = 6000.0
    Else If @Cena > 6000.0 And @Cena <= 7000.0
        Set @Cena = 7000.0
    Else If @Cena > 7000.0 And @Cena <= 8000.0
        Set @Cena = 8000.0
    Else If @Cena > 8000.0 And @Cena <= 9000.0
        Set @Cena = 9000.0
    Else If @Cena > 9000.0 And @Cena <= 10000.0
        Set @Cena = 10000.0
    Else If @Cena > 10000.0
        Set @Cena = 10001.0
Return(@Cena)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_popisobraboten]'))
drop function [dbo].[fn_popisobraboten]

Go
CREATE   FUNCTION fn_PopisObraboten
(
    @IdPopis int
)
RETURNS char(1)
AS
BEGIN
    Declare @Obraboten char(1)
    Set @Obraboten = 'N'
    If Exists (Select Top 1 IdPopis From RPopis Where IdPopis=@IdPopis)
        Set @Obraboten = 'D'
    Return(@Obraboten)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_presmamor]'))
drop function [dbo].[fn_presmamor]

Go


CREATE       FUNCTION fn_PresmAmor
(
    @PocDat smalldatetime,
    @KrDat    smalldatetime,
    @Osn_Amor decimal(18,6),
    @Stapka_Amor decimal(9,3),
    @Otpis_Pret decimal(18,6),
    @PresmPoDenovi char(1)
)
RETURNS decimal(18,4)
AS
BEGIN
    Declare @Amor decimal(18,6)
    Declare @BrMeseci smallint, @BrDenovi smallint, @BrDenaVoGod smallint, @God smallint
    Declare @SegVr decimal(18,6)
    IF @PresmPoDenovi='D'
    Begin
        SET @God= year(@PocDat)
        IF @God/4 * 4 = @God        --prestapna
            SET @BrDenaVoGod=366
        ELSE
            SET @BrDenaVoGod=366
        SET @BrDenovi = DateDiff(day, @PocDat, @KrDat)+1
        SET @Amor = Round(((@Osn_Amor * @Stapka_Amor / 100) * @BrDenovi / @BrDenaVoGod), 2)
    End
    Else
    Begin
        SET @BrMeseci = DateDiff(month, @PocDat, @KrDat)+1
        SET @Amor = Round(((@Osn_Amor * @Stapka_Amor / 100) * @BrMeseci / 12), 2)
    End

    SET @SegVr = @Osn_Amor - (@Amor + @Otpis_Pret)
    IF @SegVr < 0
        SET @Amor = @Osn_Amor - @Otpis_Pret
    IF @Amor < 0 SET @Amor = 0
    Return(@Amor)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_presmpoienitxagen]'))
drop function [dbo].[fn_presmpoienitxagen]

Go





CREATE     FUNCTION fn_PresmPoieniTXAgen
(
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
)
RETURNS integer
AS
BEGIN
    Declare @wPoeni    int
    SET @wPoeni = 0
    SELECT @wPoeni = @wPoeni + Kolic * 25 FROM Stavr WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok AND Sifra_Art='141115'
    SELECT @wPoeni = @wPoeni + Round(Kolic*DokCena*(1-Uces/100) * 0.1/61.5,0) FROM Stavr WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok AND Sifra_Art='141119'
    SELECT @wPoeni = @wPoeni + Round(Kolic*DokCena*(1-Uces/100) * 0.3/61.5,0) FROM Stavr WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok AND Sifra_Art='141117'

    Return(@wPoeni)
END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_presmrevalnabprethgod]'))
drop function [dbo].[fn_presmrevalnabprethgod]

Go
CREATE FUNCTION fn_PresmRevalNabPrethGod
(
    @DatAkt    smalldatetime,
    @DatPrest    smalldatetime,
    @DatPresmOd    smalldatetime,
    @DatPresmDo    smalldatetime
)
RETURNS decimal(18,3)
AS
BEGIN
    Declare @Koef decimal(18,3)
    Declare @PomalMes smallint
    Declare @KoefOdMes decimal(18,4)
    Declare @KoefDoMes decimal(18,4)

    If @DatAkt>@DatPresmDo    -- Neaktivirano do datumpt na presmetka
        Set @Koef = 0

    If Month(@DatPrest)<>0 And Year(@DatPrest)<Year(@DatPresmOd)            -- Otpisano vo prethodni godini
        Set @Koef=0
    Else If Month(@DatPrest)<>0 And Year(@DatPrest)=Year(@DatPresmOd)    -- Otpisano Godinava
    Begin
        If Year(@DatPrest)=Year(@DatPresmOd) And Month(@DatPrest)<Month(@DatPresmDo)  -- ???????????????
            Set @Koef=0
        Else
        Begin
            If Month(@DatPrest)<Month(@DatPresmDo)
                Set @PomalMes = Month(@DatPrest)
            Else
                Set @PomalMes = Month(@DatPresmDo)

            Set @Koef = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
        End
    End
    Else   --Neotpisano, mislam deka moze slobodno da se zeme 12 kako mesec za utvrduvanje na koef
    Begin
            If Month(@DatPresmDo) <= 12
                Set @PomalMes = Month(@DatPresmDo)
            Else
                Set @PomalMes = 12
            Set @Koef = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
    End

    Return @Koef

END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_presmrevalnabtekgod]'))
drop function [dbo].[fn_presmrevalnabtekgod]

Go
CREATE FUNCTION fn_PresmRevalNabTekGod
(
    @DatAkt    smalldatetime,
    @DatPrest    smalldatetime,
    @DatPresmOd    smalldatetime,
    @DatPresmDo    smalldatetime
)
RETURNS decimal(18,3)
AS
BEGIN
    Declare @Koef decimal(18,3)
    Declare @PomalMes smallint
    Declare @KoefOdMes decimal(18,4)
    Declare @KoefDoMes decimal(18,4)

    If @DatAkt>@DatPresmDo    -- Neaktivirano do datumpt na presmetka
        Set @Koef = 0

    If Year(@DatAkt) = Year(@DatPresmOd) And Month(@DatAkt) > Month(@DatPresmDo) -- Aktivirano po datumot na presmetka
        Set @Koef=0
    Else If Month(@DatPrest) <> 0 And Year(@DatPrest) < Year(@DatPresmOd)   -- Otpisano vo prethodni god
        Set @Koef=0
    Else If Month(@DatPrest) <> 0  And Year(@DatPrest)=Year(@DatPresmOd)   -- Otpisano godinava
    Begin
        If Month(@DatAkt) >= Month(@DatPrest)   -- Aktivirano posle presmetkata
            Set @Koef=0
        Else If Year(@DatPrest)=Year(@DatPresmOd) And Month(@DatPrest)<Month(@DatPresmDo) -- ?????????????
            Set @Koef=0
        Else
        Begin
            If Month(@DatPrest)<Month(@DatPresmDo)
                Set @PomalMes = Month(@DatPrest)
            Else
                Set @PomalMes = Month(@DatPresmDo)

            Set @KoefOdMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=Month(@DatAkt))
            Set @KoefDoMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
            Set @Koef = (1+@KoefDoMes)/(1+@KoefOdMes) - 1
        End
    End
    Else
    Begin
            If Month(@DatPresmDo) <= 12
                Set @PomalMes = Month(@DatPresmDo)
            Else
                Set @PomalMes = 12

            Set @KoefOdMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=Month(@DatAkt))
            Set @KoefDoMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
--print @KoefOdMes, @KoefDoMes
            Set @Koef = (1+@KoefDoMes)/(1+@KoefOdMes) - 1
--set @koef = @KoefDoMes
    End

    Return @Koef
END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_presmrevalorizacija]'))
drop function [dbo].[fn_presmrevalorizacija]

Go
CREATE FUNCTION fn_PresmRevalorizacija
(
    @DatAkt    smalldatetime,
    @DatPrest    smalldatetime,
    @DatPresmOd    smalldatetime,
    @DatPresmDo    smalldatetime
)
RETURNS decimal(18,4)
AS
BEGIN
    Declare @Koef decimal(18,4)
    Declare @PomalMes smallint
    Declare @KoefOdMes decimal(18,4)
    Declare @KoefDoMes decimal(18,4)

    If @DatAkt>@DatPresmDo    -- Neaktivirano do datumpt na presmetka
        Set @Koef = 0
    Else If Year(@DatAkt)<Year(@DatPresmOd)   -- Nabaveni vo prethodni godini
    Begin
        If Month(@DatPrest)<>0 And Year(@DatPrest)<Year(@DatPresmOd)            -- Otpisano vo prethodni godini
            Set @Koef=0
        Else If Month(@DatPrest)<>0 And Year(@DatPrest)=Year(@DatPresmOd)    -- Otpisano Godinava
        Begin
            If Year(@DatPrest)=Year(@DatPresmOd) And Month(@DatPrest)<Month(@DatPresmDo)
                Set @Koef=0
            Else
            Begin
                If Month(@DatPrest)<Month(@DatPresmDo)
                    Set @PomalMes = Month(@DatPrest)
                Else
                    Set @PomalMes = Month(@DatPresmDo)

                Set @Koef = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
            End
        End
        Else   --Neotpisano, mislam deka moze slobodno da se zeme 12 kako mesec za utvrduvanje na koef
        Begin
                If Month(@DatPrest) <= 12
                    Set @PomalMes = Month(@DatPrest)
                Else
                    Set @PomalMes = 12

                Set @Koef = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
        End
    End
    Else  -- Nabaveni godinava
    Begin
        If Year(@DatAkt) = Year(@DatPresmOd) And Month(@DatAkt) > Month(@DatPresmDo)
            Set @Koef=0
        Else If Month(@DatPrest) <> 0 And Year(@DatPrest) < Year(@DatPresmOd)
            Set @Koef=0
        Else If Month(@DatPrest) <> 0  And Year(@DatPrest)=Year(@DatPresmOd)
        Begin
            If Month(@DatAkt) >= Month(@DatPrest)
                Set @Koef=0
            Else If Year(@DatPrest)=Year(@DatPresmOd) And Month(@DatPrest)<Month(@DatPresmDo)
                Set @Koef=0
            Else
            Begin
                If Month(@DatPrest)<Month(@DatPresmDo)
                    Set @PomalMes = Month(@DatPrest)
                Else
                    Set @PomalMes = Month(@DatPresmDo)

                Set @KoefOdMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=Month(@DatAkt))
                Set @KoefDoMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
                Set @Koef = (1+@KoefDoMes)/(1+@KoefOdMes) - 1
            End
        End
        Else
        Begin
                If Month(@DatPrest) <= 12
                    Set @PomalMes = Month(@DatPrest)
                Else
                    Set @PomalMes = 12

                Set @KoefOdMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=Month(@DatAkt))
                Set @KoefDoMes = (Select Stapka From PorastCeniSt Where Godina = Year(@DatPresmDo) And Mesec=@PomalMes)
                Set @Koef = (1+@KoefDoMes)/(1+@KoefOdMes) - 1
        End
    End

    Return @Koef

END




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_rbrsort]'))
drop function [dbo].[fn_rbrsort]

Go

CREATE   FUNCTION fn_RbrSort
(
    @RbrSt        int,
    @RbrVrs    int
)
RETURNS int
AS
BEGIN
    Declare @RbrVrati int
    If @RbrVrs Is NULL
        Set @RbrVrati = @RbrSt
    Else
        Begin
            If @RbrSt > @RbrVrs
                Set @RbrVrati = @RbrSt
            Else
                Set @RbrVrati = @RbrVrs
        End
    Return(@RbrVrati)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_smr_filtriart]'))
drop function [dbo].[fn_smr_filtriart]

Go
CREATE FUNCTION fn_smr_FiltriArt
(
    @Sifra_Art_Od        Varchar(20) = Null,
    @Sifra_Art_Do        Varchar(20) = Null,
    @Kto            char(6) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Lokacija        varchar(11) = Null,
    @Sifra_Brand         Smallint,
    @Sifra_Zbiren         Smallint,
    @Drugo1        smallint = Null,
    @Drugo2        smallint = Null,
    @Drugo3        smallint = Null,
    @Drugo4        smallint = Null,
    @Drugo5        smallint = Null,
    @Drugo6        smallint = Null,
    @Drugo7        smallint = Null,

    @Sifra_Layout         int,

    @Sifra_PodOblast    Varchar(10)=null,
    @Sifra_Asort        Varchar(10)=null,
    @Sifra_Oblast        Varchar(10)=null,

    @Datum_Art_Poc_Od    smalldatetime = NULL,
    @Datum_Art_Poc_Do    smalldatetime = NULL,
    @Datum_Art_Kr_Od    smalldatetime = NULL,
    @Datum_Art_Kr_Do    smalldatetime = NULL

)
RETURNS Varchar(8000)
AS
BEGIN

    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select Distinct K.Sifra_Art
            From Katart K
            Inner Join Podgrupi P on P.Sifra_Podg=K.Sifra_Podg
            Inner Join Grupi G on G.Sifra_Gr=P.Sifra_Gr
            Left Outer Join Podoblast PO On PO.Sifra_Podoblast=G.Sifra_Podoblast
            Left Outer Join Oblast OB On OB.Sifra_Oblast=PO.Sifra_oblast
            Left Outer Join DrgPodel DR On DR.Sifra_Drg=K.Sifra_Drg
            Left Outer Join Layoutunit L on L.Sifra_layoutunit=K.Sifra_layoutunit
            Left Outer Join LayoutElem LE On LE.Sifra_Layoutunit=L.Sifra_Layoutunit '

    Set @SSQL = @SSQL + ' Where 1=1 '

    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr IS NOT NULL
              Set @SSQL = @SSQL + ' And P.Sifra_Gr='''+@Sifra_Gr+''' '
    If @Sifra_Brand Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Sifra_Zbiren Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Drg1=''' + Cast(@Sifra_Zbiren As Varchar(5)) + ''' '
    If @Drugo1 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo1 = ' + Cast(@Drugo1 as varchar(6)) + ' '
    If @Drugo2 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo2 = ' + Cast(@Drugo2 as varchar(6)) + ' '
    If @Drugo3 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo3 = ' + Cast(@Drugo3 as varchar(6)) + ' '
    If @Drugo4 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo4 = ' + Cast(@Drugo4 as varchar(6)) + ' '
    If @Drugo5 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo5 = ' + Cast(@Drugo5 as varchar(6)) + ' '
    If @Drugo6 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo6 = ' + Cast(@Drugo6 as varchar(6)) + ' '
    If @Drugo7 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo7 = ' + Cast(@Drugo7 as varchar(6)) + ' '

    If @Datum_Art_Poc_Od Is NOT Null
        SET @SSQL = @SSQL + ' And K.Datum_Art_Poc>= ''' + Cast(@Datum_Art_Poc_Od As Varchar(35)) + ''' '
    If @Datum_Art_Poc_Do Is NOT Null
        SET @SSQL = @SSQL + ' And K.Datum_Art_Poc<= ''' + Cast(@Datum_Art_Poc_Do As Varchar(35)) + ''' '
    If @Datum_Art_Kr_Od Is NOT Null
        SET @SSQL = @SSQL + ' And K.Datum_Art_Kr>= ''' + Cast(@Datum_Art_Kr_Od As Varchar(35)) + ''' '
    If @Datum_Art_Kr_Do Is NOT Null
        SET @SSQL = @SSQL + ' And K.Datum_Art_Kr<= ''' + Cast(@Datum_Art_Kr_Do As Varchar(35)) + ''' '

    If @Sifra_LayOut Is Not NULL
        Set @SSQL = @SSQL + ' And LE.Sifra_LayOut=''' + Cast(@Sifra_LayOut As Varchar(5)) + ''' '

    If @Sifra_Asort Is Not Null
        Set @SSQL = @SSQL + ' And OB.Sifra_Asort=''' + @Sifra_asort + ''' '
    If @Sifra_Oblast IS NOT NULL
              Set @SSQL = @SSQL + ' And PO.Sifra_Oblast='''+@Sifra_Oblast+''' '
    If @Sifra_PodOblast IS NOT NULL
        Set @SSQL = @SSQL + ' And G.Sifra_PodOblast='''+@Sifra_PodOblast+''' '

    Return @SSQL
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_soannab]'))
drop function [dbo].[fn_soannab]

Go

CREATE   FUNCTION fn_soannab
(
    @NNabCena Decimal(18,6),
    @VRN_Vlez Decimal(18,6),
    @VRN_Izlez Decimal(18,6),
    @Vlez Decimal(18,6),
    @Izlez Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @tempCena Decimal(18,6)
    If @Vlez-@Izlez <> 0
        Set @tempCena = (@VRN_Vlez-@VRN_Izlez)/(@Vlez-@Izlez)
    If @tempCena > 0
        Set @NNabCena = @tempCena
    Return(@NNabCena)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_split]'))
drop function [dbo].[fn_split]

Go

CREATE  FUNCTION dbo.fn_Split(@String varchar(8000), @Delimiter char(1))
    returns @temptable TABLE (Pole varchar(8000))
as
begin
    declare @idx int
    declare @slice varchar(8000)
    select @idx = 1
    if len(@String)<1 or @String is null
         return
    while @idx != 0
    begin
        set @idx = charindex(@Delimiter,@String)
        if @idx != 0
            set @slice = left(@String, @idx - 1)
        else
            set @slice = @String
        if len(@slice) > 0
            insert into @temptable     (Pole)
            values(@slice)
        set @String = right(@String,len(@String) - @idx)
        if len(@String) = 0
            break
    end
return
end






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_ulkod]'))
drop function [dbo].[fn_ulkod]

Go




CREATE    FUNCTION fn_ULKod
(
    @Sifra_Art  Varchar(20),
    @Alt_Sifra  varchar(15)
)
RETURNS char(5)
AS
BEGIN
    Declare @Kod  char(5)
    Set @Kod = '     '
    If LTRIM(@Alt_Sifra) <> ''
        Set @Kod = LTRIM(@Alt_Sifra)
    Else
        Set @Kod = 'L' + SUBSTRING(@Sifra_Art, 3, 4)
    Return(@Kod)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vodat]'))
drop function [dbo].[fn_vodat]

Go
CREATE  FUNCTION fn_VoDat
(
    @Dat    varchar(20)
)
RETURNS smalldatetime--Varchar(20)
AS
BEGIN
    Declare @Datum smalldatetime
    Declare @God varchar(4)
    Declare @Mes varchar(2)
    Declare @Den varchar(2)
    Set @God = Substring(@Dat, 7, 2)
    Set @Mes = Substring(@Dat, 4, 2)
    Set @Den = Substring(@Dat, 1, 2)
    Set @Datum = ('20'+@God + '-' + @Mes + '-' + @Den)
    Return(@Datum)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vr_krajna]'))
drop function [dbo].[fn_vr_krajna]

Go

CREATE    FUNCTION fn_vr_krajna
(
    @Kolic Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @DokCena = 0
        Return(@Vr_Krajna)
    If @DanDokCena='D'
        Set @Vr_Krajna = @Kolic * @DokCena * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Else If @DanDokCena='N'
        Set @Vr_Krajna = @Kolic * (@DokCena * (1 + @POsn / 100)) * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vr_osnov]'))
drop function [dbo].[fn_vr_osnov]

Go

CREATE  FUNCTION fn_vr_osnov
(
    @Kolic Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Osnov Decimal(18,6)
    If @DanDokCena='D'
        Set @Vr_Osnov = @Kolic *(@DokCena / (1 + (@POsn / 100)))
    Else If @DanDokCena='N'
        Set @Vr_Osnov = @Kolic * @DokCena
    Return(@Vr_Osnov)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vr_sorabat]'))
drop function [dbo].[fn_vr_sorabat]

Go

CREATE  FUNCTION fn_vr_sorabat
(
    @Kolic Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_SoRabat Decimal(18,6)
    If @DanDokCena='D'
        Set @Vr_SoRabat = @Kolic *(@DokCena / (1 + (@POsn / 100)) * (1 - @Uces / 100)) * (1 - @Kasa / 100)
    Else If @DanDokCena='N'
        Set @Vr_SoRabat = @Kolic * @DokCena  * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Return(@Vr_SoRabat)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratiakciza]'))
drop function [dbo].[fn_vratiakciza]

Go
CREATE     FUNCTION fn_VratiAkciza
(
    @Kolic Decimal(18,6),
    @Tezina Float,
    @ProcAlk Decimal(9,6),
    @AlkAkciza Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vrednost Decimal(18,6)
    Set @Vrednost = 0
--    Declare @AlkAkciza Char(10)
--    Set @AlkAkciza = (Select Cast(AlkAkciza as decimal(18,6)) From Konfig)
    Set @Vrednost = @Kolic * @Tezina* @ProcAlk * @AlkAkciza / 1000
    Return(@Vrednost)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticena]'))
drop function [dbo].[fn_vraticena]

Go


CREATE    FUNCTION fn_VratiCena
(
    @Cena Decimal(18,6),
    @POsn Decimal(6,2),
    @CenaSoDanok Char(1),
    @VratiCenaSoDanok Char(1)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    if @Cena = 0
        Return(@Vr_Krajna)
    If (@CenaSoDanok='D' and @VratiCenaSoDanok='D') or (@CenaSoDanok='N' and @VratiCenaSoDanok='N')
        Set @Vr_Krajna = @Cena
    Else If @CenaSoDanok='N' and @VratiCenaSoDanok='D'
        Set @Vr_Krajna = @Cena * (1 + @POsn / 100)
    Else If @CenaSoDanok='D' and @VratiCenaSoDanok='N'
        Set @Vr_Krajna = @Cena / (1 + @POsn / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenaakciza]'))
drop function [dbo].[fn_vraticenaakciza]

Go
CREATE     FUNCTION fn_VratiCenaAkciza
(
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2),
    @Kolic Decimal(18,6),
    @Tezina Float,
    @ProcAlk Decimal(9,6),
    @AlkAkciza decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    Declare @Cena Decimal(18,6)
    Set @Cena=0
    Declare @Vrednost Decimal(18,6)
    Declare @Danok Decimal(18,6)
    Declare @NetoVredn Decimal(18,6)
    Declare @Akciza Decimal(18,6)
--    Declare @AlkAkciza Char(10)
--    Set @AlkAkciza = (Select Cast(AlkAkciza as decimal(18,6)) From Konfig)
    If @DokCena = 0
        Return(@Vr_Krajna)
    If @DanDokCena = 'D'
        Set @Cena = @DokCena * (1 - @Uces/100)  * (1 - @Kasa / 100) / (1 + @Posn / 100)
    else If @DanDokCena='N'
        Set @Cena = @DokCena * (1 - @Uces/100)  * (1 - @Kasa / 100)
    Set @NetoVredn = @Cena * @Kolic
    Set @Akciza = @AlkAkciza * @Kolic * @Tezina * @ProcAlk / 1000          -- @AlkAkciza - Cena po litar alkohol ,       (@Kolic * @Tezina * @ProcAlk / 1000)  - Presmetan litar alkohol
    If @Kolic <> 0
        Set @Vr_Krajna = (@NetoVredn - @Akciza) / @Kolic
    Else
        Set @Vr_Krajna = 0
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenagg]'))
drop function [dbo].[fn_vraticenagg]

Go


CREATE   FUNCTION fn_VratiCenaGG
(
    @Cena Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Return(@Cena)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenaosnov]'))
drop function [dbo].[fn_vraticenaosnov]

Go
CREATE     FUNCTION fn_VratiCenaOsnov
(
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @DokCena = 0
        Return(@Vr_Krajna)
    If @DanDokCena = 'D'
        Set @Vr_Krajna = @DokCena * (1 - @Uces/100)  * (1 - @Kasa / 100) / (1 + @Posn / 100)
    else If @DanDokCena='N'
        Set @Vr_Krajna = @DokCena * (1 - @Uces/100)  * (1 - @Kasa / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenapopis]'))
drop function [dbo].[fn_vraticenapopis]

Go
CREATE   FUNCTION fn_VratiCenaPopis
(
    @KolPopis Decimal(18,6),
    @VrPopis Decimal(18,6),
    @KolKnig Decimal(18,6),
    @VrKnig Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Cena Decimal(18,6)
    Set @Cena = 0
    If @KolPopis <> 0
    Begin
        Set @Cena = @VrPopis/@KolPopis
            If @Cena > 0
                Return (@Cena)
    End
    If @KolKnig <> 0
    Begin
        Set @Cena = @VrKnig/@KolKnig
            If @Cena > 0
                Return (@Cena)
    End
    Set @Cena = 0
    Return(@Cena)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenasoddvbezrabat]'))
drop function [dbo].[fn_vraticenasoddvbezrabat]

Go

CREATE     FUNCTION fn_VratiCenaSoDDVBezRabat
(
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @DokCena = 0
        Return(@Vr_Krajna)
    Set @Vr_Krajna = @DokCena * (1 - @Uces/100)  * (1 - @Kasa / 100)
    If @DanDokCena='N'
        Set @Vr_Krajna = @Vr_Krajna * (1 + @Posn / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vraticenazalager]'))
drop function [dbo].[fn_vraticenazalager]

Go


CREATE    FUNCTION fn_VratiCenaZaLager
(
    @SoDanok char(1),
    @VlIzl char(1),
    @MagCena Decimal(18,6),
    @DanMagCena char(1),
    @POsn Decimal(5,2),
    @DokCena Decimal(18,6),
    @DanDokCena char(1),
    @POsnPren Decimal(5,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    /*Declare @VlIzl char(1)
    Declare @MagCena Decimal(18,6)
    Declare @DanMagCena char(1)
    Declare @POsn Decimal(5,2)
    Declare @DokCena Decimal(18,6)
    Declare @DanDokCena char(1)
    Declare @POsnPren Decimal(5,2)
    SELECT @VlIzl=VlIzl, @MagCena=MagCena, @DanMagCena=DanMagCena,
             @POsn=POsn, @DokCena=DokCena, @DanDokCena=DanDokCena, @POsnPren=POsnPren
    FROM Stavr
    WHERE DokID=@DokID    */
    If @VlIzl = 'I'
        Set @Vr_Krajna=dbo.fn_VratiCena(@DokCena, @POsnPren, @DanDokCena, @SoDanok)
    If @VlIzl = 'V'
        Set @Vr_Krajna=dbo.fn_VratiCena(@MagCena, @POsn, @DanMagCena, @SoDanok)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatum]'))
drop function [dbo].[fn_vratidatum]

Go
CREATE    FUNCTION fn_VratiDatum
(
    @DatumVreme smalldatetime
)
RETURNS smalldatetime
AS
BEGIN
    Declare @Datum  smalldatetime
    Set @Datum = NULL
    Set @Datum  = cast(cast(datepart(yyyy, @DatumVreme) as char(4)) +'-'+
            cast(datepart(mm, @DatumVreme) as char(2)) +'-'+
            cast(datepart(dd, @DatumVreme) as char(2)) as smalldatetime)
    Return(@Datum)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumbezcrti]'))
drop function [dbo].[fn_vratidatumbezcrti]

Go






CREATE           FUNCTION fn_VratiDatumBezCrti
(
    @DatumVreme smalldatetime
)
RETURNS char(10)
AS
BEGIN
    Declare @Datum  char(10)
    Set @Datum = NULL
    Set @Datum  = cast(datepart(yyyy, @DatumVreme) as char(4)) +
            case when cast(datepart(mm, @DatumVreme) as char(2))<10 then '0'+ cast(datepart(mm, @DatumVreme) as char(1)) else cast(datepart(mm, @DatumVreme) as char(2)) end +
            case when cast(datepart(dd, @DatumVreme) as char(2))<10 then '0'+ cast(datepart(dd, @DatumVreme) as char(1)) else cast(datepart(dd, @DatumVreme) as char(2)) end
    Return(@Datum)
END









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumbezcrtiobratno]'))
drop function [dbo].[fn_vratidatumbezcrtiobratno]

Go
CREATE       FUNCTION fn_VratiDatumBezCrtiObratno
(
    @DatumVreme smalldatetime
)
RETURNS char(10)
AS
BEGIN
    Declare @Datum  char(10)
    Set @Datum = NULL
    Set @Datum  = case when datepart(dd, @DatumVreme)<10 then '0'+ cast(datepart(dd, @DatumVreme) as char(1))
                    else cast(datepart(dd, @DatumVreme) as char(2)) end +
                  case when  datepart(mm, @DatumVreme)<10 then '0'+ cast(datepart(mm, @DatumVreme) as char(1))
                    else cast(datepart(mm, @DatumVreme) as char(2)) end +
                  cast(datepart(yyyy, @DatumVreme) as char(4))
    Return(@Datum)
END


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumod]'))
drop function [dbo].[fn_vratidatumod]

Go
CREATE    FUNCTION fn_VratiDatumOd
(
    @Godina smallint,
    @Mesec smallint
)
RETURNS smalldatetime
AS
BEGIN
    Declare @DatOd  smalldatetime
    Set @DatOd = NULL
    Set @DatOd = Cast(Cast(@Godina as Varchar(4)) + '-' + Cast(@Mesec as Varchar(2))+ '-' + '01' as smalldatetime)
    Return(@DatOd)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumoddo]'))
drop function [dbo].[fn_vratidatumoddo]

Go
CREATE    FUNCTION fn_VratiDatumOdDo
(
    @Godina varchar(4),
    @Mesec varchar(2),
    @Den varchar(2)
)
RETURNS smalldatetime
AS
BEGIN
    If @Den > 30 and @Mesec In (4,6,9,11)
        Set @Den = 30
    Else If @Den > 28 and @Mesec=2
    Begin
        Declare @DatPres as smalldatetime
        Set @DatPres = Cast(@Godina + '-03-01' as smalldatetime)
        Set @DatPres = dateadd(day, -1, @DatPres)
        Set @Den = Day(@DatPres)
    End
    Declare @Dat  smalldatetime
    Set @Dat = NULL
    Set @Dat = Cast(@Godina + '-' + @Mesec + '-' + @Den as smalldatetime)
    Return(@Dat)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumstring]'))
drop function [dbo].[fn_vratidatumstring]

Go

CREATE     FUNCTION fn_VratiDatumString
(
    @Datum smalldatetime
)
RETURNS varchar(30)
AS
BEGIN
    Declare @DatOd  varchar(30)
    Declare @Mesec varchar(2)
    Declare @Den varchar(2)
    If Month(@Datum) < 10
        Set @Mesec = '0' + cast(Month(@Datum) as varchar(1))
    Else
        Set @Mesec = cast(Month(@Datum) as varchar(2))
    If Day(@Datum) < 10
        Set @Den = '0' + cast(Day(@Datum) as varchar(1))
    Else
        Set @Den = cast(Day(@Datum) as varchar(2))
    Set @DatOd = NULL
    Set @DatOd = @Den + '-' + @Mesec + '-' + Cast(Year(@Datum) as Varchar(4))
    Return(@DatOd)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumstring2]'))
drop function [dbo].[fn_vratidatumstring2]

Go
Create      FUNCTION fn_VratiDatumString2
(
    @Datum smalldatetime
)
RETURNS varchar(30)
AS
BEGIN
    Declare @DatOd  varchar(30)
    Declare @Mesec varchar(2)
    Declare @Den varchar(2)
    If Month(@Datum) < 10
        Set @Mesec = '0' + cast(Month(@Datum) as varchar(1))
    Else
        Set @Mesec = cast(Month(@Datum) as varchar(2))
    If Day(@Datum) < 10
        Set @Den = '0' + cast(Day(@Datum) as varchar(1))
    Else
        Set @Den = cast(Day(@Datum) as varchar(2))
    Set @DatOd = NULL
    Set @DatOd = @Den + '/' + @Mesec + '/' + Cast(Year(@Datum) as Varchar(4))
    Return(@DatOd)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumstringobratno]'))
drop function [dbo].[fn_vratidatumstringobratno]

Go

CREATE    FUNCTION fn_VratiDatumStringObratno
(
    @Datum smalldatetime
)
RETURNS varchar(8)
AS
BEGIN
    Declare @DatOd  varchar(30)
    Declare @Mesec varchar(2)
    Declare @Den varchar(2)
    If Month(@Datum) < 10
        Set @Mesec = '0' + cast(Month(@Datum) as varchar(1))
    Else
        Set @Mesec = cast(Month(@Datum) as varchar(2))
    If Day(@Datum) < 10
        Set @Den = '0' + cast(Day(@Datum) as varchar(1))
    Else
        Set @Den = cast(Day(@Datum) as varchar(2))
    Set @DatOd = NULL
    Set @DatOd =  Cast(Year(@Datum) as varchar(4))+ @Mesec+@Den
    Set @DatOd=substring(@DatOd, 3, 6)
    Return(@DatOd)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumstringobratnopoc]'))
drop function [dbo].[fn_vratidatumstringobratnopoc]

Go

CREATE     FUNCTION fn_VratiDatumStringObratnoPoc
(
    @Datum smalldatetime
)
RETURNS varchar(8)
AS
BEGIN
    Declare @DatOd  varchar(30)
    Declare @Mesec varchar(2)
    Declare @Den varchar(2)
    If Month(@Datum) < 10
        Set @Mesec = '0' + cast(Month(@Datum) as varchar(1))
    Else
        Set @Mesec = cast(Month(@Datum) as varchar(2))
    If Day(@Datum) < 10
        Set @Den = '0' + cast(Day(@Datum) as varchar(1))
    Else
        Set @Den = cast(Day(@Datum) as varchar(2))
    Set @DatOd = NULL
    Set @DatOd =  Cast(Year(@Datum) as varchar(4))+ @Mesec+@Den
    Set @DatOd=substring(@DatOd, 1, 8)
    Return(@DatOd)
END







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidatumstringsocrti]'))
drop function [dbo].[fn_vratidatumstringsocrti]

Go

CREATE    FUNCTION fn_VratiDatumStringSoCrti
(
    @Datum smalldatetime
)
RETURNS varchar(30)
AS
BEGIN
    Declare @DatOd  varchar(30)
    Declare @Mesec varchar(2)
    Declare @Den varchar(2)
    If Month(@Datum) < 10
        Set @Mesec = '0' + cast(Month(@Datum) as varchar(1))
    Else
        Set @Mesec = cast(Month(@Datum) as varchar(2))
    If Day(@Datum) < 10
        Set @Den = '0' + cast(Day(@Datum) as varchar(1))
    Else
        Set @Den = cast(Day(@Datum) as varchar(2))
    Set @DatOd = Cast(Year(@Datum) as Varchar(4)) + '-' + @Mesec + '-' + @Den
    Return(@DatOd)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratidenabezvikend]'))
drop function [dbo].[fn_vratidenabezvikend]

Go

CREATE     FUNCTION fn_VratiDenaBezVikend
(
    @Datum smalldatetime
)
RETURNS Smallint
AS
BEGIN
    Declare @Denovi as smallint
    Set @Denovi = 0

    IF DatePart(weekday, @Datum) IN (5,6,7)
        Set @Denovi = 2
    Return(@Denovi)
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratigodmes]'))
drop function [dbo].[fn_vratigodmes]

Go
CREATE FUNCTION dbo.fn_VratiGodMes
(    @Datum as datetime    )
RETURNS  int   AS
BEGIN
    Declare @GodMes     char(6)
    Declare @IGodMes    int
    Declare @Mes         char(2)
    SET @IGodMes = 0
    IF @Datum IS NULL   RETURN @IGodMes
    SET @GodMes    =CAST(YEAR(@Datum) as char(4))
    IF Month(@Datum) < 10
        SET @Mes = '0' + ltrim(CAST(MONTH(@Datum) as char(1)))
    ELSE
        SET @Mes = ltrim(CAST(MONTH(@Datum) as char(2)))
    SET @IGodMes = Cast(rtrim(ltrim(@GodMes)) + @Mes  as int)
    RETURN @IGodMes
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratigodmesden]'))
drop function [dbo].[fn_vratigodmesden]

Go


CREATE   FUNCTION dbo.fn_VratiGodMesDen
(    @KontrSer as varchar(25),
    @Datum_Dok as smalldatetime    )
RETURNS  varchar(25)   AS
BEGIN         --Mnogu vazna fn - SE UPOTREBUVA vo trigeri na Stavr
    Declare @God     char(4)
    Declare @Mes    char(2)
    Declare @Den    char(2)
    Declare @Datum     smalldatetime
    Declare @Prefix    char(3)
    SET @Prefix = Substring(@KontrSer,1,3)
    IF @Prefix = 'RR>' OR @Prefix = 'DD>'
        SET @Datum = dbo.fn_NapraviDatum(Cast(Substring(@KontrSer, 10, 4) as smallint),
Cast(Substring(@KontrSer, 7, 2) as smallint), Cast(Substring(@KontrSer, 4, 2) as smallint))
    Else IF @Prefix = 'KK>'
        SET @Datum = @Datum_Dok
    IF @Datum IS NULL   RETURN ''
    SET @God = CAST(YEAR(@Datum) as char(4))
    IF Month(@Datum) < 10
        SET @Mes = '0' + ltrim(CAST(MONTH(@Datum) as char(1)))
    ELSE
        SET @Mes = ltrim(CAST(MONTH(@Datum) as char(2)))
    IF Day(@Datum) < 10
        SET @Den = '0' + ltrim(CAST(Day(@Datum) as char(1)))
    ELSE
        SET @Den = ltrim(CAST(Day(@Datum) as char(2)))
    RETURN @God+@Mes+@Den
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratigodmesdenbas]'))
drop function [dbo].[fn_vratigodmesdenbas]

Go

CREATE  FUNCTION dbo.fn_VratiGodMesDenBas
(    @Datum as datetime    )
RETURNS  CHAR(8)   AS
BEGIN
    Declare @GodMesDen     varchar(8)
    IF @Datum IS NULL   RETURN @GodMesDen
    SET @GodMesDen    =CAST(YEAR(@Datum) as char(4))
    IF Month(@Datum) < 10
        SET @GodMesDen = @GodMesDen + '0' + CAST(MONTH(@Datum) as char(1))
    ELSE
        SET @GodMesDen = @GodMesDen + CAST(MONTH(@Datum) as char(2))
    IF Day(@Datum) < 10
        SET @GodMesDen = @GodMesDen + '0' + CAST(Day(@Datum) as char(1))
    ELSE
        SET @GodMesDen = @GodMesDen + CAST(Day(@Datum) as char(2))
    RETURN @GodMesDen
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratigodmespred]'))
drop function [dbo].[fn_vratigodmespred]

Go
CREATE  FUNCTION dbo.fn_VratiGodMesPred
(    @IGodMes    as int,
    @MesPred    as smallint
)
RETURNS  int   AS
BEGIN
    Declare @GodMes     char(6)
    Declare @Mes        char(2)
    Declare @IMes        int
    Declare @Vrati        int
    SET @GodMes = CAST(@IGodMes as char(6))
    SET @IMes = Cast(Substring(@GodMes,5,2) as smallint)
    IF @IMes >= @MesPred
    Begin
        If @MesPred <10
        begin
            SET @Mes = '0' + ltrim(CAST(@MesPred as char(1)))
        end
        Else
            SET @Mes = CAST(@MesPred as char(2))
        SET @Vrati = Cast(Cast(Cast(substring(@GodMes, 1,4) as int) as char(4)) + cast(@Mes as char(2)) as int)
    end
    ELSE
    Begin
        SET @IMes = @IMes +12
        SET @Vrati = Cast(Cast(Cast(substring(@GodMes, 1,4) as int) -1 as char(4)) + cast(@IMes as char(2)) as int)
        SET @Vrati = @Vrati - @MesPred+1
    End
    RETURN @Vrati
/*
    IF @IMes > @MesPred
        SET @Vrati = @IGodMes - 1
    ELSE
    Begin
        SET @IMes = @IMes +12
        SET @Vrati = Cast(Cast(Cast(substring(@GodMes, 1,4) as int) -1 as char(4)) + cast(@IMes as char(2)) as int)
        SET @Vrati = @Vrati - @MesPred
    End
    RETURN @Vrati
*/
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratikasabezddv]'))
drop function [dbo].[fn_vratikasabezddv]

Go


CREATE       FUNCTION fn_VratiKasaBezDDV
(
    @Kolic    Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn    Decimal(6,2),
    @Uces    Decimal(6,2),
    @Kasa    Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @Kasa = 0
        Return(@Vr_Krajna)
    Set @Vr_Krajna = @Kolic * @DokCena *  (1-@Uces/100) * @Kasa/100
    If @DanDokCena='D'
        Set @Vr_Krajna = @Vr_Krajna / (1 + @Posn / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratimarza]'))
drop function [dbo].[fn_vratimarza]

Go



CREATE    FUNCTION fn_VratiMarza
(
    @NabavnaC  Decimal(18,6),
    @ProdaznaC Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Marza Decimal(18,6)
    Set @Marza = 0
    if @NabavnaC IS NULL
        Return(@Marza)
    if @NabavnaC = 0
        Return(@Marza)
    Set @Marza = Round((@ProdaznaC / @NabavnaC - 1) * 100, 2)
    Return(@Marza)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratiperiod]'))
drop function [dbo].[fn_vratiperiod]

Go
CREATE    FUNCTION fn_VratiPeriod
(
    @Datum smalldatetime,
    @DenVoPer smallint,
    @BrPeriodi smallint
)
RETURNS Smallint
AS
BEGIN
    Declare @Period as smallint
    Set @Period = NULL
    Set @Period = (day(@Datum) - 1) / @DenVoPer + 1
    If @Period > @BrPeriodi
        Set @Period = @BrPeriodi
    Return(@Period)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratiprvdatumsledenmes]'))
drop function [dbo].[fn_vratiprvdatumsledenmes]

Go
CREATE FUNCTION fn_VratiPrvDatumSledenMes
(    @Datum        smalldatetime,
    @GodPresm    smallint
)
RETURNS smalldatetime
AS
BEGIN
    Declare @Godina varchar(4)
    Declare @Mesec varchar(2)
    Declare @IMes smallint
    Declare @Den varchar(2)
    SET @Godina = Year(@Datum)
    SET @IMes = Month(@Datum)
    SET @Den = '01'
IF @Godina < @GodPresm
    Begin
        SET @Godina = @GodPresm
        SET @Mesec = '01'
    End
ELSE
    Begin
        SET @IMes = @IMes + 1
        IF @IMes = 13
        Begin
            SET @Godina = Year(@Datum) + 1
            SET @Mesec = '01'
        End
        ELSE
            SET @Mesec = cast(@IMes as varchar(2))
    End
    Declare @Dat  smalldatetime
    Set @Dat = NULL
    Set @Dat = Cast(@Godina + '-' + @Mesec + '-' + @Den as smalldatetime)
    Return(@Dat)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratirabatbezddv]'))
drop function [dbo].[fn_vratirabatbezddv]

Go

CREATE      FUNCTION fn_VratiRabatBezDDV
(
    @Kolic    Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @Uces IS NULL
        Return(@Vr_Krajna)
    If @Uces = 0
        Return(@Vr_Krajna)
    Set @Vr_Krajna = @Kolic * @DokCena *  @Uces/100
    If @DanDokCena='D'
        Set @Vr_Krajna = @Vr_Krajna / (1 + @Posn / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratirabatsoddv]'))
drop function [dbo].[fn_vratirabatsoddv]

Go

CREATE     FUNCTION fn_VratiRabatSoDDV
(
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @Uces = 0
        Return(@Vr_Krajna)
    Set @Vr_Krajna = @DokCena * (1-(1- @Uces/100) * (1 - @Kasa/100))
    If @DanDokCena='N'
        Set @Vr_Krajna = @Vr_Krajna * (1 + @Posn / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratirabdenovi]'))
drop function [dbo].[fn_vratirabdenovi]

Go
CREATE Function dbo.fn_VratiRabDenovi (@DatumOD as smalldatetime, @DatumDo as smalldatetime)
returns integer
as
BEGIN
    declare @BrDenovi as integer
    declare @PocDatum as smalldatetime
    Set @BrDenovi=0
    Set @PocDatum=@DatumOd
    While @DatumOd>@DatumDo
        begin
            if datepart(dw, @PocDatum)in (1,7)
                set @BrDenovi=@Brdenovi
            else
                 set @BrDenovi=@BrDenovi+1
            set @PocDatum=dateadd(d,1,@PocDatum)
        end
    RETURN (@BrDenovi)
END


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vratiskalcena]'))
drop function [dbo].[fn_vratiskalcena]

Go

CREATE   FUNCTION fn_VratiSkalCena
(
    @Cena Decimal(18,6),
    @POsn Decimal(6,2),
    @DanCenaOrgEd Char(1),
    @DanCenaSoArt Char(1)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @Cena = 0
        Return(@Vr_Krajna)
    If @DanCenaOrgEd = @DanCenaSoArt
        Return @Cena
    If @DanCenaOrgEd = 'N' And @DanCenaSoArt = 'D'
        Set @Vr_Krajna = Round(@Cena / (1 + @POsn / 100), 4)
    Else
        Set @Vr_Krajna = Round(@Cena * (1 + @POsn / 100), 4)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vrativredizl]'))
drop function [dbo].[fn_vrativredizl]

Go
CREATE     FUNCTION fn_VratiVredIzl
(
    @Kolic Decimal(18,6),
    @DokCena Decimal(18,6),
    @DanDokCena Char(1),
    @POsn Decimal(6,2),
    @Uces Decimal(6,2),
    @Kasa Decimal(6,2),
    @VratiCenaSoDanok Char(1)
)
RETURNS Decimal(18,6)
AS
BEGIN
    Declare @Vr_Krajna Decimal(18,6)
    Set @Vr_Krajna = 0
    If @DokCena = 0
        Return(@Vr_Krajna)
    If (@DanDokCena='D' and @VratiCenaSoDanok='D') or (@DanDokCena='N' and @VratiCenaSoDanok='N')
        Set @Vr_Krajna = @Kolic * @DokCena * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Else If @DanDokCena='N' and @VratiCenaSoDanok='D'
        Set @Vr_Krajna = @Kolic * @DokCena * (1 + @POsn / 100) * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Else If @DanDokCena='D' and @VratiCenaSoDanok='N'
        Set @Vr_Krajna = @Kolic * @DokCena / (1 + @POsn / 100) * (1 - @Uces / 100) * (1 - @Kasa / 100)
    Return(@Vr_Krajna)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_vrativreme]'))
drop function [dbo].[fn_vrativreme]

Go
CREATE       FUNCTION fn_VratiVreme
(
    @DatumVreme smalldatetime
)
RETURNS varchar(5)
AS
BEGIN
    Declare @Vreme  varchar(5)
    Declare @Cas varchar(2)
    Declare @Min varchar(2)
    Set @Vreme = ' '
    if @DatumVreme IS NOT NULL
    Set @Cas = cast(datepart(hh, @DatumVreme) as varchar(2))
    If @Cas < 10
        Set @Cas = '0' + @Cas
    Set @Min =  cast(datepart(mi, @DatumVreme) as varchar(2))
    If @Min < 10
        Set @Min = '0' + @Min
    Set @Vreme = @Cas + ':' + @Min
--         Set @Vreme  = cast(datepart(hh, @DatumVreme) as char(2)) +':'+
--                      cast(datepart(mi, @DatumVreme) as char(2))
--    Set @Vreme = Replace(@Vreme, ' ', '0')
    Return(@Vreme)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_zaokr_5]'))
drop function [dbo].[fn_zaokr_5]

Go


CREATE   FUNCTION fn_zaokr_5
(
    @NekojBroj Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    if @NekojBroj < 0
        Return - dbo.fn_zaokr_5(-@NekojBroj)
    Declare @Cel Decimal(18,6)
    Set @Cel = floor (@NekojBroj)
    If @NekojBroj - @Cel < 0.25
        Return (@Cel)
    else If @NekojBroj - @Cel > 0.75
        Return (@Cel + 1)
    Return (@Cel + 0.5)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_zaokr_5den]'))
drop function [dbo].[fn_zaokr_5den]

Go


create  FUNCTION fn_zaokr_5den
(
    @NekojBroj Decimal(18,6)
)
RETURNS Decimal(18,6)
AS
BEGIN
    if @NekojBroj < 0
        Return - dbo.fn_zaokr_5den(-@NekojBroj)
    Declare @Cel Decimal(18,6)
    set @NekojBroj = @NekojBroj / 10
    Set @Cel = floor (@NekojBroj)
    If @NekojBroj - @Cel < 0.25
        Return (@Cel * 10)
    else If @NekojBroj - @Cel > 0.75
        Return (@Cel + 1) * 10
    Return (@Cel * 10 + 5)
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[fn_zaokr5]'))
drop function [dbo].[fn_zaokr5]

Go




create  FUNCTION fn_Zaokr5
(@Broj Decimal(18,6)
)
RETURNS decimal (18, 6)
AS
BEGIN
    Declare @Broj1 as decimal(18,6)
    Declare @BrojVrati as decimal(18,6)
    Declare @wCel as int
    Declare @wDec as decimal(18,6)
    SET @Broj1 = ABS(@Broj)
    SET @wCel = @Broj1
    SET @wDec = @Broj1 - @wCel
    IF @wDec<=0.255     -- DK -- do Apr 6, 2007 besse  0.0255  !?!
         SET @BrojVrati = @wCel
    ELSE IF @wDec > 0.755
        SET @BrojVrati = @wCel + 1
    ELSE
        SET @BrojVrati = @wCel + 0.5
    IF @Broj<0 SET @BrojVrati = @BrojVrati * -1
RETURN @BrojVrati
END









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pros_min_max]'))
drop function [dbo].[pros_min_max]

Go
CREATE    FUNCTION dbo.Pros_Min_Max
(    @Kandidat_NabC    decimal(18,6),
    @TekMinCena        decimal(18,6),
    @TekMaxCena        decimal(18,6),
    @Stavr_NabCena    decimal(18,6)
)
RETURNS decimal(18,6)
AS
BEGIN
    Declare @wTekMinCena    decimal(18,6)
    Declare @wTekMaxCena    decimal(18,6)
    SET @wTekMinCena = @TekMinCena * 0.9   -- Sigurnosen faktor za dobivanje linearnost
    SET @wTekMaxCena = @TekMaxCena * 1.1    -- Sigurnosen faktor za dobivanje linearnost
    If @Stavr_NabCena > 0
    Begin
        If @Stavr_NabCena < @wTekMinCena
            SET @wTekMinCena = @Stavr_NabCena
        If @Stavr_NabCena > @wTekMaxCena
            SET @wTekMaxCena = @Stavr_NabCena
    End
    If @Kandidat_NabC < @wTekMinCena
        SET @Kandidat_NabC = @wTekMinCena
    If @Kandidat_NabC > @wTekMaxCena and @wTekMaxCena > 0
        SET @Kandidat_NabC = @wTekMaxCena
    RETURN @Kandidat_NabC
END






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_902]'))
drop procedure [dbo].[sp_902]

Go





CREATE        PROCEDURE sp_902
    @Sifra_OE Smallint,
    @Sifra_Art Varchar(20),
    @KrCena Decimal(18,6),
    @DanKrCena Char(1),
    @Datum_Dok Smalldatetime,
        @Akciska_Prod Char(1)=null
AS
    Declare @soCena Decimal(18,6)
    Declare @soDanCena Char(1)
    Declare @soKolicina Decimal(18,6)
    Declare @POsn Decimal(6,2)
    Declare @PTar Char(3)
    Declare @Ima int
    Declare @Artikal varchar(12)
Select @Artikal = Sifra_Art FROM KatArt WHERE Sifra_Art = @Sifra_Art
If @@RowCount > 0
    Begin
    Select @soCena=S.Cena, @soDanCena=S.DanCena, @soKolicina=S.Vlez-S.Izlez, @POsn=T.ProcOsn, @PTar=K.Sifra_Tar From Soart S
    Inner Join Katart K on S.Sifra_Art=K.Sifra_Art
    Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
    Where S.Sifra_OE=@Sifra_OE And S.Sifra_Art=@Sifra_Art
    Set @Ima = @@RowCount
    If @Ima < 1
        Select @PTar=K.Sifra_Tar, @POsn=T.ProcOsn From Katart K
        Inner Join Tarifi T On K.Sifra_Tar=T.Sifra_Tar
        Where K.Sifra_Art=@Sifra_Art
    Declare @Raboti char(1)
    Set @Raboti= 'N'
    If @DanKrCena = @soDanCena AND @KrCena <> @soCena
        Set @Raboti='D'
    Else
           Begin
        Declare @StaraCena Decimal(18,6)
        Set @StaraCena = dbo.fn_VratiCena(@soCena, @POsn, @soDanCena, @DanKrCena)
        If Abs(@KrCena- @Staracena) > 0.001
            Set @Raboti = 'D'
          End
     If @Raboti = 'D'
     Begin
    If @Ima=1
        Begin
            Insert RazlCeni
            (Sifra_Razl, Sifra_OE, Sifra_Art, Kolic, PocCena, KrCena, POsn, PTar, DanPocCena, DanKrCena, Datum_Dok, Datum_Vnes, Sifra_Oper, Akciska_Prod)
            Values
            ('902', @Sifra_OE, @Sifra_Art, @soKolicina, @soCena, @KrCena, @POsn, @PTar, @soDanCena, @DanKrCena, @Datum_Dok, GETDATE(), SUSER_SNAME(), @Akciska_Prod)
            Update Soart
            Set Cena=@KrCena, DanCena=@DanKrCena
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
        End
    Else
        Begin
            Insert Soart
            (Sifra_OE, Sifra_Art, Vlez, Izlez, Cena, DanCena, POsn, NabCena, DokCena, Uces)
            Values
            (@Sifra_OE, @Sifra_Art, 0.0, 0.0, @KrCena, @DanKrCena, @POsn, 0.0, 0.0, 0.0)
            Insert RazlCeni
            (Sifra_Razl, Sifra_OE, Sifra_Art, Kolic, PocCena, KrCena, POsn, PTar, DanPocCena, DanKrCena, Datum_Dok, Datum_Vnes, Sifra_Oper, Akciska_Prod)
            Values
            ('902', @Sifra_OE, @Sifra_Art, 0.0, 0.0, @KrCena, @POsn, @PTar, 'N', @DanKrCena, @Datum_Dok,GETDATE(),SUSER_SNAME(), @Akciska_Prod)
        End
      End
End








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_detalenpregled]'))
drop procedure [dbo].[sp_akciipromo_detalenpregled]

Go
CREATE  PROCEDURE sp_AkciiPromo_DetalenPregled
    @Sifra_Art_Paket    varchar(20) = Null,
    @Sifra_Art_Osnoven    varchar(20) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Sifra_Pat        smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Kup, D.Sifra_Obj,
            (Case When D.Sifra_Obj Is Not Null Then Kup.ImeKup + '' - '' + KO.ImeObj Else Kup.ImeKup End) as ImeKup, D.Sifra_Pat,
            S.Sifra_Art_Paket, KA.ImeArt ImeArtPaket, S.Sifra_Art, K.ImeArt, S.Kolic,
            (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000)) OsnovZaRabat,
            (S.UcesDod / 100) UcesDod,
            ((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000) * Cast(UcesDod as decimal(9,2))/10000)) RabatAkc
        From Dokr D
        Inner Join Stavr S On D.DokrID = S.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Inner Join Katart KA On KA.Sifra_Art = S.Sifra_Art_Paket
        Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Where S.Sifra_Art_Paket Is Not Null And S.VlIzl = ''I'' '
    If @Sifra_Art_Paket Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art_Paket = ''' + @Sifra_Art_Paket + ''' '
    If @Sifra_Art_Osnoven Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art = ''' + @Sifra_Art_Osnoven + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select Sifra_Oe From SGrOrg  where sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, S.Sifra_Art_Paket, S.Sifra_Art '
print @SSQL
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_kontrolen]'))
drop procedure [dbo].[sp_akciipromo_kontrolen]

Go
CREATE  PROCEDURE sp_AkciiPromo_Kontrolen
    @Sifra_Art_Osnoven    varchar(20) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Sifra_Pat        smallint = Null,
    @Sifra_Dok        smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Pat, S.Sifra_Art, K.ImeArt, S.Kolic, (S.UcesDod/100) UcesDod,
            (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000)) OsnovZaRabat,
            ((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000)) * Cast(UcesDod as decimal(9,2))/10000) RabatAkc
        From Dokr D
        Inner Join Stavr S On D.DokrID = S.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Where S.Sifra_Art_Paket Is Null And S.UcesDod > 0 And S.VlIzl = ''I''
        And S.Kolic > 0 '
    If @Sifra_Art_Osnoven Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art = ''' + @Sifra_Art_Osnoven + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select Sifra_Oe From SGrOrg  where sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, S.Sifra_Art '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_tlk_zapisi]'))
drop procedure [dbo].[sp_akciipromo_tlk_zapisi]

Go
CREATE   PROCEDURE sp_AkciiPromo_tlk_Zapisi
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
--    @Sifra_Dok    smallint = Null,
--    @Sifra_Pat    int = Null
--    @Sifra_Art_Osn    varchar(20) = Null,
    @KojaObr    char(1) = 'S'        -- S - Site Artikli od akcijata da gi ima vo dokumentot
                        -- O - Site Artikli od akcijata osven 1 da gi ima vo dokumentot
AS
    Declare @KolkuArtVoAkc varchar(20)
    Declare @Sifra_Art_Paket varchar(20)
    Declare @Varij smallint
    Create Table #TmpAkc
    (
     Sifra_Art_Paket    varchar(20),
     Varij        smallint
    )
    Insert Into #TmpAkc
    Select Distinct  Sifra_Art_Paket, Varij
    From AkciiPromoStaTemp
    Declare AP Cursor Fast_Forward For Select Sifra_Art_Paket, Varij From #TmpAkc
    Order By SifrA_ARt_Paket, Varij
    Open AP
    Fetch Next From AP Into @Sifra_Art_Paket, @Varij
    While @@fetch_status=0
    Begin
        Set @KolkuArtVoAkc = (Select Count(*) from AkciiPromoStaTemp
                    where Sifra_Art_Paket = @Sifra_Art_Paket And Varij=@Varij)     -- Broj na artikli vo akcijata
        Create Table #Dok        -- Selekcija na dokumentite koi e mozno da imaat akcija vo niv
        (
         DokrID int,
         DokID    int,
         Sifra_Art_Osnoven varchar(20),
         Sifra_Art_Paket varchar(20),
         Kolku_Akcii smallint
        )
        Insert Into #Dok
        Select S.DokrID, S.DokID, A.Sifra_Art_Osnoven, A.Sifra_Art_Paket, (S.kolic/A.Kolicina) as Kolku_Akcii
        From Stavr S
        Inner Join AkciiPromoStaTemp A On A.Sifra_Art_Osnoven=S.Sifra_Art And A.Rabat=cast(S.UcesDod as decimal(18,2))/100 --S.UcesDod/100 bese vaka do 01.02.2008
                           And S.kolic/A.Kolicina = round(S.kolic/A.Kolicina, 0)
        Where A.Sifra_Art_Paket = @Sifra_Art_Paket And A.Varij=@Varij
        And S.Sifra_Art_Paket Is Null And S.UcesDod > 0 And S.VlIzl = 'I'
        And S.Datum_Dok >= @Datum_Od And S.Datum_Dok <= @Datum_Do And S.Sifra_Oe = @Sifra_Oe
        --Select * from #Dok
        Create Table #DokSoAkc    -- ovde dokumentite koi imaat akcija
        (
         DokrID int,
         Kolku smallint
        )
        If @KojaObr = 'O'
        Begin
            Insert Into #DokSoAkc
            Select DokrID, Count(*) From #Dok
            Group By DokrID
            Having Count(*) = @KolkuArtVoAkc - 1
        End
        Else
        Begin
            Insert Into #DokSoAkc
            Select DokrID, Count(*) From #Dok
            Group By DokrID
            Having Count(*) = @KolkuArtVoAkc
        End
        --Select * from #DokSoAkc
        Update Stavr
        Set Stavr.Sifra_Art_Paket=#Dok.Sifra_Art_Paket,
            Stavr.Kolku_Akcii=#Dok.Kolku_Akcii
        From #Dok
        Where Stavr.DokID=#Dok.DokID
        And Stavr.DokrID in (Select DokrID From #DokSoAkc)
        And Stavr.Sifra_Art_Paket Is Null
        Drop Table #dok
        Drop Table #DokSoAkc
        Fetch Next From AP Into @Sifra_Art_Paket, @Varij
    End
    Close AP
    Deallocate AP





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_tlk_zapisi_poedinecno]'))
drop procedure [dbo].[sp_akciipromo_tlk_zapisi_poedinecno]

Go
CREATE PROCEDURE sp_AkciiPromo_tlk_Zapisi_Poedinecno
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
        @KojaObr    char (1)  = Null
AS
    Update Stavr
    Set Stavr.Sifra_Art_Paket=AkciiPromoStaTemp.Sifra_Art_Paket, Stavr.Kolku_Akcii = 1
    From  AkciiPromoStaTemp
    Where AkciiPromoStaTemp.Sifra_Art_Osnoven=Stavr.Sifra_Art And AkciiPromoStaTemp.Rabat=cast(Stavr.UcesDod as decimal(18,2))/100 -- Stavr.UcesDod/100 bese vaka do 01.02.2008
        And Stavr.VlIzl='I' And Stavr.Sifra_Art_Paket Is Null And Stavr.UcesDod > 0
        And Stavr.Sifra_Oe = @Sifra_Oe And Stavr.Datum_Dok >= @Datum_Od And Stavr.Datum_Dok <= @Datum_Do





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_zbirenpoart]'))
drop procedure [dbo].[sp_akciipromo_zbirenpoart]

Go
CREATE  PROCEDURE sp_AkciiPromo_ZbirenPoArt
    @Sifra_Art_Paket    varchar(20) = Null,
    @Sifra_Art_Osnoven    varchar(20) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Sifra_Pat        smallint = Null,
    @PoPatnici        char(1) = 'N'
AS
    Declare @SSQL as varchar(8000)
    If @PoPatnici = 'D'
        Set @SSQL = ' Select D.Sifra_Pat, '
    Else
        Set @SSQL = ' Select Null as Sifra_Pat, '
    Set @SSQL = @SSQL + ' S.Sifra_Art, K.ImeArt, Sum(S.Kolic) Kolic,
            Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000))) OsnovZaRabat,
            Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000)) * Cast(UcesDod as decimal(9,2))/10000) RabatAkc,
              Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (Cast(UcesKol as decimal(9,2))/10000))) RabatKol,
              Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (Cast(UcesOsn as decimal(9,2))/10000))) RabatOsn
        From Dokr D
        Inner Join Stavr S On D.DokrID = S.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Where S.Sifra_Art_Paket Is Not Null And S.VlIzl = ''I'' '
    If @Sifra_Art_Paket Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art_Paket = ''' + @Sifra_Art_Paket + ''' '
    If @Sifra_Art_Osnoven Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art = ''' + @Sifra_Art_Osnoven + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select Sifra_Oe From SGrOrg  where sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art, K.ImeArt  '
    If @PoPatnici = 'D'
        Set @SSQL = @SSQL + ' , D.Sifra_Pat '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akciipromo_zbirenpopaket]'))
drop procedure [dbo].[sp_akciipromo_zbirenpopaket]

Go
CREATE  PROCEDURE sp_AkciiPromo_ZbirenPoPaket
    @Sifra_Art_Paket    varchar(20) = Null,
    @Sifra_Art_Osnoven    varchar(20) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Sifra_Pat        smallint = Null,
    @PoPatnici        char(1) = 'N'
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    If @Sifra_Art_Paket Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art_Paket = ''' + @Sifra_Art_Paket + ''' '
    If @Sifra_Art_Osnoven Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art = ''' + @Sifra_Art_Osnoven + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_OE IN (Select Sifra_Oe From SGrOrg  where sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Pat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Create Table #TmpAkc
    (
     DokrID    int,
     Sifra_Kup char(6),
     Sifra_Obj char(4),
     Sifra_Art_Paket    varchar(20),
     Sifra_Pat smallint,
     OsnovAkcRabat decimal(18,6),
     AkcRabat decimal(18,6),
     RabatKol decimal(18,6),
     RabatOsn decimal(18,6)
    )
    Set @SSQL = ' Select D.DokrID, D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art_Paket, '
    If @PoPatnici = 'D'
        Set @SSQL = @SSQL + ' D.Sifra_Pat, '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Pat, '
    Set @SSQL = @SSQL + ' Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000))) OsnovZaRabat,
                  Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') *
                (1-Cast(UcesOsn as decimal(9,2))/10000) * (1-Cast(UcesKol as decimal(9,2))/10000)) * Cast(UcesDod as decimal(9,2))/10000) RabatAkc,
                  Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (Cast(UcesKol as decimal(9,2))/10000))) RabatKol,
                  Sum((S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'') * (Cast(UcesOsn as decimal(9,2))/10000))) RabatOsn
        From Dokr D
        Inner Join Stavr S On D.DokrID = S.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Where S.Sifra_Art_Paket Is Not Null And S.VlIzl = ''I'' '
    Insert Into #TmpAkc Exec(@SSQL+@SSQLUsl + ' Group By D.DokrID, D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art_Paket, D.Sifra_Pat' )

    Create Table #Pak
    (
     DokrID    int,
     Sifra_Art_Paket    varchar(20),
     Kolku_Akcii int
    )
    Set @SSQL = ' Select D.DokrID, S.Sifra_Art_Paket, Max(S.Kolku_Akcii) Kolku_Akcii
            From Dokr D
            Inner Join Stavr S On D.DokrID=S.DokrID
            Where S.Sifra_Art_Paket Is Not Null And S.VlIzl = ''I'' '
    Insert Into #Pak Exec(@SSQL + @SSQLUsl + ' Group By D.DokrID, S.Sifra_Art_Paket' )

    Select A.Sifra_Art_Paket, K.ImeArt, A.Sifra_Pat, Sum(P.Kolku_Akcii) BrPaketi, Sum(A.OsnovAkcRabat) OsnovAkcRabat, Sum(A.AkcRabat) AkcRabat, Sum(A.RabatKol) RabatKol, Sum(RabatOsn) RabatOsn,
        Count(Distinct Sifra_Kup+(Case When Sifra_Obj Is Not Null Then Sifra_Obj Else ' ' End)) BrKup
    From #TmpAkc A
    Inner Join #Pak P On P.DokrID=A.DokrID And P.Sifra_Art_Paket=A.Sifra_Art_Paket
    Inner Join Katart K On K.Sifra_Art=A.Sifra_Art_Paket
    Group By A.Sifra_Art_Paket, K.ImeArt, A.Sifra_Pat

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akcpromoset_dalie]'))
drop procedure [dbo].[sp_akcpromoset_dalie]

Go

create   PROCEDURE sp_AkcPromoSet_DaliE

   @Sifra_Art_Paket  varchar(20),
   @Datum_Dok         smalldatetime,
   @SetE         char(1) = Null OUTPUT,
   @AktivenE         char(1) = NUll OUTPUT

AS

    Declare @Datum_Poc smalldatetime
    Declare @Datum_Kr smalldatetime
    Declare @Aktivna char(1)
    Declare @Sifra_Art_Paket_OdBaza varchar(20)

    select top 1 @Datum_Poc = AP.Datum_Poc, @Datum_Kr = AP.Datum_Kr, @Aktivna = AP.Aktivna,
             @Sifra_Art_Paket_OdBaza = APS.Sifra_Art_Paket
    from AkciiPromoSta APS
    inner join AkciiPromo AP
        on APS.Ozn_Akcija = AP.Ozn_Akcija
    where APS.Sifra_ARt_Paket = @Sifra_Art_Paket
    order by AP.Datum_Poc desc

    if @Sifra_Art_Paket_OdBaza is null    -- Go nema, najcest slucaj - normalen artikl
      begin
        set @SetE = 'N'
        set @AktivenE = 'N'
      end
    else if @Aktivna = 'N'
      begin
        set @SetE = 'D'
        set @AktivenE = 'N'
      end
    else if @Datum_Dok >= @Datum_Poc and @Datum_Dok <= @Datum_Kr
      begin
        set @SetE = 'D'
        set @AktivenE = 'D'
      end
    else
      begin
        set @SetE = 'D'
        set @AktivenE = 'N'
      end



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_akcpromoset_podigni]'))
drop procedure [dbo].[sp_akcpromoset_podigni]

Go

create  PROCEDURE sp_AkcPromoSet_Podigni

   @Sifra_Art_Paket  varchar(20),
   @Datum_Dok         smalldatetime

AS

    select APS.*
    from AkciiPromoSta APS
    inner join AkciiPromo AP
        on APS.Ozn_Akcija = AP.Ozn_Akcija
    where APS.Sifra_ARt_Paket = @Sifra_Art_Paket
    order by AP.Datum_Poc desc, APS.Sifra_Art_Osnoven



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ambalaza_poorged]'))
drop procedure [dbo].[sp_ambalaza_poorged]

Go
CREATE              PROCEDURE sp_Ambalaza_PoOrged
    @Sifra_OE smallint,
    @KoiOE varchar(6),
    @Sifra_Art varchar(20),
    @Sifra_Kup varchar(8),
    @Sifra_Obj smallint = Null,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    CREATE Table #Tab
        (
         Sifra_art    varchar(20),
         Sifra_Oe    smallint,
         TekVlez    decimal(18,6),
         TekIzlez    decimal(18,6),
         Vlez        decimal(18,6),
         Izlez        decimal(18,6)
        )
--------------------------------------------------------------------------------- U S L O V --------------------------------------------------------------------------------------------
    If @Sifra_Art Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.[Sifra_Art]=''' + @Sifra_Art + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_kup=''' + @Sifra_kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    SET @SSQLUsl =@SSQLUsl + 'Group BY  S.Sifra_Art, S.Sifra_OE '
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------- TEKOVEN PROMET ------------------------------------------------------------------------------------
    SET @SSQL='SELECT S.Sifra_Art, S.Sifra_OE,
        Sum(Case S.VlIzl
            When ''V'' Then (Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End)
            Else 0
            End) ,
        Sum(Case S.VlIzl
            When ''I'' Then (Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End)
            Else 0
            End), 0, 0
    FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
    WHERE A.Drugo5 = 2 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
         Insert Into #Tab EXEC(@SSQL+@SSQLUsl)
    SET @SSQL='SELECT S.Sifra_Art, S.Sifra_OE,
        Sum(Case S.VlIzl
            When ''I'' Then (Case WHEN S.Kolic < 0 Then Abs(S.Kolic)  Else 0 End)
            Else 0
            End),
        Sum(Case S.VlIzl
            When ''V'' Then (Case WHEN S.Kolic < 0 Then Abs(S.Kolic)  Else 0 End)
            Else 0
            End), 0, 0
    FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
    WHERE A.Drugo5 = 2 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
         Insert Into #Tab EXEC(@SSQL+@SSQLUsl)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------- VKUPEN PROMET --------------------------------------------------------------------------
    SET @SSQL='SELECT S.Sifra_Art, S.Sifra_OE, 0, 0,
        Sum(Case S.VlIzl
            When ''V'' Then  (Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End)
            Else 0
            End),
        Sum(Case S.VlIzl
            When ''I'' Then (Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End)
            Else 0
            End)
    FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
    WHERE A.Drugo5 = 2 '
         Insert Into #Tab EXEC(@SSQL+@SSQLUsl)
    SET @SSQL='SELECT S.Sifra_Art, S.Sifra_OE, 0, 0,
        Sum(Case S.VlIzl
            When ''I'' Then  (Case WHEN S.Kolic < 0 Then Abs(S.Kolic)  Else 0 End)
            Else 0
            End),
        Sum(Case S.VlIzl
            When ''V'' Then (Case WHEN S.Kolic < 0 Then Abs(S.Kolic)  Else 0 End)
            Else 0
            End)
    FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
    WHERE A.Drugo5 = 2 '
         Insert Into #Tab EXEC(@SSQL+@SSQLUsl)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Select T.Sifra_Oe, O.ImeOrg, T.Sifra_art, K.ImeArt, (Sum(T.TekVlez)) TekVlez, (Sum(T.TekIzlez)) TekIzlez, (Sum(T.Vlez)) VkVlez, (Sum(T.Izlez)) VkIzlez
    From #Tab T
    Inner Join Katart K On K.Sifra_Art = T.Sifra_art
    Inner Join Orged O On O.Sifra_Oe = T.Sifra_Oe
    Group By T.Sifra_Oe, O.ImeOrg, T.Sifra_art, K.ImeArt






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ambalazapodok]'))
drop procedure [dbo].[sp_ambalazapodok]

Go
CREATE    PROCEDURE sp_AmbalazaPoDok
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Povratna    char(1) = 'D',    -- Dali samo povratna ambalaza
    @DaliAmbOdDok    char(1) = 'N'
 AS
    Declare @SSQL as varchar(2000)
    Create Table #Amb            --A.ImeAmb, G.ImeAmb ImeGAmb,
    (
     Sifra_Amb    varchar(20),
     KolicAmb    decimal(18,6),
     Sifra_GAmb    varchar(20),
     KolicGamb    decimal(18,6),
     So_GAmb    char(1),
     KolicAmbDok    decimal(18,6),
     KolicGambDok    decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Amb,
            Sum(S.Kolic) KolicAmb,
            A.Sifra_GAmb,
            Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then S.Kolic Else (S.Kolic/A.VoGAmb) End) KolicGAmb,
             S.So_GAmb, 0, 0
    From StaAmbal S
    Inner Join Dokr D On D.DokrID=S.DokrID
    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
    Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
    Where D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + '
    And D.Sifra_Dok= ' + cast(@Sifra_Dok as varchar(6)) + '
    And D.Broj_Dok= ' + cast(@Broj_Dok as varchar(10)) + ' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Amb, A.Sifra_GAmb, Sign(S.Kolic), S.So_GAmb '
    Insert Into #Amb Exec (@SSQL)
    --------------------------------- Ambalaza od dokumentot -----------------------------------------
    If @DaliAmbOdDok = 'D'
    Begin
        Set @SSQL = ' Select K.Sifra_Amb, 0,
                A.Sifra_GAmb, 0,
                 ''D'',
                Sum(S.Kolic) KolicAmbDok, Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then S.Kolic Else (S.Kolic/A.VoGAmb) End) KolicGAmbDok
        From Stavr S
        Inner Join Dokr D On D.DokrID=S.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        Where D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + '
        And D.Sifra_Dok= ' + cast(@Sifra_Dok as varchar(6)) + '
        And D.Broj_Dok= ' + cast(@Broj_Dok as varchar(10)) + ' '
        If @Povratna = 'D'
            Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
        Set @SSQL = @SSQL + ' Group By K.Sifra_Amb, A.Sifra_GAmb, Sign(S.Kolic) '
        Insert Into #Amb Exec (@SSQL)
    End
    ----------------------------------------------------------------------------------------------------------------------------
    Select T.Sifra_Amb, A.ImeAmb, Sum(T.KolicAmb) KolicAmb, G.ImeAmb ImeGAmb, T.Sifra_GAmb, Sum(T.KolicGamb) KolicGamb, T.So_GAmb,
        Sum(T.KolicAmbDok) KolicAmbDok, Sum(T.KolicGambDok) KolicGambDok
    From #Amb T
    Inner Join KatAmb A On A.Sifra_Amb=T.Sifra_Amb
    Left Outer Join KatAmb G On G.Sifra_Amb=T.Sifra_GAmb
    Group By T.Sifra_Amb, A.ImeAmb, G.ImeAmb, T.Sifra_GAmb, T.So_GAmb, Sign(T.KolicAmb), Sign(T.KolicAmbDok)
print @SSQL
--        Sum(Case When (A.VoGAmb Is Null Or A.SodrziArt = 0) Then S.Kolic    -- ovde da vratam samo VoGAmb a vo reportot da se deli ako ima potreba
--                Else (S.Kolic/A.VoGAmb) End) KolicGAmb            -- dali (S.Kolic/A.SodrziArt/VoGAmb) ili samo (S.Kolic/A.VoGAmb)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ambalazapokomint]'))
drop procedure [dbo].[sp_ambalazapokomint]

Go
CREATE  PROCEDURE sp_AmbalazaPoKomint
    @Sifra_Kup    char(6),
    @Sifra_art    varchar(20),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Obj    smallint = Null
 AS
    Declare @SSQL as varchar(4000)
    Create Table #Tab
        (
           Sifra_Art    varchar(20),
           Sifra_Kup    char(6),
           Izdadeno    decimal(18,6),
           Vrateno    decimal(18,6),
           PrethIzd    decimal(18,6),
           PrethVrat    decimal(18,6)
        )
    Set @SSQL = ' Select S.Sifra_art, D.Sifra_Kup,
            Sum(Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End) Izdadeno,
            Abs(Sum(Case When S.Kolic < 0 Then S.Kolic Else 0 End)) Vrateno,
            0, 0
            From Stavr S
            Inner Join Dokr D On D.DokrId=S.DokrId
            Inner Join Katart K On K.Sifra_art = S.Sifra_art
            Where S.VlIzl = ''I'' and D.Sifra_Kup Is Not Null and K.Drugo5 = 2 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_Kup + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_art Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art = ' + @Sifra_Art + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_art, D.Sifra_Kup '
    Insert Into #Tab exec (@SSQL)
    If @Datum_Od Is Not Null
          Begin
        Set @SSQL = ' Select S.Sifra_art, D.Sifra_Kup,
                0, 0,
                Sum(Case WHEN S.Kolic >= 0 Then S.Kolic  Else 0 End) Izdadeno,
                Abs(Sum(Case When S.Kolic < 0 Then S.Kolic Else 0 End)) Vrateno
                From Stavr S
                Inner Join Dokr D On D.DokrId=S.DokrId
                Inner Join Katart K On K.Sifra_art = S.Sifra_art
                Where S.VlIzl = ''I'' and D.Sifra_Kup Is Not Null and K.Drugo5 = 2
                And S.Datum_Dok < ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_Kup + ' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(6)) + ' '
        If @Sifra_art Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Art = ' + @Sifra_Art + ' '
        Set @SSQL = @SSQL + ' Group By S.Sifra_art, D.Sifra_Kup '
        Insert Into #Tab exec (@SSQL)
          End
    Select T.Sifra_Art, K.ImeArt, T.Sifra_Kup, Kup.ImeKup, Sum(T.Izdadeno) Izdadeno, Sum(T.Vrateno) Vrateno, Sum(T.PrethIzd) PrethIzdadeno, Sum(T.PrethVrat) PrethVrateno
    From #Tab T
    Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
    Left Outer Join Komint Kup On Kup.Sifra_Kup = T.Sifra_kup
    Group By T.Sifra_Art, K.ImeArt, T.Sifra_Kup, Kup.ImeKup






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ambalazapokup]'))
drop procedure [dbo].[sp_ambalazapokup]

Go

CREATE  PROCEDURE sp_AmbalazaPoKup
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Sifra_Kup    char(6),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Amb    char(6),
    @Sifra_GAmb    char(6),
    @Povratna    char(1) = 'D',
    @Koi_Oe    Varchar(10) = Null,
    @Amb_GAmb    Char(1) = 'S',
    @Sifra_Obj    Smallint = Null,
    @KupDob    Char(1) = Null
 AS
    Declare @SSQL as varchar(8000)
    Create Table #Rez
    (
     DokrId        int,
     Sifra_Amb    char(6),
     Zadolz        decimal(18,6),
     Razdolz    decimal(18,6)
    )
    Set @SSQL = ' Select D.DokrId, K.Sifra_Amb,
            (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End),
            Abs((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
            Where D.Sifra_Kup Is Not Null ' --D.VlIzl=''I'' and D.Sifra_Za=''1'' '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' and D.Sifra_Za=''1'' '
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' and D.Sifra_Za=''2'' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok as varchar(10)) + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @Sifra_GAmb Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_GAmb = ''' + @Sifra_GAmb + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Insert Into #Rez Exec(@SSQL)
    Set @SSQL = ' Select D.DokrId, S.Sifra_Amb,
            (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End),
            Abs((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End))
            From Dokr D
            Inner Join StaAmbal S On S.DokrId=D.DokrID
            Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
            Where D.Sifra_Kup Is Not Null ' --D.VlIzl = ''I'' and D.Sifra_Za = ''1'' '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' and D.Sifra_Za=''1'' '
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' and D.Sifra_Za=''2'' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok as varchar(10)) + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @Sifra_GAmb Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_GAmb = ''' + @Sifra_GAmb + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Amb_GAmb = 'G' -- Gajbi
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''G'') '
    Else -- If @Amb_GAmb = 'A' -- Sisinja
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''N'') '
    Insert Into #Rez Exec(@SSQL)
     Set @SSQL = ' Select R.DokrID, D.Sifra_Oe, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup,  Kup.ImeKup, D.Sifra_Obj, KO.ImeObj,
        R.Sifra_Amb, A.ImeAmb, A.Sifra_GAmb, G.ImeAmb ImeGAmb, O.ImeOrg, A.SodrziArt, A.VoGamb, '
    If @Amb_GAmb = 'G'
        Set @SSQL = @SSQL + ' Round(Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then R.Zadolz Else (R.Zadolz/A.VoGAmb) End), 4) Zadolz,
                      Round(Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then R.Razdolz Else (R.Razdolz/A.VoGAmb) End), 4) Razdolz '
    Else  -- If @Amb_GAmb = 'A'
        Set @SSQL = @SSQL + ' Sum(R.Zadolz) Zadolz, Sum(R.Razdolz) Razdolz '
    Set @SSQL = @SSQL + ' From #Rez R
        Inner Join Dokr D On D.DokrID = R.DokrId
        Left Outer Join KatAmb A On A.Sifra_Amb=R.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
        Left Outer Join Orged O On O.Sifra_Oe=D.Sifra_Oe
        Group By R.DokrID, D.Sifra_Oe, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup,  Kup.ImeKup, D.Sifra_Obj, KO.ImeObj,
                R.Sifra_Amb, A.ImeAmb, A.Sifra_GAmb, G.ImeAmb, O.ImeOrg, A.SodrziArt, A.VoGamb '
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_amd_brz]'))
drop procedure [dbo].[sp_amd_brz]

Go

CREATE PROCEDURE sp_AMD_Brz
    @Sifra_OE     Smallint=Null,    --
    @KoiOE     Varchar(400)=Null,    --
    @Sifra_Nal     Smallint=Null,    --
    @Sifra_Dok     Smallint=Null,    --
    @Broj_Nal_Od     Int=Null,    --
    @Broj_Nal_Do     Int=Null,    --
    @Datum_Nal_Od  Smalldatetime=Null,    --
    @Datum_Nal_Do  Smalldatetime=Null,    --
    @Broj_Dok_Od     Int=Null,    --
    @Broj_Dok_Do     Int=Null,    --
    @Datum_Dok_Od Smalldatetime=Null,    --
    @Datum_Dok_Do Smalldatetime=Null,    --
    @Sifra_Kup     Char(6)=Null,    --
    @Sifra_Obj    smallint = Null,
    @Sifra_Mest    int = Null,
    @VlIzl         Char(1)=Null,    --
    @PecFisc     Char(1) = Null,  -- D - Ispecateni na fiskalen
    @Sifra_Nivo     Char(2) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Oper    varchar(20) = Null,
    @PoKojDatum    char(1) = 'D'     -- D - Datum_Dok,      V - Datum_Vnes
AS

    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
            Set @Datum_Dok_Do = @Datum_Dok_Do + 1

       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                dbo.fn_VratiDatum(D.Datum_Vnes) Datum_Vnes, dbo.fn_VratiVreme(D.Datum_Vnes) Vreme_Vnes,
                D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br,
                D.Sifra_Kup, K.ImeKup, K.Smesto, D.Sifra_Obj, KO.ImeObj, KO.Smesto as ObjSmesto,
                D.Rok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                TD.ImeDok, O.ImeOrg, D.Sifra_Oper, D.Sifra_OpIz, D.Datum_Izm , D.Datum_Vnes as Datum_Vnes_Cel, D.Sifra_Prim
                FROM DOKR D
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj '

    If @Datum_Nal_Od Is Not Null Or @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN Nalozi N ON TD.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal '

    Set @SSQL = @SSQL + ' WHERE (D.Imadodatna = '''' or D.Imadodatna is null or D.ImaDodatna=''D'') '


    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '

    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '

    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL = @SSQL + 'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '

    if @Sifra_dok is null
    begin
              SET @SSQL = @SSQL + 'AND (TD.Iskl_Norm is null or TD.Iskl_Norm <> ''D'') '
        --ne gi prikazzuvaj nekoi tipovi dok voopssto ako ne se bass tie pobarani
    end

   EXEC(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_amd_prazna]'))
drop procedure [dbo].[sp_amd_prazna]

Go

CREATE PROCEDURE [dbo].[sp_AMD_Prazna]

AS

    SELECT Null Sifra_OE, Null ImeOrg, Null Sifra_Dok, Null ImeDok, Null Broj_Dok, Null Sifra_Prim, Null ImaDodatna, Null Kasa,
            Null Datum_Dok, Null Sifra_Kup, Null ImeKup, Null Sifra_Obj, Null ImeObj, Null Sifra_Art, Null ImeArt, Null Edmera, Null VlIzl, Null Kolic,
            Null DokCena, Null MagCena, Null Uces, Null DanDokCena, Null DanMagCena, Null POsn,
            Null Identif_Br, Null Ispratnica,  Null UcesOsn, Null UcesKol, Null UcesDod,
            Null ImaKomerc, Null Sifra_Podg, Null Ime_Podg, Null Sifra_Gr, Null Ime_Gr, Null Alt_Kolic,
            Null Sifra_Pat, Null ImePat, Null NabCena, Null Toc200, Null Tezina, Null BTezina, Null PCena6, Null SerBr, Null CarBroj, Null ImeCarBr,
            Null Sifra_2, Null Ime_2, Null SpeCena, Null Fakturna, Null ImeMat, Null Tros, Null SEdmera, Null Alt_Ime, Null KontrSer, Null Volumen, Null DokId, Null MestoIsporaka,
            Null SMestoKup, Null SMestoObj, Null AdresaKup, Null AdresaObj, Null DogCena, Null Sifra_Nal, Null Broj_Nal,
            Null MagVr, Null MagVrDan, Null Marza, Null Danok1, Null Danok2, Null PDanok1, Null PDanok2, Null PTrosok, Null NabVr, Null TrsVrednost, Null Kto



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_1450_1451]'))
drop procedure [dbo].[sp_anal_1450_1451]

Go



CREATE    PROCEDURE sp_Anal_1450_1451
    @BrOd            int = Null,
    @BrDo            int = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @DatVal_Od    smalldatetime = Null,
    @DatVal_Do    smalldatetime = Null,
        @Banka        char(6) = Null,
        @Nalogodavac    Char(6) = Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select D.* , Ban.ImeKup ImeBan, Val.ImeVal, Kup.ImeKup
        From Doznaki D
        Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sif_Nalogodav
            Left Outer Join Komint Ban On Ban.Sifra_Kup=D.Sif_Banka
                Left Outer Join KrsLista Val On Val.SImeVal=D.KojaVal
         Where 1=1 '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Vnes >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Vnes <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @DatVal_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Dosp >= ''' + cast(@DatVal_Od as varchar(30)) + ''' '
    If @DatVal_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Dosp <= ''' + cast(@DatVal_Do as varchar(30)) + ''' '
           If @BrOd Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Broj_Doznaka>=''' + Cast(@BrOd As Varchar(6)) + ''' '
    If @BrDo Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Doznaka<=''' + Cast(@BrDo As Varchar(6)) + ''' '
    If @Nalogodavac Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sif_Nalogodav=' + Cast(@Nalogodavac As Varchar(6)) + ' '
    If @Banka Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sif_Banka=' + Cast(@Banka As Varchar(6)) + ' '
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_devfra]'))
drop procedure [dbo].[sp_anal_devfra]

Go

CREATE  PROCEDURE sp_Anal_DevFra
    @Sifra_Oe    smallint=Null,
    @KoiOe    varchar(10) = Null,
    @Datum_Od    smalldatetime=Null,
    @Datum_Do    smalldatetime=Null,
    @Sifra_Art_Od    varchar(20)=Null,
    @Sifra_Art_Do    varchar(20)=Null,
    @TipDok    varchar(200) = Null,
    @Sifra_Kup    char(6) = Null,
    @PoArtikli    char(1) = 'N'
AS
    Declare @SSQL as Varchar(8000)
    Set @SSQL = ' Select D.Sifra_Oe, O.ImeOrg, D.Broj_DevF, D.Datum_Dok, D.Sifra_Kup, Kup.ImeKup, D.KojaVal, V.ImeVal, D.Kurs, S.PTar, S.Posn, D.Sifra_Dok, D.Broj_Dok, '
    If @PoArtikli = 'D'
        Set @SSQL = @SSQL + ' S.Sifra_Art, K.ImeArt, Sum(S.Kolic) Kolic, S.DevCena, S.DenCena, '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Art, Null ImeArt, Null Kolic, Null DevCena, Null DenCena,'
            --Sum(S.Kolic*dbo.fn_VratiCenaOsnov(S.DevCena, ''D'', S.POsn, S.Uces, 0)) IznosDevNeto,   vaka bese do 15.11.2010
            --Sum(S.Kolic*dbo.fn_VratiCenaOsnov(S.DenCena, ''D'', S.POsn, S.Uces, 0)) IznosDenNeto,
            --Sum(dbo.fn_Vr_Krajna(S.Kolic, S.DevCena, ''D'', S.POsn, S.Uces, 0)) IznosDevDan,
            --Sum(dbo.fn_Vr_Krajna(S.Kolic, S.DenCena, ''D'', S.POsn, S.Uces, 0)) IznosDenDan,
    Set @SSQL = @SSQL + ' Sum(S.Kolic*S.DevCena/(1+S.POsn/100)*(1-S.Uces/100)) IznosDevNeto,
                  Sum(S.Kolic*S.DenCena/(1+S.POsn/100)*(1-S.Uces/100)) IznosDenNeto,
                  Sum(S.Kolic*S.DevCena*(1-S.Uces/100)) IznosDevDan,
                  Sum(S.Kolic*S.DenCena*(1-S.Uces/100)) IznosDenDan,
                  Sum(S.Kolic*S.DevCena*(1-S.Uces/100)*(S.Posn/100)) DevDanok,
                  Sum(S.Kolic*S.DenCena*(1-S.Uces/100)*(S.Posn/100)) DenDanok
            From DevFra D
            Inner Join DevFraStavk S on S.DevFraID=D.DevFraID
            Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join KrsLista V On V.SImeVal=D.KojaVal
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg= ''' + @KoiOe + ''') '
    If @TipDok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @TipDok + ') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Set @SSQL = @SSQL + ' Group By D.Sifra_Oe, O.ImeOrg, D.Broj_DevF, D.Datum_Dok, D.Sifra_Kup, Kup.ImeKup, D.KojaVal, V.ImeVal, D.Kurs, S.PTar, S.Posn,D.Sifra_Dok, D.Broj_Dok '
    If @PoArtikli = 'D'
        Set @SSQL = @SSQL + ' , S.Sifra_Art, K.ImeArt, S.DevCena, S.DenCena '
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_findok]'))
drop procedure [dbo].[sp_anal_findok]

Go






CREATE                         PROCEDURE [dbo].[sp_Anal_FinDok]
    @Sifra_Nal Smallint,
   @Sifra_Dok varchar(200),
   @Sifra_OE Smallint,
   @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
   @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Datetime,
   @Datum_Dok_Do Datetime,
   @Datum_Nal_Od Datetime,
   @Datum_Nal_Do Datetime,
   @Kto Char(6),
   @Sifra_Kup_Od Char(6),
   @Sifra_Kup_Do Char(6),
    @Ime_Kup_Od Varchar(25),
    @Ime_Kup_Do Varchar(25),
   @Sifra_Za Char(1),
    @TipKup Varchar(11),
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @KFSifra_Kup Char(1) = Null,
    @KFTipKup Char(1) = Null,
    @KFPod1 Char(1) = Null,
    @KFPod2 Char(1) = Null,
    @KFPod3 Char(1) = Null,
    @KFPod4 Char(1) = Null,
    @KFPod5 Char(1) = Null,
    @SamoBezExtBr char(1),
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @KoiOE    varchar(300) = Null,
    @KomercKako    char(1) = 'I',            -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @NeVoKasStav char(1) = NULL,
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @DaliDev    char(1)='N'  OUTPUT
AS
   Declare @SSQL Varchar(4000)
   Declare @SSQLSel Varchar(4000)
   Set @SSQLSel = ' '
   Set @SSQL = ' '
    If @Ime_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.ImeKup>=''' + @Ime_Kup_Od + ''' '
    If @Ime_Kup_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.ImeKup<=''' + @Ime_Kup_Do + ''' '
    If @KFSifra_Kup Is Null
        Begin
            If @Sifra_Kup_Od Is Not Null
                SET @SSQL = @SSQL + 'And A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
            If @Sifra_Kup_Do Is Not Null
                SET @SSQL = @SSQL + 'And A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
        End
    Else If @KFSifra_Kup='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And A.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (A.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or A.Sifra_Nivo Is Null) '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + 'AND Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Dok Is NOT Null
        SET @SSQL = @SSQL + ' AND Sifra_Dok IN (' + Cast(@Sifra_Dok As Varchar(200)) + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Broj_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
    If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
    If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND A.Sifra_Div Is Null '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND K.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_OE In (' + @KoiOE + ') '   If @SamoBezExtBr = 'D'
      SET  @SSQL = @SSQL + ' AND A.BrojDok = ''''  '
    If @KFTipKup Is Null
        Begin
            If @TipKup Is Not Null
                Set @SSQL = @SSQL + 'And K.TipKup=''' + @TipKup + ''' '
        End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And (K.TipKup<>''' + @TipKup + ''' Or K.TipKup Is Null) '
    If @KFPod1 Is Null
        Begin
            If @Pod1 Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
        End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
        Begin
            If @Pod2 Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
        End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
        Begin
            If @Pod3 Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
        End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) + ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
        Begin
            If @Pod4 Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
        End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) + ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
        Begin
            If @Pod5 Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
        End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) + ' Or K.KDrugo5 Is Null) '
    If @Sifra_Tip IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Tip = ' + Cast(@Sifra_Tip as varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za
--Set @SSQL=@SSQL + ' )'
Create Table #SifriDok
    (Sifra_Dok Int)
    Set @SSQLSel = ' SELECT DISTINCT A.Sifra_Dok FROM AnFinDok A
     LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
     WHERE 1=1 '
 Insert Into #SifriDok Exec (@SSQLSel+@SSQL)
 Select @DaliDev = TD.Dev  FROM TipDok TD Where TD.Dev='D' and TD.Sifra_Dok In (Select Distinct Sifra_Dok From #SifriDok)
   SET @SSQLSel = 'SELECT A.*, K.ImeKup, K.SMesto, KL.ImeVal, K.KDrugo1, K1.Ime_1K FROM AnFinDok A
      LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
      LEFT OUTER JOIN KDrugo1 K1 ON K1.Sifra_1K= K.KDrugo1
      Left Outer Join KrsLista KL On KL.SImeVal = A.KojaVal
      WHERE 1=1 '
    If @NeVoKasStav IS NOT NULL
    Begin
        IF @NeVoKasStav='D'
        SET @SSQLsel = @SSQLsel + 'AND A.AnID NOT IN (SELECT AnID FROM KasStav Where AnID IS NOT NULL)'
        ELSE
        SET @SSQLsel = @SSQLsel + 'AND A.AnID IN (SELECT AnID FROM KasStav Where AnID IS NOT NULL)'
    End
   EXEC(@SSQLSel+@SSQL)
    RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_findokplat]'))
drop procedure [dbo].[sp_anal_findokplat]

Go
CREATE    PROCEDURE sp_Anal_FinDokPlat
   @Sifra_OE Smallint,
   @Sifra_Dok varchar(200),
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Kup_Od Char(6),
   @Sifra_Kup_Do Char(6),
   @Ime_Kup_Od Varchar(25),
   @Ime_Kup_Do Varchar(25),
   @TipKup Varchar(200),
   @Pod1 Smallint,
   @Pod2 Smallint,
   @Pod3 Smallint,
   @Pod4 Smallint = Null,
   @Pod5 Smallint = Null,
   @Sifra_Tip Smallint = Null,
   @KFSifra_Kup Char(1),
   @KFTipKup Char(1),
   @KFPod1 Char(1),
   @KFPod2 Char(1),
   @KFPod3 Char(1),
   @KFPod4 Char(1) = Null,
   @KFPod5 Char(1) = Null,
   @Sifra_Nivo Char(100)= NULL,
   @Sifra_Pat    smallint = NULL,
   @Skala1    smallint = 3,
   @Skala2    smallint = 15,
   @Skala3    smallint = 35,
   @Skala4    smallint = 45,
   @Skala5    smallint = 60,
   @Skala6    smallint = 75,
   @KomercKako    char(1) = 'I',            -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
   @Neto Decimal(18,4) OUTPUT,
   @DDV Decimal(18,4) OUTPUT,
   @DenoviNapl Decimal(8,2) OUTPUT,
   @DenoviFakt Decimal(8,2) OUTPUT,
   @Vk_Naplata Decimal(18,4) OUTPUT,
   @Vk_Fakt Decimal(18,4) OUTPUT
AS
   Declare @SSQL Varchar(2000)
    Declare @AnID Integer
    Declare @Datum_Upl Smalldatetime
    Declare @Pobaruva Decimal(18,4)
    Declare @AnID1 Integer
    Declare @AnID2 Integer
    Declare @Iznos Decimal(18,4)
    Declare @Datum_Fakt Smalldatetime
    Declare @RokDosp Smallint
    Declare @Dolzi Decimal(18,4)
    Declare @KasniDenovi Smallint
    Declare @KasniTez Decimal(18,4)
    Declare @DospTez Decimal(18,4)
    Declare @VkKasniTez Decimal(18,4)
    Declare @VkDospTez Decimal(18,4)
    Declare @FktZaUpl Decimal(18,4)
    Declare @Danok1 Decimal(18,4)
    Declare @Danok2 decimal(18,4)
    Declare @IznNezatv Decimal(18,4)
    Declare @Odnos Decimal(6,4)
    Set Nocount On
    Set @Vk_Naplata = 0.0
    Set @Vk_Fakt = 0.0
    Set @VkKasniTez = 0.0
    Set @VkDospTez = 0.0
    Set @FktZaUpl = 0.0
    Set @Neto = 0.0
    Set @DDV = 0.0
    CREATE      Table #Rezult
    (    Denovi Smallint,
        Naplata Decimal(18,4),
        Fakturirano Decimal(18,4)
     )
   SET @SSQL = 'SELECT AnID, Datum_Dok, Pobaruva FROM AnFinDok A
        Inner Join Komint KUP On A.Sifra_Kup=KUP.Sifra_KUP
        WHERE Pobaruva<>0 '
--        WHERE Sifra_Dok In (301, 306) And Pobaruva<>0 '
    If @Ime_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And KUP.ImeKup>=''' + @Ime_Kup_Od + ''' '
    If @Ime_Kup_Do Is Not Null
        Set @SSQL = @SSQL + 'And KUP.ImeKup<=''' + @Ime_Kup_Do + ''' '
    If @KFSifra_Kup Is Null
        Begin
            If @Sifra_Kup_Od Is Not Null
                SET @SSQL = @SSQL + 'And A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
            If @Sifra_Kup_Do Is Not Null
                SET @SSQL = @SSQL + 'And A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
        End
    Else If @KFSifra_Kup='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFTipKup Is Null
        Begin
            If @TipKup Is Not Null
                Set @SSQL = @SSQL + 'And KUP.TipKup In (' + @TipKup + ') '
        End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And (Kup.TipKup NOT IN (' + @TipKup + ') Or Kup.TipKup Is Null) '
    If @KFPod1 Is Null
        Begin
            If @Pod1 Is Not Null
                Set @SSQL = @SSQL + 'And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
        End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQL = @SSQL + 'And (KUP.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or KUP.KDrugo1 Is Null) '
    If @KFPod2 Is Null
        Begin
            If @Pod2 Is Not Null
                Set @SSQL = @SSQL + 'And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
        End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQL = @SSQL + 'And (KUP.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or KUP.KDrugo2 Is Null) '
    If @KFPod3 Is Null
        Begin
            If @Pod3 Is Not Null
                Set @SSQL = @SSQL + 'And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
        End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQL = @SSQL + 'And (KUP.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) + ' Or KUP.KDrugo3 Is Null) '
    If @KFPod4 Is Null
        Begin
            If @Pod4 Is Not Null
                Set @SSQL = @SSQL + 'And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
        End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQL = @SSQL + 'And (KUP.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) + ' Or KUP.KDrugo4 Is Null) '
    If @KFPod5 Is Null
        Begin
            If @Pod5 Is Not Null
                Set @SSQL = @SSQL + 'And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
        End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQL = @SSQL + 'And (KUP.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) + ' Or KUP.KDrugo5 Is Null) '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL +'AND A.Sifra_OE=' + CAst(@Sifra_OE As VArchar(6)) + ' '
    If @Sifra_Dok Is NOT Null
              SET @SSQL = @SSQL + ' AND A.Sifra_Dok IN (' + Cast(@Sifra_Dok As Varchar(200)) + ') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
   If @KomercKako = 'I'
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
   If @KomercKako = 'T'
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
--    If @Sifra_Pat IS NOT NULL
--        SET @SSQL = @SSQL + ' AND A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    Create Table #Uplati
    (    AnID Integer,
        Datum_Dok Smalldatetime,
        Pobaruva Decimal(18,4)
    )
    Insert #Uplati Exec(@SSQL)
    Declare Upl Cursor Fast_Forward For Select * From #Uplati
    Open Upl
    Fetch Next From Upl Into @AnID, @Datum_Upl, @Pobaruva
    While @@Fetch_Status = 0     Begin
--        print 'Uplata:' + Cast(@AnID As Char(10)) + ' ' + Cast(@Datum_Upl As Char(20)) + ' ' +
--                Cast(@Pobaruva As Char(20))
--        print '------------------------------------------------------------------'
        Set @Vk_Naplata = @Vk_Naplata + @Pobaruva
        Declare Fakt Cursor Fast_Forward For
            Select AZ.AnID1, AZ.AnID2, AZ.Iznos, A.Datum_Dok, A.Rok, A.Dolzi, A.Danok1, A.Danok2
            From AnZatv AZ
            Inner Join AnFinDok A On AZ.AnID1=A.AnID Or AZ.AnID2=A.AnID
            Where (AZ.AnID1=@AnID Or AZ.AnID2=@AnID) And A.Dolzi<>0 And AZ.Iznos<>0
        Open Fakt
        Set @KasniDenovi = 0
        Set @KasniTez = 0
        Set @DospTez = 0
        Set @FktZaUpl = 0.0
        Fetch Next From Fakt Into @AnID1, @AnID2, @Iznos, @Datum_Fakt, @RokDosp, @Dolzi, @Danok1, @Danok2
        While @@Fetch_Status = 0
        Begin
--            print 'Faktura:' + Cast(@AnID1 As Char(8)) + ' ' + Cast(@AnID2 As Char(8)) + ' ' +
--                    Cast(@Datum_Fakt As Char(20)) + ' ' + Cast(@RokDosp As Char(4)) + ' ' +
--                    Cast(@Iznos As Char(15))
            -- Go skalirame danokot proporcionalno na uplatata
            Set @Danok1 = @Danok1 * @Iznos / @Dolzi
            Set @Danok2 = @Danok2 * @Iznos / @Dolzi
            Set @Vk_Fakt = @Vk_Fakt + @Iznos
            Set @FktZaUpl = @FktZaUpl + @Iznos
            Set @Neto = @Neto + (@Iznos - @Danok1 - @Danok2)
            Set @DDV = @DDV + @Danok1 + @Danok2
            --Levo
            Set @KasniDenovi = DateDiff(Day, @Datum_Fakt, @Datum_Upl)
            If @KasniDenovi < 0
                Set @KasniDenovi = 0
            Set @KasniTez = @KasniTez + (@KasniDenovi * @Iznos)
            Set @VkKasniTez = @VkKasniTez + (@KasniDenovi * @Iznos)
            --Desno
            Set @DospTez = @DospTez + (@RokDosp * @Iznos)
            Set @VkDospTez = @VkDospTez + (@RokDosp * @Iznos)
            Fetch Next From Fakt Into @AnID1, @AnID2, @Iznos, @Datum_Fakt, @RokDosp, @Dolzi, @Danok1, @Danok2
        End --While za vnatresen Cursor - Fakt
        Close Fakt
        Deallocate Fakt
        Set @KasniTez = @KasniTez / @Pobaruva
        Set @DospTez = @DospTez / @Pobaruva
        Insert #Rezult (Denovi, Naplata)
            Values (Round(@KasniTez, 0), @Pobaruva)
        Insert #Rezult (Denovi, Fakturirano)
            Values (Round(@DospTez, 0), @FktZaUpl)
        Fetch Next From Upl Into @AnID, @Datum_Upl, @Pobaruva
    End --While za nadvoresen Cursor - Upl
    Close Upl
    Deallocate Upl
    If @Vk_Naplata<>0
        Set @DenoviNapl = Round(@VkKasniTez/@Vk_Naplata, 2)
    Else
        Set @DenoviNapl = 0
    If @Vk_Fakt<>0
        Set @DenoviFakt = Round(@VkDospTez/@Vk_Fakt, 2)
    Else
        Set @DenoviFakt = 0
    --Da sa izednacat Naplata i Fakturirano
    Set @IznNezatv = @Vk_Naplata - @Vk_Fakt
    If @IznNezatv <> 0
        Begin
            Insert #Rezult (Denovi, Fakturirano)
                Values (0, @IznNezatv)
            If @Neto <> 0
                Set @Odnos = @DDV/@Neto
            Else
                Set @Odnos = 0
            Set @Neto = @Neto + (1-@Odnos)*@IznNezatv
            Set @DDV = @DDV + @Odnos*@IznNezatv
            Set @Vk_Fakt = @Vk_Fakt + @IznNezatv
        End
    Update #Rezult
        Set Denovi = @Skala1 Where Denovi <= @Skala1
    Update #Rezult
        Set Denovi = @Skala2 Where Denovi > @Skala1 and Denovi <= @Skala2
    Update #Rezult
        Set Denovi = @Skala3 Where Denovi > @Skala2 and Denovi <= @Skala3
    Update #Rezult
        Set Denovi = @Skala4 Where Denovi > @Skala3 and Denovi <= @Skala4
    Update #Rezult
        Set Denovi = @Skala5 Where Denovi > @Skala4 and Denovi <= @Skala5
    Update #Rezult
        Set Denovi = @Skala6 Where Denovi > @Skala5 and Denovi <= @Skala6
    Update #Rezult
        Set Denovi = 999 Where Denovi > @Skala6
    Select Denovi,
        Sum(Naplata) Naplata,
        Sum(Fakturirano) Fakturirano
    From #Rezult
    Group By Denovi
    Order By Denovi
    RETURN @@ERROR
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_finrazl]'))
drop procedure [dbo].[sp_anal_finrazl]

Go

CREATE  PROCEDURE sp_Anal_FinRazl
    @Sifra_Oe        Smallint = Null,
    @Datum_Dok_Od    SmallDateTime = Null,
    @Datum_Dok_Do    SmallDateTime = Null,
    @Broj_RazlFin_Od    Int = Null,
    @Broj_RazlFin_Do    Int = Null
AS
    DECLARE @SSQL  AS Varchar(2000)
    Set @SSQL = 'Select R.Sifra_OE, R.Broj_RazlFin,  R.Datum_Dok,
        Vlez = Sum(Case R.VlIzl
                When ''V'' Then R.Iznos_Razl
                When ''I'' Then 0
            End),
        Izlez = Sum(Case R.VlIzl
                When ''V'' Then 0
                When ''I'' Then R.Iznos_Razl
            End),
        R.Sifra_Nal, R.Broj_Nal
        From RazlFin R
        Where 1=1'
    IF @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Oe= ''' + Cast(@Sifra_Oe as Varchar(6)) + ''' '
    IF @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok>= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    IF @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok<= ''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
    IF @Broj_RazlFin_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RazlFin >= ''' + Cast(@Broj_RazlFin_Od As Varchar(6)) + ''' '
    IF @Broj_RazlFin_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RazlFin <= ''' + Cast(@Broj_RazlFin_Do As Varchar(6)) + ''' '
    SET @SSQL = @SSQL + ' Group By R.Sifra_Oe, R.Broj_RazlFin, R.Datum_Dok, R.Sifra_Nal, R.Broj_Nal Order by R.Sifra_Oe, R.Datum_Dok '
    Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_katspec]'))
drop procedure [dbo].[sp_anal_katspec]

Go


CREATE                 PROCEDURE [dbo].[sp_Anal_KatSpec]
    @Sifra_Nal     Smallint = Null,
    --@Sifra_Dok     Smallint = Null,
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(1000) = Null,
    @Sifra_Prim     Smallint = Null,
    @Broj_Nal_Od     Int = Null,
    @Broj_Nal_Do     Int = Null,
    @Broj_Dok_Od     Int = Null,
    @Broj_Dok_Do     Int = Null,
    @Datum_Dok_Od     Smalldatetime = Null,
    @Datum_Dok_Do     Smalldatetime = Null,
    @Datum_Nal_Od     Smalldatetime = Null,
    @Datum_Nal_Do     Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Sifra_Za     Char(1) = '1',
    @VlIzl         Char(1) = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
    @Lokacija     varchar(10) = Null,
    @MatUsl     char(1) = Null,
    @PecFisc     char(1) = 'N',
    @Sifra_Nivo     Char(2) = Null,
    @KFSifra_Nivo     Char(1) = Null,
    @KFSifra_Prim     Smallint = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoUcesOsn    char(1) = 'N',
    @UcesOsnNad    decimal(6,2) = 0,
    @UcesOsnDo    decimal(6,2) = 0,
    @SoUcesKol    char(1) = 'N',
    @UcesKolNad    decimal(6,2) = 0,
    @UcesKolDo    decimal(6,2) = 0,
    @SoUcesDod    char(1) = 'N',
    @UcesDodNad    decimal(6,2) = 0,
    @UcesDodDo    decimal(6,2) = 0,
    @VkUcesNad    decimal(6,2) = 0,
    @Kto_Anal    char(10) = NULL,
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(200) = Null,
    @Sifra_Div    smallint = Null,
    @ArtBezKatSpecPak     char(1) = 'N',
    @Grupiran    char(1)='N',
    @OrgEdEkolUvoz    varchar(500)=NULL
AS
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
    Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Declare @SSQL Varchar(8000)
    IF @Grupiran='D'
        SET @SSQL = 'SELECT 0 Sifra_OE, 0 Sifra_Dok, 0 Broj_Dok, ''2011-01-01'' Datum_Dok, 0 DokID,
        S.Sifra_Art, A.ImeArt, A.Edmera, A.ImaKomerc, A.ImaBroevi, A.SodrziEd, A.Tezina, A.BTezina,
        KSP.Tezina PakTezina, KSP.Vid_Pakuv, KTM.Tip, KTM.Sifra_TipMat, SUM(S.Kolic) Kolic '
    ELSE
        SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,  S.DokID,
        S.Sifra_Art, A.ImeArt, A.Edmera, A.ImaKomerc, A.ImaBroevi, A.SodrziEd, A.Tezina, A.BTezina,
        KSP.Tezina PakTezina, KSP.Vid_Pakuv, KTM.Tip, KTM.Sifra_TipMat, S.Kolic '

    SET @SSQL = @SSQL + ' FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj '
    If @ArtBezKatSpecPak = 'D'
        Set @SSQL = @SSQL + ' left outer JOIN KatSpecPakuv KSP ON KSP.Sifra_Art=S.Sifra_Art
                          left outer JOIN KatSpecTipMat KTM ON KTM.Sifra_TipMat=KSP.Sifra_TipMat '
    else
        Set @SSQL = @SSQL + ' inner JOIN KatSpecPakuv KSP ON KSP.Sifra_Art=S.Sifra_Art
                           inner JOIN KatSpecTipMat KTM ON KTM.Sifra_TipMat=KSP.Sifra_TipMat '
    If @Sifra_Gr is not null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg = A.Sifra_Podg '

    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + ' WHERE S.Kolic<>0  '  -- s.kolicf <> 0 dod 18.06.2010 za Prima
    Else
        SET @SSQL = @SSQL + ' WHERE S.Kolic<>0 And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @MatUsl Is Not Null
        Set @SSQL = @SSQL + 'AND A.SMatUsl=''' + @MatUsl + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    --If @Sifra_Dok Is NOT NULL
    --    SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za<>''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto_Anal='''+@Kto_Anal+''') '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND (P.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
        If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + 'AND D.DogBr=''' + @DogBr + ''' '
        If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    --------------------------------------------------------- dod 30.08.2006 --------------------------------------------------------------------------------------------------
    If @SoUcesOsn = 'D'
        Set @SSQL = @SSQL + ' And ((S.UcesOsn > ' + Cast(@UcesOsnNad as varchar(10)) + ' And S.UcesOsn <= ' + Cast(@UcesOsnDo as varchar(10)) + ') '
    If @SoUcesKol = 'D'
        If @SoUcesOsn <> 'D'  Or @SoUcesOsn Is Null
            Set @SSQL = @SSQL + ' And ((S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
    If @SoUcesDod = 'D'
        If (@SoUcesOsn <> 'D' Or @SoUcesOsn Is Null) And (@SoUcesKol <> 'D' Or @SoUcesKol Is Null)
            Set @SSQL = @SSQL + ' And ((S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
    If @SoUcesOsn = 'D' Or @SoUcesKol = 'D' Or @SoUcesDod = 'D'
        Set @SSQL = @SSQL + ' ) '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @VkUcesNad <> 0
    BEGIN
        IF @VkUcesNad = -1
          Set @SSQL = @SSQL + ' And S.DokCena = 0.0 '
        else
          Set @SSQL = @SSQL + ' And S.Uces >= ' + Cast(@VkUcesNad as varchar(10)) + ' '
    end
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF @OrgEdEkolUvoz IS NULL
    Set @SSQL = @SSQL + ' And S.VlIzl=''I'' AND TD.Dev <> ''D'' '
ELSE
    Set @SSQL = @SSQL + ' And ((S.VlIzl=''I'' AND TD.Dev <> ''D'' AND S.Sifra_OE NOT IN ('+@OrgEdEkolUvoz+')) OR (S.Sifra_OE IN ('+@OrgEdEkolUvoz+') AND S.VlIzl=''V'' AND TD.Dev=''D'' )) '
IF @Grupiran='D'
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art, A.ImeArt, A.Edmera, A.ImaKomerc, A.ImaBroevi, A.SodrziEd, A.Tezina, A.BTezina,
                      KSP.Tezina, KSP.Vid_Pakuv, KTM.Tip, KTM.Sifra_TipMat '
        --Set @SSQL = @SSQL + ' ORDER BY D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok '
print @SSQL
   EXEC(@SSQL)





















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_katspec_zb]'))
drop procedure [dbo].[sp_anal_katspec_zb]

Go








CREATE            PROCEDURE sp_Anal_KatSpec_Zb
       @Sifra_Nal     Smallint = Null,
    --@Sifra_Dok     Smallint = Null,
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(1000) = Null,
    @Sifra_Prim     Smallint = Null,
    @Broj_Nal_Od     Int = Null,
       @Broj_Nal_Do     Int = Null,
    @Broj_Dok_Od     Int = Null,
       @Broj_Dok_Do     Int = Null,
       @Datum_Dok_Od     Smalldatetime = Null,
       @Datum_Dok_Do     Smalldatetime = Null,
    @Datum_Nal_Od     Smalldatetime = Null,
       @Datum_Nal_Do     Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Sifra_Za     Char(1) = '1',
    @VlIzl         Char(1) = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
    @Lokacija     varchar(10) = Null,
    @MatUsl     char(1) = Null,
    @PecFisc     char(1) = 'N',
    @Sifra_Nivo     Char(2) = Null,
    @KFSifra_Nivo     Char(1) = Null,
    @KFSifra_Prim     Smallint = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
     @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoUcesOsn    char(1) = 'N',
    @UcesOsnNad    decimal(6,2) = 0,
    @UcesOsnDo    decimal(6,2) = 0,
    @SoUcesKol    char(1) = 'N',
    @UcesKolNad    decimal(6,2) = 0,
    @UcesKolDo    decimal(6,2) = 0,
    @SoUcesDod    char(1) = 'N',
    @UcesDodNad    decimal(6,2) = 0,
    @UcesDodDo    decimal(6,2) = 0,
    @VkUcesNad    decimal(6,2) = 0,
    @Kto_Anal    char(10) = NULL,
        @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
        @TipDok    varchar(200) = Null,
        @Sifra_Div    smallint = Null,
    @OrgEdEkolUvoz    varchar(500)=NULL
AS
    Set @UcesOsnNad    = @UcesOsnNad * 100
    Set @UcesOsnDo    = @UcesOsnDo * 100
    Set @UcesKolNad    = @UcesKolNad * 100
    Set @UcesKolDo    = @UcesKolDo * 100
    Set @UcesDodNad    = @UcesDodNad * 100
    Set @UcesDodDo    = @UcesDodDo * 100
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
   Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Datum_Dok, S.Sifra_Art, S.Kolic, A.ImaKomerc, A.ImaBroevi, A.SodrziEd
        FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Podgrupi PG ON A.Sifra_Podg=PG.Sifra_Podg
        LEFT OUTER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KDrugo4 K4 ON K.KDrugo4=K4.Sifra_4K
                LEFT OUTER JOIN KDrugo6 K6 ON K.KDrugo6=K6.Sifra_6K
        INNER JOIN Orged O ON S.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON TD.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
        LEFT OUTER JOIN Patnici Pat ON Pat.Sifra_Pat=D.Sifra_Pat '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0  '  -- s.kolicf <> 0 dod 18.06.2010 za Prima
    Else
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0 And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @MatUsl Is Not Null
        Set @SSQL = @SSQL + 'AND A.SMatUsl=''' + @MatUsl + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    --If @Sifra_Dok Is NOT NULL
    --    SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za<>''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto_Anal='''+@Kto_Anal+''') '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
        If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + 'AND D.DogBr=''' + @DogBr + ''' '
        If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    --------------------------------------------------------- dod 30.08.2006 --------------------------------------------------------------------------------------------------
    If @SoUcesOsn = 'D'
        Set @SSQL = @SSQL + ' And ((S.UcesOsn > ' + Cast(@UcesOsnNad as varchar(10)) + ' And S.UcesOsn <= ' + Cast(@UcesOsnDo as varchar(10)) + ') '
    If @SoUcesKol = 'D'
        If @SoUcesOsn <> 'D'  Or @SoUcesOsn Is Null
            Set @SSQL = @SSQL + ' And ((S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
    If @SoUcesDod = 'D'
        If (@SoUcesOsn <> 'D' Or @SoUcesOsn Is Null) And (@SoUcesKol <> 'D' Or @SoUcesKol Is Null)
            Set @SSQL = @SSQL + ' And ((S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
    If @SoUcesOsn = 'D' Or @SoUcesKol = 'D' Or @SoUcesDod = 'D'
        Set @SSQL = @SSQL + ' ) '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @VkUcesNad <> 0
    BEGIN
        IF @VkUcesNad = -1
          Set @SSQL = @SSQL + ' And S.DokCena = 0.0 '
        else
          Set @SSQL = @SSQL + ' And S.Uces >= ' + Cast(@VkUcesNad as varchar(10)) + ' '
    end
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF @OrgEdEkolUvoz IS NULL
    Set @SSQL = @SSQL + ' And S.VlIzl=''I'' AND TD.Dev <> ''D'' '
ELSE
    Set @SSQL = @SSQL + ' And ((S.VlIzl=''I'' AND TD.Dev <> ''D'' AND S.Sifra_OE NOT IN ('+@OrgEdEkolUvoz+')) OR (S.Sifra_OE IN ('+@OrgEdEkolUvoz+') AND S.VlIzl=''V'' AND TD.Dev=''D'' )) '

        Create Table #Artikli
    (
        Datum_dok    smalldatetime,
        Sifra_Art    varchar(20),
                Kolic       decimal(18,6),
        ImaKomerc    decimal(18,6),
                ImaBroevi    decimal(18,6),
                SodrziEd    decimal(18,6)
    )
        Insert Into #Artikli Exec(@SSQL)


       Create Table #ZbArt
    (
        --Datum_dok    smalldatetime,
        Godina          smallint,
                Mesec           smallint,
                Sifra_Art    varchar(20),
                Kolic       decimal(18,6),
        ImaKomerc    decimal(18,6),
                ImaBroevi    decimal(18,6),
                SodrziEd    decimal(18,6)
    )
        Insert Into #ZbArt
            Select DATEPART(yyyy, Datum_Dok), DATEPART(mm, Datum_Dok), Sifra_art, Sum(Kolic), max(ImaKomerc), max(ImaBroevi), max(SodrziEd)
            From #Artikli
                        group by DATEPART(yyyy, Datum_Dok), DATEPART(mm, Datum_Dok), Sifra_Art

        Create Table #Stavki
    (
        --Datum_dok    smalldatetime,
                Godina          smallint,
                Mesec           smallint,
        Sifra_Art    varchar(20),
                Kolic       decimal(18,6),
        ImaKomerc    decimal(18,6),
                ImaBroevi    decimal(18,6),
                Tezina            decimal(18,6),
                Sifra_TipMat    smallint,
                Tip             char(1),
                Vid_Pakuv       char(1),
                SodrziEd    decimal(18,6)
    )
        Insert Into #Stavki
            Select Z.Godina, Z.Mesec, Z.Sifra_art, Z.Kolic, Z.ImaKomerc, Z.ImaBroevi,
                                 KSP.Tezina, KSP.Sifra_TipMat, KTM.Tip, KSP.Vid_Pakuv, Z.SodrziEd
            From #ZbArt Z
                        inner JOIN KatSpecPakuv KSP ON KSP.Sifra_Art=Z.Sifra_Art
                        inner JOIN KatSpecTipMat KTM ON KTM.Sifra_TipMat=KSP.Sifra_TipMat

         select * from #Stavki

--print @SSQL
   --EXEC(@SSQL)











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok]'))
drop procedure [dbo].[sp_anal_matdok]

Go






CREATE                              PROCEDURE [dbo].[sp_Anal_MatDok]
    @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(1000),
    @Sifra_Prim Smallint,
    @KoiOE_Prim char(6) = Null,
    @Broj_Nal_Od Int,
    @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
    @Broj_Dok_Do Int,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @VlIzl Char(1),
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Lokacija    varchar(10) = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Kto        char(6) = Null,
    @BezOdbRabat    char(2) = 'NN',    -- DD - Bez odbien rabat so Danok    DN - Bez odbien rabat bez Danok
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @PoGradovi    char(1) = 'N',
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @RezVoTabela    char(1) = 'N',
    @SoTezini    char(1) = 'N',
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null,
    @Ispor        char(1) = 'S'
AS


    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
       Declare @SSQL Varchar(8000)
    If @RezVoTabela = 'D'
    Begin
        Set @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Nal, D.Broj_Nal, D.Datum_Dok, D.VlIzl, D.Toc200, D.MagVr, D.MagVrDan, D.Danok1, D.Danok2, D.Sifra_Prev, PR.ImePrev, D.Sifra_Pat
                FROM DOKR D
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
                LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj
                left outer Join Prevoznik PR on D.Sifra_Prev=PR.Sifra_Prev'
        IF @Ispor <> 'S'
            SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    End
    Else
    Begin
        SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup, D.Sifra_Obj, D.Datum_Dok,D.Rok,
                    DateADD(day, D.Rok, D.Datum_Dok)DatumDosp, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                    D.Dat_Pec_Fisc,
                    Round(Sum(S.Kolic*S.NabCena),4) NabVr, Round(Sum(S.Kolic*S.MagCena),4) MagVrednost, Round(sum(S.DokCena*S.Kolic),4) PoDokCena, TD.ImeDok,
                    K.ImeKup, K.SMesto,
                    O.ImeOrg As IORG, OP.ImeOrg As IORG_Prima, KO.ImeObj,
                    Sum(S.Kolic*S.TrsCena) TrsVrednost, D.Plat_PerDan, D.Spremil, Count(S.DokID) BrStavki, D.Sifra_Prev, PR.ImePrev, D.Opis, D.Prenesen, D.Sifra_Pat, '
        If @BezOdbRabat = 'DD'
            Set @SSQL = @SSQL + ' Sum(Case When S.VlIzl = ''I'' Then (S.Kolic*dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''D'')) Else 0 End) VrednBezRabat, '
        Else If @BezOdbRabat = 'DN'
            Set @SSQL = @SSQL + ' Sum(Case When S.VlIzl = ''I'' Then (S.Kolic*dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'')) Else 0 End) VrednBezRabat, '
        Else
            Set @SSQL = @SSQL + ' Null as VrednBezRabat, '
        If @PoGradovi = 'D'
            Set @SSQL = @SSQL + ' (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad, '
        Else
            Set @SSQL = @SSQL + ' Null as Sifra_Grad, Null as ImeGrad, '
        If @SoTezini = 'D'
            Set @SSQL = @SSQL + ' Sum(S.Kolic*A.Tezina/1000) Tezina '
        Else
            Set @SSQL = @SSQL + ' Null as  Tezina '
        Set @SSQL = @SSQL + ' FROM DOKR D
                     Left Outer Join Stavr S On D.DokrID=S.DokrID
                     INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                     LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                     INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                     LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                     LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
                     LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj
                     left outer Join Prevoznik PR on D.Sifra_Prev=PR.Sifra_Prev '
        If @Sifra_Drg Is Not Null Or @Lokacija Is Not Null Or @SoTezini = 'D'
            Set @SSQL = @SSQL + ' Left Outer Join Katart A On A.Sifra_art=S.Sifra_art '
        If @PoGradovi = 'D'
            Set @SSQL = @SSQL + ' Left Outer Join Grad G On G.Sifra_Grad = (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End) '
        IF @Ispor <> 'S'
            SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    End
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @KoiOE_Prim Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Prim In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE_Prim + ''') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Lokacija IS NOT NULL
              SET @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
       If @Kto IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Kto=''' + @Kto + ''' '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + ' AND D.DogBr=''' + @DogBr + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.DokrID IS NOT NULL '

    If @RezVoTabela <> 'D' Or @RezVoTabela Is Null
    Begin
        Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup, D.Sifra_Obj,
                    D.Datum_Dok, D.Rok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                    D.Dat_Pec_Fisc, TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg, KO.ImeObj, D.Plat_PerDan, D.Spremil, D.Sifra_Prev, PR.ImePrev, D.OPis, D.Prenesen, D.Sifra_Pat   '
        If @PoGradovi = 'D'
            Set @SSQL = @SSQL + ', (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End), G.ImeGrad '
    End
    If @RezVoTabela = 'D'
    Begin
        Create Table ##AMD
        (
         Sifra_OE    smallint,
         Sifra_Nal    smallint,
         Broj_Nal    int,
         Datum_Dok    smalldatetime,
         VlIzl        char(1),
         Toc200    decimal(18,6),
         MagVr        decimal(18,6),
         MagVrDan    decimal(18,6),
         Danok1    decimal(18,6),
         Danok2    decimal(18,6)
        )
        Insert Into ##AMD Exec(@SSQL)
    End
    Else
print @ssql
        EXEC(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_ambalaza]'))
drop procedure [dbo].[sp_anal_matdok_ambalaza]

Go


CREATE                       PROCEDURE [dbo].[sp_Anal_MatDok_Ambalaza]
       @Sifra_Nal     Smallint = Null,
    @Sifra_Dok     Smallint = Null,
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(1000) = Null,
    @Sifra_Prim     Smallint = Null,
    @Broj_Nal_Od     Int = Null,
       @Broj_Nal_Do     Int = Null,
    @Broj_Dok_Od     Int = Null,
       @Broj_Dok_Do     Int = Null,
       @Datum_Dok_Od     Smalldatetime = Null,
       @Datum_Dok_Do     Smalldatetime = Null,
    @Datum_Nal_Od     Smalldatetime = Null,
       @Datum_Nal_Do     Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Sifra_Za     Char(1) = Null,
    @VlIzl         Char(1) = Null,
--    @Sifra_Art_Od     Varchar(20) = Null,
--    @Sifra_Art_Do     Varchar(20) = Null,
--    @Kto         char(6) = Null,
--    @Sifra_Gr     char(3) = Null,
--    @Sifra_Podg     char(6) = Null,
--    @Lokacija     varchar(10) = Null,
--    @MatUsl     char(1) = Null,
    @PecFisc     char(1) = 'N',
    @Sifra_Nivo     Char(2) = Null,
    @KFSifra_Nivo     Char(1) = Null,
    @KFSifra_Prim     Smallint = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
--    @Uces_Od    decimal(6,2) = Null,
--    @Uces_Do    decimal(6,2) = Null,
--    @Sifra_Drg    smallint = Null,
--    @Drugo1    smallint = Null,
--    @Drugo2    smallint = Null,
--    @Drugo3    smallint = Null,
--    @Drugo4    smallint = Null,
 --    @Drugo5    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @Kto_Anal    char(10) = NULL,
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @Povratna    char(1) = 'D',
    @DaliAmbOdDok    char(1) = 'D',
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null
AS

    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1

    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)

    Set @SSQLUsl = ' '

    If @Sifra_Nal Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQLUsl = @SSQLUsl + ' AND D.Pec_Fisc > 0 '
--    If @MatUsl Is Not Null
--        Set @SSQLUsl = @SSQLUsl + 'AND A.SMatUsl=''' + @MatUsl + ''' '
--      If @Sifra_Art_Od IS NOT NULL
--        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
--      If @Sifra_Art_Do IS NOT NULL
--        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQLUsl = @SSQLUsl + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQLUsl = @SSQLUsl + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQLUsl = @SSQLUsl + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
       If @Sifra_Obj Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
--      If @Kto IS NOT NULL
--              Set @SSQLUsl = @SSQLUsl + 'AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQLUsl = @SSQLUsl + 'AND (D.Kto_Anal='''+@Kto_Anal+''') '
--       If @Sifra_Gr IS NOT NULL
--              Set @SSQLUsl = @SSQLUsl + 'AND (P.Sifra_Gr='''+@Sifra_Gr+''') '
--       If @Sifra_Podg IS NOT NULL
--             Set @SSQLUsl = @SSQLUsl + 'AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
--       If @Lokacija IS NOT NULL
--              Set @SSQLUsl = @SSQLUsl + 'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Mest Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
--       If @Uces_Od Is NOT Null
 --             SET @SSQLUsl = @SSQLUsl + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
  --     If @Uces_Do Is NOT Null
   --           SET @SSQLUsl = @SSQLUsl + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
--       If @Sifra_Drg Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
--       If @Drugo1 Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
--      If @Drugo2 Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
--       If @Drugo3 Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
--       If @Drugo4 Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
--       If @Drugo5 Is NOT Null
--              SET @SSQLUsl = @SSQLUsl + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQLUsl = @SSQLUsl+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
    If @KDrugo1 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '

       If @Sifra_Prev IS NOT NULL
              SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQLUsl = @SSQLUsl + ' AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND D.DogBr=''' + @DogBr + ''' '

    If @TipDok IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Create Table #Amb
    (
     Sifra_Amb    varchar(20),
     KolicAmb    decimal(18,6),
     Sifra_GAmb    varchar(20),
     KolicGamb    decimal(18,6),
     So_GAmb    char(1),
     KolicAmbDok    decimal(18,6),
     KolicGambDok    decimal(18,6)
    )

    Set @SSQL = ' Select S.Sifra_Amb,
            Sum(S.Kolic) KolicAmb,
            A.Sifra_GAmb,
            Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then S.Kolic Else (S.Kolic/A.VoGAmb) End) KolicGAmb,
             S.So_GAmb, 0, 0
    From StaAmbal S
    Inner Join Dokr D On D.DokrID=S.DokrID
    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
    Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
    LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
    Where 1=1 '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Amb, A.Sifra_GAmb, Sign(S.Kolic), S.So_GAmb '
print @SSQL
    Insert Into #Amb Exec (@SSQL)
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    If @DaliAmbOdDok = 'D'
    Begin
        Set @SSQL = ' Select Art.Sifra_Amb, 0,
                A.Sifra_GAmb, 0,
                 ''D'',
                Sum(S.Kolic) KolicAmbDok, Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then S.Kolic Else (S.Kolic/A.VoGAmb) End) KolicGAmbDok
        From Stavr S
        Inner Join Dokr D On D.DokrID=S.DokrID
        Inner Join Katart Art On Art.Sifra_Art = S.Sifra_Art
        Inner Join KatAmb A On A.Sifra_Amb=Art.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        Where 1=1 '
        If @Povratna = 'D'
            Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '

        Set @SSQL = @SSQL + @SSQLUsl + ' Group By Art.Sifra_Amb, A.Sifra_GAmb, Sign(S.Kolic) '
        Insert Into #Amb Exec (@SSQL)
print @SSQL
    End
    ----------------------------------------------------------------------------------------------------------------------------
    Select T.Sifra_Amb, A.ImeAmb, Sum(T.KolicAmb) KolicAmb, G.ImeAmb ImeGAmb, T.Sifra_GAmb, Sum(T.KolicGamb) KolicGamb, T.So_GAmb,
        Sum(T.KolicAmbDok) KolicAmbDok, Sum(T.KolicGambDok) KolicGambDok
    From #Amb T
    Inner Join KatAmb A On A.Sifra_Amb=T.Sifra_Amb
    Left Outer Join KatAmb G On G.Sifra_Amb=T.Sifra_GAmb
    Group By T.Sifra_Amb, A.ImeAmb, G.ImeAmb, T.Sifra_GAmb, T.So_GAmb, Sign(T.KolicAmb), Sign(T.KolicAmbDok)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_art]'))
drop procedure [dbo].[sp_anal_matdok_art]

Go


CREATE                               PROCEDURE [dbo].[sp_Anal_MatDok_Art]
       @Sifra_Nal     Smallint = Null,
    @Sifra_Dok     Smallint = Null,
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(1000) = Null,
    @Sifra_Prim     Smallint = Null,
    @Broj_Nal_Od     Int = Null,
       @Broj_Nal_Do     Int = Null,
    @Broj_Dok_Od     Int = Null,
       @Broj_Dok_Do     Int = Null,
       @Datum_Dok_Od     Smalldatetime = Null,
       @Datum_Dok_Do     Smalldatetime = Null,
    @Datum_Nal_Od     Smalldatetime = Null,
       @Datum_Nal_Do     Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Sifra_Za     Char(1) = Null,
    @VlIzl         Char(1) = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
    @Lokacija     varchar(10) = Null,
    @MatUsl     char(1) = Null,
    @PecFisc     char(1) = 'N',
    @Sifra_Nivo     Char(2) = Null,
    @KFSifra_Nivo     Char(1) = Null,
    @KFSifra_Prim     Smallint = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
     @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoUcesOsn    char(1) = 'N',
    @UcesOsnNad    decimal(6,2) = 0,
    @UcesOsnDo    decimal(6,2) = 0,
    @SoUcesKol    char(1) = 'N',
    @UcesKolNad    decimal(6,2) = 0,
    @UcesKolDo    decimal(6,2) = 0,
    @SoUcesDod    char(1) = 'N',
    @UcesDodNad    decimal(6,2) = 0,
    @UcesDodDo    decimal(6,2) = 0,
    @VkUcesNad    decimal(6,2) = 0,
    @Kto_Anal    char(10) = NULL,
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr            varchar(10) = Null,
    @Sifra_Reg        smallint = Null,
    @ispratnica     varchar(25) = Null,
    @TipDok    varchar(400) = Null,
    @NemaDivizija    char(1) = Null,
    @Sifra_Div      smallint = NULL,
    @Ispor            char(1) = 'S'
AS
    Set @UcesOsnNad    = @UcesOsnNad * 100
    Set @UcesOsnDo    = @UcesOsnDo * 100
    Set @UcesKolNad    = @UcesKolNad * 100
    Set @UcesKolDo    = @UcesKolDo * 100
    Set @UcesDodNad    = @UcesDodNad * 100
    Set @UcesDodDo    = @UcesDodDo * 100
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
        Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.Kasa,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            S.Sifra_Art, A.ImeArt, A.Edmera, S.VlIzl, S.Kolic, Round(S.DokCena,4) DokCena, S.MagCena, S.Uces, S.DanDokCena, S.DanMagCena, S.POsn,
            D.Identif_Br, D.Ispratnica,  S.UcesOsn, S.UcesKol, (Case When S.UcesDod Is Null Then 0 Else S.UcesDod End) UcesDod,
            A.ImaKomerc, A.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, S.Alt_Kolic,
            D.Sifra_Pat, Pat.ImePat, S.NabCena, D.Toc200, A.Tezina, A.BTezina, A.PCena6, D.SerBr, A.CarBroj, C.Ime ImeCarBr,
            A.Drugo2 Sifra_2, D2.Ime_2, A.SpeCena, A.Fakturna,
            S.ImeMat, S.Tros, A.Edmera SEdmera, A.Alt_Ime, S.KontrSer, A.Volumen, S.DokId, O.MestoIsporaka, K.SMesto SMestoKup, KO.SMesto SMestoObj,
            K.Adresa AdresaKup, KO.Adresa AdresaObj, A.DogCena, K.Sifra_Reg, KR.ImeRegion, KO.Sifra_reg KObjSifra_reg, KOR.ImeRegion KObjImeRegion, S.Rbr
        FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Podgrupi PG ON A.Sifra_Podg=PG.Sifra_Podg
        LEFT OUTER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        INNER JOIN Orged O ON S.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
        LEFT OUTER JOIN Patnici Pat ON Pat.Sifra_Pat=D.Sifra_Pat
        LEFT OUTER JOIN CBroevi C ON C.CarBroj=A.CarBroj
        LEFT OUTER JOIN Drugo2 D2 ON D2.Sifra_2=A.Drugo2
        LEFT OUTER JOIN GRegion KR ON KR.Sifra_Reg=K.Sifra_Reg
        LEFT OUTER JOIN GRegion KOR ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj and KOR.Sifra_Reg=KO.Sifra_Reg '
    IF @Ispor <> 'S'
            SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0  '  -- s.kolicf <> 0 dod 18.06.2010 za Prima
    Else
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0 And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @MatUsl Is Not Null
        Set @SSQL = @SSQL + 'AND A.SMatUsl=''' + @MatUsl + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto_Anal='''+@Kto_Anal+''') '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
    If @Sifra_Div Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Div =''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
       -- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND A.Sifra_Div Is Null '
    If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '


       If @Sifra_Prev IS NOT NULL
           SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
           SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + 'AND D.DogBr=''' + @DogBr + ''' '
    If @Ispratnica IS NOT NULL
          SET @SSQL=@SSQL+'AND D.Ispratnica=''' + @Ispratnica + ''' '

    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    --------------------------------------------------------- dod 30.08.2006 --------------------------------------------------------------------------------------------------
    If @SoUcesOsn = 'D'
        Set @SSQL = @SSQL + ' And ((S.UcesOsn > ' + Cast(@UcesOsnNad as varchar(10)) + ' And S.UcesOsn <= ' + Cast(@UcesOsnDo as varchar(10)) + ') '
    If @SoUcesKol = 'D'
        If @SoUcesOsn <> 'D'  Or @SoUcesOsn Is Null
            Set @SSQL = @SSQL + ' And ((S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
    If @SoUcesDod = 'D'
        If (@SoUcesOsn <> 'D' Or @SoUcesOsn Is Null) And (@SoUcesKol <> 'D' Or @SoUcesKol Is Null)
            Set @SSQL = @SSQL + ' And ((S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
    If @SoUcesOsn = 'D' Or @SoUcesKol = 'D' Or @SoUcesDod = 'D'
        Set @SSQL = @SSQL + ' ) '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @VkUcesNad <> 0
    BEGIN
        IF @VkUcesNad = -1
          Set @SSQL = @SSQL + ' And S.DokCena = 0.0 '
        else
          Set @SSQL = @SSQL + ' And S.Uces >= ' + Cast(@VkUcesNad as varchar(10)) + ' '
    end
    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.DokrID IS NOT NULL '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = @SSQL    + 'ORDER BY D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok '
--print @SSQL
   EXEC(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_art_podgrupi]'))
drop procedure [dbo].[sp_anal_matdok_art_podgrupi]

Go



CREATE         PROCEDURE [dbo].[sp_Anal_MatDok_Art_Podgrupi]
       @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(1000) = Null,
    @Sifra_Prim Smallint = Null,
    @Broj_Nal_Od Int = Null,
       @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
       @Broj_Dok_Do Int = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
    @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = Null,
    @Sifra_Za Char(1) = Null,
    @VlIzl Char(1) = Null,
       @Sifra_Art_Od Varchar(20) = Null,
       @Sifra_Art_Do Varchar(20) = Null,
       @Kto char(6) = Null,
       @Sifra_Gr varchar(6) = Null,
       @Sifra_Podg char(6) = Null,
       @Lokacija varchar(10) = Null,
    @MatUsl char(1) = Null,
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @VratiCenaSoDanok char(1) = 'D',
    @Sifra_Mest    int = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoTezini    char(1) = 'N',
    @Kto_Anal    char(10) = NULL,
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @Sifra_Drg    smallint = Null,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @ispratnica     varchar(25) = Null,
    @TipDok    varchar(400) = Null
AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    create table #Rez
    (
    Sifra_Podg    char(6),
    Ime_Podg    char(40),
    VlIzl        char(1),
    Vrednost    decimal(18,4) null,
    MagVr        decimal(18,4) null
    )
   Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT  A.Sifra_Podg, PG.Ime_Podg, S.VlIzl,
           Round(SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, ''' + @VratiCenaSoDanok + '''  )), 4)  As Vrednost,
           Round(SUM(dbo.fn_VratiVredIzl(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0, ''' + @VratiCenaSoDanok + ''' )), 4) As MagVr, '
    If @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Sum(S.Kolic*A.Tezina/1000) Tezina '
    Else
        Set @SSQL = @SSQL + ' Null as  Tezina '
    Set @SSQL = @SSQL + ' FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Podgrupi PG ON A.Sifra_Podg=PG.Sifra_Podg
        LEFT OUTER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr
        LEFT OUTER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        INNER JOIN Orged O ON S.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0  '  -- s.kolicf <> 0 dod 18.06.2010 za Prima
    Else
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0 And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @MatUsl Is Not Null
        Set @SSQL = @SSQL + 'AND A.SMatUsl=''' + @MatUsl + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
      If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+' AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto_Anal='''+@Kto_Anal+''') '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+' AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
     If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+' AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
              Set @SSQL=@SSQL+' AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '

       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + 'AND D.DogBr=''' + @DogBr + ''' '
    If @Ispratnica IS NOT NULL
          SET @SSQL=@SSQL+'AND D.Ispratnica=''' + @Ispratnica + ''' '
    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    Set @SSQL = @SSQL + ' Group By A.Sifra_Podg, PG.Ime_Podg, S.VlIzl '
    Set @SSQL = @SSQL    + ' ORDER BY  A.Sifra_Podg '
Print @SSQL
EXEC(@SSQL)
--Insert Into #Rez   EXEC(@SSQL)
--Select * from #Rez





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_list]'))
drop procedure [dbo].[sp_anal_matdok_list]

Go


CREATE            PROCEDURE sp_Anal_MatDok_List
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @VlIzl Char(1) = Null,
    @Sifra_OE Smallint,
    @Sifra_Dok Smallint = Null,    -- Veke ne se koristi
    @Sifra_Dok2 Smallint = Null,    -- veke ne se koristi
    @Sifra_Dok_List varchar (100),
    @Sifra_Nal Smallint = Null,
    @Sifra_Oper varchar(50) = Null,
    @Sifra_Kup    char(6) = Null,
    @Broj_Dok_Od Int = Null,
    @Broj_Dok_Do Int = Null,
    @Ispec    char(1) = Null,
        @OsvenStat char (1) = Null
AS
       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Datum_Dok, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.VlIzl, D.Identif_br, D.Sifra_Kup, Kup.ImeKup,
                D.Toc200, D.MagVrDan, D.Datum_Vnes, D.Sifra_Oper, D.Sifra_Pat, cast(Kup.KDrugo1 as varchar(6)) as KDrugo1,
                                Kup.Smesto, Kup.Adresa, sum (s.kolic * kat.nabavna) as NabVredSoDDV,
                sum(s.kolic * s.magcena) as Toc200Mag
            FROM DOKR D
            LEFT OUTER JOIN Komint Kup ON D.Sifra_Kup=Kup.Sifra_Kup
            inner join Stavr S on d.sifra_oe = s.sifra_oe and d.sifra_dok = s.sifra_dok and d.broj_dok = s.broj_dok
            inner join katart Kat on S.SifrA_Art = Kat.Sifra_Art
            WHERE 1=1 '
    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    SET @SSQL = @SSQL + ' AND D.Sifra_Dok in (' + @Sifra_Dok_List + ') '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + ' AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + ' AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Sifra_Oper Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + ' AND D.Broj_Dok>=' + Cast(@Broj_Dok_Od As Varchar(35)) + ' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + ' AND D.Broj_Dok<=' + Cast(@Broj_Dok_Do As Varchar(35)) + ' '
    If @OsvenStat Is NOT Null
        SET @SSQL = @SSQL + ' AND (D.Dokr_Stat is null or D.Dokr_Stat<>''' + @OsvenStat + ''' )'
       If @Ispec Is NOT Null
        begin
        if @Ispec = 'D'
             SET @SSQL = @SSQL + ' AND D.Pec_Dok is not null and D.Pec_Dok >= 1 '
        else if @Ispec = 'N'
             SET @SSQL = @SSQL + ' AND (D.Pec_Dok is null or D.Pec_Dok <= 0) '
    end
    SET @SSQL = @SSQL + ' Group By D.Datum_Dok, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.VlIzl, D.Identif_br, D.Sifra_Kup, Kup.ImeKup,
                  D.Toc200, D.MagVrDan, D.Datum_Vnes, D.Sifra_Oper, D.Sifra_Pat, KDrugo1,
                              Kup.Smesto, Kup.Adresa '
    SET @SSQL = @SSQL + ' Order By D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok '
    EXEC(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_oper_dok]'))
drop procedure [dbo].[sp_anal_matdok_oper_dok]

Go


create   PROCEDURE [dbo].[sp_Anal_MatDok_Oper_Dok]
    @Datum_Dok_Od Smalldatetime = Null,
    @Datum_Dok_Do Smalldatetime = Null,
    @VlIzl Char(1) = Null
AS
       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT Distinct Sifra_Oper
            FROM DOKR D
            WHERE 1=1 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + ' AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_oper_plat]'))
drop procedure [dbo].[sp_anal_matdok_oper_plat]

Go


create  PROCEDURE [dbo].[sp_Anal_MatDok_Oper_Plat]
    @Datum_Dok_Od Smalldatetime = Null,
    @Datum_Dok_Do Smalldatetime = Null,
    @VlIzl Char(1) = Null
AS
       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT Distinct Plat_Oper
            FROM DOKR D
            WHERE 1=1 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + ' AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_orc]'))
drop procedure [dbo].[sp_anal_matdok_orc]

Go

CREATE    PROCEDURE sp_Anal_MatDok_ORC
   @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(400),
    @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6)
AS
   Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup, D.Datum_Dok, D.Uces, D.Marza,
            D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.Toc200,
            TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg As IORG, OP.ImeOrg As IORG_Prima,
            Sum(S.Kolic*S.NabCena) NabVr, Sum(S.Kolic * dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, 0)) ProdVrBezDDV
            FROM DOKR D
            Left Outer Join Stavr S On D.DokrID=S.DokrID And S.VlIzl=''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''')
            INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
            LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
            LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
   If @Sifra_OE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
   If @KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
   If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
   If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup, D.Datum_Dok, D.Uces, D.Marza,
                    D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.Toc200,
                    TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg '
/*                D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.VlIzl,
                D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Ispratnica, D.Opis, D.Sifra_Kup, D.Sifra_Obj,
                D.Datum_Dok, D.Datum_Vnes, D.Datum_Izm, D.Uces, D.Kasa, D.Rok, D.Sifra_Pat, D.Sifra_Oper,
                D.Sifra_OpIz, D.SerBr, D.Kto, D.Kurs, D.KojaVal, D.Toc200, D.MagVr, D.MagVrDan, D.Marza,
                D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena, D.DanMagCena,
                D.CenaIznos, D.ProcMarza, D.Kod_Danok, D.TekstPosle, D.VoRekap, D.VoGlk, D.VoAnal, D.Datum_Knz,
                D.VoTipNal_Glk, D.VoBrNal_Glk, D.Prenesen, D.Pec_Fisc, D.Pec_Dok, D.Sifra_Nivo, D.Blokiran, D.KojaSmetka,
                D.KasaPoDDV, TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg, D.Sifra_Nar, D.Sifra_OeNar,
                D.Broj_Nar, D.Spremil, D.Usluzna, D.TekstPred, D.Sifra_Mest, D.Izrab_Nar, Dat_Pec_Fisc '
*/
   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_orc_poart]'))
drop procedure [dbo].[sp_anal_matdok_orc_poart]

Go

CREATE    PROCEDURE sp_Anal_MatDok_ORC_PoArt
   @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(400),
    @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6)
AS
   Declare @SSQL Varchar(2000)
    Create    Table #ORC
    (    Sifra_Art Varchar(20),
        Kolic Decimal(18,4),
        NabVrNet Decimal(18,4),
        ProdVrNet Decimal(18,4),
        ProdVrBrut Decimal(18,4),
        VredBezDan Decimal(18,6)
    )
/*    SET @SSQL = 'SELECT S.Sifra_Art,
            Sum(S.Kolic) Kolic,
            Sum(S.Kolic*S.NabCena) NabVrNet,
            ProdVrNet = Case S.DanDokCena
            When ''D'' Then Sum(S.Kolic*S.DokCena/(1+S.POsn/100))
            When ''N'' Then Sum(S.Kolic*S.DokCena)
            End,
            ProdVrBrut = Case S.DanDokCena
            When ''D'' Then Sum(S.Kolic*S.DokCena)
            When ''N'' Then Sum(S.Kolic*S.DokCena*(1+S.POsn/100))
            End
*/
    SET @SSQL = 'SELECT S.Sifra_Art,
            Sum(S.Kolic) Kolic,
            Sum(S.Kolic*S.NabCena) NabVrNet,
            Sum(S.Kolic * dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)) ProdVrNet,
            Sum(S.Kolic * dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)) ProdVrBrut,
            Sum(S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'')) VredBezDan
            FROM Stavr S
            Inner Join Dokr D On S.DokrID=D.DokrID
            INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
            LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal '
    Set @SSQL = @SSQL + 'Where S.VlIzl=''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''') '
    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
   If @Sifra_OE Is NOT Null
      SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
   If @KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND S.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND S.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
   If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
   If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_Art, S.DanDokCena '
    Insert #ORC EXEC(@SSQL)
    Select O.Sifra_Art,  K.ImeArt, K.EdMera, K.Sifra_Tar, T.ProcOsn,
        Round(Sum(O.Kolic), 4) Kolic,
        Round(Sum(O.NabVrNet), 4) NabVrNet,
        Round(Sum(O.ProdVrNet), 4) ProdVrNet,
        Round(Sum(O.ProdVrBrut), 4) ProdVrBrut,
        Round(Sum(O.VredBezDan), 4) VredBezDan
    From #ORC O
    Inner Join Katart K On O.Sifra_Art=K.Sifra_Art
    Inner Join Tarifi T On K.Sifra_Tar=T.Sifra_Tar
    Group By O.Sifra_Art,  K.ImeArt, K.EdMera, K.Sifra_Tar, T.ProcOsn
    Order By O.Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_podgrupi]'))
drop procedure [dbo].[sp_anal_matdok_podgrupi]

Go





CREATE       PROCEDURE [dbo].[sp_Anal_MatDok_Podgrupi]
    @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(1000),
    @Sifra_Prim Smallint,
    @Broj_Nal_Od Int,
     @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
    @Broj_Dok_Do Int,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @VlIzl Char(1),
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @VratiCenaSoDanok char(1) = 'D',
    @Sifra_Mest    int = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper     varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D' ,   -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoTezini    char(1) = 'N',
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null

AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
--                    Round(Sum(dbo.fn_vr_danok (S.Kolic, S.MagCena, S.DanMagCena, S.POsn)), 4) as SamoDanok, D.Danok1, D.Danok2,
       Declare @SSQL Varchar(8000)                            --[     dodadeno na 16.01.04 - Cena ???     ]
    SET @SSQL = 'SELECT  A.Sifra_Podg, PG.Ime_Podg, S.VlIzl,
             SUM(Round(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, ''' + @VratiCenaSoDanok + '''  ), 4)) As Vrednost,
             SUM(Round(dbo.fn_VratiVredIzl(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0, ''' + @VratiCenaSoDanok + ''' ), 4)) As MagVr, '
    If @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Sum(S.Kolic*A.Tezina/1000) Tezina '
    Else
        Set @SSQL = @SSQL + ' Null as  Tezina '
    Set @SSQL = @SSQL + ' FROM DOKR D
                    Left Outer Join Stavr S On D.DokrID=S.DokrID
                    Left Outer Join Katart A On A.Sifra_art = S.Sifra_art
                    Left Outer Join Podgrupi PG On PG.Sifra_Podg=A.Sifra_Podg
                    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                    LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                    LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                    LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
                    LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
/*    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
          If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
*/
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '

       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + ' AND D.DogBr=''' + @DogBr + ''' '

    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '

    Set @SSQL = @SSQL + 'Group By
                A.Sifra_Podg, PG.Ime_Podg, S.VlIzl
                Order By A.Sifra_Podg  '
PRINT @SSQL
   EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_pokonta]'))
drop procedure [dbo].[sp_anal_matdok_pokonta]

Go




CREATE    PROCEDURE sp_Anal_MatDok_PoKonta
    @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(1000),
    @Sifra_Prim Smallint,
    @KoiOe_Prim char(10) = Null,
    @Broj_Nal_Od Int,
    @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
    @Broj_Dok_Do Int,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup    Char(6),
    @Sifra_Za    Char(1),
    @VlIzl        Char(1),
    @PoTarifi    Char(1),
    @Sifra_Pat    smallint = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Kto        char(6) = Null,
    @PoPOsn    char(1) = 'N',
    @Sifra_Div    smallint=NULL
AS
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Declare @SSQL Varchar(4000)
    Declare @Uces As Decimal(6,2)
    Declare @POsnPren As Decimal(6,2)
    Declare @POsn As Decimal(6,2)
    Declare @PTar As Char(3)
    Declare @DanDokCena As Char(1)
    Declare @DanMagCena As Char(1)
    Declare @Kolic As Decimal(18,6)
    Declare @DokCena As Decimal(18,6)
    Declare @MagCena As Decimal(18,6)
    Declare @dFaktorDDV As Decimal(6,4)
    Declare @dFaktorNeto As Decimal(6,4)
    Declare @mFaktorDDV As Decimal(6,4)
    Declare @mFaktorNeto As Decimal(6,4)
    Declare @Danok1 As Decimal(18,6)
    Declare @Danok2 As Decimal(18,6)
    Declare @PDanok1 As Decimal(18,6)
    Declare @PDanok2 As Decimal(18,6)
    Declare @NabIznos As Decimal(18,6)
    Declare @MagIznos As Decimal(18,6)
    Declare @MagIznosDan As Decimal(18,6)
    Declare @Rabat As Decimal(18,6)
    Declare @Kasa As Decimal(6,2)
    Declare @Kto_Anal As Char(10)
    Declare @TrsCena as Decimal(18,6)
    Declare @Trosoci as Decimal(18,6)
-- Dodadeno na 01 Jul 2003
    Declare @NabCena As Decimal(18,6)
    Declare @NabVr As Decimal(18,6)
    Create        Table #tStavr
    (     Uces Decimal(6,2),
        POsnPren Decimal(6,2),
        POsn Decimal(6,2),
        PTar Char(3),
        DanDokCena Char(1),
        DanMagCena Char(1),
        Kolic Decimal(18,6),
        DokCena Decimal(18,6),
        MagCena Decimal(18,6),
        NabCena Decimal(18,6),
        Kasa    Decimal(6,2),
        Kto_Anal char(10),
        TrsCena decimal(18,6)
    )
    Create Table #tPromKonta
    (     Kto_Anal Char(10),
        Danok1 Decimal(18,6),
        Danok2 Decimal(18,6),
        PDanok1 Decimal(18,6),
        PDanok2 Decimal(18,6),
        NabIznos Decimal(18,6),
        MagIznos Decimal(18,6),
        MagIznosDan Decimal(18,6),
        Rabat Decimal(18,6),
        NabVr Decimal(18,6),
        Trosoci    Decimal(18,6),
        Posn Decimal(9,3)
    )
    Set Nocount On
    SET @SSQL = 'Select S.Uces, S.POsnPren, S.POsn, S.PTar, S.DanDokCena, S.DanMagCena, S.Kolic, S.DokCena, S.MagCena, S.NabCena, D.Kasa, Kata.Kto_Anal, S.TrsCena
        From Stavr S
        Inner Join Dokr D On S.DokrID = D.DokrID
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        Inner Join Katart Kata On S.Sifra_Art = KATA.Sifra_Art
        INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1 '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @PoTarifi = 'D'
        SET @SSQL = @SSQL + ' AND ((TD.ProTar Like ''D_'' AND TD.Sifra_Za <> 3) OR (TD.Sifra_Za = 3 AND ((D.ImaDodatna = ''D'' AND (TD.ProTar Like ''D_'')) OR (D.ImaDodatna = ''P'' AND TD.ProTar Like ''_D''))))'
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (' + @KoiOE + ') '
       If @Sifra_Prim Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @KoiOE_Prim Is Not Null
        SET @SSQL = @SSQL + 'And S.Sifra_Prim In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE_Prim + ''') '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND S.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND S.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
       If @Kto IS NOT NULL
              SET @SSQL = @SSQL + ' AND D.Kto=''' + @Kto + ''' '
    IF @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
    Insert #tStavr Exec(@SSQL)
    ------ AH - UH --- KURSOR ---- KOLKU LI E DOBRO VAKA ?  DK Sept 13, 2006
    ------ UH - AH --- STVARNO   GK 21.11.2007
    Declare tStavr Cursor Fast_Forward For Select * From #tStavr
    Open tStavr
    Fetch Next From tStavr Into @Uces, @POsnPren, @POsn, @PTar, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena, @NabCena, @Kasa, @Kto_Anal, @TrsCena
    While @@Fetch_Status=0
        Begin
            If @DanDokCena='D'
                Begin
                    Set @dFaktorDDV = 1
                    Set @dFaktorNeto = 1 + @POsnPren/100
                End
            Else
                Begin
                    Set @dFaktorDDV = 1 + @POsnPren/100
                    Set @dFaktorNeto = 1
                End
            If @DanMagCena='D'
                Begin
                    Set @mFaktorDDV = 1
                    Set @mFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @mFaktorDDV = 1 + @POsn/100
                    Set @mFaktorNeto = 1
                End
            If @POsn > 15
                Begin
                    Set @Danok1  = @Kolic * @DokCena * (1 - @Uces/100) * (1 - @Kasa/100)/ @dFaktorNeto * @POsnPren/100
                    Set @PDanok1 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                    Set @Danok2 = 0
                    Set @PDanok2 = 0
                End
            Else
                Begin
                    Set @Danok1  = 0
                    Set @PDanok1 = 0
                    Set @Danok2 = @Kolic * @DokCena * (1 - @Uces/100) * (1 - @Kasa/100) / @dFaktorNeto * @POsnPren/100
                    Set @PDanok2 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                End
            Set @NabIznos = @Kolic * @DokCena * @dFaktorDDV * (1 - @Uces/100) * (1 - @Kasa/100)
            Set @MagIznos = @Kolic * @MagCena / @mFaktorNeto
            Set @MagIznosDan = @Kolic * @MagCena * @mFaktorDDV
            Set @Rabat = (@Kolic*@DokCena)/@dFaktorNeto*(1-(1-@Uces/100) * (1-@kasa/100))
            Set @NabVr = @Kolic*@NabCena
            Set @Trosoci = @Kolic*@TrsCena
            Insert #tPromKonta(Kto_Anal, Danok1, Danok2, PDanok1, PDanok2, NabIznos, MagIznos, MagIznosDan, Rabat, NabVr, Trosoci, Posn)
                      Values (@Kto_Anal, @Danok1, @Danok2, @PDanok1, @PDanok2, @NabIznos, @MagIznos, @MagIznosDan, @Rabat, @NabVr, @Trosoci, @Posn)
            Fetch Next From tStavr Into @Uces, @POsnPren, @POsn, @PTar, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena, @NabCena, @Kasa, @Kto_Anal, @TrsCena
        End --While
    Close tStavr
    Deallocate tStavr
----------------------------------------
    Set @SSQL = 'Select Kto_Anal, '
    If @PoPOsn = 'D'
        Set @SSQL = @SSQL + ' Posn, '
    Else
        Set @SSQL = @SSQL + ' Null Posn, '
    Set @SSQL = @SSQL + ' Round(Sum(Danok1),4) Danok1, Round(Sum(Danok2),4) Danok2,
            Round(Sum(PDanok1),4) PDanok1 , Round(Sum(PDanok2),4) PDanok2,
            Round(Sum(NabIZnos),4) NabIznos, Round(Sum(MagIznos),4) MagIznos,
            Round(Sum(MagIznosDan),4) MagIznosDan, Round(Sum(Rabat),4) Rabat,
            Round(Sum(NabVr),4) NabVr, Round(Sum(Trosoci),4) Trosoci
        From #tPromKonta
        Group By Kto_Anal '
    If @PoPOsn = 'D'
        Set @SSQL = @SSQL + ', Posn '
    Set @SSQL = @SSQL + ' Order By Kto_Anal '
    Exec(@SSQL)
    Set Nocount Off








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_postavki]'))
drop procedure [dbo].[sp_anal_matdok_postavki]

Go






CREATE                                PROCEDURE [dbo].[sp_Anal_MatDok_PoStavki]
       @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(1000) = Null,
    @Sifra_Prim Smallint = Null,
    @KoiOe_Prim char(10) = Null,
    @Broj_Nal_Od Int = Null,
       @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
       @Broj_Dok_Do Int = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime =  Null,
    @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = Null,
    @Sifra_Za Char(1) = Null,
    @VlIzl Char(1) = Null,
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Lokacija    varchar(10) = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Kto        char(6) = Null,
    @BezOdbRabat    char(2) = 'NN',
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @PoGradovi    char(1) = 'N',
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoTezini    char(1) = 'N',
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null,
    @Ispor        char(1) = 'S'
AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
   Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT S.Broj_Dok, D.Broj_Nal,  S.Datum_Dok, O.ImeOrg as IORG, D.Identif_Br, TD.ImeDok, K.ImeKup,
            D.Rok, D.Kto, S.Sifra_Dok, D.Sifra_Kup, D.Sifra_Nal, S.Sifra_Oe, S.Sifra_Prim, S.VlIzl, D.Sifra_Za,
            Round(Sum(S.Kolic*S.NabCena), 4) NabVr, Round(Sum(S.Kolic*S.MagCena), 4) MagVrednost,
            Round(Sum(Case When S.Posn > 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok1,
            Round(Sum(Case When S.Posn <= 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok2,
            Round(Sum(S.Kolic* dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'') ), 4) MagVrDan,
            Round(Sum(S.Kolic* dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''N'') ), 4) MagVr,
            Round (Sum(S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2) Toc200,
            Round(Sum(Case When S.Posn > 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.MagCena, S.DanMagCena, S.Posn, 0, 0) * S.Posn / 100)
                Else 0  End ),4) PDanok1,
            Round(Sum(Case When S.Posn <= 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.MagCena, S.DanMagCena, S.Posn, 0, 0) * S.Posn / 100)
                Else 0  End ), 4) PDanok2,
            Round(Sum(S.Kolic* dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''N'') -
                   (S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)) +
                   (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)), 4) as Marza,
            D.PTrosok, Round(sum(S.DokCena*S.Kolic), 4) PoDokCena, S.DanDokCena, D.Sifra_Obj, KO.ImeObj, D.Dat_Pec_Fisc,
            Round(Sum(S.Kolic*S.TrsCena), 4) TrsVrednost, D.Plat_PerDan, '
    If @BezOdbRabat = 'DD'
        Set @SSQL = @SSQL + ' Sum(Case When S.VlIzl = ''I'' Then (S.Kolic*dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''D'')) Else 0 End) VrednBezRabat, '
    Else If @BezOdbRabat = 'DN'
        Set @SSQL = @SSQL + ' Sum(Case When S.VlIzl = ''I'' Then (S.Kolic*dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''N'')) Else 0 End) VrednBezRabat, '
    Else
        Set @SSQL = @SSQL + ' Null as VrednBezRabat, '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad, '
    Else
        Set @SSQL = @SSQL + ' Null as Sifra_Grad, Null as Ime_Grad, '
    If @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Sum(S.Kolic*A.Tezina/1000) Tezina '
    Else
        Set @SSQL = @SSQL + ' Null as  Tezina '
    Set @SSQL = @SSQL + ' FROM DOKR D
             Left Outer Join Stavr S On D.DokrID=S.DokrID
             INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
             LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
             INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
             LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
             LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
             LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj '
    If @Sifra_Drg Is Not Null Or @Lokacija Is Not Null Or @Drugo1 Is Not Null  Or @Drugo2 Is Not Null
         Or @Drugo3 Is Not Null Or @Drugo4 Is Not Null Or @Drugo5 Is Not Null Or @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Katart A On A.Sifra_art=S.Sifra_art '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Grad G On G.Sifra_Grad = (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End) '
    IF @Ispor <> 'S'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (S.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or S.Sifra_Prim Is Null) '
    If @KoiOE_Prim Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Prim In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE_Prim + ''') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND S.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
           Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND S.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Lokacija IS NOT NULL
              SET @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
       If @Kto IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Kto=''' + @Kto + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + ' AND D.DogBr=''' + @DogBr + ''' '
    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.DokrID IS NOT NULL '

    Set @SSQL = @SSQL + 'Group By S.Broj_Dok, D.Broj_Nal,  S.Datum_Dok, O.ImeOrg, D.Identif_Br, TD.ImeDok, K.ImeKup,
                D.Rok, D.Kto, S.Sifra_Dok, D.Sifra_Kup, D.Sifra_Nal, S.Sifra_Oe, S.Sifra_Prim, S.VlIzl, D.Sifra_Za, D.PTrosok,
                S.DanDokCena, D.Sifra_Obj, KO.ImeObj, D.Dat_Pec_Fisc, D.Plat_PerDan '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ', (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else K.Sifra_Grad End), G.ImeGrad '


print @SSQL
   EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_potarifi]'))
drop procedure [dbo].[sp_anal_matdok_potarifi]

Go




CREATE        PROCEDURE sp_Anal_MatDok_PoTarifi
    @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(1000),
    @Sifra_Prim Smallint,
    @KoiOe_Prim char(10) = Null,
    @Broj_Nal_Od Int,
    @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
    @Broj_Dok_Do Int,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup    Char(6),
    @Sifra_Za    Char(1),
    @VlIzl        Char(1),
    @PoTarifi    Char(1),
    @Sifra_Pat    smallint = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Kto        char(6) = Null,
    @KFSifra_Nal    char(1) = 'N',
    @PoOrged    char(1) = 'N',
    @Sifra_Div    smallint=NULL
AS
    Declare @SSQL Varchar(4000)
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Set @SSQL= ' Select S.PTar, S.POsnPren, S.Posn,
            Round(Sum(Case When S.Posn > 15 And S.DanDokCena = ''D'' Then S.Kolic * S.DokCena/(1+S.PosnPren/100) * (1-S.Uces/100) * (1-D.Kasa/100) * S.POsnPren/100
                      When S.Posn > 15 And S.DanDokCena = ''N'' Then S.Kolic * S.DokCena * (1-S.Uces/100) * (1-D.Kasa/100) * S.POsnPren/100  Else 0 End), 4) Danok1,
            Round(Sum(Case When S.Posn <= 15 And S.DanDokCena = ''D'' Then S.Kolic * S.DokCena/(1+S.PosnPren/100) * (1-S.Uces/100) * (1-D.Kasa/100) * S.POsnPren/100
                      When S.Posn <= 15 And S.DanDokCena = ''N'' Then S.Kolic * S.DokCena * (1-S.Uces/100) * (1-D.Kasa/100) * S.POsnPren/100  Else 0 End), 4) Danok2,
            Round(Sum(Case When S.Posn > 15 And S.DanMagCena = ''D'' Then S.Kolic * S.MagCena/(1+S.Posn/100) * S.POsn/100
                      When S.Posn > 15 And S.DanMagCena = ''N'' Then S.Kolic * S.MagCena * S.POsn/100  Else 0 End), 4) PDanok1,
            Round(Sum(Case When S.Posn <= 15 And S.DanMagCena = ''D'' Then S.Kolic * S.MagCena/(1+S.Posn/100) * S.POsn/100
                      When S.Posn <= 15 And S.DanMagCena = ''N'' Then S.Kolic * S.MagCena * S.POsn/100  Else 0 End), 4) PDanok2,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then S.DokCena Else S.DokCena * (1+S.POsnPren/100) End) * (1-S.Uces/100) * (1-D.Kasa/100)), 4) NabIznos,
            Round(Sum(S.Kolic * (Case When S.DanMagCena = ''D'' Then S.MagCena/(1+S.POsn/100) Else S.MagCena End)), 4) MagIznos,
            Round(Sum(S.Kolic * (Case When S.DanMagCena = ''D'' Then S.MagCena Else S.MagCena * (1+S.POsn/100) End)), 4) MagIznosDan,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then S.DokCena/(1+S.POsnPren/100) Else S.DokCena End) * (1-(1-S.Uces/100) * (1-D.Kasa/100))), 4) Rabat,
            Round(Sum(S.Kolic * S.NabCena), 4) NabVr,
            Round(Sum(S.Kolic * S.TrsCena), 4) Trosoci, '
    If @PoOrged = 'D'
        Set @SSQL = @SSQL + ' S.Sifra_Oe '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Oe '
    Set @SSQL = @SSQL + ' From Stavr S
        Inner Join Dokr D On D.DokrID = S.DokrID
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
        Where 1=1 '
--    If @Sifra_Nal Is Null
--        SET @SSQL = @SSQL + 'WHERE 1=1 '
--    Else
--        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
      If @Sifra_Nal Is NOT Null
        If @KFSifra_Nal = 'D'
            Set @SSQL = @SSQL + ' AND D.Sifra_Nal <> ' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        Else
            Set @SSQL = @SSQL + ' AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @PoTarifi = 'D'
        SET @SSQL = @SSQL + ' AND ((TD.ProTar Like ''D_'' AND TD.Sifra_Za <> 3) OR (TD.Sifra_Za = 3 AND ((D.ImaDodatna = ''D'' AND (TD.ProTar Like ''D_'')) OR (D.ImaDodatna = ''P'' AND TD.ProTar Like ''_D''))))'
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (' + @KoiOE + ') '
       If @Sifra_Prim Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @KoiOE_Prim Is Not Null
        SET @SSQL = @SSQL + 'And S.Sifra_Prim In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE_Prim + ''') '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND S.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND S.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
       If @Kto IS NOT NULL
              SET @SSQL = @SSQL + ' AND D.Kto=''' + @Kto + ''' '
    IF @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' Group By S.PTar, S.POsnPren, S.Posn '
    If @PoOrged = 'D'
        Set @SSQL = @SSQL + ', S.Sifra_Oe '
    Exec(@SSQL)
    Set Nocount Off








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_potipdok]'))
drop procedure [dbo].[sp_anal_matdok_potipdok]

Go

CREATE PROCEDURE sp_Anal_MatDok_PoTipDok
    @KoiOE Varchar(1000) = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @TipDok    varchar(200) = Null,
    @ZbirnoPoDok char(1) = Null

AS

    Declare @SSQL Varchar(8000)

    if @ZbirnoPoDok = 'D'
        SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Identif_Br,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, K.Adresa, K.Posta, K.SMesto, D.Sifra_Obj, KO.ImeObj,
            D.VlIzl,
            Round(Sum(S.Kolic*S.DokCena / (Case When S.DanDokCena=''D'' Then (1+S.Posn/100) Else 1 End)), 4) As Vr_Osnov,
            Round(Sum(S.Kolic*S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100) / (Case When S.DanDokCena=''D'' Then (1+S.Posn/100) Else 1 End)), 4) As Vr_SoRabat,
            Round(Sum(S.Kolic*S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100) * (Case When S.DanDokCena=''N'' Then (1+S.Posn/100) Else 1 End)), 4) As Vr_Krajna,
            Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV,
            Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV '
    else
        SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Identif_Br,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, K.Adresa, K.Posta, K.SMesto, D.Sifra_Obj, KO.ImeObj,
            S.Sifra_Art, A.ImeArt, A.Edmera, A.KolkuDrg, S.VlIzl, S.Kolic, S.DokCena, S.MagCena, S.Uces, S.DanDokCena, S.DanMagCena, S.POsn '

    set @SSQL = @SSQL + ' FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        LEFT OUTER JOIN Kobjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
        INNER JOIN Orged O ON S.Sifra_OE=O.Sifra_OE
        Where 1=1 '

       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipDok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok In (' + @TipDok  + ') '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '

    if @ZbirnoPoDok = 'D'
        SET @SSQL = @SSQL + ' group by D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Identif_Br,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, K.Adresa, K.Posta, K.SMesto, D.Sifra_Obj, KO.ImeObj,
            D.VlIzl '

    Set @SSQL = @SSQL    + 'ORDER BY D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok '

   EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_razliki]'))
drop procedure [dbo].[sp_anal_matdok_razliki]

Go

CREATE                            PROCEDURE sp_Anal_MatDok_Razliki
    @Sifra_OE         Smallint = Null,
    @KoiOE         Varchar(1000) = Null,
       @Datum_Dok_Od     Smalldatetime = Null,
       @Datum_Dok_Do     Smalldatetime =  Null,
    @PoKojDatum        char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @SoDanok        char(1) = 'D'
AS
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT R.Sifra_Oe, R.Sifra_Razl, Sum(R.Kolic) Kolic, Sum(R.Kolic*(dbo.fn_VratiCena(R.PocCena, R.Posn, R.DanPocCena,''' + @SoDanok + '''))) PocVred,
                                    Sum(R.Kolic*(dbo.fn_VratiCena(R.KrCena, R.Posn, R.DanKrCena,''' + @SoDanok + '''))) KrVred
            FROM RazlCeni R
            Inner Join Katart A On A.Sifra_Art=R.Sifra_Art
            WHERE A.SMatUsl = ''M'' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND R.Sifra_OE In (' + @KoiOE + ') '
    If @PoKojDatum = 'V'
    Begin
        If @Datum_Dok_Od Is NOT Null            SET @SSQL = @SSQL + 'AND R.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND R.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    End
    Else
    Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND R.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND R.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    End
    Set @SSQL = @SSQL + 'Group By R.Sifra_Oe, R.Sifra_Razl '
print @SSQL
   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sovreme]'))
drop procedure [dbo].[sp_anal_matdok_sovreme]

Go


CREATE     PROCEDURE [dbo].[sp_Anal_MatDok_SoVreme]
    @Sifra_OE     Smallint=Null,    --
    @KoiOE     Varchar(1000)=Null,    --
    @Sifra_Nal     Smallint=Null,    --
    @Sifra_Dok     Smallint=Null,    --
    @Broj_Nal_Od     Int=Null,    --
    @Broj_Nal_Do     Int=Null,    --
    @Datum_Nal_Od  Smalldatetime=Null,    --
    @Datum_Nal_Do  Smalldatetime=Null,    --
    @Broj_Dok_Od     Int=Null,    --
    @Broj_Dok_Do     Int=Null,    --
    @Datum_Dok_Od Smalldatetime=Null,    --
    @Datum_Dok_Do Smalldatetime=Null,    --
    @Sifra_Kup     Char(6)=Null,    --
    @Sifra_Obj    smallint = Null,
    @Sifra_Mest    int = Null,
    @VlIzl         Char(1)=Null,    --
    @PecFisc     Char(1) = Null,  -- D - Ispecateni na fiskalen
    @Sifra_Nivo     Char(2) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Oper    varchar(20) = Null,
    @PoKojDatum    char(1) = 'D'     -- D - Datum_Dok,      V - Datum_Vnes
AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                dbo.fn_VratiDatum(D.Datum_Vnes) Datum_Vnes, dbo.fn_VratiVreme(D.Datum_Vnes) Vreme_Vnes,
                D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br,
                D.Sifra_Kup, K.ImeKup, K.Smesto, D.Sifra_Obj, KO.ImeObj, KO.Smesto as ObjSmesto,
                D.Rok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                TD.ImeDok, O.ImeOrg, D.Sifra_Oper, D.Sifra_OpIz, D.Datum_Izm , D.Datum_Vnes as Datum_Vnes_Cel,
                TD.DaliFisc, D.Pec_Fisc, D.Dat_Pec_Fisc, D.Ispratnica, D.Oper_WMSPak, D.SMSt, D.Oper_SMSt
                FROM DOKR D
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj '
    If @Datum_Nal_Od Is Not Null Or @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal '
    Set @SSQL = @SSQL + ' WHERE 1=1 '
    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL = @SSQL + 'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    if @Sifra_dok is null
    begin
              SET @SSQL = @SSQL + 'AND (TD.Iskl_Norm is null or TD.Iskl_Norm <> ''D'') '
        --ne gi prikazzuvaj nekoi tipovi dok voopssto ako ne se bass tie pobarani
    end
   EXEC(@SSQL)












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sum]'))
drop procedure [dbo].[sp_anal_matdok_sum]

Go

CREATE    PROCEDURE sp_Anal_MatDok_Sum
   @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(400),
    @Sifra_Prim Smallint,
    @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @VlIzl Char(1),
    @PecFisc char(1) = 'N',
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @SoDDV Char(1) = 'D'
AS
   Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg,
            Sum(Case D.VlIzl
            When ''V'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.MagVrDan '
            Else
                Set @SSQL = @SSQL + 'D.MagVr '
            Set @SSQL = @SSQL + 'Else 0
            End) Vr_Vlez, '
        Set @SSQL = @SSQL + 'Sum(Case D.VlIzl
                    When ''I'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.Toc200 '
            Else
                Set @SSQL = @SSQL + 'D.Toc200 - D.Danok1 - D.Danok2 '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Izlez '
            Set @SSQL = @SSQL + 'FROM DOKR D
                     INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                     LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                     INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                     LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                     LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
   If @Sifra_OE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
   If @KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
   If @Sifra_Prim Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
   If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
   If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
   If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, O.ImeOrg Order By D.Sifra_OE '
   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sum_podatum_dok]'))
drop procedure [dbo].[sp_anal_matdok_sum_podatum_dok]

Go

CREATE     PROCEDURE sp_Anal_MatDok_Sum_PoDatum_Dok
   @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(400),
    @Sifra_Prim Smallint,
    @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @VlIzl Char(1),
    @PecFisc char(1) = 'N',
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @SoDDV Char(1) = 'D'
AS
   Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Datum_Dok,
            Sum(Case D.VlIzl
            When ''V'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.MagVrDan '
            Else
                Set @SSQL = @SSQL + 'D.MagVr '
            Set @SSQL = @SSQL + 'Else 0
            End) Vr_Vlez, '
            Set @SSQL = @SSQL + 'Sum(Case D.VlIzl
                When ''I'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.Toc200 '
            Else
                Set @SSQL = @SSQL + 'D.Toc200 - D.Danok1 - D.Danok2 '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Izlez '
            Set @SSQL = @SSQL + 'FROM DOKR D
                     INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                     LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                     INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                     LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                     LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
   If @Sifra_OE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
   If @KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
   If @Sifra_Prim Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
   If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
   If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
   If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, O.ImeOrg, D.Datum_Dok Order By D.Sifra_OE, D.Datum_Dok '
   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sum_potipdok]'))
drop procedure [dbo].[sp_anal_matdok_sum_potipdok]

Go





CREATE         PROCEDURE [dbo].[sp_Anal_MatDok_Sum_PoTipDok]
       @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(400) = Null,
    @Sifra_Prim Smallint = Null,
    @Broj_Nal_Od Int = Null,
       @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
       @Broj_Dok_Do Int = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
    @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = Null,
    @Sifra_Za Char(1) = Null,
    @VlIzl Char(1) = Null,
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @SoDDV Char(1) = 'D',
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat     smallint = Null,
    @Sifra_Mest    int = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoTezini    char(1) = 'N',
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null,
    @Ispor        char(1) = 'S'

AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
       Declare @SSQL Varchar(4000)
    If @SoTezini = 'D'
    Begin
        SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Sifra_Prim,
                Sum(Case D.VlIzl When ''V'' Then (S.Kolic*A.Tezina/1000) Else 0 End) Vr_Vlez,
                Sum(Case D.VlIzl When ''I'' Then (S.Kolic*A.Tezina/1000) Else 0 End) Vr_Izlez
                FROM DOKR D
                Left Outer Join Stavr S On S.DokrID=D.DokrID
                Left Outer Join Katart A On A.Sifra_Art = S.Sifra_Art
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
        IF @Ispor <> 'S'
            SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    End
    Else
    Begin
        SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Sifra_Prim,
                Sum(Case D.VlIzl
                        When ''V'' Then '
                If @SoDDV = 'D'
                    Set @SSQL = @SSQL + 'D.MagVrDan '
                Else
                    Set @SSQL = @SSQL + 'D.MagVr '
                Set @SSQL = @SSQL + 'Else 0
                        End) Vr_Vlez, '
            Set @SSQL = @SSQL + 'Sum(Case D.VlIzl
                        When ''I'' Then '
                If @SoDDV = 'D'
                    Set @SSQL = @SSQL + 'D.Toc200 '
                Else
                    Set @SSQL = @SSQL + 'D.Toc200 - D.Danok1 - D.Danok2 '
                Set @SSQL = @SSQL + 'Else 0
                        End) Vr_Izlez '
                Set @SSQL = @SSQL + 'FROM DOKR D
                         INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                         LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                         INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                         LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                         LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
                IF @Ispor <> 'S'
                    SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '
    End

    If @Koi_Gradovi Is Not Null or @KDrugo1 is not null or @KDrugo2 is not null or @KDrugo3 is not null
    or @KDrugo4 is not null or @KDrugo5 is not null or @KDrugo6 is not null or @KDrugo7 is not null

        Set @SSQL = @SSQL + ' Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + ' AND D.DogBr=''' + @DogBr + ''' '
    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.DokrID IS NOT NULL '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Sifra_Prim
                Order By D.Sifra_OE, D.Sifra_Dok, D.Sifra_Prim '
print @SSQL
   EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sum_potipdok_datum_dok]'))
drop procedure [dbo].[sp_anal_matdok_sum_potipdok_datum_dok]

Go

CREATE    PROCEDURE sp_Anal_MatDok_Sum_PoTipDok_Datum_Dok
   @Sifra_Nal Smallint,
    @Sifra_Dok Smallint,
    @Sifra_OE Smallint,
    @KoiOE Varchar(400),
    @Sifra_Prim Smallint,
    @Broj_Nal_Od Int,
   @Broj_Nal_Do Int,
    @Broj_Dok_Od Int,
   @Broj_Dok_Do Int,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @VlIzl Char(1),
    @PecFisc char(1) = 'N',
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @SoDDV Char(1) = 'D'
AS
   Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Datum_Dok, D.Sifra_Dok, TD.ImeDok,
            Sum(Case D.VlIzl
                    When ''V'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.MagVrDan '
            Else
                Set @SSQL = @SSQL + 'D.MagVr '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Vlez, '
        Set @SSQL = @SSQL + 'Sum(Case D.VlIzl
                    When ''I'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'D.Toc200 '
            Else
                Set @SSQL = @SSQL + 'D.Toc200 - D.Danok1 - D.Danok2 '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Izlez '
            Set @SSQL = @SSQL + 'FROM DOKR D
                     INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                     LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                     INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                     LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                     LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
   If @Sifra_OE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
   If @KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
   If @Sifra_Prim Is NOT Null
      SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
   If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
   If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
   If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Datum_Dok Order By D.Sifra_OE, D.Sifra_Dok, D.Datum_Dok '
   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_matdok_sum_potipdok_postavki]'))
drop procedure [dbo].[sp_anal_matdok_sum_potipdok_postavki]

Go




CREATE          PROCEDURE [dbo].[sp_Anal_MatDok_Sum_PoTipDok_PoStavki]
       @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(400) = Null,
    @Sifra_Prim Smallint = Null,
    @Broj_Nal_Od Int = Null,
       @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
       @Broj_Dok_Do Int = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
    @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = Null,
    @Sifra_Za Char(1) = Null,
    @VlIzl Char(1) = Null,
    @PecFisc char(1) = Null,
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @SoDDV Char(1) = 'D',
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat     smallint = Null,
    @Sifra_Mest    int = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Div    smallint = Null,
    @NemaDivizija    char(1) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoTezini    char(1) = Null,
    @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null,
    @TipDok    varchar(400) = Null,
    @Ispor        char(1) = 'S'

AS
    If @PoKojDatum = 'V' Or @PecFisc = 'D'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
       Declare @SSQL Varchar(4000)
    SET @SSQL = 'SELECT S.Sifra_OE, O.ImeOrg, S.Sifra_Dok, TD.ImeDok, S.Sifra_Prim, '
    If @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Sum(Case D.VlIzl When ''V'' Then (S.Kolic*A.Tezina/1000) Else 0 End) Vr_Vlez,
                    Sum(Case D.VlIzl When ''I'' Then (S.Kolic*A.Tezina/1000) Else 0 End) Vr_Izlez '
    Else
    Begin
        Set @SSQL = @SSQL + ' Sum(Case S.VlIzl
                        When ''V'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'Round ((S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2)  '
            Else
                Set @SSQL = @SSQL + 'Round (((S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa))-
                            (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)), 2) '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Vlez, '
        Set @SSQL = @SSQL + 'Sum(Case S.VlIzl
                    When ''I'' Then '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + 'Round ((S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2)  '
            Else
                Set @SSQL = @SSQL + 'Round (((S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa))-
                            (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)), 2) '
            Set @SSQL = @SSQL + 'Else 0
                    End) Vr_Izlez '
    End
            Set @SSQL = @SSQL + 'FROM Stavr S
                     INNER JOIN DOKR  D ON D.DokrId=S.DokrId
                      INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                     LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                     INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                     LEFT OUTER JOIN Nalozi N ON D.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                     LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE '
    If @SoTezini = 'D'
        Set @SSQL = @SSQL + ' Inner Join Katart A ON A.Sifra_Art=S.Sifra_Art '
    If @Koi_Gradovi Is Not Null or @KDrugo1 is not null or @KDrugo2 is not null or @KDrugo3 is not null
    or @KDrugo4 is not null or @KDrugo5 is not null or @KDrugo6 is not null or @KDrugo7 is not null
           Set @SSQL = @SSQL + 'Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    IF @Ispor <> 'S'
            SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.DokrID = D.DokrID '

    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    Else If @PecFisc = 'N'
        SET @SSQL = @SSQL + ' AND (D.Pec_Fisc = 0 or D.Pec_Fisc is Null) '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (' + @KoiOE + ') '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (S.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or S.Sifra_Prim Is Null) '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND S.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PecFisc = 'D'
         Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
         End
    Else
         Begin
        If @PoKojDatum = 'V'
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
        Else
              Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
              End
         End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
    If @Sifra_Div IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Div = ' + Cast(@Sifra_Div as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaDivizija da ne se pusta filterot @Sifra_Div
    If @NemaDivizija = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Div Is Null '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Sifra_Mest Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + ' AND D.DogBr=''' + @DogBr + ''' '
    If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.DokrID IS NOT NULL '

    Set @SSQL = @SSQL + 'Group By S.Sifra_OE, O.ImeOrg, S.Sifra_Dok, TD.ImeDok, S.Sifra_Prim Order By S.Sifra_OE, S.Sifra_Dok, S.Sifra_Prim '
print @ssql
   EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_prodrazl]'))
drop procedure [dbo].[sp_anal_prodrazl]

Go
CREATE PROCEDURE sp_Anal_ProdRazl
    @Sifra_Oe        Smallint = Null,
    @Datum_Dok_Od    SmallDateTime = Null,
    @Datum_Dok_Do    SmallDateTime = Null,
    @Broj_RazlProd_Od    Int = Null,
    @Broj_RazlProd_Do    Int = Null
AS
    DECLARE @SSQL  AS Varchar(2000)
    Set @SSQL = 'Select R.Sifra_OE, R.Broj_RazlProd,  R.Datum_Dok,
        Vlez = Sum(Case R.VlIzl
                When ''V'' Then R.Iznos_Razl
                When ''I'' Then 0
            End),
        Izlez = Sum(Case R.VlIzl
                When ''V'' Then 0
                When ''I'' Then R.Iznos_Razl
            End),
        R.Sifra_Nal, R.Broj_Nal
        From RazlProd R
        Where 1=1'
    IF @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Oe= ''' + Cast(@Sifra_Oe as Varchar(6)) + ''' '
    IF @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok>= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    IF @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok<= ''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
    IF @Broj_RazlProd_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RazlProd >= ''' + Cast(@Broj_RazlProd_Od As Varchar(6)) + ''' '
    IF @Broj_RazlProd_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RazlProd <= ''' + Cast(@Broj_RazlProd_Do As Varchar(6)) + ''' '
    SET @SSQL = @SSQL + ' Group By R.Sifra_Oe, R.Broj_RazlProd, R.Datum_Dok, R.Sifra_Nal, R.Broj_Nal '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_promet_art]'))
drop procedure [dbo].[sp_anal_promet_art]

Go


CREATE    PROCEDURE sp_Anal_Promet_Art
       @Sifra_Nal     Smallint = Null,
    @Sifra_Dok     Smallint = Null,
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(1000) = Null,
    @Sifra_Prim     Smallint = Null,
    @Broj_Nal_Od     Int = Null,
       @Broj_Nal_Do     Int = Null,
    @Broj_Dok_Od     Int = Null,
       @Broj_Dok_Do     Int = Null,
       @Datum_Dok_Od     Smalldatetime = Null,
       @Datum_Dok_Do     Smalldatetime = Null,
    @Datum_Nal_Od     Smalldatetime = Null,
       @Datum_Nal_Do     Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Sifra_Za     Char(1) = Null,
    @VlIzl         Char(1) = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
    @Lokacija     varchar(10) = Null,
    @MatUsl     char(1) = Null,
    @PecFisc     char(1) = 'N',
    @Sifra_Nivo     Char(2) = Null,
    @KFSifra_Nivo     Char(1) = Null,
    @KFSifra_Prim     Smallint = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Mest    int = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @Sifra_Drg    smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
     @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @NemaKomint    char(1) = Null,
    @NemaPatnik    char(1) = Null,
    @Sifra_Oper    varchar(20) = Null,
    @Sifra_Obj    smallint = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Koi_Gradovi    varchar(300) = Null,
    @Sifra_Prev    char(6) = Null,
    @Spremil    varchar(5) = Null,
    @SoUcesOsn    char(1) = 'N',
    @UcesOsnNad    decimal(6,2) = 0,
    @UcesOsnDo    decimal(6,2) = 0,
    @SoUcesKol    char(1) = 'N',
    @UcesKolNad    decimal(6,2) = 0,
    @UcesKolDo    decimal(6,2) = 0,
    @SoUcesDod    char(1) = 'N',
    @UcesDodNad    decimal(6,2) = 0,
    @UcesDodDo    decimal(6,2) = 0,
    @VkUcesNad    decimal(6,2) = 0,
    @Kto_Anal    char(10) = NULL,
        @KDrugo1        smallint = NULL,
    @KDrugo2        smallint = NULL,
    @KDrugo3        smallint = NULL,
    @KDrugo4        smallint = NULL,
    @KDrugo5        smallint = NULL,
    @KDrugo6        smallint = NULL,
    @KDrugo7        smallint = NULL,
    @DogBr    varchar(10) = Null,
    @Sifra_Reg    smallint = Null

AS
    Set @UcesOsnNad    = @UcesOsnNad * 100
    Set @UcesOsnDo    = @UcesOsnDo * 100
    Set @UcesKolNad    = @UcesKolNad * 100
    Set @UcesKolDo    = @UcesKolDo * 100
    Set @UcesDodNad    = @UcesDodNad * 100
    Set @UcesDodDo    = @UcesDodDo * 100
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
   Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.Kasa,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            S.Sifra_Art, A.ImeArt, A.Edmera, S.VlIzl, S.Kolic, S.DokCena, S.MagCena, S.Uces, S.DanDokCena, S.DanMagCena, S.POsn,
            D.Identif_Br, D.Ispratnica,  S.UcesOsn, S.UcesKol, (Case When S.UcesDod Is Null Then 0 Else S.UcesDod End) UcesDod,
            A.ImaKomerc, A.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, S.Alt_Kolic,
            D.Sifra_Pat, Pat.ImePat, S.NabCena, D.Toc200, A.Tezina, A.BTezina, A.PCena6,
                        K.KDrugo4, K.KDrugo6, K4.Ime_4K, K6.Ime_6K
        FROM DOKR D
        LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Podgrupi PG ON A.Sifra_Podg=PG.Sifra_Podg
        LEFT OUTER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr
        INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KDrugo4 K4 ON K.KDrugo4=K4.Sifra_4K
                LEFT OUTER JOIN KDrugo6 K6 ON K.KDrugo6=K6.Sifra_6K
        INNER JOIN Orged O ON S.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Nalozi N ON TD.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
        LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
        LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
        LEFT OUTER JOIN Patnici Pat ON Pat.Sifra_Pat=D.Sifra_Pat '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0  '  -- s.kolicf <> 0 dod 18.06.2010 za Prima
    Else
        SET @SSQL = @SSQL + 'WHERE S.Kolic<>0 And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @MatUsl Is Not Null
        Set @SSQL = @SSQL + 'AND A.SMatUsl=''' + @MatUsl + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaPatnik da ne se pusta filterot @Sifra_pat
    If @NemaPatnik = 'D'
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat is Null and D.Sifra_za in (1, 2) '
    If @Broj_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
-- Ima kontrola vo podgotovkata ako se pusti filterot @NemaKomint da ne se pusta filterot @Sifra_Kup
    If @NemaKomint = 'D'
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup Is Null and D.Sifra_za in (1, 2) '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto='''+@Kto+''') '
       If @Kto_Anal IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Kto_Anal='''+@Kto_Anal+''') '
       If @Sifra_Gr IS NOT NULL              Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
              Set @SSQL=@SSQL+'AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Drg Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Sifra_Drg =''' + Cast(@Sifra_Drg As Varchar(10)) + ''' '
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND A.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @KDrugo1 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')
              Or (KO.KDrugo1 Is Null And K.KDrugo1 = ' + Cast(@KDrugo1 As Varchar(6)) + ')) '
    If @KDrugo2 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')
              Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@KDrugo2 As Varchar(6)) + ')) '
    If @KDrugo3 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')
              Or (KO.KDrugo3 Is Null And K.KDrugo3 = ' + Cast(@KDrugo3 As Varchar(6)) + ')) '
    If @KDrugo4 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 As Varchar(6)) + ')
              Or (KO.KDrugo4 Is Null And K.KDrugo1 = ' + Cast(@KDrugo4 As Varchar(6)) + ')) '
    If @KDrugo5 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')
              Or (KO.KDrugo5 Is Null And K.KDrugo5 = ' + Cast(@KDrugo5 As Varchar(6)) + ')) '
    If @KDrugo6 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')
              Or (KO.KDrugo6 Is Null And K.KDrugo6 = ' + Cast(@KDrugo6 As Varchar(6)) + ')) '
    If @KDrugo7 Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')
              Or (KO.KDrugo7 Is Null And K.KDrugo7 = ' + Cast(@KDrugo7 As Varchar(6)) + ')) '
    If @Sifra_Reg Is NOT NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
              Or (KO.Sifra_Reg Is Null And K.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '


       If @Sifra_Prev IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Prev=''' + @Sifra_Prev + ''' '
       If @Spremil IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Spremil=''' + @Spremil + ''' '
    If @DogBr Is NOT Null
        SET @SSQL = @SSQL + 'AND D.DogBr=''' + @DogBr + ''' '
    --------------------------------------------------------- dod 30.08.2006 --------------------------------------------------------------------------------------------------
    If @SoUcesOsn = 'D'
        Set @SSQL = @SSQL + ' And ((S.UcesOsn > ' + Cast(@UcesOsnNad as varchar(10)) + ' And S.UcesOsn <= ' + Cast(@UcesOsnDo as varchar(10)) + ') '
    If @SoUcesKol = 'D'
        If @SoUcesOsn <> 'D'  Or @SoUcesOsn Is Null
            Set @SSQL = @SSQL + ' And ((S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesKol > ' + Cast(@UcesKolNad as varchar(10)) + ' And S.UcesKol <= ' + Cast(@UcesKolDo as varchar(10)) + ') '
    If @SoUcesDod = 'D'
        If (@SoUcesOsn <> 'D' Or @SoUcesOsn Is Null) And (@SoUcesKol <> 'D' Or @SoUcesKol Is Null)
            Set @SSQL = @SSQL + ' And ((S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
        Else
            Set @SSQL = @SSQL + ' Or (S.UcesDod > ' + Cast(@UcesDodNad as varchar(10)) + ' And S.UcesDod <= ' + Cast(@UcesDodDo as varchar(10)) + ') '
    If @SoUcesOsn = 'D' Or @SoUcesKol = 'D' Or @SoUcesDod = 'D'
        Set @SSQL = @SSQL + ' ) '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @VkUcesNad <> 0
    BEGIN
        IF @VkUcesNad = -1
          Set @SSQL = @SSQL + ' And S.DokCena = 0.0 '
        else
          Set @SSQL = @SSQL + ' And S.Uces >= ' + Cast(@VkUcesNad as varchar(10)) + ' '
    end
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = @SSQL    + 'ORDER BY D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok '
--print @SSQL
   EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_rabnal]'))
drop procedure [dbo].[sp_anal_rabnal]

Go



CREATE     PROCEDURE sp_Anal_RabNal
    @Sifra_OERab    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @BrojRabNOd    int = Null,
    @BrojRabNDo    Int = Null,
    @Sifra_kupOd    char(6) = Null,
    @Sifra_kupDo    char(6) = Null,
    @KoiRN    char(1) = 'S',        -- O - Otvoreni,        Z - Zatvoreni          S - Site
    @Standardni    char(1) = Null,    -- D - Standardni,    N - Razlozuvanje    S - Site
    @Datum_Vnes_Od    smalldatetime = Null,
    @Datum_Vnes_Do    smalldatetime = Null,
    @Stat_RabNal        varchar(30) = Null,
    @Sifra_Rab        smallint = Null,
        @Broj_Proekt int = null

 AS

    --Select RN.* from RabNal RN
    DECLARE @SSQL Varchar(4000)
    SET @SSQL= 'SELECT RN.RabNalID, RN.Sifra_OERab, RN.Broj_RabN, RN.Alt_BrojRN, RN.Opis, RN.Datum_Otv, RN.Datum_Zatv, RN.Dogovor, RN.Sifra_Kup, RN.Datum_Dog,
            RN.Datum_Rok, RN.Zabel, RN.Sifra_OEPrim, S.Sifra_Art, S.Kolic, S.Cena, K.ImeArt, RN.Dat_Ocek_Zatv, RN.Sema_Fix, RN.Sema_Surov_Gotov,
            RN.Datum_Vnes, RN.Stat_RabNal, S.KontrSer, K.EdMera, Kom.ImeKup, S.SRNId
            FROM RabNal RN
            Left Outer Join StaRabNal S On S.RabNalID=RN.RabNalID
            Left Outer Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join Komint Kom On RN.Sifra_Kup = Kom.Sifra_Kup
            WHERE 1=1 '
    If @Sifra_OERab is Not Null
        SET @SSQL = @SSQL + 'And RN.Sifra_OERab =' + cast(@Sifra_OERab as varchar(6)) +' '
    If @Datum_Od Is Not Null
        SET @SSQL = @SSQL + 'And RN.Datum_Otv >=''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        SET @SSQL = @SSQL + 'And RN.Datum_Otv <=''' + cast(@Datum_Do as varchar(35)) + ''' '
    If @BrojRabNOd Is Not Null
        SET @SSQL = @SSQL + 'And RN.Broj_RabN >= ' + cast(@BrojRabNOd as varchar(6)) +  ' '
    If @BrojRabNDo Is Not Null
        SET @SSQL = @SSQL + 'And RN.Broj_RabN <= ' + cast(@BrojRabNDo as varchar(6)) +  ' '
    If @Sifra_kupOd Is Not Null
        SET @SSQL = @SSQL + 'And RN.Sifra_kup >= ' + @Sifra_kupOd + ' '
     If @Sifra_kupDo Is Not Null
        SET @SSQL = @SSQL + 'And RN.Sifra_kup <= ' + @Sifra_kupDo + ' '
    If @Datum_Vnes_Od Is Not Null
        SET @SSQL = @SSQL + 'And RN.Datum_Vnes >''' + cast(@Datum_Vnes_Od as varchar(35)) + ''' '
    If @Datum_Vnes_Do Is Not Null
        SET @SSQL = @SSQL + 'And RN.Datum_Vnes <=''' + cast(@Datum_Vnes_Do + 1 as varchar(35)) + ''' '
    If @Stat_RabNal Is Not Null
        SET @SSQL = @SSQL + 'And RN.Stat_RabNal In (' + @Stat_RabNal + ') '
    If @Sifra_Rab is Not Null
        SET @SSQL = @SSQL + 'And RN.Sifra_Rab =' + cast(@Sifra_Rab as varchar(6)) +' '
    If @KoiRN = 'Z'
        SET @SSQL = @SSQL + 'And RN.Datum_Zatv Is Not Null '
    Else If @KoiRN = 'O'
        SET @SSQL = @SSQL + 'And RN.Datum_Zatv Is Null '
    If @Standardni = 'D'
        SET @SSQL = @SSQL + 'And (RN.Pomosen <> ''D'' Or RN.Pomosen is Null) '
    Else If @Standardni = 'N'
        SET @SSQL = @SSQL + 'And RN.Pomosen = ''D'' '
        If @Broj_Proekt Is Not Null
        SET @SSQL = @SSQL + 'And RN.Broj_Proekt = ' + cast(@Broj_Proekt as varchar(9)) +  ' '

    Exec (@SSQL)

    RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_razlceni_oper]'))
drop procedure [dbo].[sp_anal_razlceni_oper]

Go



create   PROCEDURE [dbo].[sp_Anal_RazlCeni_Oper]
    @Datum_Dok_Od Smalldatetime = Null,
    @Datum_Dok_Do Smalldatetime = Null
AS
       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT Distinct Sifra_Oper
            FROM RazlCeni D
            WHERE 1=1 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_anal_wms_dok]'))
drop procedure [dbo].[sp_anal_wms_dok]

Go





CREATE            PROCEDURE sp_Anal_WMS_Dok
    @Sifra_Oe        smallint= Null,
    @KoiOe                varchar(6)= Null,
    @Datum_Od        smalldatetime= Null,
    @Datum_Do        smalldatetime= Null,
    @Sifra_Art_Od        varchar(20)= Null,
        @Sifra_Art_Do        varchar(20)= Null,
    @LotBroj        varchar(50)= Null,
    @Lokacija        varchar(10) = Null,
    @Sifra_KatStatus    smallint = Null,
    @RokRed_Od        varchar(6) = Null,
    @RokRed_Do        varchar(6) = Null,
    @Sifra_Kup        varchar(6) = Null,
        @Sifra_Oe_WHM        smallint,
        @Sifra_Oper    varchar(20) = Null,
        @TipDok    varchar(200) = Null
AS
    --Set @PrethVlez=0
    --Set @PrethIzlez=0
    Declare @SSQL as varchar(8000)
    --If @Datum_Od Is Not Null
    --Begin
    --    Create Table #Tab
    --    (
    --        Vlez        decimal(18,6),
    --        Izlez        decimal(18,6)
    --    )
    --    Set @SSQL = ' Select Sum(Case When M.VlIzl = ''V'' Then M.Kolic Else 0 End) Vlez,
    --            Sum(Case When M.VlIzl = ''I'' Then M.Kolic Else 0 End) Izlez
    --            From MagStavr M
    --            Inner Join Dokr D On D.DokrID=M.DokrID
    --            Where D.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + '''
    --            And M.Sifra_Art = ''' + @Sifra_Art + ''' '
    --    If @Sifra_Oe Is Not Null
    --        Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    --If @KoiOE Is Not Null
        --    Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        --If @LotBroj Is Not Null
        --    Set @SSQL = @SSQL + ' And M.LotBr = ''' + @LotBroj + ''' '
        --If @Lokacija Is Not Null
        --    Set @SSQL = @SSQL + ' And M.Lokacija = ''' + @Lokacija + ''' '
        --If @Sifra_KatStatus Is Not Null
        --    Set @SSQL = @SSQL + ' And M.Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '
        --If @RokRed_Od Is Not Null
        --    Set @SSQL = @SSQL + ' And M.RokRed >= ''' + @RokRed_Od + ''' '
        --If @RokRed_Do Is Not Null
        --    Set @SSQL = @SSQL + ' And M.RokRed <= ''' + @RokRed_Do + ''' '
        --If @Sifra_Kup Is Not Null
        --    Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        --Insert Into #Tab Exec(@SSQL)
        --Select @PrethVlez=Vlez, @PrethIzlez=Izlez
        --From #Tab
    --End
    Set @SSQL = ' Select M.Sifra_Oe, O.ImeOrg, M.Sifra_Art, A.ImeArt, M.SpecOzn, A.EdMera, M.VlIzl, M.Kolic,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            M.Lokacija, M.LotBr, M.RokRed, M.Sifra_KatStatus, KS.ImeKatStatus, M.Sifra_KatPak, KP.ImeKatPak,
            RN.Sifra_OeRab, RN.Broj_RabN, D.Sifra_Oper, M.Datum_Vnes, (M.Kolic*A.BTezina/1000) BTezina, M.Rbr, M.Sifra_Oe_WHM,OP.Ime_Oper    as MagOper
        From MagStavr M
        Inner Join Dokr D On D.DokrID=M.DokrID
        inner join Katart A ON A.Sifra_Art = M.Sifra_Art
        Left Outer Join DokRabNal DRN On DRN.DokrID=D.DokrID
        Left Outer Join RabNal RN On RN.RabNalID=DRN.RabNalID
        Inner Join Orged O On O.Sifra_Oe = M.Sifra_Oe
        Left Outer Join Komint K On K.Sifra_kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join KatStatus KS On KS.Sifra_KatStatus=M.Sifra_KatStatus
        Left Outer Join TipKatPakuv KP On KP.Sifra_KatPak=M.Sifra_KatPak
        Left Outer Join Operatori OP on M.Sifra_Oper=OP.Sifra_Oper
        Where 1=1 '
        If @Sifra_Oe_WHM Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_Oe_WHM = ' + cast(@Sifra_Oe_WHM as varchar(6)) + ' '
    If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND M.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND M.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
        If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @LotBroj Is Not Null
        Set @SSQL = @SSQL + ' And M.LotBr = ''' + @LotBroj + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And M.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_KatStatus Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '
    If @RokRed_Od Is Not Null
        Set @SSQL = @SSQL + ' And M.RokRed >= ''' + @RokRed_Od + ''' '
    If @RokRed_Do Is Not Null
        Set @SSQL = @SSQL + ' And M.RokRed <= ''' + @RokRed_Do + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Oper IS NOT NULL
              SET @SSQL=@SSQL+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
        If @TipDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok IN (' + @TipDok + ') '
        Set @SSQL = @SSQL + ' Order By D.Datum_Dok,M.Sifra_Oe '
    Exec (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analdokvozila]'))
drop procedure [dbo].[sp_analdokvozila]

Go

CREATE    PROCEDURE [dbo].[sp_AnalDokVozila]
    @Sifra_OE     Smallint = Null,
    @KoiOE         Varchar(2000) = Null,
    @Sifra_Nal     Smallint=Null,
    @Sifra_Dok_List varchar(200) = Null,
    @Broj_Nal_Od     Int=Null,    --
    @Broj_Nal_Do     Int=Null,    --
    @Datum_Nal_Od  Smalldatetime=Null,    --
    @Datum_Nal_Do  Smalldatetime=Null,    --
    @Broj_Dok_Od     Int=Null,    --
    @Broj_Dok_Do     Int=Null,    --
    @Datum_Dok_Od Smalldatetime=Null,    --
    @Datum_Dok_Do Smalldatetime=Null,    --
    @Sifra_Kup     Char(6)=Null,    --
    @Sifra_Obj    smallint = Null,
    @Sifra_Mest    int = Null,

    @Sifra_Art    varchar(20) = Null,
    @KontrSer    varchaR(30) = Null,
    @KontrSerExt    varchaR(30) = Null,
    @AltKontrSer    varchaR(30) = Null,

    -- Po dogovor, narednive 5 polinja se po default sekogass 'N'
    @SiteVlIzlDali    Char(1) = 'N',
    @VlezDali    Char(1) = 'N',
    @IzlezDali    Char(1) = 'N',
    @VlezPrenDali    Char(1) = 'N',
    @IzlezPrenDali    Char(1) = 'N',

    @Sifra_Nivo     Char(2) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Oper    varchar(20) = Null,
    @PoKojDatum    char(1) = 'D'     -- D - Datum_Dok,      V - Datum_Vnes

AS

    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
            Set @Datum_Dok_Do = @Datum_Dok_Do + 1

       Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                dbo.fn_VratiDatum(D.Datum_Vnes) Datum_Vnes, dbo.fn_VratiVreme(D.Datum_Vnes) Vreme_Vnes,
                D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br,
                D.Sifra_Kup, K.ImeKup, K.Smesto, D.Sifra_Obj, KO.ImeObj, KO.Smesto as ObjSmesto,
                D.Rok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                TD.ImeDok, O.ImeOrg, D.Sifra_Oper, D.Sifra_OpIz, D.Datum_Izm , D.Datum_Vnes as Datum_Vnes_Cel,
                TD.DaliFisc, D.Pec_Fisc, D.Dat_Pec_Fisc,
                MS.SpecOzn SerBr, KS.KontrSerExt, KS.AltKontrSer, KS.GOdProiz, KS.Opis, KS.Sifra_3, D3.Ime_3, D2.Sifra_2, D2.Ime_2,
                MS.Sifra_Art, Art.ImeArt, D.Sifra_Kor, Kor.ImeKor, TD.Plus_Minus, KS.PotvrdaBr, KS.GarancBr
                FROM DOKR D
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj
                LEFT OUTER JOIN KartKor Kor on Kor.Sifra_oe = 1 and Kor.Sifra_Kor = D.SifrA_Kor
                inner Join MagStavr MS on MS.DokrId = D.DokrId
                inner join Katart Art on Art.Sifra_Art = MS.Sifra_Art
                left outer Join KatSerKlas KS  on MS.Sifra_Art = KS.SifrA_Art and MS.SpecOzn = KS.KontrSer
                left outer join Drugo3 D3 on D3.SifrA_3 = KS.Sifra_3
                left outer join Drugo2 D2 on D2.Sifra_2 = Art.Drugo2 '
    If @Datum_Nal_Od Is Not Null Or @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN Nalozi N ON TD.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal '
    Set @SSQL = @SSQL + ' WHERE 1 = 1 '

    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '

    If @Sifra_Dok_List Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok in (' + @Sifra_Dok_List + ') '

       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '

    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '

    if @Sifra_Art is not null
        SET @SSQL = @SSQL + ' And MS.Sifra_Art = ''' + @Sifra_Art + ''' '
    if @KontrSer is not null
        SET @SSQL = @SSQL + ' And MS.SpecOzn = ''' + @KontrSer + ''' '
    if @KontrSerExt is not null
        SET @SSQL = @SSQL + ' And KS.KontrSerExt = ''' + @KontrSerExt + ''' '
    if @AltKontrSer is not null
        SET @SSQL = @SSQL + ' And KS.AltKontrSer = ''' + @AltKontrSer + ''' '

    If @PoKojDatum = 'V'
           Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End

    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
       If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '

       If @Sifra_Mest Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Mest=''' + Cast(@Sifra_Mest As Varchar(10)) + ''' '
       If @Sifra_Oper IS NOT NULL
              SET @SSQL = @SSQL + 'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '

    If @SiteVlIzlDali = 'N'
    begin
        Declare @VlIzlSpec as varchaR(200)
        set @VlIzlSpec = ' and (0 = 1 '
        if @VlezDali = 'D'
            SET @VlIzlSpec = @VlIzlSpec + ' or TD.Sifra_Za = ''2'' '
        if @IzlezDali = 'D'
            SET @VlIzlSpec = @VlIzlSpec + ' or TD.Sifra_Za = ''1'' '
        if @VlezPrenDali = 'D'
            SET @VlIzlSpec = @VlIzlSpec + ' or (TD.Sifra_Za = ''4'' and D.ImaDodatna = ''P'') '
        if @IzlezPrenDali = 'D'
            SET @VlIzlSpec = @VlIzlSpec + ' or (TD.Sifra_Za = ''4'' and D.ImaDodatna = ''D'') '
        SET @VlIzlSpec = @VlIzlSpec + ')'

        set @SSQL = @SSQL + @VlIzlSpec
    end


--print @SSQL


   EXEC(@SSQL)


















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analitika_kamlisti]'))
drop procedure [dbo].[sp_analitika_kamlisti]

Go
CREATE PROCEDURE sp_Analitika_KamListi
    @Sifra_Kup        char(6),
    @Datum_Kli_Od        smalldatetime,
    @Datum_Kli_Do        smalldatetime,
    @Broj_Od        int,
    @Broj_Do        int
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select KL.Broj, KL.Sifra_Kup, Kup.ImeKup, KL.Opis, KL.Datum_Kli, KL.Datum_Vnes, KL.Oper_Vnes, KL.Datum_Izm, KL.Oper_Izm,
                Count(KS.KlisID) BrFri, Sum(KS.Iznos) IznosFri
            From KlistaD KL
            Left Outer Join Klista KS On KS.Broj=KL.Broj
            Left Outer Join Komint Kup On Kup.Sifra_Kup=KL.Sifra_Kup
            Where 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And KL.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum_Kli_Od Is Not Null
        Set @SSQL = @SSQL + ' And KL.Datum_Kli >= ''' + Cast(@Datum_Kli_Od as varchar(30)) + ''' '
    If @Datum_Kli_Do Is Not Null
        Set @SSQL = @SSQL + ' And KL.Datum_Kli <= ''' + Cast(@Datum_Kli_Do as varchar(30)) + ''' '
    If @Broj_Od Is Not Null
        Set @SSQL = @SSQL + ' And KL.Broj >= ''' + Cast(@Broj_Od as varchar(6)) + ''' '
    If @Broj_Do Is Not Null
        Set @SSQL = @SSQL + ' And KL.Broj <= ''' + Cast(@Broj_Do as varchar(6)) + ''' '
    Set @SSQL = @SSQL + ' Group By KL.Broj, KL.Sifra_Kup, Kup.ImeKup, KL.Opis, KL.Datum_Kli, KL.Datum_Vnes, KL.Oper_Vnes, KL.Datum_Izm, KL.Oper_Izm '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analitika_planceni]'))
drop procedure [dbo].[sp_analitika_planceni]

Go
CREATE  PROCEDURE sp_Analitika_PlanCeni
    @Sifra_OE    smallint,
    @Koi_Oe    char(6) = Null,
    @Datum    smalldatetime,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Podred    char(1) = 'D',    -- Po Datum na vazenje,     B - Po Broj na Artikli vo cenovnikot
    @IzmNaDatum    char(1)= Null    -- Ceni izmeneti samo na toj datum
AS
    Declare @SSQL as varchar(8000)
    If @Sifra_Oe Is Not Null And @Koi_Oe Is Null
    Begin
        SELECT @Koi_Oe = G.Sif_GrOrg FROM GrOrg G Inner Join SGrOrg S On G.Sif_GrOrg=S.Sif_GrOrg And S.Sifra_OE= @Sifra_OE WHERE G.ZaedPlanCeni='D'
        If @Koi_Oe Is Null
            Set @Koi_Oe = ' '
    End
    Set @SSQL = ' Select Vazi_Od Dat_Cenovnik, Count(Distinct Sifra_Art) BrArtikli
            From CeniPlanski
            Where 1=1 '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And Sif_GrOrg = ''' + @Koi_Oe + ''' '
    If @Datum Is Not Null
    Begin
        If @IzmNaDatum = 'D'
            Set @SSQL = @SSQL + ' And Vazi_Od = ''' + Cast(@Datum as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And Vazi_Od <= ''' + Cast(@Datum as varchar(30)) + ''' '
    End
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Set @SSQL = @SSQL + ' Group By Vazi_Od '
    If @Podred = 'D'
        Set @SSQL = @SSQL + ' Order By Vazi_Od '
    Else If @Podred = 'B'
        Set @SSQL = @SSQL + ' Order By Count(Distinct Sifra_Art) Desc '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analitika_rasporedispor]'))
drop procedure [dbo].[sp_analitika_rasporedispor]

Go
CREATE PROCEDURE sp_Analitika_RasporedIspor
    @Datum_Raspor_Od    smalldatetime,
    @Datum_Raspor_Do    smalldatetime
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select R.Sifra_Oe, R.Sifra_Nar, N.ImeNar,R.Broj_Raspored, R.Datum_Raspor, R.Broj_Nar,
            R.Proknizen, R.Broj_Nar_Lista, R.Tip_Raspored, R.ZaKadeRaspored
        From RasporedIspor R
        Inner Join TipNarac N On N.Sifra_Nar=R.Sifra_Nar
        Where 1=1 '
    If @Datum_Raspor_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Raspor >= ''' + Cast(@Datum_Raspor_Od as varchar(30)) + ''' '
    If @Datum_Raspor_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Raspor <= ''' + Cast(@Datum_Raspor_Do as varchar(30)) + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analiza_abc]'))
drop procedure [dbo].[sp_analiza_abc]

Go






CREATE             PROCEDURE sp_Analiza_ABC
    @Datum_Od     Smalldatetime,
    @Datum_Do     Smalldatetime,
    @Sifra_OE     varchar(600) = NULL,
    @KF_OE        char(1)  = 'N',
    @Sifra_Podg   varchar(1000) = NULL,
    @KF_Podg      char(1) = 'N',
    @Sifra_Gr     varchar(200) = NULL,
    @KF_Gr        char(1) = 'N',
    @Kto          varchar(200) = NULL,
    @KF_Kto       char(1) = 'N',
    @Sifra_Brand  varchar(200) = NULL,
    @KF_Brand     char(1) = 'N',
    @Lokacija     varchar(10) = NULL,
    @KF_Lokacija  char(1) = 'N',
    @SoDanok      Char(1) = 'D',
    @NegZalihaKako0  char(1) = 'D',
    @TekZaliha    char(1) = 'D',
    @IskluciKup   varchar(200) = '660660, 660663, 021000',        --ova ne se koristi
    @TipDokProd   varchar(200) = '100,101,60',
    @Kolku        int = NULL,
    @So_NulaProd    char(1)='D',
    @BazaPreth    varchar(20) = Null,
    @DobavOd    char(1) = 'K'

AS
    CREATE TABLE #TmpArt
    (
        Sifra_Art varchar(20),
        ImeArt varchar(40)
    )
    CREATE NONCLUSTERED INDEX IX_TmpArt ON #TmpArt
        (Sifra_Art) ON [PRIMARY]

    Create Table #TmpZal
    (
        Sifra_Art  Varchar(20),
        Kolicina   Decimal(18,6),
        Vrednost Decimal(18, 6)
    )
    CREATE NONCLUSTERED INDEX IX_TmpZal ON #TmpZal
        (Sifra_Art) ON [PRIMARY]

    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(2000)
    Declare @SOE Varchar(2000)
    Declare @SOsn Varchar(2000)
    SET @SSQLUsl = ''
    SET @SOE = ''
    SET @SOsn = ''

    If @Sifra_OE Is Not NULL
       Begin
        If @KF_OE = 'N'
             Set @SOE = @SOE + 'AND S.Sifra_OE  IN (' + @Sifra_OE  + ') '
        Else
               Set @SOE = @SOE + 'AND S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Sifra_Podg Is Not NULL
        Begin
        If @KF_Podg = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Podg NOT IN (' + @Sifra_Podg  + ') '
        End
    If @Sifra_Gr Is Not NULL
        Begin
        If @KF_Gr = 'N'
                Set @SOsn = @SOsn + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
        Else
            Set @SOsn = @SOsn + 'And P.Sifra_Gr NOT IN (' + @Sifra_Gr  + ') '
        End
    If @Sifra_Brand Is Not NULL
        Begin
        If @KF_Brand = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Drg NOT IN (' + @Sifra_Brand  + ') '
        End
    If @Lokacija Is Not NULL
    Begin
        If @KF_Lokacija  = 'N'
            Set @SOsn = @SOsn + 'And K.Lokacija = ''' + @Lokacija + ''' '
        Else
            Set @SOsn = @SOsn + 'And K.Lokacija <> ''' + @Lokacija + ''' '
    End
    If @Kto Is Not NULL
    Begin
        If @DobavOd = 'K'
        Begin
            If @KF_Kto = 'N'
                    Set @SOsn = @SOsn + 'And K.Kto IN (' + @Kto  + ') '
            Else
                Set @SOsn = @SOsn + 'And K.Kto NOT IN (' + @Kto  + ') '
        End
        Else
        Begin
            If @KF_Kto = 'N'
                    Set @SOsn = @SOsn + 'And S.Dobav IN (' + @Kto  + ') '
            Else
                Set @SOsn = @SOsn + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    End

    If @DobavOd = 'K'
        SET @SSQL = 'SELECT K.Sifra_Art, K.ImeArt
                FROM KatArt K '
    Else
        SET @SSQL = 'SELECT Distinct S.Sifra_Art, K.ImeArt
                FROM Stavr S
                Inner Join KatArt K On K.Sifra_Art = S.Sifra_Art '
    IF @Sifra_Gr is Not NULL
        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.SifRa_Podg '
    SET @SSQL = @SSQL + ' WHERE 1=1 ' + @SOsn

    If @DobavOd <> 'K' Or @DobavOd Is Null
    Begin
        Set @SSQL = @SSQL + @SOE
        If @TipDokProd is NOT null
            Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    End

    INSERT INTO #TmpArt EXEC (@SSQL)

/*
    If @DobavOd <> 'K' Or @DobavOd Is Null
    Begin
        SET @SSQL = 'SELECT K.Sifra_Art, K.ImeArt
                FROM KatArt K '
        IF @Sifra_Gr is Not NULL
            SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.SifRa_Podg '
        SET @SSQL = @SSQL + ' WHERE 1=1 ' + @SOsn + ' And K.Sifra_Art Not In (Select Sifra_Art From #TmpArt) '

        INSERT INTO #TmpArt EXEC (@SSQL)
    End
*/
print @SSQL

    SET @SSQLUsl = @SOE + @SOsn

    If @TekZaliha = 'D'
    Begin
        Set @SSQL = 'INSERT INTO #TmpZal
                SELECT S.Sifra_Art, SUM(S.Vlez - S.Izlez) as Kolicina,
                SUM((S.Vlez - S.Izlez) * dbo.fn_VratiCena(S.Cena, S.Posn, S.DanCena, '''+ @SoDanok+''')) As Vrednost
                FROM Soart S
                Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
                WHERE 1=1 '+@SOE+ ' GROUP BY S.Sifra_Art '
        EXEC (@SSQL)
        End
    Else
        Begin
        SET @SSQL = ' SELECT S.Sifra_OE, S.Sifra_Art,
            SUM(CASE WHEN S.VlIzl = ''V'' THEN S.Kolic ELSE 0 END) Vlez,
            SUM(CASE WHEN S.VlIzl = ''I'' THEN S.Kolic ELSE 0 END) Izlez
            FROM #TmpArt K
            Inner Join Stavr  S On S.Sifra_Art=K.Sifra_Art
            WHERE  S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '+ @SOE + ' GROUP BY S.Sifra_OE, S.Sifra_Art '

        CREATE TABLE #PrometArt
        (
            Sifra_OE  smallint,
            Sifra_Art  Varchar(20),
            Vlez Decimal (18,4),
            Izlez Decimal (18,4),
            Cena Decimal(18,4)
        )
        INSERT INTO #PrometArt (Sifra_OE, Sifra_Art, Vlez, Izlez) EXEC(@SSQL)
        -- Sega za cenata da vidime
        UPDATE #PrometArt SET Cena = dbo.fn_CenaDatum (#PrometArt.Sifra_OE,#PrometArt.Sifra_Art,@Datum_Do,@SoDanok)

        INSERT INTO #TmpZal  SELECT Sifra_Art, SUM(Vlez - Izlez) as Kolicina, SUM((Vlez - Izlez) * Cena) As Vrednost
        FROM #PrometArt GROUP BY Sifra_Art
       End
    If @NegZalihaKako0 = 'D'
        UPDATE #TmpZal SET Kolicina = 0, Vrednost = 0 WHERE Kolicina < 0

    ---Sega prodazba
    Set @SSQLUsl = ' '

    CREATE TABLE #TmpProd
    (
        Sifra_Art    varchar(20),
        Kolicina        decimal(18,6),
        Vr_Krajna    decimal(18,6)
    )
    CREATE NONCLUSTERED INDEX IX_TmpProd ON #TmpProd
        (Sifra_Art) ON [PRIMARY]

    SET @SSQL = 'SELECT S.Sifra_Art, Sum(S.Kolic) As Kolicina, '
    If @SoDanok = 'D'
        Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) As Vr_Krajna '
    Else   -- If @SoDanok = 'N'
        Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena / (1+S.Posn/100) * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) As Vr_Krajna '
    -- Sum(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, ''' + @SoDanok+''')) As Vr_Krajna
    Set @SSQL = @SSQL + ' From Stavr S
        Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
        Inner Join Dokr D On S.DokrID = D.DokrID
        Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
    If @TipDokProd is NOT null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Kto Is Not NULL And (@DobavOd <> 'K' Or @DobavOd Is Null)
        Begin
        If @KF_Kto = 'N'
                Set @SSQLUsl = @SSQLUsl + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    Set @SSQLUsl = @SSQLUsl +  'Group By S.Sifra_Art'
print @SSQL+@SSQLUsl
    INSERT #TmpProd EXEC(@SSQL+@SSQLUsl)

    --------------------------------------------------------------------------- So Paralelna (Prethodna) baza ----------------------------------------------------------------------------------------------
    If @BazaPreth Is Not Null
    Begin
        If @SoDanok = 'D'
            Set @SSQL = @SSQL + ' Sum(Case
                        When S.DanDokCena=''N'' Then
                          (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                        Else
                          (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                        End) As Vr_Krajna '
        Else   -- If @SoDanok = 'N'
            Set @SSQL = @SSQL + ' Sum(Case
                        When S.DanDokCena=''N'' Then
                          (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                        Else
                          (S.Kolic * S.DokCena / (1+S.Posn/100) * (1-S.Uces/100)*(1-D.Kasa/100))
                        End) As Vr_Krajna '
        --Sum(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, ''' + @SoDanok+''')) As Vr_Krajna
        Set @SSQL = @SSQL + ' From ' + @BazaPreth + '..Stavr S
            Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
            Inner Join  ' + @BazaPreth + '..Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
        INSERT #TmpProd EXEC(@SSQL+@SSQLUsl)

        CREATE TABLE #TmpProdBaza2
        (    Sifra_Art    varchar(20),
            Kolicina        decimal(18,6),
            Vr_Krajna    decimal(18,6)
        )
        CREATE NONCLUSTERED INDEX IX_TmpProdB2 ON #TmpProdBaza2
            (Sifra_Art) ON [PRIMARY]

        Insert Into #TmpProdBaza2
        Select Sifra_Art, Sum(Kolicina), Sum(Vr_Krajna)
        From #TmpProd
        Group By Sifra_Art

        Set @SSQL = 'Select '
        If @Kolku Is Not NULL
            Set @SSQL = @SSQL + 'TOP ' + Cast(@Kolku as varchar(6)) + ' '    --K.Iskluci <> ''D'' And
        Set @SSQL = @SSQL + 'A.Sifra_Art, A.ImeArt, SA.Kolicina As Zaliha, SA.Vrednost  As Vr_Zaliha,
                    P.Vr_Krajna, P.Kolicina
                    From #TmpArt A
                    Left Outer Join #TmpProdBaza2 P On A.Sifra_Art=P.Sifra_Art
                    Left Outer Join #TmpZal SA On A.Sifra_Art=SA.Sifra_Art
                    WHERE 1=1 AND (SA.Kolicina<>0 OR P.Kolicina<>0)'
        IF @So_NulaProd <> 'D'
            Set @SSQL = @SSQL + ' AND P.Kolicina <>0 '
        Set @SSQL = @SSQL + ' Order By P.Vr_Krajna DESC'
        Exec(@SSQL)
    End
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Else   -- Ako nemame vtora baza
    Begin
        -- Rezultati
        Set @SSQL = 'Select '
        If @Kolku Is Not NULL
            Set @SSQL = @SSQL + 'TOP ' + Cast(@Kolku as varchar(6)) + ' '    --K.Iskluci <> ''D'' And
        Set @SSQL = @SSQL + 'A.Sifra_Art, A.ImeArt, SA.Kolicina As Zaliha, SA.Vrednost  As Vr_Zaliha,
                    P.Vr_Krajna, P.Kolicina
                    From #TmpArt A
                    Left Outer Join #TmpProd P On A.Sifra_Art=P.Sifra_Art
                    Left Outer Join #TmpZal SA On A.Sifra_Art=SA.Sifra_Art
                    WHERE 1=1 AND (SA.Kolicina<>0 OR P.Kolicina<>0)'
        IF @So_NulaProd <> 'D'
            Set @SSQL = @SSQL + ' AND P.Kolicina <>0 '
        Set @SSQL = @SSQL +  ' Order By P.Vr_Krajna DESC'

        Exec(@SSQL)
    End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analiza_abc_komint_oe]'))
drop procedure [dbo].[sp_analiza_abc_komint_oe]

Go

CREATE          PROCEDURE sp_Analiza_ABC_Komint_Oe
    @Datum_Od     Smalldatetime,
    @Datum_Do     Smalldatetime,
    @Sifra_OE     varchar(300) = NULL,
    @KF_OE        char(1)  = 'N',
    @Sifra_Podg   varchar(200) = NULL,
    @KF_Podg      char(1) = 'N',
    @Sifra_Gr     varchar(200) = NULL,
    @KF_Gr        char(1) = 'N',
    @Kto          varchar(200) = NULL,
    @KF_Kto       char(1) = 'N',
    @Sifra_Brand  varchar(200) = NULL,
    @KF_Brand     char(1) = 'N',
    @Lokacija     varchar(10) = NULL,
    @KF_Lokacija  char(1) = 'N',
    @SoDanok      Char(1) = 'D',
    @NegZalihaKako0  char(1) = 'D',  -- Ne se koristi (treba da se napravi prvo zalihata po artikli za da moze da se koristi; momentalno zalihata ja zema vrednosno po OE ili po Komint)
    @TekZaliha    char(1) = 'D',
    @IskluciKup   varchar(200) = '660660, 660663, 021000',        --ova ne se koristi
    @TipDokProd   varchar(200) = '100,101,60',
    @Kolku        int = NULL,
    @So_NulaProd    char(1)='D',
    @BazaPreth    varchar(20) = Null,
    @PrikaziSto    char(1) = 'D'    -- D - Kto (Dobavuvac)    O - Org.Ed (Market)
AS
    Declare @RazlDen as smallint
    If @Datum_Od Is Not Null And @Datum_Do Is Not Null
        Set @RazlDen = datediff(Day, @Datum_Od, @Datum_Do)
    Else
        Set @RazlDen = 1
    Create Table #Rez
    (
     Sifra             Varchar(20),
     VredZal          Decimal(18, 6),
     VredProd       Decimal(18, 6)
    )
    CREATE NONCLUSTERED INDEX IX_TmpRez ON #Rez
        (Sifra) ON [PRIMARY]
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(2000)
    Declare @SOE Varchar(2000)
    Declare @SOsn Varchar(2000)
    Declare @SKto Varchar(2000)
    SET @SSQLUsl = ''
    SET @SOE = ''
    SET @SOsn = ''
    SET @SKto = ''
    If @Sifra_OE Is Not NULL
        Begin
        If @KF_OE = 'N'
             Set @SOE = @SOE + 'AND S.Sifra_OE  IN (' + @Sifra_OE  + ') '
        Else
               Set @SOE = @SOE + 'AND S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Sifra_Podg Is Not NULL
        Begin
        If @KF_Podg = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Podg NOT IN (' + @Sifra_Podg  + ') '
        End
    If @Sifra_Gr Is Not NULL
        Begin
        If @KF_Gr = 'N'
                Set @SOsn = @SOsn + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
        Else
            Set @SOsn = @SOsn + 'And P.Sifra_Gr NOT IN (' + @Sifra_Gr  + ') '
        End
    If @Sifra_Brand Is Not NULL
        Begin
        If @KF_Brand = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Drg NOT IN (' + @Sifra_Brand  + ') '
        End
    If @Lokacija Is Not NULL
    Begin
        If @KF_Lokacija  = 'N'
            Set @SOsn = @SOsn + 'And K.Lokacija = ''' + @Lokacija + ''' '
        Else
            Set @SOsn = @SOsn + 'And K.Lokacija <> ''' + @Lokacija + ''' '
    End
    If @Kto Is Not NULL
        Begin
        If @KF_Kto = 'N'
                Set @SKto = @SKto + 'And K.Kto IN (' + @Kto  + ') '
        Else
            Set @SKto = @SKto + 'And K.Kto NOT IN (' + @Kto  + ') '
        End
--    SET @SSQL = 'SELECT K.Sifra_Art, K.ImeArt FROM KatArt K '
--    IF @Sifra_Gr is Not NULL
--        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.SifRa_Podg '
--    SET @SSQL = @SSQL + ' WHERE 1=1 ' + @SOsn
--    INSERT INTO #TmpArt EXEC (@SSQL)
    SET @SSQLUsl = @SOE + @SOsn + @SKto
    If @TekZaliha = 'D'
       Begin
        If @PrikaziSto = 'K'
            Set @SSQL = ' SELECT K.Kto, '
        Else
            Set @SSQL = ' SELECT S.Sifra_Oe, '
        If @SoDanok = 'D'
            Set @SSQL = @SSQL + ' SUM((S.Vlez - S.Izlez) * (Case When S.DanCena = ''N'' Then S.Cena*(1+S.POsn/100) Else S.Cena End)) VrednostZal, '
        Else -- If @SoDanok = 'N'
            Set @SSQL = @SSQL + ' SUM((S.Vlez - S.Izlez) * (Case When S.DanCena = ''D'' Then S.Cena/(1+S.POsn/100) Else S.Cena End)) VrednostZal, '
        Set @SSQL = @SSQL + ' 0 as VredProd
                      FROM Soart S
                      Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi P ON P.Sifra_Podg = K.Sifra_Podg
                      WHERE 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl
        If @PrikaziSto = 'K'
            Set @SSQL = @SSQL + ' GROUP BY K.Kto '
        Else
            Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Oe '
        Insert Into #Rez EXEC (@SSQL)
        End
    Else
        Begin
        SET @SSQL = ' SELECT S.Sifra_OE, S.Sifra_Art,
                SUM(CASE WHEN S.VlIzl = ''V'' THEN S.Kolic ELSE 0 END) Vlez,
                SUM(CASE WHEN S.VlIzl = ''I'' THEN S.Kolic ELSE 0 END) Izlez
                FROM Stavr  S
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Inner Join Podgrupi P ON P.Sifra_Podg = K.Sifra_Podg
                WHERE  S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '+ @SSQLUsl +
                ' GROUP BY S.Sifra_OE, S.Sifra_Art '
        CREATE TABLE #PrometArt
        (
          Sifra_OE  smallint,
          Sifra_Art  Varchar(20),
          Vlez Decimal (18,4),
          Izlez Decimal (18,4),
          Cena Decimal(18,4)
        )
        INSERT INTO #PrometArt (Sifra_OE, Sifra_Art, Vlez, Izlez) EXEC(@SSQL)
        -- Sega za cenata da vidime
        UPDATE #PrometArt SET Cena = dbo.fn_CenaDatum (#PrometArt.Sifra_OE,#PrometArt.Sifra_Art,@Datum_Do,@SoDanok)
        If @PrikaziSto = 'K'
            INSERT INTO #Rez
            SELECT K.Kto, SUM((P.Vlez - P.Izlez) * P.Cena) As VrednostZal, 0 as VredProd
            FROM #PrometArt P
            Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
            GROUP BY K.Kto
        Else
            INSERT INTO #Rez
            SELECT P.Sifra_Oe, SUM((P.Vlez - P.Izlez) * P.Cena) As VrednostZal, 0 as VredProd
            FROM #PrometArt P
            GROUP BY P.Sifra_Oe
       End    --    If @NegZalihaKako0 = 'D'
--        UPDATE #Rez SET VredZal = 0 WHERE VredZal < 0
    -------------- Sega prodazba -----------------
    Set @SSQLUsl = ' '
    If @PrikaziSto = 'K'
        Set @SSQL = ' SELECT S.Dobav, 0 as VredZal, '
    Else
        Set @SSQL = ' SELECT S.Sifra_Oe, 0 as VredZal, '
    If @SoDanok = 'D'
        Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) As Vr_Krajna '
    Else   -- If @SoDanok = 'N'
        Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena / (1+S.Posn/100) * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) As Vr_Krajna '
    Set @SSQL = @SSQL + ' From Stavr S
        Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
        Inner Join Podgrupi P ON P.Sifra_Podg = K.Sifra_Podg
        Inner Join Dokr D On S.DokrID = D.DokrID
        Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '
    If @TipDokProd is NOT null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Kto Is Not NULL
        Begin
        If @KF_Kto = 'N'
                Set @SKto = @SKto + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SKto = @SKto + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    Set @SSQL = @SSQL + @SSQLUsl + @SOE + @SOsn + @SKto
    If @PrikaziSto = 'K'
        Set @SSQL = @SSQL +  'Group By S.Dobav '
    Else
        Set @SSQL = @SSQL +  'Group By S.Sifra_Oe '
    Print @SSQL
    INSERT #Rez EXEC(@SSQL)
/*    --------------------------------------------------------------------------- So Paralelna (Prethodna) baza ----------------------------------------------------------------------------------------------
    If @BazaPreth Is Not Null
    Begin
        If @SoDanok = 'D'
            Set @SSQL = @SSQL + ' Sum(Case
                        When S.DanDokCena=''N'' Then
                          (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                        Else
                          (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                        End) As Vr_Krajna '
        Else   -- If @SoDanok = 'N'
            Set @SSQL = @SSQL + ' Sum(Case
                        When S.DanDokCena=''N'' Then
                          (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                        Else
                          (S.Kolic * S.DokCena / (1+S.Posn/100) * (1-S.Uces/100)*(1-D.Kasa/100))
                        End) As Vr_Krajna '
        --Sum(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, ''' + @SoDanok+''')) As Vr_Krajna
        Set @SSQL = @SSQL + ' From ' + @BazaPreth + '..Stavr S
            Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
            Inner Join  ' + @BazaPreth + '..Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
        INSERT #TmpProd EXEC(@SSQL+@SSQLUsl)
        CREATE TABLE #TmpProdBaza2
        (    Sifra_Art    varchar(20),
            Kolicina        decimal(18,6),
            Vr_Krajna    decimal(18,6))
        CREATE NONCLUSTERED INDEX IX_TmpProdB2 ON #TmpProdBaza2
            (Sifra_Art) ON [PRIMARY]
        Insert Into #TmpProdBaza2
        Select Sifra_Art, Sum(Kolicina), Sum(Vr_Krajna)
        From #TmpProd
        Group By Sifra_Art
        Set @SSQL = 'Select '
        If @Kolku Is Not NULL
            Set @SSQL = @SSQL + 'TOP ' + Cast(@Kolku as varchar(6)) + ' '    --K.Iskluci <> ''D'' And
        Set @SSQL = @SSQL + 'A.Sifra_Art, A.ImeArt, SA.Kolicina As Zaliha, SA.Vrednost  As Vr_Zaliha,
                    P.Vr_Krajna, P.Kolicina
                    From #TmpArt A
                    Left Outer Join #TmpProdBaza2 P On A.Sifra_Art=P.Sifra_Art
                    Left Outer Join #TmpZal SA On A.Sifra_Art=SA.Sifra_Art
                    WHERE 1=1 AND (SA.Kolicina<>0 OR P.Kolicina<>0)'
        IF @So_NulaProd <> 'D'
            Set @SSQL = @SSQL + ' AND P.Kolicina <>0 '
        Set @SSQL = @SSQL + ' Order By P.Vr_Krajna DESC'
        Exec(@SSQL)
    End
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Else   -- Ako nemame vtora baza
*/
--    Begin
        -- Rezultati
    Create Table #PomRez
    (
     Sifra             Varchar(20),
     VredZal          Decimal(18, 6),
     VredProd       Decimal(18, 6)
    )
    Insert Into #PomRez
    Select Sifra, Sum(VredZal), Sum(VredProd) From #Rez Group By Sifra
    If @PrikaziSto = 'K'
        Set @SSQL = ' Select R.Sifra, Kup.ImeKup as Ime, Kup.Rok_Dobav, Sum(R.VredZal) VredZal,
                    Sum(R.VredProd) VredProd, Round(Sum(Case When R.VredProd <> 0 Then R.VredZal / R.VredProd * ' + Cast(@RazlDen as varchar(5)) + ' Else 0 End), 4) KumulDenovi
                From #PomRez R
                Inner Join Komint Kup On Kup.Sifra_Kup = R.Sifra
                Group By R.Sifra, Kup.ImeKup, Kup.Rok_Dobav '
    Else
        Set @SSQL = ' Select R.Sifra, O.ImeOrg as Ime, Null as Rok_Dobav,
                    Sum(R.VredZal) VredZal, Round(Sum(Case When R.VredProd <> 0 Then R.VredZal / R.VredProd * ' + Cast(@RazlDen as varchar(5)) + ' Else 0 End), 4) KumulDenovi
                From #PomRez R
                Inner Join Orged O On O.Sifra_Oe = R.Sifra
                Group By R.Sifra, O.ImeOrg '
    IF @So_NulaProd <> 'D'
        Set @SSQL = @SSQL + ' HAVING Sum(R.VredProd) <>0 '
    Set @SSQL = @SSQL +  ' Order By R.Sifra '
print @SSQL
    Exec(@SSQL)
--    End





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analiza_toplista]'))
drop procedure [dbo].[sp_analiza_toplista]

Go

CREATE              PROCEDURE sp_Analiza_TopLista
    @Sifra_OE Smallint,
    @KoiOE Varchar(300),
    @Pod1 Smallint,
    @Pod2 Smallint,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Art_Od Varchar(20),
    @Sifra_Art_Do Varchar(20),
    @Sifra_Kup_Od Char(6),
    @Sifra_Kup_Do Char(6),
    @Podred Char(1),
    @Kolku Int,
    @Kto Char(6),
    @Sifra_Gr varChar(6),
    @Sifra_Podg Char(6),
    @Lokacija Varchar(10),
    @TipKup Char(11),
    @Komint_KObj Char(1),
    @Sifra_Brand Smallint,
    @Sifra_Zbiren Smallint,
    @Koi_Gradovi Varchar(200),
    @Koi_Regioni Varchar(200) = Null,
    @Sifra_Mest Int = Null,
    @PoProdMesta char(1)='N',
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    If @Kolku Is Not NULL
        Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(6)) + ' '
    Else
        Set @SSQL = 'Select '
    Set @SSQL =    @SSQL + 'S.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera,
            K.Alt_Sifra, K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            Round(Sum(S.Kolic), 4) As Kolicina,
            Count(S.DokID) As Izlezi,
            Round(Sum(dbo.fn_vr_osnov(S.Kolic, S.DokCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna,
            Round(Sum(S.Kolic*K.GotCena), 4) As Vr_NPS, '
    If @PoProdMesta = 'D'
        Set @SSQL=@SSQL + ' Count(Distinct D.Sifra_Mest) As Komintenti, '
    Else
    Begin
        If @Komint_KObj = 'K'
            Set @SSQL =    @SSQL + 'Count(Distinct D.Sifra_Kup) As Komintenti, '
        Else If @Komint_KObj = 'O'
            Set @SSQL =    @SSQL + 'Count(Distinct D.Sifra_Obj) As Komintenti, '
    End
    Set @SSQL = @SSQL + ' Min(D.Datum_Dok) As DatPrvaProd, '
    Set @SSQL = @SSQL + ' Max(D.Datum_Dok) As DatPoslProd '
    Set @SSQL = @SSQL + 'From Stavr S
                Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
                Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1 '
    If @Sifra_Zbiren Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + ' Inner Join ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_Brand Is Not NULL And @Sifra_Zbiren Is Null
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    Else
        If @Sifra_Brand Is NUll And @Sifra_Zbiren Is Not Null
            Set @SSQL = @SSQL + ' And B.Sifra_Drg1=''' + Cast(@Sifra_Zbiren As Varchar(5)) + ''' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
--    If @Pod5 Is Not NULL
--        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Sifra_Mest Is Not NULL
        Set @SSQL  = @SSQL + ' And D.Sifra_Mest=' + Cast(@Sifra_Mest As Varchar(6)) + ' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, K.Alt_Sifra, K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By S.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna Desc '
Print @SSQL
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analizananaracki]'))
drop procedure [dbo].[sp_analizananaracki]

Go
CREATE         PROCEDURE sp_AnalizaNaNaracki
    @Sifra_OE_Prod Smallint = Null,
    @KoiOE_Prod char(10) = Null,
    @Sifra_OE_Zal Smallint = Null,
    @KoiOE_Zal char(10) = Null,
    @Sifra_OE_Nar Smallint = Null,
    @Kto Char(6) = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Podred Char(1) = Null,
    @Sifra_Gr varChar(6) = Null,
    @PocnuvaSo Char(1)=Null,
    @Sifra_Podg Char(6) = Null,
    @Sifra_Dok_Priem smallint= Null,
    @Sifra_Nar smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLDat Varchar(8000)
    Declare @SSQLGroup Varchar(8000)
    Declare @SSQLOe Varchar(8000)
    Set @SSQLUsl = ' '
    Set @SSQLDat = ' '
    Set @SSQLGroup = ' '
    Set @SSQLOe = ' '
    CREATE TABLE #Narac
    (
        Sifra_Art     Varchar(20),
        Zaliha        decimal(18,6),
        Prodazba    decimal(18,6),
        KolPoslPriem    decimal(18,6),
        DatPoslPriem    smalldatetime,
        KolPoslNar    decimal(18,6),
        DatposlNar    smalldatetime,
        NarId        int,
        Realiziran    char(1)
    )
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---- Gi vmetnuvame site sifri na artikli koi go zadovoluvaat uslovot za da ne se ispusti nekoja zaliha ili prodazba
    Set @SSQL = ' Select Katart.Sifra_Art, 0, 0, 0, Null, 0, Null, Null , Null
            From Katart '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL=@SSQL + ' Where 1=1 '
----------------------------------------------------------------  U  S  L  O  V -----------------------------------------------------------------------
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Katart.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Katart.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo = 'D'
            Set @SSQL = @SSQL + 'And Katart.Sifra_Podg Like ''' + Rtrim(@Sifra_Podg) + '%'' '
        Else
            Set @SSQL = @SSQL + 'And Katart.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Podgrupi.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Katart.Kto=' + @Kto + ' '
------------------------------------------------------------------------------------------------------------------------------------------------------------
Print @SSQL+@SSQLUsl
    Insert Into #Narac Exec(@SSQL+@SSQLUsl)
---------------------------------------------------------------- Z A L I H A ------------------------------------------------------------------------
-- Sega ke ja presmetame Zalihata
    Set @SSQL = 'Update #Narac Set Zaliha = (Select Sum(Soart.Vlez-Soart.Izlez)
        From Soart
        Inner Join KatArt ON Soart.Sifra_Art=Katart.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where #Narac.Sifra_Art = Soart.Sifra_Art and Katart.Iskluci <> ''D'' '
-----------------------------------------------
    If @Sifra_OE_Zal Is Not NULL
             Set @SSQLOe  = @SSQLOe + ' And Soart.Sifra_OE=' + Cast(@Sifra_OE_Zal As Varchar(5)) + ' '
    If @KoiOE_Zal Is Not NULL
             Set @SSQLOe  = @SSQLOe + ' And Soart.Sifra_OE IN (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOE_Zal + ''') '
------------------------------------------------------------------ G R O U P ---------------------------------------------------------------------------
    Set @SSQLGroup = @SSQLGroup + 'Group By Soart.Sifra_Art) '
Print @SSQL+@SSQLUsl+@SSQLOe+@SSQLGroup
    Insert Into #Narac Exec(@SSQL+@SSQLUsl+@SSQLOe+@SSQLGroup)
---------------------------------------------------------------- P R O D A Z B A ----------------------------------------------------------------
--- Sega ja presmetuvame prodazbata
    Set @SSQLOe=' '
    Set @SSQLGroup=' '
    Set @SSQL = 'Update #Narac Set #Narac.Prodazba= (Select Round(Sum(Stavr.Kolic), 4)
        From Stavr
        Inner Join KatArt ON Stavr.Sifra_Art=Katart.Sifra_Art
        Inner Join Dokr ON Stavr.DokrID=Dokr.DokrID And (Dokr.Sifra_Za = ''1'') '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where #Narac.Sifra_Art = Stavr.Sifra_Art and Katart.Iskluci <> ''D'' '
    If @Datum_Od Is Not NULL
        Set @SSQLDat = @SSQLDat + ' And Stavr.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLDat = @SSQLDat + ' And Stavr.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @Sifra_OE_Prod Is Not NULL
             Set @SSQLOe  = @SSQLOe + ' And Stavr.Sifra_OE=' + Cast(@Sifra_OE_Prod As Varchar(5)) + ' '
    If @KoiOE_Prod Is Not NULL
             Set @SSQLOe  = @SSQLOe + ' And Stavr.Sifra_OE IN (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOE_Prod + ''') '
    Set @SSQLGroup = @SSQLGroup + 'Group By Stavr.Sifra_Art) '
print @SSQL+@SSQLUsl+@SSQLOe+@SSQLDat+@SSQLGroup
    Insert #Narac Exec(@SSQL+@SSQLUsl+@SSQLOe+@SSQLDat+@SSQLGroup)
------------------------------------------------ P O S L E D N A   N A B A V K A  --------------------------------------------------------------------
-- Da ja najdime Kolicinata na poslednata nabavka
-------------------------------------------------------------------------------
    Set @SSQLGroup = ' '
    Set @SSQL = 'Update #Narac  Set KolPoslPriem = ( '
    Set @SSQL = @SSQL + 'Select Top 1 Kolic From Stavr
                Inner Join Katart On Katart.Sifra_Art = Stavr.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where Stavr.Sifra_Art=#NArac.Sifra_Art  And Stavr.ImaDodatna Is Null
                And Stavr.VlIzl=''V''  And Stavr.Sifra_Dok<>990  And Stavr.Kolic > 0 '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Stavr.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Dok_Priem Is Not Null
        Set @SSQL = @SSQL + 'And Stavr.Sifra_Dok = ''' + Cast(@Sifra_Dok_Priem As Varchar(10)) + ''' '
    Set @SSQLGroup = @SSQLGroup + 'Order By Stavr.Datum_Dok Desc, Stavr.DokID Desc) '
    Exec(@SSQL+@SSQLUsl+@SSQLOe+@SSQLGroup)
    Set @SSQLGroup = ' '
    Set @SSQL = 'Update #Narac  Set DatPoslPriem = ( '
    Set @SSQL = @SSQL + 'Select Top 1 Datum_Dok From Stavr
                Inner Join Katart On Katart.Sifra_Art = Stavr.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where Stavr.Sifra_Art=#NArac.Sifra_Art  And Stavr.ImaDodatna Is Null
                And Stavr.VlIzl=''V''  And Stavr.Sifra_Dok<>990  And Stavr.Kolic > 0 '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Stavr.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Dok_Priem Is Not Null
        Set @SSQL = @SSQL + 'And Stavr.Sifra_Dok = ''' + Cast(@Sifra_Dok_Priem As Varchar(10)) + ''' '
    Set @SSQLGroup = @SSQLGroup + 'Order By Stavr.Datum_Dok Desc, Stavr.DokID Desc) '
Print @SSQL+@SSQLUsl+@SSQLOe+@SSQLGroup
    Exec(@SSQL+@SSQLUsl+@SSQLOe+@SSQLGroup)
------------------------------------------------ P O S L E D N A   N A R A C K A  --------------------------------------------------------------------
-- Da ja najdime Kolicinata na poslednata naracka
-------------------------------------------------------------------------------
    Set @SSQLGroup = ' '
    Set @SSQLOe=' '
    Set @SSQL = 'Update #Narac  Set KolPoslNar = ( '
    Set @SSQL = @SSQL + 'Select Top 1 Kolic From StaNarac
                Inner Join Naracki On Naracki.NarId=StaNarac.NarId
                Inner Join Katart On Katart.Sifra_Art = StaNarac.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL=@SSQL + ' Where StaNarac.Sifra_Art=#Narac.Sifra_Art '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Naracki.Datum_Nar <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + 'And Naracki.Sifra_Nar = ''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_OE_Nar Is Not NULL
             Set @SSQL  = @SSQL + ' And Naracki.Sifra_OE=' + Cast(@Sifra_OE_Nar As Varchar(5)) + ' '
    Set @SSQLGroup = @SSQLGroup + 'Order By Naracki.Datum_Nar Desc, Naracki.NarID Desc) '
Print @SSQL+@SSQLUsl+@SSQLGroup
    Exec(@SSQL+@SSQLUsl+@SSQLGroup)
    Set @SSQLGroup = ' '
    Set @SSQL = 'Update #Narac  Set NarId = ( '
    Set @SSQL = @SSQL + 'Select Top 1 Naracki.NarId From Naracki
                Inner Join StaNarac On Naracki.NarId=StaNarac.NarId
                Inner Join Katart On Katart.Sifra_Art = StaNarac.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi On Katart.Sifra_Podg=Podgrupi.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where StaNarac.Sifra_Art=#Narac.Sifra_Art '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Naracki.Datum_Nar <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + 'And Naracki.Sifra_Nar = ''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_OE_Nar Is Not NULL
             Set @SSQL  = @SSQL + ' And Naracki.Sifra_OE=' + Cast(@Sifra_OE_Nar As Varchar(5)) + ' '
    Set @SSQLGroup = @SSQLGroup + 'Order By Naracki.Datum_Nar Desc, Naracki.NarID Desc) '
Print @SSQL+@SSQLUsl+@SSQLGroup
    Exec(@SSQL+@SSQLUsl+@SSQLGroup)
    Update #Narac
    Set #Narac.DatPoslNar=Naracki.Datum_Nar, #Narac.Realiziran=Naracki.Stat_Nar
    From Naracki
    Where Naracki.NarId=#Narac.NarId
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = ' Select N.Sifra_Art, K.ImeArt, N.Zaliha, N.Prodazba, N.KolPoslPriem, N.DatPoslPriem, N.KolPoslNar, N.DatposlNar, N.Realiziran,
            K.EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina, K.Volumen
        From #Narac N
        Inner Join Katart K On K.Sifra_Art = N.Sifra_Art '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By N.Sifra_Art '
    If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
    Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analizanaprodazba]'))
drop procedure [dbo].[sp_analizanaprodazba]

Go
CREATE        PROCEDURE sp_AnalizaNaProdazba
    @KoiOE     varchar(300) = Null,
    @Datum_Od     smalldatetime = Null,
    @Datum_Do     smalldatetime = Null,
    @Sifra_Art_Od     varchar(20)= Null,
    @Sifra_Art_Do     varchar(20) = Null,
    @Podred     char(1) = 'S',
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
    @TipDokProd    varchar(300) = Null,
    @DenoviIspor     smallint = 7,
    @Plan        decimal(18,6) = Null,
    @BrojNaDenovi    smallint = Null,
    @KojIzv    char(1) = 'P'    -- P - Planing based on sales        R - Reversibility ratio based on the sales
                    --      Mora     @DenoviIspor            Mora  @BrojNaDenovi
                    --                   @Plan
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)
    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '
    Create Table #Rez
    (
     Sifra_Art        varchar(20),
     Kolic            decimal(18,6),
     Nabavna        decimal(18,6),
     KojaVal        char(3),
     ProsCena        decimal(18,6),
     Vrednost        decimal(18,6),
     ProcOdVkProd        decimal(18,6),
      PlanH            decimal(18,6),
     DogCena        decimal(18,6),
     VredPlan        decimal(18,6),
     ZalihaTekovna        decimal(18,6),
     OcekuvProdazba    decimal(18,6),
     VredZaliha        decimal(18,6),
     Odnos_Ratio        decimal(18,6)
    )
    ---------------------------------------------------------------------------- U S L O V --------------------------------------------------------------------------------------------
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @TipDokProd IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------------------- U S L O V    P O    A R T I L K I ----------------------------------------------------------------------------
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Podg = ' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And PG.Sifra_Gr = ' + @Sifra_Gr + ' '
    If @Kto Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Kto=' + @Kto + ' '
    -----------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = 'Select S.Sifra_Art, Sum(S.Kolic), K.Nabavna, '
    If @KojIzv = 'R'
        Set @SSQL = @SSQL + ' D.KojaVal, '
    Else
        Set @SSQL = @SSQL + ' Null KojaVal, '
    Set @SSQL = @SSQL + ' Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Krajna,
            K.DogCena             From Stavr S
            Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
            Inner Join Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    Set @SSQL = @SSQL + @SSQLUsl + @SSQLUslArt + ' Group By S.Sifra_Art, K.DogCena, K.Nabavna '
    If @KojIzv = 'R'
        Set @SSQL = @SSQL + ', D.KojaVal '
    print @SSQL
    Insert #Rez(Sifra_Art, Kolic, Nabavna, KojaVal, Vrednost, DogCena) Exec(@SSQL)
    ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------------------------------- Z A L I H A  ----------------------------------------------------------------------
    Set @SSQL = 'Update #Rez
            Set ZalihaTekovna = (Select Sum(Vlez)-Sum(Izlez) From Soart Where 1=1 '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (' + @KoiOE + ') '
    Set @SSQL = @SSQL + ' And #Rez.Sifra_Art=Soart.Sifra_Art) '
    Exec(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------
    Declare @VkProd decimal(18,6)
    Set @VkProd = (Select Sum(Vrednost) From #Rez)
    Update #Rez Set ProsCena = (Case When Kolic <> 0 Then Vrednost/Kolic Else 0 End),
            ProcOdVkProd = (Case When @VkProd <> 0 Then Vrednost * 100 / @VkProd Else 0 End)
    If @KojIzv = 'R'
    Begin
        Update #Rez Set VredZaliha = ZalihaTekovna * DogCena
        Update #Rez Set Odnos_Ratio = (Case When Kolic <> 0 Then ((VredZaliha/Kolic) * (DateDiff(Day, @Datum_Od, @Datum_Do)+1) / @BrojNaDenovi) Else Null End)
    End
    Else
    Begin
        Update #Rez Set PlanH = (Case When DogCena <> 0 Then (ProcOdVkProd * @Plan) / (DogCena * 100) Else 0 End)
        Update #Rez Set VredPlan = PlanH * DogCena
        Update #rez Set OcekuvProdazba = Kolic * @DenoviIspor / DateDiff(Day, @Datum_Od, @Datum_Do) + 1
    End
    Select R.Sifra_Art, K.ImeArt, R.Kolic, K.EdMera, R.ProsCena, R.Vrednost, R.ProcOdVkProd, R.PlanH, R.DogCena,
        R.Nabavna, KL.ImeVal, R.VredPlan, R.ZalihaTekovna, 0 as ZalihaNaPat, R.ZalihaTekovna as VkupnaZal, R.OcekuvProdazba,
        (Case When R.PlanH-(ZalihaTekovna-OcekuvProdazba) > 0 Then R.PlanH - (Case When (ZalihaTekovna-OcekuvProdazba) > 0 Then (ZalihaTekovna-OcekuvProdazba) Else 0 End) Else 0 End) Nedostasuva,
        (Case When R.PlanH-(ZalihaTekovna-OcekuvProdazba) <= 0 Then R.PlanH - (Case When (ZalihaTekovna-OcekuvProdazba) > 0 Then (ZalihaTekovna-OcekuvProdazba) Else 0 End) Else 0 End) Vissok,
        R.VredZaliha, R.Odnos_Ratio
    From #Rez R
    Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
    Left Outer Join KrsLista KL On KL.SImeVal=R.KojaVal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkart]'))
drop procedure [dbo].[sp_analkart]

Go

CREATE        PROCEDURE sp_AnalKart
    @Kto_Anal Char(10) = NULL,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Sifra_OE smallint = NULL,
    @Kto_Sint  char(3) = NULL,
    @Tek_Godina int = NULL,      --YEAR(GETDATE())
    @Sifra_Nal smallint = NULL,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null,
    @KoiOe varchar(6) = Null
AS
    Declare @SSQL Varchar(3000)
    Declare @God    smallint
    Set @SSQL = ''
    If @Datum_Nal_Od Is Not Null
        Set @God = YEAR(@Datum_Nal_Od)
    ELSE
        Set @God = @Tek_Godina
    If Not (@Datum_Nal_Od Is Null AND @Datum_Dok_Od Is Null)
        Begin
            Set @SSQL = @SSQL + 'Select NULL AS kto_Anal, Null As Datum_Nal, Null As Sifra_Nal, Null As Broj_Nal, Null As Datum_Dok,
                        ''Prethoden Promet'' As Opis, G.KojaVal, V.ImeVal, G.Opis2,
                        Sum(G.Dolzi) As Preth_Dolzi,
                        Sum(G.Pobaruva) As Preth_Pobaruva,
                        Sum(G.Dev_Dolzi) as Preth_Dev_Dolzi,
                        Sum(G.Dev_Pobaruva) as Preth_Dev_Pobaruva,
                        0 As Tek_Dolzi,
                        0 As Tek_Pobaruva,
                        0 As Tek_Dev_Dolzi,
                        0 As Tek_Dev_Pobar,
                        G.Sifra_Oe,
                        O.ImeOrg
            From GStav G
            LEFT OUTER JOIN KrsLista V ON G.KojaVal=V.SImeVal
            LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
            Where '
            If @Kto_Sint Is Null
                Set @SSQL = @SSQL + 'G.Kto_Anal=''' + @Kto_Anal + ''' '
            Else
                Set @SSQL = @SSQL + 'SUBSTRING(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
            If @Sifra_OE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
            If @KoiOE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
            If @Sifra_Nal Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
            If @Datum_Nal_Od Is Not Null
                Set @SSQL = @SSQL + ' AND G.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @Datum_Dok_Od Is Not Null
                Set @SSQL = @SSQL + 'And G.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @KojaVal Is Not Null
                Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
            If @Sifra_Div Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
            SET @SSQL = @SSQL + ' GROUP BY G.KojaVal, V.ImeVal, G.Opis2, G.Sifra_Oe, O.ImeOrg '
            Set @SSQL = @SSQL + 'Union ALL '
        End
    Set @SSQL = @SSQL + 'Select G.Kto_Anal, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Datum_Dok, G.Opis, G.KojaVal, V.ImeVal, G.Opis2,
            0 As Preth_Dolzi,
            0 As Preth_Pobaruva,
            0 As Preth_Dev_Dolzi,
            0 As Preth_Dev_Pobaruva,
            G.Dolzi As Tek_Dolzi,
            G.Pobaruva As Tek_Pobaruva,
            G.Dev_Dolzi As Tek_Dev_Dolzi,
            G.Dev_Pobaruva As Tek_Dev_Pobar,
            G.Sifra_Oe,
            O.ImeOrg
        From GStav G
        LEFT OUTER JOIN KrsLista V ON G.KojaVal = V.SimeVal
        LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
        Where '
    If @Kto_Sint Is Null
        Set @SSQL = @SSQL + 'G.Kto_Anal=''' + @Kto_Anal + ''' '
    Else
        Set @SSQL = @SSQL + 'SUBSTRING(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
    If @Datum_Nal_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(30)) + ''' '
    If @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
    If @KojaVal Is Not Null
        Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    --Set @SSQL = @SSQL + 'Order By G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Sifra_Oe '
--print(@ssql)
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkart_divizii]'))
drop procedure [dbo].[sp_analkart_divizii]

Go





CREATE            PROCEDURE sp_AnalKart_Divizii
    @Kto_Anal Char(10) = NULL,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Sifra_OE smallint = NULL,
    @Kto_Sint  char(3) = NULL,
    @Tek_Godina int = NULL,      --YEAR(GETDATE())
    @Sifra_Nal smallint = NULL,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null,
    @KoiOe varchar(6) = Null,
        @Sifra_TrosM    varchar(500) = Null,
        @Sifra_TrosV    varchar(500) = Null,
        @Sifra_4Tros    varchar(500) = Null
AS
    Declare @SSQL Varchar(8000)
    Declare @God    smallint
    Set @SSQL = ''
    If @Datum_Nal_Od Is Not Null
        Set @God = YEAR(@Datum_Nal_Od)
    ELSE
        Set @God = @Tek_Godina
    If Not (@Datum_Nal_Od Is Null AND @Datum_Dok_Od Is Null)
        Begin
            Set @SSQL = @SSQL + 'Select GD.Sifra_Div, NULL AS kto_Anal, Null As Datum_Nal, Null As Sifra_Nal, Null As Broj_Nal, Null As Datum_Dok,
                        ''Prethoden Promet'' As Opis, G.KojaVal, V.ImeVal, G.Opis2,
                        Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Preth_Dolzi,
                        Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Preth_Pobaruva,
                        Sum(Case When G.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / G.Kurs Else 0 End) as Preth_Dev_Dolzi,
                        Sum(Case When G.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / G.Kurs Else 0 End) as Preth_Dev_Pobaruva,
                        0 As Tek_Dolzi,
                        0 As Tek_Pobaruva,
                        0 As Tek_Dev_Dolzi,
                        0 As Tek_Dev_Pobar,
                        G.Sifra_Oe,
                        O.ImeOrg, Div.ImeDiv, GD.Sifra_TrosM, TM.ImeTrosM, GD.Sifra_TrosV, TV.ImeTrosV, GD.Sifra_4Tros, T4.Ime4Tros
            From GStav G
            INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
            LEFT OUTER JOIN KrsLista V ON G.KojaVal=V.SImeVal
            LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
            LEFT OUTER JOIN Divizii Div On Div.Sifra_Div=GD.Sifra_Div
            LEFT OUTER Join TrosokMesto TM ON GD.Sifra_TrosM=TM.Sifra_TrosM
            LEFT OUTER Join TrosokVid TV ON GD.Sifra_TrosV=TV.Sifra_TrosV
            LEFT OUTER Join Trosok4Tip T4 ON GD.Sifra_4Tros=T4.Sifra_4Tros
            Where '
            If @Kto_Sint Is Null
                Set @SSQL = @SSQL + 'G.Kto_Anal=''' + @Kto_Anal + ''' '
            Else
                Set @SSQL = @SSQL + 'SUBSTRING(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
            If @Sifra_OE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
            If @KoiOE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
            If @Sifra_Nal Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
            If @Datum_Nal_Od Is Not Null
                Set @SSQL = @SSQL + ' AND G.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @Datum_Dok_Od Is Not Null
                Set @SSQL = @SSQL + 'And G.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @KojaVal Is Not Null
                Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
            If @Sifra_Div Is Not Null
                Set @SSQL = @SSQL + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
            If @Sifra_TrosM Is Not Null
                Set @SSQL = @SSQL + ' And GD.Sifra_TrosM In (' + @Sifra_TrosM + ') '
                         If @Sifra_TrosV Is Not Null
                Set @SSQL = @SSQL + ' And GD.Sifra_TrosV In (' + @Sifra_TrosV + ') '
                     If @Sifra_4Tros Is Not Null
                Set @SSQL = @SSQL + ' And GD.Sifra_4Tros In (' + @Sifra_4Tros + ') '
            SET @SSQL = @SSQL + ' GROUP BY GD.Sifra_Div, G.KojaVal, V.ImeVal, G.Opis2, G.Sifra_Oe, O.ImeOrg, Div.ImeDiv, GD.Sifra_TrosM, TM.ImeTrosM, GD.Sifra_TrosV, TV.ImeTrosV, GD.Sifra_4Tros, T4.Ime4Tros '
            Set @SSQL = @SSQL + 'Union ALL '
        End
    Set @SSQL = @SSQL + 'Select GD.Sifra_Div, G.Kto_Anal, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Datum_Dok,
            (Case When A.AnID Is Not Null Then A.BrojDok Else G.Opis End) Opis, G.KojaVal, V.ImeVal,
            (Case When A.AnID Is Null Then G.Opis2 End) Opis2,
            0 As Preth_Dolzi,
            0 As Preth_Pobaruva,
            0 As Preth_Dev_Dolzi,
            0 As Preth_Dev_Pobaruva,
            (Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Tek_Dolzi,
            (Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Tek_Pobaruva,
            (Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else 0 End) as Tek_Dev_Dolzi,
            (Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else 0 End) as Tek_Dev_Pobar,
            G.Sifra_Oe,
            O.ImeOrg, Div.ImeDiv, GD.Sifra_TrosM, TM.ImeTrosM, GD.Sifra_TrosV, TV.ImeTrosV, GD.Sifra_4Tros, T4.Ime4Tros
        From GStav G
        INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
        LEFT OUTER JOIN AnFinDok A On A.AnID=GD.AnID
        LEFT OUTER JOIN KrsLista V ON G.KojaVal = V.SimeVal
        LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
        LEFT OUTER JOIN Divizii Div On Div.Sifra_Div=GD.Sifra_Div
        LEFT OUTER join TrosokMesto TM ON GD.Sifra_TrosM=TM.Sifra_TrosM
        LEFT OUTER join TrosokVid TV ON GD.Sifra_TrosV=TV.Sifra_TrosV
        LEFT OUTER join Trosok4Tip T4 ON GD.Sifra_4Tros=T4.Sifra_4Tros
        Where '
    If @Kto_Sint Is Null
        Set @SSQL = @SSQL + 'G.Kto_Anal=''' + @Kto_Anal + ''' '
    Else
        Set @SSQL = @SSQL + 'SUBSTRING(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
    If @Datum_Nal_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(30)) + ''' '
    If @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
    If @KojaVal Is Not Null
        Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    If @Sifra_TrosM Is Not Null
        Set @SSQL = @SSQL + ' And GD.Sifra_TrosM In (' + @Sifra_TrosM + ') '
    If @Sifra_TrosV Is Not Null
        Set @SSQL = @SSQL + ' And GD.Sifra_TrosV In (' + @Sifra_TrosV + ') '
             If @Sifra_4Tros Is Not Null
        Set @SSQL = @SSQL + ' And GD.Sifra_4Tros In (' + @Sifra_4Tros + ') '
    Set @SSQL = @SSQL + 'Order By GD.Sifra_Div, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Sifra_Oe '
print(@ssql)
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkart_povekebazi]'))
drop procedure [dbo].[sp_analkart_povekebazi]

Go
CREATE       PROCEDURE sp_AnalKart_PovekeBazi
    @Kto_Anal Char(10) = NULL,
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Sifra_OE smallint = NULL,
    @Kto_Sint  char(3) = NULL,
    @Tek_Godina int = NULL,      --YEAR(GETDATE())
    @Sifra_Nal smallint = NULL,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null,
    @KoiOe varchar(6) = Null,
    @ParalenliBazi     varchar(200) = Null
AS
    Declare @SSQL Varchar(3000)
    Declare @God    smallint
    Set @SSQL = ''
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '
    Create Table #Bazi
    (
     ImeBaza    varchar(50)
    )
    Insert Into #Bazi Select db_Name()
    If @ParalenliBazi Is Not Null
    Begin
        Declare @Poz_Delim Smallint
        Declare @Poz_Start Smallint
        Declare @BazaIme varchar(50)
        If @ParalenliBazi Is Null
            Set @ParalenliBazi = ''
        Set @Poz_Start = 0
        While 1=1
        Begin
            Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
            If @Poz_Delim = 0
                Break
            Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
            Set @Poz_Start = @Poz_Delim + 1
            Insert Into #Bazi Select @BazaIme
        End
    End
    Create Table #AnalKart
    (
     Kto_Anal    varchar(20),
     Datum_Nal    smalldatetime,
     Sifra_Nal    smallint,
     Broj_Nal    int,
     Datum_Dok    smalldatetime,
     Opis        varchar(50),
     KojaVal        varchar(3),
     Opis2        varchar(50),
     Preth_Dolzi    decimal(18,6),
     Preth_Pobaruva     decimal(18,6),
     Preth_Dev_Dolzi    decimal(18,6),
     Preth_Dev_Pobaruva    decimal(18,6),
     Tek_Dolzi         decimal(18,6),
     Tek_Pobaruva        decimal(18,6),
     Tek_Dev_Dolzi     decimal(18,6),
     Tek_Dev_Pobar    decimal(18,6),
     Sifra_Oe    smallint
    )
    If @Datum_Nal_Od Is Not Null
        Set @God = YEAR(@Datum_Nal_Od)
    ELSE
        Set @God = @Tek_Godina
    -------------------------------------------------------------------- U S L O V ----------------------------------------------------------------------
    If @Kto_Sint Is Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Kto_Anal=''' + @Kto_Anal + ''' '
    Else
        Set @SSQLUsl = @SSQLUsl + ' And SUBSTRING(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Nal Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
    If @KojaVal Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.KojaVal =''' + @KojaVal + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    --------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Preth
    (
     Opis        varchar(50),
     KojaVal        varchar(3),
     Preth_Dolzi    decimal(18,6),
     Preth_Pobaruva     decimal(18,6),
     Preth_Dev_Dolzi    decimal(18,6),
     Preth_Dev_Pobaruva    decimal(18,6),
     Sifra_Oe    smallint
    )
    Declare @ImeBaza as varchar(50)
    Declare Bazi Cursor
    Fast_Forward For Select ImeBaza From #Bazi
    Open Bazi
    Fetch Next From Bazi Into @ImeBaza
    While @@Fetch_Status = 0
    Begin
        --Pocetna Sostojba
        If Not (@Datum_Nal_Od Is Null AND @Datum_Dok_Od Is Null)
        Begin
            Set @SSQL = ' Select ''Prethoden Promet'' As Opis, G.KojaVal,
                        Sum(G.Dolzi) As Preth_Dolzi,
                        Sum(G.Pobaruva) As Preth_Pobaruva,
                        Sum(G.Dev_Dolzi) as Preth_Dev_Dolzi,
                        Sum(G.Dev_Pobaruva) as Preth_Dev_Pobaruva,
                        G.Sifra_Oe
            From ' + @ImeBaza + '..GStav G
            Where 1=1 '
            SET @SSQL = @SSQL + @SSQLUsl
            If @Datum_Nal_Od Is Not Null
                Set @SSQL = @SSQL + ' AND G.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @Datum_Dok_Od Is Not Null
                Set @SSQL = @SSQL + 'And G.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(30)) +
                ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            SET @SSQL = @SSQL + ' GROUP BY G.KojaVal, G.Sifra_Oe '
            Insert Into #Preth Exec(@SSQL)
        End
        -- Tekoven promet
        Set @SSQL = 'Select G.Kto_Anal, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Datum_Dok, G.Opis, G.KojaVal, G.Opis2,
            0 As Preth_Dolzi,
            0 As Preth_Pobaruva,
            0 As Preth_Dev_Dolzi,
            0 As Preth_Dev_Pobaruva,
            G.Dolzi As Tek_Dolzi,
            G.Pobaruva As Tek_Pobaruva,
            G.Dev_Dolzi As Tek_Dev_Dolzi,
            G.Dev_Pobaruva As Tek_Dev_Pobar,
            G.Sifra_Oe
            From ' + @ImeBaza + '..GStav G
            Where 1=1'
        Set @SSQL = @SSQL + @SSQLUsl
        If @Datum_Dok_Od Is Not Null
            Set @SSQL = @SSQL + 'And G.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(30)) + ''' '
        If @Datum_Dok_Do Is Not Null
            Set @SSQL = @SSQL + 'And G.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
        If @Datum_Nal_Od Is Not Null
            Set @SSQL = @SSQL + 'And G.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(30)) + ''' '
        If @Datum_Nal_Do Is Not Null
            Set @SSQL = @SSQL + 'And G.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(30)) + ''' '
        Set @SSQL = @SSQL + 'Order By G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Sifra_Oe '
        Insert Into #AnalKart Exec(@SSQL)
        Fetch Next From Bazi Into @ImeBaza
    End
    Close Bazi
    Deallocate Bazi
    Insert Into #AnalKart
    Select Null Kto_Anal, Null Datum_Nal, Null Sifra_Nal, Null Broj_Nal, Null Datum_Dok,
        Opis, KojaVal, Null Opis2, Sum(Preth_Dolzi), Sum(Preth_Pobaruva), Sum(Preth_Dev_Dolzi), Sum(Preth_Dev_Pobaruva),
        0 Tek_Dolzi, 0 Tek_Pobaruva, 0 Tek_Dev_Dolzi, 0 Tek_Dev_Pobar, Sifra_Oe
    From #Preth
    Group By Opis, KojaVal, Sifra_Oe
    Select G.Kto_Anal, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Datum_Dok, G.Opis, G.KojaVal, V.ImeVal, G.Opis2,
        G.Preth_Dolzi, G.Preth_Pobaruva, G.Preth_Dev_Dolzi, G.Preth_Dev_Pobaruva,
        G.Tek_Dolzi, G.Tek_Pobaruva, G.Tek_Dev_Dolzi, G.Tek_Dev_Pobar,
        G.Sifra_Oe, O.ImeOrg
    From #AnalKart G
    LEFT OUTER JOIN KrsLista V ON G.KojaVal = V.SimeVal
    LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
    Order By G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkart_vidtrosok]'))
drop procedure [dbo].[sp_analkart_vidtrosok]

Go

CREATE            PROCEDURE sp_AnalKart_VidTrosok
    @Sifra_Div         smallint = Null,
    @Kto_Anal_Od         Char(10) = Null,
    @Kto_Anal_Do         Char(10) = Null,
    @Datum_Nal_Od     Smalldatetime,
    @Datum_Nal_Do     Smalldatetime,
    @Datum_Dok_Od     Smalldatetime,
    @Datum_Dok_Do     Smalldatetime,
    @Sifra_OE         smallint = Null,
    @KoiOe         varchar(6) = Null,
    @Kto_Sint          char(3) = Null,
    @Tek_Godina         int = Null,      --YEAR(GETDATE())
    @Sifra_Nal         smallint = Null,
    @KojaVal         char(3) = Null
AS
    Declare @SSQL Varchar(8000)
    Declare @God    smallint
    Set @SSQL = ''
    If @Datum_Nal_Od Is Not Null
        Set @God = YEAR(@Datum_Nal_Od)
    ELSE
        Set @God = @Tek_Godina

    If Not (@Datum_Nal_Od Is Null AND @Datum_Dok_Od Is Null)
        Begin
            Set @SSQL = @SSQL + 'Select GD.Sifra_Div, Div.ImeDiv, Null AS Kto_Anal, Null ImeAnal, Null As Datum_Nal, Null As Sifra_Nal, Null As Broj_Nal, Null As Datum_Dok,
                        ''Prethoden Promet'' As Opis, G.KojaVal, V.ImeVal, Null Opis2,
                        Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Preth_Dolzi,
                        Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Preth_Pobaruva,
                        Sum(Case When G.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / G.Kurs Else 0 End) as Preth_Dev_Dolzi,
                        Sum(Case When G.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / G.Kurs Else 0 End) as Preth_Dev_Pobaruva,
                        0 As Tek_Dolzi,
                        0 As Tek_Pobaruva,
                        0 As Tek_Dev_Dolzi,
                        0 As Tek_Dev_Pobar,
                        G.Sifra_Oe, O.ImeOrg
            From GStav G
            INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
            LEFT OUTER JOIN KrsLista V ON G.KojaVal=V.SImeVal
            LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
            LEFT OUTER JOIN Divizii Div On Div.Sifra_Div=GD.Sifra_Div
            Where 1=1 '
            If @Kto_Sint Is Not Null
                Set @SSQL = @SSQL + ' And Substring(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
            If @Kto_Anal_Od Is Not Null
                Set @SSQL = @SSQL + ' And G.Kto_Anal>=''' + @Kto_Anal_Od + ''' '
            If @Kto_Anal_Do Is Not Null
                Set @SSQL = @SSQL + ' And G.Kto_Anal<=''' + @Kto_Anal_Do + ''' '
            If @Sifra_OE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
            If @KoiOE Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
            If @Sifra_Nal Is Not Null
                Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
            If @Datum_Nal_Od Is Not Null
                Set @SSQL = @SSQL + ' AND G.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(30)) + ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @Datum_Dok_Od Is Not Null
                Set @SSQL = @SSQL + 'And G.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(30)) + ''' AND YEAR(G.Datum_Nal)=' + Cast(@God as char(4))  + ' '
            If @KojaVal Is Not Null
                Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
            If @Sifra_Div Is Not Null
                Set @SSQL = @SSQL + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
            SET @SSQL = @SSQL + ' GROUP BY GD.Sifra_Div, Div.ImeDiv, G.KojaVal, V.ImeVal, G.Sifra_Oe, O.ImeOrg '
            Set @SSQL = @SSQL + 'Union ALL '
        End
    Set @SSQL = @SSQL + 'Select GD.Sifra_Div, Div.ImeDiv, G.Kto_Anal, KA.ImeAnal, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Datum_Dok,
            (Case When A.AnID Is Not Null Then A.BrojDok Else G.Opis End) Opis, G.KojaVal, V.ImeVal,
            (Case When A.AnID Is Null Then G.Opis2 End) Opis2,
            0 As Preth_Dolzi,
            0 As Preth_Pobaruva,
            0 As Preth_Dev_Dolzi,
            0 As Preth_Dev_Pobaruva,
            (Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Tek_Dolzi,
            (Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Tek_Pobaruva,
            (Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else 0 End) as Tek_Dev_Dolzi,
            (Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else 0 End) as Tek_Dev_Pobar,
            G.Sifra_Oe, O.ImeOrg
        From GStav G
        INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
        LEFT OUTER JOIN AnFinDok A On A.AnID=GD.AnID
        LEFT OUTER JOIN KrsLista V ON G.KojaVal = V.SimeVal
        LEFT OUTER JOIN Orged O On O.Sifra_Oe=G.Sifra_Oe
        LEFT OUTER JOIN Divizii Div On Div.Sifra_Div=GD.Sifra_Div
        LEFT OUTER JOIN Anal KA On KA.Kto_Anal=G.Kto_Anal
        Where 1 = 1 '
    If @Kto_Sint Is Not Null
        Set @SSQL = @SSQL + ' And Substring(G.Kto_Anal, 1, 3)=''' + @Kto_Sint + ''' '
    If @Kto_Anal_Od Is Not Null
        Set @SSQL = @SSQL + ' And G.Kto_Anal>=''' + @Kto_Anal_Od + ''' '
    If @Kto_Anal_Do Is Not Null
        Set @SSQL = @SSQL + ' And G.Kto_Anal<=''' + @Kto_Anal_Do + ''' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(30)) + ''' '
    If @Datum_Nal_Od Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(30)) + ''' '
    If @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + 'And G.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Nal = ' + Cast(@Sifra_Nal AS varchar(6)) + ' '
    If @KojaVal Is Not Null
        Set @SSQL = @SSQL + ' And G.KojaVal =''' + @KojaVal + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By GD.Sifra_Div, G.Datum_Nal, G.Sifra_Nal, G.Broj_Nal, G.Sifra_Oe '
print(@ssql)
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkasovidok]'))
drop procedure [dbo].[sp_analkasovidok]

Go





CREATE        PROCEDURE sp_AnalKasoviDok
    @DatumNalOd        smalldatetime=Null,
    @DatumNalDo        smalldatetime=Null,
    @Sifra_Nal        smallint=Null,
    @Broj_NalOd        int=Null,
    @Broj_NalDo        int=Null,
    @Kto_Anal        char(10)=Null,
    @Sifra_KupOd        char(6)=Null,
    @Sifra_KupDo        char(6)=Null,
    @KasaGrupa        varchar(10),
    @Group        char(1) = 'N',
    @Podred        char(1) = 'D',
    @Sifra_Oe        smallint = Null,
    @Datum_DokOd    smalldatetime=Null,
    @Datum_DokDo    smalldatetime=Null,
    @Preth_Sost         decimal(18,6) OUTPUT
 AS
    Create Table #Table1
    ( Broj_Dok    int,
      Dod_Datum    smalldatetime,
      Kto_Anal    char(10),
      Dolzi        decimal(18,4),
      Pobaruva    decimal(18,4),
      Lice        char(30),
      Opis        char(30),
      Opis2        char(30),
      Sifra_Kup    char(6),
      ImeKup    char(40),
      KasaGrupa    char(10),
      Datum_Nal    smalldatetime,
      Sifra_Nal    int,
      Broj_Nal    int,
      Sifra_Oe    smallint,
      Sifra_Nac smallint,
      ImeNac    varchar(30),
          Kto_Osnovica    char(10)
    )
    DECLARE @SSQL Varchar(2000)
--ZA POC.SOST
    CREATE TABLE #PocSost
(    Iznos    decimal(18,6)
)
    SET @SSQL = 'Select sum(K.Dolzi - K.Pobaruva) as Iznos
            From KasStav K
            Inner Join Nalozi KD On K.Sifra_Nal = KD.Sifra_Nal And K.Broj_Nal=KD.Broj_Nal
            left outer Join Komint KUP On K.Sifra_Kup=KUP.Sifra_Kup
            Where 1=1 '
    If @DatumNalOd Is Not Null
        SET @SSQL = @SSQL + ' And KD.Datum_Nal <''' + cast(@DatumNalOd as varchar(30)) +''' '
    If @Datum_DokOd Is Not Null
        SET @SSQL = @SSQL + ' And K.Dod_Datum <''' + cast(@Datum_DokOd as varchar(30)) +''' '
    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Nal =''' + cast(@Sifra_Nal as varchar(10)) + ''' '
    If @Broj_NalDo Is Not Null
        SET @SSQL = @SSQL + ' And K.Broj_Nal <''' + cast(@Broj_NalOd as varchar(10)) + ''' '
    If @Kto_Anal Is Not Null
        SET @SSQL = @SSQL + ' And K.Kto_Anal =' + @Kto_Anal + ' '
     If @Sifra_KupOd Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Kup >=' + @Sifra_KupOd + ' '
     If @Sifra_KupDo Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Kup <=' + @Sifra_KupDo + ' '
     If @KasaGrupa Is Not Null
        SET @SSQL = @SSQL + ' And K.KasaGrupa =''' + @KasaGrupa + ''' '
    If @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Oe =''' + cast(@Sifra_Oe as varchar(10)) + ''' '
    INSERT INTO #PocSost EXEC (@SSQL)
    SELECT @Preth_Sost= Iznos FROM #PocSost
--KRAJ ZA POC.SOST
    SET @SSQL = 'Select K.Broj_dok, K.Dod_Datum, K.Kto_Anal, K.Dolzi, K.Pobaruva, K.Lice, K.Opis, K.Opis2, K.Sifra_Kup, KUP.ImeKup, K.KasaGrupa,
            KD.Datum_Nal, K.Sifra_Nal, K.Broj_Nal, K.Sifra_Oe, K.Sifra_Nac, N.ImeNac, K.Kto_Osnovica
            From KasStav K
            Inner Join Nalozi KD On K.Sifra_Nal = KD.Sifra_Nal And K.Broj_Nal=KD.Broj_Nal
            left outer Join Komint KUP On K.Sifra_Kup=KUP.Sifra_Kup
            LEFT OUTER JOIN NacPlak N ON K.Sifra_Nac=N.Sifra_Nac
            Where 1=1 '
    If @DatumNalOd Is Not Null
        SET @SSQL = @SSQL + ' And KD.Datum_Nal >=''' + cast(@DatumNalOd as varchar(30)) +''' '
    If @DatumNalDo Is Not Null
        SET @SSQL = @SSQL + ' And KD.Datum_Nal <=''' + cast(@DatumNalDo as varchar(30)) +''' '
    If @Datum_DokOd Is Not Null
        SET @SSQL = @SSQL + ' And K.Dod_Datum >=''' + cast(@Datum_DokOd as varchar(30)) +''' '
    If @Datum_DokDo Is Not Null
        SET @SSQL = @SSQL + ' And K.Dod_Datum <=''' + cast(@Datum_DokDo as varchar(30)) +''' '
    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Nal =''' + cast(@Sifra_Nal as varchar(10)) + ''' '
    If @Broj_NalOd Is Not Null
        SET @SSQL = @SSQL + ' And K.Broj_Nal >=''' + cast(@Broj_NalOd as varchar(10)) + ''' '
    If @Broj_NalDo Is Not Null
        SET @SSQL = @SSQL + ' And K.Broj_Nal <=''' + cast(@Broj_NalDo as varchar(10)) + ''' '
    If @Kto_Anal Is Not Null
        SET @SSQL = @SSQL + ' And K.Kto_Anal =' + @Kto_Anal + ' '
     If @Sifra_KupOd Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Kup >=' + @Sifra_KupOd + ' '
     If @Sifra_KupDo Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Kup <=' + @Sifra_KupDo + ' '
     If @KasaGrupa Is Not Null
        SET @SSQL = @SSQL + ' And K.KasaGrupa =''' + @KasaGrupa + ''' '
    If @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Oe =''' + cast(@Sifra_Oe as varchar(10)) + ''' '
INSERT INTO #Table1 EXEC(@SSQL)
    If @Group = 'D'
        Begin
        Create Table #TableG
        ( Broj_Dok    int,
          Dod_Datum    smalldatetime,
          Kto_Anal    char(10),
          Dolzi        decimal(18,4),
          Pobaruva    decimal(18,4),
          Lice        char(30),
          Opis        char(30),
          Opis2        char(30),           Sifra_Kup    char(6),
          ImeKup    char(40),
          KasaGrupa    char(10),
          Datum_Nal    smalldatetime,
          Sifra_Nal    int,
          Broj_Nal    int,
          Sifra_Oe    smallint,
          Sifra_Nac smallint,
          ImeNac    varchar(30),
                  Kto_Osnovica    char(10)
        )
        If @Podred = 'D'
            SET @SSQL='Select 0 Broj_dok, Null Dod_Datum, NULL Kto_Anal, sum(Dolzi) Dolzi, sum(Pobaruva) Pobaruva,
                           '' '' Lice, '' '' Opis,'' '' Opis2, '' '' Sifra_Kup,  '' '' ImeKup, '' '' KasaGrupa,
                            Datum_Nal, 0 as Sifra_Nal, 0 as Broj_Nal, 0 as Sifra_Oe, 0 as Sifra_Nac, '''' as ImeNac, NULL Kto_Osnovica
                From #Table1
                Group By Datum_Nal '
        Else If @Podred = 'A'
            SET @SSQL='Select 0 Broj_dok, Null Dod_Datum, Kto_Anal, sum(Dolzi) Dolzi, sum(Pobaruva) Pobaruva,
                           '' '' Lice, '' '' Opis,'' '' Opis2, '' '' Sifra_Kup, '' '' ImeKup, '' '' KasaGrupa,
                            NULL Datum_Nal, 0 as Sifra_Nal, 0 as Broj_Nal, 0 as Sifra_Oe, 0 as Sifra_Nac, '''' as ImeNac, NULL Kto_Osnovica
                From #Table1
                Group By Kto_Anal '
        Else If @Podred = 'K'
            SET @SSQL='Select 0 Broj_dok, Null Dod_Datum, NULL Kto_Anal, sum(Dolzi) Dolzi, sum(Pobaruva) Pobaruva,
                           '' '' Lice, '' '' Opis, '' '' Opis2, '' '' Sifra_Kup,  ImeKup, '' '' KasaGrupa,
                        null Datum_Nal, 0 as Sifra_Nal, 0 as Broj_Nal, 0 as Sifra_Oe, 0 as Sifra_Nac, '''' as ImeNac, NULL Kto_Osnovica
                From #Table1
                Group By ImeKup '
        Else If @Podred = 'G'
            SET @SSQL='Select 0 Broj_dok, Null Dod_Datum, NULL Kto_Anal, sum(Dolzi) Dolzi, sum(Pobaruva) Pobaruva,
                           '' '' Lice, '' '' Opis,'' '' Opis2, '' '' Sifra_Kup, '' '' ImeKup, KasaGrupa,
                            null Datum_Nal, 0 as Sifra_Nal, 0 as Broj_Nal, 0 as Sifra_Oe, 0 as Sifra_Nac, '''' as ImeNac, NULL Kto_Osnovica
                From #Table1
                Group By KasaGrupa '
        INSERT INTO #TableG EXEC(@SSQL)
        SET @SSQL='Select * From #TableG K'
        End
    Else If @Group = 'N'
        Begin
        SET @SSQL='Select * From #Table1 K'
        End
    If @Podred = 'D'
        Begin
        If @Group = 'D'
            Set @SSQL = @SSQL+ ' Order By K.Datum_Nal '
        Else
            Set @SSQL = @SSQL+ ' Order By K.Dod_Datum '
        End
    Else If @Podred = 'A'
        Begin
            Set @SSQL = @SSQL+ ' Order By K.Kto_Anal '
        End
    Else If @Podred = 'K'
        Begin
            Set @SSQL = @SSQL+ ' Order By K.Imekup '
        End
    Else If @Podred = 'G'
        Begin
            Set @SSQL = @SSQL+ ' Order By K.KasaGrupa '
        End
    Else If @Podred = Null
        Begin
            Set @SSQL = @SSQL
        End
EXEC(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkompenz]'))
drop procedure [dbo].[sp_analkompenz]

Go

CREATE   PROCEDURE sp_AnalKompenz
    @Broj_Od Int = Null,
    @Broj_Do Int = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Kup Varchar(10) = Null,
    @PrikPatnik char(1) = 'N'
AS
    Declare @SSQL Varchar(2000)
    Set @SSQL = 'Select K.Broj_Komp, K.Datum_Komp, K.Opis,
        K.Sifra_Kup, Kup.ImeKup, Kup.SMesto, Kup.Telefon,
        Sum(KS.Dolzi) Dolzi, Sum(KS.Pobaruva) Pobaruva, '
    If @PrikPatnik = 'D'
        Set @SSQL = @SSQL + ' (Case When A.Sifra_Pat Is Null Then '''' Else A.Sifra_Pat End) Sifra_Pat '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Pat '
    Set @SSQL = @SSQL + 'From Kompenz K
        Inner Join Komint Kup On K.Sifra_Kup=Kup.Sifra_Kup
        Inner Join KompStav KS On K.Broj_Komp=KS.Broj_Komp '
    If @PrikPatnik = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join AnFinDok A On A.Sifra_Oe=KS.Sifra_Oe And A.Sifra_Dok=KS.Sifra_Dok And A.Broj_Dok=KS.Broj_Dok '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Broj_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Broj_Komp>=' + Cast(@Broj_Od As Varchar(10)) + ' '
    If @Broj_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Broj_Komp<=' + Cast(@Broj_Do As Varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Datum_Komp>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Datum_Komp<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Kup=''' + @Sifra_Kup + ''' '
    Set @SSQL = @SSQL + 'Group By K.Broj_Komp, K.Datum_Komp, K.Opis,
        K.Sifra_Kup, Kup.ImeKup, Kup.SMesto, Kup.Telefon '
    If @PrikPatnik = 'D'
        Set @SSQL = @SSQL + ', A.Sifra_Pat '
    Set @SSQL = @SSQL + 'Order By K.Datum_Komp, K.Broj_Komp '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analkto_od_do]'))
drop procedure [dbo].[sp_analkto_od_do]

Go
CREATE  PROCEDURE sp_AnalKto_Od_Do
    @Sifra_OE Smallint = Null,
    @Kto_Od Varchar(10),
    @Kto_Do Varchar(10)
AS
    Declare @SSQL As Varchar(1250)
    Set @SSQL = 'Select Distinct GS.Kto_Anal, A.ImeAnal From GStav GS
    Inner Join Anal A On GS.Kto_Anal=A.Kto_Anal
    Where GS.Kto_Anal>=''' + @Kto_Od + ''' And GS.Kto_Anal<=''' + @Kto_Do + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And GS.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Set @SSQL = @SSQL + 'Order By GS.Kto_Anal '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analpopis_inventar]'))
drop procedure [dbo].[sp_analpopis_inventar]

Go
CREATE PROCEDURE sp_AnalPopis_Inventar
    @Sifra_Oe    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @BrojInvP_Od    int = Null,
    @BrojInvP_Do    int = Null
 AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select Distinct P.Sifra_Oe, O.ImeOrg, P.Datum_InvP, P.BrojInvP
            From InvPopis P
            Inner Join Orged O On O.Sifra_Oe=P.Sifra_Oe
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(10)) + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_InvP >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_InvP <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @BrojInvP_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.BrojInvP >= ''' + cast(@BrojInvP_Od as varchar(10)) + ''' '
    If @BrojInvP_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.BrojInvP <= ''' + cast(@BrojInvP_Do as varchar(10)) + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analprodmest]'))
drop procedure [dbo].[sp_analprodmest]

Go



CREATE     PROCEDURE [dbo].[sp_AnalProdMest]
    @Sifra_Mest    int = Null,
    @Sifra_Kup    char(6) = Null,
    @Sifra_Obj    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @VlIzlPros    varchar(200) = '''V'', ''I'', ''D'', ''S'', ''K''' ,
    @KajNas    Char(1) = 'N',
    @Sifra_Ser    Char(6) = Null,
    @Sif_TipProdM smallint = Null,
        @Sifra_Pat     smallint= null
AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL = ' Select S.Sifra_Mest, S.Sifra_Kup, Kup.ImeKup, S.Sifra_Obj, KO.ImeObj, S.Opis, S.VlIzlPros, S.Iznos,
                    S.Datum_Dok, S.Sifra_ser, K.ImeKup ImeSer, S.Identif_Br, S.Broj_Dok, PR.BarKod
            From StaProdMest S
            Left Outer Join Komint KUP On KUP.Sifra_Kup = S.Sifra_Kup
            Left Outer Join Komint K On K.Sifra_Kup = S.Sifra_Ser
            Left Outer Join KObjekti KO On KO.Sifra_Kup = S.Sifra_Kup and KO.Sifra_Obj = S.Sifra_Obj
            Left Outer Join ProdMest PR on PR.Sifra_Mest = S.Sifra_Mest
            Where 1=1 '
    If @Sifra_Mest Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Mest = ' + cast(@Sifra_Mest as Varchar(6)) + ' '
    If @KajNas ='D'
        Set @SSQL = @SSQL + ' And S.Sifra_Kup Is Null and S.Sifra_Obj Is Null '
    Else
    Begin
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Kup = ' + @Sifra_Kup + ' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Obj = ' + cast(@Sifra_Obj as Varchar(6)) + ' '
    End
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    If @VlIzlPros Is Not Null
        Set @SSQL = @SSQL + ' And S.VlIzlPros In ( ' + @VlIzlPros + ') '
       If @Sifra_Ser Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_Ser=''' + @Sifra_Ser + ''' '
    If @Sif_TipProdM Is Not Null
            Set @SSQL = @SSQL + ' And PR.Sif_TipProdM = ' + cast(@Sif_TipProdM as Varchar(6)) + ' '
        If @Sifra_Pat Is Not Null
            Set @SSQL = @SSQL + ' And PR.Sifra_Pat = ' + cast(@Sifra_Pat as Varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By S.Datum_Dok, S.Broj_Dok '
    Print @SSQL
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analpromeni_osnsred]'))
drop procedure [dbo].[sp_analpromeni_osnsred]

Go



CREATE        PROCEDURE [dbo].[sp_AnalPromeni_OsnSred]
    @Delov_God    smallint = Null,
    @Datum_Od    smalldatetime=Null,
    @Datum_Do    smalldatetime=Null,
    @Inv_BrojOd    char(10) = Null,
    @Inv_BrojDo    char(10) = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_Amor    char(3) = Null,
    @Podred    char(1) = 'S',
    @Tip_StaOsn    char(1) = Null,    -- P - Priem, D - Dogradba, Z - Promena na lokacija, -- T,Q - Otpis
                    -- ? - Prenos, I,Y - Inicijalen Vlez,R-Rashod,F-Prodazba,M-Miruvanje, A-aktiviranje po miruvanje,O-delumen otpis
    @OS_SI    char(1) = 'O'    -- O - Osnovni Sredstva,     S - Siten Inventar
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, D.Sifra_Nal, D.Broj_Nal,
                S.Inv_Broj, O.Ime, S.Datum_Dok StavDatum_Dok, S.Tip_StaOsn,     S.VlIzl,
                O.Sifra_MikLok, MikL.Ime_MikLok,  MikL.Sifra_MakLok, MakL.Ime_MakLok,O.RedTrans, '

    IF @Tip_StaOsn IN ('P', 'I', 'Y')
        Set @SSQL = @SSQL + ' S.Osn_Amor, S.Otpis_Pret, '
    ELSE
        Set @SSQL = @SSQL + ' P.Osn_Amor, P.Otpis_Pret, '

    Set @SSQL = @SSQL + 'S.Sifra_MikLok_Od, MikL1.Ime_MikLok Ime_MikLokOd,
                MikL1.Sifra_MakLok as Sifra_MakLokOd, MakL1.Ime_MakLok Ime_MakLokOd,
                S.Orig_Nab_Vr,     O.Valuta, S.Orig_Nab_Vr_Val, S.Delov_God, O.Sifra_Rab, R.ImeRab,
                S.Sifra_RabOd, R1.ImeRab ImeRabOd, O.Kto_Anal, MakL.Sifra_Lok,
                O.Sifra_Amor, AG.Ime As ImeAmor, AG.Stapka As StapkaAmor,
                Kup.ImeKup
            From DokOsnSred D
            Inner Join StavOsnSred S On S.DokOID=D.DokOID
            Inner Join OsnSred O On O.Inv_Broj=S.Inv_Broj
            Left Outer Join MikroLok MikL On MikL.Sifra_MikLok = O.Sifra_MikLok
            Left Outer Join MikroLok MikL1 On MikL1.Sifra_MikLok = S.Sifra_MikLok_Od
            Left Outer Join MakroLok MakL On MakL.Sifra_MakLok = MikL.Sifra_MakLok
            Left Outer Join MakroLok MakL1 On MakL1.Sifra_MakLok = MikL1.Sifra_MakLok
            Left Outer Join Rabotnik R On R.Sifra_Rab=O.Sifra_Rab
            Left Outer Join Rabotnik R1 On R1.Sifra_Rab=S.Sifra_RabOd
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join AmorGrp AG On AG.Sifra_Amor=O.Sifra_Amor
            LEFT OUTER JOIN PocSostOsn P ON S.Inv_Broj=P.Inv_Broj AND P.Godina=S.Delov_God
            Where 1=1 ' --AND P.Godina='+Cast(@Delov_God as char(4))+ ' '    --P.Godina= bese trgnato do 07.05.11, ne znam zosto, pa se dupliraa stavki
    If @Tip_StaOsn Is Not Null
        Set @SSQL = @SSQL + ' And S.Tip_StaOsn = ''' + @Tip_StaOsn + ''' '
    If @Sifra_Amor Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @Sifra_MikLok Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_MakLok Is Not Null
        Set @SSQL = @SSQL + ' And MikL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_Lok Is Not Null
        Set @SSQL = @SSQL + ' And MakL.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Inv_BrojOd Is Not Null
        Set @SSQL = @SSQL + ' And S.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not Null
        Set @SSQL = @SSQL + ' And S.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    --If @Delov_God Is Not Null
    --    Set @SSQL = @SSQL + ' And S.Delov_God = ''' + Cast(@Delov_God as varchar(6)) + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @OS_SI = 'O'
        Set @SSQL = @SSQL + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQL = @SSQL + ' And O.Tip = ''SI'' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By S.Inv_Broj '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By O.Ime '
print @ssql

Exec(@SSQL)












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analstaambal]'))
drop procedure [dbo].[sp_analstaambal]

Go
CREATE PROCEDURE sp_AnalStaAmbal
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Sifra_Kup    char(6),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Amb    char(6),
    @Sifra_GAmb    char(6),
    @Povratna    char(1) = 'D',
    @KupDob    char(1) = 'K'
 AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.DokrId, D.Sifra_Oe, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup,  Kup.ImeKup, D.Sifra_Obj, KO.ImeObj,
            S.Sifra_Amb, A.ImeAmb, A.Sifra_GAmb, G.ImeAmb ImeGAmb, S.Kolic, D.VlIzl, O.ImeOrg, A.SodrziArt,
            (Case When (A.VoGamb Is Null Or A.VoGAmb=0) Then 1 Else A.VoGamb End) VoGAmb
            From Dokr D
            Inner Join StaAmbal S On S.DokrID=D.DokrID
            Left Outer Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
            Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
            Left Outer Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
            Left Outer Join Orged O On O.Sifra_Oe=D.Sifra_Oe
            Where 1=1 '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' '
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok as varchar(10)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @Sifra_GAmb Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_GAmb = ''' + @Sifra_GAmb + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_analzakompez]'))
drop procedure [dbo].[sp_analzakompez]

Go

CREATE    PROCEDURE [dbo].[sp_AnalZaKompez]
    @Sifra_Nivo        Char(2) = Null,
    @Datum_DoKup     Smalldatetime = null,
    @Datum_DoDob    Smalldatetime = null,
    @Sifra_Kup_Od     Char(6)= null,
    @Sifra_Kup_Do     Char(6) = null,
    @Sifra_OE        Smallint = Null,
    @Koi_Gradovi        Varchar(200) = Null,
    @Koi_Regioni        Varchar(200) = Null,
       @KoiKtaKup         Varchar(200) = Null,
    @KoiKtaDob        Varchar(200) = Null,
    @Dat_Dok_Kup_Od    Smalldatetime = Null,
    @Dat_Dok_Kup_Do    Smalldatetime = Null,
    @SoSaldoKupDob     Char(1) = 'D'
AS
    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLKraj Varchar(3000)
    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @Sifra_Kup_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Kup>=''' + @Sifra_Kup_Od + ''' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Kup<=''' + @Sifra_Kup_Do + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_Gradovi Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Grad In (' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Reg In (' + @Koi_Regioni + ') '

    Create    Table #FinKup
(    Sifra_Kup    char(6),
    Saldo_Kup    decimal(18,6),
    BrFakt        smallint
)
    CREATE         Table #FinKupDosp
(    Sifra_Kup    char(6),
    Saldo_DospKup    decimal(18,6),
    BrFaktDosp        smallint
)
    CREATE TABLE #FinDob
(    Sifra_Kup    char(6),
    Saldo_Dob    decimal(18,6)
)
    Set @SSQL = 'Select  A.Sifra_Kup, Sum(A.Dolzi - A.Pobaruva)
    From AnFinDok A
    Inner Join Komint KUP On A.Sifra_Kup=KUP.Sifra_Kup
    Where A.Sifra_Za=1 '
    If @Datum_DoKup IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok<= ''' + Cast(@Datum_DoKup As Varchar(35)) + ''' '
    If @KoiKtaKup Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKtaKup + ') '
    SET @SSQL = @SSQL + @SSQLUSL + ' GROUP BY A.Sifra_Kup HAVING Sum(A.Dolzi - A.Plateno_Dolzi - (A.Pobaruva - A.Plateno_Pobar)) > 0'
    INSERT INTO #FinKup (Sifra_Kup, Saldo_Kup) EXEC(@SSQL)
-----------------------------------------------
    Set @SSQL = 'Update #FinKup
                Set BrFakt=(select count(*)
                From AnFinDok A
                Where #FinKup.SIfra_Kup=A.Sifra_Kup and A.Dolzi>0 AND A.Dolzi-A.Plateno_Dolzi>10 and A.Sifra_Za=1 '
    If @Datum_DoKup IS NOT NULL
        SET @SSQL = @SSQL + ' And DateAdd(Day, Rok, Datum_Dok)> ''' + Cast(@Datum_DoKup As Varchar(35)) + ''' '
    If @KoiKtaKup Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKtaKup + ') '
    SET @SSQL = @SSQL + @SSQLUSL
    SET @SSQL = @SSQL +')'
    EXEC(@SSQL)
-----------------------------------------------------------------------------
    Set @SSQL = 'Select  A.Sifra_Kup, Sum(A.Dolzi - A.Plateno_Dolzi - (A.Pobaruva - A.Plateno_Pobar))
    From AnFinDok A
    Inner Join Komint KUP On A.Sifra_Kup=KUP.Sifra_Kup
    Where A.Sifra_Za=1 And (A.Dolzi <> A.Plateno_Dolzi OR A.Pobaruva <> A.Plateno_Pobar) '
    If @Datum_DoKup IS NOT NULL
        SET @SSQL = @SSQL + ' And DateAdd(Day, Rok, Datum_Dok)<= ''' + Cast(@Datum_DoKup As Varchar(35)) + ''' '
    If @Dat_Dok_Kup_Od IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Dat_Dok_Kup_Od As Varchar(35)) + ''' '
    If @Dat_Dok_Kup_Do IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Dat_Dok_Kup_Do As Varchar(35)) + ''' '
    If @KoiKtaKup Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKtaKup + ') '
    SET @SSQL = @SSQL + @SSQLUSL + ' GROUP BY A.Sifra_Kup HAVING Sum(A.Dolzi - A.Plateno_Dolzi - (A.Pobaruva - A.Plateno_Pobar)) > 0'
    INSERT INTO #FinKupDosp (Sifra_Kup, Saldo_DospKup) EXEC(@SSQL)
---------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = 'Update #FinKupDosp
                Set BrFaktDosp=(Select count(*)
                From AnFinDok A
                Where #FinKupDosp.Sifra_Kup=A.Sifra_Kup and A.Sifra_Za=1 And A.Dolzi>0 AND A.Dolzi-A.Plateno_Dolzi>10 '
    If @Datum_DoKup IS NOT NULL
        SET @SSQL = @SSQL + ' And DateAdd(Day, Rok, Datum_Dok)<= ''' + Cast(@Datum_DoKup As Varchar(35)) + ''' '
    If @Dat_Dok_Kup_Od IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Dat_Dok_Kup_Od As Varchar(35)) + ''' '
    If @Dat_Dok_Kup_Do IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Dat_Dok_Kup_Do As Varchar(35)) + ''' '
    If @KoiKtaKup Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKtaKup + ') '
    SET @SSQL = @SSQL + @SSQLUSL
    SET @SSQL = @SSQL + ')'
    exec(@SSQL)
------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = 'Select  A.Sifra_Kup,  Sum(A.Pobaruva - A.Dolzi)
    From AnFinDok A
    Inner Join #FinKup K ON A.Sifra_Kup = K.Sifra_Kup
    Inner Join Komint KUP On A.Sifra_Kup=KUP.Sifra_Kup
    Where A.Sifra_Za=2 '

    If @Datum_DoDob IS NOT NULL
        SET @SSQL = @SSQL + ' And A.Datum_Dok<= ''' + Cast(@Datum_DoDob As Varchar(35)) + ''' '
    If @KoiKtaDob Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKtaDob + ') '

    SET @SSQL = @SSQL + @SSQLUSL + ' GROUP BY A.Sifra_Kup '
    INSERT INTO #FinDob (Sifra_Kup, Saldo_Dob) EXEC(@SSQL)

    SET @SSQLKraj = 'SELECT K.*, case when KD.Saldo_DospKup is null then 0 else KD.Saldo_DospKup end Saldo_DospKup,
                 case when D.Saldo_Dob is null then 0 else D.Saldo_Dob end Saldo_Dob,
                 KUP.ImeKup, KUP.Sifra_Grad, G.ImeGrad, Kup.Sifra_Reg, R.ImeRegion, Kup.Kdrugo7, K7.Ime_7K, KD.BrFaktDosp
    FROM #FinKup K
    LEFT OUTER JOIN #FinKupDosp KD ON K.Sifra_Kup = KD.Sifra_Kup
    LEFT OUTER JOIN #FinDob D ON K.Sifra_Kup = D.Sifra_Kup
    INNER JOIN Komint KUP ON K.Sifra_Kup = KUP.Sifra_Kup
    LEFT OUTER JOIN Grad G ON KUP.Sifra_Grad = G.Sifra_Grad
    LEFT OUTER JOIN GRegion R ON KUP.Sifra_Reg = R.Sifra_Reg
    Left Outer Join KDrugo7 K7 on Kup.Kdrugo7=K7.Sifra_7K'
    if @SoSaldoKupDob = 'D'
       SET @SSQLKraj = @SSQLKraj + ' where D.Saldo_dob <> 0 and K.Saldo_Kup <> 0 '
    PRINT(@SSQLKraj)
    EXEC(@SSQLKraj)










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_grupaorgcen_beznorm]'))
drop procedure [dbo].[sp_art_grupaorgcen_beznorm]

Go
CREATE PROCEDURE sp_Art_GrupaOrgCen_BezNorm
    @Gr_Org    Char(6)
AS
    Create Table #Art
    (
     Sif_GrOrg    varchar(6),
--     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     GSostav    char(1),
     Sostav        char(1)
    )
    Insert Into #Art Select  Sif_GrOrg, Sifra_Art, Null, Null From CenGrOrg Where Sif_GrOrg=@Gr_Org
    Update #Art Set GSostav = 'D'
    Where Sifra_Art In (Select Sifra_Art From GSostav Where Sif_GrOrg=@Gr_Org)
    Update #Art Set Sostav = 'D'
    Where Sifra_Art In (Select Sifra_Art From Sostav)
    Update #Art Set GSostav = 'N'
    Where GSostav Is Null
    Update #Art Set Sostav = 'N'
    Where Sostav Is Null

    Select A.Sif_GrOrg, A.Sifra_Art, A.GSostav, A.Sostav, K.ImeArt, K.EdMera, Null as Caena
    From #Art A
    Inner Join Katart K On K.Sifra_Art = A.Sifra_Art


/*
    Select C.Sif_GrOrg, C.Sifra_Art, K.ImeArt, K.EdMera, C.Cena
    From CenGrOrg C
    Inner Join Katart K On K.Sifra_Art=C.Sifra_Art
    Where Sif_GrOrg=@Gr_Org
    And C.Sifra_Art Not In (Select Sifra_Art From GSostav Where Sif_GrOrg=@Gr_Org)
*/



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_obezb_art]'))
drop procedure [dbo].[sp_art_obezb_art]

Go

create   PROCEDURE [dbo].[sp_Art_Obezb_Art]
    @Sifra_Art        varchar(20),
    @Sifra_Art_Nov    varchaR(20) = NULL OUTPUT

As

    Declare @Sifra_Art_Najden varchar(20)

    if cast(@Sifra_Art as int) >= 100000
        begin
            select @Sifra_Art_Najden = Sifra_Art
            from Katart
            Where Sifra_Art = @Sifra_Art

            if @Sifra_Art_NAjden is null    -- Ova treba da e normalen slucaj
                return
        end


    Declare @Preth varchaR(20)

    select @Preth = Max(Sifra_Art)
    from Katart
    where Sifra_Art > '100000' and sifra_art < '900000'

    if @Preth is null    --Nejasno
        set @Preth = '100000'

    set @SIfrA_Art_Nov = cast(cast(@Preth as int) + 1 as varchaR(6))


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_toplista]'))
drop procedure [dbo].[sp_art_toplista]

Go


CREATE    PROCEDURE [dbo].[sp_Art_TopLista]
    @Sifra_OE Smallint = 1,
    @KoiOE Varchar(700) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 3,
    @Kolku Int = Null,
    @Kto varChar(100) = Null,
    @Sifra_Gr VarChar(300) = Null,
    @Sifra_Podg VarChar(300) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(200) = Null,
    @Komint_KObj Char(1) = 'K',
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @RazbijSostav Char(1) = 'D',
    @ZalihaOdOE Varchar(700) = Null,
    @Koi_Gradovi Varchar(200) = Null,
    @SoPodgrupi    char(1) = 'N',
    @Sifra_Pat    varchar(300) = Null,
    @Sifra_Obj    smallint  = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Mest Int = Null,
    @PoProdMesta char(1)='N',
    @SoPod1    char(1) = 'N',
    @SoPod2    char(1) = 'N',
    @SoPod3    char(1) = 'N',
    @SoPod4    char(1) = 'N',
    @SoPod5    char(1) = 'N',
    @SoBrand    char(1) = 'N',
    @KomercKako    char(1) = 'I',                 -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N
    @KolkuMesta    smallint = 6,        -- Se Odnesuva na podgrupite    2, 3, 4, 5, 6
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Posrednik    char(6) = Null,
    @Asortiman    char(1) = 'N',        -- D - da gi prikaze i onie artikli za koi nema prodazba vo periodot
                        -- Z - da gi prikaze i onie artikli za koi nema prodazba vo periodot, a gi ima na zaliha
    @DaliNabavna    char(1) = 'N',        -- za MakInvest posledna nabavna od katart; cena od soart od orged 001
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @Sifra_Tabela     varchar(20) = null,    -- Dali da gi vratam definiranite Grupi na Artikli i rednite broevi za podreduvanje na izvestajot (za specijalni izvestai)
    @ImeArtDel    varchar(20) = Null,
    @DajNabavki    char(1) = 'N',        -- D - Da,  N - Ne (Dali da gi prikazze nabavenite kolicini po artikal)
    @DevCena    char(1) = 'N',        -- Prikazi vrednost po devizna cena D - so danok,  B - bez Danok  N - ne
    @PrethBazaOd    char(1) = 'N',        -- K - Konfig (poleto PrethBaza)     ?T? - Nekoja tabela (Fir Paral ili Nekoja Nova za vo idnina)
    @ParalenliBazi     varchar(200) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null,
    @PrikNeralizNarac char(1) = 'N'        -- Da se prikazat i nerealiziranite naracki koi se markirani za isporaka (Orbiko)
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @RazlDat As Int
    If @Datum_Od Is Not Null And @Datum_Do Is Not Null
        Set @RazlDat = Datediff(day, @Datum_Od, @Datum_Do) + 1
    Else
        Set @RazlDat = 0
    Declare @SSQL Varchar(8000)
    Declare @SSQLFrom Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)
    Declare @SSQLDok as varchar(8000)
    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '
    Set @SSQLFrom = ' '
    Set @SSQLDok = ' '

    If @GrKup Is Not Null
    Begin
    Create      Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

    If @GrArt Is Not Null
    Begin
        Create Table #GrArt
        (
            Sifra_Art    varchar(20)
        )
        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)

        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
        Exec(@SSQL)
    End

    ---------------------------------------------------------------------------- U S L O V --------------------------------------------------------------------------------------------
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @Sifra_Nivo Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                            OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Posrednik Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And PM.Posrednik=' + Cast(@Posrednik As Varchar(6)) + ' '

    ------------------------------------------------------- U S L O V   D O K  ---------------------------------------------------------------------------------------------------
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @TipDokProd IS NOT NULL
        Set @SSQLDok = @SSQLDok + ' And D.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Sifra_Mest Is Not NULL
        Set @SSQLDok = @SSQLDok + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '

    --------------------------------------------------------- U S L O V    P O    A R T I L K I ----------------------------------------------------------------------------
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo = 'D'
            Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Podg Like ''' + Rtrim(@Sifra_Podg) + '%'' '
        Else
            Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Podg In (' + @Sifra_Podg + ') '
    If @Sifra_Gr Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And PG.Sifra_Gr In (' + @Sifra_Gr + ') '
    If @Lokacija Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Lokacija=''' + @Lokacija + ''' '

    If @Kto Is Not NULL
    begin
        if @Kto like '%,%'    --Lista e
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Kto in (' + @Kto + ') '
        else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Kto=' + @Kto + ' '
    end

    If @Drugo1 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    ---If @GrKup Is Not NULL
        ---Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    -----------------------------------------------------------------------------------------------------------------------------------------------------------------
    create                            Table #tSostav
    (    Sifra_Art     Varchar(20),
        Sifra_Sur    Varchar(20),
        Ima_Kolic     Decimal(18,6),
        Cena         Decimal(18,6),
        VkCena     Decimal(18,6)
    )
    Create NonClustered Index IX_Art On #tSostav (Sifra_Art)

    CREATE TABLE #TopLista
    (
        Sifra_Art     Varchar(20) NULL ,
        Kolicina     decimal(18, 4) NULL ,
        UL         decimal(18, 4) NULL ,
        Izlezi         int NULL ,
        Vr_Osnov     decimal(18, 4) NULL ,
        Vr_SoRabat     decimal(18, 4) NULL ,
        Vr_Krajna     decimal(18, 4) NULL ,
        Vr_NPS     decimal(18, 4) NULL ,
        Vr_Rabat    decimal(18,4) NULL,
        Vr_kasa        decimal(18,4) NULL,
        Vr_NabBezDDV    decimal(18,4) NULL,
        Vr_NabSoDDV    decimal(18,4) NULL,
        Vr_Devizna    decimal(18,4) NULL,
        Komintenti    int NULL ,
        Zaliha         decimal(18, 4) NULL,
        Sifra_Podg    Char(6) NULL
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
    --select * from #tsostav order by sifra_art
    -- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
    -----------------------------------------------------------------------------------------------
    ------------------------------------------------------------------ T O P    L I S T A ------------------------------------------------------------------------------------
    -------- Select Query --------
    Set @SSQL = 'Select TS.Sifra_Sur As Sifra_Art,
            Round(Sum(S.Kolic*TS.Ima_Kolic), 4) As Kolicina,
            Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) As UL,
            Count(TS.Sifra_Art) As Izlezi,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) As Vr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Krajna,
            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS,
            Round(Sum(dbo.fn_VratiRabatBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces)), 4) As Vr_Rabat,
            Round(Sum(dbo.fn_VratiKasaBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Kasa,
            Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV, '
    If @DevCena In  ('D', 'B')
        Set @SSQL = @SSQL + ' Round(Sum(S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + (Case When @DevCena = 'B' Then 'N' Else 'D' End) + ''') / D.Kurs), 4) Vr_Devizna, '
    Else
        Set @SSQL = @SSQL + ' Null as Vr_Devizna, '
    If @PoProdMesta = 'D'
        Set @SSQL=@SSQL + 'Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(6)),1,2) When ''70'' Then 0 Else D.Sifra_Mest End)) As Komintenti, '
    Else
    Begin
        If @Komint_KObj = 'K'
            Set @SSQL =    @SSQL + 'Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(6)),1,2) When ''70'' Then 0 Else D.Sifra_Kup End)) As Komintenti, '
        Else If @Komint_KObj = 'O'
            Set @SSQL =    @SSQL + 'Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(6)),1,2) When ''70'' Then 0
                        Else (Case When D.Sifra_Obj Is Null Then D.Sifra_Kup else (D.Sifra_kup+cast(D.Sifra_Obj as varchar(6))) end) End)) As Komintenti, '
    End
    Set @SSQL = @SSQL + 'Null As Zaliha, '
    If @KolkuMesta Is Not Null
        Set @SSQL = @SSQL + ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg '
    Else
        Set @SSQL = @SSQL + ' K.Sifra_Podg '
    ------------------------------------------------ F R O M ------------------------------------------------
    Set @SSQLFrom = ' From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
    If @Sifra_OE Is Not NULL
             Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Gr Is Not Null
        Set @SSQLFrom = @SSQLFrom + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLFrom = @SSQLFrom + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
        Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null) Or (@Sifra_Pat Is Not Null)
        Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null) OR @Pod6 IS NOT NULL  OR @Pod7 IS NOT NULL
        Set @SSQLFrom = @SSQLFrom + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                         Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoProdMesta = 'D' or @Posrednik is not null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '   --D.Sifra_kup=PM.Sifra_kup and D.Sifra_obj=PM.Sifra_obj and
    If @GrKup Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
    If @GrArt Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
    Set @SSQLFrom = @SSQLFrom + 'Where K.Iskluci <> ''D'' '
    --Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, K.Sifra_Podg '
    --print (@SSQL + @SSQLUsl + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg ')
    Insert #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLDok + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg ')
    --print @SSQL + @SSQLFrom + @SSQLUsl + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg '
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------c---------------------------------------
    ----------------------------------------------- P R E T H O D N I   B A Z I ----------------------------------------------------------
    If @PrethBazaOd = 'K' Or @ParalenliBazi Is Not Null
    Begin
        Declare @ImeBaza as varchar(30)
        Create Table #Bazi
        (
            ImeBaza    varchar(30)
        )
        If @PrethBazaOd = 'K'
        Begin
            Set @SSQLFrom = ' Insert Into #Bazi Select PrethBaza From Konfig '
            Exec (@SSQLFrom)
        End

        If @ParalenliBazi Is Not Null
        Begin
            Declare @Poz_Delim Smallint
            Declare @Poz_Start Smallint
            Declare @BazaIme varchar(50)
            If @ParalenliBazi Is Null
                Set @ParalenliBazi = ''
            Set @Poz_Start = 0
            While 1=1
            Begin
                Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
                If @Poz_Delim = 0
                    Break
                Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
                Set @Poz_Start = @Poz_Delim + 1
                Insert Into #Bazi Select @BazaIme
            End
        End

        If Exists (Select ImeBaza From #Bazi)
        Begin
            Declare CursorBazi Cursor Fast_Forward For Select ImeBaza From #Bazi
            Open CursorBazi
            Fetch Next From CursorBazi Into @ImeBaza
            While @@Fetch_Status = 0
            Begin
                Set @SSQLFrom = ' From #tSostav TS
                    Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
                    Inner Join ' + @ImeBaza + '..Stavr S On TS.Sifra_Art=S.Sifra_Art
                    Inner Join ' + @ImeBaza + '..Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
                If @Sifra_OE Is Not NULL
                         Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
                If @KoiOE Is Not NULL
                         Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE IN (' + @KoiOE + ') '
                If @Sifra_Gr Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
                If @Sifra_ZBrand Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
                If @GrKup Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                                    And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
                If @GrArt Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
                If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
                    Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null) Or (@Sifra_Pat Is Not Null)
                    Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
                Set @SSQLFrom = @SSQLFrom + ' Inner Join ' + @ImeBaza + '..Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                                 Left Outer Join ' + @ImeBaza + '..KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
                If @PoProdMesta = 'D' or @Posrednik is not null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join ' + @ImeBaza + '..ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '   --D.Sifra_kup=PM.Sifra_kup and D.Sifra_obj=PM.Sifra_obj and
                Set @SSQLFrom = @SSQLFrom + ' Where K.Iskluci <> ''D'' '
                Insert Into #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLDok + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg ')
                Fetch Next From CursorBazi Into @ImeBaza
            End
            Close CursorBazi
            Deallocate CursorBazi
        End

        CREATE TABLE #TopLista1
        (
            Sifra_Art     Varchar(20) NULL ,
            Kolicina     decimal(18, 4) NULL ,
            UL         decimal(18, 4) NULL ,
            Izlezi         int NULL ,
            Vr_Osnov     decimal(18, 4) NULL ,
            Vr_SoRabat     decimal(18, 4) NULL ,
            Vr_Krajna     decimal(18, 4) NULL ,
            Vr_NPS     decimal(18, 4) NULL ,
            Vr_Rabat    decimal(18,4) NULL,
            Vr_kasa        decimal(18,4) NULL,
            Vr_NabBezDDV    decimal(18,4) NULL,
            Vr_NabSoDDV    decimal(18,4) NULL,
            Vr_Devizna    decimal(18,4) NULL,
            Komintenti    int NULL ,
            Zaliha         decimal(18, 4) NULL,
            Sifra_Podg    Char(6) NULL
        )
        Insert Into #TopLista1
        Select Sifra_Art, Sum(Kolicina), Sum(UL), Sum(Izlezi), Sum(Vr_Osnov), Sum(Vr_SoRabat), Sum(Vr_Krajna), Sum(Vr_NPS),
            Sum(Vr_Rabat), Sum(Vr_kasa), Sum(Vr_NabBezDDV), Sum(Vr_NabSoDDV), Sum(Vr_Devizna), Sum(Komintenti), Sum(Zaliha), Sifra_Podg
        From #TopLista
        Group By Sifra_Art, Sifra_Podg
        Delete From #TopLista
        Insert Into #TopLista Select * From #TopLista1
    End

    -------------------------------- P R O D A Z B A    O D   N E R E A L I Z I R A N I     N A R A C K I --------------------------------
    If @PrikNeralizNarac = 'D'
    Begin
        Alter Table #TopLista Add KolicNar decimal(18,4), VrednostNar decimal(18,4)

        Set @SSQL = 'Select TS.Sifra_Sur As Sifra_Art,
                0 As Kolicina, 0 As UL, 0 As Izlezi, 0 As Vr_Osnov, 0 As Vr_SoRabat, 0 As Vr_Krajna, 0 As Vr_NPS, 0 As Vr_Rabat, 0 As Vr_Kasa, 0 As Vr_NabBezDDV, 0 As Vr_NabSoDDV,
                Null as Vr_Devizna, 0 As Komintenti, Null As Zaliha, '
        If @KolkuMesta Is Not Null
            Set @SSQL = @SSQL + ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg '
        Else
            Set @SSQL = @SSQL + ' K.Sifra_Podg '
        Set @SSQL = @SSQL + ', Round(Sum(S.Kolic*TS.Ima_Kolic), 4) As KolicNar,
                       Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As VrednostNar '
        ------------------------------------------------ F R O M ------------------------------------------------
        Set @SSQLFrom = ' From #tSostav TS
            Inner Join StaNarac S On TS.Sifra_Art=S.Sifra_Art
            Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
            Inner Join Naracki D ON S.NarID=D.NarID
            Left Outer Join NarRealDok NRD On NRD.NarID=D.NarID
            Inner Join TipNarac TN On TN.Sifra_Nar=D.Sifra_Nar And TN.VlIzl=''I'' '
        If @Sifra_OE Is Not NULL
                 Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
        If @KoiOE Is Not NULL
                 Set @SSQLFrom  = @SSQLFrom + ' And S.Sifra_OE IN (' + @KoiOE + ') '
        If @Sifra_Gr Is Not Null
            Set @SSQLFrom = @SSQLFrom + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
        If @Sifra_ZBrand Is Not Null
            Set @SSQLFrom = @SSQLFrom + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
        If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
            Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null) Or (@Sifra_Pat Is Not Null)
            Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null) OR @Pod6 IS NOT NULL  OR @Pod7 IS NOT NULL
            Set @SSQLFrom = @SSQLFrom + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                               Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
        If @GrKup Is Not Null
            Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                                And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
        If @GrArt Is Not Null
            Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
        Set @SSQLFrom = @SSQLFrom + 'Where NRD.NarId Is Null '   --K.Iskluci <> ''D'' And (D.Realiziran<>''D'' Or D.Realiziran Is Null) '

        Set @SSQLDok = ' '
        If @Datum_Od Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Dat_Isporaka>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLDok = @SSQLDok + ' And D.Dat_Isporaka<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '

        --If @TipDokProd IS NOT NULL
        --    Set @SSQLDok = @SSQLDok + ' And D.Sifra_Dok IN (' + @TipDokProd + ') '
        --If @Sifra_Mest Is Not NULL
        --    Set @SSQLDok = @SSQLDok + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '

        Insert #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLDok + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg ')
        --print @SSQL + @SSQLFrom + @SSQLUsl + @SSQLUslArt + 'Group By TS.Sifra_Sur, K.Sifra_Podg '

        CREATE TABLE #TopLista2
        (
            Sifra_Art     Varchar(20) NULL ,
            Kolicina     decimal(18, 4) NULL ,
            UL         decimal(18, 4) NULL ,
            Izlezi         int NULL ,
            Vr_Osnov     decimal(18, 4) NULL ,
            Vr_SoRabat     decimal(18, 4) NULL ,
            Vr_Krajna     decimal(18, 4) NULL ,
            Vr_NPS     decimal(18, 4) NULL ,
            Vr_Rabat    decimal(18,4) NULL,
            Vr_kasa        decimal(18,4) NULL,
            Vr_NabBezDDV    decimal(18,4) NULL,
            Vr_NabSoDDV    decimal(18,4) NULL,
            Vr_Devizna    decimal(18,4) NULL,
            Komintenti    int NULL ,
            Zaliha         decimal(18, 4) NULL,
            Sifra_Podg    Char(6) NULL,
            KolicNar     decimal(18,4),
            VrednostNar     decimal(18,4)
        )
        Insert Into #TopLista2
        Select Sifra_Art, Sum(Kolicina), Sum(UL), Sum(Izlezi), Sum(Vr_Osnov), Sum(Vr_SoRabat), Sum(Vr_Krajna), Sum(Vr_NPS),
            Sum(Vr_Rabat), Sum(Vr_kasa), Sum(Vr_NabBezDDV), Sum(Vr_NabSoDDV), Sum(Vr_Devizna), Sum(Komintenti), Sum(Zaliha), Sifra_Podg,
            Sum(KolicNar) KolicNar, Sum(VrednostNar) VrednostNar
        From #TopLista
        Group By Sifra_Art, Sifra_Podg

        Delete From #TopLista
        Insert Into #TopLista Select * From #TopLista2
    End

    ---------------------------------------------------------- A S O R T I M A N ---------------------------------------------------------------------
    If @Asortiman In ('D', 'Z')
    Begin
        Set @SSQL = ' Select K.Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, K.Sifra_Podg
                From Katart K '
        If @Asortiman ='Z'
        Begin
            Set @SSQL = @SSQL + ' Inner Join Soart S On S.Sifra_Art=K.Sifra_Art '
            If @Sifra_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
            If @KoiOE Is Not NULL
                     Set @SSQL = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
        End
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
        If @Sifra_ZBrand Is Not Null
            Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
        Set @SSQL = @SSQL + ' Where K.Sifra_Art Not In (Select Distinct Sifra_Art from #TopLista)
                    And K.Iskluci <> ''D'' '

        Set @SSQL = @SSQL + @SSQLUslArt

        If @Asortiman ='Z'
            Set @SSQL = @SSQL + ' Group By K.Sifra_Art, K.Sifra_Podg
                          Having Sum(S.Vlez-S.Izlez) <> 0 '
        Insert Into #TopLista Exec(@SSQL)
print @SSQL
    End
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------------------------------- Z A L I H A  ----------------------------------------------------------------------
    Set @SSQL = 'Update #TopLista
            Set Zaliha = (Select Sum(Vlez)-Sum(Izlez) From Soart Where 1=1 '
    If @ZalihaOdOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (' + @ZalihaOdOE + ') '
    Set @SSQL = @SSQL + ' And #TopLIsta.Sifra_Art=Soart.Sifra_Art) '
    Exec(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------
    ----------------------------------------------- P R E S M E T A J    N A B A V K I ---------------------------------------------------------
    If @DajNabavki = 'D'
    Begin
        Alter Table #TopLista Add KolicNabavka decimal(18,4) Null
        Create Table #Nabavki
        (
         Sifra_Art    varchar(20),
         KolicNab    decimal(18,6)
        )
        Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
                From Dokr D
                Inner Join Stavr S On S.DokrID=D.DokrID
                Where D.VlIzl=''V'' And S.Sifra_Art In (Select Sifra_Art From #TopLista) '
        If @Sifra_OE Is Not NULL
                 Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
        If @KoiOE Is Not NULL
                 Set @SSQL = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
        If @PoKojDatum = 'V'
        Begin
            If @Datum_Od Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
            If @Datum_Do Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
        End
        Else
        Begin
            If @Datum_Od Is Not NULL
                Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
            If @Datum_Do Is Not NULL
                Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
        End
        Set @SSQL = @SSQL + ' Group By S.Sifra_Art '
        Insert Into #Nabavki Exec(@SSQL)
        Update #TopLista
        Set #TopLista.KolicNabavka=#Nabavki.KolicNab
        From #Nabavki
        Where #Nabavki.Sifra_Art=#TopLista.Sifra_Art
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------
    ------------------------------------------------------------ R E Z U L T A T ------------------------------------------------------------------------
    Set @SSQL = 'Select'
    IF @Kolku IS NOT NULL
        Set @SSQL = @SSQL + ' TOP ' + Cast(@Kolku as varchar(15))
    Set @SSQL = @SSQL +  ' T.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Sifra,
            K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            T.Kolicina, T.UL, T.Izlezi, T.Vr_Osnov, T.Vr_SoRabat, T.Vr_Krajna,
            T.Vr_NPS, T.Vr_Rabat, T.Vr_Kasa, T.Vr_NabBezDDV, T.Vr_NabSoDDV, T.Vr_Devizna, T.Komintenti, T.Zaliha, K.Sifra_Tar,
            Round(T.Kolicina * K.Tezina/1000, 4) Neto_Tezina, Round(T.Kolicina * K.Volumen / 1000, 4) Volumen, K.Kto, DOB.ImeKup, K.ImaPaleta,
            K.BTezina, Round(T.Kolicina * K.BTezina/1000, 4) Bruto_Tezina'
    If @DajNabavki = 'D'
        Set @SSQL = @SSQL + ', T.KolicNabavka '
    Else
        Set @SSQL = @SSQL + ', Null KolicNabavka '
    IF @SoPodgrupi = 'D'
              SET @SSQL = @SSQL + ' ,T.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr '
    ELSE
        Set @SSQL = @SSQL + ', K.Sifra_Podg, '' '' as Ime_Podg, '' '' as Sifra_Gr, '' '' as Ime_Gr '
    IF @SoPod1 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo1, D1.Ime_1'
    ELSE
        Set @SSQL = @SSQL + ', K.Drugo1, '' '' as Ime_1'
    IF @SoPod2 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo2, D2.Ime_2'
    ELSE
        Set @SSQL = @SSQL + ', K.Drugo2, '' '' as Ime_2'
    IF @SoPod3 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo3, D3.Ime_3'
    ELSE
        Set @SSQL = @SSQL + ', K.Drugo3, '' '' as Ime_3'
    IF @SoPod4 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo4, D4.Ime_4'
    ELSE
        Set @SSQL = @SSQL + ', K.Drugo4, '' '' as Ime_4'
    IF @SoPod5 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo5, D5.Ime_5'
    ELSE
        Set @SSQL = @SSQL + ', K.Drugo5, '' '' as Ime_5'
    IF @SoBrand = 'D'
        Set @SSQL = @SSQL + ', K.Sifra_Drg, B.Ime'
    ELSE
        Set @SSQL = @SSQL + ', K.Sifra_Drg, '' '' as Ime'
    If @DaliNabavna = 'D'
        Set @SSQL = @SSQL + ', SO.DokCena*(1-SO.Uces/100) Nabavna, SO.Cena '        --bese do 26.09.07 K.Nabavna, SO.Cena
    Else
        Set @SSQL = @SSQL + ', Null as Nabavna, Null as Cena '
    If @Sifra_Tabela Is Not Null
        Set @SSQL = @SSQL + ', KIA.Grupa, KIA.RbrVoGr '
    Else
        Set @SSQL = @SSQL + ', Null as Grupa, Null as RbrVoGr '
    If @PrikNeralizNarac = 'D'
        Set @SSQL = @SSQL + ', T.KolicNar, T.VrednostNar '
    Else
        Set @SSQL = @SSQL + ', Null KolicNar, Null VrednostNar '
    Set @SSQL = @SSQL + ', K.Nom, ' + Cast(@RazlDat As varchar(10)) + ' as RazlDat, K.GotCena  , K.DogCena
        From #TopLista T
        Inner Join Katart K On T.Sifra_Art=K.Sifra_Art '
    IF @SoPodgrupi = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Podgrupi PG ON T.Sifra_Podg = PG.Sifra_Podg
                     Left Outer Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    IF @SoPod1 = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Drugo1 D1 ON K.Drugo1 = D1.Sifra_1 '
    IF @SoPod2 = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Drugo2 D2 ON K.Drugo2 = D2.Sifra_2 '
    IF @SoPod3 = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Drugo3 D3 ON K.Drugo3 = D3.Sifra_3 '
    IF @SoPod4 = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Drugo4 D4 ON K.Drugo4 = D4.Sifra_4 '
    IF @SoPod5 = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Drugo5 D5 ON K.Drugo5 = D5.Sifra_5 '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
        Set @SSQL = @SSQL + 'Left Outer Join Komint DOB On K.Kto=DOB.Sifra_Kup '
    If @DaliNabavna = 'D'
    Begin
        Declare @Sif_Oe smallint
        Declare @SSQLGrOrg varchar(1000)
        If @Sifra_Oe Is Not Null And @KoiOe Is Null
            Set @SSQL = @SSQL + 'Left Outer Join Soart SO On SO.Sifra_Art=K.Sifra_Art And SO.Sifra_Oe= ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        Else If @Sifra_Oe Is Null And @KoiOe Is Not Null
        Begin
            Create Table #OE
            (
             Sifra_Oe    smallint
            )
            Set @SSQLGrOrg = ' Select Top 1 Sifra_Oe From Orged Where Sifra_Oe In ( ' + @KoiOe + ') Order By Sifra_Oe'
            Insert Into #OE Exec(@SSQLGrOrg)
            Set @Sif_Oe = (Select Sifra_Oe From #OE)
            If @Sif_Oe Is Null
                Set @Sif_Oe = (Select Top 1 Sifra_Oe From Orged Order By Sifra_Oe)
            Set @SSQL = @SSQL + 'Left Outer Join Soart SO On SO.Sifra_Art=K.Sifra_Art And SO.Sifra_Oe= ' + Cast(@Sif_Oe as varchar(6)) + ' '
        End
        Else --If @Sifra_Oe Is Null And @KoiOe Is Not Null
        Begin
            Set @Sif_Oe = (Select Top 1 Sifra_Oe From Orged Order By Sifra_Oe)
            Set @SSQL = @SSQL + 'Left Outer Join Soart SO On SO.Sifra_Art=K.Sifra_Art And SO.Sifra_Oe= ' + Cast(@Sif_Oe as varchar(6)) + ' '
        End
    End
    If @Sifra_Tabela Is Not Null
        Set @SSQL = @SSQL + 'Inner Join KonfIzvArt KIA On KIA.Sifra_Art = K.Sifra_Art And KIA.Sifra_Tabela = ' + @Sifra_Tabela + ' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = 'B'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi DESC'
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna DESC'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_NPS DESC'
    Else If @Podred = '5'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna DESC, Zaliha Desc'
        Else If @Podred = 'N'
        Set @SSQL = @SSQL + 'Order By Neto_Tezina DESC'
--    Print (@SSQL)
    Exec (@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_toplista_nabavki]'))
drop procedure [dbo].[sp_art_toplista_nabavki]

Go
CREATE    PROCEDURE sp_Art_TopLista_Nabavki
    @Sifra_OE Smallint = 1,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 3,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(200) = Null,
    @Komint_KObj Char(1) = 'K',
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @RazbijSostav Char(1) = 'D',
    @ZalihaOdOE Varchar(300) = Null,
    @SoPodgrupi char(1) = 'N',
    @Sifra_Pat    varchar(300) = Null,
    @Sifra_Obj    smallint  = Null,
    @TipDokNab    varchar(200) = NULL,
    @Koi_Gradovi    varchar(200) = NULL,
    @Koi_Regioni    varchar(200) = NULL,
    @Sifra_Mest Int = Null,
    @PoProdMesta char(1)='N',
    @KomercKako    char(1) = 'I',             -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @SoBrand    char(1) = Null,
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @SoPod4    char(1) = Null,
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    If @PoKojDatum = 'V'
           If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    create            Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE TABLE #TopLista
    (    [Sifra_Art] Varchar(20) NULL ,
        [Kolicina] [decimal](18, 4) NULL ,
        [UL] [decimal](18, 4) NULL ,
        [Izlezi] [int] NULL ,
        [DVr_Osnov] [decimal](18, 4) NULL ,
        [DVr_SoRabat] [decimal](18, 4) NULL ,
        [DVr_Krajna] [decimal](18, 4) NULL ,
        [MVr_Osnov] [decimal](18, 4) NULL ,
        [MVr_SoRabat] [decimal](18, 4) NULL ,
        [MVr_Krajna] [decimal](18, 4) NULL ,
        [Vr_NPS] [decimal](18, 4) NULL ,
        Vr_NabBezDDV    decimal(18,4) NULL,
        Vr_NabSoDDV    decimal(18,4) NULL,
        [Komintenti] [int] NULL ,
        [Zaliha] [decimal](18, 4) NULL ,
        [TekNabC] [decimal](18, 4) NULL ,
        [MinNabC] [decimal](18, 4) NULL ,
        [MaxNabC] [decimal](18, 4) NULL
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
-- select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur Sifra_Art,
            Round(Sum(S.Kolic*TS.Ima_Kolic), 4) As Kolicina,
            Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) As UL,
            Count(TS.Sifra_Art) As Izlezi,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as DVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_Krajna,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn)), 4) as MVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_Krajna,            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS,
            Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV, '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + 'Count (Distinct(D.Sifra_Mest)) As Komintenti, '
    Else
    Begin
        If @Komint_KObj = 'K'
            Set @SSQL =    @SSQL + 'Count (Distinct(D.Sifra_Kup)) As Komintenti, '
        Else If @Komint_KObj = 'O'
            Set @SSQL =    @SSQL + 'Count (Distinct(D.Sifra_Obj)) As Komintenti, '
    End
    Set @SSQL = @SSQL + 'Null As Zaliha,
            K.Nabavna TekNabC,
            Min(S.NabCena*(1+S.POsn/100)) As MinNabC,
            Max(S.NabCena*(1+S.POsn/100)) As MaxNabC '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=2 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL              Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null) Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + ' Inner Join ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
/*------------------------------------------------------- dodadeno 16.07.2004  filterot da gleda prvo od kobjekti ----------------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
*/
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                        OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Mest IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Mest = ' + Cast(@Sifra_Mest as varchar(6)) + ' '
    If @TipKup Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @TipDokNab IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokNab + ') '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, K.Nabavna '
    Insert #TopLista Exec(@SSQL)
    If @ZalihaOdOE Is Not Null
        Begin
            Set @SSQL = 'Update #TopLista
                Set Zaliha = (Select Sum(Vlez)-Sum(Izlez) From Soart
                    Where Sifra_OE In (' + @ZalihaOdOE + ')
                    And #TopLIsta.Sifra_Art=Soart.Sifra_Art) '
            Exec(@SSQL)
        End

    Set @SSQL = 'Select'
    IF @Kolku IS NOT NULL
        Set @SSQL = @SSQL + ' TOP ' + Cast(@Kolku as varchar(15))
    Set @SSQL = @SSQL +  ' T.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Sifra,
            K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            T.Kolicina, T.UL, T.Izlezi,
            T.DVr_Osnov, T.DVr_SoRabat, T.DVr_Krajna,
            T.MVr_Osnov, T.MVr_SoRabat, T.MVr_Krajna,
            T.Vr_NPS, T.Vr_NabSoDDV, T.Vr_NabBezDDV,
            T.Komintenti, T.Zaliha, T.TekNabC, T.MinNabC, T.MaxNabC, K.Kto, KO.ImeKup, Tar.ProcOsn,
            Round(T.Kolicina * K.Volumen / 1000, 4) Volumen '
    IF @SoPodgrupi = 'D'
        Set @SSQL = @SSQL + ', K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr '
    ELSE
        Set @SSQL = @SSQL + ', K.Sifra_Podg, '' '' as Ime_Podg, '' '' as Sifra_Gr, '' '' as Ime_Gr '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + ', K.Sifra_Drg, B.Ime as ImeBrand '
    Else
        Set @SSQL = @SSQL + ', K.Sifra_Drg, Null as ImeBrand '
    If @SoPod4 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo4, D4.Ime_4 as ImeDrugo4 '
    Else
        Set @SSQL = @SSQL + ', K.Drugo4, Null as ImeDrugo4 '

    if @SIfra_Oe is not null
        set @SSQL = @SSQL + ', Soa.Cena SoaCena '

    Set @SSQL = @SSQL + ' From #TopLista T
        Inner Join Katart K On T.Sifra_Art=K.Sifra_Art
        left outer join Tarifi Tar on K.Sifra_Tar = Tar.Sifra_Tar
        Left Outer Join Komint KO On K.Kto = KO.Sifra_kup '
    if @SIfra_Oe is not null
        set @SSQL = @SSQL + ' Left Outer join Soart Soa
                    on Soa.Sifra_oe = ' + cast (@SifrA_oe as varchaR(5)) + '
                         and Soa.SifrA_ARt = T.SIfra_Art '
    IF @SoPodgrupi = 'D'
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg
                     Inner Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg = K.Sifra_Drg '
    If @SoPod4 = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo4 D4 On D4.Sifra_4 = K.Drugo4 '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = 'B'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi DESC'
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By MVr_Krajna DESC, DVr_Krajna DESC'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_NPS DESC'
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_toplista_nabavki_soprod]'))
drop procedure [dbo].[sp_art_toplista_nabavki_soprod]

Go




CREATE    PROCEDURE sp_Art_TopLista_Nabavki_SoProd
    @Sifra_OE Smallint = 1,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 3,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(200) = Null,
    @Komint_KObj Char(1) = 'K',
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @RazbijSostav Char(1) = 'D',
    @ZalihaOdOE Varchar(300) = '1,2,3',
    @SoPodgrupi char(1) = 'N',
    @Sifra_Pat    varchar(300) = Null,
    @Sifra_obj    smallint = Null,
    @TipDokNab    varchar(200) = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Gradovi    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Mest Int = Null,
    @PoProdMesta char(1)='N',
    @KomercKako    char(1) = 'I',             -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @SoBrand    char(1) = Null,
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @SoPod4    char(1) = Null,
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
        @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null

AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    CREATE           Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE TABLE #TopLista
    (    [Sifra_Art] Varchar(20) NULL ,
        [Kolicina] [decimal](18, 4) NULL ,
        [UL] [decimal](18, 4) NULL ,
        [Izlezi] [int] NULL ,
        [DVr_Osnov] [decimal](18, 4) NULL ,
        [DVr_SoRabat] [decimal](18, 4) NULL ,
        [DVr_Krajna] [decimal](18, 4) NULL ,
        [MVr_Osnov] [decimal](18, 4) NULL ,
        [MVr_SoRabat] [decimal](18, 4) NULL ,
        [MVr_Krajna] [decimal](18, 4) NULL ,
        [Vr_NPS] [decimal](18, 4) NULL ,
        [Komintenti] [int] NULL ,
        [Zaliha] [decimal](18, 4) NULL ,
        [PoslednaNabavka] [decimal](18, 4) NULL ,
        [TekNabC] [decimal](18, 4) NULL ,
        [MinNabC] [decimal](18, 4) NULL ,
        [MaxNabC] [decimal](18, 4) NULL ,
        [Prodazba_Za1] [decimal](18, 4) NULL ,
        [VrProd_Za1] [decimal](18, 4) NULL ,
         [Prodazba_Za3] [decimal](18, 4) NULL ,
        [VrProd_Za3] [decimal](18, 4) NULL
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
-- select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
-- Prvo: Gi presmetuvam nabavkite, nabavnite ceni i zalihata
--------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur Sifra_Art,
            Round(Sum(S.Kolic*TS.Ima_Kolic), 4) As Kolicina,
            Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) As UL,
            Count(TS.Sifra_Art) As Izlezi,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as DVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_Krajna,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn)), 4) as MVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_Krajna,
            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS, '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + 'Count (Distinct(D.Sifra_Mest)) As Komintenti, '
    Else
    Begin
        If @Komint_KObj = 'K'
            Set @SSQL =    @SSQL + 'Count (Distinct(D.Sifra_Kup)) As Komintenti, '
        Else If @Komint_KObj = 'O'
            Set @SSQL =    @SSQL + 'Count (Distinct(D.Sifra_Obj)) As Komintenti, '
    End
    Set @SSQL = @SSQL + '0 As Zaliha,
            0 As Poslednanabavka,
            K.Nabavna As TekNabC,
            Min(S.NabCena*(1+S.POsn/100)) As MinNabC,
            Max(S.NabCena*(1+S.POsn/100)) As MaxNabC,
            0 As Prodazba_Za1, 0 As VrProd_Za1,
            0 As Prodazba_Za3, 0 As VrProd_Za3 '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=2 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
         Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null) Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
/*
------------------------------------------------------- dodadeno 16.07.2004  filterot da gleda prvo od kobjekti ----------------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5= ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
*/
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
      If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat  + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                        OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Mest IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Mest = ' + Cast(@Sifra_Mest as varchar(6)) + ' '
    If @TipKup Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @TipDokNab IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokNab + ') '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, K.Nabavna '
    Insert #TopLista Exec(@SSQL)
    If @ZalihaOdOE Is Not Null
        Begin
            Set @SSQL = 'Update #TopLista
                Set Zaliha = (Select Sum(Vlez)-Sum(Izlez) From Soart
                Where Sifra_OE In (' + @ZalihaOdOE + ')
                And #TopLIsta.Sifra_Art=Soart.Sifra_Art) '
            Exec(@SSQL)
        End
-- Da ja najdime Kolicinata na poslednata nabavka
-- Artikl po Artikl
--------------------------------------------------------------------------
    Set @SSQL = 'Update #TopLista
        Set PoslednaNabavka = '
    Set @SSQL = @SSQL + '( '
    Set @SSQL = @SSQL + 'Select Top 1 Kolic From Stavr
            Where Stavr.Sifra_Art=#TopLista.Sifra_Art
                And Stavr.ImaDodatna Is Null
                And Stavr.VlIzl=''V''
                And Stavr.Sifra_Dok<>990
                And Stavr.Kolic > 0 '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Stavr.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Stavr.Sifra_OE = ' + Cast(@Sifra_OE As varchar(10)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And Stavr.Sifra_OE IN (' + @KoiOE + ') '
    Set @SSQL = @SSQL + 'Order By Stavr.Datum_Dok Desc, Stavr.DokID Desc) '
    Exec(@SSQL)
-- Vtoro: Gi presmetuvam prodazbite so identicni filtri kako pri nabavkite
--------------------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur Sifra_Art,
                0 As Kolicina,
                0 As UL,
                0 As Izlezi,
                0 as DVr_Osnov,
                0 as DVr_SoRabat,
                0 as DVr_Krajna,
                0 as MVr_Osnov,
                0 as MVr_SoRabat,
                0 as MVr_Krajna,
                0 As Vr_NPS, '
    Set @SSQL =    @SSQL + '0 As Komintenti, '
    Set @SSQL = @SSQL + '0 As Zaliha,
            0 As PoslednaNabaka,
            0 As TekNabC,
            0 As MinNabC,
            0 As MaxNabC,
            Prodazba_Za1 = Sum(Case D.Sifra_Za
                When ''1'' Then S.Kolic
                Else 0
                End),
            VrProd_Za1 = Sum(Case D.Sifra_Za
                When ''1'' Then dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)
                Else 0
                End),
            Prodazba_Za3 = Sum(Case D.Sifra_Za
                When ''3'' Then S.Kolic
                Else 0
                End),
            VrProd_Za3 = Sum(Case D.Sifra_Za
                When ''3'' Then dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)
                Else 0
                End) '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.VlIzl=''I'' '      --And D.Sifra_Za In (''1'', ''3'') '    trganato 28.11.03 -->dodadeno podolu
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null) Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup '
    Set @SSQL = @SSQL + 'Where K.Sifra_Art In (Select Distinct Sifra_Art From #TopLista) '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=' + @Sifra_Art_Od + ' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=' + @Sifra_Art_Do + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or KUP.KDrugo1 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or KUP.KDrugo2 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) + ' Or KUP.KDrugo3 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) + ' Or KUP.KDrugo4 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) + ' Or KUP.KDrugo5 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo6<>' + Cast(@Pod6 As Varchar(6)) + ' Or KUP.KDrugo6 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo6=' + Cast(@Pod6 As Varchar(6)) + ' '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And (KUP.KDrugo7<>' + Cast(@Pod7 As Varchar(6)) + ' Or KUP.KDrugo7 Is Null) '
        Else
            Set @SSQL = @SSQL + ' And KUP.KDrugo7=' + Cast(@Pod7 As Varchar(6)) + ' '
/*
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Pod6 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo6=' + Cast(@Pod6 As Varchar(6)) + ' '
    If @Pod7 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo7=' + Cast(@Pod7 As Varchar(6)) + ' '
*/
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
         End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
      If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat In (' + @Sifra_Pat + ') '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Mest IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Mest = ' + Cast(@Sifra_Mest as varchar(6)) + ' '
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
/*
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
*/
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur '
    Insert #TopLista Exec(@SSQL)
    Set @SSQL = 'Select'    IF @Kolku IS NOT NULL
        Set @SSQL = @SSQL + ' TOP ' + Cast(@Kolku as varchar(15))
    Set @SSQL = @SSQL +  ' T.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Sifra,
            K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            K.Kto, KO.ImeKup,
            Sum(T.Kolicina) Kolicina,
            Sum(T.UL) UL,
            Sum(T.Izlezi) Izlezi,
            Sum(T.DVr_Osnov) DVr_Osnov,
            Sum(T.DVr_SoRabat) DVr_SoRabat,
            Sum(T.DVr_Krajna) DVr_Krajna,
            Sum(T.MVr_Osnov) MVr_Osnov,
            Sum(T.MVr_SoRabat) MVr_SoRabat,
            Sum(T.MVr_Krajna) MVr_Krajna,
            Sum(T.Vr_NPS) Vr_NPS,
            Sum(T.Komintenti) Komintenti,
            Sum(T.Zaliha) Zaliha,
            Sum(T.PoslednaNabavka) PoslednaNabavka,
            Sum(T.TekNabC) TekNabC,
            Sum(T.MinNabC) MinNabC,
            Sum(T.MaxNabC) MaxNabC,
            Sum(T.Prodazba_Za1) Prodazba_Za1,
            Sum(T.VrProd_Za1) VrProd_Za1,
            Sum(T.Prodazba_Za3) Prodazba_Za3,
            Sum(T.VrProd_Za3) VrProd_Za3,
            0 as VlezOdPren,
            K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + ' K.Sifra_Drg, B.Ime as ImeBrand, '
    Else
        Set @SSQL = @SSQL + ' Null as Sifra_Drg, Null as ImeBrand, '
    If @SoPod4 = 'D'
        Set @SSQL = @SSQL + ' K.Drugo4, D4.Ime_4 as ImeDrugo4 '
    Else
        Set @SSQL = @SSQL + ' Null as Drugo4, Null as ImeDrugo4 '
    Set @SSQL = @SSQL + ' From #TopLista T
            Inner Join Katart K On T.Sifra_Art=K.Sifra_Art
            Left OUTER Join Komint KO ON K.Kto=KO.Sifra_Kup
            Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg
            Inner Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg = K.Sifra_Drg '
    If @SoPod4 = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo4 D4 On D4.Sifra_4 = K.Drugo4 '
    Set @SSQL = @SSQL + 'Group By T.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Sifra,
            K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina, K.Kto, KO.ImeKup,
            K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr '
    If @SoBrand = 'D'
        Set @SSQL = @SSQL + ', K.Sifra_Drg, B.Ime '
    If @SoPod4 = 'D'
        Set @SSQL = @SSQL + ', K.Drugo4, D4.Ime_4 '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = 'B'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi DESC'
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By MVr_Krajna DESC, DVr_Krajna DESC'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_NPS DESC'
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_toplista_popresmetka]'))
drop procedure [dbo].[sp_art_toplista_popresmetka]

Go




CREATE        PROCEDURE sp_Art_TopLista_PoPresmetka
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(300) = Null,
    @Datum_Od     Smalldatetime = Null,
    @Datum_Do     Smalldatetime = Null,
    @Sifra_Art_Od     Varchar(20)= Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Podred     Char(1) = 3,
    @Sifra_Gr     varChar(6) = Null,
    @Sifra_Podg     Char(6) = Null,
    @ZalihaOdOE     Varchar(300) = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Asortiman    char(1) = 'N',        -- D - da gi prikaze i onie artikli za koi nema prodazba vo periodot
                        -- Z - da gi prikaze i onie artikli za koi nema prodazba vo periodot, a gi ima na zaliha
    @Sifra_Tabela     varchar(20) = null,    -- Dali da gi vratam definiranite Grupi na Artikli i rednite broevi za podreduvanje na izvestajot (za specijalni izvestai)
    @GotovinaPoPresm char(1) = 'N',
        @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null

AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '
    CREATE     Table #Rez
    (
     Sifra_Art     varchar(20),
     Vlez        decimal(18,6),
     Izlez        decimal(18,6),
     IzlezGot    decimal(18,6),
     VratIspr        decimal(18,6),
     VratNeIspr    decimal(18,6),
     Zaliha        decimal(18,6),
     IzlezMag    decimal(18,6)
    )
------------------------------------------------------------------ U S L O V -------------------------------------------------------------------------------------
    If @Sifra_OE Is Not NULL
             Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @Drugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQLUsl = @SSQLUsl + ' Group By S.Sifra_Art '
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- I (prvo) - da gi najdeme site vlezovi
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID'
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.ImaDodatna = ''P''
            and D.Sifra_Prim = 1
            and D.VlIzl = ''V''
            and S.Kolic > 0
            and S.Sifra_Oe <> 1 '
    Insert Into #Rez(Sifra_Art, Vlez) Exec(@SSQL+@SSQLUsl)
    -- II - da gi najdeme izlezite - faktura
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.VlIzl=''I'' and D.Sifra_Dok NOT IN (82,84,6,106)
                and S.Sifra_Oe <> 1 '
    Insert Into #Rez(Sifra_Art, Izlez) Exec(@SSQL+@SSQLUsl)
    -- II - da gi najdeme site ostanati izlezi (gotovinski)   , Sum(S.Kolic*dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa))
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.VlIzl=''I'' and D.Sifra_Dok IN (82,84,6,106)
                    and S.Sifra_Oe <> 1 '
    Insert Into #Rez(Sifra_Art, IzlezGot) Exec(@SSQL+@SSQLUsl)
    -- III - da gi najdeme vratenite artikli koi se ispravni
    Set @SSQL = ' Select S.Sifra_Art, Sum(Abs(S.Kolic))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.ImaDodatna = ''P''
                and D.Sifra_Prim = 1
                and S.Kolic < 0
                and S.Sifra_Oe <> 1 '
    Insert Into #Rez(Sifra_Art, VratIspr) Exec(@SSQL+@SSQLUsl)
    -- IV - da gi najdeme vratenite artikli koi se ne ispravni
    Set @SSQL = ' Select S.Sifra_Art, Sum(Abs(S.Kolic))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.ImaDodatna = ''P''
                and D.Sifra_Prim <> 1
                and S.Kolic < 0
                and S.Sifra_Oe <> 1 '
    Insert Into #Rez(Sifra_Art, VratNeIspr) Exec(@SSQL+@SSQLUsl)
    -- V Izlez od magacin
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                      Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.VlIzl=''I''
                and S.Sifra_Oe = 1 '
    Insert Into #Rez(Sifra_Art, IzlezMag) Exec(@SSQL+@SSQLUsl)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Asortiman In ('D', 'Z')
    Begin
        Set @SSQL = ' Select K.Sifra_Art, 0, 0, 0, 0, 0, 0, 0 From Katart K '
        IF @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + 'Left Outer Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg '
        If @Sifra_Tabela Is Not Null
            Set @SSQL = @SSQL + 'Inner Join KonfIzvArt KIA On KIA.Sifra_Art = K.Sifra_Art And KIA.Sifra_Tabela = ' + @Sifra_Tabela + ' '
        Set @SSQL = @SSQL + ' Where K.Sifra_Art Not In (Select Distinct Sifra_Art from #Rez)
                    And K.Iskluci <> ''D'' '
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + 'And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + 'And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
        If @Sifra_Podg Is Not Null
            Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
        If @Drugo1 Is Not NULL
            Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
        If @Drugo2 Is Not NULL
            Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
        If @Drugo3 Is Not NULL
            Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
        If @Drugo4 Is Not NULL
            Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
        If @Drugo5 Is Not NULL
            Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
        Insert Into #Rez Exec(@SSQL)
    End
    ---------------------------------------------------- Z A L I H A ----------------------------------------------------------
    Create Table #Zaliha
    (
     Sifra_Art    varchar(20),
     Zaliha        decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(Case S.VlIzl When ''V'' Then S.Kolic When ''I'' Then (-1*S.Kolic) End)
            From Stavr S
            Where S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + '''
            And S.Sifra_Art In (Select Distinct Sifra_Art From #Rez) '
    If @ZalihaOdOE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (' + @ZalihaOdOE + ') '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art '
    Insert Into #Zaliha Exec(@SSQL)
/*
    Set @SSQL = 'Update #Zaliha
            Set Zaliha = (Select Sum(Case S.VlIzl When ''V'' Then S.Kolic When ''I'' Then (-1*S.Kolic) End)
            From Stavr
            Inner Join #Zaliha On #Zaliha.Sifra_Art = Stavr.Sifra_Art
            Where Datum_Dok < ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @ZalihaOdOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (' + @ZalihaOdOE + ') '
    Set @SSQL = @SSQL + ' And #Zaliha.Sifra_Art=Stavr.Sifra_Art) '
    Exec(@SSQL)
*/    -----------------------------------------------------------------------------------------------------------------------------------
    If @GotovinaPoPresm = 'D'
    Begin
        Update #Rez Set Vlez=0 Where Vlez Is Null
        Update #Rez Set Izlez=0 Where Izlez Is Null
        Update #Rez Set VratIspr=0 Where VratIspr Is Null
        Update #Rez Set VratNeIspr=0 Where VratNeIspr Is Null
    End
    Set @SSQL = ' Select R.Sifra_Art, K.ImeArt, Sum(R.Vlez) Vlez, Sum(R.Izlez) Izlez, Sum(IzlezMag) IzlezMag, K.ImaKomerc,'
    If @GotovinaPoPresm = 'D'
        Set @SSQL = @SSQL + ' Sum(R.Vlez-R.Izlez-R.VratIspr-R.VratNeIspr) as IzlezGot, '
    Else
        Set @SSQL = @SSQL + ' Sum(R.IzlezGot) IzlezGot,  '
    Set @SSQL = @SSQL + ' Sum(R.VratIspr) VratIspr, Sum(R.VratNeIspr) VratNeIspr, Z.Zaliha, '
    If @Sifra_Tabela Is Not Null
        Set @SSQL = @SSQL + ' KIA.Grupa, KIA.RbrVoGr '
    Else
        Set @SSQL = @SSQL + ' Null as Grupa, Null as RbrVoGr '
    Set @SSQL = @SSQL + ' From #Rez R
                  Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
                  Left Outer Join #Zaliha Z On Z.Sifra_Art = R.Sifra_Art '
    If @Sifra_Tabela Is Not Null
        Set @SSQL = @SSQL + 'Inner Join KonfIzvArt KIA On KIA.Sifra_Art = K.Sifra_Art And KIA.Sifra_Tabela = ' + @Sifra_Tabela + ' '
    Set @SSQL = @SSQL + ' Group By R.Sifra_Art, K.ImeArt, K.ImaKomerc, Z.Zaliha '
    If @Sifra_Tabela Is Not Null
        Set @SSQL = @SSQL + ', KIA.Grupa, KIA.RbrVoGr '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By R.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
print @SSQL
    Exec (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_toplista_so_zaliha]'))
drop procedure [dbo].[sp_art_toplista_so_zaliha]

Go




CREATE    PROCEDURE sp_Art_TopLista_So_Zaliha
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(300) = Null,
    @Datum_Od     Smalldatetime = Null,
    @Datum_Do     Smalldatetime = Null,

    @Sifra_Art_Od     Varchar(20)= Null,
    @Sifra_Art_Do    Varchar(20) = Null,
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred     Char(1) = 3,
    @Kto         Char(6) = Null,
    @Sifra_Gr     VarChar(300) = Null,
    @Sifra_Podg     VarChar(300) = Null,
    @Lokacija     Varchar(10) = Null,
    @Sifra_Brand     Smallint = Null,
    @Sifra_ZBrand     Smallint = Null,
    @Pod1         Smallint = Null,
    @Pod2         Smallint = Null,
    @Pod3         Smallint = Null,
    @Pod4         Smallint = Null,
    @Pod5         Smallint = Null,
    @Pod6         Smallint = Null,
    @Pod7         Smallint = Null,
    @KFPod1     char(1) = Null,
    @KFPod2     char(1) = Null,
    @KFPod3     char(1) = Null,
    @KFPod4     char(1) = Null,
    @KFPod5     char(1) = Null,
    @KFPod6     char(1) = Null,
    @KFPod7     char(1) = Null,

    @TipKup     Varchar(200) = Null,
    @Koi_Gradovi     Varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Pat    varchar(300) = Null,
    @Sifra_Obj    smallint  = Null,
    @KomercKako    char(1) = 'I',                 -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @Sifra_Mest     Int = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Sifra_Nivo    char(2) = Null,
    @Sifra_Tip     Smallint = Null,

    @TipDokProd    varchar(200) = Null,
--    @Asortiman    char(1) = 'N',        -- D - da gi prikaze i onie artikli za koi nema prodazba vo periodot
--                        -- Z - da gi prikaze i onie artikli za koi nema prodazba vo periodot, a gi ima na zaliha
    @ZalihaOdOE     Varchar(300) = Null,

    @Sifra_OeDok    smallint = Null,        -- da gi dade samo artiklite od nekoj dokument (oe-dok/broj)
    @Sifra_DokDok    smallint = Null,
    @Broj_DokDok    int = Null,

    @Sifra_OeNar    smallint = Null,        -- da gi dade samo artiklite od nekoa naracka (oe-dok/broj)
    @Sifra_NarNar    smallint = Null,
    @Broj_NarNar    int = Null,

    @PoOrgEd    char(1) = 'N',
    @Sifra_Div    smallint = Null,
    @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null


AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLDok Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)

    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '
    Set @SSQLDok = ' '
    ---------------------------------------------------------------------------- U S L O V --------------------------------------------------------------------------------------------
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @Sifra_Nivo Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                            OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @TipDokProd IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Sifra_Mest Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '

    -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------------------- U S L O V    P O    A R T I L K I ----------------------------------------------------------------------------
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Podg In (' + @Sifra_Podg + ') '
    If @Sifra_Gr Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And PG.Sifra_Gr In (' + @Sifra_Gr + ') '
    If @Lokacija Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Kto=' + @Kto + ' '
    If @Drugo1 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '

    -----------------------------------------------------------------------------------------------------------------------------------------------------------------
    CREATE  TABLE #TopLista
    (
        Sifra_Oe    smallint,
        Sifra_Art     varchar(20),
        Kolicina     decimal(18, 4),
        Vr_Krajna     decimal(18, 4),
        Zaliha         decimal(18, 4),
        KolicNab    decimal(18,6),
        KolicNabVk    decimal(18,6)
    )
    ------------------------------------------------------------------ T O P    L I S T A ------------------------------------------------------------------------------------
    Set @SSQL = 'Select S.Sifra_Oe, S.Sifra_Art,
            Round(Sum(S.Kolic), 4) As Kolicina,
            Round(Sum(S.Kolic*S.DokCena*(1-S.Uces/100)*(1-D.Kasa/100) * (Case When S.DanDokCena=''N'' Then (1+S.Posn/100) Else 1 End)), 4) As Vr_Krajna,
            0 as Zaliha, 0 as KolicNab, 0 as KolicNabVk
        From Stavr S
        Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
        Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null) Or (@Sifra_Pat Is Not Null)
        Or (@Sifra_Nivo Is Not Null) Or @Pod6 IS NOT NULL  OR @Pod7 IS NOT NULL
        Set @SSQL = @SSQL + 'Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '

    If @Sifra_OeDok Is Not Null Or @Sifra_DokDok Is Not Null Or @Broj_DokDok Is Not Null
    Begin
        Set @SSQLDok = @SSQLDok + ' And K.Sifra_Art In (Select Sifra_Art From Stavr Where 1=1 '
            If @Sifra_OeDok Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Sifra_Oe = ' + Cast(@Sifra_OeDok as varchar(6)) + ' '
            If @Sifra_DokDok Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Sifra_Dok = ' + Cast(@Sifra_DokDok as varchar(6)) + ' '
            If @Broj_DokDok Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Broj_Dok = ' + Cast(@Broj_DokDok as varchar(6)) + ' '
            Set @SSQLDok = @SSQLDok + ' )'
    End
    If @Sifra_OeNar Is Not Null Or @Sifra_NarNar Is Not Null Or @Broj_NarNAr Is Not Null
    Begin
        Set @SSQLDok = @SSQLDok + ' And K.Sifra_Art In (Select Sifra_Art From StaNarac Where 1=1 '
            If @Sifra_OeNar Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Sifra_Oe = ' + Cast(@Sifra_OeNar as varchar(6)) + ' '
            If @Sifra_NarNar Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Sifra_Nar = ' + Cast(@Sifra_NarNar as varchar(6)) + ' '
            If @Broj_NarNar Is Not Null
                Set @SSQLDok = @SSQLDok + ' And Broj_Nar = ' + Cast(@Broj_NarNar as varchar(6)) + ' '
            Set @SSQLDok = @SSQLDok + ' )'
    End

    Insert #TopLista Exec(@SSQL + @SSQLDok + @SSQLUsl + @SSQLUslArt + 'Group By S.Sifra_Oe, S.Sifra_Art ')

/*    ---------------------------------------------------------- A S O R T I M A N ---------------------------------------------------------------------
    If @Asortiman In ('D', 'Z')
    Begin
        Set @SSQL = ' Select K.Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, K.Sifra_Podg
                From Katart K '
        If @Asortiman ='Z'
        Begin
            Set @SSQL = @SSQL + ' Inner Join Soart S On S.Sifra_Art=K.Sifra_Art '
            If @Sifra_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
            If @KoiOE Is Not NULL
                     Set @SSQL = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
        End
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
        If @Sifra_ZBrand Is Not Null
            Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
        Set @SSQL = @SSQL + ' Where K.Sifra_Art Not In (Select Distinct Sifra_Art from #TopLista)
                    And K.Iskluci <> ''D'' '
        If @Asortiman ='Z'
            Set @SSQL = @SSQL + ' Group By K.Sifra_Art, K.Sifra_Podg
                          Having Sum(S.Vlez-S.Izlez) <> 0 '
        Insert Into #TopLista Exec(@SSQL + @SSQLUslArt)
    End
*/
    ---------------------------------------------------------------------------- Z A L I H A  --------------------------------------------------------------------------------
    Set @SSQL = 'Select S.Sifra_Oe, S.Sifra_Art, 0 as Kolicina, 0 as Vr_Krajna,
            Sum(Case S.VlIzl When ''V'' Then S.Kolic When ''I'' Then -S.Kolic End) Zaliha, 0 as KolicNab, 0 as KolicNabVk
            From Stavr S
            Inner Join Katart K On S.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '

    Insert #TopLista Exec(@SSQL + @SSQLDok + @SSQLUslArt + 'Group By S.Sifra_Oe, S.Sifra_Art ')
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    -------------------------------------------------------------------- ZALIHA  OD  DRUGA  OE -----------------------------------------------------------------
    Create Table #ZalihaMag
    (
        Sifra_Art    varchar(20),
        ZalihaMag    decimal(18,6)
    )

    If @ZalihaOdOE Is Not Null
    Begin
        Set @SSQL = 'Select S.Sifra_Art, Sum(Case S.VlIzl When ''V'' Then S.Kolic When ''I'' Then -S.Kolic End) as ZalihaMag
                From Stavr S
                Inner Join Katart K On S.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M'' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
        If @Sifra_ZBrand Is Not Null
            Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
        Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' And S.Sifra_OE IN (' + @ZalihaOdOE + ') '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '

        Insert #ZalihaMag Exec(@SSQL + @SSQLDok + @SSQLUslArt + 'Group By S.Sifra_Art ')
    End
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    ----------------------------------------------- P R E S M E T A J    N A B A V K I    V O    P  E R I O D ------------------------------------------------
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Art, 0 as Kolicina, 0 as Vr_Krajna, 0 as  Zaliha, Sum(S.Kolic) KolicNab, 0 as KolicNabVk
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.VlIzl=''V'' And S.Sifra_Art In (Select Sifra_Art From #TopLista) '
    If @Sifra_OE Is Not NULL
             Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '

    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Art '

    Insert Into #TopLista Exec(@SSQL)

    ----------------------------------------------- P R E S M E T A J    N A B A V K I    V K U P N O ------------------------------------------------
    If @Datum_Od Is Not Null
    Begin
        Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Art, 0 as Kolicina, 0 as Vr_Krajna, 0 as  Zaliha, 0 as KolicNab, Sum(S.Kolic) KolicNab
                From Dokr D
                Inner Join Stavr S On S.DokrID=D.DokrID
                Where D.VlIzl=''V'' And S.Sifra_Art In (Select Sifra_Art From #TopLista) '
        If @Sifra_OE Is Not NULL
                 Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
        If @KoiOE Is Not NULL
                 Set @SSQL = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '

        Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Art '

        Insert Into #TopLista Exec(@SSQL)
    End
    Else
    Begin
        Insert Into #TopLista
        Select Sifra_Oe, Sifra_Art, 0 as Kolicina, 0 as Vr_Krajna, 0 as Zaliha, 0 as KolicNab, KolicNab as KolivNabVk
        From #TopLista
        Where KolicNab <> 0
    End

    ------------------------------------------------------------ R E Z U L T A T ------------------------------------------------------------------------
    If @PoOrgEd = 'D'
        Set @SSQL = ' Select T.Sifra_Oe, '
    Else
        Set @SSQL = ' Select Null as Sifra_Oe, '
    Set @SSQL = @SSQL + ' T.Sifra_Art, K.ImeArt, K.EdMera, K.ImaKomerc, K.Tezina, Sum(T.Kolicina) Kolic, Sum(T.Vr_Krajna) Vr_Krajna,
                Sum(T.Zaliha) Zaliha, Sum(KolicNab) KolicNab, Sum(KolicNabVk) KolicNabVk, (Case When ZM.ZalihaMag <> 0 Then ZM.ZalihaMag Else 0 End) ZalihaMag
            From #TopLista T
            Inner Join Katart K On T.Sifra_Art=K.Sifra_Art
            Left Outer Join #ZalihaMag ZM On ZM.Sifra_Art = T.Sifra_Art '
    Set @SSQL = @SSQL +' Group By T.Sifra_Art, K.ImeArt, K.EdMera, K.ImaKomerc, K.Tezina, ZM.ZalihaMag '
    If @PoOrgEd = 'D'
        Set @SSQL = @SSQL +', T.Sifra_Oe '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna DESC'

    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_art_vopopis]'))
drop procedure [dbo].[sp_art_vopopis]

Go


CREATE    PROCEDURE sp_Art_VoPopis
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @Sifra_Art Varchar(20)
AS
IF @Sifra_OE IS NOT NULL
    SELECT L.*, A.ImeArt, A.EdMera, @Sifra_OE AS Sifra_OE
    FROM LPopis L
    INNER JOIN KatArt A ON L.Sifra_Art = A.Sifra_Art
    WHERE L.IDPopis IN (SELECT IDPopis FROM Popis
    WHERE Sifra_OE = @Sifra_OE AND Datum = @Datum)
    AND L.Sifra_Art = @Sifra_Art
ELSE
    SELECT L.*, A.ImeArt, A.EdMera, P.Sifra_OE
    FROM LPopis L
    INNER JOIN KatArt A ON L.Sifra_Art = A.Sifra_Art
    INNER JOIN Popis P ON L.IDPopis=P.IDPopis
    WHERE P.Datum = @Datum AND L.Sifra_Art = @Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artevopercenovnik]'))
drop procedure [dbo].[sp_artevopercenovnik]

Go
CREATE  PROCEDURE sp_ArtEVoPerCenovnik
    @Sifra_Art    varchar(20)
AS
Declare @ii smallint

SELECT @ii=count(*) FROM PerCenCeni P
INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= GetDate() AND P.Datum_Do >= GetDate() AND P.Sifra_Art=@Sifra_Art
IF @ii>0
Begin
        SELECT TipCen, Sifra_Art, Datum_Od, Datum_Do, Cena From PercenCeni P
        INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
        INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
        WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= GetDate() AND P.Datum_Do >= GetDate() AND P.Sifra_Art=@Sifra_Art
        ORDER BY Datum_Od
        RETURN
End

SELECT @ii=count(*) FROM PerCenCeniRedov P
INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
WHERE T.TipCen=2  AND P.Datum_Od >= dateadd(day,-1,GetDate()) AND P.Sifra_Art=@Sifra_Art AND (P.Resen IS NULL OR P.Resen<>'D')
IF @ii>0
Begin
    SELECT TipCen, Sifra_Art, Datum_Od, null as Datum_Do, Cena FROM PerCenCeniRedov P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE T.TipCen=2 AND P.Datum_Od >= dateadd(day,-1,GetDate()) AND P.Sifra_Art=@Sifra_Art AND (P.Resen IS NULL OR P.Resen<>'D')
    ORDER BY Datum_OD
End


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artevopercenovnikzaorged]'))
drop procedure [dbo].[sp_artevopercenovnikzaorged]

Go


CREATE    PROCEDURE sp_ArtEVoPerCenovnikZaOrgEd
    @Sifra_Art    varchar(20),
    @Sifra_TipC smallint
AS
Declare @ii smallint

create table #TmpOrgEd
    (
        Sifra_Oe smallint
    )
INSERT into #TmpOrgEd
SELECT distinct Sifra_Oe FROM TipPerCenVaziZa
WHERE Sifra_TipC = @Sifra_TipC

SELECT @ii=count(*) FROM PerCenCeni P
INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= GetDate()
      AND P.Datum_Do >= GetDate() AND P.Sifra_Art=@Sifra_Art AND V.Sifra_OE in (select Sifra_Oe from #TmpOrgEd)
      AND P.Sifra_TipC <> @Sifra_TipC
IF @ii>0
Begin
        SELECT V.Sifra_Oe, P.Sifra_TipC, P.Sifra_Art, P.Datum_Od, P.Datum_Do, P.Cena From PercenCeni P
        INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
        INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
        WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= GetDate() AND P.Datum_Do >= GetDate() AND P.Sifra_Art=@Sifra_Art
        AND V.Sifra_OE in (select Sifra_Oe from #TmpOrgEd) AND P.Sifra_TipC <> @Sifra_TipC
        ORDER BY Datum_Od
        RETURN
End

SELECT @ii=count(*) FROM PerCenCeniRedov P
INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
WHERE T.TipCen=2  AND P.Datum_Od >= dateadd(day,-1,GetDate())
      AND P.Sifra_Art=@Sifra_Art AND (P.Resen IS NULL OR P.Resen<>'D')
      AND V.Sifra_OE in (select Sifra_Oe from #TmpOrgEd)
      AND P.Sifra_TipC <> @Sifra_TipC
IF @ii>0
Begin
    SELECT V.Sifra_Oe, P.Sifra_TipC, P.Sifra_Art, P.Datum_Od, null as Datum_Do, P.Cena FROM PerCenCeniRedov P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE T.TipCen=2 AND P.Datum_Od >= dateadd(day,-1,GetDate()) AND P.Sifra_Art=@Sifra_Art AND (P.Resen IS NULL OR P.Resen<>'D')
    AND V.Sifra_OE in (select Sifra_Oe from #TmpOrgEd)
    AND P.Sifra_TipC <> @Sifra_TipC
    ORDER BY Datum_OD
End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artgotovvkporabnal]'))
drop procedure [dbo].[sp_artgotovvkporabnal]

Go
CREATE PROCEDURE sp_ArtGotovVkPoRabNal
    @Sifra_OERab    smallint,
    @Broj_RabN        int
AS
SELECT S.Sifra_Art, A.ImeArt, A.EdMera, A.Sifra_Tar, T.ProcOsn, SUM(S.Kolic) Kolic, AVG(dbo.fn_VratiCena(S.MagCena, S.POsn, S.DanMagCena, 'N')) MagCena
FROM Stavr S INNER JOIN DokRabNal DRN ON S.DokrID=DRN.DokrID AND DRN.Tip_RabStav='P'
INNER JOIN RabNal RN ON DRN.RabNalID = RN.RabNalID
INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
INNER JOIN Tarifi T ON T.Sifra_Tar=A.Sifra_Tar
WHERE RN.Sifra_OERab = @Sifra_OERab AND Broj_RabN=@Broj_RabN
GROUP BY S.Sifra_Art, A.ImeArt, A.EdMera, A.Sifra_Tar, T.ProcOsn





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artiklizaplu]'))
drop procedure [dbo].[sp_artiklizaplu]

Go

CREATE  PROCEDURE sp_ArtikliZaPLU
    @Sifra_OE    smallint
AS
--SELECT A.Lokacija, A.Sifra_Art, A.ImeArt, S.Cena FROM KatArt A INNER JOIN Soart S ON A.Sifra_Art=S.Sifra_Art AND S.Sifra_OE=@Sifra_OE
--WHERE A.Lokacija IS NOT NULL AND A.Lokacija<>' '
SELECT Substring(A.Alt_Sifra,4,10) Lokacija, A.Sifra_Art, A.ImeArt, S.Cena FROM KatArt A INNER JOIN Soart S ON A.Sifra_Art=S.Sifra_Art AND S.Sifra_OE=@Sifra_OE
WHERE A.Alt_Sifra IS NOT NULL AND A.Alt_Sifra like 'PLU%'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artkod]'))
drop procedure [dbo].[sp_artkod]

Go

CREATE  PROCEDURE sp_ArtKod
    @Nom As Varchar(50)
As
    Select K.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.ImaKomerc From Katart K
    Where K.Nom=@Nom
    Union
    Select B.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.ImaKomerc From ABarKod B
    Inner Join Katart K On B.Sifra_Art=K.Sifra_Art
    Where B.Nom=@Nom
Return @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artkod_detali]'))
drop procedure [dbo].[sp_artkod_detali]

Go







CREATE         PROCEDURE sp_ArtKod_Detali
    @Sifra_Oe    smallint,
    @Nom         varchar(50) = NULL,            --ili nom ili sifra_art treba da se prati
    @Sifra_Art    varchar(20) = NULL,
    @Sifra_Dob    char(6) = NULL,                --Sifra na dobavuvac ako ima
    @DanCenaKatDob    char(1) = 'N',            --default kakva e cenata vo KatArtDob
    @DanCenaNabCKatArt char(1) = 'D',        --Default kakva e nabcena vo KatArt
    @VratiDokCena    char(1) = 'N',            --Vrati DokCena SoDanok(D)/BezDanok (N)
    @VratiMagCena    char(1) = 'D',            --Vrati MagCena SoDanok(D)/BezDanok (N)
    @ProvDozvArt    CHAR(1) = 'N',
    @ProvOptZal    CHAR(1) = 'N',
    @ZalOdDrugaOE     smallint=null
As
/*    Select K.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.Uces, K.Nabavna, S.Cena as DokCena, K.ImaKomerc, T.ProcOsn, K.Sifra_Tar, K.EdMera
    From Katart K
    inner join Tarifi T on K.Sifra_Tar = T.Sifra_Tar
    left outer join SoArt S on K.Sifra_Art = S.Sifra_art and S.Sifra_Oe = @Sifra_Oe
    Where K.Nom=@Nom
    Union
    Select B.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.Uces, K.Nabavna, S.Cena as DokCena, K.ImaKomerc, T.ProcOsn, K.Sifra_Tar, K.EdMera
    From ABarKod B
    Inner Join Katart K On B.Sifra_Art=K.Sifra_Art
    inner join Tarifi T on K.Sifra_Tar = T.Sifra_Tar
    left outer join SoArt S on K.Sifra_Art = S.Sifra_art and S.Sifra_Oe = @Sifra_Oe
    Where B.Nom=@Nom
*/
CREATE TABLE #TmpArt
(Sifra_Art    varchar(20))
IF @Sifra_Art IS NOT NULL
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Sifra_Art=@Sifra_Art  --za da vidime dali go ima
ELSE
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Nom=@Nom UNION SELECT Sifra_Art FROM ABarKod WHERE Nom=@Nom
DECLARE @NajdenaSifArt varchar(20)
DECLARE @ZalihaOdOe as Decimal(18,4)
SELECT TOP 1 @NajdenaSifArt=Sifra_Art FROM #TmpArt --ORDER BY ??? da stavime ??
IF @NajdenaSifArt IS NULL    RETURN
Declare @DokCena decimal(18,6), @MagCena decimal(18,6), @Rabat decimal(6,2), @ProcOsn decimal(6,2)
Declare @DanMagCena char(1), @DanDokCena char(1), @NajdeDokCena char(1), @DozvArt char(1), @OptZal Decimal(18,9)
SET @NajdeDokCena='N'
SET @DozvArt = ''
SELECT @ProcOsn = T.ProcOsn FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.Sifra_Art=@NajdenaSifArt

Declare @NabCenaOdSoart char(1)
SELECT @NabCenaOdSoart = NabCenaOdSoart FROM OrgEd WHERE Sifra_OE=@Sifra_OE

IF @NabCenaOdSoart IS NULL SET @NabCenaOdSoart=''        --23.07.10
IF @NabCenaOdSoart in ('D','F')
Begin
    IF @NabCenaOdSoart='D'
        SELECT @DanMagCena = DanCena, @MagCena = Cena, @DanDokCena='N', @DokCena=NabCena, @Rabat=0  FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@Sifra_OE
    ELSE
        SELECT @DanMagCena = DanCena, @MagCena = Cena, @DanDokCena='D', @DokCena=DokCena, @Rabat=Uces  FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@Sifra_OE
    IF @DokCena>0 SET @NajdeDokCena='D'
End
ELSE
    SELECT @DanMagCena = DanCena, @MagCena = Cena  FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@Sifra_OE

IF @ZalOdDrugaOe IS NOT Null or @ZalOdDrugaOe<>0
SELECT @ZalihaOdOe=vlez-izlez FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@ZalOdDrugaOE

IF @DanMagCena='D' AND @VratiMagCena='N'
    SET @MagCena = Round(@MagCena /(1+@ProcOsn/100),3)
ELSE IF @DanMagCena='N' AND @VratiMagCena='D'
    SET @MagCena = Round(@MagCena *(1+@ProcOsn/100),3)
IF @Sifra_Dob IS NOT NULL
BEGIN
    SELECT TOP 1 @DokCena=CenaFakt, @Rabat=RabatFakt, @DanDokCena=@DanCenaKatDob FROM KatArtDob
    WHERE Sifra_Art=@NajdenaSifArt AND Sifra_Kup=@Sifra_Dob AND CenaFakt>0 ORDER BY Redosled
    IF @@RowCount = 1 SET @NajdeDokCena='D'
END
IF @NajdeDokCena='N'
Begin
    SELECT TOP 1 @DokCena=CenaFakt, @Rabat=RabatFakt, @DanDokCena=@DanCenaKatDob FROM KatArtDob
    WHERE Sifra_Art=@NajdenaSifArt AND CenaFakt>0 ORDER BY Redosled
    IF @@RowCount = 1 SET @NajdeDokCena='D'
End
IF @NajdeDokCena='N'
Begin
    SELECT @DokCena=Nabavna, @Rabat=Uces, @DanDokCena=@DanCenaNabCKatArt FROM KatArt WHERE Sifra_Art=@NajdenaSifArt
    IF @@RowCount = 1 SET @NajdeDokCena='D'
End
IF @DanDokCena='D' AND @VratiDokCena='N'
    SET @DokCena = Round(@DokCena /(1+@ProcOsn/100),3)
ELSE IF @DanDokCena='N' AND @VratiDokCena='D'
    SET @DokCena = Round(@DokCena *(1+@ProcOsn/100),3)
IF @ProvDozvArt='D'
Begin
    SELECT @DozvArt=Dozvoleno FROM OptZalPoOE WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@NajdenaSifArt
End
IF @ProvOptZal='D'
Begin
    SELECT @OptZal=OptZal FROM OptZalPoOE WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@NajdenaSifArt
End

SELECT @NajdenaSifArt Sifra_Art, ImeArt, @MagCena DokCena, Sostojba, @Rabat Uces, @DokCena Nabavna,
ImaKomerc, @ProcOsn ProcOsn, Sifra_Tar, EdMera, @DozvArt DozvArt, Kto Sifra_Dob,
Nom BarKodOdBaza,@ZalihaOdOe ZalihaOdOe, @OptZal OptZal
FROM KatArt
WHERE Sifra_Art=@NajdenaSifArt

Return @@Error










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artkod_detali_i]'))
drop procedure [dbo].[sp_artkod_detali_i]

Go
CREATE           PROCEDURE sp_ArtKod_Detali_I
    @Sifra_Oe    smallint,
    @Nom         varchar(50) = NULL,            --ili nom ili sifra_art treba da se prati
    @Sifra_Art    varchar(20) = NULL,
    @Sifra_Dob    char(6) = NULL,                --Sifra na dobavuvac ako ima
    @DanCenaKatDob    char(1) = 'N',            --default kakva e cenata vo KatArtDob
    @DanCenaNabCKatArt char(1) = 'D',        --Default kakva e nabcena vo KatArt
    @VratiDokCena    char(1) = 'N',            --Vrati DokCena SoDanok(D)/BezDanok (N)
    @VratiMagCena    char(1) = 'D',            --Vrati MagCena SoDanok(D)/BezDanok (N)
    @ProvDozvArt    CHAR(1) = 'N',
    @VratiIntelPromet CHAR(1) = 'N'

As

/*    Select K.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.Uces, K.Nabavna, S.Cena as DokCena, K.ImaKomerc, T.ProcOsn, K.Sifra_Tar, K.EdMera
    From Katart K
    inner join Tarifi T on K.Sifra_Tar = T.Sifra_Tar
    left outer join SoArt S on K.Sifra_Art = S.Sifra_art and S.Sifra_Oe = @Sifra_Oe
    Where K.Nom=@Nom

    Union

    Select B.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.Uces, K.Nabavna, S.Cena as DokCena, K.ImaKomerc, T.ProcOsn, K.Sifra_Tar, K.EdMera
    From ABarKod B
    Inner Join Katart K On B.Sifra_Art=K.Sifra_Art
    inner join Tarifi T on K.Sifra_Tar = T.Sifra_Tar
    left outer join SoArt S on K.Sifra_Art = S.Sifra_art and S.Sifra_Oe = @Sifra_Oe
    Where B.Nom=@Nom
*/

CREATE TABLE #TmpArt
(Sifra_Art    varchar(20))

IF @Sifra_Art IS NOT NULL
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Sifra_Art=@Sifra_Art  --za da vidime dali go ima
ELSE
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Nom=@Nom UNION SELECT Sifra_Art FROM ABarKod WHERE Nom=@Nom

DECLARE @NajdenaSifArt varchar(20)
SELECT TOP 1 @NajdenaSifArt=Sifra_Art FROM #TmpArt --ORDER BY ??? da stavime ??

IF @NajdenaSifArt IS NULL    RETURN

Declare @DokCena decimal(18,6), @MagCena decimal(18,6), @Rabat decimal(6,2), @ProcOsn decimal(6,2)
Declare @DanMagCena char(1), @DanDokCena char(1), @NajdeDokCena char(1)
Declare @Sost decimal (18, 4)

SET @NajdeDokCena='N'

SELECT @ProcOsn = T.ProcOsn FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.Sifra_Art=@NajdenaSifArt

SELECT @DanMagCena = DanCena, @MagCena = Cena, @Sost = Vlez - Izlez FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@Sifra_OE
if @Sost is null
    set @Sost = 0

IF @DanMagCena='D' AND @VratiMagCena='N'
    SET @MagCena = Round(@MagCena /(1+@ProcOsn/100),3)
ELSE IF @DanMagCena='N' AND @VratiMagCena='D'
    SET @MagCena = Round(@MagCena *(1+@ProcOsn/100),3)


---- Ova zavisi od KATART
-- Prvo vidi sistamot so FAKTURNA CENA
---- Ova e dodadeno na Fev 3, 2009
SELECT @DokCena=Fakturna, @Rabat=GotCena, @DanDokCena='N'
FROM KatArt
WHERE Sifra_Art=@NajdenaSifArt
IF @@RowCount = 1 and @DokCena > 0
begin
   SET @NajdeDokCena='D'
   -- Bidejki voglavno CENITE SO DDV se zaokruzzeni
   SET @DokCena = round(@DokCena *(1+@ProcOsn/100),4)
   SEt @DanDokCena='D'
end


IF @NajdeDokCena='N'
Begin
   SELECT @DokCena=Nabavna, @Rabat=0, @DanDokCena=@DanCenaNabCKatArt
   FROM KatArt
   WHERE Sifra_Art=@NajdenaSifArt
   IF @@RowCount = 1 and @DokCena > 0
    SET @NajdeDokCena='D'
end
---- Gotovo so dodadenoto na Fev 3, 2009

---- Ova zavisi od KATARTDOB
IF @NajdeDokCena='N'
begin
  IF @Sifra_Dob IS NOT NULL
     BEGIN
    SELECT TOP 1 @DokCena=CenaFakt, @Rabat=RabatFakt, @DanDokCena=@DanCenaKatDob FROM KatArtDob
    WHERE Sifra_Art=@NajdenaSifArt AND Sifra_Kup=@Sifra_Dob AND CenaFakt>0 ORDER BY Redosled
    IF @@RowCount = 1 SET @NajdeDokCena='D'
     END
end

---- Ova zavisi od KATARTDOB
IF @NajdeDokCena='N'
Begin
    SELECT TOP 1 @DokCena=CenaFakt, @Rabat=RabatFakt, @DanDokCena=@DanCenaKatDob FROM KatArtDob
    WHERE Sifra_Art=@NajdenaSifArt AND CenaFakt>0 ORDER BY Redosled
    IF @@RowCount = 1 SET @NajdeDokCena='D'
End

---- Ova zavisi od KATART
IF @NajdeDokCena='N'
Begin
    SELECT @DokCena=Nabavna, @Rabat=0, @DanDokCena=@DanCenaNabCKatArt FROM KatArt WHERE Sifra_Art=@NajdenaSifArt
    IF @@RowCount = 1 SET @NajdeDokCena='D'
End

IF @DanDokCena='D' AND @VratiDokCena='N'
    SET @DokCena = Round(@DokCena /(1+@ProcOsn/100),4)    -- Bese round na 3
ELSE IF @DanDokCena='N' AND @VratiDokCena='D'
    SET @DokCena = Round(@DokCena *(1+@ProcOsn/100),4)


Declare @PrometKolic decimal (18, 6)
Declare @StavrKolic decimal (18, 6)

if @VratiIntelPromet = 'D'
  begin
    Declare @Za_Datum smalldatetime

    SET @Za_Datum = dbo.fn_VratiDatum (GetDate())

    set @PrometKolic = (select sum(Kolic)
                    from Spromet S
                inner join Promet P
                on P.Sifra_Oe = S.Sifra_Oe and P.Grp_Kasa = S.Grp_Kasa and
                   P.BrKasa = S.BrKasa and P.Broj_Ska = S.Broj_Ska
                    where S.Sifra_Oe = @Sifra_Oe and Sifra_Art = @NajdenaSifArt and
                  P.Datum_Evid = @Za_Datum)
    if @PrometKolic is null
        set @PrometKolic = 0

    set @StavrKolic = (select sum(Kolic)
                    from Stavr
                    where Sifra_Oe = @Sifra_Oe and Sifra_Art = @NajdenaSifArt And
                  Datum_Dok = @Za_Datum and SIfra_Dok in (100, 101))

    if @StavrKolic is null
        set @StavrKolic = 0
  end
else
  begin
    SET @PrometKolic = 0
    SET @StavrKolic = 0
  end

SELECT @NajdenaSifArt Sifra_Art, ImeArt, @MagCena DokCena, @Sost Zaliha, @Rabat Uces, @DokCena Nabavna,
    ImaKomerc, @ProcOsn ProcOsn, Sifra_Tar, EdMera, 'D' DozvArt, '' Sifra_Dob,
    @PrometKolic KolicPromet, @StavrKolic KolicStavr, SMin_Sost, SMax_Sost, SOpt_Sost
FROM KatArt
WHERE Sifra_Art=@NajdenaSifArt

Return @@Error







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artkod_detali_i_cen]'))
drop procedure [dbo].[sp_artkod_detali_i_cen]

Go
CREATE     PROCEDURE [dbo].[sp_ArtKod_Detali_I_Cen]
    @Sifra_Oe    smallint,
    @Nom         varchar(50) = NULL,            --ili nom ili sifra_art treba da se prati
    @Sifra_Art    varchar(20) = NULL,
    @Sifra_Dob    char(6) = NULL,                --Sifra na dobavuvac ako ima
    @DanCenaKatDob    char(1) = 'N',            --default kakva e cenata vo KatArtDob
    @DanCenaNabCKatArt char(1) = 'D',        --Default kakva e nabcena vo KatArt
    @VratiDokCena    char(1) = 'N',            --Vrati DokCena SoDanok(D)/BezDanok (N)
    @VratiMagCena    char(1) = 'D',            --Vrati MagCena SoDanok(D)/BezDanok (N)
    @ProvDozvArt    CHAR(1) = 'N',
    @VratiIntelPromet CHAR(1) = 'N',
    @DaliPriem    char(1) = null

As


CREATE TABLE #TmpArt
(Sifra_Art    varchar(20))

IF @Sifra_Art IS NOT NULL
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Sifra_Art=@Sifra_Art  --za da vidime dali go ima
ELSE
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Nom=@Nom UNION SELECT Sifra_Art FROM ABarKod WHERE Nom=@Nom

DECLARE @NajdenaSifArt varchar(20)
SELECT TOP 1 @NajdenaSifArt=Sifra_Art FROM #TmpArt --ORDER BY ??? da stavime ??

IF @NajdenaSifArt IS NULL    RETURN

Declare @DokCena decimal(18,6), @MagCena decimal(18,6), @Rabat decimal(6,2), @ProcOsn decimal(6,2)
Declare @DanMagCena char(1), @DanDokCena char(1), @NajdeDokCena char(1)
Declare @Sost decimal (18, 4)

SET @NajdeDokCena='N'

SELECT @ProcOsn = T.ProcOsn FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.Sifra_Art=@NajdenaSifArt

SELECT @DanMagCena = DanCena, @MagCena = Cena, @Sost = Vlez - Izlez FROM Soart WHERE Sifra_Art=@NajdenaSifArt AND Sifra_OE=@Sifra_OE
if @Sost is null
    set @Sost = 0

---
select @MagCena = Cena, @DanMagCena = 'D'
from CenGrOrg
where Sif_GrOrg = 'RED1'
      and sifra_art = @NajdenaSifArt
--


Declare @Datum_Art_Poc smalldatetime
Declare @Datum_Art_Kr smalldatetime

Declare @Datum_Art_MozeNar_Poc smalldatetime
Declare @Datum_Art_MozeNar_Kr smalldatetime

Declare @Datum_Art_MozePriem_Poc smalldatetime
Declare @Datum_Art_MozePriem_Kr smalldatetime

Declare @Datum_Kom_Poc smalldatetime
Declare @Datum_Kom_Kr smalldatetime
Declare @MozeIsporaka char (1)

---- Ova zavisi od KATART
-- Prvo vidi sistamot so FAKTURNA CENA
---- Ova e dodadeno na Fev 3, 2009
SELECT @DokCena=K.Fakturna, @Rabat=K.GotCena, @DanDokCena='N',
       @Datum_Art_Poc = K.Datum_Art_Poc, @Datum_Art_Kr = K.Datum_Art_Kr,
       @Datum_Art_MozeNar_Poc = K.Datum_Art_MozeNar_Poc, @Datum_Art_MozeNar_Kr = K.Datum_Art_MozeNar_Kr,
       @Datum_Art_MozePriem_Poc = K.Datum_Art_MozePriem_Poc, @Datum_Art_MozePriem_Kr = K.Datum_Art_MozePriem_Kr,
       @Datum_Kom_Poc = Kom.Datum_Kom_Poc, @Datum_Kom_Kr = Kom.Datum_Kom_Kr,
       @MozeIsporaka = Kom.MozeIsporaka
FROM KatArt K
Left Outer Join Komint Kom
    on K.Kto = Kom.Sifra_Kup
WHERE Sifra_Art=@NajdenaSifArt
IF @@RowCount = 1 and @DokCena > 0
begin
   SET @NajdeDokCena='D'
   -- Bidejki voglavno CENITE SO DDV se zaokruzzeni
   --SET @DokCena = round(@DokCena *(1+@ProcOsn/100),4)
   --SEt @DanDokCena='D'
end

IF @NajdeDokCena='N'
Begin
   SELECT @DokCena=Nabavna, @Rabat=0, @DanDokCena='N'    --        @DanCenaNabCKatArt
   FROM KatArt
   WHERE Sifra_Art=@NajdenaSifArt
   IF @@RowCount = 1 and @DokCena > 0
      SET @NajdeDokCena='D'
end
---- Gotovo so dodadenoto na Fev 3, 2009

IF @DanDokCena='D' AND @VratiDokCena='N'
    SET @DokCena = Round(@DokCena /(1+@ProcOsn/100),4)    -- Bese round na 3
ELSE IF @DanDokCena='N' AND @VratiDokCena='D'
    SET @DokCena = Round(@DokCena *(1+@ProcOsn/100),4)

Declare @PrometKolic decimal (18, 6)
Declare @StavrKolic decimal (18, 6)

if @VratiIntelPromet = 'D'
  begin
    Declare @Za_Datum smalldatetime

    SET @Za_Datum = dbo.fn_VratiDatum (GetDate())

    set @PrometKolic = (select sum(Kolic)
                    from Spromet S
                inner join Promet P
                on P.Sifra_Oe = S.Sifra_Oe and P.Grp_Kasa = S.Grp_Kasa and
                   P.BrKasa = S.BrKasa and P.Broj_Ska = S.Broj_Ska
                    where S.Sifra_Oe = @Sifra_Oe and Sifra_Art = @NajdenaSifArt and
                  P.Datum_Evid = @Za_Datum)
    if @PrometKolic is null
        set @PrometKolic = 0

    set @StavrKolic = (select sum(Kolic)
                    from Stavr
                    where Sifra_Oe = @Sifra_Oe and Sifra_Art = @NajdenaSifArt And
                  Datum_Dok = @Za_Datum and SIfra_Dok in (100, 101))

    if @StavrKolic is null
        set @StavrKolic = 0
  end
else
  begin
    SET @PrometKolic = 0
    SET @StavrKolic = 0
  end

-- Vrati i KODGRESKA
Declare @KodGreska int
set @KodGreska = 0
Declare @Denes as DateTime
-- Efikasna rutina za naoganje na cist datum
Select @Denes = CAST(FLOOR(CAST(GETDATE() AS FLOAT)) AS DATETIME)

-- Proveri na blokianje na artikl
if @Denes < @Datum_Art_Poc
   set @KodGreska = 11
else if @Denes > @Datum_Art_Kr
   set @KodGreska = 12
else if @DaliPriem = 'D'
   begin
      if @Denes < @Datum_Art_MozePriem_Poc
         set @KodGreska = 31
      else if @Denes > @Datum_Art_MozePriem_Kr
         set @KodGreska = 32
   end
else
   begin
      if @Denes < @Datum_Art_MozeNar_Poc
         set @KodGreska = 21
      else if @Denes > @Datum_Art_MozeNar_Kr
         set @KodGreska = 22
   end

-- Sega na nivo na komintentite
if @KodGreska = 0
begin
      if @Denes < @Datum_Kom_Poc
         set @KodGreska = 1001
      else if @Denes > @Datum_Kom_Kr
         set @KodGreska = 1002
      else if @MozeIsporaka = 'N'
         set @KodGreska = 1011
end

SELECT @NajdenaSifArt Sifra_Art, ImeArt, @MagCena DokCena, @Sost Zaliha, @Rabat Uces, @DokCena Nabavna,
    ImaKomerc, @ProcOsn ProcOsn, Sifra_Tar, EdMera, 'D' DozvArt, '' Sifra_Dob,
    @PrometKolic KolicPromet, @StavrKolic KolicStavr, SMin_Sost, SMax_Sost, SOpt_Sost,
    K.Kto, Kom.ImeKup ImeDob, @KodGreska KodGreska
FROM KatArt K WITH (NOLOCK)
left outer join Komint Kom WITH (NOLOCK)
    on K.Kto = Kom.Sifra_Kup
WHERE Sifra_Art=@NajdenaSifArt

Return @@Error










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artkod_detali_posif]'))
drop procedure [dbo].[sp_artkod_detali_posif]

Go



CREATE   PROCEDURE sp_ArtKod_Detali_PoSif
    @SifrA_Oe as smallint,
    @Sifra_Art As Varchar(20)

As

    Select K.Sifra_Art, K.ImeArt, K.Cena, K.Sostojba, K.Uces, K.Nabavna, S.Cena as DokCena, K.ImaKomerc, T.ProcOsn, K.Sifra_Tar, K.EdMera
    From Katart K
    inner join Tarifi T on K.Sifra_Tar = T.Sifra_Tar
    left outer join SoArt S on K.Sifra_Art = S.Sifra_art and S.Sifra_Oe = @Sifra_Oe
    Where K.Sifra_Art = @Sifra_Art

    Return @@Error






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_artodnepratenidok]'))
drop procedure [dbo].[sp_artodnepratenidok]

Go

CREATE     PROCEDURE  sp_ArtOdNePrateniDok
    @Sifra_OE smallint,
    @Datum     smalldatetime
 AS
    CREATE TABLE #TmpArt
    (Sifra_Art  Varchar(20)
    )
    INSERT INTO #TmpArt
    SELECT DISTINCT S.Sifra_Art
    FROM Stavr S
    Inner Join Dokr D On S.DokrID=D.DokrID
    Where (D.Prenesen IS NULL OR D.Prenesen <> 'D')
        And(D.Sifra_OE=@Sifra_OE OR D.Sifra_Prim = @Sifra_OE)
        And (D.ImaDodatna IS NULL OR D.ImaDodatna <> 'P')
    INSERT INTO #TmpArt
    SELECT Sifra_Art  FROM KatArt
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum
    SELECT DISTINCT Sifra_Art  FROM  #TmpArt





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_asortprod]'))
drop procedure [dbo].[sp_asortprod]

Go




CREATE      PROCEDURE sp_AsortProd
    @Sifra_OE    Smallint,
    @KolkuDena    smallint = 21
AS
IF @Sifra_OE IS NOT NULL
    SELECT D.Sifra_Kup, (Case WHEN D.Sifra_Obj = 0 Then NULL Else D.Sifra_Obj End) as Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) Kolic
    FROM Stavr S INNER JOIN Dokr D ON S.DokrId = D.DokrID
    WHERE S.Sifra_OE = @Sifra_OE AND S.Datum_Dok >= DateAdd (day, @KolkuDena * -1, GetDate()) AND S.VlIzl = 'I' AND D.Sifra_Za=1
    GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art
ELSE
    SELECT D.Sifra_Kup, (Case WHEN D.Sifra_Obj = 0 Then NULL Else D.Sifra_Obj End) as Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) Kolic
    FROM Stavr S INNER JOIN Dokr D ON S.DokrId = D.DokrID
    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    WHERE S.Datum_Dok >= DateAdd (day, @KolkuDena * -1, GetDate()) AND S.VlIzl = 'I' AND D.Sifra_Za=1 AND TD.AnalKupDob='D'
    GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_asortprod5]'))
drop procedure [dbo].[sp_asortprod5]

Go





CREATE      PROCEDURE sp_AsortProd5
    @Sifra_OE smallint,
    @KolkuDena smallint=90
AS
/*    Select D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, ROUND(Sum(S.Kolic)/Count(S.DokID),2) AS Kolic
    From Dokr D
    Inner Join Stavr S On S.DokrID = D.DokrID
    Where S.Sifra_OE = @Sifra_OE AND S.Datum_Dok >= DateAdd (day, @KolkuDena * -1, GetDate())
    AND S.VlIzl = 'I' AND D.Sifra_Za=1 AND S.Kolic>0
    GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art
    ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art */  --do 16.05.11 vaka bese, posle pobaraa izmena: od posl.prodazba

CREATE TABLE #TmpProd
(Sifra_Kup    char(6),
Sifra_Obj    smallint,
DokrID        int)

INSERT INTO #TmpProd SELECT D.Sifra_Kup, D.Sifra_Obj, MAX(D.DokrID) FROM Dokr D INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
WHERE D.Sifra_Oe=@Sifra_OE AND D.VlIzl='I' AND D.Sifra_Za=1 AND TD.Plus_Minus='+' AND D.Toc200>0 GROUP BY D.Sifra_Kup, D.Sifra_Obj

Select D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, S.Kolic FROM #TmpProd D INNER JOIN Stavr S ON D.DokrID=S.DokrID
WHERE S.Kolic<>0 ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_asortprodtekmes]'))
drop procedure [dbo].[sp_asortprodtekmes]

Go






CREATE    PROCEDURE sp_AsortProdTekMes
    @Sifra_OE    Smallint,
    @Mesec smallint,
    @Godina smallint
AS
IF @Sifra_OE IS NOT NULL
    SELECT D.Sifra_Kup, (Case WHEN D.Sifra_Obj = 0 Then NULL Else D.Sifra_Obj End) as Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) Kolic
    FROM Stavr S INNER JOIN Dokr D ON S.DokrId = D.DokrID
    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    WHERE D.Sifra_Pat = @Sifra_OE AND Month(S.Datum_Dok) = @Mesec AND Year(S.Datum_Dok) = @Godina AND S.VlIzl = 'I' AND D.Sifra_Za=1 AND TD.AnalKupDob='D'
    GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art
ELSE
    SELECT D.Sifra_Kup, (Case WHEN D.Sifra_Obj = 0 Then NULL Else D.Sifra_Obj End) as Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) Kolic
    FROM Stavr S INNER JOIN Dokr D ON S.DokrId = D.DokrID
    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    WHERE Month(S.Datum_Dok) = @Mesec AND Year(S.Datum_Dok) = @Godina AND S.VlIzl = 'I' AND D.Sifra_Za=1 AND TD.AnalKupDob='D'
    GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art ORDER BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_avtkontprimzagrdok]'))
drop procedure [dbo].[sp_avtkontprimzagrdok]

Go

CREATE  PROCEDURE sp_AvtKontPrimZaGrDok
    @Sif_GrDok    char(3)
AS
    SELECT DISTINCT Sif_GrOrg_Prima FROM AvtKont WHERE Sif_GrDok = @Sif_GrDok





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_avtkontzagrdok]'))
drop procedure [dbo].[sp_avtkontzagrdok]

Go
CREATE  PROCEDURE sp_AvtKontZaGrDok
    @Sif_GrDok    char(3),
    @Sifra_OE    smallint = null,
    @Sif_GrOrg    char(6) = null
AS
Declare @SSQL varchar(2000)
SET @SSQL = 'SELECT DISTINCT Sif_GrOrg FROM AvtKont WHERE Sif_GrDok = ''' + @Sif_GrDok + ''' '
IF @Sifra_OE IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sif_GrOrg IN (SELECT DISTINCT Sif_GrOrg FROM SGrOrg WHERE Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ') '
IF @Sif_GrOrg IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sif_GrOrg =''' + @Sif_GrOrg + ''' '
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_avtokatartpregled]'))
drop procedure [dbo].[sp_avtokatartpregled]

Go


CREATE   PROCEDURE sp_AvtoKatartPregled
    @Sif_Art_Od    Varchar(40)=NULL,
    @Sif_Art_Do    Varchar(40)=NULL,
    @Podred    Varchar(10),
    @Sifra_Podg    Varchar(12)=NULL,
    @Sifra_Gr    Varchar(6)=NULL,
    @Sifra_Tar    Char(3)=NULL,
    @Kto        Varchar(6)=NULL,
    @Sifra_Drg    Smallint = NULL,
    @Lokacija    varchar(10) = NULL,
    @Sifra_ZBrand    smallint  = NULL,
    @Sifra_KHier    varchar(20) = Null,
        @VoPDA          char(1) = null
AS

    Declare @SSQL VARCHAR(4000)
    Set @Podred = Upper(@Podred)
    If @Podred Is Null
        Set @Podred = 'SIFRA'

    SET @SSQL =  'Select K.Sifra_Art, K.Imeart, K.Edmera, K.ImeArt2, K.Sifra_Podg,
            P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, K.Sifra_Drg, B.Ime,
            K.Kto, KUP.ImeKup,
            case when K.Nom is null or K.Nom = '''' then TA.Nom else K.Nom end Nom,
             K.DogCena
        From Katart K
        Inner Join Podgrupi P On K.Sifra_Podg=P.Sifra_Podg
        Inner Join Grupi G On P.Sifra_Gr=G.Sifra_Gr
        Left Outer Join Komint KUP On K.Kto=KUP.Sifra_Kup
        Left Outer Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
        Left Outer Join #TempABar TA
            on K.Sifra_Art = TA.Sifra_Art '

--    If @Sifra_ZBrand Is Not Null
--        Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '

    Declare @SSQLUsl varchar(2000)

    Set @SSQLUsl =  ' Where 1=1 '

    If @Podred = 'SIFRA' Or @Podred = 'GRUPA' Or @Podred = 'PODGRUPA' Or @Podred = 'BRAND'
        Begin
            If @Sif_Art_Od Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Art>=''' + Cast(@Sif_Art_Od As Varchar(20)) + ''' '
            If @Sif_Art_Do Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Art<=''' + Cast(@Sif_Art_Do As Varchar(20)) + ''' '
        End
    Else If @Podred = 'IME'
        Begin
            If @Sif_Art_Od Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And K.ImeArt>=''' + Cast(@Sif_Art_Od As Varchar(40)) + ''' '
            If @Sif_Art_Do Is Not Null
                Set @SSQLUsl = @SSQLUsl + 'And K.ImeArt<=''' + Cast(@Sif_Art_Do As Varchar(40)) + ''' '
        End
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Podg=''' + Cast(@Sifra_Podg As Varchar(12)) + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And P.Sifra_Gr=''' + Cast(@Sifra_Gr As Varchar(6)) + ''' '
    If @Sifra_Tar Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Tar=''' + Cast(@Sifra_Tar As Varchar(6)) + ''' '
    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Kto=''' + Cast(@Kto As Varchar(6)) + ''' '
    If @Lokacija Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=''' + Cast(@Sifra_Drg As Varchar(6)) + ''' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @VoPDA Is Not Null and @VoPDA <> ''
        Set @SSQLUsl = @SSQLUsl + ' And K.VoPDA = ''' + @VoPDA + ''' '
        Declare @SSQLPodr varchar(100)
    set @SSQLPodr = ' '

    If @Podred = 'SIFRA'
        Set @SSQLPodr = @SSQLPodr + 'Order By K.Sifra_Art '
    Else If @Podred = 'IME'
        Set @SSQLPodr = @SSQLPodr + 'Order By K.ImeArt, K.Sifra_Art'
    Else If @Podred = 'PODGRUPA'
        Set @SSQLPodr = @SSQLPodr + 'Order By K.Sifra_Podg'
    Else If @Podred = 'GRUPA'
        Set @SSQLPodr = @SSQLPodr + 'Order By P.Sifra_Gr, K.Sifra_Art'
    Else If @Podred = 'BRAND'
        Set @SSQLPodr = @SSQLPodr + 'Order By K.Sifra_Drg, K.Sifra_Art'


    CREATE TABLE #TempABar
    (    Sifra_Art varchaR(20) Null ,
        Nom varchar(50) NuLL ,
        ABarBroj int NUll
    )

    insert into #TempABar
        ( Sifra_Art, ABarBroj )
        select Sifra_Art, min(ABarBroj)
        from ABarKod
        where Nom is not null and Nom <> '' and len(Nom) >= 8 and len(Nom) <= 14
        Group By Sifra_Art

    update #TempABar
    set Nom = A.Nom
    from ABarKod A
    where #TempABar.ABarBroj = A.ABarBroj

    EXEC (@SSQL + @SSQLUsl + @SSQLPodr)

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_azurpecfiscdokr]'))
drop procedure [dbo].[sp_azurpecfiscdokr]

Go

create     PROCEDURE sp_AzurPecFiscDokr
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    smallint
AS
UPDATE Dokr SET Pec_Fisc=(case When Pec_Fisc Is Not Null Then Pec_Fisc+1 Else 1 End)
WHERE Sifra_OE=@Sifra_OE AND Sifra_dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_azurpecfiscdokr_ks]'))
drop procedure [dbo].[sp_azurpecfiscdokr_ks]

Go



create     PROCEDURE sp_AzurPecFiscDokr_KS
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS

    UPDATE Dokr
    SET Pec_Fisc = case When Pec_Fisc Is Not Null Then Pec_Fisc+1 Else 1 End,
        DaT_Pec_Fisc = GetDate ()
    WHERE Sifra_OE=@Sifra_OE AND Sifra_dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_barajdok]'))
drop procedure [dbo].[sp_barajdok]

Go


CREATE    PROCEDURE sp_BarajDok
    @Mat_Fin    Char(1) = 'F',
    @ExtBr        Varchar(25) = NULL,
    @DelExtBr    varchar(25) = NULL,
    @Broj_Dok    int = NULL,
    @Iznos_Od    Decimal(18,6) = NULL,
    @Iznos_Do    Decimal(18,6) = NULL,
    @Ispratnica    varchar(25) = NULL,
    @Sifra_Kup    char(6) = NULL
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup,
        K.ImeKup, D.Kto, Cast(D.Sifra_Nal as varchar(4)) '
    If @Mat_Fin = 'M'
        Set @SSQL = @SSQL + 'as Nalog, D.Identif_Br as ExtBrDok, Case WHEN D.Sifra_Za = ''1'' Then D.Toc200 ELSE 0 END as Dolzi,
        Case WHEN D.Sifra_Za = ''2'' then D.Toc200 ELSE 0 END as Pobaruva,  0 as Plateno FROM Dokr D '
    Else
        Set @SSQL = @SSQL + '+''/''+Cast(broj_Nal as varchar(8)) as Nalog, D.BrojDok as ExtBrDok, D.Dolzi Dolzi, D.Pobaruva as Pobaruva,
        D.Plateno_Dolzi + D.Plateno_Pobar Plateno FROM AnFinDok D '
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Komint K ON D.Sifra_Kup = K.Sifra_Kup WHERE 1=1 '
    If @Mat_Fin = 'M'
        BEGIN
        If @Iznos_Od IS NOT NULL
              Set @SSQL = @SSQL + ' AND D.Toc200 >= ' + Cast(@Iznos_Od as varchar(30))
        If @Iznos_Do IS NOT NULL
              Set @SSQL = @SSQL + ' AND D.Toc200 <= ' + Cast(@Iznos_Do as varchar(30))
        If @ExtBr IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.Identif_Br = ''' + @ExtBr + ''' '
        If @DelExtBr IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.Identif_Br like ''%' + @DelExtBr + '%'' '
        If @Broj_Dok IS NOT NULL  AND @Broj_Dok > 0
            Set @SSQL = @SSQL + ' AND D.Broj_Dok = ''' + cast(@Broj_Dok as varchar(10)) + ''' '
        IF @Ispratnica IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.Ispratnica = ''' + @Ispratnica + ''' '
        END
    Else
        BEGIN
        If @Iznos_Od IS NOT NULL
              Set @SSQL = @SSQL + 'AND D.Dolzi+D.Pobaruva >= ' + Cast(@Iznos_Od as varchar(30))
        If @Iznos_Do IS NOT NULL
              Set @SSQL = @SSQL + 'AND D.Dolzi+D.Pobaruva <= ' + Cast(@Iznos_Do as varchar(30))
        If @ExtBr IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.BrojDok = ''' + @ExtBr + ''' '
        If @DelExtBr IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.BrojDok like ''%' + @DelExtBr + '%'' '
        If @Broj_Dok IS NOT NULL  AND @Broj_Dok > 0
            Set @SSQL = @SSQL + ' AND D.Broj_Dok = ''' + cast(@Broj_Dok as varchar(10)) + ''' '
        END
    IF @Sifra_Kup IS NOT NULL
            Set @SSQL = @SSQL + ' AND D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
EXEC (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_barajdok_glk]'))
drop procedure [dbo].[sp_barajdok_glk]

Go
CREATE    PROCEDURE sp_BarajDok_Glk
    @Opis        Varchar(25) = NULL,
    @DelOpis    varchar(25) = NULL,
    @Opis2        Varchar(25) = NULL,
    @DelOpis2    varchar(25) = NULL,
    @Broj_Nal    int = NULL,
    @Iznos_Od    Decimal(18,6) = NULL,
    @Iznos_Do    Decimal(18,6) = NULL
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT G.Sifra_OE, G.Sifra_Nal, G.Broj_Nal, G.Datum_Nal, G.Opis, G.Opis2,
                G.Kto_Anal, G.Dolzi, G.Pobaruva, G.Dev_Dolzi, G.Dev_Pobaruva
                From GStav G
                Where 1=1 '
    If @Iznos_Od IS NOT NULL
         Set @SSQL = @SSQL + ' AND (G.Dolzi >= ' + Cast(@Iznos_Od as varchar(30)) + ' Or G.Pobaruva >= ' + Cast(@Iznos_Od as varchar(30)) + ') '
    If @Iznos_Do IS NOT NULL
         Set @SSQL = @SSQL + ' AND (G.Dolzi <= ' + Cast(@Iznos_Do as varchar(30)) + ' Or G.Pobaruva <= ' + Cast(@Iznos_Do as varchar(30)) + ') '
    If @Opis IS NOT NULL
        Set @SSQL = @SSQL + ' AND G.Opis = ''' + @Opis + ''' '
    If @DelOpis IS NOT NULL
        Set @SSQL = @SSQL + ' AND G.Opis like ''%' + @DelOpis + '%'' '
    If @Opis2 IS NOT NULL
        Set @SSQL = @SSQL + ' AND G.Opis2 = ''' + @Opis2 + ''' '
    If @DelOpis2 IS NOT NULL
        Set @SSQL = @SSQL + ' AND G.Opis2 like ''%' + @DelOpis2 + '%'' '
    If @Broj_Nal IS NOT NULL  AND @Broj_Nal > 0
        Set @SSQL = @SSQL + ' AND G.Broj_Nal = ''' + cast(@Broj_Nal as varchar(10)) + ''' '
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_bilansuspeh]'))
drop procedure [dbo].[sp_bilansuspeh]

Go










CREATE         PROCEDURE sp_BilansUspeh
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Kto_Penz    char(10)
AS
create table #BilansUspeh
(
ID [int]IDENTITY (1, 1) NOT NULL,
rbr varchar(5),
Pozicija varchar(200),
OznakaNaAOP char(3),
SmetkiVoAOP varchar(100),
IznosPrethGod decimal(18,2),
IznosTekGodina decimal(18,2)
)
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.', 'Prihodi od proda`ba', '201', '750, 751, 752, 753, 758, 759'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '2.','Promena na vrednosta na zalihite na gotovite proizvodi i nedovr{enoto proizvodstvo', 'hhh'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.a','Zalihi na gotovite proizvodi i nedovr{enoto proizvodstvo na po~etokot na godinata', '202', '60, 63'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.b','Zalihi na gotovite proizvodi i nedovr{enoto proizvodstvo na krajot na godinata', '203', '60, 63 bez smetkite 607 i 838 i bez iznosite kni`eni na kusoci i vi{oci'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Prihodi po osnov na upotreba na sopstveni proizvodi, stoki i uslugi', '204', '755'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '4.','Ostanati delovni prihodi', '205', '770, 771, 772, 773, 774, 775, 776, 777, 778, 779'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '5.','Materijalni tro{oci (207 + 208)', '206', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '5.a','Tro{oci za surovini i drugi materijali', '207', '400, 401, 404, 405'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '5.b','Nabavna vrednost na prodadeni stoki i uslugi', '208', '410, 411, 412, 413, 414, 419, 701, 702'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '6.','Tro{oci za vraboteni (210 + 211)', '209', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '6.a','Neto plati i nadomesti ', '210', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '6.b','Tro{oci za danoci, socijalno i penzisko osiguruvawe i sli~no (212 + 213)', '211', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select ' ','1. Pridones za penzisko osigiruvawe', '212', '470d. 471d.'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select ' ','2. Danoci i pridonesi za socijalno osiguruvawe', '213', '470d. 471d.'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '7.','Amortizacija i vrednosno usoglasuvawe(215 + 216)', '214', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '7.a','Amortizacija i vrednosno usoglasuvawe na osnova~ki izdotoci, materijalnite sredstva i nematerijalnite sredstva (dolgoro~ni sredstva', '215', '430, 431, 432, 433, 434 del, 451 del'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '7.b','Vrednosno usoglasuvawe na tekovni sredstva (kratkoro~ni sredstva)', '216', '430, 431, 432, 433, 434 del, 451 del'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '8','Ostanati tro{oci od rabotewe', '217', '440, 441, 442, 443, 444, 447, 449, 450, 451 del, 452, 453, 454, 459 '
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '9.','Prihodi od u~estva na vlo`uvawa (219 + 220)', '218', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '9.a','Prihodi od u`estva na vlo`uvawa vo povrzani subjekti', '219', '760'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '9.b','Prihodi od u~estva na vlo`uvawa vo nepovrzani subjekti', '220', '761'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '10','Prihodi od ostanati vlo`uvawa i zaemi (222 + 223)', '221', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '10.a','Prihodi od ostanati vlo`uvawa i zaemi vo ramkite na postojanite sredstva so povrzani subjekti', '222', '762'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '10.b','Prihodi od ostanati vlo`uvawa i zaemi vo ramkite na postojanite sredstva so nepovrzani subjekti', '223', '763'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '11','Prihodi po osnov na kamati, kursni razliki i sli~ni prihodi (225 + 226)', '224', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '11.a','Prihodi po osnov na kamati, kursni razliki i sli~ni prihodi od rabotewe so povrzani subjekti', '225', '764'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '11.b','Prihodi po osnov na kamati, kursni razliki isli~ni prihodi od rabotewe so nepovrzani subjekti', '226', '765'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '12','Vrednosno usoglasuvawe na finansiskite sredstva i vlo`uvawa', '227', '434 del'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '13','Rashodi po osnov na kamati, kursni razliki i sli~ni prihodi (229 + 230)', '228', '60, 63'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '13.a','Rashodi po osnov na kamati, kursni razliki i sli~ni rashodi od rabotewe so povrzani subjekti', '229', '480, 481, 482, 484'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '13.b','Rashodi po osnov na kamati, kursni razliki i sli~ni rashodi od rabotewe so nepovrzani subjekti', '230', '483, 484 d. 485, 489'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '14.','Dobivka od redovnoto rabotewe pred odano~uvawe (201 + 204 + 205 + 218 + 221 + 224)-(202 - 203 + 206 + 209 + 214 + 217 + 227 + 228)', '231', '800'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '15.','Zaguba od redovnoto rabotewe pred odano~uvawe (202 - 203 + 206 + 209 + 214 + 217 + 227 + 228) - (201 + 204 + 205 + 218 + 221 + 224)', '232', '890'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '16.','Danok i pridonesi od dobivkata od redovnoto rabotewe (Del od Dano~niot bilans)', '233', '810, 811'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '17.','Dobivka od redovnoto rabotewe po odano~uvawe (231 - 233)', '234', '820'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '18.','Zaguba od redovnoto rabotewe po odano~uvawe (233 - 231) ili (232 + 233)', '235', '891'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '19.','Vonredni prihodi', '236', '780, 781, 782, 789'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '20.','Vonredni rashodi', '237', '720, 721, 722'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '21.','Dobivka od vonrednite aktivnosti pred odano~uvawe (236 - 237)', '238', '830'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '22.','Zaguba od vonrednite aktivnosti pred odano~uvawe (237 - 236)', '239', '892'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '23.','Danok i pridonesi od dobivkata od vonrednite aktivnosti (Del od dano~niot bilans)', '240', '840, 841'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '24.','Dobivka od vonrednite aktivnosti po odano~uvaweto (238 - 240)', '241', '850'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '25.','Zaguba od vonrednite aktivnosti po odano~uvaweto (240 - 238) ili (239 + 240)', '242', '893'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '26.','Ostanati danoci i pridonesi koi ne se iska`ani vo prethodnite pozicii', '243', '860'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '27.','Dobivka za finansiskata godina (234 + 241 - 243) ili (233 - 242 - 243) ili (239 + 240)', '244', '951'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '28.','Zaguba za finansiskata godina (235 - 241 +243) ili (242 - 234 +243)', '245', '961'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '','Uslugi (246 < ili = 208)', '246', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '','Prose~en broj na vraboteni vrz osnova na ~asovi na rabota vo presmetkovniot period (vo apsoluten iznos)', '247', ''
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '','Broj na meseci na raboteweto', '248', ''
Declare @IznosTekGod as decimal(18,2)
Declare @Iznos as decimal(18,2)
--prihodi od prodazzba
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '750%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '751%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '752%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '753%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '756%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '758%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '759%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 1
--kraj prihodi od prodazzba
--zalihi na gotoviteproizvodi i nedovrshenoto proizvodstvo na pochetokot na godinata
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '63%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 3
--kraj
--zalihi na gotoviteproizvodi i nedovrshenoto proizvodstvo na krajot na godinata
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '63%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 4
--kraj
--prihodi po osnov na upotreba na sopstveni proizvodii, stoki i usugi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '755%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 5
--kraj
--ostanati delovni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '770%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '771%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '772%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '773%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '774%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '775%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '776%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '777%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '778%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '779%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 6
--kraj
--troshoci za surovini i drugi materijali
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '400%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '401%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '404%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '405%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 8
--kraj
--nabavna vrednost na prodadeni stoki i uslugi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '410%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '411%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '412%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '413%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '414%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '419%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '701%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '702%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 9
--kraj
--neto plati i nadomesti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '271%' AND G.Datum_Nal > = @Datum_Od AND G.Datum_Nal < = @Datum_Do AND G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 11
--kraj
--pridones za penzisko osiguruvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal = @Kto_Penz AND G.Datum_Nal >= @Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 13
--kraj
--danoci i pridonesi za zdravstveno osiguravanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '274%' AND G.Kto_Anal<>@Kto_Penz AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '273%'  AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0)  where #BilansUspeh.id = 14
--kraj
--amortizacija i vrednosno osiguruvawe ne osnovachki izdatoci..
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '430%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '431%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '432%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '433%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '434%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '451%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 16
--kraj
--tekovni sredstva kratkorochni
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '435%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '436%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '437%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '438%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '439%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '420%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '422%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '423%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '429%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 17
--ostanati trosoci
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '440%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '441%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '442%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '443%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '444%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '447%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '449%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '450%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '451%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '452%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '453%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '454%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '459%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 18
--kraj
--prihodi od uchestva na vlozuvanja vo povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '760%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 20
--kraj
--prihodi od uchestva na vlozuvanja vo nepovrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '761%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 21
--kraj
--prihodi od ostanati vlozuvanja i zaemi vo ramkite na postojani sredstva so povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '762%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 23
--kraj
--prihodi od ostanati vlozuvanja i zaemi vo ramkite na postojani sredstva so nepovrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '763%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 24
--kraj
--prihodi po osnov na kamati, kursni razliki, i slicni prihodi od rabotenje so povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '764%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 26
--kraj
--prihodi po osnov na kamati, kursni razliki, i slicni prihodi od rabotenje so nepovrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '765%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 27
--kraj
--prihodi po osnov na kamati, kursni razliki, i slicni prihodi od rabotenje so nepovrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '434%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 28
--kraj
--rashodi po osnov na kamati, kursni razliki, i slicni prihodi od rabotenje so povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '480%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '481%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '482%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '484%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 30
--kraj
--rashodi po osnov na kamati, kursni razliki, i slicni prihodi od rabotenje so nepovrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '483%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
--select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '484%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--IF @Iznos is not null
--    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '485%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '489%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 31
--kraj
--dobivka od redovno rabotenje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '800%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 32
--kraj
--zaguba od redovno rabotenje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '890%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 33
--kraj
--danok i pridonesi od dobivkata od redovnoto rabotenje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '810%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '811%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 34
--kraj
--dobivka od redovnoto rabotenje po odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '820%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 35
--kraj
--zaguba od redovnoto rabotenje po odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '891%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 36
--kraj
--vonredni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '780%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '781%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '782%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '789%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 37
--kraj
--vonredni rashodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '720%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '721%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '722%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 38
--kraj
--Dobivka od vonrednite aktivnosti pred odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '830%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 39
--kraj
--Zaguba od vonrednite aktivnosti pred odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '892%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 40
--kraj
--Danok i pridonesi od dobivkata od vonrednite aktivnosti pred odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '840%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '841%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 41
--kraj
--Dobivka od vonrednite aktivnosti po odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '850%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 42
--kraj
--Zaguba od vonrednite aktivnosti po odanochuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '893%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 43
--kraj
--Ostanati danoci i pridonesi koi ne se iskazzani vo prethodnite pozicii
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '860%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 44
--kraj
--Dobivka za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '871%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 45
--kraj
--Zaguba za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '895%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 46
--kraj
--zbir polinja
--Materijalni trosoci
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 8
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 9
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 7
--kraj
--Trosoci za danoci, socijalno i penzisko osiguruvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 13
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 14
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 12
--kraj
--Trosoci za vraboteni
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 11
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 12
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 10
--kraj
--Amortizacija i vrednosno usoglasuvanje
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 16
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 17
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 15
--kraj
--prihodi od ucestva na vlozzuvanja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 20
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 21
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 19
--kraj
--prihodi od ostanati vlozzuvanja i zaemi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 23
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 24
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 22
--kraj
--prihodi po osnov na kamati, kursni razliki i slichni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 26
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 27
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 25
--kraj
--rashodi po osnov na kamati, kursni razliki i slichni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 30
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 31
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 29
--kraj
update #BilansUspeh set IznosTekGodina = 0 where IznosTekGodina is null
select * from #Bilansuspeh







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_bilansuspeh_mal]'))
drop procedure [dbo].[sp_bilansuspeh_mal]

Go

CREATE PROCEDURE sp_BilansUspeh_mal
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Kto_Penz    char(10)
AS
create table #BilansUspeh
(
ID [int]IDENTITY (1, 1) NOT NULL,
rbr varchar(5),
Pozicija varchar(200),
OznakaNaAOP char(3),
IznosPrethGod decimal(18,2),
IznosTekGodina decimal(18,2)
)
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '1.', 'Prihodi od osnovnata dejnost', '260'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '2.','Rashodi od osnovnata dejnost', '261'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '2.a','Materijalni Tro{oci (263 + 264 + 265)', '262'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Tro{oci za surovini i drugi materijali', '263'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Nabavna vrednost na prodadeni stoki', '264'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Uslugi', '265'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '2.b','Tro{oci za vraboteni', '266'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Neto plati nadomestoci', '267'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Tro{oci za danoci, socijalno i penzisko osiguruvawe na dolgoro~nite sredstva', '268'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '2.v','Amortizacija i vrednosno usoglasuvawe na osnova~ki izdatoci, materijalni sredstva i na nematerijalni sredstva (dolgoro~ni sr.)', '269'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '3.','Prihodi od drugi aktivnosti', '270'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '4.','Rashodi od drugi aktivnosti', '271'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '5.','Vonredni prihodi', '272'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '6.','Vonredni rashodi', '273'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '7.','Dobivka pred odano~uvaweto (260+270+272) - (261+271+273)', '274'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '8.','Zaguba pred odano~uvaweto (261 + 271 + 273) - (260 + 270 + 272)', '275'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '9.','Danok i pridonesi od dobivkata ', '276'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '10.','Dobivka za finansiskata godina (274 - 276)', '277'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select '11.','Zaguba za finansiskata godina (276 - 274) ili (275 + 276)', '278'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Pridones za penzisko osiguruvawe', '279'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Prose~en broj na vraboteni vrz osnova na ~asovi na rabota vo presmetkovniot period (vo apsoluten iznos)', '280'
insert into #BilansUspeh(rbr, Pozicija, OznakaNaAOP) select ' ','Broj na meseci na rabotewe', '281'
Declare @IznosTekGod as decimal(18,2)
Declare @Iznos as decimal(18,2)
--260 prihodi od prodazzba
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '75%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '77%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos

update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 1
--kraj

--263 Trosoci za surovini i drugi materijali
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '40%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '42%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '44%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '45%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '63%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 4
--kraj
--264 Nabavna vrednost na prodadeni stoki
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '701%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '702%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 5
--kraj
--265 Uslugi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '41%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 6
--kraj
--267 Neto plati nadomestoci
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '271%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 8
--kraj
--268 troshoci za danoci, socijalno i penzisko osiguruvawe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '273%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '274%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
     set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 9
--kraj

--269 amortizacija i vrednosno usoglasuvawe na osnovachki izdatoci
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '43%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 10
--kraj
--270 Prihodi od drugi aktivnosti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '76%' AND G.Datum_Nal > = @Datum_Od AND G.Datum_Nal < = @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 11
--kraj
--271 Rashodi od drugi aktivnosti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '48%' AND G.Datum_Nal >= @Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 12
--kraj

--272 Vonredni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '78%' AND G.Kto_Anal<>@Kto_Penz AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0)  where #BilansUspeh.id = 13
--kraj
--273 Vonredni rashodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '72%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 14
--kraj
--274 Dobivka pred odano~uvawe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '800%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 15
--275 Zaguba pred odano~uvawe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '890%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 16
--kraj
--276 Danok i pridonesi od dobivkata
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '276%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '810%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '811%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 17
--kraj
--277 Dobivka za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '820%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 18
--kraj
--278 Zaguba za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '895%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 19
--kraj
--279 Pridones za penzisko osiguruvawe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '274%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 20
--kraj
select rbr,Pozicija,OznakaNaAOP,IznosPrethGod,IznosTekGodina from #Bilansuspeh





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_bilansuspehsr]'))
drop procedure [dbo].[sp_bilansuspehsr]

Go




CREATE           PROCEDURE sp_BilansUspehSR
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
create table #BilansUspeh
(
ID [int]IDENTITY (1, 1) NOT NULL,
rbr varchar(5),
Pozicija nvarchar(200),
OznakaNaAOP char(3),
GrupaSmetki nvarchar(100),
IznosPrethGod decimal(18,2),
IznosTekGodina decimal(18,2)
)
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'A.ПРИХОДИ И РАСХОДИ ИЗ РЕДОВНОГ ПОСЛОВАЊА  I. ПОСЛОВНИ ПРИХОДИ (202+203+204-205+206)', '201', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'1.Приходи од продаје', '202', N'60 и 61'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'2.Приходи од активирања у~инака и робе', '203','62'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'3.Повећање вредности ѕалиха учинака', '204', '630'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'4.Сманење вредности ѕалиха учинака', '205', '631'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'5.Остали пословни приходи', '206', N'64 и 65'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'II. ПОСЛОВНИ ПРИХОДИ (208 до 212)', '207', ' '
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'1.Набавна вредност продате робе', '208', '50'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'2.Трошкови материјала', '209', '51'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'3.Трошкови зарада, накнада зарада и остали лични расходи', '210', '52'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'4.Трошкови амортизације и резервисања', '211', '54'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'5.Остали пословни расходи', '212', N'53 и 55'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'III. ПОСЛОВНИ ДОБИТАК (201-207)', '213', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'IV.  ПОСЛОВНИ ГУБИТАК (207-201)', '214', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'V.ФИНАНСИЈСКИ ПРИХОДИ', '215', '66'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'VI.ФИНАНСИЈСКИ РАСХОДИ', '216', '56'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'VII.ОСТАЛИ ПРИХОДИ', '217', '67,68'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'VIII.ОСТАЛИ РАСХОДИ', '218', '57,58'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'IX.ДОБИТАК ИЗ РЕДОВНОГ ПОСЛОВАЊА ПРЕ ОПОРЕЅИВАЊА(213-214+215-216+217-218)', '219', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'X.ГУБИТАК ИЗ РЕДОВНОГ ПОСЛОВАЊА ПРЕ ОПОРЕЅИВАЊА', '220', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'XI.НЕТО ДОБИТАК ПОСЛОВАЊА КОЈЕ СЕ ОБУСТАВЉА', '221', '69-59'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'XII.НЕТО ГУБИТАК ПОСЛОВАЊА КОЈА СЕ ОБУСТАВЉА', '222', '59-69'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Б. ДОБИТАК ПРЕ ОПОРЕЗИВАЊА (219-220+221-222)', '223', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'В. ГУБИТАК ПРЕ ОПОРЕЗИВАЊА (220-219+222-221)', '224', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Г. ПОРЕЗ НА ДОБИТАК', '', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'         1.Порески расход периода', '225', '721'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'         2.Одложени порески расходи периода', '226', '722'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'         3.Одложени порески приходи периода', '227', '722'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Д. ИСПЛАЂЕНА ЛИЧНА ПРИМАЊА ПОСЛОДАВЦУ ', '228', '723'
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Ђ. НЕТО ДОБИТАК (223 - 224 - 225 - 226 + 227 - 228)', '229', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Е. НЕТО ГУБИТАК (224 - 223 + 255 + 226 + 227 + 228)', '230', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Ж. НЕТО ДОБИТАК КОЈИ ПРИПАДА МАЊИНСКИМ УЛАГАЧИМА', '231', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'З. НЕТО ДОБИТАК КОЈИ ПРИПАДА ВЛАСНИЦИМА МАТИЧНОГ ПРАВНОГ ЛИЦА', '232', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'И. ЗАРАДА ПО АКЦИЈИ', '232', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'         1.Основна зарада по акцији', '233', ''
insert into #BilansUspeh(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'         2.Умањена (разводњена) зарада по акција', '234', ''

Declare @IznosTekGod as decimal(18,2)
Declare @Iznos as decimal(18,2)

--prihodi od prodazzba
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '61%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos

update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 2
--kraj prihodi od prodazzba

--prihodi od aktiviranja ucinaka i robe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '62%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 3
--kraj
--povechanje vrednossti zaliha ucinaka
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '630%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 4
--kraj
--Smanenje vrednosti zaliha ucinaka
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '631%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 5
--kraj
--ostali poslovni prihodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '64%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '65%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 6
--kraj
--nabavna vrednost prodate robe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '50%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 8
--kraj
--troshkovi materijala
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '51%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 9
--kraj
--troskovi zarada, naknada zarada i ostali lichni rashodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '52%' AND G.Datum_Nal > = @Datum_Od AND G.Datum_Nal < = @Datum_Do AND G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 10
--kraj
--troskovi, amortizacija i rezervisanja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '54%'  AND G.Datum_Nal >= @Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 11
--kraj

--Ostali poslovni rashodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '53%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '55%'  AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do and G.Sifra_Nal <> 999
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0)  where #BilansUspeh.id = 12
--kraj

--FINANSIJSKI PRIHODI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '66%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 15
--kraj
--FINANSIJSKI RASHODI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '56%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 16

--OSTALI PRIHODI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '67%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '68%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 17
--kraj

--OSTALI RASHODI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '57%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '58%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 18
--kraj
--NETO DOBITAK POSLOVANJA KOJE SE OBUSTAVLJA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '59%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =  @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '61%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '62%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '63%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '64%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '65%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '66%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '67%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '68%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '69%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 21
--kraj
--NETO GUBITAK POSLOVANJA KOJE SE OBUSTAVLJA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '69%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =  @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '68%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '67%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '66%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '65%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '64%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '63%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '62%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '61%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '60%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi) from Gstav G where G.Kto_Anal like '59%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 22
--kraj

--PORESKI RASHOD PERIODA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '721%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 26
--kraj

--ODLOZZENI PORESKI RASHODI PERIODA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '722%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 27
--kraj

--ODLOZZENI PORESKI PRIHODI PERIODA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '722%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 28
--kraj

--ISPLACHENA LICHNA PRIMANJA POSLODAVCU
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '723%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 29
--kraj


--zbir polinja
--Poslovni Prihodi      202 + 203 + 204 - 205 + 206
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 2          --202
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 3            --203
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 4            --204
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 5            --205
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 6            --206
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 1
--kraj

--Poslovni Rashodi      208 + 209 + 210 + 211 + 212
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 8          --208
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 9            --209
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 10            --210
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 11            --211
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 12            --212
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 7
--kraj

--13 Poslovni dobitak 201 - 207
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 1          --201
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 7          --207
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 13
--kraj

--14 Poslovni gubitak 207 - 201
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 7        --207
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 1          --201
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 14
--kraj

--19 Dobitak iz redovnog poslovanja pre oporezivanja (213 - 214 + 215 - 216 + 217 - 218)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 13       --213
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 14          --214
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 15          --215
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 16          --216
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 17          --217
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 18          --218
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 19
--kraj

--20 Gubitak iz redovnog poslovanja pre oporezivanja (214 - 213 - 215 + 216 - 217 + 218)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 14       --214
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 13          --213
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 15          --215
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 16          --216
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 17          --217
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 18          --218
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 20
--kraj

--23 Dobitak pre oporezivanja (219 - 220 + 221 - 222)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 19       --219
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 20          --220
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 21          --221
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 22          --222
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 23
--kraj

--24 Gubitak pre oporezivanja (220 - 219 + 222 - 221)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 20       --220
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 19          --219
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 22          --222
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 21          --221
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 24
--kraj

--30 Neto Dobitak (223 - 224 - 225 - 226 + 227 - 228)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 23       --223
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 24          --224
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 26          --225
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 27          --226
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 28          --227
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 29          --228
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 30
--kraj

--31 Neto Gubitak (224 - 223 + 225 + 226 - 227 + 228)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 24       --224
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 23          --223
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 26          --225
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 27          --226
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 28          --227
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansUspeh where #BilansUspeh.id = 29          --228
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansUspeh set IznosTekGodina = round(@IznosTekGod, 0) where #BilansUspeh.id = 31
--kraj
update #BilansUspeh set IznosTekGodina = 0 where IznosTekGodina is null
select * from #Bilansuspeh












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_bilsost]'))
drop procedure [dbo].[sp_bilsost]

Go
CREATE               PROCEDURE sp_BilSost
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS

create table #BilSost
(
ID [int]IDENTITY (1, 1) NOT NULL,
rbr varchar(5),
Pozicija varchar(200),
OznakaNaAOP char(3),
SmetkiVoAOP varchar(100),
IznosPrehGodina decimal(18,2),
IznosTekGodBruto decimal(18,2),
IznosTekGodNeto decimal(18,2)
)

insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'A.', 'POBARUVAWA ZA ZAPI[AN A NEUPLATEN KAPITAL', '001'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'B.','POSTOJANI SREDSTVA', '002'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'I','NEMATERIJALNI SREDSTVA','003'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.1','Osnova~ki izdatoci', '004', '011, 018d, 019d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.2','Izdatoci za istra`uvawe i razvoj', '005', '010, 018d, 019d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.3','Koncesii, patenti, licenci, za{titni znaci i sli~ni prava', '006', '013, 014, 018d, 019d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.4','Gudvil', '007', '012, 018d, 019d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.5','Avansi za nematerijalni sredstva', '008', '015, 016, 017'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'II','MATERIJALNI SREDSTVA', '009'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'II.1','Zemji{te i zgradi', '010', '020, 021, 024, 028d, 029d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'II.2','Postrojki i oprema', '011', '022, 028d, 029d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'II.3','Alat, pogonski i kancelariski inventar, mebel i transportni sredstva', '012', '023, 028d, 029d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'II.4','Avansi za materijalni sredstva i materijalni sredstva vo podgotovka', '013', '025, 026, 028d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'III','FINANSISKI SREDSTVA DOLGORO^NI', '014'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.1','Vlo`uvawa (vo akcii i udeli) vo povrzani subjekti', '015', '040, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.2','Zaemi na povrzani subjekti', '016', '041, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.3','U~estvo vo vlo`uvawa(participacija)', '017', '043, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.4','Zaemi so koi subjektot e povrzan vrz osnova na u~estvo vo vlo`uvaweto', '018', '042, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.5','Vlo`uvawa vo dolgoro~ni hartii od vrednost', '019', '044, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.6','Ostanati vlo`uvawa (dadeni krediti, depoziti, zadol`itelni dolgoro~ni vlo`uvawa)', '020', '045, 046, 048, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.7','Otkupeni sopstveni akcii', '021', '047, 049d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'V','TEKOVNI SREDSTVA','022'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'I.','ZALIHI', '023'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Surovini i drugi materijali', '024', '31, 32, 35'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Proizvodstvo vo tek (nedovr{eno proizvodstvo i poluproizvodi)', '025', '60'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Trgovski stoki i gotovi proizvodi', '026', '63, 66'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '4.','Avansi, depoziti i kaucii', '027', '37, 67'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'II.','POBARUVAWA', '028'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Pobaruvawa od kupuva~ite', '029', '120, 121, 129d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Pobaruvawa od povrzani subjekti', '030', '140, 142, 143, 144, 147, 149'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Pobaruvawa od subjekti vrz osnova na u~estvo vo vlo`uvaweto', '031', '147d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '4.','Ostanati pobaruvawa', '032', '160, 161, 162, 163, 164, 167, 169d, 170, 171, 172, 173, 174, 177, 179d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '5.','Plateni tro{oci za idnite periodi i nedostasana naplata na prihodi (AVR)', '033', '19'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'III.','FINANSISKI VLO@UVAWA (KRATKORO^NI)', '034'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Vlo`uvawa vo akcii i udeli vo povrzani subjekti', '035', '150, 159d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Otkupeni sopstveni akcii', '036', '154, 159d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Ostanati vlo`uvawa', '037', '151, 152, 153, 157, 159d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'IV.','PARI^NI SREDSTVA I HARTII OD VREDNOST', '038', '10, 11'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'G.','VKUPNA AKTIVA (001+002+022)', '039'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'D.','VONBILANSNA EVIDENCIJA AKTIVA', '040', '990 - 994'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'A.','KAPITAL I REZERVI (042+043+044+045+050-051+052-053)','041'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'I.','ZAPI[AN KAPITAL', '042', '90, 91'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'II.','PREMII NA EMITIRANI AKCI', '043', '920'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'III.','REVALORIZACIONA REZERVA', '044', '930'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'IV.','REZERVI (od 046 do 049)', '045'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Zakonski rezervi', '046', '940'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Rezervi za sopstveni akcii', '047', '941'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Statutarni rezervi', '048', '942'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '4.','Ostanati rezervi', '049', '949'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'V.','AKUMULIRANA DOBIVKA', '050', '950'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'VI.','PRENESENA ZAGUBA', '051', '960'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'VII.','DOBIVKA ZA FINANSISKATA GODINA', '052' , '951'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'VIII.','ZAGUBA ZA FINANSISKATA GODINA', '053', '961'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'B.','REZERVIRAWA ZA OBVRSKI I TRO[OCI (od 055 do 057)', '054'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Rezervirawa za penzii i sli~ni obvrski', '055', '287'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Rezervirawa za danoci', '056', '288'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Ostanati rezervirawa', '057', '289'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'V.','OBVRSKI SPREMA DOVERITELI(059++(od 064 do 071) ili 058 = (075+076))', '058'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '1.','Obvrski po osnov na obvrznici', '', ''
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'a.','Obvrski po osnov na obi~ni obvrznici (061 + 062)', '060'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'a.1','Dolgoro~ni obvrski po osnov na obi~ni obvrznici', '061', '285d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'a.2','Kratkoro~ni obvrski po osnov na obi~ni obvrznici', '062', '212'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'b.','Obvrski po osnov na konvertibilni obvrznici', '063', '213, 285d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '2.','Obvrski po zaemi i krediti', '064', '281, 250, 251, 257'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '3.','Obvrski za avansi, depoziti i kaucii', '065', '283, 223, 224'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '4.','Obvrski sprema dobavuva~i (doveriteli po osnov na rabotewe)', '066', '284, 220, 221, 222'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '5.','Obvrski za menici i ~ekovi', '067', '210, 211, 217'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '6.','Obvrski sprema povrzani subjekti', '068', '280, 240, 242, 243, 244, 245'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '7.','Obvrski sprema subjekti so koi subjektot e povrzan po osnov na u~estvo vo vlo`uvawata', '069', '282, 246, 249d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '8.','Ostanati obvrski vklu~uvaj}i go danokot i socijalnoto osiguruvawe', '070', '276, 270, 271, 272, 273, 274, 279d, 260, 261, 262, 263, 264, 265, 269, 285'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '9','Obvrski po osnov na u~estvo vo rezultatot', '071', '247, 249d'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select 'G.','ODLO@ENO PLA]AWE NA TRO[OCI I PRIHODI VO IDNITE PERIODI (PVR)', '072', '29'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'D.','VKUPNA PASIVA (VKUPEN KAPITAL I OBVRSKI) (041+054+058+072)', '073'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP, SmetkiVoAOP) select '\.','VONBILANSNA EVIDENCIJA - PASIVA', '074', '995-999'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'I.','OBVRSKI SPREMA DOVERITELI (DOLGORO^NI)', '075'
insert into #BilSost(rbr, Pozicija, OznakaNaAOP) select 'II.','OBVRSKI SPREMA DOVERITELI (KRATKORO^NI)', '076'

Declare @IznosTekGod as decimal(18,2)
Declare @IznosPrehGod as decimal(18,2)
Declare @Iznos as decimal(18,2)
Declare @IznosP as decimal(18,2)
--001 pobaruvanja za zapishan a neuplatan kapital
Set @IznosTekGod = 0
set @IznosPrehGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '000%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '001%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '002%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Pobaruva) from Gstav G where G.Kto_Anal like '003%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 1
--kraj prihodi od prodazzba

--004 Oznovacki izdatoci
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '011%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '018%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
--    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '019%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
--    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 4


--005 Izdatoci za istrazzuvanje i razvoj
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '010%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '018%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '019%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 5

--006 Koncesii, patenti, licensi, zashtitni znaci i slichni prava
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '013%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '014%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '018%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
--    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '019%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
--    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 6

Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '019%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
set @IznosTekGod = @Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 6

--007 Gudvil
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '012%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '018%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '019%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 7

--008 Avansi za nematerijalni sredstva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '015%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '016%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '017%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 8

--010 Zemjiste i zgradi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '020%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '021%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '024%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
    --set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 10

Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029500' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 10

--011 Postrojki i Oprema
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '022%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
--    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 11

Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029100' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    if @Iznos is not null
        set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029110' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    if @Iznos is not null
        set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 11

--012 Alat, pogonski i kancelariski invertar, mebel transportni sredstva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '023%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
    --set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 12
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029200%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029210%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 12

--013 Alat, pogonski i kancelariski invertar, mebel transportni sredstva
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '025%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '026%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
    --set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 13


--015 Vlozzuvanja (vo akcii i udeli) vo povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '040%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 15

--016 Zaemi na povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '041%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 16


--017 Ucestvo vo vlozzuvanja (participacija)
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '043%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 17


--018 Zaemi so koi subjektot e povrzan vrz osnova na ucestvo vo vlozzuvanjeto
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '042%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 18

--019 Vlozzuvanja vo dolgorocni hartii od vrednost
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '044%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 19

--020 Ostanati vlozuvanja (dadeni krediti, depoziti, zadolzzitelni dolgorocni vlozzuvanja)
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '045%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '046%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '048%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 20

--021 Otkupeni sopsveni akcii
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '047%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '049%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 21

--024 Surovini i drugi materijali
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '310%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
--select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '319%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--if @Iznos is not null
    --set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '320%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '350%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '351%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '352%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '353%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 24

Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '319%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '357%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
if @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 24

--025 Proizvodstvo vo tek (nedovrseno proizvodstvo i poluproizvodi)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '060%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 25

--026 trgovski stoki i gotovi proizvdi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '660%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '663%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '630%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 26

Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '664%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '669%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '639%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosPrehGodina = round(@IznosTekGod, 0) where #BilSost.id = 26

--027 Avansi i, depoziti i kaucii
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '037%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '67%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 27

--029 Pobaruvawa od kupuvacite
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '120%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '121%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '129%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 29

--030 Pobaruvawa od kupuvacite
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '140%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '142%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '143%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '144%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '147%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '149%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 30

--031 Pobaruvanja od subjekti brz osnova na ucestvo vo vlozzuvanjeto
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '147%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
--update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 31


--032 Ostanati pobaruvanja
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '160%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '161%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '162%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '163%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '164%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '167%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '169%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '170%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '171%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '172%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '173%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '174%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '177%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '179%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 32


--033 Plateni trosoci za idnite periodi i nedostasana naplata na prihodi (AVR)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '190%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '191%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '192%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '194%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '197%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 33

--035 Vlozzuvanja (vo akcii i udeli) vo povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '150%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '159%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 35

--036 Otkupeni sopstveni akcii
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '154%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '159%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 36

--037 Ostanati vlozzuvanja
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '151%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '152%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '153%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '157%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '159%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 37

--038 Paricni sredstva i hartii od vrednost
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '100%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '102%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '103%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '104%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '107%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '110%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 38


--040 Vonbilansna evidencija - aktiva
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '990%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '991%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '992%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '993%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '994%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 40

--042 Zapisan Kapital
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '912%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '919%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 42

--043 Premii na emitirani akcii
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '920%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 43

--044 Revaloriziciona rezerva
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '930%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 44

--046 Zakonski Rezervi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '940%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 46

--047 Rezervi za sopstveni akcii
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '941%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 47

--048 Statutarni rezervi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '942%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 48

--049 Ostanati rezervi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '949%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 49


--050 Akumulirana dobivka
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '950%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 50

--051 Prenesena zaguba
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '960%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 51

--052 Dobivka za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '951%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 52

--053 Zaguba za finansiskata godina
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '961%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 53
--select * from #BilSost

--055 Rezervirawa za penzii slicni obvrski
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '287%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 55

--056 Rezervirawa za danoci
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '288%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 56


--057 Ostanati rezerviranja
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '289%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 57

--061 Dolgorocni obvrski po osnov na obicni obvrznici
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '285%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 61


--062 Kratkorocni obvrski po osnov na obicni obvrznici
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '212%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 62

--063 Obvrski po osnov na konvertibilni obvrznici
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '213%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '285%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 63

--064 Obvrski po  zaemi i krediti
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '281%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '250%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '251%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '257%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 64

--065 Obvrski za avansi, depoziti i kaucii
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '283%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '223%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '224%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 65

--066 Obvrski sprema dobavuvaci (doveriteli po osnoav na dobavuvaci)
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '284%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '220%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '221%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '222%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 66


--067 Obvrski za menici i cekovi
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '210%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '211%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '217%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 67

--068 Obvrski sprema povrzani subjekti
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '280%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '240%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '242%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '243%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '244%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '245%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 68

--069 Obvrski sprema subjekti so koi subjektot e povrzan po osnov na ucestvo vo vlozzuvanjata
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '282%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '246%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '249%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 69

--070 Ostanati obvrski vklucivajki go danokot i socijalnoto osiguruvanje
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '276%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '270%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '271%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '272%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '273%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '274%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
--select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '279%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
--IF @Iznos is not null
    --set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '260%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '261%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '262%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '263%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '264%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '265%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '269%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '285%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 70

--071 obvrski po osnov na ucestvo vo rezultatot
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '247%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '249%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos


update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 71

--072 odlozzeno plakjane na trosoci i prihodi vo idnite periodi
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '29%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos

update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 72

--074 Vonbilansna evidencija - pasiva
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '995%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '996%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '997%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '998%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '999%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 74

--075 Obvrski sprema doveriteli (dolgorocni)
Set @IznosTekGod = 0
set @Iznos = 0

select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '287%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '288%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '289%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '285%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '281%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0) where #BilSost.id = 75




--nematerijalni sredstva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 4
     IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 5
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 6
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 7
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 8
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 3
--print @IznosTekGod
--materijalni sredstva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 10
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 11
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 12
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 13
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 9

--finansiski sredstva dolgorocni
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 15
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 16
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 17
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 18
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 19
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 20
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 21
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 14

--zbir polinja
--postojani sredstva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 3
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 9
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 14
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 2

--Zalihi
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 24
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 25
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 26
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 27
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 23

--Pobaruvanja
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 29
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 30
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 31
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 32
   IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 33
   IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 28
--Finansiski vlozzuvanja kratkorocni
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 35
     IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =  @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 36
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 37
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 34

--Tekovni sredstva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 23
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 28
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 34
     IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 38
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 22

--Vkupna aktiva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 1
    IF @Iznos is not null
        set @IznosTekGod =@Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 2
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 22
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 39

--Rezervi
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 46
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 47
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 48
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 49
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 45

--Kapital i rezervi
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 42
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 43
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 44
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 45
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 50
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 51
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 52
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 53
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0)where #BilSost.id = 41

--Rezerviranja za obvrski i trosoci
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 55
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 56
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 57
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 54

--obvrski sprema doveriteli
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 59
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 64
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 65
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 66
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 67
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 68
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 69
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 70
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 71
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 58


--obvrski po osnov na obicni obvrznici
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 61
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 62
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 60

--obvrski po osnov na obvrznici
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 60
    IF @Iznos is not null
        set @IznosTekGod = @Iznos
    IF @IznosP is not null
        set @IznosPrehGod = @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 63
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 59

--vkupna pasiva
Set @IznosTekGod = 0
Set @IznosPrehGod = 0
set @Iznos = 0
set @IznosP = 0
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 41
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 54
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 58
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
select @Iznos = IznosTekGodBruto, @IznosP = IznosPrehGodina from #BilSost where #BilSost.id = 72
    IF @Iznos is not null
        set @IznosTekGod =@IznostekGod + @Iznos
    IF @IznosP is not null
        set @IznosPrehGod =@IznosPrehGod + @IznosP
update #BilSost set IznosTekGodBruto = round(@IznosTekGod, 0), IznosPrehGodina = round(@IznosPrehGod, 0) where #BilSost.id = 73

update #bilSost set IznosPrehGodina = 0 where IznosPrehGodina is null
update #BilSost set IznosTekGodNeto = IznosTekGodBruto + IznosPrehGodina

select * from #BilSost





















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_bilsostsr]'))
drop procedure [dbo].[sp_bilsostsr]

Go




CREATE        PROCEDURE sp_BilSostSR
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
create table #BilansSost
(
ID [int]IDENTITY (1, 1) NOT NULL,
Pozicija nvarchar(200),
OznakaNaAOP char(3),
GrupaSmetki nvarchar(100),
IznosPrethGod decimal(18,2),
IznosTekGodina decimal(18,2)
)
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'A. СТАЛНА ИМОВИНА (002+003+004+005+009)', '001', N'АКТИВА'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'I.   НЕУПЛАЋЕНИ УПИСАНИ КАПИТАЛ', '002', N'00'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'II.  GOODWILL', '003','012'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'III. НЕМАТЕРИЈАЛНА УЛАГАЊА', '004', N'01 без 012'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'IV.  НЕКРЕТНИНЕ, ПОСТРОЈЕЊА, ОПРЕМА И БИОЛОШКА СРЕДСТВА(006+007+008)', '005', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'        1.Некретнине, постројења и опрема', '006', N'020,022,023,026,027(део),028(део),029'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     2.Инвестиционе некретнине', '007', N'024,027(део)и 028(део)'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'        3.Биолошка средства', '008', N'021,025,027(део)и 028(део)'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'V.   ДУГОРОЧНИ ФИНАНСИЈСКИ ПЛАСМАНИ(010+011)', '009', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     1.Учешђа у капиталу', '010', N'030 до 032,039(део)'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     2.Остали дугорочни финансијски пласмани', '011', N'033 до 038,039(део)минус 037'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Б.   ОБРТНА ИМОВИНА(013 + 014+ 015)', '012', N''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'I.   ЗАЛИХЕ', '013', N'10 до 13, 15'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'II.  СТАЛНА СРЕДСТВА НАМЕЊЕНА ПРОДАЈИ И СРЕДСТВА ПОСЛОВАЊА КОЈЕ СЕ ОБУСТАВЉА', '014', '14'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'III. КРАТКОРОЧНА ПОТРАЖИВАЊА, ПЛАСМАНИ И ГОТОВИНА(016+017+018+019+020)', '015', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     1.Потраживања', '016', N'20,21и22,осим 223'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     2.Потраживања ѕа више плаћен пореѕ на добитак', '017', '223'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     3.Краткорочни финансијски пласмани', '018', N'23 минус 237'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     4.Готовински еквиваленти и готовина    ', '019', '24'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'     5.Порез на додату вредност и активна временска разграничења', '020', N'27 и 28 осим 288'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'В. ОДЛОЖЕНА ПОРЕСКА СРЕДСТВА', '021', '288'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Г. ПОСЛОВНА ИМОВИНА(001+012+021)', '022', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Д. ГУБИТАК ИЗНАД ВИСИНЕ КАПИТАЛА', '023', '29'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Ђ. УКУПНА АКТИВА(022+023)', '024', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Е. ВАНБИЛАНСНА АКТИВА', '025', '88'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'А.КАПИТАЛ (102+103+104+105+106+107+108-109-110)', '101', N'ПАСИВА'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' I.   ОСНОВНИ КАПИТАЛ', '102', '30'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' II.  НЕУПЛАЂЕНИ УПИСАНИ КАПИТАЛ', '103', '31'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' III. РЕЗЕРВЕ', '104', '32'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' IV.  РЕВАЛОРИЗАЦИОНЕ РЕЗЕРВЕ', '105', N'330 и 331'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' V.   НЕРЕАЛИЗОВАНИ ДОБИЦИ ПО ОСНОВУ ХАРТИЈА ОД ВРЕДНОСТИ', '106', '332'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' VI.  НЕРЕАЛИЗОВАНИ ГУБИЦИ ПО ОСНОВУ ХАРТИЈА ОД ВРЕДНОСТИ', '107', '333'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' VII. НЕРАСПОРЕЂЕНИ ДОБИТАК', '108', '34'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' VIII.ГУБИТАК', '109', '35'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' IX.ОТКУПЉЕЊЕ СОПСТВЕНЕ АКЦИЈЕ', '110', N'037 и 237'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Б.ДУГОРОЧНА РЕЗЕРВИСАЊА И ОБАВЕЗЕ(112 + 113 +116)', '111', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' I.   ДУГОРОЧНА РЕЗЕРВИСАЊА', '112', '40'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' II.  ДУГОРОЧНА ОБАВЕЗЕ(114 + 115)', '113', '41'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      1.Дугорочни кредити', '114', '414, 415'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      2.Остале дугорочне обавезе', '115', N'41 без 414 и 415'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N' III.КРАТКОРОЧНЕ ОБАВЕЗЕ(117+118+119+120+121+122)', '116', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      1.Краткорочне финансијске обавезе', '117', N'42,осим 427'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      2.Обавезе по основу средстава намењених продаји и средстава пословања које се обуставља', '118', '427'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      3.Обавезе из пословања', '119', N'43 и 44'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      4.Остале краткорочне обавезе', '120', N'45 и 46'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      5.Обавезе по основу пореза на додату вредност и осталих јавних прихода и пасивна временска разграничења', '121', N'47,48 осим 481 и 49 осим 498'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'      6.Обавезе по основу пореза на добитак', '122', N'481'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'В.ОДЛОЖЕНЕ ПОРЕСКЕ ОБАВЕЗЕ', '123', N'498'
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Г.УКУПНА ПАСИВА(101 + 111 + 123)', '124', ''
insert into #BilansSost(Pozicija, OznakaNaAOP, GrupaSmetki) select  N'Д.ВАНБИЛАНСНА ПАСИВА', '125', '89'




Declare @IznosTekGod as decimal(18,2)
Declare @Iznos as decimal(18,2)

--НЕУПЛАЋЕНИ УПИСАНИ КАПИТАЛ
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '00%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 2

--Goodwill
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '012%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 3
--kraj

--nematerijalna ulaganja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '01%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '012%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 4
--kraj

--Nekretnine, postrojenja i oprema
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '020%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '022%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '023%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '026%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '027%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '029%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 6
--kraj


--Investicione nekretnine
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '024%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '027%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod+@Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 7
--kraj

--Bioloshka sredstsva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '021%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '025%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '027%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '028%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 8
--kraj

--Uceshca u kapitalu
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '030%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '031%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '032%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '039%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 10
--kraj

--Ostali dugorocni finansisjski plasmani
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '033%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '034%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '035%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '036%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '037%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod - @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '038%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '039%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 11
--kraj

--Zalihe
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '10%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '11%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '12%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '13%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '15%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 13
--kraj

--Stalna sredstva namenjena prodaji i sredstva poslovanja koje se obustavlja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '14%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 14
--kraj

--Potrazzivanja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '20%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '21%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '22%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '223%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 16
--kraj

--Potrazzivanja za vishe plachen porez na dobitak
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '223%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 17

--Kratkorocni finansijski plasmani
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '23%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '237%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 18
--kraj

--Gotovinski ekvivalenti i gotovina
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Dolzi - G.Pobaruva) from Gstav G where G.Kto_Anal like '24%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 19
--kraj
--Porez na dodatu vrednosti i aktivna vremenska razgranichenja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '27%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '28%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '288%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
    IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 20
--kraj
--Odlozzena poreska sredstva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '288%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 21
--kraj

--Gubitak iznad visine kapitala
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '29%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 23
--kraj

--Vanbilansna aktiva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '88%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 25
--kraj

--Osnovni kapital
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '30%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 27
--kraj

--Neuplacheni upisani kapital
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '31%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 28
--kraj

--REZERVE
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '32%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 29
--kraj

--REVALORIZACIONE REZERVE
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '330%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '331%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 30
--kraj

--NEREALIZOVANI DOBICI PO OSNOVU HARTIJA OD VREDNOSTI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '332%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
 update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 31
--kraj

--NEREALIZOVANI GUBICI PO OSNOVU HARTIJA OD VREDNOSTI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '333%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
 update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 32
--kraj

--NERASPORECENI DOBITAK
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '34%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
 update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 33
--kraj

--GUBITAK
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '33%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
 update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 34
--kraj

--OTKUPLJENE SOPSTVENE AKCIJE
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '037%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '237%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
 update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 35
--kraj

--DUGOROCHNA REZERVISANJA
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '40%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 37
--kraj

--DUGOROCHNE OBAVEZE
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '41%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 38
--kraj

--DUGOROCHNE KREDITI
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '414%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '415%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 39
--kraj

--OSTALE DUGOROCHNE obaveze
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '41%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '414%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '415%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod =@IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 40
--kraj

--Kratkorocne finansijske obaveze
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '42%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '427%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 42
--kraj

--Obaveze po osnovu sredstava namenenih prodaji i sredstava poslovanja koje se obustavlja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '427%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 43
--kraj

--Obaveze iz poslovanja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '43%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '44%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 44
--kraj

--Ostale kratkorochne obaveze
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '45%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '46%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 45
--kraj

--Obaveze po osnovu poreza na dodadtu vrednost i ostalih javnih prihoda i pasivna vremenska razgranichenja
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '47%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '48%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '481%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '49%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod + @Iznos
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '498%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @IznosTekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 46
--kraj
--Obaveze po osnovu poreza na dobitak
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '481%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 47
--kraj
--Odlozzene poreske obaveze
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '498%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 48
--kraj
--Vanbilansna pasiva
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = sum (G.Pobaruva - G.Dolzi) from Gstav G where G.Kto_Anal like '89%' AND G.Datum_Nal >=@Datum_Od AND G.Datum_Nal <= @Datum_Do
IF @Iznos is not null
    set @IznosTekGod = @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 50
--kraj

--zbir polinja
--Dugorochni finansijski plasmani      010 + 011
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 10          --010
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 11            --011
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 9
--kraj

--Nekretnine, postrojena, oprema i bioloshka sredstva 006+007+008
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 6        --006
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 7        --007
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 8        --008
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos

update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 5
--kraj

--Stalna Imovina      002+003+004+005+009
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 2          --002
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 3            --003
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 4            --004
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 5            --005
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 9            --009
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 1
--kraj

--15 Kratkorochna potrazzivanja, plasmani i gotovina (016+017+018+019+020)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 16          --016
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 17          --017
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 18          --018
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 19          --019
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 20          --020
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 15
--kraj
--15 Obrtna imovina (013+014+015)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 13          --013
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 14          --014
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 15          --015
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 12
--kraj

--22 Poslovna imovina (001+012+021)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 1         --001
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 12         --012
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 21         --021
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 22
--kraj

--24 Ukupna aktiva (022+023)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 22       --022
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 23         --023
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 24
--kraj

--26 Kapital (102 + 103 + 104 + 105 + 106 + 107 + 108 - 109 -110)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 27        --102
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 28         --103
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 29         --104
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 30         --105
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 31         --106
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 32         --107
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 33         --108
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 34         --109
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 35         --110
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod - @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 26
--kraj

--41 Kratkorocne obaveze (117 + 118 + 119 + 120 + 121 +122)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 42       --117
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 43        --118
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 44        --119
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 45        --120
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 45        --121
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 45        --122
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 41
--kraj

--41 Dugorochne obaveze (114 + 115)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 39       --114
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 40        --115
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 38
--kraj

--36 Dugorochna rezervisanja i obaveze (114 + 115)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 37       --112
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 38        --113
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 41    --116
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 36
--kraj


--49 Ukupna pasiva (101 + 111 + 123)
Set @IznosTekGod = 0
set @Iznos = 0
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 26       --101
IF @Iznos is not null
    set @IznosTekGod = @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 36        --111
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
select @Iznos = IznosTekGodina from #BilansSost where #BilansSost.id = 48        --123
IF @Iznos is not null
    set @IznosTekGod =@IznostekGod + @Iznos
update #BilansSost set IznosTekGodina = round(@IznosTekGod, 0) where #BilansSost.id = 49
--kraj

update #BilansSost set IznosTekGodina = 0 where IznosTekGodina is null
select * from #BilansSost












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blagajnicki_izv]'))
drop procedure [dbo].[sp_blagajnicki_izv]

Go



CREATE         PROCEDURE [dbo].[sp_Blagajnicki_Izv]
    @Sifra_Nal    smallint,
    @Datum_Nal    smalldatetime,
    @Br_Nal_Prik    int = NULL,
    @Sifra_Oe    smallint = NULL,
    @Kto_Anal    char(10) = NULL,
    @Preth_Sost    decimal(18,6) Output,
    @Broj_Nalog     int Output,
    @DaliDev    char(1) Output,
        @TipBlag    char(3)=NULL    --dod.16.11.07
AS
    -- Izmeneto za po organizacioni edinici na 09.11.2005
    Declare @SSQL as varchar(7000)
    --Select @Broj_Nalog = K.Broj_Nal         vaka bese do 15.10.2004
    --From KasStav K
    --Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
    --Where K.Sifra_Nal=@Sifra_Nal and N.Datum_Nal=@Datum_Nal
    IF @Br_Nal_Prik IS NULL
        SELECT TOP 1 @Broj_Nalog = Broj_Nal FROM Nalozi
        WHERE Sifra_Nal = @Sifra_Nal AND Datum_Nal = @Datum_Nal ORDER BY Broj_Nal
     Else
        SET @Broj_Nalog = @Br_Nal_Prik
-- Dali dokumentot e devizen
    Declare @ImaDev as smallint
    If @Sifra_Oe Is Not Null
        Select @ImaDev = Count(*) From KasStav K
        Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
        Where K.Sifra_Nal=@Sifra_Nal and N.Datum_Nal=@Datum_Nal AND K.Broj_Nal = @Broj_Nalog And KojaVal Is Not Null And K.Sifra_Oe=@Sifra_Oe
    Else
        Select @ImaDev = Count(*) From KasStav K
        Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
        Where K.Sifra_Nal=@Sifra_Nal and N.Datum_Nal=@Datum_Nal AND K.Broj_Nal = @Broj_Nalog And KojaVal Is Not Null
    If @ImaDev > 0
        Set @DaliDev = 'D'
    Else
        Set @DaliDev = 'N'
-- Prethodna sostojba
    CREATE Table #PrethSost
    (
     Sifra_Oe    smallint,
     PrethSost    decimal(18,6)
    )
    Set @SSQL = ' Select K.Sifra_Oe, Sum(K.Dolzi - K.Pobaruva)
            From KasStav K
            Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
            Where K.Sifra_Nal=' + Cast(@Sifra_Nal as varchar(6)) + ' and N.Datum_Nal <= ''' + Cast(@Datum_Nal as varchar(30)) + ''' ' -- dali terba <= ili samo <
    If @Broj_Nalog Is Not Null
        Set @SSQL = @SSQL + ' AND (K.Broj_Nal < ' + Cast(@Broj_Nalog as varchar(10)) + ' OR N.Datum_Nal < ''' + Cast(@Datum_Nal as varchar(30)) + ''') '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto_Anal = ''' + @Kto_Anal + ''' '
    IF @TipBlag IS NOT NULL
            SET @SSQL=@SSQL+' AND TipBlag='''+@TipBlag+''' '
        Set @SSQL = @SSQL + ' Group By K.Sifra_Oe '
    Insert Into #PrethSost Exec(@SSQL)
    Set @SSQL = ' Select K.KStaID, K.Broj_dok, K.Sifra_Nal, K.Broj_Nal, K.Dod_Datum, K.P_I, K.Kto_Anal, K.Kto_Osnovica,  K.Dolzi, K.Pobaruva, K.Lice, K.SMesto,
            K.Opis, K.Opis2, K.Sifra_Kup, KUP.ImeKup, K.KojaVal, KL.ImeVal, K.Kurs, K.Dev_Dolzi, K.Dev_Pobar, K.Sifra_Oper, K.USG, K.Datum_Vnes,
            K.KasaGrupa, N.Datum_Nal, K.Sifra_Oe, Null as PrethSost, K.TipBlag, K.Sifra_Nac, PL.ImeNac
        From KasStav K
        Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
        Left outer Join Komint KUP On K.Sifra_Kup=KUP.Sifra_Kup
        Left Outer Join KrsLista KL On KL.SImeVal = K.KojaVal
        LEFT OUTER JOIN NacPlak PL ON K.Sifra_Nac=PL.Sifra_Nac
        Where K.Sifra_Nal=' + Cast(@Sifra_Nal as varchar(6)) + ' and N.Datum_Nal= ''' + Cast(@Datum_Nal as varchar(30)) + ''' '
    If @Broj_Nalog Is Not Null
        Set @SSQL = @SSQL + ' AND K.Broj_Nal = ' + Cast(@Broj_Nalog as varchar(10)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto_Anal = ''' + @Kto_Anal + ''' '
    IF @TipBlag IS NOT NULL
        SET @SSQL=@SSQL+' AND TipBlag='''+@TipBlag+''' '
    Set @SSQL=@SSQL + '
        Union
        Select Null as KStaID, Null as Broj_dok, Null as Sifra_Nal, Null as Broj_Nal, Null as Dod_Datum, Null as P_I, Null as Kto_Anal, Null as Kto_Osnovica, Null as Dolzi, Null as Pobaruva,
            Null as Lice, Null as SMesto, Null as Opis, Null as Opis2, Null as Sifra_Kup, Null as ImeKup, Null as KojaVal, Null as ImeVal, Null as Kurs,
            Null as Dev_Dolzi, Null as Dev_Pobar, Null as Sifra_Oper, Null as USG, Null as Datum_Vnes, Null as KasaGrupa, Null as Datum_Nal,
            P.Sifra_Oe, P.PrethSost, Null TipBlag, Null Sifra_Nac, Null ImeNac
            From #PrethSost P
            Where 1=1'
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By K.Sifra_Oe, K.KStaID'
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blagajnicki_izv_sum]'))
drop procedure [dbo].[sp_blagajnicki_izv_sum]

Go

CREATE      PROCEDURE sp_Blagajnicki_Izv_Sum
    @Sifra_Nal    smallint,
    @Datum_Nal    smalldatetime,
    @Sifra_Oe    smallint = Null,
    @Kto_Anal     char(10) = Null,
    @TipBlag    char(3)=NULL    --dod.16.11.07
--    @Br_Nal_Prik    int = NULL,
--    @Preth_Sost    decimal(18,6) Output,
--    @Broj_Nalog     int Output
AS
    Declare @SSQL as varchar(4000)
    Create Table #Blag
    (
     KojaVal        char(3),
     PrethSost    decimal(18,6),
     TekDolzi    decimal(18,6),
     TekPobar    decimal(18,6)
    )
    Set @SSQL = ' Select K.KojaVal, Sum(K.Dev_Dolzi - K.Dev_Pobar)
            From KasStav K
            Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
            Where K.Sifra_Nal= ' + Cast(@Sifra_Nal as varchar(6)) + ' and N.Datum_Nal < ''' + cast(@Datum_Nal as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto_Anal = ''' + @Kto_Anal + ''' '
    IF @TipBlag IS NOT NULL
        SET @SSQL=@SSQL+' AND TipBlag='''+@TipBlag+''' '
    Set @SSQL=@SSQL + ' Group By K.KojaVal '
    Insert Into #Blag (KojaVal, PrethSost) Exec(@SSQL)
    Set @SSQL = ' Select K.KojaVal, Sum(K.Dev_Dolzi), Sum(K.Dev_Pobar)
            From KasStav K
            Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
            Where K.Sifra_Nal= ' + Cast(@Sifra_Nal as varchar(6)) + ' and N.Datum_Nal = ''' + cast(@Datum_Nal as varchar(30)) + ''' ' -- AND K.Broj_Nal = @Broj_Nalog
--            Where K.Sifra_Nal=@Sifra_Nal and N.Datum_Nal=@Datum_Nal -- AND K.Broj_Nal = @Broj_Nalog
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto_Anal = ''' + @Kto_Anal + ''' '
    IF @TipBlag IS NOT NULL
        SET @SSQL=@SSQL+' AND TipBlag='''+@TipBlag+''' '
    Set @SSQL=@SSQL + ' Group By K.KojaVal '
    Insert Into #Blag (KojaVal, TekDolzi, TekPobar) Exec(@SSQL)
    Select B.KojaVal, KL.ImeVal, Sum(B.PrethSost) PrethSost, Sum(B.TekDolzi) TekDolzi, Sum(B.TekPobar) TekPobar
    From #Blag B
    Left Outer Join KrsLista KL On KL.SImeVal = B.KojaVal
    Group By B.KojaVal, KL.ImeVal





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blagajnicki_izvestaj]'))
drop procedure [dbo].[sp_blagajnicki_izvestaj]

Go
CREATE      PROCEDURE sp_Blagajnicki_Izvestaj
    @Sifra_Nal    smallint,
    @Datum_Nal    smalldatetime,
    @Br_Nal_Prik    int = NULL,
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(10) = Null,
    @Kto_Anal    char(10) = Null,
    @Broj_Nalog     int Output
AS
    Declare @SSQL as varchar(4000)
    IF @Br_Nal_Prik IS NULL
        SELECT TOP 1 @Broj_Nalog = Broj_Nal FROM Nalozi
        WHERE Sifra_Nal = @Sifra_Nal AND Datum_Nal = @Datum_Nal ORDER BY Broj_Nal
     Else
        SET @Broj_Nalog = @Br_Nal_Prik
    Set @SSQL = ' Select K.KStaID, K.Broj_dok, K.Sifra_Nal, K.Broj_Nal, K.Dod_Datum, K.P_I, K.Kto_Anal, K.Dolzi, K.Pobaruva, K.Lice, K.SMesto,
        K.Opis, K.Opis2, K.Sifra_Kup, KUP.ImeKup, K.KojaVal, K.Kurs, K.Dev_Dolzi, K.Dev_Pobar, K.Sifra_Oper, K.USG, K.Datum_Vnes,
        K.KasaGrupa, N.Datum_Nal, K.Sifra_Oe
    From KasStav K
    Inner Join Nalozi N On K.Sifra_Nal = N.Sifra_Nal and K.Broj_Nal=N.Broj_Nal
    left outer Join Komint KUP On K.Sifra_Kup=KUP.Sifra_Kup
    Where 1=1 '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Nal= ' + cast(@Sifra_Nal as varchar(6)) + ' '
    If @Datum_Nal Is Not Null
        Set @SSQL = @SSQL + ' and N.Datum_Nal= ''' + cast(@Datum_Nal as varchar(30)) + ''' '
    If @Broj_Nalog Is Not Null
        Set @SSQL = @SSQL + ' AND K.Broj_Nal = ' + cast(@Broj_Nalog as varchar(10)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' AND K.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' and K.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' AND K.Kto_Anal = ''' + @Kto_Anal + ''' '
    Set @SSQL = @SSQL + ' Order by KStaID '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blagizvdatvnes]'))
drop procedure [dbo].[sp_blagizvdatvnes]

Go


CREATE PROCEDURE sp_BlagIzvDatVnes
   @Sifra_Dok varchar(200),
   @Sifra_OE Smallint,
   @Datum_Vnes_Od smallDatetime,
   @Datum_Vnes_Do smallDatetime

AS
   Declare @SSQL Varchar(4000)

      SET @SSQL = 'SELECT A.*, K.ImeKup, K.SMesto FROM AnFinDok A
      LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
      WHERE 1=1 '

    If @Sifra_Dok Is NOT Null
        SET @SSQL = @SSQL + ' AND Sifra_Dok IN (' + Cast(@Sifra_Dok As Varchar(200)) + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Datum_Vnes_Od Is NOT Null
            set @SSQL = @SSQL + 'AND cast(cast(datepart(yyyy, A.Datum_Vnes) as char(4)) +''-''+
            cast(datepart(mm, A.Datum_Vnes) as char(2)) +''-''+
            cast(datepart(dd, A.Datum_Vnes) as char(2)) as smalldatetime)
             >= '''+cast(@Datum_Vnes_Od as varchar(35))+''' '
    If @Datum_Vnes_Do Is NOT Null
        set @SSQL = @SSQL + ' AND cast(cast(datepart(yyyy, A.Datum_Vnes) as char(4)) +''-''+
            cast(datepart(mm, A.Datum_Vnes) as char(2)) +''-''+
            cast(datepart(dd, A.Datum_Vnes) as char(2)) as smalldatetime)
             <= '''+cast(@Datum_Vnes_Do as varchar(35))+''' '
     print(@SSQL)
     EXEC(@SSQL)
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blagsumkpzagrupa]'))
drop procedure [dbo].[sp_blagsumkpzagrupa]

Go


CREATE   PROCEDURE sp_BlagSumKPZaGrupa
    @Sifra_Nal    smallint,
    @Broj_Nal    int,
    @KasaGrupa    varchar(10),
    @Sifra_Nac    smallint,
    @Iznos        decimal(18,2)=0 OUTPUT
AS
IF @Sifra_Nac IS NULL
    SELECT @Iznos = SUM(Dolzi) FROM KasStav WHERE P_I='P' AND Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal AND UPPER(KasaGrupa)=UPPER(@KasaGrupa)
ELSE
    SELECT @Iznos = SUM(Dolzi) FROM KasStav WHERE P_I='P' AND Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal AND UPPER(KasaGrupa)=UPPER(@KasaGrupa) AND Sifra_Nac=@Sifra_Nac






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blokiraj_1_komint]'))
drop procedure [dbo].[sp_blokiraj_1_komint]

Go
CREATE PROCEDURE sp_Blokiraj_1_Komint
    @Sifra_Kup    char(6),
    @MozeIsporaka    char(1)
AS
    Update Komint
    Set MozeIsporaka=@MozeIsporaka
    Where Sifra_Kup=@Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_blokiraj_komint]'))
drop procedure [dbo].[sp_blokiraj_komint]

Go


CREATE   PROCEDURE sp_Blokiraj_Komint
    @Sifra_Kup_Od    char(6),
    @Sifra_Kup_Do    char(6)
AS
Declare @SSQL as varchar(8000)
Set @SSQL = ' Update Komint
    Set MozeIsporaka = dbo.fix_Moze_Isporaka(Sifra_Kup, MozeIsporaka,Limit_Dolzi,Garancija, GetDate(), KDrugo5)
    Where MozeIsporaka Not In (''N'', ''F'') '
If @Sifra_Kup_Od Is Not Null
    Set @SSQL = @SSQL + ' And Sifra_Kup >= ' + @Sifra_Kup_Od + ' '
If @Sifra_Kup_Do Is Not Null
    Set @SSQL = @SSQL + ' And Sifra_Kup <= ' + @Sifra_Kup_Do + ' '
Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_prodpomes]'))
drop procedure [dbo].[sp_brand_prodpomes]

Go
CREATE                      PROCEDURE sp_Brand_ProdPoMes
    @Sifra_OE Smallint,
    @KoiOE Varchar(200) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Koi_Gradovi Varchar(200) = Null,
    @Sifra_Pat    smallint = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni     Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @TipKup Char(11) = Null,
    @Sifra_obj Smallint = Null,
    @KomercKako     char(1) = 'I',
    @KojaCena    char(1) = '1',                     -- 4 - NPS,    3 - Osnovna,     1 - Krajna,     2 - SoRabat
    @RazbijSostav Char(1) = 'N',
    @Podelba    char(1) = 'B'        -- B - Brend    G - Grupa,     P - Podgrupa,     (1,2,3,4,5) - Podelba(1, 2, 3, 4, 5)
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(4000)
    Declare @SSQL1 Varchar(4000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLGroup Varchar(4000)
    Declare @SSQLDat Varchar(4000)
    Set @SSQL1 = ' '
    Set @SSQLUsl = ' '
    Set @SSQLGroup = ' '
    Set @SSQLDat = ' '
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Create Table #Rezult
    (
     Sifra        Varchar(10),
     Sifra_Art    varchar(20),
     Mesec        varchar(2),
     Godina        varchar(4),
     Vrednost    decimal(18,6),
     ProcPoBr    decimal(9,3),
     ProcPoArt    decimal(9,3)
    )
    If @Podelba = 'B'
        Set @SSQL = 'Select B.Sifra_Drg1, '
    Else If @Podelba = 'G'
        Set @SSQL = 'Select P.Sifra_Gr, '
    Else If @Podelba = 'P'
        Set @SSQL = 'Select K.Sifra_Podg, '
    Else If @Podelba = '1'
        Set @SSQL = 'Select K.Drugo1, '
    Else If @Podelba = '2'
        Set @SSQL = 'Select K.Drugo2, '
    Else If @Podelba = '3'
        Set @SSQL = 'Select K.Drugo3, '
    Else If @Podelba = '4'
        Set @SSQL = 'Select K.Drugo4, '
    Else If @Podelba = '5'
        Set @SSQL = 'Select K.Drugo5, '
    If @Podelba = 'B'
        Set @SSQL = @SSQL + ' K.Sifra_Drg,
                Month(S.Datum_Dok) As Mesec, Year(S.Datum_Dok) As Godina, '    -- bese sifra_art ama za Mia go naprajvme po brend i zbiren brend
    Else
        Set @SSQL = @SSQL + ' TS.Sifra_Sur as Sifra_Art,
                Month(S.Datum_Dok) As Mesec, Year(S.Datum_Dok) As Godina, '
    If @KojaCena = '3'
        Set @SSQL1 = @SSQL1 + ' Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov, '
    Else If @KojaCena = '2'
        Set @SSQL1 = @SSQL1 + ' Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat, '
    Else If @KojaCena = '1'
        Set @SSQL1 = @SSQL1 + ' Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna, '
    Else If @KojaCena = '4'
        Set @SSQL1 = @SSQL1 + ' Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS, '
    Set @SSQL1  = @SSQL1 + ' 0, 0 '
    Set @SSQL1 = @SSQL1 + 'From #tSostav TS
                Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
                Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
                Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
                Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup AND KO.SIFRA_OBJ=D.SIFRA_OBJ '
    If @Podelba = 'G'
        Set @SSQL1 = @SSQL1 + ' Left Outer Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    If @Podelba = 'B'
        Set @SSQL1 = @SSQL1 + ' Left Outer Join DrgPodel B On B.Sifra_Drg = K.Sifra_Drg '
    Set @SSQLUsl = @SSQLUsl + 'Where 1=1 ' --K.Iskluci <> ''D'' '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
--    If @Pod5 Is Not NULL
--        Set @SSQLUsl = @SSQLUsl + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Sifra_obj Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And D.Sifra_obj=''' + Cast(@Sifra_obj As Varchar(5)) + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokProd Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLDat = @SSQLDat + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLDat = @SSQLDat + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQLDat = @SSQLDat + 'AND S.Datum_Dok >= ''' +Cast(@Datum_OD as varchar(35)) +''' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQLDat = @SSQLDat + 'AND S.Datum_Dok <= ''' +Cast(@Datum_Do as varchar(35)) +''' '
            End
           End
    If @Podelba = 'B'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Drg, B.Sifra_Drg1, '
    Else If @Podelba = 'G'
        Set @SSQLGroup = @SSQLGroup + 'Group By P.Sifra_Gr, TS.Sifra_Sur, '
    Else If @Podelba = 'P'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Podg, TS.Sifra_Sur, '
    Else If @Podelba = '1'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo1, TS.Sifra_Sur, '
    Else If @Podelba = '2'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo2, TS.Sifra_Sur, '
    Else If @Podelba = '3'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo3, TS.Sifra_Sur, '
    Else If @Podelba = '4'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo4, TS.Sifra_Sur, '
    Else If @Podelba = '5'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo5, TS.Sifra_Sur, '
    Set @SSQLGroup = @SSQLGroup + ' Month(S.Datum_Dok), Year(S.Datum_Dok) '
    Insert Into #Rezult Exec(@SSQL+@SSQL1+@SSQLUsl+@SSQLDat+@SSQLGroup)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Tab        -- Za Presmetuvanje na procentite
    (
     Sifra        Varchar(10),
     Vkupno    decimal(18,6),
     ProcPoBr    decimal(9,3)
    )
    Update #Rezult Set Sifra = 756 Where Sifra Is Null        -- Po Pretpostavka deka nema podelba so sifra 756
    Insert Into #Tab Select Sifra, Sum(Vrednost), 0 From #Rezult Group By Sifra
    Declare @Total as decimal(18,6)
    Select @Total = Sum(Vkupno) From #Tab
    Update #Tab Set ProcPoBr = Vkupno/@Total*100
    Update #Rezult
    Set #Rezult.ProcPoArt=#Rezult.Vrednost/#Tab.Vkupno*100--, #Rezult.ProcPoBr=#Tab.ProcPoBr
    From #Tab
    Where #Rezult.Sifra=#Tab.Sifra And #Tab.Vkupno <> 0
--Select * from #Tab2
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------- Prethodna Godina --------------------------------------------------------------------------------------------------------
    Declare @Godina as smallint
    Declare @DatOd as smalldatetime
    Declare @DatDo as smalldatetime
    Set @Godina =Year(@Datum_Od)-1
    Set @DatOd = Cast(Cast(@Godina as Varchar(4)) + '-01-01' as smalldatetime)
    Set @DatDo = Cast(Cast(@Godina as Varchar(4)) + '-12-31' as smalldatetime)
    Set @SSQLDat = ' '
    Set @SSQLGroup = ' '
    If @Podelba = 'B'
        Set @SSQL = 'Select B.Sifra_Drg1, '
    Else If @Podelba = 'G'
        Set @SSQL = 'Select P.Sifra_Gr, '
    Else If @Podelba = 'P'
        Set @SSQL = 'Select K.Sifra_Podg, '
    Else If @Podelba = '1'
        Set @SSQL = 'Select K.Drugo1, '
    Else If @Podelba = '2'
        Set @SSQL = 'Select K.Drugo2, '
    Else If @Podelba = '3'
        Set @SSQL = 'Select K.Drugo3, '
    Else If @Podelba = '4'
        Set @SSQL = 'Select K.Drugo4, '
    Else If @Podelba = '5'
        Set @SSQL = 'Select K.Drugo5, '
--    Set @SSQL = @SSQL + 'TS.Sifra_Sur as Sifra_Art, 0 As Mesec, Year(S.Datum_Dok) As Godina, '
    If @Podelba = 'B'
        Set @SSQL = @SSQL + ' K.Sifra_Drg,
                0 As Mesec,  Year(S.Datum_Dok) As Godina, '
    Else
        Set @SSQL = @SSQL + ' TS.Sifra_Sur as Sifra_Art,
                0 As Mesec,  Year(S.Datum_Dok) As Godina, '
    If @Podelba = 'B'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Drg, B.Sifra_Drg1, '
    Else If @Podelba = 'G'
        Set @SSQLGroup = @SSQLGroup + 'Group By P.Sifra_Gr, TS.Sifra_Sur, '
    Else If @Podelba = 'P'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Podg, TS.Sifra_Sur, '
    Else If @Podelba = '1'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo1, TS.Sifra_Sur, '
    Else If @Podelba = '2'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo2, TS.Sifra_Sur, '
    Else If @Podelba = '3'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo3, TS.Sifra_Sur, '
    Else If @Podelba = '4'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo4, TS.Sifra_Sur, '
    Else If @Podelba = '5'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo5, TS.Sifra_Sur, '
    Set @SSQLGroup = @SSQLGroup + ' Year(S.Datum_Dok) '
    If @PoKojDatum = 'V'
          Begin
        If @DatOd Is Not NULL
            Set @SSQLDat = @SSQLDat + ' And D.Datum_Vnes>=''' + Cast(@DatOd As Varchar(25)) + ''' '
        If @DatDo Is Not NULL
            Set @SSQLDat = @SSQLDat + ' And D.Datum_Vnes<''' + Cast(@DatDo As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @DatOd Is NOT Null
            Begin
                SET @SSQLDat = @SSQLDat + 'AND S.Datum_Dok >= ''' +Cast(@DatOd as varchar(35)) +''' '
            End
        If @DatDo Is NOT Null
            Begin
                SET @SSQLDat = @SSQLDat + 'AND S.Datum_Dok <= ''' +Cast(@DatDo as varchar(35)) +''' '
            End
           End
print @SSQL+@SSQL1+@SSQLUsl+@SSQLDat+@SSQLGroup
    Insert Into #Rezult Exec(@SSQL+@SSQL1+@SSQLUsl+@SSQLDat+@SSQLGroup)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------- Go zapisuvame procentot na nivo na podelbata vo sekoj red zaradi cross tabot--------------------------------------------------------------------
    Update #Rezult Set Sifra = 756 Where Sifra Is Null
    Update #Rezult
    Set #Rezult.ProcPoBr=#Tab.ProcPoBr
    From #Tab
    Where #Rezult.Sifra=#Tab.Sifra-- And #Tab.Vkupno > 0
    Update #Rezult Set Sifra = Null Where Sifra = 756
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = ' Select R.Sifra, '
    If @Podelba = 'B'
        Set @SSQL = @SSQL + ' BB.Ime_Drg1 Ime, '
    Else If @Podelba = 'G'
        Set @SSQL = @SSQL + ' G.Ime_Gr Ime, '
    Else If @Podelba = 'P'
        Set @SSQL = @SSQL + ' P.Ime_Podg Ime, '
    Else If @Podelba = '1'
        Set @SSQL = @SSQL + ' D1.Ime_1 Ime, '
    Else If @Podelba = '2'
        Set @SSQL = @SSQL + ' D2.Ime_2 Ime, '
    Else If @Podelba = '3'
        Set @SSQL = @SSQL + ' D3.Ime_3 Ime, '
    Else If @Podelba = '4'
        Set @SSQL = @SSQL + ' D4.Ime_4 Ime, '
    Else If @Podelba = '5'
        Set @SSQL = @SSQL + ' D5.Ime_5 Ime, '
    Set @SSQL = @SSQL + ' R.Sifra_Art, '
    If @Podelba = 'B'
        Set @SSQL = @SSQL + ' B.Ime as ImeArt, '
    Else
        Set @SSQL = @SSQL + ' K.ImeArt, '
    Set @SSQL = @SSQL + ' R.Mesec, R.Godina, R.Vrednost, R.ProcPoBr, R.ProcPoArt
                From #Rezult R '
    If  @Podelba <> 'B'
        Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_Art = R.Sifra_Art '
    If @Podelba = 'B'
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg = R.Sifra_Art
                      Left Outer Join DrgPodel1 BB On BB.Sifra_Drg1 = B.Sifra_Drg1 '
    Else If @Podelba = 'G'
        Set @SSQL = @SSQL + ' Left Outer Join Grupi G On G.Sifra_Gr = R.Sifra '
    Else If @Podelba = 'P'
        Set @SSQL = @SSQL + ' Left Outer Join Podgrupi P On P.Sifra_Podg = R.Sifra '
    Else If @Podelba = '1'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo1 D1 On D1.Sifra_1 = R.Sifra '
    Else If @Podelba = '2'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo2 D2 On D2.Sifra_2 = R.Sifra '
    Else If @Podelba = '3'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo3 D3 On D3.Sifra_3 = R.Sifra '
    Else If @Podelba = '4'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo4 D4 On D4.Sifra_4 = R.Sifra '
    Else If @Podelba = '5'
        Set @SSQL = @SSQL + ' Left Outer Join Drugo5 D5 On D5.Sifra_5 = R.Sifra '
    Set @SSQL = @SSQL + ' Order By R.Sifra, R.Sifra_Art, R.ProcPoBr '
print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_prom]'))
drop procedure [dbo].[sp_brand_prom]

Go

CREATE    PROCEDURE sp_Brand_Prom
    @Sifra_OE Smallint,
    @KoiOE Varchar(300) = Null,
    @Brand_Od Smallint = Null,
    @Brand_Do Smallint = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Kolku Smallint = Null,
    @Podred Char(1) = Null,
    @Lokacija Varchar(10) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Kto Char(6) = Null,
    @TipKup Varchar(11) = Null,
    @Komint_KObj Char(1) = Null,
    @PoZbirenBrand Char(1) = Null,
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi varchar(200) = Null,
    @Koi_Regioni varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL As Varchar(8000)
    create  Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Create Table #BPromet
    (    Sifra_Brand Smallint,
        Mesec Smallint,
        Godina Smallint,
        Tip Varchar(20),
        UL_Edinici Decimal(18,6),
        Vk_Osnov Decimal(18,6),
        Vk_SoRabat Decimal(18,6),
        Vk_Krajna Decimal(18,6),
        Vk_NPS Decimal(18,6)
    )
---------------------------------------------
-- Gi Presmetuvam Velicinite za Import
---------------------------------------------
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec,
        Year(S.Datum_Dok) Godina,
        ''Import'',
        Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_Krajna,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) Vk_NPS
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
        Inner Join Dokr D ON S.DokrID=D.DokrID '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null)
         Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null) Or (@Koi_Gradovi Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' And D.Sifra_Dok=15 '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=' + Cast(@Brand_Od As Varchar(6)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=' + Cast(@Brand_Do As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(D.Datum_Vnes)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(D.Datum_Vnes)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(D.Datum_Vnes)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(D.Datum_Vnes)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
            End
              End
        Else
              Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
            End
               End
/*    If @Datum_Od Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
        End
    If @Datum_Do Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
        End
*/
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
-------------------------------------------------------------  19.07.2004  --------------------------------------------------------------------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/*
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
*/    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Insert #BPromet Exec(@SSQL)
---------------------------------------------
-- Gi Presmetuvam Velicinite za Sales Out
---------------------------------------------
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec,
        Year(S.Datum_Dok) Godina,
        ''Sales Out'',
        Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_Krajna,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) Vk_NPS
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1 '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null)
             Or (@Sifra_Tip Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=' + Cast(@Brand_Od As Varchar(6)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=' + Cast(@Brand_Do As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(D.Datum_Vnes)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(D.Datum_Vnes)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(D.Datum_Vnes)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(D.Datum_Vnes)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
            End
              End
         Else
          Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
                SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
            End
          End
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
-------------------------------------------------------------  19.07.2004  --------------------------------------------------------------------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/*
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
*/    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Insert #BPromet Exec(@SSQL)
---------------------------------------------
-- Gi Presmetuvam Velicinite za Stock
---------------------------------------------
    Create Table #VlIzl
    (    Sifra_Brand Smallint,
        Mesec Smallint,
        Godina Smallint,
        Vlez Decimal(18,6),
        Izlez Decimal(18,6),
        Vr_Vlez Decimal(18,6),
        Vr_Izlez Decimal(18,6)
    )
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec, Year(S.Datum_Dok) Godina,
        Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)
                Else 0.0
            End),
        Izlez = Sum(Case S.VlIzl
                When ''I'' Then S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)
                Else 0.0
             End),
        Vr_Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic*TS.Ima_Kolic*K.GotCena
                Else 0.0
            End),
        Vr_Izlez = Sum(Case S.VlIzl
                When ''I'' Then S.Kolic*TS.Ima_Kolic*K.GotCena
                Else 0.0
             End)
        FROM Sostav TS
        INNER JOIN Stavr S ON TS.Sifra_Art=S.Sifra_Art
        INNER JOIN Katart K ON TS.Sifra_Sur=K.Sifra_Art '
    If @PoKojDatum =' V'
        Set @SSQL = @SSQL + ' Inner Join Dokr D ON S.DokrID=D.DokrID '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
            Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'WHERE K.Iskluci <> ''D'' '
    If @Brand_Od Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=''' + Cast(@Brand_Od As Varchar(5)) + ''' '
    If @Brand_Do Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=''' + Cast(@Brand_Do As Varchar(5)) + ''' '
    If @PoKojDatum =' V'
          Begin
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + 'And Month(D.Datum_Vnes)<=Month(''' + Cast(@Datum_Do As Varchar(30)) + ''') And Year(D.Datum_Vnes)<=Year(''' + Cast(@Datum_Do As Varchar(30)) + ''') '
          End
    Else
          Begin
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + 'And Month(S.Datum_Dok)<=Month(''' + Cast(@Datum_Do As Varchar(30)) + ''') And Year(S.Datum_Dok)<=Year(''' + Cast(@Datum_Do As Varchar(30)) + ''') '
          End
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, S.VlIzl, Month(S.Datum_Dok), Year(S.Datum_Dok) '
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, S.VlIzl, Month(S.Datum_Dok), Year(S.Datum_Dok) '
    Insert #VlIzl Exec(@SSQL)
print @SSQL
    Set @SSQL = 'Select Sifra_Brand, Mesec, Godina, ''Stock'',
        Sum(Vlez)-Sum(Izlez) UL_Edinici, 0.0, 0.0, 0.0, Sum(Vr_Vlez)-Sum(Vr_Izlez) Vk_NPS
        From #VlIzl
        Group By Sifra_Brand, Mesec, Godina '
    Insert #BPromet Exec(@SSQL)
---------------------------------------------
-- Tabela so Rezultati
---------------------------------------------
    If @PoZbirenBrand Is Null
--        If @Kolku Is Not Null
--            Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(5)) + ' tt.Sifra_Brand, B.Ime ImeBrand, '
--        Else
            Set @SSQL = 'Select tt.Sifra_Brand, B.Ime ImeBrand, '
    Else
        If @Kolku Is Not Null
            Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(5)) + ' tt.Sifra_Brand, BB.Ime_Drg1 ImeBrand, '
        Else
            Set @SSQL = 'Select tt.Sifra_Brand, BB.Ime_Drg1 ImeBrand, '     Set @SSQL = @SSQL + 'tt.Mesec, tt.Godina, tt.Tip,
            Round(tt.UL_Edinici, 4) UL_Edinici, Round(tt.Vk_Osnov, 4) Vk_Osnov,
            Round(tt.Vk_SoRabat, 4) Vk_SoRabat,
            Round(tt.Vk_Krajna, 4) Vk_Krajna,
            Round(tt.Vk_NPS, 4) Vk_NPS
    From #BPromet tt '
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On tt.Sifra_Brand=B.Sifra_Drg  '
    Else
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On tt.Sifra_Brand=BB.Sifra_Drg1 '
    Set @SSQL = @SSQL + 'Order By tt.Sifra_Brand, tt.Tip, tt.Mesec, tt.Godina '
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_prom_proba]'))
drop procedure [dbo].[sp_brand_prom_proba]

Go

CREATE    PROCEDURE sp_Brand_Prom_Proba
    @Sifra_OE Smallint,
    @KoiOE Varchar(200),
    @Brand_Od Smallint,
    @Brand_Do Smallint,
    @Sifra_Kup_Od Char(6),
    @Sifra_Kup_Do Char(6),
    @Pod1 Smallint,
    @Pod2 Smallint,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Kolku Smallint,
    @Podred Char(1),
    @Lokacija Varchar(10),
    @Sifra_Gr varChar(6),
    @Sifra_Podg Char(6),
    @Kto Char(6),
    @TipKup Varchar(11),
    @Komint_KObj Char(1),
    @PoZbirenBrand Char(1),
    @RazbijSostav Char(1),
    @Koi_Gradovi Varchar(200),
    @Koi_Regioni Varchar(200) = Null
AS
    Declare @SSQL As Varchar(8000)
    create          Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Create Table #BPromet
    (    Sifra_Brand Smallint,
        Mesec Smallint,
        Godina Smallint,
        Tip Varchar(20),
        UL_Edinici Decimal(18,6),
        Vk_Osnov Decimal(18,6),
        Vk_SoRabat Decimal(18,6),
        Vk_Krajna Decimal(18,6),
        Vk_NPS Decimal(18,6)
    )
---------------------------------------------
-- Gi Presmetuvam Velicinite za Import
---------------------------------------------
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec,
        Year(S.Datum_Dok) Godina,
        ''Import'',
        Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_Krajna,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) Vk_NPS
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
        Inner Join Dokr D ON S.DokrID=D.DokrID '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' And D.Sifra_Dok=15 '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=' + Cast(@Brand_Od As Varchar(6)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=' + Cast(@Brand_Do As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Datum_Od Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
        End
    If @Datum_Do Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
        End
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                                  OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
                                  OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Insert #BPromet Exec(@SSQL)
--select * from #BPromet
---------------------------------------------
-- Gi Presmetuvam Velicinite za Sales Out
---------------------------------------------
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec,
        Year(S.Datum_Dok) Godina,
        ''Sales Out'',
        Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) as Vr_Krajna,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) Vk_NPS
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1 '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
         Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_Obj=KO.Sifra_Obj and D.Sifra_Kup=KO.Sifra_Kup '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=' + Cast(@Brand_Od As Varchar(6)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=' + Cast(@Brand_Do As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Datum_Od Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)>=' + Cast(Year(@Datum_Od) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)>=' + Cast(Month(@Datum_Od) As Varchar(3)) + ' '
        End
    If @Datum_Do Is NOT Null
        Begin
            SET @SSQL = @SSQL + 'AND Year(S.Datum_Dok)<=' + Cast(Year(@Datum_Do) As Varchar(6))+ ' '
            SET @SSQL = @SSQL + 'AND Month(S.Datum_Dok)<=' + Cast(Month(@Datum_Do) As Varchar(3)) + ' '
        End
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                           OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
                                  OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, Month(S.Datum_Dok), Year(S.Datum_Dok)'
    Insert #BPromet Exec(@SSQL)
--select * from #BPromet
---------------------------------------------
-- Gi Presmetuvam Velicinite za Stock
---------------------------------------------
    Create Table #VlIzl
    (    Sifra_Brand Smallint,
        Mesec Smallint,
        Godina Smallint,
        Vlez Decimal(18,6),
        Izlez Decimal(18,6),
        Vr_Vlez Decimal(18,6),
        Vr_Izlez Decimal(18,6)
    )
    If @PoZbirenBrand Is Null
        Set @SSQL = 'Select K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = 'Select B.Sifra_Drg1 Sifra_Brand, '
    Set @SSQL = @SSQL + 'Month(S.Datum_Dok) Mesec, Year(S.Datum_Dok) Godina,
        Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)
                Else 0.0
            End),
        Izlez = Sum(Case S.VlIzl
                When ''I'' Then S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)
                Else 0.0
             End),
        Vr_Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic*TS.Ima_Kolic*K.GotCena
                Else 0.0
            End),
        Vr_Izlez = Sum(Case S.VlIzl
                When ''I'' Then S.Kolic*TS.Ima_Kolic*K.GotCena
                Else 0.0
             End)
        FROM Sostav TS
        INNER JOIN Stavr S ON TS.Sifra_Art=S.Sifra_Art
        INNER JOIN Katart K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
            Inner Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_Obj=KO.Sifra_Obj and D.Sifra_Kup=KO.Sifra_Kup '
    Set @SSQL = @SSQL + 'WHERE K.Iskluci <> ''D'' '
    If @Brand_Od Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg>=''' + Cast(@Brand_Od As Varchar(5)) + ''' '
    If @Brand_Do Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg<=''' + Cast(@Brand_Do As Varchar(5)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Month(S.Datum_Dok)<=Month(''' + Cast(@Datum_Do As Varchar(30)) + ''') And Year(S.Datum_Dok)<=Year(''' + Cast(@Datum_Do As Varchar(30)) + ''') '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                           OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
                           OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, S.VlIzl, Month(S.Datum_Dok), Year(S.Datum_Dok) '
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, S.VlIzl, Month(S.Datum_Dok), Year(S.Datum_Dok) '
    Insert #VlIzl Exec(@SSQL)
    Set @SSQL = 'Select Sifra_Brand, Mesec, Godina, ''Stock'',
        Sum(Vlez)-Sum(Izlez) UL_Edinici, 0.0, 0.0, 0.0, Sum(Vr_Vlez)-Sum(Vr_Izlez) Vk_NPS
        From #VlIzl
        Group By Sifra_Brand, Mesec, Godina '
    Insert #BPromet Exec(@SSQL)
---------------------------------------------
-- Tabela so Rezultati
---------------------------------------------
    If @PoZbirenBrand Is Null
--        If @Kolku Is Not Null
--            Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(5)) + ' tt.Sifra_Brand, B.Ime ImeBrand, '
--        Else
            Set @SSQL = 'Select tt.Sifra_Brand, B.Ime ImeBrand, '
    Else
        If @Kolku Is Not Null
            Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(5)) + ' tt.Sifra_Brand, BB.Ime_Drg1 ImeBrand, '
        Else
            Set @SSQL = 'Select tt.Sifra_Brand, BB.Ime_Drg1 ImeBrand, '     Set @SSQL = @SSQL + 'tt.Mesec, tt.Godina, tt.Tip,
            Round(tt.UL_Edinici, 4) UL_Edinici, Round(tt.Vk_Osnov, 4) Vk_Osnov,
            Round(tt.Vk_SoRabat, 4) Vk_SoRabat,
            Round(tt.Vk_Krajna, 4) Vk_Krajna,
            Round(tt.Vk_NPS, 4) Vk_NPS
    From #BPromet tt '
    If @PoZbirenBrand Is Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On tt.Sifra_Brand=B.Sifra_Drg  '
    Else
        Set @SSQL = @SSQL + 'Inner Join DrgPodel1 BB On tt.Sifra_Brand=BB.Sifra_Drg1 '
    Set @SSQL = @SSQL + 'Order By tt.Sifra_Brand, tt.Tip, tt.Mesec, tt.Godina '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_route]'))
drop procedure [dbo].[sp_brand_route]

Go
CREATE           PROCEDURE sp_Brand_Route
    @Sifra_OE Smallint,
    @KoiOE Varchar(200),
    @Sifra_Brand Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Kto Varchar(6),
    @Vk_NPS Decimal(18,6) OUTPUT,
    @Vk_Osnov Decimal(18,6) OUTPUT,
    @Vk_Krajna Decimal(18,6) OUTPUT,
    @Vk_SoRabat Decimal(18,6) OUTPUT,
    @RazbijSostav Char(1) = 'D',
    @Sifra_art_Od Varchar(20)=Null,
    @Sifra_art_Do Varchar(20)=Null
AS
    Declare @SSQL As Varchar(8000)
    Create Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Sur=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci<>''D'' '
            If @Kto Is Not Null
                Set @SSQL = @SSQL + 'And K.Kto=' + @Kto + ' '
            If @Sifra_Brand Is Not Null
                Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(8)) + ' '
            If @Sifra_art_Od Is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_art >= ''' + @Sifra_Art_Od + ''' '
            If @Sifra_art_Do Is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_art <= ''' + @Sifra_Art_Do + ''' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K
    Where K.Iskluci <> ''D'' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + 'And K.Kto=' + @Kto + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(8)) + ' '
    If @Sifra_art_Od Is Not Null
        Set @SSQL=@SSQL + ' And K.Sifra_art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL=@SSQL + ' And K.Sifra_art <= ''' + @Sifra_Art_Do + ''' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
-- select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
-- koi pripagjaat na toj brand
--------------------------------------------------------------
    Create Table #Red0
    (    Vk_NPS Decimal(18,6),
        Vk_Osnov Decimal(18,6),
        Vk_SoRabat Decimal(18,6),
        Vk_Krajna Decimal(18,6)
    )
    Set @SSQL = 'Select
        Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vk_NPS,
        Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vk_Osnov,
        Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vk_SoRabat,
        Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vk_Krajna
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID
    Where D.Sifra_Za=1 '
    If @Sifra_OE Is Not Null And @KoiOE Is Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Else If @Sifra_OE Is Null And @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    Insert #Red0 Exec(@SSQL)
    Select @Vk_NPS=Vk_NPS, @Vk_Osnov=Vk_Osnov, @Vk_SoRabat=Vk_SoRabat, @Vk_Krajna=Vk_Krajna From #Red0
    Create Table #Route
    (    Sifra_Brand Smallint,
        Red TinyInt,
        Sifra_Tip Smallint,
        Tip_Act Smallint,
        Tip_NPS Decimal(18,6),
        Tip_Osnov Decimal(18,6),
        Tip_SoRabat Decimal(18,6),
        Tip_Krajna Decimal(18,6)
    )
    Set @SSQL = 'Select '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = @SSQL + '8999 Sifra_Brand, '
    Set @SSQL = @SSQL + '1 red,
        KUP.KDrugo1 Sifra_Tip,
        Count(Distinct(D.Sifra_Kup)) Tip_Act,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) As Tip_NPS,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) As Tip_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) As Tip_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) As  Tip_Krajna
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID
        Inner Join Komint KUP On D.Sifra_Kup=KUP.Sifra_Kup
    Where D.Sifra_Za=1 '
    If @Sifra_OE Is Not Null And @KoiOE Is Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Else If @Sifra_OE Is Null And @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, KUP.KDrugo1 '
    Else
        Set @SSQL = @SSQL + 'Group By KUP.KDrugo1 '
    Insert #Route Exec(@SSQL)
    Set @SSQL = 'Select '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'K.Sifra_Drg Sifra_Brand, '
    Else
        Set @SSQL = @SSQL + '8999 Sifra_Brand, '
    Set @SSQL = @SSQL + '2 Red,
        Sifra_Tip = Case KUP.KDrugo2
                When 13 Then  13
                When  6 Then   6
                When 11 Then  11
                When  4 Then   4
                When 10 Then  10
                When Null Then 1
                Else 1
            End,
        Count(Distinct(D.Sifra_Kup)) Tip_Act,
        Sum(S.Kolic*TS.Ima_Kolic*K.GotCena) As Tip_NPS,
        Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)) As Tip_Osnov,
        Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) As Tip_SoRabat,
        Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)) As  Tip_Krajna
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID
        Inner Join Komint KUP On D.Sifra_Kup=KUP.Sifra_Kup
    Where D.Sifra_Za=1 And KUP.KDrugo1=3 '
    If @Sifra_OE Is Not Null And @KoiOE Is Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Else If @Sifra_OE Is Null And @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, KUP.KDrugo2 '
    Else
        Set @SSQL = @SSQL + 'Group By KUP.KDrugo2 '
    Insert #Route Exec(@SSQL)
--select * from #route --where red=1 and sifra_tip=1
    If @Sifra_Brand Is Not Null
        Select R.Sifra_Brand, DP.Ime ImeBrand, R.Red,
            R.Sifra_Tip, KD.Ime_1K ImeTip, KD.VoZemjata TipUniv,
            R.Tip_Act, R.Tip_NPS, R.Tip_Osnov, R.Tip_SoRabat, R.Tip_Krajna
        From #Route R
        Inner Join DrgPodel DP On R.Sifra_Brand=DP.Sifra_Drg
        Inner Join KDrugo1 KD On R.Sifra_Tip=KD.Sifra_1K
        Where R.Red=1
        Union
        Select R.Sifra_Brand, DP.Ime ImeBrand, R.Red,
            R.Sifra_Tip, KD.Ime_2K ImeTip, KD.VoZemjata TipUniv,
            Sum(R.Tip_Act) Tip_Act, Sum(R.Tip_NPS) Tip_NPS,
            Sum(R.Tip_Osnov) Tip_Osnov, Sum(R.Tip_SoRabat) Tip_SoRabat,
            Sum(R.Tip_Krajna) Tip_Krajna
        From #Route R
        Inner Join DrgPodel DP On R.Sifra_Brand=DP.Sifra_Drg
        Inner Join KDrugo2 KD On R.Sifra_Tip=KD.Sifra_2K
        Where R.Red=2
        Group By R.Sifra_Brand, DP.Ime, R.Red, R.Sifra_Tip, KD.Ime_2K, KD.VoZemjata
        Order by R.Sifra_Brand, R.Red, R.Sifra_Tip
    Else    --@Sifra_Brand Is Null
        Select 8999 Sifra_Brand, '' ImeBrand, R.Red,
            R.Sifra_Tip, KD.Ime_1K ImeTip, KD.VoZemjata TipUniv,
            Sum(R.Tip_Act) Tip_Act,
            Sum(R.Tip_NPS) Tip_NPS, Sum(R.Tip_Osnov) Tip_Osnov,
            Sum(R.Tip_Sorabat) Tip_SoRabat, Sum(R.Tip_Krajna) Tip_Krajna
        From #Route R
        Inner Join DrgPodel DP On R.Sifra_Brand=DP.Sifra_Drg
        Inner Join KDrugo1 KD On R.Sifra_Tip=KD.Sifra_1K
        Where R.Red=1
        Group By R.Red, R.Sifra_Tip, KD.Ime_1K, KD.VoZemjata
        Union
        Select 8999 Sifra_Brand, '' ImeBrand, R.Red,
            R.Sifra_Tip, KD.Ime_2K ImeTip, KD.VoZemjata TipUniv,
            Sum(R.Tip_Act) Tip_Act,
            Sum(R.Tip_NPS) Tip_NPS, Sum(R.Tip_Osnov) Tip_Osnov,
            Sum(R.Tip_Sorabat) Tip_SoRabat, Sum(R.Tip_Krajna) Tip_Krajna
        From #Route R
        Inner Join DrgPodel DP On R.Sifra_Brand=DP.Sifra_Drg
        Inner Join KDrugo2 KD On R.Sifra_Tip=KD.Sifra_2K
        Where R.Red=2
        Group By R.Red, R.Sifra_Tip, KD.Ime_2K, KD.VoZemjata
        Order by R.Sifra_Brand, R.Red, R.Sifra_Tip




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_toplista]'))
drop procedure [dbo].[sp_brand_toplista]

Go
CREATE    PROCEDURE sp_Brand_TopLista
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(200) = Null,
    @Komint_KObj Char(1) = Null,
    @Sifra_Brand Smallint = Null,
    @PoZbirenBrand Char(1) = Null,
    @RazbijSostav Char(1) = Null,
    @Koi_Gradovi Varchar(200) = Null,
    @Koi_Brandovi Varchar(200) = NULL,
    @Koi_Regioni Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @TipDokProd    varchar(200) = Null,
    @Sifra_Pat    varchar(300) = Null,
    @KomercKako    char(1) = 'T',        -- I Istoriski,     T-Tekoven
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    create               Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
-- promeneto 05.05.2008 GK zaradi brzinata na izvesstajot
--    Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) As UL,
--    Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov,
--    Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat,
--    Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna,
    If @Kolku Is Not NULL
        Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(6)) + ' '
    Else
        Set @SSQL = 'Select '
    If @PoZbirenBrand Is Not Null
        Set @SSQL =    @SSQL + 'B.Sifra_Drg1 Sifra_Drg, BB.Ime_Drg1 Ime, '
    Else
        Set @SSQL =    @SSQL + 'B.Sifra_Drg, B.Ime, '
    Set @SSQL = @SSQL + ' Round(Sum(S.Kolic*TS.Ima_Kolic * (Case When K.KolkuDrg Is Null Or K.KolkuDrg = 0.0 Then 1 Else K.KolkuDrg End)), 4) As UL,
                Count(K.Sifra_Drg) As Izlezi,
                Count(Distinct S.DokrID) As Fakturi,
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena / (Case When S.DanDokCena = ''D'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_Osnov,
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena * (1-S.Uces/100) * (1-D.Kasa/100) / (Case When S.DanDokCena = ''D'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_SoRabat,
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena * (1-S.Uces/100) * (1-D.Kasa/100) * (Case When S.DanDokCena = ''N'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_Krajna,
                Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS,
                Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV, '
    If @Komint_KObj = 'K'
        Set @SSQL =    @SSQL +
                'Komintenti = Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(5)),1,2)
                        When ''70'' Then 0
                        Else D.Sifra_Kup
                 End)) '
    Else If @Komint_KObj = 'O'
        Set @SSQL =    @SSQL +
                'Komintenti = Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(5)),1,2)
                        When ''70'' Then 0
                        Else D.Sifra_Obj
                 End)) '
    Set @SSQL = @SSQL + 'From #tSostav TS
                Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
                Inner Join KatArt K On TS.Sifra_Sur=K.Sifra_Art
                Left Outer Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg
                Inner Join Dokr D On S.DokrID=D.DokrID And D.Sifra_Za=1 '
    If @PoZbirenBrand Is Not Null
        Set @SSQL =    @SSQL + 'Left Outer Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null) Or (@Sifra_Pat Is Not Null) Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
        Or (@Sifra_Pat Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
--    Set @SSQL = @SSQL + 'Where 1=1 '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    IF @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    IF @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                            OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    IF @Koi_Brandovi IS NOT NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Drg IN (' + @Koi_Brandovi + ') '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
------------------------------------------------------------------------ 19.07.2004 ---------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
-------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_OE Is Not NULL
        Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @PoZbirenBrand Is Not Null
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg1, BB.Ime_Drg1 '
    Else
        Set @SSQL = @SSQL + 'Group By B.Sifra_Drg, B.Ime '
    If @Podred = 'S'
        If @PoZbirenBrand Is Not Null
            Set @SSQL = @SSQL + 'Order By B.Sifra_Drg1 '
        Else
            Set @SSQL = @SSQL + 'Order By B.Sifra_Drg '
    Else If @Podred = 'A'
        If @PoZbirenBrand Is Not Null
            Set @SSQL = @SSQL + 'Order By BB.Ime_Drg1 '
        Else
            Set @SSQL = @SSQL + 'Order By B.Ime '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By UL Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna Desc '
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_NPS Desc '
print @SSQL
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_toppomes]'))
drop procedure [dbo].[sp_brand_toppomes]

Go




CREATE  PROCEDURE [dbo].[sp_Brand_TopPoMes]
    @Sifra_OE Smallint,
    @KoiOE Varchar(500) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Brand_Od Smallint = Null,
    @Sifra_Brand_Do Smallint = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Char(11) = Null,
    @Komint_KObj Char(1) = Null,
    @PoZbirenBrand Char(1) = 'B',    --Ova stavi go Z-zb.brand,B-Brand,P-Podgrupi,G-Grupi,A-Artikli, M-Gradovi, K-Komintent, 4-Drugo4, H-Hierarhiski
    @RazbijSostav Char(1) = Null,
    @SoBKolic_Tez    char(1) = 'B',    --Ova stavi go B-Brand kolic, T-Tezina
    @Sifra_obj Smallint = Null,
    @Sifra_Grad Varchar(200) = Null,
    @Koi_Regioni Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @GrPat        varchar(6) = Null,
    @Sifra_Pat    smallint = Null,
    @KomercKako     char(1) = 'I',
    @PoDenNed    char(1) = 'N',        -- W - Po Nedeli,        D - Po Denovi
    @TipDokProd    varchar(300) = Null,
    @PoPat_GrPat    char(1) = 'N',
    @PrikArt    char(1) = 'N',
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null,
    @PrethBazaOd    char(1) = 'N',        -- K - Konfig (poleto PrethBaza)     ?T? - Nekoja tabela (Fir Paral ili Nekoja Nova za vo idnina)
    @ParalenliBazi     varchar(200) = null

AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    Declare @SSQLFrom Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLGroup Varchar(8000)
    Declare @SSQLOrder Varchar(8000)
    Set @SSQLFrom = ' '
    Set @SSQLUsl = ' '
    Set @SSQLGroup = ' '
    Set @SSQLOrder = ' '

    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
--    If @Kolku Is Not NULL   21.08.2008 gk
--        Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(6)) + ' '
--    Else

    If @GrKup Is Not Null
    Begin
    CREATE   Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

    If @GrArt Is Not Null
    Begin
        Create Table #GrArt
        (
            Sifra_Art    varchar(20)
        )
        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)

        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
        Exec(@SSQL)
    End

    Set @SSQL = 'Select '
    If @PoZbirenBrand = 'Z'
        Set @SSQL = @SSQL + 'B.Sifra_Drg1 As Sifra_Brand, BB.Ime_Drg1 As ImeBrand, '
    Else If @PoZbirenBrand = 'P'
        Set @SSQL = @SSQL + 'K.Sifra_Podg As Sifra_Brand, P.Ime_Podg As ImeBrand, '
    Else If @PoZbirenBrand = 'G'
        Set @SSQL = @SSQL + 'G.Sifra_Gr As Sifra_Brand, G.Ime_Gr  As ImeBrand, '
    Else  If @PoZbirenBrand = 'A'
        Set @SSQL = @SSQL + 'K.Sifra_Art As Sifra_Brand, K.ImeArt  As ImeBrand, '
    Else  If @PoZbirenBrand = 'M'
        Set @SSQL = @SSQL + '(Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) As Sifra_Brand, M.ImeGrad  As ImeBrand, '
    Else  If @PoZbirenBrand = 'K'
        Set @SSQL = @SSQL + 'D.Sifra_Kup As Sifra_Brand, Kup.ImeKup  As ImeBrand, '
    Else  If @PoZbirenBrand = '4'
        Set @SSQL = @SSQL + 'K.Drugo4 As Sifra_Brand, D4.Ime_4  As ImeBrand, '
    Else  If @PoZbirenBrand = 'H'
        Set @SSQL = @SSQL + 'K.Sifra_KHier As Sifra_Brand, H.Ime_KHier  As ImeBrand, '
    Else
        Set @SSQL = @SSQL + 'K.Sifra_Drg As Sifra_Brand, B.Ime As ImeBrand, '
    If @PrikArt = 'D'
        Set @SSQL = @SSQL + 'S.Sifra_Art,  '
    Else
        Set @SSQL = @SSQL + 'Null Sifra_Art,  '
    If @PoPat_GrPat = 'D'           --    (Case When KO.KDrugo3 Is Not Null Then KO.KDrugo3 Else Kup.KDrugo3 End) Sif_GrPat, K3.Ime_3K Ime_GrPat, ' -- SGP.Sif_GrPat, GP.Ime_GrPat, '
        Set @SSQL = @SSQL + ' D.Sifra_Pat,
                    (Case When D.Sifra_Obj Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End) Sif_GrPat, K4.Ime_4K Ime_GrPat, ' -- SGP.Sif_GrPat, GP.Ime_GrPat, '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Pat, Null Sif_GrPat, Null Ime_GrPat, '
    Set @SSQL = @SSQL + ' ((Case When Month(S.Datum_Dok) <10 then ''0'' Else '''' End) + Cast(Month(S.Datum_Dok) as varchar(2))) As Mesec, Year(S.Datum_Dok) As Godina, '
    If @PoDenNed = 'W'
        Set @SSQL = @SSQL + 'DatePart(wk, S.Datum_Dok) Nedela, Null as Den, '
    Else If @PoDenNed = 'D'
        Set @SSQL = @SSQL + 'Null Nedela, S.Datum_Dok as Den, '
    Else
        Set @SSQL = @SSQL + 'Null Nedela, Null as Den, '
    If @SoBKolic_Tez='T'
        Set @SSQL = @SSQL + 'Round(Sum(S.Kolic* K.Tezina/1000), 4) UL, '
    Else If @SoBKolic_Tez='K'
        Set @SSQL = @SSQL + 'Round(Sum(S.Kolic), 4) UL, '
    Else
        Set @SSQL = @SSQL + 'Round(Sum(S.Kolic*TS.Ima_Kolic * (Case When K.KolkuDrg Is Null Or K.KolkuDrg = 0.0 Then 1 Else K.KolkuDrg End)), 4) As UL, '
/*    Set @SSQL = @SSQL + 'Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) UL, '
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov,
                Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat,
                Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna,
                Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS, '*/
    Set @SSQL = @SSQL + '
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena / (Case When S.DanDokCena = ''D'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_Osnov,
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena * (1-S.Uces/100) * (1-D.Kasa/100) / (Case When S.DanDokCena = ''D'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_SoRabat,
                Round(Sum(S.Kolic*TS.Ima_Kolic * S.DokCena*TS.Cena/TS.VkCena * (1-S.Uces/100) * (1-D.Kasa/100) * (Case When S.DanDokCena = ''N'' Then (1+S.Posn/100) Else 1 End)), 4) as Vr_Krajna,
                Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS,
                Round(Sum(S.Kolic*K.Tezina/1000), 4) As KolicKG, '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + 'Count(Distinct D.Sifra_Kup) As Komintenti, '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + 'Count(Distinct(D.Sifra_Kup + ''&&&'' + Cast(D.Sifra_Obj as varchar(6)))) As Komintenti, '
    Set @SSQL = @SSQL + 'KUP.KDrugo2 Pod2, KD2.Ime_2K Ime_Pod2 '
    --Set @SSQL = @SSQL + 'null VkVrednost '
    ----------------- FROM ----------------------
    Set @SSQLFrom = @SSQLFrom + 'From #tSostav TS
                Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
                Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
                Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
                Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                Left Outer Join KDrugo2 KD2 On KUP.KDrugo2=KD2.Sifra_2K
                Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup AND KO.SIFRA_OBJ=D.SIFRA_OBJ '
--                Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup '
    If @GrKup Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
    If @GrArt Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
    If @Sifra_Gr Is Not Null  OR @PoZbirenBrand = 'P'  OR  @PoZbirenBrand = 'G'
        Set @SSQLFrom = @SSQLFrom + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @PoZbirenBrand = 'Z'
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg
                        Left Outer Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
    Else If @PoZbirenBrand = 'G'
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join Grupi G On P.Sifra_Gr=G.Sifra_Gr '
    Else If @PoZbirenBrand = 'M'
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join Grad M On M.Sifra_Grad=(Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) '
    Else If @PoZbirenBrand = '4'
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join Drugo4 D4 On D4.Sifra_4=K.Drugo4 '
    Else If @PoZbirenBrand = 'H'
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join KatHier H On H.Sifra_KHier=K.Sifra_KHier '
    Else if @PoZbirenBrand = 'P' or @PoZbirenBrand = 'A'
                    Set @SSQLFrom = @SSQLFrom      -- kolku da ima nekoja komanda
    Else
        Set @SSQLFrom = @SSQLFrom + 'Left Outer Join DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    If @PoPat_GrPat = 'D'                                --(Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End)
        Set @SSQLFrom = @SSQLFrom + ' Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat
                          Left Outer Join KDrugo4 K4 On K4.Sifra_4K = (Case When D.Sifra_Obj Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End) '  --(Case When KO.KDrugo4 Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End)
                     -- Left Outer Join SGrPat SGP On SGP.Sifra_Pat=Pat.Sifra_Pat
                      --Left Outer Join GrPat GP On GP.Sif_GrPat=SGP.Sif_GrPat '
    ----------------- USLOV -------------------
    Set @SSQLUsl = @SSQLUsl + 'Where K.Iskluci <> ''D'' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
       If @KomercKako = 'I'
    Begin
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
        If @GrPat Is Not Null
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
    End
       If @KomercKako = 'T'
    Begin
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
        If @GrPat Is Not Null
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
    End
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is NOT Null
            Begin
                SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok >= ''' +Cast(@Datum_OD as varchar(35)) +''' '
            End
        If @Datum_Do Is NOT Null
            Begin
                SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok <= ''' +Cast(@Datum_Do as varchar(35)) +''' '
            End
           End
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Sifra_Brand_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Drg>=''' + Cast(@Sifra_Brand_Od As Varchar(5)) + ''' '
    If @Sifra_Brand_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Drg<=''' + Cast(@Sifra_Brand_Do As Varchar(5)) + ''' '
    If @Sifra_obj Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And D.Sifra_obj=''' + Cast(@Sifra_obj As Varchar(5)) + ''' '
    If @Sifra_Grad Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Sifra_Grad + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Sifra_Grad + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokProd Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Drugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '

    ------------- GROUP BY -----------
    If @PoZbirenBrand = 'Z'
        Set @SSQLGroup = @SSQLGroup + 'Group By B.Sifra_Drg1, BB.Ime_Drg1, '
    Else If @PoZbirenBrand = 'P'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Podg, P.Ime_Podg, '
    Else If @PoZbirenBrand = 'G'
        Set @SSQLGroup = @SSQLGroup + 'Group By G.Sifra_Gr, G.Ime_Gr, '
    Else  If @PoZbirenBrand = 'A'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Art, K.ImeArt, '
    Else  If @PoZbirenBrand = 'M'
        Set @SSQLGroup = @SSQLGroup + 'Group By (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End), M.ImeGrad, '
    Else  If @PoZbirenBrand = 'K'
        Set @SSQLGroup = @SSQLGroup + 'Group By D.Sifra_Kup, Kup.ImeKup, '
    Else  If @PoZbirenBrand = '4'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Drugo4, D4.Ime_4, '
    Else  If @PoZbirenBrand = 'H'
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_KHier, H.Ime_KHier, '
    Else
        Set @SSQLGroup = @SSQLGroup + 'Group By K.Sifra_Drg, B.Ime, '
    Set @SSQLGroup = @SSQLGroup + ' ((Case When Month(S.Datum_Dok) <10 then ''0'' Else '''' End) + Cast(Month(S.Datum_Dok) as varchar(2))), Year(S.Datum_Dok), KUP.KDrugo2, KD2.Ime_2K '
    If @PrikArt = 'D'
        Set @SSQLGroup = @SSQLGroup + ' , S.Sifra_Art, K.ImeArt '
    If @PoPat_GrPat = 'D'
        Set @SSQLGroup = @SSQLGroup + ', D.Sifra_Pat, Pat.ImePat,
                    (Case When D.Sifra_Obj Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End), K4.Ime_4K ' --SGP.Sif_GrPat, GP.Ime_GrPat '
    If @PoDenNed = 'W'
        Set @SSQLGroup = @SSQLGroup + ', DatePart(wk, S.Datum_Dok) '
    Else If @PoDenNed = 'D'
        Set @SSQLGroup = @SSQLGroup + ', S.Datum_Dok '


    Create Table #TopLista
    (
        Sifra_Brand    varchar(20),
        ImeBrand    varchar(50),
        Sifra_Art    varchar(20),
        --K.ImeArt,  '
        Sifra_Pat    int,
        --Pat.ImePat,
        Sif_GrPat    varchar(20),
        Ime_GrPat    varchar(40),
        Mesec        varchar(2),
        Godina        varchar(4),
        Nedela        varchar(2),
        Den        datetime,
        UL        decimal(18,4),
        Vr_Osnov    decimal(18,4),
        Vr_SoRabat    decimal(18,4),
        Vr_Krajna    decimal(18,4),
        Vr_NPS        decimal(18,4),
        KolicKG        decimal(18,4),
        Komintenti    int,
        Pod2        int,
        Ime_Pod2    varchar(40)
    )
    Insert into #TopLista Exec(@SSQL+@SSQLFrom+@SSQLUSL+@SSQLGroup)

    ----------------------------------------------- P R E T H O D N I   B A Z I ----------------------------------------------------------
    If @PrethBazaOd = 'K' Or @ParalenliBazi Is Not Null
    Begin
        Declare @ImeBaza as varchar(30)
        Create Table #Bazi
        (
            ImeBaza    varchar(30)
        )
        If @PrethBazaOd = 'K'
        Begin
            Set @SSQLFrom = ' Insert Into #Bazi Select PrethBaza From Konfig '
            Exec (@SSQLFrom)
        End

        If @ParalenliBazi Is Not Null
        Begin
            Declare @Poz_Delim Smallint
            Declare @Poz_Start Smallint
            Declare @BazaIme varchar(50)
            If @ParalenliBazi Is Null
                Set @ParalenliBazi = ''
            Set @Poz_Start = 0
            While 1=1
            Begin
                Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
                If @Poz_Delim = 0
                    Break
                Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
                Set @Poz_Start = @Poz_Delim + 1
                Insert Into #Bazi Select @BazaIme
            End
        End

        If Exists (Select ImeBaza From #Bazi)
        Begin
            Declare CursorBazi Cursor Fast_Forward For Select ImeBaza From #Bazi
            Open CursorBazi
            Fetch Next From CursorBazi Into @ImeBaza
            While @@Fetch_Status = 0
            Begin
                Set @SSQLFrom = ' From #tSostav TS
                            Inner Join ' + @ImeBaza + '..Stavr S On TS.Sifra_Art=S.Sifra_Art
                            Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
                            Inner Join ' + @ImeBaza + '..Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
                            Left Outer Join ' + @ImeBaza + '..Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                            Left Outer Join ' + @ImeBaza + '..KDrugo2 KD2 On KUP.KDrugo2=KD2.Sifra_2K
                            Left Outer Join ' + @ImeBaza + '..KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup AND KO.SIFRA_OBJ=D.SIFRA_OBJ '
                If @GrKup Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                                    And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
                If @GrArt Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
                If @Sifra_Gr Is Not Null  OR @PoZbirenBrand = 'P'  OR  @PoZbirenBrand = 'G'
                    Set @SSQLFrom = @SSQLFrom + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
                If @PoZbirenBrand = 'Z'
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg
                                    Left Outer Join DrgPodel1 BB On B.Sifra_Drg1=BB.Sifra_Drg1 '
                Else If @PoZbirenBrand = 'G'
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join Grupi G On P.Sifra_Gr=G.Sifra_Gr '
                Else If @PoZbirenBrand = 'M'
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join ' + @ImeBaza + '..Grad M On M.Sifra_Grad=(Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) '
                Else If @PoZbirenBrand = '4'
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join Drugo4 D4 On D4.Sifra_4=K.Drugo4 '
                Else If @PoZbirenBrand = 'H'
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join KatHier H On H.Sifra_KHier=K.Sifra_KHier '
                Else if @PoZbirenBrand = 'P' or @PoZbirenBrand = 'A'
                                Set @SSQLFrom = @SSQLFrom      -- kolku da ima nekoja komanda
                Else
                    Set @SSQLFrom = @SSQLFrom + 'Left Outer Join DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
                If @PoPat_GrPat = 'D'
                    Set @SSQLFrom = @SSQLFrom + ' Left Outer Join ' + @ImeBaza + '..Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat
                                      Left Outer Join ' + @ImeBaza + '..KDrugo4 K4 On K4.Sifra_4K = (Case When D.Sifra_Obj Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End) '

                Insert Into #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLGroup)
                Fetch Next From CursorBazi Into @ImeBaza
            End
            Close CursorBazi
            Deallocate CursorBazi
        End

        Create Table #TopLista1
        (
            Sifra_Brand    varchar(20),
            ImeBrand    varchar(50),
            Sifra_Art    varchar(20),
            --K.ImeArt,  '
            Sifra_Pat    int,
            --Pat.ImePat,
            Sif_GrPat    varchar(20),
            Ime_GrPat    varchar(40),
            Mesec        varchar(2),
            Godina        varchar(4),
            Nedela        varchar(2),
            Den        datetime,
            UL        decimal(18,4),
            Vr_Osnov    decimal(18,4),
            Vr_SoRabat    decimal(18,4),
            Vr_Krajna    decimal(18,4),
            Vr_NPS        decimal(18,4),
            KolicKG        decimal(18,4),
            Komintenti    int,
            Pod2        int,
            Ime_Pod2    varchar(40)
        )
        Insert Into #TopLista1
        Select Sifra_Brand, ImeBrand, Sifra_Art, Sifra_Pat, Sif_GrPat, Ime_GrPat, Mesec, Godina, Nedela, Den, Sum(UL), Sum(Vr_Osnov), Sum(Vr_SoRabat), Sum(Vr_Krajna), Sum(Vr_NPS),
            Sum(KolicKG), Sum(Komintenti), Pod2, Ime_Pod2
        From #TopLista
        Group By Sifra_Brand, ImeBrand, Sifra_Art, Sifra_Pat, Sif_GrPat, Ime_GrPat, Mesec, Godina, Nedela, Den, Pod2, Ime_Pod2

        Delete From #TopLista
        Insert Into #TopLista Select * From #TopLista1
    End

    Set @SSQL = ' Select T.Sifra_Brand, T.ImeBrand, T.Sifra_Art, K.ImeArt, T.Sifra_Pat, Pat.ImePat, T.Sif_GrPat, T.Ime_GrPat, T.Mesec, T.Godina, T.Nedela, T.Den,
                Sum(T.UL) UL, Sum(T.Vr_Osnov) Vr_Osnov, Sum(T.Vr_SoRabat) Vr_SoRabat, Sum(T.Vr_Krajna) Vr_Krajna, Sum(T.Vr_NPS) Vr_NPS, Sum(T.KolicKG) KolicKG, Sum(T.Komintenti) Komintenti,
                T.Pod2, T.Ime_Pod2
            From #TopLista T
            Left Outer Join Katart K On K.Sifra_Art=T.Sifra_Art
            Left Outer Join Patnici Pat On Pat.Sifra_Pat = T.Sifra_Pat
        Group By  T.Sifra_Brand, T.ImeBrand, T.Sifra_Art, K.ImeArt, T.Sifra_Pat, Pat.ImePat, T.Sif_GrPat, T.Ime_GrPat, T.Mesec, T.Godina, T.Nedela, T.Den, T.Pod2, T.Ime_Pod2
        Order By Mesec, Godina'
    If @Podred = 'S'
        Set @SSQL = @SSQL + ', T.Sifra_Brand '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ', T.ImeBrand '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + ', UL Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + ', UL Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + ', Vr_Krajna Desc '
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_zaliha]'))
drop procedure [dbo].[sp_brand_zaliha]

Go

CREATE               PROCEDURE sp_Brand_Zaliha
   @Sifra_OE smallint,
   @Koi_OE Varchar(300),
   @Tip_Podr char(1) = Null,
   @Brand_Od char(6) = Null,
   @Brand_Do char(6) = Null,
   @Kto char(6) = Null,
   @Sifra_Gr varchar(6) = Null,
   @Sifra_Podg char(6) = Null,
   @Lokacija varchar(10) = Null,
   @KF_Lokacija char(1) = 'N',
   @Sifra_art_Od varchar(20) = Null,
   @Sifra_art_Do varchar(20) = Null,
   @Iskluci char(1) = 'N',
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    Set Nocount Off
    Declare @SSQL varchar(2000)
   Set @SSQL='SELECT
        Sum(S.Vlez-S.Izlez) As Kolicina,
        Sum((S.Vlez-S.Izlez)*dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  ((S.Vlez-S.Izlez), S.Cena, S.DanCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat((S.Vlez-S.Izlez), S.Cena, S.DanCena, S.POsn, 0.0, 0)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna ((S.Vlez-S.Izlez), S.Cena, S.DanCena, S.POsn, 0.0, 0)) as Vr_Krajna,
        Sum((S.Vlez-S.Izlez)*K.GotCena) Vk_NPS,
        K.Sifra_Drg, B.Ime
        FROM Soart S '
   Set @SSQL=@SSQL+'Inner JOIN Katart K ON S.Sifra_Art=K.Sifra_Art  And K.SMatUsl=''M'' '
   Set @SSQL=@SSQL+'Left Outer JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+'Left Outer JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
   Set @SSQL=@SSQL+'WHERE 1=1 '
    If @Iskluci = 'D'
          Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE='+Cast(@Sifra_OE As Char(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And Sifra_OE In (' + @Koi_OE + ') '
   If @Brand_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND K.Sifra_Drg>=' + @Brand_Od + ' '
   If @Brand_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND K.Sifra_Drg<=' + @Brand_Do + ' '
   If @Kto Is Not Null
        Set @SSQL=@SSQL+'AND (K.Kto='''+@Kto+''') '
   If @Sifra_Gr Is Not Null
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
   If @Sifra_Podg Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
   If @Sifra_art_Od Is Not Null
        Set @SSQL=@SSQL + 'And K.Sifra_art >=''' + @Sifra_art_Od + ''' '
   If @Sifra_art_Do Is Not Null
        Set @SSQL=@SSQL + 'And K.Sifra_art <=''' + @Sifra_art_Do + ''' '
   If @Lokacija Is Not NULL
    Begin
       If @KF_Lokacija = 'N'
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
       Else If @KF_Lokacija = 'D'
        Set @SSQL = @SSQL + 'And ((K.Lokacija<>''' + @Lokacija + ''')  Or (K.Lokacija is null ))'
    End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, B.Ime '
   If @Tip_Podr='S'
      Set @SSQL=@SSQL+'ORDER BY K.Sifra_Drg'
   Else If @Tip_Podr='A'
      Set @SSQL=@SSQL+'ORDER BY B.Ime'
print @SSQL
   EXEC(@SSQL)
    Set Nocount Off






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_zaliha_datum]'))
drop procedure [dbo].[sp_brand_zaliha_datum]

Go


CREATE     PROCEDURE sp_Brand_Zaliha_Datum
    @Sifra_OE Smallint,
    @Koi_OE Varchar(300),
       @Brand_Od Smallint,
       @Brand_Do Smallint,
       @Datum Smalldatetime,
       @SoDDV Char(1),         -- D/N
    @Kto Char(6) = Null,
      @Sifra_Gr varChar(6),
       @Sifra_Podg Char(6),
    @Tip_Podr Char(1) = 'S',
    @Lokacija Varchar(10) = Null,
    @KF_Lokacija char(1) = 'N',
       @Sifra_art_Od varchar(20) = Null,
       @Sifra_art_Do varchar(20) = Null,
       @Iskluci char(1) ='N',
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    Declare @SSQL As Varchar(4000)
    Set @SSQL = 'Select S.Sifra_OE, S.Sifra_Art,
        Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic
                When ''I'' Then 0
            End),
        Izlez = Sum(Case S.VlIzl
                When ''V'' Then 0
                When ''I'' Then S.Kolic
            End),
        dbo.fn_CenaDatum(S.Sifra_OE, S.Sifra_Art, ''' + Cast(@Datum As Varchar(30)) + ''', ''' + @SoDDV + ''') Cena
        From Stavr S
        Inner Join Katart K On S.sifra_art=K.Sifra_art  And K.SMatUsl=''M'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where S.Datum_Dok<=''' + Cast(@Datum As Varchar(30)) + ''' '
    If @Iskluci = 'D'
        Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg >=' + Cast(@Brand_Od As Varchar(8)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg <=' + Cast(@Brand_Do As Varchar(8)) + ' '
    If @Sifra_OE Is Not Null And @Koi_OE Is Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Else If @Sifra_OE Is Null And @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @Koi_Oe + ') '
--            (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Sifra_art_Od Is Not Null
        Set @SSQL=@SSQL + 'And K.Sifra_art >=''' + @Sifra_art_Od + ''' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL=@SSQL + 'And K.Sifra_art <=''' + @Sifra_art_Do + ''' '
   If @Kto Is Not Null
      Set @SSQL=@SSQL + 'And K.Kto='''+@Kto+''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Lokacija Is Not NULL
        Begin
              If @KF_Lokacija = 'N'
            Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
           Else If @KF_Lokacija = 'D'
            Set @SSQL = @SSQL + 'And ((K.Lokacija<>''' + @Lokacija + ''') Or (K.Lokacija is null ))'
           End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_OE, S.Sifra_Art '
print @ssql
--exec (@SSQL)
    Create Table #Zaliha
    (    Sifra_OE Smallint,
        Sifra_Art Varchar(20),
        Vlez Decimal(18,6),
        Izlez Decimal(18,6),
        Cena Decimal(18,6),
        Sifra_Drg smallint,
        Cena1 Decimal(18,6),
        DanCena Char(1),
        Posn Decimal(18,6),
        Ul_Edinici Decimal(18,6),
        Kolicina Decimal(18,6),
        Vrednost decimal(18,6)
    )
/*        Ul_Edinici Decimal(18,6),
        Vr_Osnov decimal(18,6),
        Vr_SoRabat decimal(18,6),
        Vr_Krajna decimal(18,6),
        Vk_NPS decimal(18,6),
        Vrednost decimal(18,6)
*/
    Insert #Zaliha(Sifra_OE, Sifra_Art, Vlez, Izlez, Cena)
    Exec(@SSQL)
    UPDATE #Zaliha
    SET    #Zaliha.Sifra_Drg = K.Sifra_Drg,
        UL_Edinici =  ((#Zaliha.Vlez-#Zaliha.Izlez) * (dbo.fix_BrandKolic(K.KolkuDrg))),
        Kolicina = (#Zaliha.Vlez-#Zaliha.Izlez),
        Vrednost = ((#Zaliha.Vlez-#Zaliha.Izlez) * #Zaliha.Cena)
    FROM #Zaliha
    INNER JOIN Katart K On #Zaliha.Sifra_art=K.Sifra_art
    INNER JOIN Soart S ON #Zaliha.Sifra_art=K.Sifra_art
    WHERE K.Sifra_art =#Zaliha.Sifra_art
Set @SSQL = 'Select  ZB.Sifra_Drg, D.Ime, Sum(ZB.Vlez) Vlez, Sum(ZB.Izlez) Izlez, round(Sum(ZB.UL_Edinici), 6) Ul_Edinici, round(Sum(ZB.Kolicina), 6) Kolicina, Round(sum(ZB.Vrednost), 6)  Vrednost,
        Sum((ZB.Vlez-ZB.Izlez) *  ZB.Cena) as Vr_Osnov,
        Sum((ZB.Vlez-ZB.Izlez) * ZB.Cena ) as Vr_SoRabat,
        Sum((ZB.Vlez-ZB.Izlez) * ZB.Cena ) as Vr_Krajna,
        Sum((ZB.Vlez-ZB.Izlez)*K.GotCena) Vk_NPS
        From #Zaliha ZB
        Inner Join Katart K On ZB.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
        Left Outer Join DrgPodel D On ZB.Sifra_Drg=D.Sifra_Drg '
Set @SSQL = @SSQL + ' Group By   ZB.Sifra_Drg, D.Ime '
    If @Tip_podr = 'S'
        Set @SSQL = @SSQL + 'Order By ZB.Sifra_Drg '
    Else If @Tip_Podr = 'A'
        Set @SSQL = @SSQL + 'Order By D.Ime '
    Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_zaliha_datum_sostav]'))
drop procedure [dbo].[sp_brand_zaliha_datum_sostav]

Go

CREATE     PROCEDURE sp_Brand_Zaliha_Datum_Sostav
    @Sifra_OE Smallint,
    @Koi_OE Varchar(300) = Null,
       @Brand_Od Smallint = Null,
       @Brand_Do Smallint = Null,
       @Datum Smalldatetime = Null,
       @SoDDV Char(1),         -- D/N
    @Kto Char(6) = Null,
       @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Tip_Podr Char(1) = 'S',
    @Lokacija Varchar(10) = Null,
    @KF_Lokacija char(1) = 'N',
       @Sifra_art_Od varchar(20) = Null,
       @Sifra_art_Do varchar(20) = Null,
       @RazbijSostav char(1) = 'D',
       @Iskluci char(1) = 'N',
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    Declare @SSQL As Varchar(4000)
    CREATE          Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
        If @Iskluci = 'D'
            Set @SSQL = @SSQL + ' Where K.Iskluci <> ''' + @Iskluci  + ''' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K Where 1=1 '
    If @Iskluci = 'D'
           Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
    Set @SSQL = 'Select S.Sifra_OE, TS.Sifra_Sur Sifra_Art,
             Sum(Case S.VlIzl
                When ''V'' Then S.Kolic*TS.Ima_Kolic
                When ''I'' Then 0
            End) Vlez,
            Sum(Case S.VlIzl
                When ''V'' Then 0
                When ''I'' Then S.Kolic*TS.Ima_Kolic
            End) Izlez,
        dbo.fn_CenaDatum(S.Sifra_OE, TS.Sifra_Sur, ''' + Cast(@Datum As Varchar(30)) + ''', ''' + @SoDDV + ''') Cena
        From #tSostav TS
        Inner Join Stavr S On S.Sifra_art  = TS.Sifra_art
        Inner Join Katart K On TS.Sifra_Sur=K.Sifra_Art And K.SMatUsl=''M'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where Datum_Dok<=''' + Cast(@Datum As Varchar(30)) + ''' '
    If @Iskluci = 'D'
           Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_OE Is Not Null And @Koi_OE Is Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    Else If @Sifra_OE Is Null And @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @Koi_Oe + ') '
--                 (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Brand_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg >=' + Cast(@Brand_Od As Varchar(8)) + ' '
    If @Brand_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg <=' + Cast(@Brand_Do As Varchar(8)) + ' '
       If @Kto Is Not Null
              Set @SSQL=@SSQL + 'And K.Kto='''+@Kto+''' '
       If @Sifra_Podg Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Lokacija IS NOT NULL
    Begin
        If @KF_Lokacija = 'D'
            Set @SSQL=@SSQL+'AND (K.Lokacija IS NULL OR K.Lokacija<>'''+lTrim(rTrim(@Lokacija))+''') '
        Else
            Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rTrim(@Lokacija))+''') '
    End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_OE, S.Sifra_Art, TS.Sifra_Sur '
print @SSQL
    Create Table #Zaliha
    (    Sifra_OE Smallint,
        Sifra_Art Varchar(20),
        Vlez Decimal(18,6),
        Izlez Decimal(18,6),
        Cena Decimal(18,6)
    )
    Insert #Zaliha Exec(@SSQL)
        Set @SSQL = 'Select   K.Sifra_Drg, D.Ime, Sum(Z.Vlez) Vlez, Sum(Z.Izlez) Izlez,
        Sum((Z.Vlez-Z.Izlez) * (dbo.fix_BrandKolic(K.KolkuDrg))) UL_Edinici,
        round((Sum(Z.Vlez-Z.Izlez)), 6) Kolicina,
        round((Sum((Z.Vlez-Z.Izlez)*Z.Cena)), 6)  Vrednost,
        Sum((Z.Vlez-Z.Izlez) *  Z.Cena) as Vr_Osnov,
        Sum((Z.Vlez-Z.Izlez) * Z.Cena ) as Vr_SoRabat,
        Sum((Z.Vlez-Z.Izlez) * Z.Cena ) as Vr_Krajna,
        Sum((Z.Vlez-Z.Izlez) * K.GotCena) Vk_NPS
        From #Zaliha Z
        Inner Join Katart K On Z.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
        Left Outer Join DrgPodel D On K.Sifra_Drg=D.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Iskluci = 'D'
           Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @Lokacija IS NOT NULL
    Begin
        If @KF_Lokacija = 'D'
            Set @SSQL=@SSQL+'AND (K.Lokacija IS NULL OR K.Lokacija<>'''+lTrim(rTrim(@Lokacija))+''') '
        Else
            Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rTrim(@Lokacija))+''') '
    End
    Set @SSQL = @SSQL + ' Group By K.Sifra_Drg, D.Ime  '
    If @Tip_Podr = 'S'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg '
    Else If @Tip_Podr = 'A'
        Set @SSQL = @SSQL + 'Order By D.Ime '
    Exec(@SSQL)
print @SSQL





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brand_zaliha_sostav]'))
drop procedure [dbo].[sp_brand_zaliha_sostav]

Go

CREATE  PROCEDURE sp_Brand_Zaliha_Sostav
   @Sifra_OE smallint,
   @Koi_OE Varchar(300),
   @Tip_Podr char(1) = Null,
   @Brand_Od char(6) = Null,
   @Brand_Do char(6) = Null,
   @Kto char(6) = Null,
   @Sifra_Gr varchar(6) = Null,
   @Sifra_Podg char(6) = Null,
   @Lokacija varchar(10) = Null,
   @KF_Lokacija char(1) = 'N',
   @Sifra_art_Od varchar(20) = Null,
   @Sifra_art_Do varchar(20) = Null,
   @RazbijSostav char(1)='D',
   @Iskluci    char(1) = 'N',
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    Declare @SSQL Varchar(8000)
    CREATE          Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            If @Iskluci = 'D'
               Set @SSQL = @SSQL + ' Where K.Iskluci <> ''' + @Iskluci  + ''' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K WHERE 1=1'
    If @Iskluci = 'D'
           Set @SSQL = @SSQL + ' and K.Iskluci <> ''' + @Iskluci  + ''' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
    Create Table #Tabela
    (
    Sifra_Oe    smallint,
    Sifra_art        varchar(20),
    Vlez        decimal(18,6),
    Izlez        decimal(18,6)
    )
    Set @SSQL='SELECT S.Sifra_Oe, SO.Sifra_Sur Sifra_art, (S.Vlez*So.Ima_Kolic) Vlez, (S.Izlez*SO.Ima_Kolic) Izlez
        FROM Soart S
        INNER JOIN #tSostav SO On S.Sifra_art = SO.Sifra_Art '
    Set @SSQL=@SSQL+'INNER JOIN Katart K ON SO.Sifra_Sur=K.Sifra_Art  And K.SMatUsl=''M'' '
    Set @SSQL=@SSQL+'INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar '
    Set @SSQL=@SSQL+'INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg
                     INNER JOIN Grupi G ON P.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL+' WHERE S.Sifra_OE = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQL=@SSQL+'WHERE S.Sifra_OE In (' + @Koi_OE + ') '
    If @Iskluci = 'D'
        Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    If @Sifra_art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_art_Od + ''' '
    If @Sifra_art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_art_Do + ''' '
    If @Brand_Od Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg >=' + Cast(@Brand_Od As Varchar(6)) + ') '
    If @Brand_Do Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg <=' + Cast(@Brand_Do As Varchar(6)) + ') '
    If @Kto IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Kto='''+@Kto+''') '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
     If @Sifra_Podg Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
    Begin
        If @KF_Lokacija = 'D'
            Set @SSQL=@SSQL+'AND (K.Lokacija IS NULL OR K.Lokacija<>'''+lTrim(rTrim(@Lokacija))+''') '
        Else
            Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rTrim(@Lokacija))+''') '
    End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Insert Into #Tabela Exec(@SSQL)
--select * from #tabela
   Set @SSQL='SELECT
        Sum(Ta.Vlez-Ta.Izlez)  As Kolicina,
        Sum((Ta.Vlez-Ta.Izlez) * dbo.fix_BrandKolic(K.KolkuDrg)) UL_Edinici,
        Sum(dbo.fn_vr_osnov  ((Ta.Vlez-Ta.Izlez), S.Cena, S.DanCena, S.POsn)) as Vr_Osnov,
        Sum(dbo.fn_vr_sorabat((Ta.Vlez-Ta.Izlez), S.Cena, S.DanCena, S.POsn, 0.0, 0)) as Vr_SoRabat,
        Sum(dbo.fn_vr_krajna ((Ta.Vlez-Ta.Izlez), S.Cena, S.DanCena, S.POsn, 0.0, 0)) as Vr_Krajna,
        Sum((Ta.Vlez-Ta.Izlez)*K.GotCena) Vk_NPS,
        K.Sifra_Drg, B.Ime '
    SET @SSQL=@SSQL + ' FROM #Tabela Ta
        Left Outer JOIN Soart S On S.Sifra_art = Ta.Sifra_art and S.Sifra_Oe = Ta.Sifra_Oe '
    Set @SSQL=@SSQL+'INNER JOIN Katart K ON Ta.Sifra_Art=K.Sifra_Art '
    Set @SSQL=@SSQL+'INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
                Left Outer  JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg
                         INNER JOIN Grupi G ON P.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL+' WHERE Ta.Sifra_OE = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQL=@SSQL+'WHERE Ta.Sifra_OE In (' + @Koi_OE + ') '
    If @Iskluci = 'D'
        Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
    Set @SSQL = @SSQL + 'Group By K.Sifra_Drg, B.Ime '
       If @Tip_Podr='S'
              Set @SSQL=@SSQL+'ORDER BY K.Sifra_Drg'
       Else If @Tip_Podr='A'
              Set @SSQL=@SSQL+'ORDER BY B.Ime'
print @SSQL
        Exec(@SSQL)
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisi_constraints]'))
drop procedure [dbo].[sp_brisi_constraints]

Go

CREATE        PROCEDURE sp_Brisi_Constraints
AS
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal1' AND type = 'C')
        ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal2' AND type = 'C')
        ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal1' AND type = 'C')
        ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal2' AND type = 'C')
        ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal1' AND type = 'C')
        ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal2' AND type = 'C')
        ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok1' AND type = 'C')         ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok2' AND type = 'C')
        ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar1' AND type = 'C')
        ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar2' AND type = 'C')
        ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum1' AND type = 'C')
        ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum2' AND type = 'C')
        ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum1' AND type = 'C')
        ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum2' AND type = 'C')
        ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum1' AND type = 'C')
        ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum2' AND type = 'C')
        ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok1' AND type = 'C')
        ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok2' AND type = 'C')
        ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok1' AND type = 'C')
        ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok2' AND type = 'C')
        ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok1' AND type = 'C')
        ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok2' AND type = 'C')
        ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok2





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisi_favtvrski_gstav]'))
drop procedure [dbo].[sp_brisi_favtvrski_gstav]

Go
CREATE PROCEDURE sp_Brisi_FAvtVrski_GStav
    @Sifra_Nal        smallint,
    @Kto_Anal        varchar(10),
    @Datum_Nal_Od    smalldatetime,
    @Datum_Nal_Do    smalldatetime
AS
    Delete From FavtVrski Where GstId In (Select GstId From GStav Where Sifra_Nal=@Sifra_Nal And Kto_Anal=@Kto_Anal
                        And Datum_Nal >= @Datum_Nal_Od And Datum_Nal <= @Datum_Nal_Do)
    Delete From GStav Where Sifra_Nal=@Sifra_Nal And Kto_Anal=@Kto_Anal And Datum_Nal >= @Datum_Nal_Od And Datum_Nal <= @Datum_Nal_Do





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisi_gst_akoe_0]'))
drop procedure [dbo].[sp_brisi_gst_akoe_0]

Go



create  PROCEDURE  sp_Brisi_Gst_AkoE_0
    @GstId  int
 AS
      DELETE FROM Gstav WHERE GstId = @GstId and
                              OdKade = 'V' and Dolzi = 0 and Pobaruva = 0 and
                              Dev_Dolzi = 0 and Dev_Pobaruva = 0 and KolkuVrski = 0
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisi_stavki_naracstavr]'))
drop procedure [dbo].[sp_brisi_stavki_naracstavr]

Go

CREATE  Procedure sp_Brisi_Stavki_NaracStavr
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @NarId        int,
    @Rezultat   char(1) OUTPUT
AS
    Declare @DokrID as int
    Declare @DaliDevizna  as varchar(1)
    Declare @BrojNal as int

    Set @DokrID = 0
    Set @BrojNal = 0

    Select @DokrID=DokrID,@BrojNal =  Broj_Nal
    From Dokr
    Where Sifra_OE = Sifra_OE and Sifra_Dok=@Sifra_Dok and Broj_Dok = @Broj_Dok

    If @BrojNal is not null and  @BrojNal > 0
      Begin
        Set @Rezultat = 'K'
        Return
      End

    Set @DaliDevizna = (Select Dev From TipDok Where Sifra_Dok = @Sifra_Dok)

    --Brisime od stavr
    Delete From Stavr Where DokrID = @DokrID

    --sreduvame dokr
    exec sp_Popravi1Dokr @Sifra_oe, @Sifra_Dok , @Broj_Dok

    If @DaliDevizna ='D'
        Begin
            Declare @DevFraID as int
            Set @DevFraID = 0
            Set @DevFraID = (Select DevFraID  From DevFra
                            Where Sifra_Oe = @Sifra_OE AND Sifra_Dok = @Sifra_Dok and Broj_DevF = @Broj_Dok  )

            If @DevFraID > 0
                Begin
                    Delete From DevFraStavk Where DevFraID = @DevFraID
                    Delete From DevFra Where DevFraID = @DevFraID
                End
        End


    Update NarRealDok Set Realiziran = Null
    Where DokrID = @DokrID And NarID = @NarId

    Set @Rezultat = 'U'







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisi_vrzanigst_0]'))
drop procedure [dbo].[sp_brisi_vrzanigst_0]

Go


CREATE  PROCEDURE  sp_Brisi_VrzaniGst_0
    @Sifra_Nal smallint,
    @Broj_nal  int
 AS
      DELETE FROM Gstav WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_nal and
                              OdKade = 'V' and Dolzi = 0 and Pobaruva = 0 and
                              Dev_Dolzi = 0 and Dev_Pobaruva = 0 and KolkuVrski = 0
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiabarkod]'))
drop procedure [dbo].[sp_brisiabarkod]

Go
CREATE PROCEDURE sp_BrisiABarKod
    @Sifra_Art    varchar(20)
AS
    DELETE FROM ABarKod WHERE Sifra_Art = @Sifra_Art
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiabarpak]'))
drop procedure [dbo].[sp_brisiabarpak]

Go
Create procedure sp_BrisiABarPak
    @Sifra_Art varchar(20)= null
As
    Delete from ABArPak
    Where Sifra_Art= @Sifra_Art
    Return @@error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiadrtaggy]'))
drop procedure [dbo].[sp_brisiadrtaggy]

Go
CREATE PROCEDURE sp_BrisiAdrTaggy
    @Sifra_OE Smallint,
    @Sifra_Art VarChar(20)
AS
DELETE FROM AdrTaggy
WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiakciikolic]'))
drop procedure [dbo].[sp_brisiakciikolic]

Go
CREATE PROCEDURE sp_BrisiAkciiKolic
    @Ozn_Akcija    char(10)
AS
DELETE FROM AkciiKolic WHERE Ozn_Akcija=@Ozn_Akcija
RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiakciiprod]'))
drop procedure [dbo].[sp_brisiakciiprod]

Go
CREATE PROCEDURE sp_BrisiAkciiProd
    @DokrID int
AS
Delete From AkciiProd Where DokrID =@DokrID
Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiakcija]'))
drop procedure [dbo].[sp_brisiakcija]

Go

CREATE PROCEDURE sp_BrisiAkcija
    @Sifra_OE Smallint,
    @Sifra_Kup Char(6),
    @DatumVreme SmallDateTime
AS
DELETE FROM Akcija
WHERE Sifra_OE = @Sifra_OE AND Sifra_Kup = @Sifra_Kup AND DatumVreme = @DatumVreme
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisianfindok]'))
drop procedure [dbo].[sp_brisianfindok]

Go

CREATE PROCEDURE sp_BrisiANFINDOK
   @Sifra_OE Smallint,
   @Sifra_Dok Smallint,
   @Broj_Dok Int
AS
   DELETE FROM [AnFinDok]
   WHERE [Sifra_OE]=@Sifra_OE AND [Sifra_Dok]=@Sifra_Dok AND [Broj_Dok]=@Broj_Dok
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisianfindok_sap]'))
drop procedure [dbo].[sp_brisianfindok_sap]

Go




CREATE        PROCEDURE sp_BrisiAnFindok_SAP
AS
DELETE FROM AnFindok
DBCC CHECKIDENT (AnFinDok, RESEED, 1)

RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiapteka]'))
drop procedure [dbo].[sp_brisiapteka]

Go

CREATE PROCEDURE sp_BrisiApteka

    @Sifra_Apteka    char(2)
AS
    Delete From Apteka
    Where Sifra_Apteka=@Sifra_Apteka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiarkakasadn]'))
drop procedure [dbo].[sp_brisiarkakasadn]

Go
CREATE Procedure sp_BrisiArkaKAsaDn
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int
As
    Delete from ArkaKasaDn
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiarkakasadnsta]'))
drop procedure [dbo].[sp_brisiarkakasadnsta]

Go
CREATE Procedure sp_BrisiArkaKAsaDnSta
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int,
    @Sifra_Nac smallint
As
    Delete from ArkaKasaDnSta
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok and
        Sifra_nac=@Sifra_Nac


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiarkakatlist]'))
drop procedure [dbo].[sp_brisiarkakatlist]

Go

create  PROCEDURE sp_BrisiArkaKatList
    @Kluc_sodrz varchar(20)
AS
    Delete From ArkaKatList
    Where Kluc_Sodrz=@Kluc_Sodrz
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiartikalodgrart]'))
drop procedure [dbo].[sp_brisiartikalodgrart]

Go
CREATE  procedure sp_BrisiArtikalOdGrArt
    @Sif_GrArt as varchar(20),
    @Sifra_Art as varchar(6)
As
    Delete From SGrArt
    Where Sif_GrArt=@Sif_GrArt and Sifra_Art=@Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiasortiman]'))
drop procedure [dbo].[sp_brisiasortiman]

Go

CREATE PROCEDURE [dbo].[sp_BrisiAsortiman]
    @Sifra_Asort    varchar(10)

AS

    DELETE    Asortiman
    WHERE    Sifra_Asort = @Sifra_Asort

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiatckodovi]'))
drop procedure [dbo].[sp_brisiatckodovi]

Go

CREATE PROCEDURE sp_BrisiATCKodovi

    @Sifra_ATC    char(10)
AS
    Delete From ATCKodovi
    Where Sifra_ATC=@Sifra_ATC
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiavtkont]'))
drop procedure [dbo].[sp_brisiavtkont]

Go

CREATE PROCEDURE sp_BrisiAvtKont
    @Sif_GrOrg        char(6),
    @Sif_GrDok        char(3),
    @Sif_GrOrg_Prima    varchar(6)
AS
If @Sif_GrOrg_Prima IS NOT NULL
    DELETE FROM AvtKont
    WHERE Sif_GrOrg = @Sif_GrOrg AND Sif_GrDok = @Sif_GrDok AND Sif_GrOrg_Prima = @Sif_GrOrg_Prima
Else
    DELETE FROM AvtKont
    WHERE Sif_GrOrg = @Sif_GrOrg AND Sif_GrDok = @Sif_GrDok AND Sif_GrOrg_Prima IS NULL
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiavtkontartmap]'))
drop procedure [dbo].[sp_brisiavtkontartmap]

Go



CREATE  PROCEDURE sp_BrisiAvtKontArtMap
AS
    DELETE FROM AvtKontArtMap
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiavtkontos]'))
drop procedure [dbo].[sp_brisiavtkontos]

Go






CREATE     PROCEDURE sp_BrisiAvtKontOS
    @Kod_Kniz smallint

AS
    DELETE FROM avtkontosn
    Where Kod_Kniz=@Kod_Kniz
RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiavtvrski]'))
drop procedure [dbo].[sp_brisiavtvrski]

Go

CREATE  PROCEDURE sp_BrisiAvtVrski
    @GStID    int,
    @AnID        int,
    @DokrID    int
AS
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'DELETE FROM FAvtVrski    WHERE GStID = ' + cast(@GStID as varchar(11)) + ' AND AnID '
If @AnID IS NULL
    Set @SSQL = @SSQL + ' IS NULL'
Else
    Set @SSQL = @SSQL  + ' = ' + cast(@AnID as varchar(11))
Set @SSQL = @SSQL + ' AND DokrID '
If @DokrID IS NULL
    Set @SSQL = @SSQL + ' IS NULL'
Else
    Set @SSQL = @SSQL  + ' = ' + cast(@DokrID as varchar(11))
Exec (@SSQL)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisibanki]'))
drop procedure [dbo].[sp_brisibanki]

Go
CREATE PROCEDURE sp_BrisiBanki
    @Sifra_Banka    smallint
 AS
    Delete Banki
    Where Sifra_Ban=@Sifra_Banka
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisibanksmetki]'))
drop procedure [dbo].[sp_brisibanksmetki]

Go


CREATE  PROCEDURE sp_BrisiBankSmetki
    @KojaSmetka Char(1)
AS
DELETE FROM BankSmetki
WHERE KojaSmetka = @KojaSmetka
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisibrstanarac]'))
drop procedure [dbo].[sp_brisibrstanarac]

Go

CREATE  PROCEDURE sp_BrisiBrStaNarac
    @NarID    int
AS
    Delete From BrStaNarac
    Where StaNarID  in (SELECT StaNarID FROM StaNarac WHERE NarID = @NarID)
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisibrstavr]'))
drop procedure [dbo].[sp_brisibrstavr]

Go
CREATE PROCEDURE sp_BrisiBrStavr
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @Sifra_Prim smallint,
    @ImaDodatna char(1)
 AS
    Declare @SSQL as varchar(5000)
    SET @SSQL = 'Delete From BrStavr
    Where DokID in (SELECT DokID FROM Stavr WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) +
    '  AND Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + '  AND Broj_Dok=' + Cast(@Broj_Dok As Varchar(10)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'AND Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + 'AND ImaDodatna=''' + @ImaDodatna + ''' '
    Set @SSQL = @SSQL + ' )'
    Exec(@SSQL)
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicekovi]'))
drop procedure [dbo].[sp_brisicekovi]

Go
CREATE PROCEDURE sp_BrisiCekovi
    @Datum_Vnes    smalldatetime,
    @KojaSmetka    char(1)
AS
    Delete From Cekovi
    Where Datum_Vnes=@Datum_Vnes and KojaSmetka=@KojaSmetka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicendog]'))
drop procedure [dbo].[sp_brisicendog]

Go


CREATE   PROCEDURE sp_BrisiCenDog

    @Sifra_Kup    char(6),
    @TipKup    varchar(11),
    @DogBr    char(10)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Delete From CenDog
            Where DogBr = ''' + @DogBr + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Else
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''999000'' '--Set @SSQL = @SSQL + ' And Sifra_Kup Is Null '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And TipKup = ''' + @TipKup + ''' '
    Else
        Set @SSQL = @SSQL + ' And TipKup =''ALL '' '--Set @SSQL = @SSQL + ' And TipKup Is Null '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicendogsta]'))
drop procedure [dbo].[sp_brisicendogsta]

Go

CREATE  PROCEDURE sp_BrisiCenDogSta

    @Sifra_Kup    char(6),
    @TipKup    varchar(11),
    @DogBr    char(10)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Delete From CenDogSta
            Where DogBr = ''' + @DogBr + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Else
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''999000'' '--Set @SSQL = @SSQL + ' And Sifra_Kup Is Null '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And TipKup = ''' + @TipKup + ''' '
    Else
        Set @SSQL = @SSQL + ' And TipKup =''ALL '' '--Set @SSQL = @SSQL + ' And TipKup Is Null '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicengrorg]'))
drop procedure [dbo].[sp_brisicengrorg]

Go

CREATE PROCEDURE  sp_BrisiCenGrOrg
    @Sifra_Art  Varchar(20)
 AS
    DECLARE @Greska Int
    DELETE FROM CenGrOrg WHERE Sifra_Art = @Sifra_Art
--   IF @@ERROR=0 AND @@ROWCOUNT=0
--      RETURN 77000
--   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicengrorg1grorg]'))
drop procedure [dbo].[sp_brisicengrorg1grorg]

Go
CREATE  PROCEDURE  sp_BrisiCenGrOrg1GrOrg
    @Sifra_Art  Varchar(20),
    @Sif_GrOrg    char(6)
AS
    DELETE FROM CenGrOrg WHERE Sifra_Art = @Sifra_Art AND Sif_GrOrg=@Sif_GrOrg
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicengrorgsogrorg]'))
drop procedure [dbo].[sp_brisicengrorgsogrorg]

Go
CREATE PROCEDURE  sp_BrisiCenGrOrgSoGrOrg
    @Sif_GrOrg  char(6)
 AS
    DELETE FROM CenGrOrg WHERE Sif_GrOrg = @Sif_GrOrg
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenimp]'))
drop procedure [dbo].[sp_brisicenimp]

Go

CREATE  PROCEDURE sp_BrisiCenImp
    @Sifra_VidDog    VARCHAR(20),
    @Sifra_Vernost    SMALLINT,
    @Sif_GrOrg        CHAR(6)
AS
IF @Sif_GrOrg is not null
DELETE FROM CenImp WHERE Sifra_VidDog = @Sifra_VidDog AND
                        Sifra_Vernost = @Sifra_Vernost AND
                        Sif_GrOrg = @Sif_GrOrg
ELSE
DELETE FROM CenImp WHERE Sifra_VidDog = @Sifra_VidDog AND
                        Sifra_Vernost = @Sifra_Vernost AND
                        Sif_GrOrg IS Null
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiceniplanski]'))
drop procedure [dbo].[sp_brisiceniplanski]

Go
CREATE  PROCEDURE  sp_BrisiCeniPlanski
    @Sif_GrOrg char(6),
    @Vazi_Od    smalldatetime
AS
DELETE FROM CeniPlanski WHERE Sif_GrOrg = @Sif_GrOrg AND Vazi_Od=@Vazi_Od
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenkartkor]'))
drop procedure [dbo].[sp_brisicenkartkor]

Go
CREATE PROCEDURE sp_BrisiCenKartKor
    @Sifra_CeniKartKor    smallint
 AS
    Delete From CenKartKor
    Where Sifra_CeniKartKor=@Sifra_CeniKartKor
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicennabpoart]'))
drop procedure [dbo].[sp_brisicennabpoart]

Go

CREATE PROCEDURE [dbo].[sp_BrisiCenNabPoArt]
    @Godina        smallint,
    @Mesec        smallint,
    @Sifra_Podg    char(6) = NULL

AS
    IF @Sifra_Podg IS NOT NULL
        DELETE    C
        FROM    CenNabPoArt C
                INNER JOIN KatArt K ON K.Sifra_Art = C.Sifra_Art
        WHERE    Godina = @Godina AND Mesec = @Mesec AND K.Sifra_Podg = @Sifra_Podg
      ELSE
        DELETE    CenNabPoArt
        WHERE    Godina = @Godina AND Mesec = @Mesec

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenovnik]'))
drop procedure [dbo].[sp_brisicenovnik]

Go
CREATE PROCEDURE sp_BrisiCenovnik
    @Sifra_art    varchar(20),
    @Sifra_Kup    char(6)
 AS
    Declare @SSQL as Varchar(2000)
    If @Sifra_art Is Not Null Or @Sifra_Kup Is Not Null
    Begin
        Set @SSQL= ' Delete from Cenovnik Where 1=1'
            If @Sifra_Kup Is Not Null
                Set @SSQL = @SSQL + ' and Sifra_Kup =' + @Sifra_Kup + ' '
            If @Sifra_art Is Not Null
                Set @SSQL = @SSQL + ' and Sifra_art =' + @Sifra_art + ' '
    End
-- AKO NEMA PUSTENO BAREM EDEN FILTER KE SE IZBRISE CELIOT CENOVNIK
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenovnikotkup]'))
drop procedure [dbo].[sp_brisicenovnikotkup]

Go
Create procedure sp_BrisiCenovnikOtkup
    @Sifra_art varchar(20),
    @Vazi_Od smalldatetime
As
    Delete from CenovnikOtkup
    Where Sifra_art=@Sifra_Art and Vazi_od=@Vazi_Od




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenpoart]'))
drop procedure [dbo].[sp_brisicenpoart]

Go
CREATE PROCEDURE sp_BrisiCenPoArt
    @Tip_Cena    smallint
AS
    Delete From CenPoArt
    Where Tip_Cena=@Tip_Cena
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenpopodgr]'))
drop procedure [dbo].[sp_brisicenpopodgr]

Go


CREATE   PROCEDURE sp_BrisiCenPoPodgr
    @Tip_Podelba    char(1),
    --@TipKup    varchar(11),
    @Sifra_Podelba    varchar(20)
 AS
    DELETE FROM CenPoPodgr
    WHERE Tip_Podelba=@Tip_Podelba AND Sifra_Podelba=@Sifra_Podelba
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenpopodgr_inv]'))
drop procedure [dbo].[sp_brisicenpopodgr_inv]

Go



CREATE     PROCEDURE sp_BrisiCenPoPodgr_Inv
    @Tip_Podelba    char(1),
    @TipKup    varchar(11)
AS
    DELETE FROM CenPoPodgr
    WHERE Tip_Podelba = @Tip_Podelba AND TipKup = @TipKup
    RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenpopodgr_kup]'))
drop procedure [dbo].[sp_brisicenpopodgr_kup]

Go


create  PROCEDURE sp_BrisiCenPoPodgr_Kup
    @TipKup        varchar(11)
AS
    DELETE FROM CenPoPodgr
    WHERE TipKup = @TipKup
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisicenvidvozila]'))
drop procedure [dbo].[sp_brisicenvidvozila]

Go
CREATE PROCEDURE sp_BrisiCenVidVozila
    @Sifra_Vid_Voz    varchar(20)
 AS
    Delete From CenVidVozila
    Where Sifra_Vid_Voz=@Sifra_Vid_Voz
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisideklart]'))
drop procedure [dbo].[sp_brisideklart]

Go



CREATE      PROCEDURE sp_BrisiDeklArt
    @Sifra_Art    varchar(20),
    @Ozn        varchar(20)
As
    DELETE
    FROM     DeklArt
    WHERE     Sifra_Art = @Sifra_Art AND Ozn = @Ozn
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisideklartkup]'))
drop procedure [dbo].[sp_brisideklartkup]

Go
CREATE PROCEDURE [dbo].[sp_BrisiDeklArtKup]
    @Sifra_Art    VarChar(20),
    @Ozn        VarChar(20)
AS

    DELETE
    FROM    DeklArtKup
    WHERE    Sifra_Art = @Sifra_Art AND Ozn = @Ozn

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevcar]'))
drop procedure [dbo].[sp_brisidevcar]

Go
CREATE      PROCEDURE sp_BrisiDevCar
   @AnID Integer
AS
    DELETE DevCar  WHERE AnID=@AnID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevfra]'))
drop procedure [dbo].[sp_brisidevfra]

Go

CREATE PROCEDURE sp_BrisiDevFra
    @DevFraID int
AS
    DELETE FROM DevFra
    WHERE DevFraID = @DevFraID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevfrastavk]'))
drop procedure [dbo].[sp_brisidevfrastavk]

Go

CREATE PROCEDURE sp_BrisiDevFraStavk
    @DevFraID    int
AS
    DELETE FROM DevFraStavk
    WHERE DevFraID = @DevFraID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevkalk]'))
drop procedure [dbo].[sp_brisidevkalk]

Go




CREATE       PROCEDURE sp_BrisiDevKalk
    @Sifra_OE smallint,
    @Sifra_Dok smallint=132,
    @Broj_Kalk int
AS
    DELETE [DevKalk]
    WHERE Sifra_OE=@Sifra_OE AND Broj_Kalk=@Broj_Kalk AND Sifra_Dok=@Sifra_Dok






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevkons]'))
drop procedure [dbo].[sp_brisidevkons]

Go

CREATE PROCEDURE sp_BrisiDevKons
    @DevKonsID int
AS
    DELETE FROM DevKons
    WHERE DevKonsID = @DevKonsID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevnaim]'))
drop procedure [dbo].[sp_brisidevnaim]

Go



CREATE    PROCEDURE sp_BrisiDevNaim
   @Sifra_OE smallint,
   @Broj_Kalk int,
    @Sifra_Dok smallint=132
AS
    DELETE [DevNaim]
    WHERE Sifra_OE=@Sifra_OE AND Broj_Kalk=@Broj_Kalk





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevnaimst]'))
drop procedure [dbo].[sp_brisidevnaimst]

Go



CREATE    PROCEDURE sp_BrisiDevNaimSt
   @Sifra_OE smallint,
   @Broj_Kalk int,
    @Sifra_Dok smallint=132
AS
    DELETE [DevNaimSt]
    WHERE Sifra_OE=@Sifra_OE AND Broj_Kalk=@Broj_Kalk





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevnar]'))
drop procedure [dbo].[sp_brisidevnar]

Go
Create  PROCEDURE sp_BrisiDevNar
    @DevNarID int
AS
    DELETE FROM DevNar
    WHERE DevNarID = @DevNarID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevnarstavk]'))
drop procedure [dbo].[sp_brisidevnarstavk]

Go

Create  PROCEDURE sp_BrisiDevNarStavk
    @DevNarID    int
AS
    DELETE FROM DevNarStavk
    WHERE DevNarID = @DevNarID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevstavk]'))
drop procedure [dbo].[sp_brisidevstavk]

Go





CREATE         PROCEDURE sp_BrisiDevStavk
    @Sifra_OE smallint,
    @Sifra_Dok smallint=132,
    @Broj_Kalk int
AS
    DELETE DevStavk
    WHERE Sifra_OE=@Sifra_OE AND Broj_Kalk=@Broj_Kalk AND Sifra_Dok=@Sifra_Dok







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidevstavkons]'))
drop procedure [dbo].[sp_brisidevstavkons]

Go


CREATE  PROCEDURE sp_BrisiDevStavKons
    @DevKonsID int
AS
    DELETE FROM DevStavKons
    WHERE DevKonsID = @DevKonsID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidijagnozi]'))
drop procedure [dbo].[sp_brisidijagnozi]

Go

CREATE PROCEDURE sp_BrisiDijagnozi

    @Sifra_Dijagn    char(5)
AS
    Delete From Dijagnozi
    Where Sifra_Dijagn=@Sifra_Dijagn
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidnevnik]'))
drop procedure [dbo].[sp_brisidnevnik]

Go
CREATE PROCEDURE sp_BrisiDnevnik
    @IdDnevnik    int
 AS
    Delete From Dnevnik
    Where IdDnevnik=@IdDnevnik
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidnizvskr]'))
drop procedure [dbo].[sp_brisidnizvskr]

Go
CREATE PROCEDURE sp_BrisiDnIzvSkr
    @Sema_DnIzvSkr    smallint
 AS
    Delete From DnIzvSkr
    Where Sema_DnIzvSkr=@Sema_DnIzvSkr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidogtmobile]'))
drop procedure [dbo].[sp_brisidogtmobile]

Go
CREATE  PROCEDURE sp_BrisiDogTmobile
    @SifraKomint char(6)
AS
    DELETE FROM DogTmobile
    WHERE SifraKomint = @SifraKomint
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokosnsred]'))
drop procedure [dbo].[sp_brisidokosnsred]

Go
CREATE PROCEDURE sp_BrisiDokOsnSred
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Delete From DokOsnSred
    Where Sifra_Oe=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokr]'))
drop procedure [dbo].[sp_brisidokr]

Go


CREATE    PROCEDURE sp_BrisiDokr
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
   @ImaDodatna char(1)
-- Ednoznacen Kluc

AS

if dbo.fix_DokrBrsMoze(GetDate(), @Sifra_Oe, @Sifra_Dok, @Broj_Dok, @ImaDodatna, @Sifra_Prim) = 'N'
    Return 57903        -- Custom code za NEDOZVOLENO BRISENJE - DOKR

Declare @SSQL Varchar(1000)
    Set @SSQL = 'DELETE [Dokr]
        WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' AND
          Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' AND
          Broj_Dok=' + Cast(@Broj_Dok As Varchar(9)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + ' AND Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + 'AND ImaDodatna=''' + @ImaDodatna + ''' '
    /*  BESE BUG:   DK  MAR 22, 2003 If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + ' AND Sifra_Prim=@Sifra_Prim '
            */
            /*
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + 'AND ImaDodatna=@ImaDodatna '
            */
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrabnal]'))
drop procedure [dbo].[sp_brisidokrabnal]

Go


CREATE  PROCEDURE sp_BrisiDokRabNal
    @DokrID        Int
AS
    DELETE FROM DokRabNal
    WHERE DokrID=@DokrID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrabnalzarabnalid]'))
drop procedure [dbo].[sp_brisidokrabnalzarabnalid]

Go



CREATE   PROCEDURE sp_BrisiDokRabNalZaRabNalID
    @RabNalID        Int
AS
    DELETE FROM DokRabNal WHERE RabNalID=@RabNalID
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrotvkniz]'))
drop procedure [dbo].[sp_brisidokrotvkniz]

Go

CREATE       PROCEDURE sp_BrisiDokrOtvKniz
    @TekDaliZbiren    char(1),
    @DokrZbID        int,
    @Sifra_Oe         smallint,
    @Sifra_Dok        smallint,
    @Broj_Dok        int


AS

IF @TekDaliZbiren = 'D'

SELECT DokrID FROM Dokr WHERE DokrID IN (SELECT DokrID FROM DokrZbSta WHERE DokrZbID=@DokrZbID)

ELSE

SELECT DokrID FROM Dokr WHERE Sifra_OE = @Sifra_OE  AND Sifra_Dok = @Sifra_Dok  AND Broj_Dok = @Broj_Dok

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrvozbirni]'))
drop procedure [dbo].[sp_brisidokrvozbirni]

Go
CREATE PROCEDURE sp_BrisiDokrVoZbirni
    @DokrID_Zb    int
AS
DELETE FROM DokrVoZbirni WHERE DokrID_Zb=@DokrID_Zb



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrzb]'))
drop procedure [dbo].[sp_brisidokrzb]

Go




CREATE      PROCEDURE sp_BrisiDokrZb
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int
AS
DELETE FROM DokrZb WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidokrzbsta]'))
drop procedure [dbo].[sp_brisidokrzbsta]

Go

CREATE  PROCEDURE sp_BrisiDokrZbSta
    @DokrZbId    int
AS
    DELETE FROM DokrZbSta WHERE DokrZbId=@DokrZbId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidozvorgart]'))
drop procedure [dbo].[sp_brisidozvorgart]

Go
CREATE PROCEDURE sp_BrisiDozvOrgArt
    @Sif_GrOrg        char(6)
AS
    DELETE FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisidrzava]'))
drop procedure [dbo].[sp_brisidrzava]

Go


create PROCEDURE [dbo].[sp_BrisiDrzava]

    @Str_Drzava        char(3)
AS
    Delete From Drzava
    Where Str_Drzava=@Str_Drzava
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiedenprivorgtip]'))
drop procedure [dbo].[sp_brisiedenprivorgtip]

Go

CREATE PROCEDURE sp_BrisiEdenPrivOrgTip
    @Sifra_GrKor    varchar(20),
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Sifra_Prim    smallint
 AS
    DELETE FROM PrivilOrgTip WHERE Sifra_GrKor=@Sifra_GrKor AND Sifra_OE=@Sifra_OE
    AND Sifra_Dok=@Sifra_Dok AND Sifra_Prim=@Sifra_Prim
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiedmerilist]'))
drop procedure [dbo].[sp_brisiedmerilist]

Go

CREATE  PROCEDURE sp_BrisiEdMeriList

    @EdMera    char(5)

AS

    Delete From EdMeriList
    Where EdMera=@EdMera



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiekvivart]'))
drop procedure [dbo].[sp_brisiekvivart]

Go
CREATE PROCEDURE sp_BrisiEkvivArt
     @IdEkviv varchar(50)
AS
    DELETE EkvivArt
    WHERE IdEkviv=@IdEkviv



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiekvivdezen]'))
drop procedure [dbo].[sp_brisiekvivdezen]

Go
CREATE procedure sp_BrisiEkvivDezen
    @GrupaEkviv varchar(50)
As
    Delete EkvivDezen
    Where GrupaEkviv=@GrupaEkviv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisievdekl]'))
drop procedure [dbo].[sp_brisievdekl]

Go
CREATE procedure SP_BrisiEvDekl
    @Godina smallint,
    @Rbr int
As
    Delete from EvDekl
    Where Godina=@Godina  and Rbr=@Rbr



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisievdeklsta]'))
drop procedure [dbo].[sp_brisievdeklsta]

Go
CREATE procedure sp_BrisiEvDeklSta
    @Godina smallint,
    @Rbr int
AS
    Delete from EvDeklStav
    Where Godina=@Godina and Rbr=@Rbr



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisievdeklstav]'))
drop procedure [dbo].[sp_brisievdeklstav]

Go
Create  procedure SP_BrisiEvDeklStav
    @Godina smallint,
    @Rbr int
As
    Delete from EvDeklStav
    Where Godina=@Godina  and Rbr=@Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisievproizvod]'))
drop procedure [dbo].[sp_brisievproizvod]

Go

CREATE  PROCEDURE sp_BrisiEvProizvod
    @DokrID    int
AS
    Delete From EvProizvod
    Where DokrID=@DokrID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifaktura]'))
drop procedure [dbo].[sp_brisifaktura]

Go



CREATE    PROCEDURE sp_BrisiFaktura
    @Godina    smallint,
    @Faktura_Br char(6)
AS
DELETE FROM Specifikacii WHERE Godina_Fra=@Godina AND Faktura_Br IN
(SELECT Faktura_Br FROM Faktura WHERE Godina_Fra=@Godina AND Faktura_Br=@Faktura_Br)
DELETE FROM Faktura WHERE Godina_Fra=@Godina AND Faktura_Br=@Faktura_Br
Declare @Sifra_Apt as char(2)
Declare @Broj_Recept as int
Declare @Sifra_Art as varchar(6)
Declare @GodPriem as smallint
Declare @Broj_Priem as int
Declare @Kolku_Pakuv decimal(9,3)
Declare @Kolku_Kolic decimal(9,3)
Declare TabRcpP Cursor Fast_Forward For
    Select Sifra_Apteka, Broj_Recept, Sifra_Art, Kolku_Pakuv, Kolku_Kolic, Broj_Priem, Godina_Priem
    From Recepti WHERE RTrim(Broj_Priem)<>'' AND Godina_Fra=@Godina AND Faktura_Br=@Faktura_Br
Open TabRcpP
Fetch Next From TabRcpP Into @Sifra_Apt, @Broj_Recept, @Sifra_Art, @Kolku_Pakuv, @Kolku_Kolic, @Broj_Priem, @GodPriem
While @@Fetch_Status = 0
Begin
    IF @Kolku_Pakuv=0 SELECT @Kolku_Pakuv=@Kolku_Kolic/Br_Vo_Pakuv FROM Lekovi WHERE Sifra_Art=@Sifra_Art
    UPDATE SostPriem SET Izlez_Pakuv = Izlez_Pakuv - @Kolku_Pakuv WHERE Godina=@GodPriem AND Broj_Priem=@Broj_Priem AND Sifra_Art=@Sifra_Art
    UPDATE Recepti SET Broj_Priem='', Godina_Priem=NULL WHERE Sifra_Apteka=@Sifra_Apt AND Broj_Recept=@Broj_Recept
    Fetch Next From TabRcpP Into @Sifra_Apt, @Broj_Recept, @Sifra_Art, @Kolku_Pakuv, @Kolku_Kolic, @Broj_Priem, @GodPriem
End
Close TabRcpP
Deallocate TabRcpP
UPDATE Recepti SET Specif_Br=null, Rbr_Vo_Specif=0, Faktura_Br=NULL
WHERE Godina_Fra=@Godina AND Faktura_Br=@Faktura_Br






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifarmacevt]'))
drop procedure [dbo].[sp_brisifarmacevt]

Go

CREATE PROCEDURE sp_BrisiFarmacevt

    @Sifra_Farmacevt    char(6)
AS
    Delete From Farmacevt
    Where Sifra_Farmacevt=@Sifra_Farmacevt
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifavtvrskiotvkniz]'))
drop procedure [dbo].[sp_brisifavtvrskiotvkniz]

Go

CREATE       PROCEDURE sp_BrisiFAvtVrskiOtvKniz
    @GStID             int,
    @AnID             int

AS
    DELETE FROM FAvtVrski WHERE GStID = @GStId  AND AnID = @AnID

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifazi]'))
drop procedure [dbo].[sp_brisifazi]

Go

CREATE PROCEDURE sp_BrisiFazi
    @Sifra_Faza    smallint
AS
    Delete from Fazi
    Where Sifra_Faza=@Sifra_Faza
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifikonta]'))
drop procedure [dbo].[sp_brisifikonta]

Go
CREATE PROCEDURE sp_BrisiFiKonta
    @FiID    smallint
AS
    Delete FiKonta
    Where FiID=@FiID
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifiraspredelba]'))
drop procedure [dbo].[sp_brisifiraspredelba]

Go


create  PROCEDURE  sp_BrisiFiRaspredelba
    @Sifra_FiRsp  smallint
AS
    DECLARE @Greska Int
    DELETE FROM FiRaspredelba  WHERE Sifra_FiRsp = @Sifra_FiRsp
--   IF @@ERROR=0 AND @@ROWCOUNT=0
--      RETURN 77000
--   ELSE
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifiskprom]'))
drop procedure [dbo].[sp_brisifiskprom]

Go

CREATE  PROCEDURE sp_BrisiFiskProm
    @Sifra_Oe    smallint,
    @Datum_dok    smalldatetime,
        @BrKasa         smallint
 AS
    Delete FiskProm
    Where Sifra_Oe=@Sifra_Oe and Datum_dok=@Datum_Dok and Brkasa=@BrKasa
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifistavki]'))
drop procedure [dbo].[sp_brisifistavki]

Go
CREATE PROCEDURE sp_BrisiFiStavki
    @FiID    smallint
AS
    Delete FiStavki
    Where FiID=@FiID
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifitabela]'))
drop procedure [dbo].[sp_brisifitabela]

Go
CREATE PROCEDURE sp_BrisiFiTabela
    @FiID    smallint
AS
    Delete FiTabela
    Where FiID=@FiID
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisifizbir]'))
drop procedure [dbo].[sp_brisifizbir]

Go
CREATE PROCEDURE sp_BrisiFiZbir
    @FiID    smallint
AS
    Delete FiZbir
    Where FiID=@FiID
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigotsurorg]'))
drop procedure [dbo].[sp_brisigotsurorg]

Go



CREATE  PROCEDURE  sp_BrisiGotSurOrg
    @Sifra_OE_Got smallint
AS
    DELETE FROM GotovSurovOrg WHERE Sifra_OE_Got = @Sifra_OE_Got
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigranalplan]'))
drop procedure [dbo].[sp_brisigranalplan]

Go
CREATE Procedure sp_BrisiGrAnalPlan
    @Sif_GrAnalPlan    nvarchar(30)
As
    Delete from GrAnalPlan
    Where Sif_GrAnalPlan=@Sif_GrAnalPlan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigranalplanst]'))
drop procedure [dbo].[sp_brisigranalplanst]

Go
CREATE Procedure sp_BrisiGrAnalPlanSt
    @Sif_GrAnalPlan    nvarchar(30)
AS
    Delete from GrAnalPLanSt
    Where Sif_GrAnalPlan=@Sif_GrAnalPlan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigrartdiv]'))
drop procedure [dbo].[sp_brisigrartdiv]

Go

create  procedure sp_BrisiGrArtDiv
@Sif_GrArt varchar(20)
as
Delete from GrArtDiv
where Sif_GrArt=@Sif_GrArt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigrkupdiv]'))
drop procedure [dbo].[sp_brisigrkupdiv]

Go
CREATE procedure sp_BrisiGrKupDiv
@Sif_GrKup varchar(20)
as
Delete from GrKupDiv
where sif_grkup=@Sif_GrKup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigrnar]'))
drop procedure [dbo].[sp_brisigrnar]

Go
CREATE PROCEDURE sp_BrisiGrNar
    @Sifra_GrNar    int
AS
    Delete From GrNar
    Where Sifra_GrNar=@Sifra_GrNar
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigrpat]'))
drop procedure [dbo].[sp_brisigrpat]

Go
CREATE PROCEDURE sp_BrisiGrPat
    @Sif_GrPat Char (6)
AS
    DELETE FROM GrPat
    WHERE Sif_GrPat=@Sif_GrPat
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigrpmarza]'))
drop procedure [dbo].[sp_brisigrpmarza]

Go
CREATE PROCEDURE sp_BrisiGrpMarza
    @Grupa_Marza    smallint
AS
    Delete From GrpMarza
    Where Grupa_Marza=@Grupa_Marza
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigsostav]'))
drop procedure [dbo].[sp_brisigsostav]

Go


CREATE  PROCEDURE  sp_BrisiGSostav
    @Sif_GrOrg    char(6),
    @Sifra_Art  varchar(20)
AS
    DELETE FROM GSostav WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Art = @Sifra_Art
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigstandiv]'))
drop procedure [dbo].[sp_brisigstandiv]

Go



CREATE   PROCEDURE sp_BrisiGstAnDiv
    @GstID        int,
    @AnID        int
AS
    if @GstID is not null and @AnId is not null
        delete from GstAnDiv
        where GStId = @GstID and AnId = @AnID
    else if @GstID is not null
        delete from GstAnDiv
        where GstId = @GstID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigstandivotvkniz]'))
drop procedure [dbo].[sp_brisigstandivotvkniz]

Go

CREATE       PROCEDURE sp_BrisiGstAnDivOtvKniz
    @GStID             int,
    @AnID             int

AS
    DELETE FROM GstAnDiv WHERE GStID = @GStId  AND AnID = @AnID

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigstav]'))
drop procedure [dbo].[sp_brisigstav]

Go

CREATE        PROCEDURE sp_BrisiGStav
    @GStID int
AS
    DELETE FROM GStav
    WHERE GStID = @GStID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisigstavso0iznos]'))
drop procedure [dbo].[sp_brisigstavso0iznos]

Go
CREATE PROCEDURE sp_BrisiGstavSo0Iznos
    @Sifra_Nal    smallint,
    @Broj_Nal    int
AS
DELETE FROM GStav WHERE Sifra_nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal
AND OdKade='S' AND Dolzi=0 AND Pobaruva=0 AND Dev_Dolzi=0 AND Dev_Pobaruva=0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisihilzni]'))
drop procedure [dbo].[sp_brisihilzni]

Go

CREATE PROCEDURE sp_BrisiHilzni
    @Sifra_Hilzna    smallint
AS
    Delete from Hilzni
    Where Sifra_Hilzna=@Sifra_Hilzna
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiinvpopis]'))
drop procedure [dbo].[sp_brisiinvpopis]

Go
CREATE PROCEDURE sp_BrisiInvPopis
    @Sifra_Oe    smallint,
    @BrojInvP    int
 AS
    Delete From InvPopis
    Where Sifra_Oe=@Sifra_Oe and BrojInvP=@BrojInvP
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikarakterist]'))
drop procedure [dbo].[sp_brisikarakterist]

Go
CREATE PROCEDURE sp_BrisiKarakterist
    @Sifra_Karakt    SMALLINT
AS
    DELETE FROM Karakterist WHERE Sifra_Karakt=@Sifra_Karakt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikartdepoz]'))
drop procedure [dbo].[sp_brisikartdepoz]

Go
-- WTRG --
CREATE       PROCEDURE sp_BrisiKartDepoz
   @Broj_Depoz Int
AS
    DELETE FROM KartDepoz WHERE Broj_Depoz = @Broj_Depoz




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikartkor]'))
drop procedure [dbo].[sp_brisikartkor]

Go
CREATE PROCEDURE sp_BrisiKartKor
    @Sifra_Oe    smallint,
    @Sifra_Kor    varchar(20)
AS
    Delete KartKor
    Where Sifra_Oe = @Sifra_Oe and Sifra_Kor = @Sifra_Kor
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikartkordetali]'))
drop procedure [dbo].[sp_brisikartkordetali]

Go




create        PROCEDURE sp_BrisiKartKorDetali
    @Sifra_Kor    varchar(20)
AS
    delete from KartKorDetali where Sifra_Kor = @Sifra_Kor
    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikartprom]'))
drop procedure [dbo].[sp_brisikartprom]

Go
CREATE PROCEDURE sp_BrisiKartProm
    @Sifra_Mark    smallint,
    @Sifra_Oe    smallint,
    @Broj_ska    int,
    @Sifra_Kor    varchar(20),
    @Sifra_Nac    smallint,
    @Datum_Ska    smalldatetime
AS
    Delete KartProm
    Where Sifra_Mark=@Sifra_Mark and Sifra_Oe=@Sifra_Oe and Broj_ska=@Broj_Ska and Sifra_Kor=@Sifra_Kor and Sifra_Nac=@Sifra_Nac and Datum_Ska=@Datum_Ska
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikasdnevn]'))
drop procedure [dbo].[sp_brisikasdnevn]

Go
CREATE PROCEDURE sp_BrisiKasDnevn
    @Sifra_Nal    smallint,
    @Broj_nal    int
 AS
    DELETE KasDnevn
    WHERE Sifra_Nal=@Sifra_Nal and Broj_Nal=@Broj_Nal
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikasstav]'))
drop procedure [dbo].[sp_brisikasstav]

Go
CREATE PROCEDURE sp_BrisiKasStav
    @KStaID    int
 AS
    DELETE KasStav
    WHERE KStaID = @KStaID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikasstav_dokrid]'))
drop procedure [dbo].[sp_brisikasstav_dokrid]

Go




CREATE    PROCEDURE sp_BrisiKasStav_DokrID
    @DokrID        int
AS
    Create Table #AnFinZaBris
        (    [AnId] [Integer]
        )
    Insert Into #AnFinZaBris
        select AnId from KasStav
        where DokrId=@DokrId and AnId is not Null and AnId <> 0
    Delete From AnZatv
    where ANID1 in (select AnId from #AnFinZaBris)
    Delete From AnZatv
    where ANID2 in (select AnId from #AnFinZaBris)
    -- Pazi redosledeot e vazen!
    Delete From KasStav Where DokrID=@DokrID
    Delete From AnFinDok
    where AnId in (select AnId from #AnFinZaBris)
     Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikasstav1]'))
drop procedure [dbo].[sp_brisikasstav1]

Go

Create  PROCEDURE sp_BrisiKasStav1
    @Sifra_Nal    smallint,
    @Broj_Nal    int
 AS
    DELETE KasStav
    WHERE Sifra_Nal=@Sifra_Nal and Broj_Nal=@Broj_Nal
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikasstavdetal]'))
drop procedure [dbo].[sp_brisikasstavdetal]

Go


create   PROCEDURE sp_BrisiKasStavDetal
    @KStaID    int
AS
    Delete From KasStavDetal Where KStaId = @KStaID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatart]'))
drop procedure [dbo].[sp_brisikatart]

Go
CREATE PROCEDURE sp_BrisiKatArt
    @Sifra_Art    varchar(20)
AS
DELETE FROM KatArt WHERE Sifra_Art=@Sifra_art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatartoem]'))
drop procedure [dbo].[sp_brisikatartoem]

Go

create   PROCEDURE sp_BrisiKatartOEM
    @Sifra_Art    varchar(20)

AS

    Delete From KatartOEM
    Where Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatasortlisti]'))
drop procedure [dbo].[sp_brisikatasortlisti]

Go

CREATE   PROCEDURE sp_BrisiKatAsortListi
    @Broj_ALista    smallint
As
    DELETE FROM KatAsortLista WHERE Broj_ALista=@Broj_ALista




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatkarakt]'))
drop procedure [dbo].[sp_brisikatkarakt]

Go
CREATE PROCEDURE sp_BrisiKatKarakt
    @Sifra_Art    VARCHAR(20)
AS
    DELETE FROM KatKarakt WHERE Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatlisti]'))
drop procedure [dbo].[sp_brisikatlisti]

Go

CREATE  PROCEDURE sp_BrisiKatListi
    @Broj_Lista    smallint
As
    DELETE FROM KatListi WHERE Broj_Lista=@Broj_Lista




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatpakuv]'))
drop procedure [dbo].[sp_brisikatpakuv]

Go

CREATE PROCEDURE [dbo].[sp_BrisiKatPakuv]
    @Sifra_Art        varchar(20),
    @Sifra_KatPak        smallint
 AS
    Delete From KatPakuv
    Where Sifra_Art=@Sifra_Art And Sifra_KatPak=@Sifra_KatPak
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatprior_vidobj]'))
drop procedure [dbo].[sp_brisikatprior_vidobj]

Go
CREATE PROCEDURE sp_BrisiKatPrior_VidObj
    @Sifra_Art    varchar(20)
AS
    Delete
    From KatPrior_VidObj
    Where Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatserbr]'))
drop procedure [dbo].[sp_brisikatserbr]

Go
CREATE   PROCEDURE sp_BrisiKatSerBr
    @KontrSer    varchar(25)
AS
    Delete From KatSerBr
    Where KontrSer=@KontrSer
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatserbranaliza]'))
drop procedure [dbo].[sp_brisikatserbranaliza]

Go
CREATE PROCEDURE sp_BrisiKatSerBrAnaliza
    @KontrSer    varchar(25)
AS
    Delete From KatSerBrAnaliza
    Where KontrSer=@KontrSer
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatserbrsta]'))
drop procedure [dbo].[sp_brisikatserbrsta]

Go
CREATE PROCEDURE sp_BrisiKatSerBrSta
    @KontrSer    varchar(25)
AS
    Delete From KatSerBrSta Where KontrSer=@KontrSer
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatserklas]'))
drop procedure [dbo].[sp_brisikatserklas]

Go


CREATE   PROCEDURE sp_BrisiKatSerKlas
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30)

AS

    Delete from KatSerKlas
    Where Sifra_Art = @Sifra_Art and KontrSer = @KontrSer

    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatsliki]'))
drop procedure [dbo].[sp_brisikatsliki]

Go
CREATE PROCEDURE sp_BrisiKatSliki
    @Sifra_Art    varchar(    20)
AS
    Delete From KatSliki
    Where Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatspecpakuv]'))
drop procedure [dbo].[sp_brisikatspecpakuv]

Go



CREATE    PROCEDURE sp_BrisiKatSpecPakuv
        @Sifra_Art    varchar(20)

AS

    Delete From KatSpecPakuv
    Where Sifra_Art=@Sifra_Art
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatspectipmat]'))
drop procedure [dbo].[sp_brisikatspectipmat]

Go



create    PROCEDURE sp_BrisiKatSpecTipMat
          @Sifra_TipMat        smallint
AS

    Delete From KatSpecTipMat
    Where Sifra_TipMat=@Sifra_TipMat
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikatvelicboja]'))
drop procedure [dbo].[sp_brisikatvelicboja]

Go
CREATE PROCEDURE sp_BrisiKatVelicBoja
    @Sifra_Art        varchar(20)
AS
DELETE FROM KatVelicBoja WHERE Sifra_Art=@Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikbanki]'))
drop procedure [dbo].[sp_brisikbanki]

Go

CREATE  PROCEDURE sp_BrisiKBanki
    @Sifra_Kup    char(6)
AS
    Delete From KBanki
    Where Sifra_Kup=@Sifra_Kup
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiklient]'))
drop procedure [dbo].[sp_brisiklient]

Go
CREATE procedure sp_BrisiKlient
    @Sif_Klient     integer
As
    Delete from Klienti
    Where Sif_klient=@Sif_Klient


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiklista]'))
drop procedure [dbo].[sp_brisiklista]

Go
CREATE PROCEDURE sp_BrisiKlista
    @Broj        int
AS
    Delete Klista
    Where Broj = @Broj
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiklistad]'))
drop procedure [dbo].[sp_brisiklistad]

Go
CREATE PROCEDURE sp_BrisiKlistaD
    @Broj        int
AS
    Delete KlistaD
    Where Broj=@Broj
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiknigatrg]'))
drop procedure [dbo].[sp_brisiknigatrg]

Go

CREATE PROCEDURE  sp_BrisiKnigaTrg
    @InterenBr   int
 AS
    DECLARE @Greska Int
    DELETE FROM KnigaTrg  WHERE InterenBr = @InterenBr
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikobjekti]'))
drop procedure [dbo].[sp_brisikobjekti]

Go
CREATE PROCEDURE sp_BrisiKObjekti
    @Sifra_Kup Char(6),
    @Sifra_Obj smallint
AS
DELETE FROM KObjekti
WHERE Sifra_Kup = @Sifra_Kup AND Sifra_Obj = @Sifra_Obj
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikobjsliki]'))
drop procedure [dbo].[sp_brisikobjsliki]

Go


CREATE    PROCEDURE sp_BrisiKObjSliki
    @Sifra_Obj    smallint,
    @Sifra_Kup varchar(20)
AS
    Delete From KObjSliki
    Where Sifra_Obj=@Sifra_Obj  and Sifra_Kup=@Sifra_Kup
    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikomintodgrkup]'))
drop procedure [dbo].[sp_brisikomintodgrkup]

Go

CREATE  procedure sp_BrisiKomintOdGrKup
    @Sif_GrKup as varchar(20),
    @Sifra_Kup as varchar(6)
As
    Delete From SGrKupObj
    Where Sif_Grkup=@Sif_Grkup and Sifra_Kup=@Sifra_Kup And Sifra_Obj Is Null




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikomintpat]'))
drop procedure [dbo].[sp_brisikomintpat]

Go
CREATE  PROCEDURE sp_BrisiKomintPat
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint
AS
    If @Sifra_Obj Is Not Null
        Delete From KomintPat
        Where Sifra_Kup=@Sifra_Kup And Sifra_Obj=@Sifra_Obj
    Else
        Delete From KomintPat
        Where Sifra_Kup=@Sifra_Kup And Sifra_Obj is null
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikomintpatpat]'))
drop procedure [dbo].[sp_brisikomintpatpat]

Go
CREATE   PROCEDURE sp_BrisiKomintPatPat
    @Sifra_Pat    smallint
AS
        Delete From KomintPat
        Where Sifra_Pat=@Sifra_Pat
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikomlimitdiv]'))
drop procedure [dbo].[sp_brisikomlimitdiv]

Go
create procedure sp_BrisiKomLimitDiv
    @Sifra_Kup char(6)
AS
    Delete from komLimitDiv
    Where Sifra_Kup=@Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikompenz]'))
drop procedure [dbo].[sp_brisikompenz]

Go

CREATE PROCEDURE sp_BrisiKompenz
    @Broj_Komp Int
AS
    DELETE [Kompenz]
    WHERE [Broj_Komp]=@Broj_Komp




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikompstav]'))
drop procedure [dbo].[sp_brisikompstav]

Go

CREATE PROCEDURE sp_BrisiKompStav
    @Broj_Komp Int
AS
    DELETE [KompStav]
    WHERE Broj_Komp=@Broj_Komp




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikomsliki]'))
drop procedure [dbo].[sp_brisikomsliki]

Go
CREATE  PROCEDURE sp_BrisiKomSliki
    @Sifra_Kup    varchar(    20)
AS
    Delete From KomSliki
    Where Sifra_Kup=@Sifra_kup
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikonfazurtros]'))
drop procedure [dbo].[sp_brisikonfazurtros]

Go




create   PROCEDURE sp_BrisiKonfAzurTros

AS
    delete from KonfAzurTros
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikonfceni]'))
drop procedure [dbo].[sp_brisikonfceni]

Go

CREATE PROCEDURE sp_BrisiKonfCeni
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Prim    Smallint
AS
DELETE FROM KonfCeni
WHERE Sifra_Dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikonta]'))
drop procedure [dbo].[sp_brisikonta]

Go
CREATE PROCEDURE sp_BrisiKonta
    @FiID    smallint,
    @RbrFi    smallint
AS
    Delete FiKonta
    Where FiID=@FiID and RbrFi=@RbrFi
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikredit]'))
drop procedure [dbo].[sp_brisikredit]

Go
CREATE procedure sp_BrisiKredit
    @Sifra_oe as smallint,
    @Broj_kredit as int
As
    Delete from Kredit
    Where  Sifra_oe=@Sifra_oe and Broj_kredit=@Broj_kredit



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikreditopomena]'))
drop procedure [dbo].[sp_brisikreditopomena]

Go

CREATE  procedure sp_BrisiKreditOpomena
    @Sifra_Oe smallint,
    @Broj_kredit int ,
    @Broj_Opomena int
As
    Delete from KreditOpomena
    Where Sifra_oe=@Sifra_oe and Broj_kredit=@Broj_kredit and Broj_Opomena=@Broj_Opomena




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikreditstavki]'))
drop procedure [dbo].[sp_brisikreditstavki]

Go

CREATE  procedure sp_BrisiKreditStavki
    @Sifra_Oe smallint ,
    @Broj_kredit int
As
    delete from KreditStavki
    Where Sifra_oe=@Sifra_oe and broj_kredit=@broj_kredit --and rbr_kredart=@rbr_kredart




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikredittransakc]'))
drop procedure [dbo].[sp_brisikredittransakc]

Go

CREATE  procedure sp_BrisiKreditTransakc
    @Sifra_Oe smallint,
    @Broj_kredit int

As

    Delete from KreditTransakc
    Where sifra_oe=@sifra_oe and broj_kredit=@broj_kredit





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikredittransakc_rbr]'))
drop procedure [dbo].[sp_brisikredittransakc_rbr]

Go


create procedure sp_BrisiKreditTransakc_Rbr
    @Sifra_Oe smallint,
    @Broj_kredit int,
    @Rbr_KreditTrans int

As

    Delete from KreditTransakc
    Where sifra_oe=@sifra_oe and broj_kredit=@broj_kredit and Rbr_KreditTrans = @Rbr_KreditTrans







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikreditvrskazatv]'))
drop procedure [dbo].[sp_brisikreditvrskazatv]

Go



create  procedure sp_BrisiKreditVrskaZatv
    @Sifra_Oe_1 smallint,
    @Broj_kredit_1 int,
    @Rbr_KreditTrans_1 int

As

    delete from KreditVrskaZatv
    where Sifra_Oe_1 = @Sifra_oe_1 and Broj_kredit_1 = @Broj_kredit_1
    and rbr_kredittrans_1 = @rbr_kredittrans_1

    return @@error








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikredtransakc]'))
drop procedure [dbo].[sp_brisikredtransakc]

Go



create   PROCEDURE  sp_BrisiKredTransakc
    @Sifra_Oe smallint,
    @Broj_kredit int,
        @Rbr_KreditTrans int
AS
    DELETE FROM KreditTransakc WHERE Sifra_oe=@Sifra_Oe AND Broj_Kredit = @Broj_Kredit  and Rbr_KreditTrans=@Rbr_KreditTrans
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikrsvaznost]'))
drop procedure [dbo].[sp_brisikrsvaznost]

Go
CREATE PROCEDURE sp_BrisiKrsVaznost
    @Datum    smalldatetime
AS
    DELETE [KrsVaznost]
    WHERE [Datum]=@Datum
Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisikstapki]'))
drop procedure [dbo].[sp_brisikstapki]

Go
CREATE PROCEDURE sp_BrisiKStapki
    @Datum_Od        smalldatetime
 AS
    Delete KStapki
    Where Datum_Od=@Datum_Od
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilayout]'))
drop procedure [dbo].[sp_brisilayout]

Go

CREATE PROCEDURE [dbo].[sp_BrisiLayOut]
    @Sifra_LayOut    int

AS

    DELETE    LayOut
    WHERE    Sifra_LayOut = @Sifra_LayOut

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilayoutelem]'))
drop procedure [dbo].[sp_brisilayoutelem]

Go

CREATE PROCEDURE [dbo].[sp_BrisiLayOutElem]
    @Sifra_LayOut        int

AS

    DELETE    LayOutElem
    WHERE    Sifra_LayOut = @Sifra_LayOut

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilayoutunit]'))
drop procedure [dbo].[sp_brisilayoutunit]

Go

create PROCEDURE [dbo].[sp_BrisiLayOutUnit]
    @Sifra_LayOutUnit    smallint

AS

    DELETE    LayOutUnit
    WHERE    Sifra_LayOutUnit = @Sifra_LayOutUnit

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilekari]'))
drop procedure [dbo].[sp_brisilekari]

Go

Create  PROCEDURE sp_BrisiLekari

    @Sifra_Lekar    char(6)
AS
    Delete From Lekari
    Where Sifra_Lekar=@Sifra_Lekar
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilogo]'))
drop procedure [dbo].[sp_brisilogo]

Go


CREATE  PROCEDURE sp_BrisiLogo
    @TipObr         varchar(2),
    @Sifra_OE    Smallint,
    @Sifra_Dok    Smallint
AS
DELETE FROM Logo
WHERE TipObr = @TipObr AND Sifra_OE = @Sifra_OE AND Sifra_Dok = @Sifra_Dok
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilokorg]'))
drop procedure [dbo].[sp_brisilokorg]

Go

create PROCEDURE [dbo].[sp_BrisiLokOrg]
    @Sifra_LokOrg    int

AS

    DELETE    LokOrg
    WHERE    Sifra_LokOrg = @Sifra_LokOrg

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilotser]'))
drop procedure [dbo].[sp_brisilotser]

Go
CREATE PROCEDURE sp_BrisiLotSer
    @SpecOzn    varchar(30)
AS
    Delete From LotSer
    Where SpecOzn=@SpecOzn
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilotser_podokrid]'))
drop procedure [dbo].[sp_brisilotser_podokrid]

Go


create PROCEDURE sp_BrisiLotSer_PoDokrId
    @DokrId    int
AS
    Delete From LotSer
    where SpecOzn in
    (select SpecOzn from MagStavr Where DokrId = @DokrId)
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilotser_podokrid_art]'))
drop procedure [dbo].[sp_brisilotser_podokrid_art]

Go


create PROCEDURE sp_BrisiLotSer_PoDokrId_Art
    @DokrId    int,
    @Sifra_Art varchar (20)
AS
    Delete From LotSer
    where Sifra_Art = @Sifra_Art
        and SpecOzn in
    (select SpecOzn from MagStavr Where DokrId = @DokrId)
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilpopis]'))
drop procedure [dbo].[sp_brisilpopis]

Go

CREATE PROCEDURE  sp_BrisiLPopis
    @IDPopis int,
    @Broj smallint
 AS
    DECLARE @Greska Int
    DELETE FROM LPopis WHERE IDPopis = @IDPopis  and Broj = @Broj
--   IF @@ERROR=0 AND @@ROWCOUNT=0
--      RETURN 77000
--   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilpopisos]'))
drop procedure [dbo].[sp_brisilpopisos]

Go


CREATE  PROCEDURE  sp_BrisiLPopisOS
    @IDPopisOS int,
    @Broj_Lista smallint
 AS
    DELETE FROM LPopisOS WHERE IDPopisOS = @IDPopisOS  and Broj_Lista = @Broj_Lista
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilpopisos_br]'))
drop procedure [dbo].[sp_brisilpopisos_br]

Go



CREATE   PROCEDURE  sp_BrisiLPopisOS_Br
    @Broj_Lista smallint
 AS
    DELETE FROM LPopisOS WHERE Broj_Lista = @Broj_Lista
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilstpartic]'))
drop procedure [dbo].[sp_brisilstpartic]

Go

Create  PROCEDURE sp_BrisiLstPartic

AS

    Delete From LstPartic
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilstparticmarza]'))
drop procedure [dbo].[sp_brisilstparticmarza]

Go



CREATE   PROCEDURE sp_BrisiLstParticMarza

AS

    Delete From LstPartic
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilstparticskala]'))
drop procedure [dbo].[sp_brisilstparticskala]

Go

create  PROCEDURE sp_BrisiLstParticSkala

AS

    Delete From LstParticSkala

    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisilstpoeniiznos]'))
drop procedure [dbo].[sp_brisilstpoeniiznos]

Go
Create  PROCEDURE sp_BrisiLstPoeniIznos

AS

    Delete From LstPoeniIznos

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimagstavr]'))
drop procedure [dbo].[sp_brisimagstavr]

Go
CREATE PROCEDURE sp_BrisiMagStavr
    @DokrID    int
AS
    Delete From MagStavr
    Where DokrID=@DokrID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimagstavr_art]'))
drop procedure [dbo].[sp_brisimagstavr_art]

Go

CREATE  PROCEDURE sp_BrisiMagStavr_Art
    @DokrID    int,
    @Sifra_Art varchar (20)
AS
    Delete From MagStavr
    Where DokrID = @DokrID and Sifra_Art = @Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimapartimport]'))
drop procedure [dbo].[sp_brisimapartimport]

Go
Create  procedure sp_BrisiMapArtImport
As
    Delete from MapArtImport
    return @@error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimasini]'))
drop procedure [dbo].[sp_brisimasini]

Go
CREATE PROCEDURE sp_BrisiMasini
    @Sifra_Mas    varchar(15)
AS
    Delete From Masini
    Where Sifra_Mas=@Sifra_Mas



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimatic]'))
drop procedure [dbo].[sp_brisimatic]

Go











CREATE           PROCEDURE sp_BrisiMatic
   @Sifra Varchar(20),    --Zaradi GTipKup, Inaku 6 e dovolno
   @Tabela Varchar(20)
AS
   DECLARE @Greska Int
   SET @Tabela = Upper(@Tabela)
    IF @Tabela=''
        Print ''
--    ELSE IF @Tabela='KATART'
--        DELETE FROM [KatArt]      WHERE Sifra_Art=@Sifra  trgnato vo nova procedura
    ELSE IF @Tabela='PODGRUPI'
        DELETE FROM [Podgrupi]  WHERE Sifra_Podg=@Sifra
    ELSE IF @Tabela='GRUPI'
        DELETE FROM [Grupi]      WHERE Sifra_Gr=@Sifra
    ELSE IF @Tabela='TARIFI'
        DELETE FROM [Tarifi]    WHERE Sifra_Tar=@Sifra
    ELSE IF @Tabela='KOMINT'
        DELETE FROM [Komint]     WHERE Sifra_Kup=@Sifra
    ELSE IF @Tabela='ANAL'
        DELETE FROM [ANAL]   WHERE Kto_Anal=@Sifra
    ELSE IF @Tabela='GTIPKUP'
        DELETE FROM [GTIPKUP]   WHERE TipKup=@Sifra
    ELSE IF @Tabela='MARKETI'
        DELETE FROM [Marketi]    WHERE Sifra_Mark=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='ORGED'
        DELETE FROM [Orged]  WHERE Sifra_OE=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='TARIFI'
        DELETE FROM [Tarifi] WHERE Sifra_Tar=@Sifra
    ELSE IF @Tabela='GREGION'
        DELETE FROM [GRegion]  WHERE Sifra_Reg=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='PATNICI'
        DELETE FROM [Patnici]   WHERE Sifra_Pat=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRGPODEL'
        DELETE FROM [DrgPodel]    WHERE Sifra_Drg=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='GRORG'
        DELETE FROM [GrOrg] WHERE Sif_GrOrg=@Sifra
    ELSE IF @Tabela='SGRORG'
          DELETE FROM [SGrOrg] WHERE Sif_GrOrg=@Sifra
        ELSE IF @Tabela='GRPAT'
        DELETE FROM [GrPat] WHERE Sif_GrPat=@Sifra
        ELSE IF @Tabela='SGRPAT'
          DELETE FROM [SGrPat] WHERE Sif_GrPat=@Sifra
    ELSE IF @Tabela='DRGPODEL1'
        DELETE FROM [DrgPodel1]  WHERE Sifra_Drg1=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO1'
        DELETE FROM [Drugo1]  WHERE Sifra_1=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO2'
        DELETE FROM [Drugo2]  WHERE Sifra_2=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO3'
        DELETE FROM [Drugo3]  WHERE Sifra_3=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO4'
        DELETE FROM [Drugo4]  WHERE Sifra_4=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO5'
        DELETE FROM [Drugo5]  WHERE Sifra_5=Cast(@Sifra As Smallint)
        ELSE IF @Tabela='DRUGO6'
        DELETE FROM [Drugo6]  WHERE Sifra_6=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='DRUGO7'
        DELETE FROM [Drugo7]  WHERE Sifra_7=Cast(@Sifra As Smallint)
        ELSE IF @Tabela='KDRUGO1'
        DELETE FROM [KDrugo1]  WHERE Sifra_1K=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KDRUGO2'
        DELETE FROM [KDrugo2]  WHERE Sifra_2K=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KDRUGO3'
        DELETE FROM [KDrugo3]  WHERE Sifra_3K=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KDRUGO4'
        DELETE FROM [KDrugo4]  WHERE Sifra_4K=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KDRUGO5'
        DELETE FROM [KDrugo5]  WHERE Sifra_5K=Cast(@Sifra As Smallint)
        ELSE IF @Tabela='KDRUGO6'
        DELETE FROM [KDrugo6]  WHERE Sifra_6K=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KDRUGO7'
        DELETE FROM [KDrugo7]  WHERE Sifra_7K=Cast(@Sifra As Smallint)
        ELSE IF @Tabela='KRSLISTA'
        DELETE FROM [KrsLista]  WHERE SImeVal=@Sifra
    ELSE IF @Tabela='CBROEVI'
        DELETE FROM [CBroevi]  WHERE CarBroj=@Sifra
    ELSE IF @Tabela='TIPNARAC'
        DELETE FROM [TipNarac]  WHERE Sifra_Nar=Cast(@Sifra As Smallint)
    ELSE IF @Tabela = 'NIVO'
        DELETE FROM Nivo WHERE Sifra_Nivo = @Sifra
    ELSE IF @Tabela='TIPNAL'
        DELETE FROM TIPNAL   WHERE Sifra_nal=@Sifra
    ELSE IF @Tabela='TIPDOK'
          DELETE FROM TIPDOK   WHERE Sifra_dok=@Sifra
    ELSE IF @Tabela='KLAS'
          DELETE FROM KLAS   WHERE Kto_Klas=@Sifra
    ELSE IF @Tabela='SINT'
          DELETE FROM SINT   WHERE Kto_Sint=@Sifra
    ELSE IF @Tabela='GRANAL'
          DELETE FROM GRANAL   WHERE Kto_GrAn=@Sifra
    ELSE IF @Tabela='GRNAR'
          DELETE FROM GRNAR   WHERE Sifra_GrNar=@Sifra
    ELSE IF @Tabela='BANKI'
          DELETE FROM BANKI   WHERE Sifra_Ban=@Sifra
    ELSE IF @Tabela='FIXTEKST'
          DELETE FROM FIXTEKST   WHERE Sifra_FixTekst=@Sifra
    ELSE IF @Tabela='FIXTEKSTN'
          DELETE FROM FIXTEKSTN   WHERE Sifra_FixTekst=@Sifra
    ELSE IF @Tabela='PRODMEST'
          DELETE FROM PRODMEST   WHERE Sifra_Mest=@Sifra
    ELSE IF @Tabela='TIPPERCENOVNIK'
          DELETE FROM TipPerCenovnik WHERE Sifra_TipC=@Sifra
    ELSE IF @Tabela='UCESDENOVI'
        DELETE FROM [UCESDENOVI]  WHERE Denovi=Cast(@Sifra As Smallint)
    ELSE IF @Tabela='KATGAMB'
        DELETE FROM [KATGAMB]  Where Sifra_GAmb=@Sifra
    ELSE IF @Tabela='KATAMB'
        DELETE FROM [KATAMB]  Where Sifra_Amb=@Sifra
    ELSE IF @Tabela='LOKACIJA'
        DELETE FROM [LOKACIJA]  Where Sifra_Lok=@Sifra
    ELSE IF @Tabela='AMORGRP'
        DELETE FROM [AMORGRP]  Where Sifra_Amor=@Sifra
    ELSE IF @Tabela='OSNSRED'
        DELETE FROM [OSNSRED]  Where Inv_Broj=@Sifra
    ELSE IF @Tabela='MAKROLOK'
        DELETE FROM [MAKROLOK]  Where Sifra_MakLok=@Sifra
    ELSE IF @Tabela='MIKROLOK'
        DELETE FROM [MIKROLOK]  Where Sifra_MikLok=@Sifra
    ELSE IF @Tabela='RABOTNIK'
        DELETE FROM [RABOTNIK]  Where Sifra_Rab=@Sifra
    ELSE IF @Tabela='GRAD'
        DELETE FROM [GRAD]  Where Sifra_Grad=@Sifra
    ELSE IF @Tabela='DOZNAKI'
        DELETE FROM [Doznaki]  Where Broj_Doznaka=@Sifra
    ELSE IF @Tabela='PREVOZNIK'
        DELETE FROM [Prevoznik]  Where Sifra_Prev=@Sifra
    ELSE IF @Tabela='OPSTINI'
        DELETE FROM [Opstini]  Where Sif_Opstina=@Sifra
    ELSE IF @Tabela='PROGRAMI'
        DELETE FROM [Programi]  Where Sif_Progr=@Sifra
    ELSE IF @Tabela='PRIMATELI'
        DELETE FROM [Primateli]  Where Sif_Primatel=@Sifra
    ELSE IF @Tabela='ZADRSKI'
        DELETE FROM [Zadrski]  Where Sif_Zadr=@Sifra
    ELSE IF @Tabela='PODMES'
        DELETE FROM [PodMes]  Where GodMes=@Sifra
    ELSE IF @Tabela='PODGOD'
        DELETE FROM [PodGod]  Where Godina=@Sifra
    ELSE IF @Tabela='ZARAB'
        DELETE FROM [Zarab]  Where Sif_Zarab=@Sifra
    ELSE IF @Tabela='ZARIZVEDOSNOVICI'
        DELETE FROM [ZarIzvedOsnovici]  Where Sif_ZarabIzv=@Sifra
    ELSE IF @Tabela='INTERNIKART'
        DELETE FROM [InterniKart]  Where Interna_Kart=@Sifra
    ELSE IF @Tabela='NACPLAK'
        DELETE FROM [NacPlak]  Where Sifra_Nac=@Sifra
    ELSE IF @Tabela='OPERATORI'
        DELETE FROM [Operatori]  Where Sifra_Oper=@Sifra
    ELSE IF @Tabela = 'FIRMI'
        DELETE FROM Firmi  WHERE Sifra_Firma=@Sifra
    ELSE IF @Tabela = 'NACINPRESMZ'
        DELETE FROM NacinPresmZ  WHERE Sif_NacPresZ=@Sifra
    ELSE IF @Tabela = 'GRPIZBOR'
        DELETE FROM GrpIzbor  WHERE Sifra_GrpIzb=@Sifra
    ELSE IF @Tabela = 'VIDVOZILA'
        DELETE FROM VidVozila  WHERE Sifra_Vid_Voz=@Sifra
    ELSE IF @Tabela = 'DIVIZII'
        DELETE FROM Divizii  WHERE Sifra_Div=@Sifra
    ELSE IF @Tabela = 'NIVOCENIKARTKOR'
        DELETE FROM NivoCeniKartKor  WHERE Sifra_CeniKartKor=@Sifra
    ELSE IF @Tabela = 'TIPKARTKOR'
        DELETE FROM TipKartKor  WHERE Sifra_TipKartKor=@Sifra
    ELSE IF @Tabela = 'GRUPIOPER'
        DELETE FROM GrupiOper  WHERE Sifra_GrOper=@Sifra
    ELSE IF @Tabela = 'RELACISPOR'
        DELETE FROM RelacIspor  WHERE Sifra_RelIspor=@Sifra
    ELSE IF @Tabela = 'VIDPRODOBJ'
        DELETE FROM VidProdObj  WHERE Sifra_VPJ=@Sifra
    ELSE IF @Tabela = 'TIPKOMINT'
        DELETE FROM TipKomint  WHERE Sifra_tip=@Sifra
    ELSE IF @Tabela = 'AKCIIPROMO'
        DELETE FROM AkciiPromo  WHERE Ozn_Akcija=@Sifra
    ELSE IF @Tabela = 'AKCIIPROMOSTA'
        DELETE FROM AkciiPromoSta  WHERE Ozn_Akcija=@Sifra
    ELSE IF @Tabela = 'GRUPAWEB'
        DELETE FROM GrupaWeb  WHERE Sifra_GrWeb=@Sifra
    ELSE IF @Tabela = 'PODGRWEB'
        DELETE FROM PodgrWeb  WHERE Sifra_PodgrWeb=@Sifra
    ELSE IF @Tabela = 'KATSTATUS'
        DELETE FROM KatStatus  WHERE Sifra_KatStatus=@Sifra
    ELSE IF @Tabela = 'TIPKATPAKUV'
        DELETE FROM TipKatPakuv  WHERE Sifra_KatPak=@Sifra
    ELSE IF @Tabela='VIDDOG'
        DELETE FROM VidDog    WHERE Sifra_VidDog=@Sifra
    ELSE IF @Tabela='VERNTRAENJE'
        DELETE FROM VernTraenje    WHERE Sifra_Vernost=@Sifra
    ELSE IF @Tabela='TARMODEL'
        DELETE FROM TarModel    WHERE Sifra_TarModel=@Sifra
    ELSE IF @Tabela='KARAKTERIST'
        DELETE FROM Karakterist    WHERE Sifra_Karakt=@Sifra
    ELSE IF @Tabela='TIPKARAKT'
        DELETE FROM TipKarakt    WHERE Sifra_7=@Sifra
    ELSE IF @Tabela='CRRKodovi'
        DELETE FROM CRRKodovi    WHERE Sifra_Crr=@Sifra
    ELSE IF @Tabela='FORMULADEF'
        DELETE FROM FormulaDef   WHERE Sifra_Formula=@Sifra
    ELSE IF @Tabela='KREDITSTATUS'
        DELETE FROM kreditStatus   WHERE Status_kredit=@Sifra
    ELSE IF @Tabela='KREDITTIPOPOMENA'
        DELETE FROM KreditTipOpomena   WHERE Tip_Opomena=@Sifra
    ELSE IF @Tabela='OSNGRPODEL'
        DELETE FROM OsnGrPodel   WHERE Sifra_OsnGrPodel=@Sifra
    ELSE IF @Tabela='TROSOKMESTO'
        DELETE FROM TrosokMesto   WHERE Sifra_TrosM = @Sifra
    ELSE IF @Tabela='TROSOKVID'
        DELETE FROM TrosokVid   WHERE Sifra_TrosV = @Sifra
    ELSE IF @Tabela='TROSOK4TIP'
        DELETE FROM Trosok4Tip   WHERE Sifra_4Tros = @Sifra
    ELSE IF @Tabela='GRKUP'
        DELETE FROM [GrKUP] WHERE Sif_GrKUP=@Sifra
    ELSE IF @Tabela='SGRKUP'
          DELETE FROM [SGrKUP] WHERE Sif_GrKUP=@Sifra
    ELSE IF @Tabela='PROEKT'
          DELETE FROM [Proekt] WHERE Broj_Proekt=@Sifra
    ELSE IF @Tabela = 'TIPPRODMESTO'
        DELETE FROM [TIPPRODMESTO] WHERE Sif_TipProdM = @Sifra
    ELSE IF @TABELA='RABKALENDAR'
            DELETE FROM [RABKALENDAR] WHERE Datum=@Sifra
    ELSE IF @TABELA='SPREMAC'
            DELETE FROM [SPREMAC] WHERE Sif_Spremac=@Sifra
    ELSE IF @Tabela='GRART'
        DELETE FROM [GrART] WHERE Sif_GrART=@Sifra
    ELSE IF @Tabela='SGRART'
          DELETE FROM [SGrART] WHERE Sif_GrArt=@Sifra
    ELSE IF @Tabela='FAZI'
          DELETE FROM [Fazi] WHERE Sifra_Faza=@Sifra
    ELSE IF @Tabela='Boja'
          DELETE FROM Boja WHERE Sifra_Boja=@Sifra
    ELSE IF @Tabela='Dnevnik'
          DELETE FROM Dnevnik WHERE IDDnevnik=@Sifra
    ELSE IF @Tabela='KatPodSifra'
          DELETE FROM KatPodSifra WHERE Sifra_Art=@Sifra
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimatic_mk]'))
drop procedure [dbo].[sp_brisimatic_mk]

Go

CREATE PROCEDURE sp_BrisiMatic_MK
   @Sifra nVarchar(20),
   @Tabela Varchar(20)
AS
   DECLARE @Greska Int
   SET @Tabela = Upper(@Tabela)
    IF @Tabela=''
        Print ''
    ELSE IF @Tabela='KATHIER'
        DELETE FROM [KatHier] WHERE Sifra_KHier=@Sifra
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimckatpoz]'))
drop procedure [dbo].[sp_brisimckatpoz]

Go

create          PROCEDURE [dbo].[sp_BrisiMCKatPoz]
    @Sif_MCPozicija int
AS
    DELETE
    FROM    MCKatPozicija
    WHERE    Sif_MCPozicija = @Sif_MCPozicija






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimclista]'))
drop procedure [dbo].[sp_brisimclista]

Go
create  PROCEDURE [dbo].[sp_BrisiMCLista]
    @Br_MCLista    smallint,
    @Sif_MCPozicija    smallint
AS

    DELETE
    FROM    MCLista
    WHERE    Br_MCLista = @Br_MCLista AND Sif_MCPozicija = @Sif_MCPozicija
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimerenjazaart]'))
drop procedure [dbo].[sp_brisimerenjazaart]

Go


CREATE  PROCEDURE sp_BrisiMerenjaZaArt
    @Sifra_Kup    char(6),
    @Datum        smalldatetime,
    @Sifra_Art    varchar(20)
AS
    DELETE FROM MerenjaZaArt
    WHERE Sifra_Kup = @Sifra_Kup and Datum=@Datum and Sifra_Art=@Sifra_Art
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimmozalzaorged]'))
drop procedure [dbo].[sp_brisimmozalzaorged]

Go





create     PROCEDURE  sp_BrisiMMOZalZaOrgEd
    @Sifra_Oe    smallint,
        @Sifra_Art    varchar(20)
AS
    DELETE FROM OptZalPoOe WHERE Sifra_Oe=@Sifra_Oe and Sifra_Art=@Sifra_Art
    RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisimozevlez]'))
drop procedure [dbo].[sp_brisimozevlez]

Go

CREATE PROCEDURE  sp_BrisiMozeVlez
    @Sifra_Art  varchar(20)
AS
    DECLARE @Greska Int
    DELETE FROM MozeVlez  WHERE Sifra_Art = @Sifra_Art
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinadvkor]'))
drop procedure [dbo].[sp_brisinadvkor]

Go
CREATE PROCEDURE sp_BrisiNadvKor
    @KorIme    varchar(15)
 AS
    Delete NadvKor
    Where KorIme=@KorIme
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinalozi]'))
drop procedure [dbo].[sp_brisinalozi]

Go

CREATE PROCEDURE sp_BrisiNalozi
   @Sifra_Nal Smallint,
   @Broj_Nal int
AS
   DELETE FROM [Nalozi]
   WHERE [Sifra_Nal]=@Sifra_Nal AND [Broj_Nal]=@Broj_Nal
   RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinaplata]'))
drop procedure [dbo].[sp_brisinaplata]

Go
CREATE PROCEDURE sp_BrisiNaplata
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Delete From Naplata
    Where Sifra_OE=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinaracki]'))
drop procedure [dbo].[sp_brisinaracki]

Go

CREATE PROCEDURE sp_BrisiNaracki
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int
AS
DELETE [Naracki]
WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinaracki_narid]'))
drop procedure [dbo].[sp_brisinaracki_narid]

Go

CREATE  PROCEDURE sp_BrisiNaracki_NarID
    @NarID        int
AS
    Delete From StaNarac Where NarID=@NarID
    Delete From StaNeReal Where NarID=@NarID
    Delete From Naracki Where NarID=@NarID
     Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinarreal]'))
drop procedure [dbo].[sp_brisinarreal]

Go
CREATE PROCEDURE sp_BrisiNarReal
    @DokrID int
AS
DELETE FROM NarReal
WHERE DokrID = @DokrID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisingbillcodes]'))
drop procedure [dbo].[sp_brisingbillcodes]

Go
CREATE PROCEDURE sp_BrisiNGBillCodes
    @Sifra_BillCode    char(10)
AS
    Delete From NGBillCodes
    Where Sifra_BillCode=@Sifra_BillCode
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisingcoursetype]'))
drop procedure [dbo].[sp_brisingcoursetype]

Go
CREATE PROCEDURE sp_BrisiNGCourseType
    @Sifra_CourseType    char(10)
AS
    Delete From NGCourseType
    Where Sifra_CourseType=@Sifra_CourseType
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisingfamilija]'))
drop procedure [dbo].[sp_brisingfamilija]

Go
CREATE PROCEDURE sp_BrisiNGFamilija
    @Sifra_Famil    char(20)
AS
    Delete From NGFamilija
    Where Sifra_Famil=@Sifra_Famil
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinginvoice]'))
drop procedure [dbo].[sp_brisinginvoice]

Go
CREATE PROCEDURE sp_BrisiNGInvoice
    @Sifra_Oe    smallint,
    @Broj_Inv    int
AS
    Delete From NGInvoice
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinginvoicestasite]'))
drop procedure [dbo].[sp_brisinginvoicestasite]

Go
CREATE PROCEDURE sp_BrisiNGInvoiceStaSite
    @Sifra_Oe        smallint,
    @Broj_Inv        int
AS
    Delete From NGInvoiceSta
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisinginvoicestastavka]'))
drop procedure [dbo].[sp_brisinginvoicestastavka]

Go
CREATE PROCEDURE sp_BrisiNGInvoiceStaStavka
    @Sifra_Oe        smallint,
    @Broj_Inv        int,
    @RbrStavka        smallint
AS
    Delete From NGInvoiceSta
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv And RbrStavka=@RbrStavka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisingschoolyear]'))
drop procedure [dbo].[sp_brisingschoolyear]

Go

create  PROCEDURE sp_BrisiNGSchoolYear

    @Sifra_SchoolYear    char(10)

AS

    Delete From NGSchoolYear
    Where Sifra_SchoolYear = @Sifra_SchoolYear

    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisingstudents]'))
drop procedure [dbo].[sp_brisingstudents]

Go
CREATE PROCEDURE sp_BrisiNGStudents
    @Sifra_Student    char(6)
AS
    Delete From NGStudents
    Where Sifra_Student=@Sifra_Student
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiobjektodgrkup]'))
drop procedure [dbo].[sp_brisiobjektodgrkup]

Go



CREATE    procedure sp_BrisiObjektOdGrKup
    @Sif_GrKup as varchar(20),
    @Sifra_Kup as varchar(6),
    @Sifra_Obj smallint
As
    If @Sifra_Obj = '' or @Sifra_Obj Is Null
        Delete From SGrKupObj
        Where Sif_Grkup=@Sif_Grkup and Sifra_Kup=@Sifra_Kup and Sifra_Obj Is Null
    Else
        Delete From SGrKupObj
        Where Sif_Grkup=@Sif_Grkup and Sifra_Kup=@Sifra_Kup and Sifra_Obj=@Sifra_Obj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisioblast]'))
drop procedure [dbo].[sp_brisioblast]

Go

CREATE PROCEDURE [dbo].[sp_BrisiOblast]
    @Sifra_Oblast    varchar(10)

AS

    DELETE    Oblast
    WHERE    Sifra_Oblast = @Sifra_Oblast

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiogrart]'))
drop procedure [dbo].[sp_brisiogrart]

Go
CREATE  PROCEDURE [dbo].[sp_BrisiOgrArt]
    @Sifra_GrKor    varchar(20),
    @Tip_Podelba    char(1)

AS
    DELETE
    FROM    OgrArt
    WHERE    Sifra_GrKor = @Sifra_GrKor AND Tip_Podelba = @Tip_Podelba

    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisioptzalpooe]'))
drop procedure [dbo].[sp_brisioptzalpooe]

Go
CREATE PROCEDURE sp_BrisiOptZalPoOe
    @Sifra_Art    varchar(20)
AS
    Delete From OptZalPoOe
    Where Sifra_Art = @Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiosnovosig]'))
drop procedure [dbo].[sp_brisiosnovosig]

Go

CREATE PROCEDURE sp_BrisiOsnovOsig

    @Sifra_OsnovOsig    char(2)
AS
    Delete From OsnovOsig
    Where Sifra_OsnovOsig=@Sifra_OsnovOsig
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiosnpodelbi]'))
drop procedure [dbo].[sp_brisiosnpodelbi]

Go






CREATE      PROCEDURE  sp_BrisiOsnPodelbi
    @Sifra_OsnGrPodel smallint,
    @Sifra_OsnPodel smallint

AS
    DELETE FROM OsnPodelbi WHERE Sifra_OsnGrPodel=@Sifra_OsnGrPodel and Sifra_OsnPodel = @Sifra_OsnPodel
    RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiosnpodelsta]'))
drop procedure [dbo].[sp_brisiosnpodelsta]

Go




create    PROCEDURE  sp_BrisiOsnPodelSta
    @Inv_Broj    char(10)
AS
    DELETE FROM OsnPodelSta WHERE Inv_Broj=@Inv_Broj
    RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiotkrojsema]'))
drop procedure [dbo].[sp_brisiotkrojsema]

Go
CREATE PROCEDURE sp_BrisiOtkrojSema
    @Sifra_Otkr    smallint
 AS
    Delete From OtkrojSema
    Where Sifra_Otkr=@Sifra_Otkr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisioznaka]'))
drop procedure [dbo].[sp_brisioznaka]

Go
CREATE PROCEDURE [dbo].[sp_BrisiOznaka]
    @Sifra_Art    VarChar(20),
    @Ozn    VarChar(20)
AS

    DELETE
    FROM    DeklArtVrska
    WHERE    Sifra_Art = @Sifra_Art AND Ozn_Grupa = @Ozn

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipacienti]'))
drop procedure [dbo].[sp_brisipacienti]

Go

CREATE PROCEDURE sp_BrisiPacienti

    @EMBG        char(13)
AS
    Delete From Pacienti
    Where EMBG=@EMBG
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipaklista]'))
drop procedure [dbo].[sp_brisipaklista]

Go
CREATE  PROCEDURE sp_BrisiPakLista
    @Sifra_OE smallint,
    @Mesto_Pak smallint,
    @Sifra_Pak smallint,
    @Broj_Pak smallint
AS
DELETE [PakLista]  WHERE Sifra_OE=@Sifra_OE AND Mesto_Pak=@Mesto_Pak AND Sifra_Pak=@Sifra_Pak AND Broj_Pak=@Broj_Pak



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipaklistastav]'))
drop procedure [dbo].[sp_brisipaklistastav]

Go
CREATE  PROCEDURE sp_BrisiPakListaStav
    @Sifra_OE    smallint,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint,
    @Broj_Pak    int
 AS
DELETE [PakListaStav]     WHERE Sifra_OE=@Sifra_OE and  Mesto_Pak=@Mesto_Pak AND Sifra_Pak=@Sifra_Pak AND Broj_Pak=@Broj_Pak



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipakuvart]'))
drop procedure [dbo].[sp_brisipakuvart]

Go

create PROCEDURE  sp_BrisiPakuvArt
    @Broj_DokPak   int
AS
    DELETE FROM PakuvArt
        WHERE Broj_DokPak = @Broj_DokPak
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipercenceni]'))
drop procedure [dbo].[sp_brisipercenceni]

Go
CREATE PROCEDURE  sp_BrisiPerCenCeni
    @Sifra_TipC    smallint,
    @Datum_Od    smalldatetime
 AS
    DELETE FROM PerCenCeni WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipercenceniredov]'))
drop procedure [dbo].[sp_brisipercenceniredov]

Go

CREATE  PROCEDURE  sp_BrisiPerCenCeniRedov
    @Sifra_TipC    smallint,
    @Datum_Od    smalldatetime
AS
DELETE FROM PerCenCeniRedov WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanbudzet]'))
drop procedure [dbo].[sp_brisiplanbudzet]

Go



create    PROCEDURE sp_BrisiPlanBudzet
    @Godina    smallint
 AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL = 'Delete from PlanBudzet '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' where Godina = ' + cast(@Godina as varchar(4)) + ' '
    Exec(@SSQL)
    Return @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanmes]'))
drop procedure [dbo].[sp_brisiplanmes]

Go


CREATE   PROCEDURE sp_BrisiPlanMes
    @Godina    smallint,
    @Mesec    smallint,
    @Sifra_oe smallint,
    @Sifra_Art Varchar(20),
        @ImePlan VarChar(10)
 AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL = 'Delete [PlanMes]  Where Sifra_oe = ' + cast(@SifrA_oe as varchar(5)) + ' '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And Godina = ' + cast(@Godina as varchar(4)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Sifra_Art Is Not Null
        Set @SSQL=@SSQL+ ' And Sifra_art = ''' + @Sifra_art + ''' '
    Set @SSQL=@SSQL+ ' And ImePlan = ''' + @ImePlan + ''' '
    Exec(@SSQL)
--    Where Godina=@Godina and Mesec=@Mesec and Sifra_art=@Sifra_Art
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanmespodel]'))
drop procedure [dbo].[sp_brisiplanmespodel]

Go




CREATE     PROCEDURE [dbo].[sp_BrisiPlanMesPodel]
    @Godina            smallint,
    @Mesec            smallint,
    @Sifra_oe        smallint,
    @Sifra_Podel    nVarchar(20) = NULL,
    @ImePlan        VarChar(10) = NULL,
    @KojaPodel        VarChar(10)

 AS

    Declare @SSQL As Varchar(2000)
    Set @SSQL = 'Delete [PlanMesPodel]  Where Sifra_oe = ' + cast(@SifrA_oe as varchar(5)) + ' '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And Godina = ' + cast(@Godina as varchar(4)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Sifra_Podel Is Not Null
        Set @SSQL=@SSQL+ ' And Sifra_Podel = ''' + @Sifra_Podel + ''' '
    IF @ImePlan IS NOT NULL
        Set @SSQL=@SSQL+ ' And ImePlan = ''' + @ImePlan + ''' '
    Set @SSQL=@SSQL+ ' And KojaPodel = ''' + @KojaPodel + ''' '
    Exec(@SSQL)
--    Where Godina=@Godina and Mesec=@Mesec and Sifra_art=@Sifra_Art
    Return @@Error






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanpat]'))
drop procedure [dbo].[sp_brisiplanpat]

Go
CREATE PROCEDURE sp_BrisiPlanPat
    @Sifra_Plan    smallint,
    @Mesec    smallint,
    @Godina    smallint
AS
    Delete From PlanPat
    Where Sifra_Plan=@Sifra_Plan And Mesec=@Mesec And Godina=@Godina
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanper]'))
drop procedure [dbo].[sp_brisiplanper]

Go
CREATE PROCEDURE sp_BrisiPlanPer
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint
AS
If @Sifra_Obj IS NULL
    DELETE PlanPer  WHERE Sifra_Kup = @Sifra_Kup
Else
    DELETE PlanPer  WHERE Sifra_Kup = @Sifra_Kup AND Sifra_Obj =@Sifra_Obj
Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanpro]'))
drop procedure [dbo].[sp_brisiplanpro]

Go
CREATE PROCEDURE sp_BrisiPlanPro
    @Sif_GrOrg char(6),
    @Sifra_Nar smallint,
    @Broj_Plan char(10)
AS
DELETE FROM PlanPro WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Nar=@Sifra_Nar AND Broj_Plan=@Broj_Plan
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiplanprosta]'))
drop procedure [dbo].[sp_brisiplanprosta]

Go
CREATE PROCEDURE sp_BrisiPlanProSta
    @Sif_GrOrg char(6),
    @Sifra_Nar smallint,
    @Broj_Plan char(10)
AS
DELETE FROM PlanProSta  WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Nar=@Sifra_Nar AND Broj_Plan=@Broj_Plan




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipocnabceni]'))
drop procedure [dbo].[sp_brisipocnabceni]

Go
CREATE PROCEDURE sp_BrisiPocNabCeni
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20)
AS
    Delete From PocNabCeni
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipocsostosn]'))
drop procedure [dbo].[sp_brisipocsostosn]

Go
CREATE PROCEDURE sp_BrisiPocSostOsn
    @Inv_Broj    char(10),
    @Godina    smallint
AS
    Delete From PocSostOsn
    Where Inv_Broj=@Inv_Broj and Godina=@Godina
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipocsostosngod]'))
drop procedure [dbo].[sp_brisipocsostosngod]

Go

CREATE  PROCEDURE sp_BrisiPocSostOsnGod
    @Godina    smallint
AS
    Delete From PocSostOsn Where Godina=@Godina AND Prenos='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipodelartkomusl]'))
drop procedure [dbo].[sp_brisipodelartkomusl]

Go

create  PROCEDURE sp_BrisiPodelArtKomUsl
    @Sifra_Kanal     smallint,
    @Sifra_Kup     char(6),
    @PodelKupKomerc nvarchar(20),
    @Sifra_Art     varchar(20),
    @PodelArtKomerc nvarchar(20)
AS
    Delete From PodelArtKomUsl
    Where Sifra_Kanal=@Sifra_Kanal and Sifra_Kup=@Sifra_Kup and PodelKupKomerc=@PodelKupKomerc and Sifra_Art=@Sifra_Art and PodelArtKomerc=@PodelArtKomerc
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipodoblast]'))
drop procedure [dbo].[sp_brisipodoblast]

Go

CREATE PROCEDURE [dbo].[sp_BrisiPodOblast]
    @Sifra_PodOblast    varchar(10)

AS

    DELETE    PodOblast
    WHERE    Sifra_PodOblast = @Sifra_PodOblast

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipodracnisluzbi]'))
drop procedure [dbo].[sp_brisipodracnisluzbi]

Go

CREATE PROCEDURE sp_BrisiPodracniSluzbi

    @Sifra_PodrSluzba    char(4)
AS
    Delete From PodracniSluzbi
    Where Sifra_PodrSluzba=@Sifra_PodrSluzba
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipombrdok]'))
drop procedure [dbo].[sp_brisipombrdok]

Go


create   PROCEDURE sp_BrisiPomBrDok
    @KodObr        varchar(50),
    @KodOperator    varchar(50)

AS

    Delete From PomBrojDok
    Where KodObr = @KodObr and KodOperator = @KodOperator





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopis]'))
drop procedure [dbo].[sp_brisipopis]

Go

CREATE PROCEDURE  sp_BrisiPopis
    @Sifra_OE smallint,
    @Datum smalldatetime
 AS
    DECLARE @Greska Int
    DELETE FROM Popis WHERE Sifra_OE = @Sifra_OE and Datum = @Datum
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopisdok]'))
drop procedure [dbo].[sp_brisipopisdok]

Go
CREATE PROCEDURE sp_BrisiPopisDok
    @RbrPopis        smallint,
    @Sifra_Oe        smallint,
    @Sifra_Dok        smallint,
    @Broj_Dok        int
AS
    Delete From PopisDok
    Where RbrPopis=@RbrPopis And Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopislistaos]'))
drop procedure [dbo].[sp_brisipopislistaos]

Go
CREATE      PROCEDURE sp_BrisiPopisListaOS
    @Datum    smalldatetime,
    @Broj_Lista    int
AS
    Delete From LPopisOS
    Where Broj_Lista=@Broj_Lista
    And IDPopisOS In (Select IDPopisOS From PopisOS Where Datum=@Datum)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopisos]'))
drop procedure [dbo].[sp_brisipopisos]

Go


CREATE  PROCEDURE  sp_BrisiPopisOS
    @Sifra_OE smallint,
    @Datum smalldatetime
AS
    DECLARE @Greska Int
    DELETE FROM Popis WHERE Sifra_OE = @Sifra_OE and Datum = @Datum
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopisos_br]'))
drop procedure [dbo].[sp_brisipopisos_br]

Go



CREATE   PROCEDURE  sp_BrisiPopisOS_br
    @IDPopisOS smallint
AS
    DECLARE @Greska Int
    DELETE FROM PopisOs WHERE IDPopisOS=@IDPopisOs
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipopisos_os]'))
drop procedure [dbo].[sp_brisipopisos_os]

Go
CREATE  PROCEDURE  sp_BrisiPopisOS_OS
    @Sifra_OE smallint,
    @Datum smalldatetime
AS
    DECLARE @Greska Int
    DELETE FROM PopisOS WHERE Sifra_OE = @Sifra_OE and Datum = @Datum
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiporastcenist]'))
drop procedure [dbo].[sp_brisiporastcenist]

Go
CREATE PROCEDURE sp_BrisiPorastCeniSt
    @Mesec    smallint,
    @Godina    smallint
 AS
    Delete From PorastCeniSt
    Where Mesec=@Mesec and Godina=@Godina
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisipresmgrupa]'))
drop procedure [dbo].[sp_brisipresmgrupa]

Go

CREATE PROCEDURE [dbo].[sp_BrisiPresmGrupa]
    @Sifra_Kup            char(6)

AS

    DELETE    PresmGrupi
    WHERE    Sifra_Kup = @Sifra_Kup

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiprivfiltoper]'))
drop procedure [dbo].[sp_brisiprivfiltoper]

Go




create    PROCEDURE sp_BrisiPrivFiltOper
    @NIme_User varchar(30),
    @TipPrivil varchar(30),
    @PodTipPrivil varchar(30),
    @OpcMeni varchar(30)
 AS
    delete From PrivFiltOper
    Where NIme_User=@NIme_User and TipPrivil = @TipPrivil and PodTipPrivil = @PodTipPrivil and OpcMeni = @OpcMeni

    Return @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiprivilegii]'))
drop procedure [dbo].[sp_brisiprivilegii]

Go

CREATE PROCEDURE  sp_BrisiPrivilegii
    @Sifra_GrKor varchar(20)
 AS
    DELETE FROM Privilegii WHERE Sifra_GrKor = @Sifra_GrKor
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiprivkoncept]'))
drop procedure [dbo].[sp_brisiprivkoncept]

Go


create  PROCEDURE sp_BrisiPrivKoncept
    @Sifra_GrKor  varchar (20)
 AS
    Delete PrivKoncept
    Where Sifra_GrKor=@Sifra_GrKor
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiproektpoz]'))
drop procedure [dbo].[sp_brisiproektpoz]

Go


CREATE  procedure [dbo].[sp_BrisiProektPoz]
    @Broj_Proekt int,
    @PozID int
As
    delete from ProektPoz
    where Broj_Proekt=@Broj_Proekt and PozID=@PozID






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiproizvtrosfix]'))
drop procedure [dbo].[sp_brisiproizvtrosfix]

Go
CREATE  PROCEDURE sp_BrisiProizvTrosFix
    @Proiz_Sema        smallint
 AS
    Delete
    From ProizvTrosFix
    Where Proiz_Sema=@Proiz_Sema
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirabnal]'))
drop procedure [dbo].[sp_brisirabnal]

Go

CREATE PROCEDURE sp_BrisiRabNal
    @RabNalID int
AS
    DELETE FROM RabNal
    WHERE RabNalID = @RabNalID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirabnal_zap]'))
drop procedure [dbo].[sp_brisirabnal_zap]

Go


create PROCEDURE sp_BrisiRabNal_Zap
    @RabNalID int

AS

    DELETE FROM RabNal_Zap
    WHERE RabNalID = @RabNalID

    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirabnalfazi]'))
drop procedure [dbo].[sp_brisirabnalfazi]

Go





CREATE      PROCEDURE sp_BrisiRabNalFazi
    @RabNalID    integer,
    @Sifra_Faza    smallint,
    @Sifra_Smena    smallint,
    @Datum_Dok    smalldatetime
AS
Delete from RabNalFazi where RabNalID=@RabNalID AND Sifra_Smena=@Sifra_Smena AND Sifra_Faza=@Sifra_Faza AND Datum_Dok=@Datum_Dok








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirasporedispor]'))
drop procedure [dbo].[sp_brisirasporedispor]

Go
CREATE                   PROCEDURE sp_BrisiRasporedIspor
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Raspored    int
AS
    Delete From RasporedIspor
    Where Sifra_OE=@Sifra_OE and Sifra_Nar=@Sifra_Nar And Broj_Raspored=@Broj_Raspored
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirasporedispstavki]'))
drop procedure [dbo].[sp_brisirasporedispstavki]

Go
CREATE          PROCEDURE sp_BrisiRasporedIspStavki
    @RasporId    int
AS
    Delete From RasporedIspStavki
    Where RasporId=@RasporId
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirazlfin]'))
drop procedure [dbo].[sp_brisirazlfin]

Go
CREATE PROCEDURE sp_BrisiRazlFin
    @Broj_RazlFin    int,
    @Sifra_Oe    varchar(20)
 AS
    DELETE RazlFin
    WHERE Broj_RazlFin=@Broj_RazlFin and Sifra_Oe=@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirazlprod]'))
drop procedure [dbo].[sp_brisirazlprod]

Go
CREATE PROCEDURE sp_BrisiRazlProd
    @Broj_RazlProd    int,
    @Sifra_Oe    varchar(20)
 AS
    DELETE RazlProd
    WHERE Broj_RazlProd=@Broj_RazlProd and Sifra_Oe=@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirecepti]'))
drop procedure [dbo].[sp_brisirecepti]

Go


CREATE  PROCEDURE sp_BrisiRecepti

    @Sifra_Apteka        char(2),
    @Broj_Recept        int
AS
    Delete From Recepti
    Where Sifra_Apteka=@Sifra_Apteka And Broj_Recept=@Broj_Recept

    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirecepti_p]'))
drop procedure [dbo].[sp_brisirecepti_p]

Go

create PROCEDURE sp_BrisiRecepti_P
    @Sifra_Apteka        char(2),
    @Broj_Recept        int

AS

    Delete From Recepti_P
    Where Sifra_Apteka=@Sifra_Apteka And Broj_Recept=@Broj_Recept

    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirelacisporstav]'))
drop procedure [dbo].[sp_brisirelacisporstav]

Go
CREATE PROCEDURE sp_BrisiRelacIsporStav
    @Sifra_RelIspor    smallint
AS
    Delete From RelacIsporStav
    Where Sifra_RelIspor=@Sifra_RelIspor
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirpopis]'))
drop procedure [dbo].[sp_brisirpopis]

Go

CREATE PROCEDURE  sp_BrisiRPopis
    @IDPopis int
 AS
    DECLARE @Greska Int
    DELETE FROM RPopis WHERE IDPopis = @IDPopis
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirutiplan]'))
drop procedure [dbo].[sp_brisirutiplan]

Go




create     PROCEDURE sp_BrisiRutiPlan
    @Sifra_Pat smallint,
    @Datum_Od smalldatetime,
    @DenOdNedela char(1)
 AS
    delete From RutiPlan
    Where Sifra_Pat=@Sifra_Pat and Datum_Od = @Datum_Od and DenOdNedela = @DenOdNedela

    Return @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisirutizadatum]'))
drop procedure [dbo].[sp_brisirutizadatum]

Go






CREATE     PROCEDURE sp_BrisiRutiZaDatum
    @Sifra_Pat smallint,
    @Datum smalldatetime
 AS
    delete From RutiZaDatum
    Where Sifra_Pat=@Sifra_Pat and Datum = @Datum
    Return @@ERROR










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisamstemp]'))
drop procedure [dbo].[sp_brisisamstemp]

Go









create  PROCEDURE sp_BrisiSamsTemp
            @Sifra_Kor varchar(20)


as
delete from sams_temp where Sifra_kor = @Sifra_Kor



















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiscanlista]'))
drop procedure [dbo].[sp_brisiscanlista]

Go
CREATE PROCEDURE sp_BrisiScanLista
    @Sifra_Oe    smallint,
    @Tip_Lista    smallint,
    @Broj_Lista    int
AS
DELETE FROM ScanLista WHERE Sifra_OE=@Sifra_OE AND Tip_Lista=@Tip_Lista AND Broj_Lista=@Broj_Lista




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisgrart]'))
drop procedure [dbo].[sp_brisisgrart]

Go

create  procedure SP_BrisiSGrArt
    @Sif_GrArt nvarchar(20)
As
   Delete from SGrArt
    where Sif_GrArt=@Sif_GrArt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisgrkup]'))
drop procedure [dbo].[sp_brisisgrkup]

Go
CREATE procedure SP_BrisiSGrKup
    @Sif_GrKup nvarchar(20)
As
   Delete from SGrKup
    where Sif_GrKup=@Sif_GrKup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisgrkupobj]'))
drop procedure [dbo].[sp_brisisgrkupobj]

Go
CREATE procedure SP_BrisiSGrKupObj
    @Sif_GrKup nvarchar(20)
As
   Delete from SGrKupObj
    where Sif_GrKup=@Sif_GrKup

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisgrorg]'))
drop procedure [dbo].[sp_brisisgrorg]

Go

CREATE PROCEDURE sp_BrisiSGrOrg
   @Sif_GrOrg Char (6)
AS
   DELETE FROM [SGrOrg]   WHERE [Sif_GrOrg]=@Sif_GrOrg
 RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisgrpat]'))
drop procedure [dbo].[sp_brisisgrpat]

Go
CREATE PROCEDURE sp_BrisiSGrPat
    @Sif_GrPat Char (6)
AS
    DELETE FROM SGrPat
    WHERE Sif_GrPat=@Sif_GrPat
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisifkupart]'))
drop procedure [dbo].[sp_brisisifkupart]

Go

CREATE  PROCEDURE sp_BrisiSifKupArt
    @Sifra_Kup    char(6)
AS
    Delete from SifKupArt Where Sifra_Kup = @Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisiteprivorgtip]'))
drop procedure [dbo].[sp_brisisiteprivorgtip]

Go

CREATE PROCEDURE sp_BrisiSitePrivOrgTip
    @Sifra_GrKor    varchar(20)
 AS
    DELETE FROM PrivilOrgTip WHERE Sifra_GrKOr = @Sifra_GrKor
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisismeni]'))
drop procedure [dbo].[sp_brisismeni]

Go

CREATE PROCEDURE sp_BrisiSmeni
    @Sifra_Smena    smallint
AS
    Delete from Smeni
    Where Sifra_Smena=@Sifra_Smena
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisoart_sap]'))
drop procedure [dbo].[sp_brisisoart_sap]

Go

CREATE     PROCEDURE sp_BrisiSoart_SAP
AS
DELETE FROM Soart
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisostav]'))
drop procedure [dbo].[sp_brisisostav]

Go

CREATE PROCEDURE  sp_BrisiSostav
    @Sifra_Art  varchar(20)
AS
    DECLARE @Greska Int
    DELETE FROM Sostav  WHERE Sifra_Art = @Sifra_Art
--   IF @@ERROR=0 AND @@ROWCOUNT=0
--      RETURN 77000
--   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisostavkontr]'))
drop procedure [dbo].[sp_brisisostavkontr]

Go


CREATE  PROCEDURE sp_BrisiSostavKontr
    @Sifra_Art   varchar(20),
    @KontrSer    varchar(25)
 AS
    DELETE FROM SostavKontr WHERE Sifra_Art=@Sifra_Art AND KontrSer=@KontrSer
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisisostboivelstavki]'))
drop procedure [dbo].[sp_brisisostboivelstavki]

Go



create  PROCEDURE  [dbo].[sp_BrisiSostBoiVelStavki]
    @Sifra_Boja    smallint,
    @Sifra_Art  varchar(20)
AS
    DELETE FROM SostavBoiVel WHERE Sifra_Boja=@Sifra_Boja AND Sifra_Art = @Sifra_Art
    RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisispecanfin]'))
drop procedure [dbo].[sp_brisispecanfin]

Go

CREATE    PROCEDURE sp_BrisiSpecAnFin
    @Broj_SpecFin int
AS
    DELETE FROM SpecAnFin WHERE  Broj_SpecFin=@Broj_SpecFin
SET QUOTED_IDENTIFIER OFF




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistaambal]'))
drop procedure [dbo].[sp_brisistaambal]

Go
CREATE PROCEDURE sp_BrisiStaAmbal
    @DokrID    int
AS
    Delete From StaAmbal
    Where DokrID=@DokrID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistadogan]'))
drop procedure [dbo].[sp_brisistadogan]

Go
CREATE  PROCEDURE Sp_BrisiStaDogAn
    @Sifra_Oe_Vlez        smallint,
    @Sifra_Dok_Vlez    smallint,
    @Broj_Dok_Vlez    int,
    @Rbr_Kart        int,
    @Sifra_Art        varchar(20)
AS
    Delete From StaDogAn
    Where Sifra_Oe_Vlez=@Sifra_Oe_Vlez And Sifra_Dok_Vlez=@Sifra_Dok_Vlez
        And Broj_Dok_Vlez=@Broj_Dok_Vlez And Rbr_Kart=@Rbr_Kart And Sifra_Art=@Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistadokrodobr]'))
drop procedure [dbo].[sp_brisistadokrodobr]

Go


create   PROCEDURE sp_BrisiStaDokrOdobr
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Delete From StaDokrOdobr
    Where Sifra_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and Broj_Dok = @Broj_Dok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanarac]'))
drop procedure [dbo].[sp_brisistanarac]

Go

CREATE PROCEDURE sp_BrisiStaNarac
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int
AS
    DELETE FROM [StaNarac]
    WHERE Sifra_OE=@Sifra_OE And Sifra_Nar=@Sifra_Nar And Broj_Nar=@Broj_Nar
RETURN @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanaracreal]'))
drop procedure [dbo].[sp_brisistanaracreal]

Go

CREATE  PROCEDURE sp_BrisiStaNaracReal
    @NarId        int,
    @Sifra_Art    varchar(20)=NULL
AS
IF @Sifra_Art IS NULL
    Delete From StaNaracReal Where NarId=@NarID
ELSE
    Delete From StaNaracReal
    Where NarId=@NarID And Sifra_Art=@Sifra_Art

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanaracreal_podokrid]'))
drop procedure [dbo].[sp_brisistanaracreal_podokrid]

Go

CREATE PROCEDURE sp_BrisiStaNaracReal_PoDokrId
    @DokrId    int
AS
    Delete From StaNaracReal
    Where DokrId = @DokrId
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanaracrealponaridotkaz]'))
drop procedure [dbo].[sp_brisistanaracrealponaridotkaz]

Go


CREATE   PROCEDURE sp_BrisiStaNaracRealPoNarIDOtkaz
    @NarIdOtkaz        int
AS
    Delete From StaNaracReal Where NarIdOtkaz=@NarIDOtkaz
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanereal_podokrid]'))
drop procedure [dbo].[sp_brisistanereal_podokrid]

Go

CREATE          PROCEDURE sp_BrisiStaNeReal_PoDokrId
    @DokrId    int
AS
    Delete From StaNeReal
    Where DokrId = @DokrId
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistanereal_ponarid]'))
drop procedure [dbo].[sp_brisistanereal_ponarid]

Go

CREATE          PROCEDURE sp_BrisiStaNeReal_PoNarId
    @NarId        int
AS
    Delete From StaNeReal
    Where NarId = @NarId
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistaodobr]'))
drop procedure [dbo].[sp_brisistaodobr]

Go
CREATE      PROCEDURE sp_BrisiStaOdobr
   @AnID_Odob Integer
AS
    DELETE StaOdobr  WHERE AnID_Odob=@AnID_Odob




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistapozic]'))
drop procedure [dbo].[sp_brisistapozic]

Go

CREATE PROCEDURE sp_BrisiStaPozic
    @Sifra_OE smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int

AS

    Delete From StaPozic
    Where Sifra_Oe = @Sifra_Oe and Sifra_Nar = @Sifra_Nar and Broj_Nar = @Broj_Nar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistaprodmest]'))
drop procedure [dbo].[sp_brisistaprodmest]

Go
CREATE PROCEDURE sp_BrisiStaProdMest
    @Broj_Dok Int
AS
    DELETE FROM [StaProdMest]
    WHERE  Broj_Dok=@Broj_Dok
RETURN @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistarabn_karakt]'))
drop procedure [dbo].[sp_brisistarabn_karakt]

Go
CREATE  PROCEDURE sp_BrisiStaRabN_Karakt
    @RabNalID    int
AS
    DELETE FROM StaRabN_Karakt
    WHERE RabNalID = @RabNalID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistarabnal]'))
drop procedure [dbo].[sp_brisistarabnal]

Go

CREATE PROCEDURE sp_BrisiStaRabNal
    @RabNalID    int
AS
    DELETE FROM StaRabNal
    WHERE RabNalID = @RabNalID
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistarabnalvelicboja]'))
drop procedure [dbo].[sp_brisistarabnalvelicboja]

Go
CREATE PROCEDURE sp_BrisiStaRabNalVelicBoja
    @RabNalID    int
AS
DELETE FROM StaRabNalVelicBoja WHERE RabNalID=@RabNalID


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistavosnsred]'))
drop procedure [dbo].[sp_brisistavosnsred]

Go

CREATE  PROCEDURE sp_BrisiStavOSnSred
    @StaOID        int
 AS
    Delete From StavOsnSred
    Where StaOID=@StaOID
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistavosnsredsite]'))
drop procedure [dbo].[sp_brisistavosnsredsite]

Go
CREATE  PROCEDURE sp_BrisiStavOSnSredSite
    @DokOID        int
 AS
    Delete From StavOsnSred
    Where DokOID=@DokOID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistavr_1]'))
drop procedure [dbo].[sp_brisistavr_1]

Go

CREATE PROCEDURE sp_BrisiStavr_1
   @DokID int
AS
DELETE [Stavr]
WHERE DokID=@DokID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisistavr_site]'))
drop procedure [dbo].[sp_brisistavr_site]

Go

CREATE    PROCEDURE sp_BrisiStavr_Site
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
   @ImaDodatna char(1)
AS
Declare @SSQL Varchar(1000)
    Set @SSQL = 'DELETE [Stavr]
        WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' AND
          Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' AND
          Broj_Dok=' + Cast(@Broj_Dok As Varchar(9)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + ' AND Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + 'AND ImaDodatna=''' + @ImaDodatna + ''' '
    Exec(@SSQL)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitekstsmetki]'))
drop procedure [dbo].[sp_brisitekstsmetki]

Go

create  PROCEDURE  sp_BrisiTekstSmetki
    @Kade  varchar(10)

AS

    DELETE FROM TekstSmetki  WHERE Kade = @Kade

      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitipartzal]'))
drop procedure [dbo].[sp_brisitipartzal]

Go

create PROCEDURE [dbo].[sp_BrisiTipArtZal]
    @Sifra_TipArtZal    smallint

AS

    DELETE    TipArtZal
    WHERE    Sifra_TipArtZal = @Sifra_TipArtZal

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitipkarakt]'))
drop procedure [dbo].[sp_brisitipkarakt]

Go
CREATE PROCEDURE sp_BrisiTipKarakt
    @Sifra_7        SMALLINT
AS
    DELETE FROM TipKarakt
    WHERE Sifra_7 = @Sifra_7




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitippercenvaziza]'))
drop procedure [dbo].[sp_brisitippercenvaziza]

Go
CREATE PROCEDURE sp_BrisiTipPerCenVaziZa
    @Sifra_TipC    smallint
AS
    DELETE FROM TipPerCenVaziZa   WHERE Sifra_TipC = @Sifra_TipC
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmaneks]'))
drop procedure [dbo].[sp_brisitmaneks]

Go

CREATE   PROCEDURE sp_BrisiTmAneks
    @Sifra_Oe    smallint,
    @BrojBaranje    int,
    @BrojPrilog    int,
    @Sifra_Aneks    int
AS
    Delete From TmAneks
    Where Sifra_Oe = @Sifra_Oe AND  BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog AND Sifra_Aneks = @Sifra_Aneks




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmbaranje]'))
drop procedure [dbo].[sp_brisitmbaranje]

Go
CREATE PROCEDURE sp_BrisiTmBaranje
    @Sifra_OE smallint,
    @BrojBaranje int
AS
DELETE FROM tmBaranje WHERE Sifra_Oe=@Sifra_Oe AND BrojBaranje=@BrojBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmsim]'))
drop procedure [dbo].[sp_brisitmsim]

Go

CREATE   PROCEDURE sp_BrisiTmSim
    @Sifra_OE smallint,
    @BrojBaranje int,
    @BrojPrilog int
AS
IF NOT EXISTS (SELECT * FROM tmAneks WHERE  Sifra_OE = @Sifra_OE AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog)
    BEGIN
        DELETE FROM tmSim_opcusl WHERE  Sifra_OE = @Sifra_OE AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog
        DELETE FROM TmSim WHERE Sifra_OE = @Sifra_OE AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog
    END
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmsim_opcusl]'))
drop procedure [dbo].[sp_brisitmsim_opcusl]

Go
CREATE   PROCEDURE sp_BrisiTmSim_OpcUsl
    @Sifra_OE     smallint,
    @BrojBaranje    int,
    @BrojPrilog    int
AS
    Delete From TmSim_OpcUsl
    Where Sifra_OE=@Sifra_Oe And BrojBaranje=@BrojBaranje And BrojPrilog=@BrojPrilog
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmtarifmodel]'))
drop procedure [dbo].[sp_brisitmtarifmodel]

Go
CREATE  PROCEDURE sp_BrisiTmTarifModel
    @Sifra_TarifModel    smallint
AS
    DELETE FROM tmTarifModel WHERE Sifra_TarifModel=@Sifra_TarifModel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmtel]'))
drop procedure [dbo].[sp_brisitmtel]

Go
CREATE  PROCEDURE sp_BrisiTmTel
    @Sifra_Tel    int
AS
    Delete From TmTel
    Where Sifra_Tel=@Sifra_Tel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitmuslugi]'))
drop procedure [dbo].[sp_brisitmuslugi]

Go
CREATE PROCEDURE sp_BrisiTmUslugi
    @Sifra_TmUsl    smallint
AS
    Delete From TmUslugi
    Where Sifra_TmUsl=@Sifra_TmUsl



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitransnal]'))
drop procedure [dbo].[sp_brisitransnal]

Go
CREATE PROCEDURE sp_BrisiTransNal
    @Sifra_Oe    smallint,
    @Broj_Trans    int
AS
    Delete From TransNal
    Where Sifra_Oe=@Sifra_Oe and Broj_Trans=@Broj_Trans
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitransnalstav]'))
drop procedure [dbo].[sp_brisitransnalstav]

Go
CREATE PROCEDURE sp_BrisiTransNalStav
    @Sifra_Oe    smallint,
    @Broj_Trans    int
AS
    Delete From TransNalStav
    Where Sifra_Oe=@Sifra_Oe And Broj_Trans=@Broj_Trans
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisitrospatn]'))
drop procedure [dbo].[sp_brisitrospatn]

Go
CREATE PROCEDURE sp_BrisiTrosPatn
    @Sifra_Oe     smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    Delete from TrosPatn
    Where Sifra_Oe = @Sifra_Oe and Datum_Dok>=@Datum_Od and Datum_Dok<=@Datum_Do
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiusl_komerc_opsti]'))
drop procedure [dbo].[sp_brisiusl_komerc_opsti]

Go
CREATE PROCEDURE sp_BrisiUsl_Komerc_Opsti
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20)
AS
    Delete From  Usl_Komerc_Opsti
    Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And Tip_Sif_Art=@Tip_Sif_Art And Sif_Art_Gen=@Sif_Art_Gen
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiusl_komerc_per]'))
drop procedure [dbo].[sp_brisiusl_komerc_per]

Go

CREATE  PROCEDURE sp_BrisiUsl_Komerc_Per
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime=Null
AS
IF @Datum_Do IS NULL
    Delete From Usl_Komerc_Per Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And
    Tip_Sif_Art=@Tip_Sif_Art AND Sif_Art_Gen=@Sif_Art_Gen And Datum_Od=@Datum_Od AND Datum_Do IS NULL
ELSE
    Delete From Usl_Komerc_Per Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And
    Tip_Sif_Art=@Tip_Sif_Art AND Sif_Art_Gen=@Sif_Art_Gen And Datum_Od=@Datum_Od AND Datum_Do=@Datum_Do
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiusl_komerc_per_rok]'))
drop procedure [dbo].[sp_brisiusl_komerc_per_rok]

Go

CREATE PROCEDURE sp_BrisiUsl_Komerc_Per_Rok
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime = Null
AS
If @Datum_Do IS NULL
    Delete From Usl_Komerc_Per Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And
    Tip_Sif_Art=@Tip_Sif_Art AND Sif_Art_Gen=@Sif_Art_Gen And Datum_Od=@Datum_Od AND Datum_Do IS NULL
ELSE
    Delete From Usl_Komerc_Per Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And
    Tip_Sif_Art=@Tip_Sif_Art AND Sif_Art_Gen=@Sif_Art_Gen And Datum_Od=@Datum_Od AND Datum_Do=@Datum_Do
Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiuslkolrabfra]'))
drop procedure [dbo].[sp_brisiuslkolrabfra]

Go



CREATE PROCEDURE [dbo].[sp_BrisiUslKolRabFra]

AS

    DElETE FROM Usl_KolRab_Fra

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisivelicskala]'))
drop procedure [dbo].[sp_brisivelicskala]

Go


CREATE  PROCEDURE sp_BrisiVelicSkala
    @Sifra_VelSkala varchar(20)
AS
    DELETE FROM VelicSkala
    WHERE Sifra_VelSkala=@Sifra_VelSkala
     RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisivelicskalastav]'))
drop procedure [dbo].[sp_brisivelicskalastav]

Go


CREATE  PROCEDURE sp_BrisiVelicSkalaStav
    @Sifra_VelSkala varchar(20)
AS
    DELETE FROM VelicSkalaStav
    WHERE Sifra_VelSkala=@Sifra_VelSkala
     RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisivirmani]'))
drop procedure [dbo].[sp_brisivirmani]

Go
CREATE PROCEDURE sp_BrisiVirmani
    @VirID    Int
AS
    Delete From VirmanIzv Where VirID=@VirID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisivozila]'))
drop procedure [dbo].[sp_brisivozila]

Go
CREATE Procedure sp_BrisiVozila
    @Sifra_Art varchar(20)
As
    Delete From Vozila
    Where Sifra_Art=@Sifra_art
    Return @@error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisivozizjava]'))
drop procedure [dbo].[sp_brisivozizjava]

Go
CREATE procedure sp_BrisiVozIzjava
    @Sifra_Oe smallint,
    @Broj_izjava int
As
    delete from VozIzjava
    where Sifra_Oe=@Sifra_Oe and Broj_Izjava=@Broj_izjava



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwbn_tnar]'))
drop procedure [dbo].[sp_brisiwbn_tnar]

Go
CREATE PROCEDURE sp_BrisiWbn_TNar
    @Sifra_Oe Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar int
AS
    Delete From Wbn_TNar
    where Sifra_Oe=@Sifra_Oe
          and Sifra_Nar=@Sifra_Nar
          and Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwbn_tsnar]'))
drop procedure [dbo].[sp_brisiwbn_tsnar]

Go
CREATE PROCEDURE sp_BrisiWbn_TSNar
    @Sifra_Oe Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar int
AS
    Delete From Wbn_TSNar
    where Sifra_Oe=@Sifra_Oe
          and Sifra_Nar=@Sifra_Nar
          and Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmfxr]'))
drop procedure [dbo].[sp_brisiwhmfxr]

Go
CREATE PROCEDURE sp_BrisiWhmFXR

    @Sifra_Oe    smallint,
    @FXR_ID    varchar(30)
AS

    Delete From WhmFXR
    Where Sifra_Oe=@Sifra_Oe And FXR_ID=@FXR_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmlokacgrupi]'))
drop procedure [dbo].[sp_brisiwhmlokacgrupi]

Go

CREATE  procedure sp_BrisiWhmLokacGrupi
    @Sifra_Oe smallint,
    @Sifra_Gr varchar(6)
AS
    delete from  WhmLokacGrupi
    Where Sifra_Oe=@Sifra_Oe and Sifra_Gr=@Sifra_Gr
    return @@error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmlokacija]'))
drop procedure [dbo].[sp_brisiwhmlokacija]

Go

CREATE  PROCEDURE sp_BrisiWhmLokacija

    @Sifra_Oe        smallint,
    @Lokac_ID        varchar(30)
AS

    Delete From WhmLokacija
    Where Sifra_Oe=@Sifra_Oe And Lokac_ID=@Lokac_ID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmlokackarakterist]'))
drop procedure [dbo].[sp_brisiwhmlokackarakterist]

Go
CREATE PROCEDURE sp_BrisiWhmLokacKarakterist

    @Sifra_Oe    smallint,
    @Sekc_ID    varchar(15) = Null,
    @Lokac_X    char(4) = Null,
    @Lokac_Y    char(4) = Null,
    @Lokac_Z    char(4) = Null,
    @Lokac_ID    varchar(30) = Null,
    @FXR_ID    varchar(30) = Null,
    @Sifra_Karakt    smallint

AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Delete From WhmLokacKarakterist
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_Karakt = ' + Cast(@Sifra_Karakt as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmlokackatstatus]'))
drop procedure [dbo].[sp_brisiwhmlokackatstatus]

Go
CREATE PROCEDURE sp_BrisiWhmLokacKatStatus

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15) = Null,
    @Lokac_X        char(4) = Null,
    @Lokac_Y        char(4) = Null,
    @Lokac_Z        char(4) = Null,
    @Lokac_ID        varchar(30) = Null,
    @FXR_ID        varchar(30) = Null,
    @Sifra_KatStatus    smallint
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Delete From WhmLokacKatStatus
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmmvc]'))
drop procedure [dbo].[sp_brisiwhmmvc]

Go
CREATE PROCEDURE sp_BrisiWhmMVC

    @MVC_ID        int
AS
    Delete From WhmMVC
    Where MVC_ID=@MVC_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmprivoper]'))
drop procedure [dbo].[sp_brisiwhmprivoper]

Go
CREATE PROCEDURE sp_BrisiWhmPrivOper

    @Sifra_Oper        smallint,
    @Sifra_Oe_WHM    smallint
AS

    Delete From WhmPrivOper
    Where Sifra_Oper=@Sifra_Oper And Sifra_Oe_WHM=@Sifra_Oe_WHM
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisiwhmsekcija]'))
drop procedure [dbo].[sp_brisiwhmsekcija]

Go
CREATE PROCEDURE sp_BrisiWhmSekcija

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15)
AS

    Delete From WhmSekcija
    Where Sifra_Oe=@Sifra_Oe And Sekc_ID=@Sekc_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfaktnapraveno]'))
drop procedure [dbo].[sp_brisixfaktnapraveno]

Go
CREATE PROCEDURE sp_BrisiXFAktNapraveno
       @Broj_Napraveno int
AS
  DELETE FROM XFAktNapraveno WHERE Broj_Napraveno = @Broj_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfaktnapravenosta]'))
drop procedure [dbo].[sp_brisixfaktnapravenosta]

Go


create  PROCEDURE sp_BrisiXFAktNapravenoSta
    @Broj_Napraveno int
AS
    DELETE FROM XFAktNapravenoSta
    WHERE Broj_Napraveno = @Broj_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfbaranje]'))
drop procedure [dbo].[sp_brisixfbaranje]

Go
CREATE PROCEDURE sp_BrisiXFBaranje
    @Broj_Baranje int
AS
    DELETE FROM XFBaranje
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfbaranjefile]'))
drop procedure [dbo].[sp_brisixfbaranjefile]

Go


CREATE PROCEDURE sp_BrisiXFBaranjeFile
    @FileID int
AS
    Delete from XFBaranjeFile
    Where FileID = @FileID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfbaranjesta]'))
drop procedure [dbo].[sp_brisixfbaranjesta]

Go

create PROCEDURE sp_BrisiXFBaranjeSta
    @Broj_Baranje int
AS
    DELETE FROM XFBaranjeSta
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfbaranjestaizvrs]'))
drop procedure [dbo].[sp_brisixfbaranjestaizvrs]

Go
create PROCEDURE sp_BrisiXFBaranjeStaIzvrs
    @Broj_Baranje int
AS
    DELETE FROM XFBaranjeStaIzvrs
    WHERE Broj_Baranje = @Broj_Baranje



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfizvrsitel]'))
drop procedure [dbo].[sp_brisixfizvrsitel]

Go
CREATE PROCEDURE sp_BrisiXFIzvrsitel
    @Sifra_Izvrs    int
AS
    DELETE FROM XFIzvrsitel
    WHERE Sifra_Izvrs = @Sifra_Izvrs




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfnapraveno]'))
drop procedure [dbo].[sp_brisixfnapraveno]

Go
CREATE PROCEDURE sp_BrisiXFNapraveno
    @Sifra_Napraveno    smallint
AS
    DELETE FROM XFNapraveno
    WHERE Sifra_Napraveno = @Sifra_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfoblast]'))
drop procedure [dbo].[sp_brisixfoblast]

Go
CREATE PROCEDURE sp_BrisiXFOblast
    @Sifra_Oblast    smallint
AS
    DELETE FROM XFOblast
    WHERE Sifra_Oblast = @Sifra_Oblast




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfoddel]'))
drop procedure [dbo].[sp_brisixfoddel]

Go
CREATE PROCEDURE sp_BrisiXFOddel
    @Sifra_Oddel    smallint
AS
    DELETE FROM XFOddel
    WHERE Sifra_Oddel = @Sifra_Oddel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfpredmet]'))
drop procedure [dbo].[sp_brisixfpredmet]

Go
CREATE PROCEDURE sp_BrisiXFPredmet
       @Broj_Predmet INT
AS
  DELETE FROM XFPredmet WHERE Broj_Predmet = @Broj_Predmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfslednobaranje]'))
drop procedure [dbo].[sp_brisixfslednobaranje]

Go
CREATE PROCEDURE sp_BrisiXFSlednoBaranje
    @Sifra_VidBaranje        smallint
AS
    Delete From XFSlednoBaranje
    Where Sifra_VidBaranje=@Sifra_VidBaranje



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfstatusbaranje]'))
drop procedure [dbo].[sp_brisixfstatusbaranje]

Go
CREATE PROCEDURE sp_BrisiXFStatusBaranje
    @Sifra_StatusBaranje    smallint
AS
    DELETE FROM XFStatusBaranje
    WHERE Sifra_StatusBaranje = @Sifra_StatusBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfstatuspredmet]'))
drop procedure [dbo].[sp_brisixfstatuspredmet]

Go
CREATE PROCEDURE sp_BrisiXFStatusPredmet
    @Sifra_StatusPredmet    smallint
AS
    DELETE FROM XFStatusPredmet
    WHERE Sifra_StatusPredmet = @Sifra_StatusPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixftippredmet]'))
drop procedure [dbo].[sp_brisixftippredmet]

Go
CREATE PROCEDURE sp_BrisiXFTipPredmet
    @Sifra_TipPredmet    smallint
AS
    DELETE FROM XFTipPredmet
    WHERE Sifra_TipPredmet = @Sifra_TipPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfvidbaranje]'))
drop procedure [dbo].[sp_brisixfvidbaranje]

Go
CREATE PROCEDURE sp_BrisiXFVidBaranje
    @Sifra_VidBaranje    smallint
AS
    DELETE FROM XFVidBaranje
    WHERE Sifra_VidBaranje = @Sifra_VidBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfvidbarizvrs]'))
drop procedure [dbo].[sp_brisixfvidbarizvrs]

Go
CREATE PROCEDURE sp_BrisiXFVidBarIzvrs
    @Sifra_VidBaranje    smallint
AS
    Delete From XFVidBarIzvrs
    Where Sifra_VidBaranje=@Sifra_VidBaranje



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisixfvraboddel]'))
drop procedure [dbo].[sp_brisixfvraboddel]

Go
CREATE PROCEDURE sp_BrisiXFVrabOddel
    @Sifra_Izvrs    int
--    @Sifra_Oddel    smallint
AS
    DELETE FROM XFVrabOddel
    WHERE Sifra_Izvrs = @Sifra_Izvrs --AND Sifra_Oddel = @Sifra_Oddel



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisizatv]'))
drop procedure [dbo].[sp_brisizatv]

Go

CREATE  PROCEDURE sp_BrisiZatv
   @AnID int
AS
DELETE [AnZatv]
WHERE AnID1=@AnID OR AnID2=@AnID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brisizatv_sap]'))
drop procedure [dbo].[sp_brisizatv_sap]

Go



CREATE    PROCEDURE sp_BrisiZatv_SAP

AS
DELETE from [AnZatv]
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brnaraczakup]'))
drop procedure [dbo].[sp_brnaraczakup]

Go
CREATE PROCEDURE sp_BrNaracZaKup
    @Sifra_Kup    Char(6),
    @Sifra_Obj    smallint = NULL,
    @Datum    SmallDateTime,
    @Sifra_Nar    smallint,
    @Broj_Narac    smallint OUTPUT
AS
If @Sifra_Obj IS NULL
    SELECT @Broj_Narac = COUNT(*) FROM Naracki
    WHERE Sifra_Kup = @Sifra_Kup AND Datum_Nar = @Datum AND Sifra_Nar = @Sifra_Nar
Else
    SELECT @Broj_Narac = COUNT(*) FROM Naracki
    WHERE Sifra_Kup = @Sifra_Kup AND Sifra_Obj = @Sifra_Obj AND Datum_Nar = @Datum AND Sifra_Nar = @Sifra_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brojnostpopodelbanakup]'))
drop procedure [dbo].[sp_brojnostpopodelbanakup]

Go


CREATE                 PROCEDURE sp_BrojnostPoPodelbaNaKup
    @Sifra_Pat Smallint = Null,
    @KoiPat Varchar(1500) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 Char(1) = Null,
    @KFPod2 Char(1) = Null,
    @KFPod3 Char(1) = Null,
    @KFPod4 Char(1) = Null,
    @KFPod5 Char(1) = Null,
    @KFPod6 Char(1) = Null,
    @KFPod7 Char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Koi_Gradovi varchar(200) = Null,
    @Koi_Regioni varchar(200) = Null,
    @TipKup Varchar(200) = Null,
    @Sifra_Nivo char(2) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Komint_KObj Char(1) = Null,
    @PoRedovi    char(2) = Null,    -- D1 - KDrugo1,    D2 - KDrugo2,     D3 - KDrugo3,     D4 - KDrugo4,    D5 - KDrugo5,    D6 - KDrugo6,    D7 - KDrugo7,
    @PoKoloni    char(2) = Null,     -- GR - Grad,    RE - Region,    TK - TipKup,    NI - Nivo,    ST - TipKomint,         PT - Patnik Tekoven,     VP - Vid na prodazen objekt
    @PoRegGrPat    char(1) = 'N',    --  D - Vraka gradovi, regioni, komercijalisti            N - Ne vraka gradovi, regioni, komercijalisti
    @Sifra_VPJ    smallint = Null,
    @BrKoloni     int OUTPUT,
    @GrKup     varchar(500) = Null
AS
    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '
    Create Table #Rezultati
    (
    SifraR        Varchar(10),
    ImeR        Varchar(40),
    SifraK        Varchar(10),
    ImeK        Varchar(40),
    Brojnost        decimal(18,6),
    ProcR        decimal(18,6),
    ProcK        decimal(18,6),
    ProcVK        decimal(18,6),
    Sifra_Reg    smallint,
    Sifra_Grad    smallint,
    Sifra_Pat    smallint
    )
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @PoRedovi = 'D1'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo1 Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End) as SifraR, K1.Ime_1K as ImeR, '
    If @PoRedovi = 'D2'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo2 Is Not Null Then KO.KDrugo2 Else Kup.KDrugo2 End) as SifraR, K2.Ime_2K as ImeR, '
    If @PoRedovi = 'D3'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo3 Is Not Null Then KO.KDrugo3 Else Kup.KDrugo3 End) as SifraR, K3.Ime_3K as ImeR, '
    If @PoRedovi = 'D4'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo4 Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End) as SifraR, K4.Ime_4K as ImeR, '
    If @PoRedovi = 'D5'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo5 Is Not Null Then KO.KDrugo5 Else Kup.KDrugo5 End) as SifraR, K5.Ime_5K as ImeR, '
    If @PoRedovi = 'D6'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End) as SifraR, K6.Ime_6K as ImeR, '
    If @PoRedovi = 'D7'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End) as SifraR, K7.Ime_7K as ImeR, '
    If @PoRedovi = 'GR'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) as SifraR, GR.ImeGrad as ImeR, '
    If @PoRedovi = 'RE'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Reg Is Not Null Then KO.Sifra_Reg Else Kup.Sifra_Reg End) as SifraR, RE.ImeRegion as ImeR, '
    If @PoRedovi = 'TK'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.TipKup Is Not Null Then KO.TipKup Else Kup.TipKup End) as SifraR, TK.ImeTipKup as ImeR, '
    If @PoRedovi = 'NI'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Nivo Is Not Null Then KO.Sifra_Nivo Else Kup.Sifra_Nivo End) as SifraR, NI.ImeNivo as ImeR, '
--    If @PoRedovi = 'ST'
--        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Tip Is Not Null Then KO.Sifra_Tip Else Kup.Sifra_Tip End) as SifraR, ST.ImeTip as ImeR, '
    If @PoRedovi = 'ST'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, Kup.Sifra_Tip as SifraR, ST.ImeTip as ImeR, '
    If @PoRedovi = 'PT'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End) as SifraR, PT.ImePat as ImeR, '
    If @PoRedovi = 'VP'
        Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj, (Case When KO.Sifra_Vpj Is Not Null Then KO.Sifra_Vpj Else Kup.Sifra_Vpj End) as SifraR, VPJ.Ime_Vpj as ImeR, '
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @PoKoloni = 'D1'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo1 Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End) as SifraK, K1.Ime_1K as ImeK, '
    If @PoKoloni = 'D2'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo2 Is Not Null Then KO.KDrugo2 Else Kup.KDrugo2 End) as SifraK, K2.Ime_2K as ImeK, '
    If @PoKoloni = 'D3'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo3 Is Not Null Then KO.KDrugo3 Else Kup.KDrugo3 End) as SifraK, K3.Ime_3K as ImeK, '
    If @PoKoloni = 'D4'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo4 Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End) as SifraK, K4.Ime_4K as ImeK, '
    If @PoKoloni = 'D5'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo5 Is Not Null Then KO.KDrugo5 Else Kup.KDrugo5 End) as SifraK, K5.Ime_5K as ImeK, '
    If @PoKoloni = 'D6'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End) as SifraK, K6.Ime_6K as ImeK, '
    If @PoKoloni = 'D7'
        Set @SSQL = @SSQL + ' (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End) as SifraK, K7.Ime_7K as ImeK, '
    If @PoKoloni = 'GR'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) as SifraK, GR.ImeGrad as ImeK, '
    If @PoKoloni = 'RE'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Reg Is Not Null Then KO.Sifra_Reg Else Kup.Sifra_Reg End) as SifraK, RE.ImeRegion as ImeK, '
    If @PoKoloni = 'TK'
        Set @SSQL = @SSQL + ' (Case When KO.TipKup Is Not Null Then KO.TipKup Else Kup.TipKup End) as SifraK, TK.ImeTipKup as ImeK, '
    If @PoKoloni = 'NI'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Nivo Is Not Null Then KO.Sifra_Nivo Else Kup.Sifra_Nivo End) as SifraK, NI.ImeNivo as ImeK, '
--    If @PoKoloni = 'ST'
--        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Tip Is Not Null Then KO.Sifra_Tip Else Kup.Sifra_Tip End) as SifraK, ST.ImeTip as ImeK, '
    If @PoKoloni = 'ST'
        Set @SSQL = @SSQL + ' Kup.Sifra_Tip as SifraK, ST.ImeTip as ImeK, '
    If @PoKoloni = 'PT'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End) as SifraK, PT.ImePat as ImeK, '
    If @PoKoloni = 'VP'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Vpj Is Not Null Then KO.Sifra_Vpj Else Kup.Sifra_Vpj End) as SifraK, VPJ.Ime_Vpj as ImeK, '
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = @SSQL + ' 1, Kup.Sifra_Reg, Kup.Sifra_Grad, Kup.Sifra_Pat ' -- Count(Distinct Kup.Sifra_Kup) as Brojnost '
    Set @SSQL = @SSQL + ' From Komint KUP
                   Left Outer Join KObjekti KO ON Kup.Sifra_Kup=KO.Sifra_Kup '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=KUP.Sifra_Kup
                    And (Case When KO.Sifra_Obj Is Not Null Then KO.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @PoRedovi = 'D1'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When KO.KDrugo1 Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End)'
    If @PoRedovi = 'D2'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo2 K2 On K2.Sifra_2K = (Case When KO.KDrugo2 Is Not Null Then KO.KDrugo2 Else Kup.KDrugo2 End)'
    If @PoRedovi = 'D3'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo3 K3 On K3.Sifra_3K = (Case When KO.KDrugo3 Is Not Null Then KO.KDrugo3 Else Kup.KDrugo3 End)'
    If @PoRedovi = 'D4'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo4 K4 On K4.Sifra_4K = (Case When KO.KDrugo4 Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End)'
    If @PoRedovi = 'D5'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo5 K5 On K5.Sifra_5K = (Case When KO.KDrugo5 Is Not Null Then KO.KDrugo5 Else Kup.KDrugo5 End)'
    If @PoRedovi = 'D6'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo6 K6 On K6.Sifra_6K = (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End)'
    If @PoRedovi = 'D7'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo7 K7 On K7.Sifra_7K = (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End)'
    If @PoRedovi = 'GR'
        Set @SSQL = @SSQL + ' Left Outer Join Grad GR On GR.Sifra_Grad =  (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End)'
    If @PoRedovi = 'RE'
        Set @SSQL = @SSQL + ' Left Outer Join GRegion RE On RE.Sifra_reg = (Case When KO.Sifra_Reg Is Not Null Then KO.Sifra_Reg Else Kup.Sifra_reg End) '
    If @PoRedovi = 'TK'
        Set @SSQL = @SSQL + ' Left Outer Join GTipKup TK On TK.TipKup = (Case When KO.TipKup Is Not Null Then KO.TipKup Else Kup.TipKup End)'
    If @PoRedovi = 'NI'
        Set @SSQL = @SSQL + ' Left Outer Join Nivo NI On NI.Sifra_Nivo = (Case When KO.Sifra_Nivo Is Not Null Then KO.Sifra_Nivo Else Kup.Sifra_Nivo End)'
--    If @PoRedovi = 'ST'
--        Set @SSQL = @SSQL + ' Left Outer Join TipKomint ST On ST.Sifra_Tip = (Case When KO.Sifra_Tip Is Not Null Then KO.Sifra_Tip Else Kup.Sifra_Tip End)'
    If @PoRedovi = 'ST'
        Set @SSQL = @SSQL + ' Left Outer Join TipKomint ST On ST.Sifra_Tip = Kup.Sifra_Tip '
    If @PoRedovi = 'PT'
        Set @SSQL = @SSQL + ' Left Outer Join Patnici PT On PT.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End)'
    If @PoRedovi = 'VP'
        Set @SSQL = @SSQL + ' Left Outer Join VidProdObj VPJ On VPJ.Sifra_Vpj = (Case When KO.Sifra_Vpj Is Not Null Then KO.Sifra_Vpj Else Kup.Sifra_Vpj End)'
    If @PoKoloni = 'D1'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When KO.KDrugo1 Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End)'
    If @PoKoloni = 'D2'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo2 K2 On K2.Sifra_2K = (Case When KO.KDrugo2 Is Not Null Then KO.KDrugo2 Else Kup.KDrugo2 End)'
    If @PoKoloni = 'D3'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo3 K3 On K3.Sifra_3K = (Case When KO.KDrugo3 Is Not Null Then KO.KDrugo3 Else Kup.KDrugo3 End)'
    If @PoKoloni = 'D4'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo4 K4 On K4.Sifra_4K = (Case When KO.KDrugo4 Is Not Null Then KO.KDrugo4 Else Kup.KDrugo4 End)'
    If @PoKoloni = 'D5'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo5 K5 On K5.Sifra_5K = (Case When KO.KDrugo5 Is Not Null Then KO.KDrugo5 Else Kup.KDrugo5 End)'
    If @PoKoloni = 'D6'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo6 K6 On K6.Sifra_6K = (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End)'
    If @PoKoloni = 'D7'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo7 K7 On K7.Sifra_7K = (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End)'
    If @PoKoloni = 'GR'
        Set @SSQL = @SSQL + ' Left Outer Join Grad GR On GR.Sifra_Grad = (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End)'
    If @PoKoloni = 'RE'
        Set @SSQL = @SSQL + ' Left Outer Join GRegion RE On RE.Sifra_reg = (Case When KO.Sifra_reg Is Not Null Then KO.Sifra_reg Else Kup.Sifra_reg End)'
    If @PoKoloni = 'TK'
        Set @SSQL = @SSQL + ' Left Outer Join GTipKup TK On TK.TipKup = (Case When KO.TipKup Is Not Null Then KO.TipKup Else Kup.TipKup End)'
    If @PoKoloni = 'NI'
        Set @SSQL = @SSQL + ' Left Outer Join Nivo NI On NI.Sifra_Nivo = (Case When KO.Sifra_Nivo Is Not Null Then KO.Sifra_Nivo Else Kup.Sifra_Nivo End)'
--    If @PoKoloni = 'ST'
--        Set @SSQL = @SSQL + ' Left Outer Join TipKomint ST On ST.Sifra_Tip = (Case When KO.Sifra_Tip Is Not Null Then KO.Sifra_Tip Else Kup.Sifra_Tip End)'
    If @PoKoloni = 'ST'
        Set @SSQL = @SSQL + ' Left Outer Join TipKomint ST On ST.Sifra_Tip = Kup.Sifra_Tip '
    If @PoKoloni = 'PT'
        Set @SSQL = @SSQL + ' Left Outer Join Patnici PT On PT.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End)'
    If @PoKoloni = 'VP'
        Set @SSQL = @SSQL + ' Left Outer Join VidProdObj VPJ On VPJ.Sifra_Vpj = (Case When KO.Sifra_Vpj Is Not Null Then KO.Sifra_Vpj Else Kup.Sifra_Vpj End)'
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------ U S L O V ------------------------------------------------------------------------------------------------------------
    Set @SSQL = @SSQL + 'Where 1=1 '
    Set @SSQL = @SSQL + ' And ((KO.Aktiven Is Not Null And KO.Aktiven <> ''N'' )
                Or (KO.Aktiven Is Null and (KUP.Aktiven <> ''N'' or KUP.Aktiven Is Null))) '
--    Set @SSQL = @SSQL + ' Where (KUP.Aktiven <> ''N'' or Kup.aktiven is null or Kup.Aktiven = '' '') and (KO.Aktiven <> ''N'' or KO.Aktiven is null Or KO.Aktiven='' '') '
--                And (KO.Sifra_Obj <> 0 Or KO.Sifra_Obj Is Null) '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not NULL
        Set @SSQL = @SSQL + ' And Kup.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_VPJ Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.Sifra_VPJ Is Not Null And KO.Sifra_VPJ = ' + Cast(@Sifra_VPJ As Varchar(6)) + ')
                      Or (KO.Sifra_VPJ Is Null And Kup.Sifra_VPJ = ' + Cast(@Sifra_VPJ As Varchar(6)) + ')) '
           End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @Sifra_Pat Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat = ' + Cast(@Sifra_Pat As Varchar(6)) + ')
                      Or (KO.Sifra_Pat Is Null And Kup.Sifra_Pat = ' + Cast(@Sifra_Pat As Varchar(6)) + ')) '
           End
    If @KoiPat Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat IN (' + @KoiPat + '))
                      Or (KO.Sifra_Pat Is Null And Kup.Sifra_Pat IN (' + @KoiPat + '))) '
           End
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
print @SSQL
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Tab
    (
    Sifra_Kup    char(6),
    Sifra_Obj    smallint,
    SifraR        Varchar(10),
    ImeR        Varchar(40),
    SifraK        Varchar(10),
    ImeK        Varchar(40),
    Brojnost        decimal(18,6),
    Sifra_Reg    smallint,
    Sifra_Grad    smallint,
    Sifra_Pat    smallint
    )
    Insert Into #Tab(Sifra_kup, Sifra_Obj, SifraR, ImeR, SifraK, ImeK, Brojnost, Sifra_Reg, Sifra_Grad, Sifra_Pat) Exec(@SSQL+'And KO.Sifra_Obj <> 0')
    Insert Into #Tab(Sifra_kup, Sifra_Obj, SifraR, ImeR, SifraK, ImeK, Brojnost, Sifra_Reg, Sifra_Grad, Sifra_Pat) Exec(@SSQL+'And KO.Sifra_Obj = 0
        And (Kup.Aktiven<>''N'' Or Kup.Aktiven Is Null) And Kup.Sifra_Kup Not In (Select distinct Sifra_Kup From #Tab) ')
    Insert Into #Tab(Sifra_kup, Sifra_Obj, SifraR, ImeR, SifraK, ImeK, Brojnost, Sifra_Reg, Sifra_Grad, Sifra_Pat) Exec(@SSQL+' And Kup.Sifra_Kup Not In (Select distinct Sifra_Kup From #Tab) And Kup.Aktiven <> ''N'' ')
    update #Tab
    Set SifraR = '.', ImeR = '.' Where SifraR is Null
    update #Tab
    Set SifraK = '.', ImeK = '.' Where SifraK is Null
--select * from #Tab  order by sifrar
--------------------------------------------------------------------------------------------------------------------------------------------
--- kreiram tabeli za da gi oddelam onie komintenti koi sto imaat i sifra_obj 0 i drugi objekti
---  za da ne se dupliraat vo izvestajot
    Create Table #Tab1
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
    Insert into #Tab1
    Select Sifra_Kup, Sifra_Obj
    From #Tab
    Where Sifra_Obj = 0
    Create Table #Tab2
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
    Insert into #Tab2
    Select Sifra_Kup, Sifra_Obj
    From #Tab
    Where Sifra_Obj <> 0
    Create Table #Tab3
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
    Insert Into #Tab3
    Select Sifra_Kup, Sifra_Obj
    From #Tab2
    Where Sifra_Kup In (Select Distinct Sifra_Kup From #Tab1)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Insert Into #Rezultati(SifraR, ImeR, SifraK, ImeK, Brojnost, Sifra_Reg, Sifra_Grad, Sifra_Pat)
            Select SifraR, ImeR, SifraK, ImeK, Count(Brojnost), Sifra_Reg, Sifra_Grad, Sifra_Pat
            From #Tab
            Where Sifra_Kup Not In (Select Sifra_Kup From #Tab3)
            Group By SifraR, ImeR, SifraK, ImeK, Sifra_Reg, Sifra_Grad, Sifra_Pat
    Insert Into #Rezultati(SifraR, ImeR, SifraK, ImeK, Brojnost, Sifra_Reg, Sifra_Grad, Sifra_Pat)
            Select SifraR, ImeR, SifraK, ImeK, Count(Brojnost), Sifra_Reg, Sifra_Grad, Sifra_Pat
            From #Tab
            Where Sifra_Kup + '$$$' + Cast(Sifra_Obj as varchar(6))  In  (Select  Sifra_Kup + '$$$' + Cast(Sifra_Obj as varchar(6)) From #Tab3)
            Group By SifraR, ImeR, SifraK, ImeK, Sifra_Reg, Sifra_Grad, Sifra_Pat
-------------------------------------------------------------  PROCENT PO REDOVI ----------------------------------------
    Create Table #ProcR
    (
    SifraR    varchar(10),
    Vkupno    decimal(18,6),
    Sifra_Reg    smallint,
    Sifra_Grad    smallint,
    Sifra_Pat    smallint
    )
    Insert Into #ProcR Select SifraR, Sifra_Reg, Sifra_Grad, Sifra_Pat, Sum(Brojnost)
    From #Rezultati
    Group By SifraR, Sifra_Reg, Sifra_Grad, Sifra_Pat
    Update #Rezultati
    Set #Rezultati.ProcR = (#Rezultati.Brojnost/#ProcR.Vkupno*100)
    From #ProcR
    Where #Rezultati.SifraR=#ProcR.SifraR and #Rezultati.Sifra_Reg=#ProcR.Sifra_Reg and #Rezultati.Sifra_Grad=#ProcR.Sifra_Grad
        and #Rezultati.Sifra_Pat=#ProcR.Sifra_Pat and  #ProcR.Vkupno>0
-----------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------  PROCENT PO KOLONI ----------------------------------------
    Create Table #ProcK
    (
    SifraK    varchar(10),
    Vkupno    decimal(18,6),
    Sifra_Reg    smallint,
    Sifra_Grad    smallint,
    Sifra_Pat    smallint
    )
    Insert Into #ProcK Select SifraK, Sifra_Reg, Sifra_Grad, Sifra_Pat, Sum(Brojnost)
    From #Rezultati
    Group By SifraK, Sifra_Reg, Sifra_Grad, Sifra_Pat
    Update #Rezultati
    Set #Rezultati.ProcK = (#Rezultati.Brojnost/#ProcK.Vkupno*100)
    From #ProcK
    Where #Rezultati.SifraK=#ProcK.SifraK and #Rezultati.Sifra_Reg=#ProcK.Sifra_Reg and #Rezultati.Sifra_Grad=#ProcK.Sifra_Grad
        and #Rezultati.Sifra_Pat=#ProcK.Sifra_Pat and #ProcK.Vkupno>0
-----------------------------------------------------------------------------------------------------------------------------------------------
    Declare @VkupnoKolic decimal(18,6)
    Set @VkupnoKolic = (Select Sum(Brojnost) From #Rezultati)
    Update #Rezultati
    Set #Rezultati.ProcVK = (#Rezultati.Brojnost/@VkupnoKolic*100)
    Select @BrKoloni = Count(Distinct SifraK) From #Rezultati
-----------------------------------------------------------------------------------------------------------------------------------------------
    If @PoRegGrPat = 'D'
    Begin
        Select R.SifraR, R.ImeR, R.SifraK, R.ImeK, Sum(R.Brojnost) Brojnost, Sum(R.ProcR) ProcR, Sum(R.ProcK) ProcK, Sum(R.ProcVK) ProcVK,
            R.Sifra_Reg, Reg.ImeRegion, R.Sifra_Grad, G.ImeGrad, R.Sifra_Pat, P.ImePat
        From #Rezultati R
        Left Outer Join Gregion Reg On Reg.Sifra_Reg = R.Sifra_Reg
        Left Outer Join Grad G On G.Sifra_Grad = R.Sifra_Grad
        Left Outer Join Patnici P On P.Sifra_Pat = R.Sifra_Pat
        Group By SifraR, ImeR, SifraK, ImeK, R.Sifra_Reg, Reg.ImeRegion, R.Sifra_Grad, G.ImeGrad, R.Sifra_Pat, P.ImePat
    End
    Else
    Begin
        Select SifraR, ImeR, SifraK, ImeK, Sum(Brojnost) Brojnost, Sum(ProcR) ProcR, Sum(ProcK) ProcK, Sum(ProcVK) ProcVK,
            Null as Sifra_Reg, Null as ImeRegion, Null as Sifra_Grad, Null as ImeGrad, Null as Sifra_Pat, Null as ImePat
        From #Rezultati
        Group By SifraR, ImeR, SifraK, ImeK
    End
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brojotvfakzakup]'))
drop procedure [dbo].[sp_brojotvfakzakup]

Go

CREATE  PROCEDURE sp_BrojOtvFakZaKup
    @Sifra_Kup    char(6),
    @Broj_Fakt    int = 0 OUTPUT
AS
SELECT @Broj_Fakt=COUNT(*) FROM AnFinDok WHERE Sifra_Kup=@Sifra_Kup AND
Dolzi>0 AND Dolzi-Plateno_Dolzi>10 AND Sifra_Za=1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brotvorenifakt]'))
drop procedure [dbo].[sp_brotvorenifakt]

Go
CREATE PROCEDURE sp_BrOtvoreniFakt
    @Sifra_Kup        char(6),
    @Toler_Iznos    decimal(18,2)= 10,
    @TipKup_BezProv    varchar(11) = NULL,
    @BrOtvF            int = 0 OUTPUT
AS
Declare @wTipKup as varchar(11)
IF @TipKup_BezProv IS NOT NULL
Begin
    SELECT @wTipKup = TipKup FROM Komint WHERE Sifra_Kup=@Sifra_Kup
    If @wTipKup = @TipKup_BezProv RETURN
End

SELECT @BrOtvF=COUNT(*) FROM AnFinDok WHERE Sifra_Za=1 AND Sifra_Kup=@Sifra_Kup AND Dolzi>0 AND
Dolzi-Plateno_Dolzi>@Toler_Iznos AND DateAdd(day, Rok, Datum_Dok)<GetDate()



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brpraznici]'))
drop procedure [dbo].[sp_brpraznici]

Go


CREATE      PROCEDURE sp_BrPraznici
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Brden    int OUTPUT
AS
SELECT @BrDen= Count(Sto) FROM RabKalendar where Sto='P'And Datum >=@Datum_Od And Datum <= @Datum_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brutobilans]'))
drop procedure [dbo].[sp_brutobilans]

Go

CREATE       PROCEDURE    sp_BrutoBilans
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @KoiKlasi    Varchar(30),
    @Sifra_OE    smallint = NULL,
    @Koi_Oe    varchar(10) = null,
    @Grupa    char(2) = Null,
    @KtoSint    char(3) = Null,
    @Sifra_Div    smallint = Null,
    @BezDivizija    char(1) = 'N',
    @PocnuvaSo    varchar(10) = Null,    -- se odnesuva na kontoto
    @Kurs        decimal(18,4) = 1
AS
    Declare @SSQL Varchar(3000)
    Create Table #BrutoBilans
    (    Kto_Anal Char(10),
        Poc_Dolzi Decimal(18,4),
        Poc_Pobaruva Decimal(18,4),
        Tek_Dolzi Decimal(18,4),
        Tek_Pobaruva Decimal(18,4),
        Vk_Dolzi Decimal(18,4),
        Vk_Pobaruva Decimal(18,4),
        Sifra_Oe int
    )
    -- Pocetni sostojbi
    Declare @God as smallint
    Set @God=year(@Datum_Od)
    Set @SSQL = 'Select Kto_Anal, Sum(Dolzi) As Poc_Dolzi, Sum(Pobaruva) as Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva, 0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
        From GStav Where Sifra_Nal=999 AND Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)
    -- Tekoven Promet
    Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        Sum(Dolzi) As Tek_Dolzi, Sum(Pobaruva) As Tek_Pobaruva,
        0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
        From GStav  Where Sifra_Nal <> 999 '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)
    -- Vkupen Promet
    Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva,
        Sum(Dolzi) As Vk_Dolzi, Sum(Pobaruva) As Vk_Pobaruva, Sifra_Oe
        From GStav Where  Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)

    If @Kurs <> 1 And @Kurs <> 0 And @Kurs Is Not Null
        Select BB.Kto_Anal, A.ImeAnal, Null as Sifra_Div, Sum(BB.Poc_Dolzi/@Kurs) Poc_Dolzi, Sum(BB.Poc_Pobaruva/@Kurs) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi/@Kurs) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva/@Kurs) Tek_Pobaruva, Sum(BB.Vk_Dolzi/@Kurs) Vk_Dolzi, Sum(BB.Vk_Pobaruva/@Kurs) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        Null Sifra_TrosM, Null ImeTrosM, Null Sifra_TrosV, Null ImeTrosV, Null AS KtoDivTrosM
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By BB.Kto_Anal
    Else
        Select BB.Kto_Anal, A.ImeAnal, Null as Sifra_Div, sum(BB.Poc_Dolzi) Poc_Dolzi, sum(BB.Poc_Pobaruva) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva) Tek_Pobaruva, Sum(BB.Vk_Dolzi) Vk_Dolzi, Sum(BB.Vk_Pobaruva) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        Null Sifra_TrosM, Null ImeTrosM, Null Sifra_TrosV, Null ImeTrosV, Null AS KtoDivTrosM
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By BB.Kto_Anal

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brutobilans_divizii]'))
drop procedure [dbo].[sp_brutobilans_divizii]

Go





CREATE            PROCEDURE    sp_BrutoBilans_Divizii
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @KoiKlasi    Varchar(30),
    @Sifra_OE    smallint = NULL,
    @Koi_Oe    varchar(10) = null,
    @Grupa    char(2) = Null,
    @KtoSint    char(3) = Null,
    @Sifra_Div    smallint = Null,
    @BezDivizija    char(1) = 'N',
    @PocnuvaSo    varchar(10) = Null,
    @Sifra_TrosM    varchar(500) = Null,
    @Sifra_TrosV    varchar(500) = Null,
    @Sifra_4Tros    varchar(500) = Null,
    @Kurs        decimal(18,4) = 1
AS
    Declare @SSQL Varchar(3000)
    Declare @SSQLUsl Varchar(3000)
    Set @SSQLUsl = ' '
    Create Table #BrutoBilans
    (    Kto_Anal Char(10),
        Sifra_Div smallint,
        Poc_Dolzi Decimal(18,4),
        Poc_Pobaruva Decimal(18,4),
        Tek_Dolzi Decimal(18,4),
        Tek_Pobaruva Decimal(18,4),
        Vk_Dolzi Decimal(18,4),
        Vk_Pobaruva Decimal(18,4),
        Sifra_Oe int,
        Sifra_TrosM smallint,
        Sifra_TrosV smallint,
                    Sifra_4Tros smallint
    )
    -- Pocetni sostojbi
    Declare @God as smallint
    Set @God=year(@Datum_Od)
    Set @SSQL = 'Select G.Kto_Anal, GD.Sifra_Div,
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else G.Dolzi End) As Poc_Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else G.Pobaruva End) as Poc_Pobaruva,
            0 As Tek_Dolzi, 0 As Tek_Pobaruva, 0 As Vk_Dolzi, 0 As Vk_Pobaruva, G.Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        LEFT OUTER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where G.Sifra_Nal=999 AND Year(G.Datum_Nal) = ' + Cast(@God as char(4)) + ' And GD.GstID Is Null '
    If @KoiKlasi Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @BezDivizija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
        If @Sifra_TrosM Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosM In (' + @Sifra_TrosM + ') '
                 If @Sifra_TrosV Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosV In (' + @Sifra_TrosV + ') '
                 If @Sifra_4Tros Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_4Tros In (' + @Sifra_4Tros + ') '
    End
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And G.Sifra_OE IN (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQLUsl = @SSQLUsl + 'Group By G.Kto_Anal, G.Sifra_Oe, GD.Sifra_Div, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros '
    Set @SSQL=@SSQL + @SSQLUsl + ' Union '
    Set @SSQL = @SSQL + ' Select G.Kto_Anal, GD.Sifra_Div,
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Poc_Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Poc_Pobaruva,
            0 As Tek_Dolzi, 0 As Tek_Pobaruva, 0 As Vk_Dolzi, 0 As Vk_Pobaruva, G.Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where G.Sifra_Nal=999 AND Year(G.Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    Set @SSQL = @SSQL + @SSQLUsl
    Insert #BrutoBilans Exec(@SSQL)
    Set @SSQLUsl = ' '
    -- Tekoven Promet
    Set @SSQL = 'Select G.Kto_Anal, GD.Sifra_Div,
            0 As Poc_Dolzi, 0 As Poc_Pobaruva,
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else G.Dolzi End) As Tek_Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else G.Pobaruva End) as Tek_Pobaruva,
            0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        LEFT OUTER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where G.Sifra_Nal <> 999 And GD.GstID Is Null '
    If @KoiKlasi Is Not Null
        Set @SSQLUSl = @SSQLUSl + 'And SubString(G.Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQLUSl = @SSQLUSl + 'And SubString(G.Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQLUSl = @SSQLUSl + 'And SubString(G.Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Od Is Not Null
        Set @SSQLUSl = @SSQLUSl + 'And G.Datum_Nal>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUSl = @SSQLUSl + 'And G.Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQLUSl = @SSQLUSl + ' And GD.Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQLUSl = @SSQLUSl + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
        If @Sifra_TrosM Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosM In (' + @Sifra_TrosM + ') '
                 If @Sifra_TrosV Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosV In (' + @Sifra_TrosV + ') '
                 If @Sifra_4Tros Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_4Tros In (' + @Sifra_4Tros + ') '
    End
    If @Sifra_OE Is Not Null
        Set @SSQLUSl = @SSQLUSl + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQLUSl  = @SSQLUSl + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg where sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQLUSl = @SSQLUSl + 'Group By G.Kto_Anal, G.Sifra_Oe, GD.Sifra_Div, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros '
    Set @SSQL = @SSQL + @SSQLUsl + ' Union '
    Set @SSQL = 'Select G.Kto_Anal, GD.Sifra_Div,
            0 As Poc_Dolzi, 0 As Poc_Pobaruva,
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Tek_Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Tek_Pobaruva,
            0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where G.Sifra_Nal <> 999  '
    Set @SSQL = @SSQL + @SSQLUsl
    Insert #BrutoBilans Exec(@SSQL)
    Set @SSQLUsl = ' '
    -- Vkupen Promet
    Set @SSQL = 'Select G.Kto_Anal,  GD.Sifra_Div,
        0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva,
        Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else G.Dolzi End) As Vk_Dolzi,
        Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else G.Pobaruva End) as Vk_Pobaruva,
        Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        LEFT OUTER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where  Year(G.Datum_Nal) = ' + Cast(@God as char(4)) + ' And GD.GstID Is Null '
    If @KoiKlasi Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(G.Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And G.Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
        If @Sifra_TrosM Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosM In (' + @Sifra_TrosM + ') '
                 If @Sifra_TrosV Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_TrosV In (' + @Sifra_TrosV + ') '
                 If @Sifra_4Tros Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And GD.Sifra_4Tros In (' + @Sifra_4Tros + ') '
    End
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And G.Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg where sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQLUsl = @SSQLUsl + 'Group By G.Kto_Anal, G.Sifra_Oe, GD.Sifra_Div, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros '
    Set @SSQL = @SSQL + @SSQLUsl + ' Union '
    Set @SSQL = 'Select G.Kto_Anal,  GD.Sifra_Div,
        0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva,
        Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) As Vk_Dolzi,
        Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else 0 End) as Vk_Pobaruva,
        Sifra_Oe, GD.Sifra_TrosM, GD.Sifra_TrosV, GD.Sifra_4Tros
        From GStav G
        INNER JOIN GstAnDiv GD On GD.GstID=G.GstID
        Where  Year(G.Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    Set @SSQL = @SSQL + @SSQLUsl
    Insert #BrutoBilans Exec(@SSQL)

    If @Kurs <> 1 And @Kurs <> 0 And @Kurs Is Not Null
        Select BB.Kto_Anal, A.ImeAnal, BB.Sifra_Div, sum(BB.Poc_Dolzi/@Kurs) Poc_Dolzi, sum(BB.Poc_Pobaruva/@Kurs) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi/@Kurs) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva/@Kurs) Tek_Pobaruva, Sum(BB.Vk_Dolzi/@Kurs) Vk_Dolzi, Sum(BB.Vk_Pobaruva/@Kurs) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        BB.Sifra_TrosM, TM.ImeTrosM,
            dbo.fn_DesnoNuli(Cast(Substring(BB.KTo_Anal,1,6)as integer),6)+
            (Case When BB.Sifra_Div is not null Then dbo.fn_LevoNuli(Cast(BB.Sifra_Div as smallint),2) Else '00' End)+
            (Case When BB.Sifra_TrosM is not null Then dbo.fn_LevoNuli(Cast(BB.Sifra_TrosM as smallint),2) Else '00' End) AS KtoDivTrosM,
        Null as Ime4Tros --T4.Ime4Tros, BB.Sifra_TrosV, TV.ImeTrosV,
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        LEFT OUTER Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        LEFT OUTER join TrosokMesto TM ON BB.Sifra_TrosM=TM.Sifra_TrosM
        LEFT OUTER join TrosokVid TV ON BB.Sifra_TrosV=TV.Sifra_TrosV
        LEFT OUTER join Trosok4Tip T4 ON BB.Sifra_4Tros=T4.Sifra_4Tros
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org, BB.Sifra_Div,BB.Sifra_TrosM, TM.ImeTrosM --, BB.Sifra_TrosV, TV.ImeTrosV, T4.Ime4Tros
        Order By BB.Kto_Anal
    Else
        Select BB.Kto_Anal, A.ImeAnal, BB.Sifra_Div, sum(BB.Poc_Dolzi) Poc_Dolzi, sum(BB.Poc_Pobaruva) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva) Tek_Pobaruva, Sum(BB.Vk_Dolzi) Vk_Dolzi, Sum(BB.Vk_Pobaruva) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        BB.Sifra_TrosM, TM.ImeTrosM,
            dbo.fn_DesnoNuli(Cast(Substring(BB.KTo_Anal,1,6)as integer),6)+
            (Case When BB.Sifra_Div is not null Then dbo.fn_LevoNuli(Cast(BB.Sifra_Div as smallint),2) Else '00' End)+
            (Case When BB.Sifra_TrosM is not null Then dbo.fn_LevoNuli(Cast(BB.Sifra_TrosM as smallint),2) Else '00' End) AS KtoDivTrosM,
        Null as Ime4Tros --T4.Ime4Tros, BB.Sifra_TrosV, TV.ImeTrosV,
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        LEFT OUTER Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        LEFT OUTER join TrosokMesto TM ON BB.Sifra_TrosM=TM.Sifra_TrosM
        LEFT OUTER join TrosokVid TV ON BB.Sifra_TrosV=TV.Sifra_TrosV
        LEFT OUTER join Trosok4Tip T4 ON BB.Sifra_4Tros=T4.Sifra_4Tros
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org, BB.Sifra_Div,BB.Sifra_TrosM, TM.ImeTrosM --, BB.Sifra_TrosV, TV.ImeTrosV, T4.Ime4Tros
        Order By BB.Kto_Anal

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brutobilans_povekebazi]'))
drop procedure [dbo].[sp_brutobilans_povekebazi]

Go

CREATE       PROCEDURE sp_BrutoBilans_PovekeBazi
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @KoiKlasi    Varchar(30),
    @Sifra_OE    smallint = NULL,
    @Koi_Oe    varchar(10) = null,
    @Grupa    char(2) = Null,
    @KtoSint    char(3) = Null,
    @Sifra_Div    smallint = Null,
    @BezDivizija    char(1) = 'N',
    @ParalenliBazi     varchar(200) = Null,
    @PocnuvaSo    varchar(10) = Null,
    @Kurs        decimal(18,4) = 1
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '
    Create Table #BrutoBilans
    (    Kto_Anal Char(10),
        Poc_Dolzi Decimal(18,4),
        Poc_Pobaruva Decimal(18,4),
        Tek_Dolzi Decimal(18,4),
        Tek_Pobaruva Decimal(18,4),
        Vk_Dolzi Decimal(18,4),
        Vk_Pobaruva Decimal(18,4),
        Sifra_Oe int
    )
    -- Pocetni sostojbi
    Declare @God as smallint
    Set @God=year(@Datum_Od)
    Create Table #Bazi
    (
     ImeBaza    varchar(50)
    )
    Insert Into #Bazi Select db_Name()
    If @ParalenliBazi Is Not Null
    Begin
        Declare @Poz_Delim Smallint
        Declare @Poz_Start Smallint
        Declare @BazaIme varchar(50)
        If @ParalenliBazi Is Null
            Set @ParalenliBazi = ''
        Set @Poz_Start = 0
        While 1=1
        Begin
            Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
            If @Poz_Delim = 0
                Break
            Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
            Set @Poz_Start = @Poz_Delim + 1
            Insert Into #Bazi Select @BazaIme
        End
    End
    -------------------------------------------------------------------------------- U S L O V ---------------------------------------------------------------------------------------------------------------
    If @KoiKlasi Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @BezDivizija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Declare @ImeBaza as varchar(50)
    Declare Bazi Cursor
    Fast_Forward For Select ImeBaza From #Bazi
    Open Bazi
    Fetch Next From Bazi Into @ImeBaza
    While @@Fetch_Status = 0
    Begin
        --Pocetna Sostojba
        Set @SSQL = 'Select Kto_Anal, Sum(Dolzi) As Poc_Dolzi, Sum(Pobaruva) as Poc_Pobaruva,
            0 As Tek_Dolzi, 0 As Tek_Pobaruva, 0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
            From ' + @ImeBaza + '..GStav Where Sifra_Nal=999 AND Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
        Insert #BrutoBilans Exec(@SSQL + @SSQLUsl + 'Group By Kto_Anal, Sifra_Oe')
        -- Tekoven Promet
        Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
            Sum(Dolzi) As Tek_Dolzi, Sum(Pobaruva) As Tek_Pobaruva,
            0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
            From ' + @ImeBaza + '..GStav  Where Sifra_Nal <> 999 '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + 'And Datum_Nal>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
        Insert #BrutoBilans Exec(@SSQL + @SSQLUsl + 'Group By Kto_Anal, Sifra_Oe')
        -- Vkupen Promet
        Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
            0 As Tek_Dolzi, 0 As Tek_Pobaruva,
            Sum(Dolzi) As Vk_Dolzi, Sum(Pobaruva) As Vk_Pobaruva, Sifra_Oe
            From ' + @ImeBaza + '..GStav Where  Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
        Insert #BrutoBilans Exec(@SSQL + @SSQLUsl + 'Group By Kto_Anal, Sifra_Oe')
        Fetch Next From Bazi Into @ImeBaza
    End
    Close Bazi
    Deallocate Bazi

    If @Kurs<> 1 And @Kurs <> 0 And @Kurs Is Not Null
        Select BB.Kto_Anal, A.ImeAnal, sum(BB.Poc_Dolzi/@Kurs) Poc_Dolzi, sum(BB.Poc_Pobaruva/@Kurs) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi/@Kurs) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva/@Kurs) Tek_Pobaruva, Sum(BB.Vk_Dolzi/@Kurs) Vk_Dolzi, Sum(BB.Vk_Pobaruva/@Kurs) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        Null Sifra_TrosM, Null ImeTrosM, Null Sifra_TrosV, Null ImeTrosV, Null AS KtoDivTrosM
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By BB.Kto_Anal
    Else
        Select BB.Kto_Anal, A.ImeAnal, sum(BB.Poc_Dolzi) Poc_Dolzi, sum(BB.Poc_Pobaruva) Poc_Pobaruva,
        SUBSTRING(BB.Kto_anal,1,3) Kto_Sint, SUBSTRING(BB.Kto_anal,1,2) Kto_Sint2, S.ImeSint, Sum(BB.Tek_Dolzi) Tek_Dolzi,
        Sum(BB.Tek_Pobaruva) Tek_Pobaruva, Sum(BB.Vk_Dolzi) Vk_Dolzi, Sum(BB.Vk_Pobaruva) Vk_Pobaruva, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
        Null Sifra_TrosM, Null ImeTrosM, Null Sifra_TrosV, Null ImeTrosV, Null AS KtoDivTrosM
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        LEFT OUTER Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By BB.Kto_Anal, A.ImeAnal, SUBSTRING(BB.Kto_anal,1,3), SUBSTRING(BB.Kto_anal,1,2), S.ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By BB.Kto_Anal

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brutobilans_stranski]'))
drop procedure [dbo].[sp_brutobilans_stranski]

Go

CREATE       PROCEDURE    sp_BrutoBilans_Stranski
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @KoiKlasi    Varchar(30),
    @Sifra_OE    smallint = NULL,
    @Koi_Oe    varchar(10) = null,
    @Grupa    char(2) = Null,
    @KtoSint    char(3) = Null,
    @Sifra_Div    smallint = Null,
    @BezDivizija    char(1) = 'N',
    @PocnuvaSo    varchar(10) = Null,    -- se odnesuva na kontoto
    @Kurs        decimal(18,4) = 1
AS
    Declare @SSQL Varchar(3000)
    Create Table #BrutoBilans
    (    Kto_Anal Char(10),
        Poc_Dolzi Decimal(18,4),
        Poc_Pobaruva Decimal(18,4),
        Tek_Dolzi Decimal(18,4),
        Tek_Pobaruva Decimal(18,4),
        Vk_Dolzi Decimal(18,4),
        Vk_Pobaruva Decimal(18,4),
        Sifra_Oe int
    )
    -- Pocetni sostojbi
    Declare @God as smallint
    Set @God=year(@Datum_Od)
    Set @SSQL = 'Select Kto_Anal, Sum(Dolzi) As Poc_Dolzi, Sum(Pobaruva) as Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva, 0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
        From GStav Where Sifra_Nal=999 AND Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)
    -- Tekoven Promet
    Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        Sum(Dolzi) As Tek_Dolzi, Sum(Pobaruva) As Tek_Pobaruva,
        0 As Vk_Dolzi, 0 As Vk_Pobaruva, Sifra_Oe
        From GStav  Where Sifra_Nal <> 999 '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)
    -- Vkupen Promet
    Set @SSQL = 'Select Kto_Anal, 0 As Poc_Dolzi, 0 As Poc_Pobaruva,
        0 As Tek_Dolzi, 0 As Tek_Pobaruva,
        Sum(Dolzi) As Vk_Dolzi, Sum(Pobaruva) As Vk_Pobaruva, Sifra_Oe
        From GStav Where  Year(Datum_Nal) = ' + Cast(@God as char(4)) + ' '
    If @KoiKlasi Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 1) In (' + @KoiKlasi + ') '
    If @Grupa Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 2) = ' + @Grupa + ' '
    If @KtoSint Is Not Null
        Set @SSQL = @SSQL + 'And SubString(Kto_Anal, 1, 3) = ' + @KtoSint + ' '
    If @PocnuvaSo Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal Like ''' + @PocnuvaSo + '% '''
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And Datum_Nal<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @BezDivizija = 'D'
        Set @SSQL = @SSQL + ' And Sifra_Div Is Null '
    Else
    Begin
        If @Sifra_Div Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Div = ' + Cast(@Sifra_Div AS varchar(6)) + ' '
    End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE = ' + Cast(@Sifra_OE AS varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Set @SSQL = @SSQL + 'Group By Kto_Anal, Sifra_Oe'
    Insert #BrutoBilans Exec(@SSQL)

    If @Kurs <> 1 And @Kurs <> 0 And @Kurs Is Not Null
        Select A.Str_Kto Kto_Anal, A.SImeAnal ImeAnal, S.Str_Kto Kto_Sint, Substring(S.Str_Kto,1,2) Kto_Sint2, S.SImeSint ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
            sum(BB.Poc_Dolzi/@Kurs) Poc_Dolzi, sum(BB.Poc_Pobaruva/@Kurs) Poc_Pobaruva,
            Sum(BB.Tek_Dolzi/@Kurs) Tek_Dolzi, Sum(BB.Tek_Pobaruva/@Kurs) Tek_Pobaruva,
            Sum(BB.Vk_Dolzi/@Kurs) Vk_Dolzi, Sum(BB.Vk_Pobaruva/@Kurs) Vk_Pobaruva
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        Left Outer Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By A.Str_Kto, A.SImeAnal, S.Str_Kto, Substring(S.Str_Kto,1,2), S.SImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By A.Str_Kto
    Else
        Select A.Str_Kto Kto_Anal, A.SImeAnal ImeAnal, S.Str_Kto Kto_Sint, Substring(S.Str_Kto,1,2) Kto_Sint2, S.SImeSint ImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org,
            sum(BB.Poc_Dolzi) Poc_Dolzi, sum(BB.Poc_Pobaruva) Poc_Pobaruva,
            Sum(BB.Tek_Dolzi) Tek_Dolzi, Sum(BB.Tek_Pobaruva) Tek_Pobaruva,
            Sum(BB.Vk_Dolzi) Vk_Dolzi, Sum(BB.Vk_Pobaruva) Vk_Pobaruva
        From #BrutoBilans BB
        Inner Join Anal A On BB.Kto_Anal=A.Kto_Anal
        Left Outer Join Sint S On A.Kto_Sint=S.Kto_Sint
        Left Outer Join Orged O On O.Sifra_Oe = BB.Sifra_Oe
        Group By A.Str_Kto, A.SImeAnal, S.Str_Kto, Substring(S.Str_Kto,1,2), S.SImeSint, BB.Sifra_Oe, O.ImeOrg, O.Map_Org
        Order By A.Str_Kto

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_brzquer_str]'))
drop procedure [dbo].[sp_brzquer_str]

Go

CREATE       PROCEDURE sp_BrzQuer_Str
    @Tabela as varchar (30),
    @Kluc as varchar (30),
    @VrKluc as varchar (30),
    @Pole as varchar (30)
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select ' + @Pole + ' from ' + @Tabela + ' where ' + @Kluc + ' = ''' + @Vrkluc + ''''
    Exec(@SSQL)
    print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_budzet_plan_ostvareno]'))
drop procedure [dbo].[sp_budzet_plan_ostvareno]

Go



CREATE    PROCEDURE [dbo].[sp_Budzet_Plan_Ostvareno]
    @Godina    smallint,
    @Mesec_Od    smallint,
    @Mesec_Do    smallint,
    @Kurs        decimal(18,6),
    @KojaPodel    varchar(10)='DIV'
AS

    Declare @SSQL as varchar(8000)

    Create Table #Rez
    (
        Godina        smallint,
        Mesec        smallint,    --varchar(2),
        Sifra_Div    varchar(20),
        Planirano    decimal(18,4),
        Realizirano    decimal(18,4)
    )

    Insert Into #Rez
    Select Godina, Mesec, Sifra, Sum(Iznos), 0
    From PlanBudzet
    Where Godina=@Godina And Mesec>=@Mesec_Od And Mesec<=@Mesec_Do
    Group By Godina, Mesec, Sifra
IF @KojaPodel='DIV'
BEGIN
    Insert Into #Rez
    Select Year(G.Datum_Nal), Month(G.Datum_Nal), GAD.Sifra_Div, 0, Sum(GAD.Dolzi-GAD.Pobaruva)
    From GStav G
    Inner Join GstAnDiv GAD On GAD.GstID=G.GstID
    Where Year(G.Datum_Nal)=@Godina And Month(G.Datum_Nal)>=@Mesec_Od And Month(G.Datum_Nal)<=@Mesec_Do
    Group By Year(G.Datum_Nal), Month(G.Datum_Nal), GAD.Sifra_Div

    Select R.Godina, (Case When R.Mesec=1 Then  '01 January'
                            When R.Mesec=2 Then '02 February'
                            When R.Mesec=3 Then '03 March'
                            When R.Mesec=4 Then '04 April'
                            When R.Mesec=5 Then '05 May'
                            When R.Mesec=6 Then '06 June'
                            When R.Mesec=7 Then '07 July'
                            When R.Mesec=8 Then '08 August'
                            When R.Mesec=9 Then '09 September'
                            When R.Mesec=10 Then '10 October'
                            When R.Mesec=11 Then '11 November'
                            When R.Mesec=12 Then '12 December' End) Mes,
        D.Sif_Prik, D.ImeStr, D.Gr_Div, ImeGrDiv, Sum(Planirano/@Kurs) Budget, Sum(Realizirano/@Kurs) Realized
    From #Rez R
    Left Outer Join Divizii D On D.Sifra_Div=R.Sifra_Div
    Group By R.Godina, R.Mesec, D.Sif_Prik, D.ImeStr, D.Gr_Div, ImeGrDiv
END
ELSE IF @KojaPodel='ANAL'
BEGIN
    Insert Into #Rez
    Select Year(G.Datum_Nal), Month(G.Datum_Nal), G.Kto_Anal, 0, Sum(G.Dolzi-G.Pobaruva)
    From GStav G
    Where Year(G.Datum_Nal)=@Godina And Month(G.Datum_Nal)>=@Mesec_Od And Month(G.Datum_Nal)<=@Mesec_Do AND
    G.KTo_Anal IN (SELECT Sifra FROM PlanBudzet WHERE Godina=@Godina)
    Group By Year(G.Datum_Nal), Month(G.Datum_Nal),  G.Kto_Anal

    UPDATE #Rez SET Realizirano=Realizirano * -1 WHERE Realizirano<0

    Select R.Godina, (Case When R.Mesec=1 Then  '01 January'
                            When R.Mesec=2 Then '02 February'
                            When R.Mesec=3 Then '03 March'
                            When R.Mesec=4 Then '04 April'
                            When R.Mesec=5 Then '05 May'
                            When R.Mesec=6 Then '06 June'
                            When R.Mesec=7 Then '07 July'
                            When R.Mesec=8 Then '08 August'
                            When R.Mesec=9 Then '09 September'
                            When R.Mesec=10 Then '10 October'
                            When R.Mesec=11 Then '11 November'
                            When R.Mesec=12 Then '12 December' End) Mes,
        A.Kto_Anal Sif_Prik, A.ImeAnal ImeStr, A.Kto_Sint Gr_Div, S.ImeSint ImeGrDiv, Sum(Planirano/@Kurs) Budget, Sum(Realizirano/@Kurs) Realized
    From #Rez R
    Left Outer Join Anal A ON A.Kto_Anal=R.Sifra_Div
    LEFT OUTER JOIN Sint S ON A.Kto_Sint=S.Kto_Sint
    Group By R.Godina, R.Mesec, A.Kto_Anal, A.ImeAnal, A.Kto_Sint, S.ImeSint
END
ELSE IF @KojaPodel='GRANAL'
BEGIN
    Insert Into #Rez
    Select Year(G.Datum_Nal), Month(G.Datum_Nal), GR.Sif_GrAnalPlan, 0,
    Sum(CASE GS.D_P_SD_SP WHEN 'D' THEN G.Dolzi WHEN 'P' THEN G.Pobaruva WHEN 'SD' THEN G.Dolzi-G.Pobaruva WHEN 'SP' THEN G.Pobaruva-G.Dolzi End)
    From GStav G
    INNER JOIN GrAnalPlanSt GS ON G.Kto_Anal=GS.Kto_Anal
    INNER JOIN GrAnalPlan GR ON GS.Sif_GrAnalPlan = GR.Sif_GrAnalPlan
    Where Year(G.Datum_Nal)=@Godina And Month(G.Datum_Nal)>=@Mesec_Od And Month(G.Datum_Nal)<=@Mesec_Do
    Group By Year(G.Datum_Nal), Month(G.Datum_Nal), GR.Sif_GrAnalPlan

    Select R.Godina, (Case When R.Mesec=1 Then  '01 January'
                            When R.Mesec=2 Then '02 February'
                            When R.Mesec=3 Then '03 March'
                            When R.Mesec=4 Then '04 April'
                            When R.Mesec=5 Then '05 May'
                            When R.Mesec=6 Then '06 June'
                            When R.Mesec=7 Then '07 July'
                            When R.Mesec=8 Then '08 August'
                            When R.Mesec=9 Then '09 September'
                            When R.Mesec=10 Then '10 October'
                            When R.Mesec=11 Then '11 November'
                            When R.Mesec=12 Then '12 December' End) Mes,
        GR.Sif_GrAnalPlan Sif_Prik, Gr.Ime_GrAnalPlan ImeStr, '' Gr_Div, '' ImeGrDiv, Sum(Planirano/@Kurs) Budget, Sum(Realizirano/@Kurs) Realized,
        Sum(Planirano/@Kurs) - Sum(Realizirano/@Kurs) Difference
    From #Rez R
    LEFT OUTER JOIN GrAnalPlan GR ON R.Sifra_Div = GR.Sif_GrAnalPlan
    Group By R.Godina, R.Mesec, GR.Sif_GrAnalPlan, Gr.Ime_GrAnalPlan
END




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cen_kom_izveden]'))
drop procedure [dbo].[sp_cen_kom_izveden]

Go

CREATE procedure sp_Cen_Kom_Izveden
    @Sifra_kup    char(6),
    @Osn_Cen_Kom    varchar(6) = Null,
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @SifrA_Tar    chaR(3) = Null

 AS

    Create Table #CenKom
    (
     Sifra_Kup    char(6),
     Sifra_Art    varchaR(20),
     Aktiven    chaR(1),
     Cena        decimal(18,6),
     Popust        decimal(9,2)
    )

    Declare @SSQLUsl as Varchar(2000)
    Set @SSQLUsl = ' Where 1 = 1 '

    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and C.Sifra_art >= ''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and C.Sifra_art <= ''' + @Sifra_art_Do + ''' '

    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Kto= ''' + @Kto + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Drg = ' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and B.Sifra_Drg1 = ' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
       If @Sifra_Tar Is Not Null
              Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Tar = ''' + @Sifra_Tar + ''' '

    Declare @SSQL as Varchar(2000)

    --- Insertiraj gi onie artikli koi DIREKTNO se na ovoj komint
    Set @SSQL= ' Insert Into #CenKom (Sifra_Kup, Sifra_Art, Aktiven, Cena, Popust)
             Select C.Sifra_Kup, C.Sifra_art, C.Aktiven, C.Cena, C.Popust
             From Cenovnik C '

    Declare @SSQL_Join as Varchar(2000)
    Set @SSQL_Join= ''
    If @Sifra_ZBrand Is Not Null or @Sifra_Gr is Not null or @Sifra_Podg is Not null
            or @Lokacija is not Null or @Kto is not null or @Sifra_Brand is not null
            or @Sifra_Tar is not null
           Set @SSQL_Join = @SSQL_Join + ' INNER JOIN Katart K ON K.Sifra_Art=C.Sifra_Art '
    If @Sifra_ZBrand Is Not Null
           Set @SSQL_Join = @SSQL_Join + ' INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    If @Sifra_Gr Is Not Null
           Set @SSQL_Join = @SSQL_Join + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '

    Exec (@SSQL + @SSQL_Join + @SSQLUsl + ' and C.Sifra_Kup = ''' + @Sifra_Kup + ''' ')

    -- Najdi vo koja cenovna grupa e komintentot, i dodaj gi cenite od taa cenovna grupa
    Declare @KDrugo1 varchar(6)
    Declare @TipKup varchar(11)
    select @KDrugo1 = cast (KDrugo1 as varchar(6)),
           @TipKup = TipKup
    from Komint
    where Sifra_Kup = @Sifra_Kup

    if @KDrugo1 is not null
    begin
        Declare @ZbirenKom as varchar(6)
        set @ZbirenKom = dbo.fn_LevoNuliStr(@KDrugo1, 6)    -- Svedi na ssifra na komintent

        Set @SSQL= ' Insert Into #CenKom (Sifra_Kup, Sifra_Art, Aktiven, Cena, Popust)
                 Select C.Sifra_Kup, C.Sifra_art, C.Aktiven, C.Cena, C.Popust
                 From Cenovnik C '

        Exec (@SSQL + @SSQL_Join + @SSQLUsl +
            ' and C.Sifra_Art not in (select sifra_art from #CenKom)
              and C.Sifra_Kup = ''' + @ZbirenKom + ''' ')

    end

    -- Dodaj gi cenite od OSNOVNIOT CENOVNIK, AKO IMA TAKOV
    if @Osn_Cen_Kom is not null
    begin
        Set @SSQL= ' Insert Into #CenKom (Sifra_Kup, Sifra_Art, Aktiven, Cena, Popust)
                 Select C.Sifra_Kup, C.Sifra_art, C.Aktiven, C.Cena, C.Popust
                 From Cenovnik C '

        Exec (@SSQL + @SSQL_Join + @SSQLUsl +
            ' and C.Sifra_Art not in (select sifra_art from #CenKom)
              and C.Sifra_Kup = ''' + @Osn_Cen_Kom + ''' ')

    end

    -- Presmetaj gi rabatite
    update #CenKom
    set Popust = 0
    where Popust is null

    -- Najdi vo koja RABATNA grupa e komintentot, i dodeli gi rabatite od taa cenovna grupa
    -- Gore go najdov @TipKup zaradi efikasnost
    update #CenKom
    set Popust = CP.Uces
    from CenPoPodgr CP,
         Katart K
    where CP.Tip_Podelba = 'P' and CP.TipKup = @TipKup
          and K.Sifra_Art = #CenKom.Sifra_Art
          and K.Sifra_Podg = CP.Sifra_Podelba

    -- Vrati go rezutltatot
    select C.*, Kom.ImeKup, K.ImeArt, K.EdMera
    from #CenKom C
    inner join Katart K on C.Sifra_Art = K.Sifra_Art
    inner join Komint Kom on C.Sifra_Kup = Kom.Sifra_Kup
        Order By C.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cen_kombiniran]'))
drop procedure [dbo].[sp_cen_kombiniran]

Go

create procedure sp_Cen_Kombiniran
    @Sifra_kup    char(6),
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @SifrA_Tar    chaR(3) = Null,
    @KojaPodel    char(1) = Null

 AS

    Create Table #CenKom
    (
     Sifra_Kup    char(6),
     Sifra_Elem    varchaR(20),
     Ime_Elem    varchaR(50),
     Tip_Elem    char(1),
     Aktiven    chaR(1),
     Cena        decimal(18,6),
     Popust        decimal(9,2)
    )

    Declare @SSQLUsl as Varchar(2000)
    Set @SSQLUsl = ' Where 1 = 1 '

    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and C.Sifra_art >= ''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and C.Sifra_art <= ''' + @Sifra_art_Do + ''' '

    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Kto= ''' + @Kto + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Drg = ' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and B.Sifra_Drg1 = ' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
       If @Sifra_Tar Is Not Null
              Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Tar = ''' + @Sifra_Tar + ''' '

    Declare @SSQL as Varchar(2000)

    --- Insertiraj gi onie artikli koi DIREKTNO se na ovoj komint
    Set @SSQL= ' Insert Into #CenKom
            (Sifra_Kup, Sifra_Elem, Ime_Elem, Aktiven, Cena, Popust, Tip_Elem)
             Select C.Sifra_Kup, C.Sifra_art, K.ImeArt, C.Aktiven, C.Cena, C.Popust, ''A''
             From Cenovnik C
                INNER JOIN Katart K ON K.Sifra_Art=C.Sifra_Art '

    Declare @SSQL_Join as Varchar(2000)
    Set @SSQL_Join= ''
    If @Sifra_ZBrand Is Not Null
           Set @SSQL_Join = @SSQL_Join + ' INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    If @Sifra_Gr Is Not Null
           Set @SSQL_Join = @SSQL_Join + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '

    Exec (@SSQL + @SSQL_Join + @SSQLUsl + ' and C.Sifra_Kup = ''' + @Sifra_Kup + ''' ')

    --- Insertiraj gi onie elementite od CENOVNIK PO PODZGRUPI
    Set @SSQL= ' Insert Into #CenKom
            (Sifra_Kup, Sifra_Elem, Ime_Elem, Aktiven, Cena, Popust, Tip_Elem)
             Select C.TipKup, C.Sifra_Podelba, null, ''D'', 0, C.Uces, ''P''
             From CenPoPOdgr C
             where C.TipKup = ''' + @Sifra_Kup + ''' '

    Exec (@SSQL)

    if @KojaPodel = '1'
        update #CenKom
        set Ime_Elem = D.Ime_1
        from Drugo1 D
        where D.Sifra_1 = #CenKom.Sifra_Elem
    else if @KojaPodel = '2'
        update #CenKom
        set Ime_Elem = D.Ime_2
        from Drugo2 D
        where D.Sifra_2 = #CenKom.Sifra_Elem
    else if @KojaPodel = '7'
        update #CenKom
        set Ime_Elem = D.Ime_7
        from Drugo7 D
        where D.Sifra_7 = #CenKom.Sifra_Elem

    -- Vrati go rezutltatot
    select C.*, Kom.ImeKup
    from #CenKom C
    inner join Komint Kom
        on C.Sifra_Kup = Kom.Sifra_Kup
        Order By C.Tip_Elem, C.Ime_Elem






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cen_kup_podel]'))
drop procedure [dbo].[sp_cen_kup_podel]

Go

create procedure sp_Cen_Kup_Podel
    @Sifra_kup    char(6) = Null,
    @Sifra_kup_Do    char(6) = Null,
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @SifrA_Tar    chaR(3) = Null,
    @KojaPodel    char(1) = Null

 AS

    Create Table #CenKom
    (
     Sifra_Kup    char(6),
     Sifra_Elem    varchaR(20),
     Ime_Elem    varchaR(50),
     Tip_Elem    char(1),
     Aktiven    chaR(1),
     Cena        decimal(18,6),
     Popust        decimal(9,2)
    )

    Declare @SSQL as Varchar(2000)

    Set @SSQL= ' Insert Into #CenKom
            (Sifra_Kup, Sifra_Elem, Ime_Elem, Aktiven, Cena, Popust, Tip_Elem)
             Select C.TipKup, C.Sifra_Podelba, null, ''D'', 0, C.Uces, ''P''
             From CenPoPOdgr C
             where 1 = 1  '
    if @Sifra_Kup is not null
        set @SSQL = @SSQL + ' and C.TipKup >= ''' + @Sifra_Kup + ''' '
    if @Sifra_Kup_Do is not null
        set @SSQL = @SSQL + ' and C.TipKup <= ''' + @Sifra_Kup_Do + ''' '

    Exec (@SSQL)

    if @KojaPodel = '1'
        update #CenKom
        set Ime_Elem = D.Ime_1
        from Drugo1 D
        where D.Sifra_1 = #CenKom.Sifra_Elem
    else if @KojaPodel = '2'
        update #CenKom
        set Ime_Elem = D.Ime_2
        from Drugo2 D
        where D.Sifra_2 = #CenKom.Sifra_Elem
    else if @KojaPodel = '7'
        update #CenKom
        set Ime_Elem = D.Ime_7
        from Drugo7 D
        where D.Sifra_7 = #CenKom.Sifra_Elem

    -- Vrati go rezutltatot
    select C.*, Kom.ImeKup
    from #CenKom C
    inner join Komint Kom
        on C.Sifra_Kup = Kom.Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenaodsoart]'))
drop procedure [dbo].[sp_cenaodsoart]

Go
CREATE  PROCEDURE sp_CenaOdSoArt
    @Sifra_OE    smallint,
    @Sifra_art    varchar(20),
    @Cena        decimal(18,2)  OUTPUT,
    @DanCena    char(1) OUTPUT
 AS
    SELECT @Cena = Cena, @DanCena = DanCena     FROM SoArt WHERE Sifra_OE=@Sifra_OE AND Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ceniodcengrorg]'))
drop procedure [dbo].[sp_ceniodcengrorg]

Go


CREATE           PROCEDURE sp_CeniOdCenGrOrg
    @Sifra_OE        smallint
AS
Declare @Sif_GrOrg char(6)
SELECT @Sif_GrOrg = G.Sif_GrOrg FROM SGrOrg S INNER JOIN GrOrg G ON S.Sif_GrOrg=G.Sif_GrOrg
WHERE G.Edinstvena ='D' AND S.Sifra_Oe=@Sifra_OE
SELECT Sif_GrOrg, Sifra_Art,Cena FROM CenGrOrg WHERE Sif_GrOrg=@Sif_GrOrg




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenizakatkasa]'))
drop procedure [dbo].[sp_cenizakatkasa]

Go

CREATE           PROCEDURE sp_CeniZaKatKasa
    @Sifra_OE        smallint,
    @Datum_Od        smalldatetime =NULL
AS
IF @Datum_Od IS NULL SET @Datum_Od = GetDate()
Declare @SSQL varchar(3000)
CREATE TABLE #TmpCen
(Sifra_Art varchar (20),
MalCena decimal(18, 4) ,
DanMalCena char(1),
Kolic    decimal(18,4) )
INSERT INTO #TmpCen (Sifra_Art, MalCena,DanMalCena, Kolic) SELECT Sifra_Art, Cena, DanCena, Vlez-Izlez FROM SoArt WHERE Sifra_OE=@Sifra_OE
CREATE TABLE #TmpNeraskn
(Sifra_Art    varchar(20),
 Kolic        decimal(18,4))
INSERT INTO #TmpNeraskn (Sifra_Art, Kolic)   SELECT Sifra_Art, Sum(Kolic-RKolic) FROM KSPromet WHERE Sifra_OE=@Sifra_OE AND Kolic<>RKolic GROUP BY Sifra_Art
UPDATE #TmpCen SET Kolic = #TmpCen.Kolic - N.Kolic FROM #TmpNeraskn N WHERE #TmpCen.Sifra_Art = N.Sifra_Art
SELECT * FROM #TmpCen




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenovnici_istorija]'))
drop procedure [dbo].[sp_cenovnici_istorija]

Go
CREATE          PROCEDURE sp_Cenovnici_Istorija
    @VlIzl            char(1)='I',
    @Tip_Sif_Kup        char(1)=' ',
    @Sif_Kup_Gen        varchar(11)='',
    @Tip_Sif_Art        char(1)='A',
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Sifra_Podg        char(6)=Null,
    @Sifra_Gr        varchar(6)=Null,
    @Sifra_Drg        smallint=Null,
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)=Null,
    @Podr            char(1)='S',            --Sifra,Ime
    @ADrugo1        smallint = Null,
    @ADrugo2        smallint = Null,
    @ADrugo3        smallint = Null,
    @ADrugo4        smallint = Null,
    @ADrugo5        smallint = Null,
    @KFADrugo1        char(1) = 'N',
    @KFADrugo2        char(1) = 'N',
    @KFADrugo3        char(1) = 'N',
    @KFADrugo4        char(1) = 'N',
    @KFADrugo5        char(1) = 'N'
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpArt
(Sif_Art_Gen varchar (20),
ImeArt    varchar(40))
CREATE TABLE #TmpUsl
(VlIzl char(1),
Tip_Sif_Kup char(1),
Sif_Kup_Gen varchar (11),
Tip_Sif_Art char(1),
Sif_Art_Gen varchar (20),
Datum_Od smalldatetime,
Rok_Dosp smallint,
Datum_Do smalldatetime,
Uces decimal(6,2),
Dod_Uces decimal(6,2),
Cena decimal(18,4),
MalCena decimal(18,4),
DanCena char(1),
DanMalCena char(1),
ImeKup    varchar(40),
ImeArt    varchar(40),
Sifra_Podg char(6),
Ime_Podg varchar(40),
Sifra_Gr char(3),
Ime_Gr varchar(40)   )
IF @Tip_Sif_Art= 'A'
Begin
    SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt FROM KatArt A '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL = @SSQL + 'INNER JOIN Podgrupi P ON A.Sifra_Podg=P.Sifra_Podg '
    SET @SSQL = @SSQL +' WHERE 1=1 '
    IF @Sifra_Podg IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL = @SSQL + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    IF @Sifra_Drg IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Drg = ' + Cast(@Sifra_Drg as varchar(5)) + ' '
    If @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    IF @ADrugo1 IS NOT NULL
        IF @KFADrugo1 = 'D'
            SET @SSQL = @SSQL + ' AND (A.Drugo1 <> ' + Cast(@ADrugo1 as varchar(5)) + ' Or A.Drugo1 Is Null) '
        Else
            SET @SSQL = @SSQL + ' AND A.Drugo1 = ' + Cast(@ADrugo1 as varchar(5)) + ' '
    IF @ADrugo2 IS NOT NULL
        IF @KFADrugo2 = 'D'
            SET @SSQL = @SSQL + ' AND (A.Drugo2 <> ' + Cast(@ADrugo2 as varchar(5)) + ' Or A.Drugo2 Is Null) '
        Else
            SET @SSQL = @SSQL + ' AND A.Drugo2 = ' + Cast(@ADrugo2 as varchar(5)) + ' '
    IF @ADrugo3 IS NOT NULL
        IF @KFADrugo3 = 'D'
            SET @SSQL = @SSQL + ' AND (A.Drugo3 <> ' + Cast(@ADrugo3 as varchar(5)) + ' Or A.Drugo3 Is Null) '
        Else
            SET @SSQL = @SSQL + ' AND A.Drugo3 = ' + Cast(@ADrugo3 as varchar(5)) + ' '
    IF @ADrugo4 IS NOT NULL
        IF @KFADrugo4 = 'D'
            SET @SSQL = @SSQL + ' AND (A.Drugo4 <> ' + Cast(@ADrugo4 as varchar(5)) + ' Or A.Drugo4 Is Null) '
        Else
            SET @SSQL = @SSQL + ' AND A.Drugo4 = ' + Cast(@ADrugo4 as varchar(5)) + ' '
    IF @ADrugo5 IS NOT NULL
        IF @KFADrugo5 = 'D'
            SET @SSQL = @SSQL + ' AND (A.Drugo5 <> ' + Cast(@ADrugo5 as varchar(5)) + ' Or A.Drugo5 Is Null) '
        Else
            SET @SSQL = @SSQL + ' AND A.Drugo5 = ' + Cast(@ADrugo5 as varchar(5)) + ' '
End
ELSE IF @Tip_Sif_Art= 'P'
    SET @SSQL = 'SELECT P.Sifra_Podg, P.Ime_Podg FROM Podgrupi P '
ELSE IF @Tip_Sif_Art= 'G'
    SET @SSQL = 'SELECT G.Sifra_Gr, G.Ime_Gr FROM Grupi G '
ELSE IF @Tip_Sif_Art= 'B'
    SET @SSQL = 'SELECT D.Sifra_Drg, D.Ime FROM  DrgPodel D '
ELSE IF @Tip_Sif_Art= '1'
    SET @SSQL = 'SELECT D.Sifra_1, D.Ime_1 FROM  Drugo1 D '
ELSE IF @Tip_Sif_Art= '2'
    SET @SSQL = 'SELECT D.Sifra_2, D.Ime_2 FROM  Drugo2 D '
ELSE IF @Tip_Sif_Art= '3'
    SET @SSQL = 'SELECT D.Sifra_3, D.Ime_3 FROM Drugo3 D '
ELSE IF @Tip_Sif_Art= '4'
    SET @SSQL = 'SELECT D.Sifra_4, D.Ime_4 FROM Drugo4 D '
ELSE IF @Tip_Sif_Art= '5'
    SET @SSQL = 'SELECT D.Sifra_5, D.Ime_5 FROM Drugo5 D '
ELSE
    SET @SSQL = ' SELECT TOP 1 '''', '''' FROM KatArt '
INSERT INTO #TmpArt (Sif_Art_Gen, ImeArt) EXEC (@SSQL)
SET @SSQL='SELECT U.VlIzl, U.Tip_Sif_Kup, U.Sif_Kup_Gen, U.Tip_Sif_Art, U.Sif_Art_Gen, U.Datum_Od, U.Rok_Dosp, U.Datum_Do, U.Uces,
U.Dod_Uces, U.Cena, U.MalCena, U.DanCena, U.DanMalCena
FROM #TmpArt A INNER JOIN Usl_Komerc_Per U ON A.Sif_Art_Gen = U.Sif_Art_Gen
WHERE U.Datum_Od >= '''+ cast(@Datum_Od as varchar(30))+ ''' AND U.Datum_Od <='''+CAST(@Datum_Do as varchar(30))+ ''' '
IF @Sif_Kup_Gen <>'' AND @Tip_Sif_Kup <>' '
    SET @SSQL=@SSQL+' AND Tip_Sif_Kup=''' + @Tip_Sif_Kup + ''' AND Sif_Kup_Gen = ''' + @Sif_Kup_Gen + ''' '
INSERT INTO #TmpUsl (VlIzl, Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art, Sif_Art_Gen, Datum_Od, Rok_Dosp, Datum_Do, Uces,
Dod_Uces, Cena, MalCena, DanCena, DanMalCena) EXEC(@SSQL)
UPDATE #TmpUsl SET ImeArt=A.ImeArt, Sifra_Podg = P.Sifra_Podg, Ime_Podg = P.Ime_Podg, Sifra_Gr=P.Sifra_Gr
FROM KatArt A, Podgrupi P WHERE #TmpUsl.Sif_Art_Gen=A.Sifra_Art AND A.Sifra_Podg=P.Sifra_Podg AND #TmpUsl.Tip_Sif_Art= 'A'
UPDATE #TmpUsl SET ImeArt = P.Ime_Podg, Sifra_Gr=P.Sifra_Gr
FROM Podgrupi P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_Podg AND #TmpUsl.Tip_Sif_Art= 'P'
UPDATE #TmpUsl SET Ime_Gr = G.Ime_Gr FROM Grupi G WHERE #TmpUsl.Sifra_Gr=G.Sifra_Gr
UPDATE #TmpUsl SET ImeArt=P.Ime_1 FROM Drugo1 P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_1 AND #TmpUsl.Tip_Sif_Art= '1'
UPDATE #TmpUsl SET ImeArt=P.Ime_2 FROM Drugo2 P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_2 AND #TmpUsl.Tip_Sif_Art= '2'
UPDATE #TmpUsl SET ImeArt=P.Ime_3 FROM Drugo3 P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_3 AND #TmpUsl.Tip_Sif_Art= '3'
UPDATE #TmpUsl SET ImeArt=P.Ime_4 FROM Drugo4 P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_4 AND #TmpUsl.Tip_Sif_Art= '4'
UPDATE #TmpUsl SET ImeArt=P.Ime_5 FROM Drugo5 P WHERE #TmpUsl.Sif_Art_Gen=P.Sifra_5 AND #TmpUsl.Tip_Sif_Art= '5'
UPDATE #TmpUsl SET ImeArt=K.ImeKup FROM Komint K WHERE #TmpUsl.Sif_Art_Gen=K.Sifra_Kup AND #TmpUsl.Tip_Sif_Art= 'D'
UPDATE #TmpUsl SET ImeKup = K.ImeKup FROM Komint K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_Kup AND #TmpUsl.Tip_Sif_Kup='K'
UPDATE #TmpUsl SET ImeKup = T.ImeTip FROM TipKomint T WHERE #TmpUsl.Sif_Kup_Gen=T.Sifra_Tip AND #TmpUsl.Tip_Sif_Kup='T'
UPDATE #TmpUsl SET ImeKup = K.Ime_1K FROM KDrugo1 K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_1K AND #TmpUsl.Tip_Sif_Kup='1'
UPDATE #TmpUsl SET ImeKup = K.Ime_2K FROM KDrugo2 K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_2K AND #TmpUsl.Tip_Sif_Kup='2'
UPDATE #TmpUsl SET ImeKup = K.Ime_3K FROM KDrugo3 K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_3K AND #TmpUsl.Tip_Sif_Kup='3'
UPDATE #TmpUsl SET ImeKup = K.Ime_4K FROM KDrugo4 K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_4K AND #TmpUsl.Tip_Sif_Kup='4'
UPDATE #TmpUsl SET ImeKup = K.Ime_5K FROM KDrugo5 K WHERE #TmpUsl.Sif_Kup_Gen=K.Sifra_5K AND #TmpUsl.Tip_Sif_Kup='5'
SET @SSQL = 'SELECT * FROM #TmpUsl '
IF @Podr='S'
    SET @SSQL = @SSQL + ' ORDER BY Sif_Art_Gen, Datum_Od '
ELSE
    SET @SSQL = @SSQL + ' ORDER BY ImeArt, Datum_Od '
--print @ssql
EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenovnik_gr_orged]'))
drop procedure [dbo].[sp_cenovnik_gr_orged]

Go


CREATE                     PROCEDURE sp_Cenovnik_Gr_Orged
       @Sifra_OE smallint = Null,
       @Koi_OE varchar(10) = Null,
       @Koi_Artikli char(1) = Null,
      @Tip_Podr char(1) = Null,
      @Sifra_Od Varchar(20) = Null,
       @Sifra_Do Varchar(20) = Null,
       @Kto char(6) = Null,
       @Sifra_Gr varchar(6) = Null,
       @Sifra_Podg char(6) = Null,
       @Lokacija varchar(10) = Null,
    @Sifra_Tar char(3) = Null,
    @Sifra_Brand     Varchar(300) = Null,     --Smallint = Null,
    @Sifra_ZBrand     Smallint = Null,
    @Iskluci    char(1) = 'N',
    @SoPodgrupi    char(1) = 'N',
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N
    @KolkuMesta    smallint = Null,        -- Se Odnesuva na podgrupite    2, 3, 4, 5, 6
    @ADrugo1    smallint = Null,
    @ADrugo2    smallint = Null,
    @ADrugo3    smallint = Null,
    @ADrugo4    smallint = Null,
    @ADrugo5    smallint = Null,
    @Aktiven    char(1) = Null,
    @CeniSamoOdArt char(1) = 'N',
    @Sifra_Div    smallint = Null,
        @ImeArtDel    varchar(20) = Null
AS
    Set Nocount Off
    Declare @SSQL varchar(8000)
    If @CeniSamoOdArt = 'D'
        Set @SSQL = ' SELECT Null Sifra_Oe, Null ImeOrg, Sum(S.Vlez) Vlez, Sum(S.Izlez) Izlez, Null Cena, Null NNabCena, Null DanCena, '
    Else
        Set @SSQL=' SELECT S.Sifra_Oe, O.ImeOrg, S.Vlez, S.Izlez, S.Cena, K.GotCena, S.NNabCena, S.DanCena, '
    Set @SSQL = @SSQL + '  S.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, T.ProcOsn, K.Sifra_Tar, T.ImeTar,
        K.Dogcena, K.Malcena,  K.Specena, K.Tezina, K.ImaKomerc, K.ImaBroevi, K.Lokacija, K.Nabavna, K.KolkuDrg, K.GotCena,
        Nomen = Case K.Nom When NULL Then dbo.fn_Nom(K.Sifra_Art) Else K.Nom End, '
    If @SoPodgrupi = 'D'
           If @KolkuMesta Is Not Null
        Set @SSQL = @SSQL + ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
          Else
        Set @SSQL = @SSQL + ' K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
    Else
        Set @SSQL = @SSQL + ' K.Sifra_Podg,  '' '' as Ime_Podg, '' '' as Sifra_Gr, '' '' as Ime_Gr, '
    Set @SSQL=@SSQL + ' K.Sifra_Drg, B.Ime as ImeDrg, K.Kto as Sifra_kup, Kup.ImeKup
            FROM Soart S
            INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
            INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
            INNER JOIN Orged O On O.Sifra_Oe=S.Sifra_Oe '
    If @KolkuMesta Is Not Null
        Set @SSQL=@SSQL+'Left Outer Join Podgrupi PG On PG.Sifra_Podg = Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ')
                          Left Outer Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    Else
        Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                          INNER  Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    If @Sifra_ZBrand Is Not Null
           Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Else
        Set @SSQL=@SSQL+'Left Outer JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+'Left Outer Join Komint Kup On Kup.Sifra_kup = K.Kto '
    If @Sifra_Oe Is Not Null
           Set @SSQL=@SSQL+' Where S.Sifra_OE='+Cast(@Sifra_OE As Char(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' Where S.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Iskluci = 'D'
           Set @SSQL = @SSQL + ' And K.Iskluci <> ''' + @Iskluci  + ''' '
       If @Sifra_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Od + ''' '
       If @Sifra_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg In (' + @Sifra_Brand + ')) '             --=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @CeniSamoOdArt <> 'D' Or @CeniSamoOdArt Is Null
    Begin
           If @Koi_Artikli='S'
                  Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez<>0) '
           Else If @Koi_Artikli='P'
                  Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez>0) '
           Else If @Koi_Artikli='N'
                  Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez<0) '
           Else If @Koi_Artikli='0'
                  Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez=0) '
    End
       If @Kto Is Not Null
              Set @SSQL=@SSQL+'AND (K.Kto='''+@Kto+''') '
       If @Sifra_Gr Is Not Null
              Set @SSQL=@SSQL+'AND (PG.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQL = @SSQL + ' AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
                  Set @SSQL = @SSQL + ' AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija Is Not Null
          Set @SSQL = @SSQL + ' AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Tar Is Not Null
              Set @SSQL = @SSQL + ' AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
    If @ADrugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@ADrugo1 As Varchar(6)) + ' '
    If @ADrugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@ADrugo2 As Varchar(6)) + ' '
    If @ADrugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@ADrugo3 As Varchar(6)) + ' '
    If @ADrugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@ADrugo4 As Varchar(6)) + ' '
    If @ADrugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@ADrugo5 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven Is Null Or K.Aktiven <> ''N'') '
        If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    If @CeniSamoOdArt = 'D'
        Set @SSQL = @SSQL + ' Group By  S.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, T.ProcOsn, K.Sifra_Tar, T.ImeTar,
                             K.Dogcena, K.Malcena,  K.Specena, K.Tezina, K.ImaKomerc, K.ImaBroevi, K.Lokacija, K.Nabavna, K.KolkuDrg, K.GotCena,
                             (Case K.Nom When NULL Then dbo.fn_Nom(K.Sifra_Art) Else K.Nom End),
                             K.Sifra_Drg, B.Ime, K.Kto, Kup.ImeKup, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr '
    If @CeniSamoOdArt = 'D'
    Begin
           If @Koi_Artikli='S'
                  Set @SSQL = @SSQL + ' Having Sum(S.Vlez-S.Izlez) <> 0 '
           Else If @Koi_Artikli='P'
                  Set @SSQL = @SSQL + ' Having Sum(S.Vlez-S.Izlez) > 0 '
           Else If @Koi_Artikli='N'
                  Set @SSQL = @SSQL + ' Having Sum(S.Vlez-S.Izlez) < 0 '
           Else If @Koi_Artikli='0'
                  Set @SSQL = @SSQL + ' Having Sum(S.Vlez-S.Izlez) = 0 '
    End

       If @Tip_Podr='S'
              Set @SSQL=@SSQL+'ORDER BY S.Sifra_Art'
       Else If @Tip_Podr='A'
              Set @SSQL=@SSQL+'ORDER BY K.ImeArt'
       Else If @Tip_Podr='P'
              Set @SSQL=@SSQL+'ORDER BY K.Sifra_Podg'
       Else If @Tip_Podr='G'
              Set @SSQL=@SSQL+'ORDER BY P.Sifra_Gr'
       Else If @Tip_Podr='L'
              Set @SSQL=@SSQL+'ORDER BY K.Lokacija'
       Else If @Tip_Podr='K'
              Set @SSQL=@SSQL+'ORDER BY K.Kto'
       Else If @Tip_Podr='V'
        If @CeniSamoOdArt = 'D'
                  Set @SSQL=@SSQL+'ORDER BY Sum((S.Vlez-S.Izlez)*K.Nabavna) Desc'
        Else
                  Set @SSQL=@SSQL+'ORDER BY (S.Vlez-S.Izlez)*dbo.fn_VratiCena(S.Cena, S.Posn, S.DanCena, ''N'') Desc'
print @SSQL
    EXEC(@SSQL)
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenovnik_nadatum]'))
drop procedure [dbo].[sp_cenovnik_nadatum]

Go
CREATE          PROCEDURE sp_Cenovnik_NaDatum
    @VlIzl            char(1)='I',
    @Tip_Sif_Kup        char(1)=' ',
    @Sif_Kup_Gen        varchar(11)='',
    @Tip_Sif_Art        char(1)='A',
    @Datum_Od        smalldatetime,
    @Kto            char(6)=Null,
    @Sifra_Podg        char(6)=Null,
    @Sifra_Gr        varchar(6)=Null,
    @Sifra_Drg        smallint=Null,
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)=Null,
    @Podr            char(1)='S',        --'S-sifra, I-ime
    @ADrugo1        smallint = Null,
    @ADrugo2        smallint = Null,
    @ADrugo3        smallint = Null,
    @ADrugo4        smallint = Null,
    @ADrugo5        smallint = Null,
    @KFADrugo1        char(1) = 'N',
    @KFADrugo2        char(1) = 'N',
    @KFADrugo3        char(1) = 'N',
    @KFADrugo4        char(1) = 'N',
    @KFADrugo5        char(1) = 'N'
AS
    Declare @SSQL varchar(3000)
    CREATE TABLE #TmpArt (Sifra_Art varchar(20), ImeArt varchar(50), Tip_Sif_Art char(1))
    CREATE TABLE #TmpCen
    (
     Sif_Kup_Gen varchar (11),
     Sif_Art_Gen varchar (20),
     Datum_Od smalldatetime,
     Datum_Do smalldatetime ,
     Rok_Dosp smallint ,
     Uces decimal(6, 2) ,
     Dod_Uces decimal(6, 2) ,
     Cena decimal(18, 4) ,
     MalCena decimal(18, 4),
     DanCena char(1),
     DanMalCena char(1),
     ImeKup    varchar(40),
     ImeArt    varchar(40),
     Sifra_Podg char(6),
     Ime_Podg varchar(40),
     Sifra_Gr char(3),
     Ime_Gr varchar(40),
     Tip_Sif_Art char(1)
    )
    IF @Tip_Sif_Art= 'A' OR @Tip_Sif_Art= 'K'
    Begin
        SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, ''A'' FROM KatArt A '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + 'INNER JOIN Podgrupi P ON A.Sifra_Podg=P.Sifra_Podg '
        SET @SSQL = @SSQL +' WHERE 1=1 '
        IF @Sifra_Podg IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
        IF @Sifra_Drg IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Drg = ' + Cast(@Sifra_Drg as varchar(5)) + ' '
        If @Sifra_Art_Od IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
        If @Kto IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Kto=''' + @Kto + ''' '
        IF @ADrugo1 IS NOT NULL
            IF @KFADrugo1 = 'D'
                SET @SSQL = @SSQL + ' AND (A.Drugo1 <> ' + Cast(@ADrugo1 as varchar(5)) + ' Or A.Drugo1 Is Null) '
            Else
                SET @SSQL = @SSQL + ' AND A.Drugo1 = ' + Cast(@ADrugo1 as varchar(5)) + ' '
        IF @ADrugo2 IS NOT NULL
            IF @KFADrugo2 = 'D'
                SET @SSQL = @SSQL + ' AND (A.Drugo2 <> ' + Cast(@ADrugo2 as varchar(5)) + ' Or A.Drugo2 Is Null) '
            Else
                SET @SSQL = @SSQL + ' AND A.Drugo2 = ' + Cast(@ADrugo2 as varchar(5)) + ' '
        IF @ADrugo3 IS NOT NULL
            IF @KFADrugo3 = 'D'
                SET @SSQL = @SSQL + ' AND (A.Drugo3 <> ' + Cast(@ADrugo3 as varchar(5)) + ' Or A.Drugo3 Is Null) '
            Else
                SET @SSQL = @SSQL + ' AND A.Drugo3 = ' + Cast(@ADrugo3 as varchar(5)) + ' '
        IF @ADrugo4 IS NOT NULL
            IF @KFADrugo4 = 'D'
                SET @SSQL = @SSQL + ' AND (A.Drugo4 <> ' + Cast(@ADrugo4 as varchar(5)) + ' Or A.Drugo4 Is Null) '
            Else
                SET @SSQL = @SSQL + ' AND A.Drugo4 = ' + Cast(@ADrugo4 as varchar(5)) + ' '
        IF @ADrugo5 IS NOT NULL
            IF @KFADrugo5 = 'D'
                SET @SSQL = @SSQL + ' AND (A.Drugo5 <> ' + Cast(@ADrugo5 as varchar(5)) + ' Or A.Drugo5 Is Null) '
            Else
                SET @SSQL = @SSQL + ' AND A.Drugo5 = ' + Cast(@ADrugo5 as varchar(5)) + ' '
    End
    ELSE IF @Tip_Sif_Art= 'P'
    Begin
        SET @SSQL = 'SELECT P.Sifra_Podg, P.Ime_Podg, ''P'' FROM Podgrupi P '
        IF @Sifra_Podg IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Podg = ''' + @Sifra_Podg + ''' '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Gr = ''' + @Sifra_Gr + ''' '
    End
    ELSE IF @Tip_Sif_Art= 'G'
    Begin
        SET @SSQL = 'SELECT G.Sifra_Gr, G.Ime_Gr, ''G'' FROM Grupi G '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Gr = ''' + @Sifra_Gr + ''' '
    End
    ELSE IF @Tip_Sif_Art= 'B'
    Begin
        SET @SSQL = 'SELECT D.Sifra_Drg, D.Ime, ''B'' FROM DrgPodel D '
        IF @Sifra_Drg IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Drg = ' + Cast(@Sifra_Drg as varchar(5)) + ' '
    End
    ELSE IF @Tip_Sif_Art= '1'
        SET @SSQL = 'SELECT D.Sifra_1, D.Ime_1, ''1'' FROM  Drugo1 D '
    ELSE IF @Tip_Sif_Art= '2'
        SET @SSQL = 'SELECT D.Sifra_2, D.Ime_2, ''2'' FROM  Drugo2 D '
    ELSE IF @Tip_Sif_Art= '3'
        SET @SSQL = 'SELECT D.Sifra_3, D.Ime_3, ''3'' FROM Drugo3 D '
    ELSE IF @Tip_Sif_Art= '4'
        SET @SSQL = 'SELECT D.Sifra_4, D.Ime_4, ''4'' FROM Drugo4 D '
    ELSE IF @Tip_Sif_Art= '5'
        SET @SSQL = 'SELECT D.Sifra_5, D.Ime_5, ''5'' FROM Drugo5 D '
    ELSE IF @Tip_Sif_Art= 'D'
        SET @SSQL = 'SELECT Sifra_Kup, ImeKup,  ''D'' FROM Komint WHERE Sifra_Kup IN (SELECT DISTINCT Kto FROM KatArt) '
    ELSE
        SET @SSQL = 'SELECT TOP 1 '''', '''', '''' FROM Drugo1'                     --' VALUES ('''', '''', '''') '
    INSERT INTO #TmpArt (Sifra_Art, ImeArt, Tip_Sif_Art) EXEC (@SSQL)
    IF @Tip_Sif_Art= 'K'        --kombinacija
    Begin
        SET @SSQL = 'SELECT P.Sifra_Podg, P.Ime_Podg, ''P'' FROM Podgrupi P '
        IF @Sifra_Podg IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Podg = ''' + @Sifra_Podg + ''' '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Gr = ''' + @Sifra_Gr + ''' '
        INSERT INTO #TmpArt (Sifra_Art, ImeArt, Tip_Sif_Art) EXEC (@SSQL)
        SET @SSQL = 'SELECT G.Sifra_Gr, G.Ime_Gr, ''G'' FROM Grupi G '
        IF @Sifra_Gr IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Gr = ''' + @Sifra_Gr + ''' '
        INSERT INTO #TmpArt (Sifra_Art, ImeArt, Tip_Sif_Art) EXEC (@SSQL)
    End
    Declare  @fSifArtGen as varchar(20)
    Declare @fTipSifArt as char(1)
    Set Nocount On
    Declare TabCc Cursor Fast_Forward For
        Select Sifra_Art, Tip_Sif_Art From #TmpArt
    Open TabCc
    Fetch Next From TabCc Into @fSifArtGen, @fTipSifArt
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpCen (Sif_Art_Gen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena, Datum_Od, Datum_Do, Tip_Sif_Art)
        SELECT @FSifArtGen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena, Datum_Od, Datum_Do, @fTipSifArt
        FROM dbo.fix_dajcenazadatum(@VlIzl, @Tip_Sif_Kup, @Sif_Kup_Gen, @fTipSifArt, @fSifArtGen, @Datum_Od)
        Fetch Next From TabCc Into @fSifArtGen, @fTipSifArt
    End
    Close TabCc
    Deallocate TabCc
    Set Nocount Off
    IF @Tip_Sif_Kup= 'K'
        UPDATE #TmpCen SET ImeKup= K.ImeKup FROM Komint K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_Kup
    /*ELSE IF @Tip_Sif_Kup= '1'
        UPDATE #TmpCen SET ImeKup= K.Ime_1K FROM KDrugo1 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_1K
    ELSE IF @Tip_Sif_Kup= '2'
        UPDATE #TmpCen SET ImeKup= K.Ime_2K FROM KDrugo2 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_2K
    ELSE IF @Tip_Sif_Kup= '3'
        UPDATE #TmpCen SET ImeKup= K.Ime_3K FROM KDrugo3 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_3K
    ELSE IF @Tip_Sif_Kup= '4'
        UPDATE #TmpCen SET ImeKup= K.Ime_4K FROM KDrugo4 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_4K
    ELSE IF @Tip_Sif_Kup= '5'
        UPDATE #TmpCen SET ImeKup= K.Ime_5K FROM KDrugo5 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_5K
    */
    IF @Tip_Sif_Art= 'A' OR @Tip_Sif_Art= 'K'
    Begin
        UPDATE #TmpCen SET Sifra_Podg = P.Sifra_Podg, Ime_Podg = P.Ime_Podg, Sifra_Gr=P.Sifra_Gr
        FROM KatArt A, Podgrupi P WHERE #TmpCen.Sif_Art_Gen=A.Sifra_Art AND A.Sifra_Podg=P.Sifra_Podg AND #TmpCen.Tip_Sif_Art='A'
        UPDATE #TmpCen SET Ime_Gr = G.Ime_Gr FROM Grupi G WHERE #TmpCen.Sifra_Gr=G.Sifra_Gr
    End
    UPDATE #TmpCen SET ImeArt = A.ImeArt FROM #TmpArt A WHERE #TmpCen.Sif_Art_Gen = A.Sifra_Art AND #TmpCen.Tip_Sif_Art = A.Tip_Sif_Art
    if @Podr='S'
        SELECT * FROM #TmpCen WHERE Datum_Od IS NOT NULL ORDER BY Sif_Art_Gen
    Else
        SELECT * FROM #TmpCen WHERE Datum_Od IS NOT NULL ORDER BY ImeArt



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenovniksost_nadatum]'))
drop procedure [dbo].[sp_cenovniksost_nadatum]

Go

CREATE           PROCEDURE sp_CenovnikSost_NaDatum
    @Sifra_OE        smallint,
    @Datum_Od        smalldatetime =NULL
AS
IF @Datum_Od IS NULL SET @Datum_Od = GetDate()
Declare @SSQL varchar(3000)
Declare @SamoDatum smalldatetime
SET @SamoDatum = dbo.fn_VratiDatum (@Datum_Od)
CREATE TABLE #TmpArt (Sifra_Art varchar(20))
CREATE TABLE #TmpCen
(Sifra_Art varchar (20),
 Rok_Dosp decimal(6,2),
 Uces    decimal(6,2),
 Dod_Uces decimal(6,2),
Cena decimal(18, 4) ,
MalCena decimal(18, 4),
DanCena char(1),
DanMalCena char(1),
Kolic    decimal(18,4) )
INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM SoArt WHERE Sifra_OE=@Sifra_OE
/*CREATE TABLE #TmpPoslDat
(Sif_Art_Gen    varchar(20),
 Datum        smalldatetime)
SET @SSQL= 'SELECT Sif_Art_Gen, Max(Datum_Od)  FROM Usl_Komerc_Per WHERE Datum_Do IS NOT NULL AND Datum_Od<=''' +
cast(@Datum_Od as varchar(30))+''' AND Datum_Do >=''' + cast(@Datum_Od as varchar(30)) +
''' AND VlIzl=''I'' AND Tip_Sif_Kup='' '' AND Sif_Kup_Gen='''' AND Tip_Sif_Art=''A'' AND  Sif_Art_Gen IN (SELECT Sif_Art_Gen FROM #TmpCen) GROUP BY Sif_Art_Gen '
INSERT INTO #TmpPoslDat (Sif_Art_Gen, Datum)  EXEC(@SSQL)
SET @SSQL= 'SELECT Sif_Art_Gen, Max(Datum_Od)  FROM Usl_Komerc_Per WHERE Datum_Do IS NULL AND Datum_Od<=''' +
cast(@Datum_Od as varchar(30))+''' AND VlIzl=''I'' AND Tip_Sif_Kup='' '' AND Sif_Kup_Gen='''' AND Tip_Sif_Art=''A''
AND  Sif_Art_Gen IN (SELECT Sif_Art_Gen FROM #TmpCen) AND Sif_Art_Gen NOT IN (SELECT Sif_Art_Gen FROM #TmpPoslDat)  GROUP BY Sif_Art_Gen'
INSERT INTO #TmpPoslDat (Sif_Art_Gen, Datum)  EXEC(@SSQL)
UPDATE #TmpCen SET Cena=U.Cena, MalCena=U.MalCena, DanCena=U.DanCena, DanMalCena=U.DanMalCena
FROM #TmpPoslDat P, Usl_Komerc_Per U WHERE #TmpCen.Sifra_Art=P.Sif_Art_Gen AND P.Sif_Art_Gen=U.Sif_Art_Gen AND P.Datum=U.Datum_Od
*/
Declare @fSifArtGen as varchar(20)
Declare @MalCena as decimal(18,4)
Declare @DanMalCena as char(1)
    Set Nocount On
    Declare TabCc Cursor Fast_Forward For Select Sifra_Art From #TmpArt
    Open TabCc
    Fetch Next From TabCc Into @fSifArtGen
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpCen (Sifra_Art, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena)
        SELECT @FSifArtGen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena
        FROM dbo.fix_dajcenazadatum('I', '', '', 'A', @fSifArtGen, @Datum_Od)
        Fetch Next From TabCc Into @fSifArtGen
    End
    Close TabCc
    Deallocate TabCc
    Declare TabCS Cursor Fast_Forward For Select Sifra_Art, MalCena, DanMalCena From #TmpCen    --dod.30.06.07
    Open TabCS
    Fetch Next From TabCS Into @fSifArtGen, @MalCena, @DanMalCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902 @Sifra_OE, @FSifArtGen, @MalCena, @DanMalCena, @SamoDatum
        Fetch Next From TabCS Into @fSifArtGen, @MalCena, @DanMalCena
    End
    Close TabCS
    Deallocate TabCS
UPDATE #TmpCen SET Kolic = S.Vlez - S.Izlez FROM SoArt S WHERE #TmpCen.Sifra_Art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE
CREATE TABLE #TmpNeraskn
(Sifra_Art    varchar(20),
 Kolic        decimal(18,4))
INSERT INTO #TmpNeraskn (Sifra_Art, Kolic)   SELECT Sifra_Art, Sum(Kolic-RKolic) FROM KSPromet WHERE Sifra_OE=@Sifra_OE AND Kolic<>RKolic GROUP BY Sifra_Art
UPDATE #TmpCen SET Kolic = #TmpCen.Kolic - N.Kolic FROM #TmpNeraskn N WHERE #TmpCen.Sifra_Art = N.Sifra_Art
Set Nocount Off
SELECT * FROM #TmpCen




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cenovniktekovenprethoden]'))
drop procedure [dbo].[sp_cenovniktekovenprethoden]

Go


CREATE  PROCEDURE sp_CenovnikTekovenPrethoden
    @Datum            smalldatetime =NULL,
    @Sif_GrOrg        char(6)='SITE'
AS
IF @Datum IS NULL SET @Datum = GetDate()
Declare @SSQL varchar(3000)
CREATE TABLE #TmpArt (Sifra_Art varchar(20))
CREATE TABLE #TmpCen
(Sifra_Art varchar (20),
 Rok_Dosp decimal(6,2),
 Uces    decimal(6,2),
 Dod_Uces decimal(6,2),
Cena decimal(18, 2) ,
MalCena decimal(18, 2),
DanCena char(1),
DanMalCena char(1),
Kolic    decimal(18,4) )
CREATE TABLE #TmpCenSt
(Sifra_Art varchar (20),
PrethMalCena decimal(18,2) )
CREATE TABLE #TmpZal
(Sifra_Art    varchar (20),
Zaliha        decimal(18,4),
OnStock        Bit)
INSERT INTO #TmpArt (Sifra_Art) SELECT DISTINCT Sifra_Art FROM SoArt
Declare  @fSifArtGen as varchar(20)
    Set Nocount On
    Declare TabCc Cursor Fast_Forward For Select Sifra_Art From KatArt WHERE Drugo2 IS NOT NULL AND Drugo2<>99
    Open TabCc
    Fetch Next From TabCc Into @fSifArtGen
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpCen (Sifra_Art, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena)
        SELECT @FSifArtGen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena
        FROM dbo.fix_dajcenazadatum('I', '', '', 'A', @fSifArtGen, @Datum)
        Fetch Next From TabCc Into @fSifArtGen
    End
    Close TabCc
    Deallocate TabCc
    Declare @fMalCena as decimal
    Declare TabCcSt Cursor Fast_Forward For Select Sifra_Art, MalCena From #TmpCen
    Open TabCcSt
    Fetch Next From TabCcSt Into @fSifArtGen, @fMalCena
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpCenSt (Sifra_Art, PrethMalCena)
        SELECT @FSifArtGen, MalCena
        FROM dbo.fix_DajCenaPredDatum('I', '', '', 'A', @fSifArtGen, @Datum, @fMalCena)
        Fetch Next From TabCcSt Into @fSifArtGen, @fMalCena
    End
    Close TabCcSt
    Deallocate TabCcSt
    Set Nocount Off
INSERT INTO #TmpZal (Sifra_Art, Zaliha) SELECT Sifra_Art, SUM(Vlez-Izlez) FROM SoArt
WHERE Sifra_OE IN(SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg) GROUP BY Sifra_Art
UPDATE #TmpZal SET OnStock=1 WHERE Zaliha>0
SELECT A.Sifra_Podg PodgrupaID, A.Sifra_Art ProductID, A.ImeArt ProductIme, A.Sifra_Drg BrandID,
C1.PrethMalCena PricePrethodna, C.MalCena PriceAktuelna, C.Cena PriceGolemoprodazba, A.Drugo2 StatusID, Z.OnStock
FROM #TmpCen C INNER JOIN KatArt A ON C.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN #TmpCenSt C1 ON C.Sifra_Art=C1.Sifra_Art
LEFT OUTER JOIN #TmpZal Z ON C.Sifra_Art=Z.Sifra_Art
ORDER BY A.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkcustomer]'))
drop procedure [dbo].[sp_citaj_bulkcustomer]

Go

CREATE    PROCEDURE sp_Citaj_BulkCustomer
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = '\t',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpCust]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpCust
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpCust1]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpCust1
    Create Table TmpCust
    (    DB_Code    char(5),
        Cst_Code    char(6),
        Cst_Name    nvarchar(30),
        Type        char(6),
        Address        nvarchar(30),
        Town        nvarchar(20),
        Country        nvarchar(6)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpCust
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)
    Create Table TmpCust1
    (    DB_Code    char(5),
        Cst_Code    char(6),
        Cst_Name    nvarchar(30),
        Type        char(6),
        Address        nvarchar(30),
        Town        nvarchar(20),
        Country        nvarchar(6),
        Sifra_2K    smallint
    )
    INSERT INTO TmpCust1 (DB_Code, Cst_Code, Cst_Name, Type, Address, Town, Country)
    SELECT DB_Code, Cst_Code, Cst_Name, Type, Address, Town, Country FROM TmpCust
    UPDATE TmpCust1 SET Sifra_2K=Kdrugo2.Sifra_2k
    FROM KDrugo2
    WHERE KDrugo2.Ime_2K=TmpCust1.Type
    INSERT INTO KDrugo2 (Ime_2K)
    SELECT DISTINCT Type FROM TmpCust1
    WHERE Sifra_2k IS NULL
    UPDATE TmpCust1 SET Sifra_2K=Kdrugo2.Sifra_2k
    FROM KDrugo2
    WHERE KDrugo2.Ime_2K=TmpCust1.Type
    UPDATE Komint  SET ImeKup=C.Cst_Name, Adresa=C.Address, SMesto=C.Town, KDrugo2=C.Sifra_2k
    FROM Komint KK, TmpCust1 C
    WHERE dbo.fn_NapraviSifra(C.DB_Code, C.Cst_Code) = KK.Sifra_Kup
    INSERT INTO Komint (Sifra_Kup, ImeKup, Adresa, SMesto, KDrugo2)
    SELECT dbo.fn_NapraviSifra(C.DB_Code, C.Cst_Code) as Sifra_Kup, C.Cst_Name as ImeKup,
    C.Address as Adresa, C.Town as SMesto, C.Sifra_2k
    FROM TmpCust1 C
    WHERE dbo.fn_NapraviSifra(C.DB_Code, C.Cst_Code) NOT IN
    (SELECT Sifra_Kup FROM Komint)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkfisk]'))
drop procedure [dbo].[sp_citaj_bulkfisk]

Go
CREATE    PROCEDURE sp_Citaj_BulkFisk
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpFisk
    (    Sifra_Oe smallint,
        BrKasa smallint,
        Datum_Dok smalldatetime,
        Tar1 decimal (18, 4) ,
        Tar2 decimal (18, 4) ,
        Tar0 decimal (18, 4),
        Gotovina decimal (18, 4),
        Cek decimal(18, 4),
        Kredit decimal (18, 4)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpFisk
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)
    ALTER TABLE ##TmpFisk ADD
        Br_Smetki int,
        Linii    int



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkfisk_vio]'))
drop procedure [dbo].[sp_citaj_bulkfisk_vio]

Go

create  PROCEDURE sp_Citaj_BulkFisk_Vio
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpFisk
    (    Sifra_Oe smallint,
        BrKasa smallint,
        Datum_Dok smalldatetime,
        Tar1 decimal (18, 4) ,
        Tar2 decimal (18, 4) ,
        Tar0 decimal (18, 4),
        Gotovina decimal (18, 4),
        Cek decimal(18, 4),
        Kredit decimal (18, 4),
        Danok1 decimal (18, 4),
        Danok2 decimal (18, 4),
        Promet decimal (18, 4),
        Predadeno decimal (18, 4),
        Pocetno decimal (18, 4),
        Ostaveno decimal (18, 4),
        DrugIzlez decimal (18, 4)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpFisk
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)
    ALTER TABLE ##TmpFisk ADD
        Br_Smetki int,
        Linii    int




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkfisk1]'))
drop procedure [dbo].[sp_citaj_bulkfisk1]

Go
CREATE    PROCEDURE sp_Citaj_BulkFisk1
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpFisk
    (    Sifra_Oe smallint,
        BrKasa smallint,
        Datum_Dok smalldatetime,
        Tar1 decimal (18, 4) ,
        Tar2 decimal (18, 4) ,
        Tar0 decimal (18, 4),
        Gotovina decimal (18, 4),
        Cek decimal(18, 4),
        Kredit decimal (18, 4),
        Br_Smetki int,
        Linii    int
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpFisk
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkitems]'))
drop procedure [dbo].[sp_citaj_bulkitems]

Go

CREATE     PROCEDURE sp_Citaj_BulkItems
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = '\t',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpItems]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpItems
    Create Table TmpItems
    (    DB_Code    char(12),
        Trans_date    char(10),
        Cst_Code    char(6),
        Item_Code    char(6),
        Quantity        Decimal(15,4),
        Value        Decimal(15,2),
        Discount    Decimal(15,2),
        Doc_No    Char(13),
        Prom_Code    char(20),
        Van_Presel    char(1),
        Agent        char(5),
        LocalCode    char(5)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpItems
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)
    UPDATE TmpItems Set Item_Code = '0'+ltrim(Item_Code), Cst_Code = dbo.fn_NapraviSifra(substring(Agent,1,2),ltrim(Cst_Code))




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkkartkor]'))
drop procedure [dbo].[sp_citaj_bulkkartkor]

Go

CREATE     PROCEDURE sp_Citaj_BulkKartKor
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpKartKorProm
(    Sifra_Mark    smallint,
    Sifra_OE    smallint,
    Broj_Ska    int,
    Sifra_Kor    varchar(20),
    Sifra_Nac    smallint,
    Datum_Ska    smalldatetime,
    Dolzi        decimal(18,6),
    Pobaruva    decimal(18,6),
    FraUpl        char(1),
    KlubDolzi    decimal(18,6)
)
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpKartKorProm
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkkartkor_bezklubdolzi]'))
drop procedure [dbo].[sp_citaj_bulkkartkor_bezklubdolzi]

Go


CREATE      PROCEDURE sp_Citaj_BulkKartKor_BezKlubDolzi
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpKartKorProm
(    Sifra_Mark    smallint,
    Sifra_OE    smallint,
    Broj_Ska    int,
    Sifra_Kor    varchar(20),
    Sifra_Nac    smallint,
    Datum_Ska    smalldatetime,
    Dolzi        decimal(18,6),
    Pobaruva    decimal(18,6),
    FraUpl        char(1)
)
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpKartKorProm
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkmobi]'))
drop procedure [dbo].[sp_citaj_bulkmobi]

Go








CREATE         PROCEDURE sp_Citaj_BulkMobi
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = '\t',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpMobi]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpMobi
    Create Table TmpMobi
    (
        Godina smallint,
        BrSaldo int,
        Opis Varchar(40),
        Datum_Dok Varchar(40),
        RokDosp int,
        Sifra_Kup Char(6),
        ProdMest Char(6),
        RBr smallint,
        Sifra_Art varchar(20),
        Kolic  decimal(18,6),
        Cena Decimal(18,6),
        Rabat Decimal(18,6),
        Sifra_Pat smallint
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpMobi
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)
UPDATE TmpMobi SET ProdMest=0 WHERE ProdMest IS NULL
Declare @i as integer
SET @i=2
WHILE @i<7
Begin
    UPDATE TmpMobi SET Sifra_Art = '0'+Sifra_Art WHERE LEN(Sifra_Art)<6
    UPDATE TmpMobi SET Sifra_Kup = '0'+Sifra_Kup WHERE LEN(Sifra_Kup)<6
    SET @i = @i + 1
End
Select distinct BrSaldo, Sifra_kup, ProdMest from tmpmobi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulknaracki]'))
drop procedure [dbo].[sp_citaj_bulknaracki]

Go




CREATE     PROCEDURE sp_Citaj_BulkNaracki
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpNarac
    (    Sifra_OE    smallint,
        Datum_Nar    Smalldatetime,
        Sifra_Art    Varchar(20),
        Kolic        Numeric(18, 6),
        Broj_Nar    int,
                Opis1           varchar (20)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpNarac
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulknaracki_bezopis]'))
drop procedure [dbo].[sp_citaj_bulknaracki_bezopis]

Go




CREATE   PROCEDURE sp_Citaj_BulkNaracki_BezOpis
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    Create Table ##TmpNarac
    (    Sifra_OE    smallint,
        Datum_Nar    Smalldatetime,
        Sifra_Art    Varchar(20),
        Kolic        Numeric(18, 6),
        Broj_Nar    int
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##TmpNarac
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkpopis]'))
drop procedure [dbo].[sp_citaj_bulkpopis]

Go

CREATE PROCEDURE sp_Citaj_BulkPopis
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpLPopM]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpLPopM
    Create Table TmpLPopM
    (    Sifra_OE    smallint,
        Datum        Smalldatetime,
        Sifra_Art    Varchar(20),
        Kolic        Numeric(18, 6),
        Broj        smallint
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpLPopM
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkprodsokontr]'))
drop procedure [dbo].[sp_citaj_bulkprodsokontr]

Go


CREATE      PROCEDURE sp_Citaj_BulkProdSoKontr
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpProdKontrSer]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpProdKontrSer
    Create Table TmpProdKontrSer
(    Sifra_Mark    smallint,
    Datum        smalldatetime,
    Sifra_Art    varchar(20),
    KontrSer1    varchar(10),
    KontrSer2    varchar(10),
    Cena        decimal(18,6),
    Kolic        decimal(18,6))
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpProdKontrSer
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_bulkpromet]'))
drop procedure [dbo].[sp_citaj_bulkpromet]

Go
CREATE PROCEDURE sp_Citaj_BulkPromet
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpProd]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpProd
    Create Table TmpProd
    (    Sifra_Mark smallint,
        BrKasa Smallint,
        Datum Smalldatetime,
        Sifra_Art Varchar(20),
        Cena Numeric(18, 6),
        Kolic Numeric(18, 6),
        RDatum Smalldatetime,
        RKolic Numeric(18, 6),
        POsn Numeric(6,2)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT TmpProd
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_merenovagaapt]'))
drop procedure [dbo].[sp_citaj_merenovagaapt]

Go

CREATE  PROCEDURE sp_Citaj_MerenoVagaApt
    @BulkFile Varchar(50),
    @BulkFieldTerminator Varchar(3) = ',',
    @BulkRowTerminator Varchar(3) = '\n'
AS
    CREATE TABLE ##PomMerenoVagaApt
    (Sifra_OE smallint ,
    BrKasa smallint,
    Broj_Ska int,
    DatumVreme DateTime,
    Sifra_Art varchar(20),
    Tezina decimal(18,6),
    Cena decimal(18,6))
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'BULK INSERT ##PomMerenoVagaApt
        FROM ''' + @BulkFile + '''
        WITH (
            FIELDTERMINATOR = ''' + @BulkFieldTerminator + ''',
            ROWTERMINATOR = ''' + @BulkRowTerminator + '''
        )'
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_popisvk]'))
drop procedure [dbo].[sp_citaj_popisvk]

Go



CREATE    PROCEDURE sp_Citaj_PopisVk
    @IDPopis int
AS
    --If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpLPop]') and OBJECTPROPERTY(id, N'IsTable') = 1)
    --    Drop Table TmpLPop
    Create Table ##TmpLPop
    (    Sifra_Art varchar(20),
        KontrSer varchar(25),
        Sifra_Boja smallint,
        Sifra_Velic smallint,
        Popis Decimal(18,6)
    )
    Declare @SSQL Varchar(8000)
    Set @SSQL =     'INSERT INTO ##TmpLPop
              SELECT SIFRA_ART, KontrSer, Sifra_Boja, Sifra_Velic, SUM(POPIS) As Popis
            FROM LPOPIS WHERE IDPopis = ' +  Cast(@IDPopis  As Varchar(8))  +
            ' GROUP BY SIFRA_ART, KontrSer, Sifra_Boja, Sifra_Velic'
    EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_popisvk_sel]'))
drop procedure [dbo].[sp_citaj_popisvk_sel]

Go
CREATE     PROCEDURE sp_Citaj_PopisVk_Sel
    @IDPopis int,
    @Sifra_OE1 smallint = NULL
AS
IF @Sifra_OE1 IS NULL
      SELECT SIFRA_ART, KontrSer, SUM(POPIS) As Popis
    FROM LPOPIS WHERE IDPopis = @IDPopis
    GROUP BY SIFRA_ART, KontrSer
    ORDER BY sifra_art, kontrser
ELSE
Begin
    CREATE TABLE #Tmp1
    (Sifra_Art varchar(20),
     KontrSer varchar(25),
     Popis    decimal(18,6))
    INSERT INTO #Tmp1
      SELECT SIFRA_ART, KontrSer, SUM(POPIS) As Popis
    FROM LPOPIS WHERE IDPopis = @IDPopis
    GROUP BY SIFRA_ART, KontrSer
    INSERT INTO #Tmp1 SELECT Sifra_Art, NULL, 0 FROM Soart WHERE Sifra_OE = @Sifra_OE1 AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #Tmp1)
    SELECT * FROM #Tmp1 ORDER BY Sifra_Art, KontrSer
End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_popzal]'))
drop procedure [dbo].[sp_citaj_popzal]

Go

CREATE     PROCEDURE sp_Citaj_PopZal
    @Celosen char(1)
AS
    Create Table #TmpRez
(    Sifra_Art    varchar(20),
    KontrSer    varchar(25),
    Sifra_Boja    smallint,
    Sifra_Velic    smallint,
    KnigSost    Decimal(18,6),
    Cena        Decimal(18, 6),
    DanCena    char(1),
    POsn        Numeric(6,2),
    Sifra_Tar    char(3),
    Vlez        Numeric(18,6),
    Popis        Decimal(18,6)
)
    Declare @SSQL varchar(2000)
    SET @SSQL = 'INSERT INTO #TmpRez (Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, KnigSost, Cena, DanCena, POsn, Sifra_Tar, Popis)
    SELECT Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, 0, 0, '''', 0, '''', Popis FROM ##TmpLPop'
    EXEC (@SSQL)
    SET @SSQL = 'UPDATE #TmpRez SET Cena = Z.Cena, DanCena = Z.DanCena, POsn = Z.POsn, Sifra_Tar = Z.Sifra_Tar
    FROM ##TmpZal Z WHERE #TmpRez.Sifra_Art = Z.Sifra_Art'
    EXEC (@SSQL)
    SET @SSQL = 'INSERT INTO #TmpRez (Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, KnigSost, Cena, DanCena, POsn, Sifra_Tar, Popis)
    SELECT Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, KnigSost, Cena, DanCena, POsn, Sifra_Tar, 0 FROM ##TmpZal'
    EXEC (@SSQL)
    SELECT Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, Cena, DanCena, POsn, Sifra_Tar, SUM(KnigSost) KnigSost, SUM(Popis) Popis
    FROM #TmpRez GROUP BY Sifra_Art, KontrSer, Sifra_Boja, Sifra_Velic, Cena, DanCena, POsn, Sifra_Tar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_tekzaliha]'))
drop procedure [dbo].[sp_citaj_tekzaliha]

Go



CREATE            PROCEDURE sp_Citaj_TekZaliha
    @Sifra_OE    smallint,
    @Celosen    char(1),
    @DanCenaOE    char(1),
    @NabCena    char(1) = 'N'    --P-tek.pros.nab.cena, N-cena od soart, K-Nab.c.-katart(dod 16.06.05)
AS
    --If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpZal]') and OBJECTPROPERTY(id, N'IsTable') = 1)
    --    Drop Table TmpZal
    Create Table ##TmpZal
    (    Sifra_Art varchar(20),
        KontrSer varchar(25),
        Sifra_Boja    smallint,
        Sifra_Velic    smallint,
        KnigSost Decimal(18,6),
        Cena Decimal(18, 6),
        DanCena char(1),
        POsn Numeric(6,2),
        Sifra_Tar char(3),
        Vlez    Numeric(18,6)
    )
    Declare @SSQL Varchar(1000)
    Set @SSQL =     'INSERT INTO ##TmpZal (Sifra_Art, KnigSost, Cena, DanCena, POsn, Sifra_Tar)
            SELECT S.Sifra_Art, S.Vlez - S.Izlez AS KnigSost, '
    If @NabCena = 'P'
        Set @SSQL = @SSQL + ' S.NNabCena  AS Cena, ''N'' '
    Else If @NabCena = 'K'
        Set @SSQL = @SSQL + ' A.Nabavna  AS Cena, ''D'' '
    Else
        Set @SSQL = @SSQL + 'dbo.fn_VratiSkalCena(S.Cena,T.ProcOsn,'''+@DanCenaOE+''',S.DanCena) AS Cena, '''+ @DanCenaOE + ''' '
    Set @SSQL = @SSQL + ' AS DanCena,T.ProcOsn AS Posn, T.Sifra_Tar AS Sifra_Tar
            FROM Soart S
            INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
            INNER JOIN Tarifi T ON A.Sifra_Tar = T.Sifra_Tar
             WHERE S.Sifra_OE=' +   Cast(@Sifra_OE  As Varchar(8)) + ' AND A.SMatUsl =''M'' '
    If @Celosen <> 'D'
        Set @SSQL = @SSQL + ' AND S.Sifra_Art IN (SELECT Sifra_Art from ##TmpLPop) '
    SET @SSQL = @SSQL + ' AND (A.RokKontrDali IS NULL OR A.RokKontrDali <> ''D'') '
    Exec (@SSQL)
print @ssql
--Za Kontrolni broevi, rokovi, serii
    Set @SSQL =     'INSERT INTO ##TmpZal (Sifra_Art, KontrSer, KnigSost, Cena, DanCena, POsn, Sifra_Tar)
            SELECT SN.Sifra_Art, SN.KontrSer, SN.Vlez - SN.Izlez AS KnigSost, '
    If @NabCena = 'P'
        Set @SSQL = @SSQL + ' S.NNabCena  AS Cena, ''N'' '
    Else If @NabCena = 'K'
        Set @SSQL = @SSQL + ' A.Nabavna  AS Cena, ''D'' '
    Else
        Set @SSQL = @SSQL + 'dbo.fn_VratiSkalCena(S.Cena,T.ProcOsn,'''+@DanCenaOE+''',S.DanCena) AS Cena, '''+ @DanCenaOE + ''' '
    Set @SSQL = @SSQL + ' AS DanCena,T.ProcOsn AS Posn, T.Sifra_Tar AS Sifra_Tar
            FROM SoKontrSer SN
            INNER JOIN Soart S ON S.Sifra_OE = SN.Sifra_OE AND S.Sifra_Art = SN.Sifra_Art
            INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
            INNER JOIN Tarifi T ON A.Sifra_Tar = T.Sifra_Tar
             WHERE SN.Sifra_OE=' +   Cast(@Sifra_OE  As Varchar(8)) + ' AND A.SMatUsl =''M'' '
    If @Celosen <> 'D'
        Set @SSQL = @SSQL + ' AND SN.Sifra_Art IN (SELECT Sifra_Art from ##TmpLPop) '
    SET @SSQL = @SSQL + ' AND A.RokKontrDali = ''D'' '
    Exec (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_tekzaliha_sel]'))
drop procedure [dbo].[sp_citaj_tekzaliha_sel]

Go

CREATE          PROCEDURE sp_Citaj_TekZaliha_Sel
    @Sifra_OE    smallint,
    @Datum    smalldatetime = Null
AS
IF @Datum IS NULL
    SELECT S.Sifra_Art, S.Vlez, S.Izlez, S.Cena, A.ImeArt FROM Soart S INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    WHERE S.Sifra_OE=@Sifra_OE ORDER BY S.Sifra_Art
ELSE
    SELECT Sifra_Art, SUM(Case VlIzl When 'V' Then Kolic Else 0 End) Vlez, SUM(Case VlIzl When 'I' Then Kolic Else 0 End) Izlez
    FROM Stavr WHERE Sifra_OE=@Sifra_OE AND Datum_Dok<=@Datum GROUP BY Sifra_Art ORDER BY Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_zalihaboivel]'))
drop procedure [dbo].[sp_citaj_zalihaboivel]

Go


CREATE                 PROCEDURE sp_Citaj_ZalihaBoiVel
    @Sifra_OE    smallint,
    @Celosen    char(1),
    @DanCenaOE    char(1),
    @Datum        smalldatetime = NULL,
    @CenaNaDat    char(1) = 'N'    --N-Tekovna,D-na Datum,P-tek.Pros.nab.cena, K-nab.c. od katart (dod.16.06.05), C-pros.nab.c na dat
AS
    If @CenaNaDat = 'P' OR @CenaNaDat = 'C'
        SET @DanCenaOE = 'N'

    Create Table ##TmpZal
    (    Sifra_Art varchar(20),
        KontrSer varchar(40),
        Sifra_Boja    smallint,
        Sifra_Velic    smallint,
        KnigSost Decimal(18,6),
        Cena Decimal(18, 6),
        DanCena char(1),
        POsn Numeric(6,2),
        Sifra_Tar char(3),
        Vlez    Numeric(18,6))

    CREATE TABLE #TmpArt
    (Sifra_Art    varchar(20))
IF @Celosen<>'D'
    INSERT INTO #TmpArt SELECT DISTINCT Sifra_Art FROM ##TmpLPop

    Declare @SSQL Varchar(1000)
IF @Datum IS NULL
Begin
    SET @SSQL = 'SELECT S.Sifra_Art, S.LotBr, S.Sostojba FROM SoMag S '
    If @Celosen <> 'D'
        SET @SSQL = @SSQL+' INNER JOIN ##TmpLPop L ON S.Sifra_Art=L.Sifra_Art '
    SET @SSQL = @SSQL+' WHERE S.Sifra_OE=' + Cast(@Sifra_OE  As Varchar(8))
    INSERT INTO ##TmpZal (Sifra_Art, KontrSer, KnigSost) EXEC (@SSQL)
End
Else
Begin
    CREATE TABLE #TmpMStav
    (DokrID        int,
    Sifra_Art    varchar(20),
    Lokacija    varchar(50),
    LotBr        varchar(30),
    Kolic        decimal(18,6))

    SET @SSQL = 'SELECT MS.DokrID, MS.Sifra_Art, MS.Lokacija, MS.LotBr, SUM(CASE MS.VlIzl WHEN ''V'' Then MS.Kolic ELSE MS.Kolic * -1 End)
    FROM MagStavr MS INNER JOIN Dokr D ON MS.DokrID=D.DokrID '
    If @Celosen <> 'D'
        SET @SSQL = @SSQL+' INNER JOIN #TmpArt L ON MS.Sifra_Art=L.Sifra_Art '
    SET @SSQL = @SSQL+' WHERE D.Sifra_OE=' + Cast(@Sifra_OE  As Varchar(8))+' AND D.Datum_Dok<='''+cast(@Datum as varchar(35))+''' GROUP BY MS.DokrID, MS.Sifra_Art, MS.Lokacija, MS.LotBr '
    INSERT INTO #TmpMStav EXEC (@SSQL)
    UPDATE #TmpMStav SET LotBr='' WHERE LotBr IS NULL

    SET @SSQL = 'SELECT S.Sifra_Art, MS.LotBr, SUM( CASE WHEN MS.LotBr IS NULL THEN (CASE S.VlIzl WHEN ''V'' Then S.Kolic ELSE S.Kolic * -1 End)
                                    ELSE MS.Kolic END) FROM Stavr S
     LEFT OUTER JOIN #TmpMStav MS ON S.Rbr=MS.Lokacija AND S.Sifra_Art=MS.Sifra_Art AND S.DokrID=MS.DokrID '
    If @Celosen <> 'D'
        SET @SSQL = @SSQL+' INNER JOIN #TmpArt L ON S.Sifra_Art=L.Sifra_Art '
    SET @SSQL = @SSQL+' WHERE S.Sifra_OE=' + Cast(@Sifra_OE  As Varchar(8))+' AND S.Datum_Dok<='''+cast(@Datum as varchar(35))+'''
        GROUP BY S.Sifra_Art, MS.LotBr '
    INSERT INTO ##TmpZal (Sifra_Art, KontrSer, KnigSost) EXEC (@SSQL)
--i sega uste ispadna deka ima artikli koi gi ima i vo stavr i vo magstavr, no kolicinata ne e ista zatoa sto vnesle nekoja stavka bez boja i velicina
    CREATE TABLE #TmpZbMStav
    (DokrID        int,
    Sifra_Art    varchar(20),
    Kolic        decimal(18,6))

    CREATE TABLE #TmpZbStav
    (DokrID        int,
    Sifra_Art    varchar(20),
    Kolic        decimal(18,6))

    INSERT INTO #TmpZbMStav SELECT DokrID, Sifra_Art, SUM(Kolic) FROM #TmpMStav GROUP BY DokrID, Sifra_Art
    INSERT INTO #TmpZbStav SELECT S.DokrID, S.Sifra_Art, SUM(CASE S.VlIzl WHEN 'V' Then S.Kolic Else S.Kolic * -1 End) FROM Stavr S
    INNER JOIN #TmpZbMStav M ON S.DokrID=M.DokrID AND S.Sifra_Art=M.Sifra_Art GROUP BY S.DokrID, S.Sifra_Art

    CREATE TABLE #TmpRez
    (Sifra_Art    varchar(20),
    Kolic        decimal(18,6))

    INSERT INTO #TmpRez (Sifra_Art, Kolic) SELECT S.Sifra_Art, SUM(S.Kolic-M.Kolic)
    FROM #TmpZbStav S INNER JOIN #TmpZbMStav M ON S.DokrID=M.DokrID AND S.Sifra_Art=M.Sifra_Art GROUP BY S.DokrID, S.Sifra_Art
    HAVING SUM(S.Kolic-M.Kolic)<>0

    UPDATE ##TmpZal SET KnigSost=KnigSost+R.Kolic FROM #TmpRez R WHERE ##TmpZal.Sifra_Art=R.Sifra_Art AND ##TmpZal.KontrSer IS NULL

    INSERT INTO ##TmpZal (Sifra_Art, KnigSost) SELECT R.Sifra_Art, R.Kolic FROM #TmpRez R WHERE R.Sifra_Art NOT IN (SELECT Sifra_Art FROM ##TmpZal WHERE KontrSer IS NULL)
End

UPDATE ##TmpZal SET KontrSer='' WHERE KontrSer IS NULL
UPDATE ##TmpZal SET Sifra_Velic = Substring(KontrSer, PatIndex('%:%', KontrSer)+1, 5) WHERE KontrSer<>'' AND Substring(KontrSer, PatIndex('%:%', KontrSer)+1, 5)<>''
UPDATE ##TmpZal SET Sifra_Boja = Substring(KontrSer, PatIndex('% %', KontrSer)+1, PatIndex('%:%', KontrSer)-PatIndex('% %', KontrSer)-1) WHERE KontrSer<>'' AND Substring(KontrSer, PatIndex('% %', KontrSer)+1, PatIndex('%:%', KontrSer)-PatIndex('% %', KontrSer)-1)<>''
UPDATE ##TmpZal SET KontrSer=NULL
--CENI
    CREATE TABLE #TmpCeni
    ( Sifra_Art    varchar(20),
      Cena        Decimal(18,4))
    If @Celosen='D'
        INSERT INTO #TmpCeni (Sifra_art, Cena) SELECT A.Sifra_Art,0 FROM KatArt A INNER JOIN Soart S ON A.Sifra_Art=S.Sifra_Art WHERE S.Sifra_OE=@Sifra_OE
    Else
        INSERT INTO #TmpCeni (Sifra_art, Cena) SELECT Sifra_Art,0 FROM ##TmpLPop

IF  @CenaNaDat = 'C'
Begin
    Create Table #ProsCeni
    ( Sifra_Art    varchar(20),
     Sostojba    decimal(18,4),
     Vrednost    decimal(18,4),
     ProsCena    decimal(18,4) )
    Set @SSQL = ' Select Sifra_Art, Sum(Case VlIzl When ''V'' Then Kolic When ''I'' Then (-1*Kolic) End),
            Sum(Case VlIzl When ''V'' Then (Kolic*NabCena) When ''I'' Then (-1*Kolic*NabCena) End), 0
            From Stavr
            Where Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' AND Sifra_Oe = ' + cast(@Sifra_OE as varchar(5))
    If @Celosen<>'D' SET @SSQL = @SSQL + ' AND Sifra_Art IN (Select Sifra_Art FROM ##TmpLPop) '
    SET @SSQL = @SSQL + ' Group By Sifra_Art '
    Insert Into #ProsCeni Exec(@SSQL)
    Create Table #FinRazl
    ( Sifra_Art    varchar(20),
     IznosRazl    decimal(18,4) )
    Set @SSQL = ' Select Sifra_Art, Sum((Case VlIzl When ''V'' Then Iznos_Razl When ''I'' Then (-1*Iznos_Razl) End))
            From RazlFin
            Where Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + '''  AND Sifra_Oe = ' + cast(@Sifra_OE as varchar(5))
    If @Celosen<>'D' SET @SSQL = @SSQL + ' AND Sifra_Art IN (Select Sifra_Art FROM ##TmpLPop) '
    SET @SSQL = @SSQL + ' Group By  Sifra_Art '
    Insert Into #FinRazl Exec(@SSQL)
    Update #ProsCeni Set #ProsCeni.Vrednost=#ProsCeni.Vrednost+#FinRazl.IznosRazl
    From #FinRazl  Where #ProsCeni.Sifra_Art=#FinRazl.Sifra_Art
    Update #ProsCeni Set ProsCena=Vrednost/Sostojba Where Sostojba Is Not Null And Sostojba <> 0
    Update #ProsCeni Set ProsCena = 0 Where ProsCena < 0
    Update #ProsCeni Set ProsCena = S.NNabCena FROM Soart S Where #ProsCeni.ProsCena = 0 AND #ProsCeni.Sifra_Art=S.Sifra_Art AND S.Sifra_OE=@Sifra_OE ---
End

    If @CenaNaDat = 'D'
    Begin
        UPDATE #TmpCeni SET Cena =dbo.fn_CenaDatum (@Sifra_OE,Sifra_Art,@Datum,@DanCenaOE)

        UPDATE #TmpCeni SET Cena =  dbo.fn_VratiSkalCena(S.Cena,S.POsn, @DanCenaOE, S.DanCena)     FROM Soart S
        WHERE S.Sifra_OE = @Sifra_OE AND #TmpCeni.Sifra_Art = S.Sifra_Art AND (#TmpCeni.Cena = 0 or #TmpCeni.Cena IS NULL)
    End
    Else If @CenaNaDat = 'P'
        UPDATE #TmpCeni SET Cena =S.NNabCena FROM SoArt S WHERE S.Sifra_OE=@Sifra_OE AND S.Sifra_Art=#TmpCeni.Sifra_Art
    Else If @CenaNaDat = 'C'
        UPDATE #TmpCeni SET Cena =C.ProsCena FROM #ProsCeni C WHERE #TmpCeni.Sifra_Art = C.Sifra_Art
    Else If @CenaNaDat = 'K'
    Begin
        If @DanCenaOE = 'D'
            UPDATE #TmpCeni SET Cena =A.Nabavna FROM KatArt A WHERE #TmpCeni.Sifra_Art = A.Sifra_Art
        Else
            UPDATE #TmpCeni SET Cena =dbo.fn_VratiSkalCena(A.Nabavna,T.ProcOsn, @DanCenaOE , 'D')
            FROM KatArt A, Tarifi T WHERE #TmpCeni.Sifra_Art = A.Sifra_Art AND A.Sifra_Tar=T.Sifra_Tar
    End
    Else
        UPDATE #TmpCeni SET Cena = dbo.fn_VratiSkalCena(S.Cena,S.POsn, @DanCenaOE,S.DanCena) FROM Soart S
        WHERE S.Sifra_OE = @Sifra_OE AND #TmpCeni.Sifra_Art = S.Sifra_Art

DELETE FROM ##TmpZal WHERE Sifra_Art IN (SELECT Sifra_Art FROM KatArt WHERE SMatUsl='U')
UPDATE ##TmpZal SET Cena=T.Cena, DanCena=@DanCenaOE FROM #TmpCeni T WHERE ##TmpZal.Sifra_Art=T.Sifra_Art
UPDATE ##TmpZal SET POsn=T.ProcOsn, Sifra_Tar=A.Sifra_Tar FROM KatArt A,Tarifi T WHERE ##TmpZal.Sifra_Art=A.Sifra_Art AND A.Sifra_Tar=T.Sifra_Tar











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_zalihanadat]'))
drop procedure [dbo].[sp_citaj_zalihanadat]

Go

CREATE              PROCEDURE sp_Citaj_ZalihaNaDat
    @Sifra_OE    smallint,
    @Celosen    char(1),
    @DanCenaOE    char(1),
    @Datum    smalldatetime,
    @CenaNaDat    char(1) = 'N'        --N-Tekovna,D-na Datum,P-tek.Pros.nab.cena, K-nab.c. od katart (dod.16.06.05), C-pros.nab.c na dat(09.02.06)
AS
    Set Nocount On
    Declare @SSQL varchar(4000)
    If @CenaNaDat = 'P' OR @CenaNaDat = 'C'
        SET @DanCenaOE = 'N'
    Declare @DaliRokKontr char(1)
    SELECT @DaliRokKontr = DaliRokKontr FROM OrgEd WHERE Sifra_OE = @Sifra_OE
    IF @DaliRokKontr IS NULL SET @DaliRokKontr ='N'
    IF @DaliRokKontr= 'D'
        SET @SSQL = 'SELECT Sifra_Art, KontrSer, '
    ELSE
        SET @SSQL = 'SELECT Sifra_Art, Null KontrSer, '
    Set @SSQL = @SSQL + ' SUM(CASE WHEN VlIzl = ''V'' THEN Kolic ELSE (Kolic * -1) END)
            FROM Stavr
            WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) +
             ' AND Datum_Dok<=''' + Cast(@Datum As Varchar(35)) + ''' '
    If @Celosen <> 'D'
        Set @SSQL = @SSQL + ' AND Sifra_Art IN (SELECT Sifra_Art from ##TmpLPop) '
    IF @DaliRokKontr= 'D'
        SET @SSQL = @SSQL + ' GROUP BY Sifra_Art, KontrSer'
    ELSE
        SET @SSQL = @SSQL + ' GROUP BY Sifra_Art'
    CREATE TABLE #KolicNaDat
    ( Sifra_Art  varchar(20),
      KontrSer  varchar(25),
      Kolic Numeric(18,6)
    )
    INSERT INTO #KolicNaDat EXEC (@SSQL)
    --If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpZal]') and OBJECTPROPERTY(id, N'IsTable') = 1)
    --    Drop Table TmpZal
    Create Table ##TmpZal
    (    Sifra_Art varchar(20),
        KontrSer varchar(25),
        Sifra_Boja    smallint,
        Sifra_Velic    smallint,
        KnigSost Decimal(18,6),
        Cena Decimal(18, 6),
        DanCena char(1),
        POsn Numeric(6,2),
        Sifra_Tar char(3),
        Vlez    Numeric(18,6)
    )
    CREATE TABLE #TmpCeni
    ( Sifra_Art    varchar(20),
      Cena        Decimal(18,4)
    )
    If @CenaNaDat = 'D'
    Begin
    If @Celosen='D'            --promeneto 05.04.05
        INSERT INTO #TmpCeni (Sifra_art, Cena)
        SELECT Sifra_Art,dbo.fn_CenaDatum (@Sifra_OE,Sifra_Art,@Datum,@DanCenaOE) FROM KatArt
    Else
        INSERT INTO #TmpCeni (Sifra_Art, Cena)
        SELECT Sifra_Art,dbo.fn_CenaDatum (@Sifra_OE,Sifra_Art,@Datum,@DanCenaOE) FROM ##TmpLPop
        UPDATE #TmpCeni
        SET Cena =  dbo.fn_VratiSkalCena(S.Cena,S.POsn, @DanCenaOE, S.DanCena)
            FROM Soart S
        WHERE S.Sifra_OE = @Sifra_OE AND #TmpCeni.Sifra_Art = S.Sifra_Art AND (#TmpCeni.Cena = 0 or #TmpCeni.Cena IS NULL)
    End
    IF  @CenaNaDat = 'C'    --dodadeno 09.02.06
    Begin
        Create Table #ProsCeni
        ( Sifra_Art    varchar(20),
         Sostojba    decimal(18,4),
         Vrednost    decimal(18,4),
         ProsCena    decimal(18,4) )
        Set @SSQL = ' Select Sifra_Art, Sum(Case VlIzl When ''V'' Then Kolic When ''I'' Then (-1*Kolic) End),
                Sum(Case VlIzl When ''V'' Then (Kolic*NabCena) When ''I'' Then (-1*Kolic*NabCena) End), 0
                From Stavr
                Where Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' AND Sifra_Oe = ' + cast(@Sifra_OE as varchar(5))
        If @Celosen<>'D' SET @SSQL = @SSQL + ' AND Sifra_Art IN (Select Sifra_Art FROM ##TmpLPop) '
        SET @SSQL = @SSQL + ' Group By Sifra_Art '
        Insert Into #ProsCeni Exec(@SSQL)
        Create Table #FinRazl
        ( Sifra_Art    varchar(20),
         IznosRazl    decimal(18,4) )
        Set @SSQL = ' Select Sifra_Art, Sum((Case VlIzl When ''V'' Then Iznos_Razl When ''I'' Then (-1*Iznos_Razl) End))
                From RazlFin
                Where Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + '''  AND Sifra_Oe = ' + cast(@Sifra_OE as varchar(5))
        If @Celosen<>'D' SET @SSQL = @SSQL + ' AND Sifra_Art IN (Select Sifra_Art FROM ##TmpLPop) '
        SET @SSQL = @SSQL + ' Group By  Sifra_Art '
        Insert Into #FinRazl Exec(@SSQL)
        Update #ProsCeni Set #ProsCeni.Vrednost=#ProsCeni.Vrednost+#FinRazl.IznosRazl
        From #FinRazl  Where #ProsCeni.Sifra_Art=#FinRazl.Sifra_Art
        Update #ProsCeni Set ProsCena=Vrednost/Sostojba Where Sostojba Is Not Null And Sostojba <> 0
        Update #ProsCeni Set ProsCena = 0 Where ProsCena < 0
        Update #ProsCeni Set ProsCena = S.NNabCena FROM Soart S Where #ProsCeni.ProsCena = 0 AND #ProsCeni.Sifra_Art=S.Sifra_Art AND S.Sifra_OE=@Sifra_OE ---
    End
    INSERT INTO ##TmpZal (Sifra_Art, KontrSer, KnigSost)  SELECT Sifra_Art, KontrSer, Kolic AS KnigSost FROM #KolicNaDat
    INSERT INTO ##TmpZal (Sifra_Art, KnigSost) SELECT Sifra_Art, 0 FROM SoArt WHERE Sifra_OE = @Sifra_OE
    AND Sifra_Art NOT IN (SELECT DISTINCT Sifra_Art FROM #KolicNaDat)
    CREATE TABLE #TmpSoa
(    Sifra_Art    varchar(20),
    Cena        decimal(18,6),
    DanCena    char(1),
    POsn        decimal(6,2),
    Sifra_Tar    char(3)
)
    SET @SSQL = 'SELECT S.Sifra_Art, '
    If @CenaNaDat = 'D'
        Set @SSQL = @SSQL + ' C.Cena, '
    Else If @CenaNaDat = 'P'
        Set @SSQL = @SSQL + '  S.NNabCena, '
    Else If @CenaNaDat = 'C'
        Set @SSQL = @SSQL + '  C.ProsCena, '
    Else If @CenaNaDat = 'K'
    Begin
    If @DanCenaOE = 'D'
        Set @SSQL = @SSQL + ' A.Nabavna  AS Cena, '
    Else
        Set @SSQL = @SSQL + ' dbo.fn_VratiSkalCena(A.Nabavna,T.ProcOsn,'''+@DanCenaOE+''', ''D'')  AS Cena, '
    End
    Else
        Set @SSQL = @SSQL + ' dbo.fn_VratiSkalCena(S.Cena,T.ProcOsn,'''+@DanCenaOE+''',S.DanCena) AS Cena, '
    Set @SSQL = @SSQL + '''' + @DanCenaOE + ''' AS DanCena,T.ProcOsn AS Posn, T.Sifra_Tar AS Sifra_Tar
            FROM Soart S
            INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
            INNER JOIN Tarifi T ON A.Sifra_Tar = T.Sifra_Tar '
    If @CenaNaDat = 'D'
        Set @SSQL = @SSQL +'LEFT OUTER JOIN #TmpCeni C ON S.Sifra_Art = C.Sifra_Art '
    ELSE IF @CenaNaDat = 'C'
        Set @SSQL = @SSQL +'LEFT OUTER JOIN #ProsCeni C ON S.Sifra_Art = C.Sifra_Art '
    Set @SSQL = @SSQL +' WHERE S.Sifra_OE=' +   Cast(@Sifra_OE  As Varchar(8))  + ' AND A.SMatUsl =''M'' '
    If @Celosen <> 'D'
        Set @SSQL = @SSQL + ' AND S.Sifra_Art IN (SELECT Sifra_Art from ##TmpLPop) '
    INSERT INTO #TmpSoa (Sifra_Art, Cena, DanCena, POsn, Sifra_Tar) EXEC (@SSQL)
    DELETE FROM ##TmpZal WHERE Sifra_Art IN (SELECT Sifra_Art FROM KatArt WHERE SMatUsl='U')    --dod. 03.02.06      !!!!!!
    UPDATE ##TmpZal SET Cena = S.Cena, DanCena = S.DanCena, POsn = S.POsn, Sifra_Tar = S.Sifra_Tar
    FROM #TmpSoa S WHERE ##TmpZal.Sifra_Art = S.Sifra_Art
    --Exec (@SSQL)            --sto bara ova ovde???
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_citaj_zalihanadatsamokolic]'))
drop procedure [dbo].[sp_citaj_zalihanadatsamokolic]

Go




CREATE                 PROCEDURE sp_Citaj_ZalihaNaDatSamoKolic
    @KoiOE    varchar(200) = NULL,
    @Datum    smalldatetime,
    @KojaFirma    char(2)
AS
    --- Ne cepkaj dolzina na polinja - napraveno specijalno za Podravka
    CREATE TABLE #TmpZal
(    Pret        char(6),
    Sifra_Art    char(18),
    Sifra_OE    char(4),
    Datum        char(8),
    Kolic        decimal(17,3),
    Blok_kolic    decimal(17,3),
    EdM        char(3),
    Pogon        char(4),
    Konto        char(4),
    Vrednost    decimal(13,2)
)
    Declare @SSQL varchar(4000)
    SET @SSQL = 'INSERT INTO #TmpZal (Sifra_Art, EdM, Kolic)
            SELECT K.Alt_Sifra, Substring(K.EdMera,1,3),
            SUM(CASE WHEN S.VlIzl = ''V'' THEN S.Kolic  ELSE  S.Kolic * -1 END) as Kolic
            FROM Stavr  S
            INNER JOIN KatArt K ON S.Sifra_Art=K.Sifra_Art
            WHERE S.Datum_Dok<=''' + Cast(@Datum As Varchar(35)) + ''' '
    If @KoiOE IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_OE IN (' +@KoiOE + ') '
    Set @SSQL = @SSQL + ' GROUP BY K.Alt_Sifra, K.EdMera '
    EXEC (@SSQL)
    Declare @SDat    char(8)
    SET @SDat = Cast(YEAR(@Datum) As varchar(8))
    IF MONTH(@Datum) < 10
        SET @SDat = rtrim(@SDat) + '0'+Cast(MONTH(@Datum) As char(1))
    ELSE
        SET @SDat = rtrim(@SDat) + Cast(MONTH(@Datum) As char(2))
    IF DAY(@Datum) < 10
        SET @SDat = rtrim(@SDat) + '0'+Cast(DAY(@Datum) As char(1))
    ELSE
        SET @SDat = rtrim(@SDat) + Cast(DAY(@Datum) As char(2))
    UPDATE #TmpZal SET Pret=@KojaFirma, Sifra_OE=' ', Pogon='5700', Konto='6611', Datum = @SDat, Blok_Kolic=0
    CREATE TABLE #TmpZalV
    (Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Alt_Sifra    varchar(20),
     Kolic        decimal(18,6),
     Cena        decimal(18,6))
    SET @SSQL = 'INSERT INTO #TmpZalV (Sifra_OE, Sifra_Art, Alt_Sifra, Kolic)
            SELECT S.Sifra_OE, S.Sifra_Art, K.Alt_Sifra,
            SUM(CASE WHEN S.VlIzl = ''V'' THEN S.Kolic  ELSE  S.Kolic * -1 END) as Kolic
            FROM Stavr  S
            INNER JOIN KatArt K ON S.Sifra_Art=K.Sifra_Art
            WHERE S.Datum_Dok<=''' + Cast(@Datum As Varchar(35)) + ''' '
    If @KoiOE IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_OE IN (' +@KoiOE + ') '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Sifra_Art, K.Alt_Sifra '
    EXEC (@SSQL)
--    UPDATE #TmpZalV SET Cena = dbo.fn_CenaDatum (Sifra_OE, Sifra_Art, @Datum, 'N')
    UPDATE #TmpZalV SET Cena = dbo.fn_CenaDatum_DokCena (Sifra_OE, Sifra_Art, @Datum, 'N')
    CREATE TABLE #TmpZalVSum
    (Alt_Sifra    varchar(20),
     Vrednost    decimal(18,6))
    INSERT INTO #TmpZalVSum SELECT Alt_Sifra, SUM(Kolic*Cena) FROM #TmpZalV GROUP BY Alt_Sifra
    UPDATE #TmpZal SET Vrednost = V.Vrednost FROM #TmpZalVSum V WHERE #TmpZal.Sifra_Art=V.Alt_Sifra
    UPDATE #TmpZal SET Vrednost = 0 WHERE Vrednost IS NULL
    SELECT * FROM #TmpZal WHERE Kolic <> 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_constraints_brisi]'))
drop procedure [dbo].[sp_constraints_brisi]

Go
CREATE        PROCEDURE sp_Constraints_Brisi
AS
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal1' AND type = 'C')
        ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal2' AND type = 'C')
        ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal1' AND type = 'C')
        ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal2' AND type = 'C')
        ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal1' AND type = 'C')
        ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal2' AND type = 'C')
        ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok1' AND type = 'C')         ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok2' AND type = 'C')
        ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar1' AND type = 'C')
        ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar2' AND type = 'C')
        ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum1' AND type = 'C')
        ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum2' AND type = 'C')
        ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum1' AND type = 'C')
        ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum2' AND type = 'C')
        ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum1' AND type = 'C')
        ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum2' AND type = 'C')
        ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok1' AND type = 'C')
        ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok2' AND type = 'C')
        ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok1' AND type = 'C')
        ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok2' AND type = 'C')
        ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok2
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok1' AND type = 'C')
        ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok1
    IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok2' AND type = 'C')
        ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok2



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cosmo_dadenipopustipoart]'))
drop procedure [dbo].[sp_cosmo_dadenipopustipoart]

Go
CREATE PROCEDURE Sp_Cosmo_DadeniPopustiPoArt

    @Sifra_Oe    smallint,
    @KoiOe    varchar(10),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Art    varchar(20) = Null
AS

    Declare @SSQL as varchar(8000)

    Create Table #Rez
    (
        Sifra_Oe    smallint,
        Grp_Kasa    smallint,
        BrKasa        smallint,
        Broj_Ska    int,
        Datum_Dok    smalldatetime,
        Sifra_Art    varchar(20),
        Kolic        decimal(18,4),
        Cena        decimal(18,4),
        Popust        decimal(18,4),
        Vredn1        decimal(18,2),
        Vredn2        decimal(18,2),
        NabCenaArt    decimal(18,4),
        NabCenaStavr    decimal(18,4)
    )

    Set @SSQL = ' Select P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska, P.Datum_Evid, S.Sifra_Art, S.Kolic, S.Cena, A.KrtOzn, A.Vredn, A.Vredn2, K.Nabavna, 0
            From Promet P
            Inner Join SPromet S On S.Sifra_Oe=P.Sifra_Oe And S.Grp_Kasa=P.Grp_Kasa And S.BrKasa=P.BrKasa And S.Broj_Ska=P.Broj_Ska
            Inner Join SPrometAdh A On A.Sifra_Oe=S.Sifra_Oe And A.Grp_Kasa=S.Grp_Kasa And A.BrKasa=S.BrKasa And A.Broj_Ska=S.Broj_Ska And A.Rbr=S.Rbr
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
            Where KlucSodrz = ''CPARAM2_PER'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + 'And P.Sifra_Oe = ' + Cast(@Sifra_Oe As varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + 'And P.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = '''+ @KoiOe + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And P.Datum_Evid >= ''' + Cast(@Datum_Od As varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And P.Datum_Evid <= ''' + Cast(@Datum_Do As varchar(30)) + ''' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art = ''' + @Sifra_Art + ''' '

    Insert Into #Rez Exec(@SSQL)

    Select Distinct Sifra_Oe, Datum_Dok, Sifra_Art
    Into #KoiArt
    From #Rez

    Create Table #NabCeniStavr
    (
        Sifra_Oe    smallint,
        Datum_Dok    smalldatetime,
        Sifra_Art    varchar(20),
        Nabavna    decimal(18,4)
    )
    Set @SSQL = 'Select S.Sifra_Oe, S.Datum_Dok, S.Sifra_Art, Avg(S.NabCena*(1+S.Posn/100))
            From Stavr S
            Inner Join #KoiArt A On A.Sifra_Oe=S.Sifra_Oe And A.Datum_Dok=S.Datum_Dok And A.Sifra_Art=S.Sifra_Art
            Where S.VlIzl=''I'' And (ImaDodatna is null Or ImaDodatna ='' '') '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Oe = ' + Cast(@Sifra_Oe As varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOe + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Datum_Dok >= ''' + Cast(@Datum_Od As varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Datum_Dok <= ''' + Cast(@Datum_Do As varchar(30)) + ''' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art = ''' + @Sifra_Art + ''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Datum_Dok, S.Sifra_Art '
    Insert Into #NabCeniStavr Exec(@SSQL)

    Update #Rez
    Set NabCenaStavr = #NabCeniStavr.Nabavna
    From #NabCeniStavr
    Where #Rez.Sifra_Oe=#NabCeniStavr.Sifra_Oe And #Rez.Datum_Dok=#NabCeniStavr.Datum_Dok And #Rez.Sifra_Art=#NabCeniStavr.Sifra_Art

    Select R.Sifra_Oe, R.Grp_Kasa, R.BrKasa, R.Broj_Ska, R.Datum_Dok, R.Sifra_Art, K.ImeArt,
        R.Kolic, R.Cena, R.Popust, R.Vredn1, R.Vredn2, R.NabCenaArt, R.NabCenaStavr
    From #Rez R
    Inner Join Katart K On K.Sifra_Art=R.Sifra_Art


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_tmpimportzl]'))
drop procedure [dbo].[sp_create_tmpimportzl]

Go
create    PROCEDURE [dbo].[sp_Create_TmpImportZL]

AS

    If Exists (select * from dbo.sysobjects where id = object_id(N'[TmpImportZL]') and OBJECTPROPERTY(id, N'IsTable') = 1)
        Drop Table TmpImportZL

    Create Table TmpImportZL
    (
        Sifra_Dok    smallint,
        Broj_Dok    int,
        Datum_Dok    smalldatetime,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Art    varchar(20),
        Kolicina    decimal(18,6),
        SifraKupKri char(6),
        SifraObjKri int
    )

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_crosscheck_pak_nom]'))
drop procedure [dbo].[sp_crosscheck_pak_nom]

Go


CREATE  PROCEDURE sp_CrossCheck_Pak_Nom
    @Sifra_KatPak        smallint,
    @Sifra_KatPak_Pomalo    smallint,
    @Nom_Pakuv        varchar(50),
    @Nom_Pomalo        varchar(50),
    @Sifra_Art        varchar(20),
        @NajdenoSomnitelno    char (1) = Null OUTPUT
 AS
    If Exists (Select Top 1 * From KatPakuv Where Sifra_KatPak = @Sifra_KatPak and Nom_Pomalo = @Nom_Pakuv and Nom_Pomalo <> Nom_Pakuv)
        set @NajdenoSomnitelno = '1'
    else
        set @NajdenoSomnitelno = 'N'
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_crr_level_kpi]'))
drop procedure [dbo].[sp_crr_level_kpi]

Go

CREATE  PROCEDURE sp_CRR_Level_KPI
    @KoiPat_Naracki    varchar(6) = Null,
    @Sifra_Nar        varchar(100) = Null,
    @Sifra_Oe_Storno    smallint = Null,
    @Sifra_Dok_Storno    varchar(100) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(8000)
    Create Table #CRR
    (
     Godina        smallint,
     Mesec        smallint,
     NarackiBr    int,
     NarackiVred    decimal(18,6),
     StornoBr    int,
     StornoVred    decimal(18,6)
    )
    Set @SSQL = ' Select Year(Datum_Nar), Month(Datum_Nar), Count(Broj_Nar), Sum(Toc200), 0, 0
            From Naracki
            Where 1=1 '
    If @KoiPat_Naracki Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @KoiPat_Naracki + ''')'
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Nar In (' + @Sifra_Nar + ') '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Nar >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Nar <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By Year(Datum_Nar), Month(Datum_Nar) '
    Insert Into #CRR Exec(@SSQL)
    Set @SSQL = ' Select Year(Datum_Dok), Month(Datum_Dok), 0, 0, Count(Broj_Dok), Sum(Toc200)
            From Dokr
            Where 1=1 '
    If @Sifra_Oe_Storno Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Oe = ' +  Cast(@Sifra_Oe_Storno as varchar(6)) + ' '
    If @Sifra_Dok_Storno Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Dok In (' + @Sifra_Dok_Storno + ') '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By Year(Datum_Dok), Month(Datum_Dok) '
    Insert Into #CRR Exec(@SSQL)
    Select Godina, Mesec, Sum(NarackiBr) NarackiBr, Sum(NarackiVred) NarackiVred, Sum(StornoBr) StornoBr, Sum(StornoVred) StornoVred
    From #CRR
    Group By Godina, Mesec




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_crr_report]'))
drop procedure [dbo].[sp_crr_report]

Go


CREATE      PROCEDURE sp_CRR_Report
    @Sifra_Oe_Storno    smallint = Null,
    @Sifra_Dok_Storno    varchar(100) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @Sifra_Pat_Storno    int = Null
AS

    Declare @SSQL as varchar(8000)

    Create Table #CRR
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,

     Identif_Br    varchar(50),
     Ispratnica    varchar(50),
     Toc200        decimal(18,6),
     Sifra_Obj    smallint,
     Sifra_Kup    char(6),
     ImeKup        varchaR(50),
     Sifra_Pat    int,
     Broj_Stavki_ smallint,
     Broj_Stavki_orig smallint,

     Toc200_Orig    decimal(18,6),

     Sifra_Oe_Orig  smallint,
     Sifra_Dok_Orig smallint,
     Broj_Dok_Orig  int,

     Datum_Dok_Orig smalldatetime,
     Sifra_Pat_Orig smallint,

     Eden_CRR    smallint,
     Odbieno    varchar(50)
    )

    Set @SSQL = '
        select DStor.Sifra_Oe, DStor.Sifra_Dok, DStor.Broj_dok, DStor.Datum_Dok,
            DStor.Identif_Br, DStor.Ispratnica, DStor.Toc200,
            DStor.Sifra_Obj, DStor.Sifra_Kup,
            K.ImeKup, DStor.Sifra_Pat,
            count (*) as Broj_Stavki, 0 as Broj_Stavki_Orig,
            0 as Toc200_Orig,
            0 Sifra_Oe_Orig, 0 Sifra_Dok_Orig, 0 Broj_Dok_Orig,
            null Datum_Dok_Orig, null Sifra_Pat_Orig,
            SStor.SifrA_CRR, DStor.Opis
        from dokr DStor
        Left Outer Join Komint K
            on DStor.Sifra_Kup = K.Sifra_Kup
        inner join Stavr SStor
            on DStor.Sifra_Oe = SStor.Sifra_Oe and DStor.Sifra_Dok = SStor.Sifra_Dok
                   and DStor.Broj_Dok = SStor.Broj_Dok
        where DStor.toc200 < 0 and DStor.vlizl=''I'' '

    If @Sifra_Oe_Storno Is Not Null
        Set @SSQL = @SSQL + ' And DStor.Sifra_Oe = ' +  Cast(@Sifra_Oe_Storno as varchar(6)) + ' '

    If @Sifra_Dok_Storno Is Not Null
        Set @SSQL = @SSQL + ' And DStor.Sifra_Dok In (' + @Sifra_Dok_Storno + ') '

    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And DStor.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '

    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And DStor.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '

    If @Sifra_Pat_Storno Is Not Null
        Set @SSQL = @SSQL + ' And DStor.Sifra_Pat = ' +  Cast(@Sifra_Pat_Storno as varchar(6)) + ' '

    Set @SSQL = @SSQL + ' Group By
                DStor.Sifra_Oe, DStor.Sifra_Dok, DStor.Broj_dok, DStor.Datum_Dok,
                DStor.Identif_Br, DStor.Ispratnica,
                DStor.Toc200, DStor.Sifra_Obj, DStor.Sifra_Kup,
                K.ImeKup, SStor.SifrA_CRR, DStor.Opis, DStor.Sifra_Pat '

    insert into #CRR
        EXEC (@SSQL)

    select C.*, Kod.ImeCRR, ' ' as PlanNeplan
    from #CRR C
    left outer join CRRKodovi Kod
        on C.Eden_CRR = Kod.Sifra_CRR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_customer]'))
drop procedure [dbo].[sp_customer]

Go

CREATE        PROCEDURE sp_Customer
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @TipDok_Vlez        varchar(100)='1,10,16',
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)='009000',
    @Sif_GrOrg        char(6)='9'
AS
    Declare @SSQL Varchar(4000)
    SET @SSQL='SELECT S.Datum_Dok, D.Sifra_Kup,
    dbo.fn_ULKod(S.Sifra_Art, A.Alt_Sifra) as ULKod,
    dbo.fn_KolicSoZnak(T.Plus_Minus, S.Kolic) As Kolic,
    dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * dbo.fn_KolicSoZnak(T.Plus_Minus, S.Kolic) as Value,
    dbo.fn_VratiRabatSoDDV(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * dbo.fn_KolicSoZnak(T.Plus_Minus, S.Kolic) as Discount,
    S.Sifra_oe, S.Sifra_dok, S.Broj_Dok
    FROM Stavr S
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    INNER JOIN TipDok T ON S.Sifra_Dok=T.Sifra_Dok
    INNER JOIN Dokr D ON S.DokrID=D.DokrID
    WHERE A.Iskluci <> ''D'' '
    IF @TipDok_Vlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_dok IN (' + @TipDok_Vlez +') '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Art>=''' + @Sifra_Art_Od +''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Art<=''' + @Sifra_Art_Do +''' '
    If @Sif_GrOrg IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg +''') '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
         SET @SSQL = @SSQL + ' AND S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    CREATE        Table #tItems
    (
     Datum          smalldatetime,
     Sifra_Kup     varchar(12),
     ULKod         varchar(10),
     Kolic            decimal(18,6),
     Value           decimal(18,6),
     Discount      decimal(18,6),
     Sifra_oe       smallint,
     Sifra_Dok     smallint,
     Broj_Dok      int,
     LocalCode    varchar(5),
     Descr_Prom  varchar(20)
    )
    INSERT INTO #tItems (Datum, Sifra_Kup, ULKod, Kolic, Value, Discount, Sifra_oe, Sifra_Dok, Broj_Dok)  Exec(@SSQL)
    SELECT K.Sifra_Kup, K.ImeKup, KD.Ime_2K, K.Adresa, K.Sifra_grad
    FROM Komint K
    LEFT OUTER JOIN KDrugo2 KD on K.KDrugo2 = KD.Sifra_2K
    WHERE Sifra_Kup  IN (SELECT DISTINCT Sifra_Kup FROM #tItems)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_1_voz_kup]'))
drop procedure [dbo].[sp_daj_1_voz_kup]

Go

create  PROCEDURE sp_Daj_1_Voz_Kup
    @Sifra_Kup    char(6),
    @Sifra_Art    varchar(20) = null OUTPUT,
    @KolkuVoz    int = null OUTPUT

AS

    select @KolkuVoz = count(*)
    from Vozila
    Where Sifra_Kup = @Sifra_Kup

    if @KolkuVoz is null or @KolkuVoz > 1
        set @Sifra_Art = Null
    else
        select @Sifra_Art = Sifra_Art
        from Vozila
        Where Sifra_Kup = @Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_1cena_dok]'))
drop procedure [dbo].[sp_daj_1cena_dok]

Go


CREATE PROCEDURE sp_Daj_1Cena_Dok

   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @DokCena decimal (18, 6) OUTPUT

AS

   SELECT top 1 @DokCena = DokCena
   FROM Stavr
   WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok
   order by Rbr





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_1cena_dok_id]'))
drop procedure [dbo].[sp_daj_1cena_dok_id]

Go


create PROCEDURE [dbo].[sp_Daj_1Cena_Dok_ID]

   @DokrID int,
   @DokCena decimal (18, 6) OUTPUT

AS

   SELECT top 1 @DokCena = DokCena
   FROM Stavr
   WHERE DokrId = @DokrId
   order by Rbr







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_broj_nal_blag]'))
drop procedure [dbo].[sp_daj_broj_nal_blag]

Go


CREATE  PROCEDURE sp_Daj_Broj_Nal_Blag
    @Sifra_Nal smallint,
    @Datum_Nal smalldatetime,
    @Broj_Nal int = Null OUTPUT

AS

    select @Broj_Nal = Broj_Nal
    from Nalozi
    where Sifra_Nal = @Sifra_Nal and Datum_Nal = @Datum_Nal

    if @Broj_Nal is null
    begin
        select @Broj_Nal = max(Broj_Nal)
        from Nalozi
        where Sifra_Nal = @Sifra_Nal and Datum_Nal < @Datum_Nal

        if @Broj_Nal is not null
            set @Broj_Nal = @Broj_Nal + 1
    end

    if @Broj_Nal is null
        set @Broj_Nal = 1






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_cen_kup_art_dog]'))
drop procedure [dbo].[sp_daj_cen_kup_art_dog]

Go


CREATE   PROCEDURE sp_Daj_Cen_Kup_Art_Dog
    @Sifra_Kup    char(6),
    @Sifra_Art    varchar(20),
    @DogBr        char(10),

    @Cena        decimal(18,4) OUTPUT,
    @DanCena    char(1) = null OUTPUT,
    @Uces        decimal(6,2) = null OUTPUT,
    @POsn        decimal(6,2) = null OUTPUT,

    @Kolic_Dog    decimal(18,6) = null OUTPUT,

    @PocDatum    smalldatetime = null OUTPUT,
    @KrajDatum    smalldatetime = null OUTPUT,

    @Aktiven    char(1) = Null OUTPUT,
    @AktivenSta    char(1) = Null OUTPUT,

    @Opis_Cena    varchar(30) = Null OUTPUT,

    @Sifra_Art_Cen    varchar(20) = Null OUTPUT,

    @ProvRealiz    chaR(1) = NUll,
    @Realizirano    decimal(18,6) = Null OUTPUT

AS

    Select @Cena = S.Cena, @Uces = S.Uces, @DanCena = S.DanCena, @Kolic_Dog = S.Kolic_Dog,
         @PocDatum = D.PocDatum, @KrajDatum = D.KrajDatum, @Aktiven = D.Aktiven,
         @AktivenSta = S.AktivenSta, @Opis_Cena = S.Opis_Cena,
         @SifrA_ARt_Cen = S.SifrA_Art, @POsn = T.ProcOsn
    From CenDog D
    inner join CenDogSta S
        on D.SIfra_Kup = S.Sifra_Kup and D.TipKup = S.TipKup and D.DogBr = S.DogBr
    inner join Katart K
        on K.Sifra_Art = S.Sifra_Art
    inner join Tarifi T
        on K.Sifra_Tar = T.Sifra_Tar
    Where D.Sifra_Kup = @Sifra_Kup and S.Sifra_art = @Sifra_Art and D.DogBr = @DogBr and D.TipKup = 'ALL'


    if @Kolic_Dog is not null and @Kolic_Dog <> 0
    begin
        -- Presmetaj REALIZACIJA PO STAVKI

        Select @Realizirano = (
            select Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S
                On S.DokrID = D.DokrID
                Where D.DogBr = @DogBr and D.Sifra_Kup = @Sifra_Kup
                and S.SifrA_Art = @SifrA_Art AND D.VlIzl = 'I' )

    end





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_denkonta_anfindok]'))
drop procedure [dbo].[sp_daj_denkonta_anfindok]

Go



CREATE PROCEDURE [dbo].[sp_Daj_DenKonta_AnFinDok]

AS
select distinct(AN.Kto) Sifra, K.ImeAnal Ime from anfindok AN
inner join Anal K on K.Kto_Anal=AN.Kto where K.DaliDev<>'D'



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_depozamb_art]'))
drop procedure [dbo].[sp_daj_depozamb_art]

Go



CREATE   PROCEDURE sp_Daj_DepozAmb_Art
    @Sifra_Art    varchar(20),
    @Sif_Depoz_Amb    char(1) OUTPUT
AS
    select @Sif_Depoz_Amb = Sif_Depoz_Amb
    from Katart
    where Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_diviz_art]'))
drop procedure [dbo].[sp_daj_diviz_art]

Go


create   PROCEDURE sp_Daj_Diviz_Art
    @Sifra_Art    varchar(20),
    @Sifra_Div    smallint OUTPUT
AS
    select @Sifra_Div = Sifra_Div
    from Katart
    where Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_dog_kup]'))
drop procedure [dbo].[sp_daj_dog_kup]

Go

create   PROCEDURE sp_Daj_Dog_Kup
    @Sifra_Kup    char(6),
    @Datum        smalldatetime,
    @Tip_Cenovnik   chaR(1)

AS

    SELECT *
    From CenDog
    WHERE Sifra_Kup = @Sifra_Kup AND Tip_Cenovnik = @Tip_Cenovnik
        and PocDatum <= @Datum and (KrajDatum is null or KrajDatum >= @Datum)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_dok_nefakt]'))
drop procedure [dbo].[sp_daj_dok_nefakt]

Go


CREATE    PROCEDURE sp_Daj_Dok_NeFakt
    @Sifra_GrOrg char (6),
    @Sifra_Dok  smallint,
    @Sifra_Dok2  smallint = 0,
    @Sifra_Dok3  smallint = 0,
    @Sifra_Dok4  smallint = 0,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @SoAnalizaNarac char(1) = 'N',
    @Sifra_Prev char (6)
AS
Set Nocount On
CREATE      TABLE #TmpDok
(DokrId        int,
Sifra_oe        smallint,
Sifra_dok    smallint,
Broj_Dok    int,
Datum_Dok    smalldatetime,
Sifra_Kup    char(6),
Sifra_Obj    smallint,
Sifra_Pat    smallint,
Toc200        decimal(18,4),
Kasa        decimal(6,2),
Rok        smallint,
Spec_Forma_Pec varchar(10),
Kto        char(10),
Danok1        decimal(18,4),
Danok2        decimal(18,4),
KojaSmetka    char(1),
ImeKup        varchar(40),
Sifra_Grad    smallint,
ImeGrad    varchar(40),
ImeObj        varchar(40),
Sifra_OENar    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Lokacii_Nar    varchar(100),
Sifra_Dok_Acc    smallint,
Sifra_Oe_acc    smallint)
INSERT INTO #TmpDok (DokrId, Sifra_oe, Sifra_dok, Broj_Dok, Datum_Dok, Sifra_Kup, Sifra_Obj, Sifra_Pat, Toc200,
       Kasa, Rok, Spec_Forma_Pec, Kto, Danok1, Danok2, KojaSmetka, ImeKup, Sifra_Grad, ImeObj, Sifra_OENar,Sifra_Nar,Broj_Nar)
SELECT D.DokrId, D.Sifra_oe, D.Sifra_dok, D.Broj_Dok, D.Datum_Dok, D.SifrA_Kup, D.Sifra_Obj, D.Sifra_Pat, D.Toc200,
       D.Kasa, D.Rok, D.Spec_Forma_Pec, D.Kto, D.Danok1, D.Danok2, D.KojaSmetka, K.ImeKup, K.Sifra_Grad, KO.ImeObj, Sifra_OENar,Sifra_Nar,Broj_Nar
From Dokr D Inner Join sGrOrg sGr ON D.Sifra_oe = sGr.Sifra_oe
Left Outer Join Komint K on D.Sifra_Kup = K.Sifra_Kup
Left Outer JOin KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup And D.Sifra_Obj=KO.Sifra_Obj
WHERE sGr.Sif_GrOrg = @Sifra_GrOrg
      And (D.Sifra_Dok = @Sifra_dok Or D.Sifra_Dok = @Sifra_Dok2 or D.Sifra_Dok = @Sifra_Dok3 or D.Sifra_Dok = @Sifra_Dok4)
      And D.Datum_dok >= @Datum_Od
      And D.Datum_Dok <= @Datum_Do
      And D.Sifra_Prev = @Sifra_Prev
      And D.DokrID NOT IN (SELECT DokrID FROM DokrZbSta)
Order by K.ImeKup, D.Sifra_Obj, D.Sifra_Dok, D.Rok, D.Sifra_Pat, D.Kasa, D.Spec_Forma_Pec
-- Mnogu e vazno PODREDUVANJEVO -- ni slucajno da ne se izbrise ili da se menuva
-- (D.K. Aug 2, 2006)
UPDATE #TmpDok SET Sifra_Grad = O.Sifra_Grad FROM KObjekti O WHERE #TmpDok.Sifra_Kup = O.Sifra_Kup AND #TmpDok.Sifra_Obj = O.Sifra_Obj
AND #TmpDok.Sifra_Obj IS NOT NULL AND O.Sifra_Grad IS NOT NULL
UPDATE #TmpDok SET ImeGrad = G.ImeGrad FROM Grad G WHERE #TmpDok.Sifra_Grad = G.Sifra_Grad
Declare @SifNar smallint
Declare @SifOENar smallint
Declare @BrNar int
Declare @Lokac varchar(100)
Declare @Lok1 varchar(10)
IF @SoAnalizaNarac='D'
Begin
    CREATE TABLE #TmpLok (Lokacija varchar(10))
    Declare Tabela1 Cursor Fast_Forward For Select Sifra_OENar, Sifra_Nar, Broj_Nar From #TmpDok
    Open Tabela1
    Fetch Next From Tabela1 Into @SifOEnar, @SifNar, @BrNar
    While @@Fetch_Status = 0
    Begin
        SET @Lokac =''
        DELETE FROM #TmpLok
        INSERT INTO #TmpLok SELECT DISTINCT K.Lokacija FROM StaNarac SN
        INNER JOIN Katart K ON SN.Sifra_Art=K.Sifra_Art WHERE SN.Sifra_OE= @SifOeNar AND SN.Sifra_Nar=@SifNar AND SN.Broj_Nar= @BrNar
        Declare TabL Cursor Fast_Forward For Select Lokacija From #TmpLok
        Open TabL
        Fetch Next From TabL Into @Lok1
        While @@Fetch_Status = 0
        Begin
            IF @Lokac <> '' SET @Lokac = @Lokac + ','
            SET @Lokac = @Lokac + @Lok1
            Fetch Next From TabL Into @Lok1
        End
        Close TabL
        Deallocate TabL
        UPDATE #TmpDok SET Lokacii_Nar = @Lokac WHERE Sifra_OENar=@SifOEnar AND Sifra_Nar=@SifNar AND Broj_Nar=@BrNar
        Fetch Next From Tabela1 Into @SifOEnar, @SifNar, @BrNar
    End
    Close Tabela1
    Deallocate Tabela1
End
UPDATE #TmpDok SET Sifra_OE_Acc=K.Sifra_OE_Acc, Sifra_Dok_Acc=K.Sifra_Dok_Acc FROM KonfAccr K
WHERE #TmpDok.Sifra_OE = K.Sifra_OE AND #TmpDok.Sifra_Dok = K.Sifra_Dok
Set Nocount Off
SELECT * FROM #TmpDok ORDER BY ImeGrad, ImeKup, Sifra_Obj, Sifra_OE_Acc, Sifra_Dok_Acc, Rok, Sifra_Pat, Kasa, Spec_Forma_Pec





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_dok_nefaktbezprev]'))
drop procedure [dbo].[sp_daj_dok_nefaktbezprev]

Go

CREATE    PROCEDURE sp_Daj_Dok_NeFaktBezPrev
    @Sifra_GrOrg char (6),
    @Sifra_Dok  smallint,
    @Sifra_Dok2  smallint = null,
    @Sifra_Dok3  smallint = null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @SoAnalizaNarac char(1) = 'N',
    @Podr    char(1)=NULL    -- O-po org.ed.
AS
Set Nocount On
CREATE     TABLE #TmpDok
(DokrId        int,
Sifra_oe        smallint,
Sifra_dok    smallint,
Broj_Dok    int,
Datum_Dok    smalldatetime,
Sifra_Kup    char(6),
Sifra_Obj    smallint,
Sifra_Pat    smallint,
Toc200        decimal(18,4),
Kasa        decimal(6,2),
Rok        smallint,
Spec_Forma_Pec varchar(10),
Kto        char(10),
Danok1        decimal(18,4),
Danok2        decimal(18,4),
KojaSmetka    char(1),
ImeKup        varchar(40),
Sifra_Grad    smallint,
ImeGrad    varchar(40),
ImeObj        varchar(40),
Sifra_OENar    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Lokacii_Nar    varchar(100),
Sifra_Dok_Acc    smallint,
Sifra_Oe_acc    smallint)
INSERT INTO #TmpDok (DokrId, Sifra_oe, Sifra_dok, Broj_Dok, Datum_Dok, Sifra_Kup, Sifra_Obj, Sifra_Pat, Toc200,
       Kasa, Rok, Spec_Forma_Pec, Kto, Danok1, Danok2, KojaSmetka, ImeKup, Sifra_Grad, ImeObj, Sifra_OENar,Sifra_Nar,Broj_Nar)
SELECT D.DokrId, D.Sifra_oe, D.Sifra_dok, D.Broj_Dok, D.Datum_Dok, D.SifrA_Kup, D.Sifra_Obj, D.Sifra_Pat, D.Toc200,
       D.Kasa, D.Rok, D.Spec_Forma_Pec, D.Kto, D.Danok1, D.Danok2, D.KojaSmetka, K.ImeKup, K.Sifra_Grad, KO.ImeObj, Sifra_OENar,Sifra_Nar,Broj_Nar
From Dokr D Inner Join sGrOrg sGr ON D.Sifra_oe = sGr.Sifra_oe
Left Outer Join Komint K on D.Sifra_Kup = K.Sifra_Kup
Left Outer JOin KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup And D.Sifra_Obj=KO.Sifra_Obj
WHERE sGr.Sif_GrOrg = @Sifra_GrOrg
      And (D.Sifra_Dok = @Sifra_dok Or D.Sifra_Dok = @Sifra_Dok2 or D.Sifra_Dok = @Sifra_Dok3)
      And D.Datum_dok >= @Datum_Od
      And D.Datum_Dok <= @Datum_Do
      And D.DokrID NOT IN (SELECT DokrID FROM DokrZbSta)
Order by K.ImeKup, D.Sifra_Dok, D.Sifra_Pat, D.Kasa, D.Spec_Forma_Pec
-- Mnogu e vazno PODREDUVANJEVO -- ni slucajno da ne se izbrise ili da se menuva
-- (D.K. Aug 2, 2006)
UPDATE #TmpDok SET Sifra_Grad = O.Sifra_Grad FROM KObjekti O WHERE #TmpDok.Sifra_Kup = O.Sifra_Kup AND #TmpDok.Sifra_Obj = O.Sifra_Obj
AND #TmpDok.Sifra_Obj IS NOT NULL AND O.Sifra_Grad IS NOT NULL
UPDATE #TmpDok SET ImeGrad = G.ImeGrad FROM Grad G WHERE #TmpDok.Sifra_Grad = G.Sifra_Grad
Declare @SifNar smallint
Declare @SifOENar smallint
Declare @BrNar int
Declare @Lokac varchar(100)
Declare @Lok1 varchar(10)
IF @SoAnalizaNarac='D'
Begin
    CREATE TABLE #TmpLok (Lokacija varchar(10))
    Declare Tabela1 Cursor Fast_Forward For Select Sifra_OENar, Sifra_Nar, Broj_Nar From #TmpDok
    Open Tabela1
    Fetch Next From Tabela1 Into @SifOEnar, @SifNar, @BrNar
    While @@Fetch_Status = 0
    Begin
        SET @Lokac =''
        DELETE FROM #TmpLok
        INSERT INTO #TmpLok SELECT DISTINCT K.Lokacija FROM StaNarac SN
        INNER JOIN Katart K ON SN.Sifra_Art=K.Sifra_Art WHERE SN.Sifra_OE= @SifOeNar AND SN.Sifra_Nar=@SifNar AND SN.Broj_Nar= @BrNar
        Declare TabL Cursor Fast_Forward For Select Lokacija From #TmpLok
        Open TabL
        Fetch Next From TabL Into @Lok1
        While @@Fetch_Status = 0
        Begin
            IF @Lokac <> '' SET @Lokac = @Lokac + ','
            SET @Lokac = @Lokac + @Lok1
            Fetch Next From TabL Into @Lok1
        End
        Close TabL
        Deallocate TabL
        UPDATE #TmpDok SET Lokacii_Nar = @Lokac WHERE Sifra_OENar=@SifOEnar AND Sifra_Nar=@SifNar AND Broj_Nar=@BrNar
        Fetch Next From Tabela1 Into @SifOEnar, @SifNar, @BrNar
    End
    Close Tabela1
    Deallocate Tabela1
End
UPDATE #TmpDok SET Sifra_OE_Acc=K.Sifra_OE_Acc, Sifra_Dok_Acc=K.Sifra_Dok_Acc FROM KonfAccr K
WHERE #TmpDok.Sifra_OE = K.Sifra_OE AND #TmpDok.Sifra_Dok = K.Sifra_Dok
Set Nocount Off
IF @Podr='O'    --za sekoja oe se pravi poseben dok.
    SELECT * FROM #TmpDok ORDER BY Sifra_Oe, Kasa, Sifra_OE_Acc, Sifra_Dok_Acc, ImeKup
ELSE
    SELECT * FROM #TmpDok ORDER BY ImeKup, Sifra_OE_Acc, Sifra_Dok_Acc, Sifra_Pat, Kasa




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_grdok]'))
drop procedure [dbo].[sp_daj_grdok]

Go


create PROCEDURE sp_Daj_GrDok

    @GrDok varchar(20),
    @ImeGrDok varchar(50) = Null OUTPUT

AS

    Select @ImeGrDok = Ime_GrDok
    From GrDok G
    where G.Sif_GrDok = @GrDok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_imakomerc_art]'))
drop procedure [dbo].[sp_daj_imakomerc_art]

Go

create PROCEDURE sp_Daj_ImaKomerc_Art
    @Sifra_Art    varchar(20),
    @ImaKomerc    int OUTPUT
AS
    select @ImaKomerc = ImaKomerc
    from Katart
    where Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_imakomsodrzed_art]'))
drop procedure [dbo].[sp_daj_imakomsodrzed_art]

Go


CREATE  PROCEDURE sp_Daj_ImaKomSodrzEd_Art
    @Sifra_Art    varchar(20),
    @ImaKomerc    int =0 OUTPUT,
    @SodrziEd    decimal(18,6)=0 OUTPUT
AS
    select @ImaKomerc = ImaKomerc, @SodrziEd = SodrziEd
    from Katart    where Sifra_Art = @Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_kadedefpregl]'))
drop procedure [dbo].[sp_daj_kadedefpregl]

Go

create PROCEDURE sp_Daj_KadeDefPregl

    @Operacija    chaR(20),
    @SIfra_Oper    varchar(50) = Null,
    @KadeDefPregl    char(1) OUTPUT

AS

    Select top 1 @KadeDefPregl = KadeDefPregl
    From KonfPregled
    Where OPeracija = @Operacija





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_katserklas_celabaza]'))
drop procedure [dbo].[sp_daj_katserklas_celabaza]

Go

create  PROCEDURE [dbo].[sp_Daj_KatSerKlas_CelaBaza]

    @Kolku         smallint

AS

    Declare @SSQL varchaR(1000)

    -- Pazi, se koristi vo FrmMAtic
    -- I NE SMEE DA SE MENUVA REDOSLEDOT NA KOLONITE
    set @SSQL = 'select top ' + cast(@Kolku as varchaR(10)) + '
                KS.KontrSer,
                KS.KontrSerExt,
                KS.AltKontrSer,
                KS.GodProiz,
                KS.Opis,
                Art.ImeArt,
                0,
                0,
                KS.Sifra_Art,
                KS.SIfra_3,
                D3.Ime_3,
                KS.Masa_Kgr,
                KS.Sila_KW
        from KatSerKlas KS
         inner join Katart Art
                on Art.Sifra_Art = KS.Sifra_Art
        left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
        Order By KS.Sifra_Art, KS.KontrSer '

        exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_katserklas_od_bilokade]'))
drop procedure [dbo].[sp_daj_katserklas_od_bilokade]

Go

create   PROCEDURE [dbo].[sp_Daj_KatSerKlas_Od_BiloKade]

    @Sifra_Art    varchar(20),
    @Kolku         smallint

AS

    Declare @SSQL varchaR(1000)

    -- Pazi, se koristi vo FrmMAtic
    -- I NE SMEE DA SE MENUVA REDOSLEDOT NA KOLONITE
    set @SSQL = 'select top ' + cast(@Kolku as varchaR(10)) + '
                KS.KontrSer,
                KS.KontrSerExt,
                KS.AltKontrSer,
                KS.GodProiz,
                KS.Opis,
                Art.ImeArt,
                0,
                0,
                KS.Sifra_Art,
                KS.SIfra_3,
                D3.Ime_3,
                KS.Masa_Kgr,
                KS.Sila_KW
        from KatSerKlas KS
         inner join Katart Art
                on Art.Sifra_Art = KS.Sifra_Art
        left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
        where KS.Sifra_art = ''' + @Sifra_art + '''
        Order By KS.Sifra_Art, KS.KontrSer '

        exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_katserklas_od_somag]'))
drop procedure [dbo].[sp_daj_katserklas_od_somag]

Go

CREATE      PROCEDURE [dbo].[sp_Daj_KatSerKlas_Od_SoMag]

    @Sifra_Oe    smallint,
    @Sifra_Oe_Dod    smallint = Null,
    @Sifra_Art    varchar(20),
    @Kolku         smallint

AS

    -- Pazi, se koristi vo FrmMAtic
    -- I NE SMEE DA SE MENUVA REDOSLEDOT NA KOLONITE

    Declare @SSQL varchar(2000)

    if @Sifra_Oe_Dod is not null
        begin
        create Table #tSost
        (    Sifra_Art     Varchar(20),
            LotBr        Varchar(50),
            Sostojba    Decimal(18,6)
         )

        insert into #tSost (Sifra_Art, LotBr, Sostojba)
            select  S.Sifra_Art, S.LotBr KontrSer, S.Sostojba
            from SoMag S
            where S.Sifra_oe = @Sifra_oe and S.Sifra_art = @Sifra_art
                ---and S.Sostojba >= 1

        insert into #tSost (Sifra_Art, LotBr, Sostojba)
            select  S.Sifra_Art, S.LotBr KontrSer, S.Sostojba
            from SoMag S
            where S.Sifra_oe = @Sifra_oe_Dod and S.Sifra_art = @Sifra_art
                ----and S.Sostojba >= 1

    -- Pazi, se koristi vo FrmMAtic
    -- I NE SMEE DA SE MENUVA REDOSLEDOT NA KOLONITE
            set @SSQL = '
            select top ' + cast(@Kolku as varchar(10)) + '
                S.LotBr KontrSer,
                KS.KontrSerExt,
                                KS.AltKontrSer,
                                KS.GodProiz,
                                KS.Opis,
                Art.ImeArt,
                sum(S.Sostojba),
                0 Sifra_Oe,
                S.SifrA_Art,
                KS.SIfra_3,
                D3.Ime_3,
                KS.Masa_Kgr,
                KS.Sila_KW
            from #tSost S
            left outer join KatSerKlas KS
                on KS.Sifra_Art = S.Sifra_Art and KS.KontrSer = S.LotBr
            inner join Katart Art
                on Art.Sifra_Art = S.Sifra_Art
            left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
            group by S.Sifra_Art, S.LotBr, KS.KontrSerExt, KS.AltKontrSer,
                 KS.GodProiz, KS.Opis, Art.ImeArt, KS.Sifra_3, D3.Ime_3,
                 KS.Masa_Kgr, KS.Sila_KW
            having (sum(S.Sostojba)) >= 1
            Order By S.Sifra_Art, S.LotBr '

        exec (@SSQL)
        end
    else
    begin
    -- Pazi, se koristi vo FrmMAtic
    -- I NE SMEE DA SE MENUVA REDOSLEDOT NA KOLONITE
        set @SSQL = '
            select top ' + cast(@Kolku as varchar(10)) + '
                S.LotBr KontrSer,
                KS.KontrSerExt,
                KS.AltKontrSer,
                KS.GodProiz,
                KS.Opis,
                Art.ImeArt,
                S.Sostojba,
                S.Sifra_Oe,
                S.Sifra_Art,
                KS.SIfra_3,
                D3.Ime_3,
                KS.Masa_Kgr,
                KS.Sila_KW
            from SoMag S
            left outer join KatSerKlas KS
                on KS.Sifra_Art = S.Sifra_Art and KS.KontrSer = S.LotBr
            inner join Katart Art
                on Art.Sifra_Art = S.Sifra_Art
            left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
            where S.Sifra_oe = ' + cast(@Sifra_oe as varchaR(5)) + '
                and S.Sifra_art = ''' + @Sifra_art + '''
                and S.Sostojba >= 1
            Order By S.Sifra_Art, S.LotBr '

        exec (@SSQL)
    end










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_kolrabat_fra]'))
drop procedure [dbo].[sp_daj_kolrabat_fra]

Go
CREATE PROCEDURE sp_Daj_KolRabat_Fra
    @Kolicina    decimal(18,4),
    @Rabat    decimal(6,2) = Null Output
AS
    Select @Rabat = Rabat
    From Usl_KolRab_Fra
    Where Abs(@Kolicina) >= Od_Kolic
        And Abs(@Kolicina) < Do_Kolic



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_konfigmesgod]'))
drop procedure [dbo].[sp_daj_konfigmesgod]

Go

create  PROCEDURE sp_Daj_KonfigMesGod

    @Mesec    smallint = Null Output,
    @Godina    smallint = Null Output
AS

    Select @Mesec=Mesec, @Godina=Godina
    From Konfig




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_konfmapswap]'))
drop procedure [dbo].[sp_daj_konfmapswap]

Go


CREATE  PROCEDURE sp_Daj_KonfMapSwap
    @Sifra_Oe  smallint,
    @Sifra_Dok smallint,
    @Map_Sifra_Oe  smallint = Null Output,
    @Map_Sifra_Dok smallint = Null OutPut,
    @Map_Upl_Dok smallint = Null OutPut,
    @ImaZapis char (1) = Null Output

AS

    Declare @Probe_Oe as integer

    Select @Probe_Oe = Sifra_Oe,
        @Map_Sifra_Oe = Map_Sifra_Oe, @Map_Sifra_Dok = Map_Sifra_Dok,
        @Map_Upl_Dok = Map_Upl_Dok
    From KonfMapSwap
    where SifrA_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok

    if @Probe_Oe is null
        set @ImaZapis = 'N'
    else
        set @ImaZapis = 'D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_list_azdok_rabnal]'))
drop procedure [dbo].[sp_daj_list_azdok_rabnal]

Go

create PROCEDURE SP_Daj_List_AzDok_RabNal
    @RabNalId As int

AS

    select D.*
    from DokRabNal DRN
    inner Join RabNal R
        on DRN.RabNalId = R.RabNalId
    inner Join Dokr D
        on DRN.DokrId = D.DokrId
    where DRN.RabNalId = @RabNalId
        and D.Broj_Nal is not null



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_matbr]'))
drop procedure [dbo].[sp_daj_matbr]

Go


create  PROCEDURE sp_Daj_MatBr
    @Broj_Kniska    char(14),
    @EMBG    char(13) = Null Output
AS

    Select @EMBG = EMBG
    From Pacienti
    Where Broj_Kniska = @Broj_Kniska
    Order By EMBG






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_max_otkuplista]'))
drop procedure [dbo].[sp_daj_max_otkuplista]

Go

CREATE  PROCEDURE sp_Daj_Max_OtkupLista
    @Sifra_OE smallint = NULL,
    @identif_br    varchar(10) = Null Output
AS
IF @Sifra_OE IS NULL
    Select @identif_br = Max(Case when IsNumeric(Identif_Br)=1 Then Cast(Identif_Br as Int) Else 0 End)
    From Dokr WHERE Sifra_Dok=8
ELSE
    Select @identif_br = Max(Case when IsNumeric(Identif_Br)=1 Then Cast(Identif_Br as Int) Else 0 End)
    From Dokr WHERE Sifra_Dok=8 AND Sifra_OE=@Sifra_OE




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_maxkontrser]'))
drop procedure [dbo].[sp_daj_maxkontrser]

Go


CREATE   PROCEDURE sp_Daj_MaxKontrSer
    @PocetenBroj    char(1),
    @MaxKontrSer     varchar(25) = Null Output
AS
    Select @MaxKontrSer = Max(KontrSer) From KatSerBr
    Where SubString(KontrSer,1,1) = @PocetenBroj and len(KontrSer) >= 8




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_maxkontrser_nal]'))
drop procedure [dbo].[sp_daj_maxkontrser_nal]

Go

CREATE    PROCEDURE sp_Daj_MaxKontrSer_Nal
    @PocetenBroj    char(5),
    @MaxKontrSer     varchar(25) = Null Output
AS
    Select @MaxKontrSer = Max(KontrSer) From KatSerBr
    Where SubString(KontrSer,1,5) = @PocetenBroj and len(KontrSer) >= 8




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_maxkontrser_pakuv]'))
drop procedure [dbo].[sp_daj_maxkontrser_pakuv]

Go


CREATE   PROCEDURE sp_Daj_MaxKontrSer_Pakuv
    @PocetenBroj    char(1),
    @MaxKontrSer     varchar(25) = Null Output
AS
    Select @MaxKontrSer = Max(KontrSer_Pak)
        From PakuvArt
    Where SubString(KontrSer_Pak, 1, 1) = @PocetenBroj and len(KontrSer_Pak) >= 8




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_maxrnal_tip]'))
drop procedure [dbo].[sp_daj_maxrnal_tip]

Go



CREATE  PROCEDURE sp_Daj_MaxRNal_Tip
    @Sifra_oe    smallint,
    @Tip_RabNal     char (1),
        @MaxBrNal        int = null OUTPUT,
        @TrosIliProiz    char (1)
AS
    if @TrosIliProiz = 'T'
    SELECT @MaxBrNal = Max(Broj_RabN)
        FROM  RabNal
        WHERE Sifra_OeRab = @Sifra_oe and (Stat_RabNal is null or Stat_RabNal <> 'Z') and
        Tip_RabNal = @Tip_RabNal
    else if @Tip_RabNal = '1'
    SELECT @MaxBrNal = Max(Broj_RabN)
        FROM  RabNal
        WHERE Sifra_OePrim = @Sifra_oe and (Stat_RabNal is null or Stat_RabNal <> 'Z') and
        Tip_RabNal = @Tip_RabNal
    else
    SELECT @MaxBrNal = Max(Broj_RabN)
        FROM  RabNal
        WHERE Sifra_OeRab = @Sifra_oe and (Stat_RabNal is null or Stat_RabNal <> 'Z') and
        Tip_RabNal = @Tip_RabNal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_nabceni_katartsoart]'))
drop procedure [dbo].[sp_daj_nabceni_katartsoart]

Go





CREATE      PROCEDURE sp_Daj_NabCeni_KatartSoart
    @Sifra_Art    varchar(20)
AS
CREATE TABLE #TmpOE
(Sifra_OE smallint,
Sifra_Art varchar(20),
DokCena    decimal(18,6))
INSERT INTO #TmpOE (Sifra_Oe, Sifra_Art, DokCena)
SELECT DISTINCT S.Sifra_OE, @Sifra_Art, 0 FROM SGrOrg S inner join GrOrg G on G.Sif_GrOrg=S.Sif_GrOrg and Edinstvena='D'

UPDATE #TmpOE SET DokCena = S.DokCena FROM Soart S WHERE #TmpOE.Sifra_Oe=S.Sifra_OE AND #TmpOE.Sifra_Art=S.Sifra_Art

   select S.sifra_Oe, O.ImeOrg, S.Sifra_art, K.ImeArt, K.Nabavna, S.Dokcena
   from #TmpOE S
   inner join Orged O on O.Sifra_oe=S.Sifra_oe
   inner join Katart K on K.Sifra_art=@Sifra_Art







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_naracki_prateni]'))
drop procedure [dbo].[sp_daj_naracki_prateni]

Go




CREATE     PROCEDURE sp_Daj_Naracki_Prateni
    @Sifra_Pat    int
AS


    create table #TmpDok
    (
        Sifra_OeNar smallint,
        Sifra_Nar smallint,
        Broj_Nar int,
        Datum smalldatetime,
        Sifra_Kup char(6),
        ImeKup    varchar(40),
        Sifra_Oe  smallint,
        Sifra_Dok smallint,
        Broj_Dok  int,
        Toc200    decimal(18,4)
    )

    insert into #TmpDok
    Select N.Sifra_Oe Sifra_OeNar, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar as Datum,
        D.Sifra_Kup, (Case When D.Sifra_Obj > 0 Then KO.ImeObj Else Kup.ImeKup End) ImeKup,
        D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Toc200
    From Naracki N
    Left Outer Join Dokr D On D.Sifra_OeNar=N.Sifra_Oe And D.Sifra_Nar=N.Sifra_Nar And D.Broj_Nar=N.Broj_Nar
    Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
    Where N.Sifra_Pat = @Sifra_Pat And N.Datum_Nar >= DateAdd(day, -5, GetDate())
    Order By N.Datum_Nar Desc, N.Sifra_Nar, N.Broj_Nar


    insert into #TmpDok    --uplati za Alma
    Select A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok as Datum,
        A.Sifra_Kup, Kup.ImeKup,
        A.Sifra_Oe, null, null, case when A.Dolzi <> 0 then A.Dolzi else A.Pobaruva end
    From AnFinDok A
    Inner Join TipDok T on T.Sifra_Dok = A.Sifra_Dok
    Left Outer Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
    Where A.Sifra_Pat = @Sifra_Pat And A.Datum_Vnes >= DateAdd(day, -5, GetDate())
    And T.Vl_Izl = 'I' and T.Sifra_Za = 1 and T.TipDok = 2
    Order By A.Datum_Vnes Desc, A.Sifra_Dok, A.Broj_Dok

    select * from #TmpDok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_neblok_dok]'))
drop procedure [dbo].[sp_daj_neblok_dok]

Go
CREATE    PROCEDURE sp_Daj_Neblok_Dok
    @Sifra_OE Smallint = null,
    @Datum_Od Smalldatetime = null,
    @Datum_Do Smalldatetime = null,
    @Sifra_Dok  smallint = null,
    @Sifra_Nal  smallint = null,
    @BrDokOd int = null,
    @BrDokDo int = null
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna,D.Datum_Dok,
        T.Sifra_Dok_Raskn, T.Sifra_Dok_RasknNeg
        FROM DOKR D INNER JOIN TipDok T ON D.Sifra_Dok=T.Sifra_Dok
        WHERE (D.Blokiran <> ''D'' Or D.Blokiran IS NULL) '
    IF @Sifra_OE IS NOT NULL
        Set @SSQL =  @SSQL + ' AND D.SIFRA_OE = ' + Cast (@Sifra_OE as varchar(5)) + ' '
    If @Sifra_Nal  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND T.Sifra_Nal = ' + Cast(@Sifra_Nal as varchar(10)) + ' '
    If @Sifra_Dok  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND D.SIFRA_DOK = ' + cast(@Sifra_Dok as varchar(5)) + ' '
    If @BrDokOd  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND D.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10)) + ' '
    If @BrDokDo  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND D.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10)) + ' '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    SET @SSQL = @SSQL + 'AND D.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg IN
        (SELECT Sif_GrOrg FROM GrOrg WHERE GotovPro=''D'')) AND D.Sifra_Dok IN
        (SELECT Sifra_Dok FROM TipDok WHERE MozeRasknKaf=''D'') '
    SET @SSQL = @SSQL + ' ORDER BY D.DokrID '
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_nepl_kons]'))
drop procedure [dbo].[sp_daj_nepl_kons]

Go

CREATE PROCEDURE sp_Daj_Nepl_Kons
    @Sifra_oe  smallint,
    @Sifra_Dok  smallint,
    @Datum_Do Smalldatetime,
    @Spck_Stat char(1)

AS

    select D.*, K.ImeKup, K.SMesto ImeGrad
    from Dokr D
        left outer join Komint K on D.Sifra_Kup = K.Sifra_Kup
    where sifra_oe = @Sifra_Oe and Sifra_Dok = @SifrA_Dok and
        Datum_dok <= @Datum_Do and Spck_Stat = @Spck_Stat




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_odjaveni_dok]'))
drop procedure [dbo].[sp_daj_odjaveni_dok]

Go

CREATE  PROCEDURE sp_Daj_Odjaveni_Dok
    @Sifra_oe  smallint,
    @Sifra_Dok  smallint,
    @Sifra_Dok2  smallint = null,
    @Sifra_Dok3  smallint = null,
    @Datum_Do Smalldatetime,
    @Podr    char(1)=NULL    -- O-po org.ed.

AS

create   TABLE #TmpDok
(
  DokrId    int,
  Sifra_oe    smallint,
  Sifra_dok    smallint,
  Broj_Dok    int,
  Datum_Dok    smalldatetime,
  Sifra_Kup    char(6),
  Sifra_Obj    smallint,
  Sifra_Pat    smallint,
  Toc200    decimal(18,4),
  Kasa        decimal(6,2),
  Rok        smallint,
  Spec_Forma_Pec varchar(10),
  Kto        char(10),
  Danok1    decimal(18,4),
  Danok2    decimal(18,4),
  KojaSmetka    char(1),
  ImeKup    varchar(40),
  Sifra_Grad    smallint,
  ImeGrad    varchar(40),
  ImeObj    varchar(40),
  Sifra_OENar    smallint,
  Sifra_Nar    smallint,
  Broj_Nar    int,
  Lokacii_Nar    varchar(100),
  Sifra_Dok_Acc    smallint,
  Sifra_Oe_acc    smallint,
  Sifra_Kor    varchar(20),
  ImeKor    varchar(40)
)

INSERT INTO #TmpDok (DokrId, Sifra_oe, Sifra_dok, Broj_Dok, Datum_Dok, Sifra_Kup, Sifra_Obj, Sifra_Pat, Toc200,
                    Kasa, Rok, Spec_Forma_Pec, Kto, Danok1, Danok2, KojaSmetka, ImeKup, Sifra_Grad, ImeObj,
             Sifra_OENar, Sifra_Nar, Broj_Nar, ImeGrad, Sifra_Kor, ImeKor)
SELECT D.DokrId, D.Sifra_oe, D.Sifra_dok, D.Broj_Dok, D.Datum_Dok, D.SifrA_Kup, D.Sifra_Obj, D.Sifra_Pat, D.Toc200,
       D.Kasa, D.Rok, D.Spec_Forma_Pec, D.Kto, D.Danok1, D.Danok2, D.KojaSmetka, K.ImeKup, K.Sifra_Grad, KO.ImeObj,
       Sifra_OENar, Sifra_Nar, Broj_Nar, K.Smesto, D.Sifra_Kor, KK.ImeKor
From Dokr D
left Outer Join Komint K
    on D.Sifra_Kup = K.Sifra_Kup
Left Outer JOin KObjekti KO
    on D.Sifra_Kup = KO.Sifra_Kup And D.Sifra_Obj = KO.Sifra_Obj
left Outer Join KartKor KK
    on D.Sifra_Kor = KK.Sifra_Kor
WHERE D.SIfra_Oe = @Sifra_Oe
      And (D.Sifra_Dok = @Sifra_dok Or D.Sifra_Dok = @Sifra_Dok2 or D.Sifra_Dok = @Sifra_Dok3)
      And D.Datum_Dok <= @Datum_Do
      And (D.Spck_Stat is null or D.Spck_Stat = 'N')
Order by K.ImeKup, D.Sifra_Dok, D.Sifra_Pat, D.Kasa, D.Spec_Forma_Pec

-- Mnogu e vazno PODREDUVANJEVO -- ni slucajno da ne se izbrise ili da se menuva
-- (D.K. Aug 2, 2006)

--UPDATE #TmpDok
--SET Sifra_Grad = O.Sifra_Grad
--FROM KObjekti O
--WHERE #TmpDok.Sifra_Kup = O.Sifra_Kup AND #TmpDok.Sifra_Obj = O.Sifra_Obj
--    AND #TmpDok.Sifra_Obj IS NOT NULL AND O.Sifra_Grad IS NOT NULL

--UPDATE #TmpDok
--SET ImeGrad = G.ImeGrad
--FROM Grad G
--WHERE #TmpDok.Sifra_Grad = G.Sifra_Grad

IF @Podr = 'O'    --za sekoja oe se pravi poseben dok.
    SELECT *
    FROM #TmpDok
    ORDER BY Sifra_Oe, Kasa, Sifra_OE_Acc, Sifra_Dok_Acc, ImeKup
ELSE
    SELECT *
    FROM #TmpDok
    ORDER BY ImeKup, Sifra_OE_Acc, Sifra_Dok_Acc, Sifra_Pat, Kasa




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_odjaveni_nestornirani_dok]'))
drop procedure [dbo].[sp_daj_odjaveni_nestornirani_dok]

Go

CREATE PROCEDURE [dbo].[sp_Daj_Odjaveni_Nestornirani_Dok]
    @Sifra_oe  smallint,
    @Sifra_Dok  smallint,
    @Sifra_Dok2  smallint = null,
    @Sifra_Dok3  smallint = null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime

AS

create   TABLE #TmpDok
(
  DokrId    int,
  Sifra_oe    smallint,
  Sifra_dok    smallint,
  Broj_Dok    int,
  Datum_Dok    smalldatetime,
  Sifra_Kup    char(6),
  Sifra_Obj    smallint,
  Sifra_Pat    smallint,
  Toc200    decimal(18,4),
  Kasa        decimal(6,2),
  Rok        smallint,
  Spec_Forma_Pec varchar(10),
  Kto        char(10),
  Danok1    decimal(18,4),
  Danok2    decimal(18,4),
  KojaSmetka    char(1),
  ImeKup    varchar(40),
  Sifra_Grad    smallint,
  ImeGrad    varchar(40),
  ImeObj    varchar(40),
  Sifra_OENar    smallint,
  Sifra_Nar    smallint,
  Broj_Nar    int,
  Lokacii_Nar    varchar(100),
  Sifra_Dok_Acc    smallint,
  Sifra_Oe_acc    smallint,
  Sifra_Kor    varchar(20),
  ImeKor    varchar(40),
  Spck_Stat    char(1)
)

INSERT INTO #TmpDok (DokrId, Sifra_oe, Sifra_dok, Broj_Dok, Datum_Dok, Sifra_Kup, Sifra_Obj, Sifra_Pat, Toc200,
                    Kasa, Rok, Spec_Forma_Pec, Kto, Danok1, Danok2, KojaSmetka, ImeKup, Sifra_Grad, ImeObj,
                 Sifra_OENar, Sifra_Nar, Broj_Nar, ImeGrad, Sifra_Kor, ImeKor, Spck_Stat)
SELECT D.DokrId, D.Sifra_oe, D.Sifra_dok, D.Broj_Dok, D.Datum_Dok, D.SifrA_Kup, D.Sifra_Obj, D.Sifra_Pat, D.Toc200,
       D.Kasa, D.Rok, D.Spec_Forma_Pec, D.Kto, D.Danok1, D.Danok2, D.KojaSmetka, K.ImeKup, K.Sifra_Grad, KO.ImeObj,
       Sifra_OENar, Sifra_Nar, Broj_Nar, K.Smesto, D.Sifra_Kor, KK.ImeKor, D.Spck_Stat
From Dokr D
left Outer Join Komint K
    on D.Sifra_Kup = K.Sifra_Kup
Left Outer JOin KObjekti KO
    on D.Sifra_Kup = KO.Sifra_Kup And D.Sifra_Obj = KO.Sifra_Obj
left Outer Join KartKor KK
    on D.Sifra_Kor = KK.Sifra_Kor
WHERE D.SIfra_Oe = @Sifra_Oe
      And (D.Sifra_Dok = @Sifra_dok Or D.Sifra_Dok = @Sifra_Dok2 or D.Sifra_Dok = @Sifra_Dok3)
      And D.Datum_Dok >= @Datum_Od And D.Datum_Dok <= @Datum_Do
      And (D.Spck_Stat is null or D.Spck_Stat <> 'S')
      And D.DokrId not in (select Dokr_Id_Orig from DokrStorno)
Order by D.Sifra_Dok DESC, D.Broj_Dok DESC

-- Mnogu e vazno PODREDUVANJEVO -- ni slucajno da ne se izbrise ili da se menuva
-- (D.K. Aug 2, 2006)

--UPDATE #TmpDok
--SET Sifra_Grad = O.Sifra_Grad
--FROM KObjekti O
--WHERE #TmpDok.Sifra_Kup = O.Sifra_Kup AND #TmpDok.Sifra_Obj = O.Sifra_Obj
--    AND #TmpDok.Sifra_Obj IS NOT NULL AND O.Sifra_Grad IS NOT NULL

--UPDATE #TmpDok
--SET ImeGrad = G.ImeGrad
--FROM Grad G
--WHERE #TmpDok.Sifra_Grad = G.Sifra_Grad

SELECT *
FROM #TmpDok
ORDER BY ImeKup, Sifra_OE_Acc, Sifra_Dok_Acc, Sifra_Pat, Kasa






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_oedok_accr]'))
drop procedure [dbo].[sp_daj_oedok_accr]

Go

CREATE  PROCEDURE sp_Daj_OeDok_Accr
    @Sifra_Oe        smallint,
    @Sifra_Dok        smallint,
    @Sifra_Oe_Acc    smallint = Null Output,
    @Sifra_Dok_Acc    smallint = Null Output
AS
    Select @Sifra_Oe_Acc=Sifra_Oe_Acc, @Sifra_Dok_Acc=Sifra_Dok_Acc
    From KonfAccr
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_param_narstv]'))
drop procedure [dbo].[sp_daj_param_narstv]

Go

create           PROCEDURE [dbo].[sp_Daj_Param_NarStv]
    @Sifra_Art Varchar(20),
    @Sifra_OE smallint,
    @BarKod nvarchar(50) OUTPUT,
    @NekojPodat nvarchar(50) OUTPUT,
    @DispoZal Decimal(18,4) = Null OUTPUT

AS

    SELECT @BarKod = K.Nom,
           @NekojPodat = LU.Ime_LayOutUnit,
           @DispoZal = 0
    FROM KatArt K WITH(NOLOCK)
    left outer join LayOutUnit LU
        on K.SifrA_LayOutUnit = LU.Sifra_LayOutUnit
    WHERE K.Sifra_Art = @Sifra_Art








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_potvrda_art_ser]'))
drop procedure [dbo].[sp_daj_potvrda_art_ser]

Go

CREATE PROCEDURE [dbo].[sp_Daj_Potvrda_Art_Ser]
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30),
    @PotvrdaBr    varchar(20) = null OUTPUT,
    @GarancBr    varchar(30) = null OUTPUT

AS

    select @PotvrdaBr = PotvrdaBr, @GarancBr = GarancBr
    from KatSerKlas
    where Sifra_Art = @Sifra_Art and KontrSer = @KontrSer







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_pozid_za_proektpozic]'))
drop procedure [dbo].[sp_daj_pozid_za_proektpozic]

Go

CREATE PROCEDURE sp_Daj_PozId_Za_ProektPozic
    @Broj_Proekt int,
    @Nivo1 char (4),
    @Nivo2 char (4),
    @Nivo3 char (4),
    @Nivo4 char (4),
    @Nivo5 char (4),
    @Nivo6 char (4),
    @Nivo7 char (4),
    @PozId int = NULL OUTPUT

AS
    select @PozId = PozId
    From ProektPoz
    Where Broj_Proekt = @Broj_Proekt and
          Nivo1 = @Nivo1 and Nivo2 = @Nivo2 and Nivo3 = @Nivo3 and Nivo4 = @Nivo4
          and Nivo5 = @Nivo5 and Nivo6 = @Nivo6 and Nivo7 = @Nivo7



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_preskoknati_broj_dok]'))
drop procedure [dbo].[sp_daj_preskoknati_broj_dok]

Go

CREATE     PROCEDURE sp_Daj_Preskoknati_Broj_Dok
    @Sifra_Oe as smallint,
        @Datum_Od as smalldatetime,
        @Datum_Do as smalldatetime
 AS
    Create Table #TmpDok
    (
     Sifra_Oe    smallint,
     Sifra_Dok    Smallint,
     Broj_Dok_Od    Int,
     Broj_Dok_Do    Int,
         Opis         varchar (100)
    )
    Declare @BrDok as int
    Declare @BrDokPred as int
        Declare @BrDokPosl as int
    Declare @Broj as int
    Declare @Sifra_Dok as smallint
    Declare @Sifra_Dok_Pred as smallint
    Set @BrDokPred = 1
        Set @BrDokPosl = 0
    Declare Dokum Cursor Fast_Forward For
        Select distinct D.Sifra_Dok, D.Broj_Dok
                From Dokr D
                Inner Join Stavr S
                On D.DokrId = S.DokrId
                Where D.Sifra_Oe = @Sifra_Oe and D.Datum_dok >= @Datum_Od and D.Datum_Dok <= @Datum_Do
                Order By D.Sifra_Dok, D.Broj_Dok
    Open Dokum
    Fetch Next From Dokum Into @Sifra_Dok, @BrDok
    While @@Fetch_Status = 0
    Begin
        If @Sifra_Dok_Pred <> @Sifra_Dok
            Set @BrDokPred = 1
        If @BrDok <> @BrDokPred + 1 And @Sifra_Dok_Pred = @Sifra_Dok
            Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok, @BrDokPred + 1, @BrDok - 1, '')
        Else If @Sifra_Dok_Pred <> @Sifra_Dok Or @Sifra_Dok_Pred Is Null
        begin
            if @Sifra_Dok_Pred is not null
                Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok_Pred, 0, 0, 'Last.No. ' + cast(@BrDokPosl as varchar(10)))
            Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok, 0, 0, 'Init.No. ' + cast(@BrDok as varchar(10)))
        end
        -- Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok, 1, @BrDok - 1)
        Set @Sifra_Dok_Pred = @Sifra_Dok
        Set @BrDokPred = @BrDok
        Set @BrDokPosl = @BrDok
        Fetch Next From Dokum Into @Sifra_Dok, @BrDok
    End
    if @Sifra_Dok_Pred is not null
        Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok_Pred, 0, 0, 'Last.No. ' + cast(@BrDokPosl as varchar(10)))
    Close Dokum
    Deallocate Dokum
    Select * from #TmpDok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_preskoknati_recepti]'))
drop procedure [dbo].[sp_daj_preskoknati_recepti]

Go

CREATE  PROCEDURE sp_Daj_Preskoknati_Recepti
    @Broj_Recept        int=null,
    @Broj_Recept_Do        int=null,
    @Sifra_Apteka_Od    char(2)=null,
    @Sifra_Apteka_Do    char(2)=null,
    @Datum_Recept_Od    smalldatetime = Null,
    @Datum_Recept_Do    smalldatetime = Null,
    @Datum_Izdav_Od        smalldatetime = Null,
    @Datum_Izdav_Do        smalldatetime = Null

 AS
    Create Table #TmpDok
    (
     Sifra_APteka    chaR(2),
     Broj_Recept_Od    Int,
     Broj_REcept_Do    Int,
         Opis         varchar (100)
    )

    Declare @BrDok as int
    Declare @BrDokPred as int
        Declare @BrDokPosl as int
    Declare @Broj as int

    Declare @Sifra_Apt as chaR(2)
    Declare @Sifra_Apt_Pred as chaR(2)

    Set @BrDokPred = 1
        Set @BrDokPosl = 0

       Declare @SSQL as Varchar(8000)
       Set @SSQL = '     Declare Dokum Cursor Fast_Forward For
            Select Sifra_APteka, Broj_Recept
                    From REcepti R
                      Where 1=1 '
       If @Sifra_Apteka_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Apteka >= ''' + @Sifra_Apteka_Od + ''' '
    If @Sifra_Apteka_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Apteka <= ''' + @Sifra_Apteka_Do + ''' '
    If @Broj_Recept Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_Recept >= ' + Cast(@Broj_Recept as varchar(6)) + ' '
    If @Broj_Recept_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_Recept <= ' + Cast(@Broj_Recept_Do as varchar(6)) + ' '
    If @Datum_Recept_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Recept >= ''' + Cast(@Datum_Recept_Od as varchar(30)) + ''' '
    If @Datum_Recept_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Recept <= ''' + Cast(@Datum_Recept_Do as varchar(30)) + ''' '
    If @Datum_Izdav_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Izdav >= ''' + Cast(@Datum_Izdav_Od as varchar(30)) + ''' '
    If @Datum_Izdav_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Izdav <= ''' + Cast(@Datum_Izdav_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order By R.SifrA_Apteka, R.Broj_Recept '

    exec (@SSQL)

    Open Dokum
    Fetch Next From Dokum Into @Sifra_Apt, @BrDok
    While @@Fetch_Status = 0
    Begin

        If @Sifra_APt_Pred <> @Sifra_APt
            Set @BrDokPred = 1

        If @BrDok <> @BrDokPred + 1 And @Sifra_Apt_Pred = @Sifra_APt
            Insert Into #TmpDok Values (@Sifra_Apt, @BrDokPred + 1, @BrDok - 1, '')
        Else If @Sifra_APt_Pred <> @Sifra_Apt Or @Sifra_APt_Pred Is Null
        begin
            if @Sifra_Apt_Pred is not null
                Insert Into #TmpDok Values (@Sifra_APt_Pred, 0, 0, 'Do broj ' + cast(@BrDokPosl as varchar(10)))
            Insert Into #TmpDok Values (@Sifra_APt, 0, 0, 'Od broj ' + cast(@BrDok as varchar(10)))
        end

        -- Insert Into #TmpDok Values (@Sifra_Oe, @Sifra_Dok, 1, @BrDok - 1)

        Set @Sifra_Apt_Pred = @Sifra_Apt
        Set @BrDokPred = @BrDok
        Set @BrDokPosl = @BrDok

        Fetch Next From Dokum Into @Sifra_Apt, @BrDok
    End

    if @Sifra_Apt_Pred is not null
        Insert Into #TmpDok
        Values (@Sifra_APt_Pred, 0, 0, 'Do broj ' + cast(@BrDokPosl as varchar(10)))

    Close Dokum
    Deallocate Dokum

    Select * from #TmpDok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_prifateni_status]'))
drop procedure [dbo].[sp_daj_prifateni_status]

Go


create  PROCEDURE sp_Daj_Prifateni_Status
    @Sifra_oe  smallint,
    @Datum_Od smalldatetime,
    @Datum_Do Smalldatetime

AS

    select D.*, K.ImeKup, K.SMesto ImeGrad
    from Dokr D
        left outer join Komint K on D.Sifra_Kup = K.Sifra_Kup
    where sifra_oe = @Sifra_Oe and Sifra_Dok not in (100, 101) and
        Datum_Dok >= @Datum_Od and Datum_dok <= @Datum_Do
    order by Datum_Dok Desc, Sifra_Dok, Broj_Dok Desc
    -- Mnogu e vazzno podreduvanjeto, NE CCEPKAJ GO




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_proektpoz_nepotr]'))
drop procedure [dbo].[sp_daj_proektpoz_nepotr]

Go

create PROCEDURE [dbo].[sp_Daj_ProektPoz_Nepotr]
    @Broj_Proekt smallint

AS

    select P.*
    from ProektPoz P
    left outer join StaPozic SP
        on P.Broj_Proekt = SP.Broj_Proekt and P.PozId = SP.PozId
    where P.Broj_Proekt = @Broj_Proekt
        and SP.Broj_Proekt is null




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_proektpoz_pozid]'))
drop procedure [dbo].[sp_daj_proektpoz_pozid]

Go

create PROCEDURE [dbo].[sp_Daj_ProektPoz_PozId]
    @Broj_Proekt    smallint,
    @PozId        int

AS

    select P.*
    from ProektPoz P
    where P.Broj_Proekt = @Broj_Proekt and P.PozId = @PozId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_razl_accr]'))
drop procedure [dbo].[sp_daj_razl_accr]

Go

CREATE  PROCEDURE sp_Daj_Razl_Accr
    @Dok_Ili_Accr char(1)
AS
    if @Dok_Ili_Accr = 'D'
        Select Distinct Sifra_Oe, Sifra_Dok
        From KonfAccr
    else
        Select Distinct Sifra_Oe_Acc, Sifra_Dok_Acc
        From KonfAccr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_rbr_max_specif_recept]'))
drop procedure [dbo].[sp_daj_rbr_max_specif_recept]

Go




CREATE  PROCEDURE sp_Daj_Rbr_Max_Specif_Recept
    @Datum_Izdav_Od smalldatetime,
    @Datum_Izdav_Do smalldatetime,
     @SIfra_PodrSluzba char(4),
    @Posl_Specif int OUTPUT

AS

        select @Posl_Specif = max(Spc_Specif)
        From Recepti
        Where
              -- Ova go trgnav -- Spc_Podr = @Sifra_PodrSLuzba and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_rbr_max_specif_recept_p]'))
drop procedure [dbo].[sp_daj_rbr_max_specif_recept_p]

Go

create PROCEDURE sp_Daj_Rbr_Max_Specif_Recept_P
    @Datum_Izdav_Od smalldatetime,
    @Datum_Izdav_Do smalldatetime,
     @SIfra_PodrSluzba char(4),
    @Posl_Specif int OUTPUT

AS

        select @Posl_Specif = max(Spc_Specif)
        From Recepti_P
        Where
              -- Ova go trgnav -- Spc_Podr = @Sifra_PodrSLuzba and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_rbr_specif_recept]'))
drop procedure [dbo].[sp_daj_rbr_specif_recept]

Go




CREATE  PROCEDURE sp_Daj_Rbr_Specif_Recept
    @Datum_Izdav_Od smalldatetime,
    @Datum_Izdav_Do smalldatetime,
     @SIfra_PodrSluzba char(4),
    @BezPartic char (1) = NUll,
    @Posl_Specif_10000_Recept int OUTPUT

AS

    if @BezPartic is null
        select @Posl_Specif_10000_Recept = max(Spc_Specif * 10000 + Spc_Recept)
        From Recepti
        Where Spc_Podr = @Sifra_PodrSLuzba and (BezPartic is null or BezPartic <> 'D') and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null
    else
        select @Posl_Specif_10000_Recept = max(Spc_Specif * 10000 + Spc_Recept)
        From Recepti
        Where Spc_Podr = @Sifra_PodrSLuzba and BezPartic = @BezPartic and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_rbr_specif_recept_p]'))
drop procedure [dbo].[sp_daj_rbr_specif_recept_p]

Go

create PROCEDURE sp_Daj_Rbr_Specif_Recept_P
    @Datum_Izdav_Od smalldatetime,
    @Datum_Izdav_Do smalldatetime,
     @SIfra_PodrSluzba char(4),
    @BezPartic char (1) = NUll,
    @Posl_Specif_10000_Recept int OUTPUT

AS

    if @BezPartic is null
        select @Posl_Specif_10000_Recept = max(Spc_Specif * 10000 + Spc_Recept)
        From Recepti_P
        Where Spc_Podr = @Sifra_PodrSLuzba and (BezPartic is null or BezPartic <> 'D') and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null
    else
        select @Posl_Specif_10000_Recept = max(Spc_Specif * 10000 + Spc_Recept)
        From Recepti_P
        Where Spc_Podr = @Sifra_PodrSLuzba and BezPartic = @BezPartic and
              Datum_Izdav >= @Datum_Izdav_Od and Datum_Izdav <= @Datum_Izdav_Do and
                  Spc_Specif is not null and Spc_Recept is not null





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_sgrdok]'))
drop procedure [dbo].[sp_daj_sgrdok]

Go



CREATE   PROCEDURE sp_Daj_SGrDok

    @GrDok varchar(20)

AS

    Select S.*, T.ImeDok, N.ImeNar, T.NaslovDok NaslovDok, N.Naslov NaslovNar, N.PodTipNar
    From SGrDok S
    left outer join TipDok T
        on S.Sifra_Dok = T.Sifra_Dok
    left outer join TipNarac N
        on S.Sifra_Nar = N.Sifra_Nar
    where S.Sif_GrDok = @GrDok
    Order By S.Rbr









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_sifpodrsluzba]'))
drop procedure [dbo].[sp_daj_sifpodrsluzba]

Go

create  PROCEDURE sp_Daj_SifPodrSluzba

    @PocCifriKniska        char(3),
    @Sifra_PodrSluzba    char(4) = Null Output

AS

    Select @Sifra_PodrSluzba = Sifra_PodrSluzba
    From PodracniSluzbi
    Where PocCifriKniska = @PocCifriKniska




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_sifri_slaganje]'))
drop procedure [dbo].[sp_daj_sifri_slaganje]

Go
CREATE PROCEDURE sp_Daj_Sifri_Slaganje
    @Sifra_Slag        varchar(20)
AS
    Select Sifra_Slag, Rbr_Konf
    From KonfSlaganje
    Where Sifra_Slag=@Sifra_Slag



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_site_katstatus]'))
drop procedure [dbo].[sp_daj_site_katstatus]

Go

--    Opis na Parametri
CREATE               PROCEDURE sp_Daj_Site_KatStatus

AS

    select *
    from KatStatus
    order by Sifra_KatStatus





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_sleden_rasporedisp]'))
drop procedure [dbo].[sp_daj_sleden_rasporedisp]

Go

CREATE PROCEDURE sp_Daj_Sleden_RasporedIsp
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Raspored    int Output
 AS
    Select @Broj_Raspored=Max(Broj_Raspored)
    From RasporedIspor
    Where Sifra_Oe = @Sifra_Oe and Sifra_Nar = @Sifra_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_spored_kontrser_siteart]'))
drop procedure [dbo].[sp_daj_spored_kontrser_siteart]

Go

create PROCEDURE [dbo].[sp_Daj_Spored_KontrSer_SiteArt]

    @KontrSer     varchaR(30)

AS

        select top 1 KS.Sifra_Art, KS.KontrSer,
                 KS.KontrSerExt, KS.AltKontrSer, KS.GodProiz, KS.Opis,
                 Art.ImeArt, KS.SifrA_3, D3.Ime_3,
                 KS.Masa_Kgr, KS.Sila_KW
        from KatSerKlas KS
        inner join Katart Art
            on Art.Sifra_Art = KS.Sifra_Art
        left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
        where KS.KontrSer = @KontrSer










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_spored_kontrserext]'))
drop procedure [dbo].[sp_daj_spored_kontrserext]

Go



CREATE   PROCEDURE sp_Daj_Spored_KontrSerExt

    @Sifra_Art    varchar(20),
    @KontrSerExt     varchaR(30)

AS

        select top 1 KS.Sifra_Art, KS.KontrSer,
                 KS.KontrSerExt, KS.AltKontrSer, KS.GodProiz, KS.Opis,
                 Art.ImeArt, KS.SifrA_3, D3.Ime_3,
                 KS.Masa_Kgr, KS.Sila_KW
        from KatSerKlas KS
        inner join Katart Art
            on Art.Sifra_Art = KS.Sifra_Art
        left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
        where KS.Sifra_art = @Sifra_art and KS.KontrSerExt = @KontrSerExt








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_spored_kontrserext_siteart]'))
drop procedure [dbo].[sp_daj_spored_kontrserext_siteart]

Go

create PROCEDURE [dbo].[sp_Daj_Spored_KontrSerExt_SiteArt]

    @KontrSerExt     varchaR(30)

AS

        select top 1 KS.Sifra_Art, KS.KontrSer,
                 KS.KontrSerExt, KS.AltKontrSer, KS.GodProiz, KS.Opis,
                 Art.ImeArt, KS.SifrA_3, D3.Ime_3,
                 KS.Masa_Kgr, KS.Sila_KW
        from KatSerKlas KS
        inner join Katart Art
            on Art.Sifra_Art = KS.Sifra_Art
        left outer join Drugo3 D3
                on KS.SIfra_3 = D3.SifrA_3
        where KS.KontrSerExt = @KontrSerExt










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_udfizv]'))
drop procedure [dbo].[sp_daj_udfizv]

Go


create    PROCEDURE sp_Daj_UDFIzv
    @Meni  varchar(30)
AS
SELECT * FROM UDF_Izv U
WHERE U.Meni=@Meni




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_udfstavki]'))
drop procedure [dbo].[sp_daj_udfstavki]

Go


CREATE    PROCEDURE sp_Daj_UDFStavki
    @XML  varchar(30)
AS
SELECT U.*, I.Procedura, I.Naslov FROM UDF_Stavki U
inner join UDF_Izv I on I.XML=U.XML
WHERE U.XML=@XML




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_voz_kup]'))
drop procedure [dbo].[sp_daj_voz_kup]

Go

create  PROCEDURE sp_Daj_Voz_Kup
    @Sifra_Kup    char(6)

AS

    select V.*, K.ImeArt, K.Drugo1, D1.Ime_1, K.Sifra_Drg, DR.Ime,
    K.Drugo2, D2.Ime_2, K.Drugo3, D3.Ime_3, K.Kto, K.Drugo4, D4.Ime_4
    from Vozila V
    inner join Katart K on V.Sifra_Art=K.Sifra_Art
    left outer join Drugo1 D1 on K.Drugo1= D1.Sifra_1
    left outer join Drugo2 D2 on K.Drugo2= D2.Sifra_2
    left outer join Drugo3 D3 on K.Drugo3= D3.Sifra_3
    left outer join Drugo4 D4 on K.Drugo4= D4.Sifra_4
    left outer join DrgPodel DR on K.Sifra_drg= DR.Sifra_Drg
    Where V.Sifra_Kup = @Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj_vreme_server]'))
drop procedure [dbo].[sp_daj_vreme_server]

Go


CREATE PROCEDURE sp_Daj_Vreme_Server
    @Datum_Server SmallDateTime OUTPUT
AS
    Select @Datum_Server = GetDate()




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daj3rabatiodcenpopodgr]'))
drop procedure [dbo].[sp_daj3rabatiodcenpopodgr]

Go
CREATE PROCEDURE sp_Daj3RabatiOdCenPoPodgr
    @Sifra_Art    varchar(20),
    @Sifra_Kup    char(6),
    @PodelArt    char(1),
    @ParamN1    decimal(18,6) OUTPUT,
    @ParamN2    decimal(18,6) OUTPUT,
    @ParamN3    decimal(18,6) OUTPUT,
    @Uces        decimal(6,2) OUTPUT,
    @Uces2        decimal(6,2) OUTPUT,
    @Uces3        decimal(6,2) OUTPUT,
    @Sifra_PodelArt    varchar(20) OUTPUT
AS
Declare @TipKup varchar(11)
If @PodelArt ='P'
    SELECT @Sifra_PodelArt = Sifra_Podg FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='1'
    SELECT @Sifra_PodelArt = Drugo1 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='2'
    SELECT @Sifra_PodelArt = Drugo2 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='3'
    SELECT @Sifra_PodelArt = Drugo3 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='4'
    SELECT @Sifra_PodelArt = Drugo4 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='5'
    SELECT @Sifra_PodelArt = Drugo5 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='6'
    SELECT @Sifra_PodelArt = Drugo6 FROM KatArt WHERE Sifra_Art=@Sifra_Art
ELSE If @PodelArt ='7'
    SELECT @Sifra_PodelArt = Drugo7 FROM KatArt WHERE Sifra_Art=@Sifra_Art
SELECT @TipKup = TipKup FROM Komint WHERE Sifra_Kup=@Sifra_Kup
SELECT @Uces = Uces, @Uces2 = Uces2, @Uces3 = Uces3,@ParamN1=ParamN1,@ParamN2=ParamN2,@ParamN3=ParamN3
FROM  CenPoPodgr WHERE TipKup = @TipKup AND Sifra_Podelba = @Sifra_PodelArt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajakciipromo]'))
drop procedure [dbo].[sp_dajakciipromo]

Go



CREATE    PROCEDURE sp_DajAkciiPromo
    @Sifra_Pat smallint = NULL
AS
IF @Sifra_Pat IS NULL
    SELECT SA.*, A.Datum_Poc, A.Datum_Kr, A.Sifra_Podelba FROM AkciiPromoSta SA
    INNER JOIN AkciiPromo A ON SA.Ozn_Akcija=A.Ozn_Akcija
    WHERE A.Aktivna='D' AND A.Datum_Poc<=dbo.fn_VratiDatum(GetDate()) AND (A.Datum_Kr IS NULL OR A.Datum_Kr>=dbo.fn_VratiDatum(GetDate()))
ELSE
Begin
    CREATE TABLE #TmpGrPat (Sif_GrPat char(6))
    INSERT INTO #TmpGrPat SELECT Distinct Sif_GrPat FROM SGrPat WHERE Sifra_Pat=@Sifra_Pat

    SELECT SA.*, A.Datum_Poc, A.Datum_Kr, A.Sifra_Podelba FROM AkciiPromoSta SA
    INNER JOIN AkciiPromo A ON SA.Ozn_Akcija=A.Ozn_Akcija
    WHERE A.Aktivna='D' AND A.Datum_Poc<=dbo.fn_VratiDatum(GetDate()) AND (A.Datum_Kr IS NULL OR A.Datum_Kr>=dbo.fn_VratiDatum(GetDate()))
    AND A.Sif_GrPat IN (SELECT Sif_GrPat FROM #TmpGrPat)
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajakcrabatzapodelkup]'))
drop procedure [dbo].[sp_dajakcrabatzapodelkup]

Go


CREATE      PROCEDURE sp_DajAkcRabatZaPodelKup
    @Sifra_Art        varchar(20),
    @Sifra_Podelba    varchar(20) = NULL,
    @Sifra_Kup        char(6),
    @Datum            smalldatetime
AS
Declare @Najde as char(1), @SpePopust as decimal(6,2)
SET @Najde = 'N'
IF @Sifra_Kup IS NOT NULL
Begin
    SELECT @SpePopust=SpePopust    From Cenovnik
    Where Sifra_Kup = @Sifra_Kup and Sifra_art = @Sifra_Art AND PocDatum<=@Datum AND (KrajDatum IS NULL OR KrajDatum>=@Datum)
    IF @@ROWCOUNT>=1 AND @SpePopust>0
    Begin
        SET @Najde = 'D'
        SELECT '' AS Ozn_Akcija, Sifra_Art AS Sifra_Art_Osnoven, '' AS Sifra_Art_Paket, 0 AS Kolicina,
                SpeCena AS Cena, SpePopust AS Rabat From Cenovnik
        Where Sifra_Kup = @Sifra_Kup and Sifra_art = @Sifra_Art AND PocDatum<=@Datum AND (KrajDatum IS NULL OR KrajDatum>=@Datum)
    End
End

IF @Najde = 'N'
Begin
    IF @Sifra_Podelba IS NULL
        SELECT SA.* FROM AkciiPromoSta SA
        INNER JOIN AkciiPromo A ON SA.Ozn_Akcija=A.Ozn_Akcija
        WHERE A.Aktivna='D' AND A.Datum_Poc<=@Datum AND (A.Datum_Kr IS NULL OR A.Datum_Kr>=@Datum) AND SA.Sifra_Art_Osnoven=@Sifra_Art AND A.Sifra_Podelba IS NULL
    ELSE
    Begin
        SELECT SA.* FROM AkciiPromoSta SA
        INNER JOIN AkciiPromo A ON SA.Ozn_Akcija=A.Ozn_Akcija
        WHERE A.Aktivna='D' AND A.Datum_Poc<=@Datum AND (A.Datum_Kr IS NULL OR A.Datum_Kr>=@Datum)
        AND SA.Sifra_Art_Osnoven=@Sifra_Art AND A.Sifra_Podelba = @Sifra_Podelba

        IF @@ROWCOUNT<1
        SELECT SA.* FROM AkciiPromoSta SA
        INNER JOIN AkciiPromo A ON SA.Ozn_Akcija=A.Ozn_Akcija
        WHERE A.Aktivna='D' AND A.Datum_Poc<=@Datum AND (A.Datum_Kr IS NULL OR A.Datum_Kr>=@Datum) AND SA.Sifra_Art_Osnoven=@Sifra_Art AND A.Sifra_Podelba IS NULL
    End
End





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajarticeni]'))
drop procedure [dbo].[sp_dajarticeni]

Go

CREATE           PROCEDURE sp_DajArtICeni
       @Sifra_OECeni    smallint = NULL,
    @Sif_GrOrgCeni    char(6)= NULL,
       @Kto             char(6) = Null,
       @Sifra_Gr         varchar(6) = Null,
       @Sifra_Podg     char(6) = Null,
    @Sifra_OEDok    smallint = NULL,
    @Sifra_Dok        smallint = NULL,
    @Broj_Dok        int = NULL
AS
    Declare @OE_ZaCeni smallint
    IF @Sifra_OECeni IS NOT NULL
        SET @OE_ZaCeni = @Sifra_OECeni
    ELSE
    Begin
        SELECT TOP 1 @OE_ZaCeni = Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrgCeni ORDER BY Sifra_OE
    End

    Declare @SSQL varchar(8000)
    Set @SSQL='SELECT K.Sifra_Art, K.ImeArt, K.Edmera, '
    IF @Sifra_OEDok IS NOT NULL AND @Sifra_DOk IS NOT NULL AND @Broj_Dok IS NOT NULL
        Set @SSQL=@SSQL+'ST.MagCena Cena, ST.DanMagCena DanCena '
    ELSE
        Set @SSQL=@SSQL+'S.Cena, S.DanCena '
    IF @Sifra_OEDok IS NOT NULL AND @Sifra_DOk IS NOT NULL AND @Broj_Dok IS NOT NULL
        Set @SSQL=@SSQL+' FROM Stavr ST INNER JOIN KatArt K ON ST.Sifra_Art=K.Sifra_Art
            LEFT OUTER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
            WHERE Sifra_OE='+Cast(@Sifra_OEDok As varchar(4))+' AND Sifra_Dok='+cast(@Sifra_Dok as varchar(4))+' AND Broj_Dok='+Cast(@Broj_Dok as varchar(10))
    ELSE
        Set @SSQL=@SSQL+' FROM KatArt K LEFT OUTER JOIN Soart S ON K.Sifra_Art=S.Sifra_Art
                        LEFT OUTER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                          WHERE S.Sifra_OE='+Cast(@OE_ZaCeni As varchar(4))
    --IF @Sifra_OEDok IS NOT NULL AND @Sifra_DOk IS NOT NULL AND @Broj_Dok IS NOT NULL
    --       Set @SSQL=@SSQL+' AND K.Sifra_Art IN (SELECT Sifra_Art FROM Stavr WHERE Sifra_OE='+
    --    Cast(@Sifra_OEDok As varchar(4))+' AND Sifra_Dok='+cast(@Sifra_Dok as varchar(4))+' AND Broj_Dok='+Cast(@Broj_Dok as varchar(10))+ ')'
       If @Kto Is Not Null
           Set @SSQL=@SSQL+' AND K.Kto='''+@Kto+''' '
       If @Sifra_Gr Is Not Null
           Set @SSQL=@SSQL+' AND PG.Sifra_Gr='''+@Sifra_Gr+''' '
       If @Sifra_Podg Is Not Null
        Set @SSQL=@SSQL+' AND K.Sifra_Podg='''+@Sifra_Podg+''' '
       Set @SSQL=@SSQL+' ORDER BY K.Sifra_Art'
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartikli]'))
drop procedure [dbo].[sp_dajartikli]

Go

CREATE  procedure sp_DajArtikli
As
    Select K.Sifra_Art, K.ImeArt Naziv, K.Sifra_Podg, P.Ime_Podg Naziv_Podg, K.EdMera JedMera FROM Katart K
    INNER JOIN Podgrupi P on K.Sifra_Podg=P.Sifra_Podg ORDER BY K.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartiklizaprenos]'))
drop procedure [dbo].[sp_dajartiklizaprenos]

Go

CREATE    PROCEDURE sp_DajArtikliZaPrenos
    @ObjIzvor    char(1),
    @ObjZaPrenos char(1)
AS
    CREATE TABLE #TmpArt (Sifra_art varchar(20))
    Declare @PocChr    varchar(20)
    Declare @KrChr    varchar(20)
    Declare KonfMat1 Cursor Fast_Forward For
    Select  Poc_char, Kr_char From KonfNasObjMatic
    WHERE Tabela='KatArt'
    AND PatIndex('%'+@ObjZaPrenos + '%', PrenosVoObj)<>0  --AND Izvor=@ObjIzvor -ova za 3 obj.nema da e OK
    Open KonfMat1
    Fetch Next From KonfMat1 Into @PocChr, @KrChr
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpArt SELECT Sifra_Art FROM KatArt
        Where Sifra_Art >= @PocChr AND Sifra_Art <= @KrChr AND
        (Prenesen IS NULL OR PatIndex('%' + @ObjZaPrenos + '%', Prenesen)=0)
        Fetch Next From KonfMat1 Into @PocChr, @KrChr
    End
    Close KonfMat1
    Deallocate KonfMat1
    SELECT Sifra_Art, ImeArt, EdMera, Alt_Ime, Sifra_Podg, Sifra_Tar, Kto,
    SMatUsl, Sifra_Drg, KolkuDrg, Drugo1, Drugo2, Drugo3, Drugo4, Drugo5,
    Fakturna, Nabavna, DogCena, MalCena, GotCena, SpeCena,
    Proc_Marza, Nom, SMin_Sost, SMax_Sost, SOpt_Sost, Lokacija, ImaBroevi,
    ImaKomerc, Tezina, PopusMar, Alt_Sifra, Iskluci, SpecRabat, SpecRabatOd, SpecRabatDo,
    BTezina, Volumen, Rabat_Dali, SodrziEd, ProcAlk, RokKontrDali, Prenesen, Kto_anal FROM KatArt
    WHERE Sifra_Art IN (Select Sifra_Art FROM #TmpArt)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartiklizaprenoszakup]'))
drop procedure [dbo].[sp_dajartiklizaprenoszakup]

Go
CREATE   PROCEDURE sp_DajArtikliZaPrenosZaKup
    @Sifra_Kup    char(6),
    @KlkDena     smallint
AS
    Declare @Datum as smalldatetime
    SET @Datum = DateAdd(day, @KlkDena * -1, dbo.fn_VratiDatum(GetDate()))
    SELECT Sifra_Art, ImeArt, EdMera, Alt_Ime, Sifra_Podg, Sifra_Tar,
    SMatUsl, KolkuDrg, Nom, ImaBroevi, ImaKomerc, Tezina, Alt_Sifra,
    BTezina, Volumen, SodrziEd FROM KatArt
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum OR Sifra_Art IN
    (SELECT DISTINCT S.Sifra_Art FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
     WHERE D.Datum_Dok>=@Datum AND D.Sifra_Za=1 AND D.Sifra_Kup=@Sifra_Kup)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartodproizv]'))
drop procedure [dbo].[sp_dajartodproizv]

Go

CREATE  PROCEDURE sp_DajArtOdProizv
    @Sif_GrOrg    char(6)
AS
SELECT Sifra_Art, ImeArt FROM KatArt
WHERE SMatUsl='M' and Sifra_Art IN (SELECT DISTINCT Sifra_Art FROM Soart WHERE Sifra_OE IN
(SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_OE IN
(SELECT Sifra_OE FROM OrgEd WHERE TipMag='G')))





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartzavlezrand]'))
drop procedure [dbo].[sp_dajartzavlezrand]

Go

CREATE         PROCEDURE sp_DajArtZaVlezRand
    @Sif_GrOrgI    char(6),
    @Datum        smalldatetime,
    @TipDok_Izl varchar(100),
    @Sifra_Kup    char(6),        --dobavuvac
    @KoiDokrID    varchar(500),
    @PrimBr        decimal(18,6)=0 OUTPUT,
    @PrimTez    decimal(18,6)=0 OUTPUT
AS
    CREATE TABLE #TmpA
    (Sifra_Art varchar(20),
     IspBr    decimal(18,6),
     IspTez decimal(18,6),
     ProcRand decimal(6,2))
    Declare @SSQL varchar(3000)
/*SET @SSQL='SELECT Sifra_Art, SUM(Alt_Kolic), SUM(Kolic), 0 FROM Stavr WHERE Sifra_OE IN
(SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg='''+@Sif_GrOrgI+''') AND Sifra_Dok IN ('+@TipDok_Izl +
') AND Dobav='+@Sifra_Kup+' AND Datum_Dok='''+cast(@Datum as varchar(35))+'''
AND Sifra_Art IN (SELECT Sifra_Art FROM KatArt WHERE DaliSurov=''G'') GROUP BY Sifra_Art'
INSERT INTO #TmpA EXEC(@SSQL)
INSERT INTO #TmpA (Sifra_Art)
SELECT DISTINCT S.Sifra_Art FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
WHERE S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrgI)
AND S.Datum_Dok=@Datum AND S.VlIzl='V' AND D.Sifra_KuP=@Sifra_Kup AND
Sifra_Art IN (SELECT Sifra_Art FROM KatArt WHERE DaliSurov='G') AND S.Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpA)
UPDATE #TmpA SET ProcRand=S.Proc_Rand FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
WHERE #TmpA.Sifra_Art=S.Sifra_Art AND D.Sifra_Kup=@Sifra_Kup AND
S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrgI) AND S.Datum_Dok=@Datum AND S.VlIzl='V' */
SET @SSQL='SELECT S.Sifra_Art, Sum(S.Alt_Kolic), SUM(S.Kolic), AVG(S.Proc_Rand)
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
WHERE S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg='''+@Sif_GrOrgI+''')
AND S.Datum_Dok='''+cast(@Datum as varchar(35))+''' AND D.Sifra_Kup='+@Sifra_Kup+' AND S.VlIzl=''V''
GROUP BY S.Sifra_Art'
INSERT INTO #TmpA (Sifra_art, IspBr, IspTez, ProcRand)  EXEC (@SSQL)
UPDATE #TmpA SET ProcRand = 0 WHERE ProcRand IS NULl
UPDATE #TmpA SET ProcRand = ProcRand / 100
UPDATE #TmpA SET ProcRand=S.Ima_Kolic FROM Sostav S WHERE #TmpA.Sifra_Art=S.Sifra_Art AND S.VodeckiArtikal='D' AND ProcRand=0
CREATE TABLE #Tmp1
(PrimBr    decimal(18,6),
 PrimTez decimal(18,6))
SET @SSQL='SELECT SUM(Alt_Kolic), SUM(Kolic) FROM Stavr S WHERE S.DokrID IN ('+ @KoiDokrID +')'
INSERT INTO #Tmp1 EXEC (@SSQL)
SELECT @PrimBr=PrimBr, @PrimTez=PrimTez FROM #Tmp1
SELECT S.*, A.ImeArt, A.Sifra_Tar, T.ProcOsn FROM #TmpA S
INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar ORDER BY S.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajartzawebnarac]'))
drop procedure [dbo].[sp_dajartzawebnarac]

Go

CREATE              PROCEDURE sp_DajArtZaWEBNarac
    @ZemiArtSamoOdAsortLst    smallint=NULL,
    @KatAsortPoSto            varchar(5)=NULL,
    @SamoVoPDA                char(1)=NULL,
    @KlkDena                smallint=null,
    @KojaCena                char(1)='1',
    @Sifra_OE                smallint=NULL
AS

Declare @SSQL varchar(3000)
SET @SSQL = 'Select K.Sifra_Art, K.ImeArt, K.EdMera, K.Alt_Ime, K.Alt_EdMera,T.ProcOsn as POsn, '
IF @KojaCena='1'
    SET @SSQL = @SSQL + 'K.DogCena as Katal_Cena, '
ELSE IF @KojaCena='S'
    SET @SSQL = @SSQL + 'CASE S.DanCena WHEN ''D'' THEN S.Cena ELSE round(S.Cena * (1+S.Posn/100),1) END As Katal_Cena, '
IF @KatAsortPoSto IS NOT NULL AND @KatAsortPoSto='HA'
    SET @SSQL = @SSQL + ' K.Sifra_KHier Sifra_Podg, '
ELSE IF @KatAsortPoSto IS NOT NULL AND @KatAsortPoSto='DP'
    SET @SSQL = @SSQL + ' K.Kto Sifra_Podg, '
ELSE
    SET @SSQL = @SSQL + ' K.Sifra_Podg, '
SET @SSQL = @SSQL + ' K.ImaKomerc, K.Kto, K.Nom, K.Tezina, K.BTezina, 0 as Min_Narac_Kup,0 as Max_Narac_Kup, K.DeklArt
    From Katart K
    Left Outer Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar '
IF @KojaCena='S'
    SET @SSQL = @SSQL + ' LEFT OUTER JOIN Soart S ON K.Sifra_Art=S.Sifra_Art AND S.Sifra_OE='+cast(@Sifra_OE as varchar(5))
CREATE TABLE #TmpKL
(Sifra    varchar(10))

IF @ZemiArtSamoOdAsortLst IS NOT NULL
Begin
    Declare @BrZap integer

    IF @KatAsortPoSto = 'GP'
    Begin
        SELECT @BrZap= COUNT(DISTINCT Sifra2) FROM KatAsortLista WHERE Broj_ALista=@ZemiArtSamoOdAsortLst
        IF @BrZap IS NULL OR @BrZap=0
            INSERT INTO #TmpKL SELECT Sifra_Podg FROM Podgrupi
        ELSE
            INSERT INTO #TmpKL SELECT DISTINCT Sifra2 FROM KatAsortLista WHERE Broj_ALista=@ZemiArtSamoOdAsortLst
        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg
        INNER JOIN KatAsortLista L ON L.Sifra1=P.Sifra_Gr
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
        + ' AND K.Sifra_Podg IN (SELECT Sifra FROM #TmpKL) '
    End
    ELSE IF @KatAsortPoSto = 'HA'
    Begin
        SET @SSQL = @SSQL + ' INNER JOIN KatAsortLista L ON L.Sifra1=K.Sifra_KHier
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
    End
    ELSE IF @KatAsortPoSto = 'DP'
    Begin
        SET @SSQL = @SSQL + ' INNER JOIN KatAsortLista L ON L.Sifra1=K.Kto
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
    End
End
ELSE
    SET @SSQL = @SSQL + ' WHERE 1=1 '
IF @SamoVoPDA IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.VoPDA='''+@SamoVoPDA +''''
IF @KlkDena IS NOT NULL
    SET @SSQL = @SSQL + ' AND (K.DodadenNa>=DateAdd(day, '+cast(@KlkDena * -1 as varchar(10))+', GetDate()) OR K.IzmenetNa>=DateAdd(day, '+cast(@KlkDena * -1 as varchar(10))+', GetDate()) )'

EXEC (@SSQL)
SET QUOTED_IDENTIFIER OFF












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajazurdok]'))
drop procedure [dbo].[sp_dajazurdok]

Go


CREATE    PROCEDURE sp_DajAzurDok
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint,
    @BrDokOd int,
    @BrDokDo int,
    @Broj_Nal    int
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT D.*, T.Sif_GrDok  FROM DOKR D INNER JOIN TipDok T ON D.Sifra_Dok=T.Sifra_Dok
                           WHERE D.BROJ_NAL IS NOT NULL AND D.SIFRA_DOK = ' + cast(@Sifra_Dok as varchar(5)) + '
                           AND VlIzl=''I'' AND D.SIFRA_OE '
    If @Sifra_OE IS NULL
                     Set @SSQL =  @SSQL + 'IN (SELECT Sifra_OE FROM ORGED WHERE OrgDaliFin = ''D'')'
    Else
                     Set @SSQL =  @SSQL + '= ' + Cast (@Sifra_OE as varchar(5))
    If @Broj_Nal  IS NOT NULL
                     Set @SSQL =  @SSQL + ' AND D.Broj_Nal = ' + Cast(@Broj_nal as varchar(10))
    If @BrDokOd  IS NOT NULL
                     Set @SSQL =  @SSQL + ' AND D.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10))
    If @BrDokDo  IS NOT NULL
                     Set @SSQL =  @SSQL + ' AND D.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10))
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Nal, D.Broj_Nal, D.DokrID '     --ova ostavi go zaradi prenosnicite
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajbarkodoviodkatpodsifra]'))
drop procedure [dbo].[sp_dajbarkodoviodkatpodsifra]

Go


CREATE   PROCEDURE sp_DajBarKodoviOdKatPodSifra
AS
    --SELECT Sifra_Art, Sifra_PodSif_Art Nom, rtrim(Sifra_Art)+' '+ cast(sifra_boja as varchar(4))+':'+cast(Sifra_Velic as varchar(4)) as Ozn
    --FROM KatPodSifra    OVA TRGNATO ZATOA STO BESE ZA MAKPRIMAT NAPRAVENO ZA EDNOKRATNA UPOTREBA I SEGA NON-STOP PREVZEMAAT MNOGU BARKODOVI NEPOTREBNO, PO POTREBA DA SE VRATI

SELECT '' Sifra_Art, '' Nom, ' :' Ozn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajbarkodovizaprenos]'))
drop procedure [dbo].[sp_dajbarkodovizaprenos]

Go

CREATE  PROCEDURE sp_DajBarKodoviZaPrenos
    @ObjIzvor    char(1),
    @ObjZaPrenos char(1)
AS
    CREATE TABLE #TmpArt (Sifra_art varchar(20))
    Declare @PocChr    varchar(20)
    Declare @KrChr    varchar(20)
    Declare KonfMat1 Cursor Fast_Forward For
    Select  Poc_char, Kr_char From KonfNasObjMatic
    WHERE Izvor=@ObjIzvor AND Tabela='KatArt'
    AND PatIndex('%'+@ObjZaPrenos + '%', PrenosVoObj)<>0
    Open KonfMat1
    Fetch Next From KonfMat1 Into @PocChr, @KrChr
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpArt SELECT Sifra_Art FROM KatArt
        Where Sifra_Art >= @PocChr AND Sifra_Art <= @KrChr AND
        (Prenesen IS NULL OR PatIndex('%S%', Prenesen)=0)
        Fetch Next From KonfMat1 Into @PocChr, @KrChr
    End
    Close KonfMat1
    Deallocate KonfMat1
    SELECT Sifra_Art, Nom, Drugo2 FROM ABarKod
    WHERE Sifra_Art IN (Select Sifra_Art FROM #TmpArt)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajbarkodovizaprenoszakup]'))
drop procedure [dbo].[sp_dajbarkodovizaprenoszakup]

Go
CREATE   PROCEDURE sp_DajBarKodoviZaPrenosZaKup
    @Sifra_Kup    char(6),
    @KlkDena     smallint
AS
    Declare @Datum as smalldatetime
    SET @Datum = DateAdd(day, @KlkDena * -1, dbo.fn_VratiDatum(GetDate()))
    SELECT Sifra_Art, Nom FROM ABarKod WHERE Sifra_Art IN
    (SELECT Sifra_Art FROM KatArt
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum or Sifra_Art IN
    (SELECT DISTINCT S.Sifra_Art FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
     WHERE D.Datum_Dok>=@Datum AND D.Sifra_Za=1 AND D.Sifra_Kup=@Sifra_Kup))




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajblokiranafaktura]'))
drop procedure [dbo].[sp_dajblokiranafaktura]

Go


CREATE   PROCEDURE sp_DajBlokiranaFaktura
    @Sifra_OE    smallint,
    @KoiTipDok    varchar(100),
    @Datum_Dok    smalldatetime,
    @Sifra_Kup    char(6)
AS
    Declare @SSQL as varchar(800)
    SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_dok, Datum_Dok, Sifra_Obj, Sifra_Pat FROM Dokr
    WHERE Sifra_OE = ' +Cast(@Sifra_OE as varchar(6)) + 'AND Sifra_Dok IN (' +
    @KoiTipDok + ')    AND Datum_Dok <= ''' + Cast(@Datum_Dok as varchar(35)) + ''' AND Blokiran = ''T'' '
    IF @Sifra_kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup = ' + @Sifra_Kup
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajbrsneprenfindok]'))
drop procedure [dbo].[sp_dajbrsneprenfindok]

Go

CREATE  PROCEDURE sp_DajBrsNePrenFinDok
    @KoiOE    varchar(200)=NULL,
    @KoiDok    varchar(100)=NULL,
    @KojObj    char(1)
AS
Declare @SSQL    varchar(5000)
SET @SSQL = 'SELECT Sifra_OE OE, Sifra_Dok Dok, Broj_Dok BrDok
            FROM BrsFinDok WHERE (Prenesen IS NULL OR RTrim(Prenesen)='''' OR
            PatIndex(''%'+@KojObj + '%'', Prenesen)=0) '
IF @KoiOE IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_OE IN (' + @KoiOE + ') '
IF @KoiDok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Dok IN (' + @KoiDok + ') '
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajcena_jole]'))
drop procedure [dbo].[sp_dajcena_jole]

Go



CREATE     PROCEDURE sp_dajcena_jole
    @Sifra_OE Smallint = Null,
    @TipDokPrimarni varchar(300)='2,132',
    @TipDokSekundarni varchar(300)='990',
    @GrupaOrg varchar(20) = Null,
    @Sifra_Art Varchar(20)

AS

    Declare @Koef decimal (18, 4)
    select @Koef = (select Koef
            from Katart
            where Sifra_Art = @Sifra_Art)

    IF @Koef <= 0
    begin
        select 0 KgrKomRealno,
               0 KgrMet,
            K.ProcAlk, K.KolkuDrg,
            CenKat.CenaParam, CenKat.CenaParam2,
            0 GolCena,
            0 MalCena,
            K.Koef as KgrMetKatart,
            K.GotCena,
            K.DogCena DogCenaFix
        From Katart K
        Inner Join Tarifi Tar On Tar.Sifra_Tar = K.Sifra_Tar
        Left Outer Join Drugo1 CenKat On K.Drugo1 = CenKat.Sifra_1
        where K.sifrA_art = @SIfrA_Art

        RETURN
    end


    CREATE TABLE #TempPosl
    (    [Kolic] decimal(18, 6) NULL ,
        [Alt_Kolic] decimal(18, 6) NULL ,

        [KgrKom] decimal(18, 6) NULL ,
    )

    if @TipDokPrimarni is not null and @TipDokPrimarni <> ''
    begin
        CREATE TABLE #SiteDokPrimarni
        (    Sifra_Dok smallint
        )

        insert into #SiteDokPrimarni
        select cast(Pole as int) from dbo.fn_split(@TipDokPrimarni, ',')
    end

    if @TipDokSekundarni is not null and @TipDokSekundarni <> ''
    begin
        CREATE TABLE #SiteDokSekundarni
        (    Sifra_Dok smallint
        )

        insert into #SiteDokSekundarni
        select  cast(Pole as int) from dbo.fn_split(@TipDokSekundarni, ',')
    end

    CREATE TABLE #SiteOrg
    (    Sifra_Oe smallint
    )

    if @GrupaOrg is not null and @GrupaOrg <> ''
        insert into #SiteOrg (Sifra_OE)
        Select G.Sifra_Oe
        from SGrOrg G
        where G.sif_GrOrg = @GrupaOrg
    else if @Sifra_Oe is not null and @Sifra_Oe <> 0
        insert into #SiteOrg
        values (@Sifra_Oe)
    else
        insert into #SiteOrg
        select Sifra_Oe
        from OrgEd

    Declare @KolkuNajde as int
    Declare @KandKgrPosl as decimal(18, 6)

    set @KandKgrPosl = null
    set @KolkuNajde = Null

    -- Prvo vidi od primarnite priemi
    if @TipDokPrimarni is not null and @TipDokPrimarni <> ''
        begin
        delete from #TempPosl

        insert into #TempPosl
            (kolic, alt_kolic, KgrKom)
        Select Top 3 kolic, alt_kolic, Alt_Kolic / Kolic
        From Stavr S
        Inner Join #SiteDokPrimarni TD on S.Sifra_Dok = TD.Sifra_Dok
        Inner Join #SiteOrg ORG on S.Sifra_Oe = ORG.Sifra_Oe
        Where Sifra_Art=@Sifra_Art And VlIzl='V' And Kolic > 0
        Order By Datum_Dok Desc, DokID Desc

        select @KandKgrPosl = sum(KgrKom), @KolkuNajde = count(*)
        from #TempPosl
        end


    -- Ako ne najde, vidi od sekundarnite priemi
    if @KandKgrPosl is null and @TipDokSekundarni is not null and @TipDokSekundarni <> ''
        begin
        delete from #TempPosl

        insert into #TempPosl
            (kolic, alt_kolic, KgrKom)
        Select Top 3 kolic, alt_kolic, Alt_Kolic / Kolic
        From Stavr S
        Inner Join #SiteDokSekundarni TD on S.Sifra_Dok = TD.Sifra_Dok
        Inner Join #SiteOrg ORG on S.Sifra_Oe = ORG.Sifra_Oe
        Where Sifra_Art=@Sifra_Art And VlIzl='V' And Kolic > 0
        Order By Datum_Dok Desc, DokID Desc

        select @KandKgrPosl = sum(KgrKom), @KolkuNajde = count(*)
        from #TempPosl
        end


    -- Ako ne najde, vidi bilo kakov priem koj ne e prenosnica
    if @KandKgrPosl is null
        begin
        delete from #TempPosl

        insert into #TempPosl
            (kolic, alt_kolic, KgrKom)
        Select Top 3 kolic, alt_kolic, Alt_Kolic / Kolic
          From Stavr S
        Inner Join #SiteOrg ORG on S.Sifra_Oe = ORG.Sifra_Oe
        Where Sifra_Art=@Sifra_Art And VlIzl='V' And Kolic > 0 and (ImaDodatna='' or ImaDodatna is null)
        Order By Datum_Dok Desc, DokID Desc

        select @KandKgrPosl = sum(KgrKom), @KolkuNajde = count(*)
        from #TempPosl
        end

    -- Ako ne najde, vidi priem -  prenosnica
    if @KandKgrPosl is null
        begin
        delete from #TempPosl

        insert into #TempPosl
            (kolic, alt_kolic, KgrKom)
        Select Top 3 kolic, alt_kolic, Alt_Kolic / Kolic
        From Stavr S
        Inner Join #SiteOrg ORG on S.Sifra_Oe = ORG.Sifra_Oe
        Where Sifra_Art=@Sifra_Art And VlIzl='V' And Kolic > 0 and ImaDodatna='P'
        Order By Datum_Dok Desc, DokID Desc

        select @KandKgrPosl = sum(KgrKom), @KolkuNajde = count(*)
        from #TempPosl
        end

    if @KandKgrPosl is not null
       begin
        Declare @KgrKomRealno decimal(18,6)

        set @KgrKomRealno = @KandKgrPosl / @KolkuNajde

        select @KgrKomRealno KgrKomRealno,
                   (Case when K.KolkuDrg > 0 Then @KgrKomRealno / (K.KolkuDrg / 100) Else 0 End) KgrMet,
                K.ProcAlk, K.KolkuDrg,
            CenKat.CenaParam, CenKat.CenaParam2,
            dbo.fn_zaokr_5den(CenKat.CenaParam * @KgrKomRealno * (1 + Tar.ProcOsn / 100)) GolCena,
            dbo.fn_zaokr_5den(CenKat.CenaParam2 * @KgrKomRealno * (1 + Tar.ProcOsn / 100)) MalCena,
                K.Koef as KgrMetKatart, K.GotCena, K.DogCena DogCenaFix
        From Katart K
        Inner Join Tarifi Tar On Tar.Sifra_Tar = K.Sifra_Tar
        Left Outer Join Drugo1 CenKat On K.Drugo1 = CenKat.Sifra_1
        where K.sifrA_art = @SIfrA_Art
        end
    else
        select 0 KgrKomRealno,
               0 KgrMet,
            K.ProcAlk, K.KolkuDrg,
            CenKat.CenaParam, CenKat.CenaParam2,
            0 GolCena,
            0 MalCena,
            K.Koef as KgrMetKatart,
            K.GotCena,
            K.DogCena DogCenaFix
        From Katart K
        Inner Join Tarifi Tar On Tar.Sifra_Tar = K.Sifra_Tar
        Left Outer Join Drugo1 CenKat On K.Drugo1 = CenKat.Sifra_1
        where K.sifrA_art = @SIfrA_Art









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajceniodcenimp]'))
drop procedure [dbo].[sp_dajceniodcenimp]

Go

CREATE  PROCEDURE sp_DajCeniOdCenImp
    @Sifra_OE    smallint,
    @Sifra_Art    varchar(20),
    @Datum        smalldatetime,
    @Sifra_Vernost    smallint,
    @Sifra_VidDog    nvarchar(20)
AS
CREATE TABLE #TmpCen
(Sifra_VidDog    nvarchar (20),
Sifra_Vernost     smallint,
Sif_GrOrg         char (6),
Sifra_Art         varchar (20),
PocDatum        smalldatetime,
Cena            decimal(18, 4),
Subvencija        decimal(18, 4),
SlobSubvenc        char (1),
PocDatum2        smalldatetime,
KrajDatum2        smalldatetime,
Cena2            decimal(18, 4),
SlobSubvenc2    char(1),
TekCena            decimal(18, 4),
TekSlobSubv        char(1),
OK                char(1))

INSERT INTO #TmpCen (Sifra_VidDog, Sifra_Vernost, Sif_GrOrg, Sifra_Art, PocDatum, Cena, Subvencija, SlobSubvenc,PocDatum2, KrajDatum2, Cena2, SlobSubvenc2)
SELECT Sifra_VidDog, Sifra_Vernost, Sif_GrOrg, Sifra_Art, PocDatum, Cena, Subvencija, SlobSubvenc,PocDatum2, KrajDatum2, Cena2, SlobSubvenc2
FROM CenImp WHERE Sifra_Art = @Sifra_Art AND Sif_GrOrg IS NULL

INSERT INTO #TmpCen (Sifra_VidDog, Sifra_Vernost, Sif_GrOrg, Sifra_Art, PocDatum, Cena, Subvencija, SlobSubvenc,PocDatum2, KrajDatum2, Cena2, SlobSubvenc2)
SELECT Sifra_VidDog, Sifra_Vernost, Sif_GrOrg, Sifra_Art, PocDatum, Cena, Subvencija, SlobSubvenc,PocDatum2, KrajDatum2, Cena2, SlobSubvenc2
FROM CenImp WHERE Sifra_Art = @Sifra_Art AND Sif_GrOrg IN (SELECT DISTINCT Sif_GrOrg FROM SGrOrg WHERE Sifra_OE=@Sifra_OE)

UPDATE #TmpCen SET TekCena = Cena2, TekSlobSubv=SlobSubvenc2 WHERE PocDatum2 IS NOT NULL AND KrajDatum2 IS NOT NULL AND @Datum>=PocDatum2 AND @Datum<=KrajDatum2
UPDATE #TmpCen SET TekCena = Cena2, TekSlobSubv=SlobSubvenc2 WHERE PocDatum2 IS NOT NULL AND @Datum>=PocDatum2
UPDATE #TmpCen SET TekCena = Cena, TekSlobSubv=SlobSubvenc WHERE PocDatum IS NOT NULL AND @Datum>=PocDatum
DELETE FROM #TmpCen WHERE TekCena IS NULL
UPDATE #TmpCen SET OK='N'

Declare @KlkZapisi as integer
Declare @OdiPonataka as char(1)
SET @OdiPonataka = 'D'

UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NOT NULL
SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'

IF @KlkZapisi>0 SET @OdiPonataka = 'N'
IF @OdiPonataka = 'D'
Begin
    UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NOT NULL
    SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
    IF @KlkZapisi=0 SET @OdiPonataka = 'N'
End

IF @OdiPonataka = 'D' AND @Sifra_VidDog IN ('BIZNIS','RESIDENT')
Begin
    UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog='POSTPAID' AND Sif_GrOrg IS NOT NULL
    SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
    IF @KlkZapisi=0 SET @OdiPonataka = 'N'
    IF @OdiPonataka = 'D'
    Begin
        UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog='POSTPAID' AND Sif_GrOrg IS NOT NULL
        SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
        IF @KlkZapisi=0 SET @OdiPonataka = 'N'
    End
End

IF @OdiPonataka = 'D'        --bez org.ed.
Begin
    UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NULL
    SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'

    IF @KlkZapisi>0 SET @OdiPonataka = 'N'
    IF @OdiPonataka = 'D'
    Begin
        UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NULL
        SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
        IF @KlkZapisi=0 SET @OdiPonataka = 'N'
    End

    IF @OdiPonataka = 'D' AND @Sifra_VidDog IN ('BIZNIS','RESIDENT')
    Begin
        UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog='POSTPAID' AND Sif_GrOrg IS NULL
        SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
        IF @KlkZapisi=0 SET @OdiPonataka = 'N'
        IF @OdiPonataka = 'D'
        Begin
            UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog='POSTPAID' AND Sif_GrOrg IS NULL
            SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
            IF @KlkZapisi=0 SET @OdiPonataka = 'N'
        End
    End
End                            --bez org.ed.

IF @OdiPonataka = 'D'        --prepaid
Begin
    UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog='SLOBODEN' AND Sif_GrOrg IS NOT NULL
    SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'

    IF @KlkZapisi>0 SET @OdiPonataka = 'N'
    IF @OdiPonataka = 'D'
    Begin
        UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog='SLOBODEN' AND Sif_GrOrg IS NOT NULL
        SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
        IF @KlkZapisi=0 SET @OdiPonataka = 'N'
    End

    IF @OdiPonataka = 'D'        --bez org.ed.
    Begin
        UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=@Sifra_Vernost AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NULL
        SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'

        IF @KlkZapisi>0 SET @OdiPonataka = 'N'
        IF @OdiPonataka = 'D'
        Begin
            UPDATE #TmpCen SET OK='D' WHERE Sifra_Vernost=0 AND Sifra_VidDog=@Sifra_VidDog AND Sif_GrOrg IS NULL
            SELECT @KlkZapisi=COUNT(*) FROM #TmpCen WHERE OK='D'
            IF @KlkZapisi=0 SET @OdiPonataka = 'N'
        End
    End                            --bez org.ed.
End                            --prepaid

SELECT Sifra_VidDog, Sifra_Vernost, TekCena, Subvencija, TekSlobSubv FROM #TmpCen WHERE OK='D'





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdatisporakaporuti1nar]'))
drop procedure [dbo].[sp_dajdatisporakaporuti1nar]

Go



CREATE   Procedure sp_DajDatIsporakaPoRuti1Nar
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int,
    @Dat_Isporaka smalldatetime = NULL OUTPUT
AS
Declare @DatIspOd smalldatetime, @DatIspDo smalldatetime, @DatZaklZaUtre smalldatetime
Declare @Sifra_Pat smallint, @Sifra_Kup char(6), @Sifra_Obj as smallint
SET @DatIspOd = dbo.fn_VratiDatum(GetDate())
SET @DatIspDo = dbo.fn_VratiDatum(DateAdd(day, 20, GetDate()))

SET @DatZaklZaUtre = DateAdd(hour, 15, @DatIspOd)  -- 15h denes - da se parameterizira
SELECT @Sifra_Pat=Sifra_Pat, @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj FROM Naracki WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar
--IF @Sifra_Pat IS NULL OR @Sifra_Kup IS NULL RETURN

CREATE TABLE #TmpRuta
    (DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPR
(Sifra_Kup char(6),
Sifra_Obj smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatIspOd
WHILE @Datum<=@DatIspDo
BEGIN

    -- Specijalni ruti za fiksiran apsoluten datum
    IF @Sifra_Obj IS NULL
        INSERT INTO #TmpRuta (Datum, Sifra_Kup, Sifra_Obj)
        SELECT Datum, Sifra_Kup, Sifra_Obj
        FROM RutiZaDatum WHERE Datum=@Datum  AND Sifra_Kup=@Sifra_Kup
    ELSE
        INSERT INTO #TmpRuta (Datum, Sifra_Kup, Sifra_Obj)
        SELECT Datum, Sifra_Kup, Sifra_Obj
        FROM RutiZaDatum WHERE Datum=@Datum  AND Sifra_Kup=@Sifra_Kup AND Sifra_Obj=@Sifra_Obj

    -- Pazi na PRAZNICITE
    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'

    IF @Praznik IS NULL
    BEGIN
        DELETE FROM #TmpPR

        IF @Sifra_Obj IS NULL
        Begin
            INSERT INTO #TmpPR (Sifra_Kup, Datum)
                SELECT Sifra_Kup, MAX(Datum_Od)
                FROM RutiPlan
                WHERE Sifra_Kup =@Sifra_Kup AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum)
                GROUP BY Sifra_Kup

            INSERT INTO #TmpRuta(Datum, Sifra_Kup, Sifra_Obj)
                SELECT @Datum, R.Sifra_Kup, R.Sifra_Obj
                FROM RutiPlan R
                INNER JOIN #TmpPR T ON R.Sifra_Kup=T.Sifra_Kup AND R.Datum_Od=T.Datum
                WHERE R.Sifra_Kup NOT IN (SELECT Sifra_Kup FROM RutiZaDatum WHERE Datum=@Datum)
                    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Kup =@Sifra_Kup
        End
        ELSE
        Begin
            INSERT INTO #TmpPR
                SELECT Sifra_Kup, Sifra_Obj, MAX(Datum_Od)
                FROM RutiPlan
                WHERE Sifra_Kup =@Sifra_Kup AND Sifra_Obj=@Sifra_Obj AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum)
                GROUP BY Sifra_Kup, Sifra_Obj

            INSERT INTO #TmpRuta(Datum, Sifra_Kup, Sifra_Obj)
                SELECT @Datum, R.Sifra_Kup, R.Sifra_Obj
                FROM RutiPlan R
                INNER JOIN #TmpPR T ON R.Sifra_Kup=T.Sifra_Kup AND R.Datum_Od=T.Datum
                WHERE R.Sifra_Kup+cast(R.Sifra_Obj as char(4)) NOT IN (SELECT Sifra_Kup+cast(R.Sifra_Obj as char(4)) FROM RutiZaDatum WHERE Datum=@Datum)
                    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Kup =@Sifra_Kup AND R.Sifra_Obj=@Sifra_Obj
        End
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END

Declare @Rbr as smallint
SET @Rbr=1
WHILE @Rbr<=20
Begin
    --naracki stignati do 15 casot da se isporacaat utre
    IF @Rbr=1
    Begin
        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R, Naracki
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R, Naracki
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End
    ELSE
    Begin
        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R, Naracki
        WHERE Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R, Naracki
        WHERE Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End

    IF @Dat_Isporaka IS NOT NULL BREAK
    SET @Rbr=@Rbr+1
End
print @Dat_Isporaka



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdivizijaoddokr]'))
drop procedure [dbo].[sp_dajdivizijaoddokr]

Go
CREATE PROCEDURE sp_DajDivizijaOdDokr
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Div    varchar(5) OUTPUT
AS
    SELECT @Sifra_Div=Sifra_Div FROM Dokr WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdivzanaracka]'))
drop procedure [dbo].[sp_dajdivzanaracka]

Go
CREATE PROCEDURE sp_DajDivzaNaracka
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int
AS
SELECT Distinct A.Sifra_Div FROM StaNarac S INNER JOIN KatArt A ON A.Sifra_Art=S.Sifra_Art
WHERE S.Sifra_OE=@Sifra_Oe AND S.Sifra_Nar=@Sifra_Nar AND S.Broj_Nar=@Broj_Nar
ORDER BY A.Sifra_Div


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdobavuvaci]'))
drop procedure [dbo].[sp_dajdobavuvaci]

Go

CREATE  PROCEDURE sp_DajDobavuvaci
AS
    Select Distinct K.Kto, Kup.ImeKup
    From Katart K
    Inner Join Komint Kup On Kup.Sifra_Kup=K.Kto ORDER BY Kup.ImeKup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdok]'))
drop procedure [dbo].[sp_dajdok]

Go

CREATE  procedure sp_DajDok
    @Sifra_Oe smallint,
    @Datum_dok smalldatetime

As
    Select D.DokrID, D.Sifra_Oe,O.ImeOrg, D.Broj_Dok, D.Sifra_Dok  From Dokr D
    Inner Join Orged O on D.Sifra_oe=O.Sifra_Oe
    Where D.Sifra_Oe=@Sifra_Oe and D.Datum_Dok=@Datum_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdok100zaazur]'))
drop procedure [dbo].[sp_dajdok100zaazur]

Go





CREATE    PROCEDURE sp_DajDok100ZaAzur
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @BrDokOd int=Null,
    @BrDokDo int=Null
AS
Declare @SSQL Varchar(4000)
Declare @Stapka1 as decimal
Declare @Stapka2 as decimal
SELECT @Stapka1=Stapka1, @Stapka2=Stapka2 FROM DDVStapki WHERE @Datum_Od >= Datum_Od and @Datum_Od <= Datum_Do
Set @SSQL = 'SELECT S.Sifra_OE, S.Datum_Dok,
SUM(CASE When S.POsn='+Cast(@Stapka1 as varchar(30))+' Then Kolic*DokCena Else 0 End)DokVr1,
SUM(CASE When S.POsn='+Cast(@Stapka1 as varchar(30))+' Then (Kolic*DokCena)-Kolic*DokCena/(1+POsn/100) Else 0 End) DokDDV1,
SUM(CASE When S.POsn='+Cast(@Stapka2 as varchar(30))+' Then Kolic*DokCena Else 0 End)DokVr2,
SUM(CASE When S.POsn='+Cast(@Stapka2 as varchar(30))+' Then (Kolic*DokCena)-Kolic*DokCena/(1+POsn/100) Else 0 End) DokDDV2
    FROM Stavr S INNER JOIN DOKR D ON S.DokrID=D.DokrID
    WHERE D.BROJ_NAL IS NULL AND D.SIFRA_DOK IN (100,101) AND D.SIFRA_OE '
If @Sifra_OE IS NULL
    Set @SSQL =  @SSQL + 'IN (SELECT Sifra_OE FROM ORGED WHERE OrgDaliFin = ''D'')'
Else
    Set @SSQL =  @SSQL + '= ' + Cast (@Sifra_OE as varchar(5))
If @BrDokOd  IS NOT NULL
    Set @SSQL =  @SSQL + ' AND D.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10))
If @BrDokDo  IS NOT NULL
    Set @SSQL =  @SSQL + ' AND D.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10))
If @Datum_Od Is NOT Null
    SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
If @Datum_Do Is NOT Null
    SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
SET @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Datum_Dok
ORDER BY S.Sifra_OE, S.Datum_Dok'
EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokbeztransnal]'))
drop procedure [dbo].[sp_dajdokbeztransnal]

Go

CREATE  PROCEDURE sp_DajDokBezTransNal
    @Sifra_OE    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL varchar(2000)
SET @SSQL= 'SELECT D.DokrID, D.Sifra_OE OEDok, D.Sifra_Dok, D.Broj_Dok,
    D.Datum_Dok, D.Toc200, D.Sifra_Kup, K.ImeKup
    From Dokr D
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup = K.Sifra_Kup WHERE D.VlIzl=''I''
    AND D.DokrID NOT IN (SELECT DokrID FROM TransNalStav)'
IF @Sifra_OE IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_OE=' + cast(@Sifra_OE as varchar(5))
IF @Datum_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Datum_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + cast(@Datum_Do as varchar(35))+''' '
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokrid]'))
drop procedure [dbo].[sp_dajdokrid]

Go
CREATE PROCEDURE sp_DajDokrID
    @Sifra_Oe smallint,
    @Sifra_Dok Smallint,
    @Broj_Dok int
AS
SELECT DokrID FROM Dokr
WHERE Sifra_Oe=@Sifra_Oe AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokridrealizacija]'))
drop procedure [dbo].[sp_dajdokridrealizacija]

Go
CREATE   PROCEDURE sp_DajDokrIDRealizacija

    @NarID        int
 AS
    Select NR.DokrID,D.Sifra_Oe,D.Sifra_Dok,D.Broj_Dok
    From NarRealDok NR
    Left Outer Join Dokr D On NR.DokrID = D.DokrID
    Where NarID = @NarID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokumenti]'))
drop procedure [dbo].[sp_dajdokumenti]

Go
CREATE      procedure sp_DajDokumenti
    @Sifra_Oe smallint,
    @Datum smalldatetime,
    @DokrID varchar(800)=NULL
As
Declare @@SSQL varchar(6000)
SET @@SSQL='Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.VlIzl, TD.Sifra_Za,
    Round(Sum(S.kolic*S.nabcena*(1+S.POsn/100)),2) NabVred,
    Round(Sum(S.kolic*(1-S.Uces/100)* case S.DanDokCena When ''D'' then S.dokcena else S.DokCena*(1+S.POsnPren/100) End),0) DokVred,
    Round(Sum(S.kolic* case S.DanMagCena When ''D'' then S.magcena else S.MagCena*(1+S.Posn/100) End),0) MagVred
    From Stavr S INNER Join TipDok TD ON S.Sifra_Dok=TD.Sifra_Dok
    Where  TD.VoTrg_Knig=''D'' '
    set @@SSQL=@@SSQL+ ' and S.Sifra_oe=' + cast(@Sifra_Oe as varchar(10))+ ' '
    set @@SSQL=@@SSQL+ ' and S.Datum_dok= ''' + cast(@Datum as varchar(35))+ '''  '
 IF @DokrID IS not NULL
    set @@SSQL=@@SSQL + ' And S.DokrID in ('+@DokrID+')'
    set @@SSQL=@@SSQL + ' Group by S.Sifra_oe, S.Sifra_Dok, S.Broj_Dok, S.VlIzl, TD.Sifra_Za '
IF @DokrID IS NULL
    set @@SSQL=@@SSQL + ' UNION
    Select Sifra_Oe, Sifra_Dok, Broj_Dok, ''I'' AS VlIzl, 1 Sifra_Za, 0 Nabavna, Pobaruva DokVred, 0 MagVred
    FROM AnFinDok
    Where Sifra_Dok IN (Select sifra_dok from TipDok Where VoTrg_Knig=''D'' And Sifra_Za=1 And TipDok=''2'' And DaliMater=''N'')
    and  Sifra_oe=' + cast(@Sifra_Oe as varchar(10))+ ' and  Datum_dok= ''' + cast(@Datum as varchar(35))+ '''  '
--print @@SSQL
exec (@@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzaazur]'))
drop procedure [dbo].[sp_dajdokzaazur]

Go






CREATE    PROCEDURE sp_DajDokZaAzur
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint,
    @BrDokOd int,
    @BrDokDo int,
    @Sifra_Prim    smallint=null,
    @SamoLikvidirani  char(1) = 'N',
    @DivOdPat    char(1)='N',
    @TipDFiscSamoPecKnz char(1) = 'N',
    @OdrediImaPovDivVoDok char(1) = 'N'
AS
Declare @SSQL Varchar(3000), @SSQLUsl varchar(3000), @SSQLOrd varchar(100), @SSQLPom varchar(1000)
Declare @Sifra_Za smallint
Declare @Datum_Do1 smalldatetime
SET @Datum_Do1 = dateadd(day, 1, @Datum_Do)
SELECT @Sifra_Za = Sifra_ZA FROM TipDok WHERE Sifra_Dok=@Sifra_Dok

SET @SSQLUsl = ' WHERE D.BROJ_NAL IS NULL And D.Toc200 is not null AND D.SIFRA_DOK = ' + cast(@Sifra_Dok as varchar(5)) + ' AND D.SIFRA_OE '
--SET @SSQLUsl = @SSQLUsl + ' AND D.Toc200 IS NOT NULL '
If @Sifra_OE IS NULL
    Set @SSQLUsl =  @SSQLUsl + 'IN (SELECT Sifra_OE FROM ORGED WHERE OrgDaliFin = ''D'')'
Else
    Set @SSQLUsl =  @SSQLUsl + '= ' + Cast (@Sifra_OE as varchar(5))
If @BrDokOd  IS NOT NULL
    Set @SSQLUsl =  @SSQLUsl + ' AND D.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10))
If @BrDokDo  IS NOT NULL
    Set @SSQLUsl =  @SSQLUsl + ' AND D.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10))
IF @TipDFiscSamoPecKnz = 'D'
Begin
    If @Datum_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND ((T.DaliFisc IN (''D'', ''V'') AND D.Dat_Pec_Fisc IS NOT NULL AND D.Dat_Pec_Fisc>=''' + Cast(@Datum_Od As Varchar(35)) + ''')
    OR (T.DaliFisc NOT IN (''D'', ''V'') AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + '''))'
    If @Datum_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND ((T.DaliFisc IN (''D'', ''V'') AND D.Dat_Pec_Fisc IS NOT NULL AND D.Dat_Pec_Fisc<''' + Cast(@Datum_Do1 As Varchar(35)) + ''')
    OR (T.DaliFisc NOT IN (''D'', ''V'') AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + '''))'
End
ELSE
Begin
    If @Datum_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
End
If @Sifra_Prim IS NOT NULL
    Set @SSQLUsl =  @SSQLUsl + ' AND Sifra_Prim = ' + Cast (@Sifra_Prim as varchar(5))
IF @SamoLikvidirani='D'
    SET @SSQLUsl = @SSQLUsl + ' AND (D.Likvid IS NULL OR D.Likvid<>''M'')'
IF @TipDFiscSamoPecKnz = 'D'
    SET @SSQLUsl = @SSQLUsl + ' AND (T.DaliFisc IS NULL OR T.DaliFisc NOT IN (''D'', ''V'') OR (D.Pec_Fisc IS NOT NULL AND D.Pec_Fisc>0)) '

IF @OdrediImaPovDivVoDok='D'
Begin
    create          TABLE #TmpDiv
    (DokrID    int, BrDiv smallint, Sifra_Div smallint)
    SET @SSQLPom = 'SELECT S.DokrID, COUNT(Distinct A.Sifra_Div) FROM Stavr S INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    WHERE S.DokrID IN (SELECT D.DokrID FROM Dokr D INNER JOIN TipDok T ON D.Sifra_Dok=T.Sifra_Dok '
    INSERT INTO #TmpDiv (DokrID, BrDiv) EXEC (@SSQLPom + @SSQLUsl +') GROUP BY S.DokrID')
--print @SSQLPom + @SSQLUsl
    UPDATE #TmpDiv SET Sifra_Div=A.Sifra_Div FROM Stavr S, KatArt A WHERE #TmpDiv.BrDiv=1 AND #TmpDiv.DokrID=S.DokrID AND S.Sifra_Art=A.Sifra_Art
End

IF @Sifra_Za = 3
    SET @SSQLOrd = ' ORDER BY D.DokrID '     --ova ostavi go zaradi prenosnicite
ELSE
    SET @SSQLOrd = ' ORDER BY D.Sifra_OE, D.Broj_Dok '

Set @SSQL = 'SELECT D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, Case D.Sifra_Za when 3 then D.ImaDodatna Else '''' End as ImaDodatna, D.Sifra_Prim, D.Sifra_Za, D.VlIzl,
            D.Sifra_Nivo, D.KasaPoDDV, D.Identif_Br, D.Datum_Dok, D.Danok1, D.Danok2, D.Toc200, D.Opis, D.Sifra_Kup,
            D.Kto, D.Rok, D.Kasa, D.Sifra_Pat, D.Datum_Dok, K.Kto_Anal Kto_AnalKup, '
IF @DivOdPat ='D'
    SET @SSQL = @SSQL + 'P.Sifra_Div, P.Sifra_TrosM, '
ELSE
     SET @SSQL = @SSQL + 'D.Sifra_Div, NULL Sifra_TrosM, '
IF @OdrediImaPovDivVoDok='D'
    SET @SSQL = @SSQL + '#TmpDiv.BrDiv, #TmpDiv.Sifra_Div Sifra_Div_OdArt, '
ELSE
    SET @SSQL = @SSQL + '0 BrDiv, 0 Sifra_Div_OdArt,'
SET @SSQL = @SSQL + 'T.Sif_GrDok  FROM DOKR D INNER JOIN TipDok T ON D.Sifra_Dok=T.Sifra_Dok
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup '
IF @DivOdPat ='D'
    SET @SSQL = @SSQL + ' LEFT OUTER JOIN Patnici P ON D.Sifra_Pat=P.Sifra_Pat '
IF @OdrediImaPovDivVoDok='D'
    SET @SSQL = @SSQL + ' LEFT OUTER JOIN #TmpDiv ON D.DokrID=#TmpDiv.DokrID '
EXEC(@SSQL+@SSQLUsl+@SSQLOrd)
--print @SSQL+@SSQLUsl+@SSQLOrd
















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzadokrvodetalni]'))
drop procedure [dbo].[sp_dajdokzadokrvodetalni]

Go



CREATE            PROCEDURE sp_DajDokZaDokrVoDetalni
    @Datum_Do        smalldatetime,
    @KoiOE_ZaZb        varchar(30) = '31,32,33,34',
    @KoiTipD_ZaZb    varchar(30) = '88,89',
    @Sifra_Kup_Od    char(6) = NULL,
    @Sifra_Kup_Do    char(6) = NULL,
    @SamoPregl        char(1) = 'D',
    @Datum_Od        smalldatetime = NULL,
    @Sifra_OE_CeniPlanski smallint = NULL,
    @KDrugo1        smallint=NULL
AS
    Declare @SSQL varchar(5000)
CREATE TABLE #TmpCeniPlan
(Sifra_Art    varchar(20),
Cena        decimal(18,4))

IF @Sifra_OE_CeniPlanski IS NOT NULL
Begin
    Declare @Sif_GrOrg char(6)
    SELECT @Sif_GrOrg=Sif_GrOrg FROM SGrOrg WHERE Sifra_OE=@Sifra_OE_CeniPlanski AND Sif_GrOrg IN (SELECT Sif_GrOrg FROM GrOrg WHERE ZaedPlanCeni='D')

    CREATE TABLE #Tmp1
    (Sifra_Art    varchar(20),
    Vazi_Od        smalldatetime)
    INSERT INTO #Tmp1 SELECT Sifra_Art, Max(Vazi_Od) FROM CeniPlanski WHERE Sif_GrOrg=@Sif_GrOrg GROUP BY Sifra_Art

    INSERT INTO #TmpCeniPlan SELECT C.Sifra_Art, dbo.fn_VratiCena(C.Cena, T.ProcOsn, C.DanCena, 'N')
    FROM CeniPlanski C INNER JOIN KatArt A ON C.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
    INNER JOIN #Tmp1 Tm ON C.Sifra_Art=Tm.Sifra_Art AND C.Vazi_Od=Tm.Vazi_Od WHERE C.Sif_GrOrg=@Sif_GrOrg
End

CREATE TABLE #TmpMasl
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime,
Vrednost    decimal(18,6))

INSERT INTO #TmpMasl (Sifra_Kup, Sifra_Art, Datum) SELECT Sifra_Kup, Sifra_Art, MAX(Datum) FROM MerenjaZaArt
WHERE Datum <=@Datum_Do GROUP BY Sifra_Kup, Sifra_Art
print'3'
UPDATE #TmpMasl SET Vrednost=M.Vrednost FROM MerenjaZaArt M
WHERE #TmpMasl.Sifra_Kup=M.Sifra_Kup AND #TmpMasl.Sifra_Art=M.Sifra_Art AND #TmpMasl.Datum=M.Datum

SET @SSQL =    'SELECT D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K,
S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena Cena, M.Vrednost, C.Cena MagCena, S.DokCena,
cast(S.Sifra_Oe as varchar(8))+''-''+cast(S.Sifra_Dok as varchar(8))+''/''+Cast(S.Broj_Dok as varchar(8)) Dok, '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + 'D.DokrID,'
ELSE
    SET @SSQL = @SSQL + 'D.Datum_Dok,'

SET @SSQL = @SSQL + 'SUM(S.Kolic) Kolic'
SET @SSQL = @SSQL + ', Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)IzvBezDDV,
Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)*S.POsn/100 DDV
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN #TmpCeniPlan C ON S.Sifra_Art=C.Sifra_Art
LEFT OUTER JOIN #TmpMasl M ON D.Sifra_Kup=M.Sifra_Kup AND S.Sifra_Art=M.Sifra_Art
LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
WHERE S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) +
''' AND S.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND S.Sifra_Dok IN (' + @KoiTipD_ZaZb + ') '

IF @SamoPregl='N' OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '
IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1=' + cast(@KDrugo1 as varchar(5)) + ' '
SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K, D.DokrID, S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena, M.Vrednost, C.Cena, S.DOkCena, S.Posn, S.DanDokCena, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + ',D.DokrID '
ELSE
    SET @SSQL = @SSQL + ',D.Datum_Dok'
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Kup, S.Sifra_Art'
print @SSql
EXEC (@SSQL)














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzadokrvodetalnisr]'))
drop procedure [dbo].[sp_dajdokzadokrvodetalnisr]

Go




CREATE          PROCEDURE sp_DajDokZaDokrVoDetalniSR
    @Datum_Do        smalldatetime,
    @KoiOE_ZaZb        varchar(30) = '31,32,33,34',
    @KoiTipD_ZaZb    varchar(30) = '88,89',
    @Sifra_Kup_Od    char(6) = NULL,
    @Sifra_Kup_Do    char(6) = NULL,
    @SamoPregl        char(1) = 'D',
    @Datum_Od        smalldatetime = NULL,
    @Sifra_OE_CeniPlanski smallint = NULL,
    @KDrugo1        smallint=NULL
AS
    Declare @SSQL varchar(5000)
CREATE TABLE #TmpCeniPlan
(Sifra_Art    varchar(20),
Cena        decimal(18,4))

IF @Sifra_OE_CeniPlanski IS NOT NULL
Begin
    Declare @Sif_GrOrg char(6)
    SELECT @Sif_GrOrg=Sif_GrOrg FROM SGrOrg WHERE Sifra_OE=@Sifra_OE_CeniPlanski AND Sif_GrOrg IN (SELECT Sif_GrOrg FROM GrOrg WHERE ZaedPlanCeni='D')

    CREATE TABLE #Tmp1
    (Sifra_Art    varchar(20),
    Vazi_Od        smalldatetime)
    INSERT INTO #Tmp1 SELECT Sifra_Art, Max(Vazi_Od) FROM CeniPlanski WHERE Sif_GrOrg=@Sif_GrOrg GROUP BY Sifra_Art

    INSERT INTO #TmpCeniPlan SELECT C.Sifra_Art, dbo.fn_VratiCena(C.Cena, T.ProcOsn, C.DanCena, 'N')
    FROM CeniPlanski C INNER JOIN KatArt A ON C.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
    INNER JOIN #Tmp1 Tm ON C.Sifra_Art=Tm.Sifra_Art AND C.Vazi_Od=Tm.Vazi_Od WHERE C.Sif_GrOrg=@Sif_GrOrg
End

CREATE TABLE #TmpMasl
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime,
Vrednost    decimal(18,6))

INSERT INTO #TmpMasl (Sifra_Kup, Sifra_Art, Datum) SELECT Sifra_Kup, Sifra_Art, MAX(Datum) FROM MerenjaZaArt
WHERE Datum <=@Datum_Do GROUP BY Sifra_Kup, Sifra_Art
print'3'
UPDATE #TmpMasl SET Vrednost=M.Vrednost FROM MerenjaZaArt M
WHERE #TmpMasl.Sifra_Kup=M.Sifra_Kup AND #TmpMasl.Sifra_Art=M.Sifra_Art AND #TmpMasl.Datum=M.Datum

SET @SSQL =    'SELECT D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K,
S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena Cena, M.Vrednost, C.Cena MagCena, S.DokCena,
cast(S.Sifra_Oe as varchar(8))+''-''+cast(S.Sifra_Dok as varchar(8))+''/''+Cast(S.Broj_Dok as varchar(8)) Dok, '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + 'D.DokrID,'
ELSE
    SET @SSQL = @SSQL + 'D.Datum_Dok,'

SET @SSQL = @SSQL + 'SUM(S.Kolic) Kolic'
SET @SSQL = @SSQL + ', Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)IzvBezDDV,
Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)*S.POsn/100 DDV
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN #TmpCeniPlan C ON S.Sifra_Art=C.Sifra_Art
LEFT OUTER JOIN #TmpMasl M ON D.Sifra_Kup=M.Sifra_Kup AND S.Sifra_Art=M.Sifra_Art
LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
WHERE S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) +
''' AND S.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND S.Sifra_Dok IN (' + @KoiTipD_ZaZb + ') '

IF @SamoPregl='N' OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '
IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1=' + cast(@KDrugo1 as varchar(5)) + ' '
SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K, D.DokrID, S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena, M.Vrednost, C.Cena, S.DOkCena, S.Posn, S.DanDokCena, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + ',D.DokrID '
ELSE
    SET @SSQL = @SSQL + ',D.Datum_Dok'
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Kup, S.Sifra_Art'
print @SSql
EXEC (@SSQL)















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzadokrvozbirni]'))
drop procedure [dbo].[sp_dajdokzadokrvozbirni]

Go





CREATE              PROCEDURE sp_DajDokZaDokrVoZbirni
    @Datum_Do        smalldatetime,
    @KoiOE_ZaZb        varchar(30) = '31,32,33,34,35,36',
    @KoiTipD_ZaZb    varchar(30) = '88,89',
    @Sifra_Kup_Od    char(6) = NULL,
    @Sifra_Kup_Do    char(6) = NULL,
    @SamoPregl        char(1) = 'D',
    @Datum_Od        smalldatetime = NULL,
    @Sifra_OE_CeniPlanski smallint = NULL,
    @KDrugo1        smallint=NULL
AS
    Declare @SSQL varchar(5000)
CREATE TABLE #TmpCeniPlan
(Sifra_Art    varchar(20),
Cena        decimal(18,4))

IF @Sifra_OE_CeniPlanski IS NOT NULL
Begin
    Declare @Sif_GrOrg char(6)
    SELECT @Sif_GrOrg=Sif_GrOrg FROM SGrOrg WHERE Sifra_OE=@Sifra_OE_CeniPlanski AND Sif_GrOrg IN (SELECT Sif_GrOrg FROM GrOrg WHERE ZaedPlanCeni='D')

    CREATE TABLE #Tmp1
    (Sifra_Art    varchar(20),
    Vazi_Od        smalldatetime)
    INSERT INTO #Tmp1 SELECT Sifra_Art, Max(Vazi_Od) FROM CeniPlanski WHERE Sif_GrOrg=@Sif_GrOrg GROUP BY Sifra_Art

    INSERT INTO #TmpCeniPlan SELECT C.Sifra_Art, dbo.fn_VratiCena(C.Cena, T.ProcOsn, C.DanCena, 'N')
    FROM CeniPlanski C INNER JOIN KatArt A ON C.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
    INNER JOIN #Tmp1 Tm ON C.Sifra_Art=Tm.Sifra_Art AND C.Vazi_Od=Tm.Vazi_Od WHERE C.Sif_GrOrg=@Sif_GrOrg
End

CREATE TABLE #TmpMasl
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime,
Vrednost    decimal(18,6))

INSERT INTO #TmpMasl (Sifra_Kup, Sifra_Art, Datum) SELECT Sifra_Kup, Sifra_Art, MAX(Datum) FROM MerenjaZaArt
WHERE Datum <=@Datum_Do GROUP BY Sifra_Kup, Sifra_Art
print'3'
UPDATE #TmpMasl SET Vrednost=M.Vrednost FROM MerenjaZaArt M
WHERE #TmpMasl.Sifra_Kup=M.Sifra_Kup AND #TmpMasl.Sifra_Art=M.Sifra_Art AND #TmpMasl.Datum=M.Datum

SET @SSQL =    'SELECT D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K,
S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena Cena, M.Vrednost, C.Cena MagCena, S.DokCena,
cast(S.Sifra_Oe as varchar(8))+''-''+cast(S.Sifra_Dok as varchar(8))+''/''+Cast(S.Broj_Dok as varchar(8)) Dok, '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + 'D.DokrID,'
ELSE
    SET @SSQL = @SSQL + 'D.Datum_Dok,'

SET @SSQL = @SSQL + 'SUM(S.Kolic) Kolic'
SET @SSQL = @SSQL + ', Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)IzvBezDDV,
Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)*S.POsn/100 DDV
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN #TmpCeniPlan C ON S.Sifra_Art=C.Sifra_Art
LEFT OUTER JOIN #TmpMasl M ON D.Sifra_Kup=M.Sifra_Kup AND S.Sifra_Art=M.Sifra_Art
LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
WHERE S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) +
''' AND S.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND S.Sifra_Dok IN (' + @KoiTipD_ZaZb + ') '

IF @SamoPregl='N' OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '
IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1=' + cast(@KDrugo1 as varchar(5)) + ' '
SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K, D.DokrID, S.Sifra_Art, A.ImeArt, A.EdMera, A.GotCena, M.Vrednost, C.Cena, S.DOkCena, S.Posn, S.DanDokCena, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + ',D.DokrID '
ELSE
    SET @SSQL = @SSQL + ',D.Datum_Dok'
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Kup, S.Sifra_Art'
print @SSql
EXEC (@SSQL)
















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzadokrvozbirnicen]'))
drop procedure [dbo].[sp_dajdokzadokrvozbirnicen]

Go





CREATE           PROCEDURE sp_DajDokZaDokrVoZbirniCen
    @Datum_Do        smalldatetime,
    @KoiOE_ZaZb        varchar(30) = '31,32,33,34,35,36,37,38,39',
    @KoiTipD_ZaZb    varchar(30) = '88,89',
    @Sifra_Kup_Od    char(6) = NULL,
    @Sifra_Kup_Do    char(6) = NULL,
    @SamoPregl        char(1) = 'D',
    @Datum_Od        smalldatetime = NULL,
    @KDrugo1        smallint=NULL
AS
    Declare @SSQL varchar(5000)

CREATE TABLE #TmpCeniVazi
(Sifra_Art    varchar(20),
Vazi_Od        smalldatetime)
INSERT INTO #TmpCeniVazi SELECT Sifra_Art,MAX(Vazi_Od) FROM CenovnikOtkup WHERE Vazi_Od<=@Datum_Do GROUP BY Sifra_Art

/*CREATE TABLE #TmpMasl        --ovaa tabela ke treba ako rabotime so prosecni vrednosti
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime,
Vrednost    decimal(18,6),
Proteini    decimal(18,6)) */

CREATE TABLE #TmpCeni
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime,
Kolicina    decimal(18,6),
Vrednost1    decimal(18,6),
Vrednost2    decimal(18,6),
Cena1        decimal(18,6),
Cena2        decimal(18,6),
DanCena        char(1),
Cena        decimal(18,6))

SET @SSQL = 'SELECT D.Sifra_Kup, S.Sifra_art, S.Datum_Dok, S.Kolic
        FROM Stavr S
        INNER JOIN Dokr D ON S.DokrID=D.DokrID
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
    WHERE S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) +
    ''' AND S.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND S.Sifra_Dok IN (' + @KoiTipD_ZaZb + ') '
IF @SamoPregl='N' OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '
IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1=' + cast(@KDrugo1 as varchar(5)) + ' '
INSERT INTO #TmpCeni (Sifra_Kup, Sifra_Art, Datum, Kolicina) EXEC (@SSQL)

UPDATE #TmpCeni SET Vrednost1=M.Vrednost, Vrednost2=M.Proteini FROM MerenjaZaArt M
WHERE M.Sifra_Kup=#TmpCeni.Sifra_Kup AND M.Sifra_Art=#TmpCeni.Sifra_Art AND M.Datum=#TmpCeni.Datum

CREATE TABLE #TmpPosl
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Datum        smalldatetime)
INSERT INTO #TmpPosl SELECT Sifra_Kup, Sifra_Art, MAX(Datum) FROM MerenjaZaArt WHERE Datum<=@Datum_Do GROUP BY Sifra_Kup, Sifra_Art
                    --za denot za koj ne e vneseno merenje, da se zemat merenja od posled.den vo periodot
UPDATE #TmpCeni SET Vrednost1=M.Vrednost, Vrednost2=M.Proteini FROM MerenjaZaArt M, #TmpPosl T
WHERE #TmpCeni.Vrednost1 IS NULL AND M.Sifra_Kup=#TmpCeni.Sifra_Kup AND M.Sifra_Art=#TmpCeni.Sifra_Art
AND M.Datum=T.Datum AND  M.Sifra_Kup=T.Sifra_Kup AND M.Sifra_Art=T.Sifra_Art

UPDATE #TmpCeni SET Vrednost1=1 WHERE Vrednost1 IS NULL
UPDATE #TmpCeni SET Vrednost2=1 WHERE Vrednost2 IS NULL

UPDATE #TmpCeni SET Cena1=C.Cena, Cena2=C.Cena2, DanCena=C.DanCena FROM CenovnikOtkup C, #TmpCeniVazi V
WHERE #TmpCeni.Sifra_Art=C.Sifra_Art AND C.Sifra_Art=V.Sifra_Art AND C.Vazi_Od=V.Vazi_Od
--AND #TmpCeni.Vrednost1=C.Vrednost1 AND #TmpCeni.Vrednost2=C.Vrednost2
UPDATE #TmpCeni SET Cena = Cena1*Vrednost1 + Cena2*Vrednost2

UPDATE #TmpCeni SET #TmpCeni.Cena = #TmpCeni.Cena + C.Cena
FROM Cenovnik C WHERE #TmpCeni.Sifra_Kup=C.Sifra_Kup AND #TmpCeni.Sifra_Art=C.Sifra_Art

                    --za nekoe mleko ako nema cenovnik po vredosti, neka ima default cena
--UPDATE #TmpCeni SET Cena=C.Cena, DanCena=C.DanCena FROM CenovnikOtkup C, #TmpCeniVazi V
--WHERE #TmpCeni.Sifra_Art=C.Sifra_Art AND C.Sifra_Art=V.Sifra_Art AND C.Vazi_Od=V.Vazi_Od
--AND #TmpCeni.Vrednost1 IS NULL AND C.Vrednost1=0 AND C.Vrednost2=0

DELETE FROM #TmpCeni WHERE Kolicina=0
UPDATE #TmpCeni SET Cena=#TmpCeni.Cena/(1+T.ProcOsn/100) FROM KatArt A, Tarifi T
WHERE #TmpCeni.Sifra_Art=A.Sifra_Art AND A.Sifra_Tar=T.Sifra_Tar AND #TmpCeni.DanCena='D'

SET @SSQL =    'SELECT D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K,
S.Sifra_Art, A.ImeArt, A.EdMera, C.Cena, 1  Vrednost, C.Cena MagCena, S.DokCena,
cast(S.Sifra_Oe as varchar(8))+''-''+cast(S.Sifra_Dok as varchar(8))+''/''+Cast(S.Broj_Dok as varchar(8)) Dok, '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + 'D.DokrID,'
ELSE
    SET @SSQL = @SSQL + 'D.Datum_Dok,'

SET @SSQL = @SSQL + 'SUM(S.Kolic) Kolic'
SET @SSQL = @SSQL + ', Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)IzvBezDDV,
Sum(S.Kolic)* S.DokCena/(Case When S.DanDokCena=''D'' Then (1+S.POsn/100) Else 1 End)*S.POsn/100 DDV
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN #TmpCeni C ON S.Sifra_Art=C.Sifra_Art AND D.Sifra_Kup=C.Sifra_Kup AND C.Datum=S.Datum_Dok
LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
WHERE S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) +
''' AND S.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND S.Sifra_Dok IN (' + @KoiTipD_ZaZb + ') '

IF @SamoPregl='N' OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '
IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1=' + cast(@KDrugo1 as varchar(5)) + ' '
SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K, D.DokrID, S.Sifra_Art, A.ImeArt, A.EdMera, C.Cena, S.DOkCena, S.Posn, S.DanDokCena, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, D.Datum_Dok '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + ',D.DokrID '
ELSE
    SET @SSQL = @SSQL + ',D.Datum_Dok'
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Kup, S.Sifra_Art, D.Datum_Dok'
--print @SSql
EXEC (@SSQL)



















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzadokrvozbirnisr]'))
drop procedure [dbo].[sp_dajdokzadokrvozbirnisr]

Go



CREATE      PROCEDURE sp_DajDokZaDokrVoZbirniSR
    @Datum_Do        smalldatetime,
    @KoiOE_ZaZb        varchar(30) = '31,32,33,34',
    @KoiTipD_ZaZb    varchar(30) = '88,89',
    @Sifra_Kup_Od    char(6) = NULL,
    @Sifra_Kup_Do    char(6) = NULL,
    @SamoPregl        char(1) = 'D',
    @Datum_Od        smalldatetime = NULL,
    @Sifra_OE_CeniPlanski smallint = NULL,
    @Kdrugo1        smallint=NULL
AS
    Declare @SSQL varchar(5000)
    Declare @Usl varchar(1000)

    CREATE TABLE #TmpArtSkala (Sifra_Art varchar(20))        --art.za presmetka po skala
    INSERT INTO #TmpArtSkala VALUES ('000099')
    INSERT INTO #TmpArtSkala VALUES ('000100')

SET @Usl= ' D.Sifra_OE IN (' + @KoiOE_ZaZb + ') AND D.Sifra_Dok IN (' +
    @KoiTipD_ZaZb + ') AND D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + '''
     AND D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
IF @Sifra_Kup_Od IS NOT NULL
    SET @Usl = @Usl + ' AND D.Sifra_Kup>=' + @Sifra_Kup_Od + ' '
IF @Sifra_Kup_Do IS NOT NULL
    SET @Usl = @Usl + ' AND D.Sifra_Kup<=' + @Sifra_Kup_Do + ' '

CREATE TABLE #TmpKup
(Sifra_Kup    char(6),
Sifra_Art    varchar(20),
Kdrugo1        smallint,
VkDenovi    smallint,
ProsNab        decimal(18,4),
Cena        decimal(18,4))

SET @SSQL = 'SELECT DISTINCT D.Sifra_Kup, S.Sifra_Art FROM Dokr D INNER JOIN Stavr S ON D.DokrID=S.DokrID WHERE ' +@Usl
INSERT INTO #TmpKup (Sifra_Kup, Sifra_Art) EXEC (@SSQL)
IF @KDrugo1 IS NOT NULL
    DELETE FROM #TmpKup WHERE Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE KDrugo1 IS NULL OR KDrugo1<>@KDrugo1)

UPDATE #TmpKup SET KDrugo1=K.KDrugo1 FROM Komint K WHERE #TmpKup.Sifra_Kup=K.Sifra_Kup

CREATE TABLE #TmpP (Sifra_Kup char(6), NPod decimal(18,4))
SET @SSQL = 'SELECT D.Sifra_Kup, COUNT(DISTINCT D.Datum_Dok) FROM Dokr D INNER JOIN Stavr S ON D.DokrID=S.DokrID
WHERE D.Sifra_Kup IN (SELECT Sifra_Kup FROM #TmpKup) AND S.Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND '+@Usl +' GROUP BY D.Sifra_Kup'
INSERT INTO #TmpP EXEC (@SSQL)
UPDATE #TmpKup SET VkDenovi = T.NPod FROM #TmpP T WHERE #TmpKup.Sifra_Kup=T.Sifra_Kup AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)

DELETE FROM #TmpP
SET @SSQL = 'SELECT D.Sifra_Kup, SUM(S.Kolic) FROM Dokr D INNER JOIN Stavr S ON S.DokrID=D.DokrID
WHERE D.Sifra_Kup IN (SELECT Sifra_Kup FROM #TmpKup) AND S.Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND ' +@Usl +' GROUP BY D.Sifra_Kup'
INSERT INTO #TmpP EXEC (@SSQL)
UPDATE #TmpKup SET ProsNab = T.NPod/VkDenovi FROM #TmpP T WHERE #TmpKup.Sifra_Kup=T.Sifra_Kup AND #TmpKup.VkDenovi<>0 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)

/*UPDATE #TmpKup SET Cena=19 WHERE Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)
UPDATE #TmpKup SET Cena=19.5 WHERE ProsNab>50 AND ProsNab<=100 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)
UPDATE #TmpKup SET Cena=20 WHERE ProsNab>100 AND ProsNab<=150 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)
UPDATE #TmpKup SET Cena=20.25 WHERE ProsNab>150 AND ProsNab<=200 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)
UPDATE #TmpKup SET Cena=20.5 WHERE ProsNab>200 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)   */

UPDATE #TmpKup SET Cena=K.Cena FROM KDrugo1 K WHERE Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND #TmpKup.KDrugo1=K.Sifra_1K
UPDATE #TmpKup SET Cena=K.Cena+0.5 FROM KDrugo1 K WHERE ProsNab>50 AND ProsNab<=100 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala)  AND #TmpKup.KDrugo1=K.Sifra_1K
UPDATE #TmpKup SET Cena=K.Cena+1 FROM KDrugo1 K WHERE ProsNab>100 AND ProsNab<=150 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND #TmpKup.KDrugo1=K.Sifra_1K
UPDATE #TmpKup SET Cena=K.Cena+1.25 FROM KDrugo1 K WHERE ProsNab>150 AND ProsNab<=200 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND #TmpKup.KDrugo1=K.Sifra_1K
UPDATE #TmpKup SET Cena=K.Cena+1.5 FROM KDrugo1 K WHERE ProsNab>200 AND Sifra_Art IN (SELECT Sifra_Art FROM #TmpArtSkala) AND #TmpKup.KDrugo1=K.Sifra_1K

UPDATE #TmpKup SET Cena = C.Cena FROM Cenovnik C WHERE #TmpKup.Sifra_Kup=C.Sifra_Kup AND #TmpKup.Sifra_Art=C.Sifra_Art

SET @SSQL =    'SELECT D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K,
S.Sifra_Art, A.ImeArt, A.EdMera, C.Cena, 1 Vrednost, C.Cena MagCena, '
IF @SamoPregl='N'
    SET @SSQL = @SSQL + 'D.DokrID,'
ELSE
    SET @SSQL = @SSQL + 'D.Datum_Dok,'

SET @SSQL = @SSQL + 'SUM(S.Kolic) Kolic
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
INNER JOIN #TmpKup C ON D.Sifra_Kup=C.Sifra_Kup AND C.Sifra_Art=S.Sifra_Art
WHERE ' + @Usl
IF @SamoPregl='N' --OR @Datum_Od IS NULL
    SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID_Orig FROM DokrVoZbirni) '
--IF @SamoPregl='D' AND @Datum_Od IS NOT NULL
--    SET @SSQL = @SSQL + ' AND D.Datum_Dok >=''' + cast(@Datum_Od as varchar(35))+''' '
SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, K.ImeKup, K.Adresa, K.Smesto, K.Danocen, K.KDrugo1, K1.Ime_1K, D.DokrID,
S.Sifra_Art, A.ImeArt, A.EdMera, C.Cena'
IF @SamoPregl='N'
    SET @SSQL = @SSQL + ',D.DokrID '
ELSE
    SET @SSQL = @SSQL + ',D.Datum_Dok'
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_Kup, S.Sifra_Art'
EXEC (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzamob]'))
drop procedure [dbo].[sp_dajdokzamob]

Go





CREATE      PROCEDURE sp_DajDokZaMob
    @Sifra_Pat As smallint,
    @KoiOe As varchar(200),
    @KoiTipDok As varchar(200),
    @Datum_Od As smalldatetime,
    @Sifra_Kup char(6)=NULL
AS
    DECLARE @SSQL varchar(2000)
    SET @SSQL = 'SELECT DokrID,Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_kup, Sifra_Obj, Uces,
                Rok, Sifra_Mest, Datum_Dok, Identif_Br, Kasa, Spec_Forma_Pec, Sifra_Div, Day(Datum_Dok) Den, Month(Datum_Dok) Mesec, Year(Datum_Dok) God
                FROM Dokr WHERE Datum_Dok >='''+cast(@Datum_Od as varchar(35))+''' '
    IF @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Pat='+cast(@Sifra_Pat as varchar(5))
    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE IN ('''+@KoiOe+''') '
    IF @KoiTipDok IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Dok IN ('''+@KoiTipDok+''') '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup='+@Sifra_Kup
    SET @SSQL = @SSQL + ' ORDER BY Sifra_Oe, Sifra_Dok, Broj_Dok'
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajdokzbzaazur]'))
drop procedure [dbo].[sp_dajdokzbzaazur]

Go





CREATE    PROCEDURE sp_DajDokZbZaAzur
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint,
    @BrDokOd int,
    @BrDokDo int,
    @Sifra_Prim    smallint=null,
    @SamoLikvidirani char(1)='N',
    @DivOdPat    char(1)='N',
    @OdrediImaPovDivVoDok char(1)='N'
AS
Declare @SSQL Varchar(4000), @SSQLUsl varchar(2000)
SET @SSQLUsl=' WHERE D.BROJ_NAL IS NULL AND D.SIFRA_DOK = ' + cast(@Sifra_Dok as varchar(5)) + ' AND D.SIFRA_OE '
If @Sifra_OE IS NULL
    Set @SSQLUsl =  @SSQLUsl + 'IN (SELECT Sifra_OE FROM ORGED WHERE OrgDaliFin = ''D'')'
Else
    Set @SSQLUsl =  @SSQLUsl + '= ' + Cast (@Sifra_OE as varchar(5))
If @BrDokOd  IS NOT NULL
    Set @SSQLUsl =  @SSQLUsl + ' AND D.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10))
If @BrDokDo  IS NOT NULL
    Set @SSQLUsl =  @SSQLUsl + ' AND D.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10))
If @Datum_Od Is NOT Null
    SET @SSQLUsl = @SSQLUsl + ' AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
If @Datum_Do Is NOT Null
    SET @SSQLUsl = @SSQLUsl + ' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
IF @SamoLikvidirani='D'
    SET @SSQLUsl = @SSQLUsl + ' AND (D.Likvid IS NULL OR D.Likvid<>''M'')'
--If @Sifra_Prim IS NOT NULL            OVOJ param zaradi uniformnost
--    Set @SSQLUsl =  @SSQLUsl + ' AND Sifra_Prim = ' + Cast (@Sifra_Prim as varchar(5))

IF @OdrediImaPovDivVoDok='D'
Begin
    CREATE     TABLE #TmpDiv
    (DokrZbID    int, BrDiv smallint, Sifra_Div smallint)
    SET @SSQL = 'SELECT SZ.DokrZbID, COUNT(Distinct A.Sifra_Div) FROM DokrZbSta SZ INNER JOIN DokrZb D ON SZ.DokrZbID=D.DokrZbID
    INNER JOIN Stavr S ON SZ.DokrID=S.DokrID INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art '
    INSERT INTO #TmpDiv (DokrZbID, BrDiv) EXEC (@SSQL + @SSQLUsl +' GROUP BY SZ.DokrZbID')
--print @SSQLPom + @SSQLUsl
    UPDATE #TmpDiv SET Sifra_Div=A.Sifra_Div FROM DokrZbSta SZ, Stavr S, KatArt A
    WHERE #TmpDiv.BrDiv=1 AND #TmpDiv.DokrZbID=SZ.DokrZbID AND SZ.DokrID=S.DokrID AND S.Sifra_Art=A.Sifra_Art
End

Set @SSQL = 'SELECT D.*, P.Sifra_Div, P.Sifra_TrosM, T.Sif_GrDok, K.Kto_Anal Kto_AnalKup, '
IF @OdrediImaPovDivVoDok='D'
    SET @SSQL = @SSQL + '#TmpDiv.BrDiv, #TmpDiv.Sifra_Div Sifra_Div_OdArt '
ELSE
    SET @SSQL = @SSQL + '0 BrDiv, 0 Sifra_Div_OdArt  '
Set @SSQL = @SSQL + ' FROM DokrZb D INNER JOIN TipDok T ON D.Sifra_Dok=T.Sifra_Dok
    LEFT OUTER JOIN Patnici P ON D.Sifra_Pat=P.Sifra_Pat
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup '
IF @OdrediImaPovDivVoDok='D'
    SET @SSQL = @SSQL + ' LEFT OUTER JOIN #TmpDiv ON D.DokrZbID=#TmpDiv.DokrZbID '
SET @SSQL = @SSQL + @SSQLUsl+ ' ORDER BY D.Sifra_OE, D.Broj_Dok '
EXEC(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajfakturi]'))
drop procedure [dbo].[sp_dajfakturi]

Go
CREATE PROCEDURE sp_DajFakturi
    @Sifra_Oe    smallint = Null,
    @Sifra_Dok    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Dokr_Stat    char(1) = Null,        -- R - Vo faza na inicijalna faktura,     K - Zatvoren
    @Sifra_Reg    smallint = Null,
    @Sifra_Prev    char(6) = Null,
    @Raspredeleni    char(1) = Null        -- D - Raspredeleni po prevoznik,         N - Neraspredeleni (nema prevoznik)
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, Kup.ImeKup, D.Sifra_Obj, O.ImeObj,
            D.Dokr_Stat, D.Toc200 as Iznos, G.ImeGrad, D.Sifra_Prev, P.ImePrev
            From Dokr D
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join KObjekti O On O.Sifra_Kup=D.Sifra_Kup and O.Sifra_Obj=D.Sifra_Obj
            Left Outer Join Grad G On G.Sifra_Grad=(Case When D.Sifra_Obj Is Not Null Then O.Sifra_Grad Else Kup.Sifra_Grad End)
            Left Outer Join Prevoznik P On P.Sifra_Prev=D.Sifra_Prev
            Where Sifra_Za = 1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Dokr_Stat = 'R'
        Set @SSQL = @SSQL + ' And (D.Dokr_Stat = ''R'' Or D.Dokr_Stat Is Null) '
    Else If @Dokr_Stat = 'K'
        Set @SSQL  =@SSQL + ' And D.Dokr_Stat = ''K'' '
    If @Sifra_Reg Is Not Null
            Set @SSQL = @SSQL + ' And ((O.Sifra_Reg Is Not Null And O.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(6)) + ')
            OR ( O.Sifra_Reg Is Null and KUP.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(6)) + ')) '
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ' + cast(@Sifra_Prev as varchar(6)) + ' '
    If @Raspredeleni = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    Else If @Raspredeleni = 'N'
        Set @SSQL = @SSQL + ' And (D.Sifra_Prev Is Null Or D.Sifra_Prev = '''') '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajfindokzagstav]'))
drop procedure [dbo].[sp_dajfindokzagstav]

Go




CREATE    PROCEDURE sp_DajFinDokZaGStav
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint,
    @Sifra_Nal    smallint = NULL,
    @BrDokOd int,
    @BrDokDo int
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, P.Sifra_Div, P.Sifra_pat, P.Sifra_TrosM
                FROM AnFinDok A LEFT OUTER JOIN Patnici P ON A.Sifra_Pat=P.Sifra_Pat
                 WHERE (A.OdNadvor IS NULL or LTrim(A.OdNadvor)='''') AND A.Sifra_Dok = ' + cast(@Sifra_Dok as varchar(5)) + ' '
    If @Sifra_OE IS NOT NULL
        Set @SSQL =  @SSQL + ' AND A.Sifra_OE = ' + Cast (@Sifra_OE as varchar(5))
    If @Sifra_Nal IS NOT NULL
        Set @SSQL =  @SSQL + ' AND A.Sifra_Nal = ' + Cast (@Sifra_Nal as varchar(5))
    If @BrDokOd  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND A.BROJ_DOK >= ' + Cast(@BrDokOd as varchar(10))
    If @BrDokDo  IS NOT NULL
        Set @SSQL =  @SSQL + ' AND A.BROJ_DOK <= ' + Cast(@BrDokDo as varchar(10))
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
         SET @SSQL = @SSQL + ' AND A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
--print(@SSQL)
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajgotovpro_sostavkontr]'))
drop procedure [dbo].[sp_dajgotovpro_sostavkontr]

Go


CREATE PROCEDURE sp_DajGotovPro_SostavKontr
    @Sifra_Art    varchar (20)
AS
    SELECT DISTINCT KontrSer from SostavKontr
        where Sifra_Art = @SifrA_art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajgrorgzaoe]'))
drop procedure [dbo].[sp_dajgrorgzaoe]

Go

CREATE    PROCEDURE sp_DajGrOrgZaOE
    @Sifra_OE   Smallint,
    @Sif_GrOrg  varchar(12)  OUTPUT
AS
SELECT @Sif_GrOrg = G.Sif_GrOrg FROM GrOrg G
Inner Join SGrOrg S On G.Sif_GrOrg=S.Sif_GrOrg And S.Sifra_OE= @Sifra_OE
WHERE G.Edinstvena='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajgrupizawebnarac]'))
drop procedure [dbo].[sp_dajgrupizawebnarac]

Go





CREATE      PROCEDURE sp_DajGrupiZaWEBNarac
    @WebPodelPoSto        varchar(5) = Null,
    @ZemiArtSamoOdAsortLst    smallint = Null,
    @SamoVoPDA            char(1)=NULL
AS
IF @WebPodelPoSto IS NOT NULL
    BEGIN
    IF @WebPodelPoSto = 'DP'
        IF @SamoVoPDA IS NOT NULL
            Select Sifra_Div as Sifra_Gr,ImeDiv as Ime_Gr,'' Propagiraj From Divizii
        ELSE
            SELECT Sifra_Gr, Ime_Gr, '' Propagiraj FROM Grupi
    END
ELSE
  SELECT G.*, L.Reden_Broj FROM Grupi G INNER JOIN KatAsortLista L ON G.Sifra_gr=L.Sifra1 WHERE L.Broj_ALista = @ZemiArtSamoOdAsortLst








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajgrupizawebnarac1]'))
drop procedure [dbo].[sp_dajgrupizawebnarac1]

Go

CREATE  PROCEDURE sp_DajGrupiZaWEBNarac1
AS
SELECT '001' As Sifra_Gr, '.' As Ime_Gr, '' Propagiraj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajizn_marzazacena]'))
drop procedure [dbo].[sp_dajizn_marzazacena]

Go
CREATE PROCEDURE Sp_DajIzn_MarzaZaCena
    @Cena decimal(18,6),
    @Izn_Marza decimal(18,6) output
AS
SELECT @Izn_Marza=Izn_Marza FROM LstPartic
WHERE @Cena>=Iznos_Od AND @Cena<=Iznos_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajiznosodkasstav]'))
drop procedure [dbo].[sp_dajiznosodkasstav]

Go

CREATE  PROCEDURE sp_DajIznosOdKasStav
    @Sifra_Nal    smallint,
    @Datum_Nal    smalldatetime,
    @Kto_Anal    char(10),
    @DP            char(1),
    @Sifra_OE    smallint,
    @ProkDali    char(1)='D',
    @Iznos        decimal(18,4)= 0 OUTPUT
AS
IF @DP='D'
    Begin
    IF @ProkDali='N'
    Begin
        SELECT @Iznos=SUM(Dolzi) FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE
        SELECT KStaID FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE
    End
    ELSE
    Begin
        SELECT @Iznos=SUM(Dolzi) FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE AND Proknizen IS NULL
        SELECT KStaID FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE AND Proknizen IS NULL
    End
    End
ELSE
    Begin
    IF @ProkDali='N'
    Begin
        SELECT @Iznos=SUM(Pobaruva) FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE
        SELECT KStaID FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE
    End
    ELSE
    Begin
        SELECT @Iznos=SUM(Pobaruva) FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE AND Proknizen IS NULL
        SELECT KStaID FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Dod_Datum=@Datum_Nal AND Kto_Anal=@Kto_Anal AND Sifra_OE=@Sifra_OE AND Proknizen IS NULL
    End
    End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkaraktzadrugo7]'))
drop procedure [dbo].[sp_dajkaraktzadrugo7]

Go

CREATE  PROCEDURE sp_DajKaraktZaDrugo7
    @Sifra_7     SMALLINT,
    @Sifra_Art    VARCHAR(20)
AS

CREATE TABLE #Tmp1
(Sifra_Karakt    smallint,
ImeKarakt    nvarchar(40))

-- Zemi ja listata na site mozzni karakteristiki na ovoj tip
INSERT INTO #Tmp1 (Sifra_Karakt, ImeKarakt)
SELECT TK.Sifra_Karakt, K.ImeKarakt
FROM TipKarakt TK
inner JOIN Karakterist K ON TK.Sifra_Karakt = K.Sifra_Karakt
WHERE TK.Sifra_7 = @Sifra_7

-- Vidi ako veke ima nekoi karakteristiki so PODATOCI, zemi go PODATOCITE
SELECT KK.Sifra_Karakt, KK.ImeKarakt, A.Karakt
FROM #Tmp1 KK
left outer JOIN KatKarakt A ON KK.Sifra_Karakt = A.Sifra_Karakt and A.Sifra_Art = @Sifra_Art
ORDER BY KK.Sifra_Karakt





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkartcareklzakup]'))
drop procedure [dbo].[sp_dajkartcareklzakup]

Go
CREATE PROCEDURE sp_DajKartcaReklZaKup
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint,
    @Sifra_Pat    smallint = NULL
AS
Declare @SSQL varchar(3000)
SET @SSQL='SELECT S.Sifra_Art, A.ImeArt, A.Lokacija, S.Kolic, S.Datum_Dok, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
WHERE D.Sifra_Kup='+@Sifra_Kup +' AND D.VlIzl=''I'' AND A.Lokacija IN (''OS'', ''REK'', ''REP'') '
IF @Sifra_Obj IS NOT NULL
    SET @SSQL =@SSQL +' AND D.Sifra_Obj='+cast(@Sifra_Obj as varchar(5))+' '
IF @Sifra_Pat IS NOT NULL
    SET @SSQL =@SSQL +' AND D.Sifra_Pat='+cast(@Sifra_Pat as varchar(5))+' '
EXEC(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkasovizakniz]'))
drop procedure [dbo].[sp_dajkasovizakniz]

Go








CREATE         PROCEDURE sp_DajKasoviZaKniz
    @Sifra_Nal Smallint,
    @Broj_Nal  int,
    @KnizBlagPoStavki char(1)=NULL
AS
    CREATE TABLE #TmpKas
(    Sifra_OE    smallint,
    Kto_Anal    char(10),
    KojaVal        char(3),
    Sifra_Div    smallint,
    Dolzi        decimal(18,2),
    Pobaruva    decimal(18,2),
    Dev_Dolzi    decimal(18,2),
    Dev_Pobar    decimal(18,2),
    Opis        varchar(40),
    Danok1         decimal(18, 4),
    Danok2         decimal(18, 4),
    Kto_Osnovica char (10),
    Kto_Osn_DaliDev char(1),
    Kto_Osn_DaliKup char(1),
    Kto_Blag    char(10)
)
IF @KnizBlagPoStavki='D'
Begin
    INSERT INTO #TmpKas (Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar, Opis, Danok1, Danok2, Kto_Osnovica)
    SELECT K.Sifra_OE, K.Kto_Anal, K.KojaVal, K.Sifra_Div, K.Dolzi, K.Pobaruva, K.Dev_Dolzi, K.Dev_Pobar,
    substring('K'+P_I+Cast(K.Broj_Dok as varchar(8))+' '+Substring(Case WHEN Kup.ImeKup IS NULL THEN K.Opis ELSE rtrim(K.Opis)+' '+ Kup.ImeKup END,1,40),1,40),
    K.Danok1, K.Danok2, K.Kto_Osnovica
    FROM KasStav K LEFT OUTER JOIN AnFinDok A ON K.AnID=A.AnID LEFT OUTER JOIN Komint Kup ON A.Sifra_Kup=Kup.Sifra_Kup
    WHERE K.Sifra_Nal = @Sifra_Nal  AND K.Broj_Nal = @Broj_Nal
End
ELSE IF @KnizBlagPoStavki='S'
Begin
    INSERT INTO #TmpKas (Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar, Opis)
    SELECT K.Sifra_OE, K.Kto_Anal, K.KojaVal, K.Sifra_Div, K.Dolzi, K.Pobaruva, K.Dev_Dolzi, K.Dev_Pobar,
    substring('K'+P_I+Cast(K.Broj_Dok as varchar(8))+' '+Substring(Case WHEN Kup.ImeKup IS NULL THEN K.Opis ELSE rtrim(K.Opis)+' '+ Kup.ImeKup END,1,40),1,40)
    FROM KasStav K LEFT OUTER JOIN AnFinDok A ON K.AnID=A.AnID LEFT OUTER JOIN Komint Kup ON A.Sifra_Kup=Kup.Sifra_Kup
    LEFT OUTER JOIN KasStavDetal KD ON K.KStaID = KD.KStaID
    WHERE K.Sifra_Nal = @Sifra_Nal AND K.Broj_Nal = @Broj_Nal AND KD.KStaID IS NULL

    INSERT INTO #TmpKas (Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar, Opis)
    SELECT K.Sifra_OE, KD.Kto_Anal, K.KojaVal, K.Sifra_Div,
    CASE WHEN K.Dolzi<>0 THEN KD.Iznos ELSE 0 END, CASE WHEN K.Pobaruva<>0 THEN KD.Iznos ELSE 0 END,
    CASE WHEN K.Dolzi<>0 AND K.Kurs>0 THEN KD.Iznos/K.Kurs ELSE 0 END, CASE WHEN K.Pobaruva<>0 AND K.Kurs>0 THEN KD.Iznos/K.Kurs ELSE 0 END,
    substring('K'+P_I+Cast(K.Broj_Dok as varchar(8))+' '+Substring(Case WHEN Kup.ImeKup IS NULL THEN K.Opis ELSE rtrim(K.Opis)+' '+ Kup.ImeKup END,1,40),1,40)
    FROM KasStav K LEFT OUTER JOIN AnFinDok A ON K.AnID=A.AnID LEFT OUTER JOIN Komint Kup ON A.Sifra_Kup=Kup.Sifra_Kup
    LEFT OUTER JOIN KasStavDetal KD ON K.KStaID = KD.KStaID
    WHERE K.Sifra_Nal = @Sifra_Nal AND K.Broj_Nal = @Broj_Nal AND KD.KStaID IS NOT NULL

End
ELSE
Begin
    INSERT INTO #TmpKas (Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar)
    SELECT Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Sum(Dolzi), Sum(Pobaruva), Sum(Dev_Dolzi), Sum(Dev_Pobar) FROM KasStav
    WHERE Sifra_Nal = @Sifra_Nal  AND  Broj_Nal = @Broj_Nal AND
    Kto_Anal IN (SELECT Kto_Anal FROM Anal WHERE DaliOrg='D') AND Kto_Osnovica IS NULL
    GROUP BY Sifra_OE, Kto_Anal, KojaVal, Sifra_Div

    INSERT INTO #TmpKas (Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar)
    SELECT Kto_Anal, KojaVal, Sifra_Div, Sum(Dolzi), Sum(Pobaruva), Sum(Dev_Dolzi), Sum(Dev_Pobar) FROM KasStav
    WHERE Sifra_Nal = @Sifra_Nal  AND  Broj_Nal = @Broj_Nal AND
    Kto_Anal IN (SELECT Kto_Anal FROM Anal WHERE DaliOrg IS NULL or DaliOrg<>'D') AND Kto_Osnovica IS NULL
    GROUP BY Kto_Anal, KojaVal, Sifra_Div

    INSERT INTO #TmpKas (Sifra_OE, Kto_Anal, KojaVal, Sifra_Div, Dolzi, Pobaruva, Dev_Dolzi, Dev_Pobar, Opis, Danok1, Danok2, Kto_Osnovica)
    SELECT K.Sifra_OE, K.Kto_Anal, K.KojaVal, K.Sifra_Div, K.Dolzi, K.Pobaruva, K.Dev_Dolzi, K.Dev_Pobar,
    Substring(Case WHEN Kup.ImeKup IS NULL THEN K.Opis ELSE rtrim(K.Opis)+' '+ Kup.ImeKup END,1,40), K.Danok1, K.Danok2, K.Kto_Osnovica
    FROM KasStav K LEFT OUTER JOIN AnFinDok A ON K.AnID=A.AnID LEFT OUTER JOIN Komint Kup ON A.Sifra_Kup=Kup.Sifra_Kup
    WHERE K.Sifra_Nal = @Sifra_Nal  AND K.Broj_Nal = @Broj_Nal AND Kto_Osnovica IS NOT NULL
End

    UPDATE #TmpKas SET Kto_Blag = KrsLista.Kto_Blag FROM KrsLista WHERE #TmpKas.KojaVal IS NOT NULL AND #TmpKas.KojaVal=KrsLista.sImeVal
    UPDATE #TmpKas SET Kto_Osn_DaliDev=A.DaliDev, Kto_Osn_DaliKup=A.DaliKupuv FROM Anal A WHERE #TmpKas.Kto_Osnovica=A.Kto_Anal

    SELECT * FROM #TmpKas









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkasovizaknizae]'))
drop procedure [dbo].[sp_dajkasovizaknizae]

Go

CREATE  PROCEDURE sp_DajKasoviZaKnizAE
    @Sifra_Nal    smallint,
    @Broj_Nal    smallint
AS
CREATE TABLE #TmpKasa
(TipBlag    char(3),
P_I            char(1),
Dolzi        decimal(18,2),
Pobaruva    decimal(18,2),
Dev_Dolzi    decimal(18,2),
Dev_Pobar    decimal(18,2),
KojaVal        char(3),
POsn        decimal(5,2),
Sifra_Nac    smallint,
KasaGrupa    char(10))
INSERT INTO #TmpKasa (TipBlag, P_I,Sifra_Nac, KasaGrupa,KojaVal, Dolzi, Pobaruva, Dev_Dolzi,Dev_Pobar)
SELECT TipBlag, P_I,Sifra_Nac, KasaGrupa,KojaVal, SUM(Dolzi), SUM(Pobaruva), SUM(Dev_Dolzi),SUM(Dev_Pobar)
FROM KasStav WHERE Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal GROUP BY TipBlag, P_I,Sifra_Nac, KasaGrupa,KojaVal
SELECT K.*, N.ImeNac from #TmpKasa K LEFT OUTER JOIN NacPlak N ON K.Sifra_Nac=N.Sifra_Nac
ORDER BY K.TipBlag, K.KasaGrupa, K.Sifra_Nac, K.P_I




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkatasortlisti]'))
drop procedure [dbo].[sp_dajkatasortlisti]

Go
CREATE    PROCEDURE sp_DajKatAsortListi
    @Broj_ALista    smallint,
    @Kolku_DenaIzm    smallint=0
AS
    Declare @KatAsortPoSto as char(5)
    SELECT @KatAsortPoSto = KatAsortPoSto FROM Konfig
CREATE TABLE #TmpAsortLst
(Sif1    varchar(10),
Sif2    varchar(10),
I1    varchar(40),
I2    varchar(40),
Rbr    int,
Rbr1    int)
/*IF @KatAsortPoSto IS NULL OR RTrim(@KatAsortPoSto) = ''
Begin
    SELECT * FROM #TmpAsortLst
    RETURN
End    */
CREATE TABLE #TmpAsortDop
(Sif1    varchar(10),
Sif2    varchar(10),
Rbr    int,
Rbr1    int NOT NULL IDENTITY (1, 1))
Declare @SSQL    varchar(1000)
Declare @DatOd     smalldatetime
SET @SSQL='SELECT Sifra1, Sifra2, Reden_Broj FROM KatAsortLista WHERE Broj_ALista='+cast(@Broj_ALista as varchar(6))
IF @Kolku_DenaIzm IS NOT NULL AND @Kolku_DenaIzm>0
Begin
    SET @DatOd=DateAdd(day, @Kolku_DenaIzm * -1, GetDate())
    SET @SSQL = @SSQL + ' AND Datum_Vnes >= ''' + Cast(@DatOd as varchar(35)) + ''''
End
    SET @SSQL = @SSQL + ' ORDER BY Reden_Broj '
INSERT INTO #TmpAsortLst (Sif1, Sif2, Rbr) EXEC (@SSQL)
IF Substring(@KatAsortPoSto,2,1)<>'A'
Begin
    Declare @Sif1    varchar(10)
    Declare @Rbr    int
    Declare Tabela2 Cursor Fast_Forward For
    Select  Sif1, Rbr From #TmpAsortLst WHERE Sif2 IS NULL
    Open Tabela2
    Fetch Next From Tabela2 Into @Sif1, @Rbr
    While @@Fetch_Status = 0
    Begin
    IF Substring(@KatAsortPoSto,2,1)='P'
        Begin
        IF Substring(@KatAsortPoSto,1,1)='D'
            INSERT INTO #TmpAsortDop (Sif1, Sif2, Rbr)
            SELECT DISTINCT @Sif1, Sifra_Podg, @Rbr FROM Katart WHERE Kto=@Sif1
        ELSE IF Substring(@KatAsortPoSto,1,1)='G'
            INSERT INTO #TmpAsortDop (Sif1, Sif2, Rbr)
            SELECT DISTINCT @Sif1, Sifra_Podg, @Rbr FROM Podgrupi WHERE Sifra_Gr=@Sif1
        End
        Fetch Next From Tabela2 Into  @Sif1, @Rbr
    End
    Close Tabela2
    Deallocate Tabela2
    DELETE FROM #TmpAsortLst WHERE Sif2 IS NULL
    INSERT INTO #TmpAsortLst (Sif1, Sif2, Rbr, Rbr1) SELECT Sif1, Sif2, Rbr, Rbr1 FROM #TmpAsortDop
End
IF Substring(@KatAsortPoSto,1,1)='D'
    UPDATE #TmpAsortLst SET I1=K.ImeKup FROM Komint K WHERE #TmpAsortLst.Sif1=K.Sifra_Kup
IF Substring(@KatAsortPoSto,1,1)='G'
    UPDATE #TmpAsortLst SET I1=G.Ime_Gr FROM Grupi G WHERE #TmpAsortLst.Sif1=G.Sifra_Gr
IF Substring(@KatAsortPoSto,1,1)='2'
    UPDATE #TmpAsortLst SET I1=D.Ime_2 FROM Drugo2 D WHERE #TmpAsortLst.Sif1=D.Sifra_2
IF Substring(@KatAsortPoSto,1,1)='4'
    UPDATE #TmpAsortLst SET I1=D.Ime_4 FROM Drugo4 D WHERE #TmpAsortLst.Sif1=D.Sifra_4
IF Substring(@KatAsortPoSto,1,1)='H'
    UPDATE #TmpAsortLst SET I1=D.Ime_KHier FROM KatHier D WHERE #TmpAsortLst.Sif1=D.Sifra_KHier
--IF Substring(@KatAsortPoSto,2,1)='P'        Sega za sega ne nei teba, pa pomalku podatoci da prenesuvame
--    UPDATE #TmpAsortLst SET I2=P.Ime_Podg FROM Podgrupi P WHERE #TmpAsortLst.Sifra2=P.Sifra_Podg AND #TmpAsortLst.Sifra2 IS NOT NULL
SELECT * FROM #TmpAsortLst ORDER BY rbr, Rbr1



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkatstatusbezprod]'))
drop procedure [dbo].[sp_dajkatstatusbezprod]

Go





CREATE    PROCEDURE [dbo].[sp_DajKatStatusBezProd]
     @Sifra_KatStatus smallint = null output,
     @ImeKatStatus varchar(30) = null output
AS
    SELECT @Sifra_KatStatus = Sifra_KatStatus, @ImeKatStatus = ImeKatStatus
    FROM Katstatus
    WHERE MozeProdazba <> 'D'








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkobjektizaprenos]'))
drop procedure [dbo].[sp_dajkobjektizaprenos]

Go

CREATE     PROCEDURE sp_DajKObjektiZaPrenos
    @ObjIzvor    char(1),
    @ObjZaPrenos char(1)
AS
    CREATE TABLE #TmpKObj (Sifra char(9))
    Declare @PocChr    varchar(20)
    Declare @KrChr    varchar(20)
    Declare KonfMat1 Cursor Fast_Forward For
    Select  Poc_char, Kr_char From KonfNasObjMatic
    WHERE Tabela='Komint'
    AND PatIndex('%'+@ObjZaPrenos + '%', PrenosVoObj)<>0  --and Izvor=@ObjIzvor
    Open KonfMat1
    Fetch Next From KonfMat1 Into @PocChr, @KrChr
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpKObj SELECT Sifra_Kup+cast(Sifra_Obj as char(3))
        FROM KObjekti Where Sifra_Kup >= @PocChr AND Sifra_Kup <= @KrChr AND
        Sifra_Obj>0 AND (Prenesen IS NULL OR PatIndex('%' + @ObjZaPrenos + '%', Prenesen)=0)
        Fetch Next From KonfMat1 Into @PocChr, @KrChr
    End
    Close KonfMat1
    Deallocate KonfMat1
    SELECT * FROM KObjekti
    WHERE Sifra_Kup+cast(Sifra_Obj as char(3)) IN (Select Sifra FROM #TmpKObj)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkolicrabtip]'))
drop procedure [dbo].[sp_dajkolicrabtip]

Go

create  PROCEDURE sp_DajKolicRabTip
    @Sifra_Art    varchar(20),
    @KolicRabTip    char(1)='' OUTPUT

AS

    select @KolicRabTip = PopusMar
    from Katart
    where Sifra_Art = @Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkolicuslcena]'))
drop procedure [dbo].[sp_dajkolicuslcena]

Go

create PROCEDURE sp_DajKolicUslCena
    @Sifra_Art varchar(20),
    @Datum_Dok smalldatetime = Null,
    @Rok smallint = Null,
    @Sifra_Kup char(6) = Null,
    @ZaKolic decimal (18, 4),
    @CenaVrati decimal(18, 4) = Null OUTPUT

AS

    Declare @KojaCenaShiftirana smallint

    set @ZaKolic = abs(@ZaKolic)

    select @KojaCenaShiftirana = Sifra_Tip
    from usl_kolrab_fra
    where sifra_tip >= 101 and sifra_tip <= 110
        and tip_podelba = 'A'
        and Sifra_Podelba = @Sifra_Art
        and @ZaKolic >= - Od_Kolic
        and @ZaKOlic <= - Do_Kolic    -- NE se cudi, granicite se zapisani kako negativni
                        -- vo bazata za da nema mesanje so drugi koncepti

    set @CenaVrati = 0
    if @KojaCenaShiftirana is not null
        begin
        SET @KojaCenaShiftirana = @KojaCenaShiftirana - 100

        Declare @DogCena decimal(18, 6)
        Declare @MalCena decimal(18, 6)
        Declare @GotCena decimal(18, 6)

        select @DogCena = DogCena, @MalCena = MalCena, @GotCena = GotCena
        from katart
        where sifrA_art = @sifra_art

        if @KojaCenaShiftirana = 1 and @DogCena > 0
            set @CenaVrati = @DogCena
        else if @KojaCenaShiftirana = 2 and @MalCena > 0
            set @CenaVrati = @MalCena
        else if @KojaCenaShiftirana = 3 and @GotCena > 0
            set @CenaVrati = @GotCena
        end



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkolicuslceniart]'))
drop procedure [dbo].[sp_dajkolicuslceniart]

Go

create PROCEDURE sp_DajKolicUslCeniArt

AS

    select distinct sifra_podelba Sifra_Art
    from usl_kolrab_fra
    where sifra_tip >= 101 and sifra_tip <= 110
        and do_kolic < 0 and tip_podelba = 'A'



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkolona]'))
drop procedure [dbo].[sp_dajkolona]

Go

CREATE PROCEDURE sp_DajKolona
    @Tabela Varchar(20),
    @Kolona Varchar(20),
    @PostoiTab Bit OUTPUT,
    @PostoiKol Bit OUTPUT
AS
    If Exists(Select * From Information_Schema.Tables
        Where Table_Name=@Tabela)
        Set @PostoiTab=1
    Else
        Set @PostoiTab=0
    If @PostoiTab=1
        Begin
            If Exists(Select * From Information_Schema.Columns
                Where Table_Name=@Tabela And Column_Name=@Kolona)
                Set @PostoiKol=1
            Else
                Set @PostoiKol=0
        End
    Else
        Set @PostoiKol=0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomercuslzawebnarac]'))
drop procedure [dbo].[sp_dajkomercuslzawebnarac]

Go







CREATE         PROCEDURE sp_DajKomercUslZaWebNarac
    @KojaCena        char(1)='1',
    @RabatOdPodgr    char(1)='N',
    @PoCenovnik        char(1)='N',
    @Sifra_Kup        char(6),
    @NacPlak        varchar(10)=NULL,
    @Sifra_OE        smallint=NULL
AS

Declare @ImeTab varchar(20)
SET @ImeTab = '##wNar'+@Sifra_Kup

CREATE TABLE #TmpVlezniArt (Sifra_Art varchar(20), Kolic decimal(18,6))
DECLARE @SSQL varchar(3000)
SET @SSQL = 'INSERT INTO #TmpVlezniArt SELECT * FROM ' + @ImeTab    --polnam pom.tabela za cursorot
EXEC (@SSQL)

CREATE TABLE #TmpArtKomerc
(Sifra_Art    varchar(20),
Kolic        decimal(18,6),
Cena        decimal(18,4),        --sekogas so ddv
Uces        decimal(6,2),
UcesOsn        decimal(6,2),
UcesKol        decimal(6,2),
UcesDod        decimal(6,2))

INSERT #TmpArtKomerc (Sifra_Art, Kolic, Cena, Uces, UcesOsn, UcesKol, UcesDod)
SELECT Sifra_Art, Kolic, 0, 0, 0, 0, 0 FROM #TmpVlezniArt

Declare @Sifra_Art varchar(20), @Kolic decimal(18,6), @Uces decimal(6,2), @DaliCenSoDDV char(1)
Declare @Podgr    varchar(20), @TipKup varchar(11)

IF @KojaCena='1'
BEGIN
    SELECT @DaliCenSoDDV=Cena_1_SoDanok FROM Konfig
    IF @DaliCenSoDDV='D'
        UPDATE #TmpArtKomerc SET Cena =K.DogCena FROM KatArt K WHERE #TmpArtKomerc.Sifra_Art=K.Sifra_Art
    ELSE
    BEGIN
        Declare @ZaokrDec smallint
        SELECT @ZaokrDec=Cena_1_Zaokr FROM Konfig
        UPDATE #TmpArtKomerc SET Cena=Round(K.DogCena*(1+T.ProcOsn/100),@ZaokrDec) FROM KatArt K, Tarifi T
        WHERE #TmpArtKomerc.Sifra_Art=K.Sifra_Art AND K.Sifra_Tar=T.Sifra_Tar
    END
END
ELSE IF @KojaCena='S'
BEGIN
    UPDATE #TmpArtKomerc SET Cena = CASE S.DanCena WHEN 'D' THEN S.Cena ELSE Round(S.Cena * S.Posn/100,1) END
    FROM Soart S WHERE #TmpArtKomerc.Sifra_Art=S.Sifra_Art AND S.Sifra_OE=@Sifra_OE
END

IF @PoCenovnik='O'        -- treba da se pusti ako ima OsnCenKomBazen
Begin
    Declare @wKojaCena varchar(1), @wOsnCenKomBazen char(6)
    SELECT @wKojaCena = KojaCena FROM Komint WHERE Sifra_Kup=@Sifra_Kup
    IF @wKojaCena<>''
    Begin
    --SELECT @wOsnCenKomBazen = OsnCenKomBazen FROM Konfig  vaka e najlesno, ama go nema vo sekoja baza
    CREATE TABLE #TmpKom (Sifra_Kup char(6))
    SET @SSQL='SELECT OsnCenKomBazen FROM Konfig'
    INSERT INTO #TmpKom EXEC (@SSQL)
    SELECT @wOsnCenKomBazen = Sifra_Kup FROM #TmpKom

    UPDATE #TmpArtKomerc SET Cena=C.Cena  FROM Cenovnik C WHERE #TmpArtKomerc.Sifra_Art=C.Sifra_Art AND C.Sifra_Kup=substring(@wOsnCenKomBazen, 1, 5)+@wKojaCena AND C.Cena>0
    UPDATE #TmpArtKomerc SET Uces=C.Popust FROM Cenovnik C WHERE #TmpArtKomerc.Sifra_Art=C.Sifra_Art AND C.Sifra_Kup=substring(@wOsnCenKomBazen, 1, 5)+@wKojaCena AND C.Popust>0
    End
End

IF @PoCenovnik='D' OR @PoCenovnik='O'
BEGIN
    UPDATE #TmpArtKomerc SET Cena=C.Cena FROM Cenovnik C WHERE #TmpArtKomerc.Sifra_Art=C.Sifra_Art AND C.Sifra_Kup=@Sifra_Kup AND C.Cena>0
    UPDATE #TmpArtKomerc SET Uces=C.Popust FROM Cenovnik C WHERE #TmpArtKomerc.Sifra_Art=C.Sifra_Art AND C.Sifra_Kup=@Sifra_Kup AND C.Popust>0
END
IF @RabatOdPodgr='D'
Begin
    SELECT @TipKup=TipKup FROM Komint WHERE Sifra_Kup=@Sifra_Kup
    UPDATE #TmpArtKomerc SET Uces=C.Uces FROM CenPoPodgr C, Komint K, KatArt A WHERE #TmpArtKomerc.Sifra_Art=A.Sifra_Art AND
    C.Sifra_Podelba=A.Sifra_Podg AND C.TipKup=@TipKup
End

SELECT * FROM #TmpArtKomerc










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomint]'))
drop procedure [dbo].[sp_dajkomint]

Go

CREATE  procedure sp_DajKomint
As
    Select Sifra_Kup Sifra_Komint, ImeKup NazivKomint, Adresa, Smesto Mesto, Zemja Zemlja From Komint ORDER BY Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomintzaotkup]'))
drop procedure [dbo].[sp_dajkomintzaotkup]

Go



CREATE   PROCEDURE sp_DajKomintZaOtkup
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint=88,
    @Datum_Dok    smalldatetime,
    @KDrugo1    Smallint,
    @Sifra_Art    varchar(20)
AS
Declare @SSQL Varchar(4000)
CREATE TABLE #TmpDok
(DokrID    int,
Broj_Dok    int,
Sifra_Kup    char(6),
ImeKup        varchar(40),
Kolic        decimal(18,6))

INSERT INTO #TmpDok (DokrID, Broj_Dok, Sifra_Kup, ImeKup, Kolic)
SELECT D.DokrID, D.Broj_Dok, K.Sifra_Kup, K.ImeKup, S.Kolic FROM Dokr D
LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN Stavr S ON D.DokrID=S.DokrID
WHERE D.Sifra_OE=@Sifra_OE AND D.Sifra_Dok=@Sifra_Dok AND D.Datum_Dok=@Datum_Dok AND K.KDrugo1=@KDrugo1 AND S.Sifra_Art=@Sifra_Art

INSERT INTO #TmpDok (DokrID, Broj_Dok, Sifra_Kup, ImeKup, Kolic)
SELECT 0 DokrID, 0 Broj_Dok, K.Sifra_Kup, K.ImeKup, 0 Kolic FROM Komint K
WHERE K.KDrugo1=@KDrugo1 AND K.Sifra_Kup NOT IN (SELECT Sifra_Kup FROM #TmpDok)

SELECT * FROM #TmpDok ORDER BY Sifra_Kup





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomintzapat]'))
drop procedure [dbo].[sp_dajkomintzapat]

Go



CREATE      PROCEDURE sp_DajKomintZaPat
    @Sifra_Pat    smallint,
    @KlkDena    smallint = 0,
    @SoPodelbi    char(1) = '',
    @Sifra_Grad    smallint = NULL,
    @Sifra_Reg    smallint = NULL,
    @ZemiReg    char(1) = '',
    @SamoKupSoReg char(1)=''
AS
    Declare @SSQL varchar(5000)
    SET @SSQL='SELECT SIFRA_KUP, Substring(IMEKUP,1,30) ImeKup, SUBSTRING(ADRESA, 1, 30) Adresa, SUBSTRING(SMESTO,1, 10) SMesto, Posta,
                        Telefon, Sifra_Nivo, Rok_Dosp, Kasa, KojaCena, MozeIsporaka, Uces, Limit_Dolzi Limit, Sifra_Tip STip, Sifra_Vpj Vpj,Danocen Kontakt '
    If @SoPodelbi = 'D'
        SET @SSQL = @SSQL + ', Aktiven, TipKup, Sifra_Grad, KDrugo1, KDrugo2, KDrugo3, BrProdMesta, BrAktProdMesta, DirDistr, ZemaOd, m2, Uces_Kol '
    Else If @SoPodelbi = 'G'
        SET @SSQL = @SSQL + ', Aneks1 ZemaOd '
    Else If @SoPodelbi = 'R'
        SET @SSQL = @SSQL + ', Spec_Rabat ZemaOd '
    If @ZemiReg = 'D'
        SET @SSQL = @SSQL + ', Sifra_Reg SifReg '
    SET @SSQL = @SSQL + ' FROM KOMINT WHERE (Aktiven IS NULL OR Aktiven <>''N'')
                    AND Sifra_Kup IN (SELECT Sifra_Kup FROM KomintPat WHERE Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5)) + ')'
    If @Sifra_Grad IS NOT NULL
        SET @SSQL = @SSQL + ' AND (Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + '
                             OR Sifra_Kup IN (Select Sifra_Kup from KObjekti Where Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + ' AND (Aktiven IS NULL OR Aktiven <>''N'') ))'
    If @Sifra_Reg IS NOT NULL
        SET @SSQL = @SSQL + ' AND (Sifra_Reg = '+cast(@Sifra_Reg as varchar(5)) + '
                             OR Sifra_Kup IN (Select Sifra_Kup from KObjekti Where Sifra_Reg = '+cast(@Sifra_Reg as varchar(5)) + ' AND (Aktiven IS NULL OR Aktiven <>''N'') ))'
    If @KlkDena > 0
    Begin
        Declare @DatPoc As smalldatetime
        SET @DatPoc = DateAdd(day, @KlkDena * -1, GetDate())
        SET @SSQL = @SSQL + ' AND (DodadenNa >= '''+cast(@DatPoc as varchar(35)) + ''' OR IzmenetNa >= '''+cast(@DatPoc as varchar(35)) + ''') '
    End
    If @SamoKupSoReg = 'D'
        SET @SSQL = @SSQL + ' AND (Sifra_Reg IS NOT NULL OR Sifra_Kup IN (SELECT Sifra_Kup FROM KObjekti WHERE Sifra_Reg IS NOT NULL))'
    EXEC (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomintzaprenos]'))
drop procedure [dbo].[sp_dajkomintzaprenos]

Go

CREATE     PROCEDURE sp_DajKomintZaPrenos
    @ObjIzvor    char(1),
    @ObjZaPrenos char(1)
AS
    CREATE TABLE #TmpKom (Sifra_Kup char(6))
    Declare @PocChr    varchar(20)
    Declare @KrChr    varchar(20)
    Declare KonfMat1 Cursor Fast_Forward For
    Select  Poc_char, Kr_char From KonfNasObjMatic
    WHERE Tabela='Komint'
    AND PatIndex('%'+@ObjZaPrenos + '%', PrenosVoObj)<>0  --and Izvor=@ObjIzvor
    Open KonfMat1
    Fetch Next From KonfMat1 Into @PocChr, @KrChr
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpKom SELECT Sifra_Kup FROM Komint
        Where Sifra_Kup >= @PocChr AND Sifra_Kup <= @KrChr AND
        (Prenesen IS NULL OR PatIndex('%' + @ObjZaPrenos + '%', Prenesen)=0)
        Fetch Next From KonfMat1 Into @PocChr, @KrChr
    End
    Close KonfMat1
    Deallocate KonfMat1
    SELECT Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, Posta, SMesto,
    Zemja, IspZemja, Telefon, Tel1,Fax, EMail, AdrWeb, Ziro, Danocen,
    Banka, Sopstvenik, Ziro2, Banka2, Sifra_Pat, Sifra_Pat2, Sifra_Grad,
    TipKup, Sifra_reg, Sifra_Nivo, KojaSmetka, KDrugo1, Kdrugo2, KDrugo3,
    KDrugo4, KDrugo5, Uces, Kasa, Rok_Dosp, BrPoseti, KojaCena, DirDistr,
    ZemaOd, Kontakt, Zabeleska, Aktiven, DogovorBroj, BrProdMesta, BrAktProdMesta,
    ImaBanka, Alt_ImeKup, Alt_Adresa, MozeIsporaka, Garancija, MatBr, Prenesen, Limit_Dolzi FROM Komint
    WHERE Sifra_Kup IN (Select Sifra_Kup FROM #TmpKom)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkomzawebnarac]'))
drop procedure [dbo].[sp_dajkomzawebnarac]

Go

CREATE  PROCEDURE sp_DajKomZaWEBNarac
    @KlkDena    smallint=null
AS
IF @KlkDena IS NOT NULL
    SELECT Sifra_Kup, ImeKup, Adresa, Posta, SMesto, Zemja, Telefon, TelMobil, eMail, Kontakt FROM Komint
    WHERE DodadenNa>=DateAdd(day, @KlkDena * -1, GetDate()) OR IzmenetNa>=DateAdd(day, @KlkDena * -1, GetDate())
ELSE
    SELECT Sifra_Kup, ImeKup, Adresa, Posta, SMesto, Zemja, Telefon, TelMobil, eMail, Kontakt FROM Komint





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkonta]'))
drop procedure [dbo].[sp_dajkonta]

Go

CREATE PROCEDURE [dbo].[sp_DajKonta]
    @DaliDev    char(1)=null
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select A.Kto_Anal, A.ImeAnal, (CASE WHEN A.Dalidev is null THEN ''N'' ELSE A.DaliDev END) DaliDev from Anal A'
    begin
    if @DaliDev is not null
      if @DaliDev='D'
         Set @SSQL = @SSQL + ' Where A.DaliDev = ''D'' '
      if @DaliDev='N'
         Set @SSQL = @SSQL + ' Where A.DaliDev <> ''D'' or A.DaliDev is null '
    end
    Exec(@SSQL)
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkontenplan]'))
drop procedure [dbo].[sp_dajkontenplan]

Go

CREATE  procedure sp_DajKontenPlan
As
CREATE TABLE #TmpK
(Konto    char(10),
Naziv        varchar(40),
HNaziv    varchar(40))

INSERT INTO #TmpK SELECT Kto_Klas, ImeKlasa, SImeKlasa from Klas
INSERT INTO #TmpK SELECT Kto_Sint, ImeSint, SImeSint from Sint
INSERT INTO #TmpK SELECT Kto_Anal, ImeAnal, SImeAnal from Anal

SELECT * FROM #TmpK ORDER BY Konto



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkorisnicizaupl]'))
drop procedure [dbo].[sp_dajkorisnicizaupl]

Go
CREATE  PROCEDURE sp_DajKorisniciZaUpl
    @Sifra_Kup        varchar(20),
    @Sifra_TipKartKor    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select Sifra_Kor
            From  KartKor K
            Left Outer Join TipKartKor Tip on Tip.Sifra_TipKartKor = K.Sifra_TipKartKor
            Where Sifra_Kup = ' + @Sifra_Kup + ' And Tip.DaliKredit=''D'' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_TipKartKor = ' + Cast(@Sifra_TipKartKor as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By Sifra_Kor '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajktoodartzadok]'))
drop procedure [dbo].[sp_dajktoodartzadok]

Go
CREATE PROCEDURE sp_DajKtoOdArtZaDok
    @DokrID    int,
    @Sifra_Kup    char(6) OUTPUT
AS
    SELECT @Sifra_Kup = A.Kto FROM Stavr S INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
    WHERE S.DokrID = @DokrID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajkurszadatum]'))
drop procedure [dbo].[sp_dajkurszadatum]

Go

CREATE  PROCEDURE sp_DajKursZaDatum
    @KojaVal    char(3),
    @Datum            SmallDateTime,
    @Kurs        Decimal(18,6) = 0 OUTPUT,
    @KursKupoven    Decimal(18,6) = 0 OUTPUT,
    @KursProdazen    Decimal(18,6) = 0 OUTPUT,
    @KursPazaren    Decimal(18,6) = 0 OUTPUT
AS
    Declare @PoslDatum smallDateTime
    SELECT @PoslDatum = Max(Datum) FROM KrsVaznost WHERE SImeVal = @KojaVal AND Datum <= @Datum
IF @PoslDatum IS NOT NULL
    Select @Kurs = KursSreden, @KursKupoven = KursKupoven,
           @KursProdazen = KursProdazen, @KursPazaren = KursPazaren
    From KrsVaznost WHERE Datum = @PoslDatum AND SImeVal = @KojaVal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajlikviddokr]'))
drop procedure [dbo].[sp_dajlikviddokr]

Go
CREATE    PROCEDURE sp_DajLikvidDokr
    @Sifra_OE Smallint,
    @Sifra_Dok Smallint,
    @Broj_Dok int,
    @Likvid char (1) OUTPUT
AS
        select @Likvid=Likvid From Dokr
        WHERE Sifra_oe = @Sifra_oe   And  Sifra_DOk = @Sifra_Dok  And  Broj_Dok = @Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajlimitzadiv]'))
drop procedure [dbo].[sp_dajlimitzadiv]

Go
CREATE PROCEDURE sp_DajLimitZaDiv
    @Sifra_Kup    char(6),
    @Sifra_Div    smallint,
    @Kto        char(10)=NULL,
    @Limit        decimal(18,6)=0 OUTPUT,
    @Saldo        decimal(18,6)=0 OUTPUT
AS
SELECT @Limit = Iznos FROM KomLimitDiv WHERE Sifra_Kup=@Sifra_Kup AND Sifra_DIv=@Sifra_Div
IF @Kto IS NULL
    SELECT @Saldo = SUM(Dolzi-Plateno_Dolzi) FROM AnFinDok WHERE Sifra_Kup=@Sifra_Kup AND Sifra_Div=@Sifra_Div AND Sifra_Za=1
ELSE
    SELECT @Saldo = SUM(Dolzi-Plateno_Dolzi) FROM AnFinDok WHERE Sifra_Kup=@Sifra_Kup AND Sifra_Div=@Sifra_Div AND Sifra_Za=1 AND Kto=@Kto




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajlista_komobj_popisdok]'))
drop procedure [dbo].[sp_dajlista_komobj_popisdok]

Go
CREATE    PROCEDURE sp_DajLista_KomObj_PopisDok
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    Declare @SSQL varchar(2000)
    SELECT Distinct Sifra_Kup, Sifra_Obj
    From PopisDok P
    Where Sifra_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and
          Datum_PopisDok >= @Datum_Od and Datum_PopisDok <= @Datum_Do



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajlista_popisdok]'))
drop procedure [dbo].[sp_dajlista_popisdok]

Go




CREATE    PROCEDURE sp_DajLista_PopisDok
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    Declare @SSQL varchar(2000)
    SELECT Distinct Sifra_Oe, Sifra_Dok, Broj_Dok
    From PopisDok P
    where Sifra_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and
              Datum_PopisDok >= @Datum_Od and Datum_PopisDok <= @Datum_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxbrdok]'))
drop procedure [dbo].[sp_dajmaxbrdok]

Go


CREATE   PROCEDURE sp_DajMaxBrDok
    @Sifra_Nal    smallint,
    @P_I        char(1),
    @TipBlag    char(3)=NULL,
    @DoBroj        int=NULL,
    @Broj_Dok    int Output
AS
IF @DoBroj IS NULL SET @DoBroj=1999999
IF @TipBlag IS NULL
    Select @Broj_Dok=Max(Broj_Dok)
    From KasStav
    Where Sifra_Nal = @Sifra_Nal and P_I = @P_I AND Broj_Dok<@DoBroj
ELSE
    Select @Broj_Dok=Max(Broj_Dok)    From KasStav
    Where Sifra_Nal = @Sifra_Nal and P_I = @P_I AND TipBlag=@TipBlag AND Broj_Dok<@DoBroj





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxbrdokzp]'))
drop procedure [dbo].[sp_dajmaxbrdokzp]

Go



CREATE   PROCEDURE sp_DajMaxBrDokZP
    @Sifra_OETros    smallint,
    @Pomosen        char(1),
    @DoBroj            int=NULL,
    @Broj_Dok        int Output
AS
IF @DoBroj IS NULL SET @DoBroj=1999999
If @Pomosen = 'D'
    SELECT @Broj_Dok= MAX(Broj_RabN) FROM RabNal WHERE Pomosen = 'D' and Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj
Else If @Pomosen = 'N'
    SELECT @Broj_Dok=MAX(Broj_RabN) FROM RabNal WHERE (Pomosen <> 'D' or Pomosen is null) and Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj
Else
    SELECT @Broj_Dok=MAX(Broj_RabN) FROM RabNal WHERE Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxbrdokzp_zap]'))
drop procedure [dbo].[sp_dajmaxbrdokzp_zap]

Go

create Procedure sp_DajMaxBrDokZP_Zap
    @Sifra_OETros    smallint,
    @Pomosen        char(1),
    @DoBroj            int=NULL,
    @Broj_Dok        int Output
AS

IF @DoBroj IS NULL
    SET @DoBroj=1999999

If @Pomosen = 'D'
    SELECT @Broj_Dok= MAX(Broj_RabN) FROM RabNal_Zap WHERE Pomosen = 'D' and Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj
Else If @Pomosen = 'N'
    SELECT @Broj_Dok=MAX(Broj_RabN) FROM RabNal_Zap WHERE (Pomosen <> 'D' or Pomosen is null) and Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj
Else
    SELECT @Broj_Dok=MAX(Broj_RabN) FROM RabNal_Zap WHERE Sifra_oerab = @Sifra_OETros AND Broj_RabN<@DoBroj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxdatumuslkomerc]'))
drop procedure [dbo].[sp_dajmaxdatumuslkomerc]

Go

CREATE  PROCEDURE sp_DajMaxDatumUslKomerc
    @Sifra_Kup    char(6),
    @Sifra_Tip    smallint = NULL,
    @Datum        smalldatetime = NULL OUTPUT
AS
IF @Sifra_Tip IS NULL
    SELECT @Datum = Max(Datum_Od) FROM Usl_Komerc_Per WHERE Sif_Kup_Gen = @Sifra_Kup  AND Tip_Sif_Kup='K'
ELSE
    SELECT @Datum = Max(Datum_Od) FROM Usl_Komerc_Per WHERE Sif_Kup_Gen = @Sifra_Tip  AND Tip_Sif_Kup='T'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxrbr_magstavr]'))
drop procedure [dbo].[sp_dajmaxrbr_magstavr]

Go
CREATE PROCEDURE sp_DajMaxRbr_MagStavr
    @Sifra_Oe    Smallint,
    @Sifra_Dok    Smallint,
    @Broj_Dok    Int,
    @MaxRbr    Int = Null Output
AS
    Set @MaxRbr = (Select Max(M.Rbr)
            From Dokr D
            Inner Join MagStavr M On M.DokrID=D.DokrID
            Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajmaxspecozn_lotser]'))
drop procedure [dbo].[sp_dajmaxspecozn_lotser]

Go
CREATE PROCEDURE sp_DajMaxSpecOzn_LotSer
    @Sifra_Art    varchar(20),
    @MaxSpecOzn    varchar(30) = Null Output
AS
    Set @MaxSpecOzn = (Select Max(SpecOzn) From LotSer Where Sifra_Art=@Sifra_Art)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnajstarlot]'))
drop procedure [dbo].[sp_dajnajstarlot]

Go
CREATE PROCEDURE sp_DajNajstarLot
    @Sifra_OE    smallint,
    @Sifra_Art    varchar(20)
AS
CREATE TABLE #TmpZalPoLot
(Sifra_Art    varchar(20),
LotBr        varchar(50),
Sostojba    decimal(18,4))
INSERT INTO #TmpZalPoLot (LotBr) SELECT MIN(LotBr) FROM SoMag
WHERE Sifra_Oe=@Sifra_Oe AND Sifra_Art=@Sifra_Art AND Sostojba>0
UPDATE #TmpZalPoLot SET Sifra_Art=@Sifra_Art, Sostojba=M.Sostojba FROM SoMag M WHERE M.Sifra_OE=@Sifra_OE AND M.Sifra_Art=@Sifra_Art AND #TmpZalPoLot.LotBr=M.LotBr
SELECT A.Sifra_Tar, A.Lokacija, T.ProcOsn, L.LotBr, L.Sostojba FROM KatArt A
INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
LEFT OUTER JOIN #TmpZalPoLot L ON L.Sifra_Art=A.Sifra_Art WHERE A.Sifra_Art=@Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnalogzadatum]'))
drop procedure [dbo].[sp_dajnalogzadatum]

Go

CREATE  PROCEDURE sp_DajNalogZaDatum
    @Sifra_Nal    smallint,
    @Datum_Nal    smalldatetime,
    @Broj_Nal    int = Null OUTPUT,
    @Tek_Datum_Nal    smalldatetime = Null OUTPUT
AS
SELECT @Broj_Nal=Broj_Nal,@Tek_Datum_Nal=Datum_Nal FROM Nalozi WHERE Sifra_Nal=@Sifra_Nal AND Datum_Nal=@Datum_Nal
IF @@ROWCOUNT<1
Begin
    SELECT @Broj_Nal=Max(Broj_Nal) FROM Nalozi WHERE Sifra_Nal=@Sifra_Nal AND Datum_Nal<=@Datum_Nal
    IF @Broj_Nal IS NOT NULL
        SELECT @Tek_Datum_Nal=Datum_Nal FROM Nalozi WHERE Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnaracka_ponarid]'))
drop procedure [dbo].[sp_dajnaracka_ponarid]

Go
CREATE PROCEDURE sp_DajNaracka_PoNarID
    @NarID        int,
    @Sifra_Oe    smallint = Null Output,
    @Sifra_Nar    smallint = Null Output,
    @Broj_Nar    int = Null Output
AS
    Select @Sifra_Oe=Sifra_Oe, @Sifra_Nar=Sifra_Nar, @Broj_Nar=Broj_Nar
    From Naracki
    Where NarID=@NarID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnarackazakup]'))
drop procedure [dbo].[sp_dajnarackazakup]

Go


CREATE   PROCEDURE sp_DajNarackaZaKup
    @Sifra_Kup    Char(6),
    @Datum    SmallDateTime
AS
    SELECT SN.*, A.ImeArt, A.EdMera, A.ImaKomerc
    FROM StaNarac SN
    INNER JOIN Naracki N ON N.NarID = SN.NarID AND N.Datum_nar = @Datum AND N.Sifra_Kup = @Sifra_Kup
            AND dbo.fn_KonvVoStr(N.Realiziran) = ''
    INNER JOIN KatArt A ON A.Sifra_Art = SN.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnaracki]'))
drop procedure [dbo].[sp_dajnaracki]

Go


CREATE   PROCEDURE sp_DajNaracki
    @Sifra_Oe    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Stat_Dok_Nar        char(1) = Null,        -- I - Vo faza na naracka,      N - Nalozeni naracki za podgotovka
    @Koi_Spec_Narac_Stat    char(1) = Null,        -- S - Site,   R - Realizirani(D,P,S),      N - Nerealizirani(N, Null)
    @ImeNaUser    varchar(20)=NULL
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, O.ImeObj,
            N.Realiziran, N.Stat_Dok_Nar, N.Toc200 as Iznos, G.ImeGrad
            From Naracki N
            Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
            Left Outer Join KObjekti O On O.Sifra_Kup=N.Sifra_Kup and O.Sifra_Obj=N.Sifra_Obj
            Left Outer Join Grad G On G.Sifra_Grad=(Case When N.Sifra_Obj Is Not Null Then O.Sifra_Grad Else Kup.Sifra_Grad End)
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar = ' + cast(@Sifra_Nar as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Stat_Dok_Nar = 'I'
        Set @SSQL = @SSQL + ' And (N.Stat_Dok_Nar = ''I'' Or N.Stat_Dok_Nar Is Null) '
    Else If @Stat_Dok_Nar = 'N'
        Set @SSQL  =@SSQL + ' And N.Stat_Dok_Nar = ''N'' '
    If @Koi_Spec_Narac_Stat = 'R'
        Set @SSQL  =@SSQL + ' And N.Realiziran In (''R'', ''P'', ''S'')'
    Else If @Koi_Spec_Narac_Stat = 'N'
        Set @SSQL = @SSQL + ' And (N.Realiziran = ''N'' Or N.Realiziran Is Null) '
    IF @ImeNaUser IS NOT NULL
        Set @SSQL = @SSQL + ' And N.Sifra_Oper = ''' + @ImeNaUser + ''' '
    Set @SSQL = @SSQL + ' ORDER BY N.Datum_Nar'
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnarackizaisporaka]'))
drop procedure [dbo].[sp_dajnarackizaisporaka]

Go



CREATE     PROCEDURE sp_DajNarackiZaIsporaka
    @Sifra_Nar    smallint,
    @Datum_Od_Preth    smalldatetime,
    @Datum_Do_Preth    smalldatetime,
    @Datum_Nar_Od    smalldatetime,
    @Datum_Nar_Do    smalldatetime,
    @Sif_GrOrg_Zal    char(6),
    @Sifra_Pat        smallint=NULL,
    @Sif_GrPat        char(6)=NULL,
    @Lokacija        varchar(15)=NULL,
    @SamoPregled    char(1)='N'
AS
CREATE TABLE #Patnici
(Sifra_Pat    smallint)

IF @Sifra_Pat IS NOT NULL
    INSERT INTO #Patnici VALUES (@Sifra_Pat)
ELSE IF @Sif_GrPat IS NOT NULL
    INSERT INTO #Patnici SELECT Sifra_Pat FROM SGrPat WHERE Sif_GrPat=@Sif_GrPat
ELSE
    INSERT INTO #Patnici SELECT Sifra_Pat FROM Patnici

CREATE TABLE #TmpPod
(Sifra_OE    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Datum_Nar    smalldatetime,
Sifra_Kup    char(6),
Sifra_Obj    smallint,
ImeKup        varchar(80),
Sifra_Art    varchar(20),
ImeArt        varchar(40),
Kolic_Nar    decimal(18,6),
Kolic_Real    decimal(18,6),
Kolic_Zal    decimal(18,6),
Kolic_Preth    decimal(18,6),
Sifra_Pat    smallint,
Lokacija    varchar(10),
PrifPredlog    char(1),
Realiz_Na    smalldatetime,
Realiz_Kolic    decimal(18,6),
Sifra_Oe_Dok smallint,
NNabCena    decimal(18,6),
Sifra_Tar    char(3),
POsn        decimal(6,2))

IF @SamoPregled='D'
    INSERT INTO #TmpPod (Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Kup, Sifra_Obj, Sifra_Art, Kolic_Nar, Kolic_Real, Sifra_Pat, PrifPredlog, Realiz_Na, Realiz_Kolic, ImeArt, Lokacija)
    SELECT N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Kup, N.Sifra_Obj, S.Sifra_Art, S.Kolic, S.Realiz_Kolic, N.Sifra_Pat, S.PrifPredlog, S.Realiz_Na, S.Realiz_Kolic, A.ImeArt, A.Lokacija
    FROM StaNarac S INNER JOIN Naracki N ON S.NarID=N.NarID
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    INNER JOIN #Patnici P ON N.Sifra_Pat=P.Sifra_Pat
    WHERE N.Datum_Nar>=@Datum_Nar_Od AND N.Datum_Nar<=@Datum_Nar_Do AND N.Sifra_Nar=@Sifra_Nar
ELSE
Begin
    INSERT INTO #TmpPod (Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Kup, Sifra_Obj, Sifra_Art, Kolic_Nar, Kolic_Real, Sifra_Pat, ImeArt, Lokacija, Sifra_Tar, POsn)
    SELECT N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Kup, N.Sifra_Obj, S.Sifra_Art, S.Kolic, S.Realiz_Kolic, N.Sifra_Pat, A.ImeArt, A.Lokacija, A.Sifra_Tar, T.ProcOsn
    FROM StaNarac S INNER JOIN Naracki N ON S.NarID=N.NarID
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON T.Sifra_Tar=A.Sifra_Tar
    INNER JOIN #Patnici P ON N.Sifra_Pat=P.Sifra_Pat
    WHERE N.Datum_Nar>=@Datum_Nar_Od AND N.Datum_Nar<=@Datum_Nar_Do AND N.Sifra_Nar=@Sifra_Nar AND (S.PrifPredlog IS NULL OR S.PrifPredlog<>'N') AND S.Realiz_Na IS NULL

    UPDATE #TmpPod SET Sifra_Oe_Dok=P.OE_OS FROM Patnici P WHERE #TmpPod.Sifra_Pat=P.Sifra_Pat AND #TmpPod.Lokacija='OS'
    UPDATE #TmpPod SET Sifra_Oe_Dok=P.OE_Rek FROM Patnici P WHERE #TmpPod.Sifra_Pat=P.Sifra_Pat AND #TmpPod.Lokacija='REK'
    UPDATE #TmpPod SET Sifra_Oe_Dok=P.OE_Rep FROM Patnici P WHERE #TmpPod.Sifra_Pat=P.Sifra_Pat AND #TmpPod.Lokacija='REP'
    Declare @SifOE_sGrOrg smallint
    SELECT TOP 1 @SifOE_sGrOrg=S.Sifra_OE FROM SGrOrg S WHERE S.Sif_GrOrg=@Sif_GrOrg_Zal ORDER BY S.Sifra_OE
    UPDATE #TmpPod SET Sifra_Oe_Dok=@SifOE_sGrOrg WHERE Sifra_Oe_Dok IS NULL

    UPDATE #TmpPod SET NNabCena=S.NNabCena FROM Soart S WHERE #TmpPod.Sifra_OE_Dok=S.Sifra_OE AND #TmpPod.Sifra_Art=S.Sifra_Art

    CREATE TABLE #TmpZal
    (Sifra_Art    varchar(20),
    Kolic        decimal(18,6))

    INSERT INTO #TmpZal SELECT S.Sifra_Art, SUM(S.Vlez-S.Izlez) FROM Soart S INNER JOIN SGrOrg SO ON S.Sifra_OE=SO.Sifra_OE
    WHERE SO.Sif_GrOrg=@Sif_GrOrg_Zal AND Sifra_Art IN (SELECT Distinct Sifra_Art FROM #TmpPod)
    GROUP BY S.Sifra_Art

    UPDATE #TmpPod SET Kolic_Zal=Z.Kolic FROM #TmpZal Z WHERE #TmpPod.Sifra_Art=Z.Sifra_Art
End

CREATE TABLE #TmpKup (Sifra_Kup char(6), Sifra_Obj smallint)
INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #TmpPod

CREATE TABLE #TmpIspor
(Sifra_Kup    char(6),
Sifra_Obj    smallint,
Sifra_Art    varchar(20),
Kolic        decimal(18,6))

INSERT INTO #TmpIspor (Sifra_Kup, Sifra_Obj, Sifra_Art, Kolic)
SELECT D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
INNER JOIN #TmpKup K ON D.Sifra_Kup=K.Sifra_Kup AND K.Sifra_Obj IS NULL
INNER JOIN #TmpZal Z ON S.Sifra_Art=Z.Sifra_Art
WHERE D.VlIzl='I' AND D.Sifra_Za=1 AND D.Datum_Dok>=@Datum_Od_Preth AND D.Datum_Dok<=@Datum_Do_Preth
GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art

INSERT INTO #TmpIspor (Sifra_Kup, Sifra_Obj, Sifra_Art, Kolic)
SELECT D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, SUM(S.Kolic) FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
INNER JOIN #TmpKup K ON D.Sifra_Kup=K.Sifra_Kup AND K.Sifra_Obj IS NOT NULL AND D.Sifra_Obj=K.Sifra_Obj
INNER JOIN #TmpZal Z ON S.Sifra_Art=Z.Sifra_Art
WHERE D.VlIzl='I' AND D.Sifra_Za=1 AND D.Datum_Dok>=@Datum_Od_Preth AND D.Datum_Dok<=@Datum_Do_Preth
GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art

UPDATE #TmpPod SET Kolic_Preth=P.Kolic  FROM #TmpIspor P
WHERE #TmpPod.Sifra_Art=P.Sifra_Art AND #TmpPod.Sifra_Kup=P.Sifra_Kup AND #TmpPod.Sifra_Obj=P.Sifra_Obj AND #TmpPod.Sifra_OBj IS NOT NULL

UPDATE #TmpPod SET Kolic_Preth=P.Kolic FROM #TmpIspor P
WHERE #TmpPod.Sifra_Art=P.Sifra_Art AND #TmpPod.Sifra_Kup=P.Sifra_Kup AND #TmpPod.Sifra_Obj IS NULL AND #TmpPod.Sifra_Obj IS NULL

UPDATE #TmpPod SET ImeKup=K.ImeKup FROM Komint K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup
UPDATE #TmpPod SET ImeKup=rtrim(ImeKup) +' '+K.ImeObj FROM KObjekti K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup AND #TmpPod.Sifra_Obj IS NOT NULL AND #TmpPod.Sifra_Obj=K.Sifra_Obj

SELECT P.* FROM #TmpPod P ORDER BY P.Datum_Nar, P.Sifra_OE, P.SIfra_Nar, P.Broj_Nar, P.Sifra_Art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnarackizaodobr]'))
drop procedure [dbo].[sp_dajnarackizaodobr]

Go








CREATE          PROCEDURE [dbo].[sp_DajNarackiZaOdobr]
    @Datum_Nar_Od    smalldatetime,
    @Datum_Nar_Do    smalldatetime,
    @Sifra_Pat    smallint=NULL,
    @Sif_GrPat    char(6)=NULL,
    @Sifra_Nar    smallint=NULL,
    @SamoPregled    char(1)=NULL,
    @KojOdob    char(1)='P'
AS
CREATE TABLE #Patnici
(Sifra_Pat    smallint)

IF @Sifra_Pat IS NOT NULL
    INSERT INTO #Patnici VALUES (@Sifra_Pat)
ELSE IF @Sif_GrPat IS NOT NULL
    INSERT INTO #Patnici SELECT Sifra_Pat FROM SGrPat WHERE Sif_GrPat=@Sif_GrPat
ELSE
    INSERT INTO #Patnici SELECT Sifra_Pat FROM Patnici

CREATE TABLE #TmpPod
(Sifra_OE    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Datum_Nar    smalldatetime,
Sifra_Kup    char(6),
Sifra_Obj    smallint,
ImeKup        varchar(80),
Sifra_Art    varchar(20),
ImeArt        varchar(40),
Kolic_Nar    decimal(18,6),
Kolic_Real    decimal(18,6),
Kolic_Zal    decimal(18,6),
Kolic_Preth    decimal(18,6),
Sifra_Pat    smallint,
Lokacija    varchar(10),
PrifPredlog    char(1),
Realiz_Na    smalldatetime,
Realiz_Kolic    decimal(18,6),
Sifra_Oe_Dok smallint,
NNabCena    decimal(18,6),
Sifra_Tar    char(3),
POsn        decimal(6,2),
Rok            varchar(25),
Kolic_BO    decimal(18,6),
Odobril        varchar(10))

DECLARE @SSQL as varchar(3000)

IF (@SamoPregled IS NOT NULL)
BEGIN
    SET @SSQL = '
    INSERT INTO #TmpPod (Sifra_Kup, Sifra_Obj, Sifra_Art,
            ImeArt, Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Kolic_Nar, PrifPredlog, Kolic_BO, Lokacija, Rok, Odobril)
    SELECT  N.Sifra_Kup, N.Sifra_Obj, S.Sifra_Art, A.ImeArt, S.Sifra_Oe, S.Sifra_Nar, S.Broj_Nar, N.Datum_Nar,
            S.Kolic, S.PrifPredlog, S.Kolic_BO, S.Lokacija, S.KontrSer, S.Odobril
    FROM    StaNarac S INNER JOIN Naracki N ON S.NarID=N.NarID
                    INNER JOIN #Patnici P ON N.Sifra_Pat=P.Sifra_Pat
                    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    WHERE N.Datum_Nar >= ''' + cast(@Datum_Nar_Od as varchar(30))  + '''' +
        ' AND N.Datum_Nar <= ''' + cast(@Datum_Nar_Do as varchar(30)) + ''''  + ' AND N.Sifra_Nar = ' + cast(@Sifra_Nar as varchar(10))
    IF (@SamoPregled = 'O')
        SET @SSQL = @SSQL + ' AND (S.Kolic_BO > 0 OR S.PrifPredlog =''N'' )'
    IF (@SamoPregled = 'M')
        SET @SSQL = @SSQL + ' AND (S.Kolic_BO > 0 OR S.PrifPredlog =''N'') AND S.Odobril IS NULL '
    IF (@SamoPregled = 'N')
        SET @SSQL = @SSQL + ' AND (S.Kolic_BO IS NULL OR S.Kolic_BO=0) AND (S.PrifPredlog IS NULL OR S.PrifPredlog<>''N'')'
    IF (@KojOdob = 'P')
        SET @SSQL = @SSQL + ' AND Kutija_Br = SUBSTRING(SUSER_SNAME(),1,10) AND Odobril IS NULL '
    ELSE
        SET @SSQL = @SSQL + ' AND Odobril = SUBSTRING(SUSER_SNAME(),1,10) '

--    PRINT(@SSQL)
    EXEC(@SSQL)

    UPDATE #TmpPod SET ImeKup=K.ImeKup FROM Komint K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup
    UPDATE #TmpPod SET ImeKup=rtrim(ImeKup) + ' ' +K.ImeObj FROM KObjekti K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup AND #TmpPod.Sifra_Obj IS NOT NULL AND #TmpPod.Sifra_Obj=K.Sifra_Obj

END
ELSE
Begin

    INSERT INTO #TmpPod (Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Kup, Sifra_Obj,
                         Sifra_Art, Kolic_Nar, Kolic_Real, Sifra_Pat, ImeArt, Lokacija, Sifra_Tar, POsn, Rok)
    SELECT N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Kup, N.Sifra_Obj,
                        S.Sifra_Art, S.Kolic, S.Realiz_Kolic, N.Sifra_Pat, A.ImeArt, A.Lokacija, A.Sifra_Tar, T.ProcOsn, S.KontrSer
    FROM StaNarac S INNER JOIN Naracki N ON S.NarID=N.NarID
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON T.Sifra_Tar=A.Sifra_Tar
    INNER JOIN #Patnici P ON N.Sifra_Pat=P.Sifra_Pat
    WHERE N.Datum_Nar>=@Datum_Nar_Od AND N.Datum_Nar<=@Datum_Nar_Do AND N.Sifra_Nar=@Sifra_Nar AND (S.PrifPredlog IS NULL OR S.PrifPredlog<>'N') AND (S.Lokacija = '' OR S.Lokacija IS NULL) AND S.Realiz_Na IS NULL

    UPDATE #TmpPod SET ImeKup=K.ImeKup FROM Komint K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup
    UPDATE #TmpPod SET ImeKup=rtrim(ImeKup) +' '+K.ImeObj FROM KObjekti K WHERE #TmpPod.Sifra_Kup=K.Sifra_Kup AND #TmpPod.Sifra_Obj IS NOT NULL AND #TmpPod.Sifra_Obj=K.Sifra_Obj

End

SELECT    cast(P.Sifra_Oe as varchar(5)) + '-' + cast(P.Sifra_Nar as varchar(6)) + '\' + cast(P.Broj_Nar as varchar(10)) AS Br_Nar, P.*
FROM #TmpPod P
ORDER BY P.Datum_Nar, P.Sifra_OE, P.SIfra_Nar, P.Broj_Nar, P.Sifra_Art














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnarid_nar]'))
drop procedure [dbo].[sp_dajnarid_nar]

Go

create PROCEDURE sp_DajNarID_Nar
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int,
    @NarID        int output
AS
    Select @NarID = NarId
    From Naracki
    where @Sifra_Oe=Sifra_Oe and @Sifra_Nar=Sifra_Nar and @Broj_Nar=Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajnepecdok]'))
drop procedure [dbo].[sp_dajnepecdok]

Go


CREATE   PROCEDURE sp_DajNePecDok
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Dok    varchar(200),
    @Sifra_OE    varchar(200)=Null,
    @BrZa_Pec_Dok    smallint = Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Datum_Vnes, Br_Kopii
            From Dokr Where Sifra_Dok In ( ' + @Sifra_Dok + ') '
    IF @Datum_Od IS NOT NULL
        Set @SSQL = @SSQL + ' And Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    IF @Datum_Do IS NOT NULL
        Set @SSQL = @SSQL + ' And Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' And Sifra_OE In ( ' + @Sifra_OE + ') '
    If @BrZa_Pec_Dok Is Null
        Set @SSQL = @SSQL + ' And Pec_Dok Is Null '
    Else
        Set @SSQL = @SSQL + ' And (Pec_Dok IS NULL OR Pec_Dok= ' + Cast(@BrZa_Pec_Dok as varchar(6)) + ') '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajneprenfindok]'))
drop procedure [dbo].[sp_dajneprenfindok]

Go
CREATE   PROCEDURE sp_DajNePrenFinDok
    @KoiOE    varchar(200)=NULL,
    @KoiDok    varchar(100)=NULL,
    @KojObj    char(1)
AS
Declare @SSQL    varchar(5000)
SET @SSQL = 'SELECT Sifra_OE OE, Sifra_Dok Dok, Broj_Dok BrDok, BrojDok,
            Sifra_Nal SifNal, Broj_Nal BrNal, Datum_Nal DatNal, Kto, Sifra_Za SZa,
            Sifra_Kup Kup, Dolzi Dol, Pobaruva Pob, Plateno_Dolzi PlDol, Plateno_Pobar PlPob,
            Dev_Dolzi DevDol, Dev_Pobaruva DevPob, Dev_Plat_Dolzi DevPlDol, Dev_Plat_Pobar DevPlPob,
            KojaVal Val, Sifra_Pat Pat, Datum_Dok Dat, Rok, Opis, Sifra_Nivo Nivo, Danok1, Danok2
            FROM AnFinDok WHERE (Prenesen IS NULL OR RTrim(Prenesen)='''' OR
            PatIndex(''%'+@KojObj + '%'', Prenesen)=0) '
IF @KoiOE IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_OE IN (' + @KoiOE + ') '
IF @KoiDok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Dok IN (' + @KoiDok + ') '
EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajobjektizapat]'))
drop procedure [dbo].[sp_dajobjektizapat]

Go


CREATE  PROCEDURE sp_DajObjektiZaPat
    @Sifra_Pat    smallint,
    @KlkDena    smallint = 0,
    @SoPodelbi    char(1) = '',
    @Sifra_Grad    smallint = NULL,
    @Sifra_Reg    smallint = NULL,
    @SamoKupSoReg char(1)=''
AS
    Declare @SSQL varchar(5000)
SET @SSQL='SELECT O.Sifra_Kup, O.Sifra_Obj, O.ImeObj, O.Adresa, O.Smesto, O.Posta, O.Telefon, O.TelMobil, SubString(O.Kontakt,1,20) Kontakt, O.Sifra_Vpj Vpj'
If @SoPodelbi = 'D'
    SET @SSQL = @SSQL + ', O.Aktiven, O.TipKup, O.Sifra_Grad, O.KDrugo1, O.KDrugo2, O.KDrugo3, O.BrProdMesta, O.BrAktProdMesta, O.m2 '
SET @SSQL = @SSQL + ' FROM KObjekti O INNER JOIN KomintPat P ON O.Sifra_Kup=P.Sifra_Kup AND O.Sifra_Obj=P.Sifra_Obj
    WHERE O.Sifra_Obj > 0 AND (O.Aktiven IS NULL OR O.Aktiven <>''N'')
    AND O.Sifra_Kup IN (SELECT SIFRA_KUP FROM KOMINT WHERE (Aktiven IS NULL OR Aktiven <>''N'')
    AND P.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5)) + ' '
If @Sifra_Grad IS NOT NULL
    SET @SSQL = @SSQL + ' AND (Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + '
             OR Sifra_Kup IN (Select Sifra_Kup from KObjekti Where Sifra_Grad = ' + cast(@Sifra_Grad as varchar(5)) + ' AND (Aktiven IS NULL OR Aktiven <>''N'') ))'
If @Sifra_Reg IS NOT NULL
    SET @SSQL = @SSQL + ' AND (Sifra_Reg = '+cast(@Sifra_Reg as varchar(5)) + '
             OR Sifra_Kup IN (Select Sifra_Kup from KObjekti Where Sifra_Reg = '+cast(@Sifra_Reg as varchar(5)) + ' AND (Aktiven IS NULL OR Aktiven <>''N'') ))'
If @KlkDena > 0
Begin
    Declare @DatPoc As smalldatetime
    SET @DatPoc = DateAdd(day, @KlkDena * -1, GetDate())
    SET @SSQL = @SSQL + ' AND (DodadenNa >= '''+cast(@DatPoc as varchar(35)) + ''' OR IzmenetNa >= '''+cast(@DatPoc as varchar(35)) + ''') '
End
If @SamoKupSoReg = 'D'
    SET @SSQL = @SSQL + ' AND (Sifra_Reg IS NOT NULL OR Sifra_Kup IN (SELECT Sifra_Kup FROM KObjekti WHERE Sifra_Reg IS NOT NULL))'
SET @SSQL = @SSQL + ' )'
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajobjektizaprenos]'))
drop procedure [dbo].[sp_dajobjektizaprenos]

Go

CREATE PROCEDURE sp_DajObjektiZaPrenos
AS
    SELECT M.*, O.Sifra_OE, O.OrgEdVoMark  FROM Marketi M
    INNER  JOIN OrgEd O ON M.Sifra_Mark = O.Sifra_Mark
    WHERE M.ID_Server IS NOT NULL  AND  M.ID_Server <> ''




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajobjektizawebnarac]'))
drop procedure [dbo].[sp_dajobjektizawebnarac]

Go
Create   PROCEDURE sp_DajObjektiZaWEBNarac
AS
   SELECT Sifra_Kup, Sifra_Obj, ImeObj, Adresa, Posta, SMesto, Telefon ,eMail, Kontakt FROM KObjekti






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajodscanlistagrupirano]'))
drop procedure [dbo].[sp_dajodscanlistagrupirano]

Go




CREATE     PROCEDURE sp_DajOdScanListaGrupirano
    @Sifra_OE    smallint,
    @Tip_Lista    smallint,
    @Broj_Lista    int
AS
CREATE TABLE #TmpScanLista
    (Rbr_Scan smallint,
    Nom_Scan varchar (100),
    Kolic_Pak decimal(18, 6),
    Kolic decimal(18, 6),
    LotBr varchar (50),
    RokRed varchar (6),
    Lokacija varchar (50),
    Sifra_KatStatus smallint,
    Sifra_KatPak smallint,
    Sifra_Art varchar (20))
INSERT INTO #TmpScanLista (Rbr_Scan,Nom_Scan,Kolic_Pak,Kolic,LotBr,RokRed,Lokacija,Sifra_KatStatus,Sifra_KatPak,Sifra_Art)
SELECT Rbr_Scan,Nom_Scan,Kolic_Pak,Kolic,LotBr,RokRed,Lokacija,Sifra_KatStatus,Sifra_KatPak,Sifra_Art
FROM ScanLista WHERE Sifra_OE=@Sifra_OE AND Tip_Lista=@Tip_Lista AND Broj_Lista=@Broj_Lista
Declare @PozChr29 int
Declare @KodEAN  varchar(50)
Declare @Sifra_Art    varchar(20)
Declare @Kolic        decimal(18,6)
Declare @Kolic_Pak    decimal(18,6)
Declare @Sostojba    decimal(18,6)
Declare @Rbr         int
Declare @Nom_Pakuv    varchar(50)
Declare @Kolic1        decimal(18,6)
Declare @Sifra_KatPak    smallint
Declare @Faktor2    decimal(18,6)
Declare @Sodrzi_Kolic    decimal(18,6)
Declare @Nom_Pomalo    varchar(50)
Declare TabM Cursor Fast_Forward For  Select Sifra_Art, Kolic, KOlic_Pak, Rbr_Scan, Nom_Scan From #TmpScanLista
Open TabM
Fetch Next From TabM Into @Sifra_Art, @Kolic, @Kolic_Pak, @Rbr, @Nom_Pakuv
While @@Fetch_Status = 0
Begin
    IF @Sifra_Art IS NULL
    Begin
        Set @PozChr29 = Charindex(char(29), @Nom_Pakuv)
        IF (Substring(@Nom_Pakuv,1,2)='02' or Substring(@Nom_Pakuv,1,2)='01') AND @PozChr29>0    --ova e znak deka e paleta
        Begin
            SET @KodEAN = Substring(@Nom_Pakuv, 4, 13)
        End
        ELSE
        Begin
            SET @KodEAN = @Nom_Pakuv
        End
        SELECT @Sifra_Art = Sifra_Art, @Sodrzi_Kolic = Sodrzi_Kolic, @Sifra_KatPak = Sifra_KatPak, @Nom_Pomalo = Nom_Pomalo
                FROM KatPakuv
                WHERE Nom_Pakuv = @KodEAN AND Sifra_KatPak IN (SELECT Sifra_KatPak FROM TipKatPakuv WHERE Sifra_Pak=2)     --2=paketi
        set @Faktor2 = 1
                if @Sifra_KatPak = 4
        begin
            SELECT @Faktor2 = Sodrzi_Kolic FROM KatPakuv
                    WHERE Sifra_Art = @Sifra_Art and Nom_Pakuv = @Nom_Pomalo AND Sifra_KatPak IN (SELECT Sifra_KatPak FROM TipKatPakuv WHERE Sifra_Pak=2)     --2=paketi
                end
        IF @Sifra_Art IS NULL
                   Begin
            SELECT @Sifra_Art = Sifra_Art
                        FROM KatPakuv
                        WHERE Nom_Pomalo = @KodEAN AND Sifra_KatPak_Pomalo is null
            Set @Sodrzi_Kolic = 1
                   End
         else
            set @Sodrzi_Kolic = @Sodrzi_Kolic * @Faktor2
                set @Kolic1 = @Kolic_Pak * @Sodrzi_Kolic
        IF @Sifra_Art IS NOT NULL
            UPDATE #TmpScanLista SET Sifra_Art=@Sifra_Art, Kolic = @Kolic1 WHERE Rbr_Scan=@Rbr
    End
    Fetch Next From TabM Into @Sifra_Art, @Kolic, @Kolic_Pak, @Rbr, @Nom_Pakuv
End
Close TabM
Deallocate TabM
SELECT S.Sifra_Art, A.ImeArt, A.EdMera, S.Lokacija,S.LotBr,S.RokRed,S.Sifra_KatStatus,S.Sifra_KatPak, SUM(S.Kolic_Pak) Kolic_Pak, SUM(S.Kolic) Kolic
FROM #TmpScanLista S LEFT OUTER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
GROUP BY S.Sifra_Art,A.ImeArt,A.EdMera,S.Lokacija,S.LotBr,S.RokRed,S.Sifra_KatStatus,S.Sifra_KatPak
order by S.Sifra_Art, S.RokRed




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajodscanlistagrupirano10]'))
drop procedure [dbo].[sp_dajodscanlistagrupirano10]

Go


CREATE       PROCEDURE sp_DajOdScanListaGrupirano10
    @Sifra_OE    smallint,
    @Tip_Lista    smallint,
    @Broj_Lista    int
AS

CREATE TABLE #TmpScanLista
    ( Rbr_Scan smallint,
    Nom_Scan varchar (100),
    Kolic_Pak decimal(18, 6),
    Kolic decimal(18, 6),
    LotBr varchar (50),
    RokRed varchar (6),
    Lokacija varchar (50),
    Sifra_KatStatus smallint,
    Sifra_KatPak smallint,
    Sifra_Art varchar (20),
    Lokac_Id varchar(30),
    Sifra_Oper smallint)

INSERT INTO #TmpScanLista
( Rbr_Scan,Nom_Scan,Kolic_Pak,Kolic,LotBr,RokRed,Lokacija,Sifra_KatStatus,Sifra_KatPak,Sifra_Art,Lokac_Id,Sifra_Oper )
SELECT Rbr_Scan,Nom_Scan,Kolic_Pak,Kolic,LotBr,RokRed,Lokacija,Sifra_KatStatus,Sifra_KatPak,Sifra_Art, WL.Lokac_Id ,Sifra_Oper
FROM ScanLista S
left outer join WhmLokacija WL
    on S.Sifra_Oe = WL.Sifra_Oe and S.Lokacija = WL.Lokac_BarKod
WHERE S.Sifra_OE=@Sifra_OE AND Tip_Lista=@Tip_Lista AND Broj_Lista=@Broj_Lista

Declare @PozChr29 int
Declare @KodEAN  varchar(50)
Declare @Sifra_Art    varchar(20)
Declare @Kolic        decimal(18,6)
Declare @Kolic_Pak    decimal(18,6)
Declare @Sostojba    decimal(18,6)
Declare @Rbr         int
Declare @Nom_Pakuv    varchar(50)
Declare @Kolic1        decimal(18,6)
Declare @Sifra_KatPak    smallint
Declare @Faktor2    decimal(18,6)
Declare @Sodrzi_Kolic    decimal(18,6)
Declare @Nom_Pomalo    varchar(50)
Declare TabM Cursor Fast_Forward For  Select Sifra_Art, Kolic, KOlic_Pak, Rbr_Scan, Nom_Scan From #TmpScanLista
Open TabM
Fetch Next From TabM Into @Sifra_Art, @Kolic, @Kolic_Pak, @Rbr, @Nom_Pakuv

While @@Fetch_Status = 0
Begin
    IF @Sifra_Art IS NULL
    Begin
        Set @PozChr29 = Charindex(char(29), @Nom_Pakuv)
        --IF (Substring(@Nom_Pakuv,1,2)='02' or Substring(@Nom_Pakuv,1,2)='01') AND @PozChr29>0    --ova e znak deka e paleta
        IF (Substring(@Nom_Pakuv,1,2)='02' or Substring(@Nom_Pakuv,1,2)='01') AND len(@Nom_Pakuv) > 20    --ova e znak deka e paleta
        Begin
            SET @KodEAN = Substring(@Nom_Pakuv, 4, 13)
        End
        ELSE
        Begin
            SET @KodEAN = @Nom_Pakuv
        End

        SELECT @Sifra_Art = Sifra_Art, @Sodrzi_Kolic = ZaKolic, @Sifra_KatPak = Sifra_KatPak, @Nom_Pomalo = @KodEAN
                FROM ABarPak
                WHERE Nom = @KodEAN        -- Ovde imame dvoznaccnost ako ima poveke takvi zapisi

        IF @Sifra_Art IS NOT NULL
        begin
            set @Kolic1 = @Kolic_Pak * @Sodrzi_Kolic

            UPDATE #TmpScanLista
            SET Sifra_Art=@Sifra_Art,
                Kolic = @Kolic1
            WHERE Rbr_Scan=@Rbr
        end

    End

    Fetch Next From TabM Into @Sifra_Art, @Kolic, @Kolic_Pak, @Rbr, @Nom_Pakuv
End
Close TabM
Deallocate TabM

SELECT S.Sifra_Art, A.ImeArt, A.EdMera, S.Lokacija,S.LotBr,S.RokRed,S.Sifra_KatStatus,S.Sifra_KatPak,
       SUM(S.Kolic_Pak) Kolic_Pak, SUM(S.Kolic) Kolic, S.Lokac_Id ,S.Sifra_Oper
FROM #TmpScanLista S
LEFT OUTER JOIN KatArt A
    ON S.Sifra_Art=A.Sifra_Art
GROUP BY S.Sifra_Art,A.ImeArt,A.EdMera,S.Lokacija,S.LotBr,S.RokRed,S.Sifra_KatStatus,S.Sifra_KatPak, S.Lokac_Id ,S.Sifra_Oper
order by S.Sifra_Art, S.RokRed







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajorged]'))
drop procedure [dbo].[sp_dajorged]

Go
CREATE procedure sp_DajOrgEd
    @Sif_GrOrg char(6)
As
    Select S.Sif_GrOrg, S.Sifra_Oe,O.ImeOrg  From SGrOrg S
    Inner Join Orged O on S.Sifra_oe=O.Sifra_Oe
    Where Sif_GrOrg=@Sif_GrOrg



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajosnamorzasredstvo]'))
drop procedure [dbo].[sp_dajosnamorzasredstvo]

Go
CREATE PROCEDURE sp_DajOsnAmorZaSredstvo
    @Inv_Broj    char(10),
    @Godina        smallint,
    @Osn_Amor    decimal(18,6)=0 OUTPUT,
    @Otpis_Pret decimal(18,6)=0 OUTPUT
AS
IF EXISTS (SELECT * FROM PocSostOsn WHERE Inv_Broj=@Inv_Broj AND Godina=@Godina)
    Begin
        SELECT @Osn_Amor=Osn_Amor, @Otpis_Pret=Otpis_Pret FROM PocSostOsn WHERE Inv_Broj=@Inv_Broj AND Godina=@Godina
        RETURN
    End
else
    SELECT @Osn_Amor=Osn_Amor, @Otpis_Pret=Otpis_Pret FROM StavOsnSred WHERE Inv_Broj=@Inv_Broj AND Tip_StaOsn IN ('P','I')

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajozndeklart]'))
drop procedure [dbo].[sp_dajozndeklart]

Go



CREATE      PROCEDURE sp_DajOznDeklArt
    @Sifra_Art    varchar(20)
As
    Select * from DeklArt where Sifra_Art=@Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpapersizekonflokprn]'))
drop procedure [dbo].[sp_dajpapersizekonflokprn]

Go

CREATE  PROCEDURE sp_DajPaperSizeKonfLokPrn
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @ImePC        varchar(30)
AS
IF EXISTS (SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND ImePC=@ImePC)
Begin
    SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND ImePC=@ImePC
    IF @@ROWCOUNT>0 RETURN
End
IF EXISTS (SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND ImePC IS NULL)
Begin
    SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND ImePC IS NULL
    IF @@ROWCOUNT>0 RETURN
End
IF EXISTS (SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE IS NULL AND Sifra_Dok=@Sifra_Dok AND ImePC IS NULL)
Begin
    SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE IS NULL AND Sifra_Dok=@Sifra_Dok AND ImePC IS NULL
    IF @@ROWCOUNT>0 RETURN
End
--ova sega na kraj ako sakame bas site dok od toj komjuter da se
IF EXISTS (SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE IS NULL AND Sifra_Dok IS NULL AND ImePC=@ImePC)
Begin
    SELECT * FROM KonfLokPrn WHERE PaperName IS NOT NULL AND Sifra_OE IS NULL AND Sifra_Dok IS NULL AND ImePC=@ImePC
    IF @@ROWCOUNT>0 RETURN
End

SELECT top 1 NULL Sifra_Oe, NULL Grp_Kasa, NULL Lokacija, NULL ImePrinter, NULL FiskalenPrn, NULL ObicenPrn,
NULL BrKopii, NULL BrKopiiSoKor, NULL FiskalenPrnSoKor, NULL KopijaPrn, NULL ImePrinterKopija,
NULL Sifra_dok, NULL PaperName, NULL ImePC FROM KonfLokPrn





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajplancenazaart]'))
drop procedure [dbo].[sp_dajplancenazaart]

Go


CREATE   PROCEDURE sp_DajPlanCenaZaArt
    @Sifra_OE    smallint,
    @Sifra_Art    varchar(20),
    @Datum_Cena    smalldatetime,
    @Cena        decimal(12,4) = 0 OUTPUT,
    @DanCena    char(1)='' OUTPUT,
    @ImaZapis    char(1) = 'N' OUTPUT,
    @Sifra_Tar    char(3) = '' OUTPUT,
    @POsn        decimal(6,2)=0 OUTPUT
AS
    Declare @Sif_GrOrg char(6)
    SELECT @Sif_GrOrg = G.Sif_GrOrg FROM GrOrg G Inner Join SGrOrg S On G.Sif_GrOrg=S.Sif_GrOrg And S.Sifra_OE= @Sifra_OE WHERE G.ZaedPlanCeni='D'
    IF @Sif_GrOrg IS NULL
        SET @ImaZapis = 'N'
    ELSE
    Begin
    SELECT TOP 1 @Cena=Cena, @DanCena=DanCena FROM CeniPlanski
    WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Art=@Sifra_Art AND Vazi_Od<=@Datum_Cena ORDER BY Vazi_Od Desc
    IF @@RowCount < 1 SET @ImaZapis='N' ELSE SET @ImaZapis='D'
    IF @ImaZapis='D'
        SELECT @Sifra_Tar = T.Sifra_Tar, @POsn=T.ProcOsn FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.Sifra_Art=@Sifra_Art
    End





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodatartzaetiketa]'))
drop procedure [dbo].[sp_dajpodatartzaetiketa]

Go



CREATE   PROCEDURE sp_DajPodatArtZaEtiketa
    @Datum    smalldatetime = NULL,
    @Sifra_Art varchar(20),
    @RokTraDen as smallint =NULL
AS
    IF @Datum IS NULL SET @Datum=GetDate()
    IF @RokTraDen IS NULL or @RokTraDen <= 0
        SET @RokTraDen=(select RokTraDen From katart Where Sifra_Art=@Sifra_Art)
    SELECT A.Sifra_Art, A.ImeArt, A.EdMera, A.Nom, A.RokTraDen, A.ImaKomerc, A.Tezina, A.Alt_ime,A.ImaBroevi,
     (case when day(DateAdd(day, @RokTraDen, @Datum)) < 10 then '0' + cast(day(DateAdd(day, @RokTraDen, @Datum)) as char(1)) Else cast(day(DateAdd(day, @RokTraDen, @Datum)) as char(2)) End) + '.' +
    (case when month(DateAdd(day, @RokTraDen, @Datum)) < 10 then '0' + cast(month(DateAdd(day, @RokTraDen, @Datum)) as char(1)) Else cast(month(DateAdd(day, @RokTraDen, @Datum)) as char(2)) End) + '.' +
       cast(year(DateAdd(day, @RokTraDen, @Datum)) as char(4))
    as UpotrebDo,
    (case when day(@Datum) < 10 then '0' + cast(day(@Datum) as char(1)) Else cast(day(@Datum) as char(2)) End)     + '.' +
    (case when month( @Datum) < 10 then '0' + cast(month(@Datum) as char(1)) Else cast(month(@Datum) as char(2)) End) + '.' +
    cast(year(@Datum) as char(4))
    as ProizvedenoNa,
      P.Nom_pakuv FROM KatArt A
     LEFT OUTER JOIN KatPakuv P ON A.Sifra_Art=P.Sifra_Art AND P.Sifra_KatPak=2
     WHERE A.Sifra_Art=@Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodatartzawhmetik]'))
drop procedure [dbo].[sp_dajpodatartzawhmetik]

Go



CREATE   PROCEDURE [dbo].[sp_DajPodatArtZaWHMEtik]
    @Sifra_Art    varchar(20),
    @Sifra_KatPak smallint,
    @Rok        char(6),
    @LotBr        varchar(50),
    @Kolic        int=0,
    @DaliMK        char(1)='D'
AS
Declare @Batch varchar(50)
set @Batch = @LotBr

Declare @KolicEdMera integer

IF @Kolic=0 SELECT @Kolic=ZaKolic FROM ABarPak WHERE Sifra_Art=@Sifra_Art AND Sifra_KatPak=@Sifra_KatPak

SELECT @KolicEdMera=(ZaKolic*@Kolic) FROM ABarPak WHERE Sifra_Art=@Sifra_Art AND Sifra_KatPak=@Sifra_KatPak

SELECT A.Sifra_Art, CASE @DaliMK WHEN 'D' Then A.ImeArt Else A.Alt_Ime End AS ImeArt, @Kolic As Kolic,
'020'+B.Nom+'15'+@Rok+'37'+cast(cast(@Kolic as integer) as varchar(5))+char(29)+ Case @LotBr WHEN '' THEN '' ELSE '10'+@LotBr End As BarKod,
'(02)0'+B.Nom+'(15)'+@Rok+'(37)'+cast(cast(@Kolic as integer) as varchar(5))+ Case @LotBr WHEN '' THEN '' ELSE '(10)'+@LotBr End As BarKodPrik,
B.Nom as Content, @Rok as BestBefore, @Kolic as CountKol, @Batch as Batch, @KolicEdMera as KolicEdMera
FROM KatArt A INNER JOIN ABarPak B ON A.Sifra_Art=B.Sifra_Art
WHERE A.Sifra_Art=@Sifra_Art AND B.Sifra_KatPak=@Sifra_KatPak







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodelbikup]'))
drop procedure [dbo].[sp_dajpodelbikup]

Go



CREATE    PROCEDURE sp_DajPodelbiKup
    @StaviVoTabela    char(1) = 'N',
    @SamoGradovi        char(1) = 'N'
AS
    CREATE TABLE #TmpPodelbi
(    Podelba        char(2),
    Sifra        varchar(11),
    Ime        varchar(40)
)
IF @SamoGradovi <> 'D'
BEGIN
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'K1', cast(Sifra_1K as varchar(11)), Ime_1K FROM KDrugo1
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'K2', cast(Sifra_2K as varchar(11)), Ime_2K FROM KDrugo2
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'K3', cast(Sifra_3K as varchar(11)), Ime_3K FROM KDrugo3
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'TK', TipKup, ImeTipKup FROM GTipKup
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'KA', Sifra_Tip, ImeTip FROM TipKomint
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'VP', Sifra_Vpj, Ime_Vpj FROM VidProdObj
END
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'GR', cast(Sifra_Grad as varchar(11)), ImeGrad FROM Grad
IF @SamoGradovi = 'D'
    INSERT INTO #TmpPodelbi (Podelba, Sifra, Ime) SELECT 'RG', cast(Sifra_Reg as varchar(11)), ImeRegion FROM GRegion
IF @StaviVoTabela='D'
Begin
    CREATE TABLE ##TmpPodelbi
(    Podelba        char(2),
    Sifra        varchar(11),
    Ime        varchar(40)
)
    INSERT INTO ##TmpPodelbi SELECT * FROM #TmpPodelbi
End
ELSE
    SELECT *  FROM #TmpPodelbi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodgrupizawebnarac]'))
drop procedure [dbo].[sp_dajpodgrupizawebnarac]

Go


CREATE        PROCEDURE sp_DajPodgrupiZaWEBNarac
    @ZemiArtSamoOdAsortLst    smallint = NULL,
    @KatAsortPoSto        char(2)='GP',
    @WebPodelPoSto        varchar(5)= NULL,
    @SamoVoPDA            char(1)=NULL
AS

IF @WebPodelPoSto Is Not NULL
    Begin
        IF @WebPodelPoSto ='DP'         --dauti: dobavuvac+podgrupa
        Begin
            IF @SamoVoPDA IS NOT NULL
            Begin
                CREATE TABLE #TmpPodel (Sifra_Podg char(6), Ime_Podg varchar(40), Sifra_Gr char(3))
                INSERT INTO #TmpPodel
                Select Distinct a.kto as Sifra_Podg, k.imekup as Ime_Podg,'001' as Sifra_Gr
                From katart a
                inner join komint k on a.kto=k.sifra_kup
                where VoPDA is not null and VoPDA=@SamoVoPDA    --'W'

                UPDATE #TmpPodel SET Sifra_Gr = A.Sifra_Div FROM KatArt A WHERE #TmpPodel.Sifra_Podg=A.Kto
                SELECT * FROM #TmpPodel
            End
            Else
                SELECT Sifra_Podg, Ime_Podg, Sifra_Gr FROM Podgrupi
        End
    End
Else
    Begin
        IF @KatAsortPoSto='GP'
        Begin
            CREATE TABLE #TmpKL
           (Rbr int IDENTITY (1, 1),
            Sifra    varchar(10))
            Declare @BrZap integer

            SELECT @BrZap= COUNT(DISTINCT Sifra2) FROM KatAsortLista WHERE Broj_ALista=@ZemiArtSamoOdAsortLst
            IF @BrZap IS NULL OR @BrZap=0
                INSERT INTO #TmpKL (Sifra) SELECT Sifra_Podg FROM Podgrupi ORDER BY Sifra_Podg
            ELSE
                INSERT INTO #TmpKL (Sifra) SELECT Sifra2 FROM KatAsortLista WHERE Broj_ALista=@ZemiArtSamoOdAsortLst ORDER BY Reden_Broj

            SELECT P.*, KL.Rbr FROM Podgrupi P INNER JOIN Grupi G ON P.Sifra_Gr=G.Sifra_Gr INNER JOIN KatAsortLista L ON G.Sifra_Gr=L.Sifra1
            INNER JOIN #TmpKL KL ON P.Sifra_Podg=KL.Sifra WHERE L.Broj_ALista = @ZemiArtSamoOdAsortLst
        End
        ELSE IF @KatAsortPoSto='HA'
        Begin
            SELECT H.Sifra_KHier Sifra_Podg, H.Ime_KHier Ime_Podg, '001' as Sifra_Gr, 1 as Rbr FROM KatHier H
            INNER JOIN KatAsortLista L ON L.Sifra1=H.Sifra_KHier
        End
    End









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodnarzanar]'))
drop procedure [dbo].[sp_dajpodnarzanar]

Go






CREATE         Procedure sp_DajPodNarZaNar
(
    @Sifra_Oe    int=null,
    @Sifra_Nar    int=null,    --moze ili po narID ili po sifraOe-SifraNar/BrojNar
    @Broj_Nar    int=null,
    @NarID        int=null,
    @DaliDev    char(1)='N',
    @TipPodnar    char(1)=null,    --null site , D-samo DOPOLNA,P-SAMO PODELBI
    @Realiziran    char(1)=null,    --null site podnaracki, D-Samo Realizirani,N - nerealizirani i nezapocnatai
    @VkluciOrignal    char(1)='N'    --D ke ja vkluci i orignalnata naracka vo rezulatatot
)
AS
    Declare @@SQL as varchar(2000)
    Declare @@NarID as int

    IF @NarID IS NULL
        Begin
            IF @DaliDev ='D'
                Select @@NarID = DevNarID
                From DevNar
                Where Sifra_Oe = @Sifra_Oe AND Sifra_Nar = @Sifra_Nar AND Broj_DevN = @Broj_Nar
            ELSE
                Select @@NarID = NarID
                From Naracki
                Where Sifra_Oe = @Sifra_Oe AND Sifra_Nar = @Sifra_Nar AND Broj_Nar = @Broj_Nar
        End
    ELSE
        Set @@NarID = @NarID



    IF @@NarID > 0
      Begin
        Set @@SQL = 'SELECT N.NarID,N.Sifra_Oe,N.Sifra_Nar,N.Broj_Nar,N.Toc200,
            (N.Identif_Br+'' '' +N.TekstPosle) Opis ,Count(S.NarID) Stavki,
            NP.TipPodNar,NR.Realiziran ,NP.NarID_Orig , NR.DokrID , NP.DaliMat
        FROM NarPodNar NP
        INNER JOIN  Naracki N ON NP.NarID_PodNar = N.NarID
        INNER JOIN Stanarac S On S.NarID=N.NarID
        LEFT OUTER JOIN NarRealDok NR ON N.NarID =NR.NarID
        WHERE NarID_Orig = '+ cast(@@NarID as varchar(10)) + ' AND NP.Aktiven=''D'' '


        IF @Realiziran = 'D'     --SAMO REALIIRANI
            Set @@SQL = @@SQL + ' AND  NR.Realiziran =''D'' '
        ELSE IF @Realiziran = 'N'    --NEREALIZIRANI i NEPOCNATI
            Set @@SQL = @@SQL + ' AND  NR.Realiziran is null '

        IF @TipPodnar is not null
            Set @@SQL = @@SQL + ' AND  NP.TipPodNar ='''+@TipPodnar+''' '


        Set @@SQL = @@SQL + ' GROUP by N.NarID,N.Sifra_Oe,N.Sifra_Nar,N.Broj_Nar,N.Toc200,(N.Identif_Br+'' ''+N.TekstPosle), NP.TipPodNar, NR.Realiziran ,NP.NarID_Orig ,NR.DokrID ,NP.DaliMat '

        --ako sakame i orignalna
        IF @VkluciOrignal ='D'
            BEGIN
                Set @@SQL = @@SQL +  ' UNION
                SELECT N.NarID,N.Sifra_Oe,N.Sifra_Nar,N.Broj_Nar,N.Toc200,
                (N.Identif_Br+'' '' +N.TekstPosle) Opis ,Count(S.NarID) Stavki,
                ''O'',NR.Realiziran ,N.NarID ,NR.DokrID ,''D''
                From  Naracki N
                INNER JOIN Stanarac S On S.NarID=N.NarID
                LEFT OUTER JOIN NarRealDok NR ON N.NarID =NR.NarID
                WHERE N.NarID = '+ cast(@@NarID as varchar(10))

                IF @Realiziran = 'D'     --SAMO REALIIRANI
                    Set @@SQL = @@SQL + ' AND  NR.Realiziran =''D'' '
                ELSE IF @Realiziran = 'N'    --NEREALIZIRANI i NEPOCNATI
                    Set @@SQL = @@SQL + ' AND  NR.Realiziran is null '

                Set @@SQL = @@SQL + ' GROUP by N.NarID,N.Sifra_Oe,N.Sifra_Nar,N.Broj_Nar,N.Toc200,(N.Identif_Br+'' ''+N.TekstPosle),NR.Realiziran ,N.NarID ,NR.DokrID   '

            END


        EXEC (@@SQL)
      End











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodzaartponom]'))
drop procedure [dbo].[sp_dajpodzaartponom]

Go



CREATE    PROCEDURE sp_DajPodZaArtPoNom
    @Nom VARCHAR(50),
    @Sifra_Oe smallint = null
AS
    DECLARE @Sifra_Art VARCHAR(20)
    SELECT @Sifra_Art = Sifra_Art FROM ArkaKat WHERE Nom=@Nom
    IF @@ROWCOUNT < 1
        SELECT @Sifra_Art = Sifra_Art FROM ABarKod WHERE Nom=@Nom
    IF @Sifra_Art IS NOT NULL
        SELECT Sifra_Art, ImeArt, EdMera, CenaOsn as Cena FROM ArkaKat
    WHERE Sifra_Art = @Sifra_Art







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpodzatipdok]'))
drop procedure [dbo].[sp_dajpodzatipdok]

Go
create PROCEDURE [dbo].[sp_DajPodZaTipDok]
    @Sifra_Dok    smallint,
    @Sifra_Nal    smallint=NULL OUTPUT,
    @Broj_Nal    int=NULL OUTPUT,
    @Datum_Nal    smalldatetime=NULL OUTPUT,
    @Kto        varchar(10)=NULL OUTPUT
AS
Declare @Sts_Kniz char(1)

    SELECT @Sifra_Nal=Sifra_Nal, @Kto=SUBSTRING(KoeKto,1,4) FROM TipDok WHERE Sifra_Dok=@Sifra_Dok
    SELECT @Broj_Nal=MAX(Broj_Nal) FROM Nalozi WHERE Sifra_Nal=@Sifra_Nal
    IF @Broj_Nal IS NOT NULL
        SELECT @Sts_Kniz=Sts_Kniz, @Datum_Nal=Datum_Nal FROM Nalozi WHERE Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal
    ELSE SET @Broj_Nal=0

    IF @Broj_Nal=0 OR @Sts_Kniz='D'
    BEGIN
        SET @Broj_Nal=@Broj_Nal +1
        SET @Datum_Nal=dbo.fn_VratiDatum(GetDate())
        INSERT INTO Nalozi (Sifra_Nal, Broj_Nal, Datum_Nal, Sts_Kniz)
        VALUES (@Sifra_Nal, @Broj_Nal, @Datum_Nal, '')
    END




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpopis_komobj]'))
drop procedure [dbo].[sp_dajpopis_komobj]

Go
CREATE  PROCEDURE sp_DajPopis_KomObj
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Kup    char (6),
    @Sifra_Obj    char (6)
AS
    Declare @SSQL varchar(2000)
    Create Table #Art
    (
     Datum_Dok    smalldatetime,
     Broj_Dok    int,
     Rbr        Smallint,
     Sifra_Art    Varchar(20)
    )
    Insert Into #Art Select Min(Datum_Dok), Min(Broj_Dok), Min(Rbr), Sifra_Art
            From PopisDok
            Where Sifra_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and
                Datum_PopisDok >= @Datum_Od and Datum_PopisDok <= @Datum_Do and
                Sifra_Kup = @Sifra_Kup
            Group By Sifra_Art
    If @Sifra_Obj is null
        SELECT P.Sifra_Art, Sum(P.Ostaveno) as Zaliha
        From PopisDok P
        Inner Join #Art A On A.Sifra_Art = P.Sifra_Art
        Where P.Sifra_Oe = @Sifra_Oe and P.Sifra_Dok = @Sifra_Dok and
            P.Datum_PopisDok >= @Datum_Od and P.Datum_PopisDok <= @Datum_Do and
            P.Sifra_Kup = @Sifra_Kup
        Group By P.Sifra_Art, A.Datum_Dok, A.Broj_Dok, A.Rbr
        Order By A.Datum_Dok, A.Broj_Dok, A.Rbr
    Else
        SELECT P.Sifra_Art, Sum(P.Ostaveno) as Zaliha
        From PopisDok P
        Inner Join #Art A On A.Sifra_Art = P.Sifra_Art
        Where P.Sifra_Oe = @Sifra_Oe and P.Sifra_Dok = @Sifra_Dok and
            P.Datum_PopisDok >= @Datum_Od and P.Datum_PopisDok <= @Datum_Do and
            P.Sifra_Kup = @Sifra_Kup and P.Sifra_Obj = @Sifra_Obj
        Group By P.Sifra_Art, A.Datum_Dok, A.Broj_Dok, A.Rbr
        Order By A.Datum_Dok, A.Broj_Dok, A.Rbr



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajposlkomercuslpokup]'))
drop procedure [dbo].[sp_dajposlkomercuslpokup]

Go



CREATE    PROCEDURE sp_DajPoslKomercUslPoKup   --spec. samo za rok i rabat
    @Datum    smalldatetime = Null
AS
Set Nocount On
    IF @Datum IS NULL   SET @Datum=GetDate()
    CREATE TABLE #TmpSiteTipKup (Tip_Sif_Kup char(1), Sif_Kup_Gen varchar(11), MaxDatum smalldatetime)
    INSERT INTO #TmpSiteTipKup SELECT Tip_Sif_Kup, Sif_Kup_Gen, Max(Datum_Od) FROM Usl_Komerc_Per
    WHERE Datum_Od<= @Datum GROUP BY Tip_Sif_Kup, Sif_Kup_Gen
    CREATE TABLE #TmpUsl (Tip_Sif_Kup char(1), Sif_Kup_Gen varchar(11), Rok_Dosp smallint, Uces decimal(6,2))
    Declare @Tip_Sif_Kup char(1)
    Declare @Sif_Kup_Gen varchar(11)
    Declare @MaxDat smalldatetime
    Declare TabC Cursor Fast_Forward For Select Tip_Sif_Kup, Sif_Kup_Gen, MaxDatum From #TmpSiteTipKup
    Open TabC
    Fetch Next From TabC Into @Tip_Sif_Kup, @Sif_Kup_Gen, @MaxDat
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpUsl (Tip_Sif_Kup, Sif_Kup_Gen, Rok_Dosp, Uces)
        SELECT @Tip_Sif_Kup, @Sif_Kup_Gen, Rok_Dosp, Uces FROM dbo.fix_dajcenazadatum('I', @Tip_Sif_Kup, @Sif_Kup_Gen, '', '', @MaxDat)
        Fetch Next From TabC Into @Tip_Sif_Kup, @Sif_Kup_Gen, @MaxDat
    End
    Close TabC
    Deallocate TabC
    CREATE TABLE #TmpGotova (Sifra_Kup varchar(20), Sifra_Tip varchar(11), Rok_Dosp smallint, Rabat decimal(6,2))
    INSERT INTO #TmpGotova (Sifra_Kup, Rok_Dosp, Rabat) SELECT Sif_Kup_Gen, Rok_Dosp, Uces FROM #TmpUsl WHERE Tip_Sif_Kup='K'
    INSERT INTO #TmpGotova (Sifra_Tip, Rok_Dosp, Rabat) SELECT Sif_Kup_Gen, Rok_Dosp, Uces FROM #TmpUsl WHERE Tip_Sif_Kup='T'
    SELECT * FROM #TmpGotova
Set Nocount Off






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajposlkomercuslpokupipodelart]'))
drop procedure [dbo].[sp_dajposlkomercuslpokupipodelart]

Go

CREATE     PROCEDURE sp_DajPoslKomercUslPoKupIPodelArt   --spec. samo za rok i rabat
    @Datum    smalldatetime = Null
AS
Set Nocount On
    Declare @SSQL as varchar(5000)

    IF @Datum IS NULL   SET @Datum=GetDate()

    CREATE TABLE #TmpSiteTipKup (Tip_Sif_Kup char(1), Sif_Kup_Gen varchar(11), Tip_Sif_Art char(1), MaxDatum smalldatetime)

    Set @SSQL = ' INSERT INTO #TmpSiteTipKup
            SELECT Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art, Max(Datum_Od)
            FROM Usl_Komerc_Per
            WHERE Datum_Od<= ''' + Cast(@Datum as varchar(30)) + '''
            GROUP BY Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art '
    Exec(@SSQL)  -- napraveno so @SSQL 20.05.2010 zaradi sto javuvasse greska pri upgrade na bazite na sql2005 i sql2008

    CREATE TABLE #TmpUsl (Tip_Sif_Kup char(1), Sif_Kup_Gen varchar(11), Tip_Sif_Art char(1), Sif_Art_Gen varchar(11), Rok_Dosp smallint, Uces decimal(6,2))
    Declare @Tip_Sif_Kup char(1), @Tip_Sif_Art char(1)
    Declare @Sif_Kup_Gen varchar(11), @Sif_Art_Gen varchar(11)
    Declare @MaxDat smalldatetime
    Declare TabC Cursor Fast_Forward For Select Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art, MaxDatum From #TmpSiteTipKup
    Open TabC
    Fetch Next From TabC Into @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, @MaxDat
    While @@Fetch_Status = 0
    Begin
        Set @SSQL = ' SELECT ''' + @Tip_Sif_Kup + ''',''' + @Sif_Kup_Gen + ''',''' + @Tip_Sif_Art + ''', Sif_Art_Gen, Rok_Dosp, Uces
                FROM dbo.fix_dajcenazadatum(''I'', ''' + @Tip_Sif_Kup + ''',''' + @Sif_Kup_Gen + ''',''' + @Tip_Sif_Art + ''','''',''' + Cast(@MaxDat as varchar(30)) + ''')'   --trgnato 14.09.09, vrateno 04.11.09, treba za Multiprom
        INSERT INTO #TmpUsl (Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art, Sif_Art_Gen, Rok_Dosp, Uces) Exec(@SSQL)
        --SELECT @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, '', Rok_Dosp, Uces FROM dbo.fix_dajcenazadatum('I', @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art,'', @MaxDat)
        Fetch Next From TabC Into @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, @MaxDat
    End
    Close TabC
    Deallocate TabC
    CREATE TABLE #TmpGotova (Sifra_Kup char(6), Sifra_Tip varchar(11), Sifra_Podelba varchar(20), Rok_Dosp smallint, Rabat decimal(6,2))
    INSERT INTO #TmpGotova (Sifra_Kup, Sifra_Podelba, Rok_Dosp, Rabat) SELECT Sif_Kup_Gen, Sif_Art_Gen, Rok_Dosp, Uces FROM #TmpUsl WHERE Tip_Sif_Kup='K'
    INSERT INTO #TmpGotova (Sifra_Tip, Sifra_Podelba, Rok_Dosp, Rabat) SELECT Sif_Kup_Gen, Sif_Art_Gen, Rok_Dosp, Uces FROM #TmpUsl WHERE Tip_Sif_Kup='T'
    SELECT * FROM #TmpGotova
Set Nocount Off


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajpotrkolicsonajstarlot]'))
drop procedure [dbo].[sp_dajpotrkolicsonajstarlot]

Go

--use wtrg
CREATE   PROCEDURE sp_DajPotrKolicSoNajstarLot
    @Sifra_OE    smallint,
    @Sifra_Art    varchar(20),
    @PotrKolic    decimal(18,6)
AS
CREATE TABLE #TmpZalPoLot
(LotBr        varchar(50),
Sostojba    decimal(18,4),
OK            char(1))
INSERT INTO #TmpZalPoLot (LotBr, Sostojba) SELECT LotBr, Sostojba FROM SoMag
WHERE Sifra_Oe=@Sifra_Oe AND Sifra_Art=@Sifra_Art AND Sostojba>0 ORDER BY LotBr
Declare @VkKol decimal(18,6)
SET @VkKol =0
Declare @Sostojba decimal(18,6)
Declare @LotBr varchar(50)
Declare TabLS Cursor Fast_Forward For Select LotBr, Sostojba From #TmpZalPoLot
    Open TabLS
    Fetch Next From TabLS Into @LotBr, @Sostojba
    While @@Fetch_Status = 0
    Begin
        IF @PotrKolic>0
        Begin
            IF @PotrKolic>=@Sostojba
                SET    @PotrKolic = @PotrKolic - @Sostojba
            ELSE
                Begin
                    UPDATE #TmpZalPoLot SET Sostojba=@PotrKolic WHERE LotBr=@LotBr
                    SET @PotrKolic = 0
                End
            UPDATE #TmpZalPoLot SET Ok='D' WHERE LotBr=@LotBr
        End
        Fetch Next From TabLS Into @LotBr, @Sostojba
    End
    Close TabLS
    Deallocate TabLS
DELETE FROM #TmpZalPoLot WHERE OK IS NULL
SELECT * FROM #TmpZalPoLot ORDER BY LotBr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajprodmestvoured]'))
drop procedure [dbo].[sp_dajprodmestvoured]

Go
CREATE PROCEDURE sp_DajProdMestVoUred
    @Sifra_Pat    smallint,
    @Sifra_Grad    smallint=NULL,
    @Sifra_Reg    smallint=NULL,
    @PatOdKomintPat    char(1)='N'
AS

CREATE TABLE #TmpKup (Sifra_Kup char(6), Sifra_Obj smallint)

If @Sifra_Pat IS NOT NULL
Begin
    IF @PatOdKomintPat='D'
    Begin
        INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT P.Sifra_Kup, P.Sifra_Obj FROM KomintPat P INNER JOIN Komint K ON P.Sifra_Kup=K.Sifra_Kup
        WHERE P.Sifra_Pat = @Sifra_Pat AND (K.Aktiven IS NULL OR K.Aktiven <>'N')
    End
    ELSE
    Begin
        INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT Sifra_Kup, NULL FROM Komint
        WHERE (Aktiven IS NULL OR Aktiven <>'N') AND (Sifra_Pat = @Sifra_Pat OR Sifra_Pat2= @Sifra_Pat)

        INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT O.Sifra_Kup, O.Sifra_Obj FROM KObjekti O INNER JOIN Komint K ON O.Sifra_Kup=K.Sifra_Kup
        WHERE (K.Aktiven IS NULL OR K.Aktiven <>'N') AND (O.Sifra_Pat= @Sifra_Pat OR O.Sifra_Pat2= @Sifra_Pat) AND O.Sifra_Obj>0
    End
End

IF @Sifra_Grad IS NOT NULL
Begin
    INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT Sifra_Kup, NULL FROM Komint WHERE Sifra_Grad = @Sifra_Grad AND (Aktiven IS NULL OR Aktiven <>'N')
    INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT O.Sifra_Kup, O.Sifra_Obj FROM KObjekti O INNER JOIN Komint K ON O.Sifra_Kup=K.Sifra_Kup
            Where O.Sifra_Grad = @Sifra_Grad AND (K.Aktiven IS NULL OR K.Aktiven <>'N') AND O.Sifra_Obj>0
End
If @Sifra_Reg IS NOT NULL
Begin
    INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT Sifra_Kup, NULL FROM Komint WHERE Sifra_Reg = @Sifra_Reg AND (Aktiven IS NULL OR Aktiven <>'N')
    INSERT INTO #TmpKup (Sifra_Kup, Sifra_Obj) SELECT O.Sifra_Kup, O.Sifra_Obj FROM KObjekti O INNER JOIN Komint K ON O.Sifra_Kup=K.Sifra_Kup
            Where O.Sifra_Reg = @Sifra_Reg AND (K.Aktiven IS NULL OR K.Aktiven <>'N') AND O.Sifra_Obj>0
End

CREATE TABLE #TmpKup1 (Sifra_Kup char(6), Sifra_Obj smallint)
INSERT INTO #TmpKup1 SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #TmpKup

SELECT P.Sifra_Mest SMst, P.Sifra_Kup Kup, P.Sifra_Obj Obj, P.Opis, P.BarKod FROM ProdMest P
INNER JOIN #TmpKup1 T ON P.Sifra_Kup=T.Sifra_Kup WHERE P.Sifra_Obj IS NULL
UNION
SELECT P.Sifra_Mest SMst, P.Sifra_Kup, P.Sifra_Obj, P.Opis, P.BarKod FROM ProdMest P
INNER JOIN #TmpKup1 T ON P.Sifra_Kup=T.Sifra_Kup AND T.Sifra_Obj=P.Sifra_Obj WHERE P.Sifra_Obj IS NOT NULL



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajprometvooe]'))
drop procedure [dbo].[sp_dajprometvooe]

Go


CREATE        PROCEDURE sp_DajPrometVoOE
    @Sifra_OE    Smallint,
    @Sifra_Prim  Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @OE_Red     Smallint,
    @OE_Dr        Smallint,
    @RedMora    Decimal(18,6)  OUTPUT,
    @RedMoze   Decimal(18,6)  OUTPUT,
    @DrMora       Decimal(18,6)  OUTPUT,
    @DrMoze      Decimal(18,6)  OUTPUT
AS
    Declare @SSQL As Varchar(2000)
    CREATE       Table #tPromet
    (Sifra_Art          varchar(20),
     ImeArt             varchar(50),
     Sifra_Tar         char(3),
     ProcOsn         decimal(6,2),
     Vrednost         decimal(18,6),
     Kolic               decimal(18,6),
     Red_Vlez       decimal(18,6),
     Red_Kolic      decimal(18,6),
     Red_Mora      decimal(18,6),
     Red_Moze     decimal(18,6),
     Dr_Vlez          decimal(18,6),
     Dr_Kolic         decimal(18,6),
     Dr_Mora         decimal(18,6),
     Dr_Moze        decimal(18,6),
              Lokacija         varchar(15),
              MagVr            decimal(18,6)
    )
                                --(Sifra_Art, ImeArt, Vrednost, Kolic)
    Set @SSQL = 'INSERT INTO #tPromet
    SELECT S.Sifra_Art, A.ImeArt, A.Sifra_Tar, T.ProcOsn,
    SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, ''D'')) As Vrednost, SUM(S.Kolic) As Kolic,0,0,0,0,0,0,0,0,A.Lokacija,
             SUM(dbo.fn_VratiVredIzl(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0, ''D'')) As MagVr
    FROM Stavr S
    INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    INNER JOIN Tarifi  T ON A.Sifra_Tar = T.Sifra_Tar
    WHERE S.Sifra_OE= ' + Cast(@Sifra_OE As varchar(5)) + ' AND S.VlIzl = ''I'' AND S.Datum_Dok >= ''' + Cast(@Datum_Od As varchar(35)) +
    ''' AND S.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(35)) +'''  AND '
    If @Sifra_Prim IS NULL
        Set @SSQL = @SSQL + 'S.Sifra_Prim IS NULL '
    Else
        Set @SSQL = @SSQL + 'S.Sifra_Prim = ' + Cast(@Sifra_Prim As varchar(5))
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art, A.ImeArt, A.Sifra_Tar, T.ProcOsn, A.Lokacija'
    EXEC (@SSQL)
    UPDATE #tPromet SET Red_Vlez = SoArt.Vlez, Red_Kolic = SoArt.Vlez - SoArt.Izlez
    FROM SoArt
    WHERE SoArt.Sifra_OE = @OE_Red AND SoArt.Sifra_Art = #tPromet.Sifra_Art
    UPDATE #tPromet SET Dr_Vlez = SoArt.Vlez, Dr_Kolic = SoArt.Vlez - SoArt.Izlez
    FROM SoArt
    WHERE SoArt.Sifra_OE = @OE_Dr AND SoArt.Sifra_Art = #tPromet.Sifra_Art
    UPDATE #tPromet SET Red_Mora = Vrednost
    WHERE Red_Vlez > 0 AND Dr_Vlez <= 0
    UPDATE #tPromet SET Dr_Mora = Vrednost
    WHERE Dr_Vlez > 0 AND Red_Vlez <= 0
    UPDATE #tPromet SET Red_Moze =
        CASE
        WHEN Kolic > Red_Kolic THEN Vrednost/Kolic * Red_Kolic
        ELSE Vrednost
        END,
        Dr_Moze =
        CASE
        WHEN Kolic > Dr_Kolic THEN Vrednost/Kolic * Dr_Kolic
        ELSE Vrednost
        END
    WHERE Kolic <> 0
    SELECT @RedMora  = SUM(Red_Mora), @RedMoze = SUM(Red_Moze), @DrMora = SUM(Dr_Mora), @DrMoze = SUM(Dr_Moze)
    FROM #tPromet
    SELECT * FROM #tPromet ORDER BY ImeArt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrabat_kup_podel]'))
drop procedure [dbo].[sp_dajrabat_kup_podel]

Go

create  PROCEDURE sp_DajRabat_Kup_Podel
    @Sifra_Art    varchar(20),
    @Sifra_Kup    varchar(6),
    @KojaPodel    char(1),
    @Uces        decimal(6,2) OUTPUT,
    @Uces2        decimal(6,2) OUTPUT,
    @Uces3        decimal(6,2) OUTPUT
AS

    Declare @Podel    varchar(20)

    if @KojaPodel = '1'
        SELECT @Podel = Drugo1
        FROM KatArt
        WHERE Sifra_Art = @Sifra_Art
    else if @KojaPodel = '2'
        SELECT @Podel = Drugo2
        FROM KatArt
        WHERE Sifra_Art = @Sifra_Art
    else if @KojaPodel = '7'
        SELECT @Podel = Drugo7
        FROM KatArt
        WHERE Sifra_Art = @Sifra_Art

    SELECT @Uces = Uces, @Uces2 = Uces2, @Uces3 = Uces3
    FROM  CenPoPodgr
    WHERE Tip_Podelba = 'A' and TipKup = @Sifra_Kup and Sifra_Podelba = @Podel
    -- Vo princip Tip_Podelba ne ni treba, ama radi INDEXOT taka e MNOGU pobrzo





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrabatzatipkup]'))
drop procedure [dbo].[sp_dajrabatzatipkup]

Go

CREATE  PROCEDURE sp_DajRabatZaTipKup
    @Sifra_Art        varchar(20),
    @TipKup            varchar(11),
    @TipPodelArt    char(1)='P',
    @Uces            decimal(6,2) OUTPUT,
    @Uces2            decimal(6,2) OUTPUT,
    @Uces3            decimal(6,2) OUTPUT
AS
    Declare @Podgr    varchar(20)
    IF @TipPodelArt='B'
        SELECT @Podgr = Sifra_Drg FROM KatArt WHERE Sifra_Art = @Sifra_Art
    ELSE
        SELECT @Podgr = Sifra_Podg FROM KatArt WHERE Sifra_Art = @Sifra_Art
    SELECT @Uces = Uces, @Uces2 = Uces2, @Uces3 = Uces3
    FROM  CenPoPodgr
    WHERE TipKup = @TipKup AND Sifra_Podelba = @Podgr





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrabatzatipkupdelpodg]'))
drop procedure [dbo].[sp_dajrabatzatipkupdelpodg]

Go


CREATE   PROCEDURE sp_DajRabatZaTipKupDelPodg
    @Sifra_Art    varchar(20),
    @Sifra_Kup    char(6),
    @TocnoZaKup    char(1)='N',
    @Uces        decimal(6,2) OUTPUT
AS
    Declare @Podgr    varchar(20), @Rabat_Dali char(1)
    SELECT @Podgr = Sifra_Podg, @Rabat_Dali=Rabat_Dali FROM KatArt WHERE Sifra_Art = @Sifra_Art
    IF @Rabat_Dali='N'  --go ima i vo MaskStavr, ama za sekoj slucaj
    Begin
        SET @Uces=0
        RETURN
    End

    Declare @TipKup    varchar(11)
    If @TocnoZaKup='D'
        SET @TipKup=@Sifra_Kup
    ELSE
        SELECT @TipKup=TipKup FROM Komint WHERE Sifra_Kup=@Sifra_Kup

    Declare @iLen integer
    SET @iLen = Len(@Podgr)

WHILE @iLen > 0
Begin
    SELECT @Uces = Uces    FROM  CenPoPodgr
    WHERE TipKup = @TipKup AND Sifra_Podelba = @Podgr

    IF @@RowCount=1 RETURN
    SET @iLen = @iLen - 1
    SET @Podgr = Substring(@Podgr, 1, @iLen)
End





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrazlcenazaazur]'))
drop procedure [dbo].[sp_dajrazlcenazaazur]

Go



CREATE    PROCEDURE sp_DajRazlCenaZaAzur
    @Sifra_OE Smallint=Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint=Null
AS
Declare @SSQL Varchar(4000)
Set @SSQL = 'SELECT D.*, T.Sif_GrDok  FROM RazlCeni D INNER JOIN TipDok T ON D.Sifra_Razl=T.Sifra_Dok
    WHERE D.Broj_Nal IS NULL AND D.Sifra_Razl = ' + cast(@Sifra_Dok as varchar(5)) +
    ' AND D.Kolic <> 0 AND Sifra_Art  IN (SELECT Sifra_Art FROM KatArt WHERE SMatUsl=''M'') AND D.SIFRA_OE '
If @Sifra_OE IS NULL
    Set @SSQL =  @SSQL + 'IN (SELECT Sifra_OE FROM ORGED WHERE OrgDaliFin = ''D'')'
Else
    Set @SSQL =  @SSQL + '= ' + Cast (@Sifra_OE as varchar(5))
If @Datum_Od Is NOT Null
    SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
If @Datum_Do Is NOT Null
    SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
SET @SSQL = @SSQL + ' ORDER BY D.Sifra_OE, D.Datum_Dok, D.Sifra_Razl '
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrutiplan]'))
drop procedure [dbo].[sp_dajrutiplan]

Go

CREATE  Procedure sp_DajRutiPlan
    @Sifra_pat smallint
As
CREATE TABLE #TmpDat
(Datum_Od smalldatetime,
DenOdNedela char(1))
INSERT INTO #TmpDat SELECT MAX(Datum_Od), DenOdNedela FROM RutiPlan
WHERE Datum_Od<=GetDate() AND Sifra_Pat=@Sifra_Pat GROUP BY DenOdNedela

Select R.* from RutiPlan R INNER JOIN #TmpDat T ON R.Datum_Od=T.Datum_Od AND R.DenOdNedela=T.denOdNedela
where Sifra_pat=@Sifra_Pat ORDER BY R.DenOdnedela , R.Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajrutizadatum]'))
drop procedure [dbo].[sp_dajrutizadatum]

Go

CREATE  PROCEDURE sp_DajRutiZaDatum
    @Sifra_Pat smallint
As
Declare @Denes as smalldatetime
set @denes = dbo.fn_VratiDatum(GetDate())

Select *, dbo.fn_VratiDatumStringSoCrti (Datum) DatumStr from RutiZaDatum
where Sifra_pat=@Sifra_Pat and Datum=@Denes




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsaldokupzawebnarac]'))
drop procedure [dbo].[sp_dajsaldokupzawebnarac]

Go

CREATE  PROCEDURE sp_DajSaldoKupZaWEBNarac
    @Kto char(10) = null
AS
SELECT Sifra_Kup, SUM(Dolzi-Pobaruva) as Saldo FROM AnFinDok WHERE Sifra_Za=1 GROUP BY Sifra_Kup Order by Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsledenbrdokrzb]'))
drop procedure [dbo].[sp_dajsledenbrdokrzb]

Go
CREATE PROCEDURE sp_DajSledenBrDokrZb
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @DoBroj        int=NULL,
    @Broj_Dok    int=NULL OUTPUT
AS
IF @DoBroj IS NULL
    SELECT @Broj_Dok=MAX(Broj_Dok) FROM DokrZb WHERE Sifra_OE = @Sifra_OE and Sifra_Dok = @Sifra_Dok
ELSE
    SELECT @Broj_Dok=MAX(Broj_Dok) FROM DokrZb WHERE Sifra_OE = @Sifra_OE and Sifra_Dok = @Sifra_Dok AND Broj_Dok<@DoBroj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsledenbrizjava]'))
drop procedure [dbo].[sp_dajsledenbrizjava]

Go

CREATE PROCEDURE sp_DajSledenBrIzjava
    @Sifra_Oe    smallint,
    @Broj_Izjava    int=0 OUTPUT
AS
SELECT @Broj_Izjava=MAX(Broj_Izjava) FROM VozIzjava WHERE Sifra_oe=@Sifra_oe





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsledenbrrabnal]'))
drop procedure [dbo].[sp_dajsledenbrrabnal]

Go


CREATE   PROCEDURE sp_DajSledenBrRabNal
    @Sifra_OERab    smallint,
    @DaliPomosen    char(1)=NULL,
    @DoBroj            int=NULL,
    @Broj_RabN        int Output
AS
IF @DoBroj IS NULL SET @DoBroj=1000000
If @DaliPomosen = 'D'
    SELECT @Broj_RabN=MAX(Broj_RabN) FROM RabNal WHERE Pomosen = 'D' and Sifra_OERab = @Sifra_OERab AND Broj_RabN<@DoBroj
Else If @DaliPomosen = 'N'
    SELECT @Broj_RabN=MAX(Broj_RabN) FROM RabNal WHERE (Pomosen <> 'D' or Pomosen is null) and Sifra_oerab = @Sifra_OERab AND Broj_RabN<@DoBroj
Else
    SELECT @Broj_RabN=MAX(Broj_RabN) FROM RabNal WHERE Sifra_oerab = @Sifra_OERab AND Broj_RabN<@DoBroj






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsledenxfpredmet]'))
drop procedure [dbo].[sp_dajsledenxfpredmet]

Go
CREATE PROCEDURE sp_DajSledenXFPredmet
AS
    Select Max(Broj_Predmet) MaxBrPredmet From XFPredmet



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajslednasifart]'))
drop procedure [dbo].[sp_dajslednasifart]

Go
CREATE PROCEDURE sp_DajSlednaSifArt
    @Sifra_Art varchar(20),
    @Sledna_Sifra varchar(20) OUTPUT
AS
    Declare @Br as int
    Declare @iSifra as int
    SET @Br = 1
    SET @iSifra = Cast(@Sifra_Art as int) + 1
While @Br < 100
Begin
    SET  Nocount On
    SELECT * FROM KatArt WHERE Sifra_Art = @iSifra
    IF @@RowCount = 0
    Begin
        SET @Sledna_Sifra = Cast(@iSifra as varchar(20))
        RETURN
    End
    SET @Br = @Br + 1
    SET @iSifra = @iSifra + 1
    SET  Nocount Off
End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajslednasifkup]'))
drop procedure [dbo].[sp_dajslednasifkup]

Go
CREATE PROCEDURE sp_DajSlednaSifKup
    @Sifra_Kup char(6),
    @Sledna_Sifra varchar(6) OUTPUT
AS
    Declare @Br as int
    Declare @iSifra as int
    SET @Br = 1
    SET @iSifra = Cast(@Sifra_Kup as int) + 1
While @Br < 100
Begin
    SET  Nocount On
    SELECT * FROM Komint WHERE Sifra_Kup = @iSifra
    IF @@RowCount = 0
    Begin
        SET @Sledna_Sifra = Cast(@iSifra as varchar(6))
        RETURN
    End
    SET @Br = @Br + 1
    SET @iSifra = @iSifra + 1
    SET  Nocount Off
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsoartzawebnarac]'))
drop procedure [dbo].[sp_dajsoartzawebnarac]

Go


CREATE           PROCEDURE sp_DajSoArtZaWEBNarac
    @Sifra_OE varchar(100),
    @ZemiArtSamoOdAsortLst    smallint=NULL,
    @KatAsortPoSto            varchar(5)=NULL,
    @SamoVoPDA                char(1)=NULL,
    @ZalOdKade    char(1)='K'        --K-od katart, O-od OptZalPoOE t.e po org.ed.
AS
Declare @SSQL varchar(3000)

CREATE TABLE #TmpOE (Sifra_OE smallint)
SET @SSQL='SELECT Sifra_OE FROM OrgED WHERE Sifra_OE IN ('+@Sifra_OE+')'
INSERT INTO #TmpOE EXEC (@SSQL)
Declare @Sifra_OE_Prva as smallint
SELECT Top 1 @Sifra_OE_Prva = Sifra_OE FROM #TmpOE ORDER BY Sifra_OE

CREATE TABLE #TmpArt
(Sifra_Art varchar(20))

SET @SSQL = 'Select K.Sifra_Art From katart K'
IF @ZemiArtSamoOdAsortLst IS NOT NULL
Begin
    IF @KatAsortPoSto = 'GP'
        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg
        INNER JOIN KatAsortLista L ON L.Sifra1=P.Sifra_Gr
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
    ELSE IF @KatAsortPoSto = 'HA'
        SET @SSQL = @SSQL + ' INNER JOIN KatAsortLista L ON L.Sifra1=K.Sifra_KHier
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
    ELSE IF @KatAsortPoSto = 'DP'
        SET @SSQL = @SSQL + ' INNER JOIN KatAsortLista L ON L.Sifra1=K.Kto
         WHERE L.Broj_ALista = ' + cast(@ZemiArtSamoOdAsortLst as varchar(5))
End
ELSE
    SET @SSQL = @SSQL + ' WHERE 1=1 '
IF @SamoVoPDA IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.VoPDA='''+@SamoVoPDA +''''
INSERT INTO #TmpArt EXEC (@SSQL)

CREATE TABLE #TmpSoArt
(Sifra_Art    varchar(20),
Zaliha        decimal(18,6))
INSERT INTO #TmpSoArt SELECT Sifra_Art, SUM(Vlez-Izlez) FROM Soart WHERE Sifra_Oe IN (SELECT Sifra_OE FROM #TmpOE) GROUP BY Sifra_Art

IF @ZalOdKade='K'
    SELECT  @Sifra_OE_Prva Sifra_Oe, S.Sifra_Art,S.Zaliha,
          CASE
             WHEN (S.Zaliha) >= K.SOpt_Sost THEN 1
             WHEN (S.Zaliha) < K.SOpt_Sost AND (S.Zaliha) >= K.SMin_Sost THEN 2
             ELSE 3
          END as Status_Zaliha
    FROM #TmpSoArt S INNER JOIN #TmpArt A ON S.Sifra_Art=A.Sifra_Art
    LEFT OUTER JOIN KatArt K ON S.Sifra_Art=K.Sifra_Art
ELSE
    SELECT @Sifra_OE_Prva Sifra_Oe, S.Sifra_Art, S.Zaliha,
          CASE
             WHEN (S.Zaliha) >= O.OptZal THEN 1
             WHEN (S.Zaliha) < O.OptZal AND (S.Zaliha) >= O.MinZal THEN 2
             ELSE 3
          END as Status_Zaliha
    FROM #TmpSoArt S INNER JOIN #TmpArt A ON S.Sifra_Art=A.Sifra_Art
    LEFT OUTER JOIN OptZalPoOE O ON S.Sifra_Art=O.Sifra_Art AND O.Sifra_OE=@Sifra_OE_Prva

SET QUOTED_IDENTIFIER OFF










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajsomagzaart]'))
drop procedure [dbo].[sp_dajsomagzaart]

Go
CREATE PROCEDURE sp_DajSoMagZaArt
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @KoiArt        char(1)='P'  --P-pozitivna zal, N-negativna, S-Site, 0-0zaliha
AS
IF @KoiArt='P'
    SELECT LotBr, Sostojba FROM SoMag WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art AND Sostojba>0 ORDER BY LotBr
ELSE IF @KoiArt='N'
    SELECT LotBr, Sostojba FROM SoMag WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art AND Sostojba<0 ORDER BY LotBr
ELSE IF @KoiArt='0'
    SELECT LotBr, Sostojba FROM SoMag WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art AND Sostojba=0 ORDER BY LotBr
ELSE
    SELECT LotBr, Sostojba FROM SoMag WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art ORDER BY LotBr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajstavkiodtmpimportzl]'))
drop procedure [dbo].[sp_dajstavkiodtmpimportzl]

Go


CREATE    PROCEDURE [dbo].[sp_DajStavkiOdTmpImportZL]
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS

    SELECT    *
    FROM    TmpImportZL
    WHERE    Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok AND Datum_Dok > '1/31/2012'


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajstavkiodtmpmobi]'))
drop procedure [dbo].[sp_dajstavkiodtmpmobi]

Go


CREATE      PROCEDURE sp_DajStavkiOdTmpMobi
    @BrSaldo int
AS
    SELECT M.*, A.Sifra_Tar, A.DogCena, T.ProcOsn, S.NNabCena FROM TmpMobi M
    LEFT OUTER JOIN KatArt A ON A.Sifra_Art=M.Sifra_Art
    LEFT OUTER JOIN Tarifi T ON T.Sifra_Tar=A.Sifra_Tar
    LEFT OUTER JOIN SoArt S ON S.Sifra_Art=A.Sifra_Art AND S.Sifra_OE=1
    LEFT OUTER JOIN Komint K ON M.Sifra_kup=K.Sifra_Kup
    LEFT OUTER JOIN KObjekti O ON M.Sifra_kup=O.Sifra_Kup AND M.ProdMest=O.Sifra_Obj
    WHERE M.BrSaldo = @BrSaldo     Order by M.Rbr
--Case M.ProdMest When 0 Then K.Sifra_Pat Else O.Sifra_Pat End AS Sifra_Pat FROM TmpMobi M bese do 22.11.07




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajstavkitouch]'))
drop procedure [dbo].[sp_dajstavkitouch]

Go
CREATE    PROCEDURE sp_DajStavkiTouch
    @Sifra_GrpIzb CHAR(10)=NULL
AS
DECLARE @SSQL AS VARCHAR(500)
SET @SSQL = 'SELECT N.*, I.Ime_GrpIzb, K.ImeArt, K.DogCena FROM GrpIzborNiza N
    LEFT OUTER JOIN GrpIzbor I ON N.Sifra_Nar_Izb=I.Sifra_GrpIzb
    LEFT OUTER JOIN Katart K ON N.Sifra_Nar_Art=K.Sifra_Art '
IF @Sifra_GrpIzb IS NOT NULL AND @Sifra_GrpIzb <> ''
    SET @SSQL = @SSQL + ' WHERE N.Sifra_GrpIzb = ''' + @Sifra_GrpIzb + ''''
SET @SSQL = @SSQL + ' ORDER BY N.Reden_Izb '
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajstavrzamob]'))
drop procedure [dbo].[sp_dajstavrzamob]

Go



CREATE    PROCEDURE sp_DajStavrZaMob
    @Sifra_Pat As smallint,
    @KoiOe As varchar(200),
    @KoiTipDok As varchar(200),
    @Datum_Od As smalldatetime,
    @Sifra_Kup char(6)=NULL
AS
    DECLARE @SSQL varchar(2000)
    SET @SSQL = 'SELECT DokrId, Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_Art, Kolic,
                DokCena, Uces, KontrSer, UcesOsn, UcesKol, UcesDod, KontrSer, Tros
                FROM Stavr WHERE DokrID IN (SELECT DokrID FROM Dokr WHERE Datum_Dok >='''+cast(@Datum_Od as varchar(35))+''' '
    IF @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Pat='+cast(@Sifra_Pat as varchar(5))
    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE IN ('''+@KoiOe+''') '
    IF @KoiTipDok IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Dok IN ('''+@KoiTipDok+''') '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup='+@Sifra_Kup
        SET @SSQL = @SSQL + ')'
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajtekcenazapercen]'))
drop procedure [dbo].[sp_dajtekcenazapercen]

Go




CREATE    PROCEDURE sp_DajTekCenaZaPerCen
    @Sifra_TipC    smallint,
    @Sifra_Art    Varchar(20),
    @Cena        decimal(18,6) OUTPUT,
    @NabCena    decimal(18,6) OUTPUT,
    @Rabat        decimal(6,2)=0 OUTPUT
AS
Declare @Sifra_OE smallint
SELECT TOP 1 @Sifra_OE=Sifra_OE FROM TipPerCenVaziZa WHERE Sifra_TipC=@Sifra_TipC
    SELECT  @Cena=Case S.DanCena When 'D' Then S.Cena Else S.Cena/(1+S.POsn/100) End, @NabCena=K.Nabavna
    FROM Soart S INNER JOIN KatArt K ON S.Sifra_Art=K.Sifra_Art
    WHERE S.Sifra_Art=@Sifra_Art AND S.Sifra_OE=@Sifra_OE





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajtipdok]'))
drop procedure [dbo].[sp_dajtipdok]

Go

CREATE PROCEDURE sp_DajTipDok
As
    Select Sifra_Dok, ImeDok NazivDok from TipDok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajtipdokzaazur]'))
drop procedure [dbo].[sp_dajtipdokzaazur]

Go




CREATE     PROCEDURE sp_DajTipDokZaAzur
    @Sifra_Dok    smallint= Null,
    @KoiSifri    varchar(100)=Null
AS
    Declare @SSQL as varchar(1000)
SET @SSQL = 'SELECT Sifra_Dok, Sifra_Nal, KoeKto, AnalKupDob, Sif_GrDok, Dev, Vl_Izl, ImaDanok, Dali_Accru, Kom_I_Prim, Sifra_Za
FROM TIPDOK WHERE DaliFin = ''D'' AND Anal_Prof <> ''D'' '
IF @Sifra_Dok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Dok='+cast(@Sifra_Dok as varchar(5))
IF @KoiSifri IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Dok IN ('+@KoiSifri+')'
CREATE TABLE #TmpTD
(Sifra_Dok    smallint,
Sifra_Nal    smallint,
KoeKto        varchar(50),
AnalKupDob    char(1),
Sif_GrDok    char(3),
Dev            char(1),
Vl_Izl        char(1),
ImaDanok    char(1),
Dali_Accru     char(1),
Kom_I_Prim    char(1),
Sifra_Za    char(1))
INSERT INTO #TmpTD EXEC(@SSQL)
IF @Sifra_Dok IS NOT NULL
Begin
    Declare @Zb as char(1)
    SELECT @Zb = Dali_Accru FROM TipDok WHERE Sifra_Dok=@Sifra_Dok
    IF @Zb = 'D'
        INSERT INTO #TmpTD SELECT Sifra_Dok, Sifra_Nal, KoeKto, AnalKupDob, Sif_GrDok, Dev, Vl_Izl, ImaDanok, Dali_Accru, Kom_I_Prim, Sifra_Za
        FROM TIPDOK WHERE DaliFin = 'D' AND Anal_Prof <> 'D' AND Sifra_Dok IN
        (SELECT DISTINCT Sifra_Dok FROM Dokr WHERE DokrID IN
        (SELECT DokrID FROM DokrZbSta WHERE DokrZbID IN (SELECT DokrZbID FROM DokrZb WHERE Sifra_Dok=@Sifra_Dok)))
End
SELECT * FROM #TmpTD ORDER BY replace(Dali_Accru,'D', 'Z') DESC, Sifra_Dok





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajtipnarzaprik]'))
drop procedure [dbo].[sp_dajtipnarzaprik]

Go
CREATE PROCEDURE sp_DajTipNarZaPrik
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Sifra_Nar    smallint OUTPUT
AS
SELECT @Sifra_Nar=Sifra_Nar FROM TipNarac WHERE OdiVo_Sifra_OE=@Sifra_OE AND OdiVo_Sifra_Dok=@Sifra_Dok
IF @Sifra_Nar IS NULL
    SELECT @Sifra_Nar=Sifra_Nar FROM TipNarac WHERE OdiVo_Sifra_Dok=@Sifra_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajvkteztroszarabnal]'))
drop procedure [dbo].[sp_dajvkteztroszarabnal]

Go
CREATE PROCEDURE sp_DajVkTezTrosZaRabNal
    @DokrID int,
    @VkTezinaTros decimal(18,6) = 0 OUTPUT
AS
    DECLARE @RabNalID int
    SELECT @RabNalID = RabNalID FROM DokRabNal WHERE DokrID=@DokrID
CREATE TABLE #TmpDokrIDIzlez
(DokrID    int)
INSERT INTO #TmpDokrIDIzlez SELECT DokrID FROM DokRabNal WHERE RabNalID=@RabNalID AND Tip_Rabstav='T'
SELECT @VkTezinaTros = SUM(Kolic) FROM Stavr WHERE DokrID IN (SELECT DokrID FROM #TmpDokrIDIzlez)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajwhmpriviloper]'))
drop procedure [dbo].[sp_dajwhmpriviloper]

Go
CREATE PROCEDURE sp_DajWhmPrivilOper

    @Sifra_Oper        smallint,
    @Sifra_Oe_Whm    smallint,
    @ImePrivilWhm        varchar(30),
    @Moze_Vlez        char(1) = Null Output,
    @Opc_Spec1        varchar(10) = Null Output,
    @Opc_Spec2        varchar(10) = Null Output
AS

    Select @Moze_Vlez=Moze_Vlez, @Opc_Spec1=Opc_Spec1, @Opc_Spec2=Opc_Spec2
    From WhmPrivOper
    Where Sifra_Oper=@Sifra_Oper And Sifra_Oe_Whm=@Sifra_Oe_Whm And ImePrivilWhm=@ImePrivilWhm

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajwhmsostzapromsost]'))
drop procedure [dbo].[sp_dajwhmsostzapromsost]

Go
CREATE    PROCEDURE [dbo].[sp_DajWhmSostZaPromSost]
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar (20),
    @Sifra_KatStatus smallint = null,
    @Lokac_ID    varchar (30)=null
AS
DECLARE @SSQL as varchar(8000)
SET @SSQL='Select W.*,KS.ImeKatStatus,L.Lokac_Ime, K.ImaKomerc
          from WhmSost W
          left outer join KatStatus KS
    On W.Sifra_KatStatus = KS.Sifra_KatStatus
    left outer join WHMLokacija as L
    on L.Lokac_ID=W.Lokac_ID
    inner join KatArt K ON W.Sifra_Art = K.Sifra_Art
    where W.Sifra_Oe=' + cast(@Sifra_Oe as varchar(5)) + 'and W.Sifra_Art=' + @Sifra_Art +' and W.Sostojba<>0 '
if @Sifra_KatStatus is not null
    SET @SSQL=@SSQL + 'and W.Sifra_KatStatus = ' + cast(@Sifra_KatStatus as varchar(5))
if @Lokac_ID is not null
    SET @SSQL=@SSQL + 'and W.Lokac_ID = ''' + @Lokac_ID + ''''

exec (@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajzalihazaladen]'))
drop procedure [dbo].[sp_dajzalihazaladen]

Go
CREATE PROCEDURE sp_DajZalihaZaLaden
    @Koi_Art_Proizv    varchar(500),
    @Sifra_Oe_Zal    smallint,
    @Datum_Do        smalldatetime
AS
    Declare @SSQL varchar(2000)
SET @SSQL='SELECT S.Sifra_Art, A.ImeArt, A.Edmera, A.Sifra_Tar, A.Tezina, T.ProcOsn,
SUM(Case S.VlIzl When ''V'' Then S.Kolic Else S.Kolic*-1 End) Kolic
FROM Stavr S INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
WHERE S.Datum_Dok <='''+Cast(@Datum_Do as varchar(35))+
''' AND S.Sifra_OE = '+cast(@Sifra_OE_Zal as varchar(5))+
' AND S.Sifra_Art IN (SELECT Sifra_Art FROM KatArt WHERE Alt_Sifra IN ('''+@Koi_Art_Proizv+'''))
 GROUP BY S.Sifra_Art, A.ImeArt, A.Edmera, A.Sifra_Tar, A.Tezina, T.ProcOsn'
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajzalpokupzaoe]'))
drop procedure [dbo].[sp_dajzalpokupzaoe]

Go

CREATE  PROCEDURE sp_DajZalPoKupZaOE
    @Sifra_Oe    smallint
AS
CREATE TABLE #TmpKom1
(Sifra_Kup char(6), Sifra_Obj smallint, Sifra_Art varchar(20), Vlez decimal(18,6), Izlez decimal(18,6),
NNabCena decimal(18,6), SoaCena decimal(18,6), SoaDanCena char(1))

CREATE TABLE #TmpKom
(Sifra_Kup char(6), Sifra_Obj smallint, Sifra_Art varchar(20), Vlez decimal(18,6), Izlez decimal(18,6),
NNabCena decimal(18,6), SoaCena decimal(18,6), SoaDanCena char(1))

INSERT INTO #TmpKom1 (Sifra_Kup, Sifra_Obj, Sifra_Art, Vlez, Izlez)
SELECT D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, SUM(Case S.VlIzl WHEN 'V' Then S.Kolic Else 0 End), SUM(Case S.VlIzl WHEN 'I' Then S.Kolic Else 0 End)
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID WHERE D.Sifra_OE=@Sifra_OE Group by D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art

CREATE TABLE #TmpK (Sifra_Kup char(6), Br_Obj smallint)
INSERT INTO #TmpK SELECT Sifra_Kup, count(*) from Kobjekti
WHERE Sifra_Kup IN (SELECT DISTINCT Sifra_Kup FROM #TmpKom1) GROUP BY Sifra_Kup

UPDATE #TmpKom1 SET Sifra_Obj=0 WHERE Sifra_Obj IS NULL AND Sifra_Kup IN (SELECT Sifra_Kup FROM #TmpK WHERE br_Obj>1)
INSERT INTO #TmpKom (Sifra_Kup, Sifra_Obj, Sifra_Art, Vlez, Izlez)
SELECT Sifra_Kup, Sifra_Obj, Sifra_Art, SUM(Vlez), SUM(Izlez) FROM #TmpKom1 GROUP BY Sifra_Kup, Sifra_Obj, Sifra_Art

UPDATE #TmpKom SET NNabCena = S.NNabCena, SoaCena=S.Cena, SoaDanCena=S.DanCena FROM Soart S
WHERE S.Sifra_OE=@Sifra_OE AND #TmpKom.Sifra_Art=S.Sifra_Art

SELECT T.*, A.Sifra_Tar, Ta.ProcOsn FROM #TmpKom T INNER JOIN KatArt A ON A.Sifra_Art=T.Sifra_Art INNER JOIN Tarifi Ta ON A.Sifra_Tar=Ta.Sifra_Tar
WHERE T.Vlez<>T.Izlez and A.SMatUsl='M' ORDER BY T.Sifra_Kup, T.Sifra_Obj, T.Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajzalzawebnaracki1art]'))
drop procedure [dbo].[sp_dajzalzawebnaracki1art]

Go




CREATE    PROCEDURE sp_DajZalZaWebNaracki1Art
    @Sifra_Art Varchar(20),
    @Sifra_OE varchar(200),
    @Vlez decimal(18,6)=0 OUTPUT,
    @Izlez decimal(18,6)=0 OUTPUT,
    @ProcOsn decimal(6,2)=0 OUTPUT,
    @Sifra_Tar    char(3)='' OUTPUT
AS
    SELECT @ProcOsn=T.ProcOsn, @Sifra_Tar=K.Sifra_Tar FROM KatArt K INNER JOIN Tarifi T ON K.Sifra_tar=T.Sifra_Tar WHERE K.Sifra_Art=@Sifra_Art

Declare @SSQL varchar(2000)
CREATE TABLE #TmpOE (Sifra_OE smallint)
SET @SSQL = 'SELECT Sifra_OE FROM OrgEd WHERE Sifra_OE IN ('+@Sifra_OE+') '
print (@ssql)
INSERT INTO #TmpOE EXEC (@SSQL)

SELECT @Vlez=SUM(S.Vlez), @Izlez=SUM(S.Izlez) FROM Soart S INNER JOIN #TmpOE O ON S.Sifra_OE=O.Sifra_OE
WHERE S.Sifra_Art=@Sifra_Art GROUP BY S.Sifra_Art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajzbirsuroviniposostavkontr]'))
drop procedure [dbo].[sp_dajzbirsuroviniposostavkontr]

Go

CREATE      PROCEDURE sp_DajZbirSuroviniPoSostavKontr
AS
SELECT S.Sifra_Sur, SUR.ImeArt, SUR.EdMera, SUM(S.Ima_Kolic*A.Kolic/S.Za_Kolku) Kolic
FROM SostavKontr S
INNER JOIN ##TmpSurPoSKontr A ON S.Sifra_Art=A.Sifra_Art AND S.KontrSer=A.Kontr
INNER JOIN KatArt SUR ON S.Sifra_Sur=SUR.Sifra_Art
GROUP BY S.Sifra_Sur, SUR.ImeArt, SUR.EdMera




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dajzbstavodmagstavr]'))
drop procedure [dbo].[sp_dajzbstavodmagstavr]

Go



CREATE    PROCEDURE sp_DajZbStavOdMagStavr
    @DokrID    int
AS
SELECT M.Sifra_Art, sum(M.Kolic) Kolic  --vaka ne SUM(CASE When A.ImaKomerc<=0 Then M.Kolic Else M.Kolic*M.Paketi END) Kolic
FROM MagStavr M --INNER JOIN KatArt A On M.Sifra_Art=A.Sifra_Art
WHERE M.DokrID=@DokrID GROUP BY M.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dali_ima_sifkupart]'))
drop procedure [dbo].[sp_dali_ima_sifkupart]

Go
CREATE PROCEDURE sp_Dali_Ima_SifKupArt
    @Sifra_Kup    char(6),
    @Sifra_Art    varchar(20),
    @ImaArt    char(1) = 'N' Output,
    @ImaKup    char(1) = 'N' Output
AS
    If Exists (Select * From SifKupArt Where Sifra_Kup=@Sifra_Kup And Sifra_Art=@Sifra_Art)
    Begin
        Set @ImaArt='D'
        Set @ImaKup='D'
    End
    Else
    Begin
        Set @ImaArt='N'
        Set @ImaKup='N'
    End
    If @ImaKup <> 'D'
        If Exists (Select Top 1 * From SifKupArt Where Sifra_Kup=@Sifra_Kup)
            Set @ImaKup='D'



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalieorginalnanar]'))
drop procedure [dbo].[sp_dalieorginalnanar]

Go




CREATE     PROCEDURE sp_DaliEOrginalnaNar

    @NarID        int
AS
    Select NarID_Orig From NarPodnar
    Where NarID_PodNar=@NarID OR NarID_OdKoja=@NarID






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_daliodobrenanar]'))
drop procedure [dbo].[sp_daliodobrenanar]

Go
CREATE PROCEDURE sp_DaliOdobrenaNar

    @NarID    int
 AS
    Select NarID From Naracki Where NarID=@NarID And Sifra_Za_Org Is Not null

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipecatimecustom]'))
drop procedure [dbo].[sp_dalipecatimecustom]

Go



CREATE    PROCEDURE sp_DaliPecatimeCustom

AS
select count(papername) BrStavki from konflokprn where papername is not null and papername<>''






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipodelenanar]'))
drop procedure [dbo].[sp_dalipodelenanar]

Go



CREATE    PROCEDURE sp_DaliPodelenaNar

    @NarID        int
AS
    -- 27.09.2011 - Nov Sistem
    /*
    Select NarID_Orig From NarPodnar
    Where NarID_Orig=@NarID_Orig AND Aktiven = 'D'
    */

    Select NarID From Naracki         --D veke e podelena krajno , F vo faza na delenje
    Where NarID = @NarId AND PodelNar is not null AND (PodelNar ='D' or PodelNar ='F')



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipostoi_sap]'))
drop procedure [dbo].[sp_dalipostoi_sap]

Go

CREATE    PROCEDURE sp_DaliPostoi_SAP
        @Vrednost varchar(20),
        @Sifra Varchar(20),
        @Tabela Varchar(20)
AS
DECLARE @SSQL as varchar(100)
SET @SSQL='SELECT '+ @Sifra +' sifra from '+@Tabela + ' Where '+ @Sifra +'='''+@Vrednost +''''
PRINT(@SSQL)
EXEC (@SSQL)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipostoiart_imp]'))
drop procedure [dbo].[sp_dalipostoiart_imp]

Go
CREATE PROCEDURE sp_DaliPostoiArt_IMP
    @Sifra_Art     VARCHAR(20),
    @Postoi        SMALLINT OUTPUT
AS

    SET @Postoi = 0
    IF EXISTS (SELECT Sifra_Art FROM Katart WHERE Sifra_Art = @Sifra_Art)
        SET @Postoi = 1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipostoisgrorg]'))
drop procedure [dbo].[sp_dalipostoisgrorg]

Go


CREATE  PROCEDURE sp_DaliPostoiSGrOrg
   @Sif_GrOrg char(6),
   @Sifra_OE smallint
AS
  Select * from  SGrOrg Where Sif_GrOrg=@Sif_GrOrg and Sifra_OE=@Sifra_OE
   RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipostoisigmanarac]'))
drop procedure [dbo].[sp_dalipostoisigmanarac]

Go



CREATE    PROCEDURE sp_DaliPostoiSigmaNarac

    @Broj_Proekt integer
AS


select * from naracki where Broj_Proekt = @Broj_PRoekt and Sifra_Nar<>15





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalipostoisigmanaracdev]'))
drop procedure [dbo].[sp_dalipostoisigmanaracdev]

Go



CREATE    PROCEDURE sp_DaliPostoiSigmaNaracDev

    @identif_br varchar(25)
AS


select * from naracki where identif_br = @identif_br





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalirealizirananar]'))
drop procedure [dbo].[sp_dalirealizirananar]

Go
Create  PROCEDURE sp_DaliRealiziranaNar

    @NarID    int
 AS
    Select NarID From NarRealDok
    Where NarID = @NarID and Realiziran='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dalirealizirandokr]'))
drop procedure [dbo].[sp_dalirealizirandokr]

Go
Create  PROCEDURE sp_DaliRealiziranDokr

    @DokrID        int
 AS
    Select NarID From NarRealDok
    Where DokrID = @DokrID and Realiziran='D'


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ddvprijava]'))
drop procedure [dbo].[sp_ddvprijava]

Go









CREATE    PROCEDURE  sp_DDVPrijava
    @Datum_Nal_Od as smalldatetime,
    @Datum_Nal_Do as smalldatetime,
    @ParalenliBazi     varchar(200) = Null
AS
Declare @SSQL Varchar(8000)
CREATE       Table #Bazi
    (
     ImeBaza    varchar(50)
    )
Insert Into #Bazi Select db_Name()
If @ParalenliBazi Is Not Null
Set @ParalenliBazi=@ParalenliBazi+ ','
Begin
    Declare @Poz_Delim Smallint
    Declare @Poz_Start Smallint
    Declare @BazaIme varchar(50)
    If @ParalenliBazi Is Null
        Set @ParalenliBazi = ''
        Set @Poz_Start = 0
    While 1=1
        Begin
            Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
            If @Poz_Delim = 0
                Break
            Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
            Set @Poz_Start = @Poz_Delim + 1
            Insert Into #Bazi Select @BazaIme
        End
End
Create Table #tmpDDVPrijava
(    Pole1 Decimal(18,4),
    Pole2 Decimal(18,4),
    Pole3 Decimal(18,4),
    Pole4 Decimal(18,4),
    Pole5 Decimal(18,4),
    Pole6 Decimal(18,4),
    Pole8 Decimal(18,4),
    Pole9 Decimal(18,4),
    Pole10 Decimal(18,4),
    Pole11 Decimal(18,4),
    Pole12 Decimal(18,4),
    Pole13 Decimal(18,4)
)
    Declare @ImeBaza as varchar(50)
    Declare Bazi Cursor
    Fast_Forward For Select ImeBaza From #Bazi
    Open Bazi
    Fetch Next From Bazi Into @ImeBaza
    While @@Fetch_Status = 0
    Begin
        --Pocetna Sostojba
        Set @SSQL = 'select
                sum(case when A.VoDDVPrijava=1 then Pobaruva end) as Pole1,
                sum(case when A.VoDDVPrijava=2 then Pobaruva end) as Pole2 ,
                sum(case when A.VoDDVPrijava=3 then Pobaruva end) as Pole3 ,
                sum(case when A.VoDDVPrijava=4 then Pobaruva end) as Pole4 ,
                sum(case when A.VoDDVPrijava=5 then Pobaruva end) as Pole5 ,
                sum(case when A.VoDDVPrijava=6 then Pobaruva end) as Pole6 ,
                sum(case when A.VoDDVPrijava=2 or A.VoDDVPrijava=4  then Pobaruva end) as Pole8,
                sum(case when A.VoDDVPrijava=9 then Dolzi end) as Pole9 ,
                sum(case when A.VoDDVPrijava=10 then Dolzi end) as Pole10 ,
                sum(case when A.VoDDVPrijava=11 then Dolzi end) as Pole11 ,
                sum(case when A.VoDDVPrijava=12 then Dolzi end) as Pole12 ,
                sum(case when A.VoDDVPrijava=10 or A.VoDDVPrijava=12  then Dolzi end) as Pole13
                 from ' + @ImeBaza + '..gstav G
                left outer Join ' + @ImeBaza + '..anal A on A.Kto_Anal=G.Kto_Anal
                where G.Sifra_Nal<>999 AND A.VoDDVPrijava in (1,2,3,4,5,6,9,10,11,12) and Datum_Nal >=''' + cast(@Datum_Nal_Od as varchar(35))  + '''
                 And Datum_Nal <= '''+ cast(@Datum_Nal_Do as varchar(35))  + ''''
        Insert #tmpDDVPrijava Exec(@SSQL)
        Fetch Next From Bazi Into @ImeBaza
    End
    Close Bazi
    Deallocate Bazi
Select sum(Pole1) as Pole1 ,
sum(Pole2) as Pole2,
sum(Pole3) as Pole3,
sum(Pole4) as Pole4,
sum(Pole5) as Pole5,
sum(Pole6) as Pole6,
sum(Pole8) as Pole8,
sum(Pole9) as Pole9,
sum(Pole10)as Pole10,
sum(Pole11)as Pole11,
sum(Pole12)as Pole12,
sum(Pole13)as Pole13
from #tmpDDVPrijava








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ddvprijava_sr]'))
drop procedure [dbo].[sp_ddvprijava_sr]

Go









CREATE    PROCEDURE  sp_DDVPrijava_SR
    @Datum_Nal_Od as smalldatetime,
    @Datum_Nal_Do as smalldatetime,
    @ParalenliBazi     varchar(200) = Null
AS
Declare @SSQL Varchar(8000)
CREATE       Table #Bazi
    (
     ImeBaza    varchar(50)
    )
Insert Into #Bazi Select db_Name()
If @ParalenliBazi Is Not Null
Set @ParalenliBazi=@ParalenliBazi+ ','
Begin
    Declare @Poz_Delim Smallint
    Declare @Poz_Start Smallint
    Declare @BazaIme varchar(50)
    If @ParalenliBazi Is Null
        Set @ParalenliBazi = ''
        Set @Poz_Start = 0
    While 1=1
        Begin
            Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
            If @Poz_Delim = 0
                Break
            Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
            Set @Poz_Start = @Poz_Delim + 1
            Insert Into #Bazi Select @BazaIme
        End
End
Create Table #tmpDDVPrijava
(    Pole1 Decimal(18,4),
    Pole2 Decimal(18,4),
    Pole3 Decimal(18,4),
    Pole103 Decimal(18,4),
    Pole4 Decimal(18,4),
    Pole104 Decimal(18,4),
    Pole5 Decimal(18,4),
    Pole105 Decimal(18,4),
    Pole6 Decimal(18,4),
    Pole106 Decimal(18,4),
    Pole7 Decimal(18,4),
    Pole107 Decimal(18,4),
    Pole8 Decimal(18,4),
    Pole108 Decimal(18,4),
    Pole9 Decimal(18,4),
    Pole109 Decimal(18,4),
    Pole110 Decimal(18,4)
)
    Declare @ImeBaza as varchar(50)
    Declare Bazi Cursor
    Fast_Forward For Select ImeBaza From #Bazi
    Open Bazi
    Fetch Next From Bazi Into @ImeBaza
    While @@Fetch_Status = 0
    Begin
        --Pocetna Sostojba
        Set @SSQL = 'select
                sum(case when A.VoDDVPrijava=1 then Pobaruva end) as Pole1,
                sum(case when A.VoDDVPrijava=2 then Pobaruva end) as Pole2 ,
                sum(case when A.VoDDVPrijava=3 then Pobaruva end) as Pole3 ,
                sum(case when A.VoDDVPrijava=103 then Pobaruva end) as Pole103 ,
                sum(case when A.VoDDVPrijava=4 then Pobaruva end) as Pole4 ,
                sum(case when A.VoDDVPrijava=104 then Pobaruva end) as Pole104 ,
                sum(case when A.VoDDVPrijava=5 then Pobaruva end) as Pole5 ,
                sum(case when A.VoDDVPrijava=105 then Pobaruva end) as Pole105 ,
                sum(case when A.VoDDVPrijava=6 then Pobaruva end) as Pole6 ,
                sum(case when A.VoDDVPrijava=2 or A.VoDDVPrijava=4  then Pobaruva end) as Pole8,
                sum(case when A.VoDDVPrijava=9 then Dolzi end) as Pole9 ,
                sum(case when A.VoDDVPrijava=10 then Dolzi end) as Pole10 ,
                sum(case when A.VoDDVPrijava=11 then Dolzi end) as Pole11 ,
                sum(case when A.VoDDVPrijava=12 then Dolzi end) as Pole12 ,
                sum(case when A.VoDDVPrijava=10 or A.VoDDVPrijava=12  then Dolzi end) as Pole13
                 from ' + @ImeBaza + '..gstav G
                left outer Join ' + @ImeBaza + '..anal A on A.Kto_Anal=G.Kto_Anal
                where A.VoDDVPrijava in (1,2,3,4,5,6,9,10,11,12) and Datum_Nal >=''' + cast(@Datum_Nal_Od as varchar(35))  + '''
                 And Datum_Nal <= '''+ cast(@Datum_Nal_Do as varchar(35))  + ''''
        Insert #tmpDDVPrijava Exec(@SSQL)
        Fetch Next From Bazi Into @ImeBaza
    End
    Close Bazi
    Deallocate Bazi
Select sum(Pole1) as Pole1 ,
sum(Pole2) as Pole2,
sum(Pole3) as Pole3,
sum(Pole4) as Pole4,
sum(Pole5) as Pole5,
sum(Pole6) as Pole6,
sum(Pole8) as Pole8,
sum(Pole9) as Pole9,
sum(Pole10)as Pole10,
sum(Pole11)as Pole11,
sum(Pole12)as Pole12,
sum(Pole13)as Pole13
from #tmpDDVPrijava








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_deklaracii_podok]'))
drop procedure [dbo].[sp_deklaracii_podok]

Go
CREATE            PROCEDURE sp_Deklaracii_PoDok
    @Sifra_OE     smallint,
    @Sifra_Dok     smallint,
    @Broj_Dok     int,
    @DobavOd    char(1) = 'K'    -- K - Katart,    D - Dokr
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = 'SELECT S.Sifra_Art, K.ImeArt, K.Sifra_Podg, P.Ime_Podg, Kup.BrIzjava, K.Alt_Ime, K.Alt_Ime2, K.Edmera, K.Tezina,
            Nomen = Case K.Nom When NULL Then dbo.fn_Nom(S.Sifra_Art) Else K.Nom  End,
            K.Cena, K.DogCena, K.MalCena, K.GotCena, K.SpeCena, K.Sodrzied, K.BTezina, K.ProcAlk, K.Rok_Tra, S.Kolic, '
    IF @DobavOd='D'
        Set @SSQL = @SSQL + ' D.Sifra_Kup as Kto, Kup.ImeKup '
    ELSE
        Set @SSQL = @SSQL + ' K.Kto, Kup.ImeKup '
    Set @SSQL = @SSQL + ' FROM Dokr D
                INNER JOIN Stavr S on S.DokrId = D.DokrId
                INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
                INNER JOIN Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    If @DobavOd = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '
    Else
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup = K.Kto '
    Set @SSQL = @SSQL + ' WHERE D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + '
                AND D.Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + '
                AND D.Broj_Dok=' + Cast(@Broj_Dok As Varchar(10)) + '
                ORDER BY S.RBr '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_denovinanaplata]'))
drop procedure [dbo].[sp_denovinanaplata]

Go


CREATE                        PROCEDURE sp_DenoviNaNaplata
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kolku Int = Null,
    @TipKup Char(11) = Null,
--    @Komint_KObj Char(1) = 'K',
    @Koi_Gradovi Varchar(200) = Null,
    @Sifra_Pat    smallint = Null,
    @KomercKako    char(1) = 'I',        -- I - Istoriski,      T-Tekovno
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',         -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @Toc as decimal(18,6)
    SET @SSQLUsl = ' '
------------------------------------------------------------------
    If @GrKup Is Not Null
    Begin
    Create    Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

--    If @GrArt Is Not Null
--    Begin
--        Create Table #GrArt
--        (
--            Sifra_Art    varchar(20)
--        )
--        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)
--        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
--        Exec(@SSQL)
--    End
----------------------------------------------------------------------------------------
    Create Table #Tab
    (
     Sifra_Kup    char(6),
--     Sifra_Obj    smallint,
     RokIznos    decimal(18,4),
     Toc200    decimal(18,4),
     Rabat        decimal(18,4),
     VkIznos    decimal(18,4),
     DenIznos    decimal(18,4),
     PlatIznos    decimal(18,4)
    )
--    Set @SSQL = ' Select D.Sifra_kup, Round(Sum(Case D.Rok When 0 Then D.Toc200 else (D.Rok*D.Toc200) end), 4) as RokIznos,
    Set @SSQL = ' Select D.Sifra_kup, D.Rok as RokIznos,
            Round (Sum(S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2) Toc200,
            Round(Sum(dbo.fn_VratiRabatBezDDV(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces)), 4) As Rabat,
            Round(Sum(dbo.fn_vr_osnov(S.Kolic, S.DokCena, S.DanDokCena, S.POsn)), 4) As VkIznos,
            0 as DenIznos, 0 PlatIznos
            From Dokr D
            Inner Join Stavr S On S.DokrId = D.DokrId
            Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
            Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
-------------------------------------
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
--    If @GrArt Is Not Null
    ---    Set @SSQL = @SSQL + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
--------------------------------------
    Set @SSQL = @SSQL + 'Where D.VlIzl=''I'' and D.Sifra_Za = ''1'' ' --and D.Toc200 > 50 '
    If @Koi_Gradovi Is Not NULL
            Set @SSQL = @SSQL + ' and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is Not NULL
            Set @SSQL = @SSQL + ' and KUP.Sifra_Reg In ( ' + @Koi_Regioni + ') '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And Kup.KDrugo1 = ''' + Cast(@Pod1 As Varchar(6)) + ''' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And Kup.KDrugo2 = ''' + Cast(@Pod2 As Varchar(6)) + ''' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And Kup.KDrugo3 = ''' + Cast(@Pod3 As Varchar(6)) + ''' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And Kup.KDrugo4 = ''' + Cast(@Pod4 As Varchar(6)) + ''' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=''' + Cast(@Pod5 As Varchar(6)) + ''' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
--    If @Sifra_Pat IS NOT NULL
--        SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
--    Set @SSQL = @SSQL + 'Group By D.Sifra_Kup '
    Set @SSQL = @SSQL + 'Group By D.Sifra_Kup, D.Rok '
    Insert Into #Tab Exec(@SSQL)
    Create Table #Napl
    (
     Sifra_Kup    char(6),
     Rok        decimal(18,8)
--     DenIznos    decimal(18,6),
--     PlatIznos    decimal(18,6)
    )
/*    Set @SSQL = ' Select A.Sifra_Kup, 0, 0, 0, 0, sum(AN.Iznos*datediff(d, A.Datum_Dok, AN.DatumZatv)), Sum(AN.Iznos)
            From AnFinDok A
            Inner Join AnZatv AN On (A.AnId=An.AnId1 Or A.AnId=An.AnId2)
            Left Outer Join Komint KUP ON A.Sifra_Kup=KUP.Sifra_Kup '
    Set @SSQL = ' Select A.Sifra_Kup, sum(AN.Iznos*datediff(d, A.Datum_Dok+A.Rok, AN.DatumZatv)), Sum(AN.Iznos)
            From AnFinDok A
            Inner Join AnZatv AN On (A.AnId=An.AnId1 Or A.AnId=An.AnId2)
            Left Outer Join Komint KUP ON A.Sifra_Kup=KUP.Sifra_Kup '
*/
    Set @SSQL = ' Select A.sifra_kup,
            (CAST(datediff(day,dateadd(day, f.rok, f.datum_dok ), A.datum_dok) AS DECIMAL(18,6)))
            from anfindok A
            inner join anzatv z on A.anid=z.anid2
            inner join anfindok f on  f.anid=z.anid1
            Left outer Join Komint Kup on Kup.Sifra_Kup=A.Sifra_Kup
            where A.sifra_za=1 and abs(A.pobaruva) > 50  ' -- bese A.Pobaruva <>0 -- bara Zarko M&A
    If @Koi_Gradovi Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' and KUP.Sifra_Reg In ( ' + @Koi_Regioni + ') '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo1 = ''' + Cast(@Pod1 As Varchar(6)) + ''' '
    If @Pod2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo2 = ''' + Cast(@Pod2 As Varchar(6)) + ''' '
    If @Pod3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo3 = ''' + Cast(@Pod3 As Varchar(6)) + ''' '
    If @Pod4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo4 = ''' + Cast(@Pod4 As Varchar(6)) + ''' '
    If @Pod5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.KDrugo5=''' + Cast(@Pod5 As Varchar(6)) + ''' '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
--    If @Sifra_Pat IS NOT NULL
--        SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And A.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokProd IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Dok IN (' + @TipDokProd + ') '
--    Set @SSQLUsl = @SSQLUsl + 'Group By A.Sifra_Kup '
--print @SSQL+@SSQLUsl
    Insert Into #Napl Exec(@SSQL+@SSQLUsl)
    Set @SSQL = ' Select A.sifra_kup,
            (CAST(datediff(day,dateadd(day, f.rok, f.datum_dok ), A.datum_dok) AS DECIMAL(18,6)))
            from anfindok A
            inner join anzatv z on A.anid=z.anid1
            inner join anfindok f on  f.anid=z.anid2
            Left outer Join Komint Kup on Kup.Sifra_Kup=A.Sifra_Kup
            where A.sifra_za=1 and abs(A.pobaruva) > 50  ' -- bese A.Pobaruva <>0 -- bara Zarko M&A
    Insert Into #Napl Exec(@SSQL+@SSQLUsl)
    Update #Napl Set Rok=0 Where Rok Is Null
    Create Table #Rokovi
    (
     Sifra_Kup    char(6),     Rok        decimal(9,3)
    )
    Insert Into #Rokovi Select Sifra_Kup, Avg(Rok) from #Napl group by Sifra_Kup
    Update #Rokovi Set Rok = 0 where Rok<0
--select * from #rokovi
    Create Table #Vkup
    (
     Sifra_Kup    char(6),
     Vkupno    decimal(18,6)
    )
    Insert Into #Vkup Select Sifra_Kup, Sum(Toc200) from #Tab Group By Sifra_Kup
--    Select T.Sifra_Kup, Kup.ImeKup, Sum(T.RokIznos) RokIznos, Sum(T.Toc200) as  Toc200, Sum(T.Rabat) as Rabat, Sum(T.VkIznos) as VkIznos,
    Create Table #Podred
    (
     Rbr        int IDENTITY (1, 1) NOT NULL,
     Sifra_kup    char(6)
    )
    Set @SSQL = ' Insert Into #Podred (Sifra_Kup) '
    If @Kolku Is Not Null
        Set @SSQL = @SSQL + ' Select Top ' + cast(@Kolku as varchar(5))  + ' '
    Else
        Set @SSQL = @SSQL + ' Select '
    Set @SSQL = @SSQL + ' V.Sifra_Kup
                From #Vkup V
                Left Outer Join Komint Kup On Kup.Sifra_Kup = V.Sifra_Kup '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By V.Sifra_Kup '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup '
    Else If @Podred = 'V'
        Set @SSQL = @SSQL + ' Order By V.Vkupno Desc '
    Exec(@SSQL)
--    Select * from #Podred
/*    If @Kolku Is Not Null
        Set @SSQL = ' Select Top ' + cast(@Kolku as varchar(5))  + ' '
    Else
        Set @SSQL = ' Select '
*/
    Set @SSQL = ' Select P.Rbr, T.Sifra_Kup, Kup.ImeKup, T.RokIznos, Sum(T.Toc200) as  Toc200, Sum(T.Rabat) as Rabat, Sum(T.VkIznos) as VkIznos,
                 V.Vkupno, K2.Ime_2k, R.Rok
    From #Tab T
    Left Outer Join #Rokovi R On R.Sifra_Kup=T.Sifra_Kup
    Left Outer Join #Vkup V On V.Sifra_Kup=T.Sifra_Kup
    Left Outer Join #Podred P On P.Sifra_Kup=T.Sifra_Kup
    Left Outer Join Komint Kup On Kup.Sifra_Kup = T.Sifra_Kup
    Left Outer Join KDrugo2 K2 On K2.Sifra_2K=Kup.KDrugo2 '
    If @Kolku Is Not Null
        Set @SSQL = @SSQL + ' Where T.Sifra_Kup In (Select Distinct Sifra_Kup From #Podred) '
    Set @SSQL = @SSQL + ' Group By  P.Rbr, T.Sifra_Kup, Kup.ImeKup, T.RokIznos,
                 V.Vkupno, K2.Ime_2k, R.Rok
                 Order By P.Rbr '
--select * from #Rokovi
--select * from #Vkup
--select * from #Tab
/*    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By T.Sifra_Kup '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup '
    Else If @Podred = 'V'
        Set @SSQL = @SSQL + ' Order By P.Rbr '
    Else If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By R.Rok Desc '
*/
--select * from #napl
--print @SSQL
    Exec(@SSQL)
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_detalenpregled_rabnal]'))
drop procedure [dbo].[sp_detalenpregled_rabnal]

Go
CREATE     PROCEDURE sp_DetalenPregled_RabNal
    @Sifra_OERab    smallint = Null,
    @BrojRabNOd    int = Null,
    @BrojRabNDo    Int = Null,
    @Datum_PocProiz_Od    smalldatetime = Null,
    @Datum_PocProiz_Do    smalldatetime = Null,
    @PvoTros    char(1) = 'S'        -- P - Proizvodstvo,        T - Trosok          S - Site
AS
    DECLARE @SSQL as varchar(8000)
        Set @SSQL= 'Select RN.RabNalID, RN.Sifra_OeRab, RN.Broj_RabN, RN.Datum_Poc_Proiz,
                    DRN.Sifra_Mas, M.ImeMas, DRN.Sifra_Smena, SM.Ime_Smena, DRN.Sifra_Rab, R.ImeRab,
                    D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.VlIzl, DRN.Tip_RabStav,
                    E.Sifra_Art, K.ImeArt, E.KontrSer, E.Kolic, E.Tezina_Dara, E.Tezina_Neto, E.Tezina_Bruto
                From Dokr D
                Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
                Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
                Left Outer Join EvProizvod E On E.DokrID=DRN.DokrID
                Left Outer Join Masini M On M.Sifra_Mas=DRN.Sifra_Mas
                Left Outer Join Smeni SM On SM.Sifra_Smena=DRN.Sifra_Smena
                Left Outer Join Rabotnik R On R.Sifra_Rab=DRN.Sifra_Mas
                Inner Join Katart K On K.Sifra_Art=E.Sifra_Art '
        Set @SSQL = @SSQL + ' Where 1=1 '
        If @PvoTros Is Not Null And @PvoTros <> 'S'
            Set @SSQL=@SSQL + ' And DRN.Tip_RabStav=''' + @PvoTros + ''' '
        If @Sifra_OeRab is Not Null
            Set @SSQL=@SSQL + ' And RN.Sifra_OeRab = ' + cast(@Sifra_OeRab as Varchar(10)) +  ' '
        If @Datum_PocProiz_Od is Not Null
            Set @SSQL=@SSQL + ' And RN.Datum_Poc_Proiz >= ''' + cast(@Datum_PocProiz_Od as Varchar(35)) +  ''' '
        If @Datum_PocProiz_Do is Not Null
            Set @SSQL=@SSQL + ' And RN.Datum_Poc_Proiz <= ''' + cast(@Datum_PocProiz_Do as Varchar(35)) +  ''' '
        If @BrojRabNOd is Not Null
            Set @SSQL=@SSQL + ' And RN.Broj_RabN >= ' + cast(@BrojRabNOd as Varchar(10)) +  ' '
        If @BrojRabNDo is Not Null
            Set @SSQL=@SSQL + ' And RN.Broj_RabN <= ' + cast(@BrojRabNDo as Varchar(10)) +  ' '
        Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_devnaimoddevkalk]'))
drop procedure [dbo].[sp_devnaimoddevkalk]

Go


CREATE           PROCEDURE sp_DevNaimOdDevKalk
   @Sifra_OE smallint,
    @Sifra_Dok smallint=132,
   @Broj_Kalk int
AS
    SELECT N.*, C.Ime
    FROM DevNaim N
    INNER JOIN CBroevi C ON N.CarBroj=C.CarBroj
    WHERE N.Sifra_OE= Cast(@Sifra_OE As Varchar(10))  AND N.Broj_Kalk= Cast(@Broj_Kalk As Varchar(10))
    ORDER BY N.CarBroj





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_devnaimstoddevkalk]'))
drop procedure [dbo].[sp_devnaimstoddevkalk]

Go


CREATE           PROCEDURE sp_DevNaimStOdDevKalk
   @Sifra_OE smallint,
   @Broj_Kalk int,
    @Sifra_Dok smallint=132,
   @CarBroj  varchar(10)
AS
    SELECT * FROM DevNaimSt
    WHERE Sifra_OE= Cast(@Sifra_OE As Varchar(10))  AND Broj_Kalk= Cast(@Broj_Kalk As Varchar(10))  AND CarBroj = @CarBroj





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dirsite]'))
drop procedure [dbo].[sp_dirsite]

Go

CREATE   PROCEDURE sp_DirSite
AS
    create Table #Tab
    (
    Tabela    varchar(20),
    Zapisi    int
    )
    Create Table #Tabeli
    (
    Tabela    varchar(20)
    )
    Insert Into #Tabeli SELECT Name  FROM SYSOBJECTS WHERE TYPE = 'U' ORDER BY NAME
    Declare @SSQL as Varchar(2000)
    Declare Crs Cursor For Select tabela From #tabeli
    Open Crs
    Declare @Tabela as varchar(20)
    Declare @Redovi as int
    Fetch Next From Crs Into @Tabela
    While @@Fetch_Status = 0
        Begin
        Set @SSQL = ' Select  ''' + @Tabela + ''', count(*) from ' + @Tabela + ' '
        Insert Into #Tab Exec(@SSQL)
        Fetch Next From Crs Into @Tabela
    End --While
    Close Crs
    Deallocate Crs
    Select * from #tab




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dirtabela]'))
drop procedure [dbo].[sp_dirtabela]

Go
CREATE PROCEDURE sp_DirTabela
    @Tabela    varchar(20)
 AS
    Declare @SSQL as Varchar(200)
    Set @SSQL = 'Select ''' + @Tabela + '''Tabela ,Count(*) Zapisi from ' + @Tabela
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevakt]'))
drop procedure [dbo].[sp_dnevakt]

Go
CREATE  PROCEDURE sp_DnevAkt
    @Sifra_OE Smallint,
    @Sifra_Kup Char(6),
    @DatumVreme DateTime,
    @Aktivnost Char(1)
AS
    Declare @SSQL Varchar(3000)
-- proba
    Set @SSQL = 'Select
        AK.Sifra_Kup,
        KUP.ImeKup,
        Cast(Day(AK.DatumVreme) As Varchar(2)) + ''/'' +
        Cast(Month(AK.DatumVreme) As Varchar(2)) + ''/'' +
        Cast(Year(AK.DatumVreme) As Varchar(4)) As Datum,
        KUP.KDrugo2, KD2.Ime_2K,
        Case Ak.Aktivnost
            When ''V'' Then
                Cast(DatePart(Hour, AK.DatumVreme) As Varchar(2)) + '':'' +
                Cast(DatePart(Minute, AK.DatumVreme) As Varchar(2))
            Else ''0''
        End As Vreme_Vlez,
        Case Ak.Aktivnost
            When ''I'' Then
                Cast(DatePart(Hour, AK.DatumVreme) As Varchar(2)) + '':'' +
                Cast(DatePart(Minute, AK.DatumVreme) As Varchar(2))
            Else ''0''
        End As Vreme_Izlez, '
        Set @SSQL = @SSQL + '(Select Sum(Dolzi) From AnFinDok Where Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
            If @Sifra_Kup Is Not Null
                Set @SSQL = @SSQL + 'And Sifra_Kup=''' + @Sifra_Kup + ''' '
            If @DatumVreme Is Not Null
                Set @SSQL = @SSQL + 'And Datum_Dok=''
                    Cast(Year(AK.DatumVreme) As Varchar(4)) + ''-'' +
                    Cast(Month(AK.DatumVreme) As Varchar(2)) + ''-'' +
                    Cast(Day(AK.DatumVreme) As Varchar(2))'' '
            Set @SSQL = @SSQL + 'And Sifra_Dok in (1, 16)) As Prodazba '
    Set @SSQL = @SSQL + '
    From Akcija AK
    Inner Join Komint KUP On AK.Sifra_Kup=KUP.Sifra_Kup
    Left Outer Join KDrugo2 KD2 On KUP.KDrugo2=KD2.Sifra_2K
    Inner Join SifAkc SA On AK.Aktivnost=SA.Sifra_Akc
    Where 1=1 '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + 'And Sifra_Kup=''' + @Sifra_Kup + ''' '
print @ssql
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenizvestaj]'))
drop procedure [dbo].[sp_dnevenizvestaj]

Go

CREATE  PROCEDURE sp_DnevenIzvestaj
    @Koi_MatDok Varchar(30),
    @Sifra_FinDok  Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime
AS
    Declare @SSQL Varchar(2000)
    Set @SSQL = 'Select D.Sifra_OE Sifra_OE, D.Sifra_Dok Sifra_Dok,
        D.Broj_Dok Broj_Dok, D.Identif_Br BrojDok, D.Kto Konto,
        D.Sifra_Kup Sifra_Kup, Kup.ImeKup ImeKup,
        D.Datum_Dok Datum_Dok, D.Toc200 Iznos
        From Dokr D
        Inner Join Komint Kup On D.Sifra_Kup=Kup.Sifra_Kup
        Where D.Sifra_Dok In (' + @Koi_MatDok + ') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Set @SSQL = @SSQL + 'Union
    Select A.Sifra_OE Sifra_OE, A.Sifra_Dok Sifra_Dok,
        A.Broj_Dok Broj_Dok, A.BrojDok BrojDok, A.Kto Konto,
        A.Sifra_Kup Sifra_Kup, Kup.ImeKup ImeKup,
        A.Datum_Dok Datum_Dok, A.Pobaruva Iznos
        From Anfindok A
        Inner Join Komint Kup On A.Sifra_Kup=Kup.Sifra_Kup
        Where A.Sifra_Dok=' + Cast(@Sifra_FinDok As Varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenizvestaj_maloprodazba]'))
drop procedure [dbo].[sp_dnevenizvestaj_maloprodazba]

Go

CREATE  PROCEDURE [dbo].[sp_DnevenIzvestaj_Maloprodazba]
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @PrikaziSto    char(1)='D',    -- D - Sifra na dokument     A - po Artikli
    @Sifra_Oper    varchar(20) = Null,
    @TwistOrg    smallint = Null,
    @TwistDok    smallint = Null

AS

    Declare @SSQL as varchar(8000)
    Create Table #Promet
    (
     OdKade    char(6),
     Sifra        varchar(20),
     Ime        varchar(50),
     Opis        varchar(50),
     Iznos        decimal(18,6),
     DodNac        smallint,
     Dokument    varchar(30),
     NabVr        decimal(18,6),
     ProdVrNeto decimal(18,6)
    )

    -- Da go najdeme prometot od kasa po nacini na plakkanje i po operatori
    Set @SSQL = ' Select ''Kasa'', PL.Sifra_Nac, N.ImeNac, O.Ime_Oper, PL.Iznos, null, Null, 0, 0
            From KPlkProm PL
            Inner Join KPromet P On P.Sifra_Oe=PL.Sifra_Oe And P.Grp_Kasa=PL.Grp_Kasa And P.BrKasa=PL.BrKasa And P.Broj_Ska=PL.Broj_Ska
            Inner Join NacPlak N On N.Sifra_Nac=PL.Sifra_Nac
            Left Outer Join Operatori O On O.Sifra_Oper=P.Sifra_Oper
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + ' And PL.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_Oper = ''' + @Sifra_Oper + ''' '
    Insert Into #Promet Exec(@SSQL)

--print '1'

    if @TwistOrg is not null and @TwistDok is not null
    begin
        Set @SSQL = ' Select ''Kasa'', 6, ''Gotovina'', ''1'',
                        round(sum(S.Kolic * S.MagCena), 0), null, Null,
                        round(sum(S.Kolic * S.NabCena), 2),
                        round(sum(S.Kolic * S.MagCena / (1 + S.POsn / 100)), 2)
                From Stavr S
                Where 1=1 '
        If @TwistOrg Is Not Null
            Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' + Cast(@TwistOrg as varchar(5)) + ' '
        If @TwistDok Is Not Null
            Set @SSQL=@SSQL + ' And S.Sifra_Dok = ' + Cast(@TwistDok as varchar(5)) + ' '
        If @Datum_Od Is Not Null
            Set @SSQL=@SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL=@SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

        Insert Into #Promet Exec(@SSQL)
    end
--print '2'

    -----------------------------------------------------------------------------------------
    -- Sega gledaj PO ARTIKLI ILI DOKUMENTI DETALNO
    -----------------------------------------------------------------------------------------
    -- Da go najdeme prometot od dokumentite
    Create Table #Ski    --gk 16.11.2010
    (
        DokrID    int,
        Sifra_Nac    smallint,
        IznosNac    decimal(18,2),
        IznosSka    decimal(18,2),
        Procent        decimal(18,6)
    )
    Set @SSQL = ' Select D.DokrID, KP.Sifra_Nac, Sum(KP.Iznos), D.Toc200, 0
                From Dokr D
                left outer Join KPromet P on P.Sifra_Oe = D.Sifra_Oe and P.Grp_Kasa = D.Sifra_Dok and P.Departm = D.Broj_Dok
                left outer join KPlkProm KP On P.Sifra_Oe=KP.Sifra_Oe And P.Grp_Kasa=KP.Grp_Kasa And P.BrKasa=KP.BrKasa And P.Broj_Ska=KP.Broj_Ska
                Inner Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                Where D.Sifra_Dok In (100, 101, 1, 3) '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oper = ''' + @Sifra_Oper + ''' '
    Set @SSQL = @SSQL + ' Group By D.DokrID, KP.Sifra_Nac, D.Toc200 '
    Insert Into #Ski Exec(@SSQL)

    Update #Ski Set Procent = (Case When IznosSka <> 0 Then IznosNac/IznosSka Else 0 End)

    If @PrikaziSto = 'A'
        Set @SSQL = ' Select ''Dok'', S.Sifra_Art, K.ImeArt, Null Opis,
                      Round(Sum(S.Kolic * (Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End) * (1-S.Uces/100) * (1-D.Kasa/100) * Ski.Procent),2) Iznos,
                      Ski.Sifra_Nac, Cast(D.Sifra_Oe as varchar(3)) + ''-'' + Cast(D.Sifra_Dok as varchar(3)) + ''/'' + Cast(D.Broj_Dok as varchar(6)) Dokument,
                      round(sum(S.Kolic * S.NabCena * Ski.Procent), 2),
                      round(sum(S.Kolic * S.MagCena / (1 + S.POsn / 100) * Ski.Procent), 2)
                From Stavr S
                Inner Join Dokr D On D.DokrID=S.DokrID
                Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                left outer Join KPromet P
                    on P.Sifra_Oe = S.Sifra_Oe and P.Grp_Kasa = S.Sifra_Dok and P.Departm = S.Broj_Dok
                Left Outer Join #Ski Ski On Ski.DokrID=D.DokrID '
    Else                                                            --  KP.Iznos,
        Set @SSQL = ' Select ''Dok'', D.Sifra_Dok, TD.ImeDok, Null Opis, Round((D.Toc200 * Procent), 2), Ski.Sifra_Nac, Null, 0, 0
                From Dokr D
                left outer Join KPromet P
                    on P.Sifra_Oe = D.Sifra_Oe and P.Grp_Kasa = D.Sifra_Dok and P.Departm = D.Broj_Dok
                Left Outer Join #Ski Ski On Ski.DokrID=D.DokrID '
    Set @SSQL = @SSQL + ' Inner Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                  Where D.Sifra_Dok In (100, 101, 1, 3)  '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oper = ''' + @Sifra_Oper + ''' '
    If @PrikaziSto = 'A'
        Set @SSQL=@SSQL + ' Group By S.Sifra_Art, K.ImeArt, Ski.Sifra_Nac, Cast(D.Sifra_Oe as varchar(3)) + ''-'' + Cast(D.Sifra_Dok as varchar(3)) + ''/'' + Cast(D.Broj_Dok as varchar(6))  '
    Insert Into #Promet Exec(@SSQL)

--print '3'

    if @TwistOrg is not null and @TwistDok is not null
    begin
        If @PrikaziSto = 'A'
            Set @SSQL = ' Select ''Dok'', S.Sifra_Art, K.ImeArt, Null Opis,
                        round(Sum(S.Kolic * S.MagCena), 0), 6, Null,
                        round(sum(S.Kolic * S.NabCena), 2),
                        round(sum(S.Kolic * S.MagCena / (1 + S.POsn / 100)), 2)
                From Stavr S
                Inner Join Dokr D On D.DokrID=S.DokrID
                Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
        Else
            Set @SSQL = ' Select ''Dok'', 6, ''Gotovina'', Null Opis,
                        round(Sum(S.Kolic * S.MagCena), 0), 6, Null,
                        round(sum(S.Kolic * S.NabCena), 2),
                        round(sum(S.Kolic * S.MagCena / (1 + S.POsn / 100)), 2)
                From Stavr S
                Inner Join Dokr D On D.DokrID=S.DokrID
                Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '

        Set @SSQL = @SSQL + ' Where 1=1 '
        If @TwistOrg Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Oe = ' + Cast(@TwistOrg as varchar(5)) + ' '
        If @TwistDok Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Dok = ' + Cast(@TwistDok as varchar(5)) + ' '
        If @Datum_Od Is Not Null
            Set @SSQL=@SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL=@SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

        If @PrikaziSto = 'A'
            Set @SSQL=@SSQL + ' Group By S.Sifra_Art, K.ImeArt '

        Insert Into #Promet Exec(@SSQL)
    end

--print '4'

    Select P.*, N.ImeNac ImeDodNac
    From #Promet P
    Left Outer Join NacPlak N
        on P.DodNac = N.Sifra_Nac

------    select OdKade, Sifra, Ime, Opis, sum(Iznos) Iznos
------    from #Promet
------    group by OdKade, Sifra, Ime, Opis



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenizvestaj_maloprodazbasum]'))
drop procedure [dbo].[sp_dnevenizvestaj_maloprodazbasum]

Go






CREATE    PROCEDURE  sp_DnevenIzvestaj_MaloprodazbaSUM
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Oper    varchar(20) = Null,
    @TwistOrg    smallint = Null,
    @TwistDok    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Create Table #Promet
    (Sifra_OE    smallint,
     Sifra_Nac    varchar(20),
     ImeNac        varchar(50),
     ImeOper        varchar(50),
     Iznos        decimal(18,6))

    -- Da go najdeme prometot od kasa po nacini na plakkanje i po operatori
    Set @SSQL = ' Select PL.Sifra_OE, PL.Sifra_Nac, N.ImeNac, O.Ime_Oper, SUM(PL.Iznos)
            From KPlkProm PL
            Inner Join KPromet P On P.Sifra_Oe=PL.Sifra_Oe And P.Grp_Kasa=PL.Grp_Kasa And P.BrKasa=PL.BrKasa And P.Broj_Ska=PL.Broj_Ska
            Inner Join NacPlak N On N.Sifra_Nac=PL.Sifra_Nac
            Left Outer Join Operatori O On O.Sifra_Oper=P.Sifra_Oper
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + ' And PL.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_Oper = ''' + @Sifra_Oper + ''' '
    Set @SSQL=@SSQL + ' GROUP BY PL.Sifra_OE, PL.Sifra_Nac, N.ImeNac, O.Ime_Oper'
    Insert Into #Promet Exec(@SSQL)

--print '1'

    if @TwistOrg is not null and @TwistDok is not null
    begin
        Set @SSQL = ' Select  S.Sifra_OE, 6, ''Gotovina'', ''1'', SUM(round((S.Kolic * S.MagCena), 0))
                From Stavr S
                Where 1=1 '
        If @TwistOrg Is Not Null
            Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' + Cast(@TwistOrg as varchar(5)) + ' '
        If @TwistDok Is Not Null
            Set @SSQL=@SSQL + ' And S.Sifra_Dok = ' + Cast(@TwistDok as varchar(5)) + ' '
        If @Datum_Od Is Not Null
            Set @SSQL=@SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL=@SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        Set @SSQL=@SSQL + ' GROUP BY S.Sifra_OE'
        Insert Into #Promet Exec(@SSQL)
    end
--print '2'

    Select Sifra_OE, Sifra_Nac, ImeNac, ImeOper, SUM(Iznos) Iznos From #Promet P GROUP BY Sifra_OE, Sifra_Nac, ImeNac, ImeOper




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenizvzadistr]'))
drop procedure [dbo].[sp_dnevenizvzadistr]

Go






CREATE       PROCEDURE sp_DnevenIzvZaDistr
    @Sifra_Oe        smallint,
    @Datum_DokOd    smalldatetime,
    @Datum_DokDo    smalldatetime,
    @Sifra_ArtOd        varchar(20),
    @Sifra_ArtDo        varchar(20),
    @Podred        char(1) = 'S',    -- S - Sifra,     A - Ime
    @GotovinaPoPresm    char(1) = 'N',-- D - Da se prikazuva gotovinskiot promet po presmetka    N - od dokumenti
    @Sifra_Prev char(6)= null,
   @KPod6        smallint = Null,
    @KPod7        smallint = Null
AS
    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '
    Create Table #Rez
    (
     Sifra_Art     varchar(20),
     Vlez        decimal(18,6),
     Izlez        decimal(18,6),
     IzlezGot    decimal(18,6),
     VredIzlezGot    decimal(18,6),
     VratIspr        decimal(18,6),
     VratNeIspr    decimal(18,6),
     Cena        decimal(18,6)
    )
-- I (prvo) - da gi najdeme site vlezovi
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.ImaDodatna = ''P''
            and D.Sifra_Prim In (1, 101)
            and D.VlIzl = ''V''
            and S.Kolic > 0 '
    If @Datum_DokOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok >= ''' + Cast(@Datum_DokOd as varchar(30)) + ''' '
    If @Datum_DokDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok <= ''' + Cast(@Datum_DokDo as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_ArtOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and S.Sifra_Art >= ''' + @Sifra_ArtOd + ''' '
    If @Sifra_ArtDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and S.Sifra_Art <= ''' + @Sifra_ArtDo + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Insert Into #Rez(Sifra_Art, Vlez) Exec(@SSQL + @SSQLUsl + ' Group By S.Sifra_Art ')
-- II - da gi najdeme izlezite - faktura
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic), Round((Case When S.DanDokCena=''N'' Then (S.DokCena * (1+S.Posn/100)) Else S.DokCena End) * (1-S.Uces/100) * (1-D.Kasa/100), 4)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.VlIzl=''I'' and D.Sifra_Dok NOT IN (82,84,6,106)'
    Insert Into #Rez(Sifra_Art, Izlez, Cena) Exec(@SSQL + @SSQLUsl + ' Group By S.Sifra_Art, S.DanDokCena, S.DokCena, S.Posn, S.Uces, D.Kasa')
-- II - da gi najdeme site ostanati izlezi (gotovinski)
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic), Sum(S.Kolic*dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.VlIzl=''I'' and D.Sifra_Dok IN (82,84,6,106)'
    Insert Into #Rez(Sifra_Art, IzlezGot, VredIzlezGot) Exec(@SSQL+@SSQLUsl+' Group By S.Sifra_Art' )
-- III - da gi najdeme vratenite artikli koi se ispravni
    Set @SSQL = ' Select S.Sifra_Art, Sum(Abs(S.Kolic)), Round((Case When S.DanDokCena=''N'' Then (S.DokCena * (1+S.Posn/100)) Else S.DokCena End) * (1-S.Uces/100) * (1-D.Kasa/100), 4)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.ImaDodatna = ''P''
            and D.Sifra_Prim In (1, 101)
            and S.Kolic < 0 '
    Insert Into #Rez(Sifra_Art, VratIspr, Cena) Exec(@SSQL+@SSQLUsl+' Group By S.Sifra_Art, S.DanDokCena, S.DokCena, S.Posn, S.Uces, D.Kasa')
-- IV - da gi najdeme vratenite artikli koi se ne ispravni
    Set @SSQL = ' Select S.Sifra_Art, Sum(Abs(S.Kolic)), Round((Case When S.DanDokCena=''N'' Then (S.DokCena * (1+S.Posn/100)) Else S.DokCena End) * (1-S.Uces/100) * (1-D.Kasa/100), 4)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.ImaDodatna = ''P''
            and D.Sifra_Prim Not In (1, 101)
            and S.Kolic < 0 '
    Insert Into #Rez(Sifra_Art, VratNeIspr, Cena) Exec(@SSQL+@SSQLUsl+' Group By S.Sifra_Art, S.DanDokCena, S.DokCena, S.Posn, S.Uces, D.Kasa')
    If @GotovinaPoPresm = 'D'
    Begin
        Update #Rez Set Vlez=0 Where Vlez Is Null
        Update #Rez Set Izlez=0 Where Izlez Is Null
        Update #Rez Set VratIspr=0 Where VratIspr Is Null
        Update #Rez Set VratNeIspr=0 Where VratNeIspr Is Null
    End

    Create Table #Ceni
    (
        Sifra_Art     varchar(20),
        Izlez        decimal(18,4),
        VrednIzlez    decimal(18,4),
        Cena        decimal(18,4)
    )
    If @GotovinaPoPresm <> 'D'
    Begin
        Insert Into #Ceni
        Select Sifra_Art, Sum(Izlez), Sum(Izlez*Cena), 0
        From #Rez
        Group By Sifra_Art

        Update #Ceni Set Cena = VrednIzlez/Izlez Where Izlez <> 0
    End

    Set @SSQL = ' Select R.Sifra_Art, K.ImeArt, K.ImaKomerc,
            (Case When C.Cena > 0 Then C.Cena Else K.DogCena End) DogCena,
            Sum(R.Vlez) Vlez, Sum(R.Izlez) Izlez, '
    If @GotovinaPoPresm = 'D'
        Set @SSQL = @SSQL + ' Sum(R.Vlez-R.Izlez-R.VratIspr-R.VratNeIspr) as IzlezGot, Null as VredIzlezGot, '
    Else
        Set @SSQL = @SSQL + ' Sum(R.IzlezGot) IzlezGot, Sum(VredIzlezGot) VredIzlezGot, '
    Set @SSQL = @SSQL + ' Sum(R.VratIspr) VratIspr, Sum(R.VratNeIspr) VratNeIspr
            From #Rez R
            Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
            Left Outer Join #Ceni C ON C.Sifra_Art = K.Sifra_Art
            Group By R.Sifra_Art, K.ImeArt, K.ImaKomerc, (Case When C.Cena > 0 Then C.Cena Else K.DogCena End) '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By R.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
    Exec (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenizvzadistrambalaza]'))
drop procedure [dbo].[sp_dnevenizvzadistrambalaza]

Go


CREATE   PROCEDURE sp_DnevenIzvZaDistrAmbalaza
    @Sifra_Oe        smallint,
    @Datum_DokOd    smalldatetime,
    @Datum_DokDo    smalldatetime,
    @Sifra_AmbOd        varchar(20),
    @Sifra_AmbDo        varchar(20),
    @Podred        char(1) = 'S',
    @Sifra_Prev         char(6) = null    -- S - Sifra,     A - Ime
AS
    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '

    Create Table #Rez
    (
     Sifra_Amb     varchar(20),
     ProdPolna    decimal(18,6),    --4
     VratPolna    decimal(18,6),    --3
     VratPrazOdKup    decimal(18,6),    --5
     VratPrazVoMag    decimal(18,6),    --6
     TovarPolnaMag    decimal(18,6),    --1
     VratPolnaMag    decimal(18,6),    --2
    )

-- I (prvo) - da ja najdeme dadenata ambalaza so prodazbata
    Set @SSQL = ' Select A.Sifra_Amb, Sum(S.Kolic/A.SodrziArt)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb = K.Sifra_Amb
            Where D.Sifra_Za = ''1''
            and S.Kolic > 0  And A.Povratna = ''D'' '
    If @Datum_DokOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok >= ''' + Cast(@Datum_DokOd as varchar(30)) + ''' '
    If @Datum_DokDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok <= ''' + Cast(@Datum_DokDo as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_AmbOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Amb >= ''' + @Sifra_AmbOd + ''' '
    If @Sifra_AmbDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Amb <= ''' + @Sifra_AmbDo + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Set @SSQLUsl = @SSQLUsl + ' Group By A.Sifra_Amb '
    Insert Into #Rez(Sifra_Amb, ProdPolna) Exec(@SSQL+@SSQLUsl)
----------------------------------------------------------------------------------------------------------------------
-- II - da najdeme vratenata ambalaza od komitentite so vrateni polni artikli
    Set @SSQL = ' Select A.Sifra_Amb, Abs(Sum(S.Kolic/A.SodrziArt))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb = K.Sifra_Amb
            Where D.Sifra_Za = ''1''
            And S.Kolic < 0 And A.Povratna = ''D'' '
    Insert Into #Rez(Sifra_Amb, VratPolna) Exec(@SSQL+@SSQLUsl)
----------------------------------------------------------------------------------------------------------------------
-- III - da najdeme tovarena polna ambalaza od magacin
    Set @SSQL = ' Select A.Sifra_Amb, Abs(Sum(S.Kolic/A.SodrziArt))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb = K.Sifra_Amb
            Where D.Sifra_Za = ''3'' And D.VlIzl=''V''
            And S.Kolic > 0 And A.Povratna = ''D'' '
    Insert Into #Rez(Sifra_Amb, TovarPolnaMag) Exec(@SSQL+@SSQLUsl)
----------------------------------------------------------------------------------------------------------------------
-- IV - da najdeme vratenata polna ambalaza vo magacin
    Set @SSQL = ' Select A.Sifra_Amb, Abs(Sum(S.Kolic/A.SodrziArt))
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb = K.Sifra_Amb
            Where D.Sifra_Za = ''3'' And D.VlIzl=''V''
            And S.Kolic < 0 And A.Povratna = ''D'' '
    Insert Into #Rez(Sifra_Amb, VratPolnaMag) Exec(@SSQL+@SSQLUsl)
----------------------------------------------------------------------------------------------------------------------

Set @SSQLUsl = ' '
-- V - da ja najdeme vratenata prazna ambalaza od komintentite
    Set @SSQL = ' Select S.Sifra_Amb, Sum(-1*S.Kolic)
            From Dokr D
            Inner Join StaAmbal S On S.DokrID=D.DokrID
            Where D.Sifra_Za = ''1'' '
    If @Datum_DokOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok >= ''' + Cast(@Datum_DokOd as varchar(30)) + ''' '
    If @Datum_DokDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Datum_Dok <= ''' + Cast(@Datum_DokDo as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_AmbOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and S.Sifra_Amb >= ''' + @Sifra_AmbOd + ''' '
    If @Sifra_AmbDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and S.Sifra_Amb <= ''' + @Sifra_AmbDo + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Set @SSQLUsl = @SSQLUsl + ' Group By S.Sifra_Amb '
    Insert Into #Rez(Sifra_Amb, VratPrazOdKup) Exec(@SSQL+@SSQLUsl)
-- VI - da ja najdeme vratenata prazna ambalaza vo magacin
    Set @SSQL = ' Select S.Sifra_Amb, Sum(-1*S.Kolic)
            From Dokr D
            Inner Join StaAmbal S On S.DokrID=D.DokrID
            Where D.ImaDodatna = ''P'' '
    Insert Into #Rez(Sifra_Amb, VratPrazVoMag) Exec(@SSQL+@SSQLUsl)

-- VII - Na kraj Rezultatot
    Set @SSQL = ' Select R.Sifra_Amb, A.ImeAmb, A.SodrziArt, A.VoGAmb,
            Sum(R.ProdPolna) ProdPolna,
            Sum(R.VratPolna) VratPolna,
            Sum(R.VratPrazOdKup) VratPrazOdKup,
            Sum(R.VratPrazVoMag) VratPrazVoMag,
            Sum(R.TovarPolnaMag) TovarPolnaMag,
            Sum(R.VratPolnaMag) VratPolnaMag
            From #Rez R
            Inner Join KatAmb A On A.Sifra_Amb = R.Sifra_Amb
            Group By R.Sifra_Amb, A.ImeAmb, A.SodrziArt, A.VoGAmb '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By R.Sifra_Amb '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By A.ImeAmb '
    Exec (@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dnevenpromet]'))
drop procedure [dbo].[sp_dnevenpromet]

Go

CREATE        PROCEDURE sp_DnevenPromet
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @PoKojDatum    char(1)                --  'D' - Datum_Dok,     'V' - Datum_Vnes
As
    Declare @SSQL as varchar(2000)
    Declare @DatumOd As Varchar(12)
    Declare @DatumDo As Varchar(12)
    Set @DatumOd = @Datum_Dok_Od
    Set @DatumDo = @Datum_Dok_Do
    Create Table #Tab
    (
     Sifra    varchar(5),
     Opis    varchar(70),
     Iznos    decimal(18,6)
    )
    Insert Into #Tab(Sifra,Opis) select 'Datum', 'Od ' + cast(day(@DatumOd) as char(2))+'.' +cast(Month(@DatumOd) as char(2))+'.'+cast(year(@DatumOd) as char(4)) +
                              '    Do ' + cast(day(@DatumDo) as char(2))+'.' +cast(Month(@DatumDo) as char(2))+'.'+cast(year(@DatumDo) as char(4))
    Insert Into #Tab(Sifra, Opis) Select 1, 'Proda`ba:'
    Set @SSQL = ' Select 101, ''Mleko i mle~ni proizvodi i konditorija '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Where S.Sifra_Oe In (3, 6) and S.Sifra_Dok in (1,3,6,11,13,16,81,83) And K.Sifra_Podg Not Like ''11%'' '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 102, ''Meso zamrznato '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''100%'' or K.Sifra_Podg like ''102%'' or K.Sifra_Podg like ''104%'' or K.Sifra_Podg like ''106%'' or K.Sifra_Podg like ''109%'')
            and S.Sifra_Dok in (1,3,6,11,13,16,81,83)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 103, ''Meso sve`o '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''101%'' or K.Sifra_Podg like ''103%'' or K.Sifra_Podg like ''105%'')
            and S.Sifra_Dok in (1,3,6,11,13,16,81,83)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 104, ''Riba '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''13%'')
            and S.Sifra_Dok in (1,3,6,11,13,16,81,83,85,86)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 105, ''Suvomesnati proizvodi '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''11%'')
            and S.Sifra_Dok in (1,3,6,11,13,16,81,83,85,86)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 106, ''Zamrznat zelen~uk i sladoled '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''421%'' or K.Sifra_Podg like ''522%'' or K.Sifra_Podg like ''40%'' or K.Sifra_Podg like ''411%'')
            And S.Sifra_Dok in (1,3,6,11,13,16,81,83,85,86)
            And S.Sifra_Oe <> 901 '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 107, ''Diskont - Prodavnica '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where S.Sifra_Dok in (100,101)
            And S.Sifra_Oe = 107 '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 111, ''Diskont - Mleko i mle~ni proizvodi i konditorija  '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Where S.Sifra_Oe In (3, 6) and S.Sifra_Dok in (71,73) And K.Sifra_Podg Not Like ''11%''
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 112, ''Diskont - Meso zamrznato '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''100%'' or K.Sifra_Podg like ''102%'' or K.Sifra_Podg like ''104%'' or K.Sifra_Podg like ''106%'' or K.Sifra_Podg like ''109%'')
            and S.Sifra_Dok in (71,73,82,84)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 113, ''Diskont - Meso sve`o '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''101%'' or K.Sifra_Podg like ''103%'' or K.Sifra_Podg like ''105%'')
            and S.Sifra_Dok in (71,73,82,84)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 114, ''Diskont - Riba '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''13%'')
            and S.Sifra_Dok in (71,73,82,84)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 115, ''Diskont - Suvomesnati proizvodi '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''11%'')
            and S.Sifra_Dok in (71,73,82,84)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 116, ''Diskont - Zamrznat zelen~uk i sladoled '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''421%'' or K.Sifra_Podg like ''522%'' or K.Sifra_Podg like ''40%'' or K.Sifra_Podg like ''411%'')
            and S.Sifra_Dok in (71,73,82,84)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select ''119'', ''Vkupno proda`ba '', Round(sum(Iznos),4)
            From #Tab
            Where Sifra Like ''1%'' '
    Insert Into #Tab Exec(@SSQL)
-----------------------------------------------------------------------------------------N A B A V K A --------------------------------------------------------------------------------------------------------
    Insert Into #Tab(Sifra, Opis) Select 2, 'Nabavka:'
    Set @SSQL = ' Select 201, ''Mleko i mle~ni proizvodi i konditorija '', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Where S.Sifra_Oe = 6 and S.Sifra_Dok in (132,2,22,23,102) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 202, ''Meso zamrznato '', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''100%'' or K.Sifra_Podg like ''102%'' or K.Sifra_Podg like ''104%'' or K.Sifra_Podg like ''106%'' or K.Sifra_Podg like ''109%'')
            and S.Sifra_Dok in (132,2,22,23,102)
            and S.Sifra_Oe <> 901'        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 203, ''Meso sve`o '', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''101%'' or K.Sifra_Podg like ''103%'' or K.Sifra_Podg like ''105%'')
            and S.Sifra_Dok in (132,2,22,23,102)
            and S.Sifra_Oe <> 901'        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 204, ''Riba '', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''13%'')
            and S.Sifra_Dok in (132,2,22,23,102)
            and S.Sifra_Oe <> 901'        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 205, ''Suvomesnati proizvodi '', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''11%'')
            and S.Sifra_Dok in (132,2,22,23,102)
            and S.Sifra_Oe <> 901'        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 206, ''Zamrznat zelen~uk i sladoled'', sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn))
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''421%'' or K.Sifra_Podg like ''522%'' or K.Sifra_Podg like ''40%'' or K.Sifra_Podg like ''411%'')
            and S.Sifra_Dok in (132,2,22,23,102)
            and S.Sifra_Oe <> 901'
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 207, ''Od proizvodstvo'', Round(sum(dbo.fn_Vr_Osnov(S.Kolic,S.MagCena, S.DanMagCena, S.Posn)),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Where S.Sifra_Oe = 3 and S.Sifra_Dok in (42,43) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select ''209'', ''Vkupno nabavka '', sum(Iznos)
            From #Tab
            Where Sifra Like ''2%'' '
    Insert Into #Tab Exec(@SSQL)
-------------------------------------------------------------------------------------- R A Z L I K A    V O     C E N I ----------------------------------------------------------------------------------------------------------------
    Insert Into #Tab(Sifra, Opis) Select 3, 'Razlika vo cena:'
    Set @SSQL = ' Select 301, ''Mleko i mle~ni proizvodi i konditorija '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                -S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where S.Sifra_Oe in (3, 6)
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86) And K.Sifra_Podg Not Like ''11%'' '
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 302, ''Meso zamrznato '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                -S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''100%'' or K.Sifra_Podg like ''102%'' or K.Sifra_Podg like ''104%'' or K.Sifra_Podg like ''106%'' or K.Sifra_Podg like ''109%'')
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86)
            and S.Sifra_Oe <> 901'
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 303, ''Meso svezo '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                -S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''101%'' or K.Sifra_Podg like ''103%'' or K.Sifra_Podg like ''105%'')
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86)
            and S.Sifra_Oe <> 901'
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 304, ''Riba '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                -S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''13%'')
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86)
            and S.Sifra_Oe <> 901'
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 305, ''Suvomesnati proizvodi '', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                -S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''11%'')
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86)
            and S.Sifra_Oe <> 901'
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 306, ''Zamrznat zelen~uk i sladoled'', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                - S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where (K.Sifra_Podg like ''421%'' or K.Sifra_Podg like ''522%'' or K.Sifra_Podg like ''40%'' or K.Sifra_Podg like ''411%'')
            and S.Sifra_Dok in (1,3,6,11,13,16,71,73,81,82,83,84,85,86)
            and S.VlIzl = ''I'' and D.Sifra_Za = 1
            and S.Sifra_Oe <> 901'
--            and S.Sifra_Dok Not In (51,52) '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select 307, ''Diskont - Prodavnica'', Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                - S.Kolic*S.NabCena),4)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Where S.Sifra_Dok in (100,101)
            and S.Sifra_Oe = 107 '
        If @PoKojDatum = 'D'
            Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' And D.Datum_Vnes < ''' + cast(@Datum_Dok_Do + 1 as varchar(30)) + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @SSQL = ' Select ''309'', ''Vkupno ostvarena razlika vo cena '', Round(sum(Iznos),4)
            From #Tab
            Where Sifra Like ''3%'' '
    Insert Into #Tab Exec(@SSQL)
--    Set @EUR = (Select top 1 KursPazaren from KrsVaznost Where Datum <= cast(@Datum_Dok as varchar(30)) and SImeVal = 003)
--    Set @USD = (Select top 1 KursPazaren from KrsVaznost Where Datum <= cast(@Datum_Dok as varchar(30)) and SImeVal = 002)
select * from #Tab


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dob_toplista]'))
drop procedure [dbo].[sp_dob_toplista]

Go




CREATE             PROCEDURE sp_Dob_TopLista
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup VarChar(300) = Null,
    @Komint_KObj Char(1) = 'K',
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi    varchar(200) = NULL,
    @Sifra_Pat    varchar(300) = Null,
    @TipDokNab    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @ProcPoArtikli char(1) = 'N',
    @KomercKako    char(1) = 'I',               -- I -  Istoriski od Dokr,       T - Tekovno od Komint
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N      (Povrzano e so @Sifra_Podg)
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
        Declare @VkArt  integer
        Set @VkArt = 0
--    If @ProcPoArtikli = 'D'
--        Set @VkArt = (Select Count(Distinct Sifra_art) from Stavr Where Datum_Dok>=@Datum_Od and Datum_Dok<@Datum_Do )
    If @ProcPoArtikli = 'D'
        Begin
            Create Table #Tab
            (Sifra_art varchar(20))
        Set @SSQL = ' Select Distinct Sifra_art From Stavr Where 1=1 '
            If @Datum_Od Is Not NULL
                Set @SSQL = @SSQL + ' And Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
            If @Datum_Do Is Not NULL
                Set @SSQL = @SSQL + ' And Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
        Insert Into #Tab Exec (@SSQL)
        Set @VkArt = (Select Count (Distinct Sifra_art) from #Tab)
        End
    If @Kolku Is Not NULL
        Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(6)) + ' '
    Else
        Set @SSQL = 'Select '
    Set @SSQL =    @SSQL + 'D.Sifra_Kup, '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + 'Null as Sifra_Obj, '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + 'D.Sifra_Obj, '
    Set @SSQL = @SSQL + 'KUP.ImeKup, KUP.ImeKup2,
        KUP.Adresa, KUP.Adresa2, KUP.SMesto, KUP.Posta, KUP.Zemja,
        Round(Sum(TS.Ima_Kolic*S.Kolic), 4) As Kolicina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.KolkuDrg), 4) As BrendKolicina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.Tezina/1000),4) As Tezina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.Tezina/100000), 4) As Hektolitri,
        Count(S.Sifra_Art) As Izlezi,
        Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as DVr_Osnov,
        Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_SoRabat,
        Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_Krajna,
        Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn)), 4) as MVr_Osnov,
        Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0,0)), 4) as MVr_SoRabat,
        Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_Krajna,
        Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) Vk_NPS, Count(Distinct S.DokrID) As Fakturi,
        Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV, '
    If @ProcPoArtikli = 'D'
        Set @SSQL=@SSQL + ' (Count(Distinct S.Sifra_art)/ ' + cast(@VkArt as Varchar(10)) + ')*100 as ProcentPoArt '
    Else
        Set @SSQL=@SSQL + ' 0 as ProcentPoArt '
    Set @SSQL=@SSQL+ '     From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=2
        Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
        Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_BRand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQL=@SSQL+'AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
            Set @SSQL=@SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
       If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
/*
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
       End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
*/
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                        OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
    If @Sifra_OE Is Not NULL
        Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokNab IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokNab + ') '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + 'Group By D.Sifra_Kup,  KUP.ImeKup, KUP.ImeKup2,
                                KUP.Adresa, KUP.Adresa2, KUP.SMesto, KUP.Posta, KUP.Zemja '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + 'Group By D.Sifra_Kup, D.Sifra_Obj, KUP.ImeKup, KUP.ImeKup2,
                                KUP.Adresa, KUP.Adresa2, KUP.SMesto, KUP.Posta, KUP.Zemja '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By D.Sifra_Kup '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By KUP.ImeKup '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By MVr_Krajna Desc, DVr_Krajna Desc'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vk_NPS DESC'
print @SSQl
    Exec(@SSQL)
    Set Nocount Off
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dodajdeklart]'))
drop procedure [dbo].[sp_dodajdeklart]

Go

CREATE   PROCEDURE sp_DodajDeklArt
    @Sifra_Art varchar(20),
    @Ozn as varchar(20),
    @Sifra_Art_Od varchar(20),
    @Sifra_Art_Do varchar(20),
    @OznProm as varchar(20)
AS
    -- JA NEMAM ISPROBANO, PRVO NAPRAJ BACKUP
    --set @Sifra_Art = '004800'      -- od koj artikal od deklArt da zema FileTmp
    --set @Ozn = 'mk'            -- Ozn na artiklot
    --set @Sifra_Art_Od = '004800'    -- Artikal od za insertiranje
    --set @Sifra_Art_Do = '004850'    -- Artikal do za insertiranje
    --set @OznProm = 'mk'        -- Oznaka koja kke se inseretira
    If @Sifra_Art Is Not null And @Ozn Is Not Null And @Sifra_Art_Od Is Not Null And @Sifra_Art_Do Is Not Null And @OznProm Is Not Null
    Begin
        delete from deklart
        where sifra_Art >= @Sifra_Art_Od and sifra_Art <= @Sifra_Art_Do And Ozn = @OznProm and Sifra_Art<>@Sifra_Art
        Insert Into DeklArt(Sifra_Art, Ozn, FileTmp, PrinterName, PageSize)
        Select K.Sifra_Art, @OznProm Ozn, D.FileTmp, D.PrinterName, D.PageSize
        From Katart K
        Inner Join DeklArt D On D.Sifra_Art=@Sifra_Art And D.Ozn=@Ozn
        Where K.Sifra_Art>=@Sifra_Art_Od And K.Sifra_Art<=@Sifra_Art_Do and K.Sifra_Art<>@Sifra_Art
    End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dodajpombrdok]'))
drop procedure [dbo].[sp_dodajpombrdok]

Go

CREATE  PROCEDURE sp_DodajPomBrDok

    @KodObr        varchar(50),
    @KodOperator    varchar(50),
    @Sifra_Oe    smallint = null,
    @Sifra_Dok    smallint = null,
    @Broj_Dok    int = null

AS

    Insert Into PomBrojDok
                 (KodObr, KodOperator, Sifra_Oe, Sifra_Dok, Broj_Dok)
    Values   (@KodObr, @KodOperator, @Sifra_Oe, @Sifra_Dok, @Broj_Dok)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokrid]'))
drop procedure [dbo].[sp_dokrid]

Go

CREATE     PROCEDURE sp_DokrID
    @Sifra_OE Smallint,
    @Sifra_Dok Smallint,
    @Broj_Dok Int,
    @Sifra_Prim smallint,
    @ImaDodatna Char(1),
    @DokrID Int OUTPUT,
    @Broj_Nal Int OUTPUT
AS
    Select @DokrID=DokrID, @Broj_Nal=Broj_Nal From Dokr
        Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok And Sifra_Prim=@Sifra_Prim And ImaDodatna=@ImaDodatna




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokrpecdok]'))
drop procedure [dbo].[sp_dokrpecdok]

Go

CREATE PROCEDURE sp_DokrPecDok
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
    @Pec_Dok smallint OUTPUT
AS
    SELECT @Pec_Dok=Pec_Dok
   FROM Dokr
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokrpecdoknv]'))
drop procedure [dbo].[sp_dokrpecdoknv]

Go

CREATE PROCEDURE sp_DokrPecDokNV
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
    @Pec_Dok smallint
AS
    UPDATE Dokr
        Set Pec_Dok=@Pec_Dok
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokrpecfisc]'))
drop procedure [dbo].[sp_dokrpecfisc]

Go

CREATE PROCEDURE sp_DokrPecFisc
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
    @Pec_Fisc smallint OUTPUT
AS
    SELECT @Pec_Fisc=Pec_Fisc
   FROM Dokr
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokrpecfiscnv]'))
drop procedure [dbo].[sp_dokrpecfiscnv]

Go
CREATE PROCEDURE sp_DokrPecFiscNV
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
    @Pec_Fisc smallint
AS
    UPDATE Dokr
        Set Pec_Fisc=@Pec_Fisc, Dat_Pec_Fisc = GETDATE()
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dokzanalozi]'))
drop procedure [dbo].[sp_dokzanalozi]

Go

CREATE        PROCEDURE sp_DokZaNalozi
    @Sifra_OE Smallint,
    @Sifra_dok smallint,
    @Broj_Dok_Od int,
    @Broj_Dok_Do int,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Nivo  varchar(2),
    @BankaOd char(1) = 'K'        -- K - Komint,      B - KBanki
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl  Varchar(4000)

    Set @SSQLUsl = ' '

    If @Datum_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok >=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Broj_Dok >=''' + Cast(@Broj_Dok_Od As Varchar(8)) + ''' '
    If @Broj_Dok_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Broj_Dok <=''' + Cast(@Broj_Dok_Do As Varchar(8)) + ''' '
    If @Sifra_Nivo Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '

    If @BankaOd = 'B'
    Begin
        Create Table #KomBanka
        (
            Sifra_Kup    char(6),
            Banka        varchar(40),
            Ziro        varchar(20)
        )

        Set @SSQL = ' Select Distinct A.Sifra_Kup
                From AnFinDok A
                         WHERE A.Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) +
                ' AND A.Sifra_Dok = '  + Cast(@Sifra_Dok as varchar(6)) + ' '

        Insert Into #KomBanka (Sifra_Kup)  Exec(@SSQL+@SSQLUsl)

        Update #KomBanka
        Set Banka = B.ImeBanka, Ziro = KB.ZiroSka
        From KBanki KB
        Inner Join Banki B On B.Sifra_Ban=KB.Sifra_Ban
        Where KB.Sifra_Kup=#KomBanka.Sifra_Kup
    End



    Set @SSQL = 'SELECT A.BrojDok, A.Datum_Dok, A.Rok, A.Dolzi+A.Pobaruva As Iznos, A.Sifra_Kup, A.Broj_Dok, Kup.ImeKup, '
    If @BankaOd = 'B'
        SET @SSQL = @SSQL + ' KB.Banka, KB.Ziro '
    Else
        SET @SSQL = @SSQL + ' Kup.Banka, Kup.Ziro '
    SET @SSQL = @SSQL + ' FROM AnFinDok A
                 Inner Join Komint Kup On A.Sifra_Kup=Kup.Sifra_Kup '
    If @BankaOd = 'B'
        SET @SSQL = @SSQL + ' Left Outer Join #KomBanka KB On KB.Sifra_Kup=A.Sifra_Kup '
    SET @SSQL = @SSQL + ' WHERE A.Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) +
                  ' AND A.Sifra_Dok = '  + Cast(@Sifra_Dok as varchar(6)) + ' '
    Exec(@SSQL+@SSQLUsl)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dozvolenart]'))
drop procedure [dbo].[sp_dozvolenart]

Go
CREATE PROCEDURE sp_DozvolenArt
    @Sifra_OE        smallint,
    @Sifra_Art        varchar(20),
    @Tip_DozvOrgArt    varchar(10),
    @Dozvolen        char(1) = 'N' OUTPUT
AS
SET @Dozvolen = 'N'
Declare @KlkZapisi int
SET @KlkZapisi = 0
Declare @Sif_GrOrg char(6)
SET @Sif_GrOrg = ''
SELECT @Sif_GrOrg = Sif_GrOrg FROM GrOrg WHERE Edinstvena='D' AND
Sif_GrOrg IN (SELECT Sif_GrOrg FROM SGrOrg WHERE Sifra_OE = @Sifra_OE)
IF @Tip_DozvOrgArt = 'PODG'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Sifra_Podg IN
    (SELECT Sifra_Podg FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt = 'GR'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Sifra_Podg IN
    (SELECT Sifra_Podg FROM Grupi WHERE Sifra_Gr IN
    (SELECT Sifra_Gr FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg))
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt ='DR1'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Drugo1 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt ='DR2'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Drugo2 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt ='DR3'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Drugo3 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt ='DR4'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Drugo4 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg  = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt ='DR5'
Begin
    SELECT @KlkZapisi = COUNT(*) FROM KatArt WHERE Drugo5 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg  = @Sif_GrOrg)
    AND Sifra_Art = @Sifra_Art
End
ELSE IF @Tip_DozvOrgArt = 'SIF'
Begin
    Declare @ArtOd varchar(20)
    Declare @ArtDo varchar(20)
    Declare DozvArtOdDo1 Cursor Fast_Forward For
        Select  Sifra_Od, Sifra_Do From DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg
    Open DozvArtOdDo1
    Fetch Next From DozvArtOdDo1 Into @ArtOd, @ArtDo
    While @@Fetch_Status = 0
    Begin
        IF @KlkZapisi=0
        SELECT @KlkZapisi = COUNT(*) FROM KatArt
        WHERE Sifra_Art >= @ArtOd AND Sifra_Art <= @ArtDo AND Sifra_Art =@Sifra_Art
        Fetch Next From DozvArtOdDo1 Into  @ArtOd, @ArtDo
    End
    Close DozvArtOdDo1
    Deallocate DozvArtOdDo1
End
IF @KlkZapisi > 0 SET @Dozvolen='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_dupli]'))
drop procedure [dbo].[sp_dupli]

Go

CREATE Procedure sp_Dupli
As
    Declare @Sifra_OE Smallint
    Declare @Sifra_Art Varchar(20)
    Set Nocount On
    Declare Tabela Cursor Fast_Forward For
        Select Distinct Sifra_OE, Sifra_Art From Soart
    Open Tabela
    Fetch Next From Tabela Into @Sifra_OE, @Sifra_Art
    While @@Fetch_Status = 0
    Begin
        If Not Exists (Select * From Soart1 Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art)
            INSERT INTO [Soart1] ([Sifra_OE], [Sifra_Art], [Vlez], [Izlez], [Prof_Rez], [Cena], [DanCena], [POsn], [NabCena], [DokCena], [Uces])
            SELECT Top 1 [Sifra_OE], [Sifra_Art], [Vlez], [Izlez], [Prof_Rez], [Cena], [DanCena], [POsn], [NabCena], [DokCena], [Uces] FROM [Soart] Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
        Fetch Next From Tabela Into @Sifra_OE, @Sifra_Art
    End
    Close Tabela
    Deallocate Tabela
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_duplirazlceni]'))
drop procedure [dbo].[sp_duplirazlceni]

Go
CREATE    PROCEDURE sp_DupliRazlCeni
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OEZa    smallint,
    @VkZaBrisenje    int = 0 OUTPUT
AS
Declare @RazlID    int
Declare @Sifra_OE    smallint
Declare @Sifra_Razl    smallint
Declare @Datum_Dok    smalldatetime
Declare @Sifra_Art    varchar(20)
Declare @Kolic        decimal(18,6)
Declare @PocCena    decimal(18,6)
Declare @KrCena    decimal(18,6)
Declare @POsn        decimal(6,2)
Declare @PTar        char(3)
Declare @DanPocCena    char(1)
Declare @DanKrCena    char(1)
Declare @RazlID1    int
Declare @Sifra_OE1    smallint
Declare @Sifra_Razl1    smallint
Declare @Datum_Dok1    smalldatetime
Declare @Sifra_Art1    varchar(20)
Declare @Kolic1    decimal(18,6)
Declare @PocCena1    decimal(18,6)
Declare @KrCena1    decimal(18,6)
Declare @POsn1    decimal(6,2)
Declare @PTar1    char(3)
Declare @DanPocCena1 char(1)
Declare @DanKrCena1    char(1)
Declare @RDokIDPom    int
SET @RazlID    = 0
SET @Sifra_OE    = 0
SET @Sifra_Razl = 0
SET @Datum_Dok = '2000-01-01'
SET @Sifra_Art    = ''
SET @Kolic    = 0
SET @PocCena    = 0
SET @KrCena    = 0
SET @POsn    = 0
SET @PTar    = ''
SET @DanPocCena = ''
SET @DanKrCena = ''
    CREATE TABLE ##TmpRazlCeni
(    RDokID    int
)
DECLARE Stavki CURSOR FAST_FORWARD FOR
SELECT RDokID, Sifra_OE, Sifra_Razl, Datum_Dok, Sifra_Art, Kolic, PocCena,KrCena, POsn, PTar, DanPocCena, DanKrCena
FROM RazlCeni WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do AND Sifra_OE = @Sifra_OEZa
ORDER BY Sifra_Razl, Datum_Dok, Sifra_Art, RDokID
OPEN Stavki
FETCH NEXT FROM Stavki INTO @RazlID, @Sifra_OE, @Sifra_Razl, @Datum_Dok, @Sifra_Art, @Kolic,
    @PocCena,@KrCena, @POsn, @PTar, @DanPocCena, @DanKrCena
WHILE @@FETCH_STATUS = 0
   Begin
    SET @RDokIDPom = null
    SELECT @RDokIDPom = RDokID FROM ##TmpRazlCeni WHERE RDokID = @RazlID1
    IF @RDokIDPom IS NULL
    Begin
        If @Sifra_Razl = @Sifra_Razl1 AND @Sifra_Art = @Sifra_Art1 AND
           @Datum_Dok1 = @Datum_Dok AND @DanPocCena = @DanPocCena1 AND
           @DanKrCena = @DanKrCena1 AND @PTar = @PTar1 AND @POsn=@POsn1
        Begin
            IF Abs(@Kolic*(@KrCena-@PocCena) + @Kolic1*(@KrCena1-@PocCena1)) <= 0.05
            BEGIN
                INSERT INTO ##TmpRazlCeni (RDokID) VALUES  (@RazlID)
                INSERT INTO ##TmpRazlCeni (RDokID) VALUES  (@RazlID1)
            END
        End
    End
    Set @RazlID1        = @RazlID
    Set @Sifra_Razl1    = @Sifra_Razl
    Set @Sifra_Art1         = @Sifra_Art
    Set @Datum_Dok1    = @Datum_Dok
    Set @DanPocCena1     = @DanPocCena
    Set @DanKrCena1     = @DanKrCena
    Set @PocCena1     = @PocCena
    Set @KrCena1         = @KrCena
    Set @Kolic1        = @Kolic
    Set @PTar1        = @PTar
    Set @Posn1        = @POsn
    FETCH NEXT FROM Stavki INTO @RazlID, @Sifra_OE, @Sifra_Razl, @Datum_Dok, @Sifra_Art, @Kolic,
    @PocCena,@KrCena, @POsn, @PTar, @DanPocCena, @DanKrCena
   End
CLOSE Stavki
DEALLOCATE Stavki
    SELECT @VkZaBrisenje = COUNT(RDokID) FROM ##TmpRazlCeni




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_duplovneseni_seriskibr]'))
drop procedure [dbo].[sp_duplovneseni_seriskibr]

Go


CREATE      PROCEDURE sp_DuploVneseni_SeriskiBr
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(10) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_kup    char(6) = Null,
    @SeriskiBrOd    varchar(15) = Null,
    @SeriskiBrDo    varchar(15) = Null
 AS
    Declare @SSQL as varchar(8000)
    Create Table #Tab
    (
     Sifra_Art     varchar(20),
     SeriskiBr    varchar(15),
     Izlezi        decimal(18,6),
     Grupa        int
    )
    Set @SSQL = ' Select S.Sifra_Art, B.SeriskiBr,
            Sum((Case When S.Kolic >= 0  Then 1 Else  -1  End))
            From BrStavr B
            Inner Join Stavr S On S.DokID=B.DokID
            Inner Join Dokr D On D.DokrID=S.DokrID
            Where D.Sifra_Za = ''1'' '
    If @Sifra_Oe Is not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_OE Is Not Null
        SET @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @SeriskiBrOd Is not Null
        Set @SSQL = @SSQL + ' And B.SeriskiBr >= ' + @SeriskiBrOd + ' '
    If @SeriskiBrDo Is not Null
        Set @SSQL = @SSQL + ' And B.SeriskiBr <= ' + @SeriskiBrDo + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_Kup + ' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art, B.SeriskiBr '
    Set @SSQL = @SSQL + ' Order By S.Sifra_Art, B.SeriskiBr '
    Insert Into #Tab(Sifra_Art, SeriskiBr, Izlezi) Exec(@SSQL)
    Set @SSQL = ' Select  T.Sifra_Art, K.ImeArt, T.SeriskiBr, T.Izlezi
            From #Tab T
            Inner Join Katart K On K.Sifra_Art=T.Sifra_Art
            Where Izlezi > 1 '
    Set @SSQL=@SSQL+'ORDER BY T.Sifra_Art, T.SeriskiBr '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ekviv_art_dali_se]'))
drop procedure [dbo].[sp_ekviv_art_dali_se]

Go

create Procedure sp_Ekviv_Art_Dali_se
      @Sifra_Art1 Varchar(20),
      @Sifra_Art2 varchaR(20),
      @Faktor decimal (18, 6) = 0 OUTPUT

  As

    create Table #tEkv1
    (    Sifra_Art     Varchar(20),
        IdEkviv        varchar(50),
        Za_Kolku     Decimal(18,6)
    )

    insert into #tEkv1
    (Sifra_ARt, IdEkviv, Za_Kolku)
    select Sifra_Art, IdEkviv, Za_Kolku
    from EkvivARt
    where SifrA_Art = @Sifra_Art1

    --
    create Table #tEkv2
    (    Sifra_Art     Varchar(20),
        IdEkviv        varchar(50),
        Za_Kolku     Decimal(18,6)
    )

    insert into #tEkv2
    (Sifra_ARt, IdEkviv, Za_Kolku)
    select Sifra_Art, IdEkviv, Za_Kolku
    from EkvivARt
    where SifrA_Art = @Sifra_Art2

    select top 1 @Faktor = case when A.Za_Kolku = 0 or B.Za_Kolku = 0 then 1 else B.Za_Kolku / A.Za_Kolku end
    from #tEkv1 A
    inner join #tEkv2 B
    on A.IdEkviv = B.IdEkviv

    drop table #tEkv1
    drop table #tEkv2

--print @Faktor




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_etiketi_artikli]'))
drop procedure [dbo].[sp_etiketi_artikli]

Go
CREATE PROCEDURE sp_Etiketi_Artikli
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20)
AS
    Select * From Katart Where Sifra_Art >= @Sifra_Art_Od And Sifra_Art <= @Sifra_Art_Do



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_etiketiart]'))
drop procedure [dbo].[sp_etiketiart]

Go


CREATE   PROCEDURE sp_EtiketiArt
    @Sifra_Oe     smallint,
    @Sifra_Art     varchar(20)
 AS
    Select S.Sifra_Art, K.ImeArt, K.ImeArt2, K.Nom, S.Cena, S.DanCena, K.ImaKomerc, T.ProcOsn, S.NabCena, S.NNabCena, S.DokCena,
        K.GotCena, K.SpeCena, K.MalCena, K.DogCena, K.Cena as ACena, K.Sifra_Tar
    From Soart S
    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art
       INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    Where S.Sifra_Oe=@Sifra_Oe and S.Sifra_art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_etu]'))
drop procedure [dbo].[sp_etu]

Go
CREATE PROCEDURE sp_ETU
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = 'Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, Kup.ImeKup,
                S.Sifra_Art, K.ImeArt, S.DokCena as Iznos, (S.DokCena*S.Posn/100) DDV
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
            Where K.SMatUsl = ''U'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order By  D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exp_specif]'))
drop procedure [dbo].[sp_exp_specif]

Go


CREATE      PROCEDURE [dbo].[sp_Exp_Specif]
    @Godina        smallint,
    @Mesec        smallint

AS

    Select S.Godina_Fra, S.Faktura_Br, '2' as Rangiran, S.Specif_Br, S.Sifra_Apteka, S.NabVr_BezDDV, S.Iznos_Marza, S.Osnovica_DDV, S.Iznos_DDV,
        S.Vk_Iznos, S.Vk_Partic, S.Vk_ZaNaplata, S.Vk_PresmParticip, S.BezPartic, S.spc_podr, S.spc_specif, S.Poc_Broj_Recept, S.Kr_Broj_Recept, S.Kolku_Recepti,
        F.Sifra_PodrSluzba_Fakt, F.Mesec_Fra, P.PocCifriKniska, S.SpecLek, S.NaParce, S.DaliDezuren, S.Stranski
    From Specifikacii S
    Inner Join Faktura F on S.Godina_Fra = F.Godina_Fra and S.Faktura_Br = F.Faktura_Br
    Left Outer Join PodracniSluzbi P on F.Sifra_PodrSluzba_Fakt = P.Sifra_PodrSluzba
    Where S.Godina_Fra = @Godina and F.Mesec_Fra = @Mesec
    Order By S.Godina_Fra, S.Specif_Br, S.Rangiran








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exp_specif_recepti]'))
drop procedure [dbo].[sp_exp_specif_recepti]

Go

CREATE  PROCEDURE [dbo].[sp_Exp_Specif_Recepti]
    @Godina        smallint,
    @Mesec        smallint
AS
                                            -- rangiran treba da se dopolni 3 za lekovi specifika,   2 za lekovi so referentna cena
    Select R.Broj_Recept, R.Sifra_Apteka, R.Sifra_Nasa_Firma, R.Sifra_Kompanija, R.EMBG, R.Broj_Kniska, R.Sifra_OsnovOsig, R.Sifra_Lekar, R.Sifra_Lekar_Spec,
        R.Datum_Recept, R.Sifra_Dijagn, R.Sifra_Art, R.Datum_Izdav, R.Sifra_Farmacevt, R.Vid_Marza, R.Proc_Marza, R.Kolku_Pakuv, R.Kolku_Kolic, '2' as Rangiran,
        R.Cena_Tender, R.Iznos_Tender, R.Iznos_Marza, R.Osnov_DDV, R.ProcDDV, R.Iznos_Na_DDV, R.Iznos_So_DDV, R.Sifra_Oslobod, R.Iznos_Partic,
        R.Naplat_Partic, R.Broj_Priem, R.Sifra_ATC, R.Faktura_Br, R.Godina_Fra, R.Mesec_Fra, R.Specif_Br, R.Rbr_Vo_Specif, R.Godina_Priem, R.BezPartic,
        R.Sifra_Oslob_Nov, R.spc_podr, R.spc_specif, R.spc_recept, R.Specif_Fiz, R.Rbr_Fiz, L.SOdrziEd Br_Vo_Pakuv,
        L.Alt_Ime, R.SpecLek, L.VoPDa, R.Sifra_Lekar_Dezuren, Farm.Faksimil Faksimil_Farmacevt,
        R.EMBG_OSIG, R.EZBO, R.EZBO_OSIG, R.Sifra_Lekar_Konz_2, R.Sifra_Lekar_Konz_3,
        R.VidRecept, R.Datum_Vaznost,
        R.Str_Broj, R.Str_Broj_EHIC, R.Str_Drzava, R.Str_Pasos, R.Str_Broj_Osig
    From Recepti R
    Inner Join Specifikacii S on R.Godina_Fra = S.Godina_Fra and R.Specif_Br = S.Specif_Br
    Inner Join Faktura F on S.Godina_Fra = F.Godina_Fra and S.Faktura_Br = F.Faktura_Br
    Left Outer Join Katart L on R.Sifra_Art = L.Sifra_Art
    Left Outer Join Farmacevt Farm
            on Farm.Sifra_Farmacevt = R.Sifra_Farmacevt
    Where R.Godina_Fra = @Godina and F.Mesec_Fra = @Mesec
          and (R.Kolku_Pakuv > 0 or R.Kolku_Kolic > 0)
    Order by R.Godina_Fra, R.Specif_Br, R.Rbr_Vo_Specif












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expkonvaga]'))
drop procedure [dbo].[sp_expkonvaga]

Go


CREATE   PROCEDURE sp_ExpKonVaga
    @Sifra_OE    smallint,
    @Lokacija    varchar(10)
AS
CREATE TABLE #Vaga
(ImeArt        nchar(26),
Sifra_Art    varchar(20),
Cena        decimal(18,2))
INSERT INTO #Vaga (ImeArt, Sifra_Art, Cena)
SELECT Substring(A.ImeArt,1,26), A.Sifra_Art, S.Cena FROM KatArt A
INNER JOIN SoArt S ON A.Sifra_Art=S.Sifra_Art
WHERE A.Lokacija=@Lokacija AND S.Sifra_OE=@Sifra_OE
CREATE TABLE ##TmpVaga
(Zapis    nvarchar(26))
Declare @ImeArt nchar(26)
Declare @Sifra_Art varchar(20)
Declare @Cena decimal(18,2)
    Declare TabVaga Cursor Fast_Forward For  Select * From #Vaga ORDER BY Sifra_Art
    Open TabVaga
    Fetch Next From TabVaga Into @ImeArt, @Sifra_Art, @Cena
    While @@Fetch_Status = 0
    Begin
        INSERT INTO ##TmpVaga VALUES (@ImeArt)
        INSERT INTO ##TmpVaga VALUES (' '+cast(cast(@Sifra_Art as int) as varchar(6)))
        INSERT INTO ##TmpVaga VALUES (' '+cast(cast(@Cena*100 as int) as varchar(10)))
        INSERT INTO ##TmpVaga VALUES (' 2'+@Sifra_Art)
        INSERT INTO ##TmpVaga VALUES (' 5')
        INSERT INTO ##TmpVaga VALUES (' 12')
        Fetch Next From TabVaga Into @ImeArt, @Sifra_Art, @Cena
    End
    Close TabVaga
    Deallocate TabVaga





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expkonvaga_read]'))
drop procedure [dbo].[sp_expkonvaga_read]

Go



Create   PROCEDURE sp_ExpKonVaga_Read
    @Sifra_OE    smallint,
    @Lokacija    varchar(10)
AS
    CREATE TABLE #Vaga
    (ImeArt        nchar(26),
    Sifra_Art    varchar(20),
    Cena        decimal(18,2))

    INSERT INTO #Vaga (ImeArt, Sifra_Art, Cena)
    SELECT Substring(A.ImeArt,1,26), A.Sifra_Art, S.Cena FROM KatArt A
    INNER JOIN SoArt S ON A.Sifra_Art=S.Sifra_Art
    WHERE A.Lokacija=@Lokacija AND S.Sifra_OE=@Sifra_OE

    CREATE TABLE #TmpVaga
    (
     IdPopis    int Identity(1,1),
     Zapis        nvarchar(26)
    )

    Declare @ImeArt nchar(26)
    Declare @Sifra_Art varchar(20)
    Declare @Cena decimal(18,2)

    Declare TabVaga Cursor Fast_Forward For  Select * From #Vaga ORDER BY Sifra_Art
    Open TabVaga
    Fetch Next From TabVaga Into @ImeArt, @Sifra_Art, @Cena
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpVaga VALUES (@ImeArt)
        INSERT INTO #TmpVaga VALUES (' '+cast(cast(@Sifra_Art as int) as varchar(6)))
        INSERT INTO #TmpVaga VALUES (' '+cast(cast(@Cena*100 as int) as varchar(10)))
        INSERT INTO #TmpVaga VALUES (' 2'+@Sifra_Art)
        INSERT INTO #TmpVaga VALUES (' 5')
        INSERT INTO #TmpVaga VALUES (' 12')
        Fetch Next From TabVaga Into @ImeArt, @Sifra_Art, @Cena
    End
    Close TabVaga
    Deallocate TabVaga

    Select * From #TmpVaga Order By IDPopis






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportartplivaxml]'))
drop procedure [dbo].[sp_exportartplivaxml]

Go


CREATE   procedure sp_ExportArtPlivaXml

    @Sifra_Oe smallint= null

As

    Declare @SSQL as varchar(5000)

    Set @SSQL ='SELECT A.Sifra_Art, A.ImeArt, A.Sifra_Tar, T.ProcOsn
        FROM KatArt A
        INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar '

    if @SifrA_Oe is not null
    set @SSQL = @SSQL + ' inner join Soart S on S.SifrA_Art = A.SIfra_Art
                    and S.Sifra_Oe = ' + cast(@Sifra_Oe as varchaR(5))

    exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdeta_nabavka]'))
drop procedure [dbo].[sp_exportdeta_nabavka]

Go




CREATE              procedure sp_ExportDeta_Nabavka
    @Sifra_OE smallint = Null,
    @Datum_Od smalldatetime,
    @Datum_Do smalldatetime,
    @TipDok varchar(100)
As

    Declare @SSQL as varchar(8000)

    CREATE TABLE ##TmpExport
    (  Sifra_Kup    char(9),
       Datum_Dok    char(10),
       Broj_Dok        int,
       NR            char(1),
       Sifra_Art    char(20),
       Nom             char(20),
       Sifra_Oe        char(4),
       Kolic        decimal(18,4),
       Cena         decimal(18,4),
       DDV            decimal(6, 2),
       Uces         decimal(6,2),
       Rabat        decimal(2,2),
       Sifra_Podg    varchar(20),
       ProcessKode    varchar(20),
       Expl            varchar(20),
       VlIzl        char(1),
       Nula            char(9),
       Godina        char(10),
       Tip            char(1),
    ) --dbo.fn_LevoNuliStr(D.Sifra_Kup, 9)


    Set @SSQL =' Select dbo.fn_levonuli(D.sifra_kup,9) Sifra_kup, dbo.fn_VratiDatumString2(D.Datum_Dok) Datum_Dok, D.Broj_Dok,
                (case when S.Kolic>0 then ''N'' else ''R'' end), S.Sifra_Art, A.Nom, dbo.fn_LevoNuliStr(cast(S.Sifra_Oe as varchar(5)), 4) Sifra_Oe,
                Round(S.Kolic,4),Round(S.DokCena, 4),Round(S.POsn, 0),Round(S.Uces,2), ''0'' Rabat, '''' Sifra_podg, '''' ProcessKode,
                '''' Expl, ''G'' VlIzl, ''0'' Nula, ''01/01/1900'' Godina, ''P'' Tip
                From Stavr S
                Inner join Dokr D ON S.DokrID= D.DokrID
                Inner join KatArt A ON S.Sifra_Art=A.Sifra_Art
                  Where S.VlIzl=''V''  '

    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_OE as Varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    If @TipDok is not null
        set @SSQL = @SSQL + ' and S.Sifra_Dok in (' + @TipDok + ') '
    set @SSQL = @SSQL + ' Order by S.Datum_Dok, S.Sifra_Oe, S.Sifra_Dok '
    print @ssql

    INSERT INTO ##TmpExport
    EXEC (@SSQL)
    SELECT * FROM ##TmpExport















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdeta_prodazba]'))
drop procedure [dbo].[sp_exportdeta_prodazba]

Go





CREATE                procedure sp_ExportDeta_Prodazba
    @Sifra_OE smallint = Null,
    @Datum_Od smalldatetime,
    @Datum_Do smalldatetime,
    @TipDok varchar(100)= null
As

    Declare @SSQL as varchar(8000)

    CREATE TABLE ##TmpExport
    (  Sifra_Kup    char(9),
       Datum_Dok    char(10),
       Broj_Dok        int,
       NR            char(1),
       Sifra_Art    char(20),
       Nom             char(20),
       Sifra_Oe        char(4),
       Kolic        decimal(18,4),
       Cena         decimal(18,4),
       DDV            decimal(6,2),
       Uces         decimal(6,2),
       Rabat        decimal(2,2),
       Ime_Oper        char(4),
       Sifra_Oper    char(4),
       BrKasa        char(4),
       NacPlak        char(4),
       Tip            char(2),
    ) --dbo.fn_LevoNuliStr(D.Sifra_Kup, 9)

   Set @SSQL = 'Select  ''999999999'' Sifra_kup, dbo.fn_VratiDatumString2(P.Datum_Evid) Datum_Dok, P.Broj_Ska,
                (case when S.Kolic>0 then ''N'' else ''R'' end) NR, S.Sifra_Art, A.Nom, dbo.fn_LevoNuliStr(cast(S.Sifra_Oe as varchar(5)), 4) Sifra_Oe, Round(S.Kolic,4),Round(S.Cena,4),Round(S.Proc_Osn, 0),
                Round(S.Popust,2), ''0'' Rabat, cast(O.Ime_Oper as char(4)) Ime_Oper, cast(P.Sifra_Oper as char(4)) Sifra_Oper, cast(S.BrKasa as char(4)) BrKasa,
                (Case when PL.Sifra_Nac=1 then ''1''  else ''2'' end) NacPLak, ''P'' Tip
                From SPromet S
                Inner join Promet P ON S.Sifra_Oe=P.Sifra_Oe and S.Grp_Kasa=P.Grp_Kasa and S.BrKasa=P.BrKasa and S.Broj_Ska=P.Broj_Ska
                Inner Join PlkProm PL on S.Sifra_Oe=PL.Sifra_Oe and S.Grp_Kasa=PL.Grp_Kasa and S.BrKasa=PL.BrKasa and S.Broj_Ska=PL.Broj_Ska
                Left Outer Join Operatori O on P.Sifra_Oper=O.Sifra_Oper
                Left Outer Join KatArt A on A.Sifra_Art=S.Sifra_Art
                Where 1=1 '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oe = ' + cast(@Sifra_OE as Varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_Evid >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_Evid <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    set @SSQL = @SSQL + ' Order by P.Datum_Evid, P.Sifra_Oe'
    Print @ssql
    INSERT INTO ##TmpExport
    EXEC (@SSQL)
    SELECT * FROM ##TmpExport
















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdnevenprometvind]'))
drop procedure [dbo].[sp_exportdnevenprometvind]

Go


CREATE           PROCEDURE sp_ExportDnevenPrometVind
    @Datum_Od SMALLDATETIME,
    @Datum_Do SMALLDATETIME,
    @Sif_GrOrg char(6)
AS                    --CASE WHEN K.EdMera like 'kg%' THEN round(S.Kolic,2) ELSE round(S.Kolic*K.Tezina/1000,2) END
    SELECT S.Sifra_Oe, D.Sifra_Pat, S.Datum_Dok, S.Sifra_Dok, T.ImeDok, S.Sifra_Art, Sum(S.Kolic) Kolic, SUM(S.Kolic*K.Tezina/1000) Kgr
    FROM Stavr S
    INNER JOIN Dokr D ON D.DokrID = S.DokrID
    LEFT OUTER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
    INNER JOIN TipDok T ON S.Sifra_Dok=T.Sifra_Dok
    WHERE S.Datum_Dok>=@Datum_Od And S.Datum_Dok<=@Datum_Do And D.VlIzl='I'
    And D.Sifra_Za='1' And D.Sifra_Kup IS NOT NULL  And S.Sifra_Oe IN
    (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg)
    GROUP BY S.Sifra_Oe, D.Sifra_Pat, S.Datum_Dok, S.Sifra_Dok, T.ImeDok, S.Sifra_Art
    ORDER BY S.SIfra_Oe, D.Sifra_Pat, S.Datum_Dok, S.Sifra_Dok, S.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdokr_sap]'))
drop procedure [dbo].[sp_exportdokr_sap]

Go



CREATE    PROCEDURE sp_ExportDokr_SAP
    @DatumOd smalldatetime,
    @DatumDo smalldatetime
AS
    IF EXISTS ( SELECT * FROM tempdb..sysobjects WHERE name='##TmpDokrSAP')
        DROP TABLE ##TmpDokrSAP
    CREATE TABLE ##TmpDokrSAP (
        DOC_NO CHAR(20),
        ORDI_DATE CHAR(8),
        REQ_DATE CHAR(8),
        RC_TIME_TO CHAR(4),
        CUST_CODE CHAR(12),
        POS_CODE CHAR(6),
        PERSON_CODE CHAR(6),
        RC_SALES_ORG_CODE CHAR(4),
        RC_DISTR_CHANNEL_CODE CHAR(2),
        RC_SECTOR_CODE CHAR(2),
        RC_SALES_OFFICE_CODE CHAR(4),
        STOCK_CODE CHAR(8),
        RABAT1 DECIMAL(16,2),
        RABAT2 DECIMAL(16,2),
        ORDI_NOTE CHAR(255)
    )
CREATE TABLE #TmpDok
(Sifra_Oe    smallint,
Sifra_Dok    smallint,
Broj_Dok    int,
UcesOsn        decimal(16,2),
UcesKol        decimal(16,2))
INSERT INTO #TmpDok (Sifra_OE, Sifra_Dok, Broj_Dok, UcesOSn, UcesKol)
SELECT Sifra_Oe, Sifra_Dok, Broj_Dok, 0,0 FROM Dokr WHERE Datum_Dok>=@DatumOd AND Datum_Dok<=@DatumDo
UPDATE #TmpDok SET UcesOsn=S.UcesOsn/100, UcesKol=S.UcesKol/100 FROM Stavr S
WHERE #TmpDok.Sifra_OE=S.Sifra_OE AND #TmpDok.Sifra_Dok=S.Sifra_Dok AND #TmpDok.Broj_Dok=S.Broj_Dok
    INSERT INTO ##TmpDokrSAP (DOC_NO, ORDI_DATE, REQ_DATE, RC_TIME_TO, CUST_CODE, POS_CODE, PERSON_CODE,
                              RC_SALES_ORG_CODE, RC_DISTR_CHANNEL_CODE, RC_SECTOR_CODE, RC_SALES_OFFICE_CODE,
                              STOCK_CODE,    RABAT1, RABAT2,    ORDI_NOTE)
    SELECT CAST(D.Sifra_OE AS CHAR(3)) + '-' + CAST(D.Sifra_Dok AS CHAR(3)) + '/' + CAST(D.Broj_Dok AS CHAR(6)),
           dbo.fn_VratiGodMesDenBas(D.Datum_Dok), dbo.fn_VratiGodMesDenBas(D.Datum_Dok), '1200',
           D.Sifra_Kup + (CASE WHEN D.Sifra_Pat IS NULL Then '' ELSE KO.Star_Kup END), (CASE WHEN D.Sifra_Pat IS NULL Then '' ELSE KO.Star_Kup END),
           P.Sifra_Pat_SAP, O.Sifra_OE_SAP, 'BR', '01', 'MK01',P.Sifra_Pat_SAP, S.UcesOsn, S.UcesKol,D.Identif_Br
    FROM Dokr D LEFT OUTER JOIN KObjekti KO ON D.Sifra_Kup=KO.Sifra_Kup AND D.Sifra_Obj=KO.Sifra_Obj
    LEFT OUTER JOIN Patnici P ON D.Sifra_Pat=P.Sifra_Pat
    INNER JOIN #TmpDok S ON S.Sifra_OE=D.Sifra_OE AND S.Sifra_Dok=D.Sifra_Dok AND S.Broj_Dok=D.Broj_Dok
    INNER JOIN OrgEd O ON D.Sifra_OE=O.Sifra_OE WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo
    SELECT * FROM ##TmpDokrSAP





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdokrnaracimp]'))
drop procedure [dbo].[sp_exportdokrnaracimp]

Go


CREATE        PROCEDURE sp_ExportDokrNaracIMP
    @DatumOd SMALLDATETIME,
    @DatumDo SMALLDATETIME,
    @PratiSiteDok CHAR(1) = 'N'
AS

IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE name='##TmpHdr') DROP TABLE ##TmpHDR

CREATE TABLE ##tmpHDR
(
    DokrID INT,
    TipDok VARCHAR(3),
    Broj_Dok SMALLINT,
    Firma SMALLINT,
    Sifra_Oe SMALLINT,
    Datum_Dok VARCHAR(20),
    Vreme_Dok VARCHAR(20),
    Rok SMALLINT,
    Sifra_Pat SMALLINT,
    Komint VARCHAR(20),
    Sifra_Obj SMALLINT,
    Toc200 DECIMAL(18,4),
    Prenesen CHAR(1),
    Identif_Br VARCHAR(25)
)

INSERT INTO ##tmpHDR (DokrID, TipDok, Broj_Dok, Firma, Sifra_Oe, Datum_Dok, Vreme_Dok,
                      Rok, Sifra_Pat, Komint, Sifra_Obj, Toc200, Prenesen, Identif_Br)
SELECT D.DokrID, ( CASE WHEN D.Sifra_Dok=81 THEN 'FD0'
                         WHEN D.Sifra_Dok=82 THEN 'FM0'
                         WHEN D.SIfra_Dok=83 THEN 'FD1'
                         WHEN D.Sifra_Dok=84 THEN 'FM1'
                         WHEN D.Sifra_Dok=86 THEN 'FD2'
                         WHEN D.SIfra_Dok=87 THEN 'FD3'
                         WHEN D.Sifra_Dok=88 THEN 'FM2'
                 END) AS TipDok, D.Broj_Dok, 114 AS Firma, D.Sifra_Oe, CAST(YEAR(D.Datum_Dok) AS VARCHAR(4)) + '-'
       + ( CASE WHEN MONTH(D.Datum_Dok) < 10 THEN '0' ELSE '' END ) + CAST (MONTH(D.Datum_Dok) AS VARCHAR(2)) + '-'
       + ( CASE WHEN DAY(D.Datum_Dok) < 10 THEN '0' ELSE '' END ) + CAST (DAY(D.Datum_Dok) AS VARCHAR(2)) AS Datum_Dok,
       (CASE WHEN DATEPART(HH, D.Datum_Vnes) < 10 THEN '0' ELSE '' END ) + CAST(DATEPART(HH, D.Datum_Vnes) AS
Varchar(2)) + '-' +
       (CASE WHEN DATEPART(MM, D.Datum_Vnes) < 10 THEN '0' ELSE '' END ) + CAST(DATEPART(MM, D.Datum_Vnes) AS
Varchar(2)) + '-' +
       (CASE WHEN DATEPART(SS, D.Datum_Vnes) < 10 THEN '0' ELSE '' END ) + CAST(DATEPART(SS, D.Datum_Vnes) AS
Varchar(2))
    AS Vreme_Dok, D.Rok, D.Sifra_Pat, K.Alt_ImeKup AS Komint, D.Sifra_Obj, D.Toc200, D.Prenesen, D.Identif_Br
FROM Dokr D
LEFT OUTER JOIN Komint K ON D.Sifra_Kup = K.Sifra_Kup
WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo

IF @PratiSiteDok <> 'D'
    DELETE FROM ##tmpHdr WHERE Prenesen IS NOT NULL AND Prenesen = 'D'

SELECT DokrID, TipDok, Broj_Dok, Firma, Sifra_Oe, Datum_Dok,
       Vreme_Dok, Rok, Sifra_Pat, Komint, Sifra_Obj, Toc200, Identif_Br FROM ##tmpHDR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportdokrnaracsap]'))
drop procedure [dbo].[sp_exportdokrnaracsap]

Go




CREATE         PROCEDURE sp_ExportDokrNaracSAP
    @DatumOd SMALLDATETIME,
    @DatumDo SMALLDATETIME,
    @ImaHeader    CHAR(1) = 'D',
    @PratiSiteDok CHAR(1) = 'N'
AS
    IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE name='##TmpHdrSAP') DROP TABLE ##TmpHdrSAP

    CREATE TABLE ##TmpHdrSAP (
        BROJ_DOK     VARCHAR(50),
        BROJ_KUP     VARCHAR(20),
        DATUM_DOK     VARCHAR(20),
        DATUM_ISP    VARCHAR(20),
        VRIJEME_ISP    VARCHAR(20),
        DATUM_CIJENE    VARCHAR(20),
        SIFRA_KUPCA    VARCHAR(20),
        SIFRA_MI    VARCHAR(20),
        SIFRA_PUT    VARCHAR(20),
        PROD_ORG    VARCHAR(20),
        DISTR_KAN    VARCHAR(20),
        SEKTOR        VARCHAR(20),
        PROD_URED    VARCHAR(20),
        SKLADISTE    VARCHAR(20),
        ROK_PLAC    VARCHAR(20),
        NAPOMENA    VARCHAR(255),
        SINH        CHAR(1)
    )

-- HEADER-----------------------------------------------------------------------------------------------------
IF @ImaHeader = 'D'
INSERT INTO ##TmpHdrSAP (BROJ_DOK, BROJ_KUP, DATUM_DOK, DATUM_ISP, VRIJEME_ISP, DATUM_CIJENE, SIFRA_KUPCA,
             SIFRA_MI, SIFRA_PUT, PROD_ORG, DISTR_KAN, SEKTOR, PROD_URED, SKLADISTE, ROK_PLAC, NAPOMENA)
VALUES('BROJ_DOK', 'BROJ_KUP', 'DATUM_DOK', 'DATUM_ISP', 'VRIJEME_ISP', 'DATUM_CIJENE', 'SIFRA_KUPCA',
    'SIFRA_MI', 'SIFRA_PUT', 'PROD_ORG', 'DISTR_KAN', 'SEKTOR', 'PROD_URED', 'SKLADISTE', 'ROK_PLAC', 'NAPOMENA')

-- DOKUMENTI -------------------------------------DOLNOTO TRGNATO SAMO ZATOA STO NEMAME Distr_Kanal i Prod_Mesto
/*INSERT INTO ##TmpHdrSAP (BROJ_DOK, BROJ_KUP, DATUM_DOK, DATUM_ISP, VRIJEME_ISP, DATUM_CIJENE, SIFRA_KUPCA,
             SIFRA_MI, SIFRA_PUT, PROD_ORG, DISTR_KAN, SEKTOR, PROD_URED, SKLADISTE, ROK_PLAC, NAPOMENA, SINH)
SELECT  P.Sifra_Pat_SAP + '/' + (CASE WHEN D.Sifra_Dok=81 THEN 'A' WHEN D.Sifra_Dok=82 THEN 'G' END)
    + CAST(D.Sifra_Oe AS VARCHAR(10)) + '-' + CAST(D.Sifra_Dok AS VARCHAR(10)) + '/' + CAST(D.Broj_Dok AS VARCHAR(10)) AS BROJ_DOK,
    '' AS BROJ_KUP, dbo.fn_VratiGodMesDenBas(D.Datum_Dok) AS DATUM_DOK,
    dbo.fn_VratiGodMesDenBas(DATEADD(DAY, 1, D.Datum_Dok)) AS DATUM_ISP,
    CASE WHEN DATEPART(hh, D.Datum_Vnes) < 10 THEN '0' + CAST(DATEPART(hh, D.Datum_Vnes) AS VARCHAR(2)) ELSE CAST(DATEPART(hh, D.Datum_Vnes) AS VARCHAR(2)) END
    + CASE WHEN DATEPART(mm, D.Datum_Vnes) < 10 THEN '0' + CAST(DATEPART(mm, D.Datum_Vnes) AS VARCHAR(2)) ELSE CAST(DATEPART(mm, D.Datum_Vnes) AS VARCHAR(2)) END AS VRIJEME_ISP,
    dbo.fn_VratiGodMesDenBas(D.Datum_Dok) AS DATUM_CIJENE,
    D.Sifra_Kup AS SIFRA_KUPCA,
    K.Star_Kup  AS SIFRA_MI,
    P.Sifra_Pat_SAP  AS SIFRA_PUT,
    'MK01' AS PROD_ORG,
    K.Distr_Kanal AS DISTR_KAN,
    '01' AS SEKTOR, --K.Sektor AS SEKTOR,
    K.Adresa2 AS PROD_URED, --K.PROD_URED,
    K.Zabeleska AS SKLADISTE,
    D.Rok AS ROK_PLAC,
    D.Identif_Br AS NAPOMENA,
    D.Prenesen AS SINH
FROM Dokr D
LEFT OUTER JOIN KObjekti K ON D.Sifra_Kup = K.Sifra_Kup AND D.Sifra_Obj = K.Sifra_Obj
LEFT OUTER JOIN Patnici P ON D.Sifra_Pat = P.Sifra_Pat
WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo

-- NARACKI ------------------------------------------------------------------------------------------------------------------------
INSERT INTO ##TmpHdrSAP (BROJ_DOK, BROJ_KUP, DATUM_DOK, DATUM_ISP, VRIJEME_ISP, DATUM_CIJENE, SIFRA_KUPCA,
             SIFRA_MI, SIFRA_PUT, PROD_ORG, DISTR_KAN, SEKTOR, PROD_URED, SKLADISTE, ROK_PLAC, NAPOMENA, SINH)
SELECT  P.Sifra_Pat_SAP + '/' +'N'+CAST(N.Sifra_Oe AS VARCHAR(10)) + '-' + CAST(N.Sifra_Nar AS VARCHAR(10)) + '/' + CAST(N.Broj_Nar AS VARCHAR(10)) AS BROJ_DOK,
    '' AS BROJ_KUP, dbo.fn_VratiGodMesDenBas(N.Datum_Nar) AS DATUM_DOK,
    dbo.fn_VratiGodMesDenBas(DATEADD(DAY, 1, N.Datum_Nar)) AS DATUM_ISP,
    CASE WHEN DATEPART(hh, N.Datum_Vnes) < 10 THEN '0' + CAST(DATEPART(hh, N.Datum_Vnes) AS VARCHAR(2)) ELSE CAST(DATEPART(hh, N.Datum_Vnes) AS VARCHAR(2)) END
    + CASE WHEN DATEPART(mm, N.Datum_Vnes) < 10 THEN '0' + CAST(DATEPART(mm, N.Datum_Vnes) AS VARCHAR(2)) ELSE CAST(DATEPART(mm, N.Datum_Vnes) AS VARCHAR(2)) END AS VRIJEME_ISP,
    dbo.fn_VratiGodMesDenBas(N.Datum_Nar) AS DATUM_CIJENE,
    N.Sifra_Kup AS SIFRA_KUPCA,
    K.Star_Kup  AS SIFRA_MI,
    P.Sifra_Pat_SAP  AS SIFRA_PUT,
    'MK01' AS PROD_ORG,
    'MR' AS DISTR_KAN,
    '01' AS SEKTOR, --K.Sektor AS SEKTOR,
    K.Prod_Ured AS PROD_URED, --K.PROD_URED,
    K.Zabeleska AS SKLADISTE,
    N.Rok AS ROK_PLAC,
    N.Identif_Br AS NAPOMENA,
    N.Prenesen AS SINH
FROM Naracki N
LEFT OUTER JOIN KObjekti K ON N.Sifra_Kup = K.Sifra_Kup AND N.Sifra_Obj = ( CASE WHEN K.Sifra_Obj IS NULL THEN 0 ELSE K.Sifra_Obj END)
LEFT OUTER JOIN Patnici P ON N.Sifra_Pat = P.Sifra_Pat
WHERE N.Datum_Nar>=@DatumOd AND N.Datum_Nar<=@DatumDo
*/
IF @PratiSiteDok <> 'D'
    DELETE FROM ##TmpHdrSAP WHERE SINH IS NOT NULL AND SINH = 'D'

DELETE FROM ##TmpHdrSap WHERE BROJ_DOK IS NULL OR BROJ_DOK = ''

SELECT BROJ_DOK, BROJ_KUP, DATUM_DOK, DATUM_ISP, VRIJEME_ISP, DATUM_CIJENE, SIFRA_KUPCA,
       SIFRA_MI, SIFRA_PUT, PROD_ORG, DISTR_KAN, SEKTOR, PROD_URED, SKLADISTE, ROK_PLAC, NAPOMENA
       FROM ##TmpHdrSAP







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportfaktplivaxml]'))
drop procedure [dbo].[sp_exportfaktplivaxml]

Go

CREATE  procedure sp_ExportFaktPlivaXml
    @Sifra_Kup varchar(6),
    @Sifra_Oe smallint= null,
    @Sifra_Dok smallint= null,
    @BrDokOd int= null,
    @BrDokDo int= null,
    @Datum_Od smalldatetime= null,
    @Datum_Do smalldatetime= null

As

    Declare @SSQL as varchar(5000)
    Set @SSQL=' SELECT Sifra_Art,
        Case WHEN DanDokCena=''D'' Then DokCena Else Round(DokCena*(1+Posn/100),6) End Cena,
        Kolic, Uces, Sifra_Oe, Sifra_Dok, Broj_Dok, Rbr, Datum_Dok,
        Case WHEN DanDokCena=''D'' Then DokCena*(1-Uces/100)/(1+POsn/100)*POsn/100 Else DokCena*(1-uces/100) * POsn/100 End ddv,
                case when KOntrSer is null then '''' else substring(KontrSer, 7, 2)+''-''+substring(KontrSer, 4, 2)+''-''+substring(KontrSer, 12, 2) end KontrSer
                FROM Stavr
                WHERE DokrID IN (SELECT DokrID FROM Dokr WHERE Sifra_Kup='''+ @SifRA_Kup +''' AND VlIzl=''I'' '
    If @Sifra_Oe is not null
        Set @SSQL=@SSQL+ ' AND Sifra_OE=' +cast(@Sifra_Oe as varchar(3))+ ' '
    If @Sifra_Dok is not null
        Set @SSQL=@SSQL+ ' AND Sifra_Dok=' +cast(@Sifra_Dok as varchar(3))+ ' '
    If @BrDokOd is not null
        Set @SSQL=@SSQL+ ' AND Broj_Dok>=' +cast(@BrDokOd as varchar(10))+ ' '
    If @BrDokDo is not null
        Set @SSQL=@SSQL+ ' AND Broj_Dok<=' +cast(@BrDokDo as varchar(10))+ ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '

    set @SSQL  = @SSQL + ' )'

    exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportirajzaliha]'))
drop procedure [dbo].[sp_exportirajzaliha]

Go
CREATE procedure sp_ExportirajZaliha
    @Sifra_oe smallint = null,
    @Datum smalldatetime = null
As
    Create table ##TmpExpZal
    (Opis varchar(50))


    Insert Into ##TmpExpZal (Opis)
    Select case when (K.Nom is not null or K.Nom='') then cast (K.Nom as char(17)) else cast(dbo.fn_Nom(S.Sifra_Art) as char(17)) end
    + cast(cast(round(sum(S.Vlez-S.Izlez), 0)as integer) as varchar(20))
    From Soart S
    Inner Join KatArt K on S.Sifra_Art=K.Sifra_Art
    Where (K.Nom is not null or K.Nom='')and S.Sifra_Oe=@Sifra_Oe and S.Vlez-S.Izlez>0 and dbo.fn_Nom(S.Sifra_Art)<>''
    Group by K.Nom, S.Sifra_Art

    Select * from ##TmpExpZal



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportmaticnivind]'))
drop procedure [dbo].[sp_exportmaticnivind]

Go
CREATE procedure sp_ExportMaticniVind
    @Patnici as char(2)=null,
    @KatArt as char(2)=null,
    @TipDok as char(2)=null,
    @Orged as char(2)=null
as

    if @Patnici is not null
        select cast(dbo.fn_LevoNuli(Sifra_Pat, 4) as char(4)), cast(ImePat as char(30)) from Patnici
    if @KatArt is not null
        select substring(Sifra_Art,2,5),  cast(ImeArt as char(30)) from KatArt
    if @TipDok is not null
        select cast(dbo.fn_LevoNuli(Sifra_Dok, 3) as char(3)), cast(ImeDok as char(30)) from TipDok
    if @Orged is not null
        select cast(dbo.fn_LevoNuli(Sifra_Oe, 3) as char(3)), cast(ImeOrg as char(30))  from Orged




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportpliva]'))
drop procedure [dbo].[sp_exportpliva]

Go

CREATE      procedure sp_ExportPliva

    @Sifra_OE smallint = Null,
    @Datum_Od smalldatetime,
    @Datum_Do smalldatetime,
    @Kurs decimal(18, 2) = 1,
    @TipDok_Mat varchar(100) = Null,
    @TipDok_Fin varchar(100) = Null

As

    Declare @SSQL as varchar(8000)

    CREATE TABLE #LinFakt
    (  BrDokCel varchar(20),
       Rbr      smallint,
       DatSpec  varchar(20),
       PVJ        varchar(10),
       KodFirma varchar(10),
       Sifra_Art varchar(20),
       Zemja    varchar(10),
       Sifra_Kup char(6),
       ImeKup    varchar(100),
       Kolic    decimal (18, 6),
       Valuta   chaR(3),
           Vr_Pred_Rabat_Bez_DDV decimal(18, 4),
           Vr_Rabat_Bez_DDV decimal(18, 4),
           Vr_Pred_Rabat_Bez_DDV_Val decimal(18, 4),
           Vr_Rabat_Bez_DDV_Val decimal(18, 4)
    )

--------------------------------materijalni dokumenti-----------------------------------------------------

    Set @SSQL = 'Select cast(D.Sifra_Oe as varchar(5)) + ''-'' + cast(D.SIfra_DOk as varchar(5)) +
            ''/'' + cast(D.Broj_Dok as varchar(9)) as BrDokCel,
        S.Rbr, dbo.fn_VratiDatumStringObratnoPoc(S.Datum_Dok) DatSpec, ''PVJ'' as PVJ, ''758'' as KodFirma,
        dbo.fn_LevoNuliStr(S.Sifra_Art, 18),
        ''MK'' as Zemja, D.Sifra_Kup, K.ImeKup, S.Kolic, ''MKD'' Valuta,
        Round(dbo.fn_vr_osnov(S.Kolic, S.DokCena, S.DanDokCena, S.POsn), 2) as Vr_Pred_Rabat_Bez_DDV,
        (Round(dbo.fn_VratiRabatBezDDV(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces), 2)*-1) as Vr_Rabat_Bez_DDV,
        Round(dbo.fn_vr_osnov(S.Kolic, S.DokCena, S.DanDokCena, S.POsn) / ' + cast (@Kurs as varchar(30)) + ', 2) as Vr_Pred_Rabat_Bez_DDV_Val,
        (Round(dbo.fn_VratiRabatBezDDV(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces) / ' + cast (@Kurs as varchar(30)) + ', 2)*-1) as Vr_Rabat_Bez_DDV_Val
        From Stavr S
        Inner join Dokr D ON S.DokrID= D.DokrID
        Left outer join Komint K on  D.Sifra_Kup= K.Sifra_Kup
        Where 1 = 1 '

    if @TipDok_Mat is not null
        set @SSQL = @SSQL + ' and S.Sifra_Dok in (' + @TipDok_Mat + ') '

    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_OE as Varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '

-------------------------------------------finansiski dokumenti---------------------------------------------
    Set @SSQL = @SSQL + ' UNION '

    Set @SSQL = @SSQL + ' Select cast(A.Sifra_Oe as varchar(5)) + ''-'' + cast(A.SIfra_DOk as varchar(5)) +
            ''/'' + cast(A.Broj_Dok as varchar(9)) as BrDokCel,
        1, dbo.fn_VratiDatumStringObratnoPoc(A.Datum_Dok) DatSpec, ''PVJ'' as PVJ, ''758'' as KodFirma, '''' as Sifra_Art,
            ''MK'' as Zemja, A.Sifra_Kup, K.ImeKup, 1, ''MKD'' Valuta,
            (case when A.Dolzi <> 0 then A.Dolzi - A.Danok1 - A.Danok2 else - (A.Pobaruva - A.Danok1 - A.Danok2) end) as Vr_Pred_Rabat_Bez_DDV,
        0 as Vr_Rabat_Bez_DDV,
        Round((case when A.Dolzi <> 0 then A.Dolzi - A.Danok1 - A.Danok2 else - (A.Pobaruva - A.Danok1 - A.Danok2) end)
             / ' + cast (@Kurs as varchar(30)) + ', 2) as Vr_Pred_Rabat_Bez_DDV_Val,
        0 as Vr_Rabat_Bez_DDV_Val
        FROM AnFinDok A
            Left outer join Komint K on  A.Sifra_Kup= K.Sifra_Kup
            Where 1 = 1 '

    if @TipDok_Fin is not null
        set @SSQL = @SSQL + ' and A.Sifra_Dok in (' + @TipDok_Fin + ') '

    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe = ' + cast(@Sifra_OE as Varchar(5)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '

print @ssql
    Insert into #LinFakt Exec (@SSQL)

    select *
    from #LinFakt


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportstavr_sap]'))
drop procedure [dbo].[sp_exportstavr_sap]

Go

CREATE  PROCEDURE sp_ExportStavr_SAP
    @DatumOd smalldatetime,
    @DatumDo smalldatetime
AS
        SELECT CAST(S.Sifra_OE AS CHAR(3)) + '-' + CAST(S.Sifra_Dok AS CHAR(3)) + '/' + CAST(S.Broj_Dok AS CHAR(6)) AS DOC_NO,
                S.Sifra_Art AS ASSORT_CODE, K.EdMera AS UM_CODE, S.Kolic AS AMOUNT FROM Stavr S
                INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
    WHERE Datum_Dok>=@DatumOd AND Datum_Dok<=@DatumDo




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportstavrstanaracimp]'))
drop procedure [dbo].[sp_exportstavrstanaracimp]

Go

CREATE    PROCEDURE sp_ExportStavrStaNaracIMP
    @DatumOd SMALLDATETIME,
    @DatumDo SMALLDATETIME,
    @PratiSiteDok CHAR(1) = 'N'
AS
    IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE name='##TmpStavki') DROP TABLE ##TmpStavki

    CREATE TABLE ##tmpStavki
    (
        DokrID INT,
        TipDok VARCHAR(3),
        Broj_Dok SMALLINT,
        Firma SMALLINT,
        Sifra_Oe SMALLINT,
        Sifra_Art VARCHAR(20),
        Kolic DECIMAL(18,6),
        Znak CHAR(1),
        Cena DECIMAL(18, 6),
        DDV DECIMAL(6, 2),
        Rabat DECIMAL(6, 2),
        Prenesen CHAR(1)
    )

    INSERT INTO ##tmpStavki (DokrID, TipDok, Broj_Dok, Firma, Sifra_Oe, Sifra_Art, Kolic, Znak, Cena, DDV, Rabat, Prenesen)
    SELECT S.DokrID, ( CASE WHEN S.Sifra_Dok=81 THEN 'FD0'
                            WHEN S.Sifra_Dok=82 THEN 'FM0'
                            WHEN S.SIfra_Dok=83 THEN 'FD1'
                            WHEN S.Sifra_Dok=84 THEN 'FM1'
                            WHEN D.Sifra_Dok=86 THEN 'FD2'
                            WHEN D.SIfra_Dok=87 THEN 'FD3'
                            WHEN D.Sifra_Dok=88 THEN 'FM2'
                     END) AS TipDok, S.Broj_Dok, 114 AS Firma, S.Sifra_Oe, S.Sifra_Art, S.Kolic, 1 AS Znak,
          (CASE WHEN S.DanDokCena='D' THEN S.DokCena ELSE ROUND((S.DokCena)/((1 + S.POsn)/100), 2) END) AS Cena,
          S.Posn AS DDV, S.Uces AS Rabat, D.Prenesen
    FROM Stavr S
    INNER JOIN Dokr D ON D.DokrID = S.DokrID
    WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo

    IF @PratiSiteDok <> 'D'
        DELETE FROM ##tmpStavki WHERE Prenesen IS NOT NULL AND Prenesen = 'D'

    SELECT DokrID, TipDok, Broj_Dok, Firma, Sifra_Oe, Sifra_Art,
           Kolic, Znak, Cena, DDV, Rabat
    FROM ##tmpStavki




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportstavrstanaracsap]'))
drop procedure [dbo].[sp_exportstavrstanaracsap]

Go



CREATE      PROCEDURE sp_ExportStavrStaNaracSAP
    @DatumOd SMALLDATETIME,
    @DatumDo SMALLDATETIME,
    @ImaHeader AS CHAR(1) = 'D',
    @PratiSiteDok CHAR(1) = 'N'
AS
    IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE name='##TmpItmSAP') DROP TABLE ##TmpItmSAP

    CREATE TABLE ##TmpItmSAP (
        BROJ_DOK     VARCHAR(50),
        ARTIKL         VARCHAR(20),
        JM         VARCHAR(20),
        KOLICINA    VARCHAR(20),
        BRUTO_CENA    VARCHAR(20),
        PLAC_RABAT    VARCHAR(20),
        KOL_RABAT    VARCHAR(20),
        UGOVOR        VARCHAR(20),
        AKCIJA        VARCHAR(20),
        NETO_CENA    VARCHAR(20),
        KASA        VARCHAR(20),
        DDV        VARCHAR(20),
        SINH        CHAR(1)
    )

-- HEADER-----------------------------------------------------------------------------------------------------
IF @ImaHeader = 'D'
INSERT INTO ##TmpItmSAP (BROJ_DOK, ARTIKL, JM, KOLICINA, BRUTO_CENA, PLAC_RABAT,
             KOL_RABAT, UGOVOR, AKCIJA, NETO_CENA, KASA, DDV)
VALUES ('BROJ_DOK', 'ARTIKL', 'JM', 'KOLICINA', 'BRUTO_CENA', 'PLAC_RABAT',
    'KOL_RABAT', 'UGOVOR', 'AKCIJA', 'NETO_CENA', 'KASA', 'DDV')

-- STAVR -----------------------------------------------------------------------------------------------------
INSERT INTO ##TmpItmSAP (BROJ_DOK, ARTIKL, JM, KOLICINA, BRUTO_CENA, PLAC_RABAT,
             KOL_RABAT, UGOVOR, AKCIJA, NETO_CENA, KASA, DDV, SINH)

SELECT   P.Sifra_Pat_SAP + '/' + (CASE WHEN S.Sifra_Dok=81 THEN 'A' WHEN S.Sifra_Dok=82 THEN 'G' END)
    +CAST(S.Sifra_Oe AS VARCHAR(10))+'-'+ CAST(S.Sifra_Dok AS VARCHAR(10))+'/'+ CAST(S.Broj_Dok AS VARCHAR(10)) AS BROJ_DOK,
    S.Sifra_Art AS ARTIKL,
    K.EdMera AS JM,
    CAST(CAST(ROUND(S.Kolic, 3) AS NUMERIC(10,3)) AS VARCHAR(20)) AS KOLICINA,
    CAST(CAST(ROUND(S.DokCena, 2) AS NUMERIC(8,2)) AS VARCHAR(20)) AS BRUTO_CENA,
    CAST(CAST(ROUND(S.UcesOsn/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS PLAC_RABAT,
    CAST(CAST(ROUND(S.UcesKol/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS KOL_RABAT,
    '' AS UGOVOR,
    CAST(CAST(ROUND(S.UcesDod/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS AKCIJA,
    CAST(CAST(ROUND((S.DokCena/(1+(S.POsn/100))*(1-(S.Uces/100))), 2) AS NUMERIC(8,2)) AS VARCHAR(20)) AS NETO_CENA,
    '' AS KASA,
    S.POsn AS DDV,
    D.Prenesen AS SINH
FROM Stavr S
INNER JOIN Dokr D ON D.DokrID = S.DokrID
LEFT OUTER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
LEFT OUTER JOIN Patnici P ON P.Sifra_Pat = D.Sifra_Pat
WHERE S.Datum_Dok>=@DatumOd AND S.Datum_Dok<=@DatumDo

-- STANARAC -----------------------------------------------------------------------------------------------------
INSERT INTO ##TmpItmSAP (BROJ_DOK, ARTIKL, JM, KOLICINA, BRUTO_CENA, PLAC_RABAT,
             KOL_RABAT, UGOVOR, AKCIJA, NETO_CENA, KASA, DDV, SINH)

SELECT  P.Sifra_Pat_SAP + '/' + 'N' + CAST(S.Sifra_Oe AS VARCHAR(10)) + '-' + CAST(S.Sifra_Nar AS VARCHAR(10)) + '/' + CAST(S.Broj_Nar AS VARCHAR(10)) AS BROJ_DOK,
    S.Sifra_Art AS ARTIKL,
    K.EdMera AS JM,
    CAST(CAST(ROUND(S.Kolic, 3) AS NUMERIC(10,3)) AS VARCHAR(20)) AS KOLICINA,
    CAST(CAST(ROUND(S.DokCena, 2) AS NUMERIC(8,2)) AS VARCHAR(20)) AS BRUTO_CENA,
    CAST(CAST(ROUND(S.UcesOsn/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS PLAC_RABAT,
    CAST(CAST(ROUND(S.UcesKol/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS KOL_RABAT,
    '' AS UGOVOR,
    CAST(CAST(ROUND(S.UcesDod/100, 2) AS NUMERIC(5,2)) AS VARCHAR(20)) AS AKCIJA,
    CAST(CAST(ROUND((S.DokCena/(1+(S.POsn/100))*(1-(S.Uces/100))), 2) AS NUMERIC(8,2)) AS VARCHAR(20)) AS NETO_CENA,
    '' AS KASA,
    S.POsn AS DDV,
    N.Prenesen AS SINH
FROM StaNarac S
INNER JOIN Naracki N ON S.NarID = N.NarID
LEFT OUTER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
LEFT OUTER JOIN Patnici P ON N.Sifra_Pat = P.Sifra_Pat
WHERE N.Datum_Nar>=@DatumOd AND N.Datum_Nar<=@DatumDo

IF @PratiSiteDok <> 'D'
    DELETE FROM ##TmpItmSAP WHERE SINH IS NOT NULL AND SINH = 'D'

DELETE FROM ##TmpItmSap WHERE BROJ_DOK IS NULL OR BROJ_DOK = ''

SELECT BROJ_DOK, ARTIKL, JM, KOLICINA, BRUTO_CENA, PLAC_RABAT,
    KOL_RABAT, UGOVOR, AKCIJA, NETO_CENA, KASA, DDV FROM ##TmpItmSAP







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exportstavrstanaracvind]'))
drop procedure [dbo].[sp_exportstavrstanaracvind]

Go

CREATE       PROCEDURE sp_ExportStavrStaNaracVind
    @DatumOd SMALLDATETIME,
    @DatumDo SMALLDATETIME,
    @ImaHeader AS CHAR(1) = 'N',
    @SIfra_Oe smallint
AS
    IF EXISTS (SELECT * FROM tempdb..sysobjects WHERE name='##TmpItmVIND') DROP TABLE ##TmpItmVIND

    CREATE TABLE ##TmpItmVIND (
        DATD  varchar(8) ,
        DRZ varchar(2),
        KP varchar(3),
        OJ char(3),
        REL char(4),
        SIFF char(5),
        PROD char(3),
        VS char(3),
        O char(1),
        VKL char(3),
        IDENT char(5),
        KG char(11),
        KOL char(11)
    )

 --HEADER-----------------------------------------------------------------------------------------------------
IF @ImaHeader = 'D'
INSERT INTO ##TmpItmVIND (DATD, DRZ, KP, OJ, REL, SIFF, PROD, VS, O, VKL, IDENT, KG, KOL)
VALUES ('DATD', 'DRZ', 'KP', 'OJ', 'REL', 'SIFF', 'PROD', 'VS', 'O', 'VKL', 'IDENT', 'KG', 'KOL')

-- STAVR -----------------------------------------------------------------------------------------------------
INSERT INTO ##TmpItmVIND (DATD, DRZ, KP, OJ, REL, SIFF, PROD,  VS, O, VKL, IDENT, KG, KOL)
SELECT  dbo.fn_VratiDatumStringObratno(S.Datum_Dok),'04', '000', cast(S.Sifra_Oe as varchar(3)),cast(P.Sifra_Pat as char(4)),
    substring(D.Sifra_Kup,2,5), dbo.fn_LevoNuli(D.Sifra_Obj, 3),dbo.fn_LevoNuli(S.Sifra_Dok,3) ,'0','000',
    substring(S.Sifra_Art,2,5),
    cast(cast((CASE WHEN K.EdMera like 'kg%' THEN round(S.Kolic,2)
    ELSE round(S.Kolic*K.Tezina/1000,2) END) as decimal(8,2)) as char(11)),
    cast(cast(round(S.Kolic,2) as decimal(8,2)) as char(11))
FROM Stavr S
INNER JOIN Dokr D ON D.DokrID = S.DokrID
LEFT OUTER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
LEFT OUTER JOIN Komint P ON P.Sifra_Kup = D.Sifra_Kup
WHERE S.Datum_Dok>=@DatumOd AND S.Datum_Dok<=@DatumDo and S.Sifra_Oe=@SIfra_Oe and D.VlIzl='I' and D.Sifra_Za='1' AND D.Sifra_Kup IS NOT NULL

update ##TmpItmVIND set OJ= dbo.fn_LevoNuli(OJ,3)
update ##TmpItmVIND set REL= dbo.fn_LevoNuli(REL,4)
update ##TmpItmVIND set KG= replace(KG, '.', ',')
update ##TmpItmVIND set KOL= replace(KOL, '.', ',')
update ##TmpItmVIND set KG= dbo.fn_LevoNuliStr(KG, 11)
update ##TmpItmVIND set KOL= dbo.fn_LevoNuliStr(KOL, 11)
update ##TmpItmVIND set PROD=(case when Prod is not null then Prod else '000'end)
update ##TmpItmVIND set SIFF=(case when SIFF is not null then SIFF else '00000'end)
update ##TmpItmVIND set REL=(case when REL is not null then REL else '0000'end)

SELECT distinct KP,OJ FROM ##TmpItmVIND
SELECT DATD, DRZ, KP, OJ, REL, SIFF, PROD, VS, O, VKL, IDENT, KG, KOL FROM ##TmpItmVIND





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exppodatocidnprom]'))
drop procedure [dbo].[sp_exppodatocidnprom]

Go
CREATE procedure sp_ExpPodatociDnProm
    @Sifra_OE    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
As
    Select P.Datum_Evid, P.SIfra_Oe, PL.Sifra_Nac, PL.Iznos
    From Promet P
    Inner Join PlkProm PL on P.Sifra_Oe=PL.Sifra_Oe and P.Grp_Kasa=PL.Grp_kasa and P.BrKasa=PL.BrKasa
    Where P.Sifra_oe=@Sifra_Oe and P.Datum_Evid>=@Datum_Od and P.Datum_Evid<=@Datum_Do


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exppodatocinivel]'))
drop procedure [dbo].[sp_exppodatocinivel]

Go
--sp_ExpPodatociNivel 1, '2011-1-1', '2011-12-12'

CREATE   procedure sp_ExpPodatociNivel
    @Sifra_OE    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
As
    Select Sifra_oe, Sifra_Razl, Orig_Dok, POsn,
    Sum(Kolic* ((dbo.fn_VratiCena(PocCena, Posn, DanPocCena,'N')- dbo.fn_VratiCena(KrCena, Posn, DanKrCena,'N')))) Razl,
    Sum(Kolic* ((dbo.fn_VratiCena(PocCena, Posn, DanPocCena,'D')- dbo.fn_VratiCena(KrCena, Posn, DanKrCena,'D')))) RazlDDV,
    Sum(Kolic* ((dbo.fn_VratiCena(PocCena, Posn, DanPocCena,'D')- dbo.fn_VratiCena(KrCena, Posn, DanKrCena,'D'))))-
    Sum(Kolic* ((dbo.fn_VratiCena(PocCena, Posn, DanPocCena,'N')- dbo.fn_VratiCena(KrCena, Posn, DanKrCena,'N')))) Danok
    From RazlCeni
    Where  Sifra_oe=@Sifra_Oe and Datum_Dok>=@Datum_Od and Datum_Dok<=@Datum_Do
    Group By Sifra_oe, Sifra_Razl, Orig_Dok, POsn





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exppodatocipriemi]'))
drop procedure [dbo].[sp_exppodatocipriemi]

Go
CREATE  procedure sp_ExpPodatociPriemi
    @Sifra_OE    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
As
    Select D.Sifra_Oe, D.Sifra_DOk, D.Broj_Dok, S.POsn, D.Datum_Dok, D.Rok, D.Broj_Dok as Broj, D.Sifra_Kup, Sum(S.Kolic*S.NabCena) Nab,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)*(1-S.Uces/100)* (1-D.Kasa/100)) Prod,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena/(1+S.Posn/100) Else S.DokCena End)*(1-S.Uces/100)* (1-D.Kasa/100) * S.PosnPren/100)Danok,
    Sum(Kolic*(Case When S.DanMagCena='D' Then S.MAgCena/(1+S.Posn/100) Else S.MagCena End)* S.PosnPren/100)VkDanok,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena/(1+S.Posn/100) Else S.DokCena End)* S.Uces/100) Rabat
    From Dokr D
    Inner Join Stavr S on D.DokrID=S.DokrID
    Where D.Sifra_Za='2' and D.VlIzl='V' and D.Sifra_oe=@Sifra_Oe and D.Datum_Dok>=@Datum_Od and D.Datum_Dok<=@Datum_Do
    Group By  D.Sifra_Oe, D.Sifra_DOk, D.Broj_Dok, S.POsn, D.Datum_Dok, D.Rok,   D.Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_exppodatociprod]'))
drop procedure [dbo].[sp_exppodatociprod]

Go

CREATE   procedure sp_ExpPodatociProd
    @Sifra_OE    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
As
    Select D.Sifra_Oe, D.Sifra_DOk, D.Broj_Dok, S.POsn, D.Datum_Dok,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena/(1+S.Posn/100) Else S.DokCena End)*(1-S.Uces/100)* (1-D.Kasa/100)) Prod,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)*(1-S.Uces/100)* (1-D.Kasa/100)) ProdDDV,
    Sum(Kolic*(Case When S.DanDokCena='D' Then S.DokCena/(1+S.Posn/100) Else S.DokCena End)*(1-S.Uces/100)* (1-D.Kasa/100) * S.Posn/100) Danok
    From Dokr D
    Inner Join Stavr S on D.DokrID=S.DokrID
    Where D.Sifra_Za = '1' and D.VlIzl='I' and D.Sifra_oe=@Sifra_Oe and D.Datum_Dok>=@Datum_Od and D.Datum_Dok<=@Datum_Do
    Group by D.Sifra_Oe, D.Sifra_DOk, D.Broj_Dok, S.POsn, D.Datum_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expprodazbaneilsen]'))
drop procedure [dbo].[sp_expprodazbaneilsen]

Go





CREATE            PROCEDURE [dbo].[sp_ExpProdazbaNeilsen]
    @KoiOE    Varchar(800) = Null,
    @Datum_Od    Smalldatetime = Null,
    @Datum_Do    Smalldatetime = Null
AS
    Declare @SSQL       varchar(8000)
    Declare @StartDate char(8)
    Declare @EndDate   char(8)
    SET @StartDate = dbo.fn_VratiGodMesDenBas(@Datum_Od)
    SET @EndDate = dbo.fn_VratiGodMesDenBas(@Datum_Do)
    CREATE TABLE #TmpOE
(    Sifra_Oe    smallint)
SET @SSQL = 'SELECT Sifra_Oe FROM OrgEd WHERE Sifra_Oe IN (' + @KoiOE + ') '
INSERT INTO #TmpOE EXEC (@SSQL)
    CREATE      TABLE ##Prodazba
(    ChainCode    varchar(30),
    ShopCode    smallint,
    GrpCode        varchar(6),
    GrpName        varchar(40),
    BarCode        varchar(50),
    InCode        varchar(20),
    BarName        varchar(40),
    SalesItem    decimal(10,2),
    Price        decimal(13,2),
    SalesAmount    decimal(13,2),
    StartDate    char(8),
    EndDate        char(8))
    CREATE TABLE #SiteBarKod
(    ABarBroj    int,
    Sifra_Art    varchar(20),
    Nom            varchar(50),
    Ind            char(1))
    CREATE TABLE #TmpABar
(    ABarBroj    int,
    Sifra_Art    varchar(20),
    Nom            varchar(50))
    INSERT INTO #SiteBarKod (ABarBroj, Sifra_Art, Nom, Ind)
    SELECT ABarBroj, Sifra_Art, Nom, '' FROM ABarKod WHERE upper(substring(Nom,1,1)) <> 'X' AND len(ltrim(rtrim(Nom)))>=8 AND len(ltrim(rtrim(Nom)))<=13
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%?%', Nom)>0
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%/%', Nom)>0
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%+%', Nom)>0
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%*%', Nom)>0
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%-%', Nom)>0
    DELETE FROM #SiteBarKod WHERE PATINDEX ('%.%', Nom)>0
-------------------------------------------------------------
    INSERT INTO ##Prodazba (ShopCode, InCode, SalesItem, SalesAmount, StartDate, EndDate, BarCode)
    SELECT Sifra_Oe, Sifra_Art, Round(SUM(Kolic),2), Round(SUM(Kolic * DokCena * (1-Uces/100)),2), @StartDate, @EndDate, ''
    From  Stavr
    WHERE Sifra_OE IN (SELECT Sifra_OE FROM #TmpOE) AND Datum_Dok>=@Datum_Od AND Datum_Dok<=@Datum_Do AND VlIzl='I' AND Sifra_Prim IS NULL
    Group By Sifra_Oe, Sifra_Art ORDER BY Sifra_Oe, Sifra_Art

    UPDATE ##Prodazba SET ChainCode = substring(Replace(O.ImeOrg, ';', ','),1,30) FROM Orged O WHERE ##Prodazba.ShopCode=O.Sifra_OE
    UPDATE ##Prodazba SET ChainCode = Replace(ChainCode, '"', '')
    UPDATE ##Prodazba SET GrpCode = A.Sifra_Podg FROM KatArt A WHERE ##Prodazba.InCode=A.Sifra_Art
    UPDATE ##Prodazba SET GrpName = P.Ime_Podg FROM Podgrupi P WHERE ##Prodazba.GrpCode=P.Sifra_Podg
    UPDATE ##Prodazba SET GrpName = Replace(GrpName, ';', ',')
    UPDATE ##Prodazba SET GrpName = Replace(GrpName, '"', '')
    UPDATE ##Prodazba SET BarCode = Case WHEN upper(substring(A.Nom,1,1))='X' THEN '' ELSE A.Nom END, BarName = A.ImeArt FROM KatArt A WHERE ##Prodazba.InCode=A.Sifra_Art
    UPDATE ##Prodazba SET BarName = Replace(BarName, ';', ',')
    UPDATE ##Prodazba SET BarName = Replace(BarName, '"', '')
    UPDATE ##Prodazba SET Price=Round(SalesAmount / SalesItem, 2) WHERE SalesItem<>0
     UPDATE ##Prodazba SET BarCode = '' WHERE len(ltrim(rtrim(BarCode)))<8 OR len(ltrim(rtrim(BarCode)))>13
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%?%', BarCode)>0
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%/%', BarCode)>0
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%+%', BarCode)>0
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%*%', BarCode)>0
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%-%', BarCode)>0
    UPDATE ##Prodazba SET BarCode = '' WHERE PATINDEX ('%.%', BarCode)>0

    INSERT INTO #TmpABar (ABarBroj, Sifra_Art) SELECT Max(ABarBroj), Sifra_Art FROM #SiteBarKod WHERE Sifra_Art IN
    (SELECT DISTINCT InCode FROM ##Prodazba WHERE BarCode='') GROUP BY Sifra_Art
    UPDATE #TmpABar SET Nom =A.Nom FROM #SiteBarKod A WHERE #TmpABar.ABarBroj=A.ABarBroj
    UPDATE #SiteBarKod SET Ind='D' FROM #TmpABar A WHERE #SiteBarKod.ABarBroj = A.ABarBroj
    UPDATE ##Prodazba SET BarCode = A.Nom FROM #TmpABar A WHERE ##Prodazba.InCode=A.Sifra_Art AND ##Prodazba.BarCode=''
    UPDATE ##Prodazba SET BarCode=InCode WHERE BarCode IS NULL OR BarCode=''
     CREATE TABLE ##BarKod
(    Sifra_Art    varchar(20),
    Nom            varchar(50))
    INSERT INTO ##BarKod (Sifra_art, Nom) SELECT Sifra_Art, Nom FROM #SiteBarKod WHERE Ind<>'D'
    SELECT * FROM  ##Prodazba








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expvirkom]'))
drop procedure [dbo].[sp_expvirkom]

Go



CREATE      PROCEDURE sp_ExpVirKom
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @ZbirnoPoKom    char(1)='D'
As
Declare @ii as smallint
Declare @DatumStr as varchar(8)
SET @DatumStr = cast(year(GetDate()) as char(4))
if month(GetDate())<10
    SET @DatumStr=@DatumStr+'0'+cast(month(GetDate()) as char(1))
else
    SET @DatumStr=@DatumStr+cast(month(GetDate()) as char(2))
if day(GetDate())<10
    SET @DatumStr=@DatumStr+'0'+cast(day(GetDate()) as char(1))
else
    SET @DatumStr=@DatumStr+cast(day(GetDate()) as char(2))
CREATE TABLE ##TmpKOM
(Zapis    char(303))
CREATE TABLE #TmpSm
(VirID    int,
Ska_Nal    char(18),
Ska_Prim char(18))
INSERT INTO #TmpSm SELECT VirID, Ska_Nal, Ska_Prim FROM VirmanIzv WHERE Dat_Pec>=@Datum_Od AND Dat_Pec<=@Datum_Do AND Banka_Nal LIKE 'KOMERC%'
SET @ii = 1
While @ii < 10
Begin
    UPDATE #TmpSm SET Ska_Nal='0'+RTrim(Ska_Nal) WHERE Len(RTrim(Ska_Nal))<18
    UPDATE #TmpSm SET Ska_Prim='0'+RTrim(Ska_Prim) WHERE Len(RTrim(Ska_Prim))<18
    SET @ii = @ii +1
End

IF @ZbirnoPoKom ='D'
    INSERT INTO ##TmpKOM
    SELECT cast(VV.Ska_Nal as char(18))+cast(K.ImeKup as char(70))+cast(VV.Ska_Prim as char(18))+'+'+
    cast(cast(SUM(V.Iznos) as decimal(18,2)) as char(17)) +@DatumStr+
    cast(V.Cel as char(70)) +
    CASE WHEN V.Sifra_Virman='PP50' THEN '09' ELSE  '01'  END
    + cast(V.Sifra as char(3)) + cast(V.Pov_Prim as char(24)) +  cast(V.Pov_Nal as char(24)) + cast(V.Nacin as char(1))+
    CASE WHEN V.Sifra_Virman='PP50' THEN
    cast(V.Uplatna as char(11))+
    Cast(V.Budzet as char(15))+
    Cast(V.Prihodna as Char(8)) ELSE space(32) END
    + cast(K.Danocen as char(13))
    FROM VirmanIzv V LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
    INNER JOIN #TmpSm VV ON V.VirID=VV.VirID
    WHERE V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND V.Banka_Nal LIKE 'KOMERC%'
    GROUP BY VV.Ska_Nal, K.ImeKup, VV.Ska_Prim, V.Cel, V.Sifra_Virman, V.Sifra, V.Pov_Prim, V.Pov_Nal, V.Nacin,V.Uplatna, V.Budzet, V.Prihodna, K.Danocen
ELSE
    INSERT INTO ##TmpKOM
    SELECT cast(VV.Ska_Nal as char(18))+cast(K.ImeKup as char(70))+cast(VV.Ska_Prim as char(18))+'+'+
    cast(cast(V.Iznos as decimal(18,2)) as char(17)) +@DatumStr+
    cast(V.Cel as char(70)) +
    CASE WHEN V.Sifra_Virman='PP50' THEN '09' ELSE  '01'  END
    + cast(V.Sifra as char(3)) + cast(V.Pov_Prim as char(24)) +  cast(V.Pov_Nal as char(24)) + cast(V.Nacin as char(1))+
    CASE WHEN V.Sifra_Virman='PP50' THEN
    cast(V.Uplatna as char(11))+
    Cast(V.Budzet as char(15))+
    Cast(V.Prihodna as Char(8)) ELSE space(32) END
    + cast(K.Danocen as char(13))
    FROM VirmanIzv V LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
    INNER JOIN #TmpSm VV ON V.VirID=VV.VirID
    WHERE V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND V.Banka_Nal LIKE 'KOMERC%'





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expvirsto]'))
drop procedure [dbo].[sp_expvirsto]

Go




CREATE           PROCEDURE sp_ExpVirSto
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @ZbirnoPoKom char(1) ='D'
As

Declare @DatumVal as varchar(8)
Declare @Dat as varchar(8)
if day(getdate())<10
    SET @DatumVal='0'+cast(day(getdate()) as char(1))
else
    SET @DatumVal=cast(day(getdate()) as char(2))
if month(getdate())<10
    SET @DatumVal=@DatumVal+'0'+cast(month(getdate()) as char(1))
else
    SET @DatumVal=@DatumVal+cast(month(getdate()) as char(2))
SET @DatumVal =@DatumVal+cast(year(getdate()) as char(4))


CREATE TABLE #TmpStopanska
(  Rbr  int identity(1,1),
Zapis    varchar(220))

if @ZbirnoPoKom ='D'
        INSERT INTO #TmpStopanska
        SELECT '!'+
        rtrim(cast(V.Ska_Nal as char(15)))+'!'+
        cast(dbo.fn_LevoNuliStr(cast(Sum(V.Iznos) as decimal(18,2)), 12) as char(12))+'!'+
        rtrim(case when V.Ska_Prim Is Null Then '' Else cast(V.Ska_Prim as char(15)) End)+'!'+
        rtrim(case when K.ImeKUp is null then '' else cast(K.ImeKup as char(70))End)+'!'+
        rtrim(case when V.Sifra is null then  '' else cast(V.Sifra as char(3))end)+'!'+
        rtrim(case when V.Cel is null then '' else cast(V.Cel as char(70))end)+'!'+
        rtrim(case when V.Pov_Nal is null then '' else cast(V.Pov_Nal as char(24))end)+'!'+
        case when V.Sifra_Virman='PP50'then
        (case when V.budzet is null or rtrim(V.Budzet)='' then V.Uplatna+'    '+V.Prihodna else V.Budzet+V.Prihodna end)else
        rtrim(case when V.Pov_prim is null then '' else cast(V.Pov_Prim as char(24))end)End +'!'+
        cast(dbo.fn_VratiDatumBezCrtiObratno(V.Dat_Val) as varchar(10))+'!'+--case when @DatumVal is null then '' else
        cast(dbo.fn_VratiDatumBezCrtiObratno(V.Dat_Val) as varchar(10))+'!'+-- case when @DatumPec is null then '' else
        rtrim(case when V.Nacin is null then '' else cast(V.Nacin as char(1))end)+'!'+
        rtrim(case when V.Prioritet is null then '' else cast(V.Prioritet as varchar(2))end)+'!'+
        CASE WHEN V.Sifra_Virman='PP30' THEN '0!' ELSE  '1!'  END
        FROM VirmanIzv V
        LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
        WHERE  V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND  V.Banka_Nal LIKE 'STOP%'
        GROUP BY V.Prioritet, V.Ska_Nal,V.Pov_Nal, V.Cel, V.Sifra, V.Ska_Prim, K.ImeKup,V.Uplatna, V.Budzet, V.Prihodna, V.Pov_Prim,
                K.Danocen, V.Sifra_Virman, V.Nacin, V.Dat_Val
        --CREATE TABLE ##TmpSto
        --(Zapis varchar(300))

    --    INSERT INTO ##TmpSto SELECT Cast(rbr as varchar(5))+Zapis from #TmpStopanska
else
        INSERT INTO #TmpStopanska
        SELECT '!'+
        rtrim(cast(V.Ska_Nal as char(15)))+'!'+
        cast(dbo.fn_LevoNuliStr(cast(V.Iznos as decimal(18,2)), 12) as char(12))+'!'+
        rtrim(case when V.Ska_Prim Is Null Then '' Else cast(V.Ska_Prim as char(15)) End)+'!'+
        rtrim(case when K.ImeKUp is null then '' else cast(K.ImeKup as char(70))End)+'!'+
        rtrim(case when V.Sifra is null then  '' else cast(V.Sifra as char(3))end)+'!'+
        rtrim(case when V.Cel is null then '' else cast(V.Cel as char(70))end)+'!'+
        rtrim(case when V.Pov_Nal is null then '' else cast(V.Pov_Nal as char(24))end)+'!'+
        case when V.Sifra_Virman='PP50'then
        (case when V.budzet is null or rtrim(V.Budzet)='' then V.Uplatna+'    '+V.Prihodna else V.Budzet+V.Prihodna end)else
        rtrim(case when V.Pov_prim is null then '' else cast(V.Pov_Prim as char(24))end)End +'!'+
        cast(dbo.fn_VratiDatumBezCrtiObratno(V.Dat_Val) as varchar(10))+'!'+--case when @DatumVal is null then '' else
        cast(dbo.fn_VratiDatumBezCrtiObratno(V.Dat_Val) as varchar(10))+'!'+-- bese samo @DatumVal case when @DatumPec is null then '' else
        rtrim(case when V.Nacin is null then '' else cast(V.Nacin as char(1))end)+'!'+
        rtrim(case when V.Prioritet is null then '' else cast(V.Prioritet as varchar(2))end)+'!'+
        CASE WHEN V.Sifra_Virman='PP30' THEN '0!' ELSE  '1!'  END
        FROM VirmanIzv V
        LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
        WHERE  V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND  V.Banka_Nal LIKE 'STOP%'

        CREATE TABLE ##TmpSto
        (Zapis varchar(300))

        INSERT INTO ##TmpSto SELECT Cast(rbr as varchar(5))+Zapis from #TmpStopanska






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_expvirtut]'))
drop procedure [dbo].[sp_expvirtut]

Go

CREATE      PROCEDURE sp_ExpVirTut
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @ZbirnoPoKom    char(1)='D'
As
Declare @DatumStr as varchar(10)
Declare @DatumVal as varchar(10)


SET @DatumStr = cast(year(GetDate()) as char(4))+'.'
if month(GetDate())<10
    SET @DatumStr=@DatumStr+'0'+cast(month(GetDate()) as char(1))+'.'
else
    SET @DatumStr=@DatumStr+cast(month(GetDate()) as char(2))+'.'
if day(GetDate())<10
    SET @DatumStr=@DatumStr+'0'+cast(day(GetDate()) as char(1))
else
    SET @DatumStr=@DatumStr+cast(day(GetDate()) as char(2))

CREATE TABLE ##TmpTUT
(Zapis    char(277))


IF @ZbirnoPoKom ='D'
    INSERT INTO ##TmpTUT
    SELECT cast(V.Prioritet as char(2))+cast(V.Ska_Nal as char(18))+cast(V.Pov_Nal as char(24))+
    cast(V.Cel as char(70))+cast(V.Sifra as char(6))+
    cast(replace(cast(cast(Sum(V.Iznos) as decimal(18,2)) as char(19)),'.','') as char(19))+
    cast(V.Ska_Prim as char(18))+cast(K.ImeKup as char(70))+
    CASE WHEN V.Sifra_Virman='PP50' THEN Cast(V.Uplatna+V.Budzet+V.Prihodna as char(24))+'50' ELSE cast(V.Pov_Prim as char(24))+'30' End +
    cast(K.Danocen as char(13))+@DatumStr+V.Nacin
    FROM VirmanIzv V LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
    WHERE V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND V.Banka_Nal LIKE '%TUTUN%'
    GROUP BY V.Prioritet, V.Ska_Nal,V.Pov_Nal, V.Cel, V.Sifra, V.Ska_Prim, K.ImeKup,V.Uplatna, V.Budzet, V.Prihodna, V.Pov_Prim,
            K.Danocen, V.Sifra_Virman, V.Nacin
else
    INSERT INTO ##TmpTUT
    SELECT cast(V.Prioritet as char(2))+cast(V.Ska_Nal as char(18))+cast(V.Pov_Nal as char(24))+
    cast(V.Cel as char(70))+cast(V.Sifra as char(6))+
    cast(replace(cast(cast(V.Iznos as decimal(18,2)) as char(19)),'.','') as char(19))+
    cast(V.Ska_Prim as char(18))+cast(K.ImeKup as char(70))+
    CASE WHEN V.Sifra_Virman='PP50' THEN Cast(V.Uplatna+V.Budzet+V.Prihodna as char(24))+'50' ELSE cast(V.Pov_Prim as char(24))+'30' End +
    cast(K.Danocen as char(13))+@DatumStr+V.Nacin
    FROM VirmanIzv V LEFT OUTER JOIN Komint K ON V.Sifra_Prim=K.Sifra_Kup
    WHERE V.Dat_Pec>=@Datum_Od AND V.Dat_Pec<=@Datum_Do AND V.Banka_Nal LIKE '%TUTUN%'





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fakt_ortop]'))
drop procedure [dbo].[sp_fakt_ortop]

Go


CREATE     PROCEDURE sp_Fakt_Ortop
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select  R.Sifra_Art, sum(R.Kolku_Pakuv) Kolku_Pakuv, R.Cena_Tender, R.PRocDDV,
            L.ImeArt, P.ImePacient, P.Broj_Kniska, P.EMBG
    From Recepti_P R
    Left Outer Join Katart L on R.Sifra_Art = L.Sifra_Art
    Left Outer Join Pacienti P ON R.EMBG=P.EMBG
    Where 1=1 '
        Set @SSQL = @SSQL + ' And R.Datum_Izdav >= ''' + Cast(@Datum_Od as Varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' And R.Datum_Izdav <= ''' + Cast(@Datum_Do as Varchar(30)) + ''' '
        Set @SSQL = @SSQL + ' Group By P.EMBG, R.Sifra_Art, R.Cena_Tender, R.ProcDDV,
                     L.ImeArt, P.ImePacient, P.Broj_Kniska, P.EMBG '
        Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fakturi_zapecatenje]'))
drop procedure [dbo].[sp_fakturi_zapecatenje]

Go
CREATE     PROCEDURE sp_Fakturi_ZaPecatenje
    @Datum    smalldatetime,
    @Sifra_Dok    varchar(200),
    @Sifra_OE    varchar(200)=Null,
    @Pec_Dok    smallint = Null,
    @VlIzl        char(1)=Null,
    @OdMagStavr    char(1) = 'N'
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select Distinct D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Br_Kopii
            From Dokr D '
    If @OdMagStavr='D'
        Set @SSQL = @SSQL + ' Inner Join MagStavr M On M.DokrID=D.DokrID '
    Set @SSQL = @SSQL + ' Where 1=1
            And D.Datum_Dok >= ''' + cast(@Datum as varchar(30)) + '''
            And D.Sifra_Dok In ( ' + @Sifra_Dok + ') '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_OE In ( ' + @Sifra_OE + ') '
    If @Pec_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Pec_Dok= ' + Cast(@Pec_Dok as varchar(6)) + ' '
    Else If @Pec_Dok Is Null
        Set @SSQL = @SSQL + ' And D.Pec_Dok Is Null '
    If @VlIzl IS NOT NULL
        Set @SSQL = @SSQL + ' And D.VlIzl= ''' + @VlIzl + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fiizvestai]'))
drop procedure [dbo].[sp_fiizvestai]

Go
CREATE PROCEDURE sp_FiIzvestai
    @FiID        smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_finsost_po_podelba6]'))
drop procedure [dbo].[sp_finsost_po_podelba6]

Go


CREATE   PROCEDURE sp_FinSost_Po_Podelba6

    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(6) = Null,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Kup_Od    char(6) = Null,
    @Sifra_Kup_Do    char(6) = Null,
    @Kto_Anal    varchar(11) = Null
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select Kup.KDrugo6, KD6.Ime_6K,
                (Case When Kup.KDrugo6 < 100 Then ''0'' When (Kup.KDrugo6 Is Not Null And Kup.KDrugo6 >= 100) Then Substring(Cast(Kup.KDrugo6 as varchar(3)),1,1) Else Kup.KDrugo6 End) Grupa,
                Sum(Case When A.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + ''' Then (A.Dolzi - A.Pobaruva) Else 0 End) PrethSaldo,
                Sum(Case When A.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' Then A.Dolzi Else 0 End) Dolzi,
                Sum(Case When A.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' Then A.Pobaruva Else 0 End) Pobaruva,
                Sum(A.Dolzi - A.Pobaruva) Saldo,
                Sum((Case When (DateAdd(Day, Rok, A.Datum_Dok) <= ''' + Cast(@Datum_Do as varchar(30)) + ''') Then A.Dolzi Else 0 End) -
                        (Case When (A.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''') Then A.Pobaruva Else 0 End)) Dospeani,
                Sum(Case When (A.Dolzi<>A.Plateno_Dolzi) And (DateAdd(Day, Rok, A.Datum_Dok) > ''' + Cast(@Datum_Do as varchar(30)) + ''') Then (A.Dolzi-A.Plateno_Dolzi) Else 0 End) NeDospeani
            From AnfinDok A
            Inner Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
            Left Outer Join KDrugo6 KD6 On KD6.Sifra_6K=Kup.Kdrugo6
            Where A.Sifra_Za = ''1''
            And A.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + '''
            And (KDrugo6 < 900 Or KDrugo6 Is Null) '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup >= ' + @Sifra_Kup_Od + ' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup <= ' + @Sifra_Kup_Do + ' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And A.Kto = ''' + @Kto_Anal + ''' '
    Set @SSQL = @SSQL + ' Group By Kup.KDrugo6, KD6.Ime_6K
                  Order By Kup.KDrugo6 '
    print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fipodsuma]'))
drop procedure [dbo].[sp_fipodsuma]

Go

CREATE      PROCEDURE sp_FiPodSuma
    @RbrFi            smallint,
    @OdKadeSakam    char(1),
    @Iznos            decimal(18,6) OUTPUT
AS
    Declare @SSQL     varchar(1000)
    Declare @OdKade char(1)
    Declare @IznOdStav    decimal(18,6)
    SET @Iznos = 0
    Declare Tabela3 Cursor Fast_Forward For
        Select OdKade, Iznos
        From ##TmpTab WHERE RbrFi < @RbrFi Order by RbrFi DESC
    Open Tabela3
    Fetch Next From Tabela3 Into @OdKade, @IznOdStav
    While @@Fetch_Status = 0
    Begin
        If @OdKade = @OdKadeSakam
        Begin
            Close Tabela3
            Deallocate Tabela3
            RETURN
        End
        If @OdKade <> 'P'
            Set @Iznos = @Iznos + @IznOdStav
        Fetch Next From Tabela3 Into @OdKade, @IznOdStav
    End
    Close Tabela3
    Deallocate Tabela3




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fix_dajcenazadatum]'))
drop procedure [dbo].[sp_fix_dajcenazadatum]

Go




CREATE           PROCEDURE sp_fix_DajCenaZaDatum
    @VlIzl            char(1) = Null,
    @Tip_Sif_Kup        char(1) = Null,
    @Sif_Kup_Gen        varchar(11) = Null,
    @Tip_Sif_Art        char(1) = Null,
    @Sif_Art_Gen        varchar(20),
    @Datum        smalldatetime
AS
    SELECT *
    FROM dbo.fix_DajCenaZaDatum(@VlIzl, @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, @Sif_Art_Gen, @Datum)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fix_dajrabatodcenpopodgr]'))
drop procedure [dbo].[sp_fix_dajrabatodcenpopodgr]

Go


create  PROCEDURE sp_fix_DajRabatOdCenPoPodgr
    @Sifra_Kup    varchar(6),
    @Sifra_Art    varchar(20),
        @Uces         decimal (9, 2) = 0 OUTPUT
AS
    Declare @Sifra_Podg as varchar(10)
    Declare @Sifra_Gr as varchar(10)
    Declare @Sifra_7 as smallint
    Declare @Sifra_7_char as varchar(6)
    SELECT @Sifra_Podg = Sifra_Podg, @Sifra_7 = Drugo7
    from Katart
    where Sifra_Art = @Sifra_Art
    select @Sifra_Gr = Sifra_Gr
    from Podgrupi
    where Sifra_Podg = @Sifra_Podg
    if @Sifra_7 is not null and @Sifra_7 > 0
      begin
        set @Sifra_7_char = cast (@Sifra_7 as varchar(6))
        select @Uces = Uces
        From CenPoPodgr
        where Tip_Podelba = 'A' and TipKup = @Sifra_Kup and Sifra_Podelba = @Sifra_7_char
        if @Uces is not null and @Uces > 0
        return
      end
    if @Sifra_Podg is not null
      begin
        select @Uces = Uces
        From CenPoPodgr
        where Tip_Podelba = 'B' and TipKup = @Sifra_Kup and Sifra_Podelba = @Sifra_Podg
        if @Uces is not null and @Uces > 0
        return
      end
    if @Sifra_Gr is not null
      begin
        select @Uces = Uces
        From CenPoPodgr
        where Tip_Podelba = 'C' and TipKup = @Sifra_Kup and Sifra_Podelba = @Sifra_Gr
        if @Uces is not null and @Uces > 0
        return
      end
    set @Uces = 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fix_imatocniuslovikomintart]'))
drop procedure [dbo].[sp_fix_imatocniuslovikomintart]

Go


create  PROCEDURE sp_fix_ImaTocniUsloviKomintArt
    @VlIzl            char(1),
    @Tip_Sif_Kup        char(1),
    @Sif_Kup_Gen        varchar(11),
    @Tip_Sif_Art        char(1),
    @Sif_Art_Gen        varchar(20),
    @ImaUslovi        char (1) = null OUTPUT,
    @Uces            decimal (9, 2) = null OUTPUT
AS
  Declare @Temp_Sif_Kup_Gen varchar (11)
  SELECT TOP 1 @Temp_Sif_Kup_Gen = Sif_Kup_Gen, @Uces = Uces
  From Usl_Komerc_Per
  WHERE VlIzl=@VlIzl and Tip_Sif_Kup=@Tip_Sif_Kup and Sif_Kup_Gen=@Sif_Kup_Gen
        and Tip_Sif_Art=@Tip_Sif_Art and Sif_Art_Gen = @Sif_Art_Gen
  ORDER BY Datum_Od DESC
  if @Temp_Sif_Kup_Gen is null
    set @ImaUslovi = 'N'
  else
    set @ImaUslovi = 'D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_fond_presm_cena]'))
drop procedure [dbo].[sp_fond_presm_cena]

Go

create PROCEDURE sp_Fond_Presm_Cena
AS

        Declare @Sifra_Art    varchar(20)
    Declare @NovaRef    decimal(18, 4)
        Declare @PoslNab    decimal(18, 4)
    Declare @NovaNab    decimal(18, 4)

    Declare @Izn_Marza    decimal(18, 4)
    Declare @NabCena    decimal(18, 4)
    Declare @ProdCena    decimal(18, 4)

  DECLARE cLekovi CURSOR FAST_FORWARD
    FOR SELECT Sifra_Art, NovaRef, PoslNab, NovaNab
        FROM ceni20092011$
        order by SifrA_Art

  OPEN cLekovi
  FETCH NEXT FROM cLekovi
    INTO @Sifra_Art, @NovaRef, @PoslNab, @NovaNab

  WHILE @@FETCH_STATUS = 0
  Begin
    if @NovaRef > 0
    begin
        SELECT @Izn_Marza = Izn_Marza
        FROM LstPartic
        WHERE @NovaRef >= Iznos_Od AND @NovaRef <= Iznos_Do

        set @NabCena = @NovaNab
        if @NabCena is null or @NabCena <= 0
            set @NabCena = @PoslNab
        if @NabCena is null or @NabCena <= 0
            set @NabCena = @NovaRef

        set @ProdCena = round((@NabCena + @Izn_Marza) * 1.05, 2)

        update ceni20092011$
        set ProdCena = @ProdCena
        where Sifra_Art = @SifrA_Art

        --print @SifrA_Art + ' ' + cast(@NovaRef as varchar(12)) + ' '
        --         + cast(@Izn_Marza as varchar(12))

    end

    FETCH NEXT FROM cLekovi
        INTO @Sifra_Art, @NovaRef, @PoslNab, @NovaNab
  End

  CLOSE cLekovi
  DEALLOCATE cLekovi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_generirajnizadatumi]'))
drop procedure [dbo].[sp_generirajnizadatumi]

Go



CREATE   PROCEDURE sp_GenerirajNizaDatumi
    @Datum_Od datetime=null,
        @Datum_Do datetime=null
as

DECLARE @LowDate DATEtime
SET @LowDate = @Datum_Od

DECLARE @HighDate DATEtime
SET @HighDate =  @Datum_Do

SELECT DISTINCT DATEADD(dd, Days.Row, DATEADD(mm, Months.Row, DATEADD(yy, Years.Row, @LowDate))) AS Date
FROM
(SELECT 0 AS Row UNION ALL SELECT 1 UNION ALL SELECT 2 UNION ALL SELECT 3 UNION ALL SELECT 4
 UNION ALL SELECT 5 UNION ALL SELECT 6 UNION ALL SELECT 7 UNION ALL SELECT 8 UNION ALL SELECT 9
 UNION ALL SELECT 10 UNION ALL SELECT 11 UNION ALL SELECT 12 UNION ALL SELECT 13 UNION ALL SELECT 14
 UNION ALL SELECT 15 UNION ALL SELECT 16 UNION ALL SELECT 17 UNION ALL SELECT 18 UNION ALL SELECT 19
 UNION ALL SELECT 20 -- add more years here...
) AS Years
INNER JOIN
(SELECT 0 AS Row UNION ALL SELECT 1 UNION ALL SELECT 2 UNION ALL SELECT 3 UNION ALL SELECT 4
 UNION ALL SELECT 5 UNION ALL SELECT 6 UNION ALL SELECT 7 UNION ALL SELECT 8 UNION ALL SELECT 9
 UNION ALL SELECT 10 UNION ALL SELECT 11
) AS Months
ON DATEADD(mm, Months.Row,  DATEADD(yy, Years.Row, @LowDate)) <= @HighDate
INNER JOIN
(SELECT 0 AS Row UNION ALL SELECT 1 UNION ALL SELECT 2 UNION ALL SELECT 3 UNION ALL SELECT 4
 UNION ALL SELECT 5 UNION ALL SELECT 6 UNION ALL SELECT 7 UNION ALL SELECT 8 UNION ALL SELECT 9
 UNION ALL SELECT 10 UNION ALL SELECT 11 UNION ALL SELECT 12 UNION ALL SELECT 13 UNION ALL SELECT 14
 UNION ALL SELECT 15 UNION ALL SELECT 16 UNION ALL SELECT 17 UNION ALL SELECT 18 UNION ALL SELECT 19
 UNION ALL SELECT 20 UNION ALL SELECT 21 UNION ALL SELECT 22 UNION ALL SELECT 23 UNION ALL SELECT 24
 UNION ALL SELECT 25 UNION ALL SELECT 26 UNION ALL SELECT 27 UNION ALL SELECT 28 UNION ALL SELECT 29
 UNION ALL SELECT 30
) AS Days
ON DATEADD(dd, Days.Row, DATEADD(mm, Months.Row,  DATEADD(yy, Years.Row, @LowDate))) <= @HighDate
WHERE DATEADD(yy, Years.Row, @LowDate) <= @HighDate
ORDER BY 1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_generrazl]'))
drop procedure [dbo].[sp_generrazl]

Go

CREATE         PROCEDURE sp_GenerRazl
    @Sifra_OE        smallint = NULL,
    @KoiOE        Varchar(6) = NULL,
    @Sifra_Art_Od        varchar(20) = NULL,
    @Sifra_Art_Do        varchar(20) = NULL,
    @Datum_Nal_Od     Smalldatetime = NULL,
    @Datum_Nal_Do     Smalldatetime = NULL,
    @Datum_Dok_Od     Smalldatetime = NULL,
    @Datum_Dok_Do     Smalldatetime = NULL,
    @SoDDV        char(1) = 'D',         -- D/N
    @Sifra_Kup        varchar(8) = NULL,
    @Sifra_Gr        varchar(6) = NULL,
    @Sifra_Podg        char(6) = NULL,
    @Lokacija        varchar(10) = NULL,
    @SamoRazliki        char(1) = 'D'
AS
    Declare @SSQL  As Varchar(4000)
    Declare @SSQL1 As varchar(500)
    CREATE TABLE #Promet_Artikli
    ( Sifra_OE Smallint,
      Sifra_Art Varchar(20),
      VlIzl Char(1),
      Kolic Numeric(18, 4),
      MagCena Numeric(18, 4),
      DanMagCena Char(1),
      ProcOsn Numeric(6, 2),
      DokCena Numeric(18, 4),
      DanDokCena Char(1),
      Uces Numeric(18, 6),
      Kasa Numeric(6, 2)
    )
    CREATE TABLE #Promet
    ( Sifra_OE    Smallint,
      Sifra_Art    Varchar(20),
      TVlez        Numeric(18, 4),
      TIzlez    Numeric(18, 4),
      TVr_Vlez    Numeric(18, 4),
      TVr_Izlez    Numeric(18, 4),
      Vr_RazlC    Numeric(18,4)
    )
Set Nocount On
    ---------------------------------------
    -- Tekoven Promet
    ---------------------------------------
    SET @SSQL =    'SELECT S.Sifra_OE, S.Sifra_Art, S.VlIzl, S.Kolic, S.MagCena, S.DanMagCena,
            S.POsn, S.DokCena, S.DanDokCena, S.Uces, D.Kasa
            FROM Stavr S
            INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
            INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    INSERT #Promet_Artikli EXEC(@SSQL)
    DECLARE Stavki CURSOR FAST_FORWARD FOR SELECT * FROM #Promet_Artikli
    Declare @KojaOE Smallint
    Declare @Sifra_Art Varchar(20)
    Declare @VlIzl char(1)
    Declare @Kolic decimal(18,6)
    Declare @MagCena decimal(18,6)
    Declare @DanMagCena char(1)
    Declare @DokCena decimal(18,6)
    Declare @DanDokCena char(1)
    Declare @Uces decimal(18,6)
    Declare @Kasa decimal(6,2)
    Declare @POsn decimal(6,2)
    Declare @Vlez decimal(18,6)
    Declare @Izlez decimal(18,6)
    Declare @Vr_Vlez decimal(18,6)
    Declare @Vr_Izlez decimal(18,6)
    OPEN Stavki
    FETCH NEXT FROM Stavki INTO @KojaOE, @Sifra_Art, @VlIzl, @Kolic, @MagCena, @DanMagCena,
        @POsn, @DokCena, @DanDokCena, @Uces, @Kasa
    WHILE @@FETCH_STATUS = 0
    Begin
    set @Vlez=0
    set @Izlez=0
    set @Vr_Vlez=0
    set @Vr_Izlez=0
    If @VlIzl='V'
        Begin
        Set @Vlez=@Vlez+@Kolic
        If @SoDDV='N'
            Begin
--                 Print 'Bez DDV 1'
                If @DanMagCena='D'
                Set @MagCena=@MagCena/(1+@POsn)
            End
        Else If @SoDDV='D'
            Begin
--              Print 'Bez DDV 2'
                If @DanMagCena='N'
                Set @MagCena=@MagCena*(1+@POsn/100)
            End
        Set @Vr_Vlez=@Vr_Vlez+@Kolic*@MagCena
        End
    Else If @VlIzl='I'
        Begin
        Set @Izlez=@Izlez+@Kolic
        If @SoDDV='N'
            Begin
--              Print 'Bez DDV 3'
                If @DanDokCena='D'
                Set @DokCena=@DokCena/(1+@POsn/100)
            End
        Else If @SoDDV='D'
            Begin
--              Print 'So DDV 4'
                If @DanDokCena='N'
                Set @DokCena=@DokCena*(1+@POsn/100)
            End
    Set @DokCena = @DokCena * (1- @Uces/100) * (1- @Kasa/100)
    Set @Vr_Izlez=@Vr_Izlez+@Kolic*@DokCena
        End
        INSERT #Promet (Sifra_OE, Sifra_Art, TVlez, TIzlez, TVr_Vlez, TVr_Izlez, Vr_RazlC)
        VALUES (@KojaOE, @Sifra_Art, @Vlez, @Izlez, @Vr_Vlez, @Vr_Izlez, 0)
        FETCH NEXT FROM Stavki INTO @KojaOE, @Sifra_Art, @VlIzl, @Kolic, @MagCena,
            @DanMagCena, @POsn, @DokCena, @DanDokCena, @Uces, @Kasa
    End
    CLOSE Stavki
    DEALLOCATE Stavki
Set Nocount Off
    CREATE TABLE TmpRazl
    ( Sifra_OE    Smallint,
      Sifra_Art    Varchar(20),
      PTar        Char(3),
      POsn        Numeric(6, 2),
      Tek_Vr_Vlez    Numeric(18, 4),
      Tek_Vr_Izlez    Numeric(18, 4),
      Vr_RazlC    Numeric(18, 4),
      PocCena    Numeric(18, 6),
      KrCena    Numeric(18, 6),
      Kolic        Numeric(18, 6)
    )
    -------------------
    -- Razliki vo ceni
    -------------------
    SET @SSQL = 'SELECT R.Sifra_OE, R.Sifra_Art,
    SUM((dbo.fn_VratiCena(R.KrCena,R.POsn,R.DanKrCena,'''+@SoDDV+''')-dbo.fn_VratiCena(R.PocCena,R.POsn,R.DanPocCena,'''+@SoDDV+'''))*R.Kolic) As Vr_RazlC
    FROM RazlCeni R
    INNER JOIN Katart K ON R.Sifra_Art = K.Sifra_Art  And K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And R.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND R.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND R.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND R.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND R.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    Set @SSQL = @SSQL + ' GROUP BY R.Sifra_OE, R.Sifra_Art'
    INSERT #Promet (Sifra_OE, Sifra_Art, Vr_RazlC) EXEC(@SSQL)
    UPDATE #Promet
    SET TVr_Vlez = 0 WHERE TVr_Vlez IS NULL
    UPDATE #Promet
    SET TVr_Izlez = 0 WHERE TVr_Izlez IS NULL
    INSERT INTO TmpRazl (Sifra_Oe, Sifra_Art, Tek_Vr_Vlez, Tek_Vr_Izlez, Vr_RazlC)
    SELECT Sifra_OE, Sifra_Art,
    Sum(TVr_Vlez) As Tek_Vr_Vlez, Sum(TVr_Izlez) As Tek_Vr_Izlez,
    Sum(Vr_RazlC) As Vr_RazlC
    FROM #Promet
    GROUP BY Sifra_OE, Sifra_Art
    DELETE FROM TmpRazl
    WHERE Abs(Tek_Vr_Vlez-Tek_Vr_Izlez+Vr_RazlC) < 0.01            --PAZI, OVA VAZI ZA SLUCAI KADE TEK.ZALIHA=0
    UPDATE TmpRazl
    SET    PocCena = SoArt.Cena
    FROM SoArt
    WHERE TmpRazl.Sifra_Art = SoArt.Sifra_Art AND TmpRazl.Sifra_OE = SoArt.Sifra_OE
    UPDATE TmpRazl
    SET    POsn = Tarifi.ProcOsn, PTar = KatArt.Sifra_Tar
    FROM KatArt, Tarifi
    WHERE TmpRazl.Sifra_Art = KatArt.Sifra_Art AND KatArt.Sifra_Tar = Tarifi.Sifra_Tar
    UPDATE TmpRazl
    SET KrCena = PocCena * 0.91
    WHERE Tek_Vr_Vlez-Tek_Vr_Izlez+Vr_RazlC  > 0
    UPDATE TmpRazl
    SET KrCena = PocCena * 1.06
    WHERE Tek_Vr_Vlez-Tek_Vr_Izlez+Vr_RazlC  < 0
    UPDATE TmpRazl
    SET Kolic = Round(-1 * (Tek_Vr_Vlez-Tek_Vr_Izlez+Vr_RazlC) / (KrCena - PocCena), 0)
    WHERE KrCena - PocCena <> 0
    UPDATE TmpRazl
    SET Kolic = 1
    WHERE Kolic = 0
    UPDATE TmpRazl
    SET KrCena = -1 * (Tek_Vr_Vlez-Tek_Vr_Izlez+Vr_RazlC) / Kolic + PocCena




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_genlot]'))
drop procedure [dbo].[sp_genlot]

Go

CREATE  PROCEDURE sp_GenLot
    @KoiOE        varchar(100)=NULL,
    @SurGotov    char(1)='S',    --S-surovini,G-gotov pr.
    @Sifra_Dob    char(6)=NULL,    --treba samo za surovini
    @Datum        smalldatetime,
    @KojDatum    char(1)='D',        --D-dat.dok,V-dat.vnes
    @Lot        varchar(30)='' OUTPUT
AS
DECLARE @SSQL varchar(3000)
DECLARE @OznDob as varchar(10)
Declare @Br as smallint
Declare @dmy as varchar(6)
IF Day(@Datum) < 10
    SET @dmy = '0' + ltrim(CAST(Day(@Datum) as char(1)))
ELSE
    SET @dmy = ltrim(CAST(Day(@Datum) as char(2)))
IF Month(@Datum) < 10
    SET @dmy = @dmy + '0' + ltrim(CAST(MONTH(@Datum) as char(1)))
ELSE
    SET @dmy = @dmy + ltrim(CAST(MONTH(@Datum) as char(2)))
SET @dmy = @dmy + Substring(CAST(YEAR(@Datum) as char(4)),3,2)
CREATE TABLE #TmpBr
(Broj    smallint)
SET @SSQL = 'SELECT COUNT(DISTINCT S.Sifra_Art) FROM Stavr S
INNER JOIN Dokr D ON S.DokrID=D.DokrID WHERE S.VlIzl=''V'' AND D.Sifra_Za=''2'' AND '
IF @KojDatum='V'
    SET @SSQL = @SSQL + 'db.fn_VratiDatum(D.Datum_Vnes)='''+cast(@Datum as varchar(35))+''' '
Else
    SET @SSQL = @SSQL + 'S.Datum_Dok='''+cast(@Datum as varchar(35))+''' '
IF @SurGotov='S'
    SET @SSQL = @SSQL + 'AND D.Sifra_Kup='+ @Sifra_Dob
INSERT INTO #TmpBr EXEC (@SSQL)
SELECT @Br=Broj FROM #TmpBr
IF @Br IS NULL SET @Br = 0
if @Br > 98 SET @Br = 98
SET @Br = @Br + 1
IF @SurGotov='S'
Begin
    SELECT @OznDob = SkrOznaka FROM Komint WHERE Sifra_Kup=@Sifra_Dob
    IF @OznDob IS NULL SET @OznDob='XX'
    IF Len(@OznDob)=0 SET  @OznDob='XX'
    IF Len(@OznDob)=1 SET  @OznDob=@OznDob+'X'
    SET @Lot = @dmy +Substring(@OznDob,1,2)
    IF @Br<=9
        SET @Lot = @Lot + '0' + cast(@Br as char(1))
    ELSE
        SET @Lot = @Lot + cast(@Br as char(2))
End
ELSE
Begin
    SET @Lot = @dmy
    IF @Br<=9
        SET @Lot = @Lot + '0' + cast(@Br as char(1))
    ELSE
        SET @Lot = @Lot + cast(@Br as char(2))
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_genodobrenija]'))
drop procedure [dbo].[sp_genodobrenija]

Go

CREATE         PROCEDURE sp_GenOdobrenija
    @ProcOdob    decimal(6,2),
    @PocDatFak    smalldatetime,
    @Sifra_Nal_Upl    smallint,
    @Dat_Upl_Od    smalldatetime,
    @Dat_Upl_Do    smalldatetime,
    @Sifra_Kup    char(6) = NULL,
    @Kto        char(10),
    @TolerRazlUpl    decimal(10,2),
    @GrpOdobKup    char(1)='D',
    @KoiCeniKup    varchar(30) = NULL,
    @DaliIAneks1    char(1)='N',
    @TolerDenaDocni smallint = NULL,
    @PoUplati    char(1) = 'D'
AS
IF @TolerDenaDocni IS NULL SET @TolerDenaDocni = 0
Declare @SSQL varchar(3000)
CREATE TABLE #TmpFin
(AnID_Upl    int,
 AnID_Fak    int,
 Sifra_OEF    smallint,
 Sifra_DokF    smallint,
 Broj_DokF    int,
 Datum_Upl    smalldatetime,
 Datum_Fak    smalldatetime,
 Rok        smallint,
 Sifra_Kup     char(6),
 Iznos_Fak    decimal(18,4),
 Izn_Plat    decimal(18,4),
 POsn1        decimal(6,2),
 POsn2        decimal(6,2),
 Osn1        decimal(18,6),
 Osn2        decimal(18,6),    --ovde dodaj pole sifra_pat ako treba
 ObrabDDV    char(1))
IF @PoUplati='D'
Begin
    CREATE TABLE #TmpUpl
    (AnID_Upl    int,
     Datum_Upl    smalldatetime)
    SET @SSQL = 'SELECT AnID, Datum_Dok FROM AnFinDok WHERE Kto=''' + @Kto  +''' AND Datum_Dok >=''' + Cast(@Dat_Upl_Od as varchar(35)) +
    ''' AND Datum_Dok <=''' + Cast(@Dat_Upl_Do as varchar(35)) + ''' AND Pobaruva>0 '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup=' + @Sifra_Kup
    IF @Sifra_Nal_Upl IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Nal=' + cast(@Sifra_Nal_Upl as varchar(6))   -- ovde bese gresska @Sifra_Kup
    IF @DaliIAneks1='D' OR @KoiCeniKup IS NOT NULL
    Begin
        SET @SSQL = @SSQL + ' AND Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE 1=1 '
        IF @DaliIAneks1='D'
            SET @SSQL = @SSQL + ' AND Aneks1 IS Not NULL AND Aneks1<>'''' '
        IF  @KoiCeniKup IS NOT NULL
            SET @SSQL = @SSQL + ' AND KojaCena IN (' + @KoiCeniKup + ') '
        SET @SSQL = @SSQL + ') '
    End
    INSERT INTO #TmpUpl EXEC (@SSQL)
    Declare @AnIDUpl int
    Declare @DatUpl smalldatetime
    Declare TabUpl Cursor Fast_Forward For    Select  AnID_Upl, Datum_Upl From #TmpUpl
    Open TabUpl
    Fetch Next From TabUpl Into @AnIDUpl, @DatUpl
    While @@Fetch_Status = 0
    Begin
        SET @SSQL = 'SELECT '+cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Rok, A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi FROM AnFinDok A
            INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+
            ')  WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + ''' AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
            AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin) AND A.Dolzi * (1-'+ cast(@ProcOdob as varchar(10)) + '/100) - A.Plateno_Dolzi <= ' +
            cast(@TolerRazlUpl as varchar(15)) + ' AND A.Datum_Dok + A.Rok' + '+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + ''' '
        INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat) EXEC (@SSQL)
        Fetch Next From TabUpl Into  @AnIDUpl, @DatUpl
    End
    Close TabUpl
    Deallocate TabUpl

    ------- Brisi gi site stavki fakturi koi imaat nekoja uplata po rokot
    CREATE TABLE #Tmp1
    (Kolku int)
    Declare @AnIDFak int
    Declare @DatFak smalldatetime
    Declare @Rok integer
    Declare @IznFak as decimal
    Declare @Klk as integer
    Declare TabFak Cursor Fast_Forward For    Select  AnID_Fak, Datum_Fak, Rok, Iznos_Fak From #TmpFin ORDER BY AnID_Fak
    Open TabFak
    Fetch Next From TabFak Into @AnIDFak, @DatFak, @Rok, @IznFak
    While @@Fetch_Status = 0
    Begin
        DELETE FROM #Tmp1
        SET @SSQL = 'SELECT Count(*) FROM AnFinDok A
            INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFak as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFak  as varchar(10))+
            ')  WHERE A.Pobaruva > 0 AND A.Datum_Dok >''' + cast(@DatFak+@Rok + @TolerDenaDocni as varchar(35)) + ''' AND Z.Iznos >' +
            Cast(@IznFak * @ProcOdob /100 +@TolerRazlUpl as varchar(15))
        INSERT INTO #Tmp1 EXEC (@SSQL)
        SELECT @Klk = Kolku FROM #Tmp1
        IF @Klk IS NOT NULL AND @Klk > 0    UPDATE #TmpFin SET AnID_Upl= -1 WHERE AnID_Fak=@AnIDFak
        Fetch Next From TabFak Into  @AnIDFak, @DatFak, @Rok, @IznFak
    End
    Close TabFak
    Deallocate TabFak
    DELETE FROM #TmpFin WHERE AnID_Upl = -1


End
ELSE
Begin
    SET @SSQL = 'SELECT F.AnID, F.Sifra_OE, F.Sifra_Dok, F.Broj_Dok, F.Datum_Dok, F.Rok, F.Sifra_kup, F.Dolzi
    FROM AnFinDok F  INNER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
    WHERE F.Dolzi > 0 AND F.Datum_Dok >=''' + cast(@PocDatFak as varchar(35)) + ''' AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
    AND K.Spec_Rabat IS NOT NULL  AND K.Spec_Rabat > 0 '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND F.Sifra_Kup = ' + @Sifra_Kup
    IF @Kto IS NOT NULL
        SET @SSQL = @SSQL + ' AND F.Kto = ' + @Kto
    INSERT INTO #TmpFin (AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak) EXEC (@SSQL)
End
---------
CREATE TABLE #TmpFak
(Sifra_Oe    smallint,
 Sifra_Dok    smallint,
 Broj_Dok    int,
 POsn        decimal(6,2),
 Osn        decimal(18,6),
 Spec_Forma_Pec varchar(10))
INSERT INTO #TmpFak (Sifra_Oe, Sifra_Dok, Broj_Dok, POsn, Osn, Spec_Forma_Pec)
SELECT S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, 'D')), D.Spec_Forma_Pec
FROM Stavr S INNER JOIN #TmpFin F ON S.Sifra_OE=F.Sifra_OEF AND S.Sifra_Dok=F.Sifra_DokF AND S.Broj_Dok=F.Broj_DokF
INNER JOIN Dokr D ON S.Sifra_OE=D.Sifra_OE AND S.Sifra_Dok=D.Sifra_Dok AND S.Broj_Dok=D.Broj_Dok
GROUP BY S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, D.Spec_Forma_Pec

UPDATE #TmpFin SET POsn1=F.POsn, Osn1=round(F.Osn,2), ObrabDDV='D' FROM #TmpFak F WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND
#TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn>=15
UPDATE #TmpFin SET POsn2=F.POsn, Osn2=round(F.Osn,2), ObrabDDV='D' FROM #TmpFak F WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND
#TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn<15
UPDATE #TmpFin SET ObrabDDV='X' FROM #TmpFak F WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND
#TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'            ---dod.13.04.06
UPDATE #TmpFin SET ObrabDDV='X' FROM DokrZb F WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND
#TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'    --dod.15.09.06
DELETE FROM #TmpFin WHERE ObrabDDV='X'                        ---dod.13.04.06
UPDATE #TmpFin SET POsn1=S.Stapka1, POsn2=S.Stapka2, Osn1=Round(F.Danok1 + F.Danok1/(S.Stapka1/100),2),
Osn2=Round(F.Danok2 + F.Danok2/(S.Stapka2/100),2), ObrabDDV='D' FROM AnFinDok F, DDVStapki S
WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND
#TmpFin.ObrabDDV IS NULL AND F.Datum_Dok >= S.Datum_Od And F.Datum_Dok <= S.Datum_Do AND (F.Danok1 > 0 OR F.Danok2 >0)
UPDATE #TmpFin SET POsn2=5, Osn2=Iznos_Fak WHERE ObrabDDV IS NULL
SELECT T.*, K.Spec_Rabat FROM #TmpFin T INNER JOIN Komint K ON T.Sifra_Kup=K.Sifra_Kup
ORDER BY K.Sifra_Reg, T.Sifra_Kup, T.AnID_Fak        --dodaj vo order na sredina, sifra_pat ako treba
/*CREATE TABLE #TmpSpremna
(AnID_Upl    int,
 AnID_Fak    int,
 Sifra_OEF    smallint,
 Sifra_DokF    smallint,
 Broj_DokF    int,
 Datum_Upl    smalldatetime,
 Datum_Fak    smalldatetime,
 Rok        smallint,
 Sifra_Kup     char(6),
 Iznos_Fak    decimal(18,4),
 POsn        decimal(6,2),
 IznDDV    decimal(18,6),
 ObrabDDV    char(1))
INSERT INTO #TmpSpremna (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Upl, Datum_Fak, Rok, Sifra_Kup, Iznos_Fak, POsn, IznDDV)
SELECT F.AnID_Upl,F.AnID_Fak, F.Sifra_OEF, F.Sifra_DokF, F.Broj_DokF, F.Datum_Upl, F.Datum_Fak, F.Rok, F.Sifra_Kup, F.Iznos_Fak, S.POsn, S.Osn
FROM     #TmpFin F LEFT OUTER JOIN #TmpFak S ON F.Sifra_OEF=S.Sifa_OE AND F.Sifra_DokF=S.Sifra_Dok AND F.Broj_DokF=S.Broj_Dok
UPDATE #TmpFin SET POsn1=S.Stapka1, POsn2=S.Stapka2, Osn1=Round(F.Danok1 + F.Danok1/(S.Stapka1/100),2),
Osn2=Round(F.Danok2 + F.Danok2/(S.Stapka2/100),2), ObrabDDV='D' FROM AnFinDok F, DDVStapki S
WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND
#TmpFin.ObrabDDV IS NULL AND F.Datum_Dok >= S.Datum_Od And F.Datum_Dok <= S.Datum_Do AND (F.Danok1 > 0 OR F.Danok2 >0)
UPDATE #TmpFin SET POsn2=5, Osn2=Iznos_Fak WHERE ObrabDDV IS NULL
*/



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_genodobrenija_dva_rabati]'))
drop procedure [dbo].[sp_genodobrenija_dva_rabati]

Go


CREATE          PROCEDURE sp_GenOdobrenija_Dva_Rabati
    @DenoviOdob1    smallint = 7,
    @PocDatFak    smalldatetime,
    @Sifra_Nal_Upl    smallint,
    @Dat_Upl_Od    smalldatetime,
    @Dat_Upl_Do    smalldatetime,
    @Sifra_Kup    char(6) = NULL,
    @Kto        char(10),
    @TolerRazlUpl    decimal(10,2),
    @GrpOdobKup    char(1)='D',
    @KoiCeniKup    varchar(30) = NULL,
    @DaliIAneks1    char(1)='N',
    @TolerDenaDocni smallint = NULL,
    @PoUplati    char(1) = 'D',    --
    @DodRabat    smallint = Null,
    @DenaMaxRabPlakOdOrg char(1)='N',
    @Odobr2Rabati char(1)='D'
AS
    IF @TolerDenaDocni IS NULL SET @TolerDenaDocni = 0
    Declare @ProcDodRab as smallint
    Set @ProcDodRab = 1
    If @DodRabat IS NOT NULL AND @DodRabat > 1 Set @ProcDodRab = @DodRabat

    Declare @SSQL varchar(3000)
    CREATE TABLE #TmpFin
    (
     AnID_Upl    int,
     AnID_Fak    int,
     Sifra_OEF    smallint,
     Sifra_DokF    smallint,
     Broj_DokF    int,
     Datum_Upl    smalldatetime,
     Datum_Fak    smalldatetime,
     Rok        smallint,
     Sifra_Kup     char(6),
     Iznos_Fak    decimal(18,4),
     Izn_Plat    decimal(18,4),
     POsn1        decimal(6,2),
     POsn2        decimal(6,2),
     Osn1        decimal(18,6),
     Osn2        decimal(18,6),    --ovde dodaj pole sifra_pat ako treba
     ObrabDDV    char(1),
     ProcOdobr    decimal(6,2)
    )

    IF @PoUplati='D'
    Begin
        CREATE TABLE #TmpUpl
        (
         AnID_Upl    int,
         Datum_Upl    smalldatetime
        )

        SET @SSQL = 'SELECT AnID, Datum_Dok
                FROM AnFinDok
                WHERE Kto=''' + @Kto  +''' AND Datum_Dok >=''' + Cast(@Dat_Upl_Od as varchar(35)) +
                ''' AND Datum_Dok <=''' + Cast(@Dat_Upl_Do as varchar(35)) + ''' AND Pobaruva > 0 '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Kup=' + @Sifra_Kup
        IF @Sifra_Nal_Upl IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Nal=' + cast(@Sifra_Nal_Upl as varchar(6))
        IF @DaliIAneks1='D' OR @KoiCeniKup IS NOT NULL
        Begin
            SET @SSQL = @SSQL + ' AND Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE 1=1 '
            IF @DaliIAneks1='D'
                SET @SSQL = @SSQL + ' AND Aneks1 IS Not NULL AND Aneks1<>'''' '
            IF  @KoiCeniKup IS NOT NULL
                SET @SSQL = @SSQL + ' AND KojaCena IN (' + @KoiCeniKup + ') '
            SET @SSQL = @SSQL + ') '
        End
        INSERT INTO #TmpUpl EXEC (@SSQL)

        Declare @AnIDUpl int
        Declare @DatUpl smalldatetime
        Declare TabUpl Cursor Fast_Forward For    Select  AnID_Upl, Datum_Upl From #TmpUpl
        Open TabUpl
        Fetch Next From TabUpl Into @AnIDUpl, @DatUpl
        While @@Fetch_Status = 0
        Begin
            -- Platenite fakturi predvreme do @DenovoOdob1
            IF @Odobr2Rabati='D'        --da iskoristime proc.i za onie koi imaat eden rabat
            Begin
            SET @SSQL = 'SELECT ' + Cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Rok,
                          A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi,
                (Case WHEN Spec_Forma_Pec LIKE ''P%'' THEN Cast(Replace(Spec_Forma_Pec, ''P'', '''') as decimal(6,2)) + ' + Cast(@ProcDodRab as varchar(5)) + ' ELSE 0 END) ProcRabat
                FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ')
                            OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+ ')
                INNER JOIN Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
                INNER JOIN Dokr D ON A.Sifra_OE=D.Sifra_OE AND A.Sifra_Dok=D.Sifra_Dok AND A.Broj_Dok=D.Broj_Dok
                INNER JOIN OrgEd O ON D.Sifra_Oe=O.Sifra_Oe
                WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin)
                AND A.Dolzi * (1-((Case WHEN Spec_Forma_Pec LIKE ''P%'' THEN Cast(Replace(Spec_Forma_Pec, ''P'', '''') as decimal(6,2)) ELSE 0 END) + ' + Cast(@ProcDodRab as varchar(5)) + ')/100) - A.Plateno_Dolzi <= ' + Cast(@TolerRazlUpl as varchar(15)) + '
                AND A.Datum_Dok + '
                IF @DenaMaxRabPlakOdOrg='D'
                    SET @SSQL = @SSQL+'O.DenaMaxRabPlak '
                Else
                    SET @SSQL = @SSQL+ Cast(@DenoviOdob1 as varchar(3))
                SET @SSQL = @SSQL+ '>=''' + cast(@DatUpl as varchar(35)) + ''' AND D.Spec_Forma_Pec IS NOT NULL AND D.Spec_Forma_Pec LIKE ''P%''
                AND Substring(D.Spec_Forma_Pec,3,6)<>''D00V00'' '    --ovie se dok.za koi nema 2 rokovi
                --print @SSQL
            INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat, ProcOdobr) EXEC (@SSQL)
            End

            SET @SSQL = 'SELECT ' + Cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Rok,
                        A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi, (Case WHEN Spec_Forma_Pec LIKE ''P%'' THEN Cast(Replace(Spec_Forma_Pec, ''P'', '''') as decimal(6,2)) ELSE 0 END)
                FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ')
                            OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+ ')
                INNER JOIN Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
                INNER JOIN Dokr D ON A.Sifra_OE=D.Sifra_OE AND A.Sifra_Dok=D.Sifra_Dok AND A.Broj_Dok=D.Broj_Dok
                INNER JOIN OrgEd O ON D.Sifra_Oe=O.Sifra_Oe
                WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin)
                AND A.Dolzi * (1- (Case WHEN Spec_Forma_Pec LIKE ''P%'' THEN Cast(Replace(Spec_Forma_Pec, ''P'', '''') as decimal(6,2)) ELSE 0 END)/100) - A.Plateno_Dolzi <= ' + Cast(@TolerRazlUpl as varchar(15)) + '
                AND A.Datum_Dok + '
                IF @DenaMaxRabPlakOdOrg='D'
                    SET @SSQL = @SSQL+'O.DenaRabPlak'
                Else
                    SET @SSQL = @SSQL+'A.Rok'
                SET @SSQL = @SSQL+'+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + '''
                AND D.Spec_Forma_Pec IS NOT NULL AND D.Spec_Forma_Pec LIKE ''P%'' '
            INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat, ProcOdobr) EXEC (@SSQL)

            Fetch Next From TabUpl Into  @AnIDUpl, @DatUpl
        End
        Close TabUpl
        Deallocate TabUpl

        ------- Brisi gi site stavki fakturi koi imaat nekoja uplata po rokot
        CREATE TABLE #Tmp1
        (
         Kolku int
        )
        Declare @AnIDFak int
        Declare @DatFak smalldatetime
        Declare @Rok integer
        Declare @IznFak as decimal
        Declare @Klk as integer
        Declare @ProcOdobrFin as decimal(6,2)

        Declare TabFak Cursor Fast_Forward For    Select  AnID_Fak, Datum_Fak, Rok, Iznos_Fak, ProcOdobr From #TmpFin ORDER BY AnID_Fak
        Open TabFak
        Fetch Next From TabFak Into @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        While @@Fetch_Status = 0
        Begin
            DELETE FROM #Tmp1
            SET @SSQL = 'SELECT Count(*) FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFak as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFak  as varchar(10))+ ')
                WHERE A.Pobaruva > 0 AND A.Datum_Dok >''' + cast(@DatFak + @Rok + @TolerDenaDocni as varchar(35)) + '''
                AND Z.Iznos >' + Cast(@IznFak * @ProcOdobrFin /100 + @TolerRazlUpl as varchar(15))
            INSERT INTO #Tmp1 EXEC (@SSQL)

            SELECT @Klk = Kolku FROM #Tmp1

            IF @Klk IS NOT NULL AND @Klk > 0
                UPDATE #TmpFin SET AnID_Upl= -1 WHERE AnID_Fak=@AnIDFak

            Fetch Next From TabFak Into  @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        End
        Close TabFak
        Deallocate TabFak

        DELETE FROM #TmpFin WHERE AnID_Upl = -1
    End
    ELSE -- ne funkcionira ako ne e po Uplati
    Begin
        SET @SSQL = 'SELECT F.AnID, F.Sifra_OE, F.Sifra_Dok, F.Broj_Dok, F.Datum_Dok, F.Rok, F.Sifra_kup, F.Dolzi
            FROM AnFinDok F
            INNER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
            WHERE F.Dolzi > 0 AND F.Datum_Dok >=''' + cast(@PocDatFak as varchar(35)) + ''' AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
            AND K.Spec_Rabat IS NOT NULL  AND K.Spec_Rabat > 0 '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Sifra_Kup = ' + @Sifra_Kup
        IF @Kto IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Kto = ' + @Kto
        INSERT INTO #TmpFin (AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak) EXEC (@SSQL)
    End
    ---------

    CREATE TABLE #TmpFak
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     POsn        decimal(6,2),
     Osn        decimal(18,6),
     Spec_Forma_Pec varchar(10)
    )

    INSERT INTO #TmpFak (Sifra_Oe, Sifra_Dok, Broj_Dok, POsn, Osn, Spec_Forma_Pec)
    SELECT S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, 'D')), D.Spec_Forma_Pec
    FROM Stavr S
    INNER JOIN #TmpFin F ON S.Sifra_OE=F.Sifra_OEF AND S.Sifra_Dok=F.Sifra_DokF AND S.Broj_Dok=F.Broj_DokF
    INNER JOIN Dokr D ON S.Sifra_OE=D.Sifra_OE AND S.Sifra_Dok=D.Sifra_Dok AND S.Broj_Dok=D.Broj_Dok
    GROUP BY S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, D.Spec_Forma_Pec

    UPDATE #TmpFin
    SET POsn1=F.POsn, Osn1=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn>=15

    UPDATE #TmpFin
    SET POsn2=F.POsn, Osn2=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn<15

    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N' ---dod.13.04.06

    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM DokrZb F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'    --dod.15.09.06

    DELETE FROM #TmpFin WHERE ObrabDDV='X'                        ---dod.13.04.06

    UPDATE #TmpFin
    SET POsn1=S.Stapka1, POsn2=S.Stapka2, Osn1=Round(F.Danok1 + F.Danok1/(S.Stapka1/100),2),
        Osn2=Round(F.Danok2 + F.Danok2/(S.Stapka2/100),2), ObrabDDV='D'
    FROM AnFinDok F, DDVStapki S
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND
    #TmpFin.ObrabDDV IS NULL AND F.Datum_Dok >= S.Datum_Od And F.Datum_Dok <= S.Datum_Do AND (F.Danok1 > 0 OR F.Danok2 >0)

    UPDATE #TmpFin
    SET POsn2=5, Osn2=Iznos_Fak
    WHERE ObrabDDV IS NULL

    SELECT T.*, K.Spec_Rabat
    FROM #TmpFin T
    INNER JOIN Komint K ON T.Sifra_Kup=K.Sifra_Kup
    ORDER BY K.Sifra_Reg, T.Sifra_Kup, T.AnID_Fak        --dodaj vo order na sredina, sifra_pat ako treba



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_genodobrenija_dva_rabatisp]'))
drop procedure [dbo].[sp_genodobrenija_dva_rabatisp]

Go





CREATE          PROCEDURE sp_GenOdobrenija_Dva_RabatiSP
    @ProcOdob    decimal(6,2),
    @DenoviOdob1    smallint = 2,
    @PocDatFak    smalldatetime,
    @Sifra_Nal_Upl    smallint,
    @Dat_Upl_Od    smalldatetime,
    @Dat_Upl_Do    smalldatetime,
    @Sifra_Kup    char(6) = NULL,
    @Kto        char(10),
    @TolerRazlUpl    decimal(10,2),
    @GrpOdobKup    char(1)='D',
    @KoiCeniKup    varchar(30) = NULL,
    @DaliIAneks1    char(1)='N',
    @TolerDenaDocni smallint = NULL,
    @PoUplati    char(1) = 'D',    --
    @DodRabat    smallint = Null,
    @DenaMaxRabPlakOdOrg char(1)='N',
    @Odobr2Rabati char(1)='D',
    @DenoviOdobMal    smallint=30
AS
    IF @TolerDenaDocni IS NULL SET @TolerDenaDocni = 0
     If @DodRabat IS NULL  Set @DodRabat = 0

    Declare @SSQL varchar(3000)
    CREATE TABLE #TmpFin
    (
     AnID_Upl    int,
     AnID_Fak    int,
     Sifra_OEF    smallint,
     Sifra_DokF    smallint,
     Broj_DokF    int,
     Datum_Upl    smalldatetime,
     Datum_Fak    smalldatetime,
     Rok        smallint,
     Sifra_Kup     char(6),
     Iznos_Fak    decimal(18,4),
     Izn_Plat    decimal(18,4),
     POsn1        decimal(6,2),
     POsn2        decimal(6,2),
     Osn1        decimal(18,6),
     Osn2        decimal(18,6),    --ovde dodaj pole sifra_pat ako treba
     ObrabDDV    char(1),
     ProcOdobr    decimal(6,2)
    )

    IF @PoUplati='D'
    Begin
        CREATE TABLE #TmpUpl
        (
         AnID_Upl    int,
         Datum_Upl    smalldatetime
        )

        SET @SSQL = 'SELECT AnID, Datum_Dok
                FROM AnFinDok
                WHERE Kto=''' + @Kto  +''' AND Datum_Dok >=''' + Cast(@Dat_Upl_Od as varchar(35)) +
                ''' AND Datum_Dok <=''' + Cast(@Dat_Upl_Do as varchar(35)) + ''' AND Pobaruva > 0 '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Kup=' + @Sifra_Kup
        IF @Sifra_Nal_Upl IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Nal=' + cast(@Sifra_Nal_Upl as varchar(6))
        IF @DaliIAneks1='D' OR @KoiCeniKup IS NOT NULL
        Begin
            SET @SSQL = @SSQL + ' AND Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE 1=1 '
            IF @DaliIAneks1='D'
                SET @SSQL = @SSQL + ' AND Aneks1 IS Not NULL AND Aneks1<>'''' '
            IF  @KoiCeniKup IS NOT NULL
                SET @SSQL = @SSQL + ' AND KojaCena IN (' + @KoiCeniKup + ') '
            SET @SSQL = @SSQL + ') '
        End
        INSERT INTO #TmpUpl EXEC (@SSQL)

        Declare @AnIDUpl int
        Declare @DatUpl smalldatetime
        Declare TabUpl Cursor Fast_Forward For    Select  AnID_Upl, Datum_Upl From #TmpUpl
        Open TabUpl
        Fetch Next From TabUpl Into @AnIDUpl, @DatUpl
        While @@Fetch_Status = 0
        Begin
            -- Platenite fakturi predvreme do @DenovoOdob1
            IF @Odobr2Rabati='D'        --da iskoristime proc.i za onie koi imaat eden rabat
            Begin
            SET @SSQL = 'SELECT ' + Cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, Kup.TolerDena_Dosp+ dbo.fn_VratiDenaBezVikend(A.Datum_Dok)+'+Cast(@DenoviOdob1 as varchar(3))+',
                          A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi, '+cast(@ProcOdob+@DodRabat as varchar(6))+' ProcRabat
                FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ')
                            OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+ ')
                INNER JOIN Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
                INNER JOIN OrgEd O ON A.Sifra_Oe=O.Sifra_Oe
                WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin)
                AND A.Dolzi * (1- '+cast(@ProcOdob+@DodRabat as varchar(6))+'/100) - A.Plateno_Dolzi <= ' + Cast(@TolerRazlUpl as varchar(15)) + '
                AND A.Datum_Dok + Kup.TolerDena_Dosp+ dbo.fn_VratiDenaBezVikend(A.Datum_Dok) +'
                IF @DenaMaxRabPlakOdOrg='D'
                    SET @SSQL = @SSQL+'O.DenaMaxRabPlak '
                Else
                    SET @SSQL = @SSQL+ Cast(@DenoviOdob1 as varchar(3))
                SET @SSQL = @SSQL+ '>=''' + cast(@DatUpl as varchar(35)) + ''' '
                --print @SSQL
            INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat, ProcOdobr) EXEC (@SSQL)
            End

            SET @SSQL = 'SELECT ' + Cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, '+cast(@DenoviOdobMal as varchar(5))+',
                        A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi, '+cast(@ProcOdob as varchar(6))+'
                FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ')
                            OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+ ')
                INNER JOIN Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
                INNER JOIN OrgEd O ON A.Sifra_Oe=O.Sifra_Oe
                WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin)
                AND A.Dolzi * (1- '+cast(@ProcOdob as varchar(6))+'/100) - A.Plateno_Dolzi <= ' + Cast(@TolerRazlUpl as varchar(15)) + '
                AND A.Datum_Dok + '
                IF @DenaMaxRabPlakOdOrg='D'
                    SET @SSQL = @SSQL+'O.DenaRabPlak'
                Else
                    SET @SSQL = @SSQL+cast(@DenoviOdobMal as varchar(5))
                SET @SSQL = @SSQL+'+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + ''' '
            INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat, ProcOdobr) EXEC (@SSQL)

            Fetch Next From TabUpl Into  @AnIDUpl, @DatUpl
        End
        Close TabUpl
        Deallocate TabUpl

        ------- Brisi gi site stavki fakturi koi imaat nekoja uplata po rokot
        CREATE TABLE #Tmp1
        ( Kolku int    )

        Declare @AnIDFak int
        Declare @DatFak smalldatetime
        Declare @Rok integer
        Declare @IznFak as decimal
        Declare @Klk as integer
        Declare @ProcOdobrFin as decimal(6,2)

        Declare TabFak Cursor Fast_Forward For    Select  AnID_Fak, Datum_Fak, Rok, Iznos_Fak, ProcOdobr From #TmpFin ORDER BY AnID_Fak
        Open TabFak
        Fetch Next From TabFak Into @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        While @@Fetch_Status = 0
        Begin
            DELETE FROM #Tmp1
            SET @SSQL = 'SELECT Count(*) FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFak as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFak  as varchar(10))+ ')
                WHERE A.Pobaruva > 0 AND A.Datum_Dok >''' + cast(@DatFak +@DenoviOdobMal as varchar(35)) + '''
                AND Z.Iznos >' + Cast(@IznFak * @ProcOdobrFin /100 + @TolerRazlUpl as varchar(15))
            INSERT INTO #Tmp1 EXEC (@SSQL)

            SELECT @Klk = Kolku FROM #Tmp1

            IF @Klk IS NOT NULL AND @Klk > 0
                UPDATE #TmpFin SET AnID_Upl= -1 WHERE AnID_Fak=@AnIDFak

            Fetch Next From TabFak Into  @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        End
        Close TabFak
        Deallocate TabFak


        Declare TabFak Cursor Fast_Forward For    Select  AnID_Fak, Datum_Fak, Rok, Iznos_Fak, ProcOdobr From #TmpFin
                        WHERE ProcOdobr=@DodRabat+@ProcOdob ORDER BY AnID_Fak
        Open TabFak
        Fetch Next From TabFak Into @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        While @@Fetch_Status = 0
        Begin
            DELETE FROM #Tmp1
            SET @SSQL = 'SELECT Count(*) FROM AnFinDok A
                INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFak as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFak  as varchar(10))+ ')
                WHERE A.Pobaruva > 0 AND A.Datum_Dok >''' + cast(@DatFak + @Rok + @TolerDenaDocni as varchar(35)) + '''
                AND Z.Iznos >' + Cast(@IznFak * @ProcOdobrFin /100 + @TolerRazlUpl as varchar(15))
            INSERT INTO #Tmp1 EXEC (@SSQL)

            SELECT @Klk = Kolku FROM #Tmp1

            IF @Klk IS NOT NULL AND @Klk > 0
                UPDATE #TmpFin SET ProcOdobr=@ProcOdob WHERE AnID_Fak=@AnIDFak

            Fetch Next From TabFak Into  @AnIDFak, @DatFak, @Rok, @IznFak, @ProcOdobrFin
        End
        Close TabFak
        Deallocate TabFak

        DELETE FROM #TmpFin WHERE AnID_Upl = -1
    End
    ELSE -- ne funkcionira ako ne e po Uplati
    Begin
        SET @SSQL = 'SELECT F.AnID, F.Sifra_OE, F.Sifra_Dok, F.Broj_Dok, F.Datum_Dok, F.Rok, F.Sifra_kup, F.Dolzi
            FROM AnFinDok F
            INNER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
            WHERE F.Dolzi > 0 AND F.Datum_Dok >=''' + cast(@PocDatFak as varchar(35)) + ''' AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
            AND K.Spec_Rabat IS NOT NULL  AND K.Spec_Rabat > 0 '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Sifra_Kup = ' + @Sifra_Kup
        IF @Kto IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Kto = ' + @Kto
        INSERT INTO #TmpFin (AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak) EXEC (@SSQL)
    End
    ---------

    CREATE TABLE #TmpFak
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     POsn        decimal(6,2),
     Osn        decimal(18,6),
     Spec_Forma_Pec varchar(10)
    )

    INSERT INTO #TmpFak (Sifra_Oe, Sifra_Dok, Broj_Dok, POsn, Osn, Spec_Forma_Pec)
    SELECT S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, 'D')), D.Spec_Forma_Pec
    FROM Stavr S
    INNER JOIN #TmpFin F ON S.Sifra_OE=F.Sifra_OEF AND S.Sifra_Dok=F.Sifra_DokF AND S.Broj_Dok=F.Broj_DokF
    INNER JOIN Dokr D ON S.Sifra_OE=D.Sifra_OE AND S.Sifra_Dok=D.Sifra_Dok AND S.Broj_Dok=D.Broj_Dok
    GROUP BY S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, D.Spec_Forma_Pec

    UPDATE #TmpFin
    SET POsn1=F.POsn, Osn1=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn>=15

    UPDATE #TmpFin
    SET POsn2=F.POsn, Osn2=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn<15

    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N' ---dod.13.04.06

    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM DokrZb F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'    --dod.15.09.06

    DELETE FROM #TmpFin WHERE ObrabDDV='X'                        ---dod.13.04.06

    UPDATE #TmpFin
    SET POsn1=S.Stapka1, POsn2=S.Stapka2, Osn1=Round(F.Danok1 + F.Danok1/(S.Stapka1/100),2),
        Osn2=Round(F.Danok2 + F.Danok2/(S.Stapka2/100),2), ObrabDDV='D'
    FROM AnFinDok F, DDVStapki S
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND
    #TmpFin.ObrabDDV IS NULL AND F.Datum_Dok >= S.Datum_Od And F.Datum_Dok <= S.Datum_Do AND (F.Danok1 > 0 OR F.Danok2 >0)

    UPDATE #TmpFin
    SET POsn2=5, Osn2=Iznos_Fak
    WHERE ObrabDDV IS NULL

    SELECT T.*, K.Spec_Rabat
    FROM #TmpFin T
    INNER JOIN Komint K ON T.Sifra_Kup=K.Sifra_Kup
    ORDER BY K.Sifra_Reg, T.Sifra_Kup, T.AnID_Fak        --dodaj vo order na sredina, sifra_pat ako treba






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_genodobrenija_rabatodkomint]'))
drop procedure [dbo].[sp_genodobrenija_rabatodkomint]

Go

CREATE               PROCEDURE sp_GenOdobrenija_RabatOdKomint
    @ProcOdob    decimal(6,2),
    @PocDatFak    smalldatetime,
    @Sifra_Nal_Upl    smallint,
    @Dat_Upl_Od    smalldatetime,
    @Dat_Upl_Do    smalldatetime,
    @Sifra_Kup    char(6) = NULL,
    @Kto        char(10),
    @TolerRazlUpl    decimal(10,2),
    @GrpOdobKup    char(1)='D',
    @KoiCeniKup    varchar(30) = NULL,
    @DaliIAneks1    char(1)='N',
    @TolerDenaDocni smallint = NULL,
    @PoUplati    char(1) = 'D',        -- D - po Uplati,     F - po Fakturi i Uplati    N - Samo po napraveni Fakturi (ne mora da se plateni)
    @RabatOdKomint char(1) = 'D',
--    @PoFri_i_Upl    char(1) = 'U',
    @Koi_Oe_Fri    varchar(300) = Null,
    @KoiDokStornoNeOdobr varchar(100) = Null -- '3,11' - Fiksno za Swiss Lion          -- Koi dokumenti se koristat za storno fakturi za neisporacana ili vratena roba za da ne vleguvaat vo odobrenijata
AS
    IF @TolerDenaDocni IS NULL SET @TolerDenaDocni = 0
    Declare @SSQL varchar(8000)
    Declare @SSQLUsl varchar(8000)
    Set @SSQLUsl = ' '
    CREATE TABLE #TmpFin
    (
     AnID_Upl    int,
     AnID_Fak    int,
     Sifra_OEF    smallint,
     Sifra_DokF    smallint,
     Broj_DokF    int,
     Datum_Upl    smalldatetime,
     Datum_Fak    smalldatetime,
     Rok        smallint,
     Sifra_Kup     char(6),
     Iznos_Fak    decimal(18,4),
     Izn_Plat    decimal(18,4),
     POsn1        decimal(6,2),
     POsn2        decimal(6,2),
     Osn1        decimal(18,6),
     Osn2        decimal(18,6),    --ovde dodaj pole sifra_pat ako treba
     ObrabDDV    char(1),
     Spec_Rabat    decimal(18,6)
    )
    IF @PoUplati In ('D', 'F')
    Begin
        -- Uslovi po komintenti
        --IF @Sifra_Oe IS NOT NULL
        --    SET @SSQLUsl = @SSQLUsl + ' AND Sifra_Oe=' + Cast(@Sifra_Oe as varchar(6)) + ' '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND Sifra_Kup=' + @Sifra_Kup
        IF @Sifra_Nal_Upl IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND Sifra_Nal=' + cast(@Sifra_Nal_Upl as varchar(6))
        IF @DaliIAneks1='D' OR @KoiCeniKup IS NOT NULL OR @RabatOdKomint = 'D'
        Begin
            SET @SSQLUsl = @SSQLUsl + ' AND Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE 1=1 '
            IF @DaliIAneks1='D'
                SET @SSQLUsl = @SSQLUsl + ' AND Aneks1 IS Not NULL AND Aneks1<>'''' '
            IF  @KoiCeniKup IS NOT NULL
                SET @SSQLUsl = @SSQLUsl + ' AND KojaCena IN (' + @KoiCeniKup + ') '
            IF @RabatOdKomint='D'
                SET @SSQLUsl = @SSQLUsl + ' AND Spec_Rabat > 0  '
            SET @SSQLUsl = @SSQLUsl + ') '
        End
        If @PoUplati = 'F'
        Begin
            -- Site fakturi vo periodot
            CREATE TABLE #TmpFri
            (
             AnID_Fra    int,
             Datum_Fra    smalldatetime,
             Rok        smallint
            )
            SET @SSQL = 'SELECT AnID, Datum_Dok, Rok
                    FROM AnFinDok
                    WHERE Kto=''' + @Kto  +''' AND Datum_Dok >=''' + Cast(@Dat_Upl_Od as varchar(35)) + ''' AND Datum_Dok <=''' + Cast(@Dat_Upl_Do as varchar(35)) + ''' AND Dolzi>0
                    AND AnID NOT IN (SELECT AnID_Fak FROM StaOdobr) '
            If @Koi_Oe_Fri Is Not Null
                Set @SSQL = @SSQL + ' And Sifra_Oe In (' + @Koi_Oe_Fri + ') '
            INSERT INTO #TmpFri EXEC (@SSQL+@SSQLUsl)        -- po datuna na faktura posto gledame po fakturi
        End
        Else If @PoUplati = 'D'
        Begin
            -- Site uplati vo periodot
            CREATE TABLE #TmpUpl
            (
             AnID_Upl    int,
             Datum_Upl    smalldatetime
            )
            SET @SSQL = 'SELECT AnID, Datum_Dok Datum_Upl
                    FROM AnFinDok
                    WHERE Kto=''' + @Kto  +''' AND Datum_Dok >=''' + Cast(@Dat_Upl_Od as varchar(35)) + ''' AND Datum_Dok <=''' + Cast(@Dat_Upl_Do as varchar(35)) + ''' AND Pobaruva>0 '
            INSERT INTO #TmpUpl EXEC (@SSQL+@SSQLUsl)
        End
        -- Da gi najdeme dokumentite za koi treba da dadene rabat
        If @PoUplati = 'F' -- po Fakturi i po uplati
        Begin
            Declare @AnIDFra int
            Declare @DatFra smalldatetime
            Declare @RokFra as smallint
            Declare TabFri Cursor Fast_Forward For Select  AnID_Fra, Datum_Fra, Rok From #TmpFri
            Open TabFri
            Fetch Next From TabFri Into @AnIDFra, @DatFra, @RokFra
            While @@Fetch_Status = 0
            Begin
                SET @SSQL = 'SELECT Max(A.AnID), ' + cast(@AnIDFra as varchar(10))+ ',  '
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' Kup.Spec_Rabat '
                Else
                    Set @SSQL = @SSQL + ' ' + Cast(@ProcOdob as varchar(10)) + ' '
                Set @SSQL = @SSQL + ' FROM AnFinDok A
                            INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFra as varchar(10))+ ')
                            INNER JOIN AnFinDok F On F.AnID = Z.AnID2
                            INNER JOIN Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
                            WHERE A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                            AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                            AND F.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin) '   --And A.Pobaruva > 0
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' AND F.Dolzi * (1-Kup.Spec_Rabat/100) - F.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Else
                    Set @SSQL = @SSQL + ' AND F.Dolzi * (1-'+ cast(@ProcOdob as varchar(10)) + '/100) - F.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Set @SSQL = @SSQL + ' AND A.Datum_Dok <= ''' + cast((@DatFra + @RokFra + @TolerDenaDocni) as varchar(35)) + ''' '   --      '+ A.Rok' + '+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + ''' '
                INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Spec_Rabat) EXEC (@SSQL+' Group By Kup.Spec_Rabat')
--select * from #tmpfin

                SET @SSQL = 'SELECT Max(A.AnID), ' + cast(@AnIDFra as varchar(10))+ ',  '
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' Kup.Spec_Rabat '
                Else
                    Set @SSQL = @SSQL + ' ' + Cast(@ProcOdob as varchar(10)) + ' '
                Set @SSQL = @SSQL + ' FROM AnFinDok A
                            INNER JOIN AnZatv Z ON (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFra  as varchar(10))+ ')
                            INNER JOIN AnFinDok F On F.AnID = Z.AnID1
                            INNER JOIN Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
                            WHERE A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                            AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                            AND F.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin) '   --A.Pobaruva > 0
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' AND F.Dolzi * (1-Kup.Spec_Rabat/100) - F.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Else
                    Set @SSQL = @SSQL + ' AND F.Dolzi * (1-'+ cast(@ProcOdob as varchar(10)) + '/100) - F.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Set @SSQL = @SSQL + ' AND A.Datum_Dok <= ''' + cast((@DatFra + @RokFra + @TolerDenaDocni) as varchar(35)) + ''' '   --      '+ A.Rok' + '+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + ''' '
                INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Spec_Rabat) EXEC (@SSQL+' Group By Kup.Spec_Rabat')
--select * from #tmpfin

                Update #TmpFin
                Set Sifra_OEF=F.Sifra_OE, Sifra_DokF=F.Sifra_Dok, Broj_DokF=F.Broj_Dok, Datum_Fak=F.Datum_Dok,
                    Rok=F.Rok, Sifra_kup=F.Sifra_Kup, Iznos_Fak=F.Dolzi, Izn_Plat=F.Plateno_Dolzi
                From AnFinDok F
                Where AnID_Fak=F.AnID
                And F.AnID=@AnIDFra
                Fetch Next From TabFri Into  @AnIDFra, @DatFra, @RokFra
            End
            Close TabFri
            Deallocate TabFri
--select * from #tmpfin
        End
        Else If @PoUplati = 'D' -- po Uplati
        Begin
            Declare @AnIDUpl int
            Declare @DatUpl smalldatetime
            Declare TabUpl Cursor Fast_Forward For    Select  AnID_Upl, Datum_Upl From #TmpUpl
            Open TabUpl
            Fetch Next From TabUpl Into @AnIDUpl, @DatUpl
            While @@Fetch_Status = 0
            Begin
                SET @SSQL = 'SELECT ' + cast(@AnIDUpl as varchar(10))+ ', A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Rok, A.Sifra_Kup, A.Dolzi, A.Plateno_Dolzi, '
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' Kup.Spec_Rabat '
                Else
                    Set @SSQL = @SSQL + ' ' + Cast(@ProcOdob as varchar(10)) + ' '
                Set @SSQL = @SSQL + ' FROM AnFinDok A
                            INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDUpl as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDUpl  as varchar(10))+ ')
                            INNER JOIN Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
                            WHERE A.Dolzi > 0 AND A.Datum_Dok>=''' + cast(@PocDatFak as varchar(35)) + '''
                            AND A.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                            AND A.AnID NOT IN (SELECT AnID_Fak FROM #TmpFin) '
                IF @RabatOdKomint='D'
                    Set @SSQL = @SSQL + ' AND A.Dolzi * (1-Kup.Spec_Rabat/100) - A.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Else
                    Set @SSQL = @SSQL + ' AND A.Dolzi * (1-'+ cast(@ProcOdob as varchar(10)) + '/100) - A.Plateno_Dolzi <= ' + cast(@TolerRazlUpl as varchar(15)) + ' '
                Set @SSQL = @SSQL + ' AND A.Datum_Dok + A.Rok' + '+'+cast(@TolerDenaDocni as varchar(5)) + '>=''' + cast(@DatUpl as varchar(35)) + ''' '
                INSERT INTO #TmpFin (AnID_Upl, AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Izn_Plat, Spec_Rabat) EXEC (@SSQL)
                Fetch Next From TabUpl Into  @AnIDUpl, @DatUpl
            End
            Close TabUpl
            Deallocate TabUpl
        End
        ------- Brisi gi site stavki fakturi koi imaat nekoja uplata po rokot
        CREATE TABLE #Tmp1
        (Kolku int)
        Declare @AnIDFak int
        Declare @DatFak smalldatetime
        Declare @Rok integer
        Declare @IznFak as decimal
        Declare @Klk as integer
        Declare @Spec_Rabat as decimal
        Declare TabFak Cursor Fast_Forward For    Select  AnID_Fak, Datum_Fak, Rok, Iznos_Fak, Spec_Rabat From #TmpFin ORDER BY AnID_Fak
        Open TabFak
        Fetch Next From TabFak Into @AnIDFak, @DatFak, @Rok, @IznFak, @Spec_Rabat   -- vo @Spec_Rabat sega e procentot na odobrenie i ako se raboti so rabat od komintent ili so fiksen rabat (@Proc_Odobr)
        While @@Fetch_Status = 0
        Begin
            DELETE FROM #Tmp1
            SET @SSQL = 'SELECT Count(*)
                    FROM AnFinDok A
                    INNER JOIN AnZatv Z ON (A.AnID=Z.AnID1 AND Z.AnID2=' + cast(@AnIDFak as varchar(10))+ ') OR (A.AnID=Z.AnID2 AND Z.AnID1=' + cast(@AnIDFak  as varchar(10))+ ')
                    INNER JOIN Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
                    WHERE A.Pobaruva > 0 AND A.Datum_Dok >''' + cast(@DatFak+@Rok + @TolerDenaDocni as varchar(35)) + '''
                    AND Z.Iznos >' + Cast(@IznFak * @Spec_Rabat /100 +@TolerRazlUpl as varchar(15))
            INSERT INTO #Tmp1 EXEC (@SSQL)
            SELECT @Klk = Kolku FROM #Tmp1
            IF @Klk IS NOT NULL AND @Klk > 0
                UPDATE #TmpFin SET AnID_Upl= -1 WHERE AnID_Fak=@AnIDFak
            Fetch Next From TabFak Into  @AnIDFak, @DatFak, @Rok, @IznFak, @Spec_Rabat
        End
        Close TabFak
        Deallocate TabFak
        DELETE FROM #TmpFin WHERE AnID_Upl = -1
    End
    ELSE -- If @PoUplati = N t.e. Not In ('D', 'F')
    Begin
        SET @SSQL = 'SELECT F.AnID, F.Sifra_OE, F.Sifra_Dok, F.Broj_Dok, F.Datum_Dok, F.Rok, F.Sifra_kup, F.Dolzi, '
        IF @RabatOdKomint='D'
            Set @SSQL = @SSQL + ' K.Spec_Rabat '
        Else
            Set @SSQL = @SSQL + ' ' + Cast(@ProcOdob as varchar(10)) + ' '
        Set @SSQL = @SSQL + ' FROM AnFinDok F
                INNER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
                WHERE F.Dolzi > 0 AND F.Datum_Dok >=''' + cast(@PocDatFak as varchar(35)) + ''' AND F.AnID NOT IN (SELECT AnID_Fak FROM StaOdobr)
                AND K.Spec_Rabat IS NOT NULL  AND K.Spec_Rabat > 0 '
        IF @Sifra_Kup IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Sifra_Kup = ' + @Sifra_Kup
        IF @Kto IS NOT NULL
            SET @SSQL = @SSQL + ' AND F.Kto = ' + @Kto
        INSERT INTO #TmpFin (AnID_Fak, Sifra_OEF, Sifra_DokF, Broj_DokF, Datum_Fak, Rok, Sifra_kup, Iznos_Fak, Spec_Rabat) EXEC (@SSQL)
    End

    --------- DO OVDE GI SELEKTIRAVME SITE DOKUMENTI ZA KOI TREBA DA SE DADAT ODOBRENIJA
    CREATE TABLE #TmpFak
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     POsn        decimal(6,2),
     Osn        decimal(18,6),
     Spec_Forma_Pec varchar(10)
    )
    -- go delime prometot po fakturi po osnovici
    INSERT INTO #TmpFak (Sifra_Oe, Sifra_Dok, Broj_Dok, POsn, Osn, Spec_Forma_Pec)
    SELECT S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, SUM(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, 'D')), D.Spec_Forma_Pec
    FROM Stavr S
    INNER JOIN #TmpFin F ON S.Sifra_OE=F.Sifra_OEF AND S.Sifra_Dok=F.Sifra_DokF AND S.Broj_Dok=F.Broj_DokF
    INNER JOIN Dokr D ON S.Sifra_OE=D.Sifra_OE AND S.Sifra_Dok=D.Sifra_Dok AND S.Broj_Dok=D.Broj_Dok
    GROUP BY S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.POsn, D.Spec_Forma_Pec

    UPDATE #TmpFin
    SET POsn1=F.POsn, Osn1=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn>=15
    UPDATE #TmpFin
    SET POsn2=F.POsn, Osn2=round(F.Osn,2), ObrabDDV='D'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND F.Posn<15

    -- Gi naogame i  gi brissime dokumentite kade Spec_Forma_Pec = 'N'
    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM #TmpFak F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'    ---dod.13.04.06

    UPDATE #TmpFin
    SET ObrabDDV='X'
    FROM DokrZb F
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND Spec_Forma_Pec='N'    --dod.15.09.06

    DELETE FROM #TmpFin WHERE ObrabDDV='X'                        ---dod.13.04.06
    UPDATE #TmpFin
    SET POsn1=S.Stapka1, POsn2=S.Stapka2, Osn1=Round(F.Danok1 + F.Danok1/(S.Stapka1/100),2),
        Osn2=Round(F.Danok2 + F.Danok2/(S.Stapka2/100),2), ObrabDDV='D'
    FROM AnFinDok F, DDVStapki S
    WHERE #TmpFin.Sifra_OEF=F.Sifra_OE AND #TmpFin.Sifra_DokF=F.Sifra_Dok AND #TmpFin.Broj_DokF=F.Broj_Dok AND
        #TmpFin.ObrabDDV IS NULL AND F.Datum_Dok >= S.Datum_Od And F.Datum_Dok <= S.Datum_Do AND (F.Danok1 > 0 OR F.Danok2 >0)

    UPDATE #TmpFin
    SET POsn2=5, Osn2=Iznos_Fak
    WHERE ObrabDDV IS NULL

    If @PoUplati = 'F'
    Begin
        -- Da go namalime iznosot na fakturata za plateniot del so odobrenija (Storno dokumenti)
        If @KoiDokStornoNeOdobr Is Not Null
        Begin
            Create Table #TmpOdob
            (
             AnID1        int,
             AnID2        int,
             Iznos        decimal(18,4)
            )

            Set @SSQL = ' Select AnID1, AnID2, Abs(Iznos)
                    From AnFinDok U
                    Inner Join AnZatv Z On Z.AnID1=U.AnID
                    Inner Join AnFinDok F On F.AnID=Z.AnID2
                    Where F.AnID In (Select AnID_Fak From #TmpFin)
                    And U.Dolzi < 0
                    And U.Sifra_Dok In (' + @KoiDokStornoNeOdobr + ') '
            Insert Into #TmpOdob Exec(@SSQL)

            Set @SSQL = ' Select AnID1, AnID2, Abs(Iznos)
                    From AnFinDok U
                    Inner Join AnZatv Z On Z.AnID2=U.AnID
                    Inner Join AnFinDok F On F.AnID=Z.AnID1
                    Where F.AnID In (Select AnID_Fak From #TmpFin)
                    And U.Dolzi < 0
                    And U.Sifra_Dok In (' + @KoiDokStornoNeOdobr + ') '
            Insert Into #TmpOdob Exec(@SSQL)

            Declare @AnID1 as int
            Declare @AnID2 as int
            Declare @IznosOdobr as decimal(18,4)

            Declare Odobr Cursor
            Fast_Forward For Select AnID1, AnID2, Iznos From #TmpOdob
            Open Odobr
            Fetch Next From Odobr Into @AnID1, @AnID2, @IznosOdobr
            While @@Fetch_Status = 0
            Begin
                Update #TmpFin
                Set --Izn_Plat = Izn_Plat - @IznosOdobr, Iznos_Fak = Iznos_Fak - @IznosOdobr,   -- @IznosOdobr e sekogass < 0
                    Osn1 = (Case When Osn1 Is Null Then Null
                                 When Osn1 Is Not Null And Osn2 Is Null Then Osn1 - @IznosOdobr
                                 When Osn1 Is Not Null And Osn2 Is Not Null Then Osn1 - (Osn1 * @IznosOdobr / (Osn1 + Osn2)) End),
                    Osn2 = (Case When Osn2 Is Null Then Null
                                 When Osn2 Is Not Null And Osn1 Is Null Then Osn2 - @IznosOdobr
                                 When Osn2 Is Not Null And Osn1 Is Not Null Then Osn2 - (Osn2 * @IznosOdobr / (Osn1 + Osn2)) End)
                Where AnID_Fak In (@AnID1, @AnID2)

                Fetch Next From Odobr Into @AnID1, @AnID2, @IznosOdobr
            End
            Close Odobr
            Deallocate Odobr
        End
        ----------------------------------------------------------------------------------------------------------------

        Create Table #DupliDok
        (
         AnID_Fak    int,
         KolkuPati    smallint
        )
        Insert Into #DupliDok Select AnID_Fak, Count(*) From #TmpFin Group By AnID_Fak Having Count(*) > 1
        Create Table #DupliDok2
        (
         AnID_Fak    int,
         AnId_Upl    int
        )
        Insert Into #DupliDok2 Select AnID_Fak, AnId_Upl From #TmpFin Where AnID_Fak In (Select AnID_Fak From #DupliDok)
        Create Table #DokZaBris
        (
         AnID_Fak    int,
         AnId_Upl    int
        )
        Insert Into #DokZaBris Select AnID_Fak, Min(AnId_Upl) From #DupliDok2 Group By AnID_Fak
        Delete From #TmpFin
        Where Cast(AnID_Fak as char(10)) + Cast(AnID_Upl as char(10)) In (Select Cast(AnID_Fak as char(10)) + Cast(AnID_Upl as char(10)) From #DokZaBris)
    End

    SELECT T.AnID_Upl, T.AnID_Fak, T.Sifra_OEF, T.Sifra_DokF, T.Broj_DokF, T.Datum_Upl, T.Datum_Fak, T.Rok, T.Sifra_Kup,
         T.Iznos_Fak, T.Izn_Plat, T.POsn1, T.POsn2, T.Osn1, T.Osn2, T.ObrabDDV, T.Spec_Rabat
    FROM #TmpFin T
    INNER JOIN Komint K ON T.Sifra_Kup=K.Sifra_Kup
    ORDER BY K.Sifra_Reg, T.Sifra_Kup, T.AnID_Fak        --dodaj vo order na sredina, sifra_pat ako treba


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_grupnadok]'))
drop procedure [dbo].[sp_grupnadok]

Go
CREATE     PROCEDURE sp_GrupNaDok
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Broj_DokOd    int,
    @Broj_DokDo    int,
    @Komint    char(6),
    @Sifra_Dok1    smallint,
    @Sifra_Dok2    smallint,
    @Sifra_Obj    smallint
 AS
    Declare @SSQLPoc as Varchar(2000)
    Declare @SSQLUsl as Varchar(2000)
    Declare @SSQL as Varchar(2000)
    Declare @Art_Od    varchar(7)
    Declare @Art_Do    varchar(7)
    Declare @Shift        int
    Declare @LenShift    int
    SELECT @Shift = Ladno_Shift FROM Konfig
    if @Shift IS NULL
        Begin
            SET @Art_Od = '001000'
            SET @Art_Do = '002000'
        End
    Else
        Begin
            SET @LenShift = Len(cast(@Shift as varchar(7)))
                IF @LenShift > 6
                    Begin
                    SET @Art_Od    = cast(@Shift as varchar(7))
                    SET @Art_Do    = cast(@Shift*2 as varchar(7))
                    End
                Else
                    Begin
                    SET @Art_Od    = Replicate('0', 6-@LenShift) + cast(@Shift as varchar(6))
                    SET @Art_Do    = Replicate('0', 6-@LenShift) + cast(@Shift*2 as varchar(6))
                    End
        End
CREATE TABLE #TmpStav
(    Sifra_art    varchar(20),
    imeart        char(40),
    Broj_Dok    int,
    Sifra_Kup    char(6),
    ImeKup        varchar(40),
    Sifra_Oe    smallint,
    Datum_Dok    smalldatetime,
    Kolic        decimal(18,6),
    Vrateno        decimal(18,6)
)
    Set @SSQLPoc = ', K.imeart, S.Broj_Dok, D.Sifra_Kup, KUP.ImeKup, D.Sifra_Oe, S.Datum_Dok, '
    SET @SSQLUsl = ' From Stavr S
            Inner Join Dokr D On S.DokrID=D.DokrID
            Inner Join Katart K On S.Sifra_art = K.Sifra_art
            Inner Join Komint KUP On D.Sifra_Kup = KUP.Sifra_Kup
            Where 1=1 '
    If @Broj_DokOd Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND S.Broj_Dok >=''' + Cast(@Broj_DokOd As Varchar(10)) + ''' '
       If @Broj_DokDo Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND S.Broj_Dok <=''' + Cast(@Broj_DokDo As Varchar(10)) + ''' '
    If @Datum_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
       If @Datum_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Komint Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Kup = ' + @Komint + ' '
    If @Sifra_Obj Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_Obj=''' + Cast(@Sifra_Obj As Varchar(10)) + ''' '
    SET @SSQL = 'Select K.Sifra_art' + @SSQlPoc + ' Kolic, 0 as Vrateno ' + @SSQLUsl +
    ' AND D.Sifra_Dok=' + (Cast(@Sifra_Dok1 As Varchar(10))) + ' '
    INSERT INTO #TmpStav Exec(@SSQL)
    SET @SSQL = 'Select '
    IF @LenShift > 6
        SET @SSQL = @SSQL + ' substring(K.Sifra_art, 2,6) AS Sifra_Art'
    Else
        SET @SSQL = @SSQL + '''000'' + substring(K.Sifra_art, 4,3) AS Sifra_Art'
    SET @SSQL = @SSQL + @SSQlPoc + ' 0, Abs(Kolic) as Vrateno ' + @SSQLUsl +
    ' AND D.Sifra_Dok=' + (Cast(@Sifra_Dok2 As Varchar(10))) + ' '
    INSERT INTO #TmpStav Exec(@SSQL)
    UPDATE #TmpStav SET ImeArt = KatArt.ImeArt
    FROM KatArt WHERE #TmpStav.Sifra_Art = KatArt.Sifra_Art
    SELECT Sifra_Kup, ImeKup, Datum_Dok, Sifra_Oe, Broj_Dok, Sifra_art, imeart,
    SUM(Kolic) As kolic, SUM(Vrateno) as Vrateno From #TmpStav
    GROUP BY Sifra_Kup, ImeKup, Datum_Dok, Sifra_Oe, Broj_Dok, Sifra_art, imeart
    ORDER BY Sifra_Kup, ImeKup, Datum_Dok, Sifra_Oe, Broj_Dok, Sifra_art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ima_li_vozilo]'))
drop procedure [dbo].[sp_ima_li_vozilo]

Go


create   PROCEDURE sp_Ima_Li_Vozilo
    @Sifra_Art    varchar(20),
    @KolkuGiIma    integer OUTPUT

AS

    select @KolkuGiIma =
        count (*)
        from Vozila
        where sifra_art = @Sifra_art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imablokirani]'))
drop procedure [dbo].[sp_imablokirani]

Go

CREATE     PROCEDURE sp_ImaBlokirani
    @KoiOE        varchar(200),
    @KoiTipDok    varchar(100),
    @Datum_Do    smalldatetime,
    @Komint_Od    char(6) = NULL,
    @Komint_Do    char(6) = NULL
AS
    Declare @SSQL        varchar(4000)
    SET @SSQL = 'SELECT Count(S.DokID) AS BrDok FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID
    WHERE S.Sifra_OE in (' + @KoiOE + ') AND S.Sifra_Dok in (' + @KoiTipDok +
    ') AND S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) +
    ''' AND D.Blokiran = ''T'' '
    IF @Komint_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup >= ' + @Komint_Od
    IF @Komint_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup <= ' + @Komint_Do
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imacenzakom]'))
drop procedure [dbo].[sp_imacenzakom]

Go

create  PROCEDURE sp_ImaCenZaKom
    @Sifra_kup    char(6),
    @KolkuCeni    integer OUTPUT
AS
    select @KolkuCeni = count (*) from cenovnik where sifra_kup = @Sifra_kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imalimitpodiv]'))
drop procedure [dbo].[sp_imalimitpodiv]

Go
CREATE PROCEDURE sp_ImaLimitPoDiv
    @Sifra_Kup    char(6),
    @KlkRazlDiv    smallint =0 OUTPUT
AS
SELECT @KlkRazlDiv = COUNT(*) FROM KomLimitDiv WHERE Sifra_Kup=@Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imalirazl_proektpozic]'))
drop procedure [dbo].[sp_imalirazl_proektpozic]

Go

CREATE PROCEDURE sp_ImaLiRazl_ProektPozic
    @Broj_Proekt int,
    @PozID int,
    @ImePoz nvarchar (3000),
    @EdMeraPoz nvarchar (20),
    @OpisPoz nvarchar (100) = NULL,
    @DokCena decimal(18, 4) = NULL,
    @Uces decimal(6, 2) = NULL,
    @POsn decimal(6, 2) = NULL,
    @DanDokCena char (1) = NULL,
    @Sifra_Art varchar (20) = NULL,
    @Nivo1 char (4) = NULL,
    @Nivo2 char (4) = NULL,
    @Nivo3 char (4) = NULL,
    @Nivo4 char (4) = NULL,
    @Nivo5 char (4) = NULL,
    @Nivo6 char (4) = NULL,
    @Nivo7 char (4) = NULL,
    @ImaRazl char(1) = NULL OUTPUT

AS

    Declare @ImePoz_Bese nvarchar (3000)
    Declare @EdMeraPoz_Bese nvarchar (20)
    Declare @OpisPoz_Bese nvarchar (100)
    Declare @DokCena_Bese decimal(18, 4)
    Declare @Uces_Bese decimal(6, 2)
    Declare @POsn_Bese decimal(6, 2)
    Declare @DanDokCena_Bese char (1)
    Declare @Sifra_Art_Bese varchar (20)
    Declare @Nivo1_Bese char (4)
    Declare @Nivo2_Bese char (4)
    Declare @Nivo3_Bese char (4)
    Declare @Nivo4_Bese char (4)
    Declare @Nivo5_Bese char (4)
    Declare @Nivo6_Bese char (4)
    Declare @Nivo7_Bese char (4)

    select @ImePoz_Bese = ImePoz, @EdMeraPoz_Bese = EdMeraPoz, @OpisPoz_Bese = OpisPoz,
           @DOkCena_Bese = DokCena, @Uces_Bese = Uces, @POSn_Bese = POsn, @DanDokCena_Bese = DanDokCena,
           @Sifra_Art_Bese = Sifra_Art,
            @Nivo1_Bese = Nivo1, @Nivo2_Bese = Nivo2, @Nivo3_Bese = Nivo3, @Nivo4_Bese = Nivo4,
           @Nivo5_Bese = Nivo5, @Nivo6_Bese = Nivo6, @Nivo7_Bese = Nivo7
    From ProektPoz
    where Broj_Proekt = @Broj_Proekt and PozId = @PozId

    -- TBD Ignoriram null
    -- Smetam deka e ista stavka ako e se' isto, a gi IGNORIRAM RAZLIKI vo KOLICINA i SIFRA_ART
    if @ImePoz_Bese = @ImePoz and @EdMeraPoz_Bese = @EdMeraPoz and @OpisPoz_Bese = @OpisPoz
       and @DOkCena_Bese = @DokCena and @Uces_Bese = @Uces and @POSn_Bese = @POsn and @DanDokCena_Bese = @DanDokCena
        and @Nivo1_Bese = @Nivo1 and @Nivo2_Bese = @Nivo2 and @Nivo3_Bese = @Nivo3 and @Nivo4_Bese = @Nivo4
       and @Nivo5_Bese = @Nivo5 and @Nivo6_Bese = @Nivo6 and @Nivo7_Bese = @Nivo7
        set @ImaRazl = 'N'
    else
        set @ImaRazl = 'D'



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imalireal_proektpozic]'))
drop procedure [dbo].[sp_imalireal_proektpozic]

Go

CREATE PROCEDURE sp_ImaLiReal_ProektPozic
    @Broj_Proekt int,
    @PozID int,
    @KolkuReal int = NULL OUTPUT

AS

   select @KolkuReal =
    count(*)
    From StaPozic SP
    inner join Naracki N
        on SP.NarId = N.NarId
    inner join TipNarac TN
        on N.Sifra_Nar = TN.Sifra_Nar
    where TN.PodTipNar in ('S', 'G') and
        SP.Broj_Proekt = @Broj_Proekt and SP.PozId = @PozId





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_impgen_dajstavki]'))
drop procedure [dbo].[sp_impgen_dajstavki]

Go

create PROCEDURE sp_ImpGen_DajStavki
    @ImeTabela varchaR(100)

AS
    Declare @SSQL varchaR(300)

    set @SSQL = 'Select * from ' + @ImeTabela +
            ' order by sifra_oe, sifra_dok, broj_dok, rbr '

    Exec (@SSQL)

    --select S.*, D.Identif_Br, D.Rok, D.SIfrA_Kup
    --from Stavr S
    --inner join Dokr D
    --on S.DOkrId = D.DokrId
    --where S.sifrA_oe = 32




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_importart]'))
drop procedure [dbo].[sp_importart]

Go




CREATE    PROCEDURE [dbo].[sp_ImportArt]

        @MenadzerIme nvarchar(40),
        @MenadzerID nvarchar(10),
        @ReferentID nvarchar(40),
        @ReferentIme nvarchar(10),
        @GlavenDobavID nvarchar(40),
        @GlavenDobavIme nvarchar(10),
        @ArtIme nvarchar(60),
        @ArtID nvarchar(20),
        @Danok Decimal(18,4),
        @AsortIme nvarchar(40),
        @AsortID nvarchar(10),
        @TipArt nvarchar(40),
        @TipArtID nvarchar(10),
        @OblastIme nvarchar(40),
        @OblastID nvarchar(10),
        @PodOblastIme nvarchar(40),
        @PodOblastID nvarchar(10),
        @KlasaIme nvarchar(40),
        @KlasaID nvarchar(10),
        @GrupaIme nvarchar(40),
        @GrupaID nvarchar(10),
        @LayoutIme nvarchar(40),
        @LayOutID nvarchar(10),
        @MarkaIme nvarchar(40),
        @MarkaID nvarchar(10),
        @QuamaID nvarchar(10),
        @OblastUslugiIme nvarchar(40),
        @VrstaIme nvarchar(40),
        @VrstaID nvarchar(10),
        @BarKod nvarchar(20),
        @Prazna nvarchar(20),
        @Nabavna Decimal(18,4),
        @Prodazna Decimal(18,4),
        @DatumPoc smalldatetime,
        @DatumKr smalldatetime,
        @SifArtDobav nvarchar(20)
AS
BEGIN

    -- Menadzer
    If Not Exists (Select Sifra_Pat From Patnici Where Sifra_Pat = @MenadzerID)
        And @MenadzerID Is Not Null And @MenadzerIme Is Not Null
        Insert Into Patnici (Sifra_Pat, ImePat)
        Values (@MenadzerID, @MenadzerIme)

    -- Referent
    If Not Exists (Select Sifra_Pat From Patnici Where Sifra_Pat = @ReferentID)
        And @ReferentID Is Not Null And @ReferentIme Is Not Null
        Insert Into Patnici (Sifra_Pat, ImePat)
        Values (@ReferentID, @ReferentIme)

    -- Dobavuvac
    If Not Exists (Select Sifra_Kup From komint Where Sifra_Kup = dbo.fn_levonuli(@GlavenDobavID,6))
        And @GlavenDobavID Is Not Null And @GlavenDobavIme Is Not Null
        Insert Into Komint (Sifra_Kup, ImeKup)
        Values (dbo.fn_levonuli(@GlavenDobavID,6), @GlavenDobavIme)

    -- Asortiman
    If Not Exists (Select Sifra_Asort From Asortiman Where Sifra_Asort = @AsortID)
        And @AsortID Is Not Null And @AsortIme Is Not Null
        Insert Into Asortiman (Sifra_Asort, Ime_Asort)
        Values (@AsortID, @AsortIme)

    -- Oblast
    If Not Exists (Select Sifra_Oblast From Oblast Where Sifra_Oblast = @OblastID)
        And @OblastIme Is Not Null And @OblastID Is Not Null And @AsortID Is Not Null
        Insert Into Oblast (Sifra_Oblast, Ime_Oblast, Sifra_Asort)
        Values (@OblastID, @OblastIme, @AsortID)

    -- Podoblast
    If Not Exists (Select Sifra_PodOblast From PodOblast Where Sifra_PodOblast = @PodOblastID)
        And @PodOblastIme Is Not Null And @PodOblastID Is Not Null And @OblastID Is Not Null
        Insert Into PodOblast (Sifra_PodOblast, Ime_PodOblast, Sifra_Oblast)
        Values (@PodOblastID, @PodOblastIme, @OblastID)

    -- Grupa
    If Not Exists (Select Sifra_Gr From Grupi Where Sifra_Gr = dbo.fn_levonuli(@KlasaID,3))
        And @KlasaIme Is Not Null And @KlasaID Is Not Null And @PodOblastID Is Not Null
        Insert Into Grupi (Sifra_Gr, Ime_Gr, Sifra_PodOblast)
        Values (dbo.fn_levonuli(@KlasaID,3), @KlasaIme, @PodOblastID)

    -- Podgrupa
    If Not Exists (Select Sifra_Podg From PodGrupi Where Sifra_Podg = dbo.fn_levonuli(@GrupaId,6))
        And @GrupaIme Is Not Null And @GrupaId Is Not Null And @KlasaID Is Not Null
        Insert Into PodGrupi (Sifra_Podg, Ime_Podg, Sifra_Gr)
        Values (dbo.fn_levonuli(@GrupaId,6), @GrupaIme, dbo.fn_levonuli(@KlasaID,3))

    -- LayOut
    If Not Exists (Select Sifra_LayOutUnit From LayoutUnit Where Sifra_LayOutUnit = @LayoutID)
        And @LayOutID Is Not Null And @LayOutIme Is Not Null
        Insert Into LayoutUnit (Sifra_LayOutUnit, Ime_LayOutUnit)
        Values (@LayoutID, @LayoutIme)

    -- Brend
    If Not Exists (Select Sifra_Drg From DrgPodel Where Sifra_Drg = @MarkaID)
        And @MarkaID Is Not Null And @MarkaIme Is Not Null
        Insert Into DrgPodel (Sifra_Drg, Ime)
        Values (@MarkaID, @MarkaIme)

    -- TipArtZal (Vrsta)
    If Not Exists (Select Ime_TipArtZal From TipArtZal Where Ime_TipArtZal = @VrstaIme)
        And @VrstaIme Is Not Null
        Begin
            Declare @NovTipArtZal as int
            Select @NovTipArtZal = Max(Sifra_TipArtZal) from TipArtZal
            If @NovTipArtZal Is Null
                Set @NovTipArtZal = 0

            Insert Into TipArtZal (Sifra_TipArtZal, Ime_TipArtZal, ImaNabCena, ImaProdCena, SeVodiZalihaMag, SeVodiZalihaProd)
            Values (@NovTipArtZal+1, @VrstaIme, ' ',' ',' ',' ')
        End

    Declare @Sifra_TipArtZal as int
    Select @Sifra_TipArtZal=Sifra_TipArtZal From TipArtZal Where Ime_TipArtZal = @VrstaIme

    -- Tarifa
    Declare @Sifra_Tar as char(3)
    Select @Sifra_Tar = Sifra_Tar From Tarifi Where ProcOsn = @Danok

    -- Privatna Marka
    Declare @PrivLabel as char(1)
    If @QuamaID = 'X'
        Set @PrivLabel = 'D'
    Else
        Set @PrivLabel = 'N'

    -- Kategorija
    Declare @KategArt as char(1)
        Set @KategArt=Substring(@TipArtID,2,1)

    -- Katart
    Declare @Sifra_Art Varchar(20)
    Set @Sifra_Art=dbo.fn_levonuli(@ArtID,6)

    If Not Exists (Select Sifra_Art From Katart Where Sifra_Art = @Sifra_Art)
        And @ArtID Is Not Null And @ArtIme Is Not Null
    Begin
        Insert Into Katart (Sifra_Art, ImeArt, Sifra_Pat_Man, Sifra_Pat_Ref, Kto, Sifra_Tar, Sifra_TipArtZal, Sifra_Podg,
                            Sifra_LayOutUnit, Nom, Nabavna, Fakturna, Datum_Art_Poc, Datum_Art_Kr, Alt_Sifra,
                            Sifra_Drg, PrivLabel, KategArt, PodTipUsl,
                            SMatUsl, Iskluci, EdMera,
                            DodadenNa, Datum_Art_MozeNar_Poc, Datum_Art_MozeNar_Kr, Datum_Art_MozePriem_Poc, Datum_Art_MozePriem_Kr,
                            Sezonski, SeVodiNaZaliha, BlokadaPopust, IzvorNab)
        Values(@Sifra_Art, @ArtIme, @MenadzerID, @ReferentID, dbo.fn_levonuli(@GlavenDobavID,6), @Sifra_Tar, @Sifra_TipArtZal, dbo.fn_levonuli(@GrupaId,6),
                            @LayoutID, @BarKod, Round(@Nabavna*(1+@Danok/100),4), @Nabavna, @DatumPoc, @DatumKr, @SifArtDobav,
                            @MarkaID, @PrivLabel, @KategArt, '9',
                            'M', 'N', '.',
                            GetDate(), @DatumPoc, @DatumKr, @DatumPoc, @DatumKr,
                            'N', 'D', 'N', '1')
    End

    -- Soart
    If Exists (Select Sifra_Art From Soart Where Sifra_Art = @Sifra_Art And Sifra_Oe=1)
        Update Soart Set Cena = @Prodazna, DokCena=@Prodazna Where Sifra_Art=@Sifra_Art And Sifra_Oe=1
    Else
        Insert Into Soart (Sifra_Oe, Sifra_Art, Vlez, Izlez, Prof_Rez, Cena, DanCena, POsn, NabCena, DokCena, Uces, VRN_Vlez, VRN_Izlez, NNabCena, NMinCena, NMaxCena)
        Select 1, Sifra_Art, 0, 0, Null, @Prodazna, 'D', T.ProcOsn, Round(@Nabavna/(1+T.ProcOsn/100),4), @Prodazna, 0, Null, Null, Round(@Nabavna/(1+T.ProcOsn/100),4), Round(@Nabavna/(1+T.ProcOsn/100),4), Round(@Nabavna/(1+T.ProcOsn/100),4)
        From Katart K
        Inner Join Tarifi T On T.Sifra_Tar = K.Sifra_Tar
        Where K.Sifra_Art = @Sifra_Art And @Prodazna <> 0

    -- CenGrOrg
    --If Exists (Select Sifra_Art From CenGrOrg Where Sifra_Art = @Sifra_Art And Sif_GrOrg='RED1')
    --    Update CenGrOrg Set Cena = @Prodazna, CenaR=@Prodazna, Dozvoleno='D' Where Sifra_Art=@Sifra_Art And Sif_GrOrg='RED1'
    --Else
    --    Insert Into CenGrOrg (Sif_GrOrg, Sifra_art, Cena, Dozvoleno, Ispraten, CenaR)
    --    Values('RED1', @Sifra_Art, @Prodazna, 'D', ' ', @Prodazna)

    If Exists (Select Sifra_Art From SmCenArtProd Where Sifra_Art = @Sifra_Art And TipRedAkc = 'R')
        Update SmCenArtProd Set CenaProd=@Prodazna, Vazi_Od='2011-01-01', Vazi_Do='2050-12-31' Where Sifra_Art = @Sifra_Art And TipRedAkc = 'R'
    Else
        Insert Into SmCenArtProd(Sifra_Art, SmCenArtProdID, SmCenArtProd_Ime, Vazi_Od, Vazi_Do, TipRedAkc, CenaProd, SmCenArtProdAktiven)
        Values (@Sifra_Art, 1, ' ', '2011-01-01', '2050-12-31', 'R', @Prodazna, 'D')

END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_importdobav]'))
drop procedure [dbo].[sp_importdobav]

Go

create PROCEDURE [dbo].[sp_ImportDobav]
    @DobavID nvarchar(10),
    @DobavIme nvarchar(40),
    @MenadzerID nvarchar(10),
    @MenadzerIme nvarchar(40),
    @ReferentID nvarchar(10),
    @ReferentIme nvarchar(40),
    @Adresa nvarchar(40),
    @Posta nvarchar(10),
    @Mesto nvarchar(20),
    @Telefon nvarchar(20),
    @DatumPoc smalldatetime,
    @DatumKr smalldatetime
AS
BEGIN

    If Not Exists (Select Sifra_Pat From Patnici Where Sifra_Pat = @MenadzerID)
        And @MenadzerID Is Not Null And @MenadzerIme Is Not Null
        Insert Into Patnici (Sifra_Pat, ImePat)
        Values (@MenadzerID, @MenadzerIme)

    If Not Exists (Select Sifra_Pat From Patnici Where Sifra_Pat = @ReferentID)
        And @ReferentID Is Not Null And @ReferentIme Is Not Null
        Insert Into Patnici (Sifra_Pat, ImePat)
        Values (@ReferentID, @ReferentIme)

    If Not Exists (Select Sifra_Kup From Komint Where Sifra_Kup = dbo.fn_levonuli(@DobavID,6))
        And @DobavID Is Not Null And @DobavIme Is Not Null
        Insert Into Komint (Sifra_Kup, ImeKup, Sifra_Kom_Man, Sifra_Kom_Ref, Adresa,
                            Posta, SMesto, Telefon, Datum_Kom_Poc, Datum_Kom_Kr)
        Values (dbo.fn_levonuli(@DobavID,6), @DobavIme, @MenadzerID, @ReferentID, @Adresa,
                            @Posta, @Mesto, @Telefon, @DatumPoc, @DatumKr)

END


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_importpodelart]'))
drop procedure [dbo].[sp_importpodelart]

Go

CREATE PROCEDURE [dbo].[sp_ImportPodelArt]
    @SifAsort nvarchar(10),
    @ImeAsort nvarchar(50),
    @SifOblast nvarchar(10),
    @ImeOblast nvarchar(50),
    @SifPodOblast nvarchar(10),
    @ImePodOblast nvarchar(50),
    @SifGr nvarchar(10),
    @ImeGr nvarchar(50),
    @SifPodGr nvarchar(10),
    @ImePodGr nvarchar(50)

AS

BEGIN

    If Not Exists (Select Sifra_Asort From Asortiman Where Sifra_Asort = @SifAsort)
        And @ImeAsort Is Not Null And @SifAsort Is Not Null
        Insert Into Asortiman (Sifra_Asort, Ime_Asort)
        Values (@SifAsort, @ImeAsort)

    If Not Exists (Select Sifra_Oblast From Oblast Where Sifra_Oblast = @SifOblast)
        And @ImeOblast Is Not Null And @SifOblast Is Not Null And @SifAsort Is Not Null
        Insert Into Oblast (Sifra_Oblast, Ime_Oblast, Sifra_Asort)
        Values (@SifOblast, @ImeOblast, @SifAsort)

    If Not Exists (Select Sifra_PodOblast From PodOblast Where Sifra_PodOblast = @SifPodOblast)
        And @ImePodOblast Is Not Null And @SifPodOblast Is Not Null And @SifOblast Is Not Null
        Insert Into PodOblast (Sifra_PodOblast, Ime_PodOblast, Sifra_Oblast)
        Values (@SifPodOblast, @ImePodOblast, @SifOblast)

    If Not Exists (Select Sifra_Gr From Grupi Where Sifra_Gr = @SifGr)
        And @ImeGr Is Not Null And @SifGr Is Not Null And @SifPodOblast Is Not Null
        Insert Into Grupi (Sifra_Gr, Ime_Gr, Sifra_PodOblast)
        Values (@SifGr, @ImeGr, @SifPodOblast)

    If Not Exists (Select Sifra_Podg From PodGrupi Where Sifra_Podg = dbo.fn_levonuli(@SifPodgr,6))
        And @ImePodgr Is Not Null And @SifPodgr Is Not Null And @SifGr Is Not Null
        Insert Into PodGrupi (Sifra_Podg, Ime_Podg, Sifra_Gr)
        Values (dbo.fn_levonuli(@SifPodgr,6), @ImePodgr, @SifGr)

END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_input_lc]'))
drop procedure [dbo].[sp_input_lc]

Go
CREATE             PROCEDURE sp_Input_LC
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @TipDok_Vlez        varchar(100)='132,33',
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)='009000',
    @Sif_GrOrg        char(6)='9'
AS
    Declare @SSQL Varchar(2000)
    SET @SSQL='SELECT S.Sifra_OE, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok,
    dbo.fn_ULKod(S.Sifra_Art, A.Alt_sifra) AS Item_Code, S.Kolic
    FROM Stavr S
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    WHERE A.Iskluci <> ''D''  '
    IF @TipDok_Vlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_dok IN (' + @TipDok_Vlez +') '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art>=''' + @Sifra_Art_Od +''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art<=''' + @Sifra_Art_Do +''' '
    If @Sif_GrOrg IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg +''') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
  EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_inventor]'))
drop procedure [dbo].[sp_inventor]

Go

CREATE            PROCEDURE sp_Inventor
    @Datum  smalldatetime,
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)='009000',
    @Sif_GrOrg        char(6)='9'
AS
    Set Nocount On
    Declare @SSQL varchar(4000)
--test
    SET @SSQL = 'SELECT dbo.fn_ULKod(S.Sifra_Art, K.Alt_Sifra) Sifra_Art,
        Vlez=Sum(CASE
            WHEN S.VlIzl = ''V'' THEN S.Kolic
            ELSE  0
        END),
         Izlez=Sum(CASE
            WHEN S.VlIzl = ''I'' THEN S.Kolic
            ELSE  0
        END),
         PHYSICAL=Sum(CASE
            WHEN S.Sifra_Dok=990 THEN S.Kolic
            ELSE  0
        END)
    FROM Stavr S
    INNER JOIN KatArt K On S.Sifra_Art=K.Sifra_Art
    WHERE K.Iskluci <> ''D'' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art>=''' + @Sifra_Art_Od +''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art<=''' + @Sifra_Art_Do +''' '
     SET @SSQL=@SSQL+ 'And S.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    If @Sif_GrOrg IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg +''') '
    SET @SSQL=@SSQL+ 'AND S.Datum_Dok<=''' + Cast(@Datum As Varchar(35)) + '''
    Group By S.Sifra_Art, K.Alt_Sifra '
    CREATE TABLE #PrometArt
    ( Sifra_Art  varchar(20),
      Vlez Numeric(18,4),
      Izlez Numeric(18,4),
      PHYSICAL Decimal(15,4)
    )
    INSERT #PrometArt EXEC(@SSQL)
    SELECT 'MKMA' DB_CODE,
        Sifra_Art ITEM_CODE,
        Vlez - Izlez QUANTITY,
        PHYSICAL PHYSICAL,
        @Datum TRANS_DATE
    FROM #PrometArt
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ios_od_do]'))
drop procedure [dbo].[sp_ios_od_do]

Go

CREATE    PROCEDURE sp_IOS_Od_Do
    @Sifra_Za    Char(1) = '1',
    @Sifra_KupOd    Char(6),
    @Sifra_KupDo    Char(6),
       @Kto        varChar(100) = Null,
     @Sifra_OE    Smallint=Null,        -- OVA KORISTI KAKO PATNIK
    @Sifra_Grad    smallint = NULL,
    @Sifra_Reg    smallint = NULL,
    @IOSOdEdnaOE char(1) = 'N',
    @Sirok        char(1) = 'N',      --N za mob.uredi, D-za notebook
    @Kartica    char(1) = 'N',        --D-cela kartica
    @KoiOE        varchar(100)=NULL,    --04.04.08
    @PoKomintPat    char(1) = 'N'
AS
    Declare @SSQL Varchar(2000)
    CREATE TABLE #TmpKup
(    Sifra_Kup    char(6)
)
IF @PoKomintPat='D'
Begin
    SET @SSQL = 'SELECT DISTINCT P.Sifra_Kup FROM KomintPat P WHERE P.Sifra_Pat = ' + Cast(@Sifra_OE as varchar(5))
    IF @Sifra_Grad IS NOT NULL OR @Sifra_Reg IS NOT NULL
        SET @SSQL = @SSQL + ' INNER JOIN Komint K ON P.Sifra_Kup=K.Sifra_Kup '
    If @Sifra_KupOd Is NOT Null
        SET @SSQL = @SSQL + ' AND P.Sifra_Kup>=''' + @Sifra_KupOd + ''' '
    If @Sifra_KupDo Is NOT Null
        SET @SSQL = @SSQL + ' AND P.Sifra_Kup<=''' + @Sifra_KupDo + ''' '
    If @Sifra_Grad Is Not Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Grad ='+ cast(@Sifra_Grad as varchar(6))
    If @Sifra_Reg IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Reg ='+ cast(@Sifra_Reg as varchar(6))
    INSERT INTO #TmpKup EXEC (@SSQL)
End
Else
Begin
    SET @SSQL = 'SELECT Sifra_Kup FROM Komint WHERE 1=1 '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' AND (Sifra_pat = '+cast(@Sifra_OE as varchar(4))+' OR Sifra_Pat2 = '+cast(@Sifra_OE as varchar(4)) + ') '
    If @Sifra_KupOd Is NOT Null
        SET @SSQL = @SSQL + ' AND Sifra_Kup>=''' + @Sifra_KupOd + ''' '
    If @Sifra_KupDo Is NOT Null
        SET @SSQL = @SSQL + ' AND Sifra_Kup<=''' + @Sifra_KupDo + ''' '
    If @Sifra_Grad Is Not Null
        SET @SSQL = @SSQL + ' AND Sifra_Grad ='+ cast(@Sifra_Grad as varchar(6))
    If @Sifra_Reg IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Reg ='+ cast(@Sifra_Reg as varchar(6))
    --If (@IOSOdEdnaOE = 'D' AND @Sifra_OE Is Not Null) OR @Sifra_KupOd Is NOT Null OR @Sifra_KupDo Is NOT Null   OR @Sifra_Grad IS NOT NULL  OR @Sifra_Reg IS NOT NULL
    If @Sifra_OE Is Not Null OR @Sifra_KupOd Is NOT Null OR @Sifra_KupDo Is NOT Null   OR @Sifra_Grad IS NOT NULL  OR @Sifra_Reg IS NOT NULL
    Begin
        SET @SSQL = @SSQL + ' UNION SELECT DISTINCT Sifra_Kup FROM KObjekti WHERE 1=1 '
        If  @Sifra_OE Is Not Null  --AND @IOSOdEdnaOE = 'D'
            Set @SSQL = @SSQL + ' AND (Sifra_pat = '+cast(@Sifra_OE as varchar(4))+' OR Sifra_Pat2 = '+cast(@Sifra_OE as varchar(4)) + ') '
        If @Sifra_KupOd Is NOT Null
            SET @SSQL = @SSQL + ' AND Sifra_Kup>=''' + @Sifra_KupOd + ''' '
        If @Sifra_KupDo Is NOT Null
            SET @SSQL = @SSQL + ' AND Sifra_Kup<=''' + @Sifra_KupDo + ''' '
        If @Sifra_Grad Is Not Null
            SET @SSQL = @SSQL + ' AND Sifra_Grad ='+ cast(@Sifra_Grad as varchar(6))
        If @Sifra_Reg IS NOT NULL
            SET @SSQL = @SSQL + ' AND Sifra_Reg ='+ cast(@Sifra_Reg as varchar(6))
    End
    INSERT INTO #TmpKup EXEC(@SSQL)
End
    SET @SSQL = 'SELECT Sifra_OE OE, Sifra_Dok SifDok, Broj_Dok BrDok , Sifra_kup Kup,
            Datum_Dok Dat, Rok, Dolzi Dol, Pobaruva Pob, Plateno_Dolzi PDol, Plateno_Pobar PPob'
    IF @Sirok='D'
        SET @SSQL = @SSQL + ', Sifra_za SifZa, Kto, BrojDok'
    SET @SSQL = @SSQL + ' FROM AnFinDok WHERE Sifra_kup IN (SELECT Sifra_Kup FROM #TmpKup) '
    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' and Sifra_OE IN (' + @KoiOE + ') '
    IF @Kartica IS NULL OR @Kartica<>'D'
        SET @SSQL = @SSQL + ' AND (Dolzi<>Plateno_Dolzi OR Pobaruva<>Plateno_Pobar) '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND Sifra_Za=' + @Sifra_Za + ' '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + ' AND Kto IN (' + @Kto + ') '
    If @IOSOdEdnaOE = 'D' AND @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @IOSOdEdnaOE = 'P' AND @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Sifra_Pat=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By Sifra_Kup, Datum_Dok'
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ios_zatv]'))
drop procedure [dbo].[sp_ios_zatv]

Go



CREATE              PROCEDURE sp_IOS_Zatv
--@Sifra_Kup Zadolzitelno
--@Sifra_Za Zadolzitelno, 1 ili 2 za kupuvaci ili dobav. soodvetno
--@Sifra_OE Zadolzitelno
--@TipDok Zadolzitelno, Tipot na dokum. koj bara zatvoranje
--@Kto Zadolzitelno, kontoto so koe zatvorame
--@KoiFri 'O' - Samo otvoreni, 'S' - Vekje zatvoreni + Otvoreni
--@KojAnid, Null ili Anid na dokumentot za koj gi barame zatvaranjata,
--          vazi samo so @KojFri='S'
    @Sifra_Kup Char(6),
    @Sifra_Za Char(1),
    @TipDok Char(1),
    @Kto Char(6),
    @KoiFri Char(1),        --S-Site(stari zatv+kandidati), O-samo kandidati, Z-Samo stari zatvoranja (Z-dod.21.04.09)
    @KojAnid Int,
    @Znak smallint,
    @Dev char(1),
    @Podred    char(1)='D'        --D-dat.dosp.,V-Dat.dok.
AS
    Declare @SSQL Varchar(2000)
    CREATE TABLE #IOS
    (    Anid Int,
        Sifra_OE smallint,
        Sifra_Dok Smallint,
        Broj_Dok Int,
        BrojDok Varchar(30),
        Datum_Dok Smalldatetime,
        Rok Smallint,
        Iznos Numeric(18, 4),
        Iznos_Dev Numeric(18,4),
        Dolzi Numeric(18,4),
        Pobaruva Numeric(18,4),
        Plateno_Dolzi Numeric(18,4),
        Plateno_Pobar Numeric(18,4),
        Dev_Dolzi Numeric(18,4),
        Dev_Pobaruva Numeric(18,4),
        Dev_Plat_Dolzi Numeric(18,4),
        Dev_Plat_Pobar Numeric(18,4),
        Sifra_Pat Smallint,
        KojaVal  char(3),
        Sifra_nal    smallint,
        Broj_Nal    int,
        Sifra_Div    smallint
    )
    -- Prvo gi naogjame dokumentite zatvoreni so ovoj dokument
    -- (vo slucaj da vrsime izmena na vekje knizen dokument)
   If (@KoiFri IN ('S','Z')) And (@KojAnid Is Not Null)
        INSERT INTO #IOS
        SELECT A.Anid, A.Sifra_OE, A.Sifra_Dok, A. Broj_Dok, A.BrojDok,
            A.Datum_Dok, A.Rok, AZ.Iznos, AZ.Iznos_Dev,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar,
            A.Dev_Dolzi, A.Dev_Pobaruva, A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar,
            A.Sifra_Pat, A.KojaVal, A.Sifra_Nal, A.Broj_Nal, A.Sifra_Div
        FROM AnZatv AZ
        INNER JOIN AnFinDok A ON (AZ.Anid1=A.Anid OR AZ.Anid2=A.Anid) AND
         A.Sifra_Kup = @Sifra_Kup
        WHERE (AZ.Anid1=@KojAnid OR AZ.Anid2=@KojAnid) AND A.Anid<>@KojAnid
    -- Sega gi naogjame otvorenite dokumenti
IF @KoiFri <> 'Z'
Begin
   SET @SSQL = 'SELECT A.Anid, A.Sifra_OE, A.Sifra_Dok, A. Broj_Dok, A.BrojDok,
            A.Datum_Dok, A.Rok, 0, 0,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar,
            A.Dev_Dolzi, A.Dev_Pobaruva, A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar,
            A.Sifra_Pat, A.KojaVal, A.Sifra_Nal, A.Broj_Nal, A.Sifra_Div
            FROM AnFinDok A
            WHERE Sifra_Kup=''' + @Sifra_Kup + '''
            AND Sifra_Za=''' + @Sifra_Za + ''' AND Kto=''' + @Kto + ''' '
    IF (@Sifra_Za='1' AND @TipDok='1') OR (@Sifra_Za='2' AND @TipDok='2')
        Begin
            If @Znak > 0
                SET @SSQL = @SSQL + 'AND (Dolzi+Dev_Dolzi<0 OR Pobaruva+Dev_Pobaruva>0) '
            Else
                SET @SSQL = @SSQL + 'AND (Dolzi+Dev_Dolzi>0 OR Pobaruva+Dev_Pobaruva<0) '
        End
    ELSE IF (@Sifra_Za='1' AND @TipDok='2') OR (@Sifra_Za='2' AND @TipDok='1')
        Begin
            If @Znak > 0
                SET @SSQL = @SSQL + 'AND (Dolzi+Dev_Dolzi>0 OR Pobaruva+Dev_Pobaruva<0) '
            Else
                SET @SSQL = @SSQL + 'AND (Dolzi+Dev_Dolzi<0 OR Pobaruva+Dev_Pobaruva>0) '
        End
    If @Dev = 'D'
        SET @SSQL = @SSQL + ' AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    Else
        SET @SSQL = @SSQL + ' AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    SET @SSQL = @SSQL + ' AND A.Anid NOT IN (SELECT DISTINCT Anid FROM #IOS) '
    If @KojAnid IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.Anid <> ' + Cast(@KojAnid as varchar(9)) + ' '
    INSERT INTO #IOS EXEC(@SSQL)
End
IF @Podred='V'
    SELECT DISTINCT Anid, DateADD(day, Rok, Datum_Dok) DatDosp,
        Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Datum_Dok, Rok, Iznos, Iznos_Dev,
        Dolzi, Pobaruva, Plateno_Dolzi, Plateno_Pobar,
        Dev_Dolzi, Dev_Pobaruva, Dev_Plat_Dolzi, Dev_Plat_Pobar,
        Sifra_Pat, KojaVal, Sifra_Nal, Broj_Nal, Sifra_Div
    FROM #IOS
    ORDER BY Datum_Dok
ELSE
    SELECT DISTINCT Anid, DateADD(day, Rok, Datum_Dok) DatDosp,
        Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Datum_Dok, Rok, Iznos, Iznos_Dev,
        Dolzi, Pobaruva, Plateno_Dolzi, Plateno_Pobar,
        Dev_Dolzi, Dev_Pobaruva, Dev_Plat_Dolzi, Dev_Plat_Pobar,
        Sifra_Pat, KojaVal, Sifra_Nal, Broj_Nal, Sifra_Div
    FROM #IOS
    ORDER BY DatDosp            --Anid smeneto 04.02.04





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ispllistaotkup]'))
drop procedure [dbo].[sp_ispllistaotkup]

Go






CREATE       PROCEDURE sp_IsplListaOtkup
    @Datum_Presm    smalldatetime,
    @Sifra_Dok    smallint,
    @Sifra_Oe    smallint,
    @KDrugo1    smallint=NULL,
        @KSifra_Dok    smallint=null
AS
Declare @Dat_DospOd    smalldatetime
SET @Dat_DospOd = dbo.fn_VratiDatumOd(Year(@Datum_Presm), Month(@Datum_Presm))

CREATE TABLE #Fakt
(Sifra_Kup    char(6),
Izn_Izlez    decimal(18,2))

CREATE TABLE #IL
(Sifra_Kup    char(6),
Izn_Priem    decimal(18,2),
Izn_PerDan    decimal(18,2))

IF @KDrugo1 IS NOT NULL
    INSERT INTO #IL (Sifra_Kup, Izn_Priem, Izn_PerDan)
    SELECT D.Sifra_Kup, SUM(D.Toc200), SUM(D.Plat_PerDan) FROM Dokr D
    INNER Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
    WHERE D.Datum_Dok=@Datum_Presm AND D.Sifra_OE=@Sifra_Oe AND D.Sifra_Dok=@Sifra_Dok AND K.KDrugo1=@KDrugo1 GROUP BY D.Sifra_Kup
ELSE
    INSERT INTO #IL (Sifra_Kup, Izn_Priem, Izn_PerDan)
    SELECT Sifra_Kup, SUM(Toc200), SUM(Plat_PerDan) FROM Dokr
    WHERE Datum_Dok=@Datum_Presm AND Sifra_OE=@Sifra_Oe AND Sifra_Dok=@Sifra_Dok GROUP BY Sifra_Kup

if  @KSifra_Dok is not null
   INSERT INTO #Fakt (Sifra_Kup, Izn_Izlez) SELECT Sifra_Kup, SUM(Toc200) FROM Dokr
    WHERE Sifra_Kup IN (SELECT Sifra_Kup FROM #IL) AND Sifra_Za=1 AND VlIzl='I' AND
    DateAdd(day, Rok, Datum_dok)>=@Dat_DospOd AND DateAdd(day, Rok, Datum_dok)<=@Datum_Presm
    and Sifra_dok <>  @KSifra_Dok
    GROUP BY Sifra_Kup
else
    INSERT INTO #Fakt (Sifra_Kup, Izn_Izlez) SELECT Sifra_Kup, SUM(Toc200) FROM Dokr
    WHERE Sifra_Kup IN (SELECT Sifra_Kup FROM #IL) AND Sifra_Za=1 AND VlIzl='I' AND
    DateAdd(day, Rok, Datum_dok)>=@Dat_DospOd AND DateAdd(day, Rok, Datum_dok)<=@Datum_Presm GROUP BY Sifra_Kup

/*SELECT I.*, F.Izn_Izlez, K.ImeKup, K.Adresa, K.SMesto, -- B.ImeBanka Banka, KB.ZiroSka Ziro,  (vaka besse)
    K.Banka, K.Ziro, K.Danocen, K.Sopstvenik                    -- prom GK 14.10.08 za da gi gleda bankite i ziro od komint a ne od Banki/KBanki
FROM #IL I
LEFT OUTER JOIN #Fakt F ON I.Sifra_Kup=F.Sifra_Kup
INNER JOIN Komint K ON I.Sifra_Kup=K.Sifra_Kup
--LEFT OUTER JOIN KBanki KB ON K.Sifra_Kup=KB.Sifra_Kup
--LEFT OUTER JOIN Banki B ON KB.Sifra_Ban=B.Sifra_Ban  */

CREATE TABLE #TmpBnk
(Sifra_Kup    char(6),
Ziro        varchar(20),
ImeBanka    varchar(30))

INSERT INTO #TmpBnk (Sifra_Kup) SELECT Sifra_Kup FROM #IL
UPDATE #TmpBnk SET Ziro=KB.ZiroSka, ImeBanka=B.ImeBanka
FROM KBanki KB, Banki B WHERE #TmpBnk.Sifra_Kup=KB.Sifra_Kup AND KB.Sifra_Ban=B.Sifra_Ban

SELECT I.*, F.Izn_Izlez, K.ImeKup, K.Adresa, K.SMesto, B.ImeBanka Banka, B.Ziro, K.Danocen, K.Sopstvenik, K.Ziro2, K.Ziro Ziro1
FROM #IL I
LEFT OUTER JOIN #Fakt F ON I.Sifra_Kup=F.Sifra_Kup
INNER JOIN Komint K ON I.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN #TmpBnk B ON K.Sifra_Kup=B.Sifra_Kup







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ispllistaotkup_poart]'))
drop procedure [dbo].[sp_ispllistaotkup_poart]

Go




CREATE         PROCEDURE sp_IsplListaOtkup_PoArt
    @Datum_Od    smalldatetime,
    @DAtum_Do    smalldatetime,
    @Sifra_Dok    smallint,
    @Sifra_Oe    smallint,
    @KDrugo1    smallint=NULL,
    @Priv_Lice char(1)= null,
        @KSifra_Dok    smallint=null
AS
    Declare @SSQl as varchar(5000)

CREATE TABLE #IL
    (Sifra_Kup    char(6),
    Izn_Priem    decimal(18,2),
    Izn_PerDan    decimal(18,2),
    Kolic    decimal(18,2),
    Cena decimal(18,2),
    Sifra_Art varchar(20))

    SET @ssql='    INSERT INTO #IL (Sifra_Kup, Izn_Priem, Izn_PerDan, Kolic, Cena, Sifra_Art)
        SELECT D.Sifra_Kup, Round(SUM(S.Kolic*(CASE S.DanDokCena WHEN ''N'' THEN S.DokCena *(1+S.PosnPren/100) ELSE S.DokCena END)*(1-S.Uces/100)),0), SUM(D.Plat_PerDan), SUM(S.Kolic), 0, S.Sifra_Art
                FROM Dokr D
        INNER Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
        Inner Join Stavr S on D.DokrID=S.DokrID
        WHERE D.Datum_Dok>= '''+cast(@Datum_Od as varchar(35))+''' and D.Datum_Dok<= '''+cast(@Datum_Do as varchar(35))+''''
    If @Sifra_oe is not null
        SET @ssql=@ssql+' AND D.Sifra_OE='+ cast(@Sifra_Oe as varchar(3))+' '
    If @Sifra_Dok is not null
        SET @ssql=@ssql+' AND D.Sifra_Dok=' +cast(@Sifra_Dok as varchar(5)) +' '
    If @KDrugo1 is not null
        SET @ssql=@ssql+' AND K.KDrugo1='+ cast(@KDrugo1 as varchar(5))+ ' '
    If @Priv_Lice is not null
        SET @ssql=@ssql+' AND K.Priv_Lice='+ cast(@Priv_Lice as varchar(5))+ ' '
    If @KSifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok<>' + Cast(@KSifra_Dok As Varchar(10)) + ' '
        SET @ssql=@ssql+'GROUP BY K.Priv_Lice, S.Sifra_Art, D.Sifra_Kup ORDER BY  D.Sifra_Kup'
    exec (@ssql)

CREATE TABLE #TmpBnk
    (Sifra_Kup    char(6),
    Ziro        varchar(20),
    ImeBanka    varchar(30))

    INSERT INTO #TmpBnk (Sifra_Kup) SELECT DISTINCT Sifra_Kup FROM #IL
    UPDATE #TmpBnk SET Ziro=KB.ZiroSka, ImeBanka=B.ImeBanka
    FROM KBanki KB, Banki B WHERE #TmpBnk.Sifra_Kup=KB.Sifra_Kup AND KB.Sifra_Ban=B.Sifra_Ban AND RbrBan=1

    SELECT I.*, K.ImeKup, K.Adresa, K.SMesto, B.Ziro, K.Danocen, K.Sopstvenik, B.ImeBanka Banka, K.Priv_Lice, A.ImeArt,
    (CASE K.Priv_Lice WHEN '1' THEN '1 Kooperanti ' WHEN '2' THEN '2 Kooperanti so pers.danok' WHEN '3' THEN '3 Firmi koi ne se DDV obvrznici' WHEN '4' THEN '4 Firmi koi se DDV obvrznici'  END) as OpisPL
    FROM #IL I
    INNER JOIN Komint K ON I.Sifra_Kup=K.Sifra_Kup
    INNER JOIN KatArt A ON I.Sifra_Art=A.Sifra_Art
    LEFT OUTER JOIN #TmpBnk B ON K.Sifra_Kup=B.Sifra_Kup
    ORDER BY I.Sifra_Kup, I.Sifra_Art









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ispllistotkupsr]'))
drop procedure [dbo].[sp_ispllistotkupsr]

Go
CREATE         PROCEDURE sp_IsplListOtkupSR
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Kup    char(6)=NULL OUTPUT,
    @ImeKup        varchar(40)=NULL OUTPUT,
    @Adresa        varchar(40)=NULL OUTPUT,
    @Smesto        varchar(20)=NULL OUTPUT,
    @Danocen    varchar(15)=NULL OUTPUT,
    @BrojResenie    varchar(15)=NULL OUTPUT,
    @ZiroSka    varchar(30)=NULL OUTPUT,
    @Datum_Dok    smalldatetime=NULL OUTPUT
AS
SELECT @Datum_Dok=D.Datum_Dok, @Sifra_Kup=D.Sifra_Kup, @ImeKup=K.ImeKup, @Adresa=K.Adresa, @Smesto=K.Smesto, @Danocen=K.Danocen, @BrojResenie=K.Garancija
FROM Dokr D
INNER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
WHERE D.Sifra_OE=@Sifra_OE AND D.Sifra_Dok=@Sifra_Dok AND D.Broj_Dok=@Broj_Dok
SELECT @ZiroSka = ZiroSka FROM KBanki WHERE Sifra_Kup=@Sifra_Kup

SELECT S.Datum_Dok, S.Sifra_Art, K.ImeArt, K.EdMera, S.Kolic, dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena,'N') DokCena,
       S.POsn
FROM Stavr S
    INNER JOIN DokrVoZbirni Z ON S.DokrID=Z.DokrID_Orig
    INNER JOIN Dokr D ON Z.DokrID_Zb=D.DOkrID
    INNER JOIN KatArt K ON S.Sifra_Art=K.Sifra_Art
    WHERE D.Sifra_OE=@Sifra_OE AND D.Sifra_Dok=@Sifra_Dok AND D.Broj_Dok=@Broj_Dok
ORDER BY S.Datum_Dok







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_items]'))
drop procedure [dbo].[sp_items]

Go


CREATE                        PROCEDURE sp_Items
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @DokOdFinDok  varchar(100)   = '1,10, 16',
    @Sifra_Art_Od        varchar(20)=Null,
    @Sifra_Art_Do        varchar(20)='009000',
    @Sif_GrOrg        char(6)='9'
AS
    Declare @SSQL Varchar(2000)
    CREATE        Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE        Table #tItems
    (    DB_CODE Char(5),
        TRANS_DATE Smalldatetime,
        CST_CODE Char(6),
        ITEM_CODE Char(5),
        SIFRA_SOSTAV Char(6),
        QUANTITY Decimal(15,4),
        VALUE Decimal(15,4),
        DISCOUNT Decimal(15,4),
        DOC_NO Char(13),
        PROM_CODE Char(20),
        VAN_PRESEL Char(1),
        AGENT    Char(5),
        LOCALCODE Char(5),
        DESCR_PROM Char(20)
    )
    Set @SSQL = 'Insert #tSostav
            Select TS.Sifra_Art, TS.Sifra_Sur, TS.Ima_Kolic, TS.Cena, TS.VkCena From Sostav TS
            Inner Join Katart K On TS.Sifra_Art=K.Sifra_Art '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Art>=''' + @Sifra_Art_Od +''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Art<=''' + @Sifra_Art_Do +''' '
    Set @SSQL = @SSQL +  ' Order By TS.Sifra_Art '
    Exec(@SSQL)
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Art>=''' + @Sifra_Art_Od +''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Art<=''' + @Sifra_Art_Do +''' '
    Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) Order By K.Sifra_Art'
    Exec(@SSQL)
    SET @SSQL='SELECT
        ''MKMA''                            DB_CODE,
        S.Datum_Dok                            TRANS_DATE,
        D.Sifra_Kup                            CST_CODE,
        dbo.fn_ULKod(TS.Sifra_Sur, K.Alt_Sifra)    ITEM_CODE,
        Case
            When TS.Sifra_Art<>TS.Sifra_Sur Then TS.Sifra_Art
            Else Null
        End                                SIFRA_SOSTAV,
        S.Kolic*TS.Ima_Kolic                        QUANTITY,
        dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.Kolic*TS.Ima_Kolic) VALUE,
        dbo.fn_VratiRabatSoDDV(S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.Kolic*TS.Ima_Kolic)                    DISCOUNT,
        Cast(S.Sifra_OE As Varchar(6)) + ''-'' + Cast(S.Sifra_Dok As Varchar(6)) + ''/'' + Cast(S.Broj_Dok As Varchar(12))  DOC_NO,
        Null                                                    PROM_CODE,
        Case S.Sifra_OE
            When 1 Then ''D''
            Else Null
        End                                                    VAN_PRESEL,
        S.Sifra_OE AGENT,
        Null                                                    LOCALCODE,
        Null                                                    DESCR_PROM
    FROM #tSostav TS
    Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
    INNER JOIN KatArt K ON TS.Sifra_Sur=K.Sifra_Art
    INNER JOIN Dokr D ON S.DokrID=D.DokrID
    WHERE S.Sifra_Dok IN (' +@DokOdFinDok + ') AND K.Iskluci<>''D'' '
    If @Sif_GrOrg IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg +''') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + ' AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + 'Order by SIFRA_SOSTAV Desc '
    Insert #tItems Exec(@SSQL)
    Update #tItems
        Set LOCALCODE=(Select dbo.fn_ULKod(Sifra_Art, Alt_Sifra) From Katart
                                Where #tItems.SIFRA_SOSTAV=Katart.Sifra_Art),
             DESCR_PROM=(Select Substring(ImeArt, 1, 20) From Katart
                                Where #tItems.SIFRA_SOSTAV=Katart.Sifra_Art)
    Where SIFRA_SOSTAV Is Not Null
    Select DB_CODE, TRANS_DATE, CST_CODE, ITEM_CODE, QUANTITY, VALUE,
             DISCOUNT, DOC_NO, PROM_CODE, VAN_PRESEL, AGENT,
             LOCALCODE, DESCR_PROM
    From #tItems
    Order By TRANS_DATE




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izbrisitmsim_opcusl]'))
drop procedure [dbo].[sp_izbrisitmsim_opcusl]

Go
CREATE    PROCEDURE sp_IzbrisiTmSim_OpcUsl
    @Sifra_OE     smallint,
    @BrojBaranje    int,
    @BrojPrilog    int
AS
    DELETE FROM TmSim_OpcUsl
    Where Sifra_OE=@Sifra_Oe And BrojBaranje=@BrojBaranje And BrojPrilog=@BrojPrilog




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izlezi_pooe]'))
drop procedure [dbo].[sp_izlezi_pooe]

Go


CREATE                     PROCEDURE sp_Izlezi_PoOE
    @Sifra_OE Smallint,
    @KoiOE Varchar(1000),
    @Pod1 Smallint,
    @Pod2 Smallint,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Art_Od Varchar(20),
    @Sifra_Art_Do Varchar(20),
    @Sifra_Kup_Od Char(6),
    @Sifra_Kup_Do Char(6),
    @Podred Char(1),
    @Kto Char(6),
    @Sifra_Gr varChar(6),
    @Sifra_Podg Char(6),
    @Lokacija Varchar(10),
    @TipKup Char(11),
    @Sifra_Brand Smallint,
    @RazbijSostav Char(1),
    @Koi_Gradovi varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE  INDEX IX_Sostav ON #tSostav(Sifra_Art)
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Set @SSQL = 'Select
            Month(S.Datum_Dok) As Mesec,
            Year(S.Datum_Dok) As Godina,
            Count(Distinct(S.DokrID)) As Br_Fri,
            Count(Distinct(S.DokID)) As Br_Stavki,
            Count(Distinct(D.Sifra_Kup)) As Br_Komint,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna,
            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) Vk_NPS,
            S.Sifra_OE, O.ImeOrg
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D On S.DokrID=D.DokrID
        Inner Join Orged O On D.Sifra_OE=O.Sifra_OE '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null)
            Or (@Pod6 Is Not Null) Or (@Pod7 Is Not Null) Or (@Sifra_Tip Is Not Null)
        Set @SSQL = @SSQL + 'Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where D.VlIzl=''I'' And D.Sifra_Za=1 And K.Iskluci <> ''D'' '
    If @Sifra_Brand Is Not Null
        Set @SSQL  = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(5)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
      End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @KoiOE + ') '
---------------------------------------------------------------  19.07.2004  -------------------------------------------------------------------------------------------------------------------------
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Pod6 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                      Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
           End
    If @Pod7 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                      Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
           End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + 'And KUP.TipKup=''' + @TipKup + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By Month(S.Datum_Dok), Year(S.Datum_Dok), S.Sifra_OE, O.ImeOrg '
    Exec(@SSQL)
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izlozenostart]'))
drop procedure [dbo].[sp_izlozenostart]

Go


CREATE              Procedure sp_IzlozenostArt
    @Sifra_Oe        smallint = Null,
    @Koi_Oe        varchar(10) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @Sifra_Pat        Smallint = Null,
    @GrPat        char(6) = null,
    @Sifra_Kup        char(6) = Null,
    @KPod1        smallint = Null,
    @KPod2        smallint = Null,
    @KPod3        smallint = Null,
    @KPod4        smallint = Null,
    @KPod5        smallint = Null,
    @KPod6        smallint = Null,
    @KPod7        smallint = Null,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do        varchar(20) = Null
As
    Declare @SSQL as Varchar(8000)
    Declare @SSQLUsl as Varchar(8000)
-----------------------------uslovi----------------------------------------------------------------------------------------------------------
    Set @SSQLUsl=''
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Sifra_Pat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(10)) + ' '-- ili D
    If @GrPat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Pat In (Select Sifra_PAt From SGrPAt Where Sif_GrPat = ''' + @GrPat + ''') '
    If @KPod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo1=' + Cast(@KPod1 As Varchar(10)) + ' '
    If @KPod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo2=' + Cast(@KPod2 As Varchar(10)) + ' '
    If @KPod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo3=' + Cast(@KPod3 As Varchar(10)) + ' '
    If @KPod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo4=' + Cast(@KPod4 As Varchar(10)) + ' '
    If @KPod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo5=' + Cast(@KPod5 As Varchar(10)) + ' '
    If @KPod6 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo6=' + Cast(@KPod6 As Varchar(10)) + ' '
    If @KPod7 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.KDrugo7=' + Cast(@KPod7 As Varchar(10)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
CREATE TABLE #Tmp1
(Sifra_Art    varchar(20),
Sifra_Kup    char(6),
Sifra_Obj    smallint,
Sifra_Pat      smallint,
DokID        int)
Set @SSQL='Select S.Sifra_Art, D.Sifra_Kup, D.Sifra_Obj,D.Sifra_Pat, MAX(DokID) FROM Stavr S
INNER JOIN Dokr D ON S.DokrID=D.DOkrID
Left outer Join Komint K on D.Sifra_Kup=K.Sifra_kup
WHERE D.Sifra_Za=1 AND D.VlIzl=''I'' AND S.Kolic>=0 ' + @SSQLUSL + ' GROUP BY S.Sifra_Art, D.Sifra_Kup, D.Sifra_Obj, D.Sifra_Pat  '
INSERT INTO #Tmp1 EXEC(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set @SSQL='Select D.Sifra_Kup+'' ''+(Case WHEN D.Sifra_Obj IS NULL THEN '''' ELSE Cast(D.Sifra_Obj as varchar(3)) END) As Sif_PM, D.Sifra_Kup, K.ImeKup,
        D.Sifra_Obj, O.ImeObj, D.Sifra_Pat, P.ImePat, K4.Ime_4K, D.Datum_Dok, (S.Sifra_Art+''-''+ A.ImeArt) SifArt, S.Alt_KOlic,(case when D.Sifra_Obj is null then K.VidStalazi else O.VidStalazi end) Stalazi
        From #Tmp1 T
        INNER JOIN Stavr S ON S.DokID=T.DokID
        Inner Join Dokr D on S.DokrID=D.DokrID
        Left outer Join Komint K on D.Sifra_Kup=K.Sifra_kup
        Left outer Join KObjekti O on D.Sifra_Kup=O.Sifra_kup AND D.Sifra_Obj=O.Sifra_Obj
        Left outer Join Patnici P on D.Sifra_Pat = P.Sifra_Pat
        left outer Join KDrugo4 K4 on (Case When O.KDrugo4 Is Not Null Then O.KDrugo4 Else K.KDrugo4 End) = K4.Sifra_4K
        Inner Join KatArt A on S.Sifra_Art=A.Sifra_Art
        Where D.Sifra_Za=1 AND D.VlIzl=''I'' AND S.Kolic>=0 AND A.Aktiven=''D'' '
Set @SSQL = @SSQL + @SSQLUSL
--Set @SSQL = @SSQL + ' Group By D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, O.ImeObj, D.Datum_Dok,S.Sifra_Art, A.ImeArt, S.Alt_KOlic, K.VidStalazi, O.VidStalazi '
Set @SSQL = @SSQL + 'Order by K.ImeKup, D.Sifra_Kup, O.ImeObj, D.Sifra_Obj, P.ImePat, D.Datum_Dok, A.ImeArt, S.Sifra_Art'
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
exec (@SSQL)
print @SSQL









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniadrtaggy]'))
drop procedure [dbo].[sp_izmeniadrtaggy]

Go
CREATE   PROCEDURE sp_IzmeniAdrTaggy
    @Sifra_OE    Smallint,
    @Sifra_Art    VarChar(20),
    @AdrTaggy    VarChar(20),
    @TipTaggy    Smallint
AS
    UPDATE AdrTaggy  SET  AdrTaggy = @AdrTaggy, TipTaggy = @TipTaggy
    WHERE Sifra_OE = @Sifra_OE AND  @Sifra_Art = Sifra_Art
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniakcija]'))
drop procedure [dbo].[sp_izmeniakcija]

Go

CREATE   PROCEDURE sp_IzmeniAkcija
    @Sifra_OE    Smallint,
    @Sifra_Kup    Char(6),
    @DatumVreme    DateTime,
    @Aktivnost    Char(1),
    @Sifra_Obj    smallint= NULL,
    @SoBarKod    char(1) = NULL
AS
    UPDATE Akcija  SET  Aktivnost = @Aktivnost, Sifra_Obj = @Sifra_Obj, SoBarKod = @SoBarKod
    WHERE Sifra_OE = @Sifra_OE AND  @Sifra_Kup = Sifra_Kup AND DatumVreme = @DatumVreme
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniakcijapromo]'))
drop procedure [dbo].[sp_izmeniakcijapromo]

Go






CREATE       PROCEDURE sp_IzmeniAkcijaPromo
    @Ozn_Akcija    char(10),
    @Opis_Akcija    nvarchar(80)=null,
    @Aktivna        char(1)='D',
    @Datum_Poc    datetime,
    @Datum_Kr    datetime,
    @Sif_GrPat        char(6)=null,
    @Sifra_Podelba varchar(20)=null
AS
UPDATE AkciiPromo  SET  Opis_Akcija=@Opis_Akcija, Aktivna=@Aktivna,
                        Datum_Poc=@Datum_Poc, Datum_Kr=@Datum_Kr, Sif_GrPat=@Sif_GrPat, Sifra_Podelba=@Sifra_Podelba WHERE Ozn_Akcija=@Ozn_Akcija
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniamorgrp]'))
drop procedure [dbo].[sp_izmeniamorgrp]

Go
CREATE PROCEDURE sp_IzmeniAmorGrp
    @Sifra_Amor    Char(3),
    @Ime        nvarchar(30),
    @Ime2        nvarchar(30),
    @Ime3        nvarchar(30),
    @Ime4        nvarchar(30),
    @Ime5        nvarchar(30),
    @Stapka    Decimal(9,3),
    @Stara_Grp    Varchar(50) = Null,
    @Kto_Anal    char(10) = Null
AS
    Update AmorGrp
    Set Ime=@Ime, Ime2=@Ime2, Ime3=@Ime3, Ime4=@Ime4, Ime5=@Ime5, Stapka=@Stapka, Stara_Grp=@Stara_Grp, Kto_Anal=@Kto_Anal
    Where Sifra_Amor=@Sifra_Amor
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenianal]'))
drop procedure [dbo].[sp_izmenianal]

Go



CREATE         PROCEDURE sp_IzmeniAnal
    @Kto_Anal    varChar(10),
    @ImeAnal    varChar(40),
    @ImeAnal2    varchar(40),
    @SImeAnal    varChar(40),
    @SImeAnal2    varchar(40),
    @DaliOrg    char(1),
    @DaliKupuv    char(1),
    @DaliDev    char(1),
    @OtvPrenos    char(1),
    @MozeTrans    char(1),
    @Prenos_PoOE char(1)=NULL,
    @DanMaskGlk    char(1)=NULL,
    @Sufiks_Avt    char(6)=NULL,
    @DetalDiv    char(1)=NULL,
    @VoDDVPrijava     smallint=NULL,
    @SoTrosok      char(1) = NULL,
    @DaliVidTros    char(1) = Null,
    @DaliRazniTros    char(1) = Null,
        @Str_Kto    varchar(10)= null

AS

    Declare @Klas    char(3)
    SELECT @Klas = Kto_Klas FROM Klas WHERE Kto_Klas = Substring(@Kto_Anal,1,1)
    If @Klas IS NULL
         INSERT INTO Klas (Kto_Klas, ImeKlasa) VALUES (Substring(@Kto_Anal,1,1), 'Klasa')

    Declare @Sint    char(3)
    SELECT @Sint = Kto_Sint FROM Sint WHERE Kto_Sint = Substring(@Kto_Anal,1,3)

    If @Sint IS NULL
         INSERT INTO Sint (Kto_Sint, ImeSint) VALUES (Substring(@Kto_Anal,1,3), @ImeAnal)

    UPDATE [Anal]
    SET [ImeAnal]=@ImeAnal, [ImeAnal2]=@ImeAnal2, [SImeAnal]=@SImeAnal, [SImeAnal2]=@SImeAnal2,
        DaliOrg=@DaliOrg, DaliKupuv=@DaliKupuv, DaliDev=@DaliDev, OtvPrenos=@OtvPrenos, MozeTrans=@MozeTrans,
        Kto_Sint=Substring(@Kto_Anal, 1,3), Prenos_PoOE = @Prenos_PoOE, DanMaskGlk=@DanMaskGlk,
        Propagiraj='D', Sufiks_Avt=@Sufiks_Avt, DetalDiv=@DetalDiv, VoDDVPrijava=@VoDDVPrijava,
        SoTrosok = @SoTrosok, DaliVidTros = @DaliVidTros, DaliRazniTros = @DaliRazniTros,
                Str_Kto = @Str_Kto
    WHERE [Kto_Anal]=@Kto_Anal

    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenianfindok]'))
drop procedure [dbo].[sp_izmenianfindok]

Go




CREATE      PROCEDURE sp_IzmeniANFINDOK
    @ANID int,
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @BrojDok varchar(25),
    @Sifra_Nal smallint,
    @Broj_Nal int,
    @Datum_Nal smalldatetime,
    @Kto char(10),
    @Sifra_Za char(1),
    @Sifra_Kup char(6),
    @Dolzi decimal(18,4),
    @Pobaruva decimal(18,4),
    @Plateno_Dolzi decimal(18,4),
    @Plateno_Pobar decimal(18,4),
    @Dev_Dolzi decimal(18,4),
    @Dev_Pobaruva decimal(18,4),
    @Dev_Plat_Dolzi decimal(18,4),
    @Dev_Plat_Pobar decimal(18,4),
    @Kurs decimal(18,8),
    @KojaVal char(3),
    @Sifra_Pat smallint,
    @Datum_Dok smalldatetime,
    @Rok smallint,
    @Sifra_Oper smallint,
    @Sifra_OpIz smallint,
    @Danok1 decimal(18,4),
    @Danok2 decimal(18,4),
    @Opis varchar(40),
    @Broj_Kalk int,
    @OdNadvor  char(1),
    @TipDevKalk char(1),
    @Sifra_Nivo varchar(2),
    @SlobText nvarchar(500) = Null,
    @Kto_Kontra char(10) = Null,
    @Sifra_Div smallint = Null,
    @Sifra_DokDK smallint=NULL,
    @Prij_Iznos  smallint=null
AS
   UPDATE AnFinDok
   SET Sifra_OE=@Sifra_OE, Sifra_Dok=@Sifra_Dok, Broj_Dok=@Broj_Dok, BrojDok=@BrojDok, Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal,
    Datum_Nal=@Datum_Nal, Kto=@Kto, Sifra_Za=@Sifra_Za, Sifra_Kup=@Sifra_Kup, Dolzi=@Dolzi, Pobaruva=@Pobaruva,
    Plateno_Dolzi=@Plateno_Dolzi, Plateno_Pobar=@Plateno_Pobar, Dev_Dolzi=@Dev_Dolzi, Dev_Pobaruva=@Dev_Pobaruva,
    Dev_Plat_Dolzi=@Dev_Plat_Dolzi, Dev_Plat_Pobar=@Dev_Plat_Pobar, Kurs=@Kurs, KojaVal=@KojaVal, Sifra_Pat=@Sifra_Pat,
    Datum_Dok=@Datum_Dok, Datum_Izm=getutcdate(), Rok=@Rok, Sifra_Oper=@Sifra_Oper, Sifra_OpIz=@Sifra_OpIz,
    Danok1=@Danok1, Danok2=@Danok2, Opis=@Opis, Broj_kalk=@Broj_kalk, Odnadvor=@Odnadvor, TipDevKalk=@TipDevKalk,
    Sifra_Nivo=@Sifra_Nivo, SlobText=@SlobText, Kto_Kontra=@Kto_Kontra, Prenesen='', Sifra_Div=@Sifra_Div, Sifra_DokDK=@Sifra_DokDK,
    @Prij_Iznos=Prij_Iznos
   WHERE ANID=@ANID
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenianfindokskr]'))
drop procedure [dbo].[sp_izmenianfindokskr]

Go
CREATE   PROCEDURE sp_IzmeniAnFinDokSKR
   @ANID int,
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Plateno_Dolzi decimal(18,4),
   @Plateno_Pobar decimal(18,4),
   @Dev_Plat_Dolzi decimal(18,4),
   @Dev_Plat_Pobar decimal(18,4),
   @Sifra_OpIz smallint
AS
   UPDATE [AnFinDok]
   SET [Sifra_OE]=@Sifra_OE, [Sifra_Dok]=@Sifra_Dok, [Broj_Dok]=@Broj_Dok,
    [Plateno_Dolzi]=@Plateno_Dolzi, [Plateno_Pobar]=@Plateno_Pobar,
    [Dev_Plat_Dolzi]=@Dev_Plat_Dolzi, [Dev_Plat_Pobar]=@Dev_Plat_Pobar,
    [Datum_Izm]=getutcdate(), [Sifra_OpIz]=@Sifra_OpIz,  Prenesen=''
   WHERE [ANID]=@ANID
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenianfindoksoanid]'))
drop procedure [dbo].[sp_izmenianfindoksoanid]

Go
CREATE procedure sp_IzmeniAnFinDokSoANID
    @AnID    integer,
    @Prij_Iznos decimal(18,4)
AS
    Update AnFinDok
    Set Prij_Iznos=@prij_Iznos, TipDevKalk='O'
    Where AnID=@AnID


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniapteka]'))
drop procedure [dbo].[sp_izmeniapteka]

Go

CREATE PROCEDURE sp_IzmeniApteka

    @Sifra_Apteka    char(2),
    @ImeApteka    nchar(40)
AS
    Update Apteka
    Set ImeApteka=@ImeApteka
    Where Sifra_Apteka=@Sifra_Apteka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniarkakasadn]'))
drop procedure [dbo].[sp_izmeniarkakasadn]

Go
CREATE Procedure sp_IzmeniArkaKasaDn
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int,
    @Tip_Kasa char(1)= NULL,
    @Sifra_Oper_Promet smallint =NULL,
    @Sifra_Oper_Vnes smallint ,
    @DatumVreme smalldatetime= NULL,
    @Datum_Kniz smalldatetime =NULL,
    @Sifra_Kup char(6) =NULL,
    @Storniran char(1) =NULL,
    @OpisKasDn nvarchar(1000) =NULL,
    @Rasknizen char(1)= NULL
As
    Update ArkaKasaDn
    Set Tip_Kasa=@Tip_Kasa,
        Sifra_Oper_Promet=@Sifra_Oper_Promet,
        Sifra_Oper_Vnes=@Sifra_Oper_Vnes,
        DatumVreme=@DatumVreme,
        Datum_Kniz=@Datum_Kniz,
        Sifra_Kup=@Sifra_Kup,
        Storniran=@Storniran,
        OpisKasDn=@OpisKasDn,
        Rasknizen=@Rasknizen
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniarkakasadnsta]'))
drop procedure [dbo].[sp_izmeniarkakasadnsta]

Go
CREATE Procedure [dbo].[sp_IzmeniArkaKAsaDnSta]
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int,
    @Sifra_Nac    smallint,
    @Dolzi    decimal(18,4),
    @Pobaruva decimal(18,4),
    @EvidOdPromet    decimal(18,4),
    @OpisKasDnSta    nvarchar(100),
    @IzlezSitniPari    decimal(18,4)
As
    Update ArkaKasaDnSta
    Set Dolzi=@Dolzi,
        Pobaruva=@Pobaruva,
        EvidOdPromet=@EvidOdPromet,
        OpisKasaDnSta=@OpisKasDnSta,
        IzlezSitniPari = @IzlezSitniPari
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok and
        Sifra_nac=@Sifra_nac


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniartikl]'))
drop procedure [dbo].[sp_izmeniartikl]

Go









CREATE                        PROCEDURE [dbo].[sp_IzmeniArtikl]
    @Sifra_Art Varchar(20),
    @ImeArt nchar(40),
    @ImeArt2 nchar(40),
    @EdMera nchar(5),
    @Alt_Ime nvarchar(80),        --ostavi nvarchar e vo nekoi firmi
    @Alt_Ime2 nvarchar(80),     -- ostavi nvarchar(80), vo vitaminka e proshireno na nvarchar(80)
    @Alt_EdMera char(5),
    @Sifra_Podg char(6),
    @Sifra_Tar char(3),
    @Kto char(6),
    @Cena numeric(12, 2),
    @Sostojba numeric(12, 4),
    @CarBroj char(10),
    @SMatUsl char(1),
    @Sifra_Drg smallint,
    @KolkuDrg float,
    @Drugo1 smallint,
    @Drugo2 smallint,
    @Drugo3 smallint,
    @Drugo4 smallint,
    @Drugo5 smallint,
    @DaliSurov char(1),
    @Uces numeric(6, 2),
    @Datum_Cena smalldatetime,
    @Fakturna numeric(12, 4),
    @Nabavna numeric(12, 4),
    @DogCena numeric(12, 4),
    @MalCena numeric(12, 4),
    @GotCena numeric(12, 4),
    @SpeCena numeric(12, 4),
    @PCena4 numeric(12, 4),
    @PCena5 numeric(12, 4),
    @PCena6 numeric(12, 4),
    @Proc_Marza numeric(6, 0),
    @Nom char(50),
    @SMin_Sost numeric(12, 4),
    @SMax_Sost numeric(12, 4),
    @SOpt_Sost numeric(12, 4),
    @Lokacija varchar(10),
    @Popust numeric(6, 2),
    @ImaBroevi int,
    @ImaKomerc int,
    @Tezina float,
    @PopusMar char(1),
    @Iskluci char(1),
    @AltSifra varchar(20),
    @SpecRabat    decimal(6,2) = NULL,
    @SpecRabatOd    smalldatetime = NULL,
    @SpecRabatDo    smalldatetime = NULL,
    @BTezina numeric (18, 6),
     @Volumen decimal(18,6) = NULL,
    @Rabat_Dali char (1)= Null,
    @SodrziEd numeric(16, 8) = NULL,
    @ProcAlk decimal(9,6) = Null,
    @RokKontrDali char(1) = Null,
    @Aktiven char(1) = Null,
    @Sifra_Amb char(6) = Null,
    @Prenesen char(5) = Null,
    @Rok_Tra smalldatetime = Null,
    @ImaPaleta decimal(9,3) = Null,
    @RokTraDen smallint = Null,
    @PDA_Ime    nvarchar(40) = NULL,
    @Sifra_Div    smallint = Null,
    @Sif_Depoz_Amb char(1) = Null,
    @Sifra_Khier nvarchar(20) = Null,
    @Kto_Anal   varchar (10) = Null,
    @DeklArt    nvarchar (400) = Null,
    @Koef    decimal(9,4)=Null,
    @Drugo6 smallint=Null,
    @Drugo7 smallint=Null,
    @ProcKalo decimal(6,2)=Null,
    @VoPDA char(1)=NULL,
    @MKProiz char(1)=null,
    @Sifra_ATC char(10) = Null,
    @AvtNar char(1)=null,
    @Sifra_TipArtZal smallint=Null,
    @Sifra_LayOutUnit smallint=Null,
    @PrivLabel char(1)=null,
    @KategArt char(1)=null,
    @IzvorNab char(1)=null,
    @SeVodiNaZaliha char(1)=null,
    @BlokadaPopust char(1)=null,
    @Sifra_Pat_Man smallint=null,
    @Sifra_Pat_Ref smallint=null,
    @TipEtiketa char(1)=null,
    @Sirina smallint=null,
    @Visina smallint=null,
    @Dolzina smallint=null,
    @PodTipUsl char(1)=null,
    @MultiFaktorNar smallint=null,
    @Sifra_Art_Sablon varchar (20) = Null,
    @Datum_Art_Poc    smalldatetime = NULL,
    @Datum_Art_Kr    smalldatetime = NULL,
    @Datum_Art_MozeNar_Poc    smalldatetime = NULL,
    @Datum_Art_MozeNar_Kr    smalldatetime = NULL,
    @Datum_Art_MozePriem_Poc    smalldatetime = NULL,
    @Datum_Art_MozePriem_Kr    smalldatetime = NULL,
    @StatusArt char(1)=null,
    @Sezonski char(1)=null,
    @Broj_PresmGrupa  smallint=null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [KatArt]
    SET     [ImeArt]=@ImeArt, [ImeArt2]=@ImeArt2, [EdMera]=@EdMera, [Alt_Ime]=@Alt_Ime, [Alt_Ime2]=@Alt_Ime2,
        [Alt_EdMera]=@Alt_EdMera,  [Sifra_Podg]=@Sifra_Podg, [Sifra_Tar]=@Sifra_Tar, [Kto]=@Kto, [Cena]=@Cena,
        [Sostojba]=@Sostojba, [CarBroj]=@CarBroj, [SMatUsl]=@SMatUsl, [Sifra_Drg]=@Sifra_Drg, [KolkuDrg]=@KolkuDrg,
        [Drugo1]=@Drugo1, [Drugo2]=@Drugo2,     [Drugo3]=@Drugo3, [Drugo4]=@Drugo4,     [Drugo5]=@Drugo5,
        [DaliSurov]=@DaliSurov, [Uces]=@Uces, [Datum_Cena]=@Datum_Cena, [Fakturna]=@Fakturna,
        [Nabavna]=@Nabavna, [DogCena]=@DogCena, [MalCena]=@MalCena, [GotCena]=@GotCena,
        [SpeCena]=@SpeCena, [PCena4]=@PCena4, [PCena5]=@PCena5, [PCena6]=@PCena6,
        [Proc_Marza]=@Proc_Marza, [Nom]=@Nom, [SMin_Sost]=@SMin_Sost, [SMax_Sost]=@SMax_Sost, [SOpt_Sost]=@SOpt_Sost,
        [Lokacija]=@Lokacija, [Popust]=@Popust, [ImaBroevi]=@ImaBroevi, [ImaKomerc]=@ImaKomerc, [Tezina]=@Tezina,
        [PopusMar]=@PopusMar, [IzmenetNa]=GetDate(), [IzmenetOd]=SUser_SName(),
        [BTezina]=@BTezina, [Iskluci]=@Iskluci, [Alt_Sifra]=@AltSifra,
        SpecRabat=@SpecRabat, SpecRabatOd=@SpecRabatOd, SpecRabatDo=@SpecRabatDo, Volumen=@Volumen, Rabat_Dali=@Rabat_Dali,
                    SodrziEd = @SodrziEd, Propagiraj=@Propagiraj, ProcAlk=@ProcAlk, RokKontrDali=@RokKontrDali, Aktiven=@Aktiven, Sifra_Amb=@Sifra_Amb,
        Prenesen=@Prenesen, Rok_Tra=@Rok_Tra, ImaPaleta=@ImaPaleta, RokTraDen=@RokTraDen, PDA_Ime = @PDA_Ime, Sifra_Div=@Sifra_Div,
        Sif_Depoz_Amb=@Sif_Depoz_Amb, Sifra_KHier=@Sifra_KHier, Kto_Anal=@Kto_Anal, DeklArt=@DeklArt, Koef=@Koef, Drugo6=@Drugo6,
        Drugo7=@Drugo7, ProcKalo=@ProcKalo, VoPDA=@VoPDA, MKProiz=@MKProiz, Sifra_ATC=@Sifra_ATC, AvtNar=@AvtNar,
        Sifra_TipArtZal=@Sifra_TipArtZal,Sifra_LayOutUnit=@Sifra_LayOutUnit, PrivLabel=@PrivLabel,KategArt=@KategArt,IzvorNab=@IzvorNab,
        SeVodiNaZaliha=@SeVodiNaZaliha, BlokadaPopust=@BlokadaPopust, Sifra_Pat_Man =@Sifra_Pat_Man ,Sifra_Pat_Ref =@Sifra_Pat_Ref,
        TipEtiketa=@TipEtiketa,Sirina=@Sirina,Visina=@Visina,Dolzina=@Dolzina,PodTipUsl=@PodTipUsl,MultiFaktorNar=@MultiFaktorNar,
        Sifra_Art_Sablon=@Sifra_Art_Sablon,Datum_Art_Poc=@Datum_Art_Poc,Datum_Art_Kr=@Datum_Art_Kr,Datum_Art_MozeNar_Poc=@Datum_Art_MozeNar_Poc,
        Datum_Art_MozeNar_Kr=@Datum_Art_MozeNar_Kr, Datum_Art_MozePriem_Poc=@Datum_Art_MozePriem_Poc, Datum_Art_MozePriem_Kr=@Datum_Art_MozePriem_Kr,StatusArt=@StatusArt,
        Sezonski=@Sezonski, Broj_PresmGrupa=@Broj_PresmGrupa
    WHERE [Sifra_Art]=@Sifra_Art
    RETURN @@ERROR











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniartikl_kratok]'))
drop procedure [dbo].[sp_izmeniartikl_kratok]

Go
CREATE  PROCEDURE sp_IzmeniArtikl_Kratok
    @Sifra_Art Varchar(20),
    @ImeArt varchar(40),
    @EdMera char(5),
    @Sifra_Podg char(6),
    @Sifra_Tar char(3),
    @Lokacija char(10),
    @Kto char(6),
    @SMatUsl char(1),
    @Proc_Marza numeric(6, 2),
    @Nom char(50),
   @SMin_Sost numeric(12, 4),
   @SMax_Sost numeric(12, 4),
   @SOpt_Sost numeric(12, 4),
   @PopusMar char(1)
AS
    SET NOCOUNT ON
    UPDATE [KatArt]
    SET
        [ImeArt]=@ImeArt,
        [EdMera]=@EdMera,
        [Sifra_Podg]=@Sifra_Podg,
        [Sifra_Tar]=@Sifra_Tar,
        [Lokacija]=@Lokacija,
        [Kto]=@Kto,
        [SMatUsl]=@SMatUsl,
        [Proc_Marza]=@Proc_Marza,
        [Nom]=@Nom,
        [SMin_Sost]=@SMin_Sost,
        [SMax_Sost]=@SMax_Sost,
        [SOpt_Sost]=@SOpt_Sost,
        [PopusMar]=@PopusMar
    WHERE [Sifra_Art]=@Sifra_Art
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniasortiman]'))
drop procedure [dbo].[sp_izmeniasortiman]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniAsortiman]
    @Sifra_Asort    varchar(10),
    @Ime_Asort        nvarchar(100)

AS

    UPDATE    Asortiman
    SET        Ime_Asort = @Ime_Asort
    WHERE    Sifra_Asort = @Sifra_Asort

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniatckodovi]'))
drop procedure [dbo].[sp_izmeniatckodovi]

Go

CREATE PROCEDURE sp_IzmeniATCKodovi

    @Sifra_ATC    char(10),
    @ImeATC    nchar(40)
AS
    Update ATCKodovi
    Set ImeATC=@ImeATC
    Where Sifra_ATC=@Sifra_ATC
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniavtvrski]'))
drop procedure [dbo].[sp_izmeniavtvrski]

Go

CREATE        PROCEDURE  sp_IzmeniAvtVrski
    @GStID        int,
    @AnID            int,
    @DokrID        int,
    @RbrNalog        int,
    @Dolzi            decimal(18,4),
    @Pobaruva        decimal(18,4),
    @Dev_Dolzi        decimal(18,4),
    @Dev_Pobaruva    decimal(18,4),
    @Bazna_Dolzi        decimal(18,4),
    @Bazna_Pobaruva    decimal(18,4)
AS
    UPDATE FAvtVrski SET
    Dolzi = @Dolzi, Pobaruva=@Pobaruva, Dev_Dolzi=@Dev_Dolzi, Dev_Pobaruva=@Dev_Pobaruva,
    Bazna_Dolzi =  @Bazna_Dolzi, Bazna_Pobaruva=@Bazna_Pobaruva
    WHERE GStID = @GStID AND RbrNalog = @RbrNalog                         --AnID = @AnID AND DokrID = @DokrID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenibanki]'))
drop procedure [dbo].[sp_izmenibanki]

Go
CREATE  PROCEDURE sp_IzmeniBanki
    @Sifra_Ban    char(6),
    @ImeBanka    varchar(30),
    @ZiroSkaNBRM varchar(20),
    @Zabeleska    varchar(30),
    @DanocenBr    varchar(15) = Null,
    @Oznaka    char(3)=Null
 AS
    Declare @Propagiraj char(1)
    Set @Propagiraj='D'
    Update Banki
    Set  ImeBanka=@ImeBanka, ZiroSkaNBRM=@ZiroSkaNBRM, Zabeleska=@Zabeleska, Propagiraj=@Propagiraj, DanocenBr=@DanocenBr, Oznaka=@Oznaka
    Where Sifra_Ban=@Sifra_Ban
    Return @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenibanksmetki]'))
drop procedure [dbo].[sp_izmenibanksmetki]

Go
CREATE      PROCEDURE sp_IzmeniBankSmetki
    @KojaSmetka Char(1),
    @Banka varChar(40),
    @Smetka varChar(40),
    @Swift    varchar(15),
    @IBAN    varchar(30)
AS
    UPDATE BankSmetki
    SET Banka = @Banka, Smetka = @Smetka, Swift = @Swift, IBAN=@IBAN
    WHERE KojaSmetka = @KojaSmetka
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniboja]'))
drop procedure [dbo].[sp_izmeniboja]

Go



CREATE       PROCEDURE sp_IzmeniBoja
    @Sifra_Boja Smallint,
    @ImeBoja nVarchar(40),
    @SkrImeBoja nvarchar(10),
    @OpcStandard varchar(20)=Null

AS
    UPDATE [Boja]
    SET [ImeBoja]=@ImeBoja, [SkrImeBoja]=@SkrImeBoja, OpcStandard = @OpcStandard

    WHERE [Sifra_Boja]=@Sifra_Boja

RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenibrand]'))
drop procedure [dbo].[sp_izmenibrand]

Go

CREATE    PROCEDURE sp_IzmeniBrand
    @Sifra_Brand Smallint,
    @Ime_Brand varchar(30),
    @Sifra_ZBrand smallint,
    @MinSuma    decimal(18,6) = Null,
    @Uces        decimal(6,2) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [DrgPodel]
    SET [Ime]=@Ime_Brand, [Sifra_drg1]=@Sifra_ZBrand, [IzmenetNa]=GetDate(), [IzmenetOd]=SUser_SName(), [Propagiraj]=@Propagiraj, [MinSuma]=@MinSuma, [Uces]=@Uces
    WHERE [Sifra_Drg]=@Sifra_Brand
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicb]'))
drop procedure [dbo].[sp_izmenicb]

Go
CREATE PROCEDURE sp_IzmeniCB
        @CarBroj Char(10),
        @Ime VarChar(50),
        @Ime2 VarChar(50),
        @Stapka Decimal(6,2),
        @SpecProc decimal(9,3) = Null
AS
    SET NOCOUNT ON
    UPDATE [CBroevi]
    SET [Ime]=@Ime, [Ime2]=@Ime2, [Stapka]=@Stapka, SpecProc=@SpecProc
    WHERE [CarBroj]=@CarBroj
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicekovi]'))
drop procedure [dbo].[sp_izmenicekovi]

Go
CREATE PROCEDURE sp_IzmeniCekovi
    @Datum_Vnes    smalldatetime,
    @KojaSmetka    char(1),
    @Iznos        decimal(    18,6) = Null,
    @Dat_Dosp    smalldatetime = Null,
    @Br_Cek    char(13) = Null,
    @Br_Tekovna    char(10) = Null,
    @Sifra_Ban    char(6) = Null,
    @Opis        varchar(20) = Null
AS
    Update Cekovi
    Set Iznos=@Iznos, Dat_Dosp=@Dat_Dosp, Br_Cek=@Br_Cek, Br_Tekovna=@Br_Tekovna, Sifra_Ban=@Sifra_Ban, Opis=@Opis
    Where Datum_Vnes=@Datum_Vnes and KojaSmetka=@KojaSmetka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicendog]'))
drop procedure [dbo].[sp_izmenicendog]

Go





CREATE      PROCEDURE sp_IzmeniCenDog

    @Sifra_Kup    char(6),
    @TipKup    varchar(11),
    @DogBr    char(10),
    @Tip_Cenovnik    char(1),
    @PocDatum    smalldatetime,
    @KrajDatum    smalldatetime,
    @Rok_Dosp    smallint,
    @Prioritet    smallint,
    @Aktiven    char(1),
    @NaslovDok    nvarchar(100),
    @OpisDog    nvarchar(1000)= Null,
    @Sifra_Pat    smallint
AS
    Declare @SSQL as nvarchar(4000)

    Update CenDog
    Set Tip_Cenovnik= @Tip_Cenovnik, PocDatum= @PocDatum, KrajDatum=@KrajDatum,
            Rok_Dosp=@Rok_Dosp, Prioritet=@Prioritet, Aktiven=@Aktiven, NaslovDok=@NaslovDok,
            OpisDog=@OpisDog, Sifra_Pat=@Sifra_Pat
    Where DogBr = @DogBr AND  Sifra_Kup=@Sifra_Kup AND TipKup=@TipKup
/*    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Else
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''999000'' '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And TipKup = ''' + @TipKup + ''' '
    Else
        Set @SSQL = @SSQL + ' And TipKup =''ALL '' '
    Exec (@SSQL)  */
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicengrorg_ispr]'))
drop procedure [dbo].[sp_izmenicengrorg_ispr]

Go

CREATE PROCEDURE sp_IzmeniCenGrOrg_Ispr
    @Sif_GrOrg char(6),
    @Sifra_Art varchar(20),
    @Ispraten varchar(120)
 AS
    UPDATE CenGrOrg SET Ispraten = @Ispraten
    WHERE Sif_GrOrg=@Sif_GrOrg AND  Sifra_Art=@Sifra_Art
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicenpoart]'))
drop procedure [dbo].[sp_izmenicenpoart]

Go
CREATE PROCEDURE sp_IzmeniCenPoArt
    @Tip_Cena    smallint,
    @Sifra_Art    varchar(20),
    @Opis_Cena    varchar(30),
    @Cena        decimal(18,4),
    @Popust    decimal(6,2),
    @SpeCena    decimal(18,4),
    @SpePopust    decimal(6,2),
    @PocDatum    smalldatetime,
    @KrajDatum    smalldatetime
AS
    Update CenPoArt
    Set Opis_Cena=@Opis_Cena, Cena=@Cena, Popust=@Popust, SpeCena=@SpeCena, SpePopust=@SpePopust, PocDatum=@PocDatum, KrajDatum=@KrajDatum
    Where Tip_Cena=@Tip_Cena And Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicenpopodgr]'))
drop procedure [dbo].[sp_izmenicenpopodgr]

Go
CREATE PROCEDURE sp_IzmeniCenPoPodgr
    @Tip_Podelba    char(1),
    @TipKup    varchar(11),
    @Sifra_Podelba    varchar(20),
    @Uces        decimal(6, 2),
    @Cena        decimal(18,6),
    @Uces2    decimal(6, 2),
    @Uces3    decimal(6, 2)
 AS
    UPDATE CenPoPodgr SET Uces=@Uces, Cena=@Cena, Uces2=@Uces2, Uces3=@Uces3
    WHERE Tip_Podelba=@Tip_Podelba AND TipKup=@TipKup AND Sifra_Podelba=@Sifra_Podelba
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicenvidvozila]'))
drop procedure [dbo].[sp_izmenicenvidvozila]

Go
CREATE PROCEDURE sp_IzmeniCenVidVozila
    @Sifra_Vid_Voz    varchar(20),
    @KM        int,
    @Cena        decimal(18,6)
 AS
    Update CenVidVozila
    Set Cena=@Cena
    Where Sifra_Vid_Voz=@Sifra_Vid_Voz And KM=@KM
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenicrrkodovi]'))
drop procedure [dbo].[sp_izmenicrrkodovi]

Go
CREATE   PROCEDURE sp_IzmeniCRRKodovi

    @Sifra_Crr        tinyint,
    @ImeCrr        varchar(200),
    @Tip_Crr        char(20)= null,
    @Nivo_Crr        char(20)=null

AS
    Update CRRKodovi
    Set ImeCrr=@ImeCrr, Tip_Crr=@Tip_Crr, Nivo_Crr=@Nivo_Crr
        Where Sifra_Crr=@Sifra_Crr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidatumisporaka]'))
drop procedure [dbo].[sp_izmenidatumisporaka]

Go
create procedure sp_IzmeniDatumIsporaka
    @Dat_Isporaka smalldatetime,
    @Sifra_Oe smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int
As
    Update Naracki set Dat_Isporaka=@Dat_Isporaka
    Where Sifra_OE=@Sifra_oe AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenideklart]'))
drop procedure [dbo].[sp_izmenideklart]

Go




CREATE       PROCEDURE [dbo].[sp_IzmeniDeklArt]
    @Sifra_Art    varchar(20),
    @Ozn        varchar(20),
    @FileTmp    image = NULL,
    @PrinterName    varchar(50) = NULL,
    @PageSize    varchar(20) = NULL,
    @DeklTekst    nvarchar(2000) = NULL,
    @Sifra_KatPak    smallint = NULL,
    @ImeArt        nvarchar(80) = NULL,
    @Upatstvo    nvarchar(2000) = NULL
As
    Update     DeklArt
    set     FileTmp = @FileTmp,
        PrinterName = @PrinterName,
        PageSize = @PageSize,
        DeklTekst = @DeklTekst,
        Sifra_KatPak = @Sifra_KatPak,
        ImeArt = @ImeArt,
        Upatstvo = @Upatstvo
    where     Sifra_Art = @Sifra_Art and Ozn = @Ozn
    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenideklartkup]'))
drop procedure [dbo].[sp_izmenideklartkup]

Go
CREATE PROCEDURE [dbo].[sp_IzmeniDeklArtKup]
    @Sifra_Art    VarChar(20),
    @Ozn        VarChar(20),
    @Sifra_Kup    char(6),
    @RbrKup        smallint = NULL
AS

    UPDATE    DeklArtKup
    SET        Sifra_Kup = @Sifra_Kup,
            RbrKup = @RbrKup
    WHERE    Sifra_Art = @Sifra_Art AND Ozn = @Ozn

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidevfra]'))
drop procedure [dbo].[sp_izmenidevfra]

Go


CREATE                      PROCEDURE sp_IzmeniDevFra
    @Sifra_OE    smallint,
    @Sifra_Dok       smallint,
    @Broj_DevF    int,
    @Storno    char(1),
    @Datum_Dok    smalldatetime,
    @ECD        varchar(50),
    @Opis        varchar(50),
    @Kurs        decimal(18,8),
    @KojaVal    char(3),
    @Sifra_Nal    Smallint,
    @Broj_Nal    int,
    @Ekst_Br    varchar(25),
    @Ispratnica    varchar(25),
    @Broj_Dok    int,
    @Sifra_Kup    char(6),
    @Rok_Dosp    smallint,
    @Kto        char(6) = NULL,
    @TekstPosle    varchar(1500),
    @KojaSmetka    char (1),
    @Swift        varchar(20),
    @Banka    varchar(50),
    @Vozilo        varchar(50),
    @Koleti        decimal(18,6),
    @Bruto        decimal(18,6),
    @Neto        decimal(18,6),
    @DevIznos    decimal(18,6),
    @Paleti        decimal(18,6),
    @TekstPred      nvarchar(1500) = null,
    @Usluzna    char(1) = Null,
    @DenLogo    char(1) = Null,
    @Paritet    varchar(30)=Null,
    @Izn_Prevoz    decimal(18,2) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Sifra_OeNar    smallint = Null,
    @Broj_Nar    int = Null,
        @Sifra_Obj Smallint
AS
    UPDATE DevFra SET Storno=@Storno, Datum_Dok=@Datum_Dok, ECD=@ECD, Opis=@Opis, Kurs=@Kurs,
    KojaVal=@KojaVal, Sifra_Nal=@Sifra_Nal, Broj_Nal = @Broj_Nal, identif_Br=@Ekst_br, Ispratnica=@Ispratnica,
    Broj_Dok=@Broj_Dok, Sifra_Kup=@Sifra_Kup, Rok_Dosp=@Rok_Dosp, Kto=@Kto, TekstPosle=@TekstPosle,
    KojaSmetka=@KojaSmetka, Swift=@Swift, Banka=@Banka, Vozilo=@Vozilo, Koleti=@Koleti, Bruto=@Bruto,
    Neto=@Neto, Datum_Izm= GETDATE(), Sifra_OpIz=SUSER_SNAME(), DevIznos=@DevIznos, Paleti=@Paleti,
    TekstPred=@TekstPred, Usluzna=@Usluzna, DenLogo=@DenLogo, Paritet=@Paritet,
    Sifra_Nar=@Sifra_Nar, Sifra_OeNar=@Sifra_OeNar, Broj_Nar=@Broj_Nar,
        Sifra_Pat=@Sifra_Pat, Izn_Prevoz=@Izn_Prevoz, Sifra_Obj=@Sifra_Obj
    WHERE Sifra_OE = @Sifra_OE AND Broj_DevF=@Broj_DevF AND Sifra_Dok=@Sifra_dok
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidevkalk]'))
drop procedure [dbo].[sp_izmenidevkalk]

Go


CREATE     PROCEDURE sp_IzmeniDevKalk
    @Sifra_OE Smallint,
    @Broj_Kalk Integer,
    @Storno Char(1),
    @Datum_Dok smalldatetime,
    @ECD Varchar(50),
    @Opis Varchar(50),
    @KojaVal Char(3),
    @Kurs Decimal(18,8),
    @Sifra_Nal Smallint,
    @Broj_Nal Integer,
    @Sifra_Dok Smallint,
    @Broj_Dok Integer,
    @TrosVoMatFak Decimal (18,4),
    @NeFaktTros Decimal (18,4),
    @NeFaktDanok1 Decimal (18,4),
    @NeFaktDanok2  Decimal (18,4),
    @Prevoz decimal(18,6)=null,
    @Spedicija decimal(18,6)=null,
    @BProvizija decimal(18,6)=null,
    @Carina decimal(18,6)=null,
    @Drugo decimal(18,6)=null,
    @Osiguruv decimal(18,6)=null,
    @Prelevman decimal(18,6)=null,
    @PrevozPoTez char(1)=null,
    @Kalo decimal(18,6)=null,
    @Danok1Opc decimal(18,6)=null,
    @Danok2Opc decimal(18,6)=null,
    @Kasa decimal(6,2)=null,
    @Akciza    decimal(18,6)=0
AS
    Update DevKalk
    Set    Storno=@Storno, Datum_Dok=@Datum_Dok, ECD=@ECD, Opis=@Opis, KojaVal=@KojaVal, Kurs=@Kurs,
        Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal, Broj_Dok=@Broj_Dok, TrosVoMatFak=@TrosVoMatFak,
        NeFaktTros = @NeFaktTros, NeFaktDanok1=@NeFaktDanok1, NeFaktDanok2=@NeFaktDanok2,     Prevoz=@Prevoz,
        Spedicija=@Spedicija, BProvizija=@BProvizija, Carina=@Carina, Drugo=@Drugo, Osiguruv=@Osiguruv, Prelevman=@Prelevman,
        PrevozPoTez=@PrevozPoTez, Kalo=@Kalo, Danok1Opc=@Danok1Opc, Danok2Opc=@Danok2Opc, Kasa=@Kasa, Datum_Izm=GetDate(), Akciza=@Akciza
    Where Sifra_OE=@Sifra_OE And Broj_Kalk=@Broj_Kalk AND Sifra_Dok=@Sifra_Dok
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidevkons]'))
drop procedure [dbo].[sp_izmenidevkons]

Go
CREATE     PROCEDURE sp_IzmeniDevKons
    @Sifra_OE    smallint,
    @Sifra_dok    smallint,
    @Broj_Kons    int,
    @Storno        char(1),
    @Datum_Dok    smalldatetime,
    @Datum_mag    smalldatetime,
    @Sifra_kup    char(6),
    @Kto        char(10),
    @ECD        varchar(20),
    @Opis        varchar(50),
    @Carozn    varchar(8),
    @Evcarbroj    varchar(15),
    @Paritet    varchar(20),
    @RezimUvoz    char(3),
    @Poteklo    varchar(20),
    @KojaVal    char(3),
    @Kurs        decimal(18,8),
    @Sifra_Nal    Smallint,
    @Broj_Nal    int,
    @Rok_Dosp    smallint,
    @Swift        varchar(20),
    @Banka    varchar(50),
    @Vozilo        varchar(50),
    @Koleti        decimal(18,6),
    @Bruto        decimal(18,6),
    @Neto        decimal(18,6),
    @Paleti        decimal(18,6),
    @KojaSmetka    char (1),
    @TekstPosle    varchar(1500),
    @Identif_br    varchar(25),
    @Ispratnica    varchar(25),
    @Deviznos    decimal(18,6),
    @VlIzl        Char(1),
    @TekstPred    nvarchar(1500) = Null,
        @ZBroj        varchar (20) = Null,
        @SBroj         varchar (20) = Null,
    @TipECD    varchar(10) = Null
AS
    UPDATE DevKons SET Sifra_OE=@Sifra_OE, Sifra_Dok=@Sifra_dok, Broj_kons=@Broj_Kons, Storno=@Storno, Datum_Dok=@Datum_Dok, Datum_mag=@Datum_mag,
    Sifra_kup=@Sifra_kup, Kto=@Kto, ECD=@ECD, Opis=@Opis, Carozn=@Carozn, EvCarbroj=@EvCarbroj, Paritet=@Paritet, RezimUvoz=@RezimUvoz,
    Poteklo=@Poteklo, KojaVal=@KojaVal, Kurs=@Kurs, Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal, Datum_izm=Getdate(),
    Rok_dosp=@Rok_dosp, Swift=@Swift, Banka=@Banka, Vozilo=@Vozilo, Koleti=@Koleti, Bruto=@Bruto, Neto=@Neto, Paleti=@Paleti,
    KojaSmetka=@KojaSmetka, TekstPosle=@TekstPosle, Sifra_opiz=SUSER_SNAME() , Identif_br=@Identif_Br, Ispratnica=@Ispratnica, DevIznos=@DevIznos,
    VlIzl=@VlIzl, TekstPred=@TekstPred, ZBroj=@ZBroj, SBroj=@SBroj, TipECD=@TipECD
    WHERE Sifra_OE = @Sifra_OE AND sifrA_dok = @sifra_dok and Broj_Kons=@Broj_Kons
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidevnar]'))
drop procedure [dbo].[sp_izmenidevnar]

Go
CREATE    PROCEDURE [dbo].[sp_IzmeniDevNar]
    @Sifra_OE    smallint,
    @Broj_DevN    int,
    @Storno    char(1)=Null,
    @Datum_Nar    smalldatetime,
    @Sifra_Kup    char(6),
    @Kto    char(10)=Null,
    @ECD    varchar(50)=Null,
    @Opis    varchar(50)=Null,
    @KojaVal    char(3)=Null,
    @Kurs    decimal(18,6)=Null,
    @Sifra_Nal    smallint=Null,
    @Broj_Nal    int=Null,
    @Rok_Dosp    smallint=Null,
    @Swift    varchar(20)=Null,
    @Banka    varchar(50)=Null,
    @Vozilo    varchar(50)=Null,
    @Koleti    decimal(18,6)=Null,
    @Bruto    decimal(18,6)=Null,
    @Neto    decimal(18,6)=Null,
    @KojaSmetka    char(1)=Null,
    @TekstPosle    nvarchar(1500)=Null,
    @Identif_Br    varchar(25)=Null,
    @Ispratnica    varchar(50)=Null,
    @Sifra_Nar    smallint=Null,
    @Broj_Nar    int=Null,
    @DevIznos    decimal(18,6)=Null,
    @Paleti    decimal(18,6)=Null,
    @TekstPred    nvarchar(1500)=Null,
    @Usluzna    char(1)=Null,
    @Sifra_Pat    smallint=NULL,
    @Paritet    varchar(30) = Null,
    @Izn_Prevoz    decimal(18,2) = Null,
    @Usl_Plakanje    varchar(30) = Null
AS
    UPDATE DevNar SET
    Storno=@Storno, Datum_Nar=@Datum_Nar, Sifra_Kup=@Sifra_Kup, Kto=@Kto, ECD=@ECD,
    Opis=@Opis, KojaVal=@KojaVal, Kurs=@Kurs, Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal,
    Datum_Izm=GetDate(), Rok_Dosp=@Rok_Dosp, Swift=@Swift, Banka=@Banka, Vozilo=@Vozilo,
    Koleti=@Koleti, Bruto=@Bruto, Neto=@Neto, KojaSmetka=@KojaSmetka, TekstPosle=@TekstPosle,
    Sifra_OpIz=SUSER_SNAME(), Identif_Br=@Identif_Br, Ispratnica=@Ispratnica, Broj_Nar=@Broj_Nar,
    DevIznos=@DevIznos, Paleti=@Paleti, TekstPred=@TekstPred, Usluzna=@Usluzna,Sifra_Pat=@Sifra_Pat,
    Paritet=@Paritet, Izn_Prevoz=@Izn_Prevoz, Usl_Plakanje=@Usl_Plakanje
    WHERE Sifra_OE = @Sifra_OE AND Broj_DevN=@Broj_DevN AND Sifra_Nar=@Sifra_Nar
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidijagnozi]'))
drop procedure [dbo].[sp_izmenidijagnozi]

Go

CREATE PROCEDURE sp_IzmeniDijagnozi

    @Sifra_Dijagn    char(5),
    @ImeDijagn    nvarchar(80),
    @Osloboden    char(1) = Null
AS
    Update Dijagnozi
    Set ImeDijagn=@ImeDijagn , Osloboden=@Osloboden
    Where Sifra_Dijagn=@Sifra_Dijagn
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidivizii]'))
drop procedure [dbo].[sp_izmenidivizii]

Go

CREATE  PROCEDURE [dbo].[sp_IzmeniDivizii]
    @Sifra_Div    smallint,
    @ImeDiv        char(30),
    @Sif_Prik    varchar(10)=null,
    @ImeStr        varchar(50)=null,
    @Gr_Div        varchar(10)=null,
    @ImeGrDiv    varchar(50)=null,
    @KojaSmetka    char(1) = NULL

AS

    UPDATE    Divizii
    SET        ImeDiv = @ImeDiv,
            Sif_Prik = @Sif_Prik,
            ImeStr = @ImeStr,
            Gr_Div = @Gr_Div,
            ImeGrDiv = @ImeGrDiv,
            KojaSmetka = @KojaSmetka
    WHERE    Sifra_Div = @Sifra_Div

    RETURN    @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidnevnik]'))
drop procedure [dbo].[sp_izmenidnevnik]

Go


CREATE   PROCEDURE sp_IzmeniDnevnik
    @IdDnevnik    int,
    @Sifra_Kup    char(6),
    @Datum_Akt    smalldatetime = Null,
    @Opis_Akt    nvarchar(1000) = Null,
    @Tip_Akt        char(5) = Null,
    @Datum_SlAkt    smalldatetime = Null,
    @Opis_SlAkt    nvarchar(1000) = Null,
    @Tip_SlAkt    char(5) = Null
 AS
    Update Dnevnik
    Set Sifra_Kup=@Sifra_Kup, Datum_Akt=@Datum_Akt, Opis_Akt=@Opis_Akt, Tip_Akt=@Tip_Akt,
    Datum_SlAkt=@Datum_SlAkt, Opis_SlAkt=@Opis_SlAkt, Tip_SlAkt=@Tip_SlAkt,
    IzmenetNa=GetDate(), IzmenetOd=SUser_SName()
    Where IdDnevnik=@IdDnevnik
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidnizvskr]'))
drop procedure [dbo].[sp_izmenidnizvskr]

Go
CREATE PROCEDURE sp_IzmeniDnIzvSkr
    @Sema_DnIzvSkr    smallint,
    @Sifra_Dok        smallint = Null,
    @VlIzlPari        char(1) = Null,
    @DokrFin        char(1) = Null
 AS
    Update DnIzvSkr
    Set Sifra_Dok=@Sifra_Dok, VlIzlPari=@VlIzlPari, DokrFin=@DokrFin
    Where Sema_DnIzvSkr=@Sema_DnIzvSkr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidogcena]'))
drop procedure [dbo].[sp_izmenidogcena]

Go




CREATE   PROCEDURE sp_IzmeniDogCena
    @Sifra_Art Varchar(20),
    @DogCena Decimal(18, 4)
AS
    Update Katart
    Set DogCena=@DogCena
    Where Sifra_Art=@Sifra_Art
    If @@ROWCOUNT = 1
        RETURN 0
    Else
        RETURN 77000




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidogtmobile]'))
drop procedure [dbo].[sp_izmenidogtmobile]

Go
CREATE      PROCEDURE sp_IzmeniDogTmobile
    @SifraKomint    char(6),
    @ImeKomint    nvarchar(50),
    @EdbEmb        char(13),
    @Tel        char(15),
    @TempID        varchar(20)
AS
    Update DogTmobile
    set
        SifraKomint = @SifraKomint,
        ImeKomint = @ImeKomint,
        EdbEmb = @EdbEmb,
        Tel = @Tel,
        TempID = @TempID
    where
        SifraKomint = @SifraKomint




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokcenasoart]'))
drop procedure [dbo].[sp_izmenidokcenasoart]

Go



CREATE   PROCEDURE sp_IzmeniDokCenaSoart
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @DokCena    decimal(18,6)
AS
    Update Soart Set DokCena= @DokCena Where Sifra_oe=@Sifra_oe and Sifra_art = @Sifra_art

If @@RowCount < 1
    Insert Soart (Sifra_OE, Sifra_Art, Vlez, Izlez, Cena, DanCena, POsn, NabCena, DokCena, Uces)
    SELECT @Sifra_OE, A.Sifra_Art, 0, 0, 0, 'D', T.ProcOsn, ROUND(@DokCena/(1+T.ProcOsn/100),6), @DokCena, 0
    FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.Sifra_Art=@Sifra_Art







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokosnsred]'))
drop procedure [dbo].[sp_izmenidokosnsred]

Go


CREATE   PROCEDURE sp_IzmeniDokOsnSred
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Datum_Dok    smalldatetime = Null,
    @Identif_Br    varchar(25) = Null,
    @Sifra_Kup    char(6) = Null,
    @Tip_StaOsn    char(1) = Null,
    @Sifra_Nal    smallint = Null,
    @Broj_Nal    int = Null,
    @Toc200    decimal(18,2) = Null,
    @VlIzl        char(1) = Null,
    @Danok1    decimal(18,2) = Null,
    @Danok2    decimal(18,2) = Null,
    @Kolic        decimal(9,2) = Null,
    @Poc_Inv_Broj    char(10) = Null,
    @Osn_Amor    decimal(18,2) = Null,
    @Otpis_Pret    decimal(18,2) = Null,
    @Orig_Nab_Vr        decimal(18,2) = Null,
    @Valuta        char(3) = Null,
    @Orig_Nab_Vr_Val    decimal(18,2) = Null,
    @Delov_God        smallint = Null,
    @Sifra_MikLok        char(10) = Null,
    @Sifra_MikLok_Od    char(10) = Null,
        @Opis       nvarchar(250) = Null,
        @Sifra_Div        smallint = Null,
        @Sifra_TrosM        smallint = Null,
        @Sifra_TrosV        smallint = Null,
        @Sifra_Div_Od        smallint = Null,
        @Sifra_TrosM_Od        smallint = Null,
        @Sifra_TrosV_Od        smallint = Null
AS
    Update DokOsnSred
    Set Datum_Dok=@Datum_Dok, Identif_Br=@Identif_Br, Sifra_Kup=@Sifra_Kup, Tip_StaOsn=@Tip_StaOsn, Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal,
        Toc200=@Toc200, VlIzl=@VlIzl, Danok1=@Danok1, Danok2=@Danok2, Kolic=@Kolic, Poc_Inv_Broj=@Poc_Inv_Broj, Osn_Amor=@Osn_Amor,
        Otpis_Pret=@Otpis_Pret, Orig_Nab_Vr=@Orig_Nab_Vr, Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val, Delov_God=@Delov_God,
        Sifra_MikLok=@Sifra_MikLok, Sifra_MikLok_Od=@Sifra_MikLok_Od, Opis=@Opis,
             Sifra_Div=@Sifra_Div, Sifra_TrosM=@Sifra_TrosM, Sifra_TrosV=@Sifra_TrosV,
                Sifra_Div_Od=@Sifra_Div_Od, Sifra_TrosM_Od=@Sifra_TrosM_Od, Sifra_TrosV_Od=@Sifra_TrosV_Od
    Where Sifra_Oe=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokr]'))
drop procedure [dbo].[sp_izmenidokr]

Go



CREATE                                  PROCEDURE sp_IzmeniDokr
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
   @ImaDodatna char(1),
-- Ednoznacen Kluc
    @NovPrima Smallint,
    @NovDava Smallint,
   @VlIzl char(1),
    @Sifra_Za char(1),
    @Sifra_Nal Smallint,
   @Broj_Nal int,
   @Identif_Br nvarchar(25),
   @Ispratnica varchar(25),
   @Opis varchar(50),
   @Sifra_Kup char(6),
    @Sifra_Obj Smallint,
   @Datum_Dok smalldatetime,
   @Uces decimal(6,2),
   @Kasa decimal(6,2),
   @Rok smallint,
   @Sifra_Pat smallint,
   @SerBr varchar(10),
   @Kto char(6),
   @Kurs decimal(18,8),
   @KojaVal char(3),
   @Toc200 decimal(18,4),
    @MagVr decimal(18,4),
    @MagVrDan decimal(18,4),
   @Marza decimal(18,4),
   @Danok1 decimal(18,4),
   @Danok2 decimal(18,4),
    @PDanok1 decimal(18,4),
   @PDanok2 decimal(18,4),
   @PTrosok decimal(18,4),
   @DanDokCena char(1),
   @DanMagCena char(1),
   @CenaIznos char(1),
   @ProcMarza decimal(6,2),
   @Kod_Danok char(1),
   @TekstPosle nvarchar(1500),
   @Sifra_Nivo varchar(2),
   @KojaSmetka char (1),
   @Blokiran char(1)=Null,
    @KasaPoDDV    decimal(6,2) = 0,
    @Spremil    varchar(5) = Null,
    @Sifra_Nar    smallint = Null,
    @Broj_Nar    int = Null,
    @Sifra_OeNar     smallint = Null,
    @Usluzna    char(1) = Null,
    @TekstPred nvarchar (1500) = Null,
    @Sifra_Mest int = Null,
    @Izrab_Nar varchar (20) = Null,
    @Sifra_Prev    char(6)=Null,
    @Spec_Forma_Pec varchar(10) = Null,
    @Sifra_Div smallint = Null,
    @Likvid char(1)=Null,
    @DodadenNa smalldatetime = NULL,     --ovoj ne treba, ama ostavi go
    @Plat_PerDan decimal(18,2) = Null,
    @Proc_PerDan decimal(6,2) = Null,
    @DogBr    varchar(10) = Null,
    @Sifra_Kor    varchar(20) = Null,
    @Broj_Proekt    int = Null,
    @Datum_Ispor    smalldatetime = NULL
AS

if dbo.fix_DokrIzmMoze(GetDate(), @Datum_Dok, @Sifra_Oe, @Sifra_Dok, @Broj_Dok, @ImaDodatna, @Sifra_Prim) = 'N'
    Return 57902        -- Custom code za NEDOZVOLENA IZMENA - DOKR

Declare @SSQL nVarchar(4000)
Set @SSQL = 'UPDATE [Dokr] SET '
If @NovDava Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_OE]=' + Cast(@NovDava As Varchar(5)) + ', '
If @NovPrima Is Not NULL
    Set @SSQL = @SSQL + '[SIfra_Prim]=' + Cast(@NovPrima As Varchar(5)) + ', '
Else
    Set @SSQL = @SSQL + '[SIfra_Prim]=Null, '
Set @SSQL = @SSQL + '[VlIzl]=''' + @VlIzl + ''',
          [Sifra_Za]=' + Cast(@Sifra_Za As Varchar(5)) +  ',
         [Sifra_Nal]=' + Cast(@Sifra_Nal As Varchar(5)) + ', '
If @Broj_Nal Is Not NULL
    Set @SSQL = @SSQL + '[Broj_Nal]=' + Cast(@Broj_Nal As Varchar(8)) + ' ,'
Else
    Set @SSQL = @SSQL + '[Broj_Nal]=Null, '
If @Identif_Br Is Not NULL
    Set @SSQL = @SSQL + '[Identif_Br]=N''' + @Identif_Br + ''', '
Else
    Set @SSQL = @SSQL + '[Identif_Br]=Null, '
If @Ispratnica Is Not NULL
    Set @SSQL = @SSQL + '[Ispratnica]=''' + @Ispratnica + ''', '
Else
    Set @SSQL = @SSQL + '[Ispratnica]=Null, '
If @Opis Is Not NULL
    Set @SSQL = @SSQL + '[Opis]=''' + @Opis + ''', '
Else
    Set @SSQL = @SSQL + '[Opis]=Null, '
If @Sifra_Kup Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Kup]=''' + @Sifra_Kup + ''', '
Else
    Set @SSQL = @SSQL + '[Sifra_Kup]=Null, '
If @Sifra_Obj Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Obj]=' + Cast(@Sifra_Obj As Varchar(6)) + ', '
Else
    Set @SSQL = @SSQL + '[Sifra_Obj]=Null, '
If @Datum_Dok Is Not NULL
    Set @SSQL = @SSQL + '[Datum_Dok]=''' + Cast(@Datum_Dok As Varchar(25)) + ''', '
Else
    Set @SSQL = @SSQL + '[Datum_Dok]=Null, '
Set @SSQL = @SSQL + '[Datum_Izm]=''' + Cast(GETDATE() As Varchar(25)) + ''', '
If @Uces Is Not NULL
    Set @SSQL = @SSQL + '[Uces]=' + Cast(@Uces As varchar(8)) + ', '
Else
    Set @SSQL = @SSQL + '[Uces]=Null, '
If @Kasa Is Not NULL
    Set @SSQL = @SSQL + '[Kasa]=' + Cast(@Kasa As Varchar(8)) + ', '
Else
    Set @SSQL = @SSQL + '[Kasa]=Null, '
If @Rok Is Not NULL
    Set @SSQL = @SSQL + '[Rok]=' + Cast(@Rok as varchar(3)) + ', '
Else
    Set @SSQL = @SSQL + '[Rok]=Null, '
If @Sifra_Pat Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Pat]=' + Cast(@Sifra_Pat As Varchar(5))+ ', '
Else
    Set @SSQL = @SSQL + '[Sifra_Pat]=Null, '
Set @SSQL = @SSQL + '[Sifra_OpIz]=''' + SUSER_SNAME() + ''', '
If @SerBr Is Not NULL
    Set @SSQL = @SSQL + '[SerBr]=''' + @SerBr + ''', '
Else
    Set @SSQL = @SSQL + '[SerBr]=Null, '
If @Kto Is Not NULL
    Set @SSQL = @SSQL + '[Kto]=''' + @Kto + ''', '
Else
    Set @SSQL = @SSQL + '[Kto]=Null, '
If @Kurs Is Not NULL
    Set @SSQL = @SSQL + '[Kurs]=' + Cast(@Kurs As Varchar(20)) + ', '
Else
    Set @SSQL = @SSQL + '[Kurs]=Null, '
If @KojaVal Is Not NULL
    Set @SSQL = @SSQL + '[KojaVal]=''' + @KojaVal + ''', '
Else
    Set @SSQL = @SSQL + '[KojaVal]=Null, '
If @Toc200 Is Not NULL
    Set @SSQL = @SSQL + '[Toc200]=' + Cast(@Toc200 as Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[Toc200]=Null, '
If @MagVr Is Not NULL
    Set @SSQL = @SSQL + '[MagVr]=' + Cast(@MagVr As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[MagVr]=Null, '
If @MagVrDan Is Not NULL
    Set @SSQL = @SSQL + '[MagVrDan]=' + Cast(@MagVrDan As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[MagVrDan]=Null, '
If @Marza Is Not NULL
    Set @SSQL = @SSQL + '[Marza]=' + Cast(@Marza As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[Marza]=Null, '
If @Danok1 Is Not NULL
    Set @SSQL = @SSQL + '[Danok1]=' + Cast(@Danok1 As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[Danok1]=Null, '
If @Danok2 Is Not NULL
    Set @SSQL = @SSQL + '[Danok2]=' + Cast(@Danok2 As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[Danok2]=Null, '
If @PDanok1 Is Not NULL
    Set @SSQL = @SSQL + '[PDanok1]=' + Cast(@PDanok1 As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[PDanok1]=Null, '
If @PDanok2 Is Not NULL
    Set @SSQL = @SSQL + '[PDanok2]=' + Cast(@PDanok2 As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[PDanok2]=Null, '
If @PTrosok Is Not NULL
    Set @SSQL = @SSQL + '[PTrosok]=' + Cast(@PTrosok As Varchar(25)) + ', '
Else
    Set @SSQL = @SSQL + '[PTrosok]=Null, '
If @DanDokCena Is Not NULL
    Set @SSQL = @SSQL + '[DanDokCena]=''' + @DanDokCena + ''', '
Else
    Set @SSQL = @SSQL + '[DanDokCena]=Null, '
If @DanMagCena Is Not NULL
    Set @SSQL = @SSQL + '[DanMagCena]=''' + @DanMagCena + ''', '
Else
    Set @SSQL = @SSQL + '[DanMagCena]=Null, '
If @CenaIznos Is Not NULL
    Set @SSQL = @SSQL + '[CenaIznos]=''' + @CenaIznos +  ''', '
Else
    Set @SSQL = @SSQL + '[CenaIznos]=Null, '
If @ProcMarza Is Not NULL
    Set @SSQL = @SSQL + '[ProcMarza]=' + Cast(@ProcMarza As Varchar(8)) + ', '
Else
    Set @SSQL = @SSQL + '[ProcMarza]=Null, '
If @Kod_Danok Is Not NULL
    Set @SSQL = @SSQL + '[Kod_Danok]=''' + @Kod_Danok + ''', '
Else
    Set @SSQL = @SSQL + '[Kod_Danok]=Null, '
If @Sifra_Nivo Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Nivo]=''' + @Sifra_Nivo + ''', '
Else
    Set @SSQL = @SSQL + '[Sifra_Nivo]=Null, '
If @Blokiran Is Not NULL
    Set @SSQL = @SSQL + '[Blokiran]=''' + @Blokiran + ''', '
Else
    Set @SSQL = @SSQL + '[Blokiran]=Null, '
If @Likvid Is Not NULL
    Set @SSQL = @SSQL + '[Likvid]=''' + @Likvid + ''', '
Else
    Set @SSQL = @SSQL + '[Likvid]=Null, '
If @DogBr Is Not NULL
    Set @SSQL = @SSQL + '[DogBr]=''' + @DogBr + ''', '
Else
    Set @SSQL = @SSQL + '[DogBr]=Null, '
If @Spremil Is Not Null
    Set @SSQL=@SSQL + '[Spremil] = ''' + @Spremil + ''', '
Else
    Set @SSQL=@SSQL + '[Spremil] = Null, '
If @Usluzna Is Not Null
    Set @SSQL=@SSQL + '[Usluzna] = ''' + @Usluzna + ''', '
If @Sifra_Nar Is Not Null
    Set @SSQL=@SSQL + '[Sifra_Nar] = ''' + cast(@Sifra_Nar as Varchar(6)) + ''', '
Else
    Set @SSQL=@SSQL + '[Sifra_Nar] = Null, '
If @Broj_Nar Is Not Null
    Set @SSQL=@SSQL + '[Broj_Nar] = ''' + cast(@Broj_Nar as Varchar(8)) + ''', '
Else
    Set @SSQL=@SSQL + '[Broj_Nar] = Null, '
If @Sifra_Mest Is Not Null
    Set @SSQL=@SSQL + '[Sifra_Mest] = ''' + cast(@Sifra_Mest as Varchar(8)) + ''', '
Else
    Set @SSQL=@SSQL + '[Sifra_Mest] = Null, '
If @Sifra_OeNar Is Not Null
    Set @SSQL=@SSQL + '[Sifra_OeNar] = ''' + cast(@Sifra_OeNar as Varchar(6))+ ''', '
Else
    Set @SSQL=@SSQL + '[Sifra_OeNar] = Null, '
If @Izrab_Nar Is Not Null
    Set @SSQL=@SSQL + '[Izrab_Nar] = ''' + cast(@Izrab_Nar as Varchar(6))+ ''', '
Else
    Set @SSQL=@SSQL + '[Izrab_Nar] = Null, '
If @KojaSmetka  Is Not NULL
    Set @SSQL = @SSQL + '[KojaSmetka]=''' + @KojaSmetka + ''', '
Else
    Set @SSQL = @SSQL + '[KojaSmetka]=Null, '
Set @SSQL = @SSQL + ' KasaPoDDV = ' + Cast(@KasaPoDDV As varchar(10)) + ', '
If @Spec_Forma_Pec Is Not Null
    Set @SSQL = @SSQL + '[Spec_Forma_Pec]=''' + @Spec_Forma_Pec + ''', '
Else
    Set @SSQL = @SSQL + '[Spec_Forma_Pec]=Null, '
If @Sifra_Prev  Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Prev]=''' + @Sifra_Prev + ''', '
Else
    Set @SSQL = @SSQL + '[Sifra_Prev]=Null, '
If @Sifra_Div Is Not Null
    Set @SSQL = @SSQL + '[Sifra_Div] = ' + cast(@Sifra_Div as Varchar(6))+ ', '
Else
    Set @SSQL = @SSQL + '[Sifra_Div] = Null, '
If @Plat_PerDan Is Not Null
    Set @SSQL = @SSQL + ' Plat_PerDan=' + Cast(@Plat_PerDan As Varchar(30)) + ', '
Else
    Set @SSQL = @SSQL + ' Plat_PerDan=0, '
If @Proc_PerDan Is Not Null
    Set @SSQL = @SSQL + ' Proc_PerDan=' + Cast(@Proc_PerDan As Varchar(30)) + ', '
Else
    Set @SSQL = @SSQL + ' Proc_PerDan=0, '
If @Sifra_Kor Is Not NULL
    Set @SSQL = @SSQL + '[Sifra_Kor]=''' + @Sifra_Kor + ''', '
Else
    Set @SSQL = @SSQL + '[Sifra_Kor]=Null, '

If @Broj_Proekt Is Not Null
    Set @SSQL = @SSQL + ' Broj_Proekt=' + Cast(@Broj_Proekt As Varchar(10)) + ', '
Else
    Set @SSQL = @SSQL + ' Broj_Proekt=null, '

If @Datum_Ispor Is Not Null
    SET @SSQL = @SSQL + ' Datum_Ispor=''' + Cast(@Datum_Ispor As Varchar(25)) + ''', '
Else
    SET @SSQL = @SSQL + ' Datum_Ispor=null, '


----  KOGA SE DODAVAAT NOVI POLINJA DODAVAJ GI OVDE GORE....
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If @TekstPred Is Not Null And @TekstPred <> ' ' And @TekstPosle Is Not Null And @TekstPosle <> ' '    ---------
Begin                                                    ---------
    While Len(@SSQL) + Len(@TekstPred) + Len(@TekstPosle) > 3900                ---------
    Begin                                                ---------
        If Len(@TekstPred) > 100                                ---------
            Set @TekstPred = Substring(@TekstPred, 1, Len(@TekstPred) - 100)        ---------
        If Len(@TekstPosle) > 100                                ---------
            Set @TekstPosle = Substring(@TekstPosle, 1, Len(@TekstPosle) - 100)        ---------
                                                    ---------
        If Len(@SSQL) + Len(@TekstPred) + Len(@TekstPosle) <= 3900                ---------
        Begin                                            ---------
            Set @TekstPred = @TekstPred + '...'                        ---------
            Set @TekstPosle = @TekstPosle + '...'                         ---------
        End                                            ---------
    End                                                ---------
End                                                    ---------
If @TekstPred Is Not NULL                                        ---------
    Set @SSQL = @SSQL + '[TekstPred]=N''' + @TekstPred + ''', '                    ---------
Else                                                    ---------
    Set @SSQL = @SSQL + '[TekstPred]=Null, '                            ---------
If @TekstPosle Is Not NULL                                        ---------
    Set @SSQL = @SSQL + '[TekstPosle]=N''' + @TekstPosle + ''' '                    ---------
Else                                                    ---------
    Set @SSQL = @SSQL + '[TekstPosle]=Null '                            ---------
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----  ... A <<<<<< NE >>>>>>> OVDE

----------------------------------------- OVA E USLOVOT - NE CEPKAJ ----------------------------------------------------------------------------------------
If @Sifra_OE Is Not NULL                                        ---------
    Set @SSQL = @SSQL + 'WHERE [Sifra_OE]=' + Cast(@Sifra_OE As Varchar(5)) + ' '        ---------
If @Sifra_Dok Is Not NULL                                        ---------
    Set @SSQL = @SSQL + '  AND [Sifra_Dok]=' + Cast(@Sifra_Dok As Varchar(5)) + ' '            ---------
If @Broj_Dok Is Not NULL                                        ---------
    Set @SSQL = @SSQL + '  AND [Broj_Dok]=' + Cast(@Broj_Dok As Varchar(10)) + ' '            ---------
If @Sifra_Prim Is Not Null                                            ---------
    Set @SSQL = @SSQL + 'AND Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '            ---------
If @ImaDodatna Is Not Null                                        ---------
    Set @SSQL = @SSQL + 'AND ImaDodatna=''' + @ImaDodatna + ''' '                ---------
Exec(@SSQL)                                                ---------
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokrabnal]'))
drop procedure [dbo].[sp_izmenidokrabnal]

Go

CREATE     PROCEDURE [dbo].[sp_IzmeniDokRabNal]
    @DokrID            int,
    @RabNalID        Int,
    @Tip_RabStav        Char(1),
    @Grupa_DokRab        smallint,
    @Opis            Varchar(50),
    @Sifra_rab        int,
    @Sifra_mas        char(15),
    @Sifra_OE        smallint,
    @Datum_Dok        smalldatetime,
    @KaloProc        decimal(6,2) = Null,
    @Sifra_Otkr        smallint = Null,
    @Sifra_Smena        int = Null,
    @Kolic_Topli        decimal(18,4)=NULL,
    @PoluprDali            char(1) = Null,
    @RabNalID_Zap            int = NULL

AS

    UPDATE DokRabNal
    SET RabNalID=@RabNalID, Tip_RabStav=@Tip_RabStav, Grupa_DokRab=@Grupa_DokRab, DokrID=@DokrID, Opis=@Opis,
        Sifra_rab=@Sifra_rab, Sifra_mas=@Sifra_mas, Sifra_OE=@Sifra_OE, Datum_Dok=@Datum_Dok, KaloProc=@KaloProc, Sifra_Otkr=@Sifra_Otkr,
        Sifra_Smena=@Sifra_Smena, Kolic_Topli=@Kolic_Topli, PoluprDali = @PoluprDali,
        RabNalID_Zap = @RabNalID_Zap
    WHERE DokrID=@DokrID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokrzb]'))
drop procedure [dbo].[sp_izmenidokrzb]

Go

CREATE   PROCEDURE [dbo].[sp_IzmeniDokrZb]
    @DokrZbID int,
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @Sifra_Nal Smallint,
    @Broj_Nal int,
    @Identif_Br varchar(25),
    @Opis varchar(50),
    @Sifra_Kup char(6),
    @Sifra_Obj Smallint,
    @Datum_Dok smalldatetime,
    @Rok smallint,
    @Kasa decimal(6,2),
    @Sifra_Pat smallint,
    @Kto char(6),
    @Toc200 decimal(18,4),
    @Danok1 decimal(18,4),
    @Danok2 decimal(18,4),
    @KojaSmetka char (1),
    @Spec_Forma_Pec varchar(10) = Null,
    @Sifra_Prev    char(6) = Null,
    @Datum_Ispor smalldatetime=null
AS
    UPDATE DokrZb SET  Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal,
    Identif_Br=@Identif_Br, Opis=@Opis, Sifra_Kup=@Sifra_Kup, Sifra_Obj=@Sifra_Obj,
    Datum_Dok=@Datum_Dok, Kasa=@Kasa, Rok=@Rok, Sifra_Pat=@Sifra_Pat,
    Kto=@Kto, Toc200=@Toc200, Danok1=@Danok1, Danok2=@Danok2,
    KojaSmetka=@KojaSmetka, Spec_Forma_Pec=@Spec_Forma_Pec, Sifra_Prev=@Sifra_Prev, Datum_Ispor=@Datum_Ispor
    WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok
Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidokrzb_prevoznik]'))
drop procedure [dbo].[sp_izmenidokrzb_prevoznik]

Go

CREATE  PROCEDURE sp_IzmeniDokrZB_Prevoznik
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Prev    char(6)
AS
    Update DokrZB
    Set Sifra_Prev=@Sifra_Prev
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok = @Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidoznaki]'))
drop procedure [dbo].[sp_izmenidoznaki]

Go







CREATE         PROCEDURE [dbo].[sp_IzmeniDoznaki]
        @Broj_Doznaka            int,
                @Sif_Nalogodav       char(6),
        @Sif_Banka           char(6),
        @Nalog_Opis       varchar(50) = null,
        @Nalog_Broj       varchar(15) = null,
        @Nac_Plak         varchar(50) = null,
        @Nac_Plak_Sifra   varchar(15) = null,
        @Vo_Korist        varchar(120) = null,
        @Vo_Korist_Sifra        char(3) = null,
        @Koja_Banka        varchar(120) = null,
        @Koja_Banka_Sifra   varchar(10) = null,
        @KojaVal               char(3) = null,
                @Dat_Dosp        smalldatetime = null,
                @Sif_Osn1               char(5) = null,
        @Sif_Osn2               char(5) = null,
        @Sif_Osn3               char(5) = null,
        @Sif_Osn4               char(5) = null,
        @Sif_Osn5               char(5) = null,
        @Br_Dok1               char(6) = null,
        @Br_Dok2               char(6) = null,
        @Br_Dok3               char(6) = null,
        @Br_Dok4               char(6) = null,
        @Br_Dok5               char(6) = null,
        @Opis_Tr1          varchar(50) = null,
        @Opis_Tr2          varchar(50) = null,
        @Opis_Tr3          varchar(50) = null,
        @Opis_Tr4          varchar(50) = null,
        @Opis_Tr5          varchar(50) = null,
        @Izn_Val1    decimal(18,6) = Null,
        @Izn_Val2    decimal(18,6) = Null,
        @Izn_Val3    decimal(18,6) = Null,
        @Izn_Val4    decimal(18,6) = Null,
        @Izn_Val5    decimal(18,6) = Null,
        @Zabeleska       varchar(120) = null,
        @Pod_Firma       char(17) = null,
        @Mesto       char(10) = null,
        @Br_Akr       char(10) = null,
        @Datum       smalldatetime = null,
        @Vo       char(20) = null,
        @NeOtpAkr       char(1) = null,
        @OtpAkr       char(1) = null,
        @PrenAkr       char(1) = null,
        @NePrenAkr       char(1) = null,
        @KonfAkr       char(1) = null,
        @NeKonfAkr       char(1) = null,
        @StrBanka       varchar(200) = null,
        @ImeKor       varchar(150) = null,
        @So_Sto       char(1) = null,
        @MestoTov       char(41) = null,
        @NajkasnoDo       smalldatetime = null,
        @Prevoz_Do       varchar(20) = null,
        @Delumno       char(1) = null,
        @Pretovar       char(1) = null,
        @NacPlak       char(1) = null,
        @Prez_Dok       varchar(250) = null,
        @StrJaz       varchar(150) = null,
        @FOB       varchar(10) = null,
        @C_F       varchar(10) = null,
        @CIF       varchar(10) = null,
        @Dena_Rok       int = null,
        @Proviz_Tr_Str       char(1) = null,
        @Rok_Do       smalldatetime = null,
        @Pos_Zabel       varchar(50) = null,
        @TrosNaBanki       char(1) = null
AS
    UPDATE [Doznaki]
    SET [Sif_Nalogodav]=@Sif_Nalogodav, [Sif_Banka]=@Sif_Banka, [Nalog_Opis]=@Nalog_Opis, [Nalog_Broj]=@Nalog_Broj,
            [Nac_Plak]=@Nac_Plak, [Nac_Plak_Sifra]=@Nac_Plak_Sifra, [Vo_Korist]=@Vo_Korist, [Vo_Korist_Sifra]=@Vo_Korist_Sifra,
        [Koja_Banka]=@Koja_Banka, [Koja_Banka_Sifra]=@Koja_Banka_Sifra, [KojaVal]=@KojaVal,
            [Dat_Dosp]=@Dat_Dosp, [Sif_Osn1]=@Sif_Osn1, [Sif_Osn2]=@Sif_Osn2, [Sif_Osn3]=@Sif_Osn3, [Sif_Osn4]=@Sif_Osn4, [Sif_Osn5]=@Sif_Osn5,
        [Br_Dok1]=@Br_Dok1, [Br_Dok2]=@Br_Dok2, [Br_Dok3]=@Br_Dok3, [Br_Dok4]=@Br_Dok4, [Br_Dok5]=@Br_Dok5,
        [Opis_Tr1]=@Opis_Tr1, [Opis_Tr2]=@Opis_Tr2, [Opis_Tr3]=@Opis_Tr3, [Opis_Tr4]=@Opis_Tr4, [Opis_Tr5]=@Opis_Tr5,
            [Izn_Val1]=@Izn_Val1, [Izn_Val2]=@Izn_Val2, [Izn_Val3]=@Izn_Val3, [Izn_Val4]=@Izn_Val4, [Izn_Val5]=@Izn_Val5,
            [Zabeleska]=@Zabeleska, [Dat_Vnes]=getdate(), [Pod_Firma]=@Pod_Firma, [Mesto]=@Mesto,
        [Br_Akr]=@Br_Akr, [Datum]=@Datum, [Vo]=@Vo, [NeOtpAkr]=@NeOtpAkr, [OtpAkr]=@OtpAkr, [PrenAkr]=@PrenAkr,
            [NePrenAkr]=@NePrenAkr, [KonfAkr]=@KonfAkr, [NeKonfAkr]=@NeKonfAkr, [StrBanka]=@StrBanka, [imekor]=@ImeKor,
            [So_Sto]=@So_Sto, [MestoTov]=@MestoTov, [NajkasnoDo]=@NajkasnoDo, [Prevoz_Do]=@Prevoz_Do, [Delumno]=@Delumno,
            [Pretovar]=@Pretovar, [NacPlak]=@NacPlak, [Prez_Dok]=@Prez_Dok, [StrJaz]=@StrJaz, [FOB]=@FOB, [C_F]=@C_F, [CIF]=@CIF,
            [Dena_Rok]=@Dena_Rok, [Proviz_Tr_Str]=@Proviz_Tr_Str, [Rok_Do]=@Rok_Do, [Pos_Zabel]=@Pos_Zabel, [TrosNaBanki]=@TrosNaBanki
       WHERE [Broj_Doznaka]=@Broj_Doznaka
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo1]'))
drop procedure [dbo].[sp_izmenidrugo1]

Go


CREATE      PROCEDURE sp_IzmeniDrugo1
    @Sifra Smallint,
    @Ime varchar(30),
    @CenaParam decimal(18, 6) = 0,
    @CenaParam2 decimal(18, 6) = 0,
    @Kompr char(1) = Null

AS

    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo1]
    SET [Ime_1]=@Ime, [Propagiraj]=@Propagiraj,
        CenaParam = @CenaParam,
        CenaParam2 = @CenaParam2,
        Kompr = @Kompr
    WHERE [Sifra_1]=@Sifra

RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo2]'))
drop procedure [dbo].[sp_izmenidrugo2]

Go

CREATE     PROCEDURE sp_IzmeniDrugo2
    @Sifra Smallint,
    @Ime varchar(30),
    @Sirina    decimal(9,3) = Null,
    @Visina    decimal(9,3) = Null,
    @DodOzn2 varchar (30) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo2]
    SET [Ime_2]=@Ime, [Propagiraj]=@Propagiraj,
            Sirina=@Sirina, Visina=@Visina, DodOzn2=@DodOzn2
    WHERE [Sifra_2]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo3]'))
drop procedure [dbo].[sp_izmenidrugo3]

Go
CREATE    PROCEDURE sp_IzmeniDrugo3
    @Sifra Smallint,
    @Ime varchar(30),
    @Tezina decimal(9,3) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo3]
    SET [Ime_3]=@Ime, [Propagiraj]=@Propagiraj, Tezina=@Tezina
    WHERE [Sifra_3]=@Sifra
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo4]'))
drop procedure [dbo].[sp_izmenidrugo4]

Go


CREATE     PROCEDURE sp_IzmeniDrugo4
    @Sifra Smallint,
    @Ime varchar(30),
    @Poraka nvarchar(500) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo4]
    SET [Ime_4]=@Ime, [Propagiraj]=@Propagiraj, Poraka=@Poraka
    WHERE [Sifra_4]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo5]'))
drop procedure [dbo].[sp_izmenidrugo5]

Go
CREATE    PROCEDURE sp_IzmeniDrugo5
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo5]
    SET [Ime_5]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_5]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo6]'))
drop procedure [dbo].[sp_izmenidrugo6]

Go

CREATE     PROCEDURE sp_IzmeniDrugo6
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Drugo6]
    SET [Ime_6]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_6]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrugo7]'))
drop procedure [dbo].[sp_izmenidrugo7]

Go


CREATE      PROCEDURE sp_IzmeniDrugo7
    @Sifra Smallint,
    @Ime varchar(30),
    @FormulaP varchar(500) = Null

AS

    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'

    UPDATE [Drugo7]
    SET [Ime_7]=@Ime,
        [Propagiraj]=@Propagiraj,
        FormulaP = @FormulaP
    WHERE [Sifra_7]=@Sifra


    RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenidrzava]'))
drop procedure [dbo].[sp_izmenidrzava]

Go



create  PROCEDURE [dbo].[sp_IzmeniDrzava]

    @Str_Drzava            char(3),
    @Ime_Drzava            nvarchar(100),
    @Osnov                nvarchar(100)

AS
    Update Drzava
    Set Ime_Drzava = @Ime_Drzava, Osnov= @Osnov
    Where Str_Drzava = @Str_Drzava

    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniedmerilist]'))
drop procedure [dbo].[sp_izmeniedmerilist]

Go

create  PROCEDURE sp_IzmeniEdMeriList

    @EdMera    char(5),
    @ImeEdMera    nvarchar(30),
    @OpisEdMera    nvarchar(50)
AS

    Update EdMeriList
    Set ImeEdMera=@ImeEdMera, OpisEdMera=@OpisEdMera
    Where EdMera=@EdMera



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenievdekl]'))
drop procedure [dbo].[sp_izmenievdekl]

Go


CREATE   procedure SP_IzmeniEvDekl
    @Godina smallint,
    @Rbr int,
    @Datum_dok smalldatetime,
    @Cas char(5),
    @Sifra_Oe smallint,
    @Sifra_Dok smallint,
    @Broj_Dok smallint,
    @Br_Paketi int,
    @BrojDok varchar(20),
    @Reg_Vozilo varchar(20),
    @R_Broj varchar(20),
    @A_Broj varchar(20),
    @Sifra_kup varchar(20),
    @Gran_premin varchar(20),
    @W_Broj varchar(20),
    @R_Broj_Dop varchar(20)
As
    Update EvDekl
    set Datum_dok=@Datum_dok,Cas=@Cas ,Br_Paketi=@Br_Paketi ,BrojDok=@BrojDok ,
    Reg_Vozilo=@Reg_Vozilo ,R_Broj=@R_Broj,A_Broj=@A_Broj,Sifra_kup=@Sifra_kup,
    Gran_premin=@Gran_premin,W_Broj=@W_Broj ,R_Broj_Dop=@R_Broj_Dop
    where Godina=@Godina  and Rbr=@Rbr
    return @@error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifarmacevt]'))
drop procedure [dbo].[sp_izmenifarmacevt]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniFarmacevt]

    @Sifra_Farmacevt    char(6),
    @ImeFarmacevt        nchar(40),
    @Faksimil            char(6)

AS

    Update Farmacevt
    Set ImeFarmacevt = @ImeFarmacevt, Faksimil = @Faksimil
    Where Sifra_Farmacevt = @Sifra_Farmacevt

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifazi]'))
drop procedure [dbo].[sp_izmenifazi]

Go


CREATE    PROCEDURE sp_IzmeniFazi
        @Sifra_Faza smallint,
        @Ime_Faza Varchar(50),
        @Sifra_oe int= null
AS
    UPDATE Fazi
    SET Ime_Faza=@Ime_Faza, Sifra_oe=@Sifra_oe
    WHERE Sifra_Faza=@Sifra_Faza
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifiskprom]'))
drop procedure [dbo].[sp_izmenifiskprom]

Go

CREATE   PROCEDURE sp_IzmeniFiskProm
    @Sifra_Oe    smallint,
    @Datum_Dok    smalldatetime,
    @BrKasa    smallint,
    @Tar1        decimal(18,4),
    @Tar2        decimal(18,4),
    @Tar0        decimal(18,4),
    @Gotovina    decimal(18,4),
    @Cek        decimal(18,4),
    @Kredit        decimal(18,4),
    @Posn1    decimal(6,2),
    @Posn2    decimal(6,2),
    @Br_Smetki     int = 0,
    @Linii         int = 0,
    @Promet    decimal(18,6),
    @Predadeno    decimal(18,6),
    @Pocetno    decimal(18,6),
    @OstVoKasa    decimal(18,6),
    @Dr_Izlezi    decimal(18,6),
    @Danok1    decimal(18,6) = Null,
    @Danok2    decimal(18,6) = Null,
    @Prenesen char(1)= null
AS
    Update FiskProm
    Set Tar1=@Tar1, Tar2=@Tar2, Tar0=@Tar0, Gotovina=@Gotovina, Cek=@Cek, Kredit=@Kredit, Posn1=@Posn1, Posn2=@posn2,
        Br_Smetki = @Br_Smetki, Linii = @Linii, Promet=@Promet, Predadeno=@Predadeno, Pocetno=@Pocetno, OstVoKasa=@OstVoKasa, Dr_Izlezi=@Dr_Izlezi,
        Danok1=@Danok1, Danok2=@Danok2, Prenesen=@Prenesen
    Where Sifra_Oe=@Sifra_Oe and Datum_Dok=@Datum_Dok and BrKasa = @BrKasa
    Return @@Error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifistavki]'))
drop procedure [dbo].[sp_izmenifistavki]

Go
CREATE PROCEDURE sp_IzmeniFiStavki
    @FiID        smallint,
    @RbrFi        smallint,
    @Opis        nvarchar(200),
    @Sifra_Oe    smallint,
    @Sifra_GrOrg    char(6),
    @OdKade    char(10),
    @Znak        char(1),
    @Sifra        varchar(20)
AS
    Update FiStavki
    Set Opis=@Opis, Sifra_Oe=@Sifra_Oe, Sifra_GrOrg=@Sifra_GrOrg, OdKade=@OdKade, Znak=@Znak, Sifra=@Sifra
    Where FiID=@FiID and RbrFi=@RbrFi
    Return @@Error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifitabela]'))
drop procedure [dbo].[sp_izmenifitabela]

Go
CREATE  PROCEDURE sp_IzmeniFiTabela
    @FiID            smallint,
    @Ime            nvarchar(40),
    @Ime2            nvarchar(40) = Null,
    @Kto_Anal_Raspr    char(10) = Null,
    @Kto_Anal        char(10) = Null,
    @Egzaktno_KtoRaspr    char(1) = 'N'
AS
    Update FiTabela
    Set Ime=@Ime, Ime2=@Ime2, Kto_Anal_Raspr=@Kto_Anal_Raspr, Kto_Anal=@Kto_Anal, Egzaktno_KtoRaspr=@Egzaktno_KtoRaspr
    Where FiID=@FiID
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifixtekst]'))
drop procedure [dbo].[sp_izmenifixtekst]

Go


CREATE     PROCEDURE sp_IzmeniFixTekst
    @Sifra_FixTekst Smallint,
    @Ime_FixTekst char(30),
    @Fix_Tekst nvarchar(1500)
AS
    UPDATE FixTekst
    SET Ime_FixTekst = @Ime_FixTekst, Fix_Tekst = @Fix_Tekst
    WHERE Sifra_FixTekst = @Sifra_FixTekst
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenifixtekstn]'))
drop procedure [dbo].[sp_izmenifixtekstn]

Go



CREATE      PROCEDURE sp_IzmeniFixTekstN
    @Sifra_FixTekst Smallint,
    @Ime_FixTekst char(30),
    @Fix_Tekst nvarchar(1500)
AS
    UPDATE FixTekstN
    SET Ime_FixTekst = @Ime_FixTekst, Fix_Tekst = @Fix_Tekst
    WHERE Sifra_FixTekst = @Sifra_FixTekst
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniformuladef]'))
drop procedure [dbo].[sp_izmeniformuladef]

Go

CREATE  procedure sp_IzmeniFormulaDef
    @Sifra_Formula varchar(20),
    @Ime_formula varchar(40),
    @Formula1 varchar(500),
    @DaliZaok char(1),
    @BrDecimali smallint
as
    update FormulaDef
    Set Ime_Formula=@Ime_Formula, Formula1=@Formula1, DaliZaok=@DaliZaok, BrDecimali=@BrDecimali
    where Sifra_Formula=@Sifra_Formula
return @@error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniforsk]'))
drop procedure [dbo].[sp_izmeniforsk]

Go
CREATE procedure sp_IzmeniForsK
As
    Declare @ssql as varchar(300)
    Set @ssql='Update konfig Set forsk=Forsk+1 '
    exec(@ssql)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrad]'))
drop procedure [dbo].[sp_izmenigrad]

Go
CREATE  PROCEDURE sp_IzmeniGrad
    @Sifra_Grad Smallint,
    @ImeGrad varchar(20),
    @Oddalecenost decimal(9,2) = Null,
    @BrZiteli int = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [Grad]
    SET [ImeGrad]=@ImeGrad, [Propagiraj]=@Propagiraj, [Oddalecenost]=@Oddalecenost, BrZiteli=@BrZiteli
    WHERE [Sifra_Grad]=@Sifra_Grad
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigranal]'))
drop procedure [dbo].[sp_izmenigranal]

Go

CREATE PROCEDURE sp_IzmeniGrAnal
    @Kto_GrAn    Char(2),
    @ImeGrAn    varChar(40),
    @ImeGrAn2    varchar(40),
    @SImeGrAn    varChar(40),
    @SImeGrAn2    varchar(40)
AS
    Declare @Klas    char(3)
    SELECT @Klas = Kto_Klas FROM Klas WHERE Kto_Klas = Substring(@Kto_GrAn,1,1)
    If @Klas IS NULL
         INSERT INTO Klas (Kto_Klas, ImeKlasa) VALUES (Substring(@Kto_GrAn,1,1), 'Klasa')
    UPDATE [GrAnal]
    SET [ImeGrAn]=@ImeGrAn, [ImeGrAn2]=@ImeGrAn2, [SImeGrAn]=@SImeGrAn, [SImeGrAn2]=@SImeGrAn2,
    Kto_Klas = Substring(@Kto_GrAn,1,1)
    WHERE [Kto_GrAn]=@Kto_GrAn
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigranalplan]'))
drop procedure [dbo].[sp_izmenigranalplan]

Go
CREATE Procedure [dbo].[sp_IzmeniGrAnalPlan]
    @Sif_GrAnalPlan    nvarchar(30),
    @Ime_GrAnalPlan    nvarchar(100)
As
    Update GrAnalPlan
    Set    Ime_GrAnalPlan=@Ime_GrAnalPlan
    Where Sif_GrAnalPLan=@Sif_GrAnalPLan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigranalplanst]'))
drop procedure [dbo].[sp_izmenigranalplanst]

Go
CREATE Procedure sp_IzmeniGrAnalPlanSt
    @Sif_GrAnalPlan    nvarchar(30),
    @Kto_Anal    varchar(10)
As
    Update GrAnalPlanSt
    Set Kto_anal=@Kto_Anal
    Where Sif_GrAnalPlan=@Sif_GrAnalPlan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrart]'))
drop procedure [dbo].[sp_izmenigrart]

Go
create     PROCEDURE sp_IzmeniGrArt
    @Sif_GrArt char(6),
    @Ime_GrArt Char(30),
    @Aktivna   char(1)

AS
UPDATE GrArt  SET  Ime_GrArt=@Ime_GrArt, Aktivna=@Aktivna
WHERE Sif_GrArt=@Sif_GrArt
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigregion]'))
drop procedure [dbo].[sp_izmenigregion]

Go
CREATE  PROCEDURE sp_IzmeniGRegion
    @Sifra_Reg Smallint,
    @ImeRegion Varchar(40)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [GRegion]
    SET [ImeRegion]=@ImeRegion, [Propagiraj]=@Propagiraj
    WHERE [Sifra_Reg]=@Sifra_Reg
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrkup]'))
drop procedure [dbo].[sp_izmenigrkup]

Go




CREATE     PROCEDURE sp_IzmeniGrKup
    @Sif_GrKup char(6),
    @Ime_GrKup Char(30),
    @Aktivna   char(1)

AS
UPDATE GrKup  SET  Ime_GrKup=@Ime_GrKup, Aktivna=@Aktivna
WHERE Sif_GrKup=@Sif_GrKup
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrnar]'))
drop procedure [dbo].[sp_izmenigrnar]

Go


CREATE   PROCEDURE sp_IzmeniGrNar
    @Sifra_GrNar    smallint,
    @ImeGrNar    char(30),
        @VlIzlNar       char(1),
        @SifNarZatv     smallint
AS
    Update GrNar
    Set  ImeGrNar=@ImeGrNar, VlIzlNar=@VlIzlNar, SifNarZatv=@SifNarZatv
    Where Sifra_GrNar=@Sifra_GrNar
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrorg]'))
drop procedure [dbo].[sp_izmenigrorg]

Go





CREATE      PROCEDURE sp_IzmeniGrOrg
    @Sif_GrOrg char(6),
    @Ime_GrOrg Char(30),
    @Edinstvena char(1),
    @Aktivna   char(1),
    @GotovPro char(1)=NULL,
    @ZaedPlanCeni char(1)= NULL,
    @DaliPogon char(1)=NULL,
    @Oznaka varchar(10)=NULL
AS
UPDATE GrOrg  SET  Ime_GrOrg=@Ime_GrOrg, Edinstvena=@Edinstvena, Aktivna=@Aktivna,
GotovPro=@GotovPro, ZaedPlanCeni=@ZaedPlanCeni, DaliPogon=@DaliPogon, Oznaka = @Oznaka WHERE Sif_GrOrg=@Sif_GrOrg
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrpat]'))
drop procedure [dbo].[sp_izmenigrpat]

Go
CREATE    PROCEDURE sp_IzmeniGrPat
    @Sif_GrPat char(6),
    @Ime_GrPat Char(30)
AS
    UPDATE GrPat
    SET  Ime_GrPat=@Ime_GrPat
    WHERE Sif_GrPat=@Sif_GrPat
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrupa]'))
drop procedure [dbo].[sp_izmenigrupa]

Go
CREATE   PROCEDURE [dbo].[sp_IzmeniGrupa]
    @Sifra_Gr        varchar(6),
    @Ime_Gr        nvarchar(25),
    @Sifra_PodOblast    varchar(10) = NULL

AS
    SET NOCOUNT ON

    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'

    UPDATE    [Grupi]
    SET        [Ime_Gr] = @Ime_Gr,
            [Propagiraj] = @Propagiraj,
            [Sifra_PodOblast] = @Sifra_PodOblast
    WHERE    [Sifra_Gr] = @Sifra_Gr

    RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigrupaweb]'))
drop procedure [dbo].[sp_izmenigrupaweb]

Go
CREATE PROCEDURE sp_IzmeniGrupaWeb
    @Sifra_GrWeb    smallint,
    @Ime_GrWeb    nvarchar(40)
AS
    Update GrupaWeb
    Set Ime_GrWeb=@Ime_GrWeb
    Where Sifra_GrWeb=@Sifra_GrWeb
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigstav]'))
drop procedure [dbo].[sp_izmenigstav]

Go
CREATE   PROCEDURE sp_IzmeniGStav
    @GStID     int,
    @Sifra_Nal    smallint,
    @Broj_Nal    int,
    @Datum_Nal    smalldatetime,
    @Datum_Dok    smalldatetime,
    @Sifra_OE    smallint,
    @FDrugo1    smallint,
    @FDrugo2    smallint,
    @FDrugo3    smallint,
    @Kto_Anal    char(10),
    @Dolzi        decimal(18,4),
    @Pobaruva    decimal(18,4),
    @Dev_Dolzi    decimal(18,4),
    @Dev_Pobaruva decimal(18,4),
    @Kurs        decimal(18,4),
    @KojaVal    char(3),
    @Str_Kto    varchar(10),
    @Bazna_Dolzi    decimal(18,4),
    @Bazna_Pobaruva    Decimal(18,4),
    @OdKade    char(1),
    @Sts_Kniz    char(1),
    @KolkuVrski    int,
    @RbrNalog    smallint,
    @Opis        varchar(40),
    @Opis2        varchar(40) = Null,
    @Sifra_Div    smallint = Null
AS
    UPDATE  GStav SET
    Sifra_Nal = @Sifra_Nal, Broj_Nal = @Broj_Nal, Datum_Nal = @Datum_Nal,     Datum_Dok = @Datum_Dok,
    Sifra_OE = @Sifra_OE, FDrugo1 = @FDrugo1, FDrugo2 = @FDrugo2, FDrugo3 = @FDrugo3,
    Kto_Anal = @Kto_Anal, Dolzi = @Dolzi, Pobaruva = @Pobaruva, Dev_Dolzi = @Dev_Dolzi,
    Dev_Pobaruva = @Dev_Pobaruva, Kurs = @Kurs, KojaVal = @KojaVal, Str_Kto = @Str_Kto,
    Bazna_Dolzi = @Bazna_Dolzi, Bazna_Pobaruva = @Bazna_Pobaruva, OdKade = @OdKade,
    Sts_Kniz = @Sts_Kniz, KolkuVrski = @KolkuVrski,    RbrNalog = @RbrNalog,     Opis = @Opis, Opis2=@Opis2,
    Datum_Izm = GetDate(), Sifra_OpIz = SUser_SName(), Sifra_Div=@Sifra_Div
    WHERE GStID = @GStID
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigstavotvkniz]'))
drop procedure [dbo].[sp_izmenigstavotvkniz]

Go

CREATE       PROCEDURE sp_IzmeniGstavOtvKniz
    @GStID             int,
    @VrsDolzi        decimal(18,4),
    @VrsPobar        decimal(18,4),
    @VrsDevDolzi    decimal(18,4),
    @VrsDevPobar    decimal(18,4)
AS
    UPDATE GStav SET
    Dolzi = Dolzi - @VrsDolzi ,
    Pobaruva = Pobaruva - @VrsPobar ,
    Dev_Dolzi = Dev_Dolzi - @VrsDevDolzi ,
    Dev_Pobaruva = Dev_Pobaruva - @VrsDevPobar ,
    KolkuVrski = KolkuVrski - 1
    WHERE GStID = @GStId

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigstavskr]'))
drop procedure [dbo].[sp_izmenigstavskr]

Go

CREATE   PROCEDURE sp_IzmeniGStavSkr
    @GStID     int,
    @Dolzi        decimal(18,4),
    @Pobaruva    decimal(18,4),
    @Dev_Dolzi    decimal(18,4),
    @Dev_Pobaruva decimal(18,4)
AS
    UPDATE  GStav SET
    Dolzi = Dolzi+@Dolzi, Pobaruva = Pobaruva+@Pobaruva, Dev_Dolzi = Dev_Dolzi+@Dev_Dolzi, Dev_Pobaruva = Dev_Pobaruva+@Dev_Pobaruva
    WHERE GStID = @GStID
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigstavsovrska]'))
drop procedure [dbo].[sp_izmenigstavsovrska]

Go
CREATE    PROCEDURE  sp_IzmeniGStavSoVrska
    @GStID    Int,
    @DP        char(1),
    @DokrID    int,
    @Iznos        decimal(18,2)
AS
    Declare @IznosSt  decimal(18,2)
    IF @DP = 'D'
        SELECT @IznosSt = Dolzi FROM FAvtVrski WHERE GStID = @GStID AND DokrID = @DokrID AND Dolzi <> 0
    ELSE
        SELECT @IznosSt = Pobaruva FROM FAvtVrski WHERE GStID = @GStID AND DokrID = @DokrID AND Pobaruva <> 0
    IF @DP = 'D'
    Begin
        UPDATE GStav SET Dolzi = Dolzi - @IznosSt + @Iznos WHERE GStID = @GStID
        UPDATE FAvtVrski SET Dolzi = @Iznos WHERE GStID = @GStID AND DokrID = @DokrID AND Dolzi <> 0
    End
    ELSE
    Begin
        UPDATE GStav SET Pobaruva = Pobaruva - @IznosSt + @Iznos WHERE GStID = @GStID
        UPDATE FAvtVrski SET Pobaruva = @Iznos WHERE GStID = @GStID AND DokrID = @DokrID AND Pobaruva <> 0
    End
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenigtipkup]'))
drop procedure [dbo].[sp_izmenigtipkup]

Go
CREATE  PROCEDURE sp_IzmeniGTipKup
    @TipKup Varchar(11),
    @ImeTipKup Varchar(40)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [GTipKup]
    SET [ImeTipKup]=@ImeTipKup, [Propagiraj]=@Propagiraj
    WHERE [TipKup]=@TipKup
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenihilzni]'))
drop procedure [dbo].[sp_izmenihilzni]

Go

CREATE   PROCEDURE sp_IzmeniHilzni
        @Sifra_Hilzna smallint,
        @Ime_Hilzna Varchar(50),
        @Tezina_Hilzna decimal(18,6),
        @Sirina_Hilzna decimal(18,6),
        @Precnik_Hilzna decimal(18,6),
        @Aktivna char(1)
AS
    UPDATE Hilzni
    SET Ime_Hilzna=@Ime_Hilzna, Tezina_Hilzna=@Tezina_Hilzna, Sirina_Hilzna=@Sirina_Hilzna,  Precnik_Hilzna = @Precnik_Hilzna,  Aktivna=@Aktivna
    WHERE Sifra_Hilzna=@Sifra_Hilzna
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikarakterist]'))
drop procedure [dbo].[sp_izmenikarakterist]

Go



CREATE     PROCEDURE sp_IzmeniKarakterist
    @Sifra_Karakt    SMALLINT,
    @ImeKarakt    NVARCHAR(40),
    @SkrOzn        varchar (30) = Null,
    @MaxDec        smallint = Null,
    @DefVredn    decimal (18, 6) = 0

AS

    UPDATE Karakterist
    SET ImeKarakt = @ImeKarakt,
        SkrOzn = @SkrOzn,
        MaxDec = @MaxDec,
        DefVredn = @DefVredn
    WHERE Sifra_Karakt = @Sifra_Karakt








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikartdepoz]'))
drop procedure [dbo].[sp_izmenikartdepoz]

Go

CREATE  PROCEDURE sp_IzmeniKartDepoz
    @Broj_Depoz        int,
    @Sifra_Kup char(6),
    @Sifra_Kor varchar(20),
    @Datum smalldatetime,
    @Primen_Izn decimal(18, 2),
    @Vraten_Izn decimal(18, 2)
AS
    Update KartDepoz
    Set
        Sifra_Kup = @Sifra_Kup,
        Sifra_Kor = @Sifra_Kor,
        Datum = @Datum,
        Primen_Izn = @Primen_Izn,
        Vraten_Izn = @Vraten_Izn
    Where Broj_Depoz = @Broj_Depoz
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikartkor]'))
drop procedure [dbo].[sp_izmenikartkor]

Go


CREATE         PROCEDURE sp_IzmeniKartKor
    @Sifra_Oe    smallint,
    @Sifra_Kor    varchar(20),
    @ImeKor    varchar(40),
    @SMesto    char(20),
    @Adresa    char(30),
    @Posta        char(5),
    @Telefon    char(12),
    @LK        char(15),
    @Aktiven    char(1),
    @Nov_Limit    decimal(18,6),
    @Sifra_Kup    char(6),
    @Sifra_TipKartKor    smallint = Null,
    @Poc_Popust    decimal(6,2) = Null,
    @ImeKor2    varchar(40) = Null,
    @MaticenBr2    varchar(15) = Null,
    @ImeKor3    varchar(40) = Null,
    @MaticenBr3    varchar(15) = Null,
    @RegBrLK    varchar(10) = Null,
        @RegBrKor2    varchar(10) = Null,
        @RegBrKor3    varchar(10) = Null,
    --cosmo
    @Ime           varchar(40) = Null,
    @Sredno_Ime    varchar(20) = Null,
    @Prezime       varchar(40) = Null,
    @Datum_Rag     smalldatetime = Null,
    @Email         varchar(50) = Null,
    @Pol           char(1) = Null,
    @Profesija     varchar(50) = Null,
    @BracenStatus  char(1) = Null,
    @Sifra_Kor_Osn varchar(20) = Null,
    @Tel2           varchar(20) = Null,
    @TelMobil      varchar(20) = Null,
    @ZabelKart     varchar(50) = Null,
    @Sifra_Oe_POdigni smallint = null
AS

    Update KartKor
    Set  ImeKor=@ImeKor, SMesto=@SMesto, Adresa=@Adresa, Posta=@Posta, Telefon=@telefon, LK=@LK, Aktiven=@Aktiven,
    Novi_Limi=@Nov_Limit, Sifra_Kup=@Sifra_Kup, IzmenetNa=GetDate(), IzmenetOd=SUser_SName(), Sifra_TipKartKor = @Sifra_TipKartKor,
    Poc_Popust = @Poc_Popust, ImeKor2=@ImeKor2, MaticenBr2=@MaticenBr2, ImeKor3=@ImeKor3, MaticenBr3=@MaticenBr3,
    RegBrLK=@RegBrLK, RegBrKor2=@RegBrKor2, RegBrKor3=@RegBrKor3, Ime=@Ime, Sredno_Ime = @Sredno_Ime, Prezime = @Prezime,
    Datum_Rag = @Datum_Rag, Email = @Email, Pol = @Pol, Profesija = @Profesija, BracenStatus= @BracenStatus,
    Sifra_Kor_Osn = @Sifra_Kor_Osn, Tel2 = @Tel2, TelMobil = @TelMobil, ZabelKart = @ZabelKart, Sifra_Oe_POdigni=@Sifra_Oe_POdigni
    Where Sifra_Oe=@Sifra_Oe and Sifra_Kor=@Sifra_Kor

    Return @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikartprom]'))
drop procedure [dbo].[sp_izmenikartprom]

Go
CREATE  PROCEDURE sp_IzmeniKartProm
    @Sifra_Mark    smallint,
    @Sifra_Oe    smallint,
    @Broj_ska    int,
    @Sifra_Kor    varchar(20),
    @Sifra_Nac    smallint,
    @Datum_Ska    smalldatetime,
    @Dolzi        decimal(18,6),
    @Pobaruva    decimal(18,6),
    @FraUpl    char(1),
    @Sifra_Kup    char(6) = Null,
    @KlubDolzi    decimal(18,6) = Null
 AS
    Update KartProm
    Set Dolzi=@Dolzi, Pobaruva=@Pobaruva, FraUpl=@FraUpl, Sifra_Kup=@Sifra_Kup, KlubDolzi=@KlubDolzi
    Where Sifra_Mark=@Sifra_Mark and Sifra_Oe=@Sifra_Oe and Broj_ska=@Broj_Ska and Sifra_Kor=@Sifra_Kor and Sifra_Nac=@Sifra_Nac and Datum_Ska=@Datum_Ska
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikasdnevn]'))
drop procedure [dbo].[sp_izmenikasdnevn]

Go
CREATE PROCEDURE sp_IzmeniKasDnevn
    @DnID        int,
    @Sifra_Nal    smallint,
    @Broj_Nal    int,
    @Datum_Nal    smalldatetime,
    @Datum_Vnes    smalldatetime,
    @Datum_Knz    smalldatetime,
    @Sts_Kniz    char(1),
    @Sifra_Oper    char(2)=null,
    @MaxObidi    Smallint = 20
AS
    UPDATE KasDnevn
    SET Sifra_Nal=@Sifra_Nal, Broj_Nal=@Broj_Nal, Datum_Nal=@Datum_Nal, Datum_Vnes=@Datum_Vnes,
          Datum_Knz=@Datum_Knz, Sts_Kniz=@Sts_Kniz, Sifra_Oper=@Sifra_Oper WHERE DnID=@DnID
    RETURN @@Error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikasstav]'))
drop procedure [dbo].[sp_izmenikasstav]

Go




CREATE     PROCEDURE sp_IzmeniKasStav
    @Broj_dok    int,
    @Sifra_Nal    smallint,
    @Broj_Nal    int,
    @Dod_Datum    smalldatetime,
    @P_I        char(1),
    @Kto_Anal    char(10),
    @Dolzi        decimal(18,4),
    @Pobaruva    decimal(18,4),
    @Lice        char(30),
    @SMesto    char(20),
    @Opis        char(30),
    @Opis2        char(30),
    @Sifra_Kup    char(6),
    @KojaVal    char(3),
    @Kurs        decimal(18,8),
    @Dev_Dolzi    decimal(18,4),
    @Dev_Pobar    decimal(18,4),
--    @Sifra_Oper    char(2) = null,
    @USG        char (1),
    @KasaGrupa    varchar(10),
    @Posn        decimal(6,2),
    @Sifra_Oe    smallint = Null,
    @Sifra_Div    smallint = Null,
        @DokrId        int = Null,
    @Sifra_Nac    smallint = Null,
        @Danok1            decimal(18,4)=null,
        @Danok2            decimal(18,4)=null,
        @Kto_Osnovica        char(10)=null
AS
    Update KasStav
    Set   Broj_Nal=@Broj_Nal, Dod_Datum=@Dod_Datum,
        Kto_Anal=@Kto_Anal, Dolzi=@Dolzi, Pobaruva=@Pobaruva, Lice=@Lice, SMesto=@SMesto, Opis=@Opis, Opis2=@Opis2,
        Sifra_Kup=@Sifra_Kup, KojaVal=@KojaVal, Kurs=@Kurs, Dev_Dolzi=@Dev_Dolzi, Dev_Pobar=@Dev_Pobar,
        USG=@USG, KasaGrupa=@KasaGrupa, Datum_Izm=getdate(), Sifra_OpIz=SUser_SName(), AnID=NULL, Posn=@Posn,
        Sifra_Oe=@Sifra_Oe, Sifra_Div=@Sifra_Div, DokrId=@DokrId, Proknizen=Null, Sifra_Nac=@Sifra_Nac,
                Danok1=@Danok1, Danok2=@Danok2, Kto_Osnovica=@Kto_Osnovica
    Where Sifra_Nal=@Sifra_Nal and Broj_Dok=@Broj_Dok and P_I=@P_I
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikasstav4]'))
drop procedure [dbo].[sp_izmenikasstav4]

Go




CREATE    PROCEDURE sp_IzmeniKasStav4
    @Broj_dok    int,
    @Sifra_Nal    smallint,
    @Broj_Nal    int,
    @Dod_Datum    smalldatetime,
    @P_I        char(1),
    @Kto_Anal    char(10),
    @Dolzi        decimal(18,4),
    @Pobaruva    decimal(18,4),
    @Lice        char(30),
    @SMesto    char(20),
    @Opis        char(30),
    @Opis2        char(30),
    @Sifra_Kup    char(6),
    @KojaVal    char(3),
    @Kurs        decimal(18,8),
    @Dev_Dolzi    decimal(18,4),
    @Dev_Pobar    decimal(18,4),
--    @Sifra_Oper    char(2) = null,
    @USG        char (1),
    @KasaGrupa    varchar(10),
    @Posn        decimal(6,2),
    @Sifra_Oe    smallint = Null,
    @Sifra_Div    smallint = Null,
    @DokrId        int = Null,
    @Sifra_Nac    smallint = Null,
    @TipBlag    char(3)
AS
    Update KasStav
    Set   Broj_Nal=@Broj_Nal, Dod_Datum=@Dod_Datum,
        Kto_Anal=@Kto_Anal, Dolzi=@Dolzi, Pobaruva=@Pobaruva, Lice=@Lice, SMesto=@SMesto, Opis=@Opis, Opis2=@Opis2,
        Sifra_Kup=@Sifra_Kup, KojaVal=@KojaVal, Kurs=@Kurs, Dev_Dolzi=@Dev_Dolzi, Dev_Pobar=@Dev_Pobar,
        USG=@USG, KasaGrupa=@KasaGrupa, Datum_Izm=getdate(), Sifra_OpIz=SUser_SName(), AnID=NULL, Posn=@Posn,
        Sifra_Oe=@Sifra_Oe, Sifra_Div=@Sifra_Div, DokrId=@DokrId, Proknizen=Null, Sifra_Nac=@Sifra_Nac
    Where Sifra_Nal=@Sifra_Nal and Broj_Dok=@Broj_Dok and P_I=@P_I AND TipBlag=@TipBlag
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatamb]'))
drop procedure [dbo].[sp_izmenikatamb]

Go

CREATE   PROCEDURE sp_IzmeniKatAmb
    @Sifra_Amb    char(6),
    @ImeAmb    char(30),
    @SodrziArt    decimal(12,4),
    @Sifra_GAmb    char(6),
    @VoGAmb    decimal(12,4),
    @Povratna    char(1) = Null,
    @DaliPlastika    char(1) = Null,
    @Tezina_Amb    decimal(9,3) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    Update KatAmb
    Set ImeAmb=@ImeAmb, SodrziArt=@SodrziArt, Sifra_GAmb=@Sifra_GAmb, IzmenetNa=GetDate(), IzmenetOd=SUser_SName(),
        VoGAmb=@VoGAmb, Propagiraj=@Propagiraj, Povratna=@Povratna, DaliPlastika=@DaliPlastika, Tezina_Amb=@Tezina_Amb
    Where Sifra_Amb=@Sifra_Amb
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatgamb]'))
drop procedure [dbo].[sp_izmenikatgamb]

Go

CREATE  PROCEDURE sp_IzmeniKatGAmb
    @Sifra_GAmb    char(6),
    @ImeGAmb    char(30),
    @SodrziAmb    decimal(12,4)
 AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    Update KatGAmb
    Set ImeGAmb=@ImeGAmb, SodrziAmb=@SodrziAmb, IzmenetNa=GetDate(), IzmenetOd=SUser_SName(), Propagiraj=@Propagiraj
    Where Sifra_GAmb=@Sifra_GAmb
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikathier]'))
drop procedure [dbo].[sp_izmenikathier]

Go

create PROCEDURE sp_IzmeniKatHier
    @Sifra_KHier nvarChar(20),
    @Ime_KHier nvarChar(50),
    @Alt_ImeKHier nvarChar(50),
    @Sifra_KHier_Hier nvarChar(20)
AS
    SET NOCOUNT ON
    UPDATE [KatHier]
    SET Ime_KHier=@Ime_KHier, Alt_ImeKHier=@Alt_ImeKHier, Sifra_KHier_Hier=@Sifra_KHier_Hier
    WHERE Sifra_KHier=@Sifra_KHier
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatkarakt]'))
drop procedure [dbo].[sp_izmenikatkarakt]

Go
CREATE PROCEDURE sp_IzmeniKatKarakt
    @Sifra_Art        VARCHAR(20),
    @Rbr            SMALLINT,
    @Sifra_Karakt    SMALLINT,
    @Karakt            NVARCHAR(200)=  NULL
AS
    UPDATE KatKarakt SET
        Sifra_Karakt = @Sifra_Karakt,
        Karakt = @Karakt
    WHERE Sifra_Art=@Sifra_Art AND Rbr=@Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatpakuv]'))
drop procedure [dbo].[sp_izmenikatpakuv]

Go


CREATE   PROCEDURE sp_IzmeniKatPakuv
    @Sifra_Art        varchar(    20),
    @Sifra_KatPak        smallint,
    @ImeKatPak        varchar(30),
    @Sodrzi_Kolic        decimal(18,6),
    @Sifra_KatPak_Pomalo    smallint,
    @Nom_Pakuv        varchar(50) = Null,
    @Nom_Pomalo        varchar(50) = Null
 AS
    Update KatPakuv
    Set ImeKatPak=@ImeKatPak, Sodrzi_Kolic=@Sodrzi_Kolic, Sifra_KatPak_Pomalo=@Sifra_KatPak_Pomalo,
            Nom_Pakuv=@Nom_Pakuv, Nom_Pomalo=@Nom_Pomalo
    Where Sifra_Art=@Sifra_Art And Sifra_KatPak=@Sifra_KatPak
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatserbr]'))
drop procedure [dbo].[sp_izmenikatserbr]

Go
CREATE   PROCEDURE sp_IzmeniKatSerBr
    @KontrSer    varchar(25),
    @Sifra_Art    varchar(20),
    @Dolzina_Proiz    int,
    @Tezina_Dara    decimal(18,4),
    @Tezina_Bruto    decimal(18,4),
    @Tezina_Neto    decimal(18,4),
    @Precnik_Proiz    decimal(9,4),
    @Sifra_Boja    smallint,
    @Broj_Prekini    int,
    @Vreme_Pocetok    smalldatetime,
    @Vreme_Kraj    smalldatetime,
    @Sirina_Proiz    decimal(18,4),
    @Precnik_Amb    decimal(18,4),
    @Kolku_Edinici    decimal(9,0),
    @Kolic    int,
    @OznPodBr    varchar(20) = Null,
    @Sifra_Hilzna    int = Null,
    @Sifra_OeRab     smallint = Null,
    @Broj_RabN     int = Null,
    @Kvalitet    varchar(10) = Null
AS
    Update KatSerBr
    Set Sifra_Art=@Sifra_Art, Dolzina_Proiz=@Dolzina_Proiz, Tezina_Dara=@Tezina_Dara, Tezina_Bruto=@Tezina_Bruto, Tezina_Neto=@Tezina_Neto,
        Precnik_Proiz=@Precnik_Proiz, Sifra_Boja=@Sifra_Boja, Broj_Prekini=@Broj_Prekini, Vreme_Pocetok=@Vreme_Pocetok, Vreme_Kraj=@Vreme_Kraj,
        Sirina_Proiz=@Sirina_Proiz, Precnik_Amb=@Precnik_Amb, Kolku_Edinici=@Kolku_Edinici, Kolic=@Kolic, OznPodBr=@OznPodBr, Sifra_Hilzna=@Sifra_Hilzna,
        Sifra_OeRab=@Sifra_OeRab, Broj_RabN = @Broj_RabN, Kvalitet=@Kvalitet
    Where KontrSer=@KontrSer
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatserbranaliza]'))
drop procedure [dbo].[sp_izmenikatserbranaliza]

Go
CREATE PROCEDURE sp_IzmeniKatSerBrAnaliza
    @KontrSer    varchar(25),
    @Tez1        decimal(9,4) = Null,
    @Tez2        decimal(9,4) = Null,
    @Tez3        decimal(9,4) = Null,
    @Tez4        decimal(9,4) = Null,
    @Tez5        decimal(9,4) = Null,
    @Tez6        decimal(9,4) = Null,
    @Tez7        decimal(9,4) = Null,
    @Tez8        decimal(9,4) = Null,
    @Tez9        decimal(9,4) = Null,
    @Tez10    decimal(9,4) = Null,
    @Vlaga1    decimal(9,4) = Null,
    @Pepel1    decimal(9,4) = Null,
    @Izdolz1    decimal(9,4) = Null,
    @Kinenje1    decimal(9,4) = Null,
    @COBB1    decimal(9,4) = Null,
    @Satinaza1    decimal(9,4) = Null,
    @Belina1    decimal(9,4) = Null,
    @Kleenje1    decimal(9,4) = Null,
    @Vlaga2    decimal(9,4) = Null,
    @Pepel2    decimal(9,4) = Null,
    @Izdolz2    decimal(9,4) = Null,
    @Kinenje2    decimal(9,4) = Null,
    @COBB2    decimal(9,4) = Null,
    @Satinaza2    decimal(9,4) = Null,
    @Belina2    decimal(9,4) = Null,
    @Kleenje2    decimal(9,4) = Null,
    @Kvalitet    char(1) = Null
AS
    Update KatSerBrAnaliza
    Set Tez1=@Tez1, Tez2=@Tez2, Tez3=@Tez3, Tez4=@Tez4, Tez5=@Tez5,
        Tez6=@Tez6, Tez7=@Tez7, Tez8=@Tez8, Tez9=@Tez9, Tez10=@Tez10, Vlaga1=@Vlaga1,
        Pepel1=@Pepel1, Izdolz1=@Izdolz1, Kinenje1=@Kinenje1, COBB1=@COBB1, Satinaza1=@Satinaza1,
        Belina1=@Belina1, Kleenje1=@Kleenje1, Vlaga2=@Vlaga2, Pepel2=@Pepel2, Izdolz2=@Izdolz2,
        Kinenje2=@Kinenje2, COBB2=@COBB2, Satinaza2=@Satinaza2, Belina2=@Belina2, Kleenje2=@Kleenje2,
        Kvalitet=@Kvalitet
    Where KontrSer=@KontrSer
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatserklas]'))
drop procedure [dbo].[sp_izmenikatserklas]

Go




CREATE     PROCEDURE sp_IzmeniKatSerKlas
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30),
    @KontrSerExt    varchar(30),
    @AltKontrSer    varchar(30) = Null,
    @GodProiz    smallint = Null,
    @Opis        nvarchar(300) = Null,
    @Sifra_3    smallint = Null,
    @Masa_Kgr    decimal(9,3) = Null,
    @Sila_KW    decimal(9,3) = Null

AS

    Update KatSerKlas
    Set KontrSerExt = @KontrSerExt,
        AltKontrSer = @AltKontrSer, GodProiz = @GodProiz, Opis = @Opis,
        Sifra_3 = @Sifra_3, Masa_Kgr = @Masa_Kgr, Sila_KW = @Sila_KW
    Where Sifra_Art = @Sifra_Art and KontrSer = @KontrSer

    Return @@ERROR










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatsliki]'))
drop procedure [dbo].[sp_izmenikatsliki]

Go


CREATE   PROCEDURE sp_IzmeniKatSliki
    @Sifra_Art    varchar(    20),
    @SlikaArt    image,
    @ImeFile    varchar(100) = Null
AS
    Update KatSliki
    Set SlikaArt=@SlikaArt, ImeFile=@ImeFile
    Where Sifra_Art=@Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatspectipmat]'))
drop procedure [dbo].[sp_izmenikatspectipmat]

Go


create     PROCEDURE sp_IzmeniKatSpecTipMat
    @Sifra_TipMat Smallint,
    @ImeTipMat    nvarchar(50),
    @Aktiven char(1) = "D",
    @Povratna char(1)="N",
        @Tip char(1),
        @Param1 decimal(18,6),
        @Param2 decimal(18,6)
AS
    UPDATE [KatSpecTipMat]
    SET [ImeTipMat] = @ImeTipMat,
        [Aktiven] = @Aktiven,
            [Tip] = @Tip,
        [Povratna] = @Povratna,
            [Param1] = @Param1,
            [Param2] = @Param2
    WHERE [Sifra_TipMat]=@Sifra_TipMat

RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikatstatus]'))
drop procedure [dbo].[sp_izmenikatstatus]

Go
CREATE PROCEDURE sp_IzmeniKatStatus
    @Sifra_KatStatus     smallint,
    @ImeKatStatus         varchar(30),
    @MozeProdazba     char(1),
    @Nivo_Cena         smallint
AS
    Update KatStatus
    Set ImeKatStatus=@ImeKatStatus, MozeProdazba=@MozeProdazba, Nivo_Cena=@Nivo_Cena
    Where Sifra_KatStatus=@Sifra_KatStatus
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikbanki]'))
drop procedure [dbo].[sp_izmenikbanki]

Go
CREATE PROCEDURE sp_IzmeniKbanki
    @Sifra_Kup    char(6),
    @RbrBan    Smallint,
    @ZiroSka    varchar(20),
    @Sifra_Ban    char(6),
    @ImeKor    varchar(30) = Null
AS
    Declare @Propagiraj char(1)
    Set @Propagiraj='D'
    Update Kbanki
    Set ZiroSka=@ZiroSka, Sifra_Ban=@Sifra_Ban, ImeKor=@ImeKor, Propagiraj=@Propagiraj
    Where Sifra_Kup=@Sifra_Kup and RbrBan=@RbrBan
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo1]'))
drop procedure [dbo].[sp_izmenikdrugo1]

Go

CREATE    PROCEDURE sp_IzmeniKDrugo1
    @Sifra Smallint,
    @Ime varchar(30),
    @Kompr char(1) = Null,
    @Cena decimal(12,2)=Null

AS

    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [KDrugo1]
    SET [Ime_1k] = @Ime,
        [Propagiraj] = @Propagiraj,
        Kompr = @Kompr,
        Cena = @Cena
    WHERE [Sifra_1k]=@Sifra

RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo2]'))
drop procedure [dbo].[sp_izmenikdrugo2]

Go

CREATE    PROCEDURE sp_IzmeniKDrugo2
    @Sifra Smallint,
    @Ime varchar(30),
    @SlobRabat chaR(1)

AS

    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'

    UPDATE [KDrugo2]
    SET [Ime_2k]=@Ime, [Propagiraj]=@Propagiraj,
        SlobRabat = @SlobRabat
    WHERE [Sifra_2k]=@Sifra

RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo3]'))
drop procedure [dbo].[sp_izmenikdrugo3]

Go
CREATE   PROCEDURE sp_IzmeniKDrugo3
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [KDrugo3]
    SET [Ime_3k]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_3k]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo4]'))
drop procedure [dbo].[sp_izmenikdrugo4]

Go
CREATE   PROCEDURE sp_IzmeniKDrugo4
    @Sifra Smallint,
    @Ime varchar(30),
    @Denovi smallint = Null,
    @Uces    decimal(6,2) = Null
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [KDrugo4]
    SET [Ime_4k]=@Ime, [Propagiraj]=@Propagiraj, [Denovi]=@Denovi, [Uces]=@Uces
    WHERE [Sifra_4k]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo5]'))
drop procedure [dbo].[sp_izmenikdrugo5]

Go
CREATE   PROCEDURE sp_IzmeniKDrugo5
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [KDrugo5]
    SET [Ime_5k]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_5k]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo6]'))
drop procedure [dbo].[sp_izmenikdrugo6]

Go

create    PROCEDURE sp_IzmeniKDrugo6
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [KDrugo6]
    SET [Ime_6k]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_6k]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikdrugo7]'))
drop procedure [dbo].[sp_izmenikdrugo7]

Go

create    PROCEDURE sp_IzmeniKDrugo7
    @Sifra Smallint,
    @Ime varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [KDrugo7]
    SET [Ime_7k]=@Ime, [Propagiraj]=@Propagiraj
    WHERE [Sifra_7k]=@Sifra
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniklas]'))
drop procedure [dbo].[sp_izmeniklas]

Go


CREATE  PROCEDURE sp_IzmeniKlas
    @Kto_Klas    Char(1),
    @ImeKlasa    varChar(40),
    @ImeKlasa2    varchar(40),
    @SImeKlasa    varChar(40),
    @SImeKlasa2    varchar(40),
        @Str_Kto    varchar(1)
AS
    UPDATE [Klas]
    SET [ImeKlasa]=@ImeKlasa, [ImeKlasa2]=@ImeKlasa2, [SImeKlasa]=@SImeKlasa, [SImeKlasa2]=@SImeKlasa2, [Str_Kto] = @Str_Kto
    WHERE [Kto_Klas]=@Kto_Klas
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniklient]'))
drop procedure [dbo].[sp_izmeniklient]

Go
CREATE procedure sp_IzmeniKlient
    @Sif_Klient integer,
    @ImeKlient    nvarchar(50),
    @PrezimeKlient nvarchar(100),
    @datumRaganje    smalldatetime,
    @Adresa    nvarchar(350),
    @Grad nvarchar(50),
    @Drzava nvarchar(50),
    @Email nvarchar(50),
    @Telefon nvarchar(50),
    @Kompanija    nvarchar(150),
    @StepenNaObrazovanie nvarchar(150)
As
    update Klienti set
        ImeKlient=@ImeKlient,
        PrezimeKlient=@PrezimeKlient,
        DatumRaganje=@DatumRaganje,
        Adresa=@Adresa,
        grad=@grad,
        Drzava=@Drzava,
        Email=@Email,
        Telefon=@Telefon,
        Kompanija=@Kompanija,
        StepenNaObrazovanie=@StepenNaObrazovanie
    where Sif_klient=@Sif_Klient



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniklista]'))
drop procedure [dbo].[sp_izmeniklista]

Go
CREATE PROCEDURE sp_IzmeniKlista
    @Broj        int,
    @Datum_Kam    smalldatetime,
    @Iznos        decimal(18,6),
    @Datum_Fakt    smalldatetime,
    @Rok_Dosp    smallint,
    @Identif_Br    varchar(15),
    @Ekster    varchar(25)
AS
    Update Klista
    Set Datum_Kam=@Datum_Kam, Iznos=@Iznos, Datum_Fakt=@Datum_Fakt, Rok_Dosp=@Rok_Dosp, Identif_Br=@Identif_Br, Ekster=@Ekster
    Where Broj=@Broj
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniklistad]'))
drop procedure [dbo].[sp_izmeniklistad]

Go

CREATE  PROCEDURE sp_IzmeniKlistaD
    @Broj        int,
    @Sifra_Kup    char(6),
    @Opis        varchar(50),
    @Datum_Kli    smalldatetime
AS
    UPDATE KlistaD
    Set Sifra_Kup=@Sifra_Kup, Opis=@Opis, Datum_Kli=@Datum_Kli, Datum_Izm=GetDate(), Oper_Izm=Suser_sname()
    Where Broj=@Broj
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniknigatrg]'))
drop procedure [dbo].[sp_izmeniknigatrg]

Go
CREATE PROCEDURE sp_IzmeniKnigaTrg
    @InterenBr int,
    @Datum_Dok smalldatetime,
    @Datum_Knz smalldatetime,
    @Broj  varchar(15),
    @Opis varchar(50),
    @ProdVredn   decimal(18,6),
    @VkalkDan    decimal(18,6),
    @ObvrskaDan  decimal(18,6),
    @VrednProd   decimal(18,6),
    @Sifra_OE  smallint,
    @NabVred decimal(18,6)
 AS
    UPDATE KnigaTrg SET
        Datum_Dok  =   @Datum_Dok,
        Datum_Knz   =   @Datum_Knz,
        Broj                =     @Broj,
        Opis               =    @Opis,
        ProdVredn     =   @ProdVredn,
        VkalkDan      =   @VkalkDan,
        ObvrskaDan  =   @ObvrskaDan,
        VrednProd     =   @VrednProd,
        Sifra_OE        =   @Sifra_OE,
        NabVred       =    @NabVred
    WHERE InterenBr      =   @InterenBr
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikobj]'))
drop procedure [dbo].[sp_izmenikobj]

Go





CREATE           PROCEDURE sp_IzmeniKObj
    @Sifra_Kup char(6),
    @Sifra_Obj Smallint,
    @Star_Kup varChar(7),
    @ImeObj nvarchar(40),
    @ImeObj2 nvarchar(40),
    @Adresa nvarchar(40),
    @Adresa2 nvarchar(40),
    @SMesto nvarchar(20),
    @Posta nchar(10),
    @Zemja nvarchar(20),
    @Telefon varchar(20),
    @Tel1 varchar(20),
    @Tel2 varchar(20),
    @TelMobil varchar(20),
    @Fax varchar(20),
    @Telex varchar(20),
    @EMail varchar(40),
    @Kontakt varchar(30),
    @Sifra_Pat smallint,
    @Sifra_Grad smallint,
    @TipKup varchar(11),
    @Sifra_Reg smallint,
    @Sifra_Nivo char(2),
    @Sifra_Tip smallint,
    @Zabeleska varchar(30)=Null,
    @Aktiven char(1)=Null,
    @BrProdMesta smallint=Null,
    @BrAktProdMesta smallint=Null,
    @KDrugo4    smallint = Null,
    @KDrugo3    smallint = Null,
    @KDrugo2    smallint = Null,
    @KDrugo1    smallint = Null,
    @Sifra_Pat2    smallint = Null,
    @KDrugo5    smallint = Null,
    @Prenesen    char(5) = Null,
    @BrPoseti    smallint = Null,
    @m2        smallint = Null,
    @Sifra_VPJ    smallint = Null,
    @KDrugo6    smallint = Null,
    @KDrugo7    smallint = Null,
        @EMail2            varchar(40)= null,
        @EMail3        varchar(40)= null
AS
    Declare @Propagiraj char(1)
    Set @Propagiraj = 'D'
    UPDATE [KObjekti]
   SET [ImeObj]=@ImeObj, [ImeObj2]=@ImeObj2, [Star_Kup]=@Star_Kup,
       [Adresa]=@Adresa, [Adresa2]=@Adresa2, [SMesto]=@SMesto, [Posta]=@Posta, [Zemja]=@Zemja,
       [Telefon]=@Telefon, [Tel1]=@Tel1, [Tel2]=@Tel2, [TelMobil]=@TelMobil, [Fax]=@Fax, [Telex]=@Telex,
       [EMail]=@EMail, [Kontakt]=@Kontakt, [Sifra_Pat]=@Sifra_Pat, [Sifra_Grad]=@Sifra_Grad, [TipKup]=@TipKup,
       [Sifra_Reg]=@Sifra_Reg, [Sifra_Nivo]=@Sifra_Nivo, [Sifra_Tip]=@Sifra_Tip, [Zabeleska]=@Zabeleska,
       [Aktiven]=@Aktiven, [BrProdMesta]=@BrProdMesta, [BrAktProdMesta]=@BrAktProdMesta,
       Kdrugo4=@KDrugo4, KDrugo3=@KDrugo3, Kdrugo2=@KDrugo2, KDrugo1=@KDrugo1, Propagiraj=@Propagiraj,
       Sifra_Pat2=@Sifra_Pat2, KDrugo5=@KDrugo5, Prenesen = @Prenesen, BrPoseti=@BrPoseti, m2=@m2, Sifra_VPJ=@Sifra_VPJ,
       KDrugo6=@KDrugo6, KDrugo7=@KDrugo7, [EMail2]=@EMail2, [EMail3]=@EMail3
   WHERE [Sifra_Obj]=@Sifra_Obj And [Sifra_Kup]=@Sifra_Kup
RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikobjstal]'))
drop procedure [dbo].[sp_izmenikobjstal]

Go
CREATE PROCEDURE sp_IzmeniKObjStal
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint,
    @VidStalazi    char(1)
AS
UPDATE KObjekti SET VidStalazi=@VidStalazi WHERE Sifra_Kup=@Sifra_Kup AND Sifra_Obj=@Sifra_Obj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikomint]'))
drop procedure [dbo].[sp_izmenikomint]

Go







CREATE     PROCEDURE [dbo].[sp_IzmeniKomint]
    @Sifra_Kup char(6),
    @ImeKup nvarchar(40),
    @ImeKup2 nvarchar(60),        --namerno
    @Adresa nvarchar(40),
    @Adresa2 nvarchar(40),
    @SMesto nvarchar(20),
    @Posta nchar(10),
    @Zemja nvarchar(20),
    @IspAdresa varchar(40),
    @IspAdresa2 varchar(40),
    @IspMesto varchar(20),
    @IspPosta char(5),
    @IspZemja varchar(20),
    @Telefon varchar(20),
    @Tel1 varchar(20),
    @Tel2 varchar(20),
    @TelMobil varchar(20),
    @Fax varchar(20),
    @Telex varchar(20),
    @EMail varchar(40),
    @AdrWeb varchar(30),
    @Sopstvenik varchar(30),
    @LK varchar(13),
    @Sopst_Mat varchar(13),
    @Danocen char(15),
    @Ziro varchar(35),
    @Ziro2 varchar(35),
    @Banka varchar(30),
    @Banka2 varchar(30),
    @Sifra_Ban char(6),
    @Sifra_Ban2 char(6),
    @BRIZJAVA varchar(100),
    @KONTAKT varchar(30),
    @Sifra_Pat smallint,
    @Sifra_Grad smallint,
    @TipKup varchar(11),
    @Sifra_reg smallint,
    @Sifra_Nivo char(2),
    @Sifra_Tip smallint,
    @KDrugo1 smallint,
    @KDrugo2 smallint,
    @KDrugo3 smallint,
    @KDrugo4 smallint,
    @KDrugo5 smallint,
    @Uces Decimal(6,2),
    @KojaSmetka char(1),
    @Rok_Dosp smallint,
    @Kasa Decimal(6,2),
    @KojaCenaKom char(1),
    @BrPoseti    smallint = Null,
    @DirDistr    char(1) = Null,
    @ZemaOd    varchar(15) = Null,
    @Zabeleska varchar(30)=Null,
    @Aktiven char(1)=Null,
    @BrProdMesta smallint=Null,
    @BrAktProdMesta smallint=Null,
    @ImaBanka char(1)=Null,
    @AltImeKup nvarchar(40)=null,
    @AltAdresa nvarchar(40)=null,
    @DogovorBroj varchar(40) = Null,
    @MozeIsporaka char(1) = Null,
    @Garancija varchar(30) = Null,
    @MatBr varchar(20) = Null,
    @Sifra_Pat2 smallint  = Null,
    @Sopst_Adr varchar(40) = Null,
    @Sopst_Mesto varchar(20) = Null,
    @Prenesen char(5) = Null,
    @ForsUces char(1) = Null,
    @Limit_Dolzi decimal(9,0) = Null,
    @Prioritet smallint=Null,
    @Aneks1 varchar(100) = Null,
    @Aneks2 varchar(100) = Null,
    @God_Rabat    decimal(6,2)=Null,
    @Spec_Rabat    decimal(6,2)=Null,
    @m2    smallint = Null,
    @Sifra_VPJ  smallint = Null,
    @Rok_Dobav  smallint = Null,
    @Uces_Kol    decimal(6,2) = Null,
    @SkrOznaka    varchar(10) = Null,
    @KDrugo6 smallint = Null,
    @KDrugo7 smallint = Null,
        @MemoKup nvarchar (4000) = Null,
    @Priv_Lice char(1) = Null,
        @TolerDena_dosp smallint= null,
    @Kto_Anal    char(10)=NULL,
        @EMail2 varchar(40)= null,
        @EMail3 varchar(40)= null,
   @Datum_Kom_Poc    smalldatetime = NULL,
    @Datum_Kom_Kr    smalldatetime = NULL,
     @Sifra_Kup_Sablon char (6) = Null,
    @Sifra_Kom_Man smallint=null,
    @Sifra_Kom_Ref smallint=null,
    @TipCenaDatum char(1)=null
AS
    SET NOCOUNT ON
    Declare @Propagiraj char(1)
    Set @Propagiraj='D'
   UPDATE Komint
   SET Sifra_Kup=@Sifra_Kup, ImeKup=@ImeKup, ImeKup2=@ImeKup2,
       Adresa=@Adresa, Adresa2=@Adresa2, SMesto=@SMesto, Posta=@Posta, Zemja=@Zemja,
       IspAdresa=@IspAdresa, IspAdresa2=@IspAdresa2, IspMesto=@IspMesto, IspPosta=@IspPosta, IspZemja=@IspZemja,
       Telefon=@Telefon, Tel1=@Tel1, Tel2=@Tel2, TelMobil=@TelMobil, Fax=@Fax, Telex=@Telex,
       EMail=@EMail, AdrWeb=@AdrWeb, Sopstvenik=@Sopstvenik, LK=@LK, Sopst_Mat=@Sopst_Mat,
       Danocen=@Danocen, Ziro=@Ziro, Ziro2=@Ziro2, Banka=@Banka, Banka2=@Banka2,
       Sifra_Ban=@Sifra_Ban, Sifra_Ban2=@Sifra_Ban2, BrIzjava=@BrIzjava, Kontakt=@Kontakt,
       Sifra_Pat=@Sifra_Pat, Sifra_Grad=@Sifra_Grad, TipKup=@TipKup,
       Sifra_reg=@Sifra_reg, Sifra_Nivo=@Sifra_Nivo,
       KDrugo1=@KDrugo1, KDrugo2=@KDrugo2, KDrugo3=@KDrugo3, KDrugo4=@KDrugo4, KDrugo5=@KDrugo5,
    Uces=@Uces, KojaSmetka = @KojaSmetka, Rok_Dosp=@Rok_Dosp, Kasa=@Kasa,
        KojaCena=@KojaCenaKom, BrPoseti=@BrPoseti, DirDistr=@DirDistr, ZemaOd=@ZemaOd,
       Zabeleska=@Zabeleska, Aktiven=@Aktiven, BrProdMesta=@BrProdMesta,
       BrAktProdMesta=@BrAktProdMesta, ImaBanka=@ImaBanka, Alt_ImeKup=@AltImeKup,
       Alt_Adresa=@AltAdresa, DogovorBroj=@DogovorBroj, MozeIsporaka=@MozeIsporaka,
       Garancija=@Garancija, Propagiraj=@Propagiraj, MatBr=@MatBr, Sifra_Pat2=@Sifra_Pat2, Prioritet=@Prioritet,
       Sopst_Adr=@Sopst_Adr, Sopst_Mesto=@Sopst_Mesto, Prenesen=@Prenesen, ForsUces=@ForsUces, Limit_Dolzi=@Limit_Dolzi,
       Aneks1=@Aneks1, Aneks2=@Aneks2, God_Rabat=@God_Rabat, Spec_Rabat=@Spec_Rabat, m2=@m2,SkrOznaka=@SkrOznaka, Sifra_VPJ=@Sifra_VPJ,Rok_Dobav=@Rok_Dobav,
       Uces_Kol = (Case When @Uces_Kol Is Not Null Then @Uces_Kol Else Uces_Kol End),
       Sifra_Tip = (Case When @Sifra_Tip Is Not Null Then @Sifra_Tip Else Sifra_Tip End),
       KDrugo6=@KDrugo6, KDrugo7=@KDrugo7, MemoKup=@MemoKup,
       Priv_Lice = @Priv_Lice, TolerDena_dosp=@TolerDena_dosp, IzmenetNa=GetDate(), IzmenetOd=SUser_SName(), Kto_Anal=@Kto_Anal,
       EMail2=@EMail2, EMail3=@EMail3,Datum_Kom_Poc=@Datum_Kom_Poc, Datum_Kom_Kr=@Datum_Kom_Kr, Sifra_Kom_Man =@Sifra_Kom_Man,
       Sifra_Kom_Ref=@Sifra_Kom_Ref, TipCenaDatum=@TipCenaDatum, Sifra_Kup_Sablon=@Sifra_Kup_Sablon
   WHERE Sifra_Kup=@Sifra_Kup
/*   if @Uces_Kol is not Null
   begin
       UPDATE Komint
       set Uces_Kol=@Uces_Kol
           WHERE Sifra_Kup=@Sifra_Kup
   end
    IF @Sifra_Tip IS NOT NULL
        UPDATE Komint SET Sifra_Tip=@Sifra_Tip WHERE Sifra_Kup=@Sifra_Kup
*/
RETURN @@ERROR










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikomintmobsrv]'))
drop procedure [dbo].[sp_izmenikomintmobsrv]

Go



CREATE              PROCEDURE sp_IzmeniKomintMobSrv
    @Sifra_Kup char(6),
    @Aktiven char(1)=Null,
    @TipKup varchar(11),
    @Sifra_Grad smallint,
    @KDrugo1 smallint,
    @KDrugo2 smallint,
    @KDrugo3 smallint,
    @BrProdMesta smallint=Null,
    @BrAktProdMesta smallint=Null,
    @DirDistr    char(1) = Null,
    @ZemaOd    varchar(15) = Null,
    @Rok_Dosp smallint,
    @Telefon varchar(20),
    @m2    smallint = Null,
    @Sifra_VPJ  smallint = Null,
    @Sifra_Tip smallint,
    @Adresa    varchar(40),
    @IzmenetOd varchar(30)=NULL
AS
    IF @IzmenetOd IS NULL SET @IzmenetOd=SUser_SName()
    SET NOCOUNT ON
    Declare @Propagiraj char(1)
    Set @Propagiraj='D'

    UPDATE Komint
    SET Aktiven=@Aktiven, TipKup=@TipKup, Sifra_grad=@Sifra_grad, KDrugo1=@KDrugo1, KDrugo2=@KDrugo2, KDrugo3=@KDrugo3,
    BrProdMesta=@BrProdMesta, BrAktProdMesta=@BrAktProdMesta, DirDistr=@DirDistr, ZemaOd=@ZemaOd, Rok_Dosp=@Rok_Dosp,
    Telefon=@Telefon, m2=@m2, adresa=@adresa, Sifra_Tip=@Sifra_Tip, Sifra_Vpj=@Sifra_Vpj, IzmenetNa=GetDate(), IzmenetOd=@IzmenetOd
    WHERE Sifra_Kup=@Sifra_Kup

RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikomintstal]'))
drop procedure [dbo].[sp_izmenikomintstal]

Go
CREATE PROCEDURE sp_IzmeniKomintStal
    @Sifra_Kup    char(6),
    @VidStalazi    char(1)
AS
UPDATE Komint SET VidStalazi=@VidStalazi WHERE Sifra_Kup=@Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikomlimitdiv]'))
drop procedure [dbo].[sp_izmenikomlimitdiv]

Go
CREATE procedure SP_IzmeniKomLimitDiv
    @Sifra_Kup char(6)
--    @Sifra_Div smallint,
 --   @Iznos decimal(18,2)
AS
    Update KomLimitDiv
    Set Iznos=0 --Sifra_Div=@Sifra_Div, Iznos=@Iznos
    Where Sifra_Kup=@Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikompenz]'))
drop procedure [dbo].[sp_izmenikompenz]

Go

CREATE   PROCEDURE sp_IzmeniKompenz
    @Broj_Komp Int,
    @Datum_Komp Smalldatetime,
    @Sifra_Kup Varchar(10),
    @Opis Varchar(50),
    @Datum_Do Smalldatetime,
    @KtoKup Varchar(10),
    @KtoDob Varchar(10)
AS
    UPDATE [Kompenz]
    SET [Datum_Komp]=@Datum_Komp, [Sifra_Kup]=@Sifra_Kup, [Opis]=@Opis, [Datum_Do]=@Datum_Do, [KtoKup]=@KtoKup, [KtoDob]=@KtoDob, [Datum_Izm]=GetDate(), [OpIz]=SUSER_SNAME()
    WHERE [Broj_Komp]=@Broj_Komp


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikonfceni]'))
drop procedure [dbo].[sp_izmenikonfceni]

Go

CREATE  PROCEDURE sp_IzmeniKonfCeni
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Prim    Smallint,
    @DaliMoze    char(1),
    @KojaCena    varchar(20),
    @KojaCenaM    varchar(20),
             @VleziCena        char(1),
             @VleziCena1      char(1)
AS
    UPDATE KonfCeni
    SET DaliMoze = @DaliMoze, KojaCena = @KojaCena, KojaCenaM = @KojaCenaM, VleziCena = @VleziCena, VleziCena1 = @VleziCena1
    WHERE Sifra_Dok = @Sifra_Dok  AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikredit]'))
drop procedure [dbo].[sp_izmenikredit]

Go

CREATE  procedure sp_IzmeniKredit
    @Sifra_oe as smallint,
    @Broj_kredit as int,
    @Sifra_kor as varchar(20) ,
    @Datum_kredit as smalldatetime ,
    @DatumPoc_Kredit as smalldatetime ,
    @Broj_rati as smallint ,
    @VkupenProcKam as decimal(9, 2) ,
    @Nacin_Presm as smallint,
    @VkupnaGlavnica as decimal(18, 4) ,
    @VkupnaKamata as decimal(18, 4),
    @PlatenoVednas as decimal(18, 4),
    @Kurs as decimal(18, 6) ,
    @OpisKredit as nvarchar(1000)= NULL,
    @Status_kredit as smallint= NULL,
    @Datum_sud as smalldatetime= NULL,
    @Tip_posl_Opomena as smallint = null,
    @Datum_Odzemeno as smalldatetime =NULL,
    @ProcKam as decimal(9,2)

As

    Declare @BeseTipPoslOpomena int
    Declare @BeseStatusKredit int
    Declare @BeseDatumPoslOpomena smalldatetime
    Declare @BeseDatumStatus smalldatetime

    select @BeseTipPoslOpomena = Tip_Posl_Opomena,
       @BeseStatusKredit = Status_Kredit,
       @BeseDatumPoslOpomena = Datum_Posl_Opomena,
       @BeseDatumStatus = Datum_Status
    from Kredit
    Where Sifra_oe=@Sifra_oe and Broj_kredit=@Broj_kredit

    Declare @Datum_Posl_opomena smalldatetime
    set @Datum_Posl_Opomena = @BeseDatumPoslOpomena
    if @Tip_Posl_Opomena is not null and @BeseTipPoslOpomena is null
    or @Tip_Posl_Opomena is null and @BeseTipPoslOpomena is not null
    or @Tip_Posl_Opomena <> @BeseTipPoslOpomena
        set @Datum_Posl_Opomena = dbo.fn_VratiDatum (GetDate())

    Declare @Datum_Status smalldatetime
    set @Datum_Status = @BeseDatumStatus
    if @Status_Kredit is not null and @BeseStatusKredit is null
    or @Status_Kredit is null and @BeseStatusKRedit is not null
    or @Status_Kredit <> @BeseStatusKRedit
        set @Datum_Status = dbo.fn_VratiDatum (GetDate())

    Update Kredit
    Set  Sifra_kor=@Sifra_kor, Datum_kredit=@Datum_kredit,
        DatumPoc_Kredit=@DatumPoc_Kredit,Broj_rati=@Broj_rati,VkupenProcKam=@VkupenProcKam, Nacin_Presm=@Nacin_Presm,
        VkupnaGlavnica=@VkupnaGlavnica, VkupnaKamata=@VkupnaKamata, PlatenoVednas=@PlatenoVednas,
        Kurs=@Kurs,OpisKredit=@OpisKredit, Status_kredit=@Status_kredit, Datum_sud=@Datum_sud,
        Tip_posl_Opomena=@Tip_posl_Opomena, Datum_Odzemeno=@Datum_Odzemeno, ProcKam = @ProcKam,
        Datum_Status = @Datum_Status, Datum_Posl_Opomena = @Datum_POsl_Opomena
    Where Sifra_oe=@Sifra_oe and Broj_kredit=@Broj_kredit

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikreditopomena]'))
drop procedure [dbo].[sp_izmenikreditopomena]

Go

CREATE  procedure sp_IzmeniKreditOpomena
    @Sifra_Oe smallint,
    @Broj_kredit int ,
    @Broj_Opomena int,
    @Datum_Opomena smalldatetime,
    @Tip_Opomena smallint ,
    @Kratok_Opis_Opomena nvarchar(50) =NULL,
    @OpisOpomena nvarchar(1000)= NULL
As
    Update KreditOpomena
    Set Datum_opomena=@Datum_opomena, Tip_opomena=@Tip_opomena,
     Kratok_opis_opomena=@Kratok_opis_opomena, OpisOpomena=@OpisOpomena
    Where Sifra_Oe=@Sifra_Oe and Broj_kredit=@Broj_kredit and Broj_Opomena=@Broj_Opomena
return @@error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikreditstatus]'))
drop procedure [dbo].[sp_izmenikreditstatus]

Go

CREATE  procedure sp_IzmeniKreditStatus
    @Status_kredit  smallint,
    @ImeStatuskredit  nvarchar(40),
    @DaliZatvoren  char(1)

As

    update KreditStatus
    set ImestatusKredit= @ImestatusKredit, Dalizatvoren=@Dalizatvoren
    where Status_Kredit = @Status_Kredit

    return @@error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikreditstavki]'))
drop procedure [dbo].[sp_izmenikreditstavki]

Go
CREATE procedure sp_IzmeniKreditStavki
    @Sifra_Oe smallint ,
    @Broj_kredit int ,
    @Rbr_KredArt int ,
    @Sifra_Art varchar(20) ,
    @Kolic decimal(18, 6) ,
    @DokCena decimal(18, 6) ,
    @POsnPren decimal(9, 2) ,
    @Sifra_oe_dokr smallint =NULL,
    @Sifra_Dok_Dokr smallint= NULL,
    @Broj_Dok_Dokr int= NULL
As
    Update KreditStavki
    Set  sifra_art=@sifra_art,
    kolic=@kolic, dokcena=@dokcena, POsnPren=@POsnPren,Sifra_Oe_dokr=@Sifra_Oe_dokr,
    Sifra_Dok_Dokr=@Sifra_Dok_Dokr, Broj_Dok_Dokr=@Broj_Dok_Dokr
    where Sifra_oe=@Sifra_oe and broj_kredit=@broj_kredit and rbr_kredart=@rbr_kredart
return @@error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikredittipopomena]'))
drop procedure [dbo].[sp_izmenikredittipopomena]

Go

CREATE  procedure sp_IzmeniKreditTipOpomena
    @Tip_Opomena smallint,
    @ImeTipOpomena nvarchar(40)
As
   Update KreditTipOpomena
   Set ImeTipOpomena=@ImeTipOpomena
    Where Tip_opomena=@Tip_opomena





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikredittransakc]'))
drop procedure [dbo].[sp_izmenikredittransakc]

Go

CREATE  procedure sp_IzmeniKreditTransakc
    @Sifra_Oe smallint,
    @Broj_kredit int,
    @Rbr_KreditTrans int,
    @Dolzi decimal(18, 4),
    @Pobaruva decimal(18, 4),
    @Kurs decimal(19, 6),
    @Datum_dosp smalldatetime
    ---@Datum_Kontra smalldatetime=nuLL,
    ---@Plateno_dolzi decimal(18, 4),
    ---@Plateno_Pobaruva decimal(18, 4)

As

    update kredittransakc
    Set  dolzi=@dolzi, pobaruva=@pobaruva, kurs=@kurs, datum_dosp=@datum_dosp
    Where sifra_oe=@sifra_oe and broj_kredit=@broj_kredit and rbr_kredittrans= @rbr_kredittrans





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikreditvrskazatv]'))
drop procedure [dbo].[sp_izmenikreditvrskazatv]

Go
CREATE procedure sp_IzmeniKreditVrskaZatv
       @Sifra_oe_1 smallint ,
    @Broj_Kredit_1 int ,
    @Rbr_kreditTrans_1 int ,
    @Sifra_Oe_2 smallint ,
    @Broj_kredit_2 int ,
    @Rbr_kreditTrans2 int ,
    @Iznos decimal(18, 4) ,
    @Datum_zatv smalldatetime= NULL
As
    update KreditVrskaZatv
    Set sifra_oe_1=@sifra_oe_1, Broj_kredit_1=@Broj_kredit_1, rbr_kredittrans_1=@rbr_kredittrans_1,
    sifra_oe_2=@sifra_oe_2, Broj_kredit_2=@Broj_kredit_2, Rbr_kreditTrans2=@Rbr_kreditTrans2,
    iznos=@iznos, datum_zatv=@datum_zatv



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikrslista]'))
drop procedure [dbo].[sp_izmenikrslista]

Go


CREATE   PROCEDURE sp_IzmeniKrsLista
        @SImeVal Char(3),
        @ImeVal Char(20),
        @BankKod Char(3),
        @Zemja Char(20),
                @Faktor integer
AS
    SET NOCOUNT ON
    UPDATE [KrsLista]
    SET [SImeVal]=@SImeVal, [ImeVal]=@ImeVal, [BankKod]=@BankKod, [Zemja]=@Zemja, [Faktor]=@Faktor
    WHERE [SImeVal]=@SImeVal
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikrsvaznost]'))
drop procedure [dbo].[sp_izmenikrsvaznost]

Go
CREATE PROCEDURE sp_IzmeniKrsVaznost
    @Datum Smalldatetime,
    @SImeVal Char(3),
    @KursKupoven decimal(12,6),
    @KursProdazen decimal(12,6),
    @KursSreden decimal(12,6),
    @KursPazaren decimal(12,6)
AS
    UPDATE [KrsVaznost]
    SET [KursKupoven]=@KursKupoven, [KursProdazen]=@KursProdazen, [KursSreden]=@KursSreden, [KursPazaren]=@KursPazaren
    WHERE [Datum]=@Datum and [SImeVal]=@SImeVal
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniksprometrkolic]'))
drop procedure [dbo].[sp_izmeniksprometrkolic]

Go


CREATE   PROCEDURE sp_IzmeniKSPrometRKolic
    @Sifra_OE    smallint,
    @Datum    smalldatetime,
    @Sifra_ArtNemaRaskn varchar(1000) = NULL
AS
    Declare @SSQL            varchar(2000)
    SET @SSQL = 'UPDATE KSPromet SET RKolic=Kolic
    FROM KPromet P WHERE P.Sifra_OE=KSPromet.Sifra_OE AND P.Grp_Kasa=KSPromet.Grp_Kasa AND
    P.BrKasa=KSPromet.BrKasa AND P.Broj_Ska=KSPromet.Broj_Ska AND P.Datum_evid='''+cast(@Datum as varchar(35))+
    ''' AND KSPromet.Sifra_OE = ' + cast(@Sifra_OE as varchar(5)) + 'AND KSPromet.Kolic <> KSPromet.RKolic '
    IF @Sifra_ArtNemaRaskn IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Art NOT IN (' +@Sifra_ArtNemaRaskn +')'
    exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenikstapki]'))
drop procedure [dbo].[sp_izmenikstapki]

Go
CREATE PROCEDURE sp_IzmeniKStapki
    @Datum_Od        smalldatetime,
    @God_Real_St        decimal(9,4),
    @God_Reval_St    decimal(9,4),
    @Vaz_Metod        char(1) = Null,
    @God_Mes        char(1) = Null
 AS
    Update KStapki
    Set God_Real_St=@God_Real_St, God_Reval_St=@God_Reval_St, Vaz_Metod=@Vaz_Metod, God_Mes=@God_Mes
    Where Datum_Od=@Datum_Od
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilayout]'))
drop procedure [dbo].[sp_izmenilayout]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniLayOut]
    @Sifra_LayOut    int,
    @Ime_Layout        nvarchar(100),
    @ParamLayout1    char(1) = NULL,
    @ParamLayout2    char(1) = NULL

AS

    UPDATE    LayOut
    SET        Ime_Layout = @Ime_Layout,
            ParamLayout1 = @ParamLayout1,
            ParamLayout2 = @ParamLayout2
    WHERE    Sifra_LayOut = @Sifra_LayOut

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilayoutunit]'))
drop procedure [dbo].[sp_izmenilayoutunit]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniLayOutUnit]
    @Sifra_LayOutUnit    smallint,
    @Ime_LayoutUnit        nvarchar(100),
    @ParamLayoutUnit1    char(1) = NULL,
    @ParamLayoutUnit2    char(1) = NULL

AS

    UPDATE    LayOutUnit
    SET        Ime_LayoutUnit = @Ime_LayoutUnit,
            ParamLayoutUnit1 = @ParamLayoutUnit1,
            ParamLayoutUnit2 = @ParamLayoutUnit2
    WHERE    Sifra_LayOutUnit = @Sifra_LayOutUnit

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilekari]'))
drop procedure [dbo].[sp_izmenilekari]

Go

Create  PROCEDURE sp_IzmeniLekari

    @Sifra_Lekar    char(6),
    @ImeLekar    nchar(40)
AS
    Update Lekari
    Set ImeLekar=@ImeLekar
    Where Sifra_Lekar=@Sifra_Lekar
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilogo]'))
drop procedure [dbo].[sp_izmenilogo]

Go










CREATE                                 PROCEDURE sp_IzmeniLogo
    @TipObr         varchar(2),
    @Sifra_OE    Smallint,
    @Sifra_Dok    Smallint,
        @ImeFile        varchar(255),
    @Picture        image,
    @SirinaLogo     int,
    @VisinaLogo     int,
        @LeftLogo       int,
    @TopLogo        int,
    @Telefon        varchar(130),
    @ImePret        varchar(130),
    @Banka          varchar(130),
    @Mesto          varchar(130),
    @Adresa         varchar(130),
    @Ziro           varchar(130),
    @DDVBroj        varchar(130),
    @EMail          varchar(130),
        @TextDolu1      varchar(260),
        @TextDolu2      varchar(1000),
    @TextDolu3      varchar(500),
           @SpecFormaTekst nvarchar(1000),
     @TextDolu4      varchar(260),
    @TextDolu5      varchar(260),
    @TextDolu6      varchar(260),
        @TextDolu7      varchar(260),
    @FontI_ImePret  varchar(50),
    @FontSi_ImePret Smallint,
    @FontSt_ImePret varchar(50),
      @FontI_Nsl      varchar(50),
    @FontSi_Nsl     Smallint,
    @FontSt_Nsl     varchar(50),
        @FontI_EMail    varchar(50),
    @FontSi_EMail   Smallint,
    @FontSt_EMail   varchar(50),
    @FontI_Komint   varchar(50),
    @FontSi_Komint  Smallint,
    @FontSt_Komint  varchar(50),
    @TopKomint      Smallint,
    @LeftKomint     Smallint,
    @SirinaKomint   Smallint,
    @VisinaKomint   Smallint,
    @FontI_SlTekst  varchar(50),
    @FontSi_SlTekst Smallint,
    @FontSt_SlTekst varchar(50),
    @TopSlTekst     Smallint,
    @LeftSlTekst    Smallint,
    @SirinaSlTekst  Smallint,
    @VisinaSlTekst  Smallint,
    @FontI_Dospeva  varchar(50),
    @FontSi_Dospeva Smallint,
    @FontSt_Dospeva varchar(50),
    @FontI_Dolu1    varchar(50),
    @FontSi_Dolu1   Smallint,
    @FontSt_Dolu1   varchar(50),
    @FontI_Dolu2    varchar(50),
    @FontSi_Dolu2   Smallint,
    @FontSt_Dolu2   varchar(50),
        @PrikPakuv      char(1),
        @PrikKomint     char(1),
        @AltSifArt      char(1),
        @AltImeArt      char(1),
        @DecKolic       Smallint,
        @DecCena        Smallint,
        @LeftOff        int,
        @Kasa           varchar(50),
    @IznSoBukvi     varchar(1),
        @LeftDolu4    int,
        @TopDolu4       int,
        @LeftDolu5    int,
        @TopDolu5       int,
        @LeftDolu6    int,
        @TopDolu6       int,
        @LeftDolu7    int,
        @TopDolu7       int,
        @PatnikDaNe     varchar(1),
--        @PrikSerBr      varchar(1),
        @PrikVremePec   char(1),
        @PrikTezina     char(1),
        @MemoGore       varchar(1),
        @VisMemoGore    int,
        @MemoDolu       varchar(1),
        @VisMemoDolu    int,
--        @PrikFaktFooter varchar(1)
    @PrikBarKod    char(1) = Null,
        @PrikSubPoTarifi    char(1) = Null,
    @PresmPak    char(2) = Null,
    @PrikNeispArt    char(1) = Null,
    @PrikKontrBr    char(1) = Null,
        @DopTekst    nvarchar(500) = Null,
        @LeftDopTxt    int,
        @TopDopTxt      int,
        @Podr            char(1) = Null,
        @PrikAltImeKup            char(1) = 'N',
        @PaperSize           varchar(20)   = null
AS
    UPDATE Logo
    SET ImeFile=@ImeFile, Picture=@Picture, SirinaLogo=@SirinaLogo, VisinaLogo=@VisinaLogo,LeftLogo=@LeftLogo, TopLogo=@TopLogo,
            Telefon=@Telefon, ImePret=@ImePret, Banka=@Banka, Mesto=@Mesto, Adresa=@Adresa, Ziro=@Ziro, DDVBroj=@DDVBroj, EMail=@EMail,
            TextDolu1=@TextDolu1, TextDolu2=@TextDolu2, TextDolu3=@TextDolu3, TextDolu4=@TextDolu4, TextDolu5=@TextDolu5, TextDolu6=@TextDolu6, TextDolu7=@TextDolu7,
            FontI_ImePret=@FontI_ImePret, FontSi_ImePret=@FontSi_ImePret, FontSt_ImePret=@FontSt_ImePret,
            FontI_Nsl=@FontI_Nsl, FontSi_Nsl=@FontSi_Nsl, FontSt_Nsl=@FontSt_Nsl,
            FontI_Komint=@FontI_Komint, FontSi_Komint=@FontSi_Komint, FontSt_Komint=@FontSt_Komint,
            TopKomint=@TopKomint, LeftKomint=@LeftKomint, SirinaKomint=@SirinaKomint, VisinaKomint=@VisinaKomint,
            FontI_SlTekst=@FontI_SlTekst, FontSi_SlTekst=@FontSi_SlTekst, FontSt_SlTekst=@FontSt_SlTekst,
        FontI_Dospeva=@FontI_Dospeva, FontSi_Dospeva=@FontSi_Dospeva, FontSt_Dospeva=@FontSt_Dospeva,
        FontI_Dolu1=@FontI_Dolu1, FontSi_Dolu1=@FontSi_Dolu1, FontSt_Dolu1=@FontSt_Dolu1,
            FontI_Dolu2=@FontI_Dolu2, FontSi_Dolu2=@FontSi_Dolu2, FontSt_Dolu2=@FontSt_Dolu2,
        FontI_EMail=@FontI_EMail, FontSi_EMail=@FontSi_EMail, FontSt_EMail=@FontSt_EMail,
            PrikPakuv=@PrikPakuv, PrikKomint=@PrikKomint, LeftOff=@LeftOff, AltSifArt=@AltSifArt, AltImeArt=@AltImeArt,
            DecKolic=@DecKolic, DecCena=@DecCena, Kasa=@Kasa, IznSoBukvi=@IznSoBukvi,
            LeftDolu4=@LeftDolu4, TopDolu4=@TopDolu4, LeftDolu5=@LeftDolu5, TopDolu5=@TopDolu5,
            LeftDolu6=@LeftDolu6, TopDolu6=@TopDolu6, LeftDolu7=@LeftDolu7, TopDolu7=@TopDolu7,
            PatnikDaNe=@PatnikDaNe, LeftSlTekst=@LeftSlTekst, TopSlTekst=@TopSlTekst, SirinaSlTekst=@SirinaSlTekst,
            PrikBarKod=@PrikBarKod, PrikSubPoTarifi=@PrikSubPoTarifi,
            MemoGore=@MemoGore, VisMemoGore=@VisMemoGore, MemoDolu=@MemoDolu, VisMemoDolu=@VisMemoDolu,
        PresmPak=@PresmPak, PrikNeispArt=@PrikNeispArt, PrikKontrBr=@PrikKontrBr, PrikVremePec=@PrikVremePec, PrikTezina=@PrikTezina,
            DopTekst=@DopTekst, LeftDopTxt=@LeftDopTxt, TopDopTxt=@TopDopTxt, SpecFormaTekst=@SpecFormaTekst, Podr=@Podr, PrikAltImeKup=@PrikAltImeKup,
            PaperSize=@PaperSize
--            PrikSerBr=@PrikSerBr,
--            PrikFaktFooter=@PrikFaktFooter
        WHERE TipObr = @TipObr  AND Sifra_OE = @Sifra_OE AND Sifra_Dok = @Sifra_Dok
RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilokacija]'))
drop procedure [dbo].[sp_izmenilokacija]

Go

CREATE  PROCEDURE sp_IzmeniLokacija
    @Sifra_Lok    char(3),
    @ImeLok    nvarchar(40),
    @Nivo_Lok    smallint = Null,
    @Sifra_Oe_Kniz smallint = null
AS
    Update Lokacija
    Set  ImeLok=@ImeLok, Nivo_Lok=@Nivo_Lok, Sifra_Oe_Kniz=@Sifra_Oe_Kniz
    Where Sifra_Lok=@Sifra_Lok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilokorg]'))
drop procedure [dbo].[sp_izmenilokorg]

Go

create PROCEDURE [dbo].[sp_IzmeniLokOrg]
    @Sifra_LokOrg    int,
    @ImeLokOrg        nvarchar(100),
    @GrpLokOrg        varchar(20)

AS

    UPDATE    LokOrg
    SET        ImeLokOrg = @ImeLokOrg,
            GrpLokOrg = @GrpLokOrg
    WHERE    @Sifra_LokOrg = Sifra_LokOrg

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenilpopis]'))
drop procedure [dbo].[sp_izmenilpopis]

Go

CREATE PROCEDURE sp_IzmeniLPopis
    @IDPopis int,
    @Broj int,
    @IDLPopis int,
    @Sifra_Art Varchar(20),
    @Popis decimal (18,6)
 AS
    UPDATE LPopis SET
        Sifra_Art = @Sifra_Art,
        Popis = @Popis
    WHERE IDPopis = @IDPopis and Broj = @Broj and IDLPopis = @IDLPopis
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimakrolok]'))
drop procedure [dbo].[sp_izmenimakrolok]

Go

CREATE  PROCEDURE sp_IzmeniMakroLok
    @Sifra_MakLok    char(10),
    @Ime_MakLok    nvarchar(40),
    @Sifra_Lok    char(3),
    @Sifra_Oe_Kniz smallint= null
 AS
    Update MakroLok
    Set Ime_MakLok=@Ime_MakLok, Sifra_Lok=@Sifra_Lok, Sifra_oe_Kniz=@Sifra_Oe_Kniz
    Where Sifra_MakLok=@Sifra_MakLok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimark]'))
drop procedure [dbo].[sp_izmenimark]

Go
CREATE  PROCEDURE sp_IzmeniMark
    @Sifra_Mark smallint,
    @ImeMark Varchar(40),
    @ID_Server  varchar(30),
    @Ime_Baza  varchar(15),
    @Br_Vraboteni    smallint = Null,
    @Metri_Kvadr    smallint = Null
AS
    UPDATE Marketi
    SET [ImeMark]=@ImeMark, [ID_Server] = @ID_Server, [Ime_Baza] = @Ime_Baza, Br_Vraboteni=@Br_Vraboteni, Metri_Kvadr=@Metri_Kvadr
    WHERE [Sifra_Mark]=@Sifra_Mark
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimarza]'))
drop procedure [dbo].[sp_izmenimarza]

Go


CREATE  PROCEDURE sp_IzmeniMarza
    @Sifra_Art Varchar(20),
    @Proc_Marza Decimal(6, 0)
AS
    Update Katart Set Proc_Marza=@Proc_Marza Where Sifra_Art=@Sifra_Art
    If @@ROWCOUNT = 1
        RETURN 0
    Else
        RETURN 77000




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimasini]'))
drop procedure [dbo].[sp_izmenimasini]

Go
CREATE PROCEDURE sp_IzmeniMasini
    @Sifra_Mas    varchar(15),
    @ImeMas    char(40)
AS
    Update Masini
    Set ImeMas=@ImeMas
    Where Sifra_Mas=@Sifra_Mas



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimckatpoz]'))
drop procedure [dbo].[sp_izmenimckatpoz]

Go

create          PROCEDURE [dbo].[sp_IzmeniMCKatPoz]
    @Sif_MCPozicija int,
    @ImeMCPozicija nvarchar(50),
    @SkrImeMCPozicija nvarchar(10),
    @Tip char(1),
    @DozvVredC  nvarchar(300),
    @DozvVredNOd decimal(18,6),
    @DozvVredNDo decimal(18,6)
AS
    UPDATE    MCKatPozicija
    SET        ImeMCPozicija = @ImeMCPozicija,
            SkrImeMCPozicija = @SkrImeMCPozicija,
            Tip = @Tip,
            DozvVredC = @DozvVredC,
            DozvVredNOd = @DozvVredNOd,
            DozvVredNDo = @DozvVredNDo
    WHERE    Sif_MCPozicija = @Sif_MCPozicija






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimclista]'))
drop procedure [dbo].[sp_izmenimclista]

Go
create  PROCEDURE [dbo].[sp_IzmeniMCLista]
    @Br_MCLista    smallint,
    @Sif_MCPozicija    smallint,
    @ImeMCLista    nvarchar(50),
    @SkrImeMCLista    nvarchar(10),
    @Rbr    smallint,
    @Aktiven    char(1)
 AS

    UPDATE    MCLista
    SET        ImeMCLista = @ImeMCLista,
            SkrImeMCLista = @SkrImeMCLista,
            Rbr = @Rbr,
            Aktiven = @Aktiven
    WHERE    Br_MCLista = @Br_MCLista AND Sif_MCPozicija = @Sif_MCPozicija
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimerenjazaart]'))
drop procedure [dbo].[sp_izmenimerenjazaart]

Go
CREATE   PROCEDURE sp_IzmeniMerenjaZaArt
    @Sifra_Kup    char(6),
    @Datum        smalldatetime,
    @Sifra_Art    varchar(20),
    @Vrednost    decimal(18,6),
    @Proteini decimal(18,6)= null
AS
    Update  MerenjaZaArt
    Set Vrednost=@Vrednost, Proteini=@Proteini
    WHERE Sifra_Kup = @Sifra_Kup and Datum=@Datum and Sifra_Art=@Sifra_Art
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenimikrolok]'))
drop procedure [dbo].[sp_izmenimikrolok]

Go

CREATE  PROCEDURE sp_IzmeniMikroLok
    @Sifra_MikLok    char(10),
    @Ime_MikLok    nvarchar(40),
    @Sifra_MakLok    char(10),
    @Sifra_Oe_Kniz smallint = null
 AS
    Update MikroLok
    Set Ime_MikLok=@Ime_MikLok, Sifra_MakLok=@Sifra_MakLok, Sifra_oe_kniz=@Sifra_oe_Kniz
    Where Sifra_MikLok=@Sifra_MikLok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninabavnakatart]'))
drop procedure [dbo].[sp_izmeninabavnakatart]

Go








CREATE    PROCEDURE sp_IzmeniNabavnaKatart

    @Sifra_Art    varchar(20),
    @Nabavna    decimal(12,4)
AS
    Update Katart
    Set Nabavna= @Nabavna
    Where Sifra_art = @Sifra_art
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninadvkor]'))
drop procedure [dbo].[sp_izmeninadvkor]

Go

CREATE  PROCEDURE [dbo].[sp_IzmeniNadvKor]
    @KorIme    varchar(15),
    @Sifra_Kup    char(6)=Null,
    @Lozinka    varchar(15)=Null,
    @Aktiven    char(1)=Null,
    @Aktiven_Od    smalldatetime=Null,
    @Aktiven_Do    smalldatetime=Null,
    @Jazik        char(3)=Null,
    @LokAdm     char(1)=Null,
    @email     varchar(50),
    @IzmenetOd varchar(30)
 AS
    Declare @IzmenetNa smalldatetime;
    Set @IzmenetNa = Getdate();
    if(@Lozinka IS NOT Null)
    Update NadvKor
    Set Sifra_Kup=@Sifra_Kup, Lozinka=cast(@Lozinka as varbinary(100)), Aktiven=@Aktiven, Aktiven_Od=@Aktiven_Od, Aktiven_Do=@Aktiven_Do, Jazik=@Jazik,LokAdm=@LokAdm,email=@email,IzmenetOd=@IzmenetOd,IzmenetNa=@IzmenetNa
    Where KorIme=@KorIme
    else
    Update NadvKor
    Set Sifra_Kup=@Sifra_Kup,Aktiven=@Aktiven, Aktiven_Od=@Aktiven_Od, Aktiven_Do=@Aktiven_Do, Jazik=@Jazik,LokAdm=@LokAdm,email=@email,IzmenetOd=@IzmenetOd,IzmenetNa=@IzmenetNa
    Where KorIme=@KorIme
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninalog]'))
drop procedure [dbo].[sp_izmeninalog]

Go
CREATE     PROCEDURE sp_IzmeniNalog
    @Sifra_Nal smallint,
    @ImeNal Char(40),
    @Knizi char(1) ,
    @SvojNal char(1),
    @MoraSubAn char(1) = Null,
    @PrasDanok char(1) = Null,
    @PrasDanokDev char(1) = Null,
    @PredlDatNaDok char(1) = Null,
    @VoDDV_Knig    char(1)=NULL,
    @Kto_Blag    char(10)=NULL,
    @Predl_Nar_Nal char(1) = Null
AS
    SET NOCOUNT ON
    UPDATE TipNal
    SET ImeNal=@ImeNal, Knizi=@Knizi,  SvojNal=@SvojNal, MoraSubAn = @MoraSubAn,
    PrasDanok = @PrasDanok, PrasDanokDev = @PrasDanokDev, PredlDatNaDok = @PredlDatNaDok,
    VoDDV_Knig=@VoDDV_Knig, Kto_Blag=@Kto_Blag, Predl_Nar_Nal=@Predl_Nar_Nal
    WHERE Sifra_Nal=@Sifra_Nal
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninalozi]'))
drop procedure [dbo].[sp_izmeninalozi]

Go
CREATE  PROCEDURE sp_IzmeniNalozi
    @Sifra_Nal smallint,
    @Broj_Nal int,
    @Datum_Nal smalldatetime,
    @Sts_Kniz char(1),
    @VleguvaVoRekap char(1) = 'D'
AS
   UPDATE [Nalozi]
   SET [Datum_Nal]=@Datum_Nal, [Sts_kniz]=@Sts_kniz, VleguvaVoRekap = @VleguvaVoRekap
   WHERE [Sifra_nal]=@Sifra_Nal AND [broj_Nal] = @Broj_Nal
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninaloziprenosnici]'))
drop procedure [dbo].[sp_izmeninaloziprenosnici]

Go
CREATE     PROCEDURE sp_IzmeniNaloziPrenosnici
    @OdPrimaDava    char(1) = 'P',        -- P - Prima    D - Dava
    @NaPrimaDava    char(1) = 'D',    -- P - Prima    D - Dava
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(2000)
    Create Table #Dokr
    (
     Sifra_Oe smallint,
     Sifra_Dok smallint,
     Broj_Dok int,
     Sifra_Prim smallint,
     ImaDodatna char(1),
     Sifra_Nal smallint,
     Broj_Nal int
    )
    Set @SSQL = ' Select Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna,
            Sifra_Nal, Broj_Nal
            From Dokr
            Where ImaDodatna = ''' + @OdPrimaDava + '''
            And Sifra_Nal Is Not Null '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and Datum_Dok <= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
print @SSQL
    Insert Into #Dokr Exec(@SSQL)
    Select * from #Dokr
    Update Dokr
    Set Dokr.Sifra_Nal=#Dokr.Sifra_Nal, Dokr.Broj_Nal=#Dokr.Broj_Nal
    From #Dokr
    Where Dokr.Sifra_Oe=#Dokr.Sifra_Prim
    and Dokr.Sifra_Dok=#Dokr.Sifra_Dok
    and Dokr.Broj_Dok=#Dokr.Broj_Dok
    and Dokr.Sifra_Prim=#Dokr.Sifra_Oe
    and Dokr.ImaDodatna=@NaPrimaDava
    Set @SSQL = ' Select Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna,
            Sifra_Nal, Broj_Nal
            From Dokr
            Where ImaDodatna = ''' + @NaPrimaDava + '''
            And Sifra_Nal Is Not Null '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and Datum_Dok <= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninaplata]'))
drop procedure [dbo].[sp_izmeninaplata]

Go
CREATE PROCEDURE sp_IzmeniNaplata
    @Sifra_OE    smallint = Null,
    @Sifra_Dok    smallint = Null,
    @Broj_Dok    int = Null,
    @Sifra_Kup    char(6) = Null,
    @Pobaruva    decimal(18,6) = Null,
    @Datum_Dok    smalldatetime = Null
AS
    Update Naplata
    Set Sifra_Kup=Sifra_Kup, Pobaruva=@Pobaruva, Datum_Dok=@Datum_Dok
    Where Sifra_OE=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninaracki]'))
drop procedure [dbo].[sp_izmeninaracki]

Go




CREATE          PROCEDURE sp_IzmeniNaracki
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int,
    @Identif_Br nVarchar(40),
    @Sifra_Kup Char(6),
    @Sifra_Obj Smallint,
    @Datum_Nar Smalldatetime,
    @Uces Decimal(6,2),
    @Rok Smallint,
    @Sifra_Pat Smallint,
    @Toc200 Decimal(18,6),
    @KojaVal Char(3),
    @Kurs Decimal(18,8),
    @DanDokCena Char(1),
    @DanMagCena Char(1),
    @CenaIznos Char(1),
    @TekstPosle nVarchar(1500),
    @Kasa Decimal(6,2),
    @Sifra_Nivo char(2),
    @Spremil varchar(5) = Null,
    @SiteTros decimal(18,6) = Null,
    @Prevoz Decimal(18,6) = Null,
    @Osiguruv Decimal(18,6) = Null,
    @Carina Decimal(18,6) = Null,
    @Spedicija Decimal(18,6) = Null,
    @Smena Char(1) = Null,
    @KojaSmetka Char(1) = Null,
    @IzmenetPoslePec Char(1) = Null,
    @PlakOpis    char(4) = Null,
    @Dat_Ocek    smalldatetime=Null,
    @Dat_Pristig    smalldatetime=Null,
    @Dat_Utov    smalldatetime=Null,
    @Vet_Broj    varchar(20)=Null,
    @Dat_Vet_Vazn smalldatetime=Null,
    @Vozilo_Kont    varchar(20)=Null,
    @Stat_Nar    char(1) = Null,
    @Broj_Proekt    int = Null,
    @TekstPred    nvarchar(1500) = Null,
    @Predmet    nvarchar(300)= null

AS

UPDATE [Naracki]
SET [Identif_Br]=@Identif_Br, [Sifra_Kup]=@Sifra_Kup, [Sifra_Obj]=@Sifra_Obj, [Datum_Nar]=@Datum_Nar, [Datum_Izm]=GetDate(), [Uces]=@Uces, [Rok]=@Rok,
    [Sifra_Pat]=@Sifra_Pat, [Toc200]=@Toc200, [KojaVal]=@KojaVal, [Kurs]=@Kurs, [DanDokCena]=@DanDokCena, [DanMagCena]=@DanMagCena,
    [CenaIznos]=@CenaIznos, [TekstPosle]=@TekstPosle, [Kasa]=@Kasa, [Sifra_Nivo]=@Sifra_Nivo, [Spremil]=@Spremil, [SiteTros]=@SiteTros, Prevoz=@Prevoz,
    Osiguruv=@Osiguruv, Carina=@Carina, Spedicija=@Spedicija, Sifra_OpIz = SUSER_SNAME(), Smena=@Smena, KojaSmetka=@KojaSmetka, IzmenetPoslePec=@IzmenetPoslePec,
    PlakOpis=@PlakOpis, Dat_Ocek=@Dat_Ocek, Dat_Pristig=@Dat_Pristig, Dat_Utov=@Dat_Utov, Vet_Broj=@Vet_Broj, Dat_Vet_Vazn=@Dat_Vet_Vazn, Vozilo_Kont=@Vozilo_Kont,
    Stat_Nar=@Stat_Nar, Broj_Proekt = @Broj_Proekt, TekstPred = @TekstPred, Predmet=@predmet
WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninaracki_popec]'))
drop procedure [dbo].[sp_izmeninaracki_popec]

Go
CREATE PROCEDURE sp_IzmeniNaracki_PoPec
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Nar        int
--    @Ispecaten        smallint,
--    @IzmenetPoslePec    char(1)
 AS
    Declare @Ispecaten smallint
    Select @Ispecaten = Ispecaten
    From Naracki
    Where Sifra_Oe=@Sifra_Oe and Sifra_Nar=@Sifra_Nar and Broj_Nar=@Broj_Nar
    If @Ispecaten Is Null
        Set @Ispecaten = 0
    Set @Ispecaten = @Ispecaten + 1
    Update Naracki
    Set Ispecaten = @Ispecaten, IzmenetPoslePec = 'N'
    Where Sifra_Oe=@Sifra_Oe and Sifra_Nar=@Sifra_Nar and Broj_Nar=@Broj_Nar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninarpodnar]'))
drop procedure [dbo].[sp_izmeninarpodnar]

Go

CREATE   PROCEDURE sp_IzmeniNarPodnar

    @NarID_Orig    int,
    @NarID_Podnar    int,
    @NarID_OdKoja    int=null,
    @Aktiven    char(1) = 'D'
 AS
    Declare @@SQL as varchar(1000)

    Set @@SQL  = 'Update NarPodnar Set Aktiven='''+@Aktiven+''' '

    If @NarID_OdKoja IS NOT NULL
        Set @@SQL  = @@SQL +  ' , NarId_OdKoja =  ' +cast (@NarID_OdKoja as varchar(20))

    Set @@SQL  = @@SQL + ' Where NarId_Orig = '+cast (@NarID_Orig as varchar(20))
    Set @@SQL  = @@SQL + ' AND NarID_Podnar = '+cast (@NarID_Podnar as varchar(20))

    Exec (@@Sql)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeningbillcodes]'))
drop procedure [dbo].[sp_izmeningbillcodes]

Go


CREATE   PROCEDURE sp_IzmeniNGBillCodes
    @Sifra_BillCode    char(10),
    @ImeBillCode    nvarchar(50),
    @DefIznos    decimal(18,2),
    @BrojRati    smallint,
    @DenoviVoGod    smallint,
    @DP         char(1) = NULL,
    @Tip_BillCode     char(1) = NULL,
    @DefProcent     decimal(6, 2) = NULL,
    @PoDatumi    char (1) = Null,
    @Datum1        smalldatetime = Null,
    @Datum2        smalldatetime = Null,
    @Datum3        smalldatetime = Null,
    @Datum4        smalldatetime = Null,
    @Datum5        smalldatetime = Null,
    @Datum6        smalldatetime = Null,
    @Datum7        smalldatetime = Null,
    @Datum8        smalldatetime = Null,
    @Datum9        smalldatetime = Null,
    @Datum10    smalldatetime = Null,
    @Datum11    smalldatetime = Null,
    @Datum12    smalldatetime = Null,
    @Opis_Fakt    nvarchar (40) = Null,
    @DniDospDef    smallint = 0

AS

    Update NGBillCodes
    Set ImeBillCode=@ImeBillCode, DefIznos=@DefIznos, BrojRati=@BrojRati, DenoviVoGod=@DenoviVoGod, DP=@DP, Tip_BillCode=@Tip_BillCode, DefProcent=@DefProcent,
    PoDatumi = @PoDatumi,
    Datum1    = @Datum1,
    Datum2    = @Datum2,
    Datum3    = @Datum3,
    Datum4    = @Datum4,
    Datum5    = @Datum5,
    Datum6    = @Datum6,
    Datum7    = @Datum7,
    Datum8    = @Datum8,
    Datum9    = @Datum9,
    Datum10    = @Datum10,
    Datum11    = @Datum11,
    Datum12    = @Datum12,
        Opis_Fakt = @Opis_Fakt,
        DniDospDef = @DniDospDef

    Where Sifra_BillCode=@Sifra_BillCode
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeningcoursetype]'))
drop procedure [dbo].[sp_izmeningcoursetype]

Go
CREATE PROCEDURE sp_IzmeniNGCourseType
    @Sifra_CourseType    char(10),
    @ImeCourseType    nvarchar(40),
    @NivoCourseType    smallint
AS
    Update NGCourseType
    Set ImeCourseType=@ImeCourseType, NivoCourseType=@NivoCourseType
    Where Sifra_CourseType=@Sifra_CourseType
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeningfamilija]'))
drop procedure [dbo].[sp_izmeningfamilija]

Go
CREATE PROCEDURE sp_IzmeniNGFamilija
    @Sifra_Famil    char(20),
    @ImeFamil    nvarchar(50)
AS
    Update NGFamilija
    Set ImeFamil=@ImeFamil
    Where Sifra_Famil=@Sifra_Famil
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninginvoice]'))
drop procedure [dbo].[sp_izmeninginvoice]

Go
CREATE PROCEDURE sp_IzmeniNGInvoice
    @Sifra_Oe    smallint,
    @Broj_Inv    int,
    @FiscPeriod    char(10),
    @Sifra_Student    char(6),
    @Datum_Inv    smalldatetime,
    @Opis_Invoice    nvarchar(40),
    @SlobTekst    nvarchar(1000),
    @MaxObidi    Smallint = 20
AS
    Update NGInvoice
    Set FiscPeriod=@FiscPeriod, Sifra_Student=@Sifra_Student, Datum_Inv=@Datum_Inv , Opis_Invoice=@Opis_Invoice, SlobTekst=@SlobTekst
    Where Sifra_Oe=@Sifra_Oe And @Broj_Inv=Broj_Inv
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninginvoicestastavka]'))
drop procedure [dbo].[sp_izmeninginvoicestastavka]

Go
CREATE PROCEDURE sp_IzmeniNGInvoiceStaStavka
    @Sifra_Oe        smallint,
    @Broj_Inv        int,
    @RbrStavka        smallint,
    @Datum_Stavka    smalldatetime,
    @Datum_Dosp_Stavka    smalldatetime,
    @Sifra_BillCode        char(10),
    @Sifra_OtherCode    char(1),
    @Iznos_Stavka        decimal(18,2),
    @Opis_Stavka        nvarchar
AS
    Update NGInvoiceSta
    Set Datum_Stavka=@Datum_Stavka, Datum_Dosp_Stavka=@Datum_Dosp_Stavka, Sifra_BillCode=@Sifra_BillCode,
        Sifra_OtherCode=@Sifra_OtherCode, Iznos_Stavka=@Iznos_Stavka, Opis_Stavka=@Opis_Stavka
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv And RbrStavka=@RbrStavka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeningschoolyear]'))
drop procedure [dbo].[sp_izmeningschoolyear]

Go

create  PROCEDURE sp_IzmeniNGSchoolYear
    @Sifra_SchoolYear    char(10),
    @ImeSchoolYear        nvarchar(40)

AS

    Update NGSchoolYear
    Set ImeSchoolYear = @ImeSchoolYear
    Where Sifra_SchoolYear = @Sifra_SchoolYear

    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeningstudents]'))
drop procedure [dbo].[sp_izmeningstudents]

Go


CREATE   PROCEDURE sp_IzmeniNGStudents
    @Sifra_Student    char(6),
    @ImeStudent    nvarchar(40),
    @Adresa    nvarchar(80),
    @Posta        char(10),
    @SMesto    nvarchar(40),
    @Telefon    nvarchar(50),
    @Sifra_Famil    char(20),
    @Sifra_CourseType    char(10),
    @Godina    char(10),
    @Aktiven    char(1),
    @Adresa_Bill     nvarchar(80) = Null,
    @Posta_Bill     char(10) = Null,
    @SMesto_Bill     nvarchar(40) = Null,
    @ImeStudent_Bill    nvarchar(40) = Null,
    @TelMob          nvarchar(40) = Null,
    @eMailAdr        varchar(50) = Null,
    @Zemja          nvarchar(50) = Null

AS

    Update NGStudents
    Set ImeStudent=@ImeStudent, Adresa=@Adresa, Posta=@Posta, SMesto=@SMesto, Telefon=@Telefon,
        Sifra_Famil=@Sifra_Famil, Sifra_CourseType=@Sifra_CourseType, Godina=@Godina, Aktiven=@Aktiven,
        Adresa_Bill=@Adresa_Bill, Posta_Bill=@Posta_Bill, SMesto_Bill=@SMesto_Bill,
        ImeStudent_Bill=@ImeStudent_Bill,
        TelMob=@TelMob, eMailAdr=@eMailAdr, Zemja=@Zemja
    Where Sifra_Student=@Sifra_Student
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninivo]'))
drop procedure [dbo].[sp_izmeninivo]

Go
CREATE     PROCEDURE sp_IzmeniNivo
    @Sifra_Nivo    Char(2),
    @ImeNivo    Char(40),
    @Prioritet    smallint,
    @Rok_Dosp    smallint,
    @Kasa        decimal(6,2),
    @Uces        decimal(6,2),
    @KojaCena    char(1) = NULL
AS
    SET NOCOUNT ON
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Nivo]
    SET [ImeNivo]=@ImeNivo,  [Prioritet]=@Prioritet, Rok_Dosp = @Rok_Dosp, Kasa = @Kasa, Uces = @Uces, KojaCena = @KojaCena, Propagiraj=@Propagiraj
    WHERE [Sifra_Nivo]=@Sifra_Nivo
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeninivocenikartkor]'))
drop procedure [dbo].[sp_izmeninivocenikartkor]

Go
CREATE PROCEDURE sp_IzmeniNivoCeniKartKor
    @Sifra_CeniKartKor    smallint,
    @ImeCeniKartKor    char(30)
 AS
    Update NivoCeniKartKor
    Set ImeCeniKartKor = @ImeCeniKartKor
    Where Sifra_CeniKartKor=@Sifra_CeniKartKor
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioblast]'))
drop procedure [dbo].[sp_izmenioblast]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniOblast]
    @Sifra_Oblast    varchar(10),
    @Ime_Oblast        nvarchar(100),
    @Sifra_Asort    varchar(10)

AS

    UPDATE    Oblast
    SET        Ime_Oblast = @Ime_Oblast,
            Sifra_Asort = @Sifra_Asort
    WHERE    Sifra_Oblast = @Sifra_Oblast

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioe]'))
drop procedure [dbo].[sp_izmenioe]

Go



CREATE             PROCEDURE [dbo].[sp_IzmeniOE]
    @Sifra_OE smallint,
    @ImeOrg char(40),
    @GolMal char(1),
    @SMatFin char(1),
    @CeniSoDanok Char(1),
    @SifMark smallint,
    @OrgDaliFin char(1),
    @ProcSpecPopust  decimal(9,2),
    @DaliZbirenMag char(1),
    @DozvTipdok varchar(100),
    @ZabrTipdok varchar(100),
    @OePrva smallint,
    @OeVtora smallint,
    @NabFifo Char(1),
    @PosCena_Pri_Pren Char(1) = Null,
    @Predupr_Neg Char(1) = Null,
    @Nabavni char (1) = Null,
    @DaliRokKontr char(1) = Null,
    @DanDokMaska char(1) = Null,
    @Dozv_Konzum char(1) = Null,
    @TipMag char(1)= NULL,
    @TipD_Izlez_Redoven varchar(20)= NULL,
    @TipD_Vlez_Redoven varchar(20)= NULL,
    @Tip_Randeman char(1)=NULL,
        @Sifra_Kup char(6) = Null,
    @Vleci_PlanskaC char(1) = 'N',
    @Sifra_Oe_SAP varchar(10)=NULL,
    @MestoIsporaka varchar(20)= null,
    @OrgGrad varchar(30) = null,
    @Datum_Org_Poc  smalldatetime=null,
    @Datum_Org_Kr  smalldatetime=null,
    @Sifra_Org_Man   smallint=null,
    @Sifra_Org_Ref   smallint=null,
    @Sifra_Reg       smallint=null,
    @Sifra_LayOut    int=null,
    @Sifra_LokOrg    smallint=null,
    @Status_org      char(1)=null,
    @m2_magacin      int=null,
    @m2_prodazen     int=null,
    @OrgAdresa varchar(40) = null,
    @OrgPosta varchar(10) = null,
    @OrgTelefon varchar(30) = null,
    @Pon_Od    smallint=null,
    @Pon_Do    smallint=null,
    @Vto_Od    smallint=null,
    @Vto_Do    smallint=null,
    @Sre_Od    smallint=null,
    @Sre_Do    smallint=null,
    @Cet_Od    smallint=null,
    @Cet_Do    smallint=null,
    @Pet_Od    smallint=null,
    @Pet_Do    smallint=null,
    @Sab_Od    smallint=null,
    @Sab_Do    smallint=null,
    @Ned_Od    smallint=null,
    @Ned_Do    smallint=null
AS

    UPDATE Orged
    SET     ImeOrg=@ImeOrg, GolMal=@GolMal, SMatFin=@SMatFin,CeniSoDanok=@CeniSoDanok,
Sifra_Mark=@SifMark, OrgDaliFin=@OrgDaliFin, ProcSpecPopust=@ProcSpecPopust,
DaliZbirenMag=@DaliZbirenMag, DozvTipdok=@DozvTipdok, ZabrTipdok=@ZabrTipdok,
OePrva=@OePrva, OeVtora=@OeVtora, NabFifo=@NabFifo, PosCena_Pri_Pren=@PosCena_Pri_Pren,
Predupr_Neg=@Predupr_Neg, Nabavni=@Nabavni,    DaliRokKontr=@DaliRokKontr,
DanDokMaska=@DanDokMaska, Dozv_Konzum=@Dozv_Konzum,
TipMag=@TipMag, TipD_Izlez_Redoven=@TipD_Izlez_Redoven, TipD_Vlez_Redoven=@TipD_Vlez_Redoven, Tip_Randeman=@Tip_Randeman,
Sifra_Kup=@Sifra_Kup, Vleci_PlanskaC = @Vleci_PlanskaC, Sifra_Oe_SAP = @Sifra_Oe_SAP, MestoIsporaka= @MestoIsporaka,
OrgGrad = @OrgGrad, Datum_Org_Poc=@Datum_Org_Poc, Datum_Org_Kr=@Datum_Org_Kr, Sifra_Org_Man=@Sifra_Org_Man, Sifra_Org_Ref=@Sifra_Org_Ref,
Sifra_Reg=@Sifra_Reg, Sifra_LayOut=@Sifra_LayOut, Sifra_LokOrg=@Sifra_LokOrg, Status_org=@Status_org, m2_magacin=@m2_magacin, m2_prodazen=@m2_prodazen,
OrgAdresa=@OrgAdresa, OrgPosta=@OrgPosta, OrgTelefon= @OrgTelefon, Pon_Od=@Pon_Od, Pon_Do=@Pon_Do, Vto_Od=@Vto_Od, Vto_Do=@Vto_Do, Sre_Od=@Sre_Od,
Sre_Do=@Sre_Do, Cet_Od=@Cet_Od, Cet_Do=@Cet_Do, Pet_Od=@Pet_Od, Pet_Do=@Pet_Do, Sab_Od=@Sab_Od, Sab_Do=@Sab_Do, Ned_Od=@Ned_Od, Ned_Do=@Ned_Do
    WHERE Sifra_OE=@Sifra_OE

    RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioe_sap]'))
drop procedure [dbo].[sp_izmenioe_sap]

Go






CREATE   PROCEDURE sp_IzmeniOE_SAP
    @Sifra_Oe_SAP nchar(10),
    @ImeOrg char(40)
AS
    UPDATE Orged
    SET     ImeOrg=@ImeOrg
    WHERE Sifra_OE_SAP=@Sifra_Oe_SAP
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioperatori]'))
drop procedure [dbo].[sp_izmenioperatori]

Go

CREATE   PROCEDURE sp_IzmeniOperatori
    @Sifra_Oper    smallint,
    @Ime_Oper    varchar(50),
    @Lozinka    varchar(20) = Null,
    @Login_Ime    varchar(20) = Null,
    @Sifra_Oe    smallint = Null,
    @MaxPopust    decimal (6, 2) = Null,
    @Sifra_GrOper    char(20) = Null,
    @Sif_GrOrg    char(6) = Null,
    @Aktiven    char(1) = Null

 AS
    Update Operatori
    Set Ime_Oper=@Ime_Oper, Lozinka=@Lozinka, Login_Ime=@Login_Ime, Sifra_Oe=@Sifra_Oe,
        MaxPopust = @MaxPopust, Sifra_GrOper=@Sifra_GrOper, Sif_GrOrg = @Sif_GrOrg,
            Aktiven = @Aktiven
    Where Sifra_Oper=@Sifra_Oper
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioptzalpooe]'))
drop procedure [dbo].[sp_izmenioptzalpooe]

Go

CREATE PROCEDURE sp_IzmeniOptZalPoOe
    @Sifra_Oe    Smallint,
    @Sifra_Art    varchar(20),
    @MinZal    Decimal(18,6) = Null,
    @MaxZal    Decimal(18,6) = Null,
    @OptZal    Decimal(18,6) = Null
AS
    Update OptZalPoOe
    Set MinZal=@MinZal, MaxZal=@MaxZal, OptZal=@OptZal
    Where Sifra_Oe = @Sifra_Oe and Sifra_Art = @Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniosngrpodel]'))
drop procedure [dbo].[sp_izmeniosngrpodel]

Go



create    PROCEDURE sp_IzmeniOsnGrPodel
    @Sifra_OsnGrPodel   smallint,
    @ImeOsnGrPodel        nvarchar(25)
AS
    Update OsnGrPodel
    Set ImeOsnGrPodel=@ImeOsnGrPodel Where Sifra_OsnGrPodel=@Sifra_OsnGrPodel
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniosnovosig]'))
drop procedure [dbo].[sp_izmeniosnovosig]

Go

CREATE  PROCEDURE [dbo].[sp_IzmeniOsnovOsig]

    @Sifra_OsnovOsig    char(2),
    @ImeOsnovOsig        nchar(120),
    @DolgoImeOsnovOsig    nchar(200),
    @Stranski            char(1) = Null

AS

    Update OsnovOsig
    Set ImeOsnovOsig=@ImeOsnovOsig, DolgoImeOsnovOsig=@DolgoImeOsnovOsig, Stranski = @Stranski
    Where Sifra_OsnovOsig=@Sifra_OsnovOsig

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniosnpodelbi]'))
drop procedure [dbo].[sp_izmeniosnpodelbi]

Go




CREATE  PROCEDURE sp_IzmeniOsnPodelbi
    @Sifra_OsnGrPodel smallint,
    @Sifra_OsnPodel smallint,
    @Vrednost nvarchar(25),
    @DaliBrisi char(1) = 'N'
 AS

if exists (select * from OsnPodelbi O where O.Sifra_OsnGrPodel = @Sifra_OsnGrPodel and O.Sifra_OsnPodel = @Sifra_OsnPodel) and @DaliBrisi = 'N'
    update OsnPodelbi set Vrednost = @Vrednost where Sifra_OsnGrPodel = @Sifra_OsnGrPodel and Sifra_OsnPodel = @Sifra_OsnPodel
else If exists (select * from OsnPodelbi O where O.Sifra_OsnGrPodel = @Sifra_OsnGrPodel and O.Sifra_OsnPodel = @Sifra_OsnPodel) and @DaliBrisi = 'D'
    delete from OsnPodelbi where Sifra_OsnGrPodel = @Sifra_OsnGrPodel and Sifra_OsnPodel = @Sifra_OsnPodel
else
    insert into OsnPodelbi (Sifra_OsnGrPodel, Sifra_OsnPodel, Vrednost)
    values (@Sifra_OsnGrPodel, @Sifra_OsnPodel, @Vrednost)

RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniosnsred]'))
drop procedure [dbo].[sp_izmeniosnsred]

Go


CREATE        PROCEDURE sp_IzmeniOsnSred
    @Inv_Broj    char(10),
    @Ime        nvarchar(100),
    @Opis        nvarchar(250),
    @Kto_Anal    char(10),
    @Br_Smena    char(1),
    @Sifra_Amor    char(3),
    @BarKod    char(15) = Null,
    @Resen              char(1),
    @Oznaka    nvarchar(10) = Null,
    @Tip             char(2),
    @DatNab        smalldatetime = Null,
    @ImeStr        nvarchar(100) = Null,
    @Sifra_Div smallint= null,
    @Sifra_trosM smallint = null,
    @Sifra_TrosV smallint= null,

@oss_DatumDog smalldatetime = Null,
@oss_Dogovor nvarchar(50) = Null,
@oss_sifra_amor char(3) = Null,
@oss_dodopis nvarchar(50) = Null,
@oss_kod char(10) = Null,
@oss_tip char(1) = Null,
@oss_TrosokDen decimal(18, 2) = Null,
@oss_osnov1 decimal(18, 2) = Null,
@oss_osnov2 decimal(18, 2) = Null,
@oss_kto_anal chaR(10) = Null,
@oss_sif_podprogr chaR(5) = Null,
@oss_sifrA_gra chaR(5) = Null,
@oss_tip_oprema char(5) = Null,
@oss_rez1 smallint = Null,
@oss_rez2 smallint = Null,
@oss_rezc nvarchaR(20) = Null,
@oss_rezdatum smalldatetime = Null,
@oss_speclokacija nvarchar(40) = Null,
@oss_Zabel nvarchar(100) = Null


 AS

    Update OsnSred
    Set Ime=@Ime, Opis=@Opis, Kto_Anal=@Kto_Anal, Br_Smena=@Br_Smena, Sifra_Amor=@Sifra_Amor, BarKod=@BarKod, Resen=@Resen,
 Oznaka=@Oznaka, Tip=@Tip, DatNab=@DatNab, ImeStr=@ImeStr, Sifra_Div=@Sifra_Div, Sifra_trosM=@Sifra_trosM, Sifra_TrosV=@Sifra_TrosV,

oss_DatumDog = @oss_DatumDog,
oss_Dogovor = @oss_Dogovor,
oss_sifra_amor = @oss_sifra_amor,
oss_dodopis = @oss_dodopis,
oss_kod = @oss_kod,
oss_tip = @oss_tip,
oss_TrosokDen = @oss_TrosokDen,
oss_osnov1 = @oss_osnov1,
oss_osnov2 = @oss_osnov2,
oss_kto_anal = @oss_kto_anal,
oss_sif_podprogr = @oss_sif_podprogr,
oss_sifrA_gra = @oss_sifrA_gra,
oss_tip_oprema = @oss_tip_oprema,
oss_rez1 = @oss_rez1,
oss_rez2 = @oss_rez2,
oss_rezc = @oss_rezc,
oss_rezdatum = @oss_rezdatum,
oss_speclokacija = @oss_speclokacija,
oss_Zabel = @oss_Zabel

    Where Inv_Broj=@Inv_Broj
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniosnsredbarkod]'))
drop procedure [dbo].[sp_izmeniosnsredbarkod]

Go
CREATE PROCEDURE sp_IzmeniOsnSredBarKod
    @Inv_Broj    char(10),
    @BarKod        char(15)
AS
    UPDATE OsnSred SET BarKod=@BarKod WHERE Inv_Broj=@Inv_Broj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniotkrojsema]'))
drop procedure [dbo].[sp_izmeniotkrojsema]

Go
CREATE PROCEDURE sp_IzmeniOtkrojSema
    @Sifra_Otkr    smallint,
    @Proc1        decimal(6,2),
    @Proc2        decimal(6,2),
    @Proc3        decimal(6,2),
    @Proc4        decimal(6,2),
    @Proc5        decimal(6,2)
 AS
    Update OtkrojSema
    Set Proc1=@Proc1, Proc2=@Proc2, Proc3=@Proc3, Proc4=@Proc4, Proc5=@Proc5
    Where Sifra_Otkr=@Sifra_Otkr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenioznaka]'))
drop procedure [dbo].[sp_izmenioznaka]

Go
CREATE PROCEDURE [dbo].[sp_IzmeniOznaka]
    @Sifra_Art    VarChar(20),
    @Ozn        VarChar(20),
    @Ozn_Elem    VarChar(20)
AS

    UPDATE    DeklArtVrska
    SET        Ozn_Elem = @Ozn_Elem
    WHERE    Sifra_Art = @Sifra_Art AND Ozn_Grupa = @Ozn

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipacienti]'))
drop procedure [dbo].[sp_izmenipacienti]

Go



CREATE   PROCEDURE sp_IzmeniPacienti

    @EMBG            char(13),
    @ImePacient        nchar(40),
    @Broj_Kniska        char(14),
    @Sifra_Kompanija    char(10),
    @Sifra_Lekar        char(6),
    @Sifra_OsnovOsig    char(2),
    @EMBG_OSIG         varchar(13) = Null,
    @EZBO         varchar(9) = Null,
    @EZBO_OSIG         varchar(9) = Null,
    @Str_Broj         varchar(30) = Null,
    @Str_Broj_EHIC     varchar(30) = Null,
    @Str_Drzava         char(3) = Null,
    @Str_Pasos         varchar(20) = Null,
    @Str_Broj_Osig         varchar(30) = Null

AS
    Update Pacienti
    Set ImePacient=@ImePacient, Broj_Kniska=@Broj_Kniska, Sifra_Kompanija=@Sifra_Kompanija, Sifra_Lekar=@Sifra_Lekar, Sifra_OsnovOsig=@Sifra_OsnovOsig,
        EMBG_OSIG=@EMBG_OSIG, EZBO=@EZBO, EZBO_OSIG=@EZBO_OSIG, Str_Broj=@Str_Broj, Str_Broj_EHIC=@Str_Broj_EHIC, Str_Drzava=@Str_Drzava,
        Str_Pasos=@Str_Pasos,     Str_Broj_Osig=@Str_Broj_Osig
    Where EMBG=@EMBG
    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipaklista]'))
drop procedure [dbo].[sp_izmenipaklista]

Go
CREATE  PROCEDURE sp_IzmeniPakLista
    @Sifra_OE    smallint,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint,
    @Broj_Pak    int,
    @Datum    smalldatetime,
    @Sifra_kup    char(6),
    @Ext_Broj    varchar(20),
    @Vozilo        varchar(20),
    @Broj_RabN    int = Null
AS
    UPDATE PakLista SET Sifra_OE=@Sifra_OE, Broj_Pak=@Broj_Pak, Datum=@Datum, Sifra_Kup=@Sifra_Kup, Ext_Broj=@Ext_Broj, Vozilo=@Vozilo, Broj_RabN=@Broj_RabN
    WHERE Sifra_OE=@Sifra_OE and  Mesto_Pak=@Mesto_Pak and Sifra_Pak=@Sifra_Pak and Broj_Pak=@Broj_Pak
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipatnik]'))
drop procedure [dbo].[sp_izmenipatnik]

Go






CREATE      PROCEDURE [dbo].[sp_IzmeniPatnik]
    @Sifra_Pat Smallint,
    @ImePat Varchar(30),
    @Adresa Varchar(40),
    @Adresa2 Varchar(40),
    @SMesto Varchar(20),
    @Posta Char(5),
    @Zemja Varchar(20),
    @Aktiven Char(1),
    @Telefon Varchar(20),
    @TelMobil Varchar(20),
    @Fax Varchar(20),
    @EMail Varchar(25),
    @LK Varchar(13),
    @Sopst_Mat Varchar(13),
    @ProcNagr    decimal(6,2)=Null,
    @OsnovnaPlata    decimal(18,2)=Null,
    @Sifra_Div smallint = Null,
    @Sifra_Pat_SAP nvarchar(10) = null,
    @Sifra_TrosM smallint = null,
    @OE_OS smallint= null,
    @OE_REK smallint= null,
    @OE_REP smallint= null,
    @Dali_Man Char(1)=null,
    @Kade_Rab Char(1)=null
AS
    Declare @Propagiraj char(1)
    Set @Propagiraj='D'
    UPDATE [Patnici]
    SET [Sifra_Pat]=@Sifra_Pat, [ImePat]=@ImePat, [Adresa]=@Adresa, [Adresa2]=@Adresa2, [SMesto]=@SMesto, [Posta]=@Posta,
        [Zemja]=@Zemja, [Aktiven]=@Aktiven, [Telefon]=@Telefon, [TelMobil]=@TelMobil,
        [Fax]=@Fax, [EMail]=@EMail, [LK]=@LK, [Sopst_Mat]=@Sopst_Mat, [Propagiraj]=@Propagiraj,
        ProcNagr=@ProcNagr, OsnovnaPlata=@OsnovnaPlata, Sifra_Div=@Sifra_Div, Sifra_Pat_SAP = @Sifra_Pat_SAP,
        Sifra_TrosM = @Sifra_TrosM,OE_OS=@OE_OS, OE_REK=@OE_REK, OE_REP=@OE_REP, Dali_Man=@Dali_Man, Kade_Rab=@Kade_Rab
    WHERE Sifra_Pat=@Sifra_Pat
RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniplanmes]'))
drop procedure [dbo].[sp_izmeniplanmes]

Go


CREATE   PROCEDURE sp_IzmeniPlanMes
    @Godina    smallint,
    @Mesec    smallint,
    @Sifra_Art    varchar(20),
    @Plan_Kol    decimal(18,6),
    @Plan_Proc    decimal(6,2),
    @Plan_Cena    decimal(12,4),
    @Sifra_Oe    smallint,
        @RbrVoPlan      smallint,
    @ImePlan    varchar(10)
AS
    Update PlanMes
    Set Plan_Kol=@Plan_Kol, Plan_Proc=@Plan_Proc, Plan_Cena=@Plan_Cena, Sifra_Oe=@Sifra_Oe,
            RbrVoPlan = @RbrVoPlan
    Where Sifra_Oe=@Sifra_oe and Godina=@Godina and Mesec=@Mesec and Sifra_art=@Sifra_art and ImePlan=@ImePlan
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniplanpro]'))
drop procedure [dbo].[sp_izmeniplanpro]

Go
CREATE PROCEDURE sp_IzmeniPlanPro
    @Sif_GrOrg char(6),
    @Sifra_Nar smallint,
    @Broj_Plan char(10),
    @Datum_Plan smalldatetime,
    @Za_Datum_Od smalldatetime=NULL,
    @Za_Datum_Do smalldatetime=NULL,
    @Sifra_Pat smallint=NULL,
    @ZabelPlan varchar(40)=NULL,
    @Varij_Plan char(10)= NULL,
    @Status_Plan char(1)
AS
UPDATE PlanPro SET Datum_Plan=@Datum_Plan, Za_Datum_Od=@Za_Datum_Od, Za_Datum_Do=@Za_Datum_Do,
Sifra_Pat=@Sifra_Pat, ZabelPlan=@ZabelPlan, Varij_Plan=@Varij_Plan, Status_Plan=@Status_Plan
WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Nar=@Sifra_Nar AND Broj_Plan=@Broj_Plan
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipocnabceni]'))
drop procedure [dbo].[sp_izmenipocnabceni]

Go
CREATE PROCEDURE sp_IzmeniPocNabCeni
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @NabCena    decimal(18,4),
    @Datum_Dok    smalldatetime
AS
    Update PocNabCeni
    Set NabCena=@NabCena, Datum_Dok=@Datum_Dok, Datum_Izm=GetDate()
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipocsostosn]'))
drop procedure [dbo].[sp_izmenipocsostosn]

Go
CREATE PROCEDURE [dbo].[sp_IzmeniPocSostOsn]
    @Inv_Broj    char(10),
    @Godina    smallint,
    @Osn_Amor    decimal(18,2)=Null,
    @Otpis_Pret    decimal(18,2)=Null,
    @Sifra_MikLok    char(10)=Null,
    @Sifra_Amor    char(3)=Null,
    @Kto_Anal    char(10)=Null,
    @Sifra_Rab    int=Null,
    @oss_osn_amor decimal = NULL
AS
    Update PocSostOsn
    Set Osn_Amor=@Osn_Amor, Otpis_Pret=@Otpis_Pret, Sifra_MikLok=@Sifra_MikLok, Sifra_Amor=@Sifra_Amor, Kto_Anal=@Kto_Anal,
        Sifra_Rab=@Sifra_Rab, oss_osn_amor = @oss_osn_amor
    Where Inv_Broj=@Inv_Broj and Godina=@Godina
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipodgrupa]'))
drop procedure [dbo].[sp_izmenipodgrupa]

Go



CREATE       PROCEDURE [dbo].[sp_IzmeniPodgrupa]
    @Sifra_Podg Char(6),
    @Ime_Podg NVarChar(30),
    @Ime_Podg2 NVarChar(30),
    @Sifra_Gr varChar(6),
    @Period_Nar smallint,
    @Period_Sigurno smallint,
    @Marza_Gol    decimal(6,2),
    @Marza_Mal    decimal(6,2),
    @Planska_Cena decimal(18,6) = Null,
    @Sifra_PodgrWeb smallint = Null,
    @Grupa_Marza smallint = null,
    @Proc_MinZal    decimal(6,2)=null,
    @Proc_MaxZal    decimal(6,2)=null
AS
    SET NOCOUNT ON
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Podgrupi]
    SET [Ime_Podg]=@Ime_Podg, [Ime_Podg2]=@Ime_Podg2, [Sifra_Gr]=@Sifra_Gr,
        [IzmenetNa]=GetDate(), [IzmenetOd]=SUser_SName(), Period_Nar=@Period_Nar, Period_Sigurno=@Period_Sigurno,
        Marza_Gol= @Marza_Gol, Marza_Mal= @Marza_Mal, Propagiraj=@Propagiraj, Planska_Cena=@Planska_Cena,
        Sifra_PodgrWeb=@Sifra_PodgrWeb, Grupa_Marza=@Grupa_Marza, Proc_MinZal=@Proc_MinZal, Proc_MaxZal=@Proc_MaxZal
    WHERE [Sifra_Podg]=@Sifra_Podg
RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipodgrweb]'))
drop procedure [dbo].[sp_izmenipodgrweb]

Go
CREATE PROCEDURE sp_IzmeniPodgrWeb
    @Sifra_PodgrWeb    smallint,
    @Ime_PodgrWeb    nvarchar(40),
    @Sifra_GrWeb        smallint
AS
    Update PodgrWeb
    Set Ime_PodgrWeb=@Ime_PodgrWeb, Sifra_GrWeb=@Sifra_GrWeb
    Where Sifra_PodgrWeb=@Sifra_PodgrWeb
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipodoblast]'))
drop procedure [dbo].[sp_izmenipodoblast]

Go

CREATE PROCEDURE [dbo].[sp_IzmeniPodOblast]
    @Sifra_PodOblast    varchar(10),
    @Ime_PodOblast        nvarchar(100),
    @Sifra_Oblast        varchar(10)

AS

    UPDATE    PodOblast
    SET        Ime_PodOblast = @Ime_PodOblast,
            Sifra_Oblast = @Sifra_Oblast
    WHERE    Sifra_PodOblast = @Sifra_PodOblast

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipodracnisluzbi]'))
drop procedure [dbo].[sp_izmenipodracnisluzbi]

Go

CREATE PROCEDURE sp_IzmeniPodracniSluzbi

    @Sifra_PodrSluzba    char(4),
    @ImePodrSluzba    nchar(40),
    @PocCifriKniska        char(3),
    @Sifra_PodrSluzba_Fakt    char(4)
AS
    Update PodracniSluzbi
    Set ImePodrSluzba=@ImePodrSluzba, PocCifriKniska=@PocCifriKniska, Sifra_PodrSluzba_Fakt=@Sifra_PodrSluzba_Fakt
    Where Sifra_PodrSluzba=@Sifra_PodrSluzba
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopis]'))
drop procedure [dbo].[sp_izmenipopis]

Go
CREATE PROCEDURE sp_IzmeniPopis
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @Opis varchar(40),
    @Celosen char(1),
    @Zatvoren char(1),
    @Sifra_DokK smallint,
    @Sifra_DokV smallint,
    @Broj_dok_k int,
    @Broj_dok_v int,
    @Izmenet char(1),
    @Sifra_Kup char(6)
 AS
    UPDATE Popis SET
        Opis           = @Opis,
        Celosen      = @Celosen,
        Zatvoren    = @Zatvoren,
        Sifra_DokK = @Sifra_DokK,
        Sifra_DokV = @Sifra_DokV,
        Broj_dok_k = @Broj_dok_k,
        Broj_dok_v = @Broj_dok_v,
        Izmenet       = @Izmenet, Sifra_Kup = @Sifra_Kup
    WHERE Sifra_OE = @Sifra_OE AND Datum = @Datum
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopis1]'))
drop procedure [dbo].[sp_izmenipopis1]

Go

CREATE PROCEDURE sp_IzmeniPopis1
    @IDPopis int
 AS
    UPDATE Popis SET
        Izmenet       = 'D'
    WHERE IDPopis = @IDPopis
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopis2]'))
drop procedure [dbo].[sp_izmenipopis2]

Go

CREATE PROCEDURE sp_IzmeniPopis2
    @IDPopis int,
    @DatZal smalldatetime
 AS
    UPDATE Popis SET
        Izmenet  = 'N',  Datum_zaliha = @DatZal
    WHERE IDPopis = @IDPopis
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopis3]'))
drop procedure [dbo].[sp_izmenipopis3]

Go

CREATE PROCEDURE sp_IzmeniPopis3
    @IDPopis int,
    @Broj_dokK int,
    @Broj_dokV int
 AS
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'UPDATE Popis SET  Zatvoren = ''D'' '
    If @Broj_dokK IS NOT NULL
        Set @SSQL = @SSQL + ',  Broj_dok_k = ' + Cast(@Broj_dokK as varchar(8))
    If @Broj_dokV IS NOT NULL
        Set @SSQL = @SSQL + ',  Broj_dok_v = ' + Cast(@Broj_dokV as varchar(8))
    Set @SSQL = @SSQL + '  WHERE IDPopis = ' + cast(@IDPopis as varchar(8))
    Exec (@SSQL)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopis4]'))
drop procedure [dbo].[sp_izmenipopis4]

Go



CREATE   PROCEDURE sp_IzmeniPopis4
    @IDPopis int
 AS
    UPDATE Popis SET
        Zatvoren  = 'X', Broj_dok_k = 0, Broj_dok_v = 0
    WHERE IDPopis = @IDPopis
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopisos]'))
drop procedure [dbo].[sp_izmenipopisos]

Go
CREATE  PROCEDURE sp_IzmeniPopisOS
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @Opis varchar(40),
    @Zatvoren char(1)
 AS
    UPDATE Popis SET  Opis = @Opis, Zatvoren = @Zatvoren
    WHERE Sifra_OE = @Sifra_OE AND Datum = @Datum
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopisos_br]'))
drop procedure [dbo].[sp_izmenipopisos_br]

Go


CREATE   PROCEDURE sp_IzmeniPopisOS_Br
    @IDPopisOs smallint,
    @Broj_Lista smallint,
    @Sifra_OE smallint=1,
    @Datum smalldatetime,
    @Opis varchar(50),
    @Zatvoren char(1)='N',
    @Sifra_MikLok char(10),
    @Sifra_MakLok char(10),
    @Sifra_Rab int
 AS
    UPDATE PopisOs SET
    Opis = @Opis,
    Zatvoren = @Zatvoren,
    Sifra_MikLok=@Sifra_MikLok ,
    Sifra_MakLok=@Sifra_MakLok ,
    Sifra_Rab=@Sifra_Rab
    WHERE IDPopisOS = @IDPopisOS
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenipopisos_os]'))
drop procedure [dbo].[sp_izmenipopisos_os]

Go

Create   PROCEDURE sp_IzmeniPopisOS_Os
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @Opis varchar(50),
    @Zatvoren char(1),
    @Sifra_MikLok char(10),
    @Sifra_MakLok char(10),
    @Sifra_Rab int
 AS
    UPDATE PopisOs SET
    Opis = @Opis,
    Zatvoren = @Zatvoren,
    Sifra_MikLok=@Sifra_MikLok ,
    Sifra_MakLok=@Sifra_MakLok ,
    Sifra_Rab=@Sifra_Rab
    WHERE Sifra_OE = @Sifra_OE AND Datum = @Datum
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniporastcenist]'))
drop procedure [dbo].[sp_izmeniporastcenist]

Go
CREATE PROCEDURE sp_IzmeniPorastCeniSt
    @Mesec    smallint,
    @Godina    smallint,
    @Stapka    decimal(9,3)
 AS
    Update PorastCeniSt
    Set Stapka = @Stapka
    Where Mesec=@Mesec and Godina=@Godina
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniprevoznik]'))
drop procedure [dbo].[sp_izmeniprevoznik]

Go


CREATE   PROCEDURE sp_IzmeniPrevoznik
    @Sifra_Prev     char(6),
    @ImePrev     varchar(40),
    @Adresa     varchar(40)=NULL,
    @SMesto     varchar(20)=NULL,
    @Posta     varchar(10)=NULL,
    @Telefon     varchar(20)=NULL,
    @Sifra_Kup     char(6)=NULL,
    @Kto        char(10)=NULL,
    @Sifra_Nal    smallint=NULL,
    @Sifra_OE    smallint=NULL,
    @Vozilo     varchar(20)=NULL,
    @Registracija    varchar(20)= null
AS
    Update Prevoznik
    Set ImePrev=@ImePrev, Adresa=@Adresa, SMesto=@SMesto, Posta=@Posta, Telefon=@Telefon, Sifra_Kup=@Sifra_Kup, Kto=@Kto, Sifra_Nal=@Sifra_Nal, Sifra_OE=@Sifra_OE,
            Vozilo=@Vozilo, Registracija=@Registracija
    Where Sifra_Prev=@Sifra_Prev
    Return @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniprivkoncept]'))
drop procedure [dbo].[sp_izmeniprivkoncept]

Go


CREATE       PROCEDURE sp_IzmeniPrivKoncept
    @Sifra_GrKor  varchar (20),
    @NabavniCeni  char(1) = NUll,
    @PromCena  char(1) = NUll,
    @Promet  char(1) = NUll,
    @Maticni  char(1) = NUll,
    @GlkVnes  char(1) = NUll,
    @GlkPrg  char(1) = NUll,
    @KupDobVnes char(1) = NUll,
    @KupDobPrg  char(1) = NUll,
    @Zaliha  char(1) = NUll,
    @Komerc char(1) = NUll,
    @FiltPatnik char(1) = Null,
    @IzborKonto char(1) = Null,
    @KatCeniZal char(1) = Null,
        @GrOrgIzv char(6) = Null,
    @DozvoliDokCenaIzlez char(1) = Null,
    @DozvoliOtvZatvRabN char(1) = Null,
    @GrOrgF12Art char(6) = Null

 AS

    UPDATE PrivKoncept SET
        NabavniCeni = @NabavniCeni,
        PromCena = @PromCena,
                Promet = @Promet,
                Maticni = @Maticni,
                GlkVnes = @GlkVnes,
                GlkPrg = @GlkPrg,
                KupDobVnes = @KupDobVnes,
                KupDobPrg = @KupDobPrg,
                Zaliha = @Zaliha,
                Komerc = @Komerc,
        FiltPatnik = @FiltPatnik,
        IzborKonto = @IzborKonto,
        KatCeniZal=@KatCeniZal,
            GrOrgIzv=@GrOrgIzv,
        DozvoliDokCenaIzlez = @DozvoliDokCenaIzlez,
        DozvoliOtvZatvRabN = @DozvoliOtvZatvRabN,
        GrOrgF12Art=@GrOrgF12Art
    WHERE Sifra_GrKor = @Sifra_GrKor

RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniprodmest]'))
drop procedure [dbo].[sp_izmeniprodmest]

Go




CREATE        PROCEDURE sp_IzmeniProdMest
    @Sifra_Mest    int,
    @Opis        varchar(50),
    @Opis2        varchar(50),
    @Sifra_Kup    Char(6),
    @Sifra_Obj    smallint,
    @DaliAktiven    char(1) = Null,
    @Posrednik    char(6) = Null,
    @DaliSporen    char(1) = null,
    @BrMotor         varchar(50) = null,
    @BarKod          varchar(50) = null,
    @Litri           integer = null,
    @Sif_TipProdM    integer = null,
        @Proizv             Char(6),
        @Godina             smallint,
        @Dimenzii     nvarChar(20),
        @Led          Char(1),
        @Zabel             nvarChar(100),
        @Sifra_Pat     smallint= null
AS
        -- Nemoj nikako da gi azuriraj DaliAktiven i DaliSporen i Sifra_Kup
    Declare @Propagiraj Char(1)
    Set @Propagiraj='D'
    UPDATE ProdMest Set Opis=@Opis, Opis2=@Opis2, Sifra_Obj=@Sifra_Obj, Posrednik=@Posrednik,
               Propagiraj=@Propagiraj, BarKod = @BarKod, BrMotor = @BrMotor, Litri = @Litri,
               Sif_TipProdM = @Sif_TipProdM, Proizv=@Proizv, Godina=@Godina, Dimenzii=@Dimenzii,
               Led=@Led, Zabel=@Zabel, Sifra_Pat=@Sifra_Pat   --, Sifra_Kup=@Sifra_Kup
    WHERE Sifra_Mest=@Sifra_Mest
    RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniproekt]'))
drop procedure [dbo].[sp_izmeniproekt]

Go


CREATE procedure [dbo].[sp_IzmeniProekt]
    @Broj_Proekt int ,
    @ImeProekt nvarchar (100)= NULL ,
    @Sifra_Kup char (6)=NULL ,
    @ImePredmet nvarchar (50)=NULL ,
    @ImeKontakt nvarchar (50) =NULL ,
    @Datum_Otv smalldatetime =NULL ,
    @Datum_Ocek_Zatv smalldatetime =NULL ,
    @OpisPredmet nvarchar (2000)=NULL ,
    @Datum_Zavrseno smalldatetime =NULL ,
    @Zatvoreno char (1) =NULL ,
    @Sifra_Oe smallint =NULL ,
    @Sifra_Nar smallint= NULL ,
    @Broj_Nar int =NULL ,
    @Sifra_Kup2 char (6)=NULL
As
    Update Proekt
    Set ImeProekt=@ImeProekt,Sifra_Kup=@Sifra_Kup,ImePredmet=@ImePredmet,ImeKontakt=@ImeKontakt,
        Datum_Otv=@Datum_Otv,Datum_Ocek_Zatv=@Datum_Ocek_Zatv,OpisPredmet=@OpisPredmet,Datum_Zavrseno=@Datum_Zavrseno,
        Zatvoreno=@Zatvoreno,Sifra_Oe=@Sifra_Oe,Sifra_Nar=@Sifra_Nar,Broj_Nar=@Broj_Nar, Sifra_Kup2=@Sifra_Kup2
    Where Broj_Proekt=@Broj_Proekt





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniproektpoz]'))
drop procedure [dbo].[sp_izmeniproektpoz]

Go

create procedure [dbo].[SP_IzmeniProektPoz]
    @Broj_Proekt int,
    @PozID int,
    @ImePoz nvarchar(3000),
    @EdMeraPoz nvarchar(20),
    @OpisPoz nvarchar(100)=null,
    @DokCena decimal(18,4)=null,
    @Uces decimal(6,2)=null,
    @POsn decimal(6,2)=null,
    @DanDokCena char(1)=null,
    @Sifra_Art varchar(20)=null,
    @Nivo1 char(4)=null,
    @Nivo2 char(4)=null,
    @Nivo3 char(4)=null,
    @Nivo4 char(4)=null,
    @Nivo5 char(4)=null,
    @Nivo6 char(4)=null,
    @Nivo7 char(4)=null
As
    Update ProektPoz
    Set ImePoz=@ImePoz, EdMeraPoz=@EdMeraPoz, OpisPoz=@OpisPoz, DokCena=@DokCena, Uces=@Uces,
        POsn=@POsn, DanDokCena=@DanDokCena, Sifra_Art=@Sifra_Art, Nivo1=@Nivo1, Nivo2=@Nivo2,
        Nivo3=@Nivo3, Nivo4=@Nivo4, Nivo5=@Nivo5, Nivo6=@Nivo6, Nivo7=@Nivo7
    where Broj_Proekt=@Broj_Proekt and PozID=@PozID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniproektpozic]'))
drop procedure [dbo].[sp_izmeniproektpozic]

Go

CREATE PROCEDURE sp_IzmeniProektPozic
    @Broj_Proekt int,
    @PozID int,
    @ImePoz nvarchar (3000),
    @EdMeraPoz nvarchar (20),
    @OpisPoz nvarchar (100) = NULL,
    @DokCena decimal(18, 4) = NULL,
    @Uces decimal(6, 2) = NULL,
    @POsn decimal(6, 2) = NULL,
    @DanDokCena char (1) = NULL,
    @Sifra_Art varchar (20) = NULL,
    @Nivo1 char (4) = NULL,
    @Nivo2 char (4) = NULL,
    @Nivo3 char (4) = NULL,
    @Nivo4 char (4) = NULL,
    @Nivo5 char (4) = NULL,
    @Nivo6 char (4) = NULL,
    @Nivo7 char (4) = NULL

AS

    update ProektPoz
    set
        ImePoz = @ImePoz, EdMeraPoz = @EdMeraPoz, OpisPoz = @OpisPoz,
        DOkCena = @DokCena, Uces = @Uces, POSn = @POsn, DanDokCena = @DanDokCena,
        Sifra_Art = @Sifra_Art,
        Nivo1 = @Nivo1, Nivo2 = @Nivo2, Nivo3 = @Nivo3, Nivo4 = @Nivo4,
        Nivo5 = @Nivo5, Nivo6 = @Nivo6, Nivo7 = @Nivo7
    where Broj_Proekt = @Broj_Proekt and PozId = @PozId



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirabkalendar]'))
drop procedure [dbo].[sp_izmenirabkalendar]

Go

CREATE  procedure SP_IzmeniRabKalendar
    @Datum smalldatetime,
    @Sto char(1)
As
    Update RabKalendar
    set Sto=@Sto
    Where Datum=@Datum
    return @@error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirabnal]'))
drop procedure [dbo].[sp_izmenirabnal]

Go

CREATE                PROCEDURE [dbo].[sp_IzmeniRabNal]
    @Sifra_OERab    smallint,
    @Broj_Rabn    int,
    @Sifra_OEPrim    smallint,
    @Alt_BrojRN    varchar(15),
    @Opis         varchar(50),
    @Datum_Otv    smalldatetime,
    @Datum_Zatv    smalldatetime,
    @Dogovor    varchar(20),
    @Sifra_kup    char(6),
    @Datum_Dog    smalldatetime,
    @Datum_Rok    smalldatetime,
    @Zabel        varchar(200),
    @Tip_RabNal    char(1)=Null,
    @Dat_Ocek_Zatv smalldatetime = Null,
    @Pomosen    char(1) = Null,
    @BrGotovi    smallint = 0,
    @Sema_Fix    smallint = Null,
    @Sema_Surov_Gotov    char(1) = Null,
    @MaxObidi    Smallint = 20,
    @Datum_Vnes    smalldatetime = Null,
    @Datum_Poc_Proiz    smalldatetime = Null,
    @Datum_Kr_Proiz    smalldatetime = Null,
    @Stat_RabNal        char(1) = Null,
    @Opis_RabN        nvarchar(500) = Null,
    @Kolic_Energ_Aktuel    decimal(18,6) = Null,
    @Kolic_Energ_Alt_Aktuel    decimal(18,6) = Null,
    @Kolic_Skart_Aktuel    decimal(18,6) = Null,
    @Potros_EdVreme    decimal(18,6) = Null,
    @Proc_Skart_Plan    decimal(9,4) = Null,
    @Sifra_Rab    int = Null,
    @Garancija    char(1) = Null,
    @PonudaBr    varchar(20) = Null,
    @ImeKlient    varchar(40) = Null,
        @ImaDDV char (1) = Null,
    @FixTrosoci    decimal(18,2)=NULL,
    @Pom_km    int=NULL,
    @TekstPosle varchar(1500) = NULL,
    @Broj_Proekt int = Null,
    @Sifra_Kor    varchar(20)= Null,
    @Sifra_Proiz varchar(20)= null,
    @Datum_Poc_Serv smalldatetime = Null,
    @Datum_Izdav    smalldatetime = Null,
    @Sifra_Rab_2    int = Null,
    @Tip_Operacija char(1) = Null,
    @AltSerBr1 varchar(50) = Null,
    @AltSerBr2 varchar(50) = Null,

    @RNPpole1 varchaR(100) = Null,
    @RNPpole2 varchaR(100) = Null,
    @RNPpole3 varchaR(100) = Null,
    @RNPpole4 varchaR(100) = Null,
    @RNPpole5 varchaR(100) = Null,
    @RNPpole6 varchaR(100) = Null,
    @RNPpole7 varchaR(100) = Null,
    @RNPpole8 varchaR(100) = Null,
    @RNPpole9 varchaR(100) = Null,
    @RNPpole10 varchaR(100) = Null,

    @RNStikl1 char(1) = Null,
    @RNStikl2 char(1) = Null,
    @RNStikl3 char(1) = Null,
    @RNStikl4 char(1) = Null,
    @RNStikl5 char(1) = Null,
    @RNStikl6 char(1) = Null,
    @RNStikl7 char(1) = Null,
    @RNStikl8 char(1) = Null,
    @RNStikl9 char(1) = Null,
    @RNStikl10 char(1) = Null,

    @Sifra_OEPolu smallint = Null

AS

    UPDATE RabNal SET Sifra_OEPrim=@Sifra_OEPrim, Alt_BrojRN=@Alt_BrojRN, Opis=@Opis, Datum_Otv=@Datum_Otv, Datum_Zatv=@Datum_Zatv,
                Dogovor=@Dogovor, Sifra_kup=@Sifra_kup, Datum_Dog=@Datum_Dog, Datum_Rok=@Datum_Rok, Zabel=@Zabel,
                Tip_RabNal=@Tip_RabNal, Dat_Ocek_Zatv=@Dat_Ocek_Zatv, Pomosen=@Pomosen, BrGotovi=@BrGotovi,
                Sema_Fix=@Sema_Fix, Sema_Surov_Gotov=@Sema_Surov_Gotov, Datum_Poc_Proiz=@Datum_Poc_Proiz,
                Datum_Kr_Proiz=@Datum_Kr_Proiz, Stat_RabNal=@Stat_RabNal, Opis_RabN=@Opis_RabN, Kolic_Energ_Aktuel=@Kolic_Energ_Aktuel,
                Kolic_Energ_Alt_Aktuel=@Kolic_Energ_Alt_Aktuel, Kolic_Skart_Aktuel=@Kolic_Skart_Aktuel, Potros_EdVreme=@Potros_EdVreme,
                Proc_Skart_Plan=@Proc_Skart_Plan, Sifra_Rab=@Sifra_Rab, Garancija=@Garancija, PonudaBr=@PonudaBr, ImeKlient=@ImeKlient,
                ImaDDV=@ImaDDV, FixTrosoci=@FixTrosoci, Pom_km=@Pom_Km, TekstPosle = @TekstPosle,
                Broj_Proekt = @Broj_Proekt, Sifra_Kor=@Sifra_Kor, Sifra_Proiz=@Sifra_Proiz,
                Datum_Poc_Serv = @Datum_Poc_Serv, Datum_Izdav = @Datum_Izdav, Sifra_Rab_2 = @Sifra_Rab_2,
                Tip_Operacija = @Tip_Operacija, AltSerBr1 = @AltSerBr1, AltSerBr2 = @AltSerBr2,
        RNPPole1 = @RNPPOle1, RNPPole2 = @RNPPOle2, RNPPole3 = @RNPPOle3, RNPPole4 = @RNPPOle4, RNPPole5 = @RNPPOle5,
        RNPPole6 = @RNPPOle6, RNPPole7 = @RNPPOle7, RNPPole8 = @RNPPOle8, RNPPole9 = @RNPPOle9, RNPPole10 = @RNPPOle10,
        RNStikl1 = @RNStikl1, RNStikl2 = @RNStikl2, RNStikl3 = @RNStikl3, RNStikl4 = @RNStikl4, RNStikl5 = @RNStikl5,
        RNStikl6 = @RNStikl6, RNStikl7 = @RNStikl7, RNStikl8 = @RNStikl8, RNStikl9 = @RNStikl9, RNStikl10 = @RNStikl10,
        Sifra_OePOLU = @Sifra_OePOLU

    WHERE Sifra_OERab=@Sifra_OERab and Broj_Rabn=@Broj_Rabn

    RETURN @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirabnal_zap]'))
drop procedure [dbo].[sp_izmenirabnal_zap]

Go

create PROCEDURE [dbo].[sp_IzmeniRabNal_Zap]
    @Sifra_OERab    smallint,
    @Broj_Rabn    int,
    @Sifra_OEPrim    smallint,
    @Alt_BrojRN    varchar(15),
    @Opis         varchar(50),
    @Datum_Otv    smalldatetime,
    @Datum_Zatv    smalldatetime,
    @Dogovor    varchar(20),
    @Sifra_kup    char(6),
    @Datum_Dog    smalldatetime,
    @Datum_Rok    smalldatetime,
    @Zabel        varchar(200),
    @Tip_RabNal    char(1)=Null,
    @Dat_Ocek_Zatv smalldatetime = Null,
    @Pomosen    char(1) = Null,
    @BrGotovi    smallint = 0,
    @Sema_Fix    smallint = Null,
    @Sema_Surov_Gotov    char(1) = Null,
    @MaxObidi    Smallint = 20,
    @Datum_Vnes    smalldatetime = Null,
    @Datum_Poc_Proiz    smalldatetime = Null,
    @Datum_Kr_Proiz    smalldatetime = Null,
    @Stat_RabNal        char(1) = Null,
    @Opis_RabN        nvarchar(500) = Null,
    @Kolic_Energ_Aktuel    decimal(18,6) = Null,
    @Kolic_Energ_Alt_Aktuel    decimal(18,6) = Null,
    @Kolic_Skart_Aktuel    decimal(18,6) = Null,
    @Potros_EdVreme    decimal(18,6) = Null,
    @Proc_Skart_Plan    decimal(9,4) = Null,
    @Sifra_Rab    int = Null,
    @Garancija    char(1) = Null,
    @PonudaBr    varchar(20) = Null,
    @ImeKlient    varchar(40) = Null,
        @ImaDDV char (1) = Null,
    @FixTrosoci    decimal(18,2)=NULL,
    @Pom_km    int=NULL,
    @TekstPosle varchar(1500) = NULL,
    @Broj_Proekt int = Null,
    @Sifra_Kor    varchar(20)= Null,
    @Sifra_Proiz varchar(20)= null,
    @Datum_Poc_Serv smalldatetime = Null,
    @Datum_Izdav    smalldatetime = Null,
    @Sifra_Rab_2    int = Null,
    @Tip_Operacija char(1) = Null,
    @AltSerBr1 varchar(50) = Null,
    @AltSerBr2 varchar(50) = Null,

    @RNPpole1 varchaR(100) = Null,
    @RNPpole2 varchaR(100) = Null,
    @RNPpole3 varchaR(100) = Null,
    @RNPpole4 varchaR(100) = Null,
    @RNPpole5 varchaR(100) = Null,
    @RNPpole6 varchaR(100) = Null,
    @RNPpole7 varchaR(100) = Null,
    @RNPpole8 varchaR(100) = Null,
    @RNPpole9 varchaR(100) = Null,
    @RNPpole10 varchaR(100) = Null,

    @RNStikl1 char(1) = Null,
    @RNStikl2 char(1) = Null,
    @RNStikl3 char(1) = Null,
    @RNStikl4 char(1) = Null,
    @RNStikl5 char(1) = Null,
    @RNStikl6 char(1) = Null,
    @RNStikl7 char(1) = Null,
    @RNStikl8 char(1) = Null,
    @RNStikl9 char(1) = Null,
    @RNStikl10 char(1) = Null,

    @Sifra_OEPolu smallint = Null

AS

    UPDATE RabNal_Zap SET Sifra_OEPrim=@Sifra_OEPrim, Alt_BrojRN=@Alt_BrojRN, Opis=@Opis, Datum_Otv=@Datum_Otv, Datum_Zatv=@Datum_Zatv,
                Dogovor=@Dogovor, Sifra_kup=@Sifra_kup, Datum_Dog=@Datum_Dog, Datum_Rok=@Datum_Rok, Zabel=@Zabel,
                Tip_RabNal=@Tip_RabNal, Dat_Ocek_Zatv=@Dat_Ocek_Zatv, Pomosen=@Pomosen, BrGotovi=@BrGotovi,
                Sema_Fix=@Sema_Fix, Sema_Surov_Gotov=@Sema_Surov_Gotov, Datum_Poc_Proiz=@Datum_Poc_Proiz,
                Datum_Kr_Proiz=@Datum_Kr_Proiz, Stat_RabNal=@Stat_RabNal, Opis_RabN=@Opis_RabN, Kolic_Energ_Aktuel=@Kolic_Energ_Aktuel,
                Kolic_Energ_Alt_Aktuel=@Kolic_Energ_Alt_Aktuel, Kolic_Skart_Aktuel=@Kolic_Skart_Aktuel, Potros_EdVreme=@Potros_EdVreme,
                Proc_Skart_Plan=@Proc_Skart_Plan, Sifra_Rab=@Sifra_Rab, Garancija=@Garancija, PonudaBr=@PonudaBr, ImeKlient=@ImeKlient,
                ImaDDV=@ImaDDV, FixTrosoci=@FixTrosoci, Pom_km=@Pom_Km, TekstPosle = @TekstPosle,
                Broj_Proekt = @Broj_Proekt, Sifra_Kor=@Sifra_Kor, Sifra_Proiz=@Sifra_Proiz,
                Datum_Poc_Serv = @Datum_Poc_Serv, Datum_Izdav = @Datum_Izdav, Sifra_Rab_2 = @Sifra_Rab_2,
                Tip_Operacija = @Tip_Operacija, AltSerBr1 = @AltSerBr1, AltSerBr2 = @AltSerBr2,
        RNPPole1 = @RNPPOle1, RNPPole2 = @RNPPOle2, RNPPole3 = @RNPPOle3, RNPPole4 = @RNPPOle4, RNPPole5 = @RNPPOle5,
        RNPPole6 = @RNPPOle6, RNPPole7 = @RNPPOle7, RNPPole8 = @RNPPOle8, RNPPole9 = @RNPPOle9, RNPPole10 = @RNPPOle10,
        RNStikl1 = @RNStikl1, RNStikl2 = @RNStikl2, RNStikl3 = @RNStikl3, RNStikl4 = @RNStikl4, RNStikl5 = @RNStikl5,
        RNStikl6 = @RNStikl6, RNStikl7 = @RNStikl7, RNStikl8 = @RNStikl8, RNStikl9 = @RNStikl9, RNStikl10 = @RNStikl10,
        Sifra_OePOLU = @Sifra_OePOLU

    WHERE Sifra_OERab=@Sifra_OERab and Broj_Rabn=@Broj_Rabn

    RETURN @@ERROR










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirabotnik]'))
drop procedure [dbo].[sp_izmenirabotnik]

Go


CREATE    PROCEDURE sp_IzmeniRabotnik
    @Sifra_Rab        int,
    @ImeRab            char(30),
    @Sifra_Oe        smallint = Null,
    @Sif_Opst_Rab        char(5) = Null,
    @Sif_Opst_Zivee    char(5) = Null,
    @Mat_Br            varchar(13) = Null,
    @Reg_Br            varchar(10) = Null,
    @Dali_Danok        char(1) = Null,
    @Br_Boda        decimal(9,2) = Null,
    @Koef_Sloz        decimal(9,2) = Null,
    @RabMesto        varchar(15) = Null,
    @Smeni_Rab        varchar(11) = Null,
    @Staz_Vk        smallint = Null,
    @Mes_Prom_Staz        smallint = Null,
    @Nacin_Ispl        char(1) = Null,
    @Sif_Banka        char(6) = Null,
    @Rab_Smetka        varchar(25) = Null,
    @Invalid        char(1) = Null,
    @Sifra_Firma        smallint = NULL,
    @Telefon        varchar(20) = Null,
    @Adresa            nvarchar(50) = Null,                --12.08.2011 cermat CFMA dodatno
    @email_adr        varchar(30) = NULL,
    @Telefon_mob        nvarchar(50) = NULL

AS

    Update Rabotnik
    Set ImeRab=@ImeRab, Sifra_Oe=@Sifra_Oe, Sif_Opst_Rab=@Sif_Opst_Rab, Sif_Opst_Zivee=@Sif_Opst_Zivee, Mat_Br=@Mat_Br, Reg_Br=@Reg_Br,
        Dali_Danok=@Dali_Danok, Br_Boda=@Br_Boda, Koef_Sloz=@Koef_Sloz, RabMesto=@RabMesto, Smeni_Rab=@Smeni_Rab, Staz_Vk=@Staz_Vk,
        Mes_Prom_Staz=@Mes_Prom_Staz, Nacin_Ispl=@Nacin_Ispl, Sif_Banka=@Sif_Banka, Rab_Smetka=@Rab_Smetka, Invalid=@Invalid,
        Sifra_Firma=@Sifra_Firma, Telefon = @Telefon, Adresa = @Adresa, email_adr=@email_adr,
        Telefon_mob=@Telefon_mob
    Where Sifra_Rab=@Sifra_Rab

    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirasporedispor]'))
drop procedure [dbo].[sp_izmenirasporedispor]

Go
CREATE                      PROCEDURE sp_IzmeniRasporedIspor
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Raspored        int,
        @Broj_Nar        int,
    @Datum_Raspor        smalldatetime,
    @Broj_Nar_Lista        varchar (50) = Null,
    @Tip_Raspored            char(1) = Null,
    @ZaKadeRaspored        char(1) = Null
AS
    Update RasporedIspor
    Set Datum_Raspor = @Datum_Raspor, Broj_Nar = @Broj_Nar, Broj_Nar_Lista = @Broj_Nar_Lista, Tip_Raspored=@Tip_Raspored, ZaKadeRaspored=@ZaKadeRaspored
    Where Sifra_OE=@Sifra_OE and Sifra_Nar=@Sifra_Nar And Broj_Raspored=@Broj_Raspored
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirecepti]'))
drop procedure [dbo].[sp_izmenirecepti]

Go

CREATE        PROCEDURE [dbo].[sp_IzmeniRecepti]
    @Broj_Recept        int,
    @Sifra_Apteka        char(2),
    @Sifra_Nasa_Firma    char(6),
    @Sifra_Kompanija    char(10),
    @EMBG            char(13),
    @Broj_Kniska        char(14),
    @Sifra_OsnovOsig    char(2),
    @Sifra_Lekar        char(6),
    @Sifra_Lekar_Spec    char(6),
    @Datum_Recept        smalldatetime,
    @Sifra_Dijagn        char(5),
    @Sifra_Art        varchar(20),
    @Datum_Izdav        smalldatetime,
    @Sifra_Farmacevt    char(6),
    @Vid_Marza        char(1),
    @Proc_Marza        decimal(9,3),
    @Kolku_Pakuv        decimal(9,3),
    @Kolku_Kolic        decimal(9,3),
    @Rangiran        char(1),
    @Cena_Tender        decimal(18,6),
    @Iznos_Tender        decimal(18,6),
    @Iznos_Marza        decimal(18,6),
    @Osnov_DDV        decimal(18,6),
    @ProcDDV        decimal(6,2),
    @Iznos_Na_DDV        decimal(18,6),
    @Iznos_So_DDV        decimal(18,6),
    @Sifra_Oslobod        char(1),
    @Iznos_Partic        decimal(18,6),
    @Naplat_Partic        decimal(18,6),
    @Broj_Priem        char(5),
    @Sifra_ATC        char(10),
    @Faktura_Br        char(6),
    @Godina_Fra        smallint,
    @Mesec_Fra        smallint,
    @Specif_Br        char(6),
    @Rbr_Vo_Specif        smallint,
    @BezPartic        char(1)=Null,
    @Sifra_Oslob_Nov    smallint=null,
    @Spc_Podr        char(4) = Null,
    @Spc_Specif        int = 0,
    @Spc_Recept        int = 0,
    @Sifra_Lekar_Dezuren char(6) = Null,
    @EMBG_OSIG         varchar(13) = Null,
    @EZBO         varchar(9) = Null,
    @EZBO_OSIG         varchar(9) = Null,
    @Sifra_Lekar_Konz_2     char(6) = Null,
    @Sifra_Lekar_Konz_3     char(6) = Null,
    @VidRecept         char(1) = Null,
    @Datum_Vaznost     smalldatetime = Null,
    @Str_Broj         varchar(30) = Null,
    @Str_Broj_EHIC     varchar(30) = Null,
    @Str_Drzava         char(3) = Null,
    @Str_Pasos         varchar(20) = Null,
    @Str_Broj_Osig         varchar(30) = Null

 AS

    Update Recepti
    Set Sifra_Nasa_Firma=@Sifra_Nasa_Firma, Sifra_Kompanija=@Sifra_Kompanija, EMBG=@EMBG, Broj_Kniska=@Broj_Kniska, Sifra_OsnovOsig=@Sifra_OsnovOsig,
        Sifra_Lekar=@Sifra_Lekar, Sifra_Lekar_Spec=@Sifra_Lekar_Spec, Datum_Recept=@Datum_Recept, Sifra_Dijagn=@Sifra_Dijagn, Sifra_Art=@Sifra_Art,
        Datum_Izdav=@Datum_Izdav, Sifra_Farmacevt=@Sifra_Farmacevt, Vid_Marza=@Vid_Marza, Proc_Marza=@Proc_Marza,
        Kolku_Pakuv=@Kolku_Pakuv, Kolku_Kolic=@Kolku_Kolic, Rangiran=@Rangiran, Cena_Tender=@Cena_Tender, Iznos_Tender=@Iznos_Tender,
        Iznos_Marza=@Iznos_Marza, Osnov_DDV=@Osnov_DDV, ProcDDV=@ProcDDV, Iznos_Na_DDV=@Iznos_Na_DDV, Iznos_So_DDV=@Iznos_So_DDV,
        Sifra_Oslobod=@Sifra_Oslobod, Iznos_Partic=@Iznos_Partic, Naplat_Partic=@Naplat_Partic, Broj_Priem=@Broj_Priem, Sifra_ATC=@Sifra_ATC,
        Faktura_Br=@Faktura_Br, Godina_Fra=@Godina_Fra, Mesec_Fra=@Mesec_Fra, Specif_Br=@Specif_Br, Rbr_Vo_Specif=@Rbr_Vo_Specif,BezPartic=@BezPartic,
        Sifra_Oslob_Nov=@Sifra_Oslob_Nov,
        Spc_Podr=@Spc_Podr, Spc_Specif=@Spc_Specif, Spc_Recept=@Spc_Recept,
        Sifra_Lekar_Dezuren = @Sifra_Lekar_Dezuren,
        EMBG_OSIG=@EMBG_OSIG, EZBO=@EZBO, EZBO_OSIG=@EZBO_OSIG, Sifra_Lekar_Konz_2=@Sifra_Lekar_Konz_2, Sifra_Lekar_Konz_3=@Sifra_Lekar_Konz_3,
        VidRecept=@VidRecept, Datum_Vaznost=@Datum_Vaznost, Str_Broj=@Str_Broj, Str_Broj_EHIC=@Str_Broj_EHIC, Str_Drzava=@Str_Drzava, Str_Pasos=@Str_Pasos,
        Str_Broj_Osig=@Str_Broj_Osig
    Where Broj_Recept=@Broj_Recept And SifrA_apteka=@Sifra_Apteka
    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirecepti_p]'))
drop procedure [dbo].[sp_izmenirecepti_p]

Go


CREATE        PROCEDURE [dbo].[sp_IzmeniRecepti_P]
    @Broj_Recept        int,
    @Sifra_Apteka        char(2),
    @Sifra_Nasa_Firma    char(6),
    @Sifra_Kompanija    char(10),
    @EMBG            char(13),
    @Broj_Kniska        char(14),
    @Sifra_OsnovOsig    char(2),
    @Sifra_Lekar        char(6),
    @Sifra_Lekar_Spec    char(6),
    @Datum_Recept        smalldatetime,
    @Sifra_Dijagn        char(5),
    @Sifra_Art        varchar(20),
    @Datum_Izdav        smalldatetime,
    @Sifra_Farmacevt    char(6),
    @Vid_Marza        char(1),
    @Proc_Marza        decimal(9,3),
    @Kolku_Pakuv        decimal(9,3),
    @Kolku_Kolic        decimal(9,3),
    @Rangiran        char(1),
    @Cena_Tender        decimal(18,6),
    @Iznos_Tender        decimal(18,6),
    @Iznos_Marza        decimal(18,6),
    @Osnov_DDV        decimal(18,6),
    @ProcDDV        decimal(6,2),
    @Iznos_Na_DDV        decimal(18,6),
    @Iznos_So_DDV        decimal(18,6),
    @Sifra_Oslobod        char(1),
    @Iznos_Partic        decimal(18,6),
    @Naplat_Partic        decimal(18,6),
    @Broj_Priem        char(5),
    @Sifra_ATC        char(10),
    @Faktura_Br        char(6),
    @Godina_Fra        smallint,
    @Mesec_Fra        smallint,
    @Specif_Br        char(6),
    @Rbr_Vo_Specif        smallint,
    @BezPartic        char(1)=Null,
    @Sifra_Oslob_Nov    smallint=null,
    @Spc_Podr        char(4) = Null,
    @Spc_Specif        int = 0,
    @Spc_Recept        int = 0,
    @Sifra_Lekar_Dezuren char(6) = Null,
    @EMBG_OSIG         varchar(13) = Null,
    @EZBO         varchar(9) = Null,
    @EZBO_OSIG         varchar(9) = Null,
    @Sifra_Lekar_Konz_2     char(6) = Null,
    @Sifra_Lekar_Konz_3     char(6) = Null,
    @VidRecept         char(1) = Null,
    @Datum_Vaznost     smalldatetime = Null,
    @Str_Broj         varchar(30) = Null,
    @Str_Broj_EHIC     varchar(30) = Null,
    @Str_Drzava         char(3) = Null,
    @Str_Pasos         varchar(20) = Null,
    @Str_Broj_Osig         varchar(30) = Null

 AS

    Update Recepti_P
    Set Sifra_Nasa_Firma=@Sifra_Nasa_Firma, Sifra_Kompanija=@Sifra_Kompanija, EMBG=@EMBG, Broj_Kniska=@Broj_Kniska, Sifra_OsnovOsig=@Sifra_OsnovOsig,
        Sifra_Lekar=@Sifra_Lekar, Sifra_Lekar_Spec=@Sifra_Lekar_Spec, Datum_Recept=@Datum_Recept, Sifra_Dijagn=@Sifra_Dijagn, Sifra_Art=@Sifra_Art,
        Datum_Izdav=@Datum_Izdav, Sifra_Farmacevt=@Sifra_Farmacevt, Vid_Marza=@Vid_Marza, Proc_Marza=@Proc_Marza,
        Kolku_Pakuv=@Kolku_Pakuv, Kolku_Kolic=@Kolku_Kolic, Rangiran=@Rangiran, Cena_Tender=@Cena_Tender, Iznos_Tender=@Iznos_Tender,
        Iznos_Marza=@Iznos_Marza, Osnov_DDV=@Osnov_DDV, ProcDDV=@ProcDDV, Iznos_Na_DDV=@Iznos_Na_DDV, Iznos_So_DDV=@Iznos_So_DDV,
        Sifra_Oslobod=@Sifra_Oslobod, Iznos_Partic=@Iznos_Partic, Naplat_Partic=@Naplat_Partic, Broj_Priem=@Broj_Priem, Sifra_ATC=@Sifra_ATC,
        Faktura_Br=@Faktura_Br, Godina_Fra=@Godina_Fra, Mesec_Fra=@Mesec_Fra, Specif_Br=@Specif_Br, Rbr_Vo_Specif=@Rbr_Vo_Specif,BezPartic=@BezPartic,
        Sifra_Oslob_Nov=@Sifra_Oslob_Nov,
        Spc_Podr=@Spc_Podr, Spc_Specif=@Spc_Specif, Spc_Recept=@Spc_Recept,
        Sifra_Lekar_Dezuren = @SifrA_Lekar_Dezuren,
        EMBG_OSIG=@EMBG_OSIG, EZBO=@EZBO, EZBO_OSIG=@EZBO_OSIG, Sifra_Lekar_Konz_2=@Sifra_Lekar_Konz_2, Sifra_Lekar_Konz_3=@Sifra_Lekar_Konz_3,
        VidRecept=@VidRecept, Datum_Vaznost=@Datum_Vaznost, Str_Broj=@Str_Broj, Str_Broj_EHIC=@Str_Broj_EHIC, Str_Drzava=@Str_Drzava, Str_Pasos=@Str_Pasos,
        Str_Broj_Osig=@Str_Broj_Osig
    Where Broj_Recept=@Broj_Recept And SifrA_apteka=@Sifra_Apteka
    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirelacispor]'))
drop procedure [dbo].[sp_izmenirelacispor]

Go

CREATE  PROCEDURE sp_IzmeniRelacIspor
    @Sifra_RelIspor    smallint,
    @Ime_RelIspor    char(30)
AS
    Update RelacIspor
    Set Ime_RelIspor=@Ime_RelIspor
    Where Sifra_RelIspor=@Sifra_RelIspor
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenirkasprivil]'))
drop procedure [dbo].[sp_izmenirkasprivil]

Go


CREATE    PROCEDURE sp_IzmeniRKasPrivil
    @Sifra_Oper     smallint,
    @Sifra_GrOper    char(20),
    @Sifra_Operac    char(20),
    @Gener_Moze        char(1),
    @Vnes            char(1),
    @Izmena            char(1),
    @Brisenje        char(1),
    @Pregled        char(1)
AS
    UPDATE RKasPrivil SET
    Gener_Moze=@Gener_Moze,
    Vnes=@Vnes,
    Izmena=@Izmena,
    Brisenje=@Brisenje,
    Pregled=@Pregled
    WHERE  Sifra_GrOper = @Sifra_GrOper And Sifra_Operac = @Sifra_Operac







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenisams_statusuredi]'))
drop procedure [dbo].[sp_izmenisams_statusuredi]

Go


CREATE       PROCEDURE sp_IzmeniSams_StatusUredi
        @Sams_UredId varchar(20),
        @TekStatus varchar(10) = null,
        @Polna_Baterija decimal(6,2) = null,
        @Tek_Korisnik varchar(20) = null,
        @Posl_Prozivanje_Koga datetime = null,
        @Komanda varchar(10) = null,
        @Posl_Korisnik varchar(20) = null,
        @Posl_Krevanje_Koga datetime = null,
        @Posl_Parkiranje_Koga datetime = null,
        @Posl_Smetka_Koga datetime = null,
        @Posl_Otkazi_Koga datetime = null,
        @Posl_Smetka_Korisnik varchar(20)= null,
        @Posl_Sifra_Oe smallint = null,
        @Posl_Grp_Kasa smallint = null,
        @Posl_BrKasa smallint = null,
        @Posl_Broj_Ska int = null,
        @Posl_Iznos_Smetka decimal(18,4) = null,
        @Posl_Broj_Stavki int = null
AS


    Update Sams_StatusUredi set    Komanda = @Komanda where Sams_UredId = @Sams_UredId
    Update Sams_StatusUredi set TekStatus = @TekStatus where Sams_UredId = @Sams_UredId
    Update Sams_StatusUredi set Polna_Baterija = @Polna_Baterija where Sams_UredId = @Sams_UredId

If @Tek_Korisnik is not null
    Update Sams_StatusUredi set    Tek_Korisnik = @Tek_Korisnik where Sams_UredId = @Sams_UredId

If @TekStatus = 'PARKIRAN'
    Update Sams_StatusUredi set    Posl_Parkiranje_Koga = GETDATE(), Posl_Prozivanje_Koga = GETDATE() where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'SAMSKEN'
    Update Sams_StatusUredi set    Posl_Krevanje_Koga = GETDATE(),
    Posl_Prozivanje_Koga = GETDATE(),
    Posl_Korisnik = @Posl_Korisnik
    where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'CEKANJE'
    Update Sams_StatusUredi set Posl_Prozivanje_Koga = GETDATE() where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'CEKANJE-ST'
    Update Sams_StatusUredi set Posl_Prozivanje_Koga = GETDATE() where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'POTVRDA'
    Update Sams_StatusUredi set Posl_Smetka_Koga = GETDATE(),
    Posl_Prozivanje_Koga = GETDATE(),
    Posl_Smetka_Korisnik = @Posl_Smetka_Korisnik,
    Posl_Sifra_Oe = @Posl_Sifra_Oe,
    Posl_Grp_Kasa = @Posl_Grp_Kasa,
    Posl_BrKasa = @Posl_BrKasa,
    Posl_Broj_Ska = @Posl_Broj_Ska,
    Posl_Iznos_Smetka = @Posl_Iznos_Smetka,
    Posl_Broj_Stavki = @Posl_Broj_Stavki
    where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'PONISTI'
    Update Sams_StatusUredi set Posl_Otkazi_Koga = GETDATE(),
    Posl_Prozivanje_Koga = GETDATE()
    where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'SAMSKEN-P'
    Update Sams_StatusUredi set Posl_Prozivanje_Koga = GETDATE() where Sams_UredId = @Sams_UredId
Else If @TekStatus = 'PRED-SAMSKEN'
    Update Sams_StatusUredi set Posl_Prozivanje_Koga = GETDATE() where Sams_UredId = @Sams_UredId

RETURN @@ERROR










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenisamstemp]'))
drop procedure [dbo].[sp_izmenisamstemp]

Go









CREATE  PROCEDURE sp_IzmeniSamsTemp
            @Sifra_Kor varchar(20),
            @Nom varchar(50),
            @Sifra_art varchar(20),
            @Kolic decimal(18, 2)

as
declare @Rbr as integer
select @Rbr = max(Rbr) from sams_temp S where S.Sifra_kor = @Sifra_Kor and S.Nom = @Nom and S.Sifra_Art = @Sifra_Art
update sams_temp set Kolic = @Kolic
where Nom = @Nom and Sifra_Art = @Sifra_Art and Sifra_Kor = @Sifra_Kor and Rbr = @Rbr



















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenisint]'))
drop procedure [dbo].[sp_izmenisint]

Go


CREATE  PROCEDURE sp_IzmeniSint
    @Kto_Sint    Char(3),
    @ImeSint    varChar(40),
    @ImeSint2    varchar(40),
    @SImeSint    varChar(40),
    @SImeSint2    varchar(40),
        @Str_Kto    varchar(6)
AS
    Declare @Klas    char(3)
    SELECT @Klas = Kto_Klas FROM Klas WHERE Kto_Klas = Substring(@Kto_Sint,1,1)
    If @Klas IS NULL
         INSERT INTO Klas (Kto_Klas, ImeKlasa) VALUES (Substring(@Kto_Sint,1,1), 'Klasa')
    UPDATE [Sint]
    SET [ImeSint]=@ImeSint, [ImeSint2]=@ImeSint2, [SImeSint]=@SImeSint, [SImeSint2]=@SImeSint2,
    Kto_Klas = Substring(@Kto_Sint,1,1), [Str_Kto]=@Str_Kto
    WHERE [Kto_Sint]=@Kto_Sint
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniskeniranomagstavr]'))
drop procedure [dbo].[sp_izmeniskeniranomagstavr]

Go

CREATE  Procedure sp_IzmeniSkeniranoMagStavr
    @NarID_OD_Koja        int,
    @NarID_VO_Koja        int
as
    Update MagStavr Set NarID = @NarID_VO_Koja
    Where NarID = @NarID_OD_Koja

    --prethodniot zapis go stavame kako realiziran
    Update NarRealDok Set  Realiziran = 'D'
    Where NarID = @NarID_OD_Koja


    Insert Into  NarRealDok
    Select DokrID,@NarID_VO_Koja,'D'
    From NarRealDok
    Where NarID = @NarID_OD_Koja





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenismeni]'))
drop procedure [dbo].[sp_izmenismeni]

Go

CREATE   PROCEDURE sp_IzmeniSmeni
        @Sifra_Smena smallint,
        @Ime_Smena Varchar(50),
        @Aktivna char(1)
AS
    UPDATE Smeni
    SET Ime_Smena=@Ime_Smena, Aktivna=@Aktivna
    WHERE Sifra_Smena=@Sifra_Smena
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenisostav]'))
drop procedure [dbo].[sp_izmenisostav]

Go


CREATE  PROCEDURE sp_IzmeniSostav
AS
    UPDATE Sostav SET VkCena = 0 WHERE Sifra_Art = ' '
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenispremac]'))
drop procedure [dbo].[sp_izmenispremac]

Go

create PROCEDURE sp_IzmeniSpremac
    @Sif_Spremac varchar(5),
    @ImeSpremac    nvarchar(50)
 AS
    Update Spremac
    Set ImeSpremac=@ImeSpremac
    Where Sif_Spremac=@Sif_Spremac
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenistavosnsred]'))
drop procedure [dbo].[sp_izmenistavosnsred]

Go


CREATE    PROCEDURE [dbo].[sp_IzmeniStavOsnSred]
    @StaOID            int,
    @DokOID            int,
    @Inv_Broj        char(10),
    @Datum_Dok        smalldatetime=Null,
    @Tip_StaOsn        char(1)=Null,
    @VlIzl            char(1)=Null,
    @Sifra_MikLok        char(10)=Null,
    @Osn_Amor        decimal(18,2)=Null,
    @Otpis_Pret        decimal(18,2)=Null,
    @Sifra_MikLok_Od    char(10)=Null,
    @Orig_Nab_Vr        decimal(18,2) = Null,
    @Valuta            char(3) = Null,
    @Orig_Nab_Vr_Val    decimal(18,2) = Null,
    @Delov_God        smallint = Null,
    @Sifra_Rab        int= Null,
    @Sifra_RabOd        int= Null,
        @Sifra_Div        smallint = Null,
        @Sifra_TrosM        smallint = Null,
        @Sifra_TrosV        smallint = Null,
        @Sifra_Div_Od        smallint = Null,
        @Sifra_TrosM_Od        smallint = Null,
        @Sifra_TrosV_Od        smallint = Null ,
@oss_otpis_pret decimal (18, 2) = Null,
@oss_sifra_amor chaR(3) = Null,
@oss_kto_anal chaR(10) = Null,
@oss_osn_amor    decimal(18,2) = NULL

 AS
    Update StavOsnSred
    Set  DokOID=@DokOID, Inv_Broj=@Inv_Broj, Datum_Dok=@Datum_Dok, Tip_StaOsn=@Tip_StaOsn, VlIzl=@VlIzl, Sifra_MikLok=@Sifra_MikLok, Osn_Amor=@Osn_Amor,
        Otpis_Pret=@Otpis_Pret, Sifra_MikLok_Od=@Sifra_MikLok_Od, Orig_Nab_Vr=@Orig_Nab_Vr, Valuta=@Valuta, Orig_Nab_Vr_Val=@Orig_Nab_Vr_Val,
        Delov_God=@Delov_God, Sifra_Rab=@Sifra_Rab, Sifra_RabOd=@Sifra_RabOd,
                Sifra_Div=@Sifra_Div, Sifra_TrosM=@Sifra_TrosM, Sifra_TrosV=@Sifra_TrosV,
                Sifra_Div_Od=@Sifra_Div_Od, Sifra_TrosM_Od=@Sifra_TrosM_Od, Sifra_TrosV_Od=@Sifra_TrosV_Od,
oss_otpis_pret = @oss_otpis_pret,
oss_sifra_amor = @oss_sifrA_amor,
oss_kto_anal = @oss_kto_anal,
oss_osn_amor = @oss_osn_amor


     Where StaOID=@StaOID
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenistavr]'))
drop procedure [dbo].[sp_izmenistavr]

Go
CREATE  PROCEDURE sp_IzmeniStavr
   @DokID int,
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
   @ImaDodatna char(1),
   @RBr smallint,
   @VlIzl char(1),
   @Sifra_Art Varchar(20),
   @Kolic decimal(18,6),
   @DokCena decimal(18,6),
   @MagCena decimal(18,6),
   @NabCena decimal(18,6),
   @POsn decimal(6,2),
   @PTar char(3),
   @Uces decimal(6,2),
   @DanDokCena char(1),
   @DanMagCena char(1),
   @CenaIznos char(1),
   @Kod_Danok char(1),
   @Datum_Dok smalldatetime,
   @Tros varchar(20),
   @ImeMat varchar(200),
   @EdMera varchar(5)
AS
UPDATE [Stavr]
SET [Sifra_OE]=@Sifra_OE, [Sifra_Dok]=@Sifra_Dok, [Broj_Dok]=@Broj_Dok, [Sifra_Prim]=@Sifra_Prim, [ImaDodatna]=@ImaDodatna, [RBr]=@RBr, [VlIzl]=@VlIzl,
    [Sifra_Art]=@Sifra_Art, [Kolic]=@Kolic, [DokCena]=@DokCena, [MagCena]=@MagCena, [NabCena]=@NabCena, [POsn]=@POsn, [PTar]=@PTar,
    [Uces]=@Uces, [DanDokCena]=@DanDokCena, [DanMagCena]=@DanMagCena, [CenaIznos]=@CenaIznos, [Kod_Danok]=@Kod_Danok,
    [Datum_Dok]=@Datum_Dok, [Tros]=@Tros, [ImeMat]=@ImeMat, [EdMera]=@EdMera
WHERE DokID=@DokID
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenistavrprocrand]'))
drop procedure [dbo].[sp_izmenistavrprocrand]

Go

CREATE  PROCEDURE sp_IzmeniStavrProcRand
    @Sifra_Art    varchar(20),
    @Sif_GrOrg    char(6),
    @Datum        smalldatetime,
    @Proc_Rand    smallint
AS
UPDATE Stavr SET Proc_Rand=@Proc_Rand WHERE Datum_Dok=@Datum AND VlIzl='V' AND Sifra_Art=@Sifra_Art
AND Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg)   --Sifra_Dok=@Sifra_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitarifa]'))
drop procedure [dbo].[sp_izmenitarifa]

Go
CREATE   PROCEDURE sp_IzmeniTarifa
        @Sifra_Tar Char(3),
        @ImeTar Char(25),
      @ProcOsn Decimal(6,2)
AS
    SET NOCOUNT ON
    Declare @Propagiraj as char(1)
    Set @Propagiraj = 'D'
    UPDATE [Tarifi]
    SET [ImeTar]=@ImeTar,
    [ProcOsn]=@ProcOsn ,
    [Propagiraj]=@Propagiraj
    WHERE [Sifra_Tar]=@Sifra_Tar
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitarmodel]'))
drop procedure [dbo].[sp_izmenitarmodel]

Go

CREATE   PROCEDURE sp_IzmeniTarModel
    @Sifra_TarModel nvarchar(20),
    @Ime_TarModel nVarchar(40)
AS
    UPDATE TarModel
    SET Ime_TarModel=@Ime_TarModel
    WHERE Sifra_TarModel=@Sifra_TarModel
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitekstsmetki]'))
drop procedure [dbo].[sp_izmenitekstsmetki]

Go

create  PROCEDURE sp_IzmeniTekstSmetki
AS

    UPDATE TekstSmetki SET Tekst = '' WHERE Kade = ' '

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipaktivnosti]'))
drop procedure [dbo].[sp_izmenitipaktivnosti]

Go


Create  PROCEDURE sp_IzmeniTipAktivnosti
    @Tip_Akt    char(5),
    @Ime_Akt    nvarchar(50)
 AS
    Update TipAktivnosti
    Set Ime_Akt=@Ime_Akt
    Where Tip_Akt=@Tip_Akt
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipartzal]'))
drop procedure [dbo].[sp_izmenitipartzal]

Go


CREATE  PROCEDURE [dbo].[sp_IzmeniTipArtZal]
    @Sifra_TipArtZal    smallint,
    @Ime_TipArtZal        nvarchar(100),
    @ImaNabCena            char(1),
    @ImaProdCena        char(1),
    @SeVodiZalihaMag    char(1),
    @SeVodiZalihaProd    char(1),
    @SeVodiZalihaRez1    char(1) = NULL,
    @SeVodiZalihaRez2    char(1) = NULL

AS

    UPDATE    TipArtZal
    SET        Ime_TipArtZal = @Ime_TipArtZal,
            ImaProdCena = @ImaProdCena,
            ImaNabCena = @ImaNabCena,
            SeVodiZalihaMag = @SeVodiZalihaMag,
            SeVodiZalihaProd = @SeVodiZalihaProd,
            SeVodiZalihaRez1 = @SeVodiZalihaRez1,
            SeVodiZalihaRez2 = @SeVodiZalihaRez2
    WHERE    Sifra_TipArtZal = @Sifra_TipArtZal

    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipdok]'))
drop procedure [dbo].[sp_izmenitipdok]

Go

CREATE          PROCEDURE sp_IzmeniTipDok
    @Sifra_Dok    smallint,
    @ImeDok    char(40),
    @NaslovDok    varchar(40),
    @NaslovIspr    varchar(40),
    @NaslovPrIme    varchar(40),
    @NaslovObicPr    varchar(40),
    @Vl_Izl        char(1),
    @Sifra_Nal    smallint,
    @Sifra_Za    char(1),
    @TipDok    char(1),
    @Plus_Minus    char(1),
    @DaliMater     char(1),
    @Dev        char(1),
    @Anal_Prof    char(1),
    @DaliMarza    char(1),
    @ProTar    char(2),
    @DaliFin    char(1),
    @KoeKto    varchar(50),
    @VoTrg_Knig    char(2),
    @VoDDV_Knig    char(1),
    @AnalKupDob    char(1),
    @Sif_GrDok    char(3),
    @DaliFisc    char(1),
        @KoiFixText    varchar (50),
    @AmbDali    char(1) = Null,
    @MozeRasknKaf char(1) = Null,
    @ImaDanok    char(1) = Null,
    @Sifra_Dok_Raskn smallint=null,
    @Sifra_Dok_RasknNeg smallint=null,
    @Prov_Limit     char(1)=Null,
    @Disk_Oe    smallint = Null,
    @DaliStorno    char(1) = Null,
    @NaslovKList    varchar(40) = Null,
        @Sifra_Kup_TipD    char(6) = Null,
        @Oznaka_Obrazec    varchar(40) = Null
AS
    SET NOCOUNT ON
    UPDATE [TipDok]
    SET    [ImeDok]=@ImeDok, [NaslovDok]=@NaslovDok, [NaslovIspr]=@NaslovIspr, [NaslovPrIme]=@NaslovPrIme,
        [NaslovObicPr]=@NaslovObicPr, [Vl_Izl]=@Vl_Izl, [Sifra_Nal]=@Sifra_Nal, [Sifra_Za]=@Sifra_Za,
        [TipDok]=@TipDok, [Plus_Minus]=@Plus_Minus, [DaliMater]=@DaliMater, [Dev]=@Dev,
        [Anal_Prof]=@Anal_Prof, [DaliMarza]=@DaliMarza, [ProTar]=@ProTar, [DaliFin]=@DaliFin,
        [KoeKto]=@KoeKto, [VoTrg_Knig]=@VoTrg_Knig, [VODDV_Knig]=@VoDDV_Knig, [AnalKupDob]=@AnalKupDob,
        [Sif_GrDok]=@Sif_GrDok, DaliFisc = @DaliFisc, Koi_FixText = @KoiFixText,
        AmbDali=@AmbDali, MozeRasknKaf = @MozeRasknKaf, ImaDanok=@ImaDanok, Prov_Limit=@Prov_Limit,
        Sifra_Dok_Raskn=@Sifra_Dok_Raskn, Sifra_Dok_RasknNeg=@Sifra_Dok_RasknNeg,
        DaliStorno=@DaliStorno, NaslovKList=@NaslovKList, Sifra_Kup_TipD=@Sifra_Kup_TipD, Oznaka_Obrazec=@Oznaka_Obrazec
    WHERE [Sifra_Dok]=@Sifra_Dok               --Disk_Oe=@Disk_Oe, trgnato namerno
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipkarakt]'))
drop procedure [dbo].[sp_izmenitipkarakt]

Go
CREATE PROCEDURE sp_IzmeniTipKarakt
    @Sifra_7        SMALLINT,
    @Rbr            SMALLINT,
    @Sifra_Karakt    SMALLINT
AS
    UPDATE TipKarakt SET
        Rbr = @Rbr,
        Sifra_Karakt = @Sifra_Karakt
    WHERE Sifra_7=@Sifra_7




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipkartkor]'))
drop procedure [dbo].[sp_izmenitipkartkor]

Go

CREATE  PROCEDURE sp_IzmeniTipKartKor
    @Sifra_TipKartKor    smallint,
    @ImeKartKor        char(30),
    @DaliKredit        char(1),
    @Sifra_CeniKartKor    smallint,
    @Fix_Popust        decimal(6,2) = Null,
    @DaliPersDetali char(1) = Null,
    @PrefixKod varchar(4) = Null
AS
    Update TipKartKor
    Set ImeKartKor=@ImeKartKor,
        DaliKredit=@DaliKredit,
        Sifra_CeniKartKor=@Sifra_CeniKartKor,
        Fix_Popust=@Fix_Popust,
        DaliPersDetali = @DaliPersDetali,
        PrefixKod = @PrefixKod
    Where Sifra_TipKartKor = @Sifra_TipKartKor
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipkatpakuv]'))
drop procedure [dbo].[sp_izmenitipkatpakuv]

Go


CREATE     PROCEDURE SP_IzmeniTipKatPakuv
    @Sifra_KatPak Smallint,
    @ImeKatPak Char(30),
    @Sifra_Pak smallint
AS
UPDATE TipKatPakuv SET
    ImeKatPak=@ImeKatPak ,
    Sifra_Pak=@Sifra_Pak
    WHERE Sifra_KatPak=@Sifra_KatPak
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipkomint]'))
drop procedure [dbo].[sp_izmenitipkomint]

Go
CREATE PROCEDURE sp_IzmeniTipKomint
    @Sifra_Tip    smallint,
    @ImeTip    varchar(40),
    @Alt_ImeTip    varchar(50) = Null
AS
    Update TipKomint
    set ImeTip=@ImeTip, Alt_ImeTip=@Alt_ImeTip
    Where Sifra_Tip=@Sifra_Tip
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipnarac]'))
drop procedure [dbo].[sp_izmenitipnarac]

Go









CREATE           PROCEDURE sp_IzmeniTipNarac
    @Sifra_Nar    smallint,
    @ImeNar    varchar(25),
    @Naslov    varchar(50),
    @VlIzl        char(1),
    @Plus_Minus    char(1),
    @Sifra_GrNar    smallint = null,
    @NacinZatv    char(1) = null,
    @Obrazec    char(1) = Null,
    @DaliDev    char(1) = Null,
    @DaliVredn    char(1) = Null,
    @Dali_BO    char(1) = Null,
        @Oznaka_Obrazec    varchar(40) = Null,
        @Sifra_Nar_Otkaz smallint = Null,
        @DaliKOlic    char(1) = Null,
    @VleziRabati char(1)= null,
    @VleziCena char(1)= null,
    @VleziCenam char(1)= null
AS
    UPDATE [TipNarac]
    SET [ImeNar]=@ImeNar, [Naslov]=@Naslov, [VlIzl]=@VlIzl, [Plus_Minus]=@Plus_Minus, [Sifra_GrNar]=@Sifra_GrNar, NacinZatv=@NacinZatv, Obrazec=@Obrazec, DaliDev=@DaliDev,
        DaliVredn=@DaliVredn, Dali_BO=@Dali_BO, Oznaka_Obrazec= @Oznaka_Obrazec, Sifra_Nar_Otkaz = @Sifra_Nar_Otkaz, DaliKolic=@DaliKolic,
            VleziRabati=@VleziRabati, VleziCena=@VleziCena, VleziCenam=@VleziCenam
    WHERE Sifra_nar=@Sifra_Nar
    Return @@Error









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitippercenovnik]'))
drop procedure [dbo].[sp_izmenitippercenovnik]

Go

CREATE  PROCEDURE sp_IzmeniTipPerCenovnik
    @Sifra_TipC    Smallint,
    @ImeTipC    varchar(40),
    @Prioritet    smallint,
    @TipCen        char(1)
AS
    UPDATE TipPerCenovnik SET ImeTipC = @ImeTipC, Prioritet = @Prioritet, TipCen=@TipCen
    WHERE Sifra_TipC = @Sifra_TipC
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitipprodm]'))
drop procedure [dbo].[sp_izmenitipprodm]

Go


CREATE    PROCEDURE sp_IzmeniTipProdM
    @Sif_TipProdM Smallint,
    @ImeTipProdM varchar(30) = null

AS
    UPDATE [TipProdMesto]
    SET [ImeTipProdM]=@ImeTipProdM
    WHERE [Sif_TipProdM]=@Sif_TipProdM
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmaneks]'))
drop procedure [dbo].[sp_izmenitmaneks]

Go
CREATE         PROCEDURE sp_IzmeniTmAneks
    @Sifra_Oe    smallint,
    @BrojBaranje    int,
    @BrojPrilog    int,
    @Sifra_Aneks    int,
    @DatumAneks    smalldatetime,
    @Funkcija    nvarchar(50),
    @Sifra_Tel    int = Null,
    @Sifra_Art    varchar(20) = Null
    AS
UPDATE tmAneks
SET    DatumAneks = @DatumAneks,
    Sifra_Tel = @Sifra_Tel,
    Funkcija = @Funkcija,
    Sifra_Art = @Sifra_Art
    WHERE Sifra_Oe = @Sifra_Oe AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog AND Sifra_Aneks = @Sifra_Aneks
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmbaranje]'))
drop procedure [dbo].[sp_izmenitmbaranje]

Go
CREATE PROCEDURE sp_IzmeniTmBaranje
    @Sifra_OE         smallint,
    @BrojBaranje         int,
    @OpisBaranje         nvarchar(100),
    @BrojDogovor         nvarchar(50),
    @DatumBar         smalldatetime,
    @BrPretplatnik         nvarchar(20),
    @Naziv             nvarchar(50),
    @Dejnost         nvarchar(50),
    @VrabVoFirma         nvarchar(50),
    @Adresa_ZiroSmetka     nvarchar(100),
    @Osnovac         nvarchar(50),
    @PotpisnikNaDogovor     nvarchar(50),
    @BrLk             nvarchar(20),
    @EMBG             nvarchar(20),
    @BrZiroSmetka         nvarchar(20),
    @EDB             nvarchar(20),
    @DeponentBanka         nvarchar(50),
    @PostAdrUliBr         nvarchar(100),
    @PostAdrMestoDrzava     nvarchar(50),
    @DostAdrUliBr         nvarchar(100),
    @DostAdrMestoDrzava     nvarchar(50),
    @KontaktTelDoma     nvarchar(20),
    @KontaktTelRab         nvarchar(20),
    @KontaktFax         nvarchar(20),
    @KontaktEmail         nvarchar(50),
    @Lozinka         nvarchar(20),
    @SifraTarifModel     varchar(100),
    @SifraGrpTarifModel     smallint,
    @Prasanje1         char(1),
    @Prasanje2         char(1),
    @Potvrduvam         char(1),
    @KontrolaVraboten     nvarchar(50),
    @Obrazec        nvarchar(20),
    @Odobren        char(1),
    @Podatok        nvarchar(200) = Null,
    @NL_Ekstra        smallint = Null,
    @NL_Elita        smallint = Null,
    @Zabeleska        nvarchar(200) = Null
AS
UPDATE tmBaranje
SET
    OpisBaranje = @OpisBaranje,
    BrojDogovor = @BrojDogovor,
    DatumBar = @DatumBar,
    BrPretplatnik = @BrPretplatnik,
    Naziv = @Naziv,
    Dejnost = @Dejnost,
    VrabVoFirma = @VrabVoFirma,
    Adresa_ZiroSmetka = @Adresa_ZiroSmetka,
    Osnovac = @Osnovac,
    PotpisnikNaDogovor = @PotpisnikNaDogovor,
    BrLk = @BrLk,
    EMBG = @EMBG,
    BrZiroSmetka = @BrZiroSmetka,
    EDB = @EDB,
    DeponentBanka = @DeponentBanka,
    PostAdrUliBr = @PostAdrUliBr,
    PostAdrMestoDrzava = @PostAdrMestoDrzava,
    DostAdrUliBr = @DostAdrUliBr,
    DostAdrMestoDrzava = @DostAdrMestoDrzava,
    KontaktTelDoma = @KontaktTelDoma,
    KontaktTelRab = @KontaktTelRab,
    KontaktFax = @KontaktFax,
    KontaktEmail = @KontaktEmail,
    Lozinka = @Lozinka,
    SifraTarifModel = @SifraTarifModel,
    SifraGrpTarifModel = @SifraGrpTarifModel,
    Prasanje1 = @Prasanje1,
    Prasanje2 = @Prasanje2,
    Potvrduvam = @Potvrduvam,
    KontrolaVraboten = @KontrolaVraboten,
    Obrazec = @Obrazec,
    Odobren = @Odobren,
    Podatok = @Podatok,
    NL_Ekstra = @NL_Ekstra,
    NL_Elita = @NL_Elita,
    Zabeleska = @Zabeleska
    WHERE Sifra_OE = @Sifra_OE AND BrojBaranje = @BrojBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmsim]'))
drop procedure [dbo].[sp_izmenitmsim]

Go



CREATE      PROCEDURE sp_IzmeniTmSim
    @Sifra_OE     smallint,
    @BrojBaranje    int,
    @BrojPrilog    int,
    @DatumPrilog    smalldatetime ,
    @MSISDN     nvarchar (15) ,
    @BrojNaSim     nvarchar (30) ,
    @BrLk        nvarchar(20),
    @EMBG        nvarchar(20),
    @BrZiroSmetka    nvarchar(20),
    @EDB        nvarchar(20),
    @DeponentBanka    nvarchar(50),
    @ImeKorisnik     nvarchar (50),
    @AdrKorisnik1     nvarchar (50),
    @MestoKorisnik1 nvarchar (50) ,
    @AdrKorisnik2     nvarchar (50),
    @MestoKorisnik2 nvarchar (50),
    @TelDoma    nvarchar(20),
    @TelRab        nvarchar(20),
    @Fax        nvarchar(20),
    @Email        nvarchar(50),
    @Lozinka     nvarchar (40),
    @Prasanje1     char (1),
    @Prasanje2     char (1),
    @SifraTarifModel smallint ,
    @SifraGrpTarifModel smallint,
    @Obrazec    nvarchar(20),
    @IMEI        nvarchar(30)
AS
UPDATE TmSim
SET
    DatumPrilog=@DatumPrilog  ,
    MSISDN=@MSISDN ,
    BrojNaSim=@BrojNaSim  ,
    BrLk=@BrLk,
    EMBG=@EMBG,
    BrZiroSmetka=@BrZiroSmetka,
    EDB=@EDB,
    DeponentBanka=@DeponentBanka,
    ImeKorisnik=@ImeKorisnik ,
    AdrKorisnik1=@AdrKorisnik1 ,
    MestoKorisnik1=@MestoKorisnik1  ,
    AdrKorisnik2=@AdrKorisnik2 ,
    MestoKorisnik2=@MestoKorisnik2 ,
    TelDoma=@TelDoma,
    TelRab=@TelRab,
    Fax=@Fax,
    Email=@Email,
    Lozinka=@Lozinka ,
    Prasanje1=@Prasanje1,
    Prasanje2=@Prasanje2 ,
    SifraTarifModel=@SifraTarifModel,
    SifraGrpTarifModel=@SifraGrpTarifModel,
    Obrazec=@Obrazec,
    IMEI=@IMEI
    WHERE Sifra_OE = @Sifra_OE AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmtarifmodel]'))
drop procedure [dbo].[sp_izmenitmtarifmodel]

Go
CREATE   PROCEDURE sp_IzmeniTmTarifModel
    @Sifra_TarifModel    smallint,
    @Ime            nvarchar(50)
    AS
UPDATE tmTarifModel
SET    Ime = @Ime
    WHERE Sifra_TarifModel = @Sifra_TarifModel
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmtel]'))
drop procedure [dbo].[sp_izmenitmtel]

Go
CREATE  PROCEDURE sp_IzmeniTmTel
    @Sifra_Tel    int,
    @Tip        nvarchar(50),
    @IMEI        nvarchar(30),
    @CenaRed    int,
    @CenaPovl    int,
    @Zaliha        char(1)
AS
    UPDATE TmTel
    SET     Tip = @Tip,
        IMEI = @IMEI,
        CenaRed = @CenaRed,
        CenaPovl = @CenaPovl,
        Zaliha = @Zaliha
    Where Sifra_Tel=@Sifra_Tel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitmuslugi]'))
drop procedure [dbo].[sp_izmenitmuslugi]

Go

CREATE  PROCEDURE sp_IzmeniTmUslugi
    @Sifra_TmUsl    smallint,
    @Ime_TmUsl    nvarchar(50),
    @DefaultPole char
AS
    Update TmUslugi
    Set Ime_TmUsl=@Ime_TmUsl, DefaultPole = @DefaultPole
    Where Sifra_TmUsl=@Sifra_TmUsl




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitransnal]'))
drop procedure [dbo].[sp_izmenitransnal]

Go
CREATE PROCEDURE sp_IzmeniTransNal
    @Sifra_Oe    smallint,
    @Broj_Trans    int,
    @Sifra_Prev    char(6),
    @Vozilo        varchar(40)=Null,
    @Vozac    varchar(40)=Null,
    @Krajna_Dest    varchar(40)=Null,
    @Oddalecenost    smallint=Null,
    @Datum_TransNal smalldatetime,
    @Br_Istov_Mesta smallint=Null,
    @Sifra_Vid_Voz    varchar(20) = Null
AS
    Update TransNal
    Set Sifra_Prev=@Sifra_Prev, Vozilo=@Vozilo, Vozac=@Vozac, Krajna_Dest=@Krajna_Dest,
        Oddalecenost=@Oddalecenost, Br_Istov_Mesta=@Br_Istov_Mesta, Datum_TransNal=@Datum_TransNal, Sifra_Vid_Voz=@Sifra_Vid_Voz
    Where Sifra_Oe=@Sifra_Oe and Broj_Trans=@Broj_Trans



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitrosok4tip]'))
drop procedure [dbo].[sp_izmenitrosok4tip]

Go

create  PROCEDURE SP_IzmeniTrosok4Tip
    @Sifra_4Tros smallint,
    @Ime4Tros nvarchar(50)

AS

update Trosok4Tip
set Ime4Tros = @Ime4Tros
where Sifra_4Tros = @Sifra_4Tros

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitrosokmesto]'))
drop procedure [dbo].[sp_izmenitrosokmesto]

Go
CREATE   PROCEDURE SP_IzmeniTrosokMesto
        @Sifra_TrosM smallint,
        @ImeTrosM nvarchar(30)
AS
update trosokMesto
set ImeTrosM = @ImeTrosM
where Sifra_TrosM = @Sifra_TrosM

RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenitrosokvid]'))
drop procedure [dbo].[sp_izmenitrosokvid]

Go
CREATE   PROCEDURE SP_IzmeniTrosokVid
        @Sifra_TrosV smallint,
        @ImeTrosV nvarchar(30)
AS
update trosokVid
set ImeTrosv = @ImeTrosV
where Sifra_TrosV = @Sifra_TrosV

RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniucesdenovi]'))
drop procedure [dbo].[sp_izmeniucesdenovi]

Go
CREATE   PROCEDURE sp_IzmeniUcesDenovi
    @Denovi smallint,
    @Uces    decimal(6,2) = Null
AS
    UPDATE [UcesDenovi]
    SET [Uces]=@Uces
    WHERE [Denovi]=@Denovi
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniusl_komerc_opsti]'))
drop procedure [dbo].[sp_izmeniusl_komerc_opsti]

Go
CREATE PROCEDURE sp_IzmeniUsl_Komerc_Opsti
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20),
    @Rok_Dosp    smallint,
    @Uces        decimal(6,2),
    @Cena        decimal(18,4)
AS
    Update Usl_Komerc_Opsti
    Set Rok_Dosp=@Rok_Dosp, Uces=@Uces, Cena=@Cena
    Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And Tip_Sif_Art=@Tip_Sif_Art And Sif_Art_Gen=@Sif_Art_Gen
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniusl_komerc_per]'))
drop procedure [dbo].[sp_izmeniusl_komerc_per]

Go


CREATE   PROCEDURE sp_IzmeniUsl_Komerc_Per
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20),
    @Datum_Od    smalldatetime,
    @Rok_Dosp    smallint,
    @Datum_Do    smalldatetime,
    @Uces        decimal(6,2),
    @Dod_Uces    decimal(6,2),
    @Cena        decimal(18,4),
    @MalCena    decimal(18,4),
    @DanCena    char(1),
    @DanMalCena    char(1)
AS
Update Usl_Komerc_Per
Set Rok_Dosp=@Rok_Dosp, Datum_Do=@Datum_Do, Uces=@Uces, Dod_Uces=@Dod_Uces, Cena=@Cena, MalCena=@MalCena, DanCena=@DanCena, DanMalCena=@DanMalCena
Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And Tip_Sif_Art=@Tip_Sif_Art
        And Sif_Art_Gen=@Sif_Art_Gen And Datum_Od=@Datum_Od
Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenivelicina]'))
drop procedure [dbo].[sp_izmenivelicina]

Go



create       PROCEDURE sp_IzmeniVelicina
    @Sifra_Velic Smallint,
    @ImeVelic nVarchar(40),
    @SkrImeVelic nvarchar(10),
    @OpcStandard varchar(20)=Null

AS
    UPDATE [Velicina]
    SET [ImeVelic]=@ImeVelic, [SkrImeVelic]=@SkrimeVelic, OpcStandard = @OpcStandard

    WHERE [Sifra_Velic]=@Sifra_Velic

RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenivelicskala]'))
drop procedure [dbo].[sp_izmenivelicskala]

Go


CREATE  PROCEDURE sp_IzmeniVelicSkala
   @Sifra_VelSkala varchar(20),
   @Ime_VelSkala nvarchar(50)
AS
    UPDATE VelicSkala
    SET Ime_VelSkala=@Ime_VelSkala
    WHERE Sifra_VelSkala=@Sifra_VelSkala
        RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniverntraenje]'))
drop procedure [dbo].[sp_izmeniverntraenje]

Go

CREATE   PROCEDURE sp_IzmeniVernTraenje
    @Sifra_Vernost smallint,
    @Ime_Vernost nVarchar(40)
AS
    UPDATE VernTraenje
    SET Ime_Vernost=@Ime_Vernost
    WHERE Sifra_Vernost=@Sifra_Vernost
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenividdog]'))
drop procedure [dbo].[sp_izmenividdog]

Go

CREATE   PROCEDURE sp_IzmeniVidDog
    @Sifra_VidDog nvarchar(20),
    @Ime_VidDog nVarchar(40)
AS
    UPDATE VidDog
    SET Ime_VidDog=@Ime_VidDog
    WHERE Sifra_VidDog=@Sifra_VidDog
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenividprodobj]'))
drop procedure [dbo].[sp_izmenividprodobj]

Go
CREATE PROCEDURE sp_IzmeniVidProdObj
    @Sifra_VPJ    smallint,
    @Ime_VPJ    varchar(40),
    @Alt_Ime_Vpj    varchar(50) = Null
AS
    Update VidProdObj
    Set Ime_VPJ=@Ime_VPJ, Alt_Ime_Vpj=@Alt_Ime_Vpj
    Where Sifra_VPJ= @Sifra_VPJ
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenividvozila]'))
drop procedure [dbo].[sp_izmenividvozila]

Go
CREATE   PROCEDURE sp_IzmeniVidVozila
    @Sifra_Vid_Voz Varchar(20),
    @Ime_Vid_Voz Varchar(40)
AS
    Update VidVozila
    Set Ime_Vid_Voz=@Ime_Vid_Voz
    Where Sifra_Vid_Voz=@Sifra_Vid_Voz
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenivirmani]'))
drop procedure [dbo].[sp_izmenivirmani]

Go

CREATE    PROCEDURE sp_IzmeniVirmani
    @VirID        int,
    @Sifra_Nal    varchar(6),
    @Sifra_Prim    varchar(50),
    @Pov_Nal    varchar(20),
    @Pov_Prim    varchar(20),
    @Banka_Nal    varchar(30),
    @Banka_Prim    varchar(30),
    @Ska_Nal    varchar(20),
    @Ska_Prim    varchar(20),
    @Iznos        decimal(18,4),
    @Cel        varchar(50),
    @Sifra        varchar(3),
    @Nacin        varchar(1),
    @Dat_Pec    smalldatetime,
    @Dat_Val    smalldatetime,
    @Dat_Dok    smalldatetime,
    @Dat_Upl    smalldatetime,
    @Broj_Db_Lk    varchar(20),
    @Sifra_Oe    smallint,
    @Broj_Dok    int,
    @Sifra_Dok    smallint,
    @Sifra_Virman    varchar(10),
    @Budzet    varchar(20),
    @Uplatna    varchar(20),
    @Prihodna    varchar(20),
    @Sifra_Ban_Nal    char(6) = Null,
    @Sifra_Ban_Prim    char(6) = Null,
    @Prioritet    smallint = Null
 AS
    UPDATE VirmanIzv SET Sifra_Nal=@Sifra_Nal, Sifra_Prim=@Sifra_Prim, Pov_Nal=@Pov_Nal, Pov_Prim=@Pov_Prim, Banka_Nal=@Banka_Nal,
    Banka_Prim=@Banka_Prim, Ska_Nal=@Ska_Nal, Ska_Prim=@Ska_Prim, Iznos=@Iznos, Cel=@Cel, Sifra=@Sifra, Nacin=@Nacin, Dat_Pec=@Dat_Pec,
    Dat_Val=@Dat_Val, Dat_Dok=@Dat_Dok, Broj_Db_Lk=@Broj_Db_Lk, Sifra_Oe=@Sifra_Oe, Broj_Dok=@Broj_Dok, Sifra_Dok=@Sifra_Dok,
    Sifra_Virman=@Sifra_Virman, Budzet=@Budzet, Uplatna=@Uplatna, Prihodna=@Prihodna, Dat_Upl=@Dat_Upl, Sifra_Ban_Nal=@Sifra_Ban_Nal,
    Sifra_Ban_Prim=@Sifra_Ban_Prim, Prioritet=@Prioritet
    WHERE VirID = @VirID
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenivozila]'))
drop procedure [dbo].[sp_izmenivozila]

Go


CREATE            Procedure sp_IzmeniVozila
    @Sifra_Art varchar(20),
    @KomOznaka varchar(40)= null,
    @TehnOznaka varchar(40)= null,
    @VarijIzvedba varchar(40)= null,
    @Kateg_ESE varchar(20)= null,
    @Kateg_MKS varchar(20)= null,
    @BrSasija varchar(30)= null,
    @BrMotor varchar(30)= null,
    @GodProiz smallint= null,
    @GodModel smallint= null,
    @SilaMotor smallint= null,
    @KubiciMotor decimal(9,2)= null,
    @Nosivost decimal(9,2)= null,
    @MasaKgr decimal(9,2)= null,
    @Dolzina smallint= null,
    @Sirina smallint= null,
    @Visina smallint= null,
    @Rastoj_oski smallint= null,
    @Optovar_Oski1 smallint= null,
    @Optovar_Oski2 smallint= null,
    @BrojOskiPrikl smallint= null,
    @MaxMasaPrikl1 decimal(9,2)= null,
    @MaxMasaPrikl2 decimal(9,2)= null,
    @DozvPnevm1 decimal (9,2)= null,
    @DozvPnevm2 decimal(9,2)= null,
    @MestaSedenje smallint= null,
    @MestaStoenje smallint= null,
    @MestaLezenje smallint= null,
    @MaxBrzina smallint = null,
    @REgistracija varchar(20)= null,
    @BrojVrati int = null,
    @Sopstvenik varchar(40) = null,
    @Adresa varchar(40) = null,
    @Telefon varchar(20) = null,
    @Datum_Garanc smalldatetime,
    @OznakaOdobr varchar(40),
    @PotvrdaSoobr varchar(40),
    @DozvPnevm varchar(40),
    @TipMOtor varchar(20),
    @VrteziMin int,
    @VrteziBucava int,
    @Bucava int,
    @Sila_Masa decimal(9, 4),
    @CO2 decimal(9,4),
    @Poc_KM varchar(10) = Null,
    @Poteklo varchar(30) = Null,
    @Sifra_Kup char(6) = Null

As

    Update Vozila
    Set KomOznaka=@KomOznaka,        -- Besse zaboravena KomOznaka vo prvata ver
    TehnOznaka=@TehnOznaka, VarijIzvedba=@VarijIzvedba, Kateg_Ese= @Kateg_ESE, Kateg_MKS=@Kateg_MKS,
    BrSasija=@BrSasija, BrMotor=@BrMotor, GodProiz=@GodProiz, GodModel=@GodModel,SilaMotor=@SilaMotor,
    KubiciMotor=@KubiciMotor,Nosivost=@Nosivost,MasaKgr=@MasaKgr,Dolzina=@Dolzina, Sirina=@Sirina,Visina=@Visina,
    Rastoj_oski=@Rastoj_oski,Optovar_Oski1=@Optovar_Oski1,Optovar_Oski2=@Optovar_Oski2, BrojOskiPrikl=@BrojOskiPrikl,
    MaxMasaPrikl1=@MaxMasaPrikl1,MaxMasaPrikl2=@MaxMasaPrikl2, DozvPnevm1=@DozvPnevm1,DozvPnevm2=@DozvPnevm2,
    MestaSedenje=@MestaSedenje, MestaStoenje=@MestaStoenje, MestaLezenje=@MestaLezenje, MaxBrzina=@MaxBrzina,
    Registracija=@Registracija, BrojVrati=@BrojVrati, Sopstvenik=@Sopstvenik, Adresa=@Adresa, Telefon=@Telefon,
    Datum_Garanc=@Datum_Garanc, OznakaOdobr = @OznakaOdobr, PotvrdaSoobr = @PotvrdaSoobr,
    DozvPnevm = @DozvPnevm, TipMotor = @TipMOtor, VrteziMIn = @VrteziMin, VrteziBucava = @VrteziBucava,
    Bucava = @Bucava, Sila_Masa = @Sila_Masa, CO2 = @CO2, Poc_KM = @Poc_KM, Poteklo = @Poteklo,
    Sifra_Kup = @Sifra_Kup
    Where Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenivozizjava]'))
drop procedure [dbo].[sp_izmenivozizjava]

Go
CREATE procedure sp_IzmeniVozIzjava
    @Sifra_Oe smallint,
    @Broj_Izjava int,
    @Delovoden_br varchar(20),
    @Datum_izjava smalldatetime,
    @Odobr_br varchar(20),
    @Odobr_Datum smalldatetime,
    @Sifra_Art varchar(20)
As
    Update VozIzjava
    Set Delovoden_br=@Delovoden_br, Datum_izjava=@Datum_izjava,
     Odobr_br=@Odobr_br, Odobr_Datum=@Odobr_Datum, Sifra_Art=@Sifra_Art
    where Sifra_Oe=@Sifra_Oe and Broj_Izjava=@Broj_izjava



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwebnaracki]'))
drop procedure [dbo].[sp_izmeniwebnaracki]

Go


CREATE    PROCEDURE sp_IzmeniWEBNaracki

    @StaNarID    smallint = Null,
    @Odobren     char(1)=Null
AS

Update StaNarac set PrifPredlog=@Odobren where  StaNarID=@StaNarID





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmfxr]'))
drop procedure [dbo].[sp_izmeniwhmfxr]

Go
CREATE PROCEDURE sp_IzmeniWhmFXR

    @Sifra_Oe    smallint,
    @FXR_ID    varchar(30),
    @FXR_Ime    nvarchar(40),
    @FXR_Opis    nvarchar(200) = Null,
    @Lokac_ID    varchar(30) = Null,
    @FXR_Barkod    varchar(30) = Null,
    @FXR_AKtiven    char(1) = Null
AS

    Update WhmFXR
    Set FXR_Ime=@FXR_Ime, FXR_Opis=@FXR_Opis, Lokac_ID=@Lokac_ID, FXR_Barkod=@FXR_Barkod,
        FXR_AKtiven=@FXR_AKtiven, FXR_IzmenetNa=GetDate(), FXR_IzmenetOd=SUser_SName()
    Where Sifra_Oe=@Sifra_Oe And FXR_ID=@FXR_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmlokacgrupi]'))
drop procedure [dbo].[sp_izmeniwhmlokacgrupi]

Go
CREATE procedure sp_IzmeniWhmLokacGrupi
    @Sifra_Oe smallint,
    @Lokac_ID varchar(30),
    @Sifra_Gr varchar(6),
    @Prioritet smallint
AS
    Update WhmLokacGrupi
    set Prioritet=@Prioritet
    Where Sifra_Oe=@Sifra_Oe and Lokac_ID=@LOkac_ID and Sifra_Gr=@Sifra_Gr
    return @@error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmlokacija]'))
drop procedure [dbo].[sp_izmeniwhmlokacija]

Go




CREATE     PROCEDURE sp_IzmeniWhmLokacija

    @Sifra_Oe        smallint,
    @Lokac_ID        varchar(30),
    @Lokac_Ime        nvarchar(40),
    @Lokac_Opis        nvarchar(200) = Null,
    @Sekc_ID        varchar(15) = Null,
    @Lokac_X        char(4) = Null,
    @Lokac_Y        char(4) = Null,
    @Lokac_Z        char(4) = Null,
    @Lokac_Barkod    varchar(30) = Null,
    @Lokac_Aktiven    char(1) = Null,
@Lokac_DaliPovekeArt    char(1) = Null,
@Lokac_DaliPovekeLot    char(1) = Null,
@Lokac_Pick     char(1)= null
AS
    Update WhmLokacija
    Set Lokac_Ime=@Lokac_Ime,  Lokac_Opis=@Lokac_Opis, Sekc_ID=@Sekc_ID, Lokac_X=@Lokac_X, Lokac_Y=@Lokac_Y, Lokac_Z=@Lokac_Z,
        Lokac_Barkod=@Lokac_Barkod, Lokac_Aktiven=@Lokac_Aktiven, Lokac_IzmenetNa=GetDate(), Lokac_IzmenetOd=Suser_SName(),
        Lokac_DaliPovekeArt=@Lokac_DaliPovekeArt, Lokac_DaliPovekeLot=@Lokac_DaliPovekeLot, Lokac_Pick=@Lokac_Pick
    Where Sifra_Oe=@Sifra_Oe And Lokac_ID=@Lokac_ID
    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmlokacijasta]'))
drop procedure [dbo].[sp_izmeniwhmlokacijasta]

Go



CREATE    PROCEDURE sp_IzmeniWhmLokacijaSta

    @Sifra_Oe        smallint,
    @Lokac_ID        varchar(30),
    @Lokac_Ime        nvarchar(40),
    @Lokac_BarKod        varchar(30),
    @Sekc_Id varchar(15)

AS

    Update WhmLokacija
    Set Lokac_Ime=@Lokac_Ime, Lokac_BarKod=@Lokac_BarKod, Sekc_Id = @Sekc_Id,
         Lokac_IzmenetNa=GetDate(), Lokac_IzmenetOd=SUser_SName()
    Where Sifra_Oe=@Sifra_Oe And Lokac_ID=@Lokac_ID
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmlokackarakterist]'))
drop procedure [dbo].[sp_izmeniwhmlokackarakterist]

Go
CREATE PROCEDURE sp_IzmeniWhmLokacKarakterist

    @Sifra_Oe    smallint,
    @Sekc_ID    varchar(15) = Null,
    @Lokac_X    char(4) = Null,
    @Lokac_Y    char(4) = Null,
    @Lokac_Z    char(4) = Null,
    @Lokac_ID    varchar(30) = Null,
    @FXR_ID    varchar(30) = Null,
    @Sifra_Karakt    smallint,
    @DodajKarakt    char(1)

AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Update WhmLokacKarakterist
            Set DodajKarakt = ''' + @DodajKarakt + '''
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_Karakt = ' + Cast(@Sifra_Karakt as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmlokackatstatus]'))
drop procedure [dbo].[sp_izmeniwhmlokackatstatus]

Go
CREATE PROCEDURE sp_IzmeniWhmLokacKatStatus

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15) = Null,
    @Lokac_X        char(4) = Null,
    @Lokac_Y        char(4) = Null,
    @Lokac_Z        char(4) = Null,
    @Lokac_ID        varchar(30) = Null,
    @FXR_ID        varchar(30) = Null,
    @Sifra_KatStatus    smallint,
    @DodajKatStatus    char(1)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Update WhmLokacKatStatus
            Set DodajKatStatus = ''' + @DodajKatStatus + '''
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmmvc]'))
drop procedure [dbo].[sp_izmeniwhmmvc]

Go
CREATE PROCEDURE sp_IzmeniWhmMVC

    @MVC_ID        int,
    @MVC_Ime        nvarchar(40),
    @MVC_Opis        nvarchar(200) = Null,
    @MVC_Barkod        varchar(    30) = Null,
    @MVC_OrigBarkod    varchar(    50) = Null,
    @Sifra_Oe        smallint = Null,
    @Lokac_ID        varchar(30) = Null,
    @FXR_ID        varchar(30) = Null,
    @MVC_AKtiven        char(1) = Null
AS
    Update WhmMVC
    Set MVC_Opis=@MVC_Opis, MVC_Ime=@MVC_Ime, MVC_Barkod=@MVC_Barkod, MVC_OrigBarkod=@MVC_OrigBarkod, Sifra_Oe=@Sifra_Oe,
        Lokac_ID=@Lokac_ID, FXR_ID=@FXR_ID, MVC_AKtiven=@MVC_AKtiven, MVC_IzmenetNa=GetDate(), MVC_IzmenetOd=SUser_SName()
    Where MVC_ID=@MVC_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmsekcija]'))
drop procedure [dbo].[sp_izmeniwhmsekcija]

Go


CREATE   PROCEDURE sp_IzmeniWhmSekcija

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15),
    @Sekc_Ime        nvarchar(40),
    @Sekc_BarKod    varchar(30),
    @Sekc_Opis        nvarchar(200) = Null,
    @Sect_X_Min        char(4) = Null,
    @Sect_X_Max        char(4) = Null,
    @Sect_Y_Min        char(4) = Null,
    @Sect_Y_Max        char(4) = Null,
    @Sect_Z_Min        char(4) = Null,
    @Sect_Z_Max        char(4) = Null,
    @Sekc_Aktiven        char(1) = Null
AS

    Update WhmSekcija
    Set Sekc_Ime=@Sekc_Ime, Sekc_Opis=@Sekc_Opis, Sekc_Barkod = @Sekc_BarKod,
        Sect_X_Min=@Sect_X_Min, Sect_X_Max=@Sect_X_Max, Sect_Y_Min=@Sect_Y_Min, Sect_Y_Max=@Sect_Y_Max, Sect_Z_Min=@Sect_Z_Min, Sect_Z_Max=@Sect_Z_Max,
        Sekc_Aktiven=@Sekc_Aktiven, Sekc_IzmenetNa=GetDate(), Sekc_IzmenetOd=SUser_SName()
    Where Sifra_Oe=@Sifra_Oe And Sekc_ID=@Sekc_ID
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmeniwhmsekcijasta]'))
drop procedure [dbo].[sp_izmeniwhmsekcijasta]

Go

create  PROCEDURE sp_IzmeniWhmSekcijaSta

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15),
    @Sekc_Ime        nvarchar(40),
    @Sekc_BarKod        varchar(30) = Null

AS

    Update WhmSekcija
    Set Sekc_Ime=@Sekc_Ime, Sekc_BarKod=@Sekc_BarKod,
         Sekc_IzmenetNa=GetDate(), Sekc_IzmenetOd=SUser_SName()
    Where Sifra_Oe=@Sifra_Oe And Sekc_ID=@Sekc_ID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfaktnapraveno]'))
drop procedure [dbo].[sp_izmenixfaktnapraveno]

Go




CREATE     PROCEDURE sp_IzmeniXFAktNapraveno
    @Broj_Napraveno int,
    @Broj_Baranje int,
    @Broj_Predmet int = null,
    @Broj_Baranje_Orig int,
    @Sifra_Izvrs int,
    @Datum_Napraveno smalldatetime,
    @Sifra_Napraveno smallint = null,
    @OpisNapraveno nvarchar(4000) = null,
    @Sifra_Oe    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Broj_Nar    int = Null,
    @Sifra_Oblast    smallint = Null,
    @Sifra_Kup    char(6),
    @ImeKontakt    nvarchar(50) = Null
AS
    UPDATE XFAktNapraveno
    SET     Broj_Baranje = @Broj_Baranje,
        Broj_Predmet = @Broj_Predmet,
        Broj_Baranje_Orig = @Broj_Baranje_Orig,
        Sifra_Izvrs = @Sifra_Izvrs,
        Datum_Napraveno = @Datum_Napraveno,
        Sifra_Napraveno = @Sifra_Napraveno,
        OpisNapraveno = @OpisNapraveno,
        Sifra_Oe=@Sifra_Oe,
        Sifra_Nar=@Sifra_Nar,
        Broj_Nar=@Broj_Nar,
        Sifra_Oblast=@Sifra_Oblast,
        ImeKontakt=@ImeKontakt,
        Sifra_Kup=@Sifra_Kup
    WHERE Broj_Napraveno = @Broj_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfbaranje]'))
drop procedure [dbo].[sp_izmenixfbaranje]

Go


CREATE   PROCEDURE sp_IzmeniXFBaranje
    @Broj_Baranje int,
    @Broj_Predmet int = null,
    @Broj_Baranje_Preth int = null,
    @Broj_Baranje_Orig int,
    @Sifra_VidBaranje smallint,
    @Datum_Baranje smalldatetime,
    @Datum_Ocek_Real smalldatetime = null,
    @Datum_Gledaj smalldatetime,
    @Sifra_StatusBaranje smallint,
    @OpisBaranje nvarchar(4000),
    @Datum_Zavrseno smalldatetime,
    @Zatvoreno char(1),
    @Sifra_Kup char(6) = null,
    @ImeKontakt nvarchar(50) = null,
    @Sifra_TipPredmet smallint = null,
    @Sifra_Oblast smallint = null,
    @Sifra_Izvrs int = null,
    @Sifra_Izvrs_Od int = null,
    @Sifra_Oe    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Broj_Nar    int = Null
AS
    UPDATE XFBaranje
    SET     Broj_Predmet = @Broj_Predmet,
        Broj_Baranje_Preth = @Broj_Baranje_Preth,
        Broj_Baranje_Orig = @Broj_Baranje_Orig,
        Sifra_VidBaranje = @Sifra_VidBaranje,
        Datum_Baranje = @Datum_Baranje,
        Datum_Ocek_Real = @Datum_Ocek_Real,
        Datum_Gledaj = @Datum_Gledaj,
        Sifra_StatusBaranje = @Sifra_StatusBaranje,
        OpisBaranje = @OpisBaranje,
        Datum_Zavrseno = @Datum_Zavrseno,
        Zatvoreno = @Zatvoreno,
        Sifra_Kup=@Sifra_Kup,
        ImeKontakt=@ImeKontakt,
        Sifra_TipPredmet=@Sifra_TipPredmet,
        Sifra_Oblast=@Sifra_Oblast,
        Sifra_Izvrs=@Sifra_Izvrs,
        Sifra_Izvrs_Od=@Sifra_Izvrs_Od,
        Sifra_Oe=@Sifra_Oe,
        Sifra_Nar=@Sifra_Nar,
        Broj_Nar=@Broj_Nar
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfizvrsitel]'))
drop procedure [dbo].[sp_izmenixfizvrsitel]

Go

CREATE  PROCEDURE sp_IzmeniXFIzvrsitel
    @Sifra_Izvrs    int,
    @ImeIzvrs    nvarchar(40),
    @TipIzvrs    char(1),
    @Login_Izvrs    nvarchar (20)
AS
    UPDATE XFIzvrsitel
    SET ImeIzvrs=@ImeIzvrs, TipIzvrs = @TipIzvrs, Login_Izvrs = @Login_Izvrs
    WHERE Sifra_Izvrs = @Sifra_Izvrs




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfoblast]'))
drop procedure [dbo].[sp_izmenixfoblast]

Go
CREATE PROCEDURE sp_IzmeniXFOblast
    @Sifra_Oblast    smallint,
    @ImeOblast        nvarchar(40)
AS
    UPDATE XFOblast
    SET ImeOblast=@ImeOblast
    WHERE Sifra_Oblast = @Sifra_Oblast




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfoddel]'))
drop procedure [dbo].[sp_izmenixfoddel]

Go
CREATE PROCEDURE sp_IzmeniXFOddel
    @Sifra_Oddel    smallint,
    @ImeOddel        nvarchar(40)
AS
    UPDATE XFOddel
    SET ImeOddel=@ImeOddel
    WHERE Sifra_Oddel = @Sifra_Oddel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfpredmet]'))
drop procedure [dbo].[sp_izmenixfpredmet]

Go
CREATE PROCEDURE sp_IzmeniXFPredmet
       @Broj_Predmet INT,
       @Sifra_Kup char(6),
       @ImeKontakt nvarchar(50) = null,
       @Sifra_TipPredmet smallint,
       @Sifra_Oblast smallint,
       @Datum_Otv smalldatetime,
       @Datum_Ocek_Zatv smalldatetime,
       @Sifra_Izvrs int,
       @Sifra_StatusPredmet smallint,
       @OpisPredmet nvarchar(4000) = null,
    @Datum_Zavrseno    smalldatetime = Null,
    @Zatvoreno        char(1) = Null,
    @Sifra_Oe    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Broj_Nar    int = Null,
    @ImePredmet    nvarchar(50) = Null
AS
    UPDATE XFPredmet
    SET Sifra_Kup = @Sifra_Kup,
        ImeKontakt = @ImeKontakt,
        Sifra_TipPredmet = @Sifra_TipPredmet,
        Sifra_Oblast = @Sifra_Oblast,
        Datum_Otv = @Datum_Otv,
        Datum_Ocek_Zatv = @Datum_Ocek_Zatv,
        Sifra_Izvrs = @Sifra_Izvrs,
        Sifra_StatusPredmet = @Sifra_StatusPredmet,
        OpisPredmet = @OpisPredmet,
        Datum_Zavrseno=@Datum_Zavrseno,
        Zatvoreno=@Zatvoreno,
        Sifra_Oe=@Sifra_Oe,
        Sifra_Nar=@Sifra_Nar,
        Broj_Nar=@Broj_Nar,
        ImePredmet=@ImePredmet
    WHERE Broj_Predmet = @Broj_Predmet



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfstatusbaranje]'))
drop procedure [dbo].[sp_izmenixfstatusbaranje]

Go
CREATE PROCEDURE sp_IzmeniXFStatusBaranje
    @Sifra_StatusBaranje    smallint,
    @ImeStatusBaranje        nvarchar(40)
AS
    UPDATE XFStatusBaranje
    SET ImeStatusBaranje=@ImeStatusBaranje
    WHERE Sifra_StatusBaranje = @Sifra_StatusBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfstatuspredmet]'))
drop procedure [dbo].[sp_izmenixfstatuspredmet]

Go
CREATE PROCEDURE sp_IzmeniXFStatusPredmet
    @Sifra_StatusPredmet    smallint,
    @ImeStatusPredmet        nvarchar(40)
AS
    UPDATE XFStatusPredmet
    SET ImeStatusPredmet=@ImeStatusPredmet
    WHERE Sifra_StatusPredmet = @Sifra_StatusPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixftippredmet]'))
drop procedure [dbo].[sp_izmenixftippredmet]

Go
CREATE PROCEDURE sp_IzmeniXFTipPredmet
    @Sifra_TipPredmet    smallint,
    @ImeTipPredmet        nvarchar(40)
AS
    UPDATE XFTipPredmet
    SET ImeTipPredmet = @ImeTipPredmet
    WHERE Sifra_TipPredmet = @Sifra_TipPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfvidbaranje]'))
drop procedure [dbo].[sp_izmenixfvidbaranje]

Go

CREATE  PROCEDURE sp_IzmeniXFVidBaranje
    @Sifra_VidBaranje    smallint,
    @ImeVidBaranje        nvarchar(40),
    @Nivo_VidBaranje    smallint,
    @Samo_Informacija    char(1),
    @SlikaGore        image = Null,
    @SlikaDolu        image = Null,
    @TekstGore        nvarchar(500) = Null,
    @TekstDolu        nvarchar(500) = Null,
    @SlikaGoreX        smallint = Null,
    @SlikaGoreY        smallint = Null,
    @SlikaDoluX        smallint = Null,
    @SlikaDoluY        smallint = Null,
    @TekstGoreX        smallint = Null,
    @TekstGoreY        smallint = Null,
    @TekstDoluX        smallint = Null,
    @TekstDoluY        smallint = Null,
    @SirSlikaGore        smallint = Null,
    @VisSlikaGore        smallint = Null,
    @SirSlikaDolu        smallint = Null,
    @VisSlikaDolu        smallint = Null,
        @NaslovVidBaranje    nvarchar(40)
AS
    UPDATE XFVidBaranje
    SET ImeVidBaranje = @ImeVidBaranje,
        Nivo_VidBaranje = @Nivo_VidBaranje,
        Samo_Informacija = @Samo_Informacija,
        SlikaGore=@SlikaGore,
        SlikaDolu=@SlikaDolu,
        TekstGore=@TekstGore,
        TekstDolu=@TekstDolu,
        SlikaGoreX=@SlikaGoreX,
        SlikaGoreY=@SlikaGoreY,
        SlikaDoluX=@SlikaDoluX,
        SlikaDoluY=@SlikaDoluY,
        TekstGoreX=@TekstGoreX,
        TekstGoreY=@TekstGoreY,
        TekstDoluX=@TekstDoluX,
        TekstDoluY=@TekstDoluY,
        SirSlikaGore=@SirSlikaGore,
        VisSlikaGore=@VisSlikaGore,
        SirSlikaDolu=@SirSlikaDolu,
        VisSlikaDolu=@VisSlikaDolu,
                NaslovVidBaranje = @NaslovVidBaranje
    WHERE Sifra_VidBaranje = @Sifra_VidBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenixfvraboddel]'))
drop procedure [dbo].[sp_izmenixfvraboddel]

Go
CREATE PROCEDURE sp_IzmeniXFVrabOddel
    @Sifra_Izvrs    int,
    @Sifra_Oddel    smallint,
    @Nivo_Odgovoren    smallint
AS
    UPDATE XFVrabOddel
    SET Nivo_Odgovoren = @Nivo_Odgovoren
    WHERE Sifra_Izvrs = @Sifra_Izvrs AND Sifra_Oddel = @Sifra_Oddel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizacuvajean_sap]'))
drop procedure [dbo].[sp_izmenizacuvajean_sap]

Go



CREATE    PROCEDURE sp_IzmeniZacuvajEAN_SAP
    @Sifra_Art    VARCHAR(20),
    @Nom        CHAR(50),
    @ImaKomerc    INT = NULL,
    @EdMera        CHAR(5) = NULL
AS
IF NOT EXISTS (SELECT Sifra_Art FROM ABarKod WHERE Sifra_Art = @Sifra_Art AND Nom = @Nom)
    INSERT INTO ABarKod (Sifra_Art, Nom) VALUES (@Sifra_Art, @Nom)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizacuvajkolrab_sap]'))
drop procedure [dbo].[sp_izmenizacuvajkolrab_sap]

Go

CREATE   PROCEDURE sp_IzmeniZacuvajKolRab_SAP
    @Od_Kolic    DECIMAL(18,4),
    @Do_Kolic    DECIMAL(18,4),
    @Rabat        DECIMAL(6,2)
AS
INSERT INTO Usl_KolRab_Fra (Od_Kolic, Do_Kolic, Rabat)
VALUES (@Od_Kolic, @Do_Kolic, @Rabat)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizacuvajoptzalpooe]'))
drop procedure [dbo].[sp_izmenizacuvajoptzalpooe]

Go



CREATE    PROCEDURE sp_IzmeniZacuvajOptZalPoOe
    @Sifra_Oe    Smallint,
    @Sifra_Art    varchar(20),
    @OptZal        Decimal(18,6) = Null,
    @MinZal     Decimal(18,6) = Null,
    @MaxZal     Decimal(18,6) = Null
AS
Declare @Dozvoleno    char(1)
IF @OptZal<0
    SET @Dozvoleno='N'
ELSE
    SET @Dozvoleno='D'

IF EXISTS (SELECT * FROM OptZalPoOe WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art)
Begin
    UPDATE OptZalPoOe SET OptZal=@OptZal, Dozvoleno=@Dozvoleno, MinZal=Round(@OptZal*0.7,0), MaxZal=Round(@OptZal*1.3,0)
    WHERE Sifra_Oe=@Sifra_Oe AND Sifra_Art=@Sifra_Art
End
ElSE
    Insert Into OptZalPoOe (Sifra_Oe, Sifra_Art, MinZal, MaxZal, OptZal, Dozvoleno)
    Values (@Sifra_Oe, @Sifra_Art, Round(@OptZal*0.7,0), Round(@OptZal*1.3,0), @OptZal, @Dozvoleno)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizacuvajpat_sap]'))
drop procedure [dbo].[sp_izmenizacuvajpat_sap]

Go


CREATE   PROCEDURE sp_IzmeniZacuvajPat_SAP
    @Sifra_Pat_SAP    NVARCHAR(10),
    @ImePat            VARCHAR(30) = Null,
    @Prod_Ured        VARCHAR(4) = Null
AS
    DECLARE @Sifra_Pat AS SMALLINT
    SET @Sifra_Pat = NULL
    SET @Sifra_Pat = (SELECT TOP 1 Sifra_Pat FROM Patnici WHERE Sifra_Pat_SAP = @Sifra_Pat_SAP)

    IF LEN(@ImePat) > 30 SET @ImePat = SUBSTRING(@ImePat, 0, 30)

    IF @Sifra_Pat IS NOT NULL
        BEGIN
            UPDATE Patnici SET
                Sifra_Pat_SAP = @Sifra_Pat_SAP,
                ImePat = @ImePat,
                Adresa2 = @Prod_Ured,
                Aktiven='D'
            WHERE Sifra_Pat = @Sifra_Pat
        END
    ELSE
        BEGIN
            SET @Sifra_Pat = (SELECT COUNT (Sifra_Pat) FROM Patnici)
            SET @Sifra_Pat = @Sifra_Pat + 1
            INSERT INTO Patnici (Sifra_Pat, ImePat, Adresa2, Sifra_Pat_SAP, Aktiven)
            VALUES (@Sifra_Pat, @ImePat, @Prod_Ured, @Sifra_Pat_SAP, 'D')
        END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizacuvajsifkupart_sap]'))
drop procedure [dbo].[sp_izmenizacuvajsifkupart_sap]

Go

CREATE  PROCEDURE sp_IzmeniZacuvajSifKupArt_SAP
    @Sifra_Kup        CHAR(6),
    @Sifra_Art        VARCHAR(20),
    @Sifra_Art_Kup    VARCHAR(20)
AS

IF EXISTS (SELECT Sifra_Kup FROM SifKupArt WHERE Sifra_Kup = @Sifra_Kup AND Sifra_Art = @Sifra_Art)
    UPDATE SifKupArt SET Sifra_Art_Kup = @Sifra_Art_Kup, Prik_Fakt = 'D'
ELSE
    INSERT INTO SifKupArt (Sifra_Kup, Sifra_Art, Sifra_Art_Kup)
    VALUES (@Sifra_Kup, @Sifra_Art, @Sifra_Art_Kup)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izmenizbirenbrand]'))
drop procedure [dbo].[sp_izmenizbirenbrand]

Go
CREATE   PROCEDURE sp_IzmeniZbirenBrand
    @Sifra_ZBrand Smallint,
    @Ime_Brand varchar(30)
AS
    Declare @Propagiraj as char(1)
    Set @Propagiraj='D'
    UPDATE [DrgPodel1]
    SET [Ime_Drg1]=@Ime_Brand, [Propagiraj]=@Propagiraj
    WHERE [Sifra_Drg1]=@Sifra_ZBrand
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpocarbrzadevfra]'))
drop procedure [dbo].[sp_iznpocarbrzadevfra]

Go

CREATE  PROCEDURE sp_IznPoCarBrZaDevFra
    @Sifra_OE    smallint,
    @Sifra_dok    smallint,
    @Broj_Dok    int
AS
SELECT A.CarBroj, C.Ime, SUM(S.Kolic * A.BTezina/1000) BTezina, SUM(S.Kolic * A.Tezina/1000) NTezina, SUM(S.Kolic * S.DevCena) FaktVred
FROM DevFraStavk S INNER JOIN DevFra D ON D.DevFraID=S.DevFraID
INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
LEFT OUTER JOIN CBroevi C ON A.CarBroj=C.CarBroj
WHERE D.Sifra_OE=@Sifra_OE AND D.Sifra_Dok=@Sifra_Dok AND D.Broj_DevF=@Broj_Dok
GROUP BY A.CarBroj, C.Ime




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarpodok]'))
drop procedure [dbo].[sp_iznpotarpodok]

Go





CREATE          PROCEDURE sp_IznPoTarPoDok
    @DokrID Int,
    @ImaDanok char(1)='D'
AS
Declare @SSQL Varchar(3000)
Declare @VlIzl Char(1)
Declare @Dev char(1)
Declare @SamoNivel char(1)
Select @VlIzl=VlIzl From Dokr Where DokrID=@DokrID
SELECT @Dev=T.Dev, @SamoNivel=T.SamoNivel FROM TipDok T INNER JOIN Dokr D ON T.Sifra_Dok=D.Sifra_Dok WHERE D.DokrID=@DokrID

IF @SamoNivel='D'
Begin
    Set @SSQL = 'Select S.POsn,
    0 As Dok_NetoBezDDV, 0 As Mag_Nab, 0 As Dok_Rabat,0 As DokNeto_PredRabat, 0 As Dok_DDV,0 As DokDDV_Malo,
    Round(SUM(S.Alt_Kolic * (S.MagCena-S.DokCena)/(1+S.POsn/100)), 2) As Mag_Neto,
    Round(Sum(S.Alt_Kolic * (S.MagCena-S.DokCena)), 2) As Mag_SoDDV,
    Round(Sum(S.Alt_Kolic*(S.MagCena-S.DokCena) - S.Alt_Kolic*(S.MagCena-S.DokCena)/(1+S.POsn/100)), 2) As Mag_DDV
    From Stavr S, Dokr D, KatArt K  Where S.DokrID=' + Cast(@DokrID As varchar(10)) + '
    And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art  Group By S.POsn '
----
End
Else
Begin
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 26.07.08
    Set @SSQL = 'Select T.ProcOsn POsn,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_SoDDV, '
ELSE
    Set @SSQL = 'Select S.POsn,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_SoDDV, '
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) As Dok_NetoBezDDV,
    Round(Sum(Case K.SMatUsl When ''M'' Then S.Kolic*S.NabCena Else 0 End), 2) As Mag_Nab,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0,0)*(S.POsn/100)), 2) As Mag_DDV,'
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic*S.Uces/100),2) As Dok_Rabat,
    Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic),2) As DokNeto_PredRabat, ' --dodadeno 06.04.05
If @VlIzl = 'V'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa)*(S.POsnPren/100)), 2) As Dok_DDV '
Else If @VlIzl = 'I'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.POsn/100)), 2) As Dok_DDV '
If @VlIzl = 'I' AND (@ImaDanok='N' OR @Dev='D')        --spec.za f-ri od prod (ZV)
    Set @SSQL = @SSQL + ',Round(Sum(S.Kolic* S.DokCena* (1- S.Uces/100)* (1-D.Kasa/100)*T.ProcOsn/100), 2) As DokDDV_Malo '

Set @SSQL = @SSQL + 'From Stavr S, Dokr D, KatArt K'
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ', Tarifi T '
Set @SSQL = @SSQL + ' Where S.DokrID=' + Cast(@DokrID As varchar(10)) + '
        And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art '
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ' AND K.Sifra_Tar=T.Sifra_Tar Group By T.ProcOsn '
ELSE
    Set @SSQL = @SSQL + ' Group By S.POsn '
End
Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarpodokpoart]'))
drop procedure [dbo].[sp_iznpotarpodokpoart]

Go






CREATE           PROCEDURE sp_IznPoTarPoDokPoArt
    @DokrID Int,
    @ImaDanok char(1)='D'
AS
Declare @SSQL Varchar(3000)
Declare @VlIzl Char(1)
Select @VlIzl=VlIzl From Dokr Where DokrID=@DokrID

IF @VlIzl='I' AND @ImaDanok='N'
    Set @SSQL = 'Select T.ProcOsn POsn, K.Kto_Anal,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_SoDDV, '
ELSE
    Set @SSQL = 'Select S.POsn, K.Kto_Anal,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_SoDDV, '
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) As Dok_NetoBezDDV,
    Round(Sum(Case K.SMatUsl When ''M'' Then S.Kolic*S.NabCena Else 0 End), 2) As Mag_Nab,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0,0)*(S.POsn/100)), 2) As Mag_DDV,'
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic*S.Uces/100),2) As Dok_Rabat,
    Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic),2) As DokNeto_PredRabat, ' --dodadeno 06.04.05
If @VlIzl = 'V'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa)*(S.POsnPren/100)), 2) As Dok_DDV '
Else If @VlIzl = 'I'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.POsn/100)), 2) As Dok_DDV '
If @VlIzl = 'I' AND @ImaDanok='N'        --spec.za f-ri od prod (ZV)
    Set @SSQL = @SSQL + ',Round(Sum(S.Kolic* S.DokCena* (1- S.Uces/100)* (1-D.Kasa/100)*T.ProcOsn/100), 2) As DokDDV_Malo '
Set @SSQL = @SSQL + 'From Stavr S, Dokr D, KatArt K'
IF @VlIzl='I' AND @ImaDanok='N'
    Set @SSQL = @SSQL + ', Tarifi T '
Set @SSQL = @SSQL + ' Where S.DokrID=' + Cast(@DokrID As varchar(10)) + '
        And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art '
IF @VlIzl='I' AND @ImaDanok='N'
Begin
    Set @SSQL = @SSQL + ' AND K.Sifra_Tar=T.Sifra_Tar Group By T.ProcOsn, K.Kto_Anal Order By T.ProcOsn, K.Kto_Anal '
End
ELSE
Begin
    Set @SSQL = @SSQL + ' Group By S.POsn, K.Kto_Anal Order By S.POsn, K.Kto_Anal'
End

Exec(@SSQL)  ---ne go cepkaj order by






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarpodokpodivodart]'))
drop procedure [dbo].[sp_iznpotarpodokpodivodart]

Go




CREATE        PROCEDURE sp_IznPoTarPoDokPoDivOdArt
    @DokrID Int,
    @ImaDanok char(1)='D'
AS
Declare @SSQL Varchar(3000)
Declare @VlIzl Char(1)
Declare @Dev char(1)
Select @VlIzl=VlIzl From Dokr Where DokrID=@DokrID
SELECT @Dev=T.Dev FROM TipDok T INNER JOIN Dokr D ON T.Sifra_Dok=D.Sifra_Dok WHERE D.DokrID=@DokrID

IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 26.07.08
    Set @SSQL = 'Select T.ProcOsn POsn, K.Sifra_Div,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_SoDDV, '
ELSE
    Set @SSQL = 'Select S.POsn, K.Sifra_Div,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_SoDDV, '
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) As Dok_NetoBezDDV,
    Round(Sum(Case K.SMatUsl When ''M'' Then S.Kolic*S.NabCena Else 0 End), 2) As Mag_Nab,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0,0)*(S.POsn/100)), 2) As Mag_DDV,'
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic*S.Uces/100),2) As Dok_Rabat,
    Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic),2) As DokNeto_PredRabat, ' --dodadeno 06.04.05
If @VlIzl = 'V'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa)*(S.POsnPren/100)), 2) As Dok_DDV '
Else If @VlIzl = 'I'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.POsn/100)), 2) As Dok_DDV '
If @VlIzl = 'I' AND (@ImaDanok='N' OR @Dev='D')        --spec.za f-ri od prod (ZV)
    Set @SSQL = @SSQL + ',Round(Sum(S.Kolic* S.DokCena* (1- S.Uces/100)* (1-D.Kasa/100)*T.ProcOsn/100), 2) As DokDDV_Malo '

Set @SSQL = @SSQL + 'From Stavr S, Dokr D, KatArt K'
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ', Tarifi T '
Set @SSQL = @SSQL + ' Where S.DokrID=' + Cast(@DokrID As varchar(10)) + '
        And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art '
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ' AND K.Sifra_Tar=T.Sifra_Tar Group By T.ProcOsn, K.Sifra_Div '
ELSE
    Set @SSQL = @SSQL + ' Group By S.POsn, K.Sifra_Div '
Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarpodokpodivodartpokto]'))
drop procedure [dbo].[sp_iznpotarpodokpodivodartpokto]

Go



CREATE        PROCEDURE sp_IznPoTarPoDokPoDivOdArtPoKto
    @DokrID Int,
    @ImaDanok char(1)='D'
AS
Declare @SSQL Varchar(3000)
Declare @VlIzl Char(1)
Declare @Dev char(1)
Select @VlIzl=VlIzl From Dokr Where DokrID=@DokrID
SELECT @Dev=T.Dev FROM TipDok T INNER JOIN Dokr D ON T.Sifra_Dok=D.Sifra_Dok WHERE D.DokrID=@DokrID

IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 26.07.08
    Set @SSQL = 'Select T.ProcOsn POsn, K.Sifra_Div, K.Kto_Anal,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_SoDDV, '
ELSE
    Set @SSQL = 'Select S.POsn, K.Sifra_Div, K.Kto_Anal,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_SoDDV, '
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) As Dok_NetoBezDDV,
    Round(Sum(Case K.SMatUsl When ''M'' Then S.Kolic*S.NabCena Else 0 End), 2) As Mag_Nab,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0,0)*(S.POsn/100)), 2) As Mag_DDV,'
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic*S.Uces/100),2) As Dok_Rabat,
    Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic),2) As DokNeto_PredRabat, ' --dodadeno 06.04.05
If @VlIzl = 'V'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa)*(S.POsnPren/100)), 2) As Dok_DDV '
Else If @VlIzl = 'I'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.POsn/100)), 2) As Dok_DDV '
If @VlIzl = 'I' AND (@ImaDanok='N' OR @Dev='D')        --spec.za f-ri od prod (ZV)
    Set @SSQL = @SSQL + ',Round(Sum(S.Kolic* S.DokCena* (1- S.Uces/100)* (1-D.Kasa/100)*T.ProcOsn/100), 2) As DokDDV_Malo '

Set @SSQL = @SSQL + 'From Stavr S, Dokr D, KatArt K'
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ', Tarifi T '
Set @SSQL = @SSQL + ' Where S.DokrID=' + Cast(@DokrID As varchar(10)) + '
        And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art '
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ' AND K.Sifra_Tar=T.Sifra_Tar Group By T.ProcOsn, K.Sifra_Div '
ELSE
    Set @SSQL = @SSQL + ' Group By S.POsn, K.Sifra_Div, K.Kto_Anal '
Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarpodokzbpodivodart]'))
drop procedure [dbo].[sp_iznpotarpodokzbpodivodart]

Go





CREATE       PROCEDURE sp_IznPoTarPoDokZbPoDivOdArt
    @DokrZbID Int,
    @ImaDanok char(1)='D'
AS
Declare @SSQL Varchar(3000)
Declare @VlIzl Char(1)
Declare @Dev char(1)
SELECT @Dev=T.Dev, @VlIzl=Vl_Izl FROM TipDok T INNER JOIN DokrZb D ON T.Sifra_Dok=D.Sifra_Dok WHERE D.DokrZbID=@DokrZbID

IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 26.07.08
    Set @SSQL = 'Select T.ProcOsn POsn, K.Sifra_Div,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, T.ProcOsn, 0, 0)), 2) As Mag_SoDDV, '
ELSE
    Set @SSQL = 'Select S.POsn, K.Sifra_Div,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_Neto,
    Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0, 0)), 2) As Mag_SoDDV, '
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) As Dok_NetoBezDDV,
    Round(Sum(Case K.SMatUsl When ''M'' Then S.Kolic*S.NabCena Else 0 End), 2) As Mag_Nab,
    Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.MagCena, S.DanMagCena, S.POsn, 0,0)*(S.POsn/100)), 2) As Mag_DDV,'
Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic*S.Uces/100),2) As Dok_Rabat,
    Round(Sum(dbo.fn_VratiCena(S.DokCena, S.POsnPren, S.DanDokCena, ''N'')*S.Kolic),2) As DokNeto_PredRabat, ' --dodadeno 06.04.05
If @VlIzl = 'V'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa)*(S.POsnPren/100)), 2) As Dok_DDV '
Else If @VlIzl = 'I'
    Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)*(S.POsn/100)), 2) As Dok_DDV '
If @VlIzl = 'I' AND (@ImaDanok='N' OR @Dev='D')        --spec.za f-ri od prod (ZV)
    Set @SSQL = @SSQL + ',Round(Sum(S.Kolic* S.DokCena* (1- S.Uces/100)* (1-D.Kasa/100)*T.ProcOsn/100), 2) As DokDDV_Malo '

Set @SSQL = @SSQL + 'From Stavr S, Dokr D, KatArt K'
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ', Tarifi T '
Set @SSQL = @SSQL + ' Where S.DokrID IN (SELECT DokrID FROM DokrZbSta WHERE DokrZbID=' + Cast(@DokrZbID As varchar(10)) + ')
        And D.DokrId = S.DokrID And S.Sifra_Art = K.Sifra_Art '
IF @VlIzl='I' AND (@ImaDanok='N' OR @Dev='D')   --dev.dodadeno 20.08.08 gk
    Set @SSQL = @SSQL + ' AND K.Sifra_Tar=T.Sifra_Tar Group By T.ProcOsn, K.Sifra_Div '
ELSE
    Set @SSQL = @SSQL + ' Group By S.POsn, K.Sifra_Div '
Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_iznpotarzadevkalk]'))
drop procedure [dbo].[sp_iznpotarzadevkalk]

Go

CREATE      PROCEDURE sp_IznPoTarZaDevKalk
    @Sifra_OE     smallint,
    @Broj_Dok    int,
    @Sifra_DokDK    smallint=132,
    @So_Opis    char(1) = 'N'
AS
    Declare @SSQL Varchar(3000)
If @So_Opis = 'D'
    Set @SSQL = 'Select F.TipDevKalk, F.Kto, F.KojaVal, RTrim(K.ImeKup) + '' - '' + RTrim(F.BrojDok) As Opis,
    Sum(F.Danok1) Danok1, Sum(F.Danok2) Danok2,
    Sum(F.Dolzi+F.Pobaruva) IznDen, Sum(F.Dev_Dolzi+F.Dev_Pobaruva) IznDev
    From AnFinDok F INNER JOIN Komint K ON F.Sifra_Kup=K.Sifra_Kup
    Where F.Sifra_OE=' + Cast(@Sifra_OE As varchar(6))+' AND F.Sifra_DokDK='+cast(@Sifra_DokDK as varchar(3)) + ' AND F.Broj_Kalk=' + Cast(@Broj_Dok As varchar(10)) + '
    Group By F.TipDevKalk, F.Kto, F.KojaVal, K.ImeKup, F.BrojDok '
Else
    Set @SSQL = 'Select TipDevKalk, Kto, KojaVal, Sum(Danok1) Danok1, Sum(Danok2) Danok2,
    Sum(Dolzi+Pobaruva) IznDen, Sum(Dev_Dolzi+Dev_Pobaruva) IznDev
    From AnFinDok Where Sifra_OE=' + Cast(@Sifra_OE As varchar(6)) +' AND Sifra_DokDK='+cast(@Sifra_DokDK as varchar(3))+' AND Broj_Kalk=' + Cast(@Broj_Dok As varchar(10)) + '
    Group By TipDevKalk, Kto, KojaVal '
Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_akciskirabati]'))
drop procedure [dbo].[sp_izv_akciskirabati]

Go



CREATE        PROCEDURE sp_Izv_AkciskiRabati
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(300) = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @Koi_Gradovi varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @KDrugo1    smallint = Null,
    @KDrugo2    smallint = Null,
    @KDrugo3    smallint = Null,
    @KDrugo4    smallint = Null,
    @KDrugo5    smallint = Null,
    @PoArt_PoDok    char(1) = 'A',        -- A - po Artikli,     D - Detalno po dokumenti
    @SoDDV    char(1) = 'N'
AS
    Set Nocount On
    CREATE   Table #OsnRabat
    (Sifra_Art    varchar(20),
    Rabat        decimal(18,6))
    INSERT INTO #OsnRabat SELECT A.Sifra_Art,
    ((A.DogCena/(1+T.ProcOsn/100))/(A.Tezina/1000)-A.Pcena5)*(A.GotCena/100)*(A.Tezina/1000)*100 /(A.DogCena/(1+T.ProcOsn/100))
    FROM KatArt A INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar WHERE A.DogCena>0 AND A.Tezina>0 AND A.GotCena>0

    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1

    Declare @SSQL as varchar(8000)


    If @PoArt_PoDok = 'D'
        Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, D.Sifra_Kup, D.Sifra_Obj,
        (Case When D.Sifra_Obj Is Not Null Then Kup.ImeKup + '' - '' + KO.ImeObj Else Kup.ImeKup End) as ImeKup, '
    Else
        Set @SSQL = ' Select Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, Null Sifra_Kup, Null Sifra_Obj, Null ImeKup, '
    Set @SSQL = @SSQL + ' S.Sifra_Art, K.ImeArt, Sum(S.Kolic) Kolic, '
    If @SoDDV = 'D'
        Set @SSQL = @SSQL + ' Round(Sum(S.Kolic * (Case When S.DanDokCena = ''N'' Then (S.DokCena * (1+S.Posn/100)) Else  S.DokCena End)),4) VredBezRabat,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''N'' Then (S.DokCena * (1+S.Posn/100)) Else  S.DokCena End) * S.Uces/100),4) VredRabat,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''N'' Then (S.DokCena * (1+S.Posn/100)) Else  S.DokCena End) * O.Rabat/100),4) VredOsnRabat '
    Else
        Set @SSQL = @SSQL + ' Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then (S.DokCena / (1+S.Posn/100)) Else  S.DokCena End)),4) VredBezRabat,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then (S.DokCena / (1+S.Posn/100)) Else  S.DokCena End) * S.Uces/100),4) VredRabat,
            Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then (S.DokCena / (1+S.Posn/100)) Else  S.DokCena End) * O.Rabat/100),4) VredOsnRabat '
    Set @SSQL = @SSQL + 'From Stavr S
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
        INNER JOIN #OsnRabat O ON K.Sifra_Art=O.Sifra_Art
        Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
         Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where S.Kolku_Akcii = -1
                 And K.Iskluci <> ''D'' '
    If @Sifra_OE Is Not NULL
        Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
           End
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=''' + @Sifra_Kup_Od + ''' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=''' + @Sifra_Kup_Do + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                        OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '

    If @PoArt_PoDok = 'D'
        Set @SSQL = @SSQL + 'Group By S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, D.Sifra_Kup, D.Sifra_Obj, Kup.ImeKup, KO.ImeObj, '
    Else
        Set @SSQL = @SSQL + 'Group By '
    Set @SSQL = @SSQL + ' S.Sifra_Art, K.ImeArt '
--Print @ssql
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_art_anomalii]'))
drop procedure [dbo].[sp_izv_art_anomalii]

Go


CREATE   PROCEDURE sp_Izv_Art_Anomalii
    @Sifra_Oe    smallint,
    @KoiAnom    varchar(100) = Null        -- 1 - Artiklot nema sostavnica
                        -- 2 - Artiklot nema cena
                        -- 3 - Artiklot vnesen vo sostavnica ne e gotov proizvod
                        -- 4 - Surovinata vnesena vo sostavnica ne e soodvetna
                        -- 5 - Artiklot vo cenovnikot treba da e Gotov proizvod ili Trgovska stoka
                        -- 6 - Nabaveniot artikal ne smee da e gotov proizvod
AS
    Declare @Sif_GrOrgN as char(6)
    Select @Sif_GrOrgN = G.Sif_GrOrg     From GrOrg G
    Inner Join SGrOrg S On G.Sif_GrOrg=S.Sif_GrOrg And S.Sifra_OE= @Sifra_OE
    Where G.GotovPro='D'
    Declare @Sif_GrOrgC as char(6)
    Select @Sif_GrOrgC = G.Sif_GrOrg     From GrOrg G
    Inner Join SGrOrg S On G.Sif_GrOrg=S.Sif_GrOrg And S.Sifra_OE= @Sifra_OE
    Where G.Edinstvena='D'
    Create Table #Tab
    (
     Sifra_Art    varchar(20),
     Sifra_Sur    varchar(20),
     Anomalija    varchar(100),
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int
    )
    -----------------------------------------------------------------------------
    Declare @Ima as smallint
    Set @Ima = Charindex('1', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Null, ' Artiklot nema sostavnica '
        From Katart
        Where DaliSurov='G'
        And Sifra_Art Not In (Select Sifra_Art From Sostav)
        And Sifra_Art Not In (Select Sifra_Art From GSostav Where Sif_GrOrg = @Sif_GrOrgN)--G Inner Join SGrOrg S On S.Sif_GrOrg=G.Sif_GrOrg And S.Sifra_Oe = @Sifra_Oe)
    -----------------------------------------------------------------------------
    Set @Ima = Charindex('2', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Null, ' Artiklot nema cena '
        From Katart
        Where DaliSurov In ('G', 'T', 'N')
        And Sifra_Art Not In (Select Sifra_Art From CenGrOrg Where Sif_GrOrg = @Sif_GrOrgC And Cena > 0)
    -----------------------------------------------------------------------------
    Set @Ima = Charindex('3', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Null, ' Artiklot vnesen vo sostavnica ne e gotov proizvod '
        From Sostav
        Where Sifra_Art Not In (Select Sifra_Art From Katart Where DaliSurov = 'G')
    Set @Ima = Charindex('3', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Null, ' Artiklot vnesen vo sostavnica ne e gotov proizvod '
        From GSostav
        Where Sif_GrOrg = @Sif_GrOrgN And Sifra_Art Not In (Select Sifra_Art From Katart Where DaliSurov = 'G')
    -----------------------------------------------------------------------------
    Set @Ima = Charindex('4', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Sifra_Sur, ' Surovinata vnesena vo sostavnica ne e soodvetna '
        From Sostav
        Where Sifra_Sur Not In (Select Sifra_Art From Katart Where DaliSurov In ('S', 'T', 'N'))
    Set @Ima = Charindex('4', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Sifra_Sur, ' Surovinata vnesena vo sostavnica ne e soodvetna '
        From GSostav
        Where Sif_GrOrg = @Sif_GrOrgN And Sifra_Sur Not In (Select Sifra_Art From Katart Where DaliSurov In ('S', 'T', 'N'))
    -----------------------------------------------------------------------------
    Set @Ima = Charindex('5', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab (Sifra_Art, Sifra_Sur, Anomalija)
        Select Sifra_Art, Null, ' Artiklot vo cenovnikot treba da e Gotov proizvod ili Trgovska stoka '
        From CenGrOrg
        Where Sif_GrOrg = @Sif_GrOrgN And Sifra_Art Not In (Select Sifra_Art From Katart Where DaliSurov In ('G', 'T', 'N'))
    -----------------------------------------------------------------------------
    Set @Ima = Charindex('6', @KoiAnom, 1)
    If @Ima > 0 Or @KoiAnom Is null
        Insert Into #Tab
        Select Sifra_Art, Null, ' Nabaveniot artikal ne smee da e gotov proizvod ', Sifra_Oe, Sifra_Dok, Broj_Dok
        From Stavr
        Where VlIzl = 'V' And Sifra_Oe=@Sifra_Oe
        And Sifra_Art Not In (Select Sifra_Art From Katart Where DaliSurov In ('S', 'T', 'N'))
    -----------------------------------------------------------------------------
    Select T.Sifra_Art, K.ImeArt, T.Sifra_Sur, S.ImeArt ImeSur, T.Anomalija, T.Sifra_Oe, T.Sifra_Dok, T.Broj_Dok
    From #Tab T
    Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
    Left Outer Join Katart S On S.Sifra_Art = T.Sifra_Sur
    Order By T.Anomalija, T.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_denovinazaliha]'))
drop procedure [dbo].[sp_izv_denovinazaliha]

Go
CREATE        PROCEDURE sp_Izv_DenoviNaZaliha
    @Sifra_OE    Smallint = Null,
    @KoiOE     Varchar(10) = Null,
    @Pod1         Smallint = Null,
    @Pod2         Smallint = Null,
    @Pod3         Smallint = Null,
    @Pod4         Smallint = Null,
    @Pod5         Smallint = Null,
    @Sifra_Tip     Smallint = Null,
    @Datum_Od     Smalldatetime = Null,
    @Datum_Do     Smalldatetime = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Sifra_Brand     Smallint = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto         Char(6) = Null,
    @Sifra_Gr     varChar(6) = Null,
    @Sifra_Podg     Char(6) = Null,
    @Lokacija     Varchar(10) = Null,
    @TipKup     Char(11) = Null,
    @Koi_Gradovi     varchar(200) = Null,
    @Koi_Regioni     varchar(200) = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @TipDokProd    varchar(200) = Null,
    @Sifra_Pat    smallint = Null,
    @KomercKako    char(1) = 'I',
    @Podred     Char(1) = Null
AS
--    If @PoKojDatum = 'V'
--            If @Datum_Do Is Not Null
--        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl as Varchar(8000)
    Set @SSQLUsl = ' '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                        OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
                        OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @KomercKako = 'T' And @Sifra_Pat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND (Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' Or Kup.Sifra_Pat2 = ' + Cast(@Sifra_Pat as varchar(5)) + ') '
    If @Sifra_Brand Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE IN (Select Sifra_Oe From SGrOrg G Where Sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @TipDokProd is Not null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Drugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @KomercKako = 'I' And @Sifra_Pat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    Create Table #ProdKumul
    (
     Sifra_Art    varchar(20),
     KolicKumul    decimal(18,6)
    )
    -- Prvo da ja presmetame Kumulativnata prodazba za period od 01.01. do @Datum_Do (za da ne se izgubat atr vo joinot posle)
    Declare @DatOd as smalldatetime
    Set @DatOd = dbo.fn_NapraviDatum(Year(@Datum_Od), 1, 1)
    Set @SSQL = ' Select S.Sifra_Art, Sum(Kolic) KolicKumul
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join KatArt K ON K.Sifra_Art=S.Sifra_Art '
    If @Pod1 Is Not Null Or @Pod2 Is Not Null Or @Pod3 Is Not Null Or @Pod4 Is Not Null Or @Pod5 Is Not Null Or @Sifra_Tip Is Not Null
       Or @TipKup Is Not Null Or @Koi_Gradovi Is Not Null Or @Koi_Regioni Is Not Null Or @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''1'' And K.Iskluci <> ''D'' And K.SMatUsl = ''M'' '
    If @PoKojDatum = 'V'
          Begin
        If @DatOd Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >=''' + Cast(@DatOd As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes <''' + Cast((@Datum_Do + 1) As Varchar(30)) + ''' '
          End
    Else
          Begin
        If @DatOd Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok >=''' + Cast(@DatOd As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok <=''' + Cast(@Datum_Do  As Varchar(30)) + ''' '
          End
    Insert Into #ProdKumul Exec(@SSQL+@SSQLUsl + ' Group By S.Sifra_Art')
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Da ja najdeme prodazbata vo periodot (Datum_Od, Datum_Do)
    Create Table #ProdZaPer
    (
     Sifra_Art    varchar(20),
     KolicProd    decimal(18,6),
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(Kolic) KolicProd
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Inner Join KatArt K ON K.Sifra_Art=S.Sifra_Art '
    If @Pod1 Is Not Null Or @Pod2 Is Not Null Or @Pod3 Is Not Null Or @Pod4 Is Not Null Or @Pod5 Is Not Null Or @Sifra_Tip Is Not Null
       Or @TipKup Is Not Null Or @Koi_Gradovi Is Not Null Or @Koi_Regioni Is Not Null Or @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''1'' And K.Iskluci <> ''D'' K.SMatUsl = ''M'' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes >=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes <''' + Cast((@Datum_Do + 1) As Varchar(30)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok >=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok <=''' + Cast(@Datum_Do  As Varchar(30)) + ''' '
          End
    Insert Into #ProdZaPer Exec(@SSQL+@SSQLUsl + ' Group By S.Sifra_Art')
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Sega da gi spojme :)
    Set @SSQL = ' Select PK.Sifra_Art, K.ImeArt, K.Alt_Sifra, K.Tezina, PP.KolicProd,
            (Case When K.ImaKomerc > 0 Then (PP.KolicProd/K.ImaKomerc) Else Null End) KolicPaket,
            K.ImaKomerc, PK.KolicKumul
            From #ProdKumul PK
            Left Outer Join #ProdZaPer PP On PP.Sifra_Art = PK.Sifra_Art
            Inner Join Katart K On K.Sifra_Art = PK.Sifra_Art '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By PK.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Exec(@SSQL)
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_gotovina]'))
drop procedure [dbo].[sp_izv_gotovina]

Go

CREATE PROCEDURE sp_Izv_Gotovina
    @Sifra_OE Smallint,
    @Sifra_GrOE Varchar(10),
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Kup_Od Varchar(10) = Null,
    @Sifra_Kup_Do Varchar(10) = Null,
    @Sifra_Dok_Dolzi Smallint = 6,
    @Sifra_Dok_Pobaruva Smallint = 308
AS
    Declare @SSQL Varchar(3000)
    Set @SSQL = 'Select D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok As Datum_Dok,
        D.Sifra_Kup, Kup.ImeKup, D.Toc200 As Dolzi, Null As Pobaruva
    From Dokr D
    Inner Join Komint Kup On D.Sifra_Kup=Kup.Sifra_Kup
    Where D.Sifra_Dok=' + Cast(@Sifra_Dok_Dolzi As Varchar(6)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_GrOE Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sifra_GrOE + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Set @SSQL = @SSQL + 'Union
    Select A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok As Datum_Dok,
        A.Sifra_Kup, Kup.ImeKup, Null As Dolzi, A.Pobaruva As Pobaruva
    From AnFinDok A
    Inner Join Komint Kup On A.Sifra_Kup=Kup.Sifra_Kup
    Where A.Sifra_Dok=' + Cast(@Sifra_Dok_Pobaruva As Varchar(6)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_GrOE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sifra_GrOE + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Set @SSQL = @SSQL + 'Order By Datum_Dok'
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_konta_gstav]'))
drop procedure [dbo].[sp_izv_konta_gstav]

Go
CREATE PROCEDURE sp_Izv_Konta_GStav
    @Datum_Nal_Od    smalldatetime,
    @Datum_Nal_Do    smalldatetime
AS
    Select '' as Sifra_Kup, Datum_Nal Datum_Dok, Datum_Nal, Opis TekstKniz, Kto_Anal, 'D' DolziPobar,
        Cast(Sifra_Nal as varchar(6)) + '\' + Cast(Broj_Nal as varchar(10)) Nalog,
        Dolzi Iznos, Datum_Nal Datum_Dosp, '' MestoTros, Dev_Dolzi Dev_Iznos
    From Gstav
    Where Dolzi <> 0 And Datum_Nal >= @Datum_Nal_Od And Datum_Nal <= @Datum_Nal_Do
    Union
    Select '' as Sifra_Kup, Datum_Nal Datum_Dok, Datum_Nal, Opis TekstKniz, Kto_Anal, 'P' DolziPobar,
        Cast(Sifra_Nal as varchar(6)) + '\' + Cast(Broj_Nal as varchar(10)) Nalog,
        Pobaruva Iznos, Datum_Nal Datum_Dosp, '' MestoTros, Dev_Pobaruva Dev_Iznos
    From Gstav
    Where Pobaruva <> 0 And Datum_Nal >= @Datum_Nal_Od And Datum_Nal <= @Datum_Nal_Do



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_primvrat_fiskprom]'))
drop procedure [dbo].[sp_izv_primvrat_fiskprom]

Go
CREATE  PROCEDURE sp_Izv_PrimVrat_FiskProm
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @BrKasa    smallint
AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL = ' Select F.Datum_Dok, F.Sifra_Oe, O.ImeOrg, F.Promet, F.Predadeno, F.Pocetno, F.OstVoKasa, F.Dr_Izlezi,
            (F.Predadeno + F.OstVoKasa + F.Dr_Izlezi - F.Promet - F.Pocetno) Razlika
            From FiskProm F
            Inner Join Orged O On O.Sifra_Oe = F.Sifra_Oe
            Where 1 = 1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQL = @SSQL + ' And F.BrKasa = ' + cast(@BrKasa as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' Order By F.Datum_Dok, F.Sifra_Oe '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izv_za_dolguvanja]'))
drop procedure [dbo].[sp_izv_za_dolguvanja]

Go



CREATE    PROCEDURE sp_Izv_Za_Dolguvanja
    @Datum_DokOd    smalldatetime = Null,
    @Datum_DokDo    smalldatetime = Null,
    @Koi_Gradovi        varchar(300) = Null,
    @Koi_Regioni        varchar(300) = Null,
    @KPod1        smallint = Null,
    @KPod2        smallint = Null,
    @KPod3        smallint = Null,
    @KPod4        smallint = Null,
    @KPod5        smallint = Null,
    @Sifra_KupOd         Char(6) = Null,
    @Sifra_KupDo         Char(6) = Null,
    @Sifra_Tip         Smallint = Null,
    @Sifra_Pat        Varchar(300) = Null,
    @KomercKako        Char(1) = 'I',            -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @TipKup        Varchar(11)=Null,
    @Sifra_Nivo        Char(2) = Null,
    @Aktiven        Char(1) = Null,
    @MozeIsporaka        Char(1) = Null,
    @Datum_Dolg        smalldatetime = Null,
    @GrupirajPo        char(1) = 'P',            -- P - Patnik,      K - Komintent,
    @Sifra_Div        smallint = NULL
 AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    If @Sifra_KupOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup>=''' + @Sifra_KupOd + ''' '
    If @Sifra_KupDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup<=''' + @Sifra_KupDo + ''' '
    If @Sifra_Tip Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @MozeIsporaka = 'N'
        Set @SSQLUsl = @SSQLUsl + 'And Kup.MozeIsporaka = ''N'' '
    Else If @MozeIsporaka = 'D'
        Set @SSQLUsl = @SSQLUsl + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
    If @TipKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.TipKup=''' + @TipKup + ''' '
    If @Sifra_Pat IS NOT NULL
    Begin
        If @KomercKako = 'I'
            SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (''' + @Sifra_Pat  + ''') '
        Else
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat In (''' + @Sifra_Pat + ''') '
    End
    If @Koi_Gradovi Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And KUP.Sifra_Grad In (' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And KUP.Sifra_Reg In (' + @Koi_Regioni + ') '
    If @Aktiven = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And (KUP.Aktiven <> ''N'' or KUP.Aktiven Is Null) '
    Else If @Aktiven = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Aktiven = ''N'' '
    If @KPod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo1=' + Cast(@KPod1 As Varchar(10)) + ' '
    If @KPod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo2=' + Cast(@KPod2 As Varchar(10)) + ' '
    If @KPod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo3=' + Cast(@KPod3 As Varchar(10)) + ' '
    If @KPod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo4=' + Cast(@KPod4 As Varchar(10)) + ' '
    If @KPod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo5=' + Cast(@KPod5 As Varchar(10)) + ' '
    IF @Sifra_Div IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(5)) + ' '

    Create Table #Rez
    (
     Sifra         varchar(6),
     VkProd        decimal(18,6),
     Saldo        decimal(18,6),
     SaldoDosp    decimal(18,6)
    )
    ------------------------------ VKUPNO PRODAZBA -----------------------------------
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = ' Select A.Sifra_Pat, '
        Else
            Set @SSQL = ' Select Kup.Sifra_Pat, '
    Else
        Set @SSQL = ' Select A.Sifra_Kup, '
    Set @SSQL = @SSQL + ' Sum(A.Toc200) VkProd, 0, 0
            From Dokr A
            Left Outer Join Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
            Where A.Sifra_Za = 1 And VlIzl = ''I'' '
    If @Datum_DokOd Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@Datum_DokOd as varchar(30)) + ''' '
    If @Datum_DokDo Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@Datum_DokDo as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = @SSQL + ' Group By A.Sifra_Pat '
        Else
            Set @SSQL = @SSQL + ' Group By Kup.Sifra_Pat '
    Else
        Set @SSQL = @SSQL + ' Group By A.Sifra_Kup '
    Insert Into #Rez Exec(@SSQL)
    ----------------------------------- VKUPEN DOLG ---------------------------------------
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = ' Select A.Sifra_Pat, '
        Else
            Set @SSQL = ' Select Kup.Sifra_Pat, '
    Else
        Set @SSQL = ' Select A.Sifra_Kup, '
    Set @SSQL = @SSQL + ' 0, Sum(A.Dolzi) Saldo, 0
            From AnFinDok A
            Left Outer Join Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
            Where A.Sifra_Za = 1 And (A.Dolzi <> A.Plateno_Dolzi) '
    If @Datum_Dolg Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@Datum_Dolg as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = @SSQL + ' Group By A.Sifra_Pat '
        Else
            Set @SSQL = @SSQL + ' Group By Kup.Sifra_Pat '
    Else
        Set @SSQL = @SSQL + ' Group By A.Sifra_Kup '
    Insert Into #Rez Exec(@SSQL)
    ----------------------------------- DOSPEAN DOLG ---------------------------------------
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = ' Select A.Sifra_Pat, '
        Else
            Set @SSQL = ' Select Kup.Sifra_Pat, '
    Else
        Set @SSQL = ' Select A.Sifra_Kup, '
    Set @SSQL = @SSQL + ' 0, 0, Sum(A.Dolzi) Saldo
            From AnFinDok A
            Left Outer Join Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
            Where A.Sifra_Za = 1 And (A.Dolzi <> A.Plateno_Dolzi) '
    If @Datum_Dolg Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok + A.Rok <= ''' + cast(@Datum_Dolg as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    If @GrupirajPo = 'P'
        If @KomercKako = 'I'
            Set @SSQL = @SSQL + ' Group By A.Sifra_Pat '
        Else
            Set @SSQL = @SSQL + ' Group By Kup.Sifra_Pat '
    Else
        Set @SSQL = @SSQL + ' Group By A.Sifra_Kup '
    Insert Into #Rez Exec(@SSQL)
--    Select * from #Rez
    Set @SSQL = ' Select R.Sifra, '
    If @GrupirajPo = 'P'
        Set @SSQL = @SSQL + ' P.ImePat as Ime, '
    Else
        Set @SSQL = @SSQL + ' Kup.ImeKup as Ime, '
    Set @SSQL = @SSQL + ' Sum(R.VkProd) VkProd, Sum(R.Saldo) Saldo, Sum(R.SaldoDosp) SaldoDosp
                From #Rez R '
    If @GrupirajPo = 'P'
        Set @SSQL = @SSQL + ' Left Outer Join Patnici P On P.Sifra_Pat = R.Sifra '
    Else
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra '
    If @GrupirajPo = 'P'
        Set @SSQL = @SSQL + ' Group By R.Sifra, P.ImePat '
    Else
        Set @SSQL = @SSQL + ' Group By R.Sifra, Kup.ImeKup '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvanalsitestavki]'))
drop procedure [dbo].[sp_izvanalsitestavki]

Go







CREATE        procedure [dbo].[sp_IzvAnalSiteStavki]
    @DatumOd as smalldatetime = null,
    @DatumDo as smalldatetime = null,
    @Sifra_Pat as varchar(10) =  null,
    @Sif_GrPat as varchar(10) = null,
    @Sif_MCPoz as varchar(10) = null,
    @Sifra_Kup as char(6) = null
As

    DECLARE @SSQL as varchar(3000)

    SET @SSQL = '

    SELECT     S.Sifra_Pat, S.cDatum_MC, S.Sif_MCPozicija, S.Sifra_Kup, S.Sifra_Obj, S.Br_MCLista,
                S.Datum, S.VrednostN, S.VrednostC, S.Rbr, KP.ImeMCPozicija, P.ImePat, K.ImeKup
    FROM         MCStavki AS S LEFT OUTER JOIN
                          MCKatPozicija AS KP ON S.Sif_MCPozicija = KP.Sif_MCPozicija LEFT OUTER JOIN
                          Patnici AS P ON P.Sifra_Pat = S.Sifra_Pat LEFT OUTER JOIN
                          Komint AS K ON S.Sifra_Kup = K.Sifra_Kup
    WHERE        S.Sifra_Pat IS NOT NULL '

    IF @DatumOd IS NOT NULL
        SET @SSQL = @SSQL + ' AND CAST (''20''+ substring(S.cDatum_MC, 1, 2) + ''-'' + substring(S.cDatum_MC, 3, 2) + ''-'' + substring(S.cDatum_MC, 5, 2) AS SMALLDATETIME) > = '''+cast(@DatumOd as varchar(35))+''' '
    IF @DatumDo IS NOT NULL
        SET @SSQL = @SSQL + ' AND CAST (''20''+ substring(S.cDatum_MC, 1, 2) + ''-'' + substring(S.cDatum_MC, 3, 2) + ''-'' + substring(S.cDatum_MC, 5, 2) AS SMALLDATETIME) < = '''+cast(@DatumDo as varchar(35))+'''   '
    IF @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5))+' '
    IF (@Sif_GrPat IS NOT NULL)
        SET @SSQL = @SSQL + ' AND S.Sifra_Pat IN (SELECT Sifra_Pat FROM SGrPat WHERE Sif_GrPat = ''' +cast(@Sif_GrPat AS varchar(15))+ ''') '
    IF (@Sif_MCPoz IS NOT NULL)
        SET @SSQL = @SSQL + ' AND S.Sif_MCPozicija = ' + CAST( @Sif_MCPoz as varchar(5))+ ' '

    SET @SSQL = @SSQL + ' ORDER BY S.cDatum_MC '

    PRINT(@SSQL)
    EXEC(@SSQL)

    return @@error













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvestaj_za_isporaka_sopren]'))
drop procedure [dbo].[sp_izvestaj_za_isporaka_sopren]

Go



CREATE    PROCEDURE sp_Izvestaj_za_Isporaka_SoPren
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(10) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @SoDDV        char(1) = 'D'
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.Sifra_Art, K.ImeArt,
            Round(Sum(Case When D.Sifra_Za = ''1'' AND Sifra_kup IS NOT NULL Then S.Kolic Else 0 End), 4) ProdFra,
            Round(Sum(Case When D.Sifra_Za = ''3'' Then S.Kolic Else 0 End), 4) ProdPren,
            Round(Sum(Case When D.Sifra_Za = ''1'' AND Sifra_kup IS NOT NULL Then (S.Kolic * dbo.fn_VratiCena((S.DokCena*(1-S.Uces/100)*(1-D.Kasa/100)), S.Posn, S.DanDokCena, ''' + @SoDDV + ''')) Else 0 End), 4) VrednFra,
            Round(Sum(Case When D.Sifra_Za = ''3'' Then (S.Kolic * dbo.fn_VratiCena((S.MagCena*(1-S.Uces/100)*(1-D.Kasa/100)), S.Posn, S.DanMagCena, ''' + @SoDDV + ''')) Else 0 End), 4) VrednPren,
                        K.Tezina
        From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrID
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Where D.VlIzl = ''I'' And D.Sifra_Za In (1, 3) '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select Sifra_Oe From SGrOrg  where sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art, K.ImeArt, K.Tezina '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izviskortranspvozila]'))
drop procedure [dbo].[sp_izviskortranspvozila]

Go


CREATE  Procedure sp_IzvIskorTranspVozila
    @Sifra_Oe    smallint= null,
    @Datum_Od    smalldatetime= null,
    @Datum_Do    smalldatetime=null,
    @Sifra_Pat    smallint= null
As
    Create table #Tab1
    (
        Datum        smalldatetime,
        Datum_Vnes    smalldatetime,
        Sifra_Oe    smallint,
        Sifra_Pat    int
    )

    Declare @SSQL as varchar(5000)

    Set @SSQL= ' Insert Into #Tab1 (Datum, Datum_Vnes, Sifra_Oe, Sifra_Pat)
                Select Distinct Datum_Dok, Datum_Vnes, Sifra_Oe, Sifra_Pat
                From Dokr
                Where Sifra_Dok=4 And VlIzl=''V'''--And Sifra_Pat is not null'
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(10)) + ' '
    print @ssql
    Exec (@SSQL)

    Create table #Tab2
    (
        Sifra_Oe    smallint,
        Datum        smalldatetime,
        DatumVremeOd    smalldatetime,
        DatumVremeDo    smalldatetime,
        Sifra_Pat    int,
        Tura        smallint
    )

    Declare @DatTek as smalldatetime
    Declare @DatTekPreth as smalldatetime
    Declare @DatVnes as  smalldatetime
    Declare @DatVnesPreth as  smalldatetime
    Declare @SifOe as int
    Declare @SifOePreth as int
    Declare @SifPat int
    Declare @SifPatPreth int
    Declare @Tura smallint
    Set @Tura = 0

    Declare Dat Cursor Fast_Forward For
    Select Sifra_Oe, Datum, Datum_Vnes, Sifra_Pat
    From #Tab1
    Union Select 99999, '2050-12-31',  '2050-12-31 00:00:00', 99999 -- za vo kursorot da go zapisse i posledniot dokument
    Order By Sifra_Oe, Datum, Datum_Vnes, Sifra_Pat
    Open Dat
    Fetch Next From Dat Into @SifOe, @DatTek, @DatVnes, @SifPat
    While @@Fetch_Status = 0
    Begin

        Set @Tura = @Tura + 1

        If @SifOePreth Is Null Or @DatTekPreth Is Null
            Set @Tura = 0  -- kolku da ima nessto
        Else If @SifOe <> @SifOePreth
        Begin
            Insert Into #Tab2 (Sifra_Oe, Datum, DatumVremeOd, DatumVremeDo, Sifra_Pat, Tura)
            Values (@SifOePreth, @DatTekPreth, @DatVnesPreth, DateAdd(mi,-1,@DatTekPreth+1), @SifPatPreth, @Tura)
            Set @Tura = 0
        End
        Else If @DatTek <> @DatTekPreth
        Begin
            Insert Into #Tab2 (Sifra_Oe, Datum, DatumVremeOd, DatumVremeDo, Sifra_Pat, Tura)
            Values (@SifOe, @DatTekPreth, @DatVnesPreth, DateAdd(mi,-1,@DatTekPreth+1), @SifPatPreth, @Tura)
            Set @Tura = 0
        End
        Else If @DatTek = @DatTekPreth And @DatVnes <> @DatVnesPreth
        Begin
            Insert Into #Tab2 (Sifra_Oe, Datum, DatumVremeOd, DatumVremeDo, Sifra_Pat, Tura)
            Values (@SifOe, @DatTek, @DatVnesPreth, @DatVnes, @SifPatPreth, @Tura)
        End

        Set @DatTekPreth = @DatTek
        Set @DatVnesPreth = @DatVnes
        Set @SifOePreth = @SifOe
        Set @SifPatPreth = @SifPat

        Fetch Next From Dat Into @SifOe, @DatTek, @DatVnes, @SifPat
    End
    Close Dat
    Deallocate Dat

    Create Table #MaxTura
    (
        Sifra_Oe    smallint,
        Datum        smalldatetime,
        MaxTura        smallint
    )

    Insert Into #MaxTura
    Select Sifra_Oe, Datum, Max(Tura)
    From #Tab2
    Group By Sifra_Oe, Datum

    Select T.Datum, T.Sifra_Oe, O.ImeOrg, T.Sifra_Pat, P.ImePat, T.Tura, (case when P.OsnovnaPlata is null then 0 else P.OsnovnaPlata end) Tezina,
            Sum(Case when D.Datum_Vnes>=T.DatumVremeOd And D.Datum_Vnes<T.DatumVremeDo And D.SIfra_Dok = 4 then Round(S.Kolic*K.Tezina/100000,4) else 0 end) as Tovareno,
            Sum(Case when D.Datum_Vnes>=T.DatumVremeOd And D.Datum_Vnes<T.DatumVremeDo And D.SIfra_Dok In (83,84) then Round(S.Kolic*K.Tezina/100000,4) else 0 end) as ZemenoTeren,
            Sum(Case when D.Datum_Vnes>=T.DatumVremeOd And D.Datum_Vnes<T.DatumVremeDo And D.SIfra_Dok In (81,82) then Round(S.Kolic*K.Tezina/100000,4) else 0 end) as Prodadeno,
            Sum(Case when MT.MaxTura=T.Tura And D.SIfra_Dok = 5 then Round(S.Kolic*K.Tezina/100000,4) else 0 end) as VratenoMag -- zatoa ssto vratenoto ne go vnesuvaat odma go stavam vo poslednata tura
--            P.OsnovnaPlata, P.ImePat, O.ImeOrg, (Tovareno/P.OsnovnaPlata*100) ProcTov, (Prodadeno/P.OsnovnaPlata*100) as ProcProd
    From Dokr D
    Inner Join #Tab2 T on D.Datum_Dok=T.Datum And T.Sifra_Oe = D.Sifra_Oe --(Case When D.Sifra_Dok In (4,5) Then D.Sifra_Prim Else D.Sifra_Oe End)
    Inner Join Stavr S on D.DokrID=S.DokrID
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Left Outer Join #MaxTura MT On MT.Sifra_Oe=T.Sifra_Oe And MT.Datum=T.Datum
    Left Outer Join TipDok TD on D.Sifra_dok=TD.Sifra_Dok
    left Outer Join Patnici P on T.Sifra_pat=P.Sifra_Pat
    left Outer Join Orged O on T.Sifra_Oe=O.Sifra_oe
    Group By T.Datum, T.Sifra_Oe, O.ImeOrg, T.Sifra_Pat, P.ImePat, T.Tura, P.OsnovnaPlata


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvkartdepoz]'))
drop procedure [dbo].[sp_izvkartdepoz]

Go


-- WTRGTx --
CREATE   PROCEDURE sp_IzvKartDepoz
    @Sifra_Kor_Od varchar(20)=NULL,
    @Sifra_Kor_Do varchar(20)= null,
    @Datum_Od smalldatetime = null,
    @Datum_Do smalldatetime = null,
    @Specif char(1) = 'D'
AS
DECLARE @SSQL AS nvarchar(4000)
DECLARE @SSQLusl AS nvarchar(4000)
SET @SSQLusl=' WHERE 1=1 '
if @Sifra_Kor_Od IS NOT NULL
    SET @SSQLusl = @SSQLusl + ' AND D.Sifra_Kor >=' +  @Sifra_Kor_Od
IF @Sifra_Kor_Do IS NOT NULL
    SET @SSQLusl = @SSQLusl + ' AND D.Sifra_Kor <=' +  @Sifra_Kor_Do
IF @Datum_Od IS NOT NULL
    SET @SSQLusl = @SSQLusl + ' AND D.Datum >=''' + CAST(@Datum_OD AS VARCHAR(50))+''' '
IF @Datum_Do IS NOT NULL
    SET @SSQLusl = @SSQLusl + ' AND D.Datum <=''' + CAST(@Datum_Do AS VARCHAR(50))+''' '
IF @Specif='D'
Begin
    CREATE TABLE #TmpS
(Sifra_Kor    varchar(20),
PocSaldo    decimal(18,2))
IF @Datum_OD IS NOT NULL
INSERT INTO #TmpS (Sifra_Kor, PocSaldo) SELECT Sifra_Kor, SUM(PRimen_Izn - Vraten_Izn) FROM KartDepoz
WHERE Datum < @Datum_Od GROUP BY Sifra_Kor
    SET @SSQL = 'SELECT D.Sifra_Kor, SUM(D.Primen_Izn) Primen_Izn, SUM(D.Vraten_Izn) Vraten_Izn    FROM KartDepoz D '
    SET @SSQL = @SSQL +@SSQLusl + ' GROUP BY D.Sifra_Kor '
CREATE TABLE #TmpX
(
    Sifra_Kor varchar(20),
    Primen_Izn Decimal(18, 2),
    Vraten_Izn Decimal(18, 2)
)
DECLARE @tSSQL AS NVARCHAR(4000)
SET @tSSQL = 'INSERT INTO #TmpX (Sifra_Kor, Primen_Izn, Vraten_Izn) ' + @SSQL
EXEC (@tSSQL)
SELECT X.Primen_izn,X.Vraten_Izn, K.Sifra_Kor, K.ImeKor, S.PocSaldo FROM KartKor K
LEFT OUTER JOIN #TmpS S ON K.Sifra_Kor = S.Sifra_Kor
LEFT OUTER JOIN #TmpX X ON X.Sifra_Kor = K.Sifra_Kor
WHERE  S.PocSaldo<>0 OR X.Primen_Izn<>0 OR X.Vraten_izn<>0
End
Else
Begin
    SET @SSQL = 'SELECT D.*, K.ImeKor FROM KartDepoz D LEFT OUTER JOIN KartKor K ON D.Sifra_Kor=K.Sifra_Kor '
    SET @SSQL = @SSQL + @SSQLusl
    EXEC(@SSQL)
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvplakanjekonsignacija]'))
drop procedure [dbo].[sp_izvplakanjekonsignacija]

Go

CREATE  PROCEDURE sp_IzvPlakanjeKonsignacija

    @Datum    smalldatetime,
    @Sifra_Kup_Od    char(6),
    @Sifra_Kup_Do    char(6),
    @KDrugo1    smallint = Null,
    @KoiKta    varchar(300) = Null,
    @GrOrgZal    varchar(10) = Null,
    -------- za Tinex slednive parametri po default --------
    @IskluciKup        varchar(200) = '660663, 660660, 021000'
    --@TipDokPriem        smallint = 2
    -----------------------------------------------------------------------------
AS

    Declare @SSQL as varchar(8000)

    Create Table #Kons
    (
        Sifra_Kup    char(6),
        Sifra_Za    char(1),
        Dolzi        decimal(18,6),
        Pobaruva    decimal(18,6),
--        Plateno_Dolzi    decimal(18,6),
--        Plateno_Pobar    decimal(18,6),
        Zaliha        decimal(18,6)
    )

       Set @SSQL = ' Select A.Sifra_Kup, A.Sifra_Za,
            Sum(A.Dolzi), Sum(A.Pobaruva), 0
            FROM AnFinDok A
            INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
            WHERE (A.Sifra_Za=''1'' OR A.Sifra_Za=''2'')
            And K.Rok_Dobav = 365 '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    If @KoiKta Is Not Null
        SET @SSQL =@SSQL + ' And A.Kto In (' + @KoiKta + ') '
    If @KoiKta Is Not Null
        Set @SSQL =@SSQL + ' And A.Kto In (' + @KoiKta + ') '
    Set @SSQL =@SSQL + ' Group By A.Sifra_Kup, A.Sifra_Za '

    Insert Into #Kons Exec(@SSQL)


    ------- Posledna nabavna

    CREATE TABLE #TmpNabavni
    (
        Sifra_Art    char(6),
        NabCena    Decimal(18,4),
        Posn        decimal(6,2)
    )
    INSERT INTO #TmpNabavni (Sifra_Art)
    SELECT DISTINCT S.Sifra_Art
    FROM Stavr S
    Inner Join Dokr D On D.DokrID = S.DokrID
    Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
    Inner Join Komint Kup On Kup.Sifra_Kup = K.Kto
    WHERE S.VlIzl = 'V' And (S.ImaDodatna Is Null Or S.ImaDodatna <>'D') And S.Kolic > 0
    And Kup.Rok_Dobav = 365

    CREATE TABLE #CeniArtN
    (
        Sifra_Art  varchar(12),
          Datum      smalldatetime,
          DokID  int
    )

    CREATE TABLE #CeniDat
    (
        Sifra_Art  varchar(12),
          Datum smalldatetime
    )

    Set @SSQL = 'SELECT S.Sifra_Art,  max(S.Datum_Dok) Datum
            FROM Stavr S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum As Varchar(35)) +
        ''' AND S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '')
        AND S.Sifra_Art IN (SELECT Sifra_Art FROM #TmpNabavni ) '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Kto>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND K.Kto<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
    INSERT INTO #CeniDat EXEC (@SSQL)

    Set @SSQL = 'SELECT S.Sifra_art, S.Datum_Dok, max(S.DokID) DokID
            FROM Stavr S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            INNER JOIN #CeniDat C ON S.Sifra_Art = C.Sifra_Art AND S.Datum_Dok = C.Datum '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    Set @SSQL = @SSQL + ' WHERE
            S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '')  '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Kto>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND K.Kto<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art, S.Datum_Dok '
    INSERT INTO #CeniArtN EXEC (@SSQL)

    UPDATE #TmpNabavni
    SET NabCena = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, 'D'),
                #TmpNabavni.Posn=S.Posn
             FROM #CeniArtN C, Stavr S, Dokr D
    WHERE #TmpNabavni.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID AND D.DokrID = S.DokrID

    UPDATE #TmpNabavni
    SET NabCena = S.Cena, --/(1+S.Posn/100),
        #TmpNabavni.Posn=S.Posn
        FROM StariNabavniC S
    WHERE #TmpNabavni.Sifra_Art = S.Sifra_Art AND (#TmpNabavni.NabCena = 0 or #TmpNabavni.NabCena IS NULL)

--select * from #TmpNabavni


/*
    -- Prosecni nabavni ceni
    Create Table #ProsCeni
    (
     Sifra_Art    varchar(20),
     Sostojba    decimal(18,4),
     Vrednost    decimal(18,4),
     ProsCena    decimal(18,4)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(Case S.VlIzl When ''V'' Then S.Kolic When ''I'' Then (-1*S.Kolic) End),
            Sum(Case S.VlIzl When ''V'' Then (S.Kolic*(S.NabCena*(1+S.Posn/100)))
                      When ''I'' Then (-1*S.Kolic*(S.NabCena*(1+S.Posn/100))) End), Null
            From Stavr S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Where 1=1 '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' '
    If @GrOrgZal Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @GrOrgZal + ''') '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Kto>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND K.Kto<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art '
    Insert Into #ProsCeni Exec(@SSQL)

    Create Table #FinRazl
        (
         Sifra_Art    varchar(20),
         IznosRazl    decimal(18,4)
        )
    Set @SSQL = ' Select R.Sifra_Art, Sum((Case R.VlIzl When ''V'' Then R.Iznos_Razl When ''I'' Then (-1*R.Iznos_Razl) End))
            From RazlFin R
            Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
            Where 1=1 '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' '
    If @GrOrgZal Is Not Null
        Set @SSQL = @SSQL + 'And R.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @GrOrgZal + ''') '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Kto>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND K.Kto<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    Set @SSQL = @SSQL + ' Group By R.Sifra_Art '
    Insert Into #FinRazl Exec(@SSQL)

    Update #ProsCeni
    Set #ProsCeni.Vrednost=#ProsCeni.Vrednost+#FinRazl.IznosRazl
    From #FinRazl
    Where #ProsCeni.Sifra_Art=#FinRazl.Sifra_Art

    Update #ProsCeni
    Set ProsCena=Vrednost/Sostojba
    Where Sostojba Is Not Null And Sostojba <> 0
    Update #ProsCeni
    Set ProsCena = 0
    Where ProsCena < 0
*/
    -----------------------------------------------------------------------------------

    ---  Zaliha
    Set @SSQL = ' Select K.Kto, Null, 0, 0,
            Sum(P.NabCena * (Case S.VlIzl When ''V'' Then S.Kolic Else -1 * S.Kolic End))
            From Stavr S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join #TmpNabavni P On P.Sifra_Art = S.Sifra_Art
            Where K.Kto In (Select Sifra_Kup From Komint Where Rok_Dobav = 365) '
    If @GrOrgZal Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @GrOrgZal + ''') '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum as varchar(30)) + ''' '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Kto>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND K.Kto<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    Set @SSQL =@SSQL + ' Group By K.Kto '
    --print @SSQL
    Insert Into #Kons Exec(@SSQL)

    Select K.Sifra_Kup, Kup.ImeKup,
        Sum(Case When K.Sifra_Za = '1' Then (Dolzi-Pobaruva) Else 0 End) Kupuvac,
        Sum(Case When K.Sifra_Za = '2' Then (Pobaruva-Dolzi) Else 0 End) Dobavuvac,
        Sum(Zaliha) Zaliha
    From #Kons K
    Left Outer Join Komint Kup On Kup.Sifra_Kup = K.Sifra_Kup
    Group By K.Sifra_Kup, Kup.ImeKup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvproizvrolni]'))
drop procedure [dbo].[sp_izvproizvrolni]

Go



CREATE        PROCEDURE sp_IzvProizvRolni
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Smena    smallint,
    @Sifra_Rab    smallint,
    @Broj_RabN    int,
    @RolniTabaci    char(1) = 'R'    -- R - Rolni           T - Tabaci        B - Tamburi
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    Create Table #Rez
    (
     Datum        smalldatetime,
     Sifra_Smena    smallint,
     Sifra_Rab    smallint,
     Sifra_Art    varchar(20),
     TambBr    decimal(18,6),
     TambKgr    decimal(18,6),
     RolniBr        decimal(18,6),
     RolniKgr    decimal(18,6)
    )
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DRN.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DRN.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DRN.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Smena Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DRN.Sifra_Smena = ' + Cast(@Sifra_Smena as varchar(6)) + ' '
    If @Sifra_Rab Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DRN.Sifra_Rab = ' + Cast(@Sifra_Rab as varchar(6)) + ' '
    If @Broj_RabN Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And RN.Broj_RabN = ' + Cast(@Broj_RabN as varchar(6)) + ' '
    Set @SSQL= 'Select DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab,
                S.Sifra_Art, 0, 0, Count(Sifra_Art), Sum(S.Kolic)
            From DokRabNal DRN
            Inner Join Stavr S On S.DokrID=DRN.DokrID
            Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID'
    If @RolniTabaci = 'B'
        Set @SSQL = @SSQL + ' Where S.Sifra_Dok=190 '
    Else If @RolniTabaci = 'T'
        Set @SSQL = @SSQL + ' Where S.Sifra_Dok=192 '
    Else
        Set @SSQL = @SSQL + ' Where S.Sifra_Dok=193 '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab, S.Sifra_Art '
    Insert Into #Rez Exec(@SSQL)
    If @RolniTabaci <> 'B'
    Begin
        Create Table #KSPom
        (
         Datum        smalldatetime,
         Sifra_Smena    smallint,
         Sifra_Rab    smallint,
         KontrSerSta    varchar(25),
         TambKgr    decimal(18,6)
        )                                        --Sum(K.Tezina_Neto)
                                                --KS.KontrSerSta, K.Tezina_Neto
        Set @SSQL = ' Select Distinct DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab, KS.KontrSerSta, K.Tezina_Neto
            From DokRabNal DRN
            Inner Join EvProizvod E On E.DokrID=DRN.DokrID
            Inner Join KatSerBrSta KS On KS.KontrSer=E.KontrSer
            Inner Join KatSerBr K On K.KontrSer=KS.KontrSerSta
            Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
            Left Outer Join Dokr D On D.DokrID = DRN.DokrID '
        If @RolniTabaci = 'T'
            Set @SSQL = @SSQL + ' Where D.Sifra_Dok=192 '
        Else
        Set @SSQL = @SSQL + ' Where D.Sifra_Dok=193 '
        Set @SSQL = @SSQL + @SSQLUsl-- + ' Group By  DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab '
        Insert Into #KSPom Exec(@SSQL)
        Create Table #KS
        (
         Datum        smalldatetime,
         Sifra_Smena    smallint,
         Sifra_Rab    smallint,
         TambBr        int,
         TambKgr    decimal(18,6)
        )
        Insert Into #KS
        Select Datum, Sifra_Smena, Sifra_Rab, Count(*), Sum(TambKgr)
        From #KsPom
        Group By Datum, Sifra_Smena, Sifra_Rab
        -- SSkart
        Create Table #Skart
        (
         Datum        smalldatetime,
         Sifra_Smena    smallint,
         Sifra_Rab    smallint,
         SkartKgr    decimal(18,6)
        )
        Set @SSQL= 'Select DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab, Sum(S.Kolic)
                From DokRabNal DRN
                Inner Join Stavr S On S.DokrID=DRN.DokrID
                Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID '
        If @RolniTabaci = 'T'
            Set @SSQL = @SSQL + ' Where S.Sifra_Dok=182 '
        Else
            Set @SSQL = @SSQL + ' Where S.Sifra_Dok=183 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab '
        Insert Into #Skart Exec(@SSQL)
    End
     If @RolniTabaci = 'B'
        Select R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art, K.ImeArt, Rab.ImeRab,
            Null TambBr, Null TambKgr, Sum(R.RolniBr) RolniBr, Sum(R.RolniKgr) RolniKgr, Null SkartKgr
        From #Rez R
        Left Outer Join Rabotnik Rab On Rab.Sifra_Rab=R.Sifra_Rab
        Inner Join Katart K On k.Sifra_Art=R.Sifra_Art
        Group By R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art, K.ImeArt, Rab.ImeRab
        Order By R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art
    Else
        Select R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art, K.ImeArt, Rab.ImeRab,
            KS.TambBr, KS.TambKgr, Sum(R.RolniBr) RolniBr, Sum(R.RolniKgr) RolniKgr, S.SkartKgr
        From #Rez R
        Left Outer Join #KS KS On KS.Datum=R.Datum And KS.Sifra_Smena=R.Sifra_Smena And KS.Sifra_Rab=R.Sifra_Rab
        Left Outer Join #Skart S On S.Datum=R.Datum And S.Sifra_Smena=R.Sifra_Smena And S.Sifra_Rab=R.Sifra_Rab
        Left Outer Join Rabotnik Rab On Rab.Sifra_Rab=R.Sifra_Rab
        Inner Join Katart K On k.Sifra_Art=R.Sifra_Art
        Group By R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art, K.ImeArt, Rab.ImeRab, KS.TambBr, KS.TambKgr, S.SkartKgr
        Order By R.Datum, R.Sifra_Smena, R.Sifra_Rab, R.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvpromnabcena]'))
drop procedure [dbo].[sp_izvpromnabcena]

Go
CREATE PROCEDURE sp_IzvPromNabCena
    @Sifra_Oe    smallint = Null,
    @KoiOe    Varchar(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(8000)
    Create Table #Tab
    (
     DokrID        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Art    varchar(20),
     Datum_Dok    smalldatetime,
     DokCena    decimal(18,6)
    )
    Create Table #RazlNab
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Art    varchar(20),
     Datum_Dok    smalldatetime,
     StaraCena    decimal(18,6),
     NovaCena    decimal(18,6)
    )
    Set @SSQL = ' Select D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, S.Sifra_Art, D.Datum_Dok,
                (Case When S.DanDokCena=''N'' Then S.DokCena*(1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100) Else S.DokCena*(1-S.Uces/100)*(1-D.Kasa/100) End)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where D.VlIzl = ''V'' And D.Sifra_Za = ''2'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOe + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Set @SSQL = @SSQL + ' Order By S.Sifra_Art, D.Sifra_Oe, D.Datum_Dok, D.DokrID '
    Insert Into #Tab Exec(@SSQL)
    Declare @SifOe        smallint
    Declare @SifOeSt    smallint
    Declare @SifDok    smallint
    Declare @BrDok    int
    Declare @SifArt        varchar(20)
    Declare @SifArtSt    varchar(20)
    Declare @DatDok     smalldatetime
    Declare @Cena         decimal(18,6)
    Declare @CenaSt    decimal(18,6)
    Declare Razl Cursor Fast_Forward For Select Sifra_Art, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, DokCena From #Tab Order By Sifra_Art, Sifra_Oe, Datum_Dok, DokrID
    Open Razl
    Fetch Next From Razl Into @SifArt, @SifOe, @SifDok, @BrDok, @DatDok, @Cena
    While @@Fetch_Status = 0
    Begin
        If @SifArtSt=@SifArt And @SifOeSt=@SifOe And @CenaSt<>@Cena
        Begin
            Insert Into #RazlNab (Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_Art, Datum_Dok, StaraCena, NovaCena)
            Select @SifOe, @SifDok, @BrDok, @SifArt, @DatDok, @CenaSt, @Cena
        End
        Set @SifArtSt=@SifArt
        Set @SifOeSt=@SifOe
        Set @CenaSt=@Cena
        Fetch Next From Razl Into @SifArt, @SifOe, @SifDok, @BrDok, @DatDok, @Cena
    End
    Close Razl
    Deallocate Razl
    Select R.Sifra_Oe, R.Sifra_Dok, R.Broj_Dok, R.Sifra_Art, K.ImeArt, R.Datum_Dok, R.StaraCena, R.NovaCena
    From #RazlNab R
    Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
    Order By R.Sifra_Oe, R.Sifra_Art, R.Datum_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvrazlceni]'))
drop procedure [dbo].[sp_izvrazlceni]

Go


CREATE                   PROCEDURE [dbo].[sp_IzvRazlCeni]
    @Sifra_OE Smallint,
    @KoiOE Varchar(300),
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Art_Od Varchar(20),
    @Sifra_Art_Do Varchar(20),
    @Sifra_Kup Char(6),
    @Podred Char(1),
    @Sifra_Gr varChar(6),
    @Sifra_Podg Char(6),
    @Lokacija Varchar(10),
    @Sifra_Razl Varchar(50),
    @ZgolNam Char(1),
    @SoDanok Char(1),
    @SoStavki Char(1),
    @Orig_Dok    smallint = Null,
    @Orig_Broj_Od    int = Null,
    @Orig_Broj_Do    int = Null,
    @SamoAkcProd    Char(1)='N',
    @KoiArt        char(1) = 'S',    -- R - <> 0     P - > 0      N - < 0      E = 0
    @VratiKup    char(1) = 'N',
    @Sifra_Oper    varchar(1000) = null
AS
    Declare @SSQL Varchar(8000)
If @SoStavki = 'N'
   BEGIN
    CREATE TABLE #TmpRazl
    (    Sifra_Razl Char(3),
        Sifra_OE Smallint,
        PTar Char(3),
        POsn Decimal(6,2),
        Kolic  Decimal(18,6),
        PocetnaCena Decimal(18,6),
        KrajnaCena Decimal(18,6)
    )
    Set @SSQL =     'INSERT INTO #TmpRazl
            Select  R.Sifra_Razl, R.Sifra_OE, R.PTar AS PTar, R.POsn AS POsn, Round(R.Kolic, 4) as Kolic,
              Round(dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''' + @SoDanok + '''), 4) as PocetnaCena,
            Round(dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''' + @SoDanok + '''), 4) as KrajnaCena '
    Set @SSQL = @SSQL + ' From RazlCeni R
         Inner Join KatArt K ON R.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where R.Sifra_Razl IN (' + @Sifra_Razl + ') '
    if @ZgolNam = 'Z'
                     Set @SSQL = @SSQL + 'And R.PocCena < R.KrCena '
    if @ZgolNam = 'N'
                     Set @SSQL = @SSQL + 'And R.PocCena > R.KrCena '
    If @Sifra_OE Is Not Null
        Set @SSQL  = @SSQL + 'And R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL  = @SSQL + 'And R.Sifra_OE IN (' + @KoiOE + ') '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + '''  '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto =' + @Sifra_Kup + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Orig_Dok Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Dok=' + Cast(@Orig_Dok As Varchar(6)) + ' '
    If @Orig_Broj_Od Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Broj >=' + Cast(@Orig_Broj_Od As Varchar(10)) + ' '
    If @Orig_Broj_Do Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Broj <=' + Cast(@Orig_Broj_Do As Varchar(10)) + ' '
    if @SamoAkcProd = 'D'
                     Set @SSQL = @SSQL + 'And R.Akciska_Prod =''' + @SamoAkcProd + ''' '
    If @KoiArt = 'R'
        Set @SSQL = @SSQL + ' And R.Kolic <> 0 '
    Else If @KoiArt = 'P'
        Set @SSQL = @SSQL + ' And R.Kolic > 0 '
    Else If @KoiArt = 'N'
        Set @SSQL = @SSQL + ' And R.Kolic < 0 '
    Else If @KoiArt = 'E'
        Set @SSQL = @SSQL + ' And R.Kolic = 0 '
    If @Sifra_Oper Is NOT Null
        --SET @SSQL = @SSQL + ' AND R.Sifra_Oper=''' + @Sifra_Oper + ''' '
        Set @SSQL  = @SSQL + ' And R.Sifra_Oper IN (' + @Sifra_Oper + ') '
    Exec(@SSQL)
    Set @SSQL =     'SELECT Sifra_Razl, Sifra_OE, PTar, POsn, Round(SUM(Kolic * PocetnaCena), 4) AS PocetnaCena, Round(SUM(Kolic * KrajnaCena), 4) AS KrajnaCena
            FROM #TmpRazl GROUP BY Sifra_Razl, Sifra_OE, PTar, POsn'
print @SSQL
   Exec(@SSQL)
   END
Else
   BEGIN
    Set @SSQL = 'Select R.Sifra_Razl, R.Sifra_OE, R.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera,K.Sifra_podg,
             Nomen =
             Case Nom
                When NULL Then dbo.fn_Nom(R.Sifra_Art)
                Else K.Nom
             End,
             R.Datum_dok, Round(R.Kolic, 4) Kolic,  R.POsn, R.PTar, R.Datum_Vnes, R.SifrA_Oper,
            Round(dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''' + @SoDanok + '''), 4) as PocetnaCena,
            Round(dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''' + @SoDanok + '''), 4) as KrajnaCena,
            K.DeklArt, K.ImaKomerc, K.Alt_Ime, K.Kto_Anal, R.Orig_Dok, R.Orig_Broj, '
    If @VratiKup = 'D'
        Set @SSQL = @SSQL + ' D.Sifra_Kup, Kup.ImeKup, D.Sifra_Obj, KO.ImeObj '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Kup, Null ImeKup, Null Sifra_Obj, Null ImeObj '
    Set @SSQL = @SSQL + ' From RazlCeni R
         Inner Join KatArt K ON R.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M'' '
    If @VratiKup = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Dokr D On D.Sifra_Oe=R.Sifra_Oe And D.Sifra_Dok=R.Orig_Dok And D.Broj_Dok=R.Orig_Broj
                    Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
                    Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj = D.Sifra_Obj  '
                        --And (Case When R.Orig_Prim Is Not Null Then R.Orig_Prim Else 0 End) = (Case When D.Sifra_Prim Is Not Null Then D.Sifra_Prim Else 0 End)
                        --And (Case When R.Orig_ImaDod Is Not Null Then R.Orig_ImaDod Else '' '' End) = (Case When D.ImaDodatna Is Not Null Then D.ImaDodatna Else '' '' End)

    -- Dodadeno 21.02.2007 za da ne gi prik.art kaj koi promenata vo cena e pomala od 0.0001
    Set @SSQL = @SSQL + ' And ABS(dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''' + @SoDanok + ''') -
                           dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''' + @SoDanok + ''')) > 0.0001 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where R.Sifra_Razl IN (' + @Sifra_Razl + ') '
    if @ZgolNam = 'Z'
                     Set @SSQL = @SSQL + 'And R.PocCena < R.KrCena '
    if @ZgolNam = 'N'
                     Set @SSQL = @SSQL + 'And R.PocCena > R.KrCena '
    If @Sifra_OE Is Not Null
        Set @SSQL  = @SSQL + 'And R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL  = @SSQL + 'And R.Sifra_OE IN (' + @KoiOE + ') '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + '''  '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto =' + @Sifra_Kup + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Orig_Dok Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Dok=' + Cast(@Orig_Dok As Varchar(6)) + ' '
    If @Orig_Broj_Od Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Broj >=' + Cast(@Orig_Broj_Od As Varchar(10)) + ' '
    If @Orig_Broj_Do Is Not Null
        Set @SSQL  = @SSQL + 'And R.Orig_Broj <=' + Cast(@Orig_Broj_Do As Varchar(10)) + ' '
    if @SamoAkcProd = 'D'
                     Set @SSQL = @SSQL + 'And R.Akciska_Prod =''' + @SamoAkcProd + ''' '
    If @KoiArt = 'R'
        Set @SSQL = @SSQL + ' And R.Kolic <> 0 '
    Else If @KoiArt = 'P'
        Set @SSQL = @SSQL + ' And R.Kolic > 0 '
    Else If @KoiArt = 'N'
        Set @SSQL = @SSQL + ' And R.Kolic < 0 '
    Else If @KoiArt = 'E'
        Set @SSQL = @SSQL + ' And R.Kolic = 0 '
    If @Sifra_Oper Is NOT Null
        --SET @SSQL = @SSQL + ' AND R.Sifra_Oper=''' + @Sifra_Oper + ''' '
        Set @SSQL  = @SSQL + ' And R.Sifra_Oper IN (' + @Sifra_Oper + ') '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By R.Sifra_Art, R.Datum_dok '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt, R.Datum_dok '
    Else If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By R.Datum_dok, R.Sifra_Art '
    Else If @Podred = 'F'
        Set @SSQL = @SSQL + 'Order By R.Sifra_OE, R.Orig_Dok, R.Orig_Broj '

print @SSQL
    Exec(@SSQL)
    END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvrazlcenitaggy]'))
drop procedure [dbo].[sp_izvrazlcenitaggy]

Go



CREATE      PROCEDURE sp_IzvRazlCeniTaggy
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Art_Od Varchar(20)=NULL,
    @Sifra_Art_Do Varchar(20)=NULL,
    @Sifra_Kup Char(6)=NULL,
    @Podred Char(1)=NULL,
    @Sifra_Gr varChar(6)=NULL,
    @Sifra_Podg Char(6)=NULL,
    @Lokacija Varchar(10)=NULL,
    @Sifra_Razl Varchar(50)=902,
    @ZgolNam Char(1)='',
    @SoDanok Char(1)='D'
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL =    'Select R.Sifra_Art, K.ImeArt, R.Sifra_Razl, R.Sifra_OE, R.PTar AS PTar, R.POsn AS POsn, Round(R.Kolic, 4) as Kolic,
              Round(dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''' + @SoDanok + '''), 4) as PocetnaCena,
            Round(dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''' + @SoDanok + '''), 4) as KrajnaCena,
            T.AdrTaggy, T.TipTaggy
            From RazlCeni R
             Inner Join KatArt K ON R.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
            INNER JOIN AdrTaggy T ON R.Sifra_Art=T.Sifra_Art AND T.Sifra_Oe= '+cast(@Sifra_OE as varchar(5))+' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where R.Sifra_Razl IN (' + @Sifra_Razl + ') '
    if @ZgolNam = 'Z'
                     Set @SSQL = @SSQL + 'And R.PocCena < R.KrCena '
    if @ZgolNam = 'N'
                     Set @SSQL = @SSQL + 'And R.PocCena > R.KrCena '
    If @Sifra_OE Is Not Null
        Set @SSQL  = @SSQL + 'And R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + '''  '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto =' + @Sifra_Kup + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And R.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzadistper]'))
drop procedure [dbo].[sp_izvzadistper]

Go



CREATE              PROCEDURE sp_IzvZaDistPer
    @Sifra_OE    Smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    SmallDateTime,
    @GotvPoPresm    char(1) = 'N'
AS
    Declare @Distributeri    varchar(200)
    Declare @PriemOdMag    smallint
    Declare @VratVoMag    smallint
    Declare @VratVoMag2    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @UplDist    smallint
    Declare @Elim_Art1    char(6)
    Declare @Elim_Art2    char(6)
    Declare @GotovOdMag     smallint
    Declare @StGotovOdMag    smallint
    set @Elim_art1 = '002001'
    set @Elim_art2 = '002002'


    SELECT @PriemOdMag = Pren_fix_plus, @VratVoMag=Pren_fix_minus, @VratVoMag2=Pren_Fix_Minus2,
    @Faktura=Ispr_Fix_plus, @StornoFak=Ispr_Fix_Minus, @UplDist= Fin_Upl_Distr FROM Konfig

    --Za Zitoleb - moze vo idnina od Konfig
    Set @GotovOdMag = 78
    Set @StGotovOdMag = 79

    If @Sifra_OE IS NULL
        SELECT @Distributeri = Prima1 FROM SkrDok WHERE SkrOznaka = 'a-dd-zad-dis'
    Else
        SET @Distributeri = Cast(@Sifra_OE as varchar(200))
    CREATE TABLE #UplDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    UplatPromet    decimal(18,6)
)
    CREATE TABLE #FaktDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    FaktDist    decimal(18,6)
)
    CREATE TABLE #StFaktDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    StFaktDist    decimal(18,6)
)
    CREATE TABLE #ZadolDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    ZadolDist    decimal(18,6)
)
    CREATE TABLE #StZadolDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    StZadolDist    decimal(18,6)
)
    CREATE TABLE #GotovProdDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    GotovProdDist    decimal(18,6)
)
    CREATE TABLE #StGotovProdDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    StGotovProdDist    decimal(18,6)
)
    CREATE TABLE #TmpDist
(    Sifra_OE    smallint,
    Datum        smalldatetime,
    GotovPromet    decimal(18,6),
    UplatPromet    decimal(18,6),
    FaktDist    decimal(18,6),
    StFaktDist    decimal(18,6),
    ZadolDist    decimal(18,6),
    StZadolDist     decimal(18,6),
    GotovProdDist    decimal(18,6),
    StGotovProdDist    decimal(18,6),
    PoSto         char(1)
)
    Declare @SSQL AS varchar(2000)
    SET @SSQL = 'INSERT INTO #UplDist SELECT Sifra_OE, Datum_Dok, SUM(Pobaruva)
    FROM AnFinDok WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND Sifra_Dok = ' + Cast(@UplDist as varchar(6)) +
    ' GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)


    SET @SSQL = 'INSERT INTO #FaktDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@Faktura as varchar(6)) +
    ') GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)

    SET @SSQL = 'INSERT INTO #StFaktDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@StornoFak as varchar(6)) +
    ') GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)

    SET @SSQL = 'INSERT INTO  #ZadolDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@PriemOdMag as varchar(6)) +
    ' ) GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)

    SET @SSQL = 'INSERT INTO  #StZadolDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@VratVoMag as varchar(6)) +
    ' OR Sifra_Dok= ' + Cast(@VratVoMag2 as varchar(6)) +' ) GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)

    SET @SSQL = 'INSERT INTO  #GotovProdDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@GotovOdMag as varchar(6)) +
    ') GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)

    SET @SSQL = 'INSERT INTO  #StGotovProdDist SELECT Sifra_OE, Datum_Dok, SUM(Kolic * DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND Sifra_OE IN (' + @Distributeri + ') AND (Sifra_Dok = ' + Cast(@StGotovOdMag as varchar(6)) +
    ') GROUP BY Sifra_OE, Datum_Dok '
    EXEC (@SSQL)


    INSERT INTO #TmpDist (Sifra_OE, Datum)
    SELECT Sifra_OE, Datum FROM #UplDist UNION
    SELECT Sifra_OE, Datum FROM #FaktDist UNION
    SELECT Sifra_OE, Datum FROM #StFaktDist UNION
    SELECT Sifra_OE, Datum FROM #ZadolDist UNION
    SELECT Sifra_OE, Datum FROM #StZadolDist UNION
    SELECT Sifra_OE, Datum FROM #GotovProdDist UNION
    SELECT Sifra_OE, Datum FROM #StGotovProdDist


    UPDATE #TmpDist SET UplatPromet = #UplDist.UplatPromet
    FROM #UplDist
    WHERE #TmpDist.Sifra_OE = #UplDist.Sifra_OE AND #TmpDist.Datum = #UplDist.Datum

    UPDATE #TmpDist SET FaktDist = #FaktDist.FaktDist
    FROM #FaktDist
    WHERE #TmpDist.Sifra_OE = #FaktDist.Sifra_OE AND #TmpDist.Datum = #FaktDist.Datum

    UPDATE #TmpDist SET StFaktDist = #StFaktDist.StFaktDist
    FROM #StFaktDist
    WHERE #TmpDist.Sifra_OE = #StFaktDist.Sifra_OE AND #TmpDist.Datum = #StFaktDist.Datum

    UPDATE #TmpDist SET ZadolDist = #ZadolDist.ZadolDist
    FROM #ZadolDist
    WHERE #TmpDist.Sifra_OE = #ZadolDist.Sifra_OE AND #TmpDist.Datum = #ZadolDist.Datum

    UPDATE #TmpDist SET StZadolDist = #StZadolDist.StZadolDist
    FROM #StZadolDist
    WHERE #TmpDist.Sifra_OE = #StZadolDist.Sifra_OE AND #TmpDist.Datum = #StZadolDist.Datum

    IF @GotvPoPresm = 'N'
       Begin
        UPDATE #TmpDist SET GotovProdDist = #GotovProdDist.GotovProdDist
        FROM #GotovProdDist
        WHERE #TmpDist.Sifra_OE = #GotovProdDist.Sifra_OE AND #TmpDist.Datum = #GotovProdDist.Datum

        UPDATE #TmpDist SET StGotovProdDist = #StGotovProdDist.StGotovProdDist
        FROM #StGotovProdDist
        WHERE #TmpDist.Sifra_OE = #StGotovProdDist.Sifra_OE AND #TmpDist.Datum = #StGotovProdDist.Datum

        UPDATE #TmpDist SET PoSto = 'D'
       End
    Else
       Begin
        UPDATE #TmpDist SET GotovProdDist = null, StGotovProdDist = null
        UPDATE #TmpDist SET ZadolDist = 0 where ZadolDist is null
        UPDATE #TmpDist SET StZadolDist = 0 where StZadolDist is null
        UPDATE #TmpDist SET FaktDist = 0 where FaktDist is null
        UPDATE #TmpDist SET StFaktDist = 0 where StFaktDist is null

        UPDATE #TmpDist SET PoSto = 'P', GotovPromet = (ZadolDist + StZadolDist) - (FaktDist + StFaktDist)

       End
    SELECT D.*, O.ImeOrg
    FROM  #TmpDist D INNER JOIN OrgEd O ON D.Sifra_OE = O.Sifra_OE
    Order By D.Sifra_Oe





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzadistr]'))
drop procedure [dbo].[sp_izvzadistr]

Go

CREATE                PROCEDURE sp_IzvZaDistr
    @Koi_Oe    Varchar(300),
    @Datum_Od    smalldatetime,
    @Datum_Do    SmallDateTime,
    @Upl_od_Blag    char(1) = 'N',    -- Uplatite na distriguterite da se zemaat od Blagajna (KasStav) ili od AnFinDok
    @Daden_Promet decimal(18,6)= 0 OUTPUT
AS
    Declare @SSQL as varchar(8000)
    Declare @PriemOdMag    smallint
    Declare @VratVoMag    smallint
    Declare @VratVoMag2    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @UplDist    smallint
    Declare @Shift        int
    Declare @Art_Od    char(6)
    Declare @Art_Do    char(6)
    Declare @LenShift    int
    Declare @Elim_Art1    char(6)
    Declare @Elim_Art2    char(6)
    Declare @Gotovina    char(6)
    Declare @StornoGot    char(6)
    Set @Gotovina = '82'     -- Sega za sega fiksno - kke treba da se citaat od konfig
    Set @StornoGot = '84'
    Set @Elim_art1 = '002001'
    Set @Elim_art2 = '002002'
    SELECT @PriemOdMag = Pren_fix_plus, @VratVoMag=Pren_fix_minus, @VratVoMag2=Pren_Fix_Minus2, @Faktura=Ispr_Fix_plus, @StornoFak=Ispr_Fix_Minus,
    @UplDist= Fin_Upl_Distr, @Shift = Ladno_Shift FROM Konfig
    if @Shift IS NULL
        Begin
            SET @Art_Od = '001000'
            SET @Art_Do = '002000'
        End
    Else
        Begin
            SET @LenShift = Len(cast(@Shift as varchar(6)))
            SET @Art_Od    = Replicate('0', 6-@LenShift) + cast(@Shift as varchar(6))
            SET @Art_Do    = Replicate('0', 6-@LenShift) + cast(@Shift*2 as varchar(6))
        End
    If @Upl_od_Blag = 'D'
        Set @SSQL = 'Select Sum(Dolzi) FROM KasStav
        WHERE P_I = ''P'' And Dod_Datum >= ''' + cast(@Datum_Od as varchar(30)) + '''
        AND Dod_Datum <= ''' + cast(@Datum_Do as varchar(30)) + '''
        AND Sifra_OE in (' + @Koi_Oe + ') AND Sifra_Nal = ' + cast(@UplDist as varchar(5))
    Else
        Set @SSQL = 'Select Sum(pobaruva) FROM AnFinDok
        WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
        AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
        AND Sifra_OE in (' + @Koi_Oe + ') AND Sifra_Dok = ' + cast(@UplDist as varchar(5))

    Create Table #Rez
        (
         Vrednost     decimal(18,6)
        )
    Insert Into #Rez Exec(@SSQL)
    Select @Daden_Promet=Vrednost From #Rez

    CREATE TABLE #TmpDist
(    Sifra_Art    varchar(20),
    ImeArt        varchar(40),
    Cena        decimal(18,6),
    Priem_OdMag    decimal(18,6),
    Vrat_Toplo    decimal(18,6),
    Prod_Fakt    decimal(18,6),
    Vrat_Fakt    decimal(18,6),
    Vrat_Ladno    decimal(18,6),
    Prod_Got    decimal(18,6),
    Vrat_Got    decimal(18,6),
    Vred_Prod_Got    decimal(18,6),
    Vred_Vrat_Got    decimal(18,6)
)
    INSERT INTO #TmpDist (Sifra_Art, ImeArt) SELECT Sifra_Art, ImeArt FROM KatArt
    WHERE Sifra_Art <= @Art_Do
    --WHERE Sifra_Art IN  (SELECT DISTINCT Sifra_Art FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do)

    CREATE TABLE #TmpKolic
(    Sifra_Art    varchar(20),
    DokCena    decimal(18,6),
    Kolic        decimal(18,6),
    Vrednost    decimal(18,6)
)
    ---------------------------- priem od magacin ----------------------------------------
    Set @SSQL = ' INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), 0
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30))  + '''  AND Datum_Dok <=  ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE in (' + @Koi_Oe + ') AND Sifra_Dok = ' + cast(@PriemOdMag as varchar(5)) + '
    GROUP BY Sifra_Art '    --  Ah, ne smee, DokCena
    Exec (@SSQL)

    UPDATE #TmpDist SET Cena = S.DokCena, Priem_OdMag = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic

    ------------------------------ vrateno vo magacin ------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), 0
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE in ( ' + @Koi_Oe + ' ) AND (Sifra_Dok = ' + cast(@VratVoMag as  varchar(5)) + 'or sifra_dok = ' + cast(@VratVoMag2 as varchar(5)) + ' )
    GROUP BY Sifra_Art '  --, DokCena
    Exec(@SSQL)

    UPDATE #TmpDist SET Vrat_Toplo = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND (S.Sifra_Art<@Art_Od  or S.Sifra_Art>@Art_Do)        --toplo

    UPDATE #TmpDist SET Vrat_Ladno = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do    --ladno

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic

    ----------------------------------- prod. na faktura -----------------------------------------------
    Set @SSQL = ' INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), 0
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In ( ' + @Koi_Oe + ') AND Sifra_Dok IN (85,' + cast(@Faktura as varchar(5)) + ')
    GROUP BY Sifra_Art '   --, DokCena                85 dod.zaradi ST
    Exec(@SSQL)

    UPDATE #TmpDist SET Prod_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic

    ---------------------------------------- vrat. na faktura ---------------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), 0
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In (' + @Koi_Oe + ') AND Sifra_Dok IN (86,' + cast(@StornoFak as varchar(5)) + ')
    GROUP BY Sifra_Art'  --, DokCena
    Exec (@SSQL)

    UPDATE #TmpDist SET Vrat_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art > @Art_Od  AND S.Sifra_Art < @Art_Do

    UPDATE #TmpDist SET Vrat_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art  AND (S.Sifra_Art<@Art_Od or S.Sifra_Art>@Art_Do)

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art > @Art_Od AND S.Sifra_Art < @Art_Do AND #TmpDist.Cena IS NULL

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic

    --------------------------------------------- prod. vo gotovo ---------------------------------------------
    -- 20.03.2008 za Mak-Promet
    Set @SSQL = ' INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), Sum(Kolic*DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In ( ' + @Koi_Oe + ') AND Sifra_Dok IN (' + cast(@Gotovina as varchar(5)) + ')
    GROUP BY Sifra_Art '   --, DokCena
    Exec(@SSQL)

    UPDATE #TmpDist SET Prod_Got = S.Kolic, Vred_Prod_Got = Vrednost
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic

    ------------------------------------------- vrat. vo Gotovo --------------------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic SELECT Sifra_Art, max(DokCena), SUM(Kolic), Sum(Kolic*DokCena)
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In (' + @Koi_Oe + ') AND Sifra_Dok IN (' + cast(@StornoGot as varchar(5)) + ')
    GROUP BY Sifra_Art'  --, DokCena
    Exec (@SSQL)

    UPDATE #TmpDist SET Vrat_Got = S.Kolic, Vred_Vrat_Got = Vrednost
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art > @Art_Od  AND S.Sifra_Art < @Art_Do

    UPDATE #TmpDist SET Vrat_Got = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art  AND (S.Sifra_Art<@Art_Od or S.Sifra_Art>@Art_Do)

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art > @Art_Od AND S.Sifra_Art < @Art_Do AND #TmpDist.Cena IS NULL

    UPDATE #TmpDist SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = '000' + substring(S.Sifra_Art,4,3) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    -- do ovde za Mak - Promet 20.03.2008 --------------------------------------------------------------------

    UPDATE #TmpDist SET Cena =0 WHERE Cena IS NULL
    UPDATE #TmpDist SET Priem_OdMag =0 WHERE Priem_OdMag IS NULL
    UPDATE #TmpDist SET Vrat_Toplo =0 WHERE Vrat_Toplo IS NULL
    UPDATE #TmpDist SET Prod_Fakt =0 WHERE Prod_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Fakt =0 WHERE Vrat_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Ladno =0 WHERE Vrat_Ladno IS NULL
    UPDATE #TmpDist SET Prod_Got =0 WHERE Prod_Got IS NULL
    UPDATE #TmpDist SET Vrat_Got =0 WHERE Vrat_Got IS NULL
    UPDATE #TmpDist SET Vred_Prod_Got =0 WHERE Prod_Got IS NULL
    UPDATE #TmpDist SET Vred_Vrat_Got =0 WHERE Vrat_Got IS NULL

    SELECT Sifra_Art, ImeArt, Cena, ABS(Priem_OdMag) Priem_OdMag, ABS(Vrat_Toplo) Vrat_Toplo,
    ABS(Prod_Fakt) Prod_Fakt, ABS(Vrat_Fakt) Vrat_Fakt, ABS(Vrat_Ladno) Vrat_Ladno,
    ABS(Prod_Got) Prod_Got, ABS(Vrat_Got) Vrat_Got, Abs(Vred_Prod_Got) Vred_Prod_Got, ABS(Vred_Vrat_Got) Vred_Vrat_Got
    FROM #TmpDist
    WHERE (Priem_OdMag<>0 or Vrat_Toplo<>0 or Prod_Fakt<>0 or Vrat_Fakt<>0 or Vrat_Ladno<>0 or Prod_Got<>0 or Vrat_Got<>0)
              and sifrA_art <> @Elim_Art1 and sifrA_art <> @Elim_Art2
    ORDER BY sifra_Art


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzadistr_zitocentar]'))
drop procedure [dbo].[sp_izvzadistr_zitocentar]

Go




CREATE                   PROCEDURE [dbo].[sp_IzvZaDistr_ZitoCentar]
    @Koi_Oe    Varchar(300),
    @Datum_Od    smalldatetime,
    @Datum_Do    SmallDateTime,
    @KojIzv    char(1) = 'F'
AS
    Declare @SSQL as varchar(8000)
    Declare @PriemOdMag    smallint
    Declare @VratVoMag    smallint
    Declare @VratVoMag2    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @UplDist    smallint
    Declare @Shift        int
    Declare @Art_Od    char(6)
    Declare @Art_Do    char(6)
    Declare @LenShift    int
    Declare @Elim_Art1    char(6)
    Declare @Elim_Art2    char(6)
    Declare @Gotovina    char(6)
    Declare @StornoGot    char(6)

    Set @Gotovina = '82'     -- Sega za sega fiksno - kke treba da se citaat od konfig
    Set @StornoGot = '84'
    Set @Elim_art1 = '002001'
    Set @Elim_art2 = '002002'

    SELECT @PriemOdMag = Pren_fix_plus, @VratVoMag=Pren_fix_minus, @VratVoMag2=Pren_Fix_Minus2, @Faktura=Ispr_Fix_plus, @StornoFak=Ispr_Fix_Minus,
    @UplDist= Fin_Upl_Distr, @Shift = Ladno_Shift FROM Konfig
    if @Shift IS NULL
        Begin
            SET @Art_Od = '001000'
            SET @Art_Do = '002000'
        End
    Else
        Begin
            SET @LenShift = Len(cast(@Shift as varchar(6)))
            SET @Art_Od    = Replicate('0', 6-@LenShift) + cast(@Shift as varchar(6))
            SET @Art_Do    = Replicate('0', 6-@LenShift) + cast(@Shift*2 as varchar(6))
        End


    CREATE TABLE #TmpDist
(
    Sifra_Oe    smallint,
    Sifra_Art    varchar(20),
    ImeArt        varchar(40),
    Cena        decimal(18,6),
    Priem_OdMag    decimal(18,6),
    Vrat_Toplo    decimal(18,6),
    Vrat_Ladno    decimal(18,6),
    Prod_Fakt    decimal(18,6),
    Vrat_Fakt    decimal(18,6),
    Prod_Got    decimal(18,6),
    Vrat_Got    decimal(18,6)
)

    ---------------------------- priem od magacin ----------------------------------------
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Art, S.MagCena, SUM(S.Kolic)
            FROM Stavr S
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30))  + '''  AND S.Datum_Dok <=  ''' + cast(@Datum_Do as varchar(30)) + '''
            AND S.Sifra_OE in (' + @Koi_Oe + ') AND S.Sifra_Dok = ' + cast(@PriemOdMag as varchar(5)) + '
            GROUP BY S.Sifra_Oe, S.Sifra_Art, S.MagCena '    --  Ah, ne smee, DokCena
    Insert Into #TmpDist (Sifra_Oe, Sifra_Art, Cena, Priem_OdMag) Exec(@SSQL)
    print @SSQL

    ------------------------------ vrateno vo magacin ------------------------------------

    Set @SSQL = ' Select S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.MagCena,
            SUM(Case When S.Sifra_Art < ''' + @Art_Od + ''' Or S.Sifra_Art > ''' + @Art_Do + ''' Then S.Kolic Else 0 End) VratToplo,
            SUM(Case When S.Sifra_Art > ''' + @Art_Od + ''' And S.Sifra_Art < ''' + @Art_Do + ''' Then S.Kolic Else 0 End) VratLadno
            FROM Stavr S
            INNER JOIN Katart K On K.Sifra_Art = S.Sifra_Art
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30))  + '''  AND S.Datum_Dok <=  ''' + cast(@Datum_Do as varchar(30)) + '''
            AND S.Sifra_OE in ( ' + @Koi_Oe + ' ) AND (S.Sifra_Dok = ' + cast(@VratVoMag as  varchar(5)) + ' Or S.Sifra_Dok = ' + cast(@VratVoMag2 as varchar(5)) + ' )
            GROUP BY S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.MagCena '  --, DokCena
    Insert Into #TmpDist (Sifra_Oe, Sifra_Art, Cena, Vrat_Toplo, Vrat_Ladno) Exec(@SSQL)
print @SSQL


    ----------------------------------- prod. na faktura -----------------------------------------------
    Set @SSQL = ' SELECT S.Sifra_Oe, S.Sifra_Art, S.DokCena, SUM(S.Kolic)
            FROM Stavr S
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
            AND S.Sifra_OE In ( ' + @Koi_Oe + ') AND S.Sifra_Dok IN (85,' + cast(@Faktura as varchar(5)) + ')
            GROUP BY S.Sifra_Oe, S.Sifra_Art, S.DokCena '   --, DokCena                85 dod.zaradi ST
    Insert Into #TmpDist(Sifra_Oe, Sifra_Art, Cena, Prod_Fakt) Exec(@SSQL)

    ---------------------------------------- vrat. na faktura ---------------------------------------------
    Set @SSQL = ' SELECT S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.DokCena, SUM(S.Kolic)
            FROM Stavr S
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
            AND S.Sifra_OE In (' + @Koi_Oe + ') AND S.Sifra_Dok IN (86,' + cast(@StornoFak as varchar(5)) + ')
            GROUP BY S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.DokCena '
    Insert Into #TmpDist(Sifra_Oe, Sifra_Art, Cena, Vrat_Fakt) Exec(@SSQL)

    --------------------------------------------- prod. vo gotovo ---------------------------------------------
    -- 20.03.2008 za Mak-Promet
    Set @SSQL = ' SELECT S.Sifra_Oe, S.Sifra_Art, K.DogCena, SUM(S.Kolic)
            FROM Stavr S
            INNER JOIN Katart K On K.Sifra_Art = S.Sifra_Art
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
            AND S.Sifra_OE In ( ' + @Koi_Oe + ') AND S.Sifra_Dok IN (' + cast(@Gotovina as varchar(5)) + ')
            GROUP BY S.Sifra_Oe, S.Sifra_Art, K.DogCena '
    Insert Into #TmpDist(Sifra_Oe, Sifra_Art, Cena, Prod_Got) Exec(@SSQL)

    ------------------------------------------- vrat. vo Gotovo --------------------------------------------------
    Set @SSQL = ' SELECT S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.DokCena, SUM(S.Kolic)
            FROM Stavr S
            INNER JOIN Katart K On K.Sifra_Art = S.Sifra_Art
            WHERE S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''  AND S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
            AND Sifra_OE In (' + @Koi_Oe + ') AND Sifra_Dok IN (' + cast(@StornoGot as varchar(5)) + ')
            GROUP BY S.Sifra_Oe, ''000'' + SubString(S.Sifra_Art,4,3), S.DokCena '
    Insert Into #TmpDist(Sifra_Oe, Sifra_Art, Cena, Vrat_Got) Exec(@SSQL)

    UPDATE #TmpDist SET Priem_OdMag =0 WHERE Priem_OdMag IS NULL
    UPDATE #TmpDist SET Vrat_Toplo =0 WHERE Vrat_Toplo IS NULL
    UPDATE #TmpDist SET Prod_Fakt =0 WHERE Prod_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Fakt =0 WHERE Vrat_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Ladno =0 WHERE Vrat_Ladno IS NULL
    UPDATE #TmpDist SET Prod_Got =0 WHERE Prod_Got IS NULL
    UPDATE #TmpDist SET Vrat_Got =0 WHERE Vrat_Got IS NULL


    If @KojIzv = 'F'
        Select T.Sifra_Oe, O.ImeOrg, Sum(T.Priem_OdMag*T.Cena) Priem_OdMag, Sum(T.Vrat_Toplo*T.Cena) + Sum(T.Vrat_Ladno*T.Cena) Vrateno, Sum((T.Prod_Fakt*T.Cena)+(T.Vrat_Fakt*T.Cena)) Prod_Fakt,
             --Sum(T.Priem_OdMag*T.Cena) + Sum(T.Vrat_Toplo*T.Cena) + Sum(T.Vrat_Ladno*T.Cena) ProdGotovo
            Sum(Priem_OdMag*T.Cena+Vrat_Toplo*T.Cena+Vrat_Ladno*T.Cena-T.Prod_Fakt*T.Cena-T.Vrat_Fakt*T.Cena) ProdGotovo
        From #TmpDist T
        Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
        Left Outer Join Orged O On O.Sifra_Oe = T.Sifra_Oe
        Group By T.Sifra_Oe, O.ImeOrg
    Else
    Begin
        Create Table #Got
        (
            Sifra_Oe    smallint,
            Sifra_Art    smallint,
            GotovinaZaUplata decimal(18,4)
        )

        Insert Into #Got
        Select Sifra_Oe, Sifra_Art, Sum(Priem_OdMag*T.Cena+Vrat_Toplo*T.Cena+Vrat_Ladno*T.Cena-Prod_Fakt*T.Cena-T.Vrat_Fakt*T.Cena)
        From #TmpDist T
        Group By Sifra_Oe, Sifra_Art

        Create Table #Vrat
        (
            Sifra_Oe    smallint,
            Sifra_Art    smallint,
            Zadolzenie    decimal(18,4),
            Vrateno        decimal(18,4),
            ProcVrat    decimal(18,4)
        )

        Insert Into #Vrat
        Select Sifra_Oe, Sifra_Art, Sum(Priem_OdMag), Sum(Vrat_Toplo+Vrat_Ladno), 0
        From #TmpDist T
        Group By Sifra_Oe, Sifra_Art

        Update #Vrat Set ProcVrat = (Case When Zadolzenie <> 0 Then Vrateno/Zadolzenie*100*-1 Else 0 End)

        Select T.Sifra_Oe, O.ImeOrg, T.Sifra_Art, K.ImeArt, T.Cena,
            Sum(T.Priem_OdMag) Priem_OdMag, Sum(T.Priem_OdMag*T.Cena) Priem_OdMagVred,
            Sum(T.Vrat_Toplo) Vrat_Toplo, Sum(T.Vrat_Toplo*T.Cena) Vrat_ToploVred,
            Sum(T.Vrat_Ladno) Vrat_Ladno, Sum(T.Vrat_Ladno*T.Cena) Vrat_LadnoVred,
            Sum(T.Prod_Fakt) Prod_Fakt, Sum(T.Prod_Fakt*T.Cena+T.Vrat_Fakt*T.Cena) Prod_FaktVred,
            Sum(T.Vrat_Fakt) Vrat_Fakt, Sum(T.Vrat_Fakt*T.Cena) Vrat_FaktVred,
            Sum(T.Prod_Got) Prod_Got, Sum(T.Prod_Got*T.Cena) Prod_GotVred,
            Sum(T.Vrat_Got) Vrat_Got, Sum(T.Vrat_Got*T.Cena) Vrat_GotVred,
            Sum(T.Vrat_Toplo)  + Sum(T.Vrat_Ladno) Vrat_Mag,
            Sum(T.Vrat_Toplo*T.Cena) + Sum(T.Vrat_Ladno*T.Cena) Vrat_MagVred,
            G.GotovinaZaUplata, V.ProcVrat, O.ImeOrg
        From #TmpDist T
        Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
        Left Outer Join #Got G ON G.Sifra_Oe=T.Sifra_Oe And G.Sifra_Art=T.Sifra_Art
        Left Outer Join #Vrat V ON V.Sifra_Oe=T.Sifra_Oe And V.Sifra_Art=T.Sifra_Art
        Left Outer Join OrgEd O ON O.Sifra_Oe = T.Sifra_Oe
        Group By T.Sifra_Oe, O.ImeOrg, T.Sifra_Art, K.ImeArt, T.Cena, G.GotovinaZaUplata, V.ProcVrat
    End


--inner join OrgEd O on O.Sifra_Oe = S.Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzadistrzv]'))
drop procedure [dbo].[sp_izvzadistrzv]

Go
CREATE                 PROCEDURE sp_IzvZaDistrZV
    @Koi_Oe    Varchar(300),
    @Datum_Od    smalldatetime,
    @Datum_Do    SmallDateTime,
    @Daden_Promet decimal(18,6)= 0 OUTPUT
AS
    Declare @SSQL as varchar(8000)
    Declare @PriemOdMag    smallint
    Declare @VratVoMag    smallint
    Declare @VratVoMag2    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @Gotovo    smallint
    Declare @StornoGot    smallint
    Declare @UplDist    smallint
    Declare @Shift        int
    Declare @Art_Od    varchar(20)
    Declare @Art_Do    varchar(20)
    Declare @LenShift    int
    Declare @Elim_Art1    char(6)
    Declare @Elim_Art2    char(6)
--        set @Elim_art1 = '002001'    -- korpi
--        set @Elim_art2 = '002002'    -- lodni
    SELECT @PriemOdMag = Pren_fix_plus,
        @VratVoMag=Pren_fix_minus,
        @VratVoMag2=Pren_Fix_Minus2,
        @Faktura=Ispr_Fix_plus,
        @StornoFak=Ispr_Fix_Minus,
        @UplDist= Fin_Upl_Distr,
        @Shift = Ladno_Shift
    FROM Konfig
    SELECT @Gotovo=TipDok1,
         @StornoGot=TipDok2
    From SkrDok
    WHERE SkrOznaka = 'a-dd-gispr-dis'
print     '@PriemOdMag = Pren_fix_plus'
print     @PriemOdMag
print    '@VratVoMag=Pren_fix_minus'
print    @VratVoMag
print    '@VratVoMag2=Pren_Fix_Minus2'
print    @VratVoMag2
print    '@Faktura=Ispr_Fix_plus'
print    @Faktura
print    '@StornoFak=Ispr_Fix_Minus'
print    @StornoFak
print    '@UplDist= Fin_Upl_Distr'
print    @UplDist
print    '@Shift = Ladno_Shift '
print    @Shift
    ------------------------------------------------------ Sifri za ladno -------------------------------------------------------------------------
    If @Shift IS NULL
        Begin
            SET @Art_Od = '001000'
            SET @Art_Do = '002000'
        End
    Else
        Begin
                SET @LenShift = Len(cast(@Shift as varchar(7)))
                IF @LenShift > 6
                    Begin
                    SET @Art_Od    = cast(@Shift as varchar(7))
                    SET @Art_Do    = cast(@Shift*2 as varchar(7))
                    End
                Else
                    Begin
                    SET @Art_Od    = Replicate('0', 6-@LenShift) + cast(@Shift as varchar(6))
                    SET @Art_Do    = Replicate('0', 6-@LenShift) + cast(@Shift*2 as varchar(6))
                    End
        End
    ------------------------------------------------------ Uplata od distributer -------------------------------------------------------------
    Set @SSQL = 'Select Sum(pobaruva) FROM AnFinDok
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE in (' + @Koi_Oe + ') AND Sifra_Dok = ' + cast(@UplDist as varchar(5))
    Create Table #Rez
        (
         Vrednost     decimal(18,6)
        )
    Insert Into #Rez Exec(@SSQL)
    Select @Daden_Promet=Vrednost From #Rez
    --------------------------------------------------------- PROMET---------------------------------------------------------------------------
    CREATE TABLE #TmpDist
(    Sifra_Art        varchar(20),
    ImeArt            varchar(40),
    Cena            decimal(18,6),
    Priem_OdMag        decimal(18,6),
    Priem_OdMagLad    decimal(18,6),
    Vrat_Toplo        decimal(18,6),
    Vrat_Ladno        decimal(18,6),
    Prod_Fakt        decimal(18,6),
    Prod_FaktLad        decimal(18,6),
    Vrat_Fakt        decimal(18,6),
    Vrat_FaktLad        decimal(18,6),
    Prod_Got        decimal(18,6),
    Prod_GotLad        decimal(18,6),
    Vrat_Got        decimal(18,6),
    Vrat_GotLad        decimal(18,6)
)
    INSERT INTO #TmpDist (Sifra_Art, ImeArt)
    SELECT Sifra_Art, ImeArt
    FROM KatArt
    WHERE (Case When Len(Sifra_Art) < 7 Then '0'+Sifra_Art Else Sifra_Art End) <= @Art_Do
    CREATE TABLE #TmpKolic
(    Sifra_Art    varchar(20),
    DokCena    decimal(18,6),
    Kolic        decimal(18,6)
)
    ------------------------------------------------------ Priem od magacin ---------------------------------------------------------------------
    Set @SSQL = ' INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30))  + '''
    AND Datum_Dok <=  ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE in (' + @Koi_Oe + ')
    AND Sifra_Dok = ' + cast(@PriemOdMag as varchar(5)) + '
    GROUP BY Sifra_Art '    --  Ah, ne smee, DokCena
    Exec (@SSQL)
    UPDATE #TmpDist
    SET Cena = S.DokCena, Priem_OdMag = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
    UPDATE #TmpDist
    SET Cena = S.DokCena, Priem_OdMagLad = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6)
        AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do    --ladno
    DELETE FROM #TmpKolic
    ------------------------------------------------------ Vrateno vo magacin ---------------------------------------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE in ( ' + @Koi_Oe + ' )
    AND (Sifra_Dok = ' + cast(@VratVoMag as  varchar(5)) + 'or sifra_dok = ' + cast(@VratVoMag2 as varchar(5)) + ' )
    GROUP BY Sifra_Art '  --, DokCena
    Exec(@SSQL)
    UPDATE #TmpDist
    SET Vrat_Toplo = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
    UPDATE #TmpDist
    SET Vrat_Ladno = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art --Substring(S.Sifra_Art, 2, 6)
        AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do    --ladno
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art     AND #TmpDist.Cena IS NULL
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    -------------------------------------------------------- Prodadeno na faktura ---------------------------------------------------------------------
    Set @SSQL = ' INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In ( ' + @Koi_Oe + ')
    AND (Sifra_Dok = ' + cast(@Faktura as varchar(5)) + ' Or Sifra_Dok = ' + cast(@StornoFak as varchar(5)) + ' Or Sifra_Dok=85 Or Sifra_Dok=86)
    AND ((Case When Len(Sifra_Art) < 7 Then ''0''+ Sifra_Art Else Sifra_Art End)< ' + @Art_Od + ' or Sifra_Art> ' + @Art_Do + ')
    GROUP BY Sifra_Art '   --, DokCena
    Exec(@SSQL)
    UPDATE #TmpDist
    SET Prod_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
    UPDATE #TmpDist
    SET Prod_FaktLad = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art --Substring(S.Sifra_Art, 2, 6)
        AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do    --ladno
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    ----------------------------------------------------------- Vreteno na faktura ---------------------------------------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In (' + @Koi_Oe + ')
    AND (Sifra_Dok = ' + cast(@Faktura as varchar(5)) + ' Or Sifra_Dok = ' + cast(@StornoFak as varchar(5)) + ' Or Sifra_Dok=85 Or Sifra_Dok=86)
    AND Sifra_Art > ' + @Art_Od + 'AND Sifra_Art < ' + @Art_Do + '
    GROUP BY Sifra_Art'  --, DokCena
    Exec (@SSQL)
    UPDATE #TmpDist
    SET Vrat_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
--        AND '0'+S.Sifra_Art > @Art_Od  AND S.Sifra_Art < @Art_Do
    UPDATE #TmpDist
    SET Vrat_FaktLad = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art --Substring(S.Sifra_Art, 2, 6)
        AND (S.Sifra_Art>@Art_Od or S.Sifra_Art<@Art_Do)
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
--    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art > @Art_Od AND S.Sifra_Art < @Art_Do AND #TmpDist.Cena IS NULL
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    -------------------------------------------------------- Prodadeno vo gotovo ---------------------------------------------------------------------
    Set @SSQL = ' INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In ( ' + @Koi_Oe + ')
    AND (Sifra_Dok = ' + cast(@Gotovo as varchar(5)) + ' Or Sifra_Dok = ' + cast(@StornoGot as varchar(5)) + ')
    AND ((Case When Len(Sifra_Art) < 7 Then ''0''+ Sifra_Art Else Sifra_Art End)< ' + @Art_Od + ' or Sifra_Art> ' + @Art_Do + ')
    GROUP BY Sifra_Art '   --, DokCena
    Exec(@SSQL)
    UPDATE #TmpDist
    SET Prod_Got = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
    UPDATE #TmpDist
    SET Prod_GotLad = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art --Substring(S.Sifra_Art, 2, 6)
        AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do    --ladno
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    ----------------------------------------------------------- Vreteno vo gotovo ---------------------------------------------------------------------
    Set @SSQL = 'INSERT INTO #TmpKolic
    SELECT Sifra_Art, max(DokCena), SUM(Kolic)
    FROM Stavr
    WHERE Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + '''
    AND Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + '''
    AND Sifra_OE In (' + @Koi_Oe + ')
    AND (Sifra_Dok = ' + cast(@Gotovo as varchar(5)) + ' Or Sifra_Dok = ' + cast(@StornoGot as varchar(5)) + ')
    AND Sifra_Art > ' + @Art_Od + 'AND Sifra_Art < ' + @Art_Do + '
    GROUP BY Sifra_Art'  --, DokCena
    Exec (@SSQL)
    UPDATE #TmpDist
    SET Vrat_Got = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art
        AND ((Case When Len(S.Sifra_Art) < 7 Then '0'+S.Sifra_Art Else S.Sifra_Art End)<@Art_Od  or S.Sifra_Art>@Art_Do)    --toplo
    UPDATE #TmpDist
    SET Vrat_GotLad = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art --Substring(S.Sifra_Art, 2, 6)
        AND S.Sifra_Art>@Art_Od And S.Sifra_Art<@Art_Do   --LADNO   -- Izmeneto 14.06.2006 g.k.
--    AND (S.Sifra_Art>@Art_Od or S.Sifra_Art<@Art_Do)   --LADNO
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art AND #TmpDist.Cena IS NULL
    UPDATE #TmpDist
    SET Cena = S.DokCena
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = Substring(S.Sifra_Art, 2, 6) AND S.Sifra_Art>@Art_Od  AND S.Sifra_Art<@Art_Do  AND #TmpDist.Cena IS NULL
    DELETE FROM #TmpKolic
    UPDATE #TmpDist SET Cena =0 WHERE Cena IS NULL
    UPDATE #TmpDist SET Priem_OdMag =0 WHERE Priem_OdMag IS NULL
    UPDATE #TmpDist SET Priem_OdMagLad =0 WHERE Priem_OdMagLad IS NULL
    UPDATE #TmpDist SET Vrat_Toplo =0 WHERE Vrat_Toplo IS NULL
    UPDATE #TmpDist SET Prod_Fakt =0 WHERE Prod_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Fakt =0 WHERE Vrat_Fakt IS NULL
    UPDATE #TmpDist SET Vrat_Ladno =0 WHERE Vrat_Ladno IS NULL
    UPDATE #TmpDist SET Prod_Got =0 WHERE Prod_Got IS NULL
    UPDATE #TmpDist SET Vrat_Got =0 WHERE Vrat_Got IS NULL
    UPDATE #TmpDist SET Prod_FaktLad =0 WHERE Prod_FaktLad IS NULL
    UPDATE #TmpDist SET Vrat_FaktLad =0 WHERE Vrat_FaktLad IS NULL
    UPDATE #TmpDist SET Prod_GotLad =0 WHERE Prod_GotLad IS NULL
    UPDATE #TmpDist SET Vrat_GotLad =0 WHERE Vrat_GotLad IS NULL
    SELECT Sifra_Art, ImeArt, Cena,
        ABS(Priem_OdMag) Priem_OdMag, ABS(Priem_OdMagLad) Priem_OdMagLad,
        ABS(Vrat_Toplo) Vrat_Toplo, ABS(Vrat_Ladno) Vrat_Ladno,
        ABS(Prod_Fakt) Prod_Fakt, ABS(Vrat_Fakt) Vrat_Fakt,
        ABS(Prod_FaktLad) Prod_FaktLad, ABS(Vrat_FaktLad) Vrat_FaktLad,
        ABS(Prod_Got) Prod_Got, ABS(Vrat_Got) Vrat_Got,
        ABS(Prod_GotLad) Prod_GotLad, ABS(Vrat_GotLad) Vrat_GotLad
    FROM #TmpDist
    WHERE (Priem_OdMag<>0 or Vrat_Toplo<>0 or Prod_Fakt<>0 or Vrat_Fakt<>0 or Vrat_Ladno<>0 or Prod_Got<>0 or Vrat_Got<>0
            Or Prod_FaktLad<>0 or Vrat_FaktLad<>0 Or Prod_GotLad<>0 or Vrat_GotLad<>0)
    ORDER BY sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzafiksnitrosoci]'))
drop procedure [dbo].[sp_izvzafiksnitrosoci]

Go
CREATE      PROCEDURE sp_IzvZaFiksniTrosoci
    @Sifra_Oe     smallint,
    @Grupa_Oe  varchar(6) = Null,
    @Datum_Od smalldatetime,
    @Datum_Do smalldatetime,
    @Broj_Dok_Od int,
    @Broj_Dok_Do int,
    @Artikal_Od  varchar(20),
    @Artikal_Do  varchar(20),
    @Proiz_Sema smallint = Null
AS
    Declare @SSQL varchar(8000)
    Create Table #Pvo
    (
     Sifra_oe    smallint,
     Sifra_dok    smallint,
     Broj_dok    int,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6)
    )
    Set @SSQL= ' Insert Into #Pvo
    Select R.Sifra_oe, D.Sifra_dok, S.Broj_dok, S.Sifra_art, S.Kolic
    From Dokrabnal R
    Inner Join Dokr D on D.Dokrid=R.Dokrid
    Inner Join Stavr S on S.Dokrid=D.dokrid
    Where Tip_rabstav=''P'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + '    and R.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(5)) + ' '
     If @Grupa_Oe Is Not Null
        Set @SSQL=@SSQL + '    and R.Sifra_Oe in (select sifra_oe from SGrOrg Where Sif_GrOrg = ''' + @Grupa_Oe + ''') '
    If @Artikal_Od  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art >= ' + @Artikal_Od
    If @Artikal_Do  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art <= ' + @Artikal_Do
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + '    and D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + '    and D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Broj_Dok_Od Is Not Null
        Set @SSQL=@SSQL + '    and D.Broj_Dok >= ' + cast(@Broj_Dok_Od as varchar(6)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL=@SSQL + '    and D.Broj_Dok <= ' + cast(@Broj_Dok_Do as varchar(6)) + ' '
    Exec(@SSQL)
--select * from #pvo
    Create Table #Sostav
    (
     Sifra_oe    smallint,
     Sifra_dok    smallint,
     Broj_dok    int,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     Sifra_Sur    varchar(20),
     Ima_kolic    decimal(18,6),
     Cena        decimal(18,6),
     VkCena    decimal(18,6),
     VodeckiArtikal    char(1),
     KolicZbir    char(1)
    )
    Insert Into #Sostav
    Select P.Sifra_oe, P.Sifra_dok, P.Broj_dok, P.Sifra_Art, P.Kolic, S.Sifra_sur, S.Ima_Kolic, S.Cena, S.VkCena, S.VodeckiArtikal, S.KolicZbir
    From #Pvo P
    Left Outer Join Sostav S On S.Sifra_Art = P.Sifra_Art
    Create Table #Sema
    (
     Sifra_oe    smallint,
     Sifra_dok    smallint,
     Broj_dok    int,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     Sifra_Tros    varchar(20),
     CenaTros    decimal(18,6),
     KolicTros    decimal(18,6),
     VkCenaTros    decimal(18,6)
    )
    Set @SSQL = ' Insert Into #Sema
    Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_art, Sum(S.Kolic), T.Sifra_Art as Sifra_Tros, T.Cena, Sum(S.Ima_Kolic), (T.Cena * Sum(S.Ima_Kolic))
    From #Sostav S, ProizvTrosFix T
    Where T.Proiz_Sema = ' + cast(@Proiz_Sema as varchar(5)) + ' and PoVodeckiArtikal = ''N'' and S.kolicZbir = ''D'' '
    If @Artikal_Od  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art >= ' + @Artikal_Od
    If @Artikal_Do  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art <= ' + @Artikal_Do
    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_art, T.Sifra_Art, T.Cena '
    Exec (@SSQL)
    Set @SSQL = ' Insert Into #Sema
    Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_art, Sum(S.Kolic), T.Sifra_Art as Sifra_Tros, T.Cena, Sum(S.Ima_Kolic), (T.Cena * Sum(S.Ima_Kolic))
    From #Sostav S, ProizvTrosFix T
    Where T.Proiz_Sema = ' + cast(@Proiz_Sema as varchar(5)) + ' and PoVodeckiArtikal =''D'' and S.VodeckiArtikal = ''D'' '
    If @Artikal_Od  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art >= ' + @Artikal_Od
    If @Artikal_Do  IS NOT  NULL
        Set @SSQL = @SSQL + '  AND S.Sifra_Art <= ' + @Artikal_Do
    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_art, T.Sifra_Art, T.Cena '
    Exec (@SSQL)
--    Select * from #Sostav
    Select S.Sifra_oe, O.ImeOrg, S.Sifra_dok, TD.ImeDok, S.Broj_dok, S.Sifra_Art, K.ImeArt, S.Kolic, S.Sifra_Tros, A.ImeArt ImeTros,
        S.CenaTros, S.KolicTros, S.VkCenaTros, Round((S.Kolic*S.VkCenaTros),4) VkTros
    From #Sema S
    Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
    Inner Join Katart A On A.Sifra_Art = S.Sifra_Tros
    Inner Join Orged O On O.Sifra_Oe = S.Sifra_Oe
    Inner Join TipDok TD On TD.Sifra_Dok=S.Sifra_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzamag]'))
drop procedure [dbo].[sp_izvzamag]

Go



CREATE                   PROCEDURE [dbo].[sp_IzvZaMag]
    @Sifra_OE    Smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    SmallDateTime,
    @SoPocSost    char(1) = 'N'
AS
    Declare @ZapIzl    smallint
    Declare @Kalo        smallint
    Declare @Kalo2        smallint
    Declare @Reprez    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @Faktura1    smallint
    Declare @StornoFak1    smallint
    SELECT @ZapIzl = Ispr_fix_zap_Izlez, @Kalo=Ispr_fix_kalo, @Kalo2=Ispr_fix_kalo2, @Reprez=Ispr_Fix_Reprez,
    @Faktura=Ispr_Fix_Fri_plus, @StornoFak=Ispr_Fix_Fri_Minus, @Faktura1=Ispr_Fix_Isp_plus, @StornoFak1=Ispr_Fix_Isp_Minus  FROM Konfig
    CREATE TABLE #TmpDist
(    Sifra_Art    varchar(20),
    ImeArt        varchar(40),
    PocSost    decimal(18,6),
    Vlez        decimal(18,6),
    Izl_Distr        decimal(18,6),
    Vrat_Distr    decimal(18,6),
    Izl_FaktRep    decimal(18,6),
    Vrat_Fakt    decimal(18,6),
    Izl_Zap        decimal(18,6),
    Kalo        decimal(18,6),
    OdRabNal    decimal(18,6)                    --dodadeno na 06.07.2011 MILAN
)
    CREATE TABLE #TmpPocS
(    Sifra_Art    varchar(20),
    PocSost    decimal(18,6)
)
    INSERT INTO #TmpDist (Sifra_Art, ImeArt) SELECT Sifra_Art, ImeArt FROM KatArt
    WHERE Sifra_Art IN (SELECT DISTINCT Sifra_Art FROM Stavr WHERE Datum_Dok <= @Datum_Do)
    If @SoPocSost = 'D'
    INSERT INTO #TmpPocS (Sifra_Art, PocSost) SELECT DISTINCT Sifra_Art, 0 FROM Stavr WHERE Datum_Dok <= @Datum_Od
    CREATE TABLE #TmpKolic
(    Sifra_Art    varchar(20),
    Kolic        decimal(18,6)
)
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --VLEZ
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do
    AND Sifra_OE = @Sifra_OE AND VlIzl='V' AND (Sifra_Dok<>192 OR Sifra_Art<'001000')  --(Sifra_Dok<>192 OR Sifra_Art<'001000') dod.06.07.11 za ZL Ohr. Moze ke smeta na dr.mesto
    GROUP BY Sifra_Art

    UPDATE #TmpDist SET Vlez = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izlez po distr.
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do
    AND Sifra_OE = @Sifra_OE AND VlIzl = 'I' AND ImaDodatna='D' AND Kolic > 0
    GROUP BY Sifra_Art

    UPDATE #TmpDist SET Izl_Distr = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Vrateno od distr.
    FROM Stavr WHERE (Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do
    AND Sifra_OE = @Sifra_OE AND VlIzl = 'I' AND ImaDodatna='D' AND Kolic < 0) OR
    (Sifra_Dok=192 AND Sifra_Art>'001000' AND Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do AND Sifra_OE = @Sifra_OE)
    GROUP BY Sifra_Art
    UPDATE #TmpDist SET Vrat_Distr = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izl. na faktura/reprez.
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do         --PAZI FIKSIRANO
    AND Sifra_OE = @Sifra_OE AND (Sifra_Dok = @Faktura OR Sifra_Dok = @Faktura1 OR Sifra_Dok = @Reprez OR Sifra_Dok In (73, 93))
    GROUP BY Sifra_Art
    UPDATE #TmpDist SET Izl_FaktRep = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Vrat. na faktura
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do         --PAZI FIKSIRANO
    AND Sifra_OE = @Sifra_OE AND (Sifra_Dok = @StornoFak OR Sifra_Dok = @StornoFak1 OR Sifra_Dok = 94)
    GROUP BY Sifra_Art
    UPDATE #TmpDist SET Vrat_Fakt = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izlez po zapisnik
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do
    AND Sifra_OE = @Sifra_OE AND Sifra_Dok = @ZapIzl
    GROUP BY Sifra_Art
    UPDATE #TmpDist SET Izl_Zap = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --KALO
    FROM Stavr WHERE Datum_Dok >= @Datum_Od AND Datum_Dok <= @Datum_Do
    AND Sifra_OE = @Sifra_OE AND (Sifra_Dok = @Kalo OR Sifra_Dok = @Kalo2)
    GROUP BY Sifra_Art
    UPDATE #TmpDist SET Kalo = S.Kolic
    FROM #TmpKolic S
    WHERE #TmpDist.Sifra_Art = S.Sifra_Art

    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic                                        --RabNal
    SELECT    Sifra_Art, SUM(Kolic)
    FROM    RabNal R INNER JOIN
            StaRabNal S ON R.RabNalID = S.RabNalID
    WHERE    Datum_Otv >= @Datum_Od AND Datum_Otv <= @Datum_Do AND Sifra_OEPrim = @Sifra_OE
    GROUP BY Sifra_Art
    UPDATE    #TmpDist SET OdRabNal = S.Kolic
    FROM    #TmpKolic S
    WHERE    #TmpDist.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
-- SEGA ZA POCETNA SOSTOJBA
If @SoPocSost = 'D'
Begin
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --VLEZ
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND VlIzl='V'
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izlez po distr.
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND VlIzl = 'I' AND ImaDodatna='D' AND Kolic > 0
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost - ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Vrateno od distr.
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND VlIzl = 'I' AND ImaDodatna='D' AND Kolic < 0
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost + ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izl. na faktura/reprez.
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND (Sifra_Dok=@Faktura OR Sifra_Dok=@Faktura1 OR Sifra_Dok=@Reprez OR Sifra_Dok = 93)
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost - ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Vrat. na faktura
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND (Sifra_Dok = @StornoFak OR Sifra_Dok = @StornoFak1 OR Sifra_Dok = 94)
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost + ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --Izlez po zapisnik
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND Sifra_Dok = @ZapIzl
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost - ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --KALO
    FROM Stavr WHERE Datum_Dok < @Datum_Od AND Sifra_OE = @Sifra_OE AND (Sifra_Dok = @Kalo OR Sifra_Dok = @Kalo2)
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost - ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    INSERT INTO #TmpKolic SELECT Sifra_Art, SUM(Kolic)            --OdRabNal
    FROM    RabNal R INNER JOIN
            StaRabNal S ON R.RabNalID = S.RabNalID
    WHERE    Datum_Otv < @Datum_Od AND Sifra_OEPrim = @Sifra_OE
    GROUP BY Sifra_Art
    UPDATE #TmpPocS SET PocSost = PocSost - ABS(S.Kolic)
    FROM #TmpKolic S WHERE #TmpPocS.Sifra_Art = S.Sifra_Art
    DELETE FROM #TmpKolic
    UPDATE #TmpDist SET PocSost  = #TmpPocS.PocSost
    FROM #TmpPocS WHERE #TmpPocS.Sifra_Art = #TmpDist.Sifra_Art
End
--KRAJ POC. SOST.
    UPDATE #TmpDist SET PocSost  = 0  WHERE  #TmpDist.PocSost IS NULL
    UPDATE #TmpDist SET Vlez =0 WHERE Vlez IS NULL
    UPDATE #TmpDist SET Izl_Distr =0 WHERE  Izl_Distr IS NULL
    UPDATE #TmpDist SET Vrat_Distr =0 WHERE Vrat_Distr IS NULL
    UPDATE #TmpDist SET Izl_FaktRep =0 WHERE Izl_FaktRep IS NULL
    UPDATE #TmpDist SET Vrat_Fakt =0 WHERE Vrat_Fakt IS NULL
    UPDATE #TmpDist SET Izl_Zap =0 WHERE Izl_Zap IS NULL
    UPDATE #TmpDist SET Kalo =0 WHERE Kalo IS NULL
    UPDATE #TmpDist SET OdRabNal = 0 WHERE OdRabNal IS NULL

    SELECT T.Sifra_Art, T.ImeArt, T.PocSost, ABS(T.Vlez) Vlez,  ABS(T.Izl_Distr) Izl_Distr, ABS(T.Vrat_Distr) Vrat_Distr,
        ABS(T.Izl_FaktRep) Izl_FaktRep, ABS(T.Vrat_Fakt) Vrat_Fakt, ABS(T.Izl_Zap) Izl_Zap, ABS(T.Kalo) Kalo, ABS(T.OdRabNal) OdRabNal,
        (Case when K.Drugo2 is null then '' else K.Drugo2 end) Drugo2, D2.Ime_2
    FROM #TmpDist T
    Left Outer Join Katart K On K.Sifra_Art = T.Sifra_Art
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    WHERE T.Vlez <> 0 OR T.Izl_Distr <> 0 OR T.Vrat_Distr <> 0 OR T.Izl_FaktRep <> 0 OR T.Vrat_Fakt <> 0 OR T.Izl_Zap <> 0 OR T.Kalo <> 0 OR T.PocSost <> 0
    ORDER BY T.Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzanaplata]'))
drop procedure [dbo].[sp_izvzanaplata]

Go


CREATE          PROCEDURE sp_IzvZaNaplata
    @Sifra_Za Char(1) = '1',
    @Datum_Nal_Od Smalldatetime = NULL,
    @Datum_Nal_Do Smalldatetime = NULL,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @Sifra_Nal    Smallint = NULL,
    @Sifra_OE    Smallint = NULL,
    @Kto        Char(6) = NULL,
    @Sifra_Pat    varchar(300) = NULL,
    @Sifra_Kup_Od Char(6) = NULL,
    @Sifra_Kup_Do Char(6) = NULL,
    @TipKup    Varchar(11) = NULL,
    @Pod1        Smallint = NULL,
    @Pod2        Smallint = NULL,
    @Pod3        Smallint = NULL,
    @Pod4        Smallint = NULL,
    @Pod5        Smallint = NULL,
    @Sifra_Tip    Smallint = Null,
    @KFSifra_Kup_Od Char(1) = NULL,
    @KFTipKup    Char(1) = NULL,
    @KFPod1    Char(1) = NULL,
    @KFPod2    Char(1) = NULL,
    @KFPod3    Char(1) = NULL,
    @KFPod4    Char(1) = NULL,
    @KFPod5    Char(1) = NULL,
    @VratiPod    Char(1) = 'O',        --U-po Uplata, D-Detalno po zatvoranja, P-po Patnici, K-po Komint, O-po Organizacioni edinici,  I-Detalno po fakturi i zatvaranja, X-plateno pred/po rok+neplateno
    @KoiUpl    Char(1) = 'S',        --S-Site, N-samo Neplateni, P-samo PLATENI,      D - Delimicno plateni
    @KomercKako    char(1) = 'I',                -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PoDatDosp    Char(1) = 'N',        -- D - Po Datum na dospevanje,    N - Po Datum na dokument
    @KoiGradovi    varchar(200) = Null,
    @Fra_Uplata    char(1) = '2',        -- 1- Faktupa,    2 - Uplata
    @Sifra_Dok    smallint = Null,
    @Aneks1    char(1) = Null,        -- nesto specijalno za PKB
    @TolerKusok    decimal(12,2) = 0,    -- toleranten kusok (nesto specijalno za PKB)
    @Datum_Dosp_Od Smalldatetime = NULL,
    @Datum_Dosp_Do Smalldatetime = NULL,
    @KoiRegioni    Varchar(200) = Null,
    @ProcOdobr    decimal(6,2) = Null,    -- procent za odobrenie (uste nesto specijalno za PKB)
    @KomercOd    char(1) = 'U',        -- koga se gleda izvestajot po Uplati, od kade da go gleda komercijalistot     F - od Fakturata    U - od Uplatata
    @Sifra_Div    smallint = Null
AS
    Declare @SSQL        Varchar(4000)
    Declare @SSQLUsl    Varchar(4000)
    Declare @SSQLPat    Varchar(4000)

    CREATE TABLE #TmpUpl
(    AnID        int,
    Datum_Dok    smalldatetime,
    DolziU        decimal(18,6),
    PobaruvaU    decimal(18,6),
    AnID1        int NULL,
    AnID2        int NULL,
    PlatenDel    decimal(18,6) NULL,
    Datum_Fak    smalldatetime NULL,
    Rok        smallint NULL,
    Sifra_Pat    smallint,
    Sifra_Div    smallint,
    ProsPlakF    decimal(18,2) NULL,
    ProsPlakD    decimal(18,2) NULL,
    Sifra_nal    smallint,
    Broj_Nal    int
)
    If @VratiPod='I'
    Begin
        CREATE TABLE #TmpUpl2
        (
         AnID        int,
         Datum_Dok    smalldatetime,
         DolziU        decimal(18,6),
         PobaruvaU    decimal(18,6),
         AnID1        int NULL,
         AnID2        int NULL,
         PlatenDel    decimal(18,6) NULL,
         Datum_Fak    smalldatetime NULL,
         Rok        smallint NULL,
         Sifra_Pat    smallint,
          Sifra_Div    smallint,
         ProsPlakF    decimal(18,2) NULL,
         ProsPlakD    decimal(18,2) NULL,
         Sifra_nal    smallint,
         Broj_Nal    int
        )
    End

    Set @SSQLUsl = 'WHERE A.Dolzi+A.Pobaruva <> 0 '
    If @Sifra_Za=1
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=1 '
    Else If @Sifra_Za=2
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=2 '
    If @KoiUpl ='N'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_pobar) '
    Else If @KoiUpl ='P'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_pobar '
    Else If @KoiUpl ='D'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Plateno_Pobar+A.Plateno_Dolzi <> 0 and (Abs(A.Dolzi-A.Plateno_Dolzi) >= ' + cast(@TolerKusok as varchar(15)) + '
                        Or  Abs(A.Pobaruva-A.Plateno_Pobar) >= ' + cast(@TolerKusok as varchar(15)) + ' ) '
    If @KFSifra_Kup_Od Is Null
    Begin
        If @Sifra_Kup_Od Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
        If @Sifra_Kup_Do Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    End
    Else If @KFSifra_Kup_Od='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFTipKup Is Null
    Begin
        If @TipKup Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.TipKup=''' + @TipKup + ''' '
    End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.TipKup<>''' + @TipKup + ''' '
    If @KFPod1 Is Null
    Begin
        If @Pod1 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
    Begin
        If @Pod2 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
    Begin
        If @Pod3 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) +  ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
    Begin
        If @Pod4 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) +  ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
    Begin
        If @Pod5 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) +  ' Or K.KDrugo5 Is Null) '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND K.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @KoiGradovi Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Grad In (' + @KoiGradovi + ') '
    If @KoiRegioni Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Reg In (' + @KoiRegioni + ') '
    If @Datum_Dok_Od Is NOT Null
    Begin
        If @PoDatDosp = 'D'     -- filterot ne se koristi
            SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, A.Rok, A.Datum_Dok) >=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    Else
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    End
    If @Datum_Dok_Do Is NOT Null
    Begin
        If @PoDatDosp = 'D'    -- filterot ne se koristi
            SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    Else
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    End
    If @Datum_Nal_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + ' '
    If @Sifra_Nal Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Div Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(10)) + ' '
    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Aneks1 = 'D'
    Begin
        Set @SSQLUsl = @SSQLUsl + 'AND K.Aneks1 Is Not Null And K.Aneks1 <> '' '' And K.KojaCena In (2,5) '
        IF @KoiUpl='D'
            Set @SSQLUsl = @SSQLUsl + ' AND A.AnID Not In (Select AnID_Fak from StaOdobr) '
    End
    If @ProcOdobr Is Not Null And @ProcOdobr > 0
        Set @SSQLUsl = @SSQLUsl + ' And A.Dolzi > 0 And (A.Dolzi-A.Plateno_Dolzi)<=((Dolzi*' + Cast(@ProcOdobr as varchar(6)) + '/100)+ ' + Cast(@TolerKusok as varchar(6)) + ')
                        And AnId Not In (Select AnID_Fak From StaOdobr) '
    If @Fra_Uplata = '2' And @KomercOd = 'F'
    Begin
        Set @SSQLPat = ' '
    End
    Else
    Begin
        If @KomercKako = 'I'
            If @Sifra_Pat IS NOT NULL
                SET @SSQLPat = ' AND A.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
        If @KomercKako = 'T'
            If @Sifra_Pat IS NOT NULL
                SET @SSQLPat =  ' AND K.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
    End
    -------------------------------------------------------------
--    If @Sifra_Pat Is Not Null
--        Set @SSQLPat =  ' AND F.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
--    Else
--        Set @SSQLPat =  ' '

    Set @SSQL = 'SELECT A.AnID, A.Datum_Dok, A.Dolzi, A.Pobaruva, NULL AS AnID1,
    NULL AS AnID2, 0 AS PlatenDel, NULL AS Datum_Fak, A.Rok, NULL As Sifra_Pat, Null as Sifra_Div, 0 As ProsPlakF, 0 As ProsPlakD,
    Null as Sifra_Nal, Null as Broj_Nal
    FROM AnFinDok A
    INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
    INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ' + @Fra_Uplata + ' '
print @SSQL + @SSQLUsl + @SSQLPat
    INSERT INTO #TmpUpl EXEC (@SSQL + @SSQLUsl + @SSQLPat)

    Set @SSQLPat =' '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLPat = ' AND F.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLPat =  ' AND K.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
    Set @SSQL = 'SELECT A.AnID, A.Datum_Dok, 0 as Dolzi, 0 as Pobaruva, Z.AnID1,
    Z.AnID2, Z.Iznos, F.Datum_Dok as Datum_Fak, F.Rok as Rok, '
    If @KomercKako = 'I'
            SET @SSQL = @SSQL + ' F.Sifra_Pat, '
       If @KomercKako = 'T'
            SET @SSQL = @SSQL + ' K.Sifra_Pat, '
    Set @SSQL = @SSQL + ' F.Sifra_Div, NULL As ProsPlakF, NULL As ProsPlakD,
    A.Sifra_Nal, A.Broj_Nal
    FROM AnFinDok A
    INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
    INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ' + @Fra_Uplata + '
    RIGHT OUTER JOIN AnZatv Z ON A.AnID = Z.AnID1
    INNER JOIN AnFinDok F ON Z.AnID2 = F.AnID WHERE A.AnID IN (SELECT DISTINCT AnID FROM #TmpUpl)'
--print @SSQL + @SSQLPat
    If @VratiPod = 'I'
        INSERT INTO #TmpUpl2 EXEC (@SSQL + @SSQLPat)
    Else
        INSERT INTO #TmpUpl EXEC (@SSQL + @SSQLPat)

    Set @SSQL = 'SELECT A.AnID, A.Datum_Dok, 0 as Dolzi, 0 as Pobaruva, Z.AnID1,
    Z.AnID2, Z.Iznos, F.Datum_Dok as Datum_Fak, F.Rok as Rok, '
    If @KomercKako = 'I'
            SET @SSQL = @SSQL + ' F.Sifra_Pat, '
       If @KomercKako = 'T'
            SET @SSQL = @SSQL + ' K.Sifra_Pat, '
    Set @SSQL = @SSQL + ' F.Sifra_Div, NULL As ProsPlakF, NULL As ProsPlakD,
    A.Sifra_Nal, A.Broj_Nal
    FROM AnFinDok A
    INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
    INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ' + @Fra_Uplata + '
    RIGHT OUTER JOIN AnZatv Z ON A.AnID = Z.AnID2
    INNER JOIN AnFinDok F ON Z.AnID1 = F.AnID  WHERE A.AnID IN (SELECT DISTINCT AnID FROM #TmpUpl)'
print @SSQL + @SSQLPat
    If @VratiPod = 'I'
        INSERT INTO #TmpUpl2 EXEC (@SSQL + @SSQLPat)
    Else
        INSERT INTO #TmpUpl EXEC (@SSQL + @SSQLPat)

    UPDATE #TmpUpl SET ProsPlakF = PlatenDel * DateDiff(day, Datum_Fak, Datum_Dok) WHERE Datum_Fak IS NOT NULL
    UPDATE #TmpUpl SET ProsPlakD = PlatenDel * DateDiff(day, DateAdd (day, Rok, Datum_Fak), Datum_Dok) WHERE Datum_Fak IS NOT NULL
    IF @VratiPod = 'D' OR @VratiPod = 'X'
    Begin
        UPDATE #TmpUpl SET ProsPlakF =  DateDiff(day, Datum_Fak, Datum_Dok) WHERE Datum_Fak IS NOT NULL
        UPDATE #TmpUpl SET ProsPlakD =  DateDiff(day, DateAdd (day, Rok, Datum_Fak), Datum_Dok) WHERE Datum_Fak IS NOT NULL
    End

    IF @VratiPod = 'D'
        Select U.Datum_Dok, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Sifra_Kup as Sifra, K.ImeKup As Ime,
        U.DolziU as Dolzi, U.PobaruvaU as Pobaruva, U.PlatenDel As PlatenDel,
        U.ProsPLakF as ProsPlakF, U.ProsPlakD as ProsPlakD,
        AU.Sifra_Oe as Sifra_OeU, AU.Sifra_Dok as Sifra_DokU, AU.Broj_Dok as Broj_DokU, AU.BrojDok as BrojDokU, AU.Datum_Dok as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal, U.Rok, U.Datum_Fak, DateAdd(Day, U.Rok, U.Datum_Fak) Datum_FakDosp
        FROM #TmpUpl U
        INNER JOIN AnFinDok A ON A.AnID = U.AnID
        Left Outer JOIN AnFinDok AU ON ((AU.AnID=U.AnID1 AND U.AnID1<>U.AnID) Or (AU.AnID=U.AnID2 AND U.AnID2<>U.AnID))
        INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
        ORDER BY A.Sifra_Kup, U.AnID
    Else IF @VratiPod = 'U'
        Select U.Datum_Dok, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Sifra_Kup as Sifra, K.ImeKup As Ime,
        SUM(U.DolziU) as Dolzi, SUM(U.PobaruvaU) as Pobaruva, SUM(U.PlatenDel) As PlatenDel,
        Round(SUM(U.ProsPLakF) / SUM(U.DolziU+U.PobaruvaU),4)  as ProsPlakF,
        Round(SUM(U.ProsPlakD) / SUM(U.DolziU+U.PobaruvaU),4)  as ProsPlakD,
        Null as Sifra_OeU, Null as Sifra_DokU, Null as Broj_DokU, Null as BrojDokU, Null as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal, Null as Rok
        FROM #TmpUpl U
        INNER JOIN AnFinDok A ON A.AnID = U.AnID
        INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
        GROUP BY U.Datum_Dok, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Sifra_Kup, K.ImeKup
        HAVING SUM(U.DolziU+U.PobaruvaU) <> 0
    ELSE IF @VratiPod = 'P'
        Select NULL AS Datum_Dok, 0 AS Sifra_OE, 0 AS Sifra_Dok, 0 AS Broj_Dok, '' AS BrojDok, U.Sifra_Pat As Sifra, P.ImePat As Ime,
        SUM(U.DolziU)  as Dolzi, SUM(U.PobaruvaU) as Pobaruva, SUM(U.PlatenDel) As PlatenDel,
        SUM(U.ProsPLakF) / SUM(U.PlatenDel) as ProsPlakF,
        SUM(U.ProsPlakD) / SUM(U.PlatenDel) as ProsPlakD,
        Null as Sifra_OeU, Null as Sifra_DokU, Null as Broj_DokU, Null as BrojDokU, Null as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal, Null as Rok
        FROM #TmpUpl U
        Left Outer JOIN Patnici P ON U.Sifra_Pat = P.Sifra_Pat
        GROUP BY U.Sifra_Pat, P.ImePat
        HAVING SUM(U.PlatenDel) <> 0
    ELSE IF @VratiPod = 'V'
        Select NULL AS Datum_Dok, 0 AS Sifra_OE, 0 AS Sifra_Dok, 0 AS Broj_Dok, '' AS BrojDok, U.Sifra_Div As Sifra, D.ImeDiv As Ime,
        SUM(U.DolziU)  as Dolzi, SUM(U.PobaruvaU) as Pobaruva, SUM(U.PlatenDel) As PlatenDel,
        SUM(U.ProsPLakF) / SUM(U.PlatenDel) as ProsPlakF,
        SUM(U.ProsPlakD) / SUM(U.PlatenDel) as ProsPlakD,
        Null as Sifra_OeU, Null as Sifra_DokU, Null as Broj_DokU, Null as BrojDokU, Null as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal, Null as Rok
        FROM #TmpUpl U
        Left Outer JOIN Divizii D ON U.Sifra_Div = D.Sifra_Div
        GROUP BY U.Sifra_Div, D.ImeDiv
        HAVING SUM(U.PlatenDel) <> 0
    ELSE IF @VratiPod = 'K'        Select NULL AS Datum_Dok, 0 AS Sifra_OE, 0 AS Sifra_Dok, 0 AS Broj_Dok, '' AS BrojDok, A.Sifra_Kup as Sifra, K.ImeKup As Ime,
        SUM(U.DolziU) as Dolzi, SUM(U.PobaruvaU) as Pobaruva, SUM(U.PlatenDel) As PlatenDel,
        SUM(U.ProsPLakF) / SUM(U.DolziU+U.PobaruvaU)  as ProsPlakF,
        SUM(U.ProsPlakD) / SUM(U.DolziU+U.PobaruvaU)  as ProsPlakD,
        Null as Sifra_OeU, Null as Sifra_DokU, Null as Broj_DokU, Null as BrojDokU, Null as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal
        FROM #TmpUpl U
        INNER JOIN AnFinDok A ON A.AnID = U.AnID
        INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
        GROUP BY A.Sifra_Kup, K.ImeKup
        HAVING SUM(U.DolziU+U.PobaruvaU) <> 0
    ELSE IF @VratiPod = 'O'
    Begin
    CREATE TABLE #TmpUpl1
(    Sifra_OeF    smallint,
    Sifra_DokF    smallint,
    Broj_DokF    int,
    AnIDF        int,
    PlatenDel    decimal(18,6),
    IznosUpl    decimal(18,6),
    Sifra_OEU    smallint,
    Sifra_DokU    smallint,
    Broj_DokU    int,
    AnIDU        int,
    ProsPlakF    decimal(18,2) NULL,
    ProsPlakD    decimal(18,2) NULL
)
    INSERT INTO #TmpUpl1 (AnIDF, AnIDU, PlatenDel, IznosUpl, ProsPlakF, ProsPlakD) SELECT AnId1, AnID2, Platendel, PLatenDel, ProsPlakF, ProsPlakD
    FROM #TmpUpl WHERE AnID2 = AnID AND AnID1 IS NOT NULL
    INSERT INTO #TmpUpl1 (AnIDF, AnIDU, PlatenDel, IznosUpl, ProsPlakF, ProsPlakD) SELECT AnId2, AnID1, Platendel, PLatenDel, ProsPlakF, ProsPlakD
    FROM #TmpUpl WHERE AnID1 = AnID AND AnID2 IS NOT NULL
    CREATE TABLE #TmpPlUpl
(    AnIDU        int,
    PlatenDel    decimal(18,6)
)
    INSERT INTO #TmpPlUpl (AnIDU, PlatenDel) SELECT AnIDU, SUM(PlatenDel) FROM #TmpUpl1 GROUP BY AnIDU
    UPDATE #TmpUpl SET PlatenDel = U.PlatenDel FROM #TmpPlUpl U WHERE #TmpUpl.AnID=U.AnIDU AND #TmpUpl.AnID1 IS NULL  AND #TmpUpl.AnID2 IS NULL
    INSERT INTO #TmpUpl1 (AnIDU, PlatenDel, IznosUpl ) SELECT AnID, 0, PobaruvaU- PlatenDel FROM #TmpUpl
    WHERE PobaruvaU <> PlatenDel AND AnID1 IS NULL AND AnID2 IS NULL
--select * from #TmpUpl
        Select A.Datum_Dok, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, F.Sifra_Oe as Sifra, O.ImeOrg As Ime,
        0 as Dolzi, SUM(U.IznosUpl) as Pobaruva, SUM(U.PlatenDel) As PlatenDel,
        SUM(U.ProsPLakF) / SUM(U.IznosUpl)  as ProsPlakF,
        SUM(U.ProsPlakD) / SUM(U.IznosUpl)  as ProsPlakD,
        F.Sifra_OE as Sifra_OeU, F.Sifra_Dok as Sifra_DokU, F.Broj_Dok as Broj_DokU, Null as BrojDokU, Null as Datum_DokU,
        Null as Sifra_Nal, Null as Broj_Nal, Null as Rok
        FROM #TmpUpl1 U
        LEFT OUTER JOIN AnFinDok A ON A.AnID = U.AnIDU
        LEFT OUTER JOIN AnFinDok F ON F.AnID = U.AnIDF
        Left Outer Join Orged O On O.Sifra_Oe = F.Sifra_Oe
        GROUP BY A.Datum_Dok, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, F.Sifra_Oe, O.ImeOrg, F.Sifra_Dok, F.Broj_Dok
--        HAVING SUM(U.DolziU+U.PobaruvaU) <> 0
    End
    Else IF @VratiPod = 'I'
    Begin
        Select A.Datum_Dok, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Sifra_Kup as Sifra, K.ImeKup As Ime,
        U.DolziU as Dolzi, U.PobaruvaU as Pobaruva, U2.PlatenDel As PlatenDel,
        U.ProsPLakF as ProsPlakF, U.ProsPlakD as ProsPlakD,
        AU.Sifra_Oe as Sifra_OeU, AU.Sifra_Dok as Sifra_DokU, AU.Broj_Dok as Broj_DokU, AU.BrojDok as BrojDokU, AU.Datum_Dok as Datum_DokU,
        AU.Sifra_Nal, AU.Broj_Nal, U.Rok
        FROM #TmpUpl U
        LEFT OUTER JOIN #TmpUpl2 U2 ON U.AnID = U2.AnID
        INNER JOIN AnFinDok A ON A.AnID = U.AnID
        Left Outer JOIN AnFinDok AU ON ((AU.AnID=U2.AnID1 AND U2.AnID1<>U2.AnID) Or (AU.AnID=U2.AnID2 AND U2.AnID2<>U2.AnID))
        INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
        ORDER BY U.Datum_Dok, U.AnID, AU.Datum_Dok    --A.Sifra_Kup, U.AnID
    End
    Else IF @VratiPod = 'X'  --dod.privremeno Podr.,dobro e da se prosiri
    Begin
        Select SUM(U.DolziU) as Dolzi, SUM(U.PlatenDel) As PlatenDelVoRok, 0 as PlantenVonRok
        FROM #TmpUpl U
        Left Outer JOIN AnFinDok AU ON ((AU.AnID=U.AnID1 AND U.AnID1<>U.AnID) Or (AU.AnID=U.AnID2 AND U.AnID2<>U.AnID))
        WHERE AU.Datum_Dok IS NOT NULL AND DateAdd(day, U.Rok, U.Datum_Dok) >= AU.Datum_Dok
        UNION
        Select SUM(U.DolziU) as Dolzi, 0 As PlatenDelVoRok, SUM(U.PlatenDel) as PlantenVonRok
        FROM #TmpUpl U
        Left Outer JOIN AnFinDok AU ON ((AU.AnID=U.AnID1 AND U.AnID1<>U.AnID) Or (AU.AnID=U.AnID2 AND U.AnID2<>U.AnID))
        WHERE AU.Datum_Dok IS NOT NULL AND DateAdd(day, U.Rok, U.Datum_Dok) < AU.Datum_Dok
        UNION
        Select SUM(U.DolziU) as Dolzi, 0 As PlatenDelVoRok, 0 as PlantenVonRok
        FROM #TmpUpl U
        Left Outer JOIN AnFinDok AU ON ((AU.AnID=U.AnID1 AND U.AnID1<>U.AnID) Or (AU.AnID=U.AnID2 AND U.AnID2<>U.AnID))
        WHERE AU.Datum_Dok IS NULL
    End

/*
        Else IF @VratiPod = 'M'
            Select U.Datum_Dok, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Sifra_Oe as Sifra, O.ImeOrg As Ime,
            U.DolziU as Dolzi, U.PobaruvaU as Pobaruva, U.PlatenDel As PlatenDel,
            U.ProsPLakF as ProsPlakF, U.ProsPlakD as ProsPlakD,
            AU.Sifra_Oe as Sifra_OeU, AU.Sifra_Dok as Sifra_DokU, AU.Broj_Dok as Broj_DokU, AU.BrojDok as BrojDokU, AU.Datum_Dok as Datum_DokU
            FROM #TmpUpl U
            INNER JOIN AnFinDok A ON A.AnID = U.AnID
            Left Outer JOIN AnFinDok AU ON ((AU.AnID = U.AnID2) Or ( AU.AnID = U.AnID2))
            Left Outer JOIN Orged O ON O.Sifra_Oe = A.Sifra_Oe
            ORDER BY A.Sifra_Kup, U.AnID
*/

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzanaplata_ednost]'))
drop procedure [dbo].[sp_izvzanaplata_ednost]

Go


create  PROCEDURE sp_IzvZaNaplata_Ednost
    @Sifra_Za Char(1) = '1',
    @Datum_Nal_Od Smalldatetime = NULL,
    @Datum_Nal_Do Smalldatetime = NULL,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @Sifra_Nal    Smallint = NULL,
    @Sifra_OE    Smallint = NULL,
    @Kto        Char(6) = NULL,
    @Sifra_Pat    Smallint = NULL,
    @Sifra_Kup_Od Char(6) = NULL,
    @Sifra_Kup_Do Char(6) = NULL,
    @TipKup    Varchar(11) = NULL,
    @Pod1        Smallint = NULL,
    @Pod2        Smallint = NULL,
    @Pod3        Smallint = NULL,
    @Pod4        Smallint = NULL,
    @Pod5        Smallint = NULL,
    @Sifra_Tip    Smallint = Null,
    @KFSifra_Kup_Od Char(1) = NULL,
    @KFTipKup    Char(1) = NULL,
    @KFPod1    Char(1) = NULL,
    @KFPod2    Char(1) = NULL,
    @KFPod3    Char(1) = NULL,
    @KFPod4    Char(1) = NULL,
    @KFPod5    Char(1) = NULL,
    @KomercKako    char(1) = 'I',                -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @KoiGradovi    varchar(200) = Null,
    @KoiRegioni    Varchar(200) = Null,
    @Sifra_Div    smallint = Null,
    @RekapPo    char (1) = 'N'
AS
    Declare @SSQL        Varchar(4000)
    Declare @SSQLUsl    Varchar(4000)
    Declare @SSQLPat    Varchar(400)
    Declare @SSQLGroup    Varchar(400)
    Set @SSQLUsl = ' WHERE 1=1 '
    If @Sifra_Za=1
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=''1'' '
    Else
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=''2'' '
    If @KFSifra_Kup_Od Is Null
    Begin
        If @Sifra_Kup_Od Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
        If @Sifra_Kup_Do Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    End
    Else If @KFSifra_Kup_Od='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFTipKup Is Null
    Begin
        If @TipKup Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.TipKup=''' + @TipKup + ''' '
    End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.TipKup<>''' + @TipKup + ''' '
    If @KFPod1 Is Null
    Begin
        If @Pod1 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
    Begin
        If @Pod2 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
    Begin
        If @Pod3 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) +  ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
    Begin
        If @Pod4 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) +  ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
    Begin
        If @Pod5 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) +  ' Or K.KDrugo5 Is Null) '
    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND K.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @KoiGradovi Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Grad In (' + @KoiGradovi + ') '
    If @KoiRegioni Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Reg In (' + @KoiRegioni + ') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Nal Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Div Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(10)) + ' '
    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Kto=' + Cast(@Kto As Varchar(6)) + ' '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLPat = ' AND A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            SET @SSQLPat =  ' '
    else
        If @Sifra_Pat IS NOT NULL
            SET @SSQLPat =  ' AND K.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            SET @SSQLPat =  ' '
    if @RekapPo = 'P'    -- Po patnici
      begin
          Set @SSQL = 'SELECT sum(A.Pobaruva) sPobaruva, sum(A.Dolzi) sDolzi, A.Sifra_Pat, P.ImePat
            FROM AnFinDok A
          left outer JOIN Patnici P ON A.Sifra_Pat=P.Sifra_Pat '
          set @SSQLGroup = ' group by A.Sifra_Pat, P.ImePat '
      end
    else if @RekapPo = 'O'    -- Po org.edinici
      begin
          Set @SSQL = 'SELECT sum(A.Pobaruva) sPobaruva, sum(A.Dolzi) sDolzi, A.Sifra_Oe, O.ImeOrg
            FROM AnFinDok A
          inner JOIN OrgEd O ON A.Sifra_Oe=O.Sifra_Oe '
          set @SSQLGroup = ' group by A.Sifra_Oe, O.ImeOrg '
      end
    else            -- Detalno po dokumenti
      begin
          Set @SSQL = 'SELECT A.Datum_Dok, A.Dolzi, A.Pobaruva, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, A.Kto,
                A.Sifra_Pat, P.Sifra_Pat, A.Sifra_Kup, K.ImeKup, A.Datum_Dok, P.ImePat, O.ImeOrg, A.SIfra_Za
            FROM AnFinDok A
          INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
          INNER JOIN OrgEd O ON A.Sifra_Oe = O.Sifra_Oe
          left outer JOIN Patnici P ON A.Sifra_Pat=P.Sifra_Pat '
          set @SSQLGroup = ' '
      end
    EXEC (@SSQL + @SSQLUsl + @SSQLPat + @SSQLGroup )




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzanaplata_eos]'))
drop procedure [dbo].[sp_izvzanaplata_eos]

Go

CREATE         PROCEDURE sp_IzvZaNaplata_EOS
    @Sifra_Za Char(1) = '1',
    @Datum_Nal_Od Smalldatetime = NULL,
    @Datum_Nal_Do Smalldatetime = NULL,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @Sifra_Nal    Smallint = NULL,
    @Sifra_OE    Smallint = NULL,
    @Kto        Char(6) = NULL,
    @Sifra_Pat    varchar(300) = NULL,
    @Sifra_Kup_Od Char(6) = NULL,
    @Sifra_Kup_Do Char(6) = NULL,
    @TipKup    Varchar(11) = NULL,
    @Pod1        Smallint = NULL,
    @Pod2        Smallint = NULL,
    @Pod3        Smallint = NULL,
    @Pod4        Smallint = NULL,
    @Pod5        Smallint = NULL,
    @Sifra_Tip    Smallint = Null,
    @KFSifra_Kup_Od Char(1) = NULL,
    @KFTipKup    Char(1) = NULL,
    @KFPod1    Char(1) = NULL,
    @KFPod2    Char(1) = NULL,
    @KFPod3    Char(1) = NULL,
    @KFPod4    Char(1) = NULL,
    @KFPod5    Char(1) = NULL,
    @KoiUpl    Char(1) = 'S',        --S-Site, N-samo Neplateni, P-samo PLATENI,      D - Delimicno plateni
    @KomercKako    char(1) = 'I',                -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @KoiGradovi    varchar(200) = Null,
    @KoiRegioni    Varchar(200) = Null,
    @Fra_Uplata    char(1) = '2',        -- 1- Faktupa,    2 - Uplata
    @Sifra_Dok    smallint = Null,
--    @KomercOd    char(1) = 'U',        -- koga se gleda izvestajot po Uplati, od kade da go gleda komercijalistot     F - od Fakturata    U - od Uplatata
    @Sifra_Div    smallint = Null,
    @TolerKusok    decimal(18,6) = 1,
    @Datum_Dosp_Od    smalldatetime = Null,
    @Datum_Dosp_Do    smalldatetime = Null
AS
    Declare @SSQL        Varchar(4000)
    Declare @SSQLUsl    Varchar(4000)
    Declare @SSQLPat    Varchar(4000)


    Set @SSQLUsl = 'WHERE A.Dolzi+A.Pobaruva <> 0 '
    If @Sifra_Za=1
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=1 '
    Else If @Sifra_Za=2
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=2 '
    If @KoiUpl ='N'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_pobar) '
    Else If @KoiUpl ='P'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_pobar '
    Else If @KoiUpl ='D'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Plateno_Pobar+A.Plateno_Dolzi <> 0 and (Abs(A.Dolzi-A.Plateno_Dolzi) >= ' + cast(@TolerKusok as varchar(15)) + '
                        Or  Abs(A.Pobaruva-A.Plateno_Pobar) >= ' + cast(@TolerKusok as varchar(15)) + ' ) '
    If @KFSifra_Kup_Od Is Null
    Begin
        If @Sifra_Kup_Od Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
        If @Sifra_Kup_Do Is NOT Null
            SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    End
    Else If @KFSifra_Kup_Od='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFTipKup Is Null
    Begin
        If @TipKup Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.TipKup=''' + @TipKup + ''' '
    End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.TipKup<>''' + @TipKup + ''' '

    If @KFPod1 Is Null
    Begin
        If @Pod1 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
    Begin
        If @Pod2 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
    Begin
        If @Pod3 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) +  ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
    Begin
        If @Pod4 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) +  ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
    Begin
        If @Pod5 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And (K.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) +  ' Or K.KDrugo5 Is Null) '

    If @Sifra_Tip Is Not Null
        SET @SSQLUsl = @SSQLUsl +' AND K.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @KoiGradovi Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Grad In (' + @KoiGradovi + ') '
    If @KoiRegioni Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Reg In (' + @KoiRegioni + ') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + ' '
    If @Sifra_Nal Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Div Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(10)) + ' '
    If @Kto Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '

--    If @Fra_Uplata = '2' And @KomercOd = 'F'
--    Begin
--        Set @SSQLPat = ' '
--    End
--    Else
--    Begin
        If @KomercKako = 'I'
            If @Sifra_Pat IS NOT NULL
                SET @SSQLPat = ' AND A.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
        If @KomercKako = 'T'
            If @Sifra_Pat IS NOT NULL
                SET @SSQLPat =  ' AND K.Sifra_Pat In (' + @Sifra_Pat + ') '
        Else
            SET @SSQLPat =  ' '
--    End

    CREATE TABLE #TmpUpl
    (    AnID        int,
        Datum_Dok    smalldatetime,
        Sifra_Kup    varchar(6),
        DolziU        decimal(18,6),
        PobaruvaU    decimal(18,6),
        AnID1        int NULL,
        AnID2        int NULL,
        PlatenDel    decimal(18,6) NULL,
        Datum_Fak    smalldatetime NULL,
        Rok        smallint NULL
    )
    Set @SSQL = ' SELECT A.AnID, A.Datum_Dok, A.Sifra_Kup, A.Dolzi, A.Pobaruva, NULL AS AnID1,
            NULL AS AnID2, 0 AS PlatenDel, NULL AS Datum_Fak, A.Rok
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
        INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok=' + @Fra_Uplata + ' '
    print @SSQL + @SSQLUsl + @SSQLPat
    INSERT INTO #TmpUpl EXEC (@SSQL + @SSQLUsl + @SSQLPat)


    Set @SSQL = ' Select U.AnID, U.Sifra_Kup, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, U.PobaruvaU Uplata, Z.Iznos IznosZatv, F.Dolzi,
            F.Plateno_Dolzi, (F.Dolzi-F.Plateno_Dolzi) Ostatok, U.Datum_Dok, GetDate() Datum_Export
        From #tmpUpl U
        Inner Join AnZatv Z On Z.Anid1=U.Anid
        Inner Join AnFinDok F On F.Anid=Z.Anid2 '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok + F.Rok >= ''' + Cast(@Datum_Dosp_Od as varchar(30)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok + F.Rok <= ''' + Cast(@Datum_Dosp_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Union
        Select U.AnID, U.Sifra_Kup, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, U.PobaruvaU Uplata, Z.Iznos IznosZatv, F.Dolzi,
            F.Plateno_Dolzi, (F.Dolzi-F.Plateno_Dolzi) Ostatok, U.Datum_Dok, GetDate() Datum_Export
        From #tmpUpl U
        Inner Join AnZatv Z On Z.Anid2=U.Anid
        Inner Join AnFinDok F On F.Anid=Z.Anid1 '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok + F.Rok >= ''' + Cast(@Datum_Dosp_Od as varchar(30)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Dok + F.Rok <= ''' + Cast(@Datum_Dosp_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order By U.Anid '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_izvzatrospatnik]'))
drop procedure [dbo].[sp_izvzatrospatnik]

Go


CREATE      PROCEDURE [dbo].[sp_IzvZaTrosPatnik]
    @Sifra_Oe        Smallint= Null,
    @Koi_Oe        Varchar(300) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @Sifra_Div        smallint = NULL,
    @Sifra_1K  smallint= null,
    @Sifra_2K smallint = null,
    @Sifra_3K smallint = null,
    @Sifra_4K smallint = null,
    @Sifra_5K smallint = null,
    @Sifra_6K smallint = null,
    @Sifra_7K smallint = null,
    @KFPod1 Char(1) = Null,
    @KFPod2 Char(1) = Null,
    @KFPod3 Char(1) = Null,
    @KFPod4 Char(1) = Null,
    @KFPod5 Char(1) = Null,
    @KFPod6 char(1)= null,
    @KFPod7 char(1)= null,
    @GrKup  varchar(500)= null,
    @GrArt varchar(500)= null
 AS
    Declare @SSQL as varchar(4000)
    Create Table #Tab1
    (
     Sifra_Oe     smallint,
     Naplatil        decimal(18,6),
     Trosok        decimal(18,6),
     Fakturiral    decimal(18,6)
    )
------------------------------------------------------------------
    If @GrKup Is Not Null
    Begin
    Create    Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                    Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj
                    Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End
-------------------------------------------------------------------------
--select top 100 * from anal where dalikupuv ='K'

    Set @SSQL = ' Select A.Sifra_Oe, Sum(A.Pobaruva), 0, 0 From AnFinDok A
                Left Outer join Komint K on A.Sifra_Kup=K.Sifra_Kup
                Inner Join Anal AK On AK.Kto_Anal = A.Kto
                Where AK.DaliKupuv=''K''
                And A.Kto Not Like ''22%'' ' -- Alma 11.05.2011

    If @Sifra_Oe Is not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_Oe Is not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe In (' + @Koi_Oe + ') '
    If @Datum_Dok_Od Is not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
    IF @Sifra_Div IS NOT NULL
        Set @SSQL = @SSQL + 'And A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(5)) + ' '
    If @KFPod1 Is Null
        Begin
            If @Sifra_1K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Sifra_1K As Varchar(6)) + ' '
        End
    Else If @KFPod1='D' And @Sifra_1K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Sifra_1K As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
        Begin
            If @Sifra_2K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo2=' + Cast(@Sifra_2K As Varchar(6)) + ' '
        End
    Else If @KFPod2='D' And @Sifra_2K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo2<>' + Cast(@Sifra_2K As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
        Begin
            If @Sifra_3K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo3=' + Cast(@Sifra_3K As Varchar(6)) + ' '
        End
    Else If @KFPod3='D' And @Sifra_3K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo3<>' + Cast(@Sifra_3K As Varchar(6)) + ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
        Begin
            If @Sifra_4K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo4=' + Cast(@Sifra_4K As Varchar(6)) + ' '
        End
    Else If @KFPod4='D' And @Sifra_4K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo4<>' + Cast(@Sifra_4K As Varchar(6)) + ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
        Begin
            If @Sifra_5K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo5=' + Cast(@Sifra_5K As Varchar(6)) + ' '
        End
    Else If @KFPod5='D' And @Sifra_5K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo5<>' + Cast(@Sifra_5K As Varchar(6)) + ' Or K.KDrugo5 Is Null) '
    If @KFPod6 Is Null
        Begin
            If @Sifra_6K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo6=' + Cast(@Sifra_6K As Varchar(6)) + ' '
        End
    Else If @KFPod6='D' And @Sifra_6K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo6<>' + Cast(@Sifra_6K As Varchar(6)) + ' Or K.KDrugo6 Is Null) '
    If @KFPod7 Is Null
        Begin
            If @Sifra_7K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo7=' + Cast(@Sifra_7K As Varchar(6)) + ' '
        End
    Else If @KFPod7='D' And @Sifra_7K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo7<>' + Cast(@Sifra_7K As Varchar(6)) + ' Or K.KDrugo7 Is Null) '
    Set @SSQL = @SSQL + ' Group By A.Sifra_Oe '
    Insert Into #Tab1 Exec(@SSQL)

    Set @SSQL = ' Select T.Sifra_Oe, 0, Sum(T.Iznos), 0
            From TrosPatn T
            Where 1=1'
    If @Sifra_Oe Is not Null
        Set @SSQL = @SSQL + ' And T.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_Oe Is not Null
        Set @SSQL = @SSQL + ' And T.Sifra_Oe In (' + @Koi_Oe + ') '
    If @Datum_Dok_Od Is not Null
        Set @SSQL = @SSQL + ' And T.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is not Null
        Set @SSQL = @SSQL + ' And T.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '

    Set @SSQL = @SSQL + ' Group By T.Sifra_Oe '
    Insert Into #Tab1 Exec(@SSQL)

    Set @SSQL = ' Select D.Sifra_Oe, 0, 0, Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Krajna
            From Dokr D
            Inner Join Stavr S On S.DokrId=D.DokrId
                    Inner Join Komint K on K.Sifra_Kup=D.Sifra_Kup '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
        Set @SSQL = @SSQL + '    Where D.Sifra_za=1 and D.VlIzl=''I'' '
    If @Sifra_Oe Is not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_Oe Is not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe In (' + @Koi_Oe + ') '
    If @Datum_Dok_Od Is not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
    IF @Sifra_Div IS NOT NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Div=' + Cast(@Sifra_Div As Varchar(5)) + ' '
    If @KFPod1 Is Null
        Begin
            If @Sifra_1K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Sifra_1K As Varchar(6)) + ' '
        End
    Else If @KFPod1='D' And @Sifra_1K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Sifra_1K As Varchar(6)) + ' Or K.KDrugo1 Is Null) '
    If @KFPod2 Is Null
        Begin
            If @Sifra_2K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo2=' + Cast(@Sifra_2K As Varchar(6)) + ' '
        End
    Else If @KFPod2='D' And @Sifra_2K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo2<>' + Cast(@Sifra_2K As Varchar(6)) + ' Or K.KDrugo2 Is Null) '
    If @KFPod3 Is Null
        Begin
            If @Sifra_3K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo3=' + Cast(@Sifra_3K As Varchar(6)) + ' '
        End
    Else If @KFPod3='D' And @Sifra_3K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo3<>' + Cast(@Sifra_3K As Varchar(6)) + ' Or K.KDrugo3 Is Null) '
    If @KFPod4 Is Null
        Begin
            If @Sifra_4K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo4=' + Cast(@Sifra_4K As Varchar(6)) + ' '
        End
    Else If @KFPod4='D' And @Sifra_4K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo4<>' + Cast(@Sifra_4K As Varchar(6)) + ' Or K.KDrugo4 Is Null) '
    If @KFPod5 Is Null
        Begin
            If @Sifra_5K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo5=' + Cast(@Sifra_5K As Varchar(6)) + ' '
        End
    Else If @KFPod5='D' And @Sifra_5K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo5<>' + Cast(@Sifra_5K As Varchar(6)) + ' Or K.KDrugo5 Is Null) '
    If @KFPod6 Is Null
        Begin
            If @Sifra_6K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo6=' + Cast(@Sifra_6K As Varchar(6)) + ' '
        End
    Else If @KFPod6='D' And @Sifra_6K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo6<>' + Cast(@Sifra_6K As Varchar(6)) + ' Or K.KDrugo6 Is Null) '
    If @KFPod7 Is Null
        Begin
            If @Sifra_7K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo7=' + Cast(@Sifra_7K As Varchar(6)) + ' '
        End
    Else If @KFPod7='D' And @Sifra_7K Is Not Null
        Set @SSQL = @SSQL + 'And (K.KDrugo7<>' + Cast(@Sifra_7K As Varchar(6)) + ' Or K.KDrugo7 Is Null) '

    Set @SSQL = @SSQL + ' Group By D.Sifra_Oe '
    Insert Into #Tab1 Exec(@SSQL)

    Select  T.Sifra_Oe, O.ImeOrg, Sum(T.Naplatil) Naplatil, Sum(T.Trosok) Trosok, Sum(Fakturiral) Fakturiral
    From #Tab1 T
    Inner Join Orged O On O.Sifra_Oe = T.Sifra_Oe
    Group By  T.Sifra_Oe, O.ImeOrg











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kalknivelacija]'))
drop procedure [dbo].[sp_kalknivelacija]

Go

CREATE PROCEDURE sp_KalkNivelacija
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int

AS

    select S.Sifra_oe, S.SifrA_Dok, S.Broj_Dok, D.Identif_Br, D.Ispratnica, S.Datum_dok,
           S.SIfra_Art, K.EdMera, K.ImeArt, S.pTar, S.DOkCena, S.MagCena,
           S.DanDokCena, S.DanMagCena, S.Posn, S.PosnPren, S.Alt_Kolic, S.Rbr
           FROM Stavr S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    INNER JOIN DOKR D on S.DokrId = D.DokrId
    where S.SIfra_oe = @SIfrA_oe and S.Sifra_Dok = @Sifra_Dok and S.Broj_Dok = @Broj_Dok
    order By S.Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_karakteristiki_artikli]'))
drop procedure [dbo].[sp_karakteristiki_artikli]

Go


CREATE    PROCEDURE sp_Karakteristiki_Artikli
    @Sifra_Art    varchar(300)

AS

    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select A.Sifra_Art, A.ImeArt, A.Drugo7, K7.Ime_7,
            TK.Rbr, TK.Sifra_Karakt,
            K.ImeKarakt, K.SkrOzn, K.MaxDec, K.DefVredn
        From Katart A
        Inner Join Drugo7 K7 On Drugo7 = Sifra_7
        Inner Join TipKarakt TK ON TK.SIfra_7 = K7.Sifra_7
        Inner Join  Karakterist K On K.Sifra_Karakt = TK.Sifra_Karakt
        Where A.Sifra_Art In (' + @Sifra_Art + ')
        Order by TK.Sifra_Karakt '


    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_ambalaza]'))
drop procedure [dbo].[sp_kart_ambalaza]

Go
CREATE PROCEDURE sp_Kart_Ambalaza
    @KupDob    char(1) = 'K',
    @Sifra_Kup    char(6),
    @Sifra_Amb    char(6),        -- Mora da se vnese  Sifra_Amb
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Povratna    char(1) = 'D',
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(20) = Null,
    @Amb_GAmb    char(1) = 'A',
    @Sifra_Obj    Smallint = Null,
    @PrethZadolz    decimal(18,6) = Null Output,
    @PrethRazdolz    decimal(18,6) = Null Output,
    @VoGAmb    decimal(18,6) = Null Output
AS
    Declare @SSQL as varchar(8000)
-- Za vo izvestajot da se presmeta kolicina na zbirna ambalaza
    Set @VoGamb=(Select VoGamb From KatAmb Where Sifra_Amb=@Sifra_Amb)
    If @VoGamb=0 Or @VoGamb Is Null
        Set @VoGamb=1
---------------------------------------------------------------------------------- PRETHODNA SOSTOJBA --------------------------------------------------------------------------------
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
    If @Datum_Od Is Not Null
    Begin
        Create Table #Preth
        (
         Zadolzenie    decimal(18,6),
         Razdolzenie    decimal(18,6)
        )
        Set @SSQL = 'Select
                SUM((Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)),
                SUM((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End))
                From Dokr D
                Inner Join Stavr S On S.DokrId=D.DokrID
                Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                Where K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
        If @KupDob = 'K'
            Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' '
        Else If @KupDob = 'D'
            Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
        If @Povratna = 'D'
            Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
        If @Koi_OE Is Not NULL
                 Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
        Insert Into #Preth Exec(@SSQL)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
        Set @SSQL = 'Select
                SUM((Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End)),
                SUM((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End))
                From Dokr D
                Inner Join StaAmbal S On S.DokrId=D.DokrID
                Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                Where S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
        If @KupDob = 'K'
            Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' '
        Else If @KupDob = 'D'
            Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
        If @Povratna = 'D'
            Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
        If @Koi_OE Is Not NULL
                 Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
        If @Amb_GAmb = 'G' -- Gajbi
            Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''G'') '
        Else -- If @Amb_GAmb = 'A' -- Sisinja
            Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''N'') '
        Insert Into #Preth Exec(@SSQL)
        /*If @Amb_GAmb = 'G'
            Select @PrethZAdolz=Round(Sum(Case When (@VoGAmb Is Null Or @VoGAmb = 0) Then Zadolzenie Else (Zadolzenie/@VoGAmb) End), 4),
                @PrethRazdolz=Abs(Round(Sum(Case When (@VoGAmb Is Null Or @VoGAmb = 0) Then Razdolzenie Else (Razdolzenie/@VoGAmb) End), 4))
            From #Preth
        Else */
        Select @PrethZAdolz=Sum(Zadolzenie), @PrethRazdolz=Abs(Sum(Razdolzenie)) From #Preth
    End -- If @Datum_Od Is Not Null
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------  TEKOVEN PROMET-----------------------------------------------------------------------------------------
    Create Table #Tab
    (
     OdkojaTab    char(1),
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,
     Identif_Br    varchar(100),
     Ispratnica    varchar(50),
     Zadolzenie    decimal(18,6),
     Razdolzenie    decimal(18,6)
    )
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
    Set @SSQL = 'Select '' '', D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
            (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End),
            (Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)
            From Dokr D
            Inner Join Stavr S On S.DokrId=D.DokrID
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
            Where K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' '
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    Insert Into #Tab Exec(@SSQL)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
    Set @SSQL = 'Select ''A'', D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
            (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End),
            (Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End)
            From Dokr D
            Inner Join StaAmbal S On S.DokrId=D.DokrID
            Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
            Where S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' '
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
    If @Povratna = 'D'
        Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Amb_GAmb = 'G' -- Gajbi
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''G'') '
    Else -- If @Amb_GAmb = 'A' -- Sisinja
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''N'') '
    Insert Into #Tab Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Za vo izvestajot da se presmeta kolicina na zbirna ambalaza vrakam VoGAmb
--    Declare @VoGamb as Decimal(12,4)
--    Set @VoGamb=(Select VoGamb From KatAmb Where Sifra_Amb=@Sifra_Amb)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/*    If @Amb_GAmb = 'G'
    Begin
        If @VoGAmb Is Null Or @VoGAmb = 0
            Select OdKojaTab, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Zadolzenie, ABS(Razdolzenie) Razdolzenie, @VoGAmb VoGAmb, Null as Sifra_Komint, Null as Ime_Komint From #Tab
        Else
            Select OdKojaTab, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, (Zadolzenie/@VoGAmb) Zadolzenie, ABS(Razdolzenie/@VoGAmb) Razdolzenie, @VoGAmb VoGAmb, Null as Sifra_Komint, Null as Ime_Komint From #Tab
    End
    Else
*/
    Select OdKojaTab, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Identif_Br, Ispratnica,
        Zadolzenie, ABS(Razdolzenie) Razdolzenie, @VoGAmb VoGAmb, Null as Sifra_Komint, Null as Ime_Komint
    From #Tab



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_ambalaza_oe]'))
drop procedure [dbo].[sp_kart_ambalaza_oe]

Go
CREATE   PROCEDURE sp_Kart_Ambalaza_OE
    @Sifra_Oe        char(6),
    @Koi_Oe        varchar(10) = Null,
    @Sifra_Amb        char(6),        -- Mora da se vnese  Sifra_Amb
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Povratna        char(1) = 'D',
    @VkluciAmbOdDok     char(1) = 'D',
    @KojIzv        char(1) = 'C',    -- D - Izv vo odnos na dobavuvac,    K - Izv vo odnos na kupuvac,     C - Celosen
    @PrethZadolz        decimal(18,6) = Null Output,
    @PrethRazdolz        decimal(18,6) = Null Output,
    @VoGamb        decimal(18,6) = Null Output
AS
    Declare @SSQL as varchar(8000)
---------------------------------------------------------------------------------- PRETHODNA SOSTOJBA --------------------------------------------------------------------------------
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
-- SUM(Case D.VlIzl When ''I'' Then (Case WHEN S.Kolic < 0 Then (-1*S.Kolic/A.SodrziArt) Else 0 End))
    If @Datum_Od Is Not Null
    Begin
        Create Table #Preth
        (
         Zadolzenie    decimal(18,6),
         Razdolzenie    decimal(18,6)
        )
        If @VkluciAmbOdDok = 'D'
        Begin
            If @KojIzv in ('C', 'D')
            Begin
                Set @SSQL = 'Select
                        SUM((Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)),
                        SUM((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (-1*(S.Kolic/A.SodrziArt)) Else (-1*S.Kolic) End) Else 0 End))
                        From Dokr D
                        Inner Join Stavr S On S.DokrId=D.DokrID
                        Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                        Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                        Where D.VlIzl = ''V'' And K.Sifra_Amb = ''' + @Sifra_Amb + '''
                        And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
                If @Povratna = 'D'
                    Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
                If @Sifra_Oe Is Not Null
                    Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
                Insert Into #Preth Exec(@SSQL)
            End
                --    SUM((Case WHEN S.Kolic < 0 Then S.Kolic/A.SodrziArt Else 0 End)),
                --    SUM((Case WHEN S.Kolic > 0 Then S.Kolic/A.SodrziArt Else 0 End))
            If @KojIzv in ('C', 'K')
            Begin
                Set @SSQL = 'Select
                        SUM((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (-1*(S.Kolic/A.SodrziArt)) Else (-1*S.Kolic) End) Else 0 End)),
                        SUM((Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End))
                        From Dokr D
                        Inner Join Stavr S On S.DokrId=D.DokrID
                        Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                        Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                        Where D.VlIzl = ''I'' And K.Sifra_Amb = ''' + @Sifra_Amb + '''
                        And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
                If @Povratna = 'D'
                    Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
                If @Sifra_Oe Is Not Null
                    Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
                Insert Into #Preth Exec(@SSQL)
            End
        End
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
        If @KojIzv in ('C', 'D')
        Begin
            Set @SSQL = 'Select
                    SUM((Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End)),
                    Abs(SUM((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End)))
                    From Dokr D
                    Inner Join StaAmbal S On S.DokrId=D.DokrID
                    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                    Where D.VlIzl = ''V'' And S.Sifra_Amb = ''' + @Sifra_Amb + '''
                    And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            If @Koi_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Preth Exec(@SSQL)
        End
        If @KojIzv in ('C', 'K')
        Begin
            Set @SSQL = 'Select
                    Abs(SUM((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End))),
                    SUM((Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End))
                    From Dokr D
                    Inner Join StaAmbal S On S.DokrId=D.DokrID
                    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                    Where D.VlIzl = ''I'' And S.Sifra_Amb = ''' + @Sifra_Amb + '''
                    And D.Datum_Dok < ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            If @Koi_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Preth Exec(@SSQL)
        End
            Select @PrethZAdolz=Sum(Zadolzenie), @PrethRazdolz=Sum(Razdolzenie) From #Preth
    End -- If @Datum_Od Is Not Null
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------  TEKOVEN PROMET-----------------------------------------------------------------------------------------
    Create Table #Tab
    (
     OdKojaTab    char(1),
     DokrId        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,
     Identif_Br    varchar(50),
     Ispratnica    varchar(50),
     Zadolzenie    decimal(18,6),
     Razdolzenie    decimal(18,6)
    )
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
    If @VkluciAmbOdDok = 'D'
    Begin
        If @KojIzv in ('C', 'D')
        Begin
                    --(Case WHEN S.Kolic > 0 Then S.Kolic/A.SodrziArt Else 0 End),
                    --(Case WHEN S.Kolic < 0 Then S.Kolic/A.SodrziArt Else 0 End)
            Set @SSQL = 'Select '' '', D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
                    (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End),
                    (Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (-1*(S.Kolic/A.SodrziArt)) Else (-1*S.Kolic) End) Else 0 End)
                    From Dokr D
                    Inner Join Stavr S On S.DokrId=D.DokrID
                    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                    Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                    Where D.VlIzl = ''V'' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Datum_Od Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Datum_Do Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            Insert Into #Tab Exec(@SSQL)
        End
        If @KojIzv in ('C', 'K')
        Begin
                    --(Case WHEN S.Kolic < 0 Then S.Kolic/A.SodrziArt Else 0 End),
                    --(Case WHEN S.Kolic > 0 Then S.Kolic/A.SodrziArt Else 0 End)
            Set @SSQL = 'Select '' '', D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
                    (Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (-1*(S.Kolic/A.SodrziArt)) Else (-1*S.Kolic) End) Else 0 End),
                    (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)
                    From Dokr D
                    Inner Join Stavr S On S.DokrId=D.DokrID
                    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                    Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                    Where D.VlIzl = ''I'' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Datum_Od Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Datum_Do Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            Insert Into #Tab Exec(@SSQL)
        End
    End
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
        If @KojIzv in ('C', 'D')
        Begin
            Set @SSQL = 'Select ''A'', D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
                    (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End),
                    Abs((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End))
                    From Dokr D
                    Inner Join StaAmbal S On S.DokrId=D.DokrID
                    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                    Where D.VlIzl = ''V'' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Datum_Od Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Datum_Do Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            If @Koi_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Tab Exec(@SSQL)
        End
        If @KojIzv in ('C', 'K')
        Begin
            Set @SSQL = 'Select ''A'', D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Identif_Br, D.Ispratnica,
                    Abs((Case WHEN S.Kolic < 0 Then S.Kolic/A.SodrziArt Else 0 End)),
                    (Case WHEN S.Kolic > 0 Then S.Kolic/A.SodrziArt Else 0 End)
                    From Dokr D
                    Inner Join StaAmbal S On S.DokrId=D.DokrID
                    Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                    Where D.VlIzl = ''I'' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Povratna = 'D'
                Set @SSQL = @SSQL + ' And A.Povratna = ''D'' '
            If @Datum_Od Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
            If @Datum_Do Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
            If @Koi_OE Is Not NULL
                     Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Tab Exec(@SSQL)
        End
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Za vo izvestajot da se presmeta kolicina na zbirna ambalaza vrakam VoGAmb
    Set @VoGamb=(Select VoGamb From KatAmb Where Sifra_Amb=@Sifra_Amb)
    If @VoGamb = 0 Or @VoGamb Is Null
        Set @VoGamb = 1
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Select T.OdKojaTab, T.Sifra_Oe, T.Sifra_Dok, T.Broj_Dok, T.Datum_Dok, T.Identif_Br, T.Ispratnica, T.Zadolzenie, T.Razdolzenie, @VoGAmb VoGAmb,
        (Case When D.ImaDodatna In ('P','D') Then Cast(D.Sifra_Prim as varchar(6)) Else D.Sifra_Kup End) Sifra_Komint,
        (Case When D.ImaDodatna In ('P','D') Then O.ImeOrg Else Kup.ImeKup End) Ime_Komint
    From #Tab T
    Inner Join Dokr D On D.DokrID=T.DokrID
    Left Outer Join Orged O On O.Sifra_Oe=D.Sifra_Prim
    Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_kons_org]'))
drop procedure [dbo].[sp_kart_kons_org]

Go

CREATE    PROCEDURE [dbo].[sp_Kart_Kons_Org]
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_OE    smallint = Null,
    @Lista_OE    varchaR(2000) = Null,
    @DaliNovi    char(1) = Null,
    @DaliOdjFakt    char(1) = Null,
    @DaliOdjNeFakt    char(1) = Null,
    @Sifra_Od    varchar(20) = Null,
    @Sifra_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @DaliStornirani    char(1) = 'D'

AS

    Declare @SSQL_Usl varchaR(2000)
    set @SSQL_Usl = ' where 1 = 1 '

    if @Datum_Od is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(25)) + ''' '

    if @Datum_Do is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(25)) + ''' '

       If @Sifra_OE Is NOT Null
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE = ' + cast(@Sifra_OE as varchar(5)) + ' '
    else if @Lista_Oe is not NULL
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE in (' + @Lista_OE + ') '

       If @Sifra_Od IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art >= ''' + @Sifra_Od + ''' '

       If @Sifra_Do IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art <= ''' + @Sifra_Do + ''' '

       If @Kto IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND K.Kto = ''' + @Kto + ''' '

       If @Sifra_Gr IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '

     If @Sifra_Podg Is Not Null
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

       If @Lokacija IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Lokacija = ''' + @Lokacija + ''' '

    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.Kasa,
            D.Datum_Dok, D.Sifra_Kup, Kom.ImeKup, D.Sifra_Obj,
            S.Sifra_Art, K.ImeArt, K.Edmera, S.VlIzl, S.Kolic, S.DokCena, S.MagCena, S.Uces,
            S.DanDokCena, S.DanMagCena, S.POsn,
            D.Identif_Br, D.Ispratnica, K.ImaKomerc, K.Sifra_Podg,
            S.NabCena, D.Toc200, D.Spck_stat, O.ImeOrg, D.DokrId, Prima.ImeOrg ImeOrgPrima,
            DS.Dokr_Id_Storno, case when DS.Dokr_Id_Storno is null then ''N'' else ''S'' end Storniran
        FROM DOKR D
        inner JOIN Stavr S ON S.DokrID = D.DokrID
        inner join TipDok TD On D.Sifra_dok =  TD.SifrA_Dok
        inner JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
        LEFT OUTER JOIN Komint Kom ON D.Sifra_Kup = Kom.Sifra_Kup
        LEFT OUTER JOIN OrgEd Prima ON D.Sifra_Prim = Prima.Sifra_Oe
        Left Outer Join DokrStorno  DS
            on DS.Dokr_Id_Orig = D.DokrId
        inner join OrgEd O
            on D.Sifra_Oe = O.Sifra_Oe '
    if @Sifra_Gr is not null
               Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg = P.Sifra_Podg '

    ------

    Declare @SSQL_Full varchaR(8000)
    set @SSQL_Full = ''

    Declare @SSQL_Usl_Spec varchaR(2000)

    if @DaliNovi = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''V'' '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliStornirani = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                                   (D.Spck_Stat = ''S'' or DS.Dokr_Id_Storno is not null) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliOdjNeFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                             (D.Spck_Stat is null or (D.Spck_Stat <> ''F'' and D.Spck_Stat <> ''S'')) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliOdjFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and D.Spck_Stat = ''F'' and DS.Dokr_Id_Storno is null '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    --print @SSQL_Full

    EXEC (@SSQL_Full)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_kons_org_ctab]'))
drop procedure [dbo].[sp_kart_kons_org_ctab]

Go

CREATE  PROCEDURE [dbo].[sp_Kart_Kons_Org_CTab]
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_OE    smallint = Null,
    @Lista_OE    varchaR(2000) = Null,
    @DaliNovi    char(1) = Null,
    @DaliOdjFakt    char(1) = Null,
    @DaliOdjNeFakt    char(1) = Null,
    @Sifra_Od    varchar(20) = Null,
    @Sifra_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @DaliStornirani    char(1) = 'D'

AS

    Declare @SSQL_Usl varchaR(2000)
    set @SSQL_Usl = ' where 1 = 1 '

    if @Datum_Od is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(25)) + ''' '

    if @Datum_Do is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(25)) + ''' '

       If @Sifra_OE Is NOT Null
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE = ' + cast(@Sifra_OE as varchar(5)) + ' '
    else if @Lista_Oe is not NULL
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE in (' + @Lista_OE + ') '

       If @Sifra_Od IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art >= ''' + @Sifra_Od + ''' '

       If @Sifra_Do IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art <= ''' + @Sifra_Do + ''' '

       If @Kto IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND K.Kto = ''' + @Kto + ''' '

       If @Sifra_Gr IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '

     If @Sifra_Podg Is Not Null
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

       If @Lokacija IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Lokacija = ''' + @Lokacija + ''' '

    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, S.Sifra_Art, K.ImeArt, K.Edmera,
             sum(case when D.VlIZl = ''V'' then S.Kolic else 0 end) Vlez,
             sum(case when D.VlIZl = ''I'' and (D.Spck_Stat is null or (D.Spck_Stat <> ''F'' and D.Spck_Stat <> ''S''))
                then S.Kolic else 0 end) IzlezNeFakt,
             sum(case when D.VlIZl = ''I'' and D.Spck_Stat = ''F'' and DS.Dokr_Id_Storno is null
                then S.Kolic else 0 end) IzlezFakt,
             O.ImeOrg
        FROM DOKR D
        Left Outer Join DokrStorno  DS
            on DS.Dokr_Id_Orig = D.DokrId
        inner JOIN Stavr S ON S.DokrID = D.DokrID
        inner join TipDok TD On D.Sifra_dok =  TD.SifrA_Dok
        inner JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
        LEFT OUTER JOIN Komint Kom ON D.Sifra_Kup = Kom.Sifra_Kup
        LEFT OUTER JOIN OrgEd Prima ON D.Sifra_Prim = Prima.Sifra_Oe
        inner join OrgEd O
            on D.Sifra_Oe = O.Sifra_Oe '
    if @Sifra_Gr is not null
               Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg = P.Sifra_Podg '

    Declare @SSQL_Grp Varchar(200)
    set @SSQL_Grp = ' Group By D.Sifra_Oe, S.Sifra_Art, K.ImeArt, K.EdMera, O.ImeOrg '
    ------

    Declare @SSQL_Full varchaR(8000)
    set @SSQL_Full = ''

    Declare @SSQL_Usl_Spec varchaR(2000)

    if @DaliNovi = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''V'' '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec + @SSQL_Grp

        end

    if @DaliStornirani = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                                   (D.Spck_Stat = ''S'' or DS.Dokr_Id_Storno is not null) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec + @SSQL_Grp
        end

    if @DaliOdjNeFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                             (D.Spck_Stat is null or (D.Spck_Stat <> ''F'' and D.Spck_Stat <> ''S'')) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec + @SSQL_Grp
        end

    if @DaliOdjFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and D.Spck_Stat = ''F'' and DS.Dokr_Id_Storno is null '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

        set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec + @SSQL_Grp
        end

    --print @SSQL_Full

    EXEC (@SSQL_Full)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_korisnici]'))
drop procedure [dbo].[sp_kart_korisnici]

Go




CREATE           PROCEDURE sp_Kart_Korisnici
    @Sifra_Oe    smallint = null,
    @KoiOe    char(6) = null,
    @Datum_Od    smalldatetime = null,
    @Datum_Do    smalldatetime = null,
    @Sifra_Kor    varchar(20),
    @Sifra_TipKartKor    smallint = Null,
    @Sifra_Kup    char(6) = Null,
    @Aktiven    char(1) = Null,
    @Kred_Klub     char(2) = 'KR',        -- KR - Kreditni,    KL - Klub,      K2 - Zaedno
        @Sifra_Oe_Prod    smallint = null,
    @Preth_Dolzi    decimal(18,6) OUTPUT,
    @Preth_Pobar    decimal(18,6) OUTPUT,
    @Limit        decimal(18,6) OUTPUT
AS
    Declare @SSQL as varchar(2000)
    Select @Limit = Novi_Limi From KartKor Where Sifra_Kor=@Sifra_Kor
    If @Datum_Od Is Not Null
    Begin
        Create Table #Tab
        (
         Preth_Dolzi    decimal(18,6),
         Preth_Pobar    decimal(18,6)
        )
        Set @SSQL = ' Insert Into #Tab '
        If @Kred_Klub = 'KL'
            Set @SSQL = @SSQL + ' Select Sum(case when KP.KlubDolzi is null then 0 else KP.KlubDolzi end), 0 as Pobaruva '
        Else If @Kred_Klub = 'KR'
            Set @SSQL = @SSQL + ' Select sum(KP.Dolzi), Sum(KP.Pobaruva) '
        Else
            Set @SSQL = @SSQL + ' Select sum(KP.Dolzi + (case when KP.KlubDolzi is null then 0 else KP.KlubDolzi end)),
                        sum(KP.Pobaruva) '
        Set @SSQL = @SSQL + ' From KartProm KP '
        If @Sifra_TipKartKor Is Not Null Or @Aktiven Is Not Null
            Set @SSQL = @SSQL + ' Inner Join KartKor KK On KK.Sifra_Kor=KP.Sifra_Kor '
        Set @SSQL = @SSQL + ' Where KP.Sifra_Kor = ''' + @Sifra_Kor + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' and KP.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
        If @Sifra_Oe_Prod Is Not Null
            Set @SSQL = @SSQL + ' and KP.Sifra_Oe = ''' + cast(@Sifra_Oe_Prod as varchar(6)) + ''' '
                If @KoiOE Is Not NULL
                 Set @SSQL  = @SSQL + ' And KP.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @KoiOe  +  ''') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' and KP.Datum_Ska < ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Sifra_TipKartKor Is Not Null
            Set @SSQL = @SSQL + ' and KK.Sifra_TipKartKor = ' + cast(@Sifra_TipKartKor as varchar(6)) + ' '
        If @Sifra_Kup Is Not Null
            Set @SSQL  = @SSQL + ' And KP.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Aktiven Is Not Null
            Set @SSQL  = @SSQL + ' And KK.Aktiven = ''' + @Aktiven + ''' '
        If @Kred_Klub = 'KL'
            Set @SSQL = @SSQL + ' And KP.KlubDolzi <> 0 '
        Else If @Kred_Klub = 'KR'
            Set @SSQL = @SSQL + ' And (KP.Dolzi <> 0 Or KP.Pobaruva <> 0) '
        Else
            Set @SSQL = @SSQL + ' And ((KP.Dolzi <> 0 Or KP.Pobaruva <> 0) Or KP.KlubDolzi <> 0)'
        Exec(@SSQL)
        Select @Preth_Dolzi = Sum(Preth_Dolzi), @Preth_Pobar=Sum(Preth_Pobar) from #Tab
    End
    Set @SSQL = 'Select KP.Sifra_OE, O.ImeOrg, KP.Broj_Ska, KP.Datum_Ska, KP.Sifra_Nac, KP.FraUpl, '
        If @Kred_Klub = 'KL'
            Set @SSQL = @SSQL + ' KP.KlubDolzi Dolzi, 0 as Pobaruva '
        Else If @Kred_Klub = 'KR'
            Set @SSQL = @SSQL + ' KP.Dolzi, KP.Pobaruva '
        Else
            Set @SSQL = @SSQL + ' (KP.Dolzi + (case when KP.KlubDolzi is null then 0 else KP.KlubDolzi end)) Dolzi, KP.Pobaruva '
        Set @SSQL = @SSQL + ' From KartProm KP
                    Left Outer Join Orged O On O.Sifra_Oe = KP.Sifra_Oe '
    If @Sifra_TipKartKor Is Not Null Or @Aktiven Is Not Null
        Set @SSQL = @SSQL + ' Inner Join KartKor KK On KK.Sifra_Kor=KP.Sifra_Kor '
    Set @SSQL = @SSQL + ' Where KP.Sifra_Kor = ''' + @Sifra_Kor + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and KP.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Oe_Prod Is Not Null
        Set @SSQL = @SSQL + ' and KP.Sifra_Oe = ''' + cast(@Sifra_Oe_Prod as varchar(6)) + ''' '
        If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And KP.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and KP.Datum_Ska >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and KP.Datum_Ska <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQL = @SSQL + ' and KK.Sifra_TipKartKor = ' + cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL  = @SSQL + ' And KP.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Aktiven Is Not Null
        Set @SSQL  = @SSQL + ' And KK.Aktiven = ''' + @Aktiven + ''' '
    If @Kred_Klub = 'KL'
        Set @SSQL = @SSQL + ' And KP.KlubDolzi <> 0 '
    Else If @Kred_Klub = 'KR'
        Set @SSQL = @SSQL + ' And (KP.Dolzi <> 0 Or KP.Pobaruva <> 0) '
    Else
        Set @SSQL = @SSQL + ' And ((KP.Dolzi <> 0 Or KP.Pobaruva <> 0) Or KP.KlubDolzi <> 0)'
    Set @SSQL = @SSQL + ' ORDER BY KP.Datum_Ska'
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_kup_soodobr]'))
drop procedure [dbo].[sp_kart_kup_soodobr]

Go

CREATE                     PROCEDURE sp_Kart_Kup_SoOdobr
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(10) = Null,
     @Sifra_OE Smallint = Null,
       @Koi_OE Varchar(10) = Null,
    @Sifra_Pat Smallint = Null,
    @Sifra_Nal Smallint = Null,
    @Sifra_Div Smallint = Null,
    @Podred char(1) = Null
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '
    If @KoiFri = 'P'
        Set @SSQLUsl = @SSQLUsl + ' AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQLUsl = @SSQLUsl + ' AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Kto Is NOT Null
        Set @SSQLUsl = @SSQLUsl + ' AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        Set @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQLUsl = @SSQLUsl + ' AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    If @Sifra_Nal Is NOT Null
        Set @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is NOT Null
        Set @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    -- Kolku iznesuva fakturata so odbieno odobrenie
    Create Table #Odobr
    (
     AnID_Odob    int,
     AnID_Fak    int,
     IznosSoOdobr    decimal(18,6)
    )
    Set @SSQL = 'Select O.AnID_Odob, O.AnID_Fak, Sum(O.Iznos_Fra*(1-O.Proc_Odobr/100))
            FROM AnFinDok A
            INNER JOIN StaOdobr O On O.AnID_Fak=A.AnID
            WHERE Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1'' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + 'Group By O.AnID_Odob, O.AnID_Fak '
    -- za onie fakturi za koi nema presmetano odobrenie, a go ispolnuvaat uslovot za dobivanje odobrenie
    Set @SSQL = @SSQL + 'Union
            Select Null as AnID_Odob, A.AnID, Sum(A.Dolzi*0.95)
            FROM AnFinDok A
            Inner Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1''
            And Kup.KojaCena In (''2'',''5'')
            And A.AnID Not In (Select AnID_Fak From StaOdobr)
            And A.AnID Not In (Select AnID_Odob From StaOdobr)
            And A.Dolzi > 0 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + 'Group By A.AnID '
    Insert Into #Odobr Exec(@SSQL)-- + @SSQLUsl + 'Group By O.AnID_Odob, O.AnID_Fak')
    -- Site Fakturi i za niv presmetani odobrenija, (ne se zemaat odobrenijata od AnFinDok)
    SET @SSQL = 'SELECT A.Datum_Dok as D1, A.AnID A1, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            O.IznosSoOdobr, A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat,
            A.Sifra_Za, A.AnID, A.Opis
            FROM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            Left Outer Join #Odobr O On O.AnID_Fak=A.AnID
            WHERE Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1''
            And A.AnID Not In (Select AnID_Odob From StaOdobr) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    -- Gi dodavame odobrenijata (gi vrzuvame odobrenijata na sekoja faktura vo iznosot koj se odnesuva na taa faktura)
    Set @SSQL = @SSQL + ' Union
            Select F.Datum_Dok as D1, F.AnID A1, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            (O.Iznos_Fra*O.Proc_Odobr/100) as IznosSoOdobr, (-1*O.Iznos_Fra*O.Proc_Odobr/100) Dolzi, 0 Pobaruva,
            0 as Plateno_Dolzi, 0 as Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis
            FROM AnFinDok A
            INNER JOIN StaOdobr O On O.AnID_Odob=A.AnID
            INNER JOIN AnFinDok F On F.AnID=O.AnID_Fak
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1''
            And A.AnID In (Select AnID_Odob From StaOdobr) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND F.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND F.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND F.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND F.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
/*    Set @SSQL = @SSQL + ' Union
            Select F.Datum_Dok as D1, F.AnID A1, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            0 as IznosSoOdobr, (-1*O.Iznos_Fra*O.Proc_Odobr/100) Dolzi, 0 Pobaruva,
            0 as Plateno_Dolzi, 0 as Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis
            FROM AnFinDok A
            INNER JOIN StaOdobr O On O.AnID_Odob=A.AnID
            INNER JOIN AnFinDok F On F.AnID=O.AnID_Fak
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1''
            And A.AnID In (Select AnID_Odob From StaOdobr) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND F.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND F.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND F.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND F.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl*/
    Set @SSQL = @SSQL + ' Union
            Select A.Datum_Dok as D1, A.AnID A1, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            (A.Dolzi*0.05) as IznosSoOdobr, 0 as Dolzi, 0 Pobaruva,
            0 as Plateno_Dolzi, 0 as Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis
            FROM AnFinDok A
            Inner Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' AND A.Sifra_Za=''1''
            And Kup.KojaCena In (''2'',''5'')
            And A.AnID Not In (Select AnID_Fak From StaOdobr)
            And A.AnID Not In (Select AnID_Odob From StaOdobr)
            And A.Dolzi > 0 '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.AnID, A.Dolzi Desc '
    EXEC(@SSQL)
print @SSQL




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_oe]'))
drop procedure [dbo].[sp_kart_oe]

Go




CREATE                   PROCEDURE sp_Kart_Oe
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
       @Kto         Char(10) = Null,
     @Sifra_OE     Smallint = Null,
       @Koi_OE     Varchar(10) = Null,
    @VkluciPren    char(1) = 'D',
    @PrethSost    char(1) = 'D',                   -- N ako ne treba Pocetna Sostojba  -  (za Sub Reporti)
    @PrethDolzi    Decimal(18,6) Output,
    @PrethPobar    Decimal(18,6) Output,
    @PrethFakturi    Decimal(18,6) Output
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUsl1 Varchar(8000)
    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    Set @SSQLUsl1 = ' '
    Create Table #Kart
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Kup    char(6),
     Datum_Dok    smalldatetime,
     Sifra_Za    char(1),
         ImaDodatna     char(1),
     Kto        char(10),
     Dolzi        decimal(18,6),
     Pobaruva    decimal(18,6),
     DolziFakturi   decimal(18,6),
         BrojDok        varchar (25)
    )
---------------------------------------------------------------------------- U S L O V -------------------------------------------------------------------------------------
       If @Sifra_Kup_Od Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND Sifra_Kup >=''' + @Sifra_Kup_Od + ''' '
       If @Sifra_Kup_Do Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND Sifra_Kup <=''' + @Sifra_Kup_Do + ''' '
       If @Kto Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND Kto=' + @Kto + ' '
       If @Sifra_OE Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        SET @SSQLUsl = @SSQLUsl + 'And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl1 = @SSQLUsl1 + 'AND Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
       If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl1 = @SSQLUsl1 + 'AND Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------- POCETNA SOSTOJBA --------------------------------------------------------------------------
    If @PrethSost='D'
         Begin
        If @Datum_Dok_Od Is Not Null
             Begin
              --              UPLATI
                SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, null, Kto, 0, Pobaruva, 0, BrojDok
                     FROM AnFinDok
                    WHERE Sifra_Za= 1 and  Pobaruva <> 0  and Datum_Dok < ''' + cast(@Datum_Dok_Od as Varchar(30)) + ''' '
            INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl)
              --              FAkturi - dodadeno DK Aug. 3, 2004
                SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, null, Kto, 0, 0, Dolzi, BrojDok
                     FROM AnFinDok
                    WHERE Sifra_Za= 1 and  Dolzi <> 0  and Datum_Dok < ''' + cast(@Datum_Dok_Od as Varchar(30)) + ''' '
            INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl)
            --                  PRENOSNICI
            If @VkluciPren = 'D'
                 Begin
                   SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, ImaDodatna, Kto,
                    (Case ImaDodatna When ''P'' Then Toc200 Else 0 End) Dolzi,
                    (Case ImaDodatna When ''D'' Then Toc200 Else 0 End) Pobaruva,
                                        0 DolziFakturi,
                                        Identif_br BrojDok
                    FROM Dokr
                    WHERE (ImaDodatna = ''P'' Or ImaDodatna = ''D'')  and Datum_Dok < ''' + cast(@Datum_Dok_Od as Varchar(30)) + ''' '
                INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl)
                 End
            Select @PrethDolzi = Sum(Dolzi), @PrethPobar=Sum(Pobaruva), @PrethFakturi=Sum(DolziFakturi) From #Kart
            Delete From #Kart
                  End
          End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------- U P L A T I -------------------------------------------------------------------------------------
       SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, null, Kto, 0, Pobaruva, 0, BrojDok
            FROM AnFinDok
            WHERE Sifra_Za= 1 and  Pobaruva <> 0 '
    INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl+@SSQLUsl1)
---------------------------------------------------------------------------- F A K T U R I -------------------------------------------------------------------------------------
       SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, null, Kto, 0, 0, Dolzi, BrojDok
            FROM AnFinDok
            WHERE Sifra_Za= 1 and  Dolzi <> 0 '
    INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl+@SSQLUsl1)
---------------------------------------------------------------------- P R E N O S N I C I ------------------------------------------------------------------------------
    If @VkluciPren = 'D'
         Begin
           SET @SSQL = 'SELECT Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Datum_Dok, Sifra_Za, ImaDodatna, Kto,
            (Case ImaDodatna When ''P'' Then Toc200 Else 0 End) Dolzi,
            (Case ImaDodatna When ''D'' Then Toc200 Else 0 End) Pobaruva,
                        0 DolziFakturi,
                        Identif_Br BrojDok
            FROM Dokr
            WHERE (ImaDodatna = ''P'' Or ImaDodatna = ''D'') '
        INSERT INTO #Kart EXEC(@SSQL+@SSQLUsl+@SSQLUsl1)
          End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Select  K.Sifra_OE, O.ImeOrg, K.Sifra_Dok, K.Broj_Dok, K.Sifra_Kup, Kup.ImeKup, K.Datum_Dok, K.Sifra_Za, K.Imadodatna, K.Kto, A.ImeAnal, K.Dolzi, K.Pobaruva, K.DolziFakturi, K.BrojDok
    From #Kart K
    Inner Join Orged O On O.Sifra_Oe = K.Sifra_Oe
    Left Outer Join Komint Kup On Kup.Sifra_Kup = K.Sifra_Kup
    Left Outer Join Anal A On A.Kto_Anal = K.Kto




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_osnsred]'))
drop procedure [dbo].[sp_kart_osnsred]

Go

CREATE       PROCEDURE [dbo].[sp_Kart_OsnSred]
    @Inv_Broj        varchar(20),
    @Godina        smallint,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @GodinaOut        smallint = Null OUTPUT,
    @Osn_AmorOut        decimal (18, 2) = Null OUTPUT,
    @Otpis_PretOut        decimal (18, 2) = Null OUTPUT,
    @Sifra_MikLokOut    char (10) = Null OUTPUT,
    @Sifra_AmorOut        char (3) = Null OUTPUT,
    @Kto_AnalOut         char (10) = Null OUTPUT,
    @Sifra_RabOut         int = Null OUTPUT,
    @OrigNabVrOut        decimal (18, 2) = Null OUTPUT,
    @PresmPoDenovi    char(1) = 'N'
AS
    Declare @SSQL as varchar(8000)
    Select @Inv_Broj=Inv_Broj, @GodinaOut=Godina, @Osn_AmorOut=Osn_Amor, @Otpis_PretOut=Otpis_Pret,
            @Sifra_MikLokOut=Sifra_MikLok, @Sifra_AmorOut=Sifra_Amor, @Kto_AnalOut=Kto_Anal,
                        @Sifra_RabOut=Sifra_Rab, @OrigNabVrOut=OrigNabVr
    From PocSostOsn
    Where Inv_Broj = @Inv_Broj  And Godina = cast(@Godina as varchar(4))
    --------------- Dokolku sredstvoto e  otpisano treba da se presmeta amortizacijata do datumot na otpissuvanje -------------------
    Declare @Otpis as decimal(18,6)
    Set @Otpis=0
    Create Table #TmpOS
    (
     Inv_Broj varchar(20)
    )
    Set @SSQL = ' Select S.Inv_Broj
            From  StavOsnSred S
            Where Tip_StaOsn IN (''T'',''R'',''F'')
            And S.Inv_Broj = ''' + @Inv_Broj + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Insert Into #TmpOS Exec(@SSQL)
--select * from #Tmpos
------------- za tie sto imaat prethodno miruvanje netreba da se presmetuva amortizacija----------------------------------
--------------------------------------------------------------------------------------------------------------------------
    If @@RowCount > 0
    Begin
        Declare @PocMesec smallint
        Declare @KrMesec smallint
        Declare @PocDat smalldatetime
        Declare @KrDat smalldatetime
        Declare @PocDatGod smalldatetime
        SET @PocMesec = Month(@Datum_Od)
        If @PocMesec Is Null
            Set @PocMesec = 1
        SET @KrMesec = Month(@Datum_Do)
        If @KrMesec Is Null
            Set @KrMesec = 12
        SET @PocDatGod = dbo.fn_NapraviDatum (@Godina, 1, 1)
        SET @PocDat = dbo.fn_NapraviDatum (@Godina, @PocMesec, 1)
        SET @KrDat = dbo.fn_VratiDatumOdDo (@Godina, @KrMesec, 31)
        CREATE TABLE #PomOsn
        (
         Inv_Broj        char(10),
         DatAkt        smalldatetime,
         DatPrest    smalldatetime
        )
        CREATE TABLE #TmpAmorPresm
        (
         Inv_Broj        char(10),
         Rbr        smallint,
         DatAkt        smalldatetime,
         DatPrest    smalldatetime,
         PocDatAmor    smalldatetime,
         KrDatAmor    smalldatetime,
         Osn_Amor    decimal(18,2),
         Otpis_pret    decimal(18,2),
         Stapka_Amor    decimal(8,3),
         PocDatKumul    smalldatetime,
         KrDatKumul    smalldatetime,
         PocDatDoPer    smalldatetime,
         KrDatDoPer    smalldatetime,
         AmortKumul    decimal(18,6),
         AmortPer    decimal(18,6),
        Rashodovano    char(1),
        Miruvanje    char(1),
        Sifra_Kup    varchar(20)
        )
        INSERT INTO #TmpAmorPresm (Inv_Broj, Rbr, DatAkt, DatPrest)
        SELECT Inv_Broj, 0,  DatAkt, DatPrest
        FROM OsnSred
        WHERE DatAkt IS NOT NULL AND DatAkt <= @KrDat
        AND (DatPrest IS NULL OR Year(DatPrest) >= @Godina)
        And Inv_Broj = @Inv_Broj
        INSERT INTO #PomOsn (Inv_Broj, DatAkt, DatPrest)
        SELECT Inv_Broj, DatAkt, DatPrest FROM #TmpAmorPresm
--select * from #TmpAmorPresm
--select * from #PomOsn
-------------------------------------------------------------------------------------------------------------------------------------
    CREATE TABLE #Tmp1AmorPresm
(    Inv_Broj        char(10),
    Rbr        smallint,
    DatAkt        smalldatetime,
    DatPrest    smalldatetime,
    PocDatAmor    smalldatetime,
    KrDatAmor    smalldatetime,
    Osn_Amor    decimal(18,2),
    Otpis_pret    decimal(18,2),
    Stapka_Amor    decimal(8,3),
    PocDatKumul    smalldatetime,
    KrDatKumul    smalldatetime,
    PocDatDoPer    smalldatetime,
    KrDatDoPer    smalldatetime,
    AmortKumul    decimal(18,6),
    AmortPer    decimal(18,6),
    Rashodovano    char(1),
    Miruvanje     char(1),
    Sifra_Kup    varchar(20))

CREATE TABLE #Tmp2AmorPresm
(    Inv_Broj        char(10),
    Rbr        smallint,
    DatAkt        smalldatetime,
    DatPrest    smalldatetime,
    PocDatAmor    smalldatetime,
    KrDatAmor    smalldatetime,
    Osn_Amor    decimal(18,2),
    Otpis_pret    decimal(18,2),
    Stapka_Amor    decimal(8,3),
    PocDatKumul    smalldatetime,
    KrDatKumul    smalldatetime,
    PocDatDoPer    smalldatetime,
    KrDatDoPer    smalldatetime,
    AmortKumul    decimal(18,6),
    AmortPer    decimal(18,6),
    Rashodovano    char(1),
    Miruvanje    char(1),
    Sifra_Kup    varchar(20))

CREATE TABLE #TmpOS1
(Inv_Broj    char(10))
CREATE TABLE #TmpMiruv
(Inv_Broj    char(10),
Datum        smalldatetime,
Sto            Char(1))

INSERT INTO #TmpMiruv (Inv_Broj, Datum, Sto) SELECT Inv_Broj, Datum_Dok, Tip_StaOsn
    FROM StavOsnSred WHERE Datum_Dok<=@KrDat AND Tip_StaOsn='M' AND Inv_Broj =@Inv_broj
INSERT INTO #TmpMiruv (Inv_Broj, Datum, Sto) SELECT Inv_Broj, Datum_Dok, Tip_StaOsn
    FROM StavOsnSred WHERE Datum_Dok<=@KrDat AND Tip_StaOsn='A' AND Inv_Broj=@Inv_Broj

INSERT INTO #TmpOS1 SELECT DISTINCT Inv_Broj FROM #TmpMiruv
    --select * from #tmpmiruv
    --select * from #tmpamorpresm

    DELETE FROM #Tmp1AmorPresm
    INSERT INTO #Tmp1AmorPresm
    --SELECT Inv_Broj,Rbr,DatAkt,DatPrest,PocDatAmor,KrDatAmor,Osn_Amor,Otpis_pret,Stapka_Amor, PocDatKumul,KrDatKumul,PocDatDoPer,KrDatDoPer,AmortKumul,AmortPer, 0, 0, 0
    SELECT * FROM #TmpAmorPresm WHERE Inv_Broj IN (SELECT Inv_Broj FROM #TmpMiruv) AND Rbr=0
    DELETE FROM #TmpAmorPresm WHERE Inv_Broj IN (SELECT Inv_Broj FROM #TmpMiruv) AND Rbr=0
--select * from #tmpamorpresm
    Declare @wInvBr char(10), @wDat smalldatetime, @wSto char(1), @wDatAkt smalldatetime, @wDatPrest smalldatetime, @wStInvBr char(10)
    Declare @wDatAkt1 smalldatetime, @wKlkM smallint, @wKlkA as smallint
    SET @wStInvBr=''
    Declare Tabela1 Cursor Fast_Forward For
        Select Inv_Broj, Datum, Sto From #TmpMiruv ORDER BY Inv_Broj, Datum
    Open Tabela1
    Fetch Next From Tabela1 Into @wInvBr, @wDat, @wSto
    While @@Fetch_Status = 0
    Begin
        IF @wInvBr <> @wStInvBr        --novo sredstvo
        Begin
            SELECT @wDatAkt =DatAkt, @wDatPrest=DatPrest FROM #Tmp1AmorPresm WHERE Inv_Broj=@wInvBr
            SET @wStInvBr=@wInvBr
            SET @wKlkM = 0
            SET @wKlkA = 0
            SET @wDatAkt1 = @wDatAkt
        End
        IF @wSto='M'
            Begin
                SET @wKlkM = @wKlkM + 1
                IF @wKlkM=1 AND @wKlkA=0
                    INSERT INTO #Tmp2AmorPresm (Inv_Broj,Rbr,DatAkt,DatPrest,Osn_Amor,Otpis_pret, Miruvanje)
                    VALUES (@wInvBr,0,@wDatAkt, @wDat,0,0,'M')
                ELSE
                    UPDATE #Tmp2AmorPresm SET DatPrest=@wDat WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt1
            End
        ELSE
            Begin
                SET @wKlkA = @wKlkA + 1
                SET @wDatAkt1 = @wDat
                INSERT INTO #Tmp2AmorPresm (Inv_Broj,Rbr,DatAkt,DatPrest,Osn_Amor,Otpis_pret, Miruvanje)
                VALUES (@wInvBr,0,@wDat, @wDatPrest,0,0, 'A')
            End
        Fetch Next From Tabela1 Into @wInvBr, @wDat, @wSto
    End
    Close Tabela1
    Deallocate Tabela1
--select * from #Tmp2AmorPresm
    Declare @ImaOvaaGod smallint, @PrvoStGod smallint
    Declare TabOS Cursor Fast_Forward For
        Select Inv_Broj  From #TmpOS1 ORDER BY Inv_Broj
        Open TabOS
        Fetch Next From TabOS INTO @wInvBr
        While @@Fetch_Status = 0
        Begin

            SET @PrvoStGod=0
            SET @ImaOvaaGod=0
            Declare Tabela2 Cursor Fast_Forward For
                Select DatAkt, DatPrest, Miruvanje From #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr ORDER BY DatAkt DESC
            Open Tabela2
            Fetch Next From Tabela2 Into  @wDatAkt, @wDatPrest, @wSto
            While @@Fetch_Status = 0
            Begin
                 IF @wDatAkt >= @PocDatGod
                Begin
                    INSERT INTO #TmpAmorPresm SELECT * FROM #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                    IF @ImaOvaaGod=1 UPDATE #TmpAmorPresm SET Rbr=4 WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                    SET @ImaOvaaGod=1
                End
                ELSE
                Begin
                    IF @PrvoStGod=0 AND @ImaOvaaGod=0 AND ((@wDatPrest IS NULL AND @wSto='A') OR (@wDatPrest IS NOT NULL AND (@wSto='M' OR @wDatPrest>=@PocDatGod)))
                    Begin
                        INSERT INTO #TmpAmorPresm SELECT * FROM #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                    End
                    SET @PrvoStGod=1
                End
                Fetch Next From Tabela2 Into @wDatAkt, @wDatPrest, @wSto
            End
            Close Tabela2
            Deallocate Tabela2

        Fetch Next From TabOS INTO @wInvBr
    End
    Close TabOS
    Deallocate TabOS
    DELETE FROM #Tmp2AmorPresm
--select * from #tmpamorpresm
--sega uste komplikacijata da ima dogradba,delumen otpis na sredstvata koi se so miruvanje, aktiviranje
/*
Declare @wOsnDogr decimal(18,6)
Declare TabDogr    Cursor Fast_Forward For
SELECT A.Inv_Broj, A.DatAkt, A.DatPrest, A.Osn_Amor FROM #TmpAmorPresm A INNER JOIN #TmpOS O ON A.Inv_Broj=O.Inv_Broj WHERE A.Rbr=1 ORDER BY A.Inv_Broj, A.DatAkt
Open TabDogr
Fetch Next From TabDogr Into @wInvBr, @wDatAkt, @wDatPrest, @wOsnDogr
While @@Fetch_Status = 0
Begin

    DELETE FROM #Tmp1AmorPresm
    INSERT INTO #Tmp1AmorPresm SELECT * FROM #TmpAmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt AND Rbr=1
    DELETE FROM #TmpAmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt AND Rbr=1
     DELETE FROM #Tmp2AmorPresm

    SET @wStInvBr=@wInvBr
    SET @wKlkM = 0
    SET @wKlkA = 0
    SET @wDatAkt1 = @wDatAkt
    Declare Tabela1 Cursor Fast_Forward For
        Select Datum, Sto From #TmpMiruv WHERE Inv_Broj=@wInvBr ORDER BY Datum
    Open Tabela1
    Fetch Next From Tabela1 Into @wDat, @wSto
    While @@Fetch_Status = 0
    Begin
         IF @wSto='M'
            Begin
                SET @wKlkM = @wKlkM + 1
                IF @wKlkM=1 AND @wKlkA=0
                    INSERT INTO #Tmp2AmorPresm (Inv_Broj,Rbr,DatAkt,DatPrest,Osn_Amor,Otpis_pret, Miruvanje)
                    VALUES (@wInvBr,1,@wDatAkt, @wDat,@wOsnDogr,0,'M')
                ELSE
                    UPDATE #Tmp2AmorPresm SET DatPrest=@wDat WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt1
            End
        ELSE
            Begin
                SET @wKlkA = @wKlkA + 1
                SET @wDatAkt1 = @wDat
                INSERT INTO #Tmp2AmorPresm (Inv_Broj,Rbr,DatAkt,DatPrest,Osn_Amor,Otpis_pret, Miruvanje)
                VALUES (@wInvBr,1,@wDat, @wDatPrest,@wOsnDogr,0, 'A')
            End
        Fetch Next From Tabela1 Into @wDat, @wSto
    End
    Close Tabela1
    Deallocate Tabela1

        SET @PrvoStGod=0
        SET @ImaOvaaGod=0
        Declare Tabela2 Cursor Fast_Forward For
            Select DatAkt, DatPrest, Miruvanje From #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr ORDER BY DatAkt DESC
        Open Tabela2
        Fetch Next From Tabela2 Into  @wDatAkt, @wDatPrest, @wSto
        While @@Fetch_Status = 0
        Begin
             IF @wDatAkt >= @PocDatGod
            Begin
                INSERT INTO #TmpAmorPresm SELECT * FROM #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                IF @ImaOvaaGod=1 UPDATE #TmpAmorPresm SET Rbr=5 WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                SET @ImaOvaaGod=1
            End
            ELSE
            Begin
                IF @PrvoStGod=0 AND @ImaOvaaGod=0 AND ((@wDatPrest IS NULL AND @wSto='A') OR (@wDatPrest IS NOT NULL AND (@wSto='M' OR @wDatPrest>=@PocDatGod)))
                Begin
                    INSERT INTO #TmpAmorPresm SELECT * FROM #Tmp2AmorPresm WHERE Inv_Broj=@wInvBr AND DatAkt=@wDatAkt
                End
                SET @PrvoStGod=1
            End
            Fetch Next From Tabela2 Into @wDatAkt, @wDatPrest, @wSto
        End
        Close Tabela2
        Deallocate Tabela2

Fetch Next From TabDogr Into @wInvBr, @wDatAkt, @wDatPrest, @wOsnDogr
End
Close TabDogr
Deallocate TabDogr
--kraj so komplikacija dogradbi...........
*/
------------------------------------------------------------------------------------------------------------------------------------
        UPDATE #TmpAmorPresm SET DatPrest = #PomOsn.DatPrest FROM #PomOsn
        WHERE #PomOsn.Inv_Broj = #TmpAmorPresm.Inv_Broj AND #TmpAmorPresm.Rbr=1

        UPDATE #TmpAmorPresm SET Osn_Amor = S.Osn_Amor, Otpis_Pret = S.Otpis_Pret
        FROM PocSostOsn S WHERE S.Inv_Broj = #TmpAmorPresm.Inv_Broj AND S.Godina = @Godina AND #TmpAmorPresm.Rbr=0

        UPDATE #TmpAmorPresm SET Osn_Amor = S.Osn_Amor, Otpis_Pret = S.Otpis_Pret
        FROM StavOsnSred S WHERE S.Inv_Broj=#TmpAmorPresm.Inv_Broj AND S.Delov_God=@Godina AND S.Tip_StaOsn ='P' AND #TmpAmorPresm.Rbr=0 AND (#TmpAmorPresm.Osn_Amor IS NULL OR #TmpAmorPresm.Osn_Amor=0)

        UPDATE #TmpAmorPresm SET Stapka_Amor = AmorGrp.Stapka FROM OsnSred, AmorGrp
        WHERE #TmpAmorPresm.Inv_Broj = OsnSred.Inv_Broj AND OsnSred.Sifra_Amor = AmorGrp.Sifra_Amor

        UPDATE #TmpAmorPresm SET PocDatAmor = dbo.fn_VratiPrvDatumSledenMes (DatAkt, @Godina)
        UPDATE #TmpAmorPresm SET KrDatAmor = dbo.fn_NapraviDatum (@Godina+1, 1, 1) WHERE DatPrest IS NULL
        UPDATE #TmpAmorPresm SET KrDatAmor = dbo.fn_VratiDatumOdDo (year(DatPrest), month(DatPrest), 31) WHERE DatPrest IS NOT NULL
        UPDATE #TmpAmorPresm SET PocDatKumul = PocDatAmor WHERE PocDatAmor > @PocDatGod
        UPDATE #TmpAmorPresm SET PocDatKumul = @PocDatGod WHERE PocDatAmor <= @PocDatGod
        UPDATE #TmpAmorPresm SET KrDatKumul = KrDatAmor      WHERE KrDatAmor < @KrDat
        UPDATE #TmpAmorPresm SET KrDatKumul = @KrDat      WHERE KrDatAmor >= @KrDat
        UPDATE #TmpAmorPresm SET PocDatDoPer = PocDatAmor WHERE PocDatAmor > @PocDatGod
        UPDATE #TmpAmorPresm SET PocDatDoPer = @PocDatGod WHERE PocDatAmor <= @PocDatGod
        UPDATE #TmpAmorPresm SET KrDatDoPer = KrDatAmor   WHERE KrDatAmor < DateAdd(day, -1, @PocDat)
        UPDATE #TmpAmorPresm SET KrDatDoPer = DateAdd(day, -1, @PocDat) WHERE KrDatAmor >= DateAdd(day, -1, @PocDat)
    IF @PresmPoDenovi='D'        --dod.03.02.2012
    Begin
        UPDATE #TmpAmorPresm SET PocDatAmor = DatAkt WHERE DatAkt>@PocDat
        UPDATE #TmpAmorPresm SET KrDatAmor = DatPrest WHERE DatPrest IS NOT NULL
        UPDATE #TmpAmorPresm SET PocDatKumul = PocDatAmor WHERE PocDatAmor > @PocDatGod
        UPDATE #TmpAmorPresm SET KrDatKumul = KrDatAmor      WHERE KrDatAmor < @KrDat
        UPDATE #TmpAmorPresm SET PocDatDoPer = PocDatAmor WHERE PocDatAmor > @PocDatGod
        UPDATE #TmpAmorPresm SET KrDatDoPer = KrDatAmor   WHERE KrDatAmor < DateAdd(day, -1, @PocDat)
    End

        UPDATE #TmpAmorPresm SET AmortKumul = dbo.fn_PresmAmor (PocDatKumul, KrDatKumul, Osn_Amor, Stapka_Amor, Otpis_Pret, @PresmPoDenovi)
        UPDATE #TmpAmorPresm SET AmortPer = dbo.fn_PresmAmor (PocDatDoPer, KrDatDoPer, Osn_Amor, Stapka_Amor, Otpis_Pret, @PresmPoDenovi)
        UPDATE #TmpAmorPresm SET AmortKumul = dbo.fn_PresmAmor (PocDatKumul, KrDatKumul, Osn_Amor*-1, Stapka_Amor, Otpis_Pret, @PresmPoDenovi)*-1 WHERE Rbr=1 AND Osn_Amor<0
        UPDATE #TmpAmorPresm SET AmortPer = dbo.fn_PresmAmor (PocDatDoPer, KrDatDoPer, Osn_Amor*-1, Stapka_Amor, Otpis_Pret, @PresmPoDenovi)*-1 WHERE Rbr=1 AND Osn_Amor<0
        Select @Otpis= SUM(Osn_Amor - Otpis_Pret - AmortKumul) From #TmpAmorPresm
    End
--select * from #tmpamorpresm
    If @Otpis Is Null
        Set @Otpis=0
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, D.Sifra_Nal, D.Broj_Nal,
                S.Inv_Broj, S.Datum_Dok StavDatum_Dok, S.Tip_StaOsn, S.VlIzl, S.Osn_Amor,
                (Case When S.Tip_StaOsn IN (''T'',''R'',''F'') Then ' + Cast(@Otpis as varchar(20)) + ' Else S.Otpis_Pret End) Otpis_Pret, S.Sifra_MikLok_Od, S.Sifra_MikLok, MikL1.Ime_MikLok Ime_MikLokOd, MikL2.Ime_MikLok Ime_MikLokDo,
                MikL1.Sifra_MakLok as Sifra_MakLokOd,
                S.Orig_Nab_Vr, S.Orig_Nab_Vr_Val, S.Delov_God,
                S.Sifra_RabOd, S.Sifra_Rab, R1.ImeRab ImeRabOd,R2.ImeRab ImeRabDo, Kup.ImeKup, D.St_Br_Nal, D.Identif_Br
            From  StavOsnSred S
            Inner Join DokOsnSred D On S.DokOID=D.DokOID
            Left Outer Join MikroLok MikL1 On MikL1.Sifra_MikLok = S.Sifra_MikLok_Od
            Left Outer Join MikroLok MikL2 On MikL2.Sifra_MikLok = S.Sifra_MikLok
            Left Outer Join Rabotnik R1 On R1.Sifra_Rab=S.Sifra_RabOd
            Left Outer Join Rabotnik R2 On R2.Sifra_Rab=S.Sifra_Rab
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Where 1=1 '
    If @Inv_Broj Is Not Null
        Set @SSQL = @SSQL + ' And S.Inv_Broj = ''' + @Inv_Broj + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Exec(@SSQL)












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_serbr_kons_org]'))
drop procedure [dbo].[sp_kart_serbr_kons_org]

Go

CREATE  PROCEDURE [dbo].[sp_Kart_SerBr_Kons_Org]
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_OE    smallint = Null,
    @Lista_OE    varchaR(2000) = Null,
    @DaliNovi    char(1) = Null,
    @DaliOdjFakt    char(1) = Null,
    @DaliOdjNeFakt    char(1) = Null,
    @Sifra_Od    varchar(20) = Null,
    @Sifra_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @DaliStornirani    char(1) = 'D',
    @Sifra_3    smallint = null,
    @GodProiz    int = null

AS


    Declare @SSQL_Usl varchaR(2000)
    set @SSQL_Usl = ' where 1 = 1 '

    if @Datum_Od is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(25)) + ''' '

    if @Datum_Do is not null
        set @SSQL_Usl = @SSQL_Usl + ' and D.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(25)) + ''' '

       If @Sifra_OE Is NOT Null
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE = ' + cast(@Sifra_OE as varchar(5)) + ' '
    else if @Lista_Oe is not NULL
           Set @SSQL_Usl = @SSQL_Usl + ' and D.Sifra_OE in (' + @Lista_OE + ') '

       If @Sifra_Od IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art >= ''' + @Sifra_Od + ''' '

       If @Sifra_Do IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND S.Sifra_Art <= ''' + @Sifra_Do + ''' '

       If @Kto IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND K.Kto = ''' + @Kto + ''' '

       If @Sifra_Gr IS NOT NULL
              Set @SSQL_Usl = @SSQL_Usl + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '

     If @Sifra_Podg Is Not Null
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

       If @Lokacija IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND K.Lokacija = ''' + @Lokacija + ''' '

       If @Sifra_3 IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND KSK.Sifra_3 = ' + cast(@Sifra_3 as varchaR(5))

       If @GodProiz IS NOT NULL
        Set @SSQL_Usl = @SSQL_Usl + ' AND KSK.GodProiz = ' + cast(@GodProiz as varchaR(5))

    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.Kasa,
            D.Datum_Dok, D.Sifra_Kup, Kom.ImeKup, D.Sifra_Obj,
            S.Sifra_Art, K.ImeArt, K.Edmera, D.VlIzl, S.Kolic,
            D.Identif_Br, D.Ispratnica, K.ImaKomerc, K.Sifra_Podg,
            D.Toc200, D.Spck_stat, O.ImeOrg, D.DokrId, Prima.ImeOrg ImeOrgPrima,
            KSK.KontrSerExt, KSK.AltKontrSer, KSK.GodProiz, KSK.Opis, S.LotBr,
            DS.Dokr_Id_Storno, case when DS.Dokr_Id_Storno is null then ''N'' else ''S'' end Storniran,
            D3.Ime_3
        FROM DOKR D
        Left Outer Join DokrStorno  DS
            on DS.Dokr_Id_Orig = D.DokrId
        inner JOIN MagStavr S ON S.DokrID = D.DokrID
        inner join TipDok TD On D.Sifra_dok =  TD.SifrA_Dok
        inner JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
        LEFT OUTER JOIN Komint Kom ON D.Sifra_Kup = Kom.Sifra_Kup
        LEFT OUTER JOIN OrgEd Prima ON D.Sifra_Prim = Prima.Sifra_Oe
        inner join OrgEd O
            on D.Sifra_Oe = O.Sifra_Oe
        Left Outer Join KatSerKlas KSK
            on KSK.Sifra_Art = S.Sifra_Art and KSK.KontrSer = S.LotBr
         Left Outer Join Drugo3 D3
            on D3.Sifra_3 = KSK.Sifra_3 '

    if @Sifra_Gr is not null
               Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON K.Sifra_Podg = P.Sifra_Podg '
    ------

    Declare @SSQL_Full varchaR(8000)
    set @SSQL_Full = ''

    Declare @SSQL_Usl_Spec varchaR(2000)

    if @DaliNovi = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''V'' '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

                set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliStornirani = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                                   (D.Spck_Stat = ''S'' or DS.Dokr_Id_Storno is not null) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

                   set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliOdjNeFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and
                             (D.Spck_Stat is null or (D.Spck_Stat <> ''F'' and D.Spck_Stat <> ''S'')) '

        if @SSQL_Full <> ''
                set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

                set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    if @DaliOdjFakt = 'D'
        begin
        set @SSQL_Usl_Spec = ' and D.VlIzl = ''I'' and D.Spck_Stat = ''F'' and DS.Dokr_Id_Storno is null '

        if @SSQL_Full <> ''
             set @SSQL_Full = @SSQL_Full + '
                 Union
                 '        -- Namerno radi ccitlivost na @SSQL_FULL

            set @SSQL_Full = @SSQL_Full + @SSQL + @SSQL_Usl + @SSQL_Usl_Spec
        end

    EXEC (@SSQL_Full)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kart_zatvstavki]'))
drop procedure [dbo].[sp_kart_zatvstavki]

Go

CREATE    PROCEDURE sp_Kart_ZatvStavki
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime,
       @Datum_Nal_Do Smalldatetime,
       @Datum_Dok_Od Smalldatetime,
       @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(6),
    @Kto2 Char(6) = Null,
    @KFKto2 Char(1) = 'N',
     @Sifra_OE Smallint,
       @Koi_OE Varchar(10) = NULL
AS
    Declare @SSQL Varchar(4000)
    SET @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis
        FROM AnFinDok A
        INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
              WHERE A.Sifra_Kup=' + @Sifra_Kup + '  AND (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
              Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    Else If @KoiFri = 'R'
        Set @SSQL = @SSQL + 'AND (A.Plateno_Dolzi = 0 and A.Plateno_Pobar = 0) '   -- Logikata ne e bas dobra (stavena e da ne prikazuva nisto); se isklucuva so gorniot uslov
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartart_joleks]'))
drop procedure [dbo].[sp_kartart_joleks]

Go

CREATE   procedure [dbo].[sp_KartArt_Joleks]
    @Sifra_OE smallint= null,
    @KoiOE Varchar(6)= null,
    @Sifra_Art Varchar(20),
    @Datum_Dok_Od Smalldatetime = null,
    @Datum_Dok_Do Smalldatetime = null
AS                       -- case when month(S.Datum_Dok)<9 then 0+month(S.Datum_Dok) else month(S.Datum_Dok) end
    Declare @SSQL Varchar(4000)
    SET @SSQL='    SELECT  Year(S.Datum_Dok) Godina, cast(month(S.Datum_Dok)as smallint) Mesec, sum(S.Kolic) Kolic, A.ImeArt, S.Sifra_Art
                   From Stavr S
                INNER JOIN Dokr D ON S.DokrID=D.DokrID
                   Left Outer Join Katart A on S.Sifra_Art=A.Sifra_Art
                Where D.Sifra_Za=1 and S.VlIzl=''I'' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art=''' + @Sifra_Art + ''' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    SET @SSQL =@SSQL + 'Group by S.Datum_dok, A.ImeArt, S.Sifra_Art '
    SET @SSQL =@SSQL + 'ORDER BY S.Datum_Dok  Desc '
print @ssql
exec(@ssql)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartart_meso]'))
drop procedure [dbo].[sp_kartart_meso]

Go
CREATE PROCEDURE sp_KartArt_Meso
    @Sifra_Oe    Smallint,
    @Koi_Oe    char(6),
    @Sifra_Art    varchar(20),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Dok    smallint,
    @Dobavuvac    char(6) = Null,
    @SoDDV    char(1) = 'D',
    @PrethVlBr    decimal(18,6) = Null Output,
    @PrethIzlBr    decimal(18,6) = Null Output,
    @PrethVlKgr    decimal(18,6) = Null Output,
    @PrethIzlKgr    decimal(18,6) = Null Output
AS
    Declare @SSQL as varchar(8000)
    If @Datum_Od Is Not Null
    Begin
        Create Table #PrethProm
        (
         PrethVlBr    decimal(18,6),
         PrethIzlBr    decimal(18,6),
         PrethVlKgr    decimal(18,6),
         PrethIzlKgr    decimal(18,6)
        )
        Set @SSQL = 'Select Sum(Case When S.VlIzl = ''V'' Then S.Alt_Kolic End), Sum(Case When S.VlIzl = ''I'' Then S.Alt_Kolic End),
                         Sum(Case When S.VlIzl = ''V'' Then S.Kolic End), Sum(Case When S.VlIzl = ''I'' Then S.Kolic End)
                From Stavr S
                Inner Join Dokr D On D.DokrID=S.DokrID
                Where S.Sifra_Art = ''' + @Sifra_Art + '''
                And S.Datum_Dok < ''' + Cast(@Datum_Od as Varchar(30)) + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @Koi_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
        If @Sifra_Dok Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Dok =  ' + Cast(@Sifra_Dok as varchar(6)) + ' '
        If @Dobavuvac Is Not Null
            Set @SSQL = @SSQL + ' And ((S.VlIzl = ''V'' And D.Sifra_Kup = ' + @Dobavuvac + ') Or (S.VlIzl = ''I'' And S.Dobav = ' + @Dobavuvac + ')) '
        Insert Into #PrethProm Exec(@SSQL)
        Select @PrethVlBr=PrethVlBr, @PrethIzlBr=PrethIzlBr, @PrethVlKgr=PrethVlKgr, @PrethIzlKgr=PrethIzlKgr
        From #PrethProm
    End
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok,
                S.Sifra_Art, K.ImeArt, dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDDV + ''')  DokCena,
                (Case When D.VlIzl = ''I'' Then D.Sifra_Kup End) Sifra_Kup, (Case When D.VlIzl = ''I'' Then Kup.ImeKup End) ImeKup,
                (Case When D.VlIzl = ''I'' Then D.Sifra_Obj End) Sifra_Obj, (Case When D.VlIzl = ''I'' Then KO.ImeObj End) ImeObj,
                (Case When D.VlIzl = ''V'' Then D.Sifra_Kup Else S.Dobav End) Dobavuvac, Dob.ImeKup ImeDobav,
                (Case When D.VlIzl = ''V'' Then S.Alt_Kolic Else 0 End) VlezBr, (Case When D.VlIzl = ''I'' Then S.Alt_Kolic Else 0 End) IzlezBr,
                (Case When D.VlIzl = ''V'' Then S.Kolic Else 0 End) VlezKgr, (Case When D.VlIzl = ''I'' Then S.Kolic Else 0 End) IzlezKgr
            From Stavr S
            Inner Join Dokr D On D.DokrID=S.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj = D.Sifra_Obj
            Left Outer Join Komint Dob On Dob.Sifra_Kup = (Case When D.VlIzl = ''V'' Then D.Sifra_Kup Else S.Dobav End)
            Where S.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Dok =  ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Dobavuvac Is Not Null
        Set @SSQL = @SSQL + ' And ((D.VlIzl = ''V'' And D.Sifra_Kup = ' + @Dobavuvac + ') Or (D.VlIzl = ''I'' And S.Dobav = ' + @Dobavuvac + ')) '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_art_rabnal_servis]'))
drop procedure [dbo].[sp_kartica_art_rabnal_servis]

Go

CREATE   PROCEDURE [dbo].[sp_Kartica_Art_RabNal_Servis]
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(25),
    @DatumOtv_Od    smalldatetime = Null,
    @DatumOtv_Do    smalldatetime = Null,
    @PodGarancija    char(1) = Null,        -- D - Pod Garancija    N - Drugi
    @Sifra_Kup    char(6) = Null,
    @PrethVlez    decimal(18,6) = 0 Output,
    @PrethIzlez    decimal(18,6) = 0 Output,
    @PrethIznos    decimal(18,6) = 0 Output,
     @Sifra_Rab     int = null,
     @Sifra_Rab_2     int = null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg char(6) = Null,
    @Tip_Operacija    char(1) = Null

AS

    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '
    If @KontrSer Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.KontrSer= ''' + @KontrSer + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_OeRab= ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Kup= ''' + @Sifra_Kup + ''' '
    If @PodGarancija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''D'' '
    Else If @PodGarancija = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''N'' '
       If @Sifra_Rab is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab= ' + cast(@Sifra_Rab as varchar(8))  + ' '
       If @Sifra_Rab_2 is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab_2 = ' + cast(@Sifra_Rab_2 as varchar(8))  + ' '
    if @Tip_Operacija <> '' and @Tip_Operacija is not null
        Set @SSQLUsl = @SSQLUsl + ' And R.Tip_Operacija = ''' + @Tip_Operacija + ''' '

    If @DatumOtv_Od Is Not Null
    Begin
        Create Table #Tab
        (Vlez        decimal(18,6),
        Izlez        decimal(18,6),
        Iznos        decimal(18,6) )
        Set @SSQL = ' Select Sum(Case When DRN.Tip_RabStav = ''V'' Then S.Kolic Else 0 End) Vlez,
                         Sum(Case When DRN.Tip_RabStav = ''F'' Then S.Kolic Else 0 End) Izlez,
                         Sum(Case When DRN.Tip_RabStav = ''F'' Then D.Toc200 Else 0 End) IznosPreth
            From Rabnal R
            Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
            Left Outer Join Dokr D On D.DokrID=DRN.DokrId
            Left Outer Join Stavr S On S.DokrID=D.DokrID
            Where DRN.Tip_RabStav In (''F'', ''V'') And R.Datum_Otv <''' + cast(@DatumOtv_Od as varchar(30)) + ''' '
        if @Sifra_Art is not null
            set @SSQL = @SSQL + ' and S.Sifra_Art = ''' + @Sifra_Art + ''' '

        Insert into #Tab Exec(@SSQL+@SSQLUsl)
        Select @PrethVlez=Vlez, @PrethIzlez=Izlez, @PrethIznos=Iznos From #Tab
    End

    Set @SSQL = ' Select R.Sifra_OeRab, R.Broj_RabN, R.Datum_Otv, R.Datum_Zatv, S.KontrSer, R.Garancija, K.ImeArt,
            (Case When DRN.Tip_RabStav = ''V'' Then S.Kolic Else 0 End) Vlez,
            (Case When DRN.Tip_RabStav = ''F'' Then S.Kolic Else 0 End) Izlez,
            (Case When DRN.Tip_RabStav = ''F'' Then D.Toc200 Else 0 End) Toc200,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok,
            R.Sifra_Kup, Kup.ImeKup, D.Opis, R.Opis Opis_RabN, S.Sifra_Art,
            RA.ImeRab, RA2.ImeRab ImeRab_2,    R.Sifra_Rab, R.Sifra_Rab_2,
            R.Datum_POc_Serv, R.Datum_Kr_Proiz, R.Datum_Izdav,
            DATEDIFF (hour, R.Datum_Poc_Serv, R.Datum_Kr_Proiz) SatiServis
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Left Outer Join Stavr S On S.DokrID=D.DokrID
        Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra_Kup
        Left Outer Join Katart K On K.Sifra_art = S.Sifra_art
        Left outer join Rabotnik RA on R.Sifra_Rab= RA.Sifra_Rab
        Left outer join Rabotnik RA2 on R.Sifra_Rab_2 = RA2.Sifra_Rab '

    if @Sifra_Gr is not null
        set @SSQL = @SSQL + ' Left Outer Join Podgrupi P
                                on K.Sifra_Podg = P.Sifra_Podg '

    set @SSQL = @SSQL + ' Where DRN.Tip_RabStav In (''F'', ''V'') '

    if @Sifra_Art is not null
        set @SSQL = @SSQL + ' and S.Sifra_Art = ''' + @Sifra_Art + ''' '
    if @Sifra_Gr is not null
        set @SSQL = @SSQL + ' and P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    if @Sifra_Podg is not null
        set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    If @DatumOtv_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Otv >= ''' + cast(@DatumOtv_Od as varchar(30)) + ''' '
    If @DatumOtv_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Otv <= ''' + cast(@DatumOtv_Do as varchar(30)) + ''' '

    Exec(@SSQL+@SSQLUsl)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_art_rabnal_servis_tros]'))
drop procedure [dbo].[sp_kartica_art_rabnal_servis_tros]

Go

CREATE PROCEDURE [dbo].[sp_Kartica_Art_RabNal_Servis_Tros]
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(25),
    @DatumOtv_Od    smalldatetime = Null,
    @DatumOtv_Do    smalldatetime = Null,
    @PodGarancija    char(1) = Null,        -- D - Pod Garancija    N - Drugi
    @Sifra_Kup    char(6) = Null,
    @PrethVlez    decimal(18,6) = 0 Output,
    @PrethIzlez    decimal(18,6) = 0 Output,
    @PrethIznos    decimal(18,6) = 0 Output,
     @Sifra_Rab     int = null,
     @Sifra_Rab_2     int = null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg char(6) = Null,
    @Tip_Operacija    char(1) = Null

AS

    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '
    If @KontrSer Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.KontrSer= ''' + @KontrSer + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_OeRab= ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Kup= ''' + @Sifra_Kup + ''' '
    If @PodGarancija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''D'' '
    Else If @PodGarancija = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''N'' '
       If @Sifra_Rab is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab= ' + cast(@Sifra_Rab as varchar(8))  + ' '
       If @Sifra_Rab_2 is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab_2 = ' + cast(@Sifra_Rab_2 as varchar(8))  + ' '
    if @Tip_Operacija <> '' and @Tip_Operacija is not null
        Set @SSQLUsl = @SSQLUsl + ' And R.Tip_Operacija = ''' + @Tip_Operacija + ''' '

    Set @SSQL = ' Select R.Sifra_OeRab, R.Broj_RabN, R.Datum_Otv, R.Datum_Zatv, S.KontrSer, R.Garancija, K.ImeArt,
            0 Vlez,
            S.Kolic Izlez,
            S.DokCena DokCena,
            S.DanDokCena DanDokCena,
            S.Uces Uces,
            S.POsn,
            D.Toc200,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok,
            R.Sifra_Kup, Kup.ImeKup, D.Opis, R.Opis Opis_RabN, S.Sifra_Art,
            RA.ImeRab, RA2.ImeRab ImeRab_2,    R.Sifra_Rab, R.Sifra_Rab_2,
            R.Datum_POc_Serv, R.Datum_Kr_Proiz, R.Datum_Izdav,
            DATEDIFF (hour, R.Datum_Poc_Serv, R.Datum_Kr_Proiz) SatiServis
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Left Outer Join Stavr S On S.DokrID=D.DokrID
        Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra_Kup
        Left Outer Join Katart K On K.Sifra_art = S.Sifra_art
        Left outer join Rabotnik RA on R.Sifra_Rab= RA.Sifra_Rab
        Left outer join Rabotnik RA2 on R.Sifra_Rab_2 = RA2.Sifra_Rab '

    if @Sifra_Gr is not null
        set @SSQL = @SSQL + ' Left Outer Join Podgrupi P
                                on K.Sifra_Podg = P.Sifra_Podg '

    set @SSQL = @SSQL + ' Where DRN.Tip_RabStav In (''T'') '

    if @Sifra_Art is not null
        set @SSQL = @SSQL + ' and S.Sifra_Art = ''' + @Sifra_Art + ''' '
    if @Sifra_Gr is not null
        set @SSQL = @SSQL + ' and P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    if @Sifra_Podg is not null
        set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    If @DatumOtv_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Otv >= ''' + cast(@DatumOtv_Od as varchar(30)) + ''' '
    If @DatumOtv_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Otv <= ''' + cast(@DatumOtv_Do as varchar(30)) + ''' '

    Exec(@SSQL+@SSQLUsl)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_artikal_boigolemini]'))
drop procedure [dbo].[sp_kartica_artikal_boigolemini]

Go





CREATE            PROCEDURE sp_Kartica_Artikal_BoiGolemini
    @Sifra_Oe        smallint,
    @KoiOe        varchar(6),
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Sifra_Art        varchar(20),
    @Sifra_Boja        smallint = Null,
    @Sifra_Velic        smallint = Null,
    @Lokacija        varchar(10) = Null,
    @Sifra_Kup        varchar(6) = Null,
    @Sifra_Obj        smallint = Null,
    @PrethVlez         decimal(18,6) = Null Output,
    @PrethIzlez         decimal(18,6) = Null Output
AS
    Set @PrethVlez=0
    Set @PrethIzlez=0
    Declare @SSQL as varchar(8000)
    If @Datum_Od Is Not Null
    Begin
        Create Table #Tab
        (
            Vlez        decimal(18,6),
            Izlez        decimal(18,6)
        )
    IF @Sifra_Velic IS NULL AND @Sifra_Boja IS NULL
    Begin
        Set @SSQL = ' Select Sum(Case When M.VlIzl = ''V'' Then M.Kolic Else 0 End) Vlez,
                Sum(Case When M.VlIzl = ''I'' Then M.Kolic Else 0 End) Izlez
                From MagStavr M
                Inner Join Dokr D On D.DokrID=M.DokrID
                Where D.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + '''
                And M.Sifra_Art = ''' + @Sifra_Art + ''' AND D.Datum_Dok<'''+cast(@Datum_Od as varchar(35))+''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        If @Sifra_Boja Is Not Null
            Set @SSQL = @SSQL + ' And replace(Substring(LotBr, PatIndex(''% %'', LotBr)+1, PatIndex(''%:%'', LotBr)-PatIndex(''% %'', LotBr)-1), ''*'', '''') = ' + Cast(@Sifra_Boja as varchar(6)) + ' '
        If @Sifra_Velic Is Not Null
            Set @SSQL = @SSQL + ' And replace(Substring(LotBr, PatIndex(''%:%'', LotBr)+1, 5), ''*'', '''') = ' + Cast(@Sifra_Velic as varchar(6)) + ' '
        If @Lokacija Is Not Null
            Set @SSQL = @SSQL + ' And M.Lokacija = ''' + @Lokacija + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    End
    ELSE
    Begin
        Set @SSQL = ' Select Sum(Case When M.VlIzl = ''V'' Then M.Kolic Else 0 End) Vlez,
                Sum(Case When M.VlIzl = ''I'' Then M.Kolic Else 0 End) Izlez
                From Stavr M
                Inner Join Dokr D On D.DokrID=M.DokrID
                Where D.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + '''
                And M.Sifra_Art = ''' + @Sifra_Art + '''  AND D.Datum_Dok<'''+cast(@Datum_Od as varchar(35))+''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    End
        Insert Into #Tab Exec(@SSQL)
        Select @PrethVlez=Vlez, @PrethIzlez=Izlez     From #Tab
    End
--sega da dopolnime za stavkite koi se bez boi
CREATE TABLE #TmpStavr
(Sifra_OE    smallint,
Sifra_Dok    smallint,
Broj_Dok    int,
Kolic        decimal(18,6),
KolicMag    decimal(18,6))
IF @Sifra_Velic IS NULL AND @Sifra_Boja IS NULL
Begin
    Set @SSQL = 'SELECT S.Sifra_OE, S.Sifra_Dok, S.Broj_Dok, SUM(S.Kolic), 0 FROM Stavr S Inner Join Dokr D On D.DokrID=S.DokrID
        WHERE S.Sifra_Art=''' + @Sifra_Art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Sifra_Dok, S.Broj_Dok '
    INSERT INTO #TmpStavr (Sifra_OE, Sifra_Dok, Broj_Dok, Kolic, KolicMag) EXEC(@SSQL)

     CREATE TABLE #TmpMag
    (Sifra_OE    smallint,
    Sifra_Dok    smallint,
    Broj_Dok    int,
    KolicMag    decimal(18,6))
    Set @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, SUM(S.Kolic) FROM MagStavr S Inner Join Dokr D On D.DokrID=S.DokrID
        WHERE S.Sifra_Art=''' + @Sifra_Art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' GROUP BY D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok '
    INSERT INTO #TmpMag (Sifra_OE, Sifra_Dok, Broj_Dok, KolicMag) EXEC(@SSQL)

    UPDATE #TmpStavr SET KolicMag=M.KolicMag FROM #TmpMag M WHERE #TmpStavr.Sifra_OE=M.Sifra_OE AND #TmpStavr.Sifra_Dok=M.Sifra_Dok AND #TmpStavr.Broj_Dok=M.Broj_Dok
End

    Set @SSQL = ' Select M.Sifra_Oe, O.ImeOrg, M.Sifra_Art, A.ImeArt, M.SpecOzn, A.EdMera, M.VlIzl, M.Kolic,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            M.Lokacija, M.Sifra_KatStatus, KS.ImeKatStatus, M.Sifra_KatPak, KP.ImeKatPak,
            RN.Sifra_OeRab, RN.Broj_RabN, M.LotBr,
            replace(Substring(LotBr, PatIndex(''% %'', LotBr)+1, PatIndex(''%:%'', LotBr)-PatIndex(''% %'', LotBr)-1), ''*'', '''') Sifra_Boja, B.ImeBoja,
            replace(Substring(LotBr, PatIndex(''%:%'', LotBr)+1, 5), ''*'', '''') Sifra_Velic, V.ImeVelic
        From MagStavr M
        Inner Join Dokr D On D.DokrID=M.DokrID
        Inner Join Katart A ON A.Sifra_Art = M.Sifra_Art
        Left Outer Join DokRabNal DRN On DRN.DokrID=D.DokrID
        Left Outer Join RabNal RN On RN.RabNalID=DRN.RabNalID
        Inner Join Orged O On O.Sifra_Oe = M.Sifra_Oe
        Left Outer Join Komint K On K.Sifra_kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join KatStatus KS On KS.Sifra_KatStatus=M.Sifra_KatStatus
        Left Outer Join TipKatPakuv KP On KP.Sifra_KatPak=M.Sifra_KatPak
        Left Outer Join Boja B On B.Sifra_Boja = replace(Substring(LotBr, PatIndex(''% %'', LotBr)+1, PatIndex(''%:%'', LotBr)-PatIndex(''% %'', LotBr)-1), ''*'', '''')
        Left Outer Join Velicina V On V.Sifra_Velic = replace(Substring(LotBr, PatIndex(''%:%'', LotBr)+1, 5), ''*'', '''')
        Where M.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Boja Is Not Null
        Set @SSQL = @SSQL + ' And replace(Substring(LotBr, PatIndex(''% %'', LotBr)+1, PatIndex(''%:%'', LotBr)-PatIndex(''% %'', LotBr)-1),''*'', '''') = ' + Cast(@Sifra_Boja as varchar(6)) + ' '
    If @Sifra_Velic Is Not Null
        Set @SSQL = @SSQL + ' And replace(Substring(LotBr, PatIndex(''%:%'', LotBr)+1, 5),''*'', '''') = ' + Cast(@Sifra_Velic as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '

Set @SSQL = @SSQL + ' UNION ALL
        Select M.Sifra_Oe, O.ImeOrg, '''+@Sifra_Art+''' Sifra_Art, A.ImeArt, '''' SpecOzn, A.EdMera, D.VlIzl, M.Kolic-M.KolicMag,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            '''' Lokacija, 0 Sifra_KatStatus, '''' ImeKatStatus, 0 Sifra_KatPak, '''' ImeKatPak,
            RN.Sifra_OeRab, RN.Broj_RabN, '''' LotBr,
            '''' Sifra_Boja, '''' ImeBoja,    '''' Sifra_Velic, '''' ImeVelic FROM #TmpStavr M
        Inner Join Dokr D On D.Sifra_OE=M.Sifra_OE AND D.Sifra_Dok=M.Sifra_Dok AND D.Broj_Dok=M.Broj_Dok
        Inner Join Katart A ON A.Sifra_Art = '''+@Sifra_Art+'''
        Left Outer Join DokRabNal DRN On DRN.DokrID=D.DokrID
        Left Outer Join RabNal RN On RN.RabNalID=DRN.RabNalID
        Inner Join Orged O On O.Sifra_Oe = M.Sifra_Oe
        Left Outer Join Komint K On K.Sifra_kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        WHERE M.Kolic<>M.KolicMag '
    --Set @SSQL = @SSQL + ' Order By D.Datum_Dok,M.Sifra_Oe '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_artikal_solotbroj]'))
drop procedure [dbo].[sp_kartica_artikal_solotbroj]

Go


CREATE          PROCEDURE [dbo].[sp_Kartica_Artikal_SoLotBroj]
    @Sifra_Oe        smallint,
    @KoiOe        varchar(6),
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Sifra_Art        varchar(20),
    @LotBroj        varchar(50),
    @Lokacija        varchar(10) = Null,
    @Sifra_KatStatus    smallint = Null,
    @RokRed_Od        varchar(6) = Null,
    @RokRed_Do        varchar(6) = Null,
    @Sifra_Kup        varchar(6) = Null,
    @PrethVlez         decimal(18,6) = Null Output,
    @PrethIzlez         decimal(18,6) = Null Output
AS
    Set @PrethVlez=0
    Set @PrethIzlez=0
    Declare @SSQL as varchar(8000)
    If @Datum_Od Is Not Null
    Begin
        Create Table #Tab
        (
            Vlez        decimal(18,6),
            Izlez        decimal(18,6)
        )
        Set @SSQL = ' Select Sum(Case When M.VlIzl = ''V'' Then M.Kolic Else 0 End) Vlez,
                Sum(Case When M.VlIzl = ''I'' Then M.Kolic Else 0 End) Izlez
                From MagStavr M
                Inner Join Dokr D On D.DokrID=M.DokrID
                Where D.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + '''
                And M.Sifra_Art = ''' + @Sifra_Art + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        If @LotBroj Is Not Null
            Set @SSQL = @SSQL + ' And M.LotBr = ''' + @LotBroj + ''' '
        If @Lokacija Is Not Null
            Set @SSQL = @SSQL + ' And M.Lokacija = ''' + @Lokacija + ''' '
        If @Sifra_KatStatus Is Not Null
            Set @SSQL = @SSQL + ' And M.Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '
        If @RokRed_Od Is Not Null
            Set @SSQL = @SSQL + ' And M.RokRed >= ''' + @RokRed_Od + ''' '
        If @RokRed_Do Is Not Null
            Set @SSQL = @SSQL + ' And M.RokRed <= ''' + @RokRed_Do + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        Insert Into #Tab Exec(@SSQL)
        Select @PrethVlez=Vlez, @PrethIzlez=Izlez
        From #Tab
    End
    Set @SSQL = ' Select M.Sifra_Oe, O.ImeOrg, M.Sifra_Art, A.ImeArt, M.SpecOzn, A.EdMera, M.VlIzl, M.Kolic,
            D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj,
            M.Lokacija, M.LotBr, M.RokRed, M.Sifra_KatStatus, KS.ImeKatStatus, M.Sifra_KatPak, KP.ImeKatPak,
            RN.Sifra_OeRab, RN.Broj_RabN, M.Datum_Vnes Datum_VnesMag, D.Oper_WMSPak, D.Sifra_Prim, ORG.ImeOrg ImeOrgPrim
        From MagStavr M
        Inner Join Dokr D On D.DokrID=M.DokrID
        Inner Join Katart A ON A.Sifra_Art = M.Sifra_Art
        Left Outer Join DokRabNal DRN On DRN.DokrID=D.DokrID
        Left Outer Join RabNal RN On RN.RabNalID=DRN.RabNalID
        Inner Join Orged O On O.Sifra_Oe = M.Sifra_Oe
        Left Outer Join Komint K On K.Sifra_kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join KatStatus KS On KS.Sifra_KatStatus=M.Sifra_KatStatus
        Left Outer Join TipKatPakuv KP On KP.Sifra_KatPak=M.Sifra_KatPak
        Left Outer Join OrgEd ORG On D.Sifra_prim=ORG.Sifra_Oe
        Where M.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @LotBroj Is Not Null
        Set @SSQL = @SSQL + ' And M.LotBr = ''' + @LotBroj + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And M.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_KatStatus Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '
    If @RokRed_Od Is Not Null
        Set @SSQL = @SSQL + ' And M.RokRed >= ''' + @RokRed_Od + ''' '
    If @RokRed_Do Is Not Null
        Set @SSQL = @SSQL + ' And M.RokRed <= ''' + @RokRed_Do + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Set @SSQL = @SSQL + ' Order By D.Datum_Dok,M.Sifra_Oe '
    Exec (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_kontrser_rabnal]'))
drop procedure [dbo].[sp_kartica_kontrser_rabnal]

Go
CREATE  PROCEDURE sp_Kartica_KontrSer_RabNal
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(25),
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @PrethVlez    decimal(18,6) = 0 Output,
    @PrethIzlez    decimal(18,6) = 0 Output
AS
    Declare @SSQL as varchar(4000)
    If @Datum_Od Is Not Null
    Begin
        Create Table #Tab
        (Vlez        decimal(18,6),
        Izlez        decimal(18,6) )
    End
    Set @SSQL = ' Select RN.Sifra_OeRab, RN.Datum_Vnes, RN.Datum_Otv, RN.Broj_RabN, K.ImeArt,
            D.Datum_Dok, D.VlIzl, DRN.Tip_RabStav, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok,
            E.Sifra_Art, E.KontrSer, E.Kolic, E.Tezina_Neto, E.Tezina_Bruto, E.Tezina_Dara
            From Dokr D
            Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
            Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
            Left Outer Join StaRabNal SRN On SRN.RabNalID = RN.RabNalID
            Left Outer Join EvProizvod E On E.DokrID=DRN.DokrID
            Inner Join Katart K On K.Sifra_Art=E.Sifra_Art
            Where 1=1 '
    If @Sifra_Art IS NOT NULL
        Set @SSQL = @SSQL + ' And E.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @KontrSer Is Not Null
        Set @SSQL = @SSQL + ' And E.KontrSer= ''' + @KontrSer + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_lotbroevi]'))
drop procedure [dbo].[sp_kartica_lotbroevi]

Go



CREATE    PROCEDURE sp_Kartica_LotBroevi
    @LotBroj    varchar(30),
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Art    varchar(20) = Null,
    @Sifra_Oe    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, M.Sifra_Oe, M.Sifra_Art, K.ImeArt, M.Kolic, M.VlIzl, M.SpecOzn, M.Paketi, D.Datum_Dok,
                RN.Sifra_OeRab, RN.Broj_RabN, M.LotBr
            From Dokr D
            Inner Join MagStavr M On M.DokrID=D.DokrID
            Inner Join Katart K On K.Sifra_Art=M.Sifra_Art
            Left Outer Join DokRabNal DRN On DRN.DokrID=D.DokrID
            Left Outer Join RabNal RN On RN.RabNalID=DRN.RabNalID
            Where M.LotBr =''' + @LotBroj + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And M.Sifra_Art= ''' + @Sifra_Art + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order By D.Datum_Dok '
print @SSQL
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartica_patnik]'))
drop procedure [dbo].[sp_kartica_patnik]

Go

CREATE    PROCEDURE sp_Kartica_Patnik
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Kto2         Char(6) = Null,
    @KFKto2     Char(1) = 'N',
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Sifra_Pat    smallint = Null        -- istoriski od AnFinDok
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQLUsl = ''
--------------------------------------------------  P R E T H O D E N      P R O M E T --------------------------------------------------
    CREATE TABLE #Preth_Promet
    (
    Sifra_Pat        Smallint,
    PrethDolzi        Numeric(18,4),
    PrethPobaruva        Numeric(18,4),
    PrethPlateno_Dolzi    Numeric(18,4),
    PrethPlateno_Pobar    Numeric(18,4)
--    PrethDolziNeg        Numeric(18,4),
--    PrethPobaruvaNeg    Numeric(18,4)
    )
--                Sum( Case WHEN Dolzi < 0 Then Dolzi  Else 0 End) DolziNeg,
--                Sum( Case WHEN Pobaruva < 0 Then Pobaruva Else 0 End) PobaruvaNeg
    If @Datum_Nal_Od Is Not Null Or @Datum_Dok_Od Is Not null Or @Datum_Dosp_Od Is Not Null
    Begin
        SET @SSQL = 'SELECT Sifra_Pat, Sum(A.Dolzi) Dolzi, Sum(A.Pobaruva) Pobaruva,
                Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar
                FROM AnFinDok A
                WHERE 1=1 '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + ' AND A.Datum_Dok < ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' AND A.Datum_Nal < ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
        If @Datum_Dosp_Od Is Not Null
            Set @SSQL = @SSQL + ' And DateAdd(Day, A.Rok, A.Datum_Dok) < ''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
        If @Sifra_Kup Is Not Null
            SET @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup=' + @Sifra_Kup + ' '
        If @Sifra_Za = '1' OR @Sifra_Za = '2'
            Set @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Za=' + @Sifra_Za + ' '
        Else If @Sifra_Za = '0'
            Set @SSQLUsl = @SSQLUsl + ' AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
        If @KoiFri = 'P'
            Set @SSQLUsl = @SSQLUsl + ' AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
        Else If @KoiFri = 'N'
            Set @SSQLUsl = @SSQLUsl + ' AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
        Else If @KoiFri = 'R'
            Set @SSQLUsl = @SSQLUsl + ' AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) and  (A.Plateno_Dolzi = 0 and A.Plateno_Pobar = 0) '  -- Logikata ne e bas dobra (stavena e da ne prikazuva nisto)
        Else If @KoiFri = 'M'
            Set @SSQLUsl = @SSQLUsl + ' AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) '  -- site stavki koi sto se delumno ili celosno plateni (zaradi slozuvanje so sp_Kart_ZatvStavki)
        If @Kto Is NOT Null  and @Kto2 Is Null
            SET @SSQLUsl = @SSQLUsl + ' AND A.Kto=''' + @Kto + ''' '
        If @Kto Is NOT Null  and @Kto2 Is Not Null
        Begin
            If @KFKto2 = 'D'
                SET @SSQLUsl = @SSQLUsl + ' AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
            Else
                SET @SSQLUsl = @SSQLUsl + ' AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
            End
        If @Kto Is Null  and @Kto2 Is Not Null
        Begin
            If @KFKto2 = 'D'
                SET @SSQLUsl = @SSQLUsl + ' AND  A.Kto  <> ''' + @Kto2 + ''' '
            Else
                SET @SSQLUsl = @SSQLUsl + ' AND A.Kto = ''' + @Kto2 + ''' '
        End
        If @Sifra_Pat Is NOT Null
            SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
        If @Sifra_OE Is NOT Null
            SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
        If @Koi_OE Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
        INSERT INTO #Preth_Promet EXEC(@SSQL+@SSQLUsl + ' Group By A.Sifra_Pat ')
    End
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------------------  T E K O V E N      P R O M E T  ---------------------------------------------------
    Create Table #Kartica
    (
    Sifra_Oe    smallint,
    Sifra_Dok    smallint,
    Broj_Dok    int,
    BrojDok        varchar(25),
    Sifra_Nal    smallint,
    Broj_Nal    int,
    Datum_Nal    smalldatetime,
    Datum_Dok    smalldatetime,
    Rok        smallint,
    Kto        char(10),
    Sifra_Pat    smallint,
    Sifra_Za    char(1),
    Opis        varchar(40),
    Dolzi        decimal(18,6),
    Pobaruva    decimal(18,6),
    Plateno_Dolzi    decimal(18,6),
    Plateno_Pobar    decimal(18,6),
    PrethDolzi        decimal(18,6),
    PrethPobaruva        decimal(18,6),
    PrethPlateno_Dolzi    decimal(18,6),
    PrethPlateno_Pobar    decimal(18,6)
    )
    SET @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Sifra_Pat,  A.Sifra_Za, A.Opis,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar,
            P.PrethDolzi, P.PrethPobaruva, P.PrethPlateno_Dolzi, P.PrethPlateno_Pobar
            FROM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            Left Outer Join #Preth_Promet P On P.Sifra_Pat=A.Sifra_Pat
            Where 1=1  '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + ' AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + ' And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + ' And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    Insert Into #Kartica Exec(@SSQL+@SSQLUsl)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Insert Into #Kartica (Sifra_Pat, PrethDolzi, PrethPobaruva, PrethPlateno_Dolzi, PrethPlateno_Pobar)
    Select Sifra_Pat, PrethDolzi, PrethPobaruva, PrethPlateno_Dolzi, PrethPlateno_Pobar
    From #Preth_Promet
--    Where (Sifra_Pat Not In (Select Distinct Sifra_Pat From #Kartica) Or Sifra_Pat Is Null)
--select * from #preth_promet
--    Insert Into #Kartica (Sifra_Pat, PrethDolzi, PrethPobaruva, PrethPlateno_Dolzi, PrethPlateno_Pobar)
--    Select Sifra_Pat, PrethDolzi, PrethPobaruva, PrethPlateno_Dolzi, PrethPlateno_Pobar
--    From #Preth_Promet
--    Where (Sifra_Pat Not In (Select Distinct Sifra_Pat From #Kartica) Or Sifra_Pat Is Null)
    Select K.Sifra_Oe, K.Sifra_Dok, K.Broj_Dok, K.BrojDok, K.Sifra_Nal,
        K.Broj_Nal, K.Datum_Nal, K.Datum_Dok, K.Rok, K.Kto,
        K.Sifra_Pat, P.ImePat, K.Sifra_Za, K.Opis,
        K.Dolzi, K.Pobaruva, K.Plateno_Dolzi, K.Plateno_Pobar,
        K.PrethDolzi, K.PrethPobaruva, K.PrethPlateno_Dolzi, K.PrethPlateno_Pobar
    From #Kartica K
    Left Outer Join Patnici P On P.Sifra_Pat=K.Sifra_Pat




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_karticanakontrbroj_leov]'))
drop procedure [dbo].[sp_karticanakontrbroj_leov]

Go
CREATE         PROCEDURE sp_KarticaNaKontrBroj_Leov
    @Sifra_Oe        smallint,
    @KoiOe        varchar(6),
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @LotBroj        varchar(50)
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    Create Table #Tab
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,
     Sifra_Art    varchar(20),
     Vlez        decimal(18,6),
     Izlez        decimal(18,6),
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok, S.Sifra_Art,
                (Case When S.VlIzl = ''V'' Then S.Kolic Else 0 End) Vlez,
                (Case When S.VlIzl = ''I'' Then S.Kolic Else 0 End) Izlez,
                D.Sifra_Kup, D.Sifra_Obj
        From Stavr S
        Inner Join Dokr D On D.DokrID=S.DokrID
        Where SubString(S.KontrSer,4,20) = ''' + @LotBroj + ''' '
    Insert Into #Tab Exec(@SSQL + @SSQLUsl)
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, M.Sifra_Art,
                (Case When M.VlIzl = ''V'' Then M.Kolic Else 0 End) Vlez,
                (Case When M.VlIzl = ''I'' Then M.Kolic Else 0 End) Izlez,
                D.Sifra_Kup, D.Sifra_Obj
        From MagStavr M
        Inner Join Dokr D On D.DokrID=M.DokrID
        Where M.LotBr = ''' + @LotBroj + ''' '
    Insert Into #Tab Exec(@SSQL + @SSQLUsl)
    Select T.Sifra_Oe, T.Sifra_Dok, T.Broj_Dok, T.Datum_Dok, T.Sifra_Art, K.ImeArt, T.Vlez, T.Izlez, T.Sifra_Kup, Kup.ImeKup, T.Sifra_Obj, KO.ImeObj
    From #Tab T
    Inner Join Katart K ON K.Sifra_Art = T.Sifra_Art
    Left Outer Join Komint Kup On Kup.Sifra_Kup = T.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup = T.Sifra_Kup And KO.Sifra_Obj=T.Sifra_Obj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_karticanakosignacija]'))
drop procedure [dbo].[sp_karticanakosignacija]

Go
CREATE    PROCEDURE sp_KarticaNaKosignacija
    @Sifra_Kup    Char(6) = Null,
    @Sifra_Obj    smallint = Null,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @SoDanok    char(1) = 'D',
    @Sifra_Art    varchar(20),
    @PrethVlKol    decimal(18,6) = Null Output,
    @PrethIzlKol    decimal(18,6) = Null Output,
    @PrethVlVred    decimal(18,6) = Null Output,
    @PrethIzlVred    decimal(18,6) = Null Output
AS
    Declare @SSQL Varchar    (8000)
    If @Datum_Od Is Not Null
    Begin
        Create Table #PrethSost
        (
          PrethVlKol    decimal(18,6),
          PrethIzlKol    decimal(18,6),
          PrethVlVred    decimal(18,6),
          PrethIzlVred    decimal(18,6)
        )                    -- ((Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then S.Kolic*K.SodrziEd Else S.Kolic End) * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End)),
        Set @SSQL = ' Select Sum((Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then (Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then S.Kolic*K.SodrziEd Else S.Kolic End) Else 0 End)),
                    Sum((Case When S.Sifra_Dok In (185, 186,191,192) Then S.Kolic Else 0 End)),
                    Sum((Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then     (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End)),
                    Sum((Case When S.Sifra_Dok In (185, 186,191,192) Then (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End))
                From Stavr S
                Inner Join Dokr D On D.DokrID = S.DokrID
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Where S.Sifra_Dok in (85,86,15,16,990,185,186,191,192)
                And S.Sifra_Art = ''' + @Sifra_Art + '''
                And S.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_kup + ' '
        If @Sifra_Obj Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as Varchar(6)) + ' '
        Insert Into #PrethSost Exec(@SSQL)
        Select @PrethVlKol=PrethVlKol, @PrethIzlKol=PrethIzlKol, @PrethVlVred=PrethVlVred, @PrethIzlVred=PrethIzlVred From #PrethSost
    End
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok, S.Sifra_Art,
                    (Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then
                        (Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then S.Kolic*K.SodrziEd Else S.Kolic End) Else 0 End) Vlez,
                    (Case When S.Sifra_Dok In (185, 186,191,192) Then S.Kolic Else 0 End) Izlez,
                    (Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then
                        (dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''') / K.SodrziEd) Else
                        dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''') End) Cena
            From Stavr S
            Inner Join Dokr D On D.DokrID = S.DokrID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Where S.Sifra_Dok in (85,86,15,16,990,185,186,191,192)
            And S.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_kup + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as Varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_karticanaserbr]'))
drop procedure [dbo].[sp_karticanaserbr]

Go

CREATE  PROCEDURE sp_KarticaNaSerBr
    @Sifra_Art    varchar(20),
    @SeriskiBr    varchar(15),
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select D.Datum_Dok, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.VlIzl, 1 as Kolic,
            D.Sifra_Kup, Kup.ImeKup, D.Sifra_Prim, O.ImeOrg as ImePrim
            From Dokr D
            Inner Join Stavr S On S.DokrID = D.DokrID
            Inner Join BrStavr B On B.DokID = S.DokID
            Left Outer Join Komint Kup On Kup.Sifra_kup = D.Sifra_Kup
            Left Outer Join Orged O On O.Sifra_Oe = D.Sifra_Prim
            Where S.Sifra_Art = ''' + @Sifra_Art + ''' and B.SeriskiBr= ''' + @SeriskiBr + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_expnapl]'))
drop procedure [dbo].[sp_kartios_expnapl]

Go



CREATE    PROCEDURE sp_KartIOS_ExpNapl
    @Sifra_Za Char(1) = Null,
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime = Null,
       @Datum_Nal_Do Smalldatetime = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime = Null,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(10) = Null,
     @Sifra_OE Smallint = Null,
       @Koi_OE Varchar(10) = NULL,
    @Sifra_Pat Smallint = Null,
    @Sifra_Nal Smallint = Null,
    @Sifra_Div Smallint = Null,
    @KoiPat varchar(10) = Null     -- Grupi na patnicite
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis, A.Sifra_Div,
            Kom.Sifra_Kup, Kom.ImeKup, 0 as TipKom, Kom.Kontakt, Kom.Adresa, '''' AdrBroj,
            Kom.Posta, Kom.Smesto,
            Kom.Danocen, Kom.MatBr,
            Kom.Banka, Kom.Ziro,
                        Kom.Telefon, Kom.Tel1,
            dbo.fn_VratiGodMesDenBas(A.Datum_Dok) aDatum_Dok,
            dbo.fn_VratiGodMesDenBas(DateAdd(day,A.Rok,A.Datum_Dok)) aDatum_Rok,
            dbo.fn_VratiGodMesDenBas(GetDate()) aDenes,
            ''MKD'' ImeVal,
            0 Kamata,
            Kom.Sopstvenik, Kom.Kontakt,
            Kdr1.Ime_1K
            froM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            INNER JOIN Komint Kom ON A.Sifra_Kup=Kom.Sifra_Kup
            Left Outer Join KDrugo1 Kdr1 on Kom.KDrugo1 = Kdr1.Sifra_1K
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' '

    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '

    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    Else If @KoiFri = 'F'
        Set @SSQL = @SSQL + 'AND T.TipDok=''1'' and (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '

    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '

    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '

    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '

    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '

    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '

    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '

    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '

    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '

    If @Sifra_Div Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '

    Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '

    EXEC(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint]'))
drop procedure [dbo].[sp_kartios_komint]

Go
CREATE                       PROCEDURE sp_KartIOS_Komint
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime,
       @Datum_Nal_Do Smalldatetime,
       @Datum_Dok_Od Smalldatetime,
       @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(10),
    @Kto2 Char(10) = Null,
    @KFKto2 Char(1) = 'N',
     @Sifra_OE Smallint,
       @Koi_OE Varchar(10) = NULL,
    @Sifra_Pat Smallint = Null,
    @Sifra_Nal Smallint = Null,
    @Sifra_Div Smallint = Null,
    @Podred char(1) = Null,
    @KoiPat varchar(10) = Null     -- Grupi na patnicite
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto, A.Kurs,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis,
            A.Sifra_Div, A.Sifra_Kup
            FROM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
    WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + ' And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + ' And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
EXEC(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint_dev]'))
drop procedure [dbo].[sp_kartios_komint_dev]

Go



CREATE      PROCEDURE sp_KartIOS_Komint_Dev
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(10),
    @Sifra_OE Smallint,
    @KojaVal char(3) = NULL,
    @Podred char(1) = Null,
    @Sifra_Div smallint = Null,
    @Sifra_Pat Smallint = Null
AS
    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, TD.ImeDok, A. Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar,
            A.Dev_Dolzi, A.Dev_Pobaruva, A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar, V.ImeVal,
            A.Sifra_Pat, A.Sifra_Za, Round(A.Kurs,4) Kurs,
            (Case When A.Broj_Kalk Is Not Null Then A.Opis + '' DK '' + Cast(Broj_Kalk as varchar(6)) Else A.Opis End) as Opis , A.AnID, A.Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal
        WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint_dev_divizii]'))
drop procedure [dbo].[sp_kartios_komint_dev_divizii]

Go

CREATE     PROCEDURE sp_KartIOS_Komint_Dev_Divizii
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @KojaVal char(3) = NULL,
    @Podred char(1) = Null,
    @Sifra_Div smallint = Null
AS
    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, TD.ImeDok, A. Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            (Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Dolzi, (Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Pobaruva,
            A.Plateno_Dolzi, A.Plateno_Pobar,
            (Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else A.Dev_Dolzi End) Dev_Dolzi,
            (Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else A.Dev_Pobaruva End) Dev_Pobaruva,
            A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar, V.ImeVal,
            A.Sifra_Pat, A.Sifra_Za,
            (Case When A.Broj_Kalk Is Not Null Then A.Opis + '' DK '' + Cast(Broj_Kalk as varchar(6)) Else A.Opis End) as Opis , A.AnID, GD.Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal
        LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID
        WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is NOT Null
        SET @SSQL = @SSQL + 'AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
print @SSQL
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint_divizii]'))
drop procedure [dbo].[sp_kartios_komint_divizii]

Go

CREATE                    PROCEDURE sp_KartIOS_Komint_Divizii
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime,
       @Datum_Nal_Do Smalldatetime,
       @Datum_Dok_Od Smalldatetime,
       @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(10),
    @Kto2 Char(10) = Null,
    @KFKto2 Char(1) = 'N',
     @Sifra_OE Smallint,
       @Koi_OE Varchar(10) = NULL,
    @Sifra_Pat Smallint = Null,
    @Sifra_Nal Smallint = Null,
    @Sifra_Div Smallint = Null,
    @Podred char(1) = Null,
    @KoiPat varchar(10) = Null     -- Grupi na patnicite
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            (Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Dolzi,
            (Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Pobaruva,
            A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis, GD.Sifra_Div
            FROM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID
    WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is NOT Null
        SET @SSQL = @SSQL + ' AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
print @SSQL
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint_dvebazi]'))
drop procedure [dbo].[sp_kartios_komint_dvebazi]

Go

CREATE                  PROCEDURE sp_KartIOS_Komint_DveBazi
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6)=Null,
    @KoiFri Char(1)=Null,
       @Datum_Nal_Od Smalldatetime=Null,
       @Datum_Nal_Do Smalldatetime=Null,
       @Datum_Dok_Od Smalldatetime=Null,
       @Datum_Dok_Do Smalldatetime=Null,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(6)=Null,
    @Kto2 Char(6) = Null,
    @KFKto2 Char(1) = 'N',
     @Sifra_OE Smallint=Null,
       @Koi_OE Varchar(10) = NULL,
    @Baza2 Varchar(15) = Null,
    @Sifra_Pat Smallint = Null,
    @KoiPat varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQl = ' '
    Set @SSQLUsl=' '
    Create Table #Rezult
    (
     KojaBaza    char(1),
     Sifra_OE    smallint,
     Sifra_Dok    smallint,
     ImeDok    varchar(100),
     Broj_Dok    int,
     BrojDok    varchar(100),
     Sifra_Nal     smallint,
      Broj_Nal    int,
     Datum_Nal     smalldatetime,
     Datum_Dok    smalldatetime,
     Rok        int,
     Kto        char(10),
     Dolzi        decimal(18,6),
     Pobaruva    decimal(18,6),
     Plateno_Dolzi    decimal(18,6),
     Plateno_Pobar    decimal(18,6),
     Sifra_Pat    smallint,
     Sifra_Za    char(1),
     AnID        int,
     Opis        varchar(100),
     Sifra_Div    smallint
    )
    SET @SSQL = 'SELECT 1 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis, A.Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
              WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
    If @KFKto2 = 'D'
        SET @SSQLUsl = @SSQLUsl + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
    Else
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
    If @KFKto2 = 'D'
        SET @SSQLUsl = @SSQLUsl + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
    Else
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    Set @SSQLUsl = @SSQLUsl + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
print @SSQL+@SSQLUsl
    Insert Into #Rezult EXEC(@SSQL+@SSQLUsl)
    SET @SSQL = 'SELECT 2 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis, A.Sifra_Div
        FROM ' + @Baza2 + '..AnFinDok A
        INNER JOIN  ' + @Baza2 + '..TipDok T ON A.Sifra_Dok=T.Sifra_Dok
              WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    Insert Into #Rezult EXEC(@SSQL+@SSQLUsl)
    Select * from #Rezult




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartios_komint_sodokoddokr]'))
drop procedure [dbo].[sp_kartios_komint_sodokoddokr]

Go


CREATE                    PROCEDURE sp_KartIOS_Komint_SoDokOdDokr
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
       @Datum_Nal_Od Smalldatetime,
       @Datum_Nal_Do Smalldatetime,
       @Datum_Dok_Od Smalldatetime,
       @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
       @Kto Char(10),
    @Kto2 Char(10) = Null,
    @KFKto2 Char(1) = 'N',
     @Sifra_OE Smallint,
       @Koi_OE Varchar(10) = NULL,
    @Sifra_Pat Smallint = Null,
    @Sifra_Nal Smallint = Null,
    @Sifra_Div Smallint = Null,
    @Podred char(1) = Null,
    @KoiPat varchar(10) = Null     -- Grupi na patnicite
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    SET @SSQL = ' SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.BrojDok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto, A.Kurs,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, A.Sifra_Pat, A.Sifra_Za, A.AnID, A.Opis, A.Sifra_Div
            FROM AnFinDok A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '


    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    If @Sifra_Nal Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '

    Set @SSQL = @SSQL + @SSQLUsl + ' Union '

    Set @SSQL = @SSQL + ' SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.Identif_br, A.Sifra_Nal, A.Broj_Nal, N.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto, A.Kurs,
            A.Toc200 as Dolzi, 0 as Pobaruva, A.Toc200 as Plateno_Dolzi, 0 as Plateno_Pobar,
            A.Sifra_Pat, A.Sifra_Za, A.DokrID as AnID, A.Opis, A.Sifra_Div
            FROM dokr A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            LEFT OUTER Join Nalozi N On N.Sifra_Nal = A.Sifra_Nal And N.Broj_Nal=A.Broj_Nal
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + '''
            And A.Sifra_Dok in (83,84) '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Toc200<>A.Toc200) '  -- mora nessto da se stavi

    Set @SSQL = @SSQL + @SSQLUsl

    Set @SSQL = @SSQL + @SSQLUsl + ' Union '

    Set @SSQL = @SSQL + ' SELECT 0 as KojaBaza, A.Sifra_OE, A.Sifra_Dok, T.ImeDok, A.Broj_Dok,
            A.Identif_br, A.Sifra_Nal, A.Broj_Nal, N.Datum_Nal, A.Datum_Dok, A.Rok, A.Kto, A.Kurs,
            0 as Dolzi, A.Toc200 as Pobaruva, 0 as Plateno_Dolzi, A.Toc200 as Plateno_Pobar,
            A.Sifra_Pat, A.Sifra_Za, A.DokrID as AnID, A.Opis, A.Sifra_Div
            FROM dokr A
            INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
            LEFT OUTER Join Nalozi N On N.Sifra_Nal = A.Sifra_Nal And N.Broj_Nal=A.Broj_Nal
            WHERE A.Sifra_Kup=''' + @Sifra_Kup + '''
            And A.Sifra_Dok in (83,84) '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Toc200<>A.Toc200) '  -- mora nessto da se stavi

    Set @SSQL = @SSQL + @SSQLUsl

    If @Podred = 'D'
        Set @SSQL = @SSQL + 'Order By Dateadd(Day, A.Rok, A.Datum_Dok), A.Sifra_Za, A.Broj_Dok '
    Else
        Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
print @SSQL
EXEC(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartkons]'))
drop procedure [dbo].[sp_kartkons]

Go


CREATE  PROCEDURE sp_KartKons
    @Koi_OE        Varchar(1000) = Null,
       @Datum_Od     Smalldatetime = Null,
       @Datum_Do     Smalldatetime = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         char(6) = Null,
    @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, TD.ImeDok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.Kasa,
            D.Datum_Dok, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj,
            S.Sifra_Art, A.ImeArt, A.Edmera, S.VlIzl, S.Kolic, S.DokCena, S.MagCena, S.Uces, S.DanDokCena, S.DanMagCena, S.POsn,
            D.Identif_Br, D.Ispratnica,  S.UcesOsn, S.UcesKol, (Case When S.UcesDod Is Null Then 0 Else S.UcesDod End) UcesDod,
            A.ImaKomerc, A.Sifra_Podg, S.Alt_Kolic,
            S.NabCena, D.Toc200, D.Spck_stat
        FROM DOKR D
        inner JOIN Stavr S ON S.DokrID=D.DokrID
        inner join TipDok TD On D.SIfra_dok =  TD.SifrA_Dok
        LEFT OUTER JOIN Katart A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup '
    if @Sifra_Gr is not null
         set @SSQL = @SSQL + 'LEFT OUTER JOIN Podgrupi PG ON A.Sifra_Podg=PG.Sifra_Podg '
    SET @SSQL = @SSQL + 'WHERE 1=1     '
       If @Koi_OE Is NOT Null
           Set @SSQL=@SSQL+'    and D.Sifra_OE In (' + @Koi_OE + ') '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
       If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
       If @Kto IS NOT NULL
              Set @SSQL=@SSQL+'AND A.Kto='''+@Kto+''' '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND PG.Sifra_Gr='''+@Sifra_Gr+''' '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND A.Sifra_Podg='''+@Sifra_Podg+''' '
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartkredit]'))
drop procedure [dbo].[sp_kartkredit]

Go






CREATE       PROCEDURE sp_KartKredit

    @Sifra_Oe smallint = null,
    @Sifra_Kor varchar(20) = null,
    @BrKredit int = null,
    @DatumOd smalldatetime= null,
    @DatumDo smalldatetime = null,
    @Prik char(1) = null
AS

    Declare @SSQL Varchar(8000)
     Set @SSQL=' Select KT.*, O.ImeOrg, K.ImeKor, KR.Sifra_Kor
                From KreditTransakc KT
                Inner Join OrgEd O on KT.Sifra_Oe= O.Sifra_Oe
                Left Outer Join Kredit KR on KT.Sifra_Oe=KR.Sifra_Oe and KT.Broj_kredit=KR.Broj_Kredit
                Left Outer Join KartKor K on KR.Sifra_Kor= K.Sifra_Kor
                Where 1=1 '

    IF @Sifra_Kor IS NOT NULL
        SET @SSQL = @SSQL + ' AND KR.Sifra_Kor='''+ @Sifra_Kor + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + ' AND KT.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @BrKredit Is NOT Null
        SET @SSQL = @SSQL + ' AND KT.Broj_Kredit=' + Cast(@BrKredit As Varchar(9)) + ' '
    If @DatumOd Is NOT Null
        SET @SSQL = @SSQL + ' AND KT.Datum_dosp>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
    If @DatumDo Is NOT Null
        SET @SSQL = @SSQL + ' AND KT.Datum_dosp<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
    IF @Prik='R'
        SET @SSQL = @SSQL + ' AND KT.Dolzi<>0 and KT.Dolzi is not null '
     IF @Prik='U'
        SET @SSQL = @SSQL + ' AND KT.Pobaruva<>0 and KT.Pobaruva is not null '
   exec(@ssql)

--print @SSQL








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartnaracart]'))
drop procedure [dbo].[sp_kartnaracart]

Go
CREATE PROCEDURE sp_KartNaracArt
    @Sifra_oe    smallint,
    @KoiOe    varchar(200),
    @Sifra_art    varchar(20),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_GrNar    smallint,
    @SoDanok    char(1)
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.Sifra_art, K.Imeart, N.Datum_Nar, N.Broj_Nar, N.Identif_Br, S.Sifra_Nar,
            dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''') Cena, S.Kolic , N.Sifra_Kup, KUP.ImeKup, T.Vlizl, G.Sifra_GrNar
            From StaNarac S
            Inner Join Naracki N On N.NarID=S.NarID
            Inner Join TipNarac T On T.Sifra_Nar = N.Sifra_Nar
            Inner Join Katart K On K.Sifra_art=S.Sifra_art
            Left Outer Join Komint KUP On KUP.Sifra_Kup = N.Sifra_Kup
            Left Outer Join GrNar G On G.Sifra_GrNar = T.Sifra_GrNar
            Where S.Sifra_art = ''' + @Sifra_art + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' and S.Sifra_Oe In (' + @KoiOe + ') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and N.Datum_Nar >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and N.Datum_Nar <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    If @Sifra_GrNar Is Not Null
        Set @SSQL = @SSQL + ' and G.Sifra_GrNar = ' + cast(@Sifra_GrNar as Varchar(6)) + ' '
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartprom_analitika]'))
drop procedure [dbo].[sp_kartprom_analitika]

Go




CREATE     PROCEDURE sp_KartProm_Analitika

    @Sifra_Oe         smallint = Null,
    @Grp_Kasa         smallint = Null,
    @BrKasa         smallint = Null,
    @Sifra_Kor         varchar (20) = Null,
    @Sifra_Nac         smallint = Null,
    @Datum_Ska_Od     smalldatetime = Null,
    @Datum_Ska_Do     smalldatetime = Null,
    @Sifra_Kup         char (6) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Kto            char(6) = Null,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do        varchar(20) = Null,
    @SifrarnikArtOd        char(1) = 'K',    -- K - Katart    A - ArkaKat
    @KorSoOe        char(1) = 'N',
        @SamoSoPopust           char(1) = 'N'

AS

    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    Create Table #Tmp2
    (
     Sifra_Oe    smallint,
     Grp_Kasa    smallint,
     BrKasa        smallint,
     Broj_Ska    int,
     VkIznos    decimal(18,6),
    )
    Set @SSQL = ' SELECT     A.Sifra_Oe, A.Grp_Kasa, A.BrKasa, A.Broj_Ska, Sum(S.Kolic*S.Cena*(1-S.Popust/100)) Vrednost
            FROM ArkaKartKpm A
            Inner Join SPromet S On S.Sifra_Oe = A.Sifra_Oe And S.Grp_Kasa = A.Grp_Kasa And S.BrKasa = A.BrKasa And S.Broj_Ska = A.Broj_Ska
            Where A.FraUpl = ''F'' '

    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Grp_Kasa Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Grp_Kasa = ' + Cast(@Grp_Kasa as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.BrKasa = ' + Cast(@BrKasa as varchar(6)) + ' '
    If @Sifra_Kor Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kor = ''' + @Sifra_Kor + ''' '
    If @Sifra_Nac Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Nac = ' + Cast(@Sifra_Nac as varchar(6)) + ' '
    If @Datum_Ska_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Ska >= ''' + Cast(@Datum_Ska_Od as varchar(30)) + ''' '
    If @Datum_Ska_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Ska <= ''' + Cast(@Datum_Ska_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @SamoSoPopust ='D'
        Set @SSQLUsl = @SSQLUsl + ' And S.Popust <> 0 '
        Insert Into #Tmp2 Exec(@SSQL+@SSQLUsl+ ' Group By A.Sifra_Oe, A.Grp_Kasa, A.BrKasa, A.Broj_Ska ')

    Create Table #Tmp1
    (
     Sifra_Oe    smallint,
     Grp_Kasa    smallint,
     BrKasa        smallint,
     Broj_Ska    int,
     Sifra_Nac    smallint,
     Iznos        decimal(18,6),
     VkIznos    decimal(18,6),
     Procent    decimal(18,6)
    )
    Insert Into #Tmp1
    Select K.Sifra_Oe, K.Grp_Kasa, K.BrKasa, K.Broj_Ska, K.Sifra_Nac, Sum(K.Iznos), T2.VkIznos, Sum(K.Iznos/T2.VkIznos)
    From #Tmp2 T2
    Inner Join PlkProm K On T2.Sifra_Oe=K.Sifra_Oe And T2.Grp_Kasa=K.Grp_Kasa And T2.BrKasa=K.BrKasa And T2.Broj_Ska=K.Broj_Ska
    Where T2.VkIznos Is Not Null And T2.VkIznos <> 0
    Group By K.Sifra_Oe, K.Grp_Kasa, K.BrKasa, K.Broj_Ska, K.Sifra_Nac, T2.VkIznos

    Update #Tmp1 set VkIznos = Iznos Where Abs(VkIznos-Iznos) < 1
    Update #Tmp1 set Procent = Iznos/VkIznos


    Set @SSQL = ' SELECT     A.Sifra_Kor, KK.ImeKor, S.Sifra_Art, K.ImeArt, Sum(S.Kolic*T.Procent) Kolic, Sum(S.Kolic*T.Procent*S.Cena*(1-S.Popust/100)) Vrednost
            FROM ArkaKartKpm A
            Inner Join SPromet S On S.Sifra_Oe = A.Sifra_Oe And S.Grp_Kasa = A.Grp_Kasa And S.BrKasa = A.BrKasa And S.Broj_Ska = A.Broj_Ska
            Inner Join #Tmp1 T On T.Sifra_Oe = A.Sifra_Oe And T.Grp_Kasa = A.Grp_Kasa And T.BrKasa = A.BrKasa And T.Broj_Ska = A.Broj_Ska And T.Sifra_Nac=A.Sifra_Nac '
    If @SifrarnikArtOd = 'A'
        Set @SSQL = @SSQL + ' Inner Join ArkaKartKor KK On KK.Sifra_Kor = A.Sifra_Kor
                      Inner Join ArkaKat K On S.Sifra_Art = K.Sifra_Art '
    Else
    Begin
        If @KorSoOe = 'D'
            Set @SSQL = @SSQL + ' Inner Join KartKor KK On KK.Sifra_Kor = A.Sifra_Kor And KK.Sifra_Oe = A.Sifra_Oe
                          Inner Join Katart K On S.Sifra_Art = K.Sifra_Art '
        Else
            Set @SSQL = @SSQL + ' Inner Join KartKor KK On KK.Sifra_Kor = A.Sifra_Kor
                          Inner Join Katart K On S.Sifra_Art = K.Sifra_Art '
    End
    If @Sifra_Gr Is Not Null And (@SifrarnikArtOd <> 'A' Or @SifrarnikArtOd Is Null)
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where A.FraUpl = ''F'' '

    Set @SSQL = @SSQL + @SSQLUsl

    If @Kto Is Not Null and @SifrarnikArtOd = 'K'
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @Sifra_Podg Is Not Null And (@SifrarnikArtOd <> 'A' Or @SifrarnikArtOd Is Null)
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null And (@SifrarnikArtOd <> 'A' Or @SifrarnikArtOd Is Null)
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @SamoSoPopust ='D'
        Set @SSQLUsl = @SSQLUsl + ' And S.Popust <> 0 '
        Set @SSQL = @SSQL + ' Group By A.Sifra_Kor, KK.ImeKor, S.Sifra_Art, K.ImeArt '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartvidtrosok]'))
drop procedure [dbo].[sp_kartvidtrosok]

Go


CREATE   Procedure sp_KartVidTrosok
    @Sifra_Div    smallint,
    @Kto_Anal    varchar(20)= null,
    @Datum_Nal_Od    smalldatetime = null,
    @Datum_Nal_do    smalldatetime= null,
    @Sifra_Oe    smallint= null,
    @Sif_GrOe    varchar(20)= null,
    @Sifra_nal    smallint= null
As
    Declare @SSQL  varchar(6000)        --Sum(V.Pobaruva)
    Set @SSQL=' Select V.Sifra_div, D.ImeDiv, V.Dolzi, V.Pobaruva, G.Kto_anal, A.ImeAnal, G.Datum_Nal, G.Sifra_Nal, G.Sifra_Oe, O.ImeOrg
                From GstAnDiv V
                Inner Join Gstav G on V.GstID=G.GstID
                Left Outer Join Divizii D on V.Sifra_Div=D.Sifra_Div
                Left Outer Join Anal A on G.Kto_Anal=A.Kto_Anal
                Left Outer Join OrgEd O on G.Sifra_Oe=O.Sifra_Oe
                Where V.Sifra_Div= ' + cast(@SIfra_Div as varchar(5)) + ' '
    IF @Kto_anal is not null
        Set @SSQL = @SSQL + ' And G.kto_Anal='''+ @Kto_Anal + ''' '
    IF @Datum_nal_Od is not null
        Set @SSQL = @SSQL + ' And G.Datum_Nal>='''+ cast(@Datum_nal_Od as varchar(35)) + ''' '
    IF @Datum_nal_Do is not null
        Set @SSQL = @SSQL + ' And G.Datum_Nal<='''+ cast(@Datum_nal_Do as varchar(35)) + ''' '
    IF @Sifra_Oe is not null
        Set @SSQL = @SSQL + ' And G.Sifra_Oe='+ cast(@Sifra_Oe as varchar(3)) + ' '
    IF @Sif_GrOe is not null
        Set @SSQL = @SSQL + ' And G.Sifra_Oe in (Select Sifra_Oe from sGrOrg where Sif_GrOrg='+ cast(@Sif_GrOe as varchar(30)) + ') '
    IF @Sifra_Nal is not null
        Set @SSQL = @SSQL + ' And G.Sifra_Nal='+ cast(@Sifra_Nal as varchar(4)) + ' '
    --Set @SSQL = @SSQL + ' Group  by V.Sifra_div, D.ImeDiv,G.Kto_Anal, A.ImeAnal, G.Datum_Nal, G.Sifra_Nal, G.Sifra_Oe, O.ImeOrg'
    Set @SSQL=@SSQL+' Order BY G.Kto_Anal, G.Datum_Nal'
    print(@ssql)
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kartzatv_komint]'))
drop procedure [dbo].[sp_kartzatv_komint]

Go

CREATE                    PROCEDURE sp_KartZatv_Komint
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @Dev    char(1) = 'N',
    @KojaVal char(3) = Null,
    @Datum_Dosp_Od Smalldatetime,
    @Datum_Dosp_Do Smalldatetime,
    @KojaStrana char(1) = Null,    -- D - Dolzi,          P - Pobaruva          -- S - i Dolzi i Pobaruva            Null - Bez Zatvaranja
    @Sifra_Pat Smallint = Null,
    @KoiPat varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    SET @SSQL = 'SELECT A.AnID, A.Sifra_OE, A.Sifra_Dok, A. Broj_Dok,
            A.Sifra_Za, TD.TipDok, V.ImeVal,
            A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar, Null, Null, A.Dev_Dolzi, A.Dev_Pobaruva, A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar
        FROM AnFinDok A
        INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok'
    IF @Dev = 'D'
        Set @SSQL = @SSQL + ' INNER JOIN KrsLista V ON A.KojaVal = V.SImeVal '
    Else
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal = V.SImeVal '
    Set @SSQL = @SSQL + ' WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '--and TD.TipDok = 2'
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + ' AND A.Sifra_Za=' + @Sifra_Za + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    Set @SSQL = @SSQL + 'Order By A.Datum_Dok, A.Sifra_Za, A.Broj_Dok '
    Create Table #Kartica
    (    AnID Int,
        Sifra_OE Smallint,
        Sifra_Dok Smallint,
        Broj_Dok Int,
        Sifra_Za Char(1),
        TipDok Char(1),
        ImeVal varchar(20),
        Dolzi Decimal(18,6),
        Pobaruva Decimal(18,6),
        Plateno_Dolzi Decimal(18,6),
        Plateno_Pobar Decimal(18,6),
        ZatvaraSo Int,
        ZatvIznos Decimal(18,6),
        Dev_Dolzi Decimal(18,6),
        Dv_Pobaruva Decimal(18,6),
        Dev_Plat_Dolzi Decimal(18,6),
        Dev_Plat_Pobar Decimal(18,6)
    )
    Insert #Kartica EXEC(@SSQL)
    If @KojaStrana = 'D' Or @KojaStrana = 'P' Or @KojaStrana = 'S'
    Begin
        Set @SSQL = ' Insert Into #Kartica
            Select A.AnID, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Za,
            TD.TipDok, V.ImeVal, A.Dolzi, A.Pobaruva,
            A.Plateno_Dolzi, A.Plateno_Pobar, (Case When A.AnID=AZ.AnID1 Then AZ.AnID2 When A.AnID=AZ.AnID2 Then AZ.AnID1 Else Null End),
            Abs(AZ.Iznos) * (Case When A.Dolzi <> 0 Then Sign(A.Dolzi)
                            When A.Pobaruva <> 0 Then Sign(A.Pobaruva) Else 1 End),
            A.Dev_Dolzi, A.Dev_Pobaruva,  A.Dev_Plat_Dolzi, A.Dev_Plat_Pobar
            From AnFinDok A
            Inner Join AnZatv AZ On AZ.AnID1=A.AnID Or AZ.AnID2=A.AnID
            Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
            LEFT OUTER JOIN KrsLista V ON A.KojaVal = V.SImeVal
            Where A.AnID In (Select AnID From #Kartica) '
        If @KojaStrana = 'D'
            Set @SSQL = @SSQL + ' And A.Dolzi <> 0 '
        Else If @KojaStrana = 'P'
            Set @SSQL = @SSQL + ' And A.Pobaruva <> 0 '
        Exec(@SSQL)
    End
    Select K.*, A.Sifra_Nal, A.Broj_Nal, A.Datum_Dok, A.Rok,
             A.BrojDok, TD.ImeDok, A.Kto, Z.BrojDok BrDokZatv,
             Z.Sifra_Oe SifraOeZatv, Z.Sifra_Dok Sif_Dok_Zatv, Z.Broj_Dok Br_Dok_Zatv, Z.Datum_Dok DatumZatv,
            Z.Sifra_Nal Sif_Nal_Zatv, Z.Broj_Nal Broj_Nal_Zatv, A.Opis
    From #Kartica K
    Inner Join AnFinDok A On K.AnID=A.AnID
    Inner Join TipDok TD On K.Sifra_Dok=TD.Sifra_Dok
    Left Outer Join AnFinDok Z On K.ZatvaraSo = Z.AnID
    Order By K.ZatvaraSo, TD.TipDok Desc, A.Datum_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kasstavpecfisc]'))
drop procedure [dbo].[sp_kasstavpecfisc]

Go

CREATE  PROCEDURE sp_KasStavPecFisc
    @Sifra_Nal smallint,
    @Broj_Dok int,
    @P_I          char(1),
    @TipBlag    char(3)=NULL,
    @Pec_Fisc smallint OUTPUT
AS
IF @TipBlag IS NULL
    SELECT @Pec_Fisc=Pec_Fisc
    FROM KasStav
    WHERE Sifra_Nal=@Sifra_Nal AND Broj_Dok=@Broj_Dok and P_I=@P_I
ELSE
    SELECT @Pec_Fisc=Pec_Fisc FROM KasStav
    WHERE Sifra_Nal=@Sifra_Nal AND Broj_Dok=@Broj_Dok and P_I=@P_I AND TipBlag=@TipBlag




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kasstavpecfiscnv]'))
drop procedure [dbo].[sp_kasstavpecfiscnv]

Go

CREATE  PROCEDURE sp_KasStavPecFiscNV
    @Sifra_Nal smallint,
    @Broj_Dok int,
    @P_I          char(1),
    @TipBlag    char(3)=NULL,
    @Pec_Fisc smallint
AS
IF @TipBlag IS NULL
    UPDATE KasStav
    Set Pec_Fisc=@Pec_Fisc
    WHERE Sifra_Nal=@Sifra_Nal AND Broj_Dok=@Broj_Dok and P_I=@P_I
ELSE
    UPDATE KasStav Set Pec_Fisc=@Pec_Fisc
    WHERE Sifra_Nal=@Sifra_Nal AND Broj_Dok=@Broj_Dok and P_I=@P_I AND TipBlag=@TipBlag




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_katart_barkod]'))
drop procedure [dbo].[sp_katart_barkod]

Go

CREATE             PROCEDURE sp_Katart_BarKod
    @Od        Varchar(40),
    @Do        Varchar(40),
    @Podred    Varchar(10),
    @Sifra_Podg    Varchar(12),
    @Sifra_Gr    Varchar(6),
    @Sifra_Tar    Char(3),
    @Kto        Varchar(6),
    @Sifra_Drg    Smallint = NULL,
    @Lokacija    varchar(10) = NULL,
    @Sifra_ZBrand    smallint  = NULL,
    @DatDodOd    smalldatetime = null,
    @DatDodDo    smalldatetime = null,
    @DatIzmOd    smalldatetime = null,
    @DatIzmDo    smalldatetime = null,
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N      (od @Sifra_Podg)
    @Sifra_Div    smallint = Null,
    @Aktiven    char(1) = Null,
        @VoPDA      char(1) = Null
AS
    Declare @SSQL VARCHAR(4000)
    Set @Podred = Upper(@Podred)
    If @Podred Is Null
        Set @Podred = 'SIFRA'
    SET @SSQL =  'Select K.Sifra_Art, K.Imeart, K.Nom, A.Nom BarKod
        From Katart K
        Inner Join Podgrupi P On K.Sifra_Podg=P.Sifra_Podg
        Inner Join Grupi G On P.Sifra_Gr=G.Sifra_Gr '
    Set @SSQL = @SSQL + ' Left Outer Join Abarkod A On A.Sifra_art=K.Sifra_Art '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+' Where 1=1 '
    If @Podred = 'SIFRA' Or @Podred = 'GRUPA' Or @Podred = 'PODGRUPA' Or @Podred = 'BRAND'
        Begin
            If @Od Is Not Null
                Set @SSQL = @SSQL + 'And K.Sifra_Art>=''' + Cast(@Od As Varchar(20)) + ''' '
            If @Do Is Not Null
                Set @SSQL = @SSQL + 'And K.Sifra_Art<=''' + Cast(@Do As Varchar(20)) + ''' '
        End
    Else If @Podred = 'IME'
        Begin
            If @Od Is Not Null
                Set @SSQL = @SSQL + 'And K.ImeArt>=''' + Cast(@Od As Varchar(40)) + ''' '
            If @Do Is Not Null
                Set @SSQL = @SSQL + 'And K.ImeArt<=''' + Cast(@Do As Varchar(40)) + ''' '
        End
       If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQL=@SSQL+'AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
                  Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
--    If @Sifra_Podg Is Not Null
--        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + Cast(@Sifra_Podg As Varchar(12)) + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=''' + Cast(@Sifra_Gr As Varchar(6)) + ''' '
    If @Sifra_Tar Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Tar=''' + Cast(@Sifra_Tar As Varchar(6)) + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + 'And K.Kto=''' + Cast(@Kto As Varchar(6)) + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + 'And K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=''' + Cast(@Sifra_Drg As Varchar(6)) + ''' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @DatDodOd Is Not Null
        Set @SSQL = @SSQL + 'And K.DodadenNa>=''' + Cast(@DatDodOd As Varchar(35)) + ''' '
    If @DatDodDo Is Not Null
        Set @SSQL = @SSQL + 'And K.DodadenNa<=''' + Cast(@DatDodDo As Varchar(35)) + ''' '
    If @DatIzmOd Is Not Null
        Set @SSQL = @SSQL + 'And K.IzmenetNa>=''' + Cast(@DatIzmOd As Varchar(35)) + ''' '
    If @DatIzmDo Is Not Null
        Set @SSQL = @SSQL + 'And K.IzmenetNa<=''' + Cast(@DatIzmDo As Varchar(35)) + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    If @VoPDA Is Not Null and @VoPDA <> ''
        Set @SSQL = @SSQL + ' And K.VoPDA = ''' + @VoPDA + ''' '
        If @Podred = 'SIFRA'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Art '
    Else If @Podred = 'IME'
        Set @SSQL = @SSQL + 'Order By K.ImeArt, K.Sifra_Art'
    Else If @Podred = 'PODGRUPA'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Podg'
    Else If @Podred = 'GRUPA'
        Set @SSQL = @SSQL + 'Order By P.Sifra_Gr, K.Sifra_Art'
    Else If @Podred = 'BRAND'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg, K.Sifra_Art'
        Else If @Podred = 'LOKACIJA'
        Set @SSQL = @SSQL + 'Order By K.Lokacija'
print @ssql
    EXEC (@SSQL)
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_katart_pregled]'))
drop procedure [dbo].[sp_katart_pregled]

Go





CREATE        PROCEDURE [dbo].[sp_Katart_Pregled]
    @Od        Varchar(40),
    @Do        Varchar(40),
    @Podred    Varchar(10),
    @Sifra_Podg    Varchar(12) = NULL,
    @Sifra_Gr    Varchar(6) = NULL,
    @Sifra_Tar    Char(3) = NULL,
    @Kto        Varchar(6) = NULL,
    @Sifra_Drg    Smallint = NULL,
    @Lokacija    varchar(10) = NULL,
    @Sifra_ZBrand    smallint  = NULL,
    @DatDodOd    smalldatetime = null,
    @DatDodDo    smalldatetime = null,
    @DatIzmOd    smalldatetime = null,
    @DatIzmDo    smalldatetime = null,
    @SoPodgrupi    char(1) = 'D',
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N      (@Sifra_Podg)
    @KolkuMesta    smallint = Null,        -- Se Odnesuva na podgrupite    2, 3, 4, 5, 6
    @Sifra_Div    smallint = Null,
    @Aktiven    char(1) = Null,        -- D/N
    @SlikaPrik    char(1) = 'N',
    @Sifra_Oe    smallint = null,
    @Sifra_KHier     nvarchar(20)= null,
        @VoPDA      char(1) = null
AS

    Declare @SSQL VARCHAR(4000)
    Set @Podred = Upper(@Podred)
    If @Podred Is Null
        Set @Podred = 'SIFRA'
    SET @SSQL =  'Select K.Sifra_Art, K.Imeart, K.ImeArt2, K.Edmera, '
    If @SoPodgrupi = 'D'
           If @KolkuMesta Is Not Null
        Set @SSQL = @SSQL + ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, '
          Else
        Set @SSQL = @SSQL + ' K.Sifra_Podg, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, '
    Else
        Set @SSQL = @SSQL + ' K.Sifra_Podg,  '' '' as Ime_Podg, '' '' as Sifra_Gr, '' '' as Ime_Gr, '
    Set @SSQL = @SSQL + ' K.Sifra_Tar, K.Lokacija,
            K.Kto, KUP.ImeKup,
            (Case When K.Nom Is Not Null And K.Nom <> '''' Then K.Nom Else dbo.fn_Nom(K.Sifra_Art) End) Nom,
            K.SMatUsl, K.Proc_Marza,
                               K.ImaBroevi, K.ImaKomerc, K.SodrziEd,
            K.DogCena, K.MalCena, K.SpeCena, K.Nabavna, K.GotCena, K.DodadenNa, K.DodadenOd, K.IzmenetNa, K.IzmenetOd,
            K.Drugo1,K.Drugo2,K.Drugo3,K.Drugo4,K.Drugo5,K.Drugo6,K.Drugo7,
            K.Rabat_Dali,K.DaliSurov, K.VoPDA,
            D1.Ime_1, D2.Ime_2, D3.Ime_3, D4.Ime_4, D5.Ime_5, D6.Ime_6, D7.Ime_7,
            K.KolkuDrg, K.Sifra_Drg, B.Ime, B.Sifra_Drg1, ZB.Ime_Drg1, K.Alt_Sifra, K.Alt_Ime, K.Alt_Ime2,
            K.Tezina, K.BTezina, K.ProcAlk, K.Aktiven, K.SMin_Sost, K.SMax_Sost, K.SOpt_Sost,
            K.Sifra_Amb, A.ImeAmb, A.SodrziArt, A.Sifra_GAmb, GA.ImeAmb ImeGAmb,
            T.ProcOsn, K.MKProiz, K.Kto_Anal, K.Fakturna, K.Koef,
            K.PCena5, K.PCena6, K.Sifra_ATC, K.SifrA_Div,
            K.RokTraDen, K.RokKontrDali, K.DeklArt, K.PCena4, K.PCena5 '    -- 11.12.09 besse K.Nom
    if @Sifra_Oe is not null
        Set @SSQL = @SSQL + ' , Soa.Cena CenaSoa, Soa.Vlez - Soa.Izlez SostSoa '
    if @SlikaPrik = 'D'
        Set @SSQL = @SSQL + ' , Slik.SlikaArt '

    Set @SSQL = @SSQL + ' From Katart K '
    If @KolkuMesta Is Not Null
        Set @SSQL=@SSQL+'Left Outer Join Podgrupi P On P.Sifra_Podg = Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ')
                          Left Outer Join Grupi G ON G.Sifra_Gr = P.Sifra_Gr '
    Else
        Set @SSQL=@SSQL+'     Inner Join Podgrupi P On K.Sifra_Podg=P.Sifra_Podg
                    Inner Join Grupi G On P.Sifra_Gr=G.Sifra_Gr '
    Set @SSQL = @SSQL + ' Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
        Left Outer Join Drugo1 D1 On K.Drugo1=D1.Sifra_1
        Left Outer Join Drugo2 D2 On K.Drugo2=D2.Sifra_2
        Left Outer Join Drugo3 D3 On K.Drugo3=D3.Sifra_3
        Left Outer Join Drugo4 D4 On K.Drugo4=D4.Sifra_4
        Left Outer Join Drugo5 D5 On K.Drugo5=D5.Sifra_5
        Left Outer Join Drugo6 D6 On K.Drugo6=D6.Sifra_6
        Left Outer Join Drugo7 D7 On K.Drugo7=D7.Sifra_7
        Left Outer Join Komint KUP On K.Kto=KUP.Sifra_Kup
        Left Outer JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg
        Left Outer Join DrgPodel1 ZB On ZB.Sifra_Drg1=B.Sifra_Drg1
        Left Outer Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
        Left Outer Join KatAmb GA On GA.Sifra_Amb=A.Sifra_GAmb '

    if @Sifra_Oe is not null
        set @SSQL = @SSQL + ' Left Outer Join Soart Soa on Soa.Sifra_oe = ' + cast (@Sifra_Oe as varchar (5)) +
                    ' and Soa.Sifra_Art = K.Sifra_Art '

    if @SlikaPrik = 'D'
        Set @SSQL = @SSQL + ' left outer Join KatSliki Slik on K.SifrA_Art=Slik.Sifra_Art '

    Set @SSQL=@SSQL+' Where 1=1 '
    If @Podred = 'SIFRA' Or @Podred = 'GRUPA' Or @Podred = 'PODGRUPA' Or @Podred = 'BRAND' Or @Podred = 'ASIFRA'
        Begin
            If @Od Is Not Null
                Set @SSQL = @SSQL + 'And K.Sifra_Art>=''' + Cast(@Od As Varchar(20)) + ''' '
            If @Do Is Not Null
                Set @SSQL = @SSQL + 'And K.Sifra_Art<=''' + Cast(@Do As Varchar(20)) + ''' '
        End
    Else If @Podred = 'IME'
        Begin
            If @Od Is Not Null
                Set @SSQL = @SSQL + 'And K.ImeArt>=''' + Cast(@Od As Varchar(40)) + ''' '
            If @Do Is Not Null
                Set @SSQL = @SSQL + 'And K.ImeArt<=''' + Cast(@Do As Varchar(40)) + ''' '
        End
       If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQL=@SSQL+'AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
                  Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
--    If @Sifra_Podg Is Not Null
--        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + Cast(@Sifra_Podg As Varchar(12)) + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=''' + Cast(@Sifra_Gr As Varchar(6)) + ''' '
    If @Sifra_Tar Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Tar=''' + Cast(@Sifra_Tar As Varchar(6)) + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + 'And K.Kto=''' + Cast(@Kto As Varchar(6)) + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + 'And K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=''' + Cast(@Sifra_Drg As Varchar(6)) + ''' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @DatDodOd Is Not Null
        Set @SSQL = @SSQL + 'And K.DodadenNa>=''' + Cast(@DatDodOd As Varchar(35)) + ''' '
    If @DatDodDo Is Not Null
        Set @SSQL = @SSQL + 'And K.DodadenNa<=''' + Cast(@DatDodDo As Varchar(35)) + ''' '
    If @DatIzmOd Is Not Null
        Set @SSQL = @SSQL + 'And K.IzmenetNa>=''' + Cast(@DatIzmOd As Varchar(35)) + ''' '
    If @DatIzmDo Is Not Null
        Set @SSQL = @SSQL + 'And K.IzmenetNa<=''' + Cast(@DatIzmDo As Varchar(35)) + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    --dod 28.07.09
    If  @Sifra_KHier is not null
        Set @SSQL = @SSQL + ' And K.Sifra_KHier = '''+ Cast(@Sifra_KHier As Varchar(20)) + ''' '

        If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    If @VoPDA Is Not Null and @VoPDA <> ''
        Set @SSQL = @SSQL + ' And K.VoPDA = ''' + @VoPDA + ''' '
        If @Podred = 'SIFRA'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Art '
    Else If @Podred = 'IME'
        Set @SSQL = @SSQL + 'Order By K.ImeArt, K.Sifra_Art'
    Else If @Podred = 'PODGRUPA'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Podg'
    Else If @Podred = 'GRUPA'
        Set @SSQL = @SSQL + 'Order By P.Sifra_Gr, K.Sifra_Art'
    Else If @Podred = 'BRAND'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Drg, K.Sifra_Art'
        Else If @Podred = 'LOKACIJA'
        Set @SSQL = @SSQL + 'Order By K.Lokacija'

    EXEC (@SSQL)

    RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_katart_pregled_1]'))
drop procedure [dbo].[sp_katart_pregled_1]

Go
CREATE PROCEDURE sp_Katart_Pregled_1
    @Sifra_Art_Od    Varchar(20),
    @Sifra_Art_Do    Varchar(20),
    @Kto        Char(6),
    @Sifra_Gr    varChar(6),
    @Sifra_Podg    Char(6),
    @Sifra_Drg    smallint,
    @Sifra_Tar    Char(3),
    @Sifra_OE    smallint = NULL,
    @Koi_Artikli    char(1) = Null
 AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL= ' Select S.Sifra_Art, K.Imeart, K.Edmera, K.Sifra_Podg,
            P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, K.Sifra_Tar, K.Lokacija,
            K.Kto, KUP.ImeKup, K.Nom,
            K.SMatUsl, K.Proc_Marza, A.Drugo2 Sifra_Drg, B.Ime_2 Ime_Drg,
            S.Cena, S.DanCena, K.DogCena, K.MalCena, K.SpeCena, K.GotCena, S.Posn
        From Soart S
        Inner Join Katart K On K.Sifra_art = S.Sifra_art
        Left Outer Join Abarkod A On K.Sifra_art = A.Sifra_Art
        Inner Join Podgrupi P On K.Sifra_Podg=P.Sifra_Podg
        Inner Join Grupi G On P.Sifra_Gr=G.Sifra_Gr
        Left Outer Join Komint KUP On K.Kto=KUP.Sifra_Kup
        Left Outer Join Drugo2 B On A.Drugo2=B.Sifra_2
        Where 1=1 '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE = ' + Cast(@Sifra_OE as varchar(5)) + ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_art >= ''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_art <= ''' + @Sifra_art_Do + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL + ' And A.Drugo2 = ''' + cast(@Sifra_Drg as varchar(10)) + ''' '
    If @Sifra_Tar Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Tar >= ''' + @Sifra_tar + ''' '
    If @Koi_Artikli='S'
        Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez<>0) '
    Else If @Koi_Artikli='P'
        Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez>0) '
    Else If @Koi_Artikli='N'
        Set @SSQL=@SSQL+'AND (S.Vlez-S.Izlez<0) '
Exec (@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_katspecpakuv_pregled]'))
drop procedure [dbo].[sp_katspecpakuv_pregled]

Go


CREATE PROCEDURE [dbo].[sp_KatSpecPakuv_Pregled]
    @Sifra_Art_Od    Varchar(20) = NULL,
    @Sifra_Art_Do    Varchar(20) = NULL,
    @Kto        Char(6) = NULL,
    @Sifra_Gr    varChar(6) = NULL,
    @Sifra_Podg    Char(6) = NULL,
    @Sifra_Drg    smallint = NULL,
    @Sifra_ZBrand    smallint = NULL,
    @Sifra_Div    smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Sifra_TipMat    smallint = Null,
    @Lokacija Varchar(10) = Null
 AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL= ' Select K.Sifra_Art, KA.Imeart, K.Sifra_TipMat, TM.ImeTipMat, K.Vid_Pakuv, K.Opis_Komp, K.Tezina, K.Datum,
                 KA.Kto, KUP.ImeKup, TM.Tip TipMat, KA.ImaKomerc, KA.ImaBroevi
                    From KatSpecPakuv K
                 Inner Join KatSpecTipMat TM On TM.Sifra_TipMat= K.Sifra_TipMat
                 Inner Join Katart KA On KA.Sifra_art = K.Sifra_art
                 Inner Join Podgrupi P On KA.Sifra_Podg=P.Sifra_Podg
                 Inner Join Grupi G On P.Sifra_Gr=G.Sifra_Gr
                    Left Outer Join Komint KUP On KA.Kto=KUP.Sifra_Kup
                 Left Outer Join DrgPodel B On KA.Sifra_Drg=B.Sifra_Drg
                 Where 1=1 '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_art >= ''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_art <= ''' + @Sifra_art_Do + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And KA.Kto = ''' + @Kto + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And KA.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL + ' And KA.Sifra_Drg=''' + Cast(@Sifra_Drg As Varchar(6)) + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And KA.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_TipMat Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_TipMat=' + Cast(@Sifra_TipMat As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And KA.Lokacija=''' + @Lokacija + ''' '
    Set @SSQL = @SSQL + ' order by K.Sifra_art '
Print (@SSQL)
Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fakt]'))
drop procedure [dbo].[sp_kniga_fakt]

Go

CREATE               PROCEDURE [dbo].[sp_Kniga_Fakt]
   @Sifra_Za Char(1),
   @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Nal Smallint,
   @Sifra_OE Smallint,
   @Kto Char(6),
   @Broj_Nal int = Null,
   @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
   @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
   @DaliPrenIzlez char(1) = 'N'
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, '''' Ispratnica,
            A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok,
            A.Dolzi, A.Pobaruva, A.Danok1, A.Danok2,
            A.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, TD.Dev, K.ImeKup2
             FROM AnFinDok A
             INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
             Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
             Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
             Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
             WHERE TD.TipDok=1 And TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=' + @Sifra_Za + ' And A.Sifra_Nal <> 999 ' +
             ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') '
    --         WHERE TD.TipDok=1 And TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=' + @Sifra_Za + ' '
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Declare @DK_VoKngFkt char(1)
    SELECT @DK_VoKngFkt = VoDDV_Knig FROM TipDok WHERE Sifra_Dok =132
    IF @DK_VoKngFkt='D'   AND @Sifra_Za = 2
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok, D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok, 0 AS Dolzi, D.Toc200 Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, ''D'' Dev, K.ImeKup2
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            INNER JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            WHERE D.Sifra_Dok=132 '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    End
    IF @Dok_Od_Dokr='D'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok,  D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok,
            (Case When D.Sifra_Za = 1 Then D.Toc200 Else 0 End) AS Dolzi,
            (Case When D.Sifra_Za = 2 Then D.Toc200 Else 0 End) AS Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, TD.Dev, K.ImeKup2
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            Left Outer JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            Left Outer Join AnFindok A On A.Sifra_Oe = D.Sifra_Oe And A.Sifra_Dok = D.Sifra_Dok And A.Broj_Dok=D.Broj_Dok
            Inner Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok
            Inner Join TipNal TN On D.Sifra_Nal = TN.Sifra_Nal
            WHERE D.Sifra_Dok<>132
            And D.Sifra_Za In (1,2) And D.Sifra_Za=' + @Sifra_Za + '
            And TD.VoDDV_Knig =' + '''D''' + '
            And (TD.AnalKupDob = ''N'' Or TD.AnalKupDob = ''D'' And D.Broj_Nal Is Null)
            And A.Sifra_oe Is Null '
            --And Cast(D.Sifra_Oe as varchar(6)) + ''&&&'' + Cast(D.Sifra_Dok as varchar(6)) + ''&&&'' + Cast(D.Broj_Dok as varchar(6))
            --Not In (Select Cast(A.Sifra_Oe as varchar(6)) + ''&&&'' + Cast(A.Sifra_Dok as varchar(6)) + ''&&&'' + Cast(A.Broj_Dok as varchar(6)) From AnFinDok A) '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End
    IF @Dok_Od_KasStav='D' And @Sifra_Za = '2'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT Null Sifra_OE, Null Sifra_Dok, K.Broj_Dok, Null BrojDok, '''' Ispratnica,
            K.Sifra_Nal, K.Broj_Nal, N.Datum_Nal, K.Dod_Datum Datum_Dok,
            Null AS Dolzi, (K.Pobaruva/(S.Stapka1/100)) Pobaruva,
            K.Pobaruva as Danok1, Null as Danok2,
            K.Sifra_Kup, Kup.ImeKup, Kup.Adresa,
            S.Stapka1, S.Stapka2, Kup.Danocen, Kup.SMesto, Kup.MatBr, (Case When K.KojaVal Is Null Then ''N'' Else ''D'' End) Dev, Kup.ImeKup2
            FROM  KasStav K
            LEFT OUTER JOIN Komint Kup ON Kup.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On K.Dod_Datum >= S.Datum_Od And K.Dod_Datum <= S.Datum_Do
            Left Outer JOIN Nalozi N ON K.Sifra_Nal = N.Sifra_Nal AND K.Broj_Nal = N.Broj_Nal
            Inner Join TipNal TN On K.Sifra_Nal = TN.Sifra_Nal
            WHERE K.Kto_Anal Like ''160%'' '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
--        If @Sifra_OE Is NOT Null
--            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND K.Dod_Datum>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND K.Dod_Datum<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And K.Dod_Datum >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And K.Dod_Datum <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End
    If @DaliPrenIzlez = 'D'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok,  D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok,
            D.Toc200 As Dolzi,
            Null As Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, TD.Dev, K.ImeKup2
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            Left Outer JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            Left Outer Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok
            Left Outer Join TipNal TN On D.Sifra_Nal = TN.Sifra_Nal
            WHERE D.Sifra_Dok<>132
            And D.Sifra_Za = 3
            And D.VlIzl = ''I'' '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End  --            And TD.VoDDV_Knig =' + '''D''' + '
print @ssql
   EXEC(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fakt_ks]'))
drop procedure [dbo].[sp_kniga_fakt_ks]

Go







CREATE                   PROCEDURE sp_Kniga_Fakt_KS
   @Sifra_Za Char(1),
   @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Nal Smallint,
   @Sifra_OE Smallint,
   @Kto Char(6),
   @Broj_Nal int = Null,
   @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
   @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
   @DaliPrenIzlez char(1) = 'N',
   @TipNalTros varchar(200) = Null    -- Nalozite koi treba da se isklucat od izvesstajot
AS

-- 31.03.2010 gk - deviznite kalkulacii tip dok 132 treba da e postaven da ne vleguva vo kniga za DDV

    Declare @SSQL Varchar(8000)
    Set @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, '''' Ispratnica,
            A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok,
            A.Dolzi, A.Pobaruva, A.Danok1, A.Danok2,
            A.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen,
            K.SMesto, K.MatBr, TD.Dev
             FROM AnFinDok A
             INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
             Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
             Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
             Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
             WHERE TD.TipDok=1 And TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=' + @Sifra_Za + ' And A.Sifra_Nal <> 999 ' +
             ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'')
               And A.Sifra_Dok <> 132 ' --31.03.2010   A.Kto <> ''2210'' '  -- Spet 28, 09
    If @TipNalTros Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Nal Not In (' + @TipNalTros + ') '

-- zA Libri i Shpenzimeve    td.DaliMATER <> ''D''

--         WHERE TD.TipDok=1 And TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=' + @Sifra_Za + ' '
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    Declare @DK_VoKngFkt char(1)
    SELECT @DK_VoKngFkt = VoDDV_Knig FROM TipDok WHERE Sifra_Dok =132

    IF @Sifra_Za = 2        --Jeta        and @DK_VoKngFkt='D' ova moze da se aktivira GK 30.07.2010
    begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, 132, D.Broj_Kalk Broj_Dok, D.Opis BrojDok,
                       ECD + ''  '' + Dok.Identif_Br Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok, 0 AS Dolzi, Dok.Toc200 Pobaruva,
            Danok1Opc Danok1 , 0 Danok2, Dok.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen,
            K.SMesto, K.MatBr, ''D'' Dev
            FROM  DevKalk D
            Inner Join Dokr Dok On Dok.Sifra_Oe=D.Sifra_Oe And Dok.Sifra_Dok=D.Sifra_Dok And Dok.Broj_Dok=D.Broj_Dok
            LEFT OUTER JOIN Komint K ON Dok.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            left outer JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            WHERE 1 = 1 '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    end

/*  Ova trgnato 30.07.2010 GK zatoa sto deviznite kalkulacii se zemaat od DevKalk pogore. Vaka se dupliraase
    IF @DK_VoKngFkt='D'   AND @Sifra_Za = 2
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok, D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok, 0 AS Dolzi, D.Toc200 Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen,
            K.SMesto, K.MatBr, ''D'' Dev
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            INNER JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            WHERE D.Sifra_Dok=132 '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    End
*/
    IF @Dok_Od_Dokr='D'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok,  D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok,
            (Case When D.Sifra_Za = 1 Then D.Toc200 Else 0 End) AS Dolzi,
            (Case When D.Sifra_Za = 2 Then D.Toc200 Else 0 End) AS Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen,
            K.SMesto, K.MatBr, TD.Dev
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            Left Outer JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            Inner Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok
            Inner Join TipNal TN On D.Sifra_Nal = TN.Sifra_Nal
            WHERE D.Sifra_Dok<>132
            And D.Sifra_Za In (1,2) And D.Sifra_Za=' + @Sifra_Za + '
            And TD.VoDDV_Knig =' + '''D''' + '
            And (TD.AnalKupDob = ''N'' Or TD.AnalKupDob = ''D'' And D.Broj_Nal Is Null)
            And Cast(D.Sifra_Oe as varchar(6)) + ''&&&'' + Cast(D.Sifra_Dok as varchar(6)) + ''&&&'' + Cast(D.Broj_Dok as varchar(6))
            Not In (Select Cast(A.Sifra_Oe as varchar(6)) + ''&&&'' + Cast(A.Sifra_Dok as varchar(6)) + ''&&&'' + Cast(A.Broj_Dok as varchar(6)) From AnFinDok A) '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End
    IF @Dok_Od_KasStav='D' And @Sifra_Za = '2'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT Null Sifra_OE, Null Sifra_Dok, K.Broj_Dok, Null BrojDok, '''' Ispratnica,
            K.Sifra_Nal, K.Broj_Nal, N.Datum_Nal, K.Dod_Datum Datum_Dok,
            Null AS Dolzi, (K.Pobaruva/(S.Stapka1/100)) Pobaruva,
            K.Pobaruva as Danok1, Null as Danok2,
            K.Sifra_Kup, Kup.ImeKup, Kup.Adresa,
            S.Stapka1, S.Stapka2, Kup.Danocen,
            K.SMesto, Kup.MatBr, (Case When K.KojaVal Is Null Then ''N'' Else ''D'' End) Dev
            FROM  KasStav K
            LEFT OUTER JOIN Komint Kup ON Kup.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On K.Dod_Datum >= S.Datum_Od And K.Dod_Datum <= S.Datum_Do
            Left Outer JOIN Nalozi N ON K.Sifra_Nal = N.Sifra_Nal AND K.Broj_Nal = N.Broj_Nal
            Inner Join TipNal TN On K.Sifra_Nal = TN.Sifra_Nal
            WHERE K.Kto_Anal Like ''160%'' '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
--        If @Sifra_OE Is NOT Null
--            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND K.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND K.Dod_Datum>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND K.Dod_Datum<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And K.Dod_Datum >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And K.Dod_Datum <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End
    If @DaliPrenIzlez = 'D'
    Begin
        Set @SSQL = @SSQL + 'UNION SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br BrojDok,  D.Ispratnica,
            D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal, D.Datum_Dok,
            D.Toc200 As Dolzi,
            Null As Pobaruva,
            D.Danok1, D.Danok2, D.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen,
            K.SMesto, K.MatBr, TD.Dev
            FROM  Dokr D
            LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
            Left Outer Join DDVStapki S On D.Datum_Dok >= S.Datum_Od And D.Datum_Dok <= S.Datum_Do
            Left Outer JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
            Left Outer Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok
            Left Outer Join TipNal TN On D.Sifra_Nal = TN.Sifra_Nal
            WHERE D.Sifra_Dok<>132
            And D.Sifra_Za = 3
            And TD.VoDDV_Knig = ''D''
            And D.VlIzl = ''I'' '
        If @Broj_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
        If @Sifra_Nal Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
        If @Sifra_OE Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @Kto Is NOT Null
            Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Datum_Nal_Od Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok >= ''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''')) '
        If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + ' And ((N.Datum_Nal Is Not Null And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')
                          Or (N.Datum_Nal Is Null And D.Datum_Dok <= ''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''')) '
    End  --            And TD.VoDDV_Knig =' + '''D''' + '
print @ssql
   EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fakt_ks_tr]'))
drop procedure [dbo].[sp_kniga_fakt_ks_tr]

Go


CREATE    PROCEDURE sp_Kniga_Fakt_KS_Tr
   @Sifra_Za Char(1),
   @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Nal Smallint,
   @Sifra_OE Smallint,
   @Kto Char(6),
   @Broj_Nal int = Null,
--   @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
--   @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
--   @DaliPrenIzlez char(1) = 'N',
   @TipNalTros varchar(200) = Null

AS

    Declare @SSQL Varchar(8000)
    Set @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, '''' Ispratnica, A.Opis,
            A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok,
            A.Dolzi, A.Pobaruva, A.Danok1, A.Danok2,
            A.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, TD.Dev
             FROM AnFinDok A
             INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
             Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
             Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
             Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
             WHERE A.SIfra_Nal In (' + @TipNalTros + ') and A.Sifra_Za=2 And A.Sifra_Nal <> 999
             and PObaruva <> 0 and Danok1 + Danok2 <> 0 '
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
print @SSQL
   EXEC(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fakt_naplata]'))
drop procedure [dbo].[sp_kniga_fakt_naplata]

Go

CREATE                    PROCEDURE sp_Kniga_Fakt_Naplata
    @Sifra_Za Char(1),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Sifra_Nal Smallint,
    @Sifra_OE Smallint,
    @Kto Char(6),
    @Sifra_Pat Varchar(300) = Null,
    @Sifra_Kup_Od Char(6),
    @Sifra_Kup_Do Char(6),
    @TipKup Varchar(11),
    @Pod1 Smallint,
    @Pod2 Smallint,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @KFSifra_Kup_Od Char(1),
    @KFTipKup Char(1),
    @KFPod1 Char(1),
    @KFPod2 Char(1),
    @KFPod3 Char(1) = Null,
    @KFPod4 Char(1) = Null,
    @KFPod5 Char(1) = Null,
    @KomercKako    char(1) = 'I',             -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @KoiGradovi    varchar(200) = Null,
    @Sifra_Dok    smallint = Null,
    @Datum_Dosp_Od Smalldatetime = Null,
    @Datum_Dosp_Do Smalldatetime = Null,
    @KoiRegioni    varchar(200) = Null,
    @Sifra_Div    smallint = Null
AS
   Declare @SSQL Varchar(4000)
   Set @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok,
             A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok,
             A.Dolzi, A.Pobaruva, A.Plateno_Dolzi, A.Plateno_Pobar,
             A.Sifra_Kup, K.ImeKup, K.ImeKup2, K.Adresa, K.SMesto, K.Telefon, A.Sifra_Pat, DateAdd(Day, A.Rok, A.Datum_Dok) as Datum_Dosp
    FROM AnFinDok A
    INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
    INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok=1
    WHERE '
    If @Sifra_Za=1
        Set @SSQL = @SSQL + '(A.Sifra_Za=1 AND A.Dolzi<>0) '
    Else If @Sifra_Za=2
        Set @SSQL = @SSQL + '(A.Sifra_Za=2 AND A.Pobaruva<>0) '
    If @KFSifra_Kup_Od Is Null
    Begin
        If @Sifra_Kup_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
        If @Sifra_Kup_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
    End
    Else If @KFSifra_Kup_Od='D' And @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_Kup<>''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @KFTipKup Is Null
    Begin
        If @TipKup Is Not Null
            Set @SSQL = @SSQL + 'And K.TipKup=''' + @TipKup + ''' '
    End
    Else If @KFTipKup='D' And @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And K.TipKup<>''' + @TipKup + ''' '
    If @KFPod1 Is Null
    Begin
        If @Pod1 Is Not Null
            Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    End
    Else If @KFPod1='D' And @Pod1 Is Not Null
        Set @SSQL = @SSQL + 'And K.KDrugo1<>' + Cast(@Pod1 As Varchar(6)) + ' '
    If @KFPod2 Is Null
    Begin
        If @Pod2 Is Not Null
            Set @SSQL = @SSQL + 'And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    End
    Else If @KFPod2='D' And @Pod2 Is Not Null
        Set @SSQL = @SSQL + 'And K.KDrugo2<>' + Cast(@Pod2 As Varchar(6)) + ' '
    If @KFPod3 Is Null
    Begin
        If @Pod3 Is Not Null
            Set @SSQL = @SSQL + 'And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    End
    Else If @KFPod3='D' And @Pod3 Is Not Null
        Set @SSQL = @SSQL + 'And K.KDrugo3<>' + Cast(@Pod3 As Varchar(6)) + ' '
    If @KFPod4 Is Null
    Begin
        If @Pod4 Is Not Null
            Set @SSQL = @SSQL + 'And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    End
    Else If @KFPod4='D' And @Pod4 Is Not Null
        Set @SSQL = @SSQL + 'And K.KDrugo4<>' + Cast(@Pod4 As Varchar(6)) + ' '
    If @KFPod5 Is Null
    Begin
        If @Pod5 Is Not Null
            Set @SSQL = @SSQL + 'And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    End
    Else If @KFPod5='D' And @Pod5 Is Not Null
        Set @SSQL = @SSQL + 'And K.KDrugo5<>' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND K.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + ' '
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(10)) + ' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @KoiGradovi Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Grad In (' + @KoiGradovi + ') '
    If @KoiRegioni Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Reg In (' + @KoiRegioni + ') '
    If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (' + @Sifra_Pat + ') '
    If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND K.Sifra_Pat In (' + @Sifra_Pat + ') '
--    If @Sifra_Pat Is Not Null
--        Set @SSQL = @SSQL + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
   EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fakt_tr]'))
drop procedure [dbo].[sp_kniga_fakt_tr]

Go

create   PROCEDURE sp_Kniga_Fakt_Tr
   @Sifra_Za Char(1),
   @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Nal Smallint,
   @Sifra_OE Smallint,
   @Kto Char(6),
   @Broj_Nal int = Null,
   @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
   @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
   @DaliPrenIzlez char(1) = 'N'

AS

    Declare @SSQL Varchar(8000)
    Set @SSQL = 'SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.BrojDok, '''' Ispratnica, A.Opis,
            A.Sifra_Nal, A.Broj_Nal, A.Datum_Nal, A.Datum_Dok,
            A.Dolzi, A.Pobaruva, A.Danok1, A.Danok2,
            A.Sifra_Kup, K.ImeKup, K.Adresa,
            S.Stapka1, S.Stapka2, K.Danocen, K.SMesto, K.MatBr, TD.Dev
             FROM AnFinDok A
             INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
             Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
             Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
             Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
             WHERE A.SIfra_Nal=102 and A.Kto=''1020'' and A.Sifra_Za=2 And A.Sifra_Nal <> 999
                           and PObaruva <> 0 and Danok1 + Danok2 <> 0 '
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '

   EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_faktizlsr]'))
drop procedure [dbo].[sp_kniga_faktizlsr]

Go








CREATE         PROCEDURE sp_Kniga_FaktIzlSR
   @Datum_Nal_Od Smalldatetime,
   @Datum_Nal_Do Smalldatetime,
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
   @Sifra_Nal Smallint,
   @Sifra_OE Smallint,
   @Kto Char(6),
   @Broj_Nal int = Null,
   @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
   @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
   @DaliPrenIzlez char(1) = 'N'
AS
CREATE TABLE #TmpKngIzl
(Datum_Nal    smalldatetime,
Sifra_OE    smallint,
Sifra_Dok    smallint,
Broj_Dok    int,
Sifra_Nal    smallint,
Broj_Nal    int,
Datum_Dok    smalldatetime,
ImeKup        varchar(40),
Danocen        varchar(15),
VkIznDok    decimal(18,2),
Kol8        decimal(18,2),
Kol9        decimal(18,2),
Kol10        decimal(18,2),
Kol11        decimal(18,2),
Osn1        decimal(18,2),
DDV1        decimal(18,2),
Osn2        decimal(18,2),
DDV2        decimal(18,2),
VkOsn        decimal(18,2),
VkOsnZaOdb    decimal(18,2))

Declare @SSQL Varchar(8000)
Set @SSQL = 'SELECT A.Datum_Nal, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Dok, substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen,
        A.Dolzi, 0,0,0,0, Round(A.Danok1/(S.Stapka1/100),2), A.Danok1,Round(A.Danok2/(S.Stapka2/100),2), A.Danok2,0,0
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
        Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
        WHERE TD.TipDok=1 And TD.Dev <> ''D'' AND A.Dolzi<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=1 And A.Sifra_Nal <> 999 ' +
        ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') '
If @Broj_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
If @Sifra_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
If @Sifra_OE Is NOT Null
    Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
If @Kto Is NOT Null
    Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
If @Datum_Dok_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
If @Datum_Nal_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
INSERT INTO #TmpKngIzl EXEC(@SSQL)

Set @SSQL = 'SELECT A.Datum_Nal, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Dok, substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen,
        0, 0,0,A.Dolzi,0, Round(A.Danok1/(S.Stapka1/100),2), A.Danok1,Round(A.Danok2/(S.Stapka2/100),2), A.Danok2,0,0
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
        Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
        WHERE TD.TipDok=1 And TD.Dev = ''D'' AND A.Dolzi<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=1 And A.Sifra_Nal <> 999 ' +
        ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') '
If @Broj_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
If @Sifra_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
If @Sifra_OE Is NOT Null
    Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
If @Kto Is NOT Null
    Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
If @Datum_Dok_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
If @Datum_Nal_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
INSERT INTO #TmpKngIzl EXEC(@SSQL)

IF @Dok_Od_Dokr='D'
Begin
    Set @SSQL = 'SELECT N.Datum_Nal, A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.Datum_Dok, '''', '''',
            A.Toc200, 0,0,0,0, Round(A.Danok1/(S.Stapka1/100),2), A.Danok1,Round(A.Danok2/(S.Stapka2/100),2), A.Danok2,0,0
            FROM Dokr A
            Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
            Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
            INNER JOIN Nalozi N ON A.Sifra_Nal=N.Sifra_Nal AND A.Broj_Nal=N.Broj_Nal
            Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
            WHERE TD.TipDok=1 And TD.Dev <> ''D'' AND A.Toc200<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=1 And A.Sifra_Nal <> 999 ' +
            ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') AND TD.AnalKupDob=''N'''
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
            SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    INSERT INTO #TmpKngIzl EXEC(@SSQL)
End

UPDATE #TmpKngIzl SET VkOsn=Osn1+Osn2,VkOsnZaOdb=Osn1+Osn2
SELECT * FROM #TmpKngIzl ORDER BY Datum_Dok











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_faktvlsr]'))
drop procedure [dbo].[sp_kniga_faktvlsr]

Go









CREATE          PROCEDURE sp_Kniga_FaktVlSR
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Sifra_Nal Smallint,
    @Sifra_OE Smallint,
    @Kto Char(6),
    @Broj_Nal int = Null,
    @Dok_Od_Dokr char(1) = 'D',    -- dali vo knigata na fakturi da vleguvaat i dokumentite od dokr koi ne se proknizani (gi nema vo findok), a koi treba da vlezat vo kniga na fakturi
    @Dok_Od_KasStav char(1) = 'N', -- dali vo knigata na fakturi da vleguvaat i kasovite dokumentite so konto 160% (za big bull)
    @DaliPrenIzlez char(1) = 'N',
    @Kto_Zemj    char(6)=4331
AS
CREATE TABLE #TmpKngVl
(Datum_Nal    smalldatetime,
Kol3        varchar(20),
Sifra_OE    smallint,
Sifra_Dok    smallint,
Broj_Dok    int,
Sifra_Nal    smallint,
Broj_Nal    int,
BrojDok        varchar(35),
Datum_Dok    smalldatetime,
ImeKup        varchar(40),
Danocen        varchar(15),
VkIznDok    decimal(18,2),
VkBezDDV    decimal(18,2),
Kol10        decimal(18,2),
Kol11        decimal(18,2),
VkDDV        decimal(18,2),
DDV_ZaOdb    decimal(18,2),
DDV_NeOdb    decimal(18,2),
UvozOsn        decimal(18,2),
UvozDDV        decimal(18,2),
ZemjOsn        decimal(18,2),
ZemjDDV        decimal(18,2))

Declare @SifDokCarDK smallint
SELECT @SifDokCarDK = Devk_TipD_CarFra FROM Konfig

Declare @SSQL Varchar(8000)
Set @SSQL = 'SELECT A.Datum_Nal,space(1), A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.BrojDok, A.Datum_Dok,
        substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen, A.Pobaruva, 0,0,0,A.Danok1+A.Danok2, A.Danok1+A.Danok2, 0, 0,0,0,0
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
        Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
        WHERE TD.TipDok=1 And TD.Dev <> ''D'' AND A.Pobaruva<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=2 And A.Sifra_Nal <> 999 ' +
        ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') And A.Sifra_Dok<>'+cast(@SifDokCarDK as varchar(4))+' '
If @Broj_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
If @Sifra_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
If @Sifra_OE Is NOT Null
    Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
If @Kto Is NOT Null
    Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
If @Datum_Dok_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
If @Datum_Nal_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
print (@ssql)
INSERT INTO #TmpKngVl EXEC(@SSQL)
UPDATE #TmpKngVl SET Kol11 = VkIznDok - VkDDV WHERE VkDDV<>0
UPDATE #TmpKngVl SET Kol11 = 0 WHERE ABS(Kol11)<0.1
UPDATE #TmpKngVl SET VkBezDDV = VkIznDok WHERE VkDDV=0

Set @SSQL = 'SELECT A.Datum_Nal,space(1), A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.BrojDok, A.Datum_Dok,
        substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen, A.Pobaruva, 0,0,0,0, 0, 0,A.Pobaruva- A.Danok1+A.Danok2,A.Danok1+A.Danok2,0,0
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
        Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
        WHERE TD.TipDok=1 And TD.Dev <> ''D'' AND A.Pobaruva<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=2 And A.Sifra_Nal <> 999 ' +
        ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') And A.Sifra_Dok='+cast(@SifDokCarDK as varchar(4))+' '
If @Broj_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
If @Sifra_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
If @Sifra_OE Is NOT Null
    Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
If @Kto Is NOT Null
    Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
If @Datum_Dok_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
If @Datum_Nal_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
INSERT INTO #TmpKngVl EXEC(@SSQL)

Declare @DK_VoKngFkt char(1)
SELECT @DK_VoKngFkt = VoDDV_Knig FROM TipDok WHERE Sifra_Dok =132
IF @DK_VoKngFkt='D'
Begin
    Set @SSQL = 'SELECT N.Datum_Nal, space(1), D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Datum_Dok,
        substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen, 0, 0,0,0,0,0,0,D.Toc200-D.Danok1-D.Danok2, D.Danok1+D.Danok2, 0, 0
        FROM  Dokr D
        LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
        INNER JOIN Nalozi N ON D.Sifra_Nal = N.Sifra_Nal AND D.Broj_Nal = N.Broj_Nal
        WHERE D.Sifra_Dok=132 '
    If @Broj_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_Nal Is NOT Null
        Set @SSQL = @SSQL + 'AND D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        Set @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Kto Is NOT Null
        Set @SSQL = @SSQL + 'AND D.Kto=' + @Kto + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    INSERT INTO #TmpKngVl EXEC(@SSQL)
End

Set @SSQL = 'SELECT A.Datum_Nal,space(1), A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Nal, A.Broj_Nal, A.BrojDok, A.Datum_Dok,
        substring(rtrim(K.ImeKup)+space(1)+rtrim(K.SMesto),1,40), K.Danocen,A.Dolzi, 0,0,0,0, 0, 0, 0,0,A.Dolzi-A.Danok1-A.Danok2,A.Danok1+A.Danok2
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Inner Join TipNal TN On A.Sifra_Nal = TN.Sifra_Nal
        WHERE TD.TipDok=2 And A.Kto='''+@Kto_Zemj+''' AND A.Dolzi<>0 AND TD.VoDDV_Knig =' + '''D''' + ' And A.Sifra_Za=2 And A.Sifra_Nal <> 999 ' +
        ' And (TN.VoDDV_Knig IS NULL OR TN.VoDDV_Knig<>''N'') '
If @Broj_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
If @Sifra_Nal Is NOT Null
    Set @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
If @Sifra_OE Is NOT Null
    Set @SSQL = @SSQL + 'AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
If @Kto Is NOT Null
    Set @SSQL = @SSQL + 'AND Kto=' + @Kto + ' '
If @Datum_Dok_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
If @Datum_Nal_Od Is NOT Null
    SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
If @Datum_Nal_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
INSERT INTO #TmpKngVl EXEC(@SSQL)

UPDATE #TmpKngVl SET Sifra_OE=NULL, Sifra_Dok=NULL, Broj_Dok=NULL WHERE Sifra_Dok>=801 AND Sifra_Dok<=808 AND BrojDok<>''
SELECT * FROM #TmpKngVl ORDER BY Datum_Nal












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kniga_fiskizv]'))
drop procedure [dbo].[sp_kniga_fiskizv]

Go


CREATE      PROCEDURE sp_Kniga_FiskIzv
    @Sifra_OE Smallint = Null,
    @Koi_Oe char(6) = Null,
       @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
       @Datum_Dok_Od Smalldatetime = Null,
       @Datum_Dok_Do Smalldatetime =  Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,     F - Datum_Pec_Fisc
--    @SamoPecFisk    char(1) = 'N',
    @ImePret    varchar(40) = Null Output,
    @EDB        varchar(20) = Null Output,
    @SMesto    varchar(20) = Null Output,
    @ListTipDok varchar(20) = Null,
    @PrikDokSamoUpl char(1)= 'N'-- prikazi dokumenti za koi se pravi direkno uplata

AS

    Select @ImePret=ImePret, @EDB=EDB, @SMesto=SMesto From Konfig
    If @PoKojDatum = 'F'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Declare @SSQL Varchar(8000)
    --Declare @SSQL Varchar(8000)
    IF @PoKojDatum = 'F'
        Set @SSQL =  ' Select Datum_Dok=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End, '
    Else
        Set @SSQL =  ' Select D.Datum_Dok, '
    Set @SSQL = @SSQL + '(Case When S.Posn > 15 Then 18 When (S.Posn Between 1 and 15) Then 5 Else 0 End) Posn,
                 (Case When S.Posn > 15 Then 3 When (S.Posn Between 1 and 15) Then 2 Else 1 End) Kolona,
            Round (Sum(S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2) Toc200,
            Round(Sum(Case When S.Posn > 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok1,
            Round(Sum(Case When S.Posn <= 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok2
             FROM DOKR D
             Inner Join Stavr S On D.DokrID=S.DokrID
             Inner Join TipDok TD On TD.Sifra_Dok = D.Sifra_Dok
            WHERE D.VlIzl=''I'' '
--    If @SamoPecFisk = 'D'
--        Set @SSQL = @SSQL + ' And Pec_Fisc > 0 '

    If @Sifra_Nal Is Null And @Sifra_Dok Is Null and (@ListTipDok is null or @ListTipDok = '')
        Begin
        Set @SSQL = @SSQL + ' And TD.DaliFisc = ''D'' '
        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' '
--                        OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As varchar(25)) + ''')) '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+'''  '
--                        OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As varchar(25)) + ''')) '
        End
        End
    else If @ListTipDok is not null and @ListTipDok <> ''
        Begin
        Set @SSQL = @SSQL + ' And D.Sifra_Dok in (' + @ListTipDok + ') '

        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+'''  '
        End
        End
    Else
        Begin
        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And ((TD.DaliFisc=''D'' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' )
                            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As varchar(25)) + ''')) '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And ((TD.DaliFisc=''D'' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+''' )
                            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As varchar(25)) + ''')) '
        End
        End

    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @Koi_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    IF @PoKojDatum = 'F'
        Set @SSQL = @SSQL + ' Group By (Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End), '
    Else
        Set @SSQL = @SSQL + ' Group By D.Datum_Dok, '
    Set @SSQL = @SSQL + ' (Case When S.Posn > 15 Then 18 When (S.Posn Between 1 and 15) Then 5 Else 0 End),
                  (Case When S.Posn > 15 Then 3 When (S.Posn Between 1 and 15) Then 2 Else 1 End) '
---------------------------------------------------------------------------------------------------------------------------------------
    IF @PrikDokSamoUpl ='D'
    begin
            SET @SSQL = @SSQL + ' UNION'
            SET @SSQL = @SSQL + ' Select A.Datum_Dok, '
            Set @SSQL = @SSQL + '(Case When S.Posn > 15 Then 18 When (S.Posn Between 1 and 15) Then 5 Else 0 End) Posn,
                 (Case When S.Posn > 15 Then 3 When (S.Posn Between 1 and 15) Then 2 Else 1 End) Kolona,
            Round (Sum(S.Kolic* dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)), 2) Toc200,
            Round(Sum(Case When S.Posn > 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok1,
            Round(Sum(Case When S.Posn <= 15 Then (S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa) * S.Posn / 100)
                Else 0  End ), 4) Danok2
             FROM AnFinDok A
             Inner Join Dokr D on
            cast(Substring(A.BrojDok, 0, PatIndex(''%-%'', A.BrojDok))as smallint)= D.Sifra_Oe and
            cast(Substring(A.BrojDok, PatIndex(''%-%'', A.BrojDok)+1, PatIndex(''%/%'', A.BrojDok)-PatIndex(''%-%'', A.BrojDok)-1)as smallint)=D.Sifra_dok and
            cast(Substring(A.BrojDok, PatIndex(''%/%'', A.BrojDok)+1, 10)as integer)=D.broj_Dok
             Inner Join Stavr S On D.DokrID=S.DokrID
             Inner Join TipDok TD On TD.Sifra_Dok = D.Sifra_Dok
             WHERE D.VlIzl=''I'' '
    If @Sifra_Nal Is Null And @Sifra_Dok Is Null and (@ListTipDok is null or @ListTipDok = '')
        Begin
        Set @SSQL = @SSQL + ' And TD.DaliFisc = ''D'' '
        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' '
--                        OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As varchar(25)) + ''')) '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+'''  '
--                        OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As varchar(25)) + ''')) '
        End
        End
    else If @ListTipDok is not null and @ListTipDok <> ''
        Begin
        Set @SSQL = @SSQL + ' And D.Sifra_Dok in (' + @ListTipDok + ') '

        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+'''  '
        End
        End
    Else
        Begin
        If @PoKojDatum = 'D'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                Set @SSQL = @SSQL + ' And ((TD.DaliFisc=''D'' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Dok_Od As varchar(25))+''' )
                            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As varchar(25)) + ''')) '
               If @Datum_Dok_Do Is NOT Null
                Set @SSQL = @SSQL + ' And ((TD.DaliFisc=''D'' And D.Dat_Pec_Fisc is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Dok_Do As varchar(25))+''' )
                            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As varchar(25)) + ''')) '
        End
        End

    If @Sifra_Nal Is Not Null
        SET @SSQL = @SSQL + 'And D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND S.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @Koi_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
------------------------------------------------------------------------------------------------------------------------------------
    IF @PoKojDatum = 'F'
        Set @SSQL = @SSQL + ' Group By (Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End), '
    Else
        Set @SSQL = @SSQL + ' Group By A.Datum_Dok, '
    Set @SSQL = @SSQL + ' (Case When S.Posn > 15 Then 18 When (S.Posn Between 1 and 15) Then 5 Else 0 End),
                  (Case When S.Posn > 15 Then 3 When (S.Posn Between 1 and 15) Then 2 Else 1 End) '
end
    print @SSQL
    EXEC(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_knigaoruzje]'))
drop procedure [dbo].[sp_knigaoruzje]

Go

CREATE     PROCEDURE  sp_KnigaOruzje
    @Sifra_Oe    smallint,
    @Sif_GrOrg    char(6),
    @VlIzl        char(1),
    @Drugo1        smallint = NULL,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime

AS
Declare @SSQL varchar(5000), @PocDat smalldatetime, @Sifra_Za char(1)
SET @PocDat = dbo.fn_NapraviDatum(Year(@Datum_od), 1,1)
IF @VlIzl='V'
    SET @Sifra_Za='2'
ELSE
    SET @Sifra_Za='1'

CREATE TABLE #TmpKngOru
(Rbr     int IDENTITY (1, 1),
Sifra_Art    varchar(20),
ImeArt        varchar(40),
Ime_1        varchar(40),
Ime_2        varchar(40),
Kolic        decimal(18,2),
FabrBroj    varchar(40),
Ispratnica    varchar(40),
Opis        varchar(40),
Datum_Dok    smalldatetime,
ImeKup        varchar(40),
KupAdresa    varchar(40),
KupSmesto    varchar(20),
KorImeKor    varchar(40),
KorSmesto    varchar(20),
KorAdresa    varchar(40),
LK            varchar(40))

SET @SSQL='SELECT S.Sifra_Art, A.ImeArt, D1.Ime_1, D2.Ime_2, CASE WHEN KS.KontrSerExt IS NULL THEN S.Kolic ELSE 1 End AS Kolic, KS.KontrSerExt, D.Ispratnica, D.Opis, D.Datum_Dok,
Kup.ImeKup, Kup.Adresa, Kup.Smesto, Kor.ImeKor, Kor.Smesto, Kor.Adresa, Kor.LK
FROM Stavr S INNER JOIN Dokr D ON S.DokrID=D.DokrID
INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art
LEFT OUTER JOIN Drugo1 D1 ON A.Drugo1=D1.Sifra_1
LEFT OUTER JOIN Drugo2 D2 ON A.Drugo2=D2.Sifra_2
LEFT OUTER JOIN Komint Kup ON D.Sifra_Kup=Kup.Sifra_Kup
LEFT OUTER JOIN KartKor Kor ON D.Sifra_Kor=Kor.Sifra_Kor
LEFT OUTER JOIN MagStavr MS ON S.DokrID=MS.DokrID AND S.Sifra_Art=MS.Sifra_Art
LEFT OUTER JOIN KatSerKlas KS ON MS.Sifra_Art = KS.SifrA_Art and MS.SpecOzn = KS.KontrSer
WHERE S.VlIzl='''+@VlIzl+''' AND D.Sifra_Za='+@Sifra_Za+' AND A.Drugo1 IS NOT NULL AND S.Datum_Dok>='''+cast(@PocDat as varchar(30))+''' AND S.Datum_Dok<='''+cast(@Datum_Do as varchar(30))+''' '
IF @Sifra_OE IS NOT NULL
    SET @SSQL = @SSQL + ' AND S.Sifra_Oe='+cast(@Sifra_OE as varchar(4))
IF @Sif_GrOrg IS NOT NULL
    SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg='''+@Sif_GrOrg+''') '
IF @VlIzl='I'
    SET @SSQL = @SSQL + ' AND A.Drugo1='+cast(@Drugo1 as varchar(4))
SET @SSQL = @SSQL + ' ORDER BY S.Datum_Dok, D.DokrID, S.DokID '

INSERT INTO #TmpKngOru (Sifra_Art, ImeArt, Ime_1, Ime_2, Kolic, FabrBroj, Ispratnica, Opis, Datum_Dok, ImeKup, KupAdresa, KupSmesto, KorImeKor, KorSmesto, KorAdresa, LK)
EXEC (@SSQL)

SELECT * FROM #TmpKngOru WHERE Datum_Dok>=@Datum_Od




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_knigatrg]'))
drop procedure [dbo].[sp_knigatrg]

Go

CREATE                  PROCEDURE sp_KnigaTrg
    @Sifra_OE Smallint,
    @Datum_Otv Smalldatetime,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Dali_902 Char(1),
    @Dali_903 Char(1),
    @Dali_904 Char(1),
    @Iskluci_Sifri_Prim varchar(200) = NULL,
    @PecFisc_PoDatPec    char(1) = 'D',        --dodadeno 25.09.04 PRIMA VRED. D ili N
    @PrenStornoVlez    char(1) = 'N',
    @PoNabCenaStavr    char(1) = 'N',        -- samo za zito v
    @RezVoTab_PoNalozi    char(1) = 'N',        -- ova e za slaganata -- go vraka rezultatot vo pomosna tabela i vo sifra_dok, broj_dok stava sifra_nal, broj_nal
    @RazlCeniSamoTKdok    char(1) = 'N',        -- Razliki vo ceni proizlezeni samo od dokumenti koi vlegiuvaat vo trg.kniga
    @ProdVredn Decimal(18,4) = 0.0 OUTPUT,
    @NabVred Decimal(18,4) = 0.0 OUTPUT,
    @VkalkDan Decimal(18,4) = 0.0 OUTPUT,
    @ObvrskaDan Decimal(18,4) = 0.0 OUTPUT,
    @VrednProd Decimal(18,4) = 0.0 OUTPUT
AS
    IF @PecFisc_PoDatPec = 'D' SET @Datum_Do = DateADD(minute, 1439, @Datum_Do)
    Declare @Tip813 char(1)
    SELECT @Tip813=VoTRG_Knig FROM TipDok WHERE Sifra_Dok=813

    Declare @Tip450 char(1)
    SELECT @Tip450=VoTRG_Knig FROM TipDok WHERE Sifra_Dok=450

    Declare @SSQL Varchar(8000)
    CREATE TABLE #tmpKniga
    (
        InterenBr Integer IDENTITY(0, 1),
        Sifra_Oe smallint,
        Sifra_Dok smallint,
        ImeDok    char(40),
        Opis_TKNG varchar(40),
        Kto Char(10),
        Datum_Dok Smalldatetime,
        Datum_Knz Smalldatetime,
        Broj Varchar(100),
        Opis Varchar(100),
        OdKade char(1),
        VlIzl char(1),
        ProdVredn Numeric(18, 4),
        NabVred Numeric(18,4),
        VkalkDan Numeric(18, 4),
        ObvrskaDan Numeric(18, 4),
        VrednProd Numeric(18, 4)
    )
    If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
        Set @SSQL = 'Select D.Sifra_Oe, D.Sifra_Nal, '
    Else
        Set @SSQL = 'Select Null as Sifra_Oe, D.Sifra_Dok, '
    Set @SSQL = @SSQL + ' TD.ImeDok, D.Kto, TD.Opis_TKNG, '
    IF @PecFisc_PoDatPec    = 'N'
        Set @SSQL = @SSQL + 'D.Datum_Dok Datum_Dok, D.Datum_Dok Datum_Knz, '
    Else
        Set @SSQL = @SSQL + 'Datum_Dok=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then D.Dat_Pec_Fisc Else D.Datum_Dok End,
                     Datum_Knz=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then D.Dat_Pec_Fisc Else D.Datum_Dok End, '
    If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
        Set @SSQL = @SSQL + 'Cast(D.Broj_Nal as varchar(10)) Broj, '
    Else
        Set @SSQL = @SSQL + 'Cast(D.Sifra_Dok As Varchar(6)) + ''-'' + Cast(D.Broj_Dok As Varchar(9)) Broj, '
    Set @SSQL = @SSQL + ' D.Identif_Br, ''D'', D.VlIzl, '
    If @PoNabCenaStavr = 'D'   --samo za zito v  - po default e na 'N'
    Begin
        If @PrenStornoVlez = 'D'
        Begin
            Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then Sum((Case D.ImaDodatna When ''D'' Then (-1*S.Kolic*dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'')) Else 0.0 End))
                    When ''V'' Then Sum((Case D.ImaDodatna When ''P'' Then S.Kolic*dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'') Else S.Kolic*dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'') End )) End,
             NabVred = Case D.VlIzl
                    When ''I'' Then Sum((Case D.ImaDodatna When ''D'' Then (-1*S.Kolic*S.NabCena*(1+S.PosnPren/100)) Else 0.0 End))
                    When ''V'' Then Sum((S.Kolic*S.NabCena*(1+S.PosnPren/100))) End,
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then (Case D.ImaDodatna When ''D'' Then 0 Else D.Toc200 End)
                    When ''V'' Then 0.0    End '
        End
        Else
        Begin
            Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then Sum((Case D.ImaDodatna When ''P'' Then S.Kolic*dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'') Else S.Kolic*dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''D'') End )) End,
            NabVred = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then Sum((S.Kolic*S.NabCena*(1+S.PosnPren/100)))    End,
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then D.Toc200
                    When ''V'' Then 0.0        End '
        End
    End    Else  -- If @PoNabCenaStavr = 'D'
    Begin
        If @PrenStornoVlez = 'D'
        Begin
            Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then (Case D.ImaDodatna When ''D'' Then (-1*Toc200) Else 0.0 End)
                    When ''V'' Then D.MagVrDan    End,
            NabVred = Case D.VlIzl
                    When ''I'' Then (Case D.ImaDodatna When ''D'' Then (-1*Toc200) Else 0.0 End)
                    When ''V'' Then D.Toc200    End,
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2 - (D.Danok1 + D.Danok2)    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then (Case D.ImaDodatna When ''D'' Then 0 Else D.Toc200 End)
                    When ''V'' Then 0.0    End '
        End
        Else
        Begin
            Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.MagVrDan    End,
            NabVred = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.Toc200    End,
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2 - (D.Danok1 + D.Danok2)    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then D.Toc200
                    When ''V'' Then 0.0        End '
        End
    End
    Set @SSQL = @SSQL + ' From Dokr D
        Inner Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok And TD.VoTRG_Knig=''D'' '
    If @PoNabCenaStavr = 'D'
        Set @SSQL = @SSQL + ' Inner Join stavr S On S.DokrID=D.DokrID '
    Set @SSQL = @SSQL + ' Where D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6))
    IF @PecFisc_PoDatPec    = 'N'
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + ''' And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    ELSE
        Set @SSQL = @SSQL + ' And ((TD.DaliFisc=''D'' AND D.Dat_Pec_Fisc is not null AND D.Dat_Pec_Fisc>='''+Cast(@Datum_Otv As varchar(25))+''')
                OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''))
                And ((TD.DaliFisc=''D'' AND D.Dat_Pec_Fisc is not null AND D.Dat_Pec_Fisc<='''+Cast(@Datum_Do As varchar(25))+''')
                OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''')) '
    If @Iskluci_Sifri_Prim IS NOT NULL
        Set @SSQL = @SSQL + ' And (D.Sifra_Prim NOT IN (' + @Iskluci_Sifri_Prim + ') OR D.Sifra_Prim IS NULL) '
    If @PoNabCenaStavr = 'D'       -- dodadeno 13.05.05 za zito vane
    Begin
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' Group By D.Sifra_Oe, D.Sifra_Nal, '
        Else
            Set @SSQL = @SSQL + ' Group By D.Sifra_Dok, '
        Set @SSQL = @SSQL + ' TD.ImeDok, D.Kto, TD.Opis_TKNG, '
        IF @PecFisc_PoDatPec    = 'N'
            Set @SSQL = @SSQL + 'D.Datum_Dok, '
        Else
            Set @SSQL = @SSQL + ' (Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then D.Dat_Pec_Fisc Else D.Datum_Dok End), '
--            Set @SSQL = @SSQL + 'Case When D.Pec_Fisc>0 Then D.Dat_Pec_Fisc Else D.Datum_Dok End, '
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' D.Broj_Nal, '
        Else
            Set @SSQL = @SSQL + ' D.Broj_Dok, '
        Set @SSQL = @SSQL + ' D.Identif_Br, D.VlIzl , D.ImaDodatna, D.Toc200 '
    End
    IF @Tip813='D'                    --dodadeno 07.09.04
    Begin
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' Union ALL Select A.Sifra_Oe, A.Sifra_Nal, '
        Else
            Set @SSQL = @SSQL + ' Union ALL Select Null as Sifra_Oe, A.Sifra_Dok, '
        Set @SSQL = @SSQL + ' TD.ImeDok, A.Kto, TD.Opis_TKNG,
            A.Datum_Dok Datum_Dok,
            A.Datum_Dok Datum_Knz, '
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' Cast(A.Broj_Nal as varchar(10)) Broj, '
        Else
            Set @SSQL = @SSQL + ' Cast(A.Sifra_Dok As Varchar(6)) + ''-'' + Cast(A.Broj_Dok As Varchar(6)) Broj, '
        Set @SSQL = @SSQL + ' A.BrojDok, ''A'', ''K'' VlIzl, 0.0 AS ProdVredn, 0.0 AS NabVred, 0.0 AS VkalkDan, 0.0 AS ObvrskaDan,
            Pobaruva AS VrednProd
            From AnFinDok A
            Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
            Where A.Sifra_Dok=813 AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + '
                And A.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''
                And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    End
    IF @Tip450='D'                    --dodadeno 07.09.04
    Begin
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' Union ALL Select A.Sifra_Oe, A.Sifra_Nal, '
        Else
            Set @SSQL = @SSQL + ' Union ALL Select Null as Sifra_Oe, A.Sifra_Dok, '
        Set @SSQL = @SSQL + ' TD.ImeDok, A.Kto, TD.Opis_TKNG,
            A.Datum_Dok Datum_Dok,
            A.Datum_Dok Datum_Knz, '
        If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
            Set @SSQL = @SSQL + ' Cast(A.Broj_Nal as varchar(10)) Broj, '
        Else
            Set @SSQL = @SSQL + ' Cast(A.Sifra_Dok As Varchar(6)) + ''-'' + Cast(A.Broj_Dok As Varchar(6)) Broj, '
        Set @SSQL = @SSQL + ' A.BrojDok, ''A'', ''K'' VlIzl, 0.0 AS ProdVredn, 0.0 AS NabVred, 0.0 AS VkalkDan, 0.0 AS ObvrskaDan,
            Pobaruva AS VrednProd
            From AnFinDok A
            Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
            Where A.Sifra_Dok=450 AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + '
                And A.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''
                And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    End
    If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
        Set @SSQL = @SSQL + ' Union ALL Select Sifra_Oe, Null as Sifra_Dok, '
    Else
        Set @SSQL = @SSQL + ' Union ALL Select Null as Sifra_Oe, Null as Sifra_Dok, '
    Set @SSQL = @SSQL + ' Null as ImeDok, Null as Kto, Null as Opis_TKNG, KT.Datum_Dok, KT.Datum_Knz, '
    If @RezVoTab_PoNalozi = 'D'  -- ova e za isklucitelni slucai
        Set @SSQL = @SSQL + ' Null as Broj, '
    Else
        Set @SSQL = @SSQL + ' KT.Broj, '
    Set @SSQL = @SSQL + ' KT.Opis, ''K'',''K'' VlIzl, KT.ProdVredn, KT.NabVred, KT.VkalkDan, KT.ObvrskaDan, KT.VrednProd
            From KnigaTrg KT
            Where     KT.Sifra_OE=' +  + Cast(@Sifra_OE As Varchar(5)) + '
            And KT.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''
            And KT.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @Dali_902 = 'D'
    Begin
        Set @SSQL = @SSQL + 'Union ALL '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Select R.Sifra_Oe, R.Sifra_Nal as Sifra_Dok, '
        Else
            Set @SSQL = @SSQL + ' Select Null as Sifra_Oe, Null as Sifra_Dok, '
        Set @SSQL = @SSQL + ' Null as ImeDok, Null as Kto, Null as Opis_TKNG,
                    R.Datum_Dok Datum_Dok,
                    R.Datum_Dok Datum_Knz, '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Cast(R.Broj_Nal as varchar(10)) as Broj, '
        Else
            Set @SSQL = @SSQL + ' Cast(R.Sifra_Razl As Char(3)) Broj, '
        Set @SSQL = @SSQL + ' '''' Opis, ''R'', ''R'' VlIzl,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) As ProdVredn,
                0 as NabVred,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) As VkalkVredn,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) As ObvrskaVredn,
                0.0 As VrednProd
            From RazlCeni R
            Inner Join Katart K On K.Sifra_Art=R.Sifra_Art And K.SMatUsl=''M''
            Where R.Sifra_Razl=902 And
                R.Datum_Dok>=''' + Cast(@Datum_Otv As Varchar(25)) + ''' And
                R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' And
                R.Sifra_OE=' +  + Cast(@Sifra_OE As Varchar(5)) + '
            Group By R.Sifra_OE, R.Sifra_Razl, R.Datum_Dok '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ', R.Sifra_Nal, R.Broj_Nal '
        Set @SSQL = @SSQL + ' Having  (Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0) '
    End
    If @Dali_903 = 'D'
    Begin
        Set @SSQL = @SSQL + 'Union ALL '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Select R.Sifra_Oe, R.Sifra_Nal as Sifra_Dok, '
        Else
            Set @SSQL = @SSQL + ' Select Null as Sifra_Oe, Null as Sifra_Dok, '
        Set @SSQL = @SSQL + ' Null as ImeDok, Null as Kto, Null as Opis_TKNG,
                    R.Datum_Dok Datum_Dok,
                    R.Datum_Dok Datum_Knz, '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Cast(R.Broj_Nal as varchar(10)) as Broj, '
        Else
            Set @SSQL = @SSQL + ' Cast(R.Sifra_Razl As Char(3)) Broj, '
        Set @SSQL = @SSQL + ' '''' Opis, ''R'', ''R'' VlIzl,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) As ProdVredn,
                0 as NabVred,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) VkalkVredn,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) ObvrskaVredn,
                0.0 As VrednProd
            From RazlCeni R
            Inner Join Katart K On K.Sifra_Art=R.Sifra_Art And K.SMatUsl=''M'' '
        If @RazlCeniSamoTKdok = 'D'
            Set @SSQL = @SSQL + ' Inner Join TipDok TD On TD.Sifra_Dok=R.Orig_Dok And TD.VoTRG_Knig=''D'' '
        Set @SSQL = @SSQL + ' Where R.Sifra_Razl=903 And
                R.Datum_Dok>=''' + Cast(@Datum_Otv As Varchar(25)) + ''' And
                R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' And
                R.Sifra_OE=' +  + Cast(@Sifra_OE As Varchar(5)) + '
            Group By R.Sifra_OE, R.Sifra_Razl, R.Datum_Dok '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ', R.Sifra_Nal, R.Broj_Nal '
        Set @SSQL = @SSQL + ' Having (Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0 ) '
    End
    If @Dali_904 = 'D'
    Begin
        Set @SSQL = @SSQL + 'Union ALL '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Select R.Sifra_Oe, R.Sifra_Nal as Sifra_Dok, '
        Else
            Set @SSQL = @SSQL + ' Select Null as Sifra_Oe, Null as Sifra_Dok, '
        Set @SSQL = @SSQL + ' Null as ImeDok, Null as Kto, Null as Opis_TKNG,
                    R.Datum_Dok Datum_Dok,
                    R.Datum_Dok Datum_Knz, '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ' Cast(R.Broj_Nal as varchar(10)) as Broj, '
        Else
            Set @SSQL = @SSQL + ' Cast(R.Sifra_Razl As Char(3)) Broj, '
        Set @SSQL = @SSQL + ' '''' Opis, ''R'', ''R'' VlIzl,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) As ProdVredn,
                0 as NabVred,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) VkalkVredn,
                Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) ObvrskaVredn,
                0.0 As VrednProd
            From RazlCeni R
            Inner Join Katart K On K.Sifra_Art=R.Sifra_Art And K.SMatUsl=''M'' '
        If @RazlCeniSamoTKdok = 'D'
            Set @SSQL = @SSQL + ' Inner Join TipDok TD On TD.Sifra_Dok=R.Orig_Dok And TD.VoTRG_Knig=''D'' '
        Set @SSQL = @SSQL + ' Where R.Sifra_Razl=904 And
                R.Datum_Dok>=''' + Cast(@Datum_Otv As Varchar(25)) + ''' And
                R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' And
                R.Sifra_OE=' +  + Cast(@Sifra_OE As Varchar(5)) + '
            Group By R.Sifra_OE, R.Sifra_Razl, R.Datum_Dok '
        If @RezVoTab_PoNalozi = 'D'
            Set @SSQL = @SSQL + ', R.Sifra_Nal, R.Broj_Nal '
        Set @SSQL = @SSQL + ' Having (Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D'')) * R.Kolic) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0
                Or Sum((dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''N'') - dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''N'')) * R.Kolic * (R.POsn/100)) <> 0) '
    End
    Set @SSQL = @SSQL + 'Order By Datum_Dok Asc, D.VlIzl Desc, Broj Asc '
print @SSQL
    Insert #tmpKniga(Sifra_Oe, Sifra_Dok, ImeDok, Kto, Opis_TKNG, Datum_Dok, Datum_Knz, Broj, Opis, OdKade, VlIzl,
         ProdVredn, NabVred, VkalkDan, ObvrskaDan, VrednProd) Exec(@SSQL)
If @Datum_Od > @Datum_Otv
Begin
    Select @ProdVredn=Sum(ProdVredn), @NabVred=Sum(NabVred), @VkalkDan=Sum(VkalkDan),
        @ObvrskaDan=Sum(ObvrskaDan), @VrednProd=Sum(VrednProd)
    From #tmpKniga Where Datum_Dok<@Datum_Od
End
/*Else
    If @PoNabCenaStavr = 'D'
        Select InterenBr, Sifra_Dok, ImeDok, Datum_Dok, Datum_Knz, Broj, Opis, OdKade,
            Sum(ProdVredn) ProdVredn, Sum(NabVred) NabVred, Sum(VkalkDan) VkalkDan, Sum(ObvrskaDan) ObvrskaDan, Sum(VrednProd) VrednProd
        From #tmpKniga Where Datum_Dok>=@Datum_Od And Datum_Dok<=@Datum_Do
        Group By Sifra_Dok, Datum_Dok, Datum_Knz, Broj, Opis, OdKade, ImeDok
    Else
*/
    If @RezVoTab_PoNalozi = 'D'
    Begin
        CREATE TABLE ##tmpKnigaTrg
        (
            Sifra_Oe smallint,
            Sifra_Nal smallint,
            Broj_Nal Varchar(100),
            Datum_Dok Smalldatetime,
            Datum_Knz Smalldatetime,
            Opis Varchar(100),
            OdKade char(1),
            ProdVredn Numeric(18, 4),
            NabVred Numeric(18,4),
            VkalkDan Numeric(18, 4),
            ObvrskaDan Numeric(18, 4),
            VrednProd Numeric(18, 4)
        )
        Insert Into ##tmpKnigaTrg
        Select Sifra_Oe, Sifra_Dok, Broj, Datum_Dok, Datum_Knz, Opis, OdKade, ProdVredn, NabVred, VkalkDan, ObvrskaDan, VrednProd
        From #tmpKniga Where Datum_Dok>=@Datum_Od And Datum_Dok<=@Datum_Do
    End
    Else
        Select * From #tmpKniga Where Datum_Dok>=@Datum_Od And Datum_Dok<=@Datum_Do

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_knigatrg_diskont]'))
drop procedure [dbo].[sp_knigatrg_diskont]

Go

CREATE             PROCEDURE sp_KnigaTrg_Diskont
    @Sifra_OE         Smallint,
    @Datum_Otv         Smalldatetime,
    @Datum_Od         Smalldatetime,
    @Datum_Do         Smalldatetime,
    @Koi_Oe_Diskont    varchar(300) = Null,
    @PrikaziSoMarza     char(1) = 'N',
    @ProdVredn         Decimal(18,4) = 0.0 OUTPUT,
    @NabVred         Decimal(18,4) = 0.0 OUTPUT,
    @VkalkDan        Decimal(18,4) = 0.0 OUTPUT,
    @ObvrskaDan         Decimal(18,4) = 0.0 OUTPUT,
    @VrednProd         Decimal(18,4) = 0.0 OUTPUT
AS
    Declare @Tip813 char(1)
    SELECT @Tip813=VoTRG_Knig FROM TipDok WHERE Sifra_Dok=813
    Declare @SSQL Varchar(8000)
    CREATE TABLE #tmpKniga
    (
        InterenBr Integer IDENTITY(0, 1),
        Sifra_Dok smallint,
        ImeDok    char(40),
        Kto Char(10),
        Ispratnica Varchar(50),
        Datum_Dok Smalldatetime,
        Datum_Knz Smalldatetime,
        Broj Varchar(100),
        Opis Varchar(100),
        OdKade char(1),
        ProdVredn Numeric(18, 4),
        NabVred Numeric(18,4),
        VkalkDan Numeric(18, 4),
        ObvrskaDan Numeric(18, 4),
        VrednProd Numeric(18, 4)
    )
    Set @SSQL = 'Select D.Sifra_Dok, TD.ImeDok, D.Kto, D.Ispratnica,
            Datum_Dok=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End,
            Datum_Knz=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End,
            Cast(D.Sifra_Dok As Varchar(6)) + ''-'' + Cast(D.Broj_Dok As Varchar(9)) Broj, D.Identif_Br, ''D'',
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.MagVrDan    End,
            NabVred = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.Toc200    End,
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then D.PDanok1 + D.PDanok2 - (D.Danok1 + D.Danok2)    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then D.Toc200
                    When ''V'' Then 0.0        End
        From Dokr D
        Inner Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok And TD.VoTRG_Knig=''D''
        Where D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + '
        And ((TD.DaliFisc=''D'' AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc) is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Otv As varchar(25))+''')
            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''))
        And ((TD.DaliFisc=''D'' AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc) is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Do As varchar(25))+''')
            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''')) '
    IF @Tip813='D'                    --dodadeno 07.09.04
    Begin
    Set @SSQL = @SSQL + ' Union ALL Select A.Sifra_Dok, TD.ImeDok, A.Kto, Null as Ispratnica,
        A.Datum_Dok Datum_Dok,
        A.Datum_Dok Datum_Knz,
        Cast(A.Sifra_Dok As Varchar(6)) + ''-'' + Cast(A.Broj_Dok As Varchar(6)) Broj,
        A.BrojDok, ''A'', 0.0 AS ProdVredn, 0.0 AS NabVred, 0.0 AS VkalkDan, 0.0 AS ObvrskaDan,
        Pobaruva AS VrednProd
        From AnFinDok A
        Inner Join TipDok TD On A.Sifra_Dok=TD.Sifra_Dok
        Where A.Sifra_Dok=813 AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + '
            And A.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''
            And A.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    End
        Set @SSQL = @SSQL + ' Union ALL Select Null as Sifra_Dok, Null as ImeDok, Null as Kto, Null as Ispratnica, KT.Datum_Dok, KT.Datum_Knz, KT.Broj, KT.Opis, ''K'', KT.ProdVredn, KT.NabVred, KT.VkalkDan, KT.ObvrskaDan, KT.VrednProd
            From KnigaTrg KT
            Where     KT.Sifra_OE=' +  + Cast(@Sifra_OE As Varchar(5)) + '
            And KT.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''
            And KT.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
-- Novoto
-- Izlezni dokumenti od bilo koja druga OE ili Gr.Oe ako e vnesena i koi vo TipDok.Disk_Oe = @Sifra_Oe i se prikazuvaat na vleznata strana na kalkulacijata
    Set @SSQL = @SSQL + ' Union ALL Select D.Sifra_Dok, TD.ImeDok, D.Kto, D.Ispratnica,
            Datum_Dok=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End,
            Datum_Knz=Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End,
            Cast(D.Sifra_Oe As Varchar(6)) + ''-'' + Cast(D.Sifra_Dok As Varchar(6)) + ''/'' + Cast(D.Broj_Dok As Varchar(9)) Broj, D.Identif_Br, ''D'',  '
    If @PrikaziSoMarza = 'N'
        Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then Sum((S.Kolic*dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)))
                    When ''V'' Then 0.0    End,
            NabVred = Case D.VlIzl
                    When ''I'' Then Sum((S.Kolic*dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)))
                    When ''V'' Then 0.0    End, '
    Else
        Set @SSQL = @SSQL + '
            ProdVredn =     Case D.VlIzl
                    When ''I'' Then Sum((S.Kolic*dbo.fn_VratiCenaSoDDVBezRabat(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)))
                    When ''V'' Then 0.0    End,
            NabVred = Case D.VlIzl
                    When ''I'' Then Sum((S.Kolic*dbo.fn_VratiCena(S.NabCena, S.Posn, ''N'', ''D'')))
                    When ''V'' Then 0.0    End, '
    Set @SSQL = @SSQL + '
            VkalkDan = Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            ObvrskaDan =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0    End,
            VrednProd =     Case D.VlIzl
                    When ''I'' Then 0.0
                    When ''V'' Then 0.0        End
        From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrID
        Inner Join TipDok TD On D.Sifra_Dok=TD.Sifra_Dok And TD.VoTRG_Knig=''D''
        Where D.Sifra_OE<>' + Cast(@Sifra_OE As Varchar(6)) + '
        And TD.Disk_Oe = ' + Cast(@Sifra_OE As Varchar(6)) + '
        And D.VlIzl = ''I''
        And ((TD.DaliFisc=''D'' AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc) is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)>='''+Cast(@Datum_Otv As varchar(25))+''')
            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok>=''' + Cast(@Datum_Otv As varchar(25)) + '''))
        And ((TD.DaliFisc=''D'' AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc) is not null AND dbo.fn_VratiDatum(D.Dat_Pec_Fisc)<='''+Cast(@Datum_Do As varchar(25))+''')
            OR (TD.DaliFisc<>''D'' AND D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''')) '
    If @Koi_Oe_Diskont Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe In (' + @Koi_Oe_Diskont + ') '
    Set @SSQL = @SSQL + ' Group By D.Sifra_Dok, TD.ImeDok, D.Kto, D.Ispratnica,
            (Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End),
            (Case When TD.DaliFisc=''D'' And D.Pec_Fisc>0 Then dbo.fn_VratiDatum(D.Dat_Pec_Fisc) Else D.Datum_Dok End),
            Cast(D.Sifra_Oe As Varchar(6)) + ''-'' + Cast(D.Sifra_Dok As Varchar(6)) + ''/'' + Cast(D.Broj_Dok As Varchar(9)), D.Identif_Br, D.VlIzl  '
    Set @SSQL = @SSQL + 'Order By Datum_Dok '
    Insert #tmpKniga(Sifra_Dok, ImeDok, Kto, Ispratnica, Datum_Dok, Datum_Knz, Broj, Opis, OdKade,
         ProdVredn, NabVred, VkalkDan, ObvrskaDan, VrednProd) Exec(@SSQL)
    ----------------------------------------------  Pocetna Sostojba ---------------------------------------------------------------------------------------
    If @Datum_Od > @Datum_Otv
    Begin
        Select @ProdVredn=Sum(ProdVredn), @NabVred=Sum(NabVred), @VkalkDan=Sum(VkalkDan),
            @ObvrskaDan=Sum(ObvrskaDan), @VrednProd=Sum(VrednProd)
        From #tmpKniga Where Datum_Dok<@Datum_Od
    End
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Select * From #tmpKniga Where Datum_Dok>=@Datum_Od And Datum_Dok<=@Datum_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_knizen_li_e_dok]'))
drop procedure [dbo].[sp_knizen_li_e_dok]

Go

create PROCEDURE sp_Knizen_Li_E_Dok
    @DokrId        int,
    @Broj_Nal    int OUTPUT
AS
    select @Broj_Nal = Broj_Nal
    from Dokr
    where DokrId = @DokrId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kodart]'))
drop procedure [dbo].[sp_kodart]

Go

CREATE PROCEDURE sp_KodArt
    @Sifra_Art As Varchar(20)
As
    Select K.Nom From Katart K
    Where K.Sifra_Art=@Sifra_Art
    Union
    Select B.Nom From ABarKod B
    Where B.Sifra_Art=@Sifra_Art
Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kolic_po_listadok]'))
drop procedure [dbo].[sp_kolic_po_listadok]

Go


CREATE      PROCEDURE sp_Kolic_Po_ListaDok
    @Sifra_Oe        smallint,
        @Sifra_Dok        smallint = Null,    -- Veke ne se koristi
        @Sifra_Dok2        smallint = Null,    -- Veke ne se koristi
    @Sifra_Dok_List        varchar (100),
    @Broj_Dok_Lista    varchar(8000)
AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL = ' Select S.Sifra_art, K.Nabavna, Sum(S.Kolic) Kolicina from Stavr S
                      Inner Join Katart K   on  S.Sifra_Art = K.Sifra_Art '
    Set @SSQL=@SSQL + ' Where 1=1 '
    Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' +  Cast(@Sifra_Oe As Varchar(10)) + ' '
    SET @SSQL = @SSQL + ' AND S.Sifra_Dok in (' + @Sifra_Dok_List + ') '
    Set @SSQL=@SSQL + ' And S.Broj_Dok IN (' + @Broj_Dok_Lista + ') '
    Set @SSQL = @SSQL + ' Group By S.Sifra_art, K.Nabavna '
    Set @SSQL = @SSQL + 'Order By S.Sifra_Art '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kolona_daliid]'))
drop procedure [dbo].[sp_kolona_daliid]

Go

CREATE PROCEDURE sp_Kolona_DaliID
    @Tabela Varchar(20),
    @Kolona varchar(20),
    @DaliID Bit OUTPUT
AS
    If Exists (select so.name, so.id, so.xtype, sc.name, sc.status
            from sysobjects so
            inner join syscolumns sc on so.id=sc.id
            where sc.status=128 and so.name=@Tabela and sc.name=@Kolona)
        Set @DaliID=1
    Else
        Set @DaliID=0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komercijalisti_naracki_redovnost]'))
drop procedure [dbo].[sp_komercijalisti_naracki_redovnost]

Go




CREATE          PROCEDURE sp_Komercijalisti_Naracki_Redovnost
    @Sifra_Pat        smallint = Null,
    @KoiPat        Varchar(10) = Null,
--    @Sifra_Nar        Varchar(100) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null
--    @Datum_Nar_Do    smalldatetime = Null

 AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    If @Sifra_Pat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Oe = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @KoiPat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiPat + ''') '

    Create Table #Rez
    (
        Sifra_Pat    int,
        Datum        smalldatetime,
        PocRabVreme    datetime,
        Sifra_Kup_Start    char(6),
        Sifra_Obj_Start    char(6),
        KrajRabVreme    datetime,
        Sifra_Kup_Kraj    char(6),
        Sifra_Obj_Kraj    char(6),
        BrPoseti    int,
        BrNaracki    int,
        BrStavkiNar    int,
        BrFakturi    int,
        BrStavkiFra    int,
        VrednostNar    decimal(18,4),
        VrednostFri    decimal(18,4),
    )

    Set @SSQL = 'Select N.Sifra_Oe, Cast(Cast(Year(DatumVreme) as varchar(4)) + ''-'' + Cast(Month(DatumVreme) as varchar(2)) + ''-'' + Cast(Day(DatumVreme) as varchar(2)) as smalldatetime),
             Min(N.DatumVreme), Max(N.DatumVreme), Count(*)
            From Akcija N
            Where N.DatumVreme >= ''' + Cast(@Datum_Od as varchar(30)) + ''' And N.DatumVreme < ''' + Cast(@Datum_Do + 1 as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.Sifra_Oe, Cast(Cast(Year(DatumVreme) as varchar(4)) + ''-'' + Cast(Month(DatumVreme) as varchar(2)) + ''-'' + Cast(Day(DatumVreme) as varchar(2)) as smalldatetime) '
    Insert Into #Rez (Sifra_Pat, Datum, PocRabVreme, KrajRabVreme, BrPoseti) Exec(@SSQL)

    Update #Rez Set Sifra_Kup_Start = A.Sifra_Kup, Sifra_Obj_Start = A.Sifra_Obj From Akcija A Where A.Sifra_Oe = #Rez.Sifra_Pat And A.DatumVreme=#Rez.PocRabVreme
    Update #Rez Set Sifra_Kup_Kraj = A.Sifra_Kup, Sifra_Obj_Kraj = A.Sifra_Obj From Akcija A Where A.Sifra_Oe = #Rez.Sifra_Pat And A.DatumVreme=#Rez.KrajRabVreme

    Create Table #NarPom
    (
        Sifra_Pat    int,
        Datum        smalldatetime,
        BrNaracki    int,
        BrStavkiNar    int,
        BrFakturi    int,
        BrStavkiFra    int,
        VrednostNar    decimal(18,4),
        VrednostFri    decimal(18,4)
    )

    Create Table #Nar
    (
        Sifra_Pat    int,
        Datum        smalldatetime,
        BrNaracki    int,
        BrStavkiNar    int,
        BrFakturi    int,
        BrStavkiFra    int,
        VrednostNar    decimal(18,4),
        VrednostFri    decimal(18,4)
    )        --Sum(SN.Kolic*(Case When SN.DanDokCena = ''D'' Then SN.DokCena Else (SN.DokCena*(1+SN.Posn/100)) End)*(1-SN.Uces/100)) bese vo VrednostNar
    Set @SSQL = '  Select N.Sifra_Oe, N.Datum_Nar, Count(Distinct N.Sifra_Kup + (Case When N.Sifra_Obj Is Not Null Then Cast(N.Sifra_Obj as char(4)) Else '''' End)),
            Count(Distinct SN.StaNarID), 0 BrFakturi, 0 BrStavkiNar, SUM(N.Toc200),    0 VrednostFri
            From Naracki N
            Inner Join StaNarac SN On SN.NarID=N.NarID
            Where N.Datum_Nar >= ''' +  Cast(@Datum_Od as varchar(30)) + ''' And N.Datum_Nar <= ''' +  Cast(@Datum_Do as varchar(30)) + '''
            And N.Sifra_Nar <= 100 '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.Sifra_Oe, N.Datum_Nar '
    Insert Into #NarPom Exec(@SSQL)
     Set @SSQL = '  Select N.Sifra_Oe, N.Datum_Nar, 0 BrNaracki, 0 BrStavkiNar,  Count(Distinct D.DokrID), Count(Distinct S.DokID), 0 VrednostNar,
            Sum(S.Kolic*(Case When S.DanDokCena = ''D'' Then S.DokCena Else (S.DokCena*(1+S.Posn/100)) End)*(1-S.Uces/100)*(1-D.Kasa/100))
            From Naracki N
            Inner Join StaNarac SN On SN.NarID=N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Where N.Datum_Nar >= ''' +  Cast(@Datum_Od as varchar(30)) + ''' And N.Datum_Nar <= ''' +  Cast(@Datum_Do as varchar(30)) + '''
            And N.Sifra_Nar <= 100  And D.Toc200 > 0 '        --zosto ovde Toc200>0? taka pobaraa?
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.Sifra_Oe, N.Datum_Nar '

    Insert Into #NarPom Exec(@SSQL)

    Insert Into #Nar Select Sifra_Pat, Datum, sum(BrNaracki), sum(BrStavkiNar), sum(BrFakturi), sum(BrStavkiFra), sum(VrednostNar), sum(VrednostFri)
    From #NarPom Group By Sifra_Pat, Datum

    Update #Rez Set BrNaracki = N.BrNaracki, BrStavkiNar=N.BrStavkiNar, BrFakturi=N.BrFakturi, BrStavkiFra=N.BrStavkiFra, VrednostNar=N.VrednostNar, VrednostFri=N.VrednostFri
    From #Nar N Where N.Sifra_Pat = #Rez.Sifra_Pat And N.Datum=#Rez.Datum

    Select R.Sifra_Pat, R.Datum,
        R.PocRabVreme, R.Sifra_Kup_Start, KS.ImeKup ImeKupStart, R.Sifra_Obj_Start, KOS.ImeObj ImeObjStart,
        R.KrajRabVreme, R.Sifra_Kup_Kraj, KK.ImeKup ImeKupKraj, R.Sifra_Obj_Kraj, KOK.ImeObj ImeObjKraj,
        Pat.ImePat, R.BrNaracki, R.BrStavkiNar, R.BrFakturi, R.BrStavkiFra, R.VrednostNar, R.VrednostFri
    From #Rez R
    Left Outer Join Patnici Pat On Pat.Sifra_Pat=R.Sifra_Pat
    Left Outer Join Komint KS On KS.Sifra_Kup=R.Sifra_Kup_Start
    Left Outer Join Komint KK On KK.Sifra_Kup=R.Sifra_Kup_Kraj
    Left Outer Join KObjekti KOS On KOS.Sifra_Kup=R.Sifra_Kup_Start And KOS.Sifra_Obj=R.Sifra_Obj_Start
    Left Outer Join KObjekti KOK On KOK.Sifra_Kup=R.Sifra_Kup_Kraj And KOK.Sifra_Obj=R.Sifra_Obj_Kraj
    Order by R.Sifra_Pat, R.Datum


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet]'))
drop procedure [dbo].[sp_komint_prethpromet]

Go


CREATE      PROCEDURE sp_Komint_PrethPromet
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Kto2         Char(6) = Null,
    @KFKto2     Char(1) = 'N',
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null,
    @Dolzi        Numeric(18,4)  OUTPUT,
    @Pobaruva    Numeric(18,4)  OUTPUT,
    @Plateno_Dolzi    Numeric(18,4)  OUTPUT,
    @Plateno_Pobar Numeric(18,4) OUTPUT,
    @DolziNeg    Numeric(18,4) = 0 OUTPUT,
    @PobaruvaNeg    Numeric(18,4) = 0 OUTPUT
AS
   Declare @SSQL Varchar(4000)
    CREATE TABLE #Preth_Promet
    (
    Dolzi        Numeric(18,4),
    Pobaruva    Numeric(18,4),
    Plateno_Dolzi    Numeric(18,4),
    Plateno_Pobar    Numeric(18,4),
    DolziNeg    Numeric(18,4),
    PobaruvaNeg    Numeric(18,4)
    )
    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi, Sum(A.Pobaruva) Pobaruva,
        Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar,
        Sum( Case WHEN Dolzi < 0 Then Dolzi  Else 0 End) DolziNeg,
        Sum( Case WHEN Pobaruva < 0 Then Pobaruva Else 0 End) PobaruvaNeg
        FROM AnFinDok A
        WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    Else If @KoiFri = 'R'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) and  (A.Plateno_Dolzi = 0 and A.Plateno_Pobar = 0) '  -- Logikata ne e bas dobra (stavena e da ne prikazuva nisto)
    Else If @KoiFri = 'M'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) '  -- site stavki koi sto se delumno ili celosno plateni (zaradi slozuvanje so sp_Kart_ZatvStavki)
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    INSERT INTO #Preth_Promet EXEC(@SSQL)
    SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva,
        @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
        @DolziNeg=DolziNeg, @PobaruvaNeg=PobaruvaNeg
    FROM #Preth_Promet
    SET @Dolzi=ISNULL(@Dolzi,0)
    SET @Pobaruva=ISNULL(@Pobaruva,0)
    SET @Plateno_Dolzi=ISNULL(@Plateno_Dolzi,0)
    SET @Plateno_Pobar=ISNULL(@Plateno_Pobar,0)
    SET @DolziNeg=ISNULL(@DolziNeg,0)
    SET @PobaruvaNeg=ISNULL(@PobaruvaNeg,0)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_dev]'))
drop procedure [dbo].[sp_komint_prethpromet_dev]

Go



CREATE     PROCEDURE sp_Komint_PrethPromet_Dev
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null
AS
    Declare @SSQL Varchar(2000)
    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi,
                  Sum(A.Pobaruva) Pobaruva,
                  Sum(A.Plateno_Dolzi) Plateno_Dolzi,
                  Sum(A.Plateno_Pobar) Plateno_Pobar,
                  Sum(A.Dev_Dolzi) Dev_Dolzi,
                  Sum(A.Dev_Pobaruva) Dev_Pobaruva,
                  Sum(A.Dev_Plat_Dolzi) Dev_Plat_Dolzi,
                  Sum(A.Dev_Plat_Pobar) Dev_Plat_Pobar,
                  V.ImeVal, Null as Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD On A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        Inner Join KrsLista V On A.KojaVal=V.SImeVal
          WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By V.ImeVal '
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_dev_divizii]'))
drop procedure [dbo].[sp_komint_prethpromet_dev_divizii]

Go



CREATE     PROCEDURE sp_Komint_PrethPromet_Dev_Divizii
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Pobaruva,
            Sum(A.Plateno_Dolzi) Plateno_Dolzi,
            Sum(A.Plateno_Pobar) Plateno_Pobar,
            Sum(Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else A.Dev_Dolzi End) Dev_Dolzi,
            Sum(Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else A.Dev_Pobaruva End) Dev_Pobaruva,
            Sum(A.Dev_Plat_Dolzi) Dev_Plat_Dolzi,
            Sum(A.Dev_Plat_Pobar) Dev_Plat_Pobar,
            V.ImeVal, GD.Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD On A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID
        Inner Join KrsLista V On A.KojaVal=V.SImeVal
        WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By V.ImeVal, GD.Sifra_Div '
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_dev_m]'))
drop procedure [dbo].[sp_komint_prethpromet_dev_m]

Go

CREATE     PROCEDURE sp_Komint_PrethPromet_Dev_M
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi,
                Sum(A.Pobaruva) Pobaruva,
                Sum(A.Plateno_Dolzi) Plateno_Dolzi,
                Sum(A.Plateno_Pobar) Plateno_Pobar,
                Sum(A.Dev_Dolzi) Dev_Dolzi,
                Sum(A.Dev_Pobaruva) Dev_Pobaruva,
                Sum(A.Dev_Plat_Dolzi) Dev_Plat_Dolzi,
                Sum(A.Dev_Plat_Pobar) Dev_Plat_Pobar,
                V.ImeVal, Null as Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD On A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        Inner Join KrsLista V On A.KojaVal=V.SImeVal
        WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By V.ImeVal '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_dev_m_divizii]'))
drop procedure [dbo].[sp_komint_prethpromet_dev_m_divizii]

Go



CREATE      PROCEDURE sp_Komint_PrethPromet_Dev_M_Divizii
    @Sifra_Za Char(1),
    @Sifra_Kup Char(6),
    @KoiFri Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
    @Kto Char(6),
    @Sifra_OE Smallint,
    @KojaVal char(3) = Null,
    @Sifra_Div smallint = Null
AS
    Declare @SSQL Varchar(8000)
    SET @SSQL = 'SELECT
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Dolzi,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Pobaruva,
            Sum(A.Plateno_Dolzi) Plateno_Dolzi,
            Sum(A.Plateno_Pobar) Plateno_Pobar,
            Sum(Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else A.Dev_Dolzi End) Dev_Dolzi,
            Sum(Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else A.Dev_Pobaruva End) Dev_Pobaruva,
            Sum(A.Dev_Plat_Dolzi) Dev_Plat_Dolzi,
            Sum(A.Dev_Plat_Pobar) Dev_Plat_Pobar,
            V.ImeVal, GD.Sifra_Div
        FROM AnFinDok A
        INNER JOIN TipDok TD On A.Sifra_Dok=TD.Sifra_Dok And TD.Dev=''D''
        Inner Join KrsLista V On A.KojaVal=V.SImeVal
        LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID
        WHERE A.Sifra_Kup=' + @Sifra_Kup + ' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
       SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dev_Dolzi=A.Dev_Plat_Dolzi AND A.Dev_Pobaruva=A.Dev_Plat_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dev_Dolzi<>A.Dev_Plat_Dolzi OR A.Dev_Pobaruva<>A.Dev_Plat_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By V.ImeVal, GD.Sifra_Div '
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_divizii]'))
drop procedure [dbo].[sp_komint_prethpromet_divizii]

Go

CREATE     PROCEDURE sp_Komint_PrethPromet_Divizii
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Kto2         Char(6) = Null,
    @KFKto2     Char(1) = 'N',
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null,
    @Dolzi        Numeric(18,4)  OUTPUT,
    @Pobaruva    Numeric(18,4)  OUTPUT,
    @Plateno_Dolzi    Numeric(18,4)  OUTPUT,
    @Plateno_Pobar Numeric(18,4) OUTPUT,
    @DolziNeg    Numeric(18,4) = 0 OUTPUT,
    @PobaruvaNeg    Numeric(18,4) = 0 OUTPUT
AS
   Declare @SSQL Varchar(4000)
    CREATE TABLE #Preth_Promet
    (
    Dolzi        Numeric(18,4),
    Pobaruva    Numeric(18,4),
    Plateno_Dolzi    Numeric(18,4),
    Plateno_Pobar    Numeric(18,4),
    DolziNeg    Numeric(18,4),
    PobaruvaNeg    Numeric(18,4)
    )
    SET @SSQL = 'SELECT Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Dolzi,
                Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Pobaruva,
                Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar,
                Sum(Case WHEN A.Dolzi < 0 Then (Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) Else 0 End) DolziNeg,
                Sum(Case WHEN A.Pobaruva < 0 Then (Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End) Else 0 End) PobaruvaNeg
        FROM AnFinDok A
        LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID
        WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL = @SSQL + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    Else If @KoiFri = 'R'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) and  (A.Plateno_Dolzi = 0 and A.Plateno_Pobar = 0) '  -- Logikata ne e bas dobra (stavena e da ne prikazuva nisto)
    Else If @KoiFri = 'M'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) '  -- site stavki koi sto se delumno ili celosno plateni (zaradi slozuvanje so sp_Kart_ZatvStavki)
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQL = @SSQL + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQL = @SSQL + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    INSERT INTO #Preth_Promet EXEC(@SSQL)
    SELECT @Dolzi=Dolzi, @Pobaruva=Pobaruva,
        @Plateno_Dolzi=Plateno_Dolzi, @Plateno_Pobar=Plateno_Pobar,
        @DolziNeg=DolziNeg, @PobaruvaNeg=PobaruvaNeg
    FROM #Preth_Promet
    SET @Dolzi=ISNULL(@Dolzi,0)
    SET @Pobaruva=ISNULL(@Pobaruva,0)
    SET @Plateno_Dolzi=ISNULL(@Plateno_Dolzi,0)
    SET @Plateno_Pobar=ISNULL(@Plateno_Pobar,0)
    SET @DolziNeg=ISNULL(@DolziNeg,0)
    SET @PobaruvaNeg=ISNULL(@PobaruvaNeg,0)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_dvebazi]'))
drop procedure [dbo].[sp_komint_prethpromet_dvebazi]

Go

CREATE    PROCEDURE sp_Komint_PrethPromet_DveBazi
    @Sifra_Za    Char(1)=Null,
    @Sifra_Kup     Char(6)=Null,
    @KoiFri     Char(1)=Null,
    @Datum_Nal_Od Smalldatetime=Null,
    @Datum_Nal_Do Smalldatetime=Null,
    @Datum_Dok_Od Smalldatetime=Null,
    @Datum_Dok_Do Smalldatetime=Null,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6)=Null,
    @Kto2         Char(6) = Null,
    @KFKto2     Char(1) = 'N',
    @Sifra_OE    Smallint=Null,
    @Koi_OE    Varchar(200)=Null,
    @Sifra_Pat    smallint = Null,
    @Baza2    Varchar(15)=Null,
    @KoiPat    varchar(10)=Null,
    @Dolzi        Numeric(18,4)  OUTPUT,
    @Pobaruva    Numeric(18,4)  OUTPUT,
    @Plateno_Dolzi    Numeric(18,4)  OUTPUT,
    @Plateno_Pobar Numeric(18,4) OUTPUT,
    @DolziNeg    Numeric(18,4) = 0 OUTPUT,
    @PobaruvaNeg    Numeric(18,4) = 0 OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQLUsl = ' '
    CREATE TABLE #Preth_Promet
    (
    Dolzi        Numeric(18,4),
    Pobaruva    Numeric(18,4),
    Plateno_Dolzi    Numeric(18,4),
    Plateno_Pobar    Numeric(18,4),
    DolziNeg    Numeric(18,4),
    PobaruvaNeg    Numeric(18,4)
    )
    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi, Sum(A.Pobaruva) Pobaruva,
        Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar,
        Sum(Case WHEN Dolzi < 0 Then Dolzi  Else 0 End) DolziNeg,
        Sum(Case WHEN Pobaruva < 0 Then Pobaruva Else 0 End) PobaruvaNeg
        FROM AnFinDok A
        WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    INSERT INTO #Preth_Promet EXEC(@SSQL+@SSQLUsl)
    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi, Sum(A.Pobaruva) Pobaruva,
        Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar,
        Sum( Case WHEN Dolzi < 0 Then Dolzi  Else 0 End) DolziNeg,
        Sum( Case WHEN Pobaruva < 0 Then Pobaruva Else 0 End) PobaruvaNeg
        FROM ' + @Baza2 + '..AnFinDok A
        WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    INSERT INTO #Preth_Promet EXEC(@SSQL+@SSQLUsl)
    SELECT @Dolzi=Sum(Dolzi), @Pobaruva=Sum(Pobaruva),
        @Plateno_Dolzi=Sum(Plateno_Dolzi), @Plateno_Pobar=Sum(Plateno_Pobar),
        @DolziNeg=Sum(DolziNeg), @PobaruvaNeg=Sum(PobaruvaNeg)
    FROM #Preth_Promet
    SET @Dolzi=ISNULL(@Dolzi,0)
    SET @Pobaruva=ISNULL(@Pobaruva,0)
    SET @Plateno_Dolzi=ISNULL(@Plateno_Dolzi,0)
    SET @Plateno_Pobar=ISNULL(@Plateno_Pobar,0)
    SET @DolziNeg=ISNULL(@DolziNeg,0)
    SET @PobaruvaNeg=ISNULL(@PobaruvaNeg,0)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prethpromet_sodokoddokr]'))
drop procedure [dbo].[sp_komint_prethpromet_sodokoddokr]

Go


CREATE      PROCEDURE sp_Komint_PrethPromet_SoDokOdDokr
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Kto2         Char(6) = Null,
    @KFKto2     Char(1) = 'N',
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null,
    @Dolzi        Numeric(18,4)  OUTPUT,
    @Pobaruva    Numeric(18,4)  OUTPUT,
    @Plateno_Dolzi    Numeric(18,4)  OUTPUT,
    @Plateno_Pobar Numeric(18,4) OUTPUT,
    @DolziNeg    Numeric(18,4) = 0 OUTPUT,
    @PobaruvaNeg    Numeric(18,4) = 0 OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)

    Set @SSQLUsl = ' '

    CREATE TABLE #Preth_Promet
    (
    Dolzi        Numeric(18,4),
    Pobaruva    Numeric(18,4),
    Plateno_Dolzi    Numeric(18,4),
    Plateno_Pobar    Numeric(18,4),
    DolziNeg    Numeric(18,4),
    PobaruvaNeg    Numeric(18,4)
    )

    SET @SSQL = 'SELECT Sum(A.Dolzi) Dolzi, Sum(A.Pobaruva) Pobaruva,
        Sum(A.Plateno_Dolzi) Plateno_Dolzi, Sum(A.Plateno_Pobar) Plateno_Pobar,
        Sum( Case WHEN Dolzi < 0 Then Dolzi  Else 0 End) DolziNeg,
        Sum( Case WHEN Pobaruva < 0 Then Pobaruva Else 0 End) PobaruvaNeg
        FROM AnFinDok A
        WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    Else If @KoiFri = 'R'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) and  (A.Plateno_Dolzi = 0 and A.Plateno_Pobar = 0) '  -- Logikata ne e bas dobra (stavena e da ne prikazuva nisto)
    Else If @KoiFri = 'M'
        Set @SSQL = @SSQL + 'AND  (A.Plateno_Dolzi <> 0 Or A.Plateno_Pobar <> 0) '  -- site stavki koi sto se delumno ili celosno plateni (zaradi slozuvanje so sp_Kart_ZatvStavki)

    If @Datum_Dok_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLUsl = @SSQLUsl + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQLUsl = @SSQLUsl + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '

    If @Kto Is NOT Null  and @Kto2 Is Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Kto Is NOT Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND (A.Kto = ''' + @Kto + ''' or A.Kto <> ''' + @Kto2 + ''') '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto in (''' + @Kto + ''', ''' + @Kto2 + ''') '
    End
    If @Kto Is Null  and @Kto2 Is Not Null
    Begin
        If @KFKto2 = 'D'
            SET @SSQLUsl = @SSQLUsl + 'AND  A.Kto  <> ''' + @Kto2 + ''' '
        Else
            SET @SSQLUsl = @SSQLUsl + 'AND A.Kto = ''' + @Kto2 + ''' '
    End
    If @Sifra_Pat Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_Div Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '

    Set @SSQL = @SSQL + @SSQLUsl + ' Union '

    Set @SSQL = @SSQL + ' Select Sum(A.Toc200) Dolzi, Sum(A.Toc200) as Pobaruva,
        Sum(A.Toc200) Plateno_Dolzi, Sum(A.Toc200) as Plateno_Pobar,
        Sum(Case WHEN Toc200 < 0 Then Toc200  Else 0 End) DolziNeg,
        Sum(Case WHEN Toc200 < 0 Then Toc200  Else 0 End) PobaruvaNeg
        FROM Dokr A
        LEFT OUTER Join Nalozi N On N.Sifra_Nal = A.Sifra_Nal And N.Broj_Nal=A.Broj_Nal
        WHERE Sifra_Kup=''' + @Sifra_Kup + '''
        And A.Sifra_Dok in (83,84) '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND  A.Toc200<>A.Toc200 '

    Set @SSQL = @SSQL + @SSQLUsl

    INSERT INTO #Preth_Promet EXEC(@SSQL)


    SELECT @Dolzi=Sum(Dolzi), @Pobaruva=Sum(Pobaruva),
        @Plateno_Dolzi=Sum(Plateno_Dolzi), @Plateno_Pobar=Sum(Plateno_Pobar),
        @DolziNeg=Sum(DolziNeg), @PobaruvaNeg=Sum(PobaruvaNeg)
    FROM #Preth_Promet
    SET @Dolzi=ISNULL(@Dolzi,0)
    SET @Pobaruva=ISNULL(@Pobaruva,0)
    SET @Plateno_Dolzi=ISNULL(@Plateno_Dolzi,0)
    SET @Plateno_Pobar=ISNULL(@Plateno_Pobar,0)
    SET @DolziNeg=ISNULL(@DolziNeg,0)
    SET @PobaruvaNeg=ISNULL(@PobaruvaNeg,0)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prometpokta]'))
drop procedure [dbo].[sp_komint_prometpokta]

Go

CREATE     PROCEDURE sp_Komint_PrometPoKta
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
     @Datum_Dosp_Od Smalldatetime = Null,
    @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Dev        char(1) = 'N',
    @KojaVal    char(3) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQL1 varchar(4000)
    Declare @SSQL2 varchar(4000)
    SET @SSQL1=''
    SET @SSQL2=''
    CREATE TABLE #PrometKto
    (
    Kto_Anal        char(10),
    ImeVal            varchar(20),
    Preth_Dolzi        Numeric(18,4),
    Preth_Pobaruva        Numeric(18,4),
    Preth_Dev_Dolzi    Numeric(18,4),
    Preth_Dev_Pobaruva    Numeric(18,4),
    Tek_Dolzi        Numeric(18,4),
    Tek_Pobaruva        Numeric(18,4),
    Tek_Dev_Dolzi        Numeric(18,4),
    Tek_Dev_Pobaruva    Numeric(18,4)
    )
    SET @SSQL = 'SELECT A.Kto, V.ImeVal, Sum(A.Dolzi), Sum(A.Pobaruva), Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva)
            FROM AnFinDok A '
    IF @Dev = 'D'
        Set @SSQL = @SSQL + ' INNER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Set @SSQL = @SSQL + ' WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        SET @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    SET @SSQL2 = ' Group by A.Kto, V.ImeVal '
    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Preth_Dolzi, Preth_Pobaruva, Preth_Dev_Dolzi, Preth_Dev_Pobaruva)
    EXEC(@SSQL+@SSQL1+@SSQL2)
    SET @SSQL1 = ''
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Tek_Dolzi, Tek_Pobaruva, Tek_Dev_Dolzi, Tek_Dev_Pobaruva)
    EXEC(@SSQL+@SSQL1+@SSQL2)
    SELECT 0 as KojaBaza, Kto_Anal, ImeVal, Null as Sifra_Div, sum(Preth_Dolzi) Preth_Dolzi, sum(Preth_Pobaruva) Preth_Pobaruva,
        sum(Preth_Dev_Dolzi) Preth_Dev_Dolzi, sum(Preth_Dev_Pobaruva) Preth_Dev_Pobaruva,
        sum(Tek_Dolzi) Tek_Dolzi, sum(Tek_Pobaruva) Tek_Pobaruva,
        sum(Tek_Dev_Dolzi) Tek_Dev_Dolzi, sum(Tek_Dev_Pobaruva) Tek_Dev_Pobaruva
    FROM #PrometKto GROUP BY Kto_Anal, ImeVal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prometpokta_divizii]'))
drop procedure [dbo].[sp_komint_prometpokta_divizii]

Go

CREATE     PROCEDURE sp_Komint_PrometPoKta_Divizii
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
     @Datum_Dosp_Od Smalldatetime = Null,
    @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Dev        char(1) = 'N',
    @KojaVal    char(3) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQL1 varchar(4000)
    Declare @SSQL2 varchar(4000)
    SET @SSQL1=''
    SET @SSQL2=''
    CREATE TABLE #PrometKto
    (
    Kto_Anal        char(10),
    ImeVal            varchar(20),
    Sifra_Div        smallint,
    Preth_Dolzi        Numeric(18,4),
    Preth_Pobaruva        Numeric(18,4),
    Preth_Dev_Dolzi    Numeric(18,4),
    Preth_Dev_Pobaruva    Numeric(18,4),
    Tek_Dolzi        Numeric(18,4),
    Tek_Pobaruva        Numeric(18,4),
    Tek_Dev_Dolzi        Numeric(18,4),
    Tek_Dev_Pobaruva    Numeric(18,4)
    )
    SET @SSQL = 'SELECT A.Kto, V.ImeVal, GD.Sifra_Div,
            Sum(Case When GD.Dolzi <> 0 Then GD.Dolzi Else A.Dolzi End) ,
            Sum(Case When GD.Pobaruva <> 0 Then GD.Pobaruva Else A.Pobaruva End),
            Sum(Case When A.Kurs > 1 And GD.Dolzi <> 0 Then GD.Dolzi / A.Kurs Else A.Dev_Dolzi End),
            Sum(Case When A.Kurs > 1 And GD.Pobaruva <> 0 Then GD.Pobaruva / A.Kurs Else A.Dev_Pobaruva End)
            FROM AnFinDok A
            LEFT OUTER JOIN GstAnDiv GD On GD.AnID=A.AnID '
    IF @Dev = 'D'
        Set @SSQL = @SSQL + ' INNER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Set @SSQL = @SSQL + ' WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        SET @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is Not Null
        SET @SSQL = @SSQL + ' AND GD.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    SET @SSQL2 = ' Group by A.Kto, V.ImeVal, GD.Sifra_Div '
    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Sifra_Div, Preth_Dolzi, Preth_Pobaruva, Preth_Dev_Dolzi, Preth_Dev_Pobaruva)
    EXEC(@SSQL+@SSQL1+@SSQL2)
    SET @SSQL1 = ''
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Sifra_Div, Tek_Dolzi, Tek_Pobaruva, Tek_Dev_Dolzi, Tek_Dev_Pobaruva)
    EXEC(@SSQL+@SSQL1+@SSQL2)
    SELECT 0 as KojaBaza, Kto_Anal, ImeVal, Sifra_Div, sum(Preth_Dolzi) Preth_Dolzi, sum(Preth_Pobaruva) Preth_Pobaruva,
        sum(Preth_Dev_Dolzi) Preth_Dev_Dolzi, sum(Preth_Dev_Pobaruva) Preth_Dev_Pobaruva,
        sum(Tek_Dolzi) Tek_Dolzi, sum(Tek_Pobaruva) Tek_Pobaruva,
        sum(Tek_Dev_Dolzi) Tek_Dev_Dolzi, sum(Tek_Dev_Pobaruva) Tek_Dev_Pobaruva
    FROM #PrometKto GROUP BY Kto_Anal, ImeVal, Sifra_Div




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prometpokta_dvebazi]'))
drop procedure [dbo].[sp_komint_prometpokta_dvebazi]

Go

CREATE     PROCEDURE sp_Komint_PrometPoKta_DveBazi
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
     @Datum_Dosp_Od Smalldatetime = Null,
    @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Dev        char(1) = 'N',
    @KojaVal    char(3) = Null,
    @Baza2    varchar(15) = Null,
    @Sifra_Pat    smallint = Null,
    @KoiPat    varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQL1 varchar(4000)
    Declare @SSQL2 varchar(4000)
    Declare @SSQLBaza1 varchar(4000)
    Declare @SSQLBaza2 varchar(4000)
    SET @SSQL=''
    SET @SSQL1=''
    SET @SSQL2=''
    SET @SSQLBaza1=''
    SET @SSQLBaza2=''
    CREATE TABLE #PrometKto
    (
    KojaBaza        char(1),
    Kto_Anal        char(10),
    ImeVal            varchar(20),
    Preth_Dolzi        Numeric(18,4),
    Preth_Pobaruva        Numeric(18,4),
    Preth_Dev_Dolzi    Numeric(18,4),
    Preth_Dev_Pobaruva    Numeric(18,4),
    Tek_Dolzi        Numeric(18,4),
    Tek_Pobaruva        Numeric(18,4),
    Tek_Dev_Dolzi        Numeric(18,4),
    Tek_Dev_Pobaruva    Numeric(18,4)
    )
    SET @SSQLBaza1 = 'SELECT 1 as KojaBaza, A.Kto, V.ImeVal, Sum(A.Dolzi), Sum(A.Pobaruva), Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva)
        FROM AnFinDok A '
    IF @Dev = 'D'
        Set @SSQLBaza1 = @SSQLBaza1 + ' INNER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQLBaza1 = @SSQLBaza1 + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    SET @SSQLBaza2 = 'SELECT 2 as KojaBaza, A.Kto, V.ImeVal, Sum(A.Dolzi), Sum(A.Pobaruva), Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva)
        FROM ' + @Baza2  + '..AnFinDok A '
    IF @Dev = 'D'
        Set @SSQLBaza2 = @SSQLBaza2 + ' INNER JOIN ' + @Baza2  + '..KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQLBaza2 = @SSQLBaza2 + ' LEFT OUTER JOIN ' + @Baza2  + '..KrsLista V ON A.KojaVal=V.SImeVal '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        SET @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' WHERE Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        Set @SSQL = @SSQL + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        Set @SSQL = @SSQL + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @KoiFri = 'P'
        Set @SSQL = @SSQL + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        Set @SSQL = @SSQL + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '
    If @Kto Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @KojaVal IS NOT NULL
        Set @SSQL = @SSQL + ' AND A.KojaVal =' + @KojaVal + ' '
    SET @SSQL2 = ' Group by A.Kto, V.ImeVal '
    INSERT INTO #PrometKto (KojaBaza, Kto_Anal, ImeVal, Preth_Dolzi, Preth_Pobaruva, Preth_Dev_Dolzi, Preth_Dev_Pobaruva)
    EXEC(@SSQLBaza1+@SSQL+@SSQL1+@SSQL2)
    INSERT INTO #PrometKto (KojaBaza, Kto_Anal, ImeVal, Preth_Dolzi, Preth_Pobaruva, Preth_Dev_Dolzi, Preth_Dev_Pobaruva)
    EXEC(@SSQLBaza2+@SSQL+@SSQL1+@SSQL2)
    SET @SSQL1 = ''
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL1 = @SSQL1 + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '
    INSERT INTO #PrometKto (KojaBaza, Kto_Anal, ImeVal, Tek_Dolzi, Tek_Pobaruva, Tek_Dev_Dolzi, Tek_Dev_Pobaruva)
    EXEC(@SSQLBaza1+@SSQL+@SSQL1+@SSQL2)
    INSERT INTO #PrometKto (KojaBaza, Kto_Anal, ImeVal, Tek_Dolzi, Tek_Pobaruva, Tek_Dev_Dolzi, Tek_Dev_Pobaruva)
    EXEC(@SSQLBaza2+@SSQL+@SSQL1+@SSQL2)
    SELECT KojaBaza, Kto_Anal, ImeVal, sum(Preth_Dolzi) Preth_Dolzi, sum(Preth_Pobaruva) Preth_Pobaruva,
    sum(Preth_Dev_Dolzi) Preth_Dev_Dolzi, sum(Preth_Dev_Pobaruva) Preth_Dev_Pobaruva,
    sum(Tek_Dolzi) Tek_Dolzi, sum(Tek_Pobaruva) Tek_Pobaruva,
    sum(Tek_Dev_Dolzi) Tek_Dev_Dolzi, sum(Tek_Dev_Pobaruva) Tek_Dev_Pobaruva
    FROM #PrometKto GROUP BY KojaBaza, Kto_Anal, ImeVal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komint_prometpokta_sodokoddokr]'))
drop procedure [dbo].[sp_komint_prometpokta_sodokoddokr]

Go

CREATE     PROCEDURE sp_Komint_PrometPoKta_SoDokOdDokr
    @Sifra_Za    Char(1),
    @Sifra_Kup     Char(6),
    @KoiFri     Char(1),
    @Datum_Nal_Od Smalldatetime,
    @Datum_Nal_Do Smalldatetime,
    @Datum_Dok_Od Smalldatetime,
    @Datum_Dok_Do Smalldatetime,
     @Datum_Dosp_Od Smalldatetime = Null,
    @Datum_Dosp_Do Smalldatetime = Null,
    @Kto        Char(6),
    @Sifra_OE    Smallint,
    @Koi_OE    Varchar(200),
    @Dev        char(1) = 'N',
    @KojaVal    char(3) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Nal    smallint = Null,
    @Sifra_Div    smallint = Null,
    @KoiPat    varchar(10) = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLFin varchar(4000)
    Declare @SSQLDokr varchar(4000)
    Declare @SSQLDat varchar(4000)
    Declare @SSQLUsl varchar(4000)
    Declare @SSQLDatNalFin varchar(4000)
    Declare @SSQLDatNalDokr varchar(4000)
    SET @SSQLDat=''
    SET @SSQLDatNalFin=''
    SET @SSQLDatNalDokr=''
    SET @SSQLUsl=''
    SET @SSQLFin=''
    SET @SSQLDokr=''

    CREATE TABLE #PrometKto
    (
    Kto_Anal        char(10),
    ImeVal            varchar(20),
    Preth_Dolzi        Numeric(18,4),
    Preth_Pobaruva        Numeric(18,4),
    Preth_Dev_Dolzi    Numeric(18,4),
    Preth_Dev_Pobaruva    Numeric(18,4),
    Tek_Dolzi        Numeric(18,4),
    Tek_Pobaruva        Numeric(18,4),
    Tek_Dev_Dolzi        Numeric(18,4),
    Tek_Dev_Pobaruva    Numeric(18,4)
    )

    SET @SSQLFin = 'SELECT A.Kto, V.ImeVal, Sum(A.Dolzi), Sum(A.Pobaruva), Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva)
            FROM AnFinDok A '
    IF @Dev = 'D'
        Set @SSQLFin = @SSQLFin + ' INNER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQLFin = @SSQLFin + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Set @SSQLFin = @SSQLFin + ' WHERE A.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @KoiFri = 'P'
        SET @SSQLFin = @SSQLFin + 'AND A.Dolzi=A.Plateno_Dolzi AND A.Pobaruva=A.Plateno_Pobar '
    Else If @KoiFri = 'N'
        SET @SSQLFin = @SSQLFin + 'AND (A.Dolzi<>A.Plateno_Dolzi OR A.Pobaruva<>A.Plateno_Pobar) '

    If @Datum_Nal_Do Is NOT Null
         SET @SSQLDatNalFin = @SSQLDatNalFin + 'AND A.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '

    If @Datum_Dok_Do Is NOT Null
         SET @SSQLDat = @SSQLDat + 'AND A.Datum_Dok<''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        SET @SSQLDat = @SSQLDat + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<''' + Cast(@Datum_Dosp_Do As varchar(35)) + ''' '

    If @Sifra_Za = '1' OR @Sifra_Za = '2'
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Za=' + @Sifra_Za + ' '
    Else If @Sifra_Za = '0'
        SET @SSQLUsl = @SSQLUsl + 'AND (A.Sifra_Za=1 OR A.Sifra_Za=2) '
    If @Kto Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    If @KoiPat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat=''' + @KoiPat + ''') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Sifra_Nal Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(6)) + ' '
    If @Sifra_Div Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Koi_OE Is Not Null
        SET @SSQLUsl = @SSQLUsl + 'And A.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @KojaVal IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' AND A.KojaVal =' + @KojaVal + ' '
    Set @SSQL = @SSQLFin + @SSQLDat + @SSQLDatNalFin + @SSQLUsl + ' Group by A.Kto, V.ImeVal '

    Set @SSQL = @SSQL + ' Union '

    SET @SSQLDokr = @SSQLDokr + ' SELECT A.Kto, V.ImeVal, Sum(A.Toc200), Sum(A.Toc200), Sum(A.Toc200), Sum(A.Toc200)
                   FROM Dokr A
                    LEFT OUTER Join Nalozi N On N.Sifra_Nal = A.Sifra_Nal And N.Broj_Nal=A.Broj_Nal '
    IF @Dev = 'D'
        Set @SSQLDokr = @SSQLDokr + ' INNER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Else
        Set @SSQLDokr = @SSQLDokr + ' LEFT OUTER JOIN KrsLista V ON A.KojaVal=V.SImeVal '
    Set @SSQLDokr = @SSQLDokr + ' WHERE A.Sifra_Kup=''' + @Sifra_Kup + '''
                       And A.Sifra_Dok in (83,84) '
    If @KoiFri = 'N'
        Set @SSQLDokr = @SSQLDokr + 'AND (A.Toc200<>A.Toc200) '  -- mora nessto da se stavi

    If @Datum_Nal_Do Is NOT Null
         SET @SSQLDatNalDokr = @SSQLDatNalDokr + 'AND N.Datum_Nal<''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '


    Set @SSQL = @SSQL + @SSQLDokr + @SSQLDat + @SSQLDatNalDokr + @SSQLUsl + ' Group by A.Kto, V.ImeVal '

    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Preth_Dolzi, Preth_Pobaruva, Preth_Dev_Dolzi, Preth_Dev_Pobaruva)
    EXEC(@SSQL)

    SET @SSQLDat = ''
    SET @SSQLDatNalFin = ''
    SET @SSQLDatNalDokr = ''

    If @Datum_Dok_Od Is NOT Null
        SET @SSQLDat = @SSQLDat + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQLDat = @SSQLDat + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is Not Null
        SET @SSQLDat = @SSQLDat + 'And DateAdd(Day, A.Rok, A.Datum_Dok)>=''' + Cast(@Datum_Dosp_Od As Varchar(25)) + ''' '
    If @Datum_Dosp_Do Is Not Null
        SET @SSQLDat = @SSQLDat + 'And DateAdd(Day, A.Rok, A.Datum_Dok)<=''' + Cast(@Datum_Dosp_Do As varchar(25)) + ''' '

    If @Datum_Nal_Od Is NOT Null
        SET @SSQLDatNalFin = @SSQLDatNalFin + 'AND A.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLDatNalFin = @SSQLDatNalFin + 'AND A.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '

    If @Datum_Nal_Od Is NOT Null
        SET @SSQLDatNalDokr = @SSQLDatNalDokr + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQLDatNalDokr = @SSQLDatNalDokr + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '


    Set @SSQL = @SSQLFin + @SSQLDat + @SSQLDatNalFin + @SSQLUsl + ' Group by A.Kto, V.ImeVal  Union ' +  @SSQLDokr + @SSQLDat + @SSQLDatNalDokr + @SSQLUsl + ' Group by A.Kto, V.ImeVal  '

    INSERT INTO #PrometKto (Kto_Anal, ImeVal, Tek_Dolzi, Tek_Pobaruva, Tek_Dev_Dolzi, Tek_Dev_Pobaruva)
    EXEC(@SSQL)

    SELECT 0 as KojaBaza, Kto_Anal, ImeVal, Null as Sifra_Div, sum(Preth_Dolzi) Preth_Dolzi, sum(Preth_Pobaruva) Preth_Pobaruva,
        sum(Preth_Dev_Dolzi) Preth_Dev_Dolzi, sum(Preth_Dev_Pobaruva) Preth_Dev_Pobaruva,
        sum(Tek_Dolzi) Tek_Dolzi, sum(Tek_Pobaruva) Tek_Pobaruva,
        sum(Tek_Dev_Dolzi) Tek_Dev_Dolzi, sum(Tek_Dev_Pobaruva) Tek_Dev_Pobaruva
    FROM #PrometKto GROUP BY Kto_Anal, ImeVal


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komintbezkomintpat]'))
drop procedure [dbo].[sp_komintbezkomintpat]

Go

CREATE   PROCEDURE sp_KomintBezKomintPat
    @Sifra_Kup_Od   char(6)=null,
        @Sifra_Kup_Do   char(6)=null
AS
    Declare @SSQL VARCHAR(4000)
        create Table #Komint
    (
        Sifra_Kup    char(6),
        ImeKup            varchar(40),
                Sifra_Obj    smallint,
                ImeObj            varchar(40),
        KupImaPat       char(1)
    )
    Set @SSQL = 'Insert Into #Komint
    Select K.Sifra_Kup, K.ImeKup, O.Sifra_Obj, O.ImeObj, Null
    From Komint K
        inner join KObjekti O on O.Sifra_Kup=K.Sifra_Kup where 1=1'
        If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Kup>=''' + @Sifra_Kup_Od + ''' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Kup<=''' + @Sifra_Kup_Do + ''' '

exec(@ssql)
print(@ssql)

    Update     #Komint Set KupImaPat = 'D'
    From KomintPat KP
    Where (KP.Sifra_Kup=#Komint.Sifra_Kup And KP.Sifra_Obj=#Komint.Sifra_Obj) or (KP.Sifra_Kup=#Komint.Sifra_Kup And KP.Sifra_Obj is null)

        Select * From #Komint where KupimaPat is null Order By Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komintentibezprodazba]'))
drop procedure [dbo].[sp_komintentibezprodazba]

Go



CREATE            PROCEDURE sp_KomintentiBezProdazba
    @Sifra_OE Smallint = Null,
    @Sifra_Pat Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @APod1 Smallint = Null,
    @APod2 Smallint = Null,
    @APod3 Smallint = Null,
    @APod4 Smallint = Null,
    @APod5 Smallint = Null,
    @KPod1 Smallint = Null,
    @KPod2 Smallint = Null,
    @KPod3 Smallint = Null,
    @KPod4 Smallint = Null,
    @KPod5 Smallint = Null,
    @Koi_Regioni varchar(200) = Null,
    @Koi_Gradovi varchar(200) = Null,
    @Aktiven Char(1) = 'D',
    @GrKup as varchar(500)= null,
    @GrArt as varchar(500)= null,
    @PatOdKomintPat    char(1) = 'N'
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Set @SSQLUsl = ' '

------------------------------------------------------------------
    If @GrKup Is Not Null
    Begin
    Create    Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End
    If @GrArt Is Not Null
    Begin
        Create Table #GrArt
        (
            Sifra_Art    varchar(20)
        )
        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)
        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
        Exec(@SSQL)
    End
-------------------------------------------------------------------------
    Create Table #Komint
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
    Create Table #KomintDokr
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint
    )
-- Prvo: Tabelata #Komint da ja napolnime so site komintenti koi sto gi zadovoluvaat vnesenite filtri po komintenti
    Set @SSQL = ' Select Kup.Sifra_Kup, KO.Sifra_Obj
            From Komint Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=Kup.Sifra_Kup And KO.Sifra_Obj <> 0
            Where 1=1 '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And Kup.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Aktiven = 'N'
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Aktiven Is Not Null And KO.Aktiven = ''N'')
                      Or (KO.Aktiven Is Null And Kup.Aktiven = ''N'')) '
           End
    Else If @Aktiven = 'D'
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Aktiven Is Not Null And KO.Aktiven = ''D'')
                      Or (KO.Aktiven Is Null And Kup.Aktiven = ''D'' Or Kup.Aktiven Is Null Or Kup.Aktiven = '' '')) '
           End
    If @Sifra_Pat IS NOT NULL
        If @PatOdKomintPat = 'D' -----------------------------dod 05.04.2011
            SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Kup In (Select Sifra_Kup From KomintPat Where Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ') '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat = ' + Cast(@Sifra_Pat As Varchar(6)) + ')
                            Or (KO.Sifra_Pat Is Null And Kup.Sifra_Pat = ' + Cast(@Sifra_Pat As Varchar(6)) + ')) '
    If @KPod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')) '
           End
    If @KPod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')) '
           End
    If @KPod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')) '
           End
    If @KPod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')) '
           End
    If @KPod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')) '
           End
    If @Koi_Regioni Is Not NULL
          Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
                    OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
          End
    If @Koi_Gradovi Is Not NULL
          Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                    OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
          End
    Insert Into #Komint Exec(@SSQL+@SSQLUsl)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Vtoro: Tabelata #KomintDokr da ja napolnime so site komintenti koi sto se javuvaat vo Dokr, a gi zadovoluvaat vnesenite filtri
    Set @SSQL = ' Select Distinct D.Sifra_Kup, D.Sifra_Obj
            From Dokr D
            Inner Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj '
    If @Sifra_Art_Od Is Not Null Or @Sifra_Art_Do Is Not Null Or @Sifra_Gr Is Not Null Or @Sifra_Podg Is Not Null Or @Sifra_Brand Is Not Null Or @Sifra_ZBrand Is Not Null
       Or @APod1 Is Not Null Or @APod2 Is Not Null Or @APod3 Is Not Null Or @APod4 Is Not Null Or @APod5 Is Not Null
     begin
        Set @SSQL = @SSQL + ' Inner Join Stavr S On S.DokrID=D.DokrID
                    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
        If @GrArt Is Not Null
             Set @SSQL = @SSQL + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
    end
-------------------------------------
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
--------------------------------------
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za=1 '
    -- go dopolnuvame uslovot so ostanatite filtri
    If @Sifra_OE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @APod1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Drugo1=' + Cast(@APod1 as varchar(6)) + ' '
    If @APod2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Drugo2=' + Cast(@APod2 as varchar(6)) + ' '
    If @APod3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Drugo3=' + Cast(@APod3 as varchar(6)) + ' '
    If @APod4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Drugo4=' + Cast(@APod4 as varchar(6)) + ' '
    If @APod5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Drugo5=' + Cast(@APod5 as varchar(6)) + ' '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    Insert Into #KomintDokr Exec(@SSQL+@SSQLUsl)
    -- Da gi prikazeme rezultatite
    Select K.Sifra_Kup, Kup.ImeKup, K.Sifra_Obj, Null As Ime_Obj, Kup.Sifra_Grad as Sifra_Grad_Kup, G.ImeGrad as ImeGrad_Kup, Null as Sifra_Grad_Obj, Null as ImeGrad_Obj,
        Kup.Kdrugo1, K1.Ime_1K, Kup.Kdrugo2, K2.Ime_2K, Kup.Kdrugo3, K3.Ime_3K, Kup.Kdrugo4, K4.Ime_4K, Kup.Kdrugo5, K5.Ime_5K, KUP.Adresa as AdresaKup, Null as AdresaObj
    From #Komint K
    Inner Join Komint Kup On Kup.Sifra_Kup=K.Sifra_Kup
    Left Outer Join Grad G On G.Sifra_Grad = Kup.Sifra_Grad
    Left Outer Join KDrugo1 K1 On K1.Sifra_1K=Kup.KDrugo1
    Left Outer Join KDrugo2 K2 On K2.Sifra_2K=Kup.KDrugo2
    Left Outer Join KDrugo3 K3 On K3.Sifra_3K=Kup.KDrugo3
    Left Outer Join KDrugo4 K4 On K4.Sifra_4K=Kup.KDrugo4
    Left Outer Join KDrugo5 K5 On K5.Sifra_5K=Kup.KDrugo5
    Where K.Sifra_Obj Is Null
    And K.Sifra_Kup Not In (Select Distinct Sifra_Kup From #KomintDokr Where Sifra_Obj Is Null)
    Union
    Select K.Sifra_Kup, Kup.ImeKup, K.Sifra_Obj, KO.ImeObj, Kup.Sifra_Grad as Sifra_Grad_Kup, GG.ImeGrad as ImeGrag_Kup, KO.Sifra_Grad as Sifra_Grad_Obj, G.ImeGrad as ImeGrad_Obj,
        KO.Kdrugo1, K1.Ime_1K, KO.Kdrugo2, K2.Ime_2K, KO.Kdrugo3, K3.Ime_3K, KO.Kdrugo4, K4.Ime_4K, KO.Kdrugo5, K5.Ime_5K, KUP.Adresa as AdresaKup, KO.Adresa as AdresaObj
    From #Komint K
    Inner Join Komint Kup On Kup.Sifra_Kup=K.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=K.Sifra_Kup And KO.Sifra_Obj=K.Sifra_Obj
    Left Outer Join Grad G On G.Sifra_Grad = KO.Sifra_Grad
    Left Outer Join Grad GG On GG.Sifra_Grad = Kup.Sifra_Grad
    Left Outer Join KDrugo1 K1 On K1.Sifra_1K=KO.KDrugo1
    Left Outer Join KDrugo2 K2 On K2.Sifra_2K=KO.KDrugo2
    Left Outer Join KDrugo3 K3 On K3.Sifra_3K=KO.KDrugo3
    Left Outer Join KDrugo4 K4 On K4.Sifra_4K=KO.KDrugo4
    Left Outer Join KDrugo5 K5 On K5.Sifra_5K=KO.KDrugo5
    Where K.Sifra_Obj Is Not Null
    And K.Sifra_Kup+'&&&'+Cast(K.Sifra_Obj as varchar(6)) Not In (Select Distinct Sifra_Kup+'&&&'+cast(Sifra_Obj as varchar(6)) From #KomintDokr Where Sifra_Obj Is Not Null)
    Order By K.Sifra_Kup, K.Sifra_Obj
--select * from #komint order by sifra_kup
--select * from #komintdokr order by sifra_kup






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komintodnepratenidok]'))
drop procedure [dbo].[sp_komintodnepratenidok]

Go

CREATE       PROCEDURE sp_KomintOdNePrateniDok
    @Sifra_OE    smallint,
    @Datum    smalldatetime
 AS
    Declare @SSQL Varchar(2000)
    CREATE TABLE #SiteKom
    (    Sifra_kup  varchar(10)
    )
    INSERT INTO #SiteKom
    SELECT DISTINCT Sifra_Kup
    FROM Dokr
    WHERE (Sifra_OE = @Sifra_OE OR Sifra_Prim = @Sifra_OE) AND
    (ImaDodatna IS NULL OR ImaDodatna <> 'P') AND
    (Prenesen IS NULL OR Prenesen <> 'D')
    INSERT INTO #SiteKom
    SELECT DISTINCT K.Kto Sifra_Kup  FROM Stavr S
    Inner Join Dokr D On S.DokrID=D.DokrID
    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art
    Where (D.Prenesen IS NULL OR D.Prenesen <> 'D')
        And (D.Sifra_OE = 1 OR D.Sifra_Prim = 1) AND
        (D.ImaDodatna IS NULL OR D.ImaDodatna <> 'P')
    INSERT INTO #SiteKom
    SELECT DISTINCT Kto Sifra_Kup
    FROM KatArt
    Where DodadenNa >= @Datum  or IzmenetNa >= @Datum
    Select Distinct Sifra_Kup From #SiteKom




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_komintsokolrab]'))
drop procedure [dbo].[sp_komintsokolrab]

Go


CREATE    PROCEDURE sp_KomintSoKolRab
    @Sifra_Kup char(6)=null
AS
        Declare @SSQL Varchar(2000)
    SET @SSQL='SELECT Sifra_Kup, ImeKup, Uces_Kol  FROM Komint K
               WHERE Uces_Kol is not null and Uces_Kol<>0'
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Kup=''' + @Sifra_Kup +''' '
        EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konfig]'))
drop procedure [dbo].[sp_konfig]

Go


CREATE         PROCEDURE sp_Konfig
    @Pole        varchar(30),
    @DataType    varchar(20) = Null,
    @Golemina    varchar(10) = Null,
    @VrednostNum    decimal(18,6) = Null,
    @Vrednost    varchar(300),
    @Akcija    char(1)
 AS
    Declare @SSQL as Varchar(2000)
    Declare @Tabela as varchar(20)
    Declare @TabID int
    Set @Tabela = 'KONFIG'
    Create Table #Tab
    (
    ImeKolona    Varchar(128),
    Tip        Varchar(128)
    )
    Create Table #Tab1
    (
    ImeKolona    Varchar(128),
    Tip        Varchar(128),
    Vrednost    Varchar(128)
    )
    Set @TabID = (Select ID From SysObjects Where Name = @Tabela)
    Insert Into #Tab (ImeKolona, Tip)
    Select SC.Name, ST.Name
    From SysColumns SC
    Inner Join SysTypes ST On ST.XType =SC.XType
    Where SC.ID=@TabID and SC.Name=@Pole
    Declare Crs Cursor For Select ImeKolona, Tip From #Tab
    Open Crs
    Declare @ImeKolona as varchar(128)
    Declare @Tip as varchar(128)
    Fetch Next From Crs Into @ImeKolona, @Tip
    While @@Fetch_Status = 0
        Begin
        Set @SSQL = ' Select  Top 1 ''' + @ImeKolona + ''', ''' + @Tip + ''', ' + @ImeKolona + ' From ' + @Tabela + ' '
        Insert Into #Tab1 Exec(@SSQL)
        Fetch Next From Crs Into @ImeKolona, @Tip
    End --While
    Close Crs
    Deallocate Crs
--------- Ako ne postoi go vmetnvame poleto vo konfig
    If Not Exists (Select ImeKolona, Tip, Vrednost From #Tab1)
        If @Akcija = 'D'
        Begin
            Set @SSQL = ' Alter Table Konfig Add ' + @Pole + ' ' + @DataType + ' '
            If @Golemina Is Not Null
                Set @SSQL = @SSQL + '(' + @Golemina + ') '
            Set @SSQL = @SSQL + 'Null '
            Print @SSQL
            Exec(@SSQL)
        End
--------- Ja menuvame vrdnosta na poleto so zadadenata
    If @Akcija = 'D'
    Begin
        Set @SSQL = ' '
        If @Vrednost Is Not Null
            If IsNumeric(@Vrednost) = 1
                Set @SSQL =  ' Update Konfig Set ' + @Pole + ' = ''' + @Vrednost + ''' '
            Else
                Set @SSQL =  ' Update Konfig Set ' + @Pole + ' = ' + @Vrednost + ' '
        If @VrednostNum Is Not Null
            Set @SSQL =  ' Update Konfig Set ' + @Pole + ' = ' + Cast(@VrednostNum as varchar(20))
        Print @SSQL
        Exec(@SSQL)
        Print ' GOTOVO '
    End
    Else
        Print ' Nema sto da pravam '





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konfigmesecgodina]'))
drop procedure [dbo].[sp_konfigmesecgodina]

Go

create  PROCEDURE sp_KonfigMesecGodina

    @Mesec    smallint,
    @Godina    smallint
AS
    Update Konfig
    Set Mesec=@Mesec, Godina=@Godina



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konfigpole]'))
drop procedure [dbo].[sp_konfigpole]

Go
CREATE PROCEDURE sp_KonfigPole
    @Pole        varchar(50) = Null,
    @Vred        varchar(50) = Null OUTPUT
AS
    Declare @SSQL as Varchar(1000)
    Declare @Tabela as varchar(20)
    Declare @TabID int
    Set @Tabela = 'KONFIG'
    Set @TabID = (Select ID From SysObjects Where Name = @Tabela)
    If Exists (Select SC.Name From SysColumns SC Where SC.ID=@TabID and SC.Name=@Pole)
    Begin
        Create Table #Tab
        (
         Vred    varchar(50)
        )
        If @Pole Is Not Null And @Pole <> ''
        Begin
            Set @SSQL = ' Select ' + @Pole + ' From Konfig '
            Insert Into #Tab Exec (@SSQL)
            Select @Vred = Vred From #Tab
        End
        If @Vred Is Null
            Set @Vred=''
    End
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konfirmacijasaldo]'))
drop procedure [dbo].[sp_konfirmacijasaldo]

Go

CREATE PROCEDURE [dbo].[sp_KonfirmacijaSaldo]

    @Kto_Anal    varchar(200)=null,        -- Stringot da se pusta so apostrofi na sekoe konto '1200', '2200'
    @Sifra_Kup_Od    varchar(6)=null,
    @Sifra_Kup_Do    varchar(6)=null,
    @Datum_Do    smalldatetime,
    @Sifra_Za    smallint=null
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select A.Kto, A.Sifra_Kup, Kup.ImeKup, A.Sifra_Za, Sum(A.Dolzi-A.Pobaruva) Saldo,
                              Kup.Adresa, Kup.SMesto, Kup.Posta, KT.ImeAnal, Kup.Telefon, ''' + cast(@Datum_Do as varchar(30)) + ''' Datum_Do
            From AnFinDok A
            Inner Join Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
            Inner Join Anal KT On KT.Kto_Anal = A.Kto
            Where A.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Za Is Not Null
        SET @SSQL = @SSQL + 'And A.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(1))+ ''' '
    if @Kto_Anal is not null
        SET @SSQL = @SSQL + 'And A.Kto In (' + @Kto_Anal + ') '
    If @Sifra_Kup_Od Is Not Null
        SET @SSQL = @SSQL + 'And A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is Not Null
        SET @SSQL = @SSQL + 'And A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
        SET @SSQL = @SSQL + ' Group By A.Kto, A.Sifra_Kup, Kup.ImeKup, A.Sifra_Za, Kup.Adresa, Kup.SMesto, Kup.Posta, KT.ImeAnal, Kup.Telefon
                              Having Sum(A.Dolzi-A.Pobaruva)<>0
                              Order by A.Sifra_Kup, A.Sifra_Za'
    Print(@SSQL)
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konflokprn_zacustompaper]'))
drop procedure [dbo].[sp_konflokprn_zacustompaper]

Go

create  PROCEDURE sp_KonfLokPrn_ZaCustomPaper
    @Sifra_Oe    smallint = null,
    @Sifra_Dok    smallint = null,
        @ImePC          varchar(30)=null
AS
    Select * From KonfLokPrn
    Where Sifra_oe=@Sifra_Oe And Sifra_dok=@Sifra_dok and Lokacija=@ImePC




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konsignacija_izlez]'))
drop procedure [dbo].[sp_konsignacija_izlez]

Go
CREATE  PROCEDURE sp_Konsignacija_Izlez
    @Koi_OE    varchar(200) = NULL,
    @Dat_Od_Izlez    SmallDateTime = NULL,
    @Dat_Do_Izlez    SmallDateTime = NULL,
    @Koi_TipDok    varchar(200) = NULL,
    @Broj_KonsOd    int = NULL,
    @Broj_KonsDo    int = NULL,
    @Sifra_Art_Od    varchar(20) = NULL,
    @Sifra_Art_Do    varchar(20) = NULL,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto        Char(6) = Null,
    @Sifra_Gr    varChar(6) = Null,
    @Sifra_Podg    Char(6) = Null,
    @Lokacija    Varchar(15) = Null,
    @Sifra_Brand    Smallint = Null,
    @CarBroj    Char(10) = Null,
    @VoDenari    char(1) = 'N'  -- D/N
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' SELECT S.Sifra_Art, K.ImeArt, S.KontrSer, Sum(S.Kolic) Kolic, '
    If @VoDenari = 'D'
        Set @SSQL = @SSQL + ' (S.DevCena*D.Kurs) DevCena, Sum(S.Kolic*S.DevCena*D.Kurs) Vrednost '
    Else -- If @VoDenari <> 'D'
        Set @SSQL = @SSQL + ' S.DevCena, Sum(S.Kolic*S.DevCena) Vrednost '
    Set @SSQL = @SSQL + ' FROM DevKons D
                INNER JOIN DevStavKons S On S.DevKonsID=D.DevKonsID
                INNER JOIN Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.VlIzl=''I'' '
    IF @Koi_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (' + @Koi_OE + ') '
    IF @Koi_TipDok    IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Dok IN (' + @Koi_TipDok + ') '
    IF @Dat_Od_Izlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Datum_Mag >=''' + Cast(@Dat_Od_Izlez as varchar(30)) + ''' '
    IF @Dat_Do_Izlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Datum_Mag <=''' + Cast(@Dat_Do_Izlez as varchar(30)) + ''' '
    IF @Broj_KonsOd IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Broj_Kons >=''' + Cast(@Broj_KonsOd as varchar(10)) + ''' '
    IF @Broj_KonsDo IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Broj_Kons <=''' + Cast(@Broj_KonsDo as varchar(10)) + ''' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    IF @Sifra_Kup_Od Is Not Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup >=''' + @Sifra_Kup_Do + ''' '
    IF @Sifra_Kup_Do Is Not Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup <=''' + @Sifra_Kup_Do + ''' '
    IF @Kto IS NOT Null
        SET @SSQL = @SSQL + ' AND K.Kto  =''' + @Kto + ''' '
    IF @CarBroj IS NOT Null
        SET @SSQL = @SSQL + ' AND K.CarBroj  =''' + @CarBroj + ''' '
    IF @Sifra_Gr IS NOT Null
        SET @SSQL = @SSQL + ' AND P.Sifra_Gr  =''' + @Sifra_Gr + ''' '
    IF @Sifra_Podg IS NOT Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Podg  =''' + @Sifra_Podg + ''' '
    IF @Lokacija IS NOT Null
        SET @SSQL = @SSQL + ' AND K.Alt_Sifra  =''' + @Lokacija + ''' '
    IF @Sifra_Brand    IS NOT Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Drg  =' + Cast(@Sifra_Brand as varchar(7)) + ' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art, K.ImeArt, S.KontrSer, S.DevCena '
    If @VoDenari = 'D'
        Set @SSQL = @SSQL + ', D.Kurs '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_konsignacijakontrolenpregled]'))
drop procedure [dbo].[sp_konsignacijakontrolenpregled]

Go
CREATE    PROCEDURE sp_KonsignacijaKontrolenPregled
    @Sifra_Kup    Char(6) = Null,
    @Sifra_Obj    smallint = Null,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @SoDanok    char(1) = 'D',
    @DatumCena    smalldatetime = Null,
    @Org_EdCeni    smallint = Null
--    @CenaNaDat    char(1) = 'N',
--    @Sifra_Art    varchar(20) = Null
AS
    Declare @SSQL Varchar    (8000)
    Create Table #Ceni
    (
     Sifra_Art    varchar(20),
     CenaDat    decimal(18,6)
    )
    Insert Into #Ceni
    Select Sifra_Art, dbo.fn_CenaDatum(@Org_EdCeni, Sifra_Art, @DatumCena, @SoDanok)
    From Katart
    Create Table #Tab
    (
     Sifra_Oe        smallint,
     Sifra_Dok        smallint,
     Broj_Dok        int,
     Datum_Dok        smalldatetime,
     VrDokVlez        decimal(18,6),
     VrDokCenaDatVlez    decimal(18,6),
     VrDokIzl        decimal(18,6),
     VrDokCenaDatIzl    decimal(18,6)
    )
/*    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok,
                Sum((Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then
                        (Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then (S.Kolic*dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + '''))
                        Else (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) End)
                Else 0 End)) VrDokVlez,
                Sum((Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then
                        (Case When (K.SodrziEd<>0 And S.Sifra_Dok In (15,16,85,86)) Then (S.Kolic*K.SodrziEd*C.CenaDat)
                        Else (S.Kolic * C.CenaDat) End)
                Else 0 End)) VrDokCenaDatVlez,
                Sum((Case When S.Sifra_Dok In (185, 186) Then (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End)) VrDokIzl,
                Sum((Case When S.Sifra_Dok In (185, 186) Then (S.Kolic * C.CenaDat) Else 0 End)) VrDokCenaDatIzl
                From Stavr S
                Inner Join Dokr D On D.DokrID = S.DokrID
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Left Outer Join #Ceni C On C.Sifra_Art = S.Sifra_Art
                Where S.Sifra_Dok in (85,86,15,16,990,185,186) '
*/
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok,
                Sum((Case When (S.Sifra_Dok In (15,16,85,86) Or (S.Sifra_Dok=990 And D.VlIzl=''V'')) Then (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End)) VrDokVlez, '
    If @Org_EdCeni = 3
        Set @SSQL = @SSQL + ' Sum((Case When (S.Sifra_Dok In (15,16,85,86)) Then (S.Kolic*K.SodrziEd*C.CenaDat) When (S.Sifra_Dok=990 And D.VlIzl=''V'') Then (S.Kolic*C.CenaDat) Else 0 End)) VrDokCenaDatVlez, '
    Else
        Set @SSQL = @SSQL + ' Sum((Case When (S.Sifra_Dok In (15,16,85,86)) Then (S.Kolic*C.CenaDat) When (S.Sifra_Dok=990 And D.VlIzl=''V'') Then (S.Kolic/K.SodrziEd*C.CenaDat) Else 0 End)) VrDokCenaDatVlez, '
    Set @SSQL = @SSQL + ' Sum((Case When S.Sifra_Dok In (185, 186) Then (S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @SoDanok + ''')) Else 0 End)) VrDokIzl, '
    If @Org_EdCeni = 3
        Set @SSQL = @SSQL + ' Sum((Case When S.Sifra_Dok In (185, 186) Then (S.Kolic*C.CenaDat) Else 0 End)) VrDokCenaDatIzl '
    Else
        Set @SSQL = @SSQL + ' Sum((Case When S.Sifra_Dok In (185, 186) Then (S.Kolic/K.SodrziEd*C.CenaDat) Else 0 End)) VrDokCenaDatIzl '
    Set @SSQL = @SSQL + ' From Stavr S
                Inner Join Dokr D On D.DokrID = S.DokrID
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Left Outer Join #Ceni C On C.Sifra_Art = S.Sifra_Art
                Where S.Sifra_Dok in (85,86,15,16,990,185,186) '
--    If @Sifra_Art Is Not Null
--        Set @SSQL = @SSQL + ' And S.Sifra_Art = ' + @Sifra_Art + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ' + @Sifra_kup + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Obj = ' + Cast(@Sifra_Obj as Varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Datum_Dok '
    Insert Into #Tab Exec(@SSQL)
    Select T.Sifra_Oe, T.Sifra_Dok, T.Broj_Dok, T.Datum_Dok, T.VrDokVlez, T.VrDokCenaDatVlez, T.VrDokIzl, T.VrDokCenaDatIzl
    From #Tab T
    Where Abs(T.VrDokVlez-T.VrDokCenaDatVlez) >= 0.5 Or Abs(T.VrDokIzl-T.VrDokCenaDatIzl) >= 0.5



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontenplan]'))
drop procedure [dbo].[sp_kontenplan]

Go


CREATE  PROCEDURE sp_KontenPlan
    @Kto_Klas_Od Char(1) = Null,
    @Kto_Klas_Do Char(1) = Null,
    @Kto_Sint_Od Char(3) = Null,
    @Kto_Sint_Do Char(3) = Null,
    @Kto_GrAn Char(2) = Null,
    @Kto_Anal_Od Char(10) = Null,
    @Kto_Anal_Do Char(10) = Null
AS
    Declare @SSQL Varchar(2000)
    Set @SSQL = 'Select K.Kto_Klas, K.ImeKlasa,
          S.Kto_Sint Sint_GrAn, S.ImeSint Ime_Sint_GrAn,
          A.Kto_Anal, A.ImeAnal
        From Klas K
        Left Outer Join Sint S On K.Kto_Klas=S.Kto_Klas
        Left Outer Join Anal A On S.Kto_Sint=A.Kto_Sint
        Where 1=1 '
    If @Kto_Klas_Od Is Not Null
        Set @SSQL = @SSQL + 'And K.Kto_Klas>=''' + @Kto_Klas_Od + ''' '
    If @Kto_Klas_Do Is Not Null
        Set @SSQL = @SSQL + 'And K.Kto_Klas<=''' + @Kto_Klas_Do + ''' '
    If @Kto_Sint_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Kto_Sint>=''' + @Kto_Sint_Od + ''' '
    If @Kto_Sint_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Kto_Sint<=''' + @Kto_Sint_Do + ''' '
    If @Kto_Anal_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.Kto_Anal>=''' + @Kto_Anal_Od + ''' '
    If @Kto_Anal_Do Is Not Null
        Set @SSQL = @SSQL + 'And A.Kto_Anal<=''' + @Kto_Anal_Do + ''' '
    Set @SSQL = @SSQL + 'Union Select K.Kto_Klas, K.ImeKlasa,
         G.Kto_GrAn Sint_GrAn, G.ImeGrAn Ime_Sint_GrAn,
         Null, Null
        From Klas K
        Inner Join GrAnal G On K.Kto_Klas=G.Kto_Klas '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontrolen_izv_zbfakt]'))
drop procedure [dbo].[sp_kontrolen_izv_zbfakt]

Go




CREATE PROCEDURE sp_Kontrolen_Izv_ZbFakt
    @Sifra_GrOrg     char (6),
    @Sifra_Dok      smallint,
    @Sifra_Dok2     smallint = Null,
    @Sifra_Dok3     smallint = Null,
    @Datum_Od     Smalldatetime = Null,
    @Datum_Do     Smalldatetime = Null,
    @Sifra_Prev     char (6) = Null,
    @PoIsprat    decimal(18,6) = Null Output,
    @Danok_Isprat    decimal(18,6) = Null Output,
    @Br_Isprat    decimal(18,6) = Null Output,
    @PoDok    decimal(18,6) = Null Output,
    @Danok_Dok    decimal(18,6) = Null Output,
    @Br_Isprat_Dok    decimal(18,6) = Null Output,
    @Br_Dok    decimal(18,6) = Null Output,
--    @PoZbFakt    decimal(18,6) = Null Output,
--    @Danok_ZbFakt decimal(18,6) = Null Output,
    @PoIspZbFakt    decimal(18,6) = Null Output,
    @Danok_IspZbFakt decimal(18,6) = Null Output
AS
    Set Nocount On
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Declare @SSQLPom as varchar(8000)
    Set @SSQLUsl =  ' '
    Set @SSQLPom =  ' '
------------------------------------------------------ Da gi najdeme site dokumenti za koi nema napraveno zbirni fakturi --------------------------------------------------------------
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Toc200, D.Sifra_kup, Kup.ImeKup, Kup.Sifra_Grad, G.ImeGrad, P.ImePrev
            From Dokr D
            Left Outer Join DokrZbSta DzbS On DzbS.DokrID=D.DokrID
            Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
            Left Outer Join Grad G On G.Sifra_Grad=Kup.Sifra_Grad
            Left Outer Join Prevoznik P On P.SIfra_Prev=D.Sifra_Prev
        Where D.DokrId Not In (Select DokrId From DokrZbSta)
        And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg= ''' + @Sifra_GrOrg + ''') '
    If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok3 as varchar(6)) + ') '
    else if @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ') '
    else If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Exec(@SSQL+@SSQLUsl+' Order By Kup.Sifra_Grad, Kup.ImeKup, D.Broj_Dok')
print @SSQL+@SSQLUsl+' Order By Kup.Sifra_Grad, Kup.ImeKup, D.Broj_Dok'
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------- Kontrola na fakturiranjeto (dali iznosite na zbirnite dok. se ednakvi na zbirovite na ispratnicite koi vleguvaat vo zbirnite f-ri) ------------------------------
    create   Table #Dok
    (
     PoIsprat    decimal(18,6),
     Danok_Isprat    decimal(18,6),
     Br_Isprat    decimal(18,6)
    )
    Set @SSQL = 'Select Sum(D.Toc200), Sum(D.Danok1+D.Danok2), Count(D.DokrId)
            From Dokr D
            Where D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg= ''' + @Sifra_GrOrg + ''') '
    If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok3 as varchar(6)) + ') '
    else if @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ') '
    else If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    Insert Into #Dok(PoIsprat, Danok_Isprat, Br_Isprat) Exec(@SSQL+@SSQLUsl)
    Select @PoIsprat=PoIsprat, @Danok_Isprat=Danok_Isprat, @Br_Isprat=Br_Isprat From #Dok
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Gi barame kombinaciite na (sifra_oe i sifra_dok) od dokumentite i kombinaciite koi se javuvaat za soodvetni zbirni dokumenti (Sifra_Oe_Acc i Sifra_Oe_Dok)
    Create Table #AccOeDok
    (
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Sifra_Oe_Acc    smallint,
     Sifra_Dok_Acc    smallint
    )
    Set @SSQL = ' Select A.Sifra_Oe, A.Sifra_Dok, A.Sifra_Oe_Acc, A.Sifra_Dok_Acc
            From KonfAccr A
            Where Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg= ''' + @Sifra_GrOrg + ''') '
    If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null
        Set @SSQL = @SSQL + ' And (A.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or A.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or A.Sifra_Dok = ' + Cast(@Sifra_Dok3 as varchar(6)) + ') '
    else if @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null
        Set @SSQL = @SSQL + ' And (A.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or A.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ') '
    else If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    Insert Into #AccOeDok Exec(@SSQL)
    -- Da di najdam zbirnite dokumenti koi se napraveni od ispratnicite (zs ne mozam da napram sum ako imam join so stavkite)
    Create Table #KoiDok
    (
     DokrZbID    int,
     KolkuDok    smallint
    )
    Set @SSQL = 'Select Dzb.DokrZbID, Count(Distinct D.DokrID)
            From DokrZb Dzb
            Inner Join DokrZbSta DzbS On DzbS.DokrZbID=Dzb.DokrZbID
            Inner Join Dokr D On D.DokrID=DzbS.DokrID
            Inner Join #AccOeDok AOD On AOD.Sifra_Oe=D.Sifra_Oe And AOD.Sifra_Dok=D.Sifra_Dok
            Inner Join #AccOeDok AOD1 On AOD1.Sifra_Oe_Acc=Dzb.Sifra_Oe And AOD1.Sifra_Dok_Acc=Dzb.Sifra_Dok '
    -- dali filtrive za datum i prevoznik da gi gledame od dokr ili od dokrzb
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Set @SSQL = @SSQL + ' Group By Dzb.DokrZbID '
    Insert Into #KoiDok(DokrZbID, KolkuDok) Exec(@SSQL)
    Create Table #ZbDok
    (
     PoDok        decimal(18,6),
     Danok_Dok    decimal(18,6),
     Br_Isprat_Dok    decimal(18,6),
     Br_Dok        decimal(18,6)
    )
    Set @SSQL = 'Select Sum(Dzb.Toc200), Sum(Dzb.Danok1+Dzb.Danok2), Sum(D.KolkuDok), Count(Dzb.DokrZbID)
            From DokrZb Dzb
            Inner Join #KoiDok D On D.DokrZbID=Dzb.DokrZbID
            Where 1=1 '
    Insert Into #ZbDok(PoDok, Danok_Dok, Br_Isprat_Dok, Br_Dok) Exec(@SSQL)
    Select @PoDok=PoDok, @Danok_Dok=Danok_Dok, @Br_Isprat_Dok=Br_Isprat_Dok, @Br_Dok=Br_Dok From #ZbDok
    --------------------------------- Kontrola na vrzuvanje na ispratnici (dali zbirot na ispratnicite e ednakov na  zbirot na zbirnite fakturi vo koi vleguvaat -----------------------
    Create Table #DokOdDokr
    (
     DokrID        int
    )
    Set @SSQL = 'Select Distinct DzbS.DokrID
            From DokrZb Dzb
            Inner Join DokrZbSta DzbS On DzbS.DokrZbID=Dzb.DokrZbID
            Inner Join Dokr D On D.DokrID=DzbS.DokrID
            Inner Join #AccOeDok AOD On AOD.Sifra_Oe=D.Sifra_Oe And AOD.Sifra_Dok=D.Sifra_Dok
            Inner Join #AccOeDok AOD1 On AOD1.Sifra_Oe_Acc=Dzb.Sifra_Oe And AOD1.Sifra_Dok_Acc=Dzb.Sifra_Dok '
    -- dali filtrive za datum i prevoznik da gi gledame od dokr ili od dokrzb
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And Dzb.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    Insert Into #DokOdDokr(DokrID) Exec(@SSQL)
    Create Table #PoIsprat
    (
     PoIspZbFakt        decimal(18,6),
     Danok_IspZbFakt     decimal(18,6)
    )
    Set @SSQL = 'Select Sum(D.Toc200), Sum(D.Danok1+D.Danok2)
            From Dokr D
            Where D.DokrID In (Select DokrID From #DokOdDokr) '
    Insert Into #PoIsprat(PoIspZbFakt, Danok_IspZbFakt) Exec(@SSQL)
    Select @PoIspZbFakt=PoIspZbFakt, @Danok_IspZbFakt=Danok_IspZbFakt From #PoIsprat
Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontrolen_kol]'))
drop procedure [dbo].[sp_kontrolen_kol]

Go


CREATE       PROCEDURE sp_kontrolen_kol
    @Sifra_OE        smallint = NULL,
    @KoiOE        Varchar(6) = NULL,
    @Sifra_Art_Od        varchar(20) = NULL,
    @Sifra_Art_Do        varchar(20) = NULL,
    @Datum_Nal_Od     Smalldatetime = NULL,
    @Datum_Nal_Do     Smalldatetime = NULL,
    @Datum_Dok_Od     Smalldatetime = NULL,
    @Datum_Dok_Do     Smalldatetime = NULL,
    @Sifra_Kup        varchar(8) = NULL,
    @Sifra_Gr        varchar(6) = NULL,
    @Sifra_Podg        char(6) = NULL,
    @Lokacija        varchar(10) = NULL,
    @SamoRazliki        char(1) = 'D',
    @Sifra_Drg        smallint = Null,
    @TipDok        varchar(300) = Null
AS
    Declare @SSQL  As Varchar(4000)
    CREATE TABLE #Promet
    ( Sifra_OE    Smallint,
      Sifra_Art    Varchar(20),
      TVlez        Numeric(18, 4),
      TIzlez        Numeric(18, 4),
      So_Vlez    Numeric(18, 4),
      So_Izlez    Numeric(18, 4)
    )
    SET @SSQL =    'SELECT S.Sifra_OE, S.Sifra_Art, sum(dbo.fn_KolicVlIzl(S.VlIzl, S.Kolic, ''V'')) as TVlez, sum(dbo.fn_KolicVlIzl(S.VlIzl, S.Kolic, ''I'')) as TIzlez
            FROM Stavr S
            INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art And K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @TipDok Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Dok In (' + @TipDok + ') '
        If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Sifra_Art'
    INSERT INTO #Promet (Sifra_OE, Sifra_Art, TVlez, TIzlez) EXEC(@SSQL)
    CREATE TABLE #Promet1
    ( Sifra_OE    Smallint,
      Sifra_Art    Varchar(20),
      So_Vlez    Numeric(18, 4),
      So_Izlez    Numeric(18, 4),
      ImaPromet    char(1)
    )
    SET @SSQL = 'SELECT S.Sifra_OE As Sifra_OE, S.Sifra_Art As Sifra_Art, S.Vlez As So_Vlez, S.Izlez As So_Izlez, ''N'' As ImaPromet
    FROM SoArt S
    INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art  And K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '

    If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    INSERT INTO #Promet1 EXEC(@SSQL)
    UPDATE #Promet1
    SET ImaPromet = 'D'
    FROM #Promet
    WHERE #Promet.Sifra_Art =  #Promet1.Sifra_Art AND #Promet.Sifra_OE =  #Promet1.Sifra_OE
    UPDATE #Promet
    SET So_Vlez = #Promet1.So_Vlez,  So_Izlez = #Promet1.So_Izlez
    FROM #Promet1
    WHERE #Promet.Sifra_Art =  #Promet1.Sifra_Art AND #Promet.Sifra_OE =  #Promet1.Sifra_OE
    INSERT INTO #Promet (Sifra_OE, Sifra_Art, So_Vlez, So_Izlez)
    SELECT Sifra_OE, Sifra_Art, So_Vlez, So_Izlez
    FROM #Promet1
    WHERE #Promet1.ImaPromet <> 'D'
If @SamoRazliki = 'D'
    SELECT P.Sifra_OE, P.Sifra_Art, K.ImeArt, K.EdMera, P.TVlez, P.TIzlez, P.So_Vlez, P.So_Izlez
    FROM #Promet P
    Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
    WHERE Abs((P.TVlez-P.TIzlez) - (P.So_Vlez-P.So_Izlez)) > 0.001
    Order By P.Sifra_Art, P.Sifra_OE
Else
    SELECT P.Sifra_OE, P.Sifra_Art, K.ImeArt, K.EdMera, P.TVlez, P.TIzlez, P.So_Vlez, P.So_Izlez
    FROM #Promet P
    Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
    Order By P.Sifra_Art, P.Sifra_OE





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontrolen_vr]'))
drop procedure [dbo].[sp_kontrolen_vr]

Go
CREATE     PROCEDURE sp_kontrolen_vr
    @Sifra_OE        smallint = NULL,
    @KoiOE        Varchar(6) = NULL,
    @Sifra_Art_Od        varchar(20) = NULL,
    @Sifra_Art_Do        varchar(20) = NULL,
    @Datum_Nal_Od     Smalldatetime = NULL,
    @Datum_Nal_Do     Smalldatetime = NULL,
    @Datum_Dok_Od     Smalldatetime = NULL,
    @Datum_Dok_Do     Smalldatetime = NULL,
    @SoDDV        char(1) = 'D',         -- D/N
    @Sifra_Kup        varchar(8) = NULL,
    @Sifra_Gr        varchar(6) = NULL,
    @Sifra_Podg        char(6) = NULL,
    @Lokacija        varchar(10) = NULL,
    @SamoRazliki        char(1) = 'D',
    @CenaOdSoart        char(1) = 'D',        -- 'D' - Ja zema Cena od Soart      'N' - cenata ja zema od stavr      S - Cena na datum
    @Sifra_Drg        smallint = Null,
    @TipDok        varchar(300) = Null
AS
    Declare @SSQL  As Varchar(4000)
    Declare @SSQL1 As varchar(500)
    CREATE TABLE #Promet_Artikli
    (
      Sifra_OE     Smallint,
      Sifra_Art     Varchar(20),
      VlIzl         Char(1),
      Kolic         Numeric(18, 4),
      MagCena     Numeric(18, 4),
      DanMagCena     Char(1),
      ProcOsn     Numeric(6, 2),
      DokCena     Numeric(18, 4),
      DanDokCena     Char(1),
      Uces         Numeric(18, 6),
      Kasa         Numeric (6, 2)
    )
    CREATE TABLE #Promet
    (
      Sifra_OE    Smallint,
      Sifra_Art    Varchar(20),
      TVlez        Numeric(18, 4),
      TIzlez        Numeric(18, 4),
      TVr_Vlez    Numeric(18, 4),
      TVr_Izlez    Numeric(18, 4),
      Vr_RazlC    Numeric(18,4)
    )
Set Nocount On
    ---------------------------------------
    -- Tekoven Promet
    ---------------------------------------
    SET @SSQL =    'SELECT S.Sifra_OE, S.Sifra_Art, S.VlIzl, S.Kolic, S.MagCena, S.DanMagCena, S.POsn, S.DokCena, S.DanDokCena, S.Uces, D.Kasa
            FROM Stavr S
            INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art
            INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @TipDok Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Dok In (' + @TipDok + ') '
    If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    INSERT #Promet_Artikli EXEC(@SSQL)
    DECLARE Stavki CURSOR FAST_FORWARD FOR SELECT * FROM #Promet_Artikli
    Declare @KojaOE Smallint
    Declare @Sifra_Art Varchar(20)
    Declare @VlIzl char(1)
    Declare @Kolic decimal(18,6)
    Declare @MagCena decimal(18,6)
    Declare @DanMagCena char(1)
    Declare @DokCena decimal(18,6)
    Declare @DanDokCena char(1)
    Declare @Uces decimal(18,6)
    Declare @Kasa decimal(6,2)
    Declare @POsn decimal(6,2)
    Declare @Vlez decimal(18,6)
    Declare @Izlez decimal(18,6)
    Declare @Vr_Vlez decimal(18,6)
    Declare @Vr_Izlez decimal(18,6)
    OPEN Stavki
    FETCH NEXT FROM Stavki INTO @KojaOE, @Sifra_Art, @VlIzl, @Kolic, @MagCena, @DanMagCena, @POsn, @DokCena, @DanDokCena, @Uces, @Kasa
    WHILE @@FETCH_STATUS = 0
    Begin
    set @Vlez=0
    set @Izlez=0
    set @Vr_Vlez=0
    set @Vr_Izlez=0
    If @VlIzl='V'
        Begin
        Set @Vlez=@Vlez+@Kolic
        If @SoDDV='N'
            Begin
--                 Print 'Bez DDV 1'
                        If @DanMagCena='D'
                Set @MagCena=@MagCena/(1+@POsn)
            End
        Else If @SoDDV='D'
            Begin
--              Print 'Bez DDV 2'
               If @DanMagCena='N'
                Set @MagCena=@MagCena*(1+@POsn/100)
            End
        Set @Vr_Vlez=@Vr_Vlez+@Kolic*@MagCena
        End
    Else If @VlIzl='I'
       Begin
        Set @Izlez=@Izlez+@Kolic
        If @SoDDV='N'
            Begin
--              Print 'Bez DDV 3'
               If @DanDokCena='D'
                Set @DokCena=@DokCena/(1+@POsn/100)
            End
        Else If @SoDDV='D'
            Begin
--              Print 'So DDV 4'
        If @DanDokCena='N'
                Set @DokCena=@DokCena*(1+@POsn/100)
            End
    Set @DokCena = @DokCena * (1- @Uces/100) * (1 - @Kasa/100)
    Set @Vr_Izlez=@Vr_Izlez+@Kolic*@DokCena
        End
        INSERT #Promet (Sifra_OE, Sifra_Art, TVlez, TIzlez, TVr_Vlez, TVr_Izlez, Vr_RazlC)
        VALUES (@KojaOE, @Sifra_Art, @Vlez, @Izlez, @Vr_Vlez, @Vr_Izlez, 0)
        FETCH NEXT FROM Stavki INTO @KojaOE, @Sifra_Art, @VlIzl, @Kolic, @MagCena, @DanMagCena, @POsn, @DokCena, @DanDokCena, @Uces, @Kasa
    End
    CLOSE Stavki
    DEALLOCATE Stavki
Set Nocount Off
    CREATE TABLE #Promet1
    ( Sifra_OE        Smallint,
      Sifra_Art        Varchar(20),
      Tek_Vlez        Numeric(18, 4),
      Tek_Izlez        Numeric(18, 4),
      Tek_Vr_Vlez        Numeric(18, 4),
      Tek_Vr_Izlez        Numeric(18, 4),
      Vr_RazlC        Numeric(18,4),
      Cena            Numeric(18,6)
    )
    -------------------
    -- Razliki vo ceni
    -------------------
    SET @SSQL = 'SELECT R.Sifra_OE, R.Sifra_Art,
    SUM((dbo.fn_VratiCena(R.KrCena,R.POsn,R.DanKrCena,'''+@SoDDV+''')-dbo.fn_VratiCena(R.PocCena,R.POsn,R.DanPocCena,'''+@SoDDV+'''))*R.Kolic) As Vr_RazlC
    FROM RazlCeni R
    INNER JOIN Katart K ON R.Sifra_Art = K.Sifra_Art  And K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
        Begin
            Set @SSQL=@SSQL+'INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
            Set @SSQL=@SSQL+'INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
        End
    SET @SSQL = @SSQL + 'WHERE 1=1 '
    If @Sifra_OE Is Not Null
        SET @SSQL = @SSQL + 'AND R.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And R.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @Sifra_Kup Is NOT NULL
        SET @SSQL = @SSQL + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND R.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND R.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND R.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND R.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija IS NOT NULL
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    Set @SSQL = @SSQL + ' GROUP BY R.Sifra_OE, R.Sifra_Art'
    INSERT #Promet (Sifra_OE, Sifra_Art, Vr_RazlC) EXEC(@SSQL)
    INSERT INTO #Promet1
    SELECT Sifra_OE, Sifra_Art,
    Sum(TVlez) As Tek_Vlez, Sum(TIzlez) As Tek_Izlez,
    Sum(TVr_Vlez) As Tek_Vr_Vlez, Sum(TVr_Izlez) As Tek_Vr_Izlez,
    Sum(Vr_RazlC) As Vr_RazlC, 0 As Cena
    FROM #Promet
    GROUP BY Sifra_OE, Sifra_Art
    If @CenaOdSoart = 'N'
    Begin
        CREATE TABLE #CeniArtN
        (
          Sifra_Art  varchar(20),
          Datum smalldatetime,
          DokID  int
        )
        Set @SSQL = 'SELECT S.Sifra_art, max(S.Datum_Dok) Datum, max(S.DokID) DokID
            FROM Stavr S '
        SET @SSQL = @SSQL + 'WHERE S.Kolic > 0 AND S.VlIZl = ''V'' '
        If @Datum_Dok_Do IS Not NULL
            SET @SSQL = @SSQL + 'AND S.Datum_Dok <=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        If @Sifra_OE Is Not Null
            SET @SSQL = @SSQL + 'AND S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
        If @TipDok Is Not Null -- dod 03.04.08
            Set @SSQL = @SSQL + ' And S.Sifra_Dok In (' + @TipDok + ') '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
        Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
        INSERT INTO #CeniArtN EXEC (@SSQL)
        Set @SSQL = 'UPDATE #Promet1
        SET    Cena = dbo.fn_VratiCena(MagCena,POsn,DanMagCena,''' +@SoDDV+''')
        FROM #CeniArtN C, Stavr S
        WHERE #Promet1.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID'
        EXEC (@SSQL)
    End
    Else If @CenaOdSoart = 'S'
    Begin
        Update #Promet1 Set Cena = dbo.fn_CenaDatum(Sifra_Oe, Sifra_Art, @Datum_Dok_Do, @SoDDV)
    End
    Else   -- @CenaOdSoart = 'D' (ili <> 'N'
    Begin
        UPDATE #Promet1
        SET #Promet1.Cena = dbo.fn_VratiCena(Soart.Cena, Soart.POsn, Soart.DanCena, @SoDDV)
        FROM Soart
        WHERE #Promet1.Sifra_Art = Soart.Sifra_Art And #Promet1.Sifra_Oe=Soart.Sifra_Oe
    End
    If @SamoRazliki = 'D'
        SELECT P.Sifra_OE, P.Sifra_Art,    K.ImeArt, K.EdMera, K.Sifra_Tar,
             P.Tek_Vlez, P.Tek_Izlez, P.Tek_Vr_Vlez, P.Tek_Vr_Izlez,
            P.Vr_RazlC, P.Cena
        FROM #Promet1 P
        Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
        WHERE Abs((P.Tek_Vlez-P.Tek_Izlez)*P.Cena - (P.Tek_Vr_Vlez-P.Tek_Vr_Izlez+P.Vr_RazlC)) > 0.01
        Order By P.Sifra_Art, P.Sifra_OE
    Else
        SELECT P.Sifra_OE, P.Sifra_Art,    K.ImeArt, K.EdMera, K.Sifra_Tar,
             P.Tek_Vlez, P.Tek_Izlez, P.Tek_Vr_Vlez, P.Tek_Vr_Izlez,
            P.Vr_RazlC, P.Cena
        FROM #Promet1 P
        Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
        Order By P.Sifra_Art, P.Sifra_OE



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontrolenlist_priem]'))
drop procedure [dbo].[sp_kontrolenlist_priem]

Go







CREATE        PROCEDURE [dbo].[sp_KontrolenList_Priem]
    @Sifra_Oe    Smallint,
    @Sifra_Dok    Smallint,
    @Broj_Dok    Int,
    @ImaDodatna    char(1) = 'P'
AS
    CREATE TABLE #TmpCeni
    (
     Sifra_Art    varchar(20),
     DokCena        decimal(18,6),
     DanDokCena    char(1),
     MagCena        decimal(18,6),
     DanMagCena    char(1),
     POsn        decimal(6,2)
    )
    INSERT INTO #TmpCeni (Sifra_Art, DokCena, MagCena)
    SELECT Sifra_Art, AVG(DokCena), AVG(MagCena) FROM Stavr
    WHERE Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
    GROUP BY Sifra_Art
    UPDATE #TmpCeni SET DanDokCena=S.DanDokCena, DanMagCena=S.DanMagCena, POsn=S.POsn
    FROM Stavr S WHERE S.Sifra_Oe=@Sifra_Oe And S.Sifra_Dok=@Sifra_Dok And S.Broj_Dok=@Broj_Dok
    AND S.Sifra_Art=#TmpCeni.Sifra_Art
    If @ImaDodatna Is Not Null
        Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Datum_Vnes, D.Identif_Br,
            M.Sifra_Art, K.ImeArt, K.EdMera, M.Kolic, M.VlIzl, M.SpecOzn,
            D.Sifra_Kup, Kup.ImeKup, D.Sifra_Prim, P.ImeOrg as ImePrim, M.Paketi, D.TekstPosle,
            C.DokCena, C.MagCena, C.DanDokCena, C.DanMagCena, C.Posn, K.RokTraDen, O.ImeOrg,
            M.LotBr, M.AltSerBr, M.Rbr, K.ImaKomerc, K.ImaBroevi, K.Tezina, K.BTezina, M.RokRed
        From Dokr D
        Inner Join MagStavr M On M.DokrID=D.DokrID
        Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
        Left Outer Join Orged P On P.Sifra_Oe=D.Sifra_Prim
                Left Outer Join Orged O On O.Sifra_Oe=D.Sifra_Oe
        Left Outer Join Katart K On K.Sifra_Art=M.Sifra_Art
        Left Outer Join #TmpCeni C ON M.Sifra_Art=C.Sifra_Art
        Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok And D.ImaDodatna=@ImaDodatna
    Else
        Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Datum_Vnes, D.Identif_Br,
            M.Sifra_Art, K.ImeArt, K.EdMera, M.Kolic, M.VlIzl, M.SpecOzn,
            D.Sifra_Kup, Kup.ImeKup, D.Sifra_Prim, P.ImeOrg as ImePrim, M.Paketi, D.TekstPosle,
            C.DokCena, C.MagCena, C.DanDokCena, C.DanMagCena, C.Posn, K.RokTraDen, O.ImeOrg,
            M.LotBr, M.AltSerBr, M.Rbr, K.ImaKomerc, K.ImaBroevi, K.Tezina, K.BTezina, M.RokRed
        From Dokr D
        Inner Join MagStavr M On M.DokrID=D.DokrID
        Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
        Left Outer Join Orged P On P.Sifra_Oe=D.Sifra_Prim
        Left Outer Join Orged O On O.Sifra_Oe=D.Sifra_Oe
        Left Outer Join Katart K On K.Sifra_Art=M.Sifra_Art
        Left Outer Join #TmpCeni C ON M.Sifra_Art=C.Sifra_Art
        Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kontrolenlist_priem_odma]'))
drop procedure [dbo].[sp_kontrolenlist_priem_odma]

Go


CREATE   procedure sp_KontrolenList_Priem_Odma
    @SpecOzn    varchar(50),
    @Sifra_Oe smallint,
    @Lot varchar(30),
    @ImeArt varchar(50),
    @Isporacatel varchar(50),
    @Kolic decimal(18,2),
    @SifArt varchar(20),
    @Datum smalldatetime
As
CREATE TABLE #IdentifKartOdma (SpecOzn varchar(50), Sifra_Oe smallint,
Lot varchar(30), ImeArt varchar(50), Isporacatel varchar(50), Kolic decimal(18,2), SifArt varchar(20), Datum smalldatetime)

Insert Into #IdentifKartOdma (SpecOzn, Sifra_Oe, Lot, ImeArt, Isporacatel, Kolic, SifArt, Datum)
Values(@SpecOzn, @Sifra_OE, @Lot, @ImeArt, @Isporacatel, @Kolic, @SifArt, @Datum)

Select Sifra_Oe,1 as Sifra_Dok,1 as Broj_Dok,Datum as Datum_Dok,Datum As DatumVnes,SifArt as Sifra_Art, ImeArt,'' as EdMera, Kolic,'i' as VlIzl, SpecOzn,'1'as Sifra_Kup , Isporacatel as ImeKup,'1' as Sifra_Prim,'1' as  ImePrim,1 as Paketi,'1' as Identif_Br,'1' as TekstPole,'1' as RokTraDen,'1' as ImeOrg,Lot as LotBr,'1' as AltSerBr,1 as DokCena, 1 as DanDokCena,1 as Posn,1 as MagCena, 1 as DanMagCena
From #IdentifKartOdma





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kopiraj_proektpoz]'))
drop procedure [dbo].[sp_kopiraj_proektpoz]

Go

CREATE    PROCEDURE SP_Kopiraj_ProektPoz
    @Broj_Proekt_Star        int,
    @Broj_Proekt_Nov    int

AS

    insert into ProektPoz
        ( Broj_Proekt, PozID, ImePoz, EdMeraPoz, OpisPoz, DokCena, Uces, POsn, DanDokCena,
          Sifra_Art, Nivo1, Nivo2, Nivo3, Nivo4, Nivo5, Nivo6, Nivo7 )
       select @Broj_Proekt_Nov, PozID, ImePoz, EdMeraPoz, OpisPoz, DokCena, Uces, POsn, DanDokCena,
          Sifra_Art, Nivo1, Nivo2, Nivo3, Nivo4, Nivo5, Nivo6, Nivo7
       From ProektPoz
       Where Broj_Proekt = @Broj_Proekt_Star



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kopiraj_stapozic]'))
drop procedure [dbo].[sp_kopiraj_stapozic]

Go

CREATE        PROCEDURE SP_Kopiraj_StaPozic
    @Broj_Proekt_Nov    int,
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Nar        int,
    @NarID_Star        int,
    @NarID_Nov        int

AS

    insert into StaPozic
        ( NarId, Sifra_Oe, Sifra_Nar, Broj_Nar, RbrStaPoz, Broj_Proekt, PozID, Kolic, DokCena, Uces, POsn, DanDokCena,
          ZabelPoz, Nivo1, Nivo2, Nivo3, Nivo4, Nivo5, Nivo6, Nivo7 )
        select  @NarId_Nov, @Sifra_Oe, @Sifra_Nar, @Broj_Nar, RbrStaPoz, @Broj_Proekt_Nov, PozID, Kolic, DokCena, Uces, POsn, DanDokCena,
          ZabelPoz, Nivo1, Nivo2, Nivo3, Nivo4, Nivo5, Nivo6, Nivo7
       From StaPozic
       Where NarId = @NarId_Star



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kor_grupa]'))
drop procedure [dbo].[sp_kor_grupa]

Go



create  PROCEDURE sp_Kor_Grupa
    @Sifra_Kor int
AS
    SELECT R.Name FROM Sysusers R
    INNER JOIN SysMembers M ON R.UID = M.GroupUID
    WHERE M.MemberUID= @Sifra_Kor
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kor_meni]'))
drop procedure [dbo].[sp_kor_meni]

Go




CREATE    PROCEDURE sp_Kor_Meni
    @Sifra_GrKor char(20)
AS
    SELECT S.Podmeni, S.RbrMeni, E.Moznost, E.RbrMoznost
        FROM MeniPoKor S, MeniEdno E
        where S.podmeni = E.podmeni and S.Sifra_GrKor=@Sifra_GrKor
        order by S.RbrMeni, E.RbrMoznost
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kor_najava]'))
drop procedure [dbo].[sp_kor_najava]

Go

CREATE        PROCEDURE sp_Kor_Najava
    @operacija  varchar(20),
    @opis varchar(20),
    @dozv_def char(1)
AS
    Declare @ImaZapis  char(1)
    SELECT @ImaZapis = Dozv_Def  FROM Operacii WHERE Operacija = @Operacija
    If @ImaZapis IS NULL
        INSERT INTO Operacii (Operacija, Opis, Dozv_Def) VALUES (@Operacija, @Opis, @Dozv_Def)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kor_operacija]'))
drop procedure [dbo].[sp_kor_operacija]

Go
CREATE        PROCEDURE sp_Kor_Operacija
    @Sifra_Kor    int,
    @Operacija   varchar(20),
    @Gener_moze Char(1)  OUTPUT,
    @Vnes varChar(1)  OUTPUT,
    @Izmena varChar(1)  OUTPUT,
    @Brisenje varChar(1)  OUTPUT,
    @Pregled varChar(1)  OUTPUT
AS
    SET @Gener_moze = 'N'
    SET @Vnes  = 'N'
    SET @Izmena  = 'N'
    SET @Brisenje  = 'N'
    SET @Pregled  = 'N'
    CREATE  TABLE #Privil
    (KGener_moze Char(1),
    KVnes Char(1),
    KIzmena Char(1),
    KBrisenje Char(1),
    KPregled Char(1)
    )
    INSERT INTO #Privil
    SELECT Gener_moze, Vnes, Izmena, Brisenje, Pregled
    FROM Privilegii
    WHERE Operacija = @Operacija AND Sifra_GrKor IN
    (SELECT R.Name FROM Sysusers R
    INNER JOIN SysMembers M ON R.UID = M.GroupUID
    WHERE M.MemberUID= @Sifra_Kor)
    DECLARE Stavki CURSOR FAST_FORWARD FOR SELECT * FROM #Privil
    Declare    @SGener_moze varChar(1)
    Declare    @SVnes varChar(1)
    Declare    @SIzmena varChar(1)
    Declare    @SBrisenje varChar(1)
    Declare    @SPregled varChar(1)
    Declare @ImaP  varChar(1)
    Set @ImaP = 'N'
    OPEN Stavki
    FETCH NEXT FROM Stavki INTO @SGener_moze, @SVnes, @SIzmena, @SBrisenje, @SPregled
    WHILE @@FETCH_STATUS = 0
    Begin
        Set @ImaP = 'D'
        If @Gener_Moze <> 'D'  AND  @SGener_Moze <> 'N'
            Set @Gener_Moze = @SGener_Moze
        If @Vnes <> 'D'
            Set @Vnes = @SVnes
        If @Izmena <> 'D'
            Set @Izmena = @SIzmena
        If @Brisenje <> 'D'
            Set @Brisenje = @SBrisenje
        If @Pregled <> 'D'
            Set @Pregled = @SPregled
        FETCH NEXT FROM Stavki INTO @SGener_moze, @SVnes, @SIzmena, @SBrisenje, @SPregled
    End
    CLOSE Stavki
    DEALLOCATE Stavki
    Truncate Table #Privil
    If @ImaP = 'N'
    Begin
        SELECT @Gener_moze = Dozv_Def FROM Operacii WHERE Operacija = @Operacija
        If @Gener_Moze = 'D'
        Begin
            SET @Vnes  = 'D'
            SET @Izmena  = 'D'
            SET @Brisenje  = 'D'
            SET @Pregled  = 'D'
        End
    End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kor_promcena]'))
drop procedure [dbo].[sp_kor_promcena]

Go
CREATE PROCEDURE sp_Kor_PromCena
    @ImeNaKorisnik    varchar(30),
    @Sifra_Art        varchar(20),
    @Tip_Podelba    char(1),
    @Dozv             char(1)='N' OUTPUT
AS
    DECLARE @IDKOrisnik int, @ImeGrKor varchar(30), @Ima int, @Sifra_Podelba varchar(20)
    SELECT @IDKOrisnik=UID FROM SysUsers WHERE Name=@ImeNaKorisnik

    SELECT @ImeGrKor=R.Name FROM Sysusers R INNER JOIN SysMembers M ON R.UID = M.GroupUID
    WHERE M.MemberUID= @IDKOrisnik  AND R.Name<>'db_owner' AND  R.Name<>'public'

    SELECT @Ima=COUNT(*) FROM OgrArt WHERE Sifra_GrKor=@ImeGrKor
    IF @Ima IS NULL OR @Ima<1        --znaci za ovie korisnici nema ogranicuvanje
    Begin
        SET @Dozv='D'
        RETURN
    End

    IF @Tip_Podelba='P'
        SELECT @Sifra_Podelba = Sifra_Podg FROM KatArt WHERE Sifra_Art=@Sifra_Art
    ELSE IF @Tip_Podelba='A'
        SET @Sifra_Podelba=@Sifra_Art

    SELECT @Dozv=MozePromCena FROM OgrArt WHERE Sifra_GrKor=@ImeGrKor AND Sifra_Podelba=@Sifra_Podelba
    IF @Dozv IS NULL OR @Dozv=' ' SET @Dozv='N'


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_korisnicinadvor]'))
drop procedure [dbo].[sp_korisnicinadvor]

Go
CREATE PROCEDURE sp_KorisniciNadvor
    @KorIme    varchar(15),
    @Lozinka    varchar(15),
    @Sifra_Kup    char(6) Output,
    @OK        char(1) = 'N' Output
AS
    Declare @Pass as varbinary(100)
    Set @Pass = Cast(@Lozinka as varbinary(100))
    Declare @Kor as varchar(15)
    Declare @Loz as varbinary(100)
    Declare @Aktiven as char(1)
    Declare @Aktiven_Od as smalldatetime
    Declare @Aktiven_Do as smalldatetime
    Select @Kor=KorIme, @Loz=lozinka, @Aktiven=Aktiven, @Aktiven_Od=Aktiven_Od, @Aktiven_Do=Aktiven_Do, @Sifra_Kup=Sifra_Kup
    From NadvKor
    Where KorIme=@KorIme
    If @Kor = @KorIme and @Loz=@Pass and @Aktiven='D' and (@Aktiven_Od is null Or @Aktiven_Od <= GetDate()) and (@Aktiven_Do is null Or @Aktiven_Do >= GetDate())
        Set @OK='D'
         Else
        Begin
            If @Aktiven_Od > GetDate()
                Set @OK = 'U'    -- Ne e aktiviran
            If @Aktiven_Do < GetDate()
                Set @OK = 'P'    -- Pomina vremeto
            If @Aktiven <> 'D'
                Set @OK = 'A'    -- Ne e aktiven
            If @Loz<>@Pass
                Set @OK = 'L'    -- Gresna lozinka
            If @Kor<>@KorIme
                Set @OK = 'K'    -- Nema takov korisnik
        End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kororgtip]'))
drop procedure [dbo].[sp_kororgtip]

Go

CREATE PROCEDURE sp_KorOrgTip
    @Sifra_Kor int
AS
    SELECT * FROM PrivilOrgTip  WHERE Sifra_GrKor IN
    (SELECT R.Name FROM Sysusers R
    INNER JOIN SysMembers M ON R.UID = M.GroupUID
    WHERE M.MemberUID= @Sifra_Kor)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_korprivkoncept]'))
drop procedure [dbo].[sp_korprivkoncept]

Go


create  PROCEDURE sp_KorPrivKoncept
    @Sifra_Kor int
AS
    SELECT * FROM PrivKoncept  WHERE Sifra_GrKor IN
    (SELECT R.Name FROM Sysusers R
    INNER JOIN SysMembers M ON R.UID = M.GroupUID
    WHERE M.MemberUID= @Sifra_Kor)
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_korvogrupi]'))
drop procedure [dbo].[sp_korvogrupi]

Go

CREATE PROCEDURE sp_KorVoGrupi
    @rolename       sysname = NULL
AS
    if @rolename is not null
    begin
        -- VALIDATE GIVEN NAME
        if not exists (select * from sysusers where name = @rolename and issqlrole = 1)
        begin
            raiserror(15409, -1, -1, @rolename)
            return (1)
        end
        -- RESULT SET FOR SINGLE ROLE
        select DbRole = g.name, MemberName = u.name, MemberSID = u.sid
            from sysusers u, sysusers g, sysmembers m
            where g.name = @rolename
                and g.uid = m.groupuid
                and g.issqlrole = 1
                and u.uid = m.memberuid
            order by 1, 2
    end
    else
    begin
        -- RESULT SET FOR ALL ROLES
        select DbRole = g.name, MemberName = u.name, MemberSID = u.sid
            from sysusers u, sysusers g, sysmembers m
            where   g.uid = m.groupuid
                and g.issqlrole = 1
                and u.uid = m.memberuid
            order by 1, 2
    end
    return (0) -- sp_helprolemember




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kpi]'))
drop procedure [dbo].[sp_kpi]

Go








CREATE     PROCEDURE sp_KPI
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @APod1     Smallint = Null,
    @APod2     Smallint = Null,
    @APod3     Smallint = Null,
    @APod4     Smallint = Null,
    @APod5     Smallint = Null,
    @APod6     Smallint = Null,
    @APod7     Smallint = Null,
    @KFAPod1     char(1) = Null,
    @KFAPod2     char(1) = Null,
    @KFAPod3     char(1) = Null,
    @KFAPod4     char(1) = Null,
    @KFAPod5     char(1) = Null,
    @KFAPod6     char(1) = Null,
    @KFAPod7     char(1) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr Varchar(300) = Null,
    @Sifra_Podg Varchar(300) = Null,
    @Lokacija Varchar(10) = Null,
    @TipDokProd    Varchar(300) = '100',
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div smallint = Null
AS

    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)

    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '

    Create Table #Art
    (
        Sifra_Art    varchar(20),
        Sifra_Kup    char(6),
        Sifra_Oe smallint,
        Sifra_Gr    char(3),
        Ime_Gr      char(25)
    )
    Create NonClustered Index IX_Art On #Art (Sifra_Art)

    Set @SSQL = '   Select K.Sifra_Art, K.Kto , '+ cast(@Sifra_Oe as varchar(5)) + ', P.Sifra_Gr, G.Ime_Gr
            From Katart K
            Inner Join PodGrupi P ON K.Sifra_Podg = P.Sifra_Podg
            Inner Join Grupi G ON G.Sifra_Gr = P.Sifra_Gr '
    Set @SSQL = @SSQL + 'Where (K.Iskluci <> ''D'' Or K.Iskluci Is Null) '

    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Kup=''' + @Kto + ''' '

------------------------------------------ Uslov po artikli ---------------------------------------------------------------------------------
    If @Lokacija Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Podg In (' + @Sifra_Podg + ') '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And P.Sifra_Gr In (' + @Sifra_Gr + ') '
    If @APod1 Is Not NULL
        If @KFAPod1 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo1 Is Null or K.Drugo1 <> ' + Cast(@APod1 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo1=' + Cast(@APod1 As Varchar(6)) + ' '
    If @APod2 Is Not NULL
        If @KFAPod2 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo2 Is Null or K.Drugo2 <> ' + Cast(@APod2 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo2=' + Cast(@APod2 As Varchar(6)) + ' '
    If @APod3 Is Not NULL
        If @KFAPod3 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo3 Is Null or K.Drugo3 <> ' + Cast(@APod3 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo3=' + Cast(@APod3 As Varchar(6)) + ' '
    If @APod4 Is Not NULL
        If @KFAPod4 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo4 Is Null or K.Drugo4 <> ' + Cast(@APod4 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo4=' + Cast(@APod4 As Varchar(6)) + ' '
    If @APod5 Is Not NULL
        If @KFAPod5 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo5 Is Null or K.Drugo5 <> ' + Cast(@APod5 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo5=' + Cast(@APod5 As Varchar(6)) + ' '
    If @APod6 Is Not NULL
        If @KFAPod6 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo6 Is Null or K.Drugo6 <> ' + Cast(@APod6 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo6=' + Cast(@APod6 As Varchar(6)) + ' '
    If @APod7 Is Not NULL
        If @KFAPod7 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo7 Is Null or K.Drugo7 <> ' + Cast(@APod7 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo7=' + Cast(@APod7 As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    -- Vo #Art gi imame samo artiklite za koi ke gledame natamu izvestai
    -- Eliminirani se artiklite koi ne se od interes vo povikot
    Insert Into #Art Exec(@SSQL + @SSQLUslArt)

    -- VO #Rez ke go sstancame rezultatot
    -- Pa na kraj na procedurata ke e trivijalen SELECT
    Create Table #Rez
    (
        RbrGrupa    smallint,
        Grupa        varchar(50),
        GrupaMK     varchar(50),
        RbrLin        smallint,
        Ozn            varchar(10),
        Opis1        varchar(100),
        Opis2        varchar(100),
        Opis1MK     varchar(100),
        Opis2MK     varchar(100),
        Preth        decimal(18,4),
        Tekovno        decimal(18,4),
        Indeks        decimal(18,4)
    )

    -- Mnogu e sporo case when ... za lanska i tekovna godina istovremeno
    -- Zatoa za lanska godina ke go koristam #Rez1 za resultatot, pa potoa ke go MERGE vo #Rez
    Create Table #Rez1
    (
        RbrGrupa    smallint,
        Grupa        varchar(50),
        GrupaMK     varchar(50),
        RbrLin        smallint,
        Ozn            varchar(10),
        Opis1        varchar(100),
        Opis1MK     varchar(100),
        Opis2        varchar(100),
        Opis2MK     varchar(100),
        Preth        decimal(18,4),
        Tekovno        decimal(18,4),
        Planirano    decimal(18,4)
    )

    Declare @SSQLPromet as varchaR(1000)

    Declare @SSQLTekPerPromet as varchar(1000)
    Declare @SSQLPrethPromet as varchar(1000)

    Declare @SSQLPrometFiltri as varchar(2000)

    Declare @Datum_Od_Preth smalldatetime
    Declare @Datum_Do_Preth smalldatetime

    set @Datum_Od_Preth = Dateadd(Year,-1,@Datum_Od)
    set @Datum_Do_Preth = Dateadd(Year,-1,@Datum_Do)


    Set @SSQLTekPerPromet = '
        Where  P.Datum_Evid >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            AND P.Datum_Evid <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    Set @SSQLPrethPromet = '
        Where  P.Datum_Evid >= ''' + Cast(@Datum_Od_Preth as varchar(30)) + '''
            AND P.Datum_Evid <= ''' + Cast(@Datum_Do_Preth as varchar(30)) + ''' '

    Set @SSQLPromet = '
        From SPromet S
        Inner Join Promet P ON P.Sifra_Oe=S.Sifra_Oe AND P.Grp_Kasa = S.Grp_Kasa AND P.BrKasa = S.BrKasa AND P.Broj_Ska = S.Broj_Ska
        Inner Join #Art A ON S.Sifra_Art=A.Sifra_Art '

    set @SSQLPrometFiltri = ' '
    If @Sifra_OE Is Not NULL
        Set @SSQLPrometFiltri = @SSQLPrometFiltri + ' And P.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    Declare @Grupa varchar(30)
    Declare @GrupaMK varchar(30)
-----------------------------------------------------------------------------------------
----- BROJ NA SMETKI OD KASI
-----------------------------------------------------------------------------------------
    set @Grupa = 'SKU'
    set @GrupaMK = 'Smetki'

    Create Table #BrSmetkiNovi
    (
        Sifra_Oe smallint,
        BrSmetki        int
    )

    Create Table #BrSmetkiStari
    (
        Sifra_Oe smallint,
        BrSmetki        int
    )

    Set @SSQL = ' Select P.Sifra_Oe, Count(Distinct P.Broj_Ska) '


    Insert Into #BrSmetkiNovi
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa ')

    Insert Into #BrSmetkiStari
         Exec (@SSQL + @SSQLPromet + @SSQLPrethPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa  ' )

    Declare @VkupnoSmetkiStari int
    Declare @VkupnoSmetkiNovi int

    set @VkupnoSmetkiStari = (select sum(BrSmetki) from #BrSmetkiStari)
    if @VkupnoSmetkiStari is null
        set @VkupnoSmetkiStari = 0

    set @VkupnoSmetkiNovi = (select sum(BrSmetki) from #BrSmetkiNovi)
    if @VkupnoSmetkiNovi is null
        set @VkupnoSmetkiNovi = 0

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 1, '1.1', 'Numri i faturave ', ' ', 'Broj na smetki ', ' ',
            @VkupnoSmetkiStari,
            @VkupnoSmetkiNovi,
            0

--------------------------------------------------------------------------------------------------------
----- PRODAZZBA
-------------------------------------------------------------------------------------------

    declare @SSQLDokr as varchar(500)
    declare @SSQLDokrFiltri as varchar(2000)

    declare @SSQLTekPerDokr as varchar(1000)
    declare @SSQLPrethDokr as varchar(1000)

    Set @SSQLDokr = '
        From Stavr S
        Inner Join Dokr D ON S.DokrID=D.DokrID
        Inner Join #Art A ON S.Sifra_Art=A.Sifra_Art '

    Set @SSQL = ' Select 1,  ''' + @Grupa + ''',  ''' + @GrupaMk + ''', 2, ''1.2'', ''Vlera'', '''', ''Iznos'', '''',
            0,
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)),
            0 '

    set @SSQLDokrFiltri = ' and D.Sifra_Za = 1 '
    If @Sifra_OE Is Not NULL
        Set @SSQLDokrFiltri = @SSQLDokrFiltri + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @TipDokProd is not null
        Set @SSQLDokrFiltri = @SSQLDokrFiltri + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '

    Set @SSQLTekPerDokr = '
        Where  D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            AND D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    Set @SSQLPrethDokr = '
        Where  D.Datum_Dok >= ''' + Cast(@Datum_Od_Preth as varchar(30)) + '''
            AND D.Datum_Dok <= ''' + Cast(@Datum_Do_Preth as varchar(30)) + ''' '


    Insert Into #Rez
         Exec (@SSQL + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri )

    -- Prodazba za istiot period pred 1 godina
    -- Insert vo #Rez1, koristi gi gornite queryja del

    Set @SSQL = ' Select 1,  ''' + @Grupa + ''', ''' + @GrupaMK + ''', 2, ''1.2'', ''Vlera'', '''', ''Iznos'', '''',
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)),
            0,
            0 '

    Insert Into #Rez1
     Exec (@SSQL + @SSQLDokr  + @SSQLPrethDokr + @SSQLDokrFiltri )
    -- Sega MERGE od #Rez2 vo #Rez
    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 1 and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

    declare @VkIznosTek as decimal(18, 4)
    declare @VkIznosPreth as decimal(18, 4)

    select @VkIznosTek = Tekovno, @VkIznosPreth = Preth from #Rez R
    where R.RbrLin = 2

    IF @VkupnoSmetkiNovi = 0 OR @VkupnoSmetkiNovi IS Null
        SET @VkupnoSmetkiNovi = 1

    IF @VkupnoSmetkiStari = 0 OR @VkupnoSmetkiStari IS Null
        SET @VkupnoSmetkiStari = 1

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 3, '1.3', 'Vlera Mesatare e faturave', ' ', 'Prose~en iznos na smetka', ' ',
         @VkIznosPreth / @VkupnoSmetkiStari, @VkIznosTek / @VkupnoSmetkiNovi, 0

    Declare @KolkuDenovi as int
    Set @KolkuDenovi = Cast(round(Cast(DateDiff(Day, @Datum_Od, @Datum_Do+1) as decimal(18,0))/7*5, 0) as int)

      -- stavaj normalen opseg na datumi
    IF @KolkuDenovi <= 0 OR @KolkuDenovi IS NULL
        set @KolkuDenovi = 1

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 4, '1.4', 'Dite aktive ne periudhen', ' ', 'Aktivni denovi vo period', ' ', @KolkuDenovi, @KolkuDenovi, 0

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 5, '1.5', 'Vlera mesatare e shitjes ne dite aktiv', ' ',  'Prose~na proda`ba po aktivni denovi ', ' ',
            Sum(case when Preth is null then 0 else Preth end) / @KolkuDenovi,
            Sum(case when Tekovno is null then 0 else Tekovno end) / @KolkuDenovi,
            0
        From #Rez
        Where RbrLin = 2
--------------------------------------------------------------------------------------------
---  LINII SMETKA OD KASA
--------------------------------------------------------------------------------------------

    Create Table #BrLinii
    (
        Sifra_Oe smallint,
        BrLinii         int
    )

        Create Table #BrLiniiPreth
    (
        Sifra_Oe smallint,
        BrLiniiPreth int
    )


    Set @SSQL = ' Select P.Sifra_Oe, Count(*) '


    Insert Into #BrLinii
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa,  P.Broj_Ska')


    Set @SSQL = ' Select P.Sifra_Oe,  Count(*) '
    Insert Into #BrLiniiPreth
         Exec (@SSQL + @SSQLPromet + @SSQLPrethPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska ' )

    Declare @BrLinii as decimal
    Declare @BrLiniiPreth as integer

    Declare @BrRedovi as decimal
    Declare @BrRedoviPreth as integer

    select @BrLinii = sum(BrLinii), @BrRedovi = count(*)    from #Brlinii
    select @BrLiniiPreth = sum(BrLiniiPreth), @BrRedoviPreth = count(*) from #BrliniiPreth

    IF @BrRedovi = 0 OR @BrRedovi IS NULL
        SET     @BrRedovi = 1
    IF @BrRedoviPreth = 0 OR @BrRedoviPreth IS NULL
        SET     @BrRedoviPreth = 1

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 6, '1.6', 'Linja ne fature', ' ', 'Linii na smetka', ' ',
            @BrLiniiPreth / @BrRedoviPreth ,
            @BrLinii / @BrRedovi,
            0

----------------------------------------------------------------------------
--BROJ NA AKTIVNI I NEAKTIVNI ARTIKLI
----------------------------------------------------------------------------
    Create Table #Brojnost
    (
        BrAktArtikli        int,
        BrAktArtikliPreth    int,
        BrNeAktArtikli      int,
        BrNeAktArtikliPreth  int
    )


    Set @SSQL = ' Select  Count (Distinct S.Sifra_Art), null, null, null  '
--- AKTIVNI ARTIKLI
    Insert Into #Brojnost
         Exec (@SSQL + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri )
    Set @SSQL = ' Select  null, Count (Distinct S.Sifra_Art), null, null  '

    Insert Into #Brojnost
         Exec (@SSQL + @SSQLDokr + @SSQLPrethDokr + @SSQLDokrFiltri )

-- NEAKTIVNI ARTIKLI
    Set @SSQL = ' Select  null, null, Count (Distinct A.Sifra_Art), null

        From #Art A
        Inner Join Soart S on S.Sifra_Oe = A.Sifra_Oe AND S.Sifra_Art = A.Sifra_Art
        Where (S.Vlez - S.Izlez) <> 0 AND
        A.Sifra_Art not in ( SELECT Distinct S.Sifra_Art '  + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri + ' ) '


    Insert Into #Brojnost
         Exec (@SSQL)

    Set @SSQL = ' Select  null, null, null, Count (Distinct A.Sifra_Art)

        From #Art A
        Inner Join Soart S on S.Sifra_Art = A.Sifra_Art
        Where (S.Vlez - S.Izlez) <> 0 AND
        A.Sifra_Art not in ( SELECT Distinct S.Sifra_Art '  + @SSQLDokr + @SSQLPrethDokr + @SSQLDokrFiltri + ' ) '

    Insert Into #Brojnost
         Exec (@SSQL)

    Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 7, '1.7', 'Nr.SKU Active', ' ', 'Broj na aktivni artikli', ' ',
            Sum(case when BrAktArtikliPreth is null then 0 else BrAktArtikliPreth end),
            Sum(case when BrAktArtikli is null then 0 else BrAktArtikli end),
            0
        From #Brojnost

      Insert Into #Rez
        Select 1, @Grupa, @GrupaMK, 8, '1.8', 'Nr.SKU Jo Active', ' ', 'Broj na neaktivni artikli', ' ',
            Sum(case when BrNeAktArtikliPreth is null then 0 else BrNeAktArtikliPreth end),
            Sum(case when BrNeAktArtikli is null then 0 else BrNeAktArtikli end),
            0
        From #Brojnost
---------------------------------------------------------------------------------------
--PROMET PO GRUPI ARTIKLI
---------------------------------------------------------------------------------------

    set @Grupa = 'QARKULLIMI'
    set @GrupaMK = 'PROMET'

    Set @SSQL = ' Select 2,  ''' + @Grupa + ''', ''' + @GrupaMK + ''', 9, ''2.1'', A.Sifra_Gr, A.Ime_Gr, A.Sifra_Gr, A.Ime_Gr,
            0,
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)) AS Iznos,
            0 '

    Insert Into #Rez
         Exec (@SSQL + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri + 'GROUP BY A.Sifra_Gr, A.Ime_Gr ORDER BY Iznos Desc' )

    -- Prodazba za istiot period pred 1 godina
    -- Insert vo #Rez1, koristi gi gornite queryja del

    Set @SSQL = ' Select 2,  ''' + @Grupa + ''', ''' + @GrupaMK + ''', 9, ''2.1'', A.Sifra_Gr, A.Ime_Gr, A.Sifra_Gr, A.Ime_Gr,
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)),
            0,
            0 '

    Insert Into #Rez1
     Exec (@SSQL + @SSQLDokr  + @SSQLPrethDokr + @SSQLDokrFiltri + 'Group BY A.Sifra_Gr, A.Ime_Gr ')

    -- Sega MERGE od #Rez2 vo #Rez
    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 2 and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

    Insert Into #Rez
    select 2,  @Grupa + ' Total:', @GrupaMK + ' Vkupno:', 10, '2.2', 'Total', ' ', 'Vkupno', ' ', sum(Preth), sum(Tekovno), 0
    From #Rez where #Rez.RbrGrupa = 2

---------------------------------------------------------------------------------------
--PROMET NA TOP 20% ARTIKLI
---------------------------------------------------------------------------------------
    declare @VkArt integer
    declare @VkArtPreth integer

    declare @Top20 as integer
    declare @Top20Preth as integer
    SELECT @VkArt = sum(case when BrAktArtikli is null then 0 else BrAktArtikli end +
                    case when BrNeAktArtikli is null then 0 else BrNeAktArtikli end),
            @VkArtPreth = sum(case when BrAktArtikliPreth is null then 0 else BrAktArtikliPreth end +
                    case when BrNeAktArtikliPreth is null then 0 else BrNeAktArtikliPreth end)
    FROM #Brojnost

    set @Top20 = @VkArt * 20/100
    set @Top20Preth = @VkArtPreth * 20 / 100

    create table #Promet
            (
            Rbr [int]           IDENTITY (1, 1),
            Sifra_Art varchar(20),
            VkIznos decimal(18, 4)
            )
    create table #PrometPreth
            (
            Rbr [int]           IDENTITY (1, 1),
            Sifra_Art varchar(20),
            VkIznosPreth decimal(18, 4)
            )

        Set @SSQL = ' Select A.Sifra_Art,
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)) AS Iznos '

    Insert Into #Promet
    Exec (@SSQL + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri + 'GROUP BY A.Sifra_Art ORDER BY Iznos Desc' )

    -- Prodazba za istiot period pred 1 godina


    Set @SSQL = ' Select A.Sifra_Art,
            Sum(S.Kolic* Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End * (1-S.Uces/100)) AS Iznos '

    Insert Into #PrometPreth
    Exec (@SSQL + @SSQLDokr  + @SSQLPrethDokr + @SSQLDokrFiltri + 'Group BY A.Sifra_Art ORDER BY Iznos Desc ')

    declare @VkPromet decimal(18, 4)
    declare @VkPrometPreth decimal(18, 4)

    declare @Top20Iznos decimal(18, 4)
    declare @Top20IznosPreth decimal(18, 4)

    select @VkPromet = sum(VkIznos) FROM #Promet
    select @VkPrometPreth = sum(VkIznosPreth) FROM #PrometPreth

    select @Top20Iznos = sum(VkIznos) FROM #Promet WHERE Rbr <= @Top20
    select @Top20IznosPreth = sum(VkIznosPreth) FROM #PrometPreth WHERE Rbr <= @Top20Preth

    IF @VkPromet <=0 OR @VkPromet IS NULL
        set @VkPromet = 1

    IF @VkPrometPreth <=0 OR @VkPrometPreth IS NULL
        set @VkPrometPreth = 1

        Insert Into #Rez
        Select 2,   @Grupa, @GrupaMK, 11, '2.3', '20% te Sku % të qarkullimit', '', 'U~estvo na top 20% artikli vo vkupniot promet', '',
            0,
            @Top20Iznos / @VkPromet * 100,
            0
         delete from #Rez1
        Insert Into #Rez1
        Select 2,   @Grupa, @GrupaMK, 11, '2.3', '20% te Sku % të qarkullimit', '', 'U`estvo na top 20% artikli vo vkupniot promet', '',
            @Top20IznosPreth / @VkPrometPreth * 100,
            0,
            0

    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 2    and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

-----------------------------------------------------------------------------------------
--PROSECEN PROMET PO BROJ NA KASI
-----------------------------------------------------------------------------------------


    Create Table #BrKasi
    (
        Sifra_Oe smallint,
        BrKasi        int
    )

    Create Table #BrKasiPreth
    (
        Sifra_Oe smallint,
        BrKasiPreth        int
    )

    Set @SSQL = ' Select P.Sifra_Oe, Count(Distinct P.BrKasa) '

    Insert Into #BrKasi
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe ')

    Insert Into #BrKasiPreth
         Exec (@SSQL + @SSQLPromet + @SSQLPrethPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe ' )

    declare @BrKasi as integer
    declare @BrKasiPreth as integer

    select @BrKasi = BrKasi from #BrKasi
    select @BrKasiPreth = BrKasiPreth from #BrKasiPreth

    IF @BrKasi <= 0 OR @BrKasi IS Null
        set @BrKasi = 1

    IF @BrKasiPreth <= 0 OR @BrKasiPreth IS Null
        set @BrKasiPreth = 1


        Insert Into #Rez
        Select 2,   @Grupa, @GrupaMK, 12, '2.4', 'Mesatarja e qarkullimit për Arke', '', 'Prose~na proda`ba po kasi', '',
            0,
            @VkPromet / @BrKasi,
            0
         delete from #Rez1
        Insert Into #Rez1
        Select 2,   @Grupa, @GrupaMK, 12, '2.4', 'Mesatarja e qarkullimit për Arke', '', 'Prose~na proda`ba po kasi', '',
            @VkPrometPreth / @BrKasiPreth,
            0,
            0

    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 2    and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

-----------------------------------------------------------------------------------------
--PROSECEN PROMET PO SMENI
-----------------------------------------------------------------------------------------


    Create Table #BrSmeni
    (
        Sifra_Oe smallint,
        BrSmeni        int
    )

    Create Table #BrSmeniPreth
    (
        Sifra_Oe smallint,
        BrSmeniPreth        int
    )

    Set @SSQL = ' Select P.Sifra_Oe, Count(Distinct P.Datum_Evid) '

    Insert Into #BrSmeni
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe ')

    Insert Into #BrSmeniPreth
         Exec (@SSQL + @SSQLPromet + @SSQLPrethPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe ' )

    declare @BrSmeni as integer
    declare @BrSmeniPreth as integer

    select @BrSmeni = BrSmeni * 2 from #BrSmeni
    select @BrSmeniPreth = BrSmeniPreth * 2 from #BrSmeniPreth

    IF @BrSmeni <= 0 OR @BrSmeni IS Null
        set @BrSmeni = 1

    IF @BrSmeniPreth <= 0 OR @BrSmeniPreth IS Null
        set @BrSmeniPreth = 1


        Insert Into #Rez
        Select 2,   @Grupa, @GrupaMK, 13, '2.5', 'Mesatarja e qarkullimit për Shift', '', 'Prose~na proda`ba po smeni', '',
            0,
            @VkPromet / @BrSmeni,
            0
         delete from #Rez1
        Insert Into #Rez1
        Select 2,   @Grupa, @GrupaMK, 13, '2.5', 'Mesatarja e qarkullimit për Shift', '', 'Prose~na proda`ba po smeni', '',
            @VkPrometPreth / @BrSmeniPreth,
            0,
            0

    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 2    and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa


-----------------------------------------------------------------------------------------
--PROSECEN PROMET PO BROJ NA KASI VO SMENA
-----------------------------------------------------------------------------------------

        Create Table #BrKasiPoDatum
    (
        Sifra_Oe smallint,
        Datum smalldatetime,
        BrKasi        int
    )

    Create Table #BrKasiPoDatumPreth
    (
        Sifra_Oe smallint,
        Datum smalldatetime,
        BrKasiPreth        int
    )

    Set @SSQL = ' Select P.Sifra_Oe, P.Datum_Evid, Count(Distinct P.BrKasa) '

    Insert Into #BrKasiPoDatum
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Datum_Evid ')

    Insert Into #BrKasiPoDatumPreth
         Exec (@SSQL + @SSQLPromet + @SSQLPrethPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.Datum_Evid ' )

    declare @VkBrKasi as integer
    declare @VkBrKasiPreth as integer

    declare @BrDen as integer
    declare @BrDenPreth as integer

    select @VkBrKasi = sum(BrKasi) from #BrKasiPoDatum
    select @VkBrKasiPreth = sum(BrKasiPreth) from #BrKasiPoDatumPreth

    select @BrDen = count (distinct datum) from #BrKasiPoDatum
    select @BrDenPreth = count (distinct datum) from #BrKasiPoDatumPreth

    IF @BrDen <= 0 OR @BrDen IS Null
        set @BrDen = 1

    IF @BrDenPreth <= 0 OR @BrDenPreth IS Null
        set @BrDenPreth = 1

    declare @ProsBrKasi as decimal
    declare @ProsBrKasiPreth as decimal

    set @ProsBrKasi = @VkBrKasi / @BrDen
    set @ProsBrKasiPreth = @VkBrKasiPreth / @BrDenPreth

    IF @ProsBrKasi <= 0 OR @ProsBrKasi IS Null
        set @ProsBrKasi = 1

    IF @ProsBrKasiPreth <= 0 OR @ProsBrKasiPreth IS Null
        set @ProsBrKasiPreth = 1

    Insert Into #Rez
        Select 2,   @Grupa, @GrupaMK, 14, '2.6', 'Mesatarja e qarkullimit per Shift Arke', '',  'Prose~na proda`ba po kasi vo smena', '',
            0,
            @VkPromet / @ProsBrKasi / 2,
            0
         delete from #Rez1
        Insert Into #Rez1
        Select 2,   @Grupa, @GrupaMK, 14, '2.6', 'Mesatarja e qarkullimit per Shift Arke', '', 'Prose~na proda`ba po kasi vo smena', '',
            @VkPrometPreth / @ProsBrKasiPreth / 2,
            0,
            0

    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 2    and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

---------------------------------------------------------------------------------------
--PROFIT PO GRUPI ARTIKLI
---------------------------------------------------------------------------------------

    set @Grupa = 'PROFITI'
    set @GrupaMK = 'PROFIT'

    create table #Grp
        (
            Sifra_Gr char(3),
            Ime_Gr  varchar(25),
            Vr_SoRabat decimal(18, 4),
            Vr_NabSoDDV decimal(18, 4)
        )

    create table #GrpPreth
        (
            Sifra_Gr char(3),
            Ime_Gr  varchar(25),
            Vr_SoRabat decimal(18, 4),
            Vr_NabSoDDV decimal(18, 4)
        )

    Set @SSQL = ' Select  A.Sifra_Gr, A.Ime_Gr,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_SoRabat,
            Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV '

    Insert Into #Grp
    Exec (@SSQL + @SSQLDokr + @SSQLTekPerDokr + @SSQLDokrFiltri + 'GROUP BY A.Sifra_Gr, A.Ime_Gr ' )
    -- Prodazba za istiot period pred 1 godina

    Insert Into #GrpPreth
    Exec (@SSQL + @SSQLDokr  + @SSQLPrethDokr + @SSQLDokrFiltri + 'Group BY A.Sifra_Gr, A.Ime_Gr ')

    Insert Into #Rez
        Select 3,   @Grupa, @GrupaMK, 15, '3.1', G.Sifra_Gr, G.Ime_Gr, G.Sifra_Gr, G.Ime_Gr,
            0,
            sum(Vr_SoRabat - Vr_NabSoDDV),
            0
        from #Grp G
        group by G.Sifra_Gr, G.Ime_Gr

    delete from #Rez1
    Insert Into #Rez1
        Select 3,   @Grupa, @GrupaMK, 15, '3.1', G.Sifra_Gr, G.Ime_Gr, G.Sifra_Gr, G.Ime_Gr,
            sum(Vr_SoRabat - Vr_NabSoDDV),
            0,
            0
         from #GrpPreth G
        group by G.Sifra_Gr, G.Ime_Gr

-- Sega MERGE od #Rez2 vo #Rez

    update #Rez
    set Preth = R1.Preth
    from #Rez1 R1
    where #Rez.RbrGrupa = 3    and R1.Opis1 = #Rez.Opis1 and R1.RbrGrupa = #Rez.RbrGrupa

    Insert Into #Rez
    select 3,  @Grupa + ' Total:', @GrupaMK + ' Vkupno:', 16, '3.2', 'Total', ' ', 'Vkupno', ' ', sum(Preth), sum(Tekovno), 0
    From #Rez where #Rez.RbrGrupa = 3


    update #Rez set Indeks = (Tekovno / Preth - 1) * 100 where Preth is not null and Preth <> 0

    select * from #Rez














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kpi_kasa]'))
drop procedure [dbo].[sp_kpi_kasa]

Go



CREATE    PROCEDURE sp_KPI_Kasa
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @APod1     Smallint = Null,
    @APod2     Smallint = Null,
    @APod3     Smallint = Null,
    @APod4     Smallint = Null,
    @APod5     Smallint = Null,
    @APod6     Smallint = Null,
    @APod7     Smallint = Null,
    @APod8     Smallint = Null,
    @APod9     Smallint = Null,
    @APod10     Smallint = Null,
    @KFAPod1     char(1) = Null,
    @KFAPod2     char(1) = Null,
    @KFAPod3     char(1) = Null,
    @KFAPod4     char(1) = Null,
    @KFAPod5     char(1) = Null,
    @KFAPod6     char(1) = Null,
    @KFAPod7     char(1) = Null,
    @KFAPod8     char(1) = Null,
    @KFAPod9     char(1) = Null,
    @KFAPod10     char(1) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr Varchar(300) = Null,
    @Sifra_Podg Varchar(300) = Null,
    @Lokacija Varchar(10) = Null,
    @TipDokProd    Varchar(300) = '100',
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div smallint = Null
AS

    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)

    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '

    Create Table #Art
    (
        Sifra_Art    varchar(20),
        Sifra_Kup    char(6),
        Sifra_Oe smallint,
        Sifra_Gr    char(3),
        Ime_Gr      char(25)
    )
    Create NonClustered Index IX_Art On #Art (Sifra_Art)

    Set @SSQL = '   Select K.Sifra_Art, K.Kto , '+ cast(@Sifra_Oe as varchar(5)) + ', P.Sifra_Gr, G.Ime_Gr
            From Katart K
            Inner Join PodGrupi P ON K.Sifra_Podg = P.Sifra_Podg
            Inner Join Grupi G ON G.Sifra_Gr = P.Sifra_Gr '
    Set @SSQL = @SSQL + 'Where (K.Iskluci <> ''D'' Or K.Iskluci Is Null) '

    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Kup=''' + @Kto + ''' '

------------------------------------------ Uslov po artikli ---------------------------------------------------------------------------------
    If @Lokacija Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Podg In (' + @Sifra_Podg + ') '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And P.Sifra_Gr In (' + @Sifra_Gr + ') '
    If @APod1 Is Not NULL
        If @KFAPod1 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo1 Is Null or K.Drugo1 <> ' + Cast(@APod1 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo1=' + Cast(@APod1 As Varchar(6)) + ' '
    If @APod2 Is Not NULL
        If @KFAPod2 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo2 Is Null or K.Drugo2 <> ' + Cast(@APod2 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo2=' + Cast(@APod2 As Varchar(6)) + ' '
    If @APod3 Is Not NULL
        If @KFAPod3 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo3 Is Null or K.Drugo3 <> ' + Cast(@APod3 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo3=' + Cast(@APod3 As Varchar(6)) + ' '
    If @APod4 Is Not NULL
        If @KFAPod4 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo4 Is Null or K.Drugo4 <> ' + Cast(@APod4 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo4=' + Cast(@APod4 As Varchar(6)) + ' '
    If @APod5 Is Not NULL
        If @KFAPod5 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo5 Is Null or K.Drugo5 <> ' + Cast(@APod5 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo5=' + Cast(@APod5 As Varchar(6)) + ' '
    If @APod6 Is Not NULL
        If @KFAPod6 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo6 Is Null or K.Drugo6 <> ' + Cast(@APod6 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo6=' + Cast(@APod6 As Varchar(6)) + ' '
    If @APod7 Is Not NULL
        If @KFAPod7 = 'D'
            Set @SSQLUslArt = @SSQLUslArt + ' And (K.Drugo7 Is Null or K.Drugo7 <> ' + Cast(@APod7 As Varchar(6)) + ') '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo7=' + Cast(@APod7 As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQLUslArt = @SSQLUslArt + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    -- Vo #Art gi imame samo artiklite za koi ke gledame natamu izvestai
    -- Eliminirani se artiklite koi ne se od interes vo povikot
    Insert Into #Art Exec(@SSQL + @SSQLUslArt)

    Declare @SSQLPromet as varchaR(1000)

    Declare @SSQLTekPerPromet as varchar(1000)
    Declare @SSQLPrethPromet as varchar(1000)

    Declare @SSQLPrometFiltri as varchar(2000)

    Declare @Datum_Od_Preth smalldatetime
    Declare @Datum_Do_Preth smalldatetime

    set @Datum_Od_Preth = Dateadd(Year,-1,@Datum_Od)
    set @Datum_Do_Preth = Dateadd(Year,-1,@Datum_Do)


    Set @SSQLTekPerPromet = '
        Where  P.Datum_Evid >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            AND P.Datum_Evid <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    Set @SSQLPrethPromet = '
        Where  P.Datum_Evid >= ''' + Cast(@Datum_Od_Preth as varchar(30)) + '''
            AND P.Datum_Evid <= ''' + Cast(@Datum_Do_Preth as varchar(30)) + ''' '

    Set @SSQLPromet = '
        From SPromet S
        Inner Join Promet P ON P.Sifra_Oe=S.Sifra_Oe AND P.Grp_Kasa = S.Grp_Kasa AND P.BrKasa = S.BrKasa AND P.Broj_Ska = S.Broj_Ska
        Inner Join #Art A ON S.Sifra_Art=A.Sifra_Art '

    set @SSQLPrometFiltri = ' '
    If @Sifra_OE Is Not NULL
        Set @SSQLPrometFiltri = @SSQLPrometFiltri + ' And P.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
-----------------------------------------------------------------------------------------
----- BROJ NA SMETKI PO KASI
-----------------------------------------------------------------------------------------

    Create Table #BrSmetkiPoDatum
    (
        Sifra_Oe  smallint,
        BrKasa    smallint,
        Mesec     char(7),
        Datum     smalldatetime,
        BrSmetki  int,
        Vrednost  decimal(18, 6)
    )
    Set @SSQL = ' Select P.Sifra_Oe,
                  P.BrKasa,
                  cast(year(P.Datum_Evid) as char(4))+ ''/'' + dbo.fn_levoNuliStr(
                  cast(month(P.Datum_Evid) as char(2)), 2),
                  P.Datum_Evid, count(P.Broj_Ska), sum(S.Kolic * S.Cena)  '


    Insert Into #BrSmetkiPoDatum(Sifra_OE, BrKasa, Mesec, Datum, BrSmetki, Vrednost)
         Exec (@SSQL + @SSQLPromet + @SSQLTekPerPromet + @SSQLPrometFiltri + ' Group By P.Sifra_Oe, P.BrKasa,
               cast (year(P.Datum_Evid) as char(4))+ ''/'' + dbo.fn_levoNuliStr(
               cast(month(P.Datum_Evid) as char(2)), 2),
               P.Datum_Evid ')


    Create Table #BrSmetkiDnevenProsek
    (
        Sifra_Oe              smallint,
        BrKasa                smallint,
        Mesec                 char(7),
        VkDenovi              int,
        VkNedeli             decimal(18, 6),
        VkBrSmetki            int,
        VkIznos                 decimal(18, 6),
        DnevenProsekBrSmetki decimal(18, 6),
        NedelenProsekBrSmetki decimal(18, 6),
        ProsekPoSmetka       decimal(18, 6),
        DnevenProsekIznos    decimal(18, 6)
    )

    Insert Into #BrSmetkiDnevenProsek(Sifra_Oe, BrKasa, Mesec, VkDenovi, VkNedeli, VkBrSmetki, VkIznos)
    select B.Sifra_Oe, B.BrKasa, B.Mesec, count(B.Datum), cast (count(B.Datum) as decimal(18, 6)) / 7, sum(B.BrSmetki), sum(Vrednost)
    from #BrSmetkiPoDatum B
    group by B.Sifra_Oe, B.BrKasa, B.Mesec

    update #BrSmetkiDnevenProsek set DnevenProsekBrSmetki = cast(VkBrSmetki as decimal(18, 6)) / cast(VkDenovi as decimal(18, 6)),
                                     DnevenProsekIznos  = VkIznos / cast (VkDenovi as decimal(18, 6))
    where VkDenovi is not null and VkDenovi <> 0

    update #BrSmetkiDnevenProsek set NedelenProsekBrSmetki = cast(VkBrSmetki as decimal(18, 6)) / VkNedeli
    where VkNedeli is not null and VkNedeli <> 0

    update #BrSmetkiDnevenProsek set ProsekPoSmetka = cast(VkIznos as decimal(18, 6)) / cast (VkBrSmetki as decimal(18, 6))
    where VkBrSmetki is not null and VkBrSmetki <> 0


    select * from #BrSmetkiDnevenProsek order by sifra_oe, brkasa, mesec







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_krediti_skalanadatumi]'))
drop procedure [dbo].[sp_krediti_skalanadatumi]

Go




CREATE    PROCEDURE [dbo].[sp_Krediti_SkalaNaDatumi]
    @Datum_Kredit_Do     Smalldatetime,
    @Datum_Presm     Smalldatetime,
    @Sifra_Kor         varchar(20) = Null,
    @Skala         Varchar(100),
    @Sifra_OE         Smallint = Null,    --dodadeno 30.09.2003 za Zito
    @Koi_Oe        varchar(10) = Null,
    @Broj_KreditOd        Int = Null,
    @Broj_KreditDo        Int = Null,
        @Nacin_Presm smallint=null,
        @Status_kredit nvarchar(30)=null,
        @Tip_posl_Opomena nvarchar(30)=null
AS
    Set Nocount On

    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)

    Set @SSQL = ' '
    Set @SSQLUsl = ' '

    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Datum_Kredit_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Datum_Kredit<=''' + Cast(@Datum_Kredit_Do As Varchar(30)) + ''' '
    If @Sifra_Kor Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Kor = ''' + @Sifra_Kor + ''' '
    If @Broj_KreditOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Broj_Kredit>=' + Cast(@Broj_KreditOd As Varchar(10)) + ' '
    If @Broj_KreditDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Broj_Kredit<=' + Cast(@Broj_KreditDo As Varchar(10)) + ' '
        If @Nacin_Presm Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
        If @Status_kredit Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And case when K.Status_Kredit is null then 1 else K.Status_Kredit end In (' + Cast(@Status_kredit as varchar(10)) + ') '
        If @Tip_Posl_Opomena Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
    create                     Table #Kredit
    (    Sifra_Oe     smallint,
        Broj_Kredit    int,
        Sifra_Kor     varchar(20),
        Datum_Kredit     smalldatetime,
        Datum_Dosp    smalldatetime,
        VkupnaGlavnica    decimal(18,4),
        Dolzi        decimal(18, 4),
        Pobaruva    decimal(18, 4),
        Plateno_Dolzi    decimal(18, 4),
        Plateno_Pobaruva decimal(18,4),
        Dosp        varchar(20)
    )

    Set @SSQL = ' Select K.Sifra_Oe, K.Broj_Kredit, K.Sifra_Kor, K.Datum_Kredit, T.Datum_Dosp,
            K.VkupnaGlavnica, T.Dolzi, T.Pobaruva, T.Plateno_Dolzi, T.Plateno_Pobaruva, ''0''
        From Kredit K
        Inner Join KreditTransakc T on T.Sifra_Oe=K.Sifra_Oe And K.Broj_Kredit=T.Broj_Kredit
        Where (Dolzi-Plateno_Dolzi <> 0 Or Pobaruva-Plateno_Pobaruva<>0) '

    Set @SSQL = @SSQL + @SSQLUsl

    Insert Into #Kredit Exec(@SSQL)


    Update #Kredit Set Dosp = '.Nedospeani' Where Datum_Dosp>=@Datum_Presm    -- Nedospeani

    Declare @Poz_Start as smallint
    Declare @Poz_Delim as smallint
    Declare @DoRokDosp as smallint

    Set @Poz_Start = 0
    WHILE 1=1
    Begin
        Set @Poz_Delim = Charindex(',', @Skala, @Poz_Start)
        If @Poz_Delim = 0
            Break
        Set @DoRokDosp = Cast(SubString(@Skala, @Poz_Start, @Poz_Delim-@Poz_Start) As Smallint)
        Set @Poz_Start = @Poz_Delim + 1
        Update #Kredit
            Set Dosp=@DoRokDosp
            Where DateDiff(day, Datum_Dosp, @Datum_Presm)<=@DoRokDosp
                And Dosp='0'
    End
        Update #Kredit
            Set Dosp='Nad ' + Cast(@DoRokDosp as varchar(10)) + ' dena'
            Where DateDiff(day, Datum_Dosp, @Datum_Presm)>@DoRokDosp
                And Dosp='0'



    Select K.Sifra_Oe, O.ImeOrg, K.Broj_Kredit, K.Sifra_Kor, Kor.ImeKor, K.Datum_Kredit, K.Datum_Dosp,
        K.VkupnaGlavnica, K.Dolzi, K.Pobaruva, K.Plateno_Dolzi, K.Plateno_Pobaruva,
        (K.Dolzi-K.Plateno_Dolzi)-(K.Pobaruva-K.Plateno_Pobaruva) Saldo,
        (Case When IsNumeric(K.Dosp)=1 Then dbo.fn_levonuli(K.Dosp,3) Else K.Dosp End) Dosp
    From #Kredit K
    Inner Join Orged O On O.Sifra_Oe=K.Sifra_Oe
    Left Outer Join KartKor Kor On Kor.Sifra_Kor=K.Sifra_Kor








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kreditispecifikacija]'))
drop procedure [dbo].[sp_kreditispecifikacija]

Go



CREATE         PROCEDURE [dbo].[sp_KreditiSpecifikacija]

    @Sifra_Oe smallint = null,
    @Sifra_Kor varchar(20) = null,
    @DatumOd smalldatetime= null,
    @DatumDo smalldatetime = null,
        @Nacin_Presm smallint=null,
        @Status_kredit nvarchar(30)=null,
        @Tip_posl_Opomena nvarchar(30)=null
AS

    Declare @SSQL Varchar(8000)
     Set @SSQL=' Select K.Sifra_Oe, K.Broj_Kredit, K.Sifra_Kor, KK.ImeKor, K.Datum_Kredit, K.Broj_Rati, K.VkupenProcKam, K.Nacin_Presm, K.VkupnaGlavnica, K.VkupnaKamata,
            K.PlatenoVednas, K.PlatenoRati, K.Kurs, Sum(T.Dolzi) Dolzi, Sum(T.Pobaruva) Pobaruva, Sum(T.Plateno_Dolzi) Plateno_Dolzi, Sum(T.Plateno_Pobaruva) Plateno_Pobaruva
        From Kredit K
        Inner Join KreditTransakc T On T.Sifra_Oe=K.Sifra_Oe And K.Broj_Kredit=T.Broj_Kredit
        Left Outer Join KartKor KK On KK.Sifra_kor=K.Sifra_Kor
        Where 1=1 '
    IF @Sifra_Kor IS NOT NULL
        SET @SSQL = @SSQL + ' AND K.Sifra_Kor='''+ @Sifra_Kor + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + ' AND K.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @DatumOd Is NOT Null
        SET @SSQL = @SSQL + ' AND K.Datum_Kredit>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
    If @DatumDo Is NOT Null
        SET @SSQL = @SSQL + ' AND K.Datum_Kredit<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
        If @Nacin_Presm Is Not Null
        Set @SSQL = @SSQL + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
        If @Status_kredit Is Not Null
        Set @SSQL = @SSQL + ' And case when K.Status_Kredit is null then 1 else K.Status_Kredit end In (' + Cast(@Status_kredit as varchar(10)) + ') '
    If @Tip_Posl_Opomena Is Not Null
        Set @SSQL = @SSQL + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
        Set @SSQL = @SSQL + ' Group By K.Sifra_Oe, K.Broj_Kredit, K.Sifra_Kor, KK.ImeKor, K.Datum_Kredit, K.Broj_Rati, K.VkupenProcKam,
        K.Nacin_Presm, K.VkupnaGlavnica, K.VkupnaKamata, K.PlatenoVednas, K.PlatenoRati, K.Kurs '
    Exec(@ssql)

--print @SSQL







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kreiraj_constraints]'))
drop procedure [dbo].[sp_kreiraj_constraints]

Go
CREATE        PROCEDURE sp_Kreiraj_Constraints
AS
    Declare @Godina as smallint
    Declare @Idni_Denovi_Nal as smallint
    Declare @Idni_Denovi_Dok as smallint
    Declare @Idni_Denovi_Nar as smallint
    Declare @Zatvoreno_Do as smalldatetime
    Select @Godina = Delov_God, @Idni_Denovi_Nal=Idni_Denovi_Nal, @Idni_Denovi_Dok=Idni_Denovi_Dok,
        @Idni_Denovi_Nar=Idni_Denovi_Nar, @Zatvoreno_Do=Zatvoreno_Do
    From KonfDat
    Declare @SSQL as varchar(4000)
------ ANFINDOK ------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Nal Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal1' AND type = 'C')
            ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal1
        Set @SSQL = ' ALTER TABLE dbo.AnFinDok WITH NOCHECK ADD CONSTRAINT
        CK_AnFinDok_DatNal1 CHECK ((datepart(Year,Datum_Nal) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Nal)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Nal <= dateadd(day, ' + cast(@Idni_Denovi_Nal as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_AnFinDok_DatNal2' AND type = 'C')
            ALTER TABLE AnFinDok DROP CONSTRAINT CK_AnFinDok_DatNal2
        Set @SSQL = ' ALTER TABLE dbo.AnFinDok WITH NOCHECK ADD CONSTRAINT
        CK_AnFinDok_DatNal2 CHECK (Datum_Nal > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ NALOZI  --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Nal Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal1' AND type = 'C')
            ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal1
        Set @SSQL = ' ALTER TABLE dbo.Nalozi WITH NOCHECK ADD CONSTRAINT
        CK_Nalozi_DatNal1 CHECK ((datepart(Year,Datum_Nal) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Nal)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Nal <= dateadd(day, ' + cast(@Idni_Denovi_Nal as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Nalozi_DatNal2' AND type = 'C')
            ALTER TABLE Nalozi DROP CONSTRAINT CK_Nalozi_DatNal2
        Set @SSQL = ' ALTER TABLE dbo.Nalozi WITH NOCHECK ADD CONSTRAINT
        CK_Nalozi_DatNal2 CHECK (Datum_Nal > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ GSTAV  --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Nal Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal1' AND type = 'C')
            ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal1
        Set @SSQL = ' ALTER TABLE dbo.GStav WITH NOCHECK ADD CONSTRAINT
        CK_GStav_DatNal1 CHECK ((datepart(Year,Datum_Nal) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Nal)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Nal <= dateadd(day, ' + cast(@Idni_Denovi_Nal as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_GStav_DatNal2' AND type = 'C')
            ALTER TABLE GStav DROP CONSTRAINT CK_GStav_DatNal2
        Set @SSQL = ' ALTER TABLE dbo.GStav WITH NOCHECK ADD CONSTRAINT
        CK_GStav_DatNal2 CHECK (Datum_Nal > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ DOKR ----------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok1' AND type = 'C')             ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok1
        Set @SSQL = ' ALTER TABLE dbo.Dokr WITH NOCHECK ADD CONSTRAINT
        CK_Dokr_DatDok1 CHECK ((datepart(Year,Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Dok)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Dok <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Dokr_DatDok2' AND type = 'C')
            ALTER TABLE Dokr DROP CONSTRAINT CK_Dokr_DatDok2
        Set @SSQL = ' ALTER TABLE dbo.Dokr WITH NOCHECK ADD CONSTRAINT
        CK_Dokr_DatDok2 CHECK (Datum_Dok > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ NARACKI --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Nar Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar1' AND type = 'C')
            ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar1
        Set @SSQL = ' ALTER TABLE dbo.Naracki WITH NOCHECK ADD CONSTRAINT
        CK_Naracki_DatNar1 CHECK ((datepart(Year,Datum_Nar) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Nar)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Nar <= dateadd(day, ' + cast(@Idni_Denovi_Nar as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Naracki_DatNar2' AND type = 'C')
            ALTER TABLE Naracki DROP CONSTRAINT CK_Naracki_DatNar2
        Set @SSQL = ' ALTER TABLE dbo.Naracki WITH NOCHECK ADD CONSTRAINT
        CK_Naracki_DatNar2 CHECK (Datum_Nar > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ POPIS --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum1' AND type = 'C')
            ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum1
        Set @SSQL = ' ALTER TABLE dbo.Popis WITH NOCHECK ADD CONSTRAINT
        CK_Popis_Datum1 CHECK ((datepart(Year,Datum) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_Popis_Datum2' AND type = 'C')
            ALTER TABLE Popis DROP CONSTRAINT CK_Popis_Datum2
        Set @SSQL = ' ALTER TABLE dbo.Popis WITH NOCHECK ADD CONSTRAINT
        CK_Popis_Datum2 CHECK (Datum > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ KASSTAV -------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum1' AND type = 'C')
            ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum1
        Set @SSQL = ' ALTER TABLE dbo.KasStav WITH NOCHECK ADD CONSTRAINT
        CK_KasStav_Datum1 CHECK ((datepart(Year,Dod_Datum) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Dod_Datum)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Dod_Datum <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_KasStav_Datum2' AND type = 'C')
            ALTER TABLE KasStav DROP CONSTRAINT CK_KasStav_Datum2
        Set @SSQL = ' ALTER TABLE dbo.KasStav WITH NOCHECK ADD CONSTRAINT
        CK_KasStav_Datum2 CHECK (Dod_Datum > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ RABNAL --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum1' AND type = 'C')
            ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum1
        Set @SSQL = ' ALTER TABLE dbo.RabNal WITH NOCHECK ADD CONSTRAINT
        CK_RabNal_Datum1 CHECK ((datepart(Year,Datum_Otv) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Otv)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Otv <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RabNal_Datum2' AND type = 'C')
            ALTER TABLE RabNal DROP CONSTRAINT CK_RabNal_Datum2
        Set @SSQL = ' ALTER TABLE dbo.RabNal WITH NOCHECK ADD CONSTRAINT
        CK_RabNal_Datum2 CHECK (Datum_Otv > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ RAZLCENI --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok1' AND type = 'C')
            ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok1
        Set @SSQL = ' ALTER TABLE dbo.RazlCeni WITH NOCHECK ADD CONSTRAINT
        CK_RazlCeni_DatDok1 CHECK ((datepart(Year,Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Dok)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Dok <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlCeni_DatDok2' AND type = 'C')
            ALTER TABLE RazlCeni DROP CONSTRAINT CK_RazlCeni_DatDok2
        Set @SSQL = ' ALTER TABLE dbo.RazlCeni WITH NOCHECK ADD CONSTRAINT
        CK_RazlCeni_DatDok2 CHECK (Datum_Dok > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ RAZLFIN --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok1' AND type = 'C')
            ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok1
        Set @SSQL = ' ALTER TABLE dbo.RazlFin WITH NOCHECK ADD CONSTRAINT
        CK_RazlFin_DatDok1 CHECK ((datepart(Year,Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Dok)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Dok <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlFin_DatDok2' AND type = 'C')
            ALTER TABLE RazlFin DROP CONSTRAINT CK_RazlFin_DatDok2
        Set @SSQL = ' ALTER TABLE dbo.RazlFin WITH NOCHECK ADD CONSTRAINT
        CK_RazlFin_DatDok2 CHECK (Datum_Dok > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End
------ RAZLPROD --------------------------------------------------------------------------------------------------------------------------------------------
    If @Godina Is Not Null and @Idni_Denovi_Dok Is Not Null
    Begin
        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok1' AND type = 'C')
            ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok1
        Set @SSQL = ' ALTER TABLE dbo.RazlProd WITH NOCHECK ADD CONSTRAINT
        CK_RazlProd_DatDok1 CHECK ((datepart(Year,Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
        OR datepart(Year,Datum_Dok)= ' + Cast((@Godina+1) as varchar(4)) + ')
        and Datum_Dok <= dateadd(day, ' + cast(@Idni_Denovi_Dok as varchar(4)) + ', getdate()) )'
        Exec(@SSQL)
        print @SSQL
    End
    If @Zatvoreno_Do Is Not Null
    Begin        IF EXISTS (SELECT name FROM sysobjects WHERE name = 'CK_RazlProd_DatDok2' AND type = 'C')
            ALTER TABLE RazlProd DROP CONSTRAINT CK_RazlProd_DatDok2
        Set @SSQL = ' ALTER TABLE dbo.RazlProd WITH NOCHECK ADD CONSTRAINT
        CK_RazlProd_DatDok2 CHECK (Datum_Dok > ''' + Cast(@Zatvoreno_Do as varchar(30)) + ''') '
        Exec(@SSQL)
        print @SSQL
    End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kreiraj_triggeri_ogranicuvanja]'))
drop procedure [dbo].[sp_kreiraj_triggeri_ogranicuvanja]

Go
CREATE PROCEDURE sp_Kreiraj_Triggeri_Ogranicuvanja
AS
Declare @SSQL as varchar(8000)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlCeni_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  ' DROP TRIGGER tr_RazlCeni_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL = 'CREATE TRIGGER tr_RazlCeni_IzmeniBrisi
ON dbo.RazlCeni
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlProd_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_RazlProd_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL = 'CREATE TRIGGER tr_RazlProd_IzmeniBrisi
ON dbo.RazlProd
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_AnFinDok_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_AnFinDok_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_AnFinDok_IzmeniBrisi
ON dbo.AnFinDok
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RazlFin_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_RazlFin_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_RazlFin_IzmeniBrisi
ON dbo.RazlFin
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_GStav_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_GStav_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_GStav_IzmeniBrisi
ON dbo.GStav
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Dokr_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_Dokr_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_Dokr_IzmeniBrisi
ON dbo.Dokr
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Naracki_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_Naracki_IzmeniBrisi ' Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_Naracki_IzmeniBrisi
ON dbo.Naracki
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_Popis_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_Popis_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_Popis_IzmeniBrisi
ON dbo.Popis
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_KasStav_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_KasStav_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_KasStav_IzmeniBrisi
ON dbo.KasStav
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'tr_RabNal_IzmeniBrisi' AND type = 'TR')
    Set @SSQL =  'DROP TRIGGER tr_RabNal_IzmeniBrisi '  Exec(@SSQL)
Set @SSQL =  'CREATE TRIGGER tr_RabNal_IzmeniBrisi
ON dbo.RabNal
FOR DELETE, UPDATE
AS
BEGIN
    If Exists(Select Zaklucen From Deleted Where Zaklucen =''D'')
    Begin
        RaisError('' Zapisot e zaklucen i ne moze da se BRISE / MENUVA '' , 16, 1)
        Rollback Tran
    End
END '
Exec(@SSQL)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kumul_izvzaprod]'))
drop procedure [dbo].[sp_kumul_izvzaprod]

Go

CREATE    PROCEDURE sp_Kumul_IzvZaProd
    @Sifra_OE Smallint = 1,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 3,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(200) = Null,
    @Sifra_Brand Smallint = Null,
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi Varchar(200) = Null,
    @Sifra_Pat    smallint    = Null,
    @Sifra_Obj    smallint  = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Mest Int = Null,
    @KomercKako    char(1) = '',                 -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N
    @KolkuMesta    smallint = 6,        -- Se Odnesuva na podgrupite    2, 3, 4, 5, 6
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Mesecno_Dnevno    char(1) = 'M',    -- M - Mesecno,           D- Dnevno
    @TipDok_KnOdobr    smallint = Null,
    @DenKrVrednost    decimal(18,6) = Null Output,
    @KumKrVrednost    decimal(18,6) = Null Output
AS
    Declare @Datum_Od1 smalldatetime
    Declare @Datum_Do1 Smalldatetime
    If @Mesecno_Dnevno = 'D'
    Begin
        Set @Datum_Od1 = @Datum_Do
        Set @Datum_Do1 = @Datum_Do + 1
    End
    If @Mesecno_Dnevno = 'M'
    Begin
        Set @Datum_Od1 = cast(cast(year(@Datum_Do) as varchar(4)) +'-'+ cast(Month(@Datum_Do) as varchar(2)) +'-'+ '01'  as smalldatetime)
        If Month(@Datum_Do) = 12
            Set @Datum_Do1 = cast(cast((year(@Datum_do)+1) as varchar(4)) + '-01-01' as smalldatetime)
        Else
            Set @Datum_Do1 = cast(cast(year(@Datum_Do) as varchar(4)) +'-'+ cast((Month(@Datum_Do) + 1) as varchar(2)) +'-'+ '01' as smalldatetime)
--        Set @Datum_Do1 = @Datum_Do1 - 1
    End
--    print @Datum_Od1
--    print @Datum_Do1
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    CREATE           Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE TABLE #TopLista
    (
        Sifra_Art    varchar(20) Null,
        Sifra_Kup    char(6) Null,
        Sifra_Pat    smallint Null,
        Sifra_Podg     char(6) Null,
        Vr_Osnov    decimal(18, 4) NULL ,
        ProcRabat    decimal(12,2) NULL,
        Vr_Neto        decimal(18,6) NULL,
        Vr_RazVoCena    decimal(18,6) NULL,
        ProcRazlCena    decimal(12,2) Null,
        Vr_OsnovPer    decimal(18, 4) NULL ,
        ProcRabatPer    decimal(12,2) NULL,
        Vr_NetoPer    decimal(18,6) NULL,        --Per - Period Den ili mesec
        Vr_RazVoCenaPer    decimal(18,6) NULL,
        ProcRazlCenaPer    decimal(12,2) Null
    )
    CREATE TABLE #TopListaPeriod
    (
        Sifra_Art    varchar(20) Null,
        Sifra_Kup    char(6) Null,
        Sifra_Pat    smallint Null,
        Sifra_Podg    char(6) Null,
        Vr_Osnov    decimal(18, 4) NULL ,
        ProcRabat    decimal(6,2) NULL,
        Vr_Neto        decimal(18,6) NULL,
        Vr_RazVoCena    decimal(18,6) NULL,
        ProcRazlCena    decimal(6,2) Null
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav order by sifra_art
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
----------------------------------------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur, D.Sifra_Kup, D.Sifra_Pat, '
    If @KolkuMesta Is Not Null        Set @SSQL =  @SSQL + ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg, '
    Else
        Set @SSQL =  @SSQL +   ' K.Sifra_Podg, '
    SET @SSQL=@SSQL+' Round(Sum(dbo.fn_vr_Osnov(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) As Vr_Osnov, 0,
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Neto,
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) -
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.NabCena*TS.Cena/TS.VkCena, ''N'', S.POsn, 0, 0)), 4) As Vr_RazlVoCena,
                0, 0, 0, 0, 0, 0 '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
        Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null Or @KomercKako='T')
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo = 'D'
            Set @SSQL = @SSQL + 'And K.Sifra_Podg Like ''' + Rtrim(@Sifra_Podg) + '%'' '
        Else
            Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
      End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Sifra_Mest Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, D.Sifra_Pat, D.Sifra_Kup, '
    If @KolkuMesta Is Not Null
        Set @SSQL =  @SSQL +   ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ')  '
    Else
        Set @SSQL =  @SSQL +   ' K.Sifra_Podg '
    print (@ssql)
    Insert #TopLista Exec(@SSQL)
    --------------------------------------------------------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur, D.Sifra_Kup, D.Sifra_Pat, '
    If @KolkuMesta Is Not Null
        Set @SSQL =  @SSQL +   '  Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ') as Sifra_Podg, '
    Else
        Set @SSQL =  @SSQL +   '  K.Sifra_Podg, '
    SET @SSQL=@SSQL+' Round(Sum(dbo.fn_vr_Osnov(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) As Vr_Osnov, 0,
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Neto,
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) -
                Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fn_VratiCenaOsnov (S.NabCena*TS.Cena/TS.VkCena, ''N'', S.POsn, 0, 0)), 4) As Vr_RazlVoCena,
                0 '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID  And D.Sifra_Za=1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null)
        Or (@Pod4 Is Not Null) Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null)  Or (@Koi_Regioni Is Not Null Or @KomercKako='T')
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.TipKup In (' + @TipKup + ') '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo = 'D'
            Set @SSQL = @SSQL + 'And K.Sifra_Podg Like ''' + Rtrim(@Sifra_Podg) + '%'' '
        Else
            Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +'AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od1 As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do1 As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od1 As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<''' + Cast(@Datum_Do1 As Varchar(25)) + ''' '
           End
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Sifra_Mest Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, D.Sifra_Pat, D.Sifra_Kup, '
    If @KolkuMesta Is Not Null
        Set @SSQL =  @SSQL +   ' Substring(K.Sifra_Podg, 1, ' + cast(@KolkuMesta as varchar(1)) + ')  '
    Else
        Set @SSQL =  @SSQL +   ' K.Sifra_Podg '
    print (@ssql)
    Insert #TopListaPeriod Exec(@SSQL)
    --------------------------------------------------------------------------------------------
    Update #TopLista Set ProcRabat =((1- (Vr_Neto/Vr_Osnov)) * 100) Where Vr_Osnov <> 0
    Update #TopLista Set ProcRazlCena=Vr_RazVoCena/Vr_Neto*100 Where Vr_Neto<>0
    Update #TopListaPeriod Set ProcRabat =((1- (Vr_Neto/Vr_Osnov)) * 100) Where Vr_Osnov <> 0
    Update #TopListaPeriod Set ProcRazlCena=Vr_RazVoCena/Vr_Neto*100 Where Vr_Neto<>0

    Update #TopLista
    Set #TopLista.Vr_OsnovPer = #TopListaPeriod.Vr_Osnov,
        #TopLista.ProcRabatPer=#TopListaPeriod.ProcRabat,
        #TopLista.Vr_NetoPer=#TopListaPeriod.Vr_Neto,
        #TopLista.Vr_RazVoCenaPer=#TopListaPeriod.Vr_RazVoCena,
        #TopLista.ProcRazlCenaPer=#TopListaPeriod.ProcRazlCena
    From #TopListaPeriod
    Where #TopListaPeriod.Sifra_Podg=#TopLista.Sifra_Podg and #TopListaPeriod.Sifra_Art=#TopLista.Sifra_Art and #TopListaPeriod.Sifra_Pat=#TopLista.Sifra_Pat
        and #TopListaPeriod.Sifra_Kup=#TopLista.Sifra_Kup
    Set @SSQL =  'Select T.Sifra_Podg, P.Ime_Podg, T.Sifra_art, K.ImeArt, T.Sifra_Pat, Pat.ImePat, T.Sifra_Kup, Kup.ImeKup,
                Sum(T.Vr_Osnov) Vr_Osnov, Sum(T.ProcRabat) ProcRabat, Sum(T.Vr_Neto) Vr_Neto, Sum(T.Vr_RazVoCena) Vr_RazVoCena,
                Sum(T.ProcRazlCena) ProcRazlCena, Sum(T.Vr_OsnovPer) Vr_OsnovPer, Sum(T.ProcRabatPer) ProcRabatPer, Sum(T.Vr_NetoPer) Vr_NetoPer,
                Sum(T.Vr_RazVoCenaPer) Vr_RazVoCenaPer, Sum(T.ProcRazlCenaPer) ProcRazlCenaPer
                From #TopLista T
                Inner Join Podgrupi P On P.Sifra_Podg = T.Sifra_Podg
                Inner Join Katart K On K.Sifra_art = T.Sifra_art
                Left Outer Join Patnici Pat On Pat.Sifra_Pat = T.Sifra_Pat
                Left Outer Join Komint Kup On Kup.Sifra_Kup=T.Sifra_Kup
                Group By T.Sifra_Podg, P.Ime_Podg, T.Sifra_art, K.ImeArt, T.Sifra_Pat, Pat.ImePat, T.Sifra_Kup, Kup.ImeKup '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Podg '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.Ime_Podg '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By T.VrOsnov DESC'
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By T.ProcEabat DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By T.Vr_Neto DESC'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_RazlVoCena DESC'
    Exec(@SSQL)
-- Gi presmetuvame Output parametrite za Kniznite odobrenija za periodot i kumulativno
--    Declare @SSQLUsl as VarChar(8000)
    Set @SSQLUsl = ' '
    If @TipDok_KnOdobr Is Not Null
    Begin
        Create Table #KnzOdobr
        (
         OdobrDen    decimal(18,6)
        )
        Set @SSQL = 'Select  Sum(D.Dolzi-D.Pobaruva)
            From AnFinDok D
            Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup '
        Set @SSQL = @SSQL + 'Where Sifra_Dok = ' + cast(@TipDok_KnOdobr as varchar(10)) + ' '
        If @PoKojDatum = 'V'
        Begin
            If @Datum_Od Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
            If @Datum_Do Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
        End
        Else
             Begin
            If @Datum_Od Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
            If @Datum_Do Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
               End
        If @Sifra_OE Is Not NULL
                 Set @SSQLUsl  = @SSQLUsl + ' And D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
        If @KoiOE Is Not NULL
                 Set @SSQLUsl  = @SSQLUsl + ' And D.Sifra_OE IN (' + @KoiOE + ') '
        If @Sifra_Kup_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
        If @Sifra_Kup_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
        If @Koi_Gradovi Is Not NULL
                Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Grad In ( ' + @Koi_Gradovi + ') '
        If @Koi_Regioni Is Not NULL
                Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Reg In ( ' + @Koi_Regioni + ') '
        If @TipKup Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup In (' + @TipKup + ') '
           If @KomercKako = 'I'
            If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
           If @KomercKako = 'T'
            If @Sifra_Pat IS NOT NULL
                SET @SSQLUsl = @SSQLUsl + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
        If @Sifra_Obj IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
        If @Pod1 Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ' '        If @Pod2 Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ' '
        If @Pod3 Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ' '
        If @Pod4 Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ' '
        If @Pod5 Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ' '
        If @Sifra_Tip Is Not Null
            SET @SSQLUsl = @SSQLUsl +'And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
        If @Lokacija Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
        If @Sifra_Mest Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Mest =''' + Cast(@Sifra_Mest As Varchar(6)) + ''' '
    Insert Into #KnzOdobr exec(@SSQL+@SSQLUsl)
    Select @DenKrVrednost = OdobrDen From #KnzOdobr
    --Kumulativno
        Create Table #KnzOdobrKum
        (
         OdobrKum    decimal(18,6)
        )
        Set @SSQL = 'Select  Sum(D.Dolzi-D.Pobaruva)
            From AnFinDok D
            Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup '
        Set @SSQL = @SSQL + 'Where Sifra_Dok = ' + cast(@TipDok_KnOdobr as varchar(10)) + ' '
        If @PoKojDatum = 'V'
        Begin
            If @Datum_Od1 Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od1 As Varchar(25)) + ''' '
            If @Datum_Do1 Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do1 As Varchar(25)) + ''' '
        End
        Else
             Begin
            If @Datum_Od1 Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Od1 As Varchar(25)) + ''' '
            If @Datum_Do1 Is Not NULL
                Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Do1 As Varchar(25)) + ''' '
               End
        Insert Into #KnzOdobrKum Exec(@SSQL+@SSQLUsl)
        Select @KumKrVrednost = OdobrKum From #KnzOdobrKum
    End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kup_top10lista]'))
drop procedure [dbo].[sp_kup_top10lista]

Go




CREATE    PROCEDURE sp_Kup_Top10Lista
    @Sifra_OE Smallint = 1,
    @KoiOE Varchar(500) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 3,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Varchar(300) = Null,
    @Komint_KObj Char(1) = 'K',
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @RazbijSostav Char(1) = 'D',
    @ZalihaOdOE Varchar(100)=Null,
    @Koi_Gradovi Varchar(200) = Null,
    @SoPodgrupi    char(1) = 'D',
    @Sifra_Pat    varchar(300)    = Null,
    @Sifra_Obj    smallint  = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @KomercKako    char(1) = 'I',             -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Sifra_Nivo    char(2) = Null,
    @KojaCena    char(1) = Null,
    @PoGradovi    char(1) = 'N',
    @ImeArtDel    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup varchar(500)= null,
    @GrArt    varchar(500)= null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Declare @SSQL Varchar(8000)
    create    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    CREATE TABLE #TopLista
    (    [Sifra_Art] Varchar(20) NULL ,
        [Sifra_Kup] varchar(6) null,
        [Kolicina] [decimal](18, 4) NULL ,
        [UL] [decimal](18, 4) NULL ,
        [Volumen] [decimal](18, 4) NULL ,
        [Izlezi] [int] NULL ,
        [Vr_Osnov] [decimal](18, 4) NULL ,
        [Vr_SoRabat] [decimal](18, 4) NULL ,
        [Vr_Krajna] [decimal](18, 4) NULL ,
        [Vr_NPS] [decimal](18, 4) NULL ,
        Vr_Rabat    decimal(18,4) NULL,
        Vr_kasa        decimal(18,4) NULL,
        Vr_NabBezDDV    decimal(18,4) NULL,
        Vr_NabSoDDV    decimal(18,4) NULL,
        [Komintenti] [int] NULL ,
        [Zaliha] [decimal](18, 4) NULL,
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
--------------------------------------------------------------
    Set @SSQL = 'Select TS.Sifra_Sur As Sifra_Art, D.Sifra_Kup,
            Round(Sum(S.Kolic*TS.Ima_Kolic), 4) As Kolicina,
            Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) As UL,
            Round(Sum(S.Kolic*TS.Ima_Kolic * K.Volumen / 1000), 4) As Volumen,
            Count(TS.Sifra_Art) As Izlezi,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) As Vr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Krajna,
            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) As Vr_NPS,
            Round(Sum(dbo.fn_VratiRabatBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces)), 4) As Vr_Rabat,
            Round(Sum(dbo.fn_VratiKasaBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Kasa,
            Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV, '
    If @Komint_KObj = 'K'
        Set @SSQL =    @SSQL +
                'Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(6)),1,2)
                    When ''70'' Then 0
                    Else D.Sifra_Kup
                 End)) As Komintenti, '
    Else If @Komint_KObj = 'P'
        Set @SSQL =    @SSQL +
                'Count (Distinct(Case Substring(Cast(S.Sifra_Dok As Varchar(6)),1,2)
                    When ''70'' Then 0
                    Else D.Sifra_Obj
                 End)) As Komintenti, '
    Set @SSQL = @SSQL + 'Null As Zaliha '
    Set @SSQL = @SSQL + 'From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1 '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Left Outer Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    If @Sifra_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'Left Outer Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
            Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null) Or (@Sifra_Nivo Is Not Null) Or (@KojaCena Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @Koi_Gradovi Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Grad In (' + @Koi_Gradovi + ') '
    If @TipKup Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                        OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(5)) + ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Tip Is Not Null And KO.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')
                      Or (KO.Sifra_Tip Is Null And Kup.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')) '
           End
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + ' And K.Kto=' + @Kto + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    If @TipDokProd IS NOT NULL
        Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
       If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    Set @SSQL = @SSQL + 'Group By TS.Sifra_Sur, D.Sifra_Kup '
    Insert #TopLista Exec(@SSQL)
--    Select * from #TopLista
    If @ZalihaOdOE Is Not Null
        Begin
            Set @SSQL = 'Update #TopLista
                Set Zaliha = (Select Sum(Vlez)-Sum(Izlez) From Soart
                Where Sifra_OE In (' + @ZalihaOdOE + ')
                And #TopLIsta.Sifra_Art=Soart.Sifra_Art) '
            Exec(@SSQL)
        End
    Set @SSQL = 'Select'
    IF @Kolku IS NOT NULL
        Set @SSQL = @SSQL + ' TOP ' + Cast(@Kolku as varchar(15))
    Set @SSQL = @SSQL +  ' T.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Sifra,
            K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            T.Sifra_Kup, KUP.ImeKup, T.Kolicina, T.UL, T.Volumen, T.Izlezi, T.Vr_Osnov, T.Vr_SoRabat, T.Vr_Krajna,
            T.Vr_NPS, T.Vr_Rabat, T.Vr_Kasa, T.Vr_NabBezDDV, T.Vr_NabSoDDV, T.Komintenti, T.Zaliha '
    IF @SoPodgrupi = 'D'
        Set @SSQL = @SSQL + ', K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
    ELSE
        Set @SSQL = @SSQL + ', K.Sifra_Podg, '' '' as Ime_Podg, '' '' as Sifra_Gr, '' '' as Ime_Gr, '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' Kup.Sifra_Grad, G.ImeGrad '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Grad, Null ImeGrad '
    Set @SSQL = @SSQL + ' From #TopLista T
        Inner Join Katart K On T.Sifra_Art=K.Sifra_Art
        Left Outer Join Komint KUP On T.Sifra_Kup = KUP.Sifra_Kup '
    IF @SoPodgrupi = 'D'
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG ON K.Sifra_Podg = PG.Sifra_Podg
                     Inner Join Grupi G ON G.Sifra_Gr = PG.Sifra_Gr '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + 'Left Outer Join Grad G ON G.Sifra_Grad = Kup.Sifra_Grad '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi DESC'
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina DESC'
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna DESC'
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vr_NPS DESC'
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kup_toplista]'))
drop procedure [dbo].[sp_kup_toplista]

Go



CREATE                                 PROCEDURE sp_Kup_TopLista
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(500) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kolku Int = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup VarChar(300) = Null,
    @Komint_KObj Char(1) = 'K',
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi Varchar(200) = Null,
    @Sifra_Pat    varchar(300) = Null,
    @TipDokProd    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @PoProdMesta char(1) = 'N',
    @Sifra_Mest int = Null,
    @ProcPoArtikli char(1) = 'D',
    @KomercKako    char(1) = 'I',             -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
    @PoKojDatum    char(1) = 'D',         -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Posrednik    char(6) = Null,
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N      (Povrzano e so @Sifra_Podg)
    @PoGodini    char(1) = 'N',
    @PoMeseci    char(1) = 'N',
    @Sifra_Nivo    char(2) = Null,
    @KojaCena     char(1) = Null,
    @PoGradovi    char(1) = 'D',
    @ImeArtDel    varchar(20) = Null,
    @DevCena    char(1) = 'N',        -- Prikazi vrednost po devizna cena D - so danok,  B - bez Danok  N - ne
    @PrethBazaOd    char(1) = 'N',        -- K - Konfig (poleto PrethBaza)     ?T? - Nekoja tabela (FirParal ili Nekoja Nova za vo idnina)
    @ParalenliBazi     varchar(200) = Null,
    @Sifra_Div    smallint = Null,
    @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null

AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLFrom Varchar(8000)
    Declare @SSQLGroup Varchar(8000)
    Set @SSQLUsl = ' '
    Set @SSQLFrom = ' '
    Set @SSQLGroup = ' '

    If @GrKup Is Not Null
    Begin
    CREATE   Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

    If @GrArt Is Not Null
    Begin
        Create Table #GrArt
        (
            Sifra_Art    varchar(20)
        )
        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)

        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
        Exec(@SSQL)
    End


    -------------------------------------------------------------------------------- U S L O V ------------------------------------------------------------------------------------------------------------
    If @Sifra_Brand Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=' + Cast(@Sifra_BRand As Varchar(6)) + ' '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
             Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQLUsl=@SSQLUsl+'AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
            Set @SSQLUsl=@SSQLUsl + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6)) + ''' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6)) + ''' '
    If @GrKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup In (Select Distinct Sifra_Kup From SGrKup Where Sif_GrKup In ( ' + @GrKup + ' )) '
    If @Pod1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Pod1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                          Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
    If @Pod2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Pod2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                          Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @Pod3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Pod3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                          Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
    If @Pod4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Pod4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                          Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
    If @Pod5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Pod5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                          Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
    If @Pod6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Pod6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                          Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
    If @Pod7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Pod7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                          Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Tip Is Not Null And KO.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')
                      Or (KO.Sifra_Tip Is Null And Kup.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')) '
           End
    If @Sifra_Nivo Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Nivo = ''' + @Sifra_Nivo + ''' '
    If @KojaCena Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.KojaCena = ''' + @KojaCena + ''' '
       If @KomercKako = 'I'
        If @Sifra_Pat IS NOT NULL
            SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Pat In (' + @Sifra_Pat + ') '
       If @KomercKako = 'T'
        If @Sifra_Pat IS NOT NULL
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat In (' + @Sifra_Pat + '))
                            OR ( KO.Sifra_Pat Is Null and KUP.Sifra_Pat In (' + @Sifra_Pat + '))) '
    If @Sifra_Mest IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND D.Sifra_Mest = ' + Cast(@Sifra_Mest as varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
            OR ( KO.TipKup Is Null and KUP.TipKup In ( ' + @TipKup + '))) '
        End
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @TipDokProd IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Drugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
     If @ImeArtDel IS NOT NULL
        If IsNumeric(@ImeArtDel)=1
            Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Art Like ''' + @ImeArtDel + '%'' '
        Else
            Set @SSQLUsl = @SSQLUsl + ' And K.ImeArt Like ''' + @ImeArtDel + '%'' '
    If @Posrednik Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And PM.Posrednik=' + Cast(@Posrednik As Varchar(6)) + ' '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Declare @VkArt  integer
    Set @VkArt = 0
    If @ProcPoArtikli = 'D'
        Begin
            Create Table #Tab
            (
             Sifra_art varchar(20)
            )
            Set @SSQL = ' Select Distinct S.Sifra_art From Stavr S '
            If @PoKojDatum = 'V'
                Set @SSQL = @SSQL + ' Inner Join Dokr D ON S.DokrID=D.DokrID '
            Set @SSQL = @SSQL + '  Where 1=1 '
            If @PoKojDatum = 'V'
            Begin
                If @Datum_Od Is Not NULL
                    Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
                If @Datum_Do Is Not NULL
                    Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
            End
            Else
            Begin
                If @Datum_Od Is Not NULL
                    Set @SSQL = @SSQL + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
                If @Datum_Do Is Not NULL
                    Set @SSQL = @SSQL + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
            End
            Insert Into #Tab Exec (@SSQL)
            Set @VkArt = (Select Count (Distinct Sifra_Art) from #Tab)
        End
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -----------------------------------------------------------------------------  T O P    L I S T A ---------------------------------------------------------------------------------------------------
    Create Table #TopLista
    (
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Mest    int,
        Kolicina        decimal(18,4),
        BrendKolicina    decimal(18,4),
        Tezina        decimal(18,4),
        BTezina        decimal(18,4),
        Volumen    decimal(18,4),
        Paketi        decimal(18,2),
        Izlezi        int,
        Vr_Osnov    decimal(18,4),
        Vr_SoRabat    decimal(18,4),
        Vr_Krajna    decimal(18,4),
        Vk_NPS    decimal(18,4),
        Fakturi        int,
        Vr_NabBezDDV    decimal(18,4),
        Vr_NabSoDDV    decimal(18,4),
        Vr_PoGotCena    decimal(18,4),
        Vr_Rabat    decimal(18,4) NULL,
        Vr_kasa        decimal(18,4) NULL,
        Vr_Devizna    decimal(18,4),
        ProcentPoArt    decimal(18,4),
        Godina        smallint,
        Mesec        smallint,
        BrRazlPM smallint,
        BrStornoF smallint
    )
    Set @SSQL = ' Select D.Sifra_Kup, '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + ' Null as sifra_obj, '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + ' D.Sifra_Obj, '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + ' D.Sifra_Mest, '
    Else If @PoProdMesta = 'N'
        Set @SSQL = @SSQL + ' Null as Sifra_Mest, '
    Set @SSQL = @SSQL + '
        Round(Sum(TS.Ima_Kolic*S.Kolic), 4) As Kolicina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.KolkuDrg), 4) As BrendKolicina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.Tezina/1000),4) As Tezina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.BTezina/1000),4) As BTezina,
        Round(Sum(TS.Ima_Kolic*S.Kolic*K.Volumen/1000),4) As Volumen,
        Round(Sum(TS.Ima_Kolic*S.Kolic/(Case When K.ImaKomerc>0 Then K.ImaKomerc Else 1 End)),2) As Paketi,
        Count(S.Sifra_Art) As Izlezi,
        Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as Vr_Osnov,
        Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat,
        Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_Krajna,
        Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) Vk_NPS, Count(Distinct S.DokrID) As Fakturi,
        Round(Sum(S.Kolic * S.NabCena), 4) As Vr_NabBezDDV, Round(Sum(S.Kolic * S.NabCena * (1+S.POsn/100)), 4) As Vr_NabSoDDV,
        Round(Sum(S.Kolic * K.GotCena), 4) Vr_PoGotCena,
        Round(Sum(dbo.fn_VratiRabatBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces)), 4) As Vr_Rabat,
        Round(Sum(dbo.fn_VratiKasaBezDDV(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) As Vr_Kasa, '
    If @DevCena In  ('D', 'B')
        Set @SSQL = @SSQL + ' Round(Sum(S.Kolic * dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + (Case When @DevCena = 'B' Then 'N' Else 'D' End) + ''') / D.Kurs), 4) Vr_Devizna, '
    Else
        Set @SSQL = @SSQL + ' Null as Vr_Devizna, '
    If @ProcPoArtikli = 'D'  -- koga ke se gleda od dve bazi treba da se proveri kako ke raboti
        Set @SSQL=@SSQL + ' (Count(Distinct S.Sifra_art)/ ' + cast(@VkArt as Varchar(10)) + ')*100 as ProcentPoArt, '
    Else
        Set @SSQL=@SSQL + ' 0 as ProcentPoArt, '
    If @PoGodini = 'D'
        Set @SSQL=@SSQL + ' Year(S.Datum_Dok) Godina, '
    Else
        Set @SSQL=@SSQL + ' Null as Godina, '
    If @PoMeseci = 'D'
        Set @SSQL=@SSQL + ' Month(S.Datum_Dok) Mesec '
    Else
        Set @SSQL=@SSQL + ' Null as Mesec '
    set @SSQL = @SSQL + ', count(distinct (case when D.Sifra_Obj is null then 0 else D.Sifra_Obj end)),
                          count(case when TD.Plus_Minus = ''-'' then D.DokrId end) '
    ------- From Query
    Set @SSQLFrom = ' From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
        Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup
        Inner Join TipDok TD ON D.Sifra_Dok = TD.Sifra_Dok '
    If @PoProdMesta = 'D' or @Posrednik is not null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '   --D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup and
    If @Sifra_Gr Is Not Null
        Set @SSQLFrom = @SSQLFrom + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLFrom = @SSQLFrom + 'Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
    If @GrKup Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
    If @GrArt Is Not Null
        Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
    Set @SSQLFrom = @SSQLFrom + 'Where K.Iskluci <> ''D'' '
    --------- Group
    If @Komint_KObj = 'K'
        Set @SSQLGroup = @SSQLGroup + 'Group By D.Sifra_Kup   '
    Else If @Komint_KObj = 'O'
        Set @SSQLGroup = @SSQLGroup + 'Group By D.Sifra_Kup, D.Sifra_Obj '
    If @PoProdMesta = 'D'
        Set @SSQLGroup = @SSQLGroup + ' ,D.Sifra_Mest, PM.Opis '
    If @PoGodini = 'D'
        Set @SSQLGroup=@SSQLGroup + ' ,Year(S.Datum_Dok) '
    If @PoMeseci = 'D'
        Set @SSQLGroup=@SSQLGroup + ' ,Month(S.Datum_Dok) '
--print @SSQL + @SSQLFrom + @SSQLUsl + @SSQLGroup
    Insert Into #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLGroup)
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ------------------------------- P R E T H O D N I   B A Z I ----------------------------------
    If @PrethBazaOd = 'K' Or @ParalenliBazi Is Not Null
    Begin
        Declare @ImeBaza as varchar(30)
        Create Table #Bazi
        (
            ImeBaza    varchar(30)
        )
        If @PrethBazaOd = 'K'
        Begin
            Set @SSQLFrom = ' Insert Into #Bazi Select PrethBaza From Konfig '
            Exec (@SSQLFrom)
        End
        If @ParalenliBazi Is Not Null
        Begin
            Declare @Poz_Delim Smallint
            Declare @Poz_Start Smallint
            Declare @BazaIme varchar(50)
            If @ParalenliBazi Is Null
                Set @ParalenliBazi = ''
            Set @Poz_Start = 0
            While 1=1
            Begin
                Set @Poz_Delim = Charindex(',', @ParalenliBazi, @Poz_Start)
                If @Poz_Delim = 0
                    Break
                Set @BazaIme = SubString(@ParalenliBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
                Set @Poz_Start = @Poz_Delim + 1
                Insert Into #Bazi Select @BazaIme
            End
        End
        If Exists (Select ImeBaza From #Bazi)
        Begin
            Declare CursorBazi Cursor Fast_Forward For Select ImeBaza From #Bazi
            Open CursorBazi
            Fetch Next From CursorBazi Into @ImeBaza
            While @@Fetch_Status = 0
            Begin
                Set @SSQLFrom = ' From #tSostav TS
                    Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
                    Inner Join ' + @ImeBaza + '..Stavr S On TS.Sifra_Art=S.Sifra_Art
                    Inner Join ' + @ImeBaza + '..Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
                    Left Outer Join ' + @ImeBaza + '..Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                    Left Outer Join ' + @ImeBaza + '..KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup
                    Inner Join ' + @ImeBaza + '..TipDok TD ON D.Sifra_Dok = TD.Sifra_Dok'
                If @PoProdMesta = 'D' or @Posrednik is not null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join ' + @ImeBaza + '..ProdMest PM ON D.Sifra_Mest=PM.Sifra_Mest '   --D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup and
                If @Sifra_Gr Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
                If @Sifra_ZBrand Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join DrgPodel B On K.Sifra_Drg=B.Sifra_Drg '
                If @GrKup Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                                    And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
                If @GrArt Is Not Null
                    Set @SSQLFrom = @SSQLFrom + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
                Set @SSQLFrom = @SSQLFrom + ' Where K.Iskluci <> ''D'' '
                Insert Into #TopLista Exec(@SSQL + @SSQLFrom + @SSQLUsl + @SSQLGroup)
                Fetch Next From CursorBazi Into @ImeBaza
            End
            Close CursorBazi
            Deallocate CursorBazi
        End
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ------------------------------------------ R E Z U L T A T -------------------------------------------------------
    If @Kolku Is Not NULL
        Set @SSQL = 'Select Top ' + Cast(@Kolku As Varchar(6)) + ' '
    Else
        Set @SSQL = 'Select '
    Set @SSQL =    @SSQL + ' T.Sifra_Kup, '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + ' Null as imeobj, Null as sifra_obj, '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + ' T.Sifra_Obj, KO.imeobj, '
    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + ' T.Sifra_Mest, PM.Opis OpisMest, '
    Else If @PoProdMesta = 'N'
        Set @SSQL = @SSQL + ' Null as Sifra_Mest, Null as OpisMest, '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' (Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) Sifra_Grad, G.ImeGrad, '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_Grad, Null ImeGrad, '
    Set @SSQL = @SSQL + 'KUP.ImeKup, KUP.ImeKup2, Kup.Telefon,
        (Case When T.Sifra_Obj is not null Then KO.Adresa Else KUP.Adresa End) Adresa,
        (Case When T.Sifra_Obj is not null Then KO.Adresa2 Else KUP.Adresa2 End)Adresa2,
        (Case When T.Sifra_Obj is not null Then KO.SMesto Else KUP.SMesto End)SMesto, KUP.Posta, KUP.Zemja,
        Sum(Kolicina) Kolicina, Sum(BrendKolicina) BrendKolicina, Sum(Tezina) Tezina, Sum(BTezina) BTezina, Sum(Volumen) Volumen, Sum(Izlezi) Izlezi,
        Sum(Vr_Osnov) Vr_Osnov, Sum(Vr_SoRabat) Vr_SoRabat, Sum(Vr_Krajna) Vr_Krajna, Sum(Vk_NPS) Vk_NPS, Sum(Fakturi) Fakturi,
        Sum(Vr_NabBezDDV) Vr_NabBezDDV, Sum(Vr_NabSoDDV) Vr_NabSoDDV, Sum(Vr_Devizna) Vr_Devizna, SUM(Vr_Rabat) Vr_Rabat, SUM(Vr_Kasa) Vr_Kasa,
        Sum(Vr_PoGotCena) Vr_PoGotCena,
        Round(Sum(Tezina/100), 4) Hektolitri, Sum(Paketi) Paketi, KUP.Sifra_Pat,
        T.Sifra_Kup+(Case When T.Sifra_Obj < 10 Then ''00''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >9 And T.Sifra_Obj < 100 Then ''0''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >99 And T.Sifra_Obj < 1000 Then Cast(T.Sifra_Obj as varchar(6)) Else ''000'' End) Sifra,
        (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End) KDrugo6, K6.Ime_6K,
        (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End) KDrugo7, K7.Ime_7K, '
    If @ProcPoArtikli = 'D'
        Set @SSQL=@SSQL + ' Avg(ProcentPoArt) ProcentPoArt, '
    Else
        Set @SSQL=@SSQL + ' 0 as ProcentPoArt, '
    If @PoGodini = 'D'
        Set @SSQL=@SSQL + ' Godina, '
    Else
        Set @SSQL=@SSQL + ' Null as Godina, '
    If @PoMeseci = 'D'
        Set @SSQL=@SSQL + ' Mesec '
    Else
        Set @SSQL=@SSQL + ' Null as Mesec '
    set @SSQL = @SSQL + ',BrRazlPM, BrStornoF '
    Set @SSQL = @SSQL + ' From #TopLista T
        Left Outer Join Komint KUP ON T.Sifra_Kup=KUP.Sifra_Kup
        Left Outer Join KObjekti KO ON T.Sifra_obj=KO.Sifra_obj and T.Sifra_kup=KO.Sifra_kup
        Left Outer Join KDrugo6 K6 On K6.Sifra_6K=(Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End)
        Left Outer Join KDrugo7 K7 On K7.Sifra_7K=(Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End) '
    If @PoProdMesta = 'D' or @Posrednik is not null
        Set @SSQL = @SSQL + ' Inner Join ProdMest PM ON T.Sifra_Mest=PM.Sifra_Mest '   --D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup and
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Grad G ON G.Sifra_Grad=(Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End) '
    If @Komint_KObj = 'K'
        Set @SSQL = @SSQL + 'Group By T.Sifra_Kup,  KUP.ImeKup, KUP.ImeKup2, Kup.Telefon,
                (Case When T.Sifra_Obj is not null Then KO.Adresa Else KUP.Adresa End),
                                (Case When T.Sifra_Obj is not null Then KO.Adresa2 Else KUP.Adresa2 End),
                                (Case When T.Sifra_Obj is not null Then KO.Smesto Else KUP.Smesto End), KUP.Posta, KUP.Zemja, KUP.Sifra_Pat,
                            T.Sifra_Kup+(Case When T.Sifra_Obj < 10 Then ''00''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >9 And T.Sifra_Obj < 100 Then ''0''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >99 And T.Sifra_Obj < 1000 Then Cast(T.Sifra_Obj as varchar(6)) Else ''000'' End),BrRazlPM, BrStornoF,  '
    Else If @Komint_KObj = 'O'
        Set @SSQL = @SSQL + 'Group By T.Sifra_Kup, T.Sifra_Obj, KO.Imeobj,  KUP.ImeKup, KUP.ImeKup2, Kup.Telefon,
                (Case When T.Sifra_Obj is not null Then KO.Adresa Else KUP.Adresa End),
                                (Case When T.Sifra_Obj is not null Then KO.Adresa2 Else KUP.Adresa2 End),
                                (Case When T.Sifra_Obj is not null Then KO.Smesto Else KUP.Smesto End), KUP.Posta, KUP.Zemja, KUP.Sifra_Pat,
                                T.Sifra_Kup+(Case When T.Sifra_Obj < 10 Then ''00''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >9 And T.Sifra_Obj < 100 Then ''0''+Cast(T.Sifra_Obj as varchar(6))
                            When T.Sifra_Obj >99 And T.Sifra_Obj < 1000 Then Cast(T.Sifra_Obj as varchar(6)) Else ''000'' End),BrRazlPM, BrStornoF, '
    Set @SSQL = @SSQL + ' (Case When KO.KDrugo6 Is Not Null Then KO.KDrugo6 Else Kup.KDrugo6 End), K6.Ime_6K,
                (Case When KO.KDrugo7 Is Not Null Then KO.KDrugo7 Else Kup.KDrugo7 End), K7.Ime_7K '

    If @PoProdMesta = 'D'
        Set @SSQL = @SSQL + ' ,T.Sifra_Mest, PM.Opis '
    If @PoGradovi = 'D'
        Set @SSQL = @SSQL + ' ,(Case When KO.Sifra_Grad Is Not Null Then KO.Sifra_Grad Else Kup.Sifra_Grad End), G.ImeGrad '
    If @PoGodini = 'D'
        Set @SSQL=@SSQL + ' ,Godina '
    If @PoMeseci = 'D'
        Set @SSQL=@SSQL + ' ,Mesec '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By T.Sifra_Kup '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By KUP.ImeKup '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Izlezi Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By Kolicina Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By Vr_Krajna Desc '
    Else If @Podred = '4'
        Set @SSQL = @SSQL + 'Order By Vk_NPS DESC'
    Exec (@SSQL)
    Print @SSQL
    Set Nocount Off

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kursnirazliki]'))
drop procedure [dbo].[sp_kursnirazliki]

Go



CREATE    PROCEDURE sp_KursniRazliki
    @Datum_Do    smalldatetime,
    @Valuta    char(3),
    @Sifra_Oe    smallint = Null,
    @Sifra_Kup_Od    char(6) = Null,
    @Sifra_Kup_Do    char(6) = Null,
    @Kto        char(10) = Null,
    @Sifra_Za    char(1) = Null
AS
    IF @Sifra_Za='K' SET @Sifra_Za='1'
    IF @Sifra_Za='D' SET @Sifra_Za='2'
    Declare @SSQL as Varchar(8000)
    Create Table #KursNaDat
    (
    SImeVal        char(3),
    Kurs        decimal(9,6)
    )
    Insert Into #KursNaDat Select Top 1 SImeVal, KursSreden
    From KrsVaznost Where Datum <=  cast(@Datum_Do as varchar(35)) and SImeVal = @Valuta    Order By Datum desc
    --SaldoDev=Sum(CASE A.Sifra_Za WHEN ''1'' Then A.Dev_Dolzi-A.Dev_Pobaruva Else A.Dev_Pobaruva-A.Dev_Dolzi End),
    --SaldoDen=Sum(CASE A.Sifra_Za WHEN ''1'' Then A.Dolzi-A.Pobaruva Else A.Pobaruva-A.Dolzi End) ,
    Set @SSQL = ' Select A.Kto, A.Sifra_Kup, A.KojaVal, A.Sifra_Za, K.ImeKup,
            Sum(A.Dev_Dolzi-A.Dev_Pobaruva) SaldoDev,
            Round(Sum(A.Dolzi-A.Pobaruva),0) SaldoDen,
            Round(Sum((A.Dev_Dolzi - A.Dev_Pobaruva) * V.Kurs), 0) SaldoDenKurs, V.Kurs
            From AnFinDok A
            INNER JOIN Komint K ON A.Sifra_Kup = K.Sifra_Kup
            Left Outer Join #KursNaDat V On V.SImeVal = A.KojaVal
            Where Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' and SImeVal = ' + @Valuta + ' '
    If  @Sifra_Za Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Za = ' + @Sifra_Za + ' '
    If  @Valuta Is Not Null
        Set @SSQL = @SSQL + ' and V.SImeVal = ' + @Valuta + ' '
    If  @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Kup >= ' + @Sifra_Kup_Od + ' '
    If  @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Kup <= ' + @Sifra_Kup_Do + ' '
    If  @Kto Is Not Null
        Set @SSQL = @SSQL + ' and A.Kto = ''' + @Kto + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By A.Kto, A.Sifra_Kup, A.KojaVal, A.Sifra_Za, K.ImeKup, V.Kurs
            HAVING Sum((A.Dev_Dolzi - A.Dev_Pobaruva) * V.Kurs) - Sum(A.Dolzi - A.Pobaruva) <> 0
            Order By A.Sifra_Kup, A.Kto, A.Sifra_Za '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_kursnirazlikiglk]'))
drop procedure [dbo].[sp_kursnirazlikiglk]

Go



CREATE        PROCEDURE sp_KursniRazlikiGLK
    @Datum_Do    smalldatetime,
    @Valuta    char(3),
    @Sifra_Oe    smallint = Null,
    @Kto        char(10) = Null
AS
    Declare @SSQL as Varchar(8000)
    CREATE TABLE #TmpKrsRazlGlk
    (Sifra_OE    smallint,
    Kto_Anal    char(10),
    KojaVal        char(3),
    Sifra_Nal    smallint,
    Broj_Nal    int,
    Datum_Nal    smalldatetime,
    Dolzi        decimal(18,4),
    Pobaruva    decimal(18,4))
    SET @SSQL = 'SELECT Sifra_OE, Kto, KojaVal, Sifra_Nal, Broj_Nal, Datum_Nal, Sum(Dolzi), Sum(Pobaruva)
    FROM AnFinDok WHERE Sifra_Dok IN (809, 810) AND Datum_Dok='''+cast(@Datum_Do as varchar(35)) + ''' '
    If  @Valuta Is Not Null
        Set @SSQL = @SSQL + ' and KojaVal = ' + @Valuta + ' '
    If  @Kto Is Not Null
        Set @SSQL = @SSQL + ' and Kto = ' + @Kto + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By Sifra_OE, Kto, KojaVal, Sifra_Nal, Broj_Nal, Datum_Nal'
    INSERT INTO #TmpKrsRazlGlk Exec(@SSQL)
--------- ova ke bide dopolna za konta bez subanalitiki
/*    Declare @God as int
    SET @God = YEAR(@Datum_Do)
    Create Table #KursNaDat
    (SImeVal    char(3),
    Kurs        decimal(9,6))
    Insert Into #KursNaDat Select Top 1 SImeVal, KursSreden
    From KrsVaznost Where Datum <=  cast(@Datum_Do as varchar(35)) and SImeVal = @Valuta    Order By Datum desc
    CREATE TABLE #TmpGSt
(    Sifra_OE    smallint,
    Kto_Anal    char(10),
    KojaVal        char(3),
    Dev_Dolzi    decimal(18,4),
    Dev_Pobaruva decimal(18,4),
    Dolzi        decimal(18,4),
    Pobaruva    decimal(18,4)
)
    Set @SSQL = 'Select A.Sifra_OE, A.Kto_Anal, A.KojaVal, Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva),
            Sum(A.Dolzi), Sum(A.Pobaruva) From GStav A
            Where A.Kto_Anal IN (Select Kto_Anal From Anal Where DaliDev=''D'' AND DaliOrg=''D'' AND (DaliKupuv IS NULL OR DaliKupuv=''N''))
            And A.Datum_Nal <= ''' + cast(@Datum_Do as varchar(35)) +
            ''' and A.KojaVal = ' + @Valuta + ' AND Year(A.Datum_Nal)=' + cast(@god as char(4))
    If  @Valuta Is Not Null
        Set @SSQL = @SSQL + ' and A.KojaVal = ' + @Valuta + ' '
    If  @Kto Is Not Null
        Set @SSQL = @SSQL + ' and A.Kto_Anal = ' + @Kto + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By A.Sifra_OE, A.Kto_Anal, A.KojaVal Order By A.Kto_Anal '
    INSERT INTO #TmpGSt Exec(@SSQL)
    Set @SSQL = 'Select Null, A.Kto_Anal, A.KojaVal, Sum(A.Dev_Dolzi), Sum(A.Dev_Pobaruva),
            Sum(A.Dolzi), Sum(A.Pobaruva) From GStav A
            Where A.Kto_Anal IN (Select Kto_Anal From Anal Where DaliDev=''D'' AND DaliOrg=''D'' AND (DaliKupuv IS NULL OR DaliKupuv=''N''))
            And A.Datum_Nal <= ''' + cast(@Datum_Do as varchar(35)) +
            ''' and A.KojaVal = ' + @Valuta + ' AND Year(A.Datum_Nal)=' + cast(@god as char(4))
    If  @Valuta Is Not Null
        Set @SSQL = @SSQL + ' and A.KojaVal = ' + @Valuta + ' '
    If  @Kto Is Not Null
        Set @SSQL = @SSQL + ' and A.Kto_Anal = ' + @Kto + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By A.Kto_Anal, A.KojaVal Order By A.Kto_Anal '
    INSERT INTO #TmpGSt Exec(@SSQL)
    CREATE TABLE #TmpRazl
(    Kto_Anal    char(10),
    DP            char(1),
    KojaVal        char(3),
    SaldoDev    decimal(18,4),
    SaldoDen    decimal(18,4),
    SaldoDenKurs decimal(18,4),
    Kurs        decimal(18,8))
    INSERT INTO #TmpRazl SELECT A.Kto_Anal, 'D', A.KojaVal, A.Dev_Dolzi-A.Dev_Pobaruva SaldoDev,
    A.Dolzi-A.Pobaruva SaldoDen,Round((A.Dev_Dolzi-A.Dev_Pobaruva)*V.Kurs,0) SaldoDenKurs, V.Kurs
    From #TmpGSt A
    Left Outer Join #KursNaDat V On V.SImeVal = A.KojaVal
    Where A.Dev_Dolzi>A.Dev_Pobaruva
    INSERT INTO #TmpRazl SELECT A.Kto_Anal, 'P', A.KojaVal, A.Dev_Pobaruva-A.Dev_Dolzi SaldoDev,
    A.Pobaruva-A.Dolzi SaldoDen,Round((A.Dev_Pobaruva-A.Dev_Dolzi)*V.Kurs,0) SaldoDenKurs, V.Kurs
    From #TmpGSt A
    Left Outer Join #KursNaDat V On V.SImeVal = A.KojaVal
    Where A.Kto_Anal NOT IN (SELECT Kto_Anal FROM #TmpRazl)
    INSERT INTO #TmpKrsRazlGlk (Sifra_OE,Kto_Anal,KojaVal,Sifra_Nal,Broj_Nal,Datum_Nal,Dolzi,Pobaruva)
    SELECT * FROM #TmpRazl WHERE SaldoDev * Kurs - SaldoDen <> 0 order by Kto_Anal
*/
----------
    SELECT * FROM #TmpKrsRazlGlk WHERE Dolzi <> 0 OR Pobaruva<>0 order by Kto_Anal, KojaVal





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lagerlistaporabotnik]'))
drop procedure [dbo].[sp_lagerlistaporabotnik]

Go

CREATE  procedure sp_LagerListaPoRabotnik
    @Sifra_Rab_Od smallint,
    @Sifra_Rab_Do smallint
As

    Declare @@SSQL as varchar(6000)
    Set @@SSQL='Select OS.Sifra_rab, R.ImeRab, count(distinct OS.Inv_Broj) BrojPredmeti, Sum(OS.Orig_Nab_Vr) Iznos
                From OsnSred OS
                Inner Join Rabotnik R on OS.Sifra_rab=R.Sifra_Rab
                Where 1=1 and OS.DatPrest is null ' --za otpisanite da ne se zemaat vo lager listata
    If @Sifra_Rab_Od is not null
        Set @@SSQL=@@SSQL+ ' And OS.Sifra_Rab>='+cast(@Sifra_Rab_od as varchar(7))+ ' '
    If @Sifra_Rab_Do is not null
        Set @@SSQL=@@SSQL+ ' And OS.Sifra_Rab<='+cast(@Sifra_Rab_Do as varchar(7))+ ' '
    Set @@SSQL=@@SSQL+ 'Group by OS.Sifra_rab, R.ImeRab, OS.DatPrest'
print @@SSQL
exec(@@SSQL)













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lan_prodazbapoperiodi]'))
drop procedure [dbo].[sp_lan_prodazbapoperiodi]

Go
CREATE PROCEDURE sp_Lan_ProdazbaPoPeriodi
    @Godina    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Oe    smallint = Null,
    @KoiOe    varchar(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Drg    smallint = Null,
    @ADrugo1    smallint = Null,
    @ADrugo2    smallint = Null,
    @ADrugo3    smallint = Null,
    @ADrugo4    smallint = Null,
    @ADrugo5    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Oe In (Select Sifra_Oe From SGrorg Where Sif_GrOrg= ''' + @KoiOe + ''') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Drg = ' + cast(@Sifra_Drg as varchar(6)) + ' '
    If @ADrugo1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1 = ' + cast(@ADrugo1 as varchar(6)) + ' '
    If @ADrugo2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2 = ' + cast(@ADrugo2 as varchar(6)) + ' '
    If @ADrugo3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3 = ' + cast(@ADrugo3 as varchar(6)) + ' '
    If @ADrugo4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4 = ' + cast(@ADrugo4 as varchar(6)) + ' '
    If @ADrugo5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5 = ' + cast(@ADrugo5 as varchar(6)) + ' '
    Create Table #Rez
    (
     Sifra_Art    varchar(20),
     PocSost    decimal(18,6),
     VkPriem    decimal(18,6),
     Period1        decimal(18,6),
     Period2        decimal(18,6),
     Period3        decimal(18,6),
     Period4        decimal(18,6),
     Period5        decimal(18,6),
     Period6        decimal(18,6),
     Period7        decimal(18,6),
     Period8        decimal(18,6),
     Period9        decimal(18,6),
     Period10    decimal(18,6),
     Period11    decimal(18,6),
     Period12    decimal(18,6),
     Period13    decimal(18,6),
     VkProd        decimal(18,6),
     ImaPaleta    smallint
    )
    Set @SSQL = ' Select S.Sifra_Art, 0, 0,
            Sum(Case When P.Period = 1 Then S.Kolic Else 0 End) Period1,
            Sum(Case When P.Period = 2 Then S.Kolic Else 0 End) Period2,
            Sum(Case When P.Period = 3 Then S.Kolic Else 0 End) Period3,
            Sum(Case When P.Period = 4 Then S.Kolic Else 0 End) Period4,
            Sum(Case When P.Period = 5 Then S.Kolic Else 0 End) Period5,
            Sum(Case When P.Period = 6 Then S.Kolic Else 0 End) Period6,
            Sum(Case When P.Period = 7 Then S.Kolic Else 0 End) Period7,
            Sum(Case When P.Period = 8 Then S.Kolic Else 0 End) Period8,
            Sum(Case When P.Period = 9 Then S.Kolic Else 0 End) Period9,
            Sum(Case When P.Period = 10 Then S.Kolic Else 0 End) Period10,
            Sum(Case When P.Period = 11 Then S.Kolic Else 0 End) Period11,
            Sum(Case When P.Period = 12 Then S.Kolic Else 0 End) Period12,
            Sum(Case When P.Period = 13 Then S.Kolic Else 0 End) Period13,
            0 VkProd, 0 ImaPaleta
            From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrId
        Inner Join Periodi P On P.DatPerOd<=S.Datum_Dok And P.DatPerDo>=S.Datum_Dok
        Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''1'' And Year(S.Datum_DoK) = ' + Cast(@Godina as varchar(4)) + '
                And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' and S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art, P.Period '
    Insert Into #Rez Exec(@SSQL)
    -------------------------------------- PRETHODNA  SOSTOJBA -------------------------------------------------
    Create Table #Zal
    (
     Sifra_Art    varchar(20),
     Sostojba    decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(Case When D.VlIzl=''V'' Then S.Kolic Else -1*S.Kolic End)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrId
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where S.Datum_Dok < ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '
    Insert Into #Zal Exec(@SSQL)
    -------------------------------------------------------------------------------------------------------------------------------------
    ----------------------------------------- PRIEM VO PERIODOT -----------------------------------------------------
    Create Table #Priem
    (
     Sifra_Art    varchar(20),
     Priem        decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrId
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''1'' And Year(S.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' and S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '
    Insert Into #Priem Exec(@SSQL)
    -------------------------------------------------------------------------------------------------------------------------------------
    Insert Into #Rez
    Select Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From #Zal Where Sifra_Art Not In (Select Sifra_Art From #Rez)
    Insert Into #Rez
    Select Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From #Priem Where Sifra_Art Not In (Select Sifra_Art From #Rez)
    Update #Rez Set PocSost=#Zal.Sostojba
    From #Zal
    Where #Zal.Sifra_Art=#Rez.Sifra_Art
    Update #Rez Set VkPriem=#Priem.Priem
    From #Priem
    Where #Priem.Sifra_Art=#Rez.Sifra_Art
    Create Table #VkProd
    (
     Sifra_Art    varchar(20),
     VkProd        decimal(18,6)
    )
    Insert Into #VkProd
    Select Sifra_Art, Sum(Period1+Period2+Period3+Period4+Period5+Period6+Period7+Period8+Period9+Period10+Period11+Period12+Period13)
    From #Rez
    Group By Sifra_Art
    Update #Rez Set VkProd=#VkProd.VkProd
    From #VkProd
    Where #VkProd.Sifra_Art=#Rez.Sifra_Art
    Update #Rez
    Set ImaPaleta = (Case When Katart.ImaPaleta Is Null Or Katart.ImaPaleta = 0 Then 1 Else Katart.ImaPaleta End)
    From Katart
    Where Katart.Sifra_Art=#Rez.Sifra_Art
    Select R.Sifra_Art, K.ImeArt, R.PocSost, R.VkPriem,
        Sum(R.Period1) Period1, Sum(R.Period2) Period2, Sum(R.Period3) Period3, Sum(R.Period4) Period4, Sum(R.Period5) Period5, Sum(R.Period6) Period6,
        Sum(R.Period7) Period7, Sum(R.Period8) Period8, Sum(R.Period9) Period9, Sum(R.Period10) Period10, Sum(R.Period11) Period11, Sum(R.Period12) Period12,
        Sum(R.Period13) Period13, R.VkProd, (R.VkProd/R.ImaPaleta) Paleti
    From #Rez R
    Inner Join Katart K On K.Sifra_Art= R.Sifra_Art
    Group by R.Sifra_Art, K.ImeArt, R.PocSost, R.VkPriem, R.VkProd, R.ImaPaleta
    Order By R.Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lan_prodazbazaperiod]'))
drop procedure [dbo].[sp_lan_prodazbazaperiod]

Go
CREATE PROCEDURE sp_Lan_ProdazbaZaPeriod
    @Godina    smallint,
    @Period    smallint,
    @Sifra_Oe    smallint = Null,
    @KoiOe    varchar(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Drg    smallint = Null,
    @ADrugo1    smallint = Null,
    @ADrugo2    smallint = Null,
    @ADrugo3    smallint = Null,
    @ADrugo4    smallint = Null,
    @ADrugo5    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Oe In (Select Sifra_Oe From SGrorg Where Sif_GrOrg= ''' + @KoiOe + ''') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Drg = ' + cast(@Sifra_Drg as varchar(6)) + ' '
    If @ADrugo1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1 = ' + cast(@ADrugo1 as varchar(6)) + ' '
    If @ADrugo2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2 = ' + cast(@ADrugo2 as varchar(6)) + ' '
    If @ADrugo3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3 = ' + cast(@ADrugo3 as varchar(6)) + ' '
    If @ADrugo4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4 = ' + cast(@ADrugo4 as varchar(6)) + ' '
    If @ADrugo5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5 = ' + cast(@ADrugo5 as varchar(6)) + ' '
    Declare @DatPerOd Smalldatetime
    Declare @DatPerDo Smalldatetime
    Select @DatPerOd = DatPerOd, @DatPerDo=DatPerDo From Periodi Where Godina=@Godina And Period=@Period
    --Select @DatPerOd, @DatPerDo
    Create Table #Nedeli
    (
     Period        smallint,
     Nedela        smallint,
     DatNedOd    smalldatetime,
     DatNedDo    smalldatetime
    )
    Declare @DatNedOd    smalldatetime
    Declare @DatNedDo    smalldatetime
    Declare @I as smallint
    Set @I=1
    Set @DatNedOd = @DatPerOd
    While @I <= 4
    Begin
        Set @DatNedDo=DateAdd(day, 6, @DatNedOd)
        If @I=4 And @DatNedDo <> @DatPerDo
            Set @DatNedDo = @DatPerDo
        Insert Into #Nedeli Select @Period, @I, @DatNedOd, @DatNedDo
        Set @DatNedOd=DateAdd(day, 1, @DatNedDo)
        Set @I=@I+1
    End
    --Select * from #Nedeli
    Create Table #Rez
    (
     Sifra_Art    varchar(20),
     PocSost    decimal(18,6),
     VkPriem    decimal(18,6),
     Nedela1    decimal(18,6),
     Nedela2    decimal(18,6),
     Nedela3    decimal(18,6),
     Nedela4    decimal(18,6),
     VkProd        decimal(18,6),
     NedProsProd    decimal(18,6),
     Zaliha        decimal(18,6),
     ImaPaleta    smallint
    )
    Set @SSQL = ' Select S.Sifra_Art, 0, 0,
            Sum(Case When N.Nedela = 1 Then S.Kolic Else 0 End) Nedela1,
            Sum(Case When N.Nedela = 2 Then S.Kolic Else 0 End) Nedela2,
            Sum(Case When N.Nedela = 3 Then S.Kolic Else 0 End) Nedela3,
            Sum(Case When N.Nedela = 4 Then S.Kolic Else 0 End) Nedela4,
            0, 0, 0, 0
            From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrId
        Inner Join #Nedeli N On N.DatNedOd<=S.Datum_Dok And N.DatNedDo>=S.Datum_Dok
        Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''1''
                And S.Datum_Dok >= ''' + Cast(@DatPerOd as varchar(30)) + ''' and S.Datum_Dok <= ''' + Cast(@DatPerDo as varchar(30)) + ''' ' -- ova i ne mora
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art, N.Nedela '
    Insert Into #Rez Exec(@SSQL)
    -------------------------------------- PRETHODNA  SOSTOJBA -------------------------------------------------
    Create Table #Zal
    (
     Sifra_Art    varchar(20),
     Sostojba    decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(Case When D.VlIzl=''V'' Then S.Kolic Else -1*S.Kolic End)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrId
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where S.Datum_Dok < ''' + Cast(@DatPerOd as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '
    Insert Into #Zal Exec(@SSQL)
    -------------------------------------------------------------------------------------------------------------------------------------
    ----------------------------------------- PRIEM VO PERIODOT -----------------------------------------------------
    Create Table #Priem
    (
     Sifra_Art    varchar(20),
     Priem        decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, Sum(S.Kolic)
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrId
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where D.Sifra_Za = ''2''
                  And S.Datum_Dok >= ''' + Cast(@DatPerOd as varchar(30)) + ''' and S.Datum_Dok <= ''' + Cast(@DatPerDo as varchar(30)) + ''' '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '
    Insert Into #Priem Exec(@SSQL)
    -------------------------------------------------------------------------------------------------------------------------------------
    Insert Into #Rez
    Select Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From #Zal Where Sifra_Art Not In (Select Sifra_Art From #Rez)
    Insert Into #Rez
    Select Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From #Priem Where Sifra_Art Not In (Select Sifra_Art From #Rez)
    Update #Rez Set PocSost=#Zal.Sostojba
    From #Zal
    Where #Zal.Sifra_Art=#Rez.Sifra_Art
    Update #Rez Set VkPriem=#Priem.Priem
    From #Priem
    Where #Priem.Sifra_Art=#Rez.Sifra_Art
    Create Table #VkProd
    (
     Sifra_Art    varchar(20),
     VkProd        decimal(18,6)
    )
    Insert Into #VkProd
    Select Sifra_Art, Sum(Nedela1+Nedela2+Nedela3+Nedela4)
    From #Rez
    Group By Sifra_Art
    Update #Rez Set VkProd=#VkProd.VkProd
    From #VkProd
    Where #VkProd.Sifra_Art=#Rez.Sifra_Art
    Update #Rez
    Set NedProsProd=(VkProd/4), Zaliha=PocSost+VkPriem-VkProd
    Update #Rez
    Set ImaPaleta = (Case When Katart.ImaPaleta Is Null Or Katart.ImaPaleta = 0 Then 1 Else Katart.ImaPaleta End)
    From Katart
    Where Katart.Sifra_Art=#Rez.Sifra_Art
    Select R.Sifra_Art, K.ImeArt, R.PocSost, R.VkPriem, Sum(R.Nedela1) Nedela1, Sum(R.Nedela2) Nedela2, Sum(R.Nedela3) Nedela3, Sum(R.Nedela4) Nedela4,
        R.NedProsProd, (R.NedProsProd/R.ImaPaleta) NedProsPaleta, R.VkProd, (R.VkProd/R.ImaPaleta) VkProdPaleta,
        (R.PocSost+R.VkPriem-R.VkProd) Zaliha, (R.PocSost+R.VkPriem-R.VkProd)/R.ImaPaleta ZalihaPaleta,
        (Case When R.NedProsProd <> 0 Then ((R.PocSost+R.VkPriem-R.VkProd)/R.NedProsProd) Else 0 End) NedZal,
        (Case When R.NedProsProd <> 0 Then (((R.PocSost+R.VkPriem-R.VkProd)/R.NedProsProd)/4) Else 0 End) NedZalPeriodi
    From #Rez R
    Inner Join Katart K On K.Sifra_Art= R.Sifra_Art
    Group by R.Sifra_Art, K.ImeArt, R.PocSost, R.VkPriem, K.ImaPaleta, R.VkProd, R.NedProsProd, R.ImaPaleta
    Order By R.Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_ekvivart]'))
drop procedure [dbo].[sp_list_ekvivart]

Go

CREATE   PROCEDURE sp_List_ekvivart

AS


    select E.*, K.ImeArt, K.EdMera
    from EkvivArt E
    inner join Katart K
        on e.sifra_art = k.sifra_art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_ekvivdezen]'))
drop procedure [dbo].[sp_list_ekvivdezen]

Go

CREATE     PROCEDURE sp_List_ekvivdezen

AS

    select E.*, K.ImeArt ImeArtOsn,
            KK.ImeARt ImeArtMap
    from EkvivDezen E
    inner join Katart K
        on e.sifra_art_osn = k.sifra_art
    inner join Katart KK
        on e.sifra_art_map = kk.sifra_art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_formuli]'))
drop procedure [dbo].[sp_list_formuli]

Go

create   PROCEDURE sp_List_Formuli
AS

    select *
    from FormulaDef




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_komintpat]'))
drop procedure [dbo].[sp_list_komintpat]

Go

CREATE  procedure sp_list_komintpat
    @Sifra smallint
As
    Select P.Sifra_Kup, K.ImeKup, P.Sifra_Obj, O.ImeObj, P.Sifra_Pat
    From KomintPat P
    left outer join Komint K on K.Sifra_kup= P.Sifra_Kup
    left outer join Kobjekti O on O.Sifra_kup= P.Sifra_Kup and O.Sifra_Obj=P.Sifra_Obj
    Where P.Sifra_Pat= @Sifra




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_kreditopomena]'))
drop procedure [dbo].[sp_list_kreditopomena]

Go
create  procedure sp_list_kreditopomena
As
    Select * from Kreditopomena



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_kreditstatus]'))
drop procedure [dbo].[sp_list_kreditstatus]

Go
CREATE procedure sp_list_kreditstatus
As
    Select * from KreditStatus



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_kredittipopomena]'))
drop procedure [dbo].[sp_list_kredittipopomena]

Go
CREATE procedure sp_list_kredittipopomena
As
    Select * from KreditTipOpomena



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_naracki]'))
drop procedure [dbo].[sp_list_naracki]

Go





CREATE     PROCEDURE sp_List_Naracki
    @Sifra_Nar_List VarChar(100),
       @Datum_Nar_Od Smalldatetime = Null,
       @Datum_Nar_Do Smalldatetime = Null
AS
    Declare @SSQL Varchar(4000)
        Set @SSQL = 'Select top 200 N.*, K.ImeKup
             From Naracki N
             Left Outer Join Komint K on N.Sifra_Kup = K.SifrA_Kup
             where Sifra_Nar in ' + @Sifra_Nar_List +
                     ' order by datum_nar DESC, broj_nar DESC '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_proekt]'))
drop procedure [dbo].[sp_list_proekt]

Go




CREATE       PROCEDURE sp_List_Proekt
AS

    select K.ImeKUp, P.*, KK.ImeKup ImeKup2
    from Proekt P
        left outer join Komint K
        on P.Sifra_Kup=K.Sifra_Kup
    left outer join Komint KK
        on P.Sifra_Kup2=KK.Sifra_Kup





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_rabkalendar]'))
drop procedure [dbo].[sp_list_rabkalendar]

Go
create    PROCEDURE sp_List_rabkalendar
AS

    select *
    from RabKalendar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_tipkatpakuv]'))
drop procedure [dbo].[sp_list_tipkatpakuv]

Go

CREATE  Procedure sp_list_tipkatpakuv
AS
    Select Sifra_KatPak, ImeKatPak, Sifra_Pak from TipkatPakuv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_tipkatstatus]'))
drop procedure [dbo].[sp_list_tipkatstatus]

Go

CREATE  Procedure sp_list_TIPkatstatus
AS
    Select * from KatStatus




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_vozila]'))
drop procedure [dbo].[sp_list_vozila]

Go

CREATE  procedure sp_list_vozila

as
    select V.*, K.ImeArt, K.Drugo1, D1.Ime_1, K.Sifra_Drg, DR.Ime,
    K.Drugo2, D2.Ime_2, K.Drugo3, D3.Ime_3, K.Kto, K.Drugo4, D4.Ime_4
    from Vozila V
    inner join Katart K on V.Sifra_Art=K.Sifra_Art
    left outer join Drugo1 D1 on K.Drugo1= D1.Sifra_1
    left outer join Drugo2 D2 on K.Drugo2= D2.Sifra_2
    left outer join Drugo3 D3 on K.Drugo3= D3.Sifra_3
    left outer join Drugo4 D4 on K.Drugo4= D4.Sifra_4
    left outer join DrgPodel DR on K.Sifra_drg= DR.Sifra_Drg





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_vozizjava]'))
drop procedure [dbo].[sp_list_vozizjava]

Go
CREATE procedure sp_list_VozIzjava
as
    select V.*, K.ImeArt from VozIzjava V
    inner join Katart K on V.Sifra_Art=K.Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_list_whmlokacgrupi]'))
drop procedure [dbo].[sp_list_whmlokacgrupi]

Go
Create procedure sp_list_whmlokacgrupi
  AS
select * from whmlokacgrupi



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lista_isporaka]'))
drop procedure [dbo].[sp_lista_isporaka]

Go
CREATE                        PROCEDURE sp_Lista_Isporaka
    @Sifra_Nal Smallint = NULL,
    @Sifra_Dok Smallint = NULL,
    @Sifra_OE Smallint = NULL,
    @KoiOE Varchar(200) = NULL,
    @Sifra_Prim Smallint = NULL,
    @Broj_Nal_Od Int = NULL,
    @Broj_Nal_Do Int = NULL,
    @Broj_Dok_Od Int = NULL,
    @Broj_Dok_Do Int = NULL,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @Datum_Nal_Od Smalldatetime = NULL,
    @Datum_Nal_Do Smalldatetime = NULL,
    @Sifra_Kup Char(6) = NULL,
    @Sifra_Za Char(1) = NULL,
    @VlIzl Char(1)='I',
    @PecFisc char(1) = 'N',
    @Sifra_Nivo Char(2) = Null,
    @KFSifra_Nivo Char(1) = Null,
    @KFSifra_Prim Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @Koi_Gradovi    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @KDrugo1    smallint = Null,
    @KDrugo2    smallint = Null,
    @KDrugo3    smallint = Null,
    @KDrugo4    smallint = Null,
    @KDrugo5    smallint = Null,
    @KDrugo6    smallint = Null,
    @KDrugo7    smallint = Null
AS
   Declare @SSQL Varchar(4000)
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup,
                D.Sifra_Obj, D.Datum_Dok, D.Rok, D.Toc200, D.MagVr, D.MagVrDan, D.Danok1, D.Danok2,
                Sum(S.Kolic) Kolicina, Sum(S.Kolic*S.NabCena) NabVr, Sum(S.Kolic*S.MagCena) MagVrednost, TD.ImeDok,
                SUM(S.Kolic * A.Volumen) Volumen, K.ImeKup, K.SMesto, O.ImeOrg As IORG, OP.ImeOrg As IORG_Prima, KO.ImeObj
                FROM DOKR D
                Inner Join Stavr S On D.DokrID=S.DokrID
                INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Nalozi N ON TD.Sifra_Nal=N.Sifra_Nal AND D.Broj_Nal=N.Broj_Nal
                LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
                 Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE TD.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @KFSifra_Nivo Is Null
        Begin
            If @Sifra_Nivo Is Not Null
                Set @SSQL = @SSQL + 'And D.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        End
    Else If @KFSifra_Nivo='D' And @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Nivo<>''' + @Sifra_Nivo + ''' Or D.Sifra_Nivo Is Null) '
    If @PecFisc = 'D'
        SET @SSQL = @SSQL + ' AND D.Pec_Fisc > 0 '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @KFSifra_Prim Is Null
        Begin
            If @Sifra_Prim Is Not Null
                SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
        End
    Else If @KFSifra_Prim='D' And @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'And (D.Sifra_Prim<>' + Cast(@Sifra_Prim As Varchar(6)) + ' Or D.Sifra_Prim Is Null) '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    /*
       If @Sifra_Prim Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '
    */
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
    If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
    If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    If @Datum_Nal_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
    If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null        SET @SSQL = @SSQL + 'AND D.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Za Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Za=''' + Cast(@Sifra_Za As Varchar(35))+ ''' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and K.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @KDrugo1 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KDrugo1 as varchar(6)) + ')
            OR (KO.KDrugo1 Is Null and K.KDrugo1 = ' + Cast(@KDrugo1 as varchar(6)) + ')) '
    If @KDrugo2 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KDrugo2 as varchar(6)) + ')
            OR (KO.KDrugo2 Is Null and K.KDrugo2 = ' + Cast(@KDrugo2 as varchar(6)) + ')) '
    If @KDrugo3 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KDrugo3 as varchar(6)) + ')
            OR (KO.KDrugo3 Is Null and K.KDrugo3 = ' + Cast(@KDrugo3 as varchar(6)) + ')) '
    If @KDrugo4 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KDrugo4 as varchar(6)) + ')
            OR (KO.KDrugo4 Is Null and K.KDrugo4 = ' + Cast(@KDrugo4 as varchar(6)) + ')) '
    If @KDrugo5 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KDrugo5 as varchar(6)) + ')
            OR (KO.KDrugo5 Is Null and K.KDrugo5 = ' + Cast(@KDrugo5 as varchar(6)) + ')) '
    If @KDrugo6 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@KDrugo6 as varchar(6)) + ')
            OR (KO.KDrugo6 Is Null and K.KDrugo6 = ' + Cast(@KDrugo6 as varchar(6)) + ')) '
    If @KDrugo7 Is Not NULL
            Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@KDrugo7 as varchar(6)) + ')
            OR (KO.KDrugo7 Is Null and K.KDrugo7 = ' + Cast(@KDrugo7 as varchar(6)) + ')) '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Sifra_Kup,
                D.Sifra_Obj, D.Datum_Dok, D.Rok, D.Toc200, D.MagVr, D.MagVrDan, D.Danok1, D.Danok2,
                TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg, KO.ImeObj '
/*                D.Sifra_Nal,
                D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.VlIzl,
                D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Ispratnica,
                D.Opis, D.Sifra_Kup, D.Sifra_Obj, D.Datum_Dok, D.Datum_Vnes, D.Datum_Izm, D.Uces,
                D.Kasa, D.Rok, D.Sifra_Pat, D.Sifra_Oper, D.Sifra_OpIz, D.SerBr, D.Kto, D.Kurs,
                D.KojaVal, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1,
                D.PDanok2, D.PTrosok, D.DanDokCena, D.DanMagCena, D.CenaIznos, D.ProcMarza,
                D.Kod_Danok, D.TekstPosle, D.VoRekap, D.VoGlk, D.VoAnal, D.Datum_Knz, D.VoTipNal_Glk,
                D.VoBrNal_Glk, D.Prenesen, D.Pec_Fisc, D.Pec_Dok, D.Sifra_Nivo, D.Blokiran, D.KojaSmetka,
                D.KasaPoDDV, TD.ImeDok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg, D.Spremil, D.Sifra_Nar,
                D.Broj_Nar, D.Sifra_OeNar, D.Usluzna, D.TekstPred, D.Sifra_Mest, D.Izrab_Nar, Dat_Pec_Fisc '
*/
print @SSQL
   EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listadeklaracii]'))
drop procedure [dbo].[sp_listadeklaracii]

Go
CREATE    PROCEDURE sp_ListaDeklaracii
    @Koi_OE    varchar(200) = NULL,
    @Dat_Od_Vlez    SmallDateTime = NULL,
    @Dat_Do_Vlez    SmallDateTime = NULL,
    @Dat_Od_Izlez    SmallDateTime = NULL,
    @Dat_Do_Izlez    SmallDateTime = NULL,
    @Koi_TipDok    varchar(200) = NULL,
    @Broj_KonsOd    int = NULL,
    @Broj_KonsDo    int = NULL,
    @Sifra_Art_Od    varchar(20) = NULL,
    @Sifra_Art_Do    varchar(20) = NULL,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto        Char(6) = Null,
    @Sifra_Gr    varChar(6) = Null,
    @Sifra_Podg    Char(6) = Null,
    @Lokacija    Varchar(15) = Null,
    @Sifra_Brand    Smallint = Null,
    @CarBroj    Char(10) = Null,
    @VoDenari    char(1) = 'N'  --  D / N
AS
    CREATE TABLE #TmpKons
(    Sifra_OE    smallint,
    Sifra_Dok    smallint,
    Broj_Kons    int,
    Sifra_Art    varchar(20),
    ImeArt        varchar(40),
    EdMera        char(5),
    CarBroj        char(10),
    ECD        varchar(20),
    Datum_Mag    smalldatetime,
    Identif_Br    varchar(25),
    ImeVal        char(20),
    ZBroj        varchar(20),
    SBroj        varchar(20),
    Lokacija    varchar(10),
    Alt_Sifra        varchar(15),
    Kol_Vlez    decimal(18,4),
    Kol_Izlez    decimal(18,4),
    Pak_Vlez    decimal(18,4),
    Pak_Izlez    decimal(18,4),
    Bru_Vlez    decimal(18,4),
    Bru_Izlez    decimal(18,4),
    Neto_Vlez    decimal(18,4),
    Neto_Izlez    decimal(18,4),
    Vr_Vlez        decimal(18,4),
    Vr_Izlez        decimal(18,4)
)
    Declare @SSQL varchar(4000)
    SET @SSQL =  'INSERT INTO #TmpKons (Sifra_OE, Sifra_Dok, Broj_Kons, Sifra_Art, Kol_Vlez, Kol_Izlez, Pak_Vlez,
            Pak_Izlez, Bru_Vlez, Bru_Izlez, Neto_Vlez, Neto_Izlez, Vr_Vlez, Vr_Izlez)
            SELECT S.Sifra_OE, dbo.fn_DajSifraVlez(S.Sifra_Dok, S.Sifra_Dok_Vlez, S.VlIzl) As Sifra_Dok,
            dbo.fn_DajBrojVlez(S.Broj_Kons, S.Broj_Kons_Vlez, S.VlIzl) As Broj_Kons, S.Sifra_Art,
            SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Kolic
                ELSE 0     END) Kol_Vlez,
            SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Kolic
                ELSE 0     END) Kol_Izlez,
            SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Koleti
                ELSE 0     END) Pak_Vlez,
            SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Koleti
                ELSE 0     END) Pak_Izlez,
            SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Bruto
                ELSE 0     END) Bru_Vlez,
            SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Bruto
                ELSE 0     END) Bru_Izlez,
            SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Neto
                ELSE 0     END) Neto_Vlez,
            SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Neto
                ELSE 0     END) Neto_Izlez, '
    If @VoDenari = 'D'
        Set @SSQL = @SSQL + ' SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Kolic * S.DevCena * K.Kurs
                        ELSE 0     END) Vr_Vlez,
                    SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Kolic * S.DevCena * K.Kurs
                        ELSE 0     END) Vr_Izlez '
    Else -- If @VoDenari <> 'D'
        Set @SSQL = @SSQL + ' SUM(CASE WHEN S.VlIzl  = ''V'' THEN S.Kolic * S.DevCena
                        ELSE 0     END) Vr_Vlez,
                    SUM(CASE WHEN S.VlIzl  = ''I'' THEN S.Kolic * S.DevCena
                        ELSE 0     END) Vr_Izlez '
    Set @SSQL = @SSQL + ' FROM DevStavKons S
                INNER JOIN DevKons K ON S.DevKonsID=K.DevKonsID '
    IF @Kto     IS NOT Null  OR  @Sifra_Gr IS NOT Null  OR  @Sifra_Podg IS NOT Null OR @Lokacija IS NOT Null  OR @Sifra_Brand IS NOT Null OR @CarBroj Is Not Null
        SET @SSQL = @SSQL + ' INNER JOIN KatArt A ON S.Sifra_Art = A.Sifra_Art '
    IF @Sifra_Gr IS NOT Null
        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg '
    SET @SSQL = @SSQL + ' WHERE 1=1 '
    IF @Koi_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN (' + @Koi_OE + ') '
    IF @Dat_Od_Vlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND (K.Datum_Mag >=''' + Cast(@Dat_Od_Vlez as varchar(30)) + ''' OR S.VlIzl = ''I'') '
    IF @Dat_Do_Vlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND (K.Datum_Mag <=''' + Cast(@Dat_Do_Vlez as varchar(30)) + ''' OR S.VlIzl = ''I'') '
    IF @Dat_Od_Izlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND (K.Datum_Mag >=''' + Cast(@Dat_Od_Izlez as varchar(30)) + ''' OR S.VlIzl = ''V'') '
    IF @Dat_Do_Izlez IS NOT NULL
        SET @SSQL = @SSQL + ' AND (K.Datum_Mag <=''' + Cast(@Dat_Do_Izlez as varchar(30)) + ''' OR S.VlIzl = ''V'') '
    IF @Koi_TipDok    IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Dok IN (' + @Koi_TipDok + ') '
    IF @Broj_KonsOd IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Broj_Kons >=''' + Cast(@Broj_KonsOd as varchar(10)) + ''' '
    IF @Broj_KonsDo IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Broj_Kons <=''' + Cast(@Broj_KonsDo as varchar(10)) + ''' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    IF @Sifra_Kup_Od Is Not Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Kup >=''' + @Sifra_Kup_Do + ''' '
    IF @Sifra_Kup_Do Is Not Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Kup <=''' + @Sifra_Kup_Do + ''' '
    IF @Kto IS NOT Null
        SET @SSQL = @SSQL + ' AND A.Kto  =''' + @Kto + ''' '
    IF @CarBroj IS NOT Null
        SET @SSQL = @SSQL + ' AND A.CarBroj  =''' + @CarBroj + ''' '
    IF @Sifra_Gr IS NOT Null
        SET @SSQL = @SSQL + ' AND P.Sifra_Gr  =''' + @Sifra_Gr + ''' '
    IF @Sifra_Podg IS NOT Null
        SET @SSQL = @SSQL + ' AND A.Sifra_Podg  =''' + @Sifra_Podg + ''' '
    IF @Lokacija IS NOT Null
        SET @SSQL = @SSQL + ' AND A.Alt_Sifra  =''' + @Lokacija + ''' '
    IF @Sifra_Brand    IS NOT Null
        SET @SSQL = @SSQL + ' AND K.Sifra_Drg  =' + Cast(@Sifra_Brand as varchar(7)) + ' '
    SET @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, dbo.fn_DajSifraVlez(S.Sifra_Dok, S.Sifra_Dok_Vlez, S.VlIzl),
                dbo.fn_DajBrojVlez(S.Broj_Kons, S.Broj_Kons_Vlez, S.VlIzl), S.Sifra_Art'
    EXEC(@SSQL)
    UPDATE #TmpKons SET ECD=DevKons.ECD, Datum_Mag=DevKons.Datum_Mag, Identif_Br=DevKons.Identif_Br, SBroj=DevKons.SBroj, ZBroj=DevKons.ZBroj
    FROM DevKons WHERE #TmpKons.Sifra_OE=DevKons.Sifra_OE AND #TmpKons.Sifra_Dok=DevKons.Sifra_Dok AND #TmpKons.Broj_Kons=DevKons.Broj_Kons
    UPDATE #TmpKons SET ImeArt=KatArt.ImeArt, EdMera = KatArt.EdMera, CarBroj=Katart.CarBroj, Lokacija=Katart.Lokacija, Alt_Sifra=Katart.Alt_Sifra
    FROM KatArt WHERE #TmpKons.Sifra_Art=KatArt.Sifra_Art
    UPDATE #TmpKons SET ImeVal=KrsLista.ImeVal
    FROM DevKons, KrsLista WHERE #TmpKons.Sifra_OE=DevKons.Sifra_OE AND #TmpKons.Sifra_Dok=DevKons.Sifra_Dok AND
        #TmpKons.Broj_Kons=DevKons.Broj_Kons AND DevKons.KojaVal = KrsLista.SImeVal
    SELECT Sifra_OE, Sifra_Dok, Broj_Kons, Sifra_Art, ImeArt, EdMera, ECD, Datum_Mag, Identif_Br, ImeVal, CarBroj, SBroj, ZBroj, Lokacija, Alt_Sifra,
        round((Kol_Vlez),4) Kol_Vlez, round((Kol_Izlez),4) Kol_Izlez, round((Pak_Vlez),4) Pak_Vlez, round((Pak_Izlez),4) Pak_Izlez,
        round((Bru_Vlez),4) Bru_Vlez, round((Bru_Izlez),4) Bru_Izlez, round((Neto_Vlez),4) Neto_Vlez, round((Neto_Izlez),4) Neto_Izlez,
        round((Vr_Vlez),4) Vr_Vlez, round((Vr_Izlez),4) Vr_Izlez
     FROM #TmpKons



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listajdokr]'))
drop procedure [dbo].[sp_listajdokr]

Go

create    PROCEDURE sp_ListajDokr
    @KonKade varchar(20),

    @Sifra_OE Smallint,
    @Sifra_Dok  smallint,
    @Broj_Dok int,

    @Sifra_OE_Sleden Smallint OUTPUT,
    @Sifra_Dok_Sleden  smallint OUTPUT,
    @Broj_Dok_Sleden int OUTPUT

AS

    Declare @aGjubr int

    if @Sifra_Oe <= 0
    begin
        set @Sifra_Oe_Sleden = 0
        set @Sifra_Dok_Sleden = 0
        set @Broj_Dok_Sleden = 0

        RETURN
    end

    set @Broj_Dok_Sleden = 0

    if @KonKade = 'Sleden'
    begin
        select @Broj_Dok_Sleden = min(Broj_dok)
        from dokr
        where Sifra_oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and Broj_Dok > @Broj_Dok
    end
    else if @KonKade = 'Prethoden'
    begin
        select @Broj_Dok_Sleden = max(Broj_dok)
        from dokr
        where Sifra_oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and Broj_Dok < @Broj_Dok
    end
    else if @KonKade = 'Prv'
    begin
        select @Broj_Dok_Sleden = min(Broj_dok)
        from dokr
        where Sifra_oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok
    end
    else if @KonKade = 'Posleden'
    begin
        select @Broj_Dok_Sleden = max(Broj_dok)
        from dokr
        where Sifra_oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok
    end

    if @Broj_Dok_Sleden is null
        set @Broj_Dok_Sleden = 0

    -- Zaradi fleksibinost vrakam i Oe, Dok, Broj -- mozze ke trebaat natamu
    if @Broj_Dok_Sleden > 0
    begin
        set @Sifra_Oe_Sleden = @Sifra_Oe
        set @Sifra_Dok_Sleden = @Sifra_Dok
    end




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listboxkta]'))
drop procedure [dbo].[sp_listboxkta]

Go



CREATE    PROCEDURE sp_ListBoxKta
 AS
    Select Kto_Anal, ImeAnal, DaliKupuv From Anal
    Where DaliKupuv = 'D' Or DaliKupuv = 'K'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listevdekl]'))
drop procedure [dbo].[sp_listevdekl]

Go
CREATE procedure sp_ListEvDekl
    @DatumOd smalldatetime,
    @DatumDo smalldatetime
As
    Select E.Godina,E.Rbr,E.Datum_Dok,E.Cas,E.Br_Paketi,0 Sifra_Oe, 0 Sifra_Dok, 0 Broj_Dok, --E.Sifra_Oe, E.Sifra_Dok, E.Broj_Dok,
    E.BrojDok,E.Reg_Vozilo,E.R_Broj,E.A_Broj,E.Sifra_Kup,K.ImeKup, E.Gran_Premin,E.W_Broj,E.R_Broj_Dop,
    S.CarBroj, C.Ime, S.NetoTez,S.BrutoTez,S.FaktVred,S.StatVred
    From EvDekl E
    Inner Join EvDeklStav S on S.Godina=E.Godina and S.Rbr=E.Rbr
    Left outer join Komint K on K.Sifra_Kup=E.Sifra_Kup
    left outer join CBroevi C on C.CarBroj=S.CarBroj
    Where  E.Datum_Dok >=@DatumOd and E.Datum_Dok <=@DatumDo



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listizmenetiartkom]'))
drop procedure [dbo].[sp_listizmenetiartkom]

Go


CREATE   Procedure sp_ListIzmenetiArtKom
    @DatumOd smalldatetime,
    @DatumDo smalldatetime,
    @Sifra_Art varchar(20)= null,
    @Sifra_Art_Do varchar(20)= null,
    @Sifra_Kup char(6)= null,
    @Sifra_Kup_Do char(6)= null,
    @Prik char(1)
As
    Declare @SSQL as varchar(6000)
if @Prik='A'
    Set @SSQL=' Select Sifra_Art, ImeArt, ImeArt2, EdMera, Alt_Ime, Alt_Ime2, Alt_EdMera, Sifra_Podg, Sifra_Tar, Kto, Cena, Sostojba, CarBroj, SMatUsl,
              Sifra_Drg, KolkuDrg, Drugo1, Drugo2, Drugo3, Drugo4, Drugo5, DaliSurov, Uces, Datum_Cena, Fakturna, Nabavna, DogCena, MalCena, GotCena,
              SpeCena, PCena4, PCena5, PCena6, Proc_Marza, Nom, SMin_Sost, SMax_Sost, SOpt_Sost, Lokacija, Popust, ImaBroevi, ImaKomerc, Tezina,
              PopusMar, IzmenetNa, IzmenetOd, Alt_Sifra, Iskluci, SpecRabat, SpecRabatOd, SpecRabatDo, BTezina, Volumen, Rabat_Dali, SodrziEd,
              Propagiraj, ProcAlk, RokKontrDali, Aktiven, Sifra_Amb, Prenesen, Rok_Tra, ImaPaleta, RokTraDen, PDA_Ime, Sifra_Div, Sif_Depoz_Amb,
              Sifra_KHier, Kto_Anal, DeklArt, Koef, Drugo6, Drugo7, ProcKalo, VoPDA, MKProiz, AkcijaDali, Sifra_ATC
              From KatArtH '
If @Prik='K'
    Set @SSQL=' Select Sifra_Kup, ImeKup, ImeKup2, Adresa, Adresa2, SMesto, Posta, Zemja, ImaObj, IspAdresa, IspAdresa2, IspMesto, IspPosta, IspZemja,
              Telefon, Tel1, Tel2, TelMobil, Fax, Telex, EMail, AdrWeb, Sopstvenik, LK, Sopst_Mat, Danocen, Ziro, Ziro2, Banka, Banka2, Sifra_Ban,
              Sifra_Ban2, BRIZJAVA, KONTAKT, Sifra_Pat, Sifra_Grad, TipKup, Sifra_reg, Sifra_Nivo, Sifra_Tip, KDrugo1, KDrugo2, KDrugo3, KDrugo4,
              KDrugo5, Uces, KojaSmetka, Rok_Dosp, Kasa, KojaCena, BrPoseti, DirDistr, ZemaOd, Zabeleska, Aktiven, BrProdMesta, BrAktProdMesta,
              IzmenetNa, IzmenetOd, ImaBanka, Alt_ImeKup, Alt_Adresa, DogovorBroj, MozeIsporaka, Garancija, Propagiraj, MatBr, Sifra_Pat2, Sopst_Adr,
              Sopst_Mesto, Prenesen, ForsUces, Limit_Dolzi, Prioritet, FraRepr, Aneks1, Aneks2, God_Rabat, Spec_Rabat, m2, Sifra_VPJ, Rok_Dobav,
              Uces_Kol, SkrOznaka, KDrugo6, KDrugo7, MemoKup, Priv_Lice, VidStalazi, TolerDena_Dosp
              From KomintH '
     Set @SSQL=@SSQL+ ' Where 1=1'
If @DatumOd Is Not Null
    Set @SSQL = @SSQL + ' And IzmenetNa>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
--If @DatumDo Is Not Null
    --    Set @SSQL = @SSQL + ' And IzmenetNa<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Art >= ''' + @Sifra_Art + ''' '
If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup >= ''' + @Sifra_Kup + ''' '
If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup <= ''' + @Sifra_Kup_Do + ''' '
If @Prik='K'
    Set @SSQL = @SSQL + ' Order By Sifra_kup, IzmenetNa '
else
    Set @SSQL = @SSQL + ' Order By Sifra_Art, IzmenetNa '

print (@ssqL)
exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listkomlimitdiv]'))
drop procedure [dbo].[sp_listkomlimitdiv]

Go

CREATE   procedure sp_ListKomLimitDiv
    @Sifra_kup char(6)=NULL,
    @Sifra_Div smallint = NULL
AS


declare @SSQL as varchar(1000)

set @SSQL = ' Select KD.*, K.ImeKup, D.ImeDiv from KomLimitDiv KD
    Inner Join KOmint K on KD.Sifra_Kup=K.Sifra_Kup
    Inner Join Divizii D on KD.Sifra_Div=D.Sifra_Div
    Where 1=1 '

IF @Sifra_Kup IS Not NULL
    set @SSQL = @SSQL + ' AND KD.Sifra_Kup = '+cast(@Sifra_Kup as char(6))+' '
IF @Sifra_Div IS Not Null
    set @SSQL = @SSQL + ' AND KD.Sifra_Div = '+cast(@Sifra_Div as varchar(6))+' '

    set @SSQL = @SSQL + ' ORDER BY KD.Sifra_Kup, KD.Sifra_Div'
exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_listkomlimitdivarh]'))
drop procedure [dbo].[sp_listkomlimitdivarh]

Go


CREATE   procedure sp_ListKomLimitDivArh
    @Sifra_kup char(6)=NULL
AS
IF @Sifra_Kup IS NULL
    Select KD.*, K.ImeKup, D.ImeDiv from KomLimitDivArh KD
    Inner Join KOmint K on KD.Sifra_Kup=K.Sifra_Kup
    Inner Join Divizii D on KD.Sifra_Div=D.Sifra_Div
    ORDER BY KD.Sifra_Kup, KD.Datum_Vnes, KD.Sifra_Div
ELSE
    Select KD.*, K.ImeKup, D.ImeDiv from KomLimitDivArh KD
    Inner Join KOmint K on KD.Sifra_Kup=K.Sifra_Kup
    Inner Join Divizii D on KD.Sifra_Div=D.Sifra_Div
    Where KD.Sifra_kup=@Sifra_Kup
    ORDER BY KD.Datum_Vnes, KD.Sifra_Div





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpbrdok]'))
drop procedure [dbo].[sp_lkpbrdok]

Go

CREATE  PROCEDURE sp_lkpBrdok
    @Sifra_OE Smallint,
    @Sifra_Dok Smallint,
    @Broj_Dok Int OUTPUT
AS
   SELECT @Broj_Dok=Broj_Dok FROM Brdok
      WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpbrkomp]'))
drop procedure [dbo].[sp_lkpbrkomp]

Go

CREATE PROCEDURE sp_lkpBrKomp
    @Broj_Komp Int OUTPUT
AS
  --'SELECT @Broj_Komp=Broj_Komp FROM BrKomp
  select * from BrKomp
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpbrnal]'))
drop procedure [dbo].[sp_lkpbrnal]

Go

CREATE  PROCEDURE sp_lkpBrnal
    @Sifra_Nal Smallint,
    @Broj_Nal Int OUTPUT,
    @Datum_Nal Smalldatetime OUTPUT
AS
   SELECT @Broj_Nal=Broj_Nal, @Datum_Nal=Datum_Nal FROM Brnal
      WHERE Sifra_Nal=@Sifra_Nal
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpcengrorg]'))
drop procedure [dbo].[sp_lkpcengrorg]

Go


CREATE      PROCEDURE sp_lkpCenGrOrg
    @Sifra_Art varchar(20),
    @OznakaGrOrg varchar(10)=NULL
AS
    CREATE TABLE #TmpCeni
    (Sif_GrOrg char(6),
     Sifra_Art varchar(20),
     Cena Decimal(18,6),
     Dozv char(1),
     Ispraten varchar(120),
     CenaR Decimal(18,6),
     Ime_GrOrg varchar(50),
     Proc_Marza    decimal(9,2),
     Zaliha    decimal(18,6))
    CREATE TABLE #TmpZal
    (Sif_GrOrg char(6),
     Zaliha    decimal(18,6))

IF @OznakaGrOrg IS NULL
Begin
    INSERT INTO #TmpCeni (Sif_GrOrg, Sifra_Art, Cena, Dozv, Ispraten, CenaR, Ime_GrOrg)
    SELECT C.Sif_GrOrg, C.Sifra_Art, C.Cena, C.Dozvoleno, C.Ispraten, C.CenaR, G.Ime_GrOrg
    FROM CenGrOrg C    INNER JOIN GrOrg G ON C.Sif_GrOrg = G.Sif_GrOrg
    WHERE C.Sifra_Art = @Sifra_Art

    INSERT INTO #TmpCeni (Sif_GrOrg, Ime_GrOrg, Sifra_Art, Cena, Dozv)
    SELECT Sif_GrOrg, Ime_GrOrg, @Sifra_Art, 0, 'D'
    FROM GrOrg WHERE Edinstvena = 'D' AND Sif_GrOrg NOT IN (SELECT Sif_GrOrg FROM #TmpCeni)
End
ELSE
Begin
    INSERT INTO #TmpCeni (Sif_GrOrg, Sifra_Art, Cena, Dozv, Ispraten, CenaR, Ime_GrOrg)
    SELECT C.Sif_GrOrg, C.Sifra_Art, C.Cena, C.Dozvoleno, C.Ispraten, C.CenaR, G.Ime_GrOrg
    FROM CenGrOrg C    INNER JOIN GrOrg G ON C.Sif_GrOrg = G.Sif_GrOrg
    WHERE C.Sifra_Art = @Sifra_Art AND G.Oznaka=@OznakaGrOrg

    INSERT INTO #TmpCeni (Sif_GrOrg, Ime_GrOrg, Sifra_Art, Cena, Dozv)
    SELECT Sif_GrOrg, Ime_GrOrg, @Sifra_Art, 0, 'D'
    FROM GrOrg WHERE Edinstvena = 'D' AND Sif_GrOrg NOT IN (SELECT Sif_GrOrg FROM #TmpCeni) AND Oznaka=@OznakaGrOrg
End
    INSERT INTO #TmpZal    (Sif_GrOrg, Zaliha)
    SELECT S.Sif_GrOrg, SUM(So.Vlez-So.Izlez) FROM Soart So
    INNER JOIN SGrOrg S ON S.Sifra_OE=So.Sifra_OE
    WHERE So.Sifra_Art=@Sifra_Art AND S.Sif_GrOrg IN (SELECT Sif_GrOrg FROM #TmpCeni)  --GrOrg WHERE Edinstvena = 'D')
    GROUP BY S.Sif_GrOrg

    UPDATE #TmpCeni SET Zaliha = Z.Zaliha FROM #TmpZal Z WHERE #TmpCeni.Sif_GrOrg=Z.Sif_GrOrg
    SELECT * FROM #TmpCeni  ORDER BY  Ime_GrOrg
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpcenpodgr]'))
drop procedure [dbo].[sp_lkpcenpodgr]

Go

CREATE     PROCEDURE sp_lkpCenPodgr
    @Sifra_Podelba varchar(20),
    @Tip_Podelba char (1),
    @TipTipKup    char(1)='T'
AS
    CREATE TABLE #TmpCeni
    (
     TipKup        varchar(11),
     Uces        Decimal(6,2),
     Uces2        Decimal(6,2),
     Uces3        Decimal(6,2),
     ImeTipKup    varchar(50)
    )
    INSERT INTO #TmpCeni (TipKup, Uces, Uces2, Uces3)
    SELECT TipKup, Uces, Uces2, Uces3
    FROM CenPoPodgr
    WHERE Tip_Podelba = @Tip_Podelba and Sifra_podelba = @Sifra_podelba
IF @TipTipKup='5'
Begin
    INSERT INTO #TmpCeni (TipKup, Uces, Uces2, Uces3)
    SELECT Sifra_5K, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM Kdrugo5
    WHERE Sifra_5K NOT IN (SELECT TipKup FROM #TmpCeni)
    UPDATE #TmpCeni SET ImeTipKup = KDrugo5.Ime_5K
    FROM Kdrugo5
    WHERE #TmpCeni.TipKup=Kdrugo5.Sifra_5K
End
Else IF @TipTipKup='K'
Begin
    INSERT INTO #TmpCeni (TipKup, Uces, Uces2, Uces3)
    SELECT Sifra_Kup, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM Komint
    WHERE Sifra_Kup NOT IN (SELECT TipKup FROM #TmpCeni)
    UPDATE #TmpCeni SET ImeTipKup = Komint.ImeKup
    FROM Komint
    WHERE #TmpCeni.TipKup=Komint.Sifra_Kup
End
else
Begin
    INSERT INTO #TmpCeni (TipKup, Uces, Uces2, Uces3)
    SELECT TipKup, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM GTipKup
    WHERE TipKup NOT IN (SELECT TipKup FROM #TmpCeni)
    UPDATE #TmpCeni SET ImeTipKup = GTipKup.ImeTipKup
    FROM GTipKup
    WHERE #TmpCeni.TipKup=GTipKup.TipKup
End
    SELECT * FROM #TmpCeni  ORDER BY TipKup
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpcenpodgr_inv]'))
drop procedure [dbo].[sp_lkpcenpodgr_inv]

Go


CREATE        PROCEDURE sp_lkpCenPodgr_Inv
    @TipKup     varchar(11),
    @Tip_Podelba     char (1)
AS
    CREATE TABLE #TmpCeni
    (Sifra_Podelba    varchar(20),
     Uces        Decimal(6,2),
     Uces2        Decimal(6,2),
     Uces3        Decimal(6,2),
     ImePodelba    varchar(50)    )

    INSERT INTO #TmpCeni (Sifra_Podelba, Uces, Uces2, Uces3)
    SELECT Sifra_Podelba, Uces, Uces2, Uces3
    FROM CenPoPodgr
    WHERE Tip_Podelba = @Tip_Podelba and TipKup = @TipKup

IF @Tip_Podelba='A'
Begin
    INSERT INTO #TmpCeni (Sifra_Podelba, Uces, Uces2, Uces3)
    SELECT Sifra_Art, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM KatArt
    WHERE Sifra_Art NOT IN (SELECT Sifra_Podelba FROM #TmpCeni)

    UPDATE #TmpCeni SET ImePodelba = KatArt.ImeArt
    FROM KatArt
    WHERE #TmpCeni.Sifra_Podelba = KatArt.Sifra_Art
End
ELSE IF @Tip_Podelba='B'
Begin
    INSERT INTO #TmpCeni (Sifra_Podelba, Uces, Uces2, Uces3)
    SELECT Sifra_Drg, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM DrgPodel
    WHERE Sifra_Drg NOT IN (SELECT Sifra_Podelba FROM #TmpCeni)

    UPDATE #TmpCeni SET ImePodelba = DrgPodel.Ime
    FROM DrgPodel
    WHERE #TmpCeni.Sifra_Podelba = DrgPodel.Sifra_Drg
End
ELSE
Begin
    INSERT INTO #TmpCeni (Sifra_Podelba, Uces, Uces2, Uces3)
    SELECT Sifra_Podg, 0 AS Uces, 0 as Uces2, 0 as Uces3
    FROM Podgrupi
    WHERE Sifra_Podg NOT IN (SELECT Sifra_Podelba FROM #TmpCeni)

    UPDATE #TmpCeni SET ImePodelba = Podgrupi.Ime_Podg
    FROM Podgrupi
    WHERE #TmpCeni.Sifra_Podelba = Podgrupi.Sifra_Podg
End

    SELECT * FROM #TmpCeni  ORDER BY Sifra_Podelba

    RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpgregion]'))
drop procedure [dbo].[sp_lkpgregion]

Go

CREATE    PROCEDURE sp_lkpGRegion
    @Sifra_Reg Char(6)
AS
    SELECT * FROM GRegion
    WHERE Sifra_Reg=@Sifra_Reg
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpgtipkup]'))
drop procedure [dbo].[sp_lkpgtipkup]

Go

CREATE    PROCEDURE sp_lkpGTipKup
    @TipKup Varchar(11)
AS
    SELECT * FROM GTipKup
    WHERE TipKup=@TipKup
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpime]'))
drop procedure [dbo].[sp_lkpime]

Go
CREATE  PROCEDURE sp_lkpIme
    @Sifra VARCHAR(20),
    @Tabela VARCHAR(20),
    @Ime VARCHAR(40) OUTPUT
AS
    DECLARE @PKey VARCHAR(20)
    DECLARE @FIme VARCHAR(20)
    DECLARE @Greska INT
    DECLARE @SSQL VARCHAR(200)
    Set @Tabela = Upper(@Tabela)
    IF @Tabela = 'KATART'
        SELECT @Ime=ImeArt FROM KatArt WHERE Sifra_Art=@Sifra
    Else If @Tabela = 'PODGRUPI'
        SELECT @Ime=Ime_Podg FROM Podgrupi WHERE Sifra_Podg=@Sifra
    Else If @Tabela = 'GRUPI'
        SELECT @Ime=Sifra_Gr FROM Grupi WHERE Sifra_Gr=@Sifra
    Else If @Tabela = 'TARIFI'
        SELECT @Ime=ImeTar FROM Tarifi WHERE Sifra_Tar=@Sifra
    Else If @Tabela = 'KOMINT'
        SELECT @Ime=ImeKup FROM Komint WHERE Sifra_Kup=@Sifra
    Else If @Tabela = 'ANAL'
        SELECT @Ime=ImeAnal FROM Anal WHERE Kto_Anal=@Sifra
    Else If @Tabela = 'DRGPODEL'
        SELECT @Ime=Ime FROM DrgPodel WHERE Sifra_Drg=@Sifra
    Else If @Tabela = 'TIPPERCENOVINK'
        SELECT @Ime=ImeTipC FROM TipPerCenovnik WHERE Sifra_TipC=@Sifra
    If Len(@Ime) > 0
        Set @Greska = 0
    Else
        Set @Greska = 100
    If @@ERROR <> 0
        Set @Greska = @@ERROR
    Return @Greska



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpkobj]'))
drop procedure [dbo].[sp_lkpkobj]

Go

CREATE   PROCEDURE sp_lkpKObj
    @Sifra_Kup Char(6),
    @Sifra_Obj Smallint
AS
    SELECT * FROM KObjekti
    WHERE Sifra_Kup=@Sifra_Kup AND Sifra_Obj=@Sifra_Obj
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpkomint_celkupuvac]'))
drop procedure [dbo].[sp_lkpkomint_celkupuvac]

Go

CREATE  PROCEDURE sp_lkpKomint_CelKupuvac
        @Sifra_Kup Char(6)
AS
    SET NOCOUNT ON
    SELECT * FROM Komint WHERE Sifra_Kup=@Sifra_Kup
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkppodrgrupa_celapodgrupa]'))
drop procedure [dbo].[sp_lkppodrgrupa_celapodgrupa]

Go

CREATE  PROCEDURE sp_lkpPodrgrupa_CelaPodgrupa
        @Sifra_Podg Char(6)
AS
    SET NOCOUNT ON
    SELECT [Sifra_Podg], [Ime_Podg], [Ime_Podg2], [Sifra_Gr]
    FROM [Podgrupi]
    WHERE [Sifra_Podg]=@Sifra_Podg
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsgrkup]'))
drop procedure [dbo].[sp_lkpsgrkup]

Go


CREATE    PROCEDURE sp_lkpSGrKup
    @Sif_GrKup Char(6)
AS
    SELECT Sifra_Kup FROM SGrKup
    WHERE Sif_GrKup = @Sif_GrKup
    ORDER BY Sifra_Kup
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsgrorg]'))
drop procedure [dbo].[sp_lkpsgrorg]

Go

CREATE   PROCEDURE sp_lkpSGrOrg
    @Sif_GrOrg Char(6)
AS
    SELECT Sifra_OE FROM SGrOrg
    WHERE Sif_GrOrg = @Sif_GrOrg
    ORDER BY Sifra_OE
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsgrpat]'))
drop procedure [dbo].[sp_lkpsgrpat]

Go


CREATE    PROCEDURE sp_lkpSGrPat
    @Sif_GrPat Char(6)
AS
    SELECT Sifra_Pat FROM SGrPat
    WHERE Sif_GrPat = @Sif_GrPat
    ORDER BY Sifra_Pat
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden]'))
drop procedure [dbo].[sp_lkpsleden]

Go










CREATE                                  PROCEDURE [dbo].[sp_lkpSleden]
    @Sifra        VARCHAR(20),
    @Tabela        VARCHAR(20),
    @Nacin        VARCHAR(10),
    @AlfaMoze    char(1) = 'N',
    @Sifra2        VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme    nVARCHAR(70) OUTPUT,
    @SlednoIme2    nVARCHAR(70) = Null OUTPUT,
           @Filter        nvarchar(20) = NULL
AS
   Declare @Greska Int
   Declare @IntSifra Int
   Set @Tabela=Upper(@Tabela)
   Set @Nacin=Upper(@Nacin)
    If @AlfaMoze <> 'D' AND len(@Sifra)<10 AND @Tabela <> 'GTIPKUP'  AND @Tabela <> 'GRORG' AND @Tabela <> 'SYSUSERS' AND @Tabela <> 'NIVO' AND @Tabela <> 'BANKSMETKI'  AND @Tabela <> 'GRPIZBOR' AND @Tabela <> 'VIDVOZILA'
         AND @Tabela <> 'MIKROLOK' AND @Tabela <> 'MAKROLOK' AND @Tabela <> 'AKCIIPROMO' AND @Tabela <> 'KONFSLAGANJE' AND @Tabela <> 'ANAL'
         and @Tabela <> 'GRPAT' AND @Tabela <> 'VIDDOG' AND @Tabela <> 'TARMODEL' and @Tabela <> 'NGCOURSETYPE' and @Tabela <> 'NGSCHOOLYEAR'
                 and @Tabela <> 'NGBILLCODES' and @Tabela <> 'NGFAMILIJA' and @Tabela <> 'FORMULADEF' AND @Tabela<>'GRKUP' AND @Tabela <> 'DBUSERS' AND @Tabela <> 'VELICSKALA' AND @Tabela <> 'TIPAKTIVNOSTI' AND @Tabela<>'GRDOK' AND @Tabela<>'WHMLOKACIJA'
         Set @IntSifra = CONVERT(Int, @Sifra)
    If @Tabela = 'KATART'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE Sifra_Art>@Sifra
            ORDER BY Sifra_Art ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE Sifra_Art<@Sifra
            ORDER BY Sifra_Art DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE Sifra_Art=@Sifra
       End
    Else If @Tabela = 'SYSUSERS'
       Begin
        If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Name, @SlednoIme=UID
            FROM SysUsers
            WHERE Name=@Sifra AND IsSqlRole=1
       End
    Else If @Tabela = 'PODGRUPI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Sifra_Podg>@Sifra
            ORDER BY Sifra_Podg ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Sifra_Podg<@Sifra
            ORDER BY Sifra_Podg DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Sifra_Podg=@Sifra
       End
    Else If @Tabela = 'GRUPI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Sifra_Gr>@Sifra
            ORDER BY Sifra_Gr ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Sifra_Gr<@Sifra
            ORDER BY Sifra_Gr DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Sifra_Gr=@Sifra
       End
    Else If @Tabela = 'TARIFI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE Sifra_Tar>@Sifra
            ORDER BY Sifra_Tar ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE Sifra_Tar<@Sifra
            ORDER BY Sifra_Tar DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE Sifra_Tar=@Sifra
       End
    Else If @Tabela = 'KOMINT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE Sifra_Kup>@Sifra
            ORDER BY Sifra_Kup ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25)) + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE Sifra_Kup<@Sifra
            ORDER BY Sifra_Kup DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25)) + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE Sifra_Kup=@Sifra
         End
    Else If @Tabela = 'ORGED'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE Sifra_OE>@IntSifra
            ORDER BY Sifra_OE ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE Sifra_OE<@IntSifra
            ORDER BY Sifra_OE DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE Sifra_OE=@IntSifra
       End
       Else If @Tabela = 'TIPDOK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE Sifra_Dok>@IntSifra
            ORDER BY Sifra_Dok ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE Sifra_Dok<@IntSifra
            ORDER BY Sifra_Dok DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE Sifra_Dok=@IntSifra
       End
       Else If @Tabela = 'TIPNARAC'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE Sifra_Nar>@IntSifra
            ORDER BY Sifra_Nar ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE Sifra_Nar<@IntSifra
            ORDER BY Sifra_Nar DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE Sifra_Nar=@IntSifra
       End
      Else If @Tabela = 'TIPNAL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE Sifra_Nal>@IntSifra
            ORDER BY Sifra_Nal ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE Sifra_Nal<@IntSifra
            ORDER BY Sifra_Nal DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE Sifra_Nal=@IntSifra
       End
      Else If @Tabela = 'ANAL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE Kto_Anal>@Sifra
            ORDER BY Kto_Anal ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE Kto_Anal<@Sifra
            ORDER BY Kto_Anal DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE Kto_Anal=@Sifra
       End
      Else If @Tabela = 'KLAS'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas WITH(NOLOCK)
            WHERE Kto_Klas>@Sifra
            ORDER BY Kto_Klas ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas WITH(NOLOCK)
            WHERE Kto_Klas<@Sifra
            ORDER BY Kto_Klas DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas WITH(NOLOCK)
            WHERE Kto_Klas=@Sifra
       End
/*      Else If @Tabela = 'GRANAL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE Kto_GrAn>@Sifra
            ORDER BY Kto_GrAn ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE Kto_GrAn<@Sifra
            ORDER BY Kto_GrAn DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE Kto_GrAn=@Sifra
       End        */
      Else If @Tabela = 'SINT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE Kto_Sint>@Sifra
            ORDER BY Kto_Sint ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE Kto_Sint<@Sifra
            ORDER BY Kto_Sint DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE Kto_Sint=@Sifra
       End
      Else If @Tabela = 'GREGION'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE Sifra_Reg>@IntSifra
            ORDER BY Sifra_Reg ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE Sifra_Reg<@IntSifra
            ORDER BY Sifra_Reg DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE Sifra_Reg=@IntSifra
       End
      Else If @Tabela = 'GTIPKUP'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
            FROM gTipKup WITH(NOLOCK)
            WHERE TipKup>@Sifra
            ORDER BY TipKup ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
            FROM GTipKup WITH(NOLOCK)
            WHERE TipKup<@Sifra
            ORDER BY TipKup DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
            FROM GTipKup WITH(NOLOCK)
            WHERE TipKup=@Sifra
       End
    Else If @Tabela = 'PATNICI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE Sifra_Pat>@Sifra
            ORDER BY Sifra_Pat ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE Sifra_Pat<@Sifra
            ORDER BY Sifra_Pat DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE Sifra_Pat=@Sifra
       End
            Else If @Tabela = 'MARKETI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE Sifra_Mark>@IntSifra
            ORDER BY Sifra_Mark ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE Sifra_Mark<@IntSifra
            ORDER BY Sifra_Mark DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE Sifra_Mark=@IntSifra
       End
    Else If @Tabela = 'DRGPODEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Sifra_Drg>@Sifra
            ORDER BY Sifra_Drg ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Sifra_Drg<@Sifra
            ORDER BY Sifra_Drg DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Sifra_Drg=@Sifra
       End
    Else If @Tabela = 'REKAPITULAR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Broj_rek, @SlednoIme=''
            FROM Rekapitular WITH(NOLOCK)
            WHERE Broj_rek>@Sifra
            ORDER BY Broj_rek  ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Broj_rek, @SlednoIme=''
            FROM Rekapitular WITH(NOLOCK)
            WHERE Broj_rek<@Sifra
            ORDER BY Broj_rek DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Broj_rek, @SlednoIme=''
            FROM Rekapitular WITH(NOLOCK)
            WHERE Broj_rek=@Sifra
       End
    Else If @Tabela = 'GRORG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg >@Sifra
            ORDER BY Sif_grOrg ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM  GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg<@Sifra
            ORDER BY Sif_grOrg DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg=@Sifra
                 End
    Else If @Tabela = 'DRGPODEL1'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Sifra_Drg1>@Sifra
            ORDER BY Sifra_Drg1 ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Sifra_Drg1<@Sifra
            ORDER BY Sifra_Drg1 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Sifra_Drg1=@Sifra
       End
    Else If @Tabela = 'DRUGO1'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Sifra_1>@IntSifra
            ORDER BY Sifra_1 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Sifra_1<@IntSifra
            ORDER BY Sifra_1 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Sifra_1=@IntSifra
       End
    Else If @Tabela = 'DRUGO2'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Sifra_2>@IntSifra
            ORDER BY Sifra_2 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Sifra_2<@IntSifra
            ORDER BY Sifra_2 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Sifra_2=@IntSifra
       End
    Else If @Tabela = 'DRUGO3'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Sifra_3>@IntSifra
            ORDER BY Sifra_3 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Sifra_3<@IntSifra
            ORDER BY Sifra_3 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Sifra_3=@IntSifra
       End
    Else If @Tabela = 'DRUGO4'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Sifra_4>@IntSifra
            ORDER BY Sifra_4 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Sifra_4<@IntSifra
            ORDER BY Sifra_4 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Sifra_4=@IntSifra
       End
    Else If @Tabela = 'DRUGO5'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Sifra_5>@IntSifra
            ORDER BY Sifra_5 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Sifra_5<@IntSifra
            ORDER BY Sifra_5 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Sifra_5=@IntSifra
       End
    Else If @Tabela = 'DRUGO6'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Sifra_6>@IntSifra
            ORDER BY Sifra_6 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Sifra_6<@IntSifra
            ORDER BY Sifra_6 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Sifra_6=@IntSifra
       End
    Else If @Tabela = 'DRUGO7'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Sifra_7>@IntSifra
            ORDER BY Sifra_7 ASC
        Else If @Nacin = 'PRETHODEN'            SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Sifra_7<@IntSifra
            ORDER BY Sifra_7 DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Sifra_7=@IntSifra
       End
        Else If @Tabela = 'KDRUGO1'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Sifra_1K>@IntSifra
            ORDER BY Sifra_1K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Sifra_1K<@IntSifra
            ORDER BY Sifra_1K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Sifra_1K=@IntSifra
       End
    Else If @Tabela = 'KDRUGO2'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Sifra_2K>@IntSifra
            ORDER BY Sifra_2K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Sifra_2K<@IntSifra
            ORDER BY Sifra_2K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Sifra_2K=@IntSifra
       End
    Else If @Tabela = 'KDRUGO3'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Sifra_3K>@IntSifra
            ORDER BY Sifra_3K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Sifra_3K<@IntSifra
            ORDER BY Sifra_3K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Sifra_3K=@IntSifra
       End
    Else If @Tabela = 'KDRUGO4'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Sifra_4K>@IntSifra
            ORDER BY Sifra_4K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Sifra_4K<@IntSifra
            ORDER BY Sifra_4K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Sifra_4K=@IntSifra
       End
    Else If @Tabela = 'KDRUGO5'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Sifra_5K>@IntSifra
            ORDER BY Sifra_5K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Sifra_5K<@IntSifra
            ORDER BY Sifra_5K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Sifra_5K=@IntSifra
       End
        Else If @Tabela = 'KDRUGO6'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Sifra_6K>@IntSifra
            ORDER BY Sifra_6K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Sifra_6K<@IntSifra
            ORDER BY Sifra_6K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Sifra_6K=@IntSifra
       End
        Else If @Tabela = 'KDRUGO7'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Sifra_7K>@IntSifra
            ORDER BY Sifra_7K ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Sifra_7K<@IntSifra
            ORDER BY Sifra_7K DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Sifra_7K=@IntSifra
       End
    Else If @Tabela = 'KNIGATRG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM KnigaTrg WITH(NOLOCK)
            WHERE InterenBr > @Sifra
            ORDER BY InterenBr  ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM  KnigaTrg WITH(NOLOCK)
            WHERE InterenBr < @Sifra
            ORDER BY InterenBr DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM KnigaTrg WITH(NOLOCK)
            WHERE  InterenBr=@Sifra
       End
    Else If @Tabela = 'KRSLISTA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE SImeVal>@Sifra
            ORDER BY SImeVal ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE SImeVal<@Sifra
            ORDER BY SImeVal DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE SImeVal=@Sifra
               End
    Else If @Tabela = 'CBROEVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE CarBroj>@Sifra
            ORDER BY CarBroj ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE CarBroj<@Sifra
            ORDER BY CarBroj DESC
        Else If @Nacin = 'TOCEN'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE CarBroj=@Sifra
        end
    Else If @Tabela = 'GRAD'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE Sifra_Grad>@Sifra
            ORDER BY Sifra_Grad ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE Sifra_Grad<@Sifra
            ORDER BY Sifra_Grad DESC
        Else If @Nacin = 'TOCEN'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE Sifra_Grad=@Sifra
          End
    Else If @Tabela = 'NIVO'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM Nivo WITH(NOLOCK)
            WHERE Sifra_Nivo >@Sifra
            ORDER BY Sifra_Nivo ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM  Nivo WITH(NOLOCK)
            WHERE Sifra_Nivo<@Sifra
            ORDER BY Sifra_Nivo DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM Nivo WITH(NOLOCK)
            WHERE Sifra_Nivo=@Sifra
                 End
    Else If @Tabela = 'GrNar'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM GrNar WITH(NOLOCK)
            WHERE Sifra_GrNar >@Sifra
            ORDER BY Sifra_GrNar ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM  GrNar WITH(NOLOCK)
            WHERE Sifra_GrNar<@Sifra
            ORDER BY Sifra_GrNar DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM GrNar WITH(NOLOCK)
            WHERE Sifra_GrNar=@Sifra
                 End
    Else If @Tabela = 'BANKI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM Banki WITH(NOLOCK)
            WHERE Sifra_Ban >@Sifra
            ORDER BY Sifra_Ban ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM  Banki WITH(NOLOCK)
            WHERE Sifra_Ban<@Sifra
            ORDER BY Sifra_Ban DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM Banki WITH(NOLOCK)
            WHERE Sifra_Ban=@Sifra
     End
    Else If @Tabela = 'PRODMEST'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM ProdMest WITH(NOLOCK)
            WHERE Sifra_Mest >@Sifra
            ORDER BY Sifra_Mest ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM  ProdMest WITH(NOLOCK)
            WHERE Sifra_Mest<@Sifra
            ORDER BY Sifra_Mest DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM ProdMest WITH(NOLOCK)
            WHERE Sifra_Mest=@Sifra
                 End
       Else If @Tabela = 'FITABELA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE FiID>@IntSifra
            ORDER BY FiID ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE FiID<@IntSifra
            ORDER BY FiID DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE FiID=@IntSifra
       End
       Else If @Tabela = 'KARTKOR'
    Begin
        If @Nacin = 'SLEDEN'
        Begin
            IF @Filter IS NULL
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE Sifra_Kor>@Sifra
                ORDER BY Sifra_Kor ASC
            ELSE
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE Sifra_Kor>@Sifra AND Sifra_Kup=@Filter
                ORDER BY Sifra_Kor ASC
        End
        Else If @Nacin = 'PRETHODEN'
        Begin
            IF @Filter IS NULL
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE Sifra_Kor<@Sifra
                ORDER BY Sifra_Kor DESC
            ELSE
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE Sifra_Kor<@Sifra AND Sifra_Kup=@Filter
                ORDER BY Sifra_Kor DESC
        End
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Kor, @SlednoIme=Imekor
            FROM KartKor WITH(NOLOCK)
            WHERE Sifra_Kor=@Sifra
    End
       Else If @Tabela = 'TIPPERCENOVNIK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE Sifra_TipC>@IntSifra
            ORDER BY Sifra_TipC ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE Sifra_TipC<@IntSifra
            ORDER BY Sifra_TipC DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE Sifra_TipC=@IntSifra
       End
       Else If @Tabela = 'BANKSMETKI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE KojaSmetka>@Sifra
            ORDER BY KojaSmetka ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE KojaSmetka<@Sifra
            ORDER BY KojaSmetka DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE KojaSmetka=@Sifra
       End
/*       Else If @Tabela = 'UCESDENOVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
            FROM UcesDenovi WITH(NOLOCK)
            WHERE Denovi>@IntSifra
            ORDER BY Denovi ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
            FROM UcesDenovi WITH(NOLOCK)
            WHERE Denovi<@IntSifra
            ORDER BY Denovi DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Denovi, @SlednoIme=Uces
            FROM UcesDenovi WITH(NOLOCK)
            WHERE Denovi=@IntSifra
       End        */
       Else If @Tabela = 'DNEVNIK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
            FROM Dnevnik WITH(NOLOCK)
            WHERE IdDnevnik>@IntSifra
            ORDER BY IdDnevnik ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
            FROM Dnevnik WITH(NOLOCK)
            WHERE IdDnevnik<@IntSifra
            ORDER BY IdDnevnik DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
            FROM Dnevnik WITH(NOLOCK)
            WHERE IdDnevnik=@IntSifra
       End
    Else If @Tabela = 'CBROEVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE CarBroj>@Sifra
            ORDER BY CarBroj ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE CarBroj<@Sifra
            ORDER BY CarBroj DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE CarBroj=@Sifra
       End
    Else If @Tabela = 'KATAMB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE Sifra_Amb>@Sifra
            ORDER BY Sifra_Amb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE Sifra_Amb<@Sifra
            ORDER BY Sifra_Amb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE Sifra_Amb=@Sifra
       End
    Else If @Tabela = 'KATGAMB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE Sifra_GAmb>@Sifra
            ORDER BY Sifra_GAmb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE Sifra_GAmb<@Sifra
            ORDER BY Sifra_GAmb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE Sifra_GAmb=@Sifra
       End
    Else If @Tabela = 'LOKACIJA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE Sifra_Lok>@Sifra
            ORDER BY Sifra_Lok ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE Sifra_Lok<@Sifra
            ORDER BY Sifra_Lok DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE Sifra_Lok=@Sifra
       End
    Else If @Tabela = 'AMORGRP'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Sifra_Amor>@Sifra
            ORDER BY Sifra_Amor ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Sifra_Amor<@Sifra
            ORDER BY Sifra_Amor DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Sifra_Amor=@Sifra
       End
    Else If @Tabela = 'OSNSRED'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Inv_Broj>@Sifra
            ORDER BY Inv_Broj ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Inv_Broj<@Sifra
            ORDER BY Inv_Broj DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Inv_Broj=@Sifra
       End
    Else If @Tabela = 'MAKROLOK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Sifra_MakLok>@Sifra
            ORDER BY Sifra_MakLok ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Sifra_MakLok<@Sifra
            ORDER BY Sifra_MakLok DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Sifra_MakLok=@Sifra
       End
    Else If @Tabela = 'MIKROLOK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Sifra_MikLok>@Sifra
            ORDER BY Sifra_MikLok ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Sifra_MikLok<@Sifra
            ORDER BY Sifra_MikLok DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Sifra_MikLok=@Sifra
       End
    Else If @Tabela = 'RABOTNIK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE Sifra_Rab>@Sifra
            ORDER BY Sifra_Rab ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE Sifra_Rab<@Sifra
            ORDER BY Sifra_Rab DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE Sifra_Rab=@Sifra
       End
    Else If @Tabela = 'PREVOZNIK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev>@Sifra
            ORDER BY Sifra_Prev ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev<@Sifra
            ORDER BY Sifra_Prev DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev=@Sifra
       End
    Else If @Tabela = 'DOZNAKI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Prev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev>@Sifra + 1
            ORDER BY Sifra_Prev ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Prev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev<@Sifra
            ORDER BY Sifra_Prev DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Prev
            FROM Prevoznik WITH(NOLOCK)
            WHERE Sifra_Prev=@Sifra
       End
    Else If @Tabela = 'OPSTINI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Sif_Opstina>@Sifra
            ORDER BY Sif_Opstina ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Sif_Opstina<@Sifra
            ORDER BY Sif_Opstina DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Sif_Opstina=@Sifra
       End
    Else If @Tabela = 'PROGRAMI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Sif_Progr>@Sifra
            ORDER BY Sif_Progr ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Sif_Progr<@Sifra
            ORDER BY Sif_Progr DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Sif_Progr=@Sifra
       End
    Else If @Tabela = 'PRIMATELI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Sif_Primatel>@Sifra
            ORDER BY Sif_Primatel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Sif_Primatel<@Sifra
            ORDER BY Sif_Primatel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Sif_Primatel=@Sifra
       End
    Else If @Tabela = 'ZADRSKI'
     Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Sif_Zadr>@Sifra
            ORDER BY Sif_Zadr ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Sif_Zadr<@Sifra
            ORDER BY Sif_Zadr DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Sif_Zadr=@Sifra
       End
    Else If @Tabela = 'ZARAB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Sif_Zarab>@Sifra
            ORDER BY Sif_Zarab ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Sif_Zarab<@Sifra
            ORDER BY Sif_Zarab DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Sif_Zarab=@Sifra
       End
    Else If @Tabela = 'OPERATORI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Sifra_Oper>@Sifra
            ORDER BY Sifra_Oper ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Sifra_Oper<@Sifra
            ORDER BY Sifra_Oper DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Sifra_Oper=@Sifra
       End
    Else If @Tabela = 'NACPLAK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE Sifra_Nac>@Sifra
            ORDER BY Sifra_Nac ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE Sifra_Nac<@Sifra
            ORDER BY Sifra_Nac DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE Sifra_Nac=@Sifra
       End
    Else If @Tabela = 'INTERNIKART'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart>@Sifra
            ORDER BY Interna_Kart ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart<@Sifra
            ORDER BY Interna_Kart DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart=@Sifra
       End
    Else If @Tabela = 'FIRMI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE Sifra_Firma>@Sifra
            ORDER BY Sifra_Firma ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE Sifra_Firma<@Sifra
            ORDER BY Sifra_Firma DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE Sifra_Firma=@Sifra
       End
    Else If @Tabela = 'NACINPRESMZ'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresmZ WITH(NOLOCK)
            WHERE Sif_NacPresZ>@Sifra
            ORDER BY Sif_NacPresZ ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresmZ WITH(NOLOCK)
            WHERE Sif_NacPresZ<@Sifra
            ORDER BY Sif_NacPresZ DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresmZ WITH(NOLOCK)
            WHERE Sif_NacPresZ=@Sifra
       End
    Else If @Tabela = 'GRPIZBOR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Sifra_GrpIzb>@Sifra
            ORDER BY Sifra_GrpIzb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Sifra_GrpIzb<@Sifra
            ORDER BY Sifra_GrpIzb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Sifra_GrpIzb=@Sifra
       End
    Else If @Tabela = 'VIDVOZILA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Sifra_Vid_Voz>@Sifra
            ORDER BY Sifra_Vid_Voz ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Sifra_Vid_Voz<@Sifra
            ORDER BY Sifra_Vid_Voz DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Sifra_Vid_Voz=@Sifra
       End
    Else If @Tabela = 'DIVIZII'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE Sifra_Div>@Sifra
            ORDER BY Sifra_Div ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE Sifra_Div<@Sifra
            ORDER BY Sifra_Div DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE Sifra_Div=@Sifra
       End
    Else If @Tabela = 'NIVOCENIKARTKOR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE Sifra_CeniKartKor>@Sifra
            ORDER BY Sifra_CeniKartKor ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE Sifra_CeniKartKor<@Sifra
            ORDER BY Sifra_CeniKartKor DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE Sifra_CeniKartKor=@Sifra
       End
    Else If @Tabela = 'TIPKARTKOR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE Sifra_TipKartKor>@Sifra
            ORDER BY Sifra_TipKartKor ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE Sifra_TipKartKor<@Sifra
            ORDER BY Sifra_TipKartKor DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE Sifra_TipKartKor=@Sifra
       End
    Else If @Tabela = 'GRUPIOPER'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE Sifra_GrOper>@Sifra
            ORDER BY Sifra_GrOper ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE Sifra_GrOper<@Sifra
            ORDER BY Sifra_GrOper DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE Sifra_GrOper=@Sifra
       End
    Else If @Tabela = 'DEPOZAMB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
            FROM DepozAmb WITH(NOLOCK)
            WHERE Sif_Depoz_Amb>@Sifra
            ORDER BY Sif_Depoz_Amb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
            FROM DepozAmb WITH(NOLOCK)
            WHERE Sif_Depoz_Amb<@Sifra
            ORDER BY Sif_Depoz_Amb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
            FROM DepozAmb WITH(NOLOCK)
            WHERE Sif_Depoz_Amb=@Sifra
       End
    Else If @Tabela = 'RELACISPOR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Sifra_RelIspor>@Sifra
            ORDER BY Sifra_RelIspor ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Sifra_RelIspor<@Sifra
            ORDER BY Sifra_RelIspor DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Sifra_RelIspor=@Sifra
       End
    Else If @Tabela = 'VIDPRODOBJ'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Sifra_VPJ>@Sifra
            ORDER BY Sifra_VPJ ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Sifra_VPJ<@Sifra
            ORDER BY Sifra_VPJ DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Sifra_VPJ=@Sifra
       End
    Else If @Tabela = 'TIPKOMINT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE Sifra_Tip>@Sifra
            ORDER BY Sifra_Tip ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE Sifra_Tip<@Sifra
            ORDER BY Sifra_Tip DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE Sifra_Tip=@Sifra
       End
    Else If @Tabela = 'SMENI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Sifra_Smena>@Sifra
            ORDER BY Sifra_Smena ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Sifra_Smena<@Sifra
            ORDER BY Sifra_Smena DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Sifra_Smena=@Sifra
       End
    Else If @Tabela = 'HILZNI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Sifra_Hilzna>@Sifra
            ORDER BY Sifra_Hilzna ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Sifra_Hilzna<@Sifra
            ORDER BY Sifra_Hilzna DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Sifra_Hilzna=@Sifra
       End
    Else If @Tabela = 'FAZI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Sifra_Faza>@Sifra
            ORDER BY Sifra_Faza ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Sifra_Faza<@Sifra
            ORDER BY Sifra_Faza DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Sifra_Faza=@Sifra
       End
    Else If @Tabela = 'MASINI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE Sifra_Mas>@Sifra
            ORDER BY Sifra_Mas ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE Sifra_Mas<@Sifra
            ORDER BY Sifra_Mas DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE Sifra_Mas=@Sifra
       End
    Else If @Tabela = 'AKCIIPROMO'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Ozn_Akcija>@Sifra
            ORDER BY Ozn_Akcija ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Ozn_Akcija<@Sifra
            ORDER BY Ozn_Akcija DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Ozn_Akcija=@Sifra
       End
    Else If @Tabela = 'GRPMARZA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Grupa_Marza>@Sifra
            ORDER BY Grupa_Marza ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Grupa_Marza<@Sifra
            ORDER BY Grupa_Marza DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Grupa_Marza=@Sifra
       End
         Else If @Tabela = 'KONFSLAGANJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE Sifra_slag>@Sifra
            ORDER BY Sifra_Slag ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE Sifra_Slag<@Sifra
            ORDER BY Sifra_Slag DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE Sifra_Slag=@Sifra
       End
         Else If @Tabela = 'GRUPAWEB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM GrupaWeb WITH(NOLOCK)
            WHERE Sifra_GrWeb>@Sifra
            ORDER BY Sifra_GrWeb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM GrupaWeb WITH(NOLOCK)
            WHERE Sifra_GrWeb<@Sifra
            ORDER BY Sifra_GrWeb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM Sifra_GrWeb WITH(NOLOCK)
            WHERE Sifra_GrWeb=@Sifra
       End
         Else If @Tabela = 'PODGRWEB'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Sifra_PodgrWeb>@Sifra
            ORDER BY Sifra_PodgrWeb ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Sifra_PodgrWeb<@Sifra
            ORDER BY Sifra_PodgrWeb DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Sifra_PodgrWeb=@Sifra
       End
    Else If @Tabela = 'GRPAT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM GrPat WITH(NOLOCK)
            WHERE Sif_GrPat >@Sifra
            ORDER BY Sif_GrPat ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM  GrPat WITH(NOLOCK)
            WHERE Sif_GrPat<@Sifra
            ORDER BY Sif_GrPat DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM GrPat WITH(NOLOCK)
            WHERE Sif_GrPat=@Sifra
                 End
    Else If @Tabela = 'KATSTATUS'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus >@Sifra
            ORDER BY Sifra_KatStatus ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM  KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus<@Sifra
            ORDER BY Sifra_KatStatus DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus=@Sifra
                 End
    Else If @Tabela = 'TIPKATPAKUV'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM TipKatPakuv WITH(NOLOCK)
            WHERE Sifra_KatPak >@Sifra
            ORDER BY Sifra_KatPak ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM  TipKatPakuv WITH(NOLOCK)
            WHERE Sifra_KatPak<@Sifra
            ORDER BY Sifra_KatPak DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM TipKatPakuv WITH(NOLOCK)
            WHERE Sifra_KatPak=@Sifra
                 End
    Else If @Tabela = 'VIDDOG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog >@Sifra
            ORDER BY Sifra_VidDog ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM  VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog<@Sifra
            ORDER BY Sifra_VidDog DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog=@Sifra
            End
    Else If @Tabela = 'VERNTRAENJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost >@Sifra
            ORDER BY Sifra_Vernost ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM  VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost<@Sifra
            ORDER BY Sifra_Vernost DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost=@Sifra
            End
    Else If @Tabela = 'TARMODEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel >@Sifra
            ORDER BY Sifra_TarModel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM  TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel<@Sifra
            ORDER BY Sifra_TarModel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel=@Sifra
            End
        Else If @Tabela = 'RKASGRUPAOPERAC'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac >@Sifra
            ORDER BY Sifra_GrOperac ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM  RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac<@Sifra
            ORDER BY Sifra_GrOperac DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac=@Sifra
                 End
    else If @Tabela = 'ARKAKAT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE Sifra_Art>@Sifra
            ORDER BY Sifra_Art ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE Sifra_Art<@Sifra
            ORDER BY Sifra_Art DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE Sifra_Art=@Sifra
       End
    Else If @Tabela = 'CRRKODOVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE Sifra_CRR > @IntSifra
            ORDER BY Sifra_CRR ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE Sifra_CRR < @IntSifra
            ORDER BY Sifra_CRR DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_CRR, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE Sifra_CRR = @IntSifra
       End
    Else If @Tabela = 'FORMULADEF'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Sifra_Formula > @Sifra
            ORDER BY Sifra_Formula ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Sifra_Formula < @Sifra
            ORDER BY Sifra_Formula DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Sifra_Formula = @Sifra
       End
        Else If @Tabela = 'KARAKTERIST'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE Sifra_Karakt > @Sifra
            ORDER BY Sifra_KArakt ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE Sifra_Karakt < @Sifra
            ORDER BY Sifra_Karakt DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE Sifra_Karakt = @Sifra
       End
    Else If @Tabela = 'ATCKODOVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC>@Sifra
            ORDER BY Sifra_ATC ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC<@Sifra
            ORDER BY Sifra_ATC DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC=@Sifra
       End
    Else If @Tabela = 'VOZIZJAVA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Broj_Izjava
            FROM VozIzjava WITH(NOLOCK)
            WHERE Broj_Izjava>@Sifra
            ORDER BY Broj_Izjava ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Broj_Izjava
            FROM VozIzjava WITH(NOLOCK)
            WHERE Broj_Izjava<@Sifra
            ORDER BY Broj_Izjava DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Broj_Izjava
            FROM VozIzjava WITH(NOLOCK)
            WHERE Broj_Izjava=@Sifra
       End
    Else If @Tabela = 'KREDITSTATUS'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Status_Kredit
            FROM KreditStatus WITH(NOLOCK)
            WHERE Status_Kredit>@Sifra
            ORDER BY Status_Kredit ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Status_Kredit
            FROM KreditStatus WITH(NOLOCK)
            WHERE Status_Kredit<@Sifra
            ORDER BY Status_Kredit DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Status_Kredit
            FROM KreditStatus WITH(NOLOCK)
            WHERE Status_Kredit=@Sifra
       End
        Else If @Tabela = 'KREDITTIPOPOMENA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KreditTipOpomena WITH(NOLOCK)
            WHERE Tip_Opomena>@Sifra
            ORDER BY Tip_Opomena ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KreditTipOpomena WITH(NOLOCK)
            WHERE Tip_Opomena<@Sifra
            ORDER BY Tip_Opomena DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KreditTipOpomena WITH(NOLOCK)
            WHERE Tip_Opomena=@Sifra
       End
        Else If @Tabela = 'OSNGRPODEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel>@Sifra
            ORDER BY Sifra_OsnGrPodel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel<@Sifra
            ORDER BY Sifra_OsnGrPodel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel=@Sifra
       End
         Else If @Tabela = 'OSNPODELBI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
            FROM OsnPodelbi WITH(NOLOCK)
            WHERE Sifra_OsnPodel>@Sifra and Sifra_OsnGrPodel=@Sifra2
            ORDER BY Sifra_OsnPodel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
            FROM OsnPodelbi WITH(NOLOCK)
            WHERE Sifra_OsnPodel<@Sifra and Sifra_OsnGrPodel=@Sifra2
            ORDER BY Sifra_OsnPodel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
            FROM OsnPodelbi WITH(NOLOCK)
            WHERE Sifra_OsnPodel=@Sifra and Sifra_OsnGrPodel=@Sifra2
       End
         Else If @Tabela = 'TROSOKVID'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE Sifra_TrosV>@Sifra
            ORDER BY Sifra_TrosV ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE Sifra_TrosV<@Sifra
            ORDER BY Sifra_TrosV DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE Sifra_TrosV=@Sifra
       End
     Else If @Tabela = 'TROSOKMESTO'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE Sifra_TrosM>@Sifra
            ORDER BY Sifra_TrosM ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE Sifra_TrosM<@Sifra
            ORDER BY Sifra_TrosM DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE Sifra_TrosM=@Sifra
       end
     Else If @Tabela = 'TROSOK4TIP'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Sifra_4Tros>@Sifra
            ORDER BY Sifra_4Tros ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Sifra_4Tros<@Sifra
            ORDER BY Sifra_4Tros DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Sifra_4Tros=@Sifra
       End
    Else If @Tabela = 'GRKUP'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM GrKup WITH(NOLOCK)
            WHERE Sif_GrKup >@Sifra
            ORDER BY Sif_GrKup ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM  GrKup WITH(NOLOCK)
            WHERE Sif_GrKup<@Sifra
            ORDER BY Sif_GrKup DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM GrKup WITH(NOLOCK)
            WHERE Sif_GrKup=@Sifra
        End
    Else If @Tabela = 'SPREMAC'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
            FROM Spremac WITH(NOLOCK)
            WHERE Sif_Spremac >@Sifra
            ORDER BY Sif_Spremac ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
            FROM Spremac WITH(NOLOCK)
            WHERE Sif_Spremac<@Sifra
            ORDER BY Sif_Spremac DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
            FROM Spremac WITH(NOLOCK)
            WHERE Sif_Spremac=@Sifra
      End
    Else If @Tabela = 'BOJA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM Boja WITH(NOLOCK)
            WHERE Sifra_Boja >@Sifra
            ORDER BY Sifra_Boja ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM Boja WITH(NOLOCK)
            WHERE Sifra_Boja<@Sifra
            ORDER BY Sifra_Boja DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM Boja WITH(NOLOCK)
            WHERE Sifra_Boja=@Sifra
        End

/*    Else If @Tabela = 'VELICINA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE Sifra_Velic >@Sifra
            ORDER BY Sifra_Velic ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE Sifra_Velic<@Sifra
            ORDER BY Sifra_Velic DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE Sifra_Velic=@Sifra
        End
*/
--    Else If @Tabela = 'VELICSKALA'
--       Begin
--        If @Nacin = 'SLEDEN'
--            SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
--            FROM VelicSkala WITH(NOLOCK)
--            WHERE Sifra_VelSkala >@Sifra
--            ORDER BY Sifra_VelSkala ASC
--        Else If @Nacin = 'PRETHODEN'
--            SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
--            FROM VelicSkala WITH(NOLOCK)
--            WHERE Sifra_VelSkala<@Sifra
--            ORDER BY Sifra_VelSkala DESC
--        Else If @Nacin = 'TOCEN'
--            SELECT @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
--            FROM VelicSkala WITH(NOLOCK)
--            WHERE Sifra_VelSkala=@Sifra
--        End
--     Else If @Tabela = 'KATSPECTIPMAT'
--        Begin
--         If @Nacin = 'SLEDEN'
--            SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
--            FROM KATSPECTIPMAT WITH(NOLOCK)
--            WHERE Sifra_TipMat>@Sifra
--            ORDER BY Sifra_TipMat ASC
--         Else If @Nacin = 'TOCEN'
--            SELECT @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
--            FROM KATSPECTIPMAT WITH(NOLOCK)
--            WHERE Sifra_TipMat=@Sifra
--         End
    Else If @Tabela = 'GRDOK'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
            FROM GrDok WITH(NOLOCK)
            WHERE Sif_GrDok >@Sifra
            ORDER BY Sif_GrDok ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
            FROM  GrDok WITH(NOLOCK)
            WHERE Sif_GrDok<@Sifra
            ORDER BY Sif_GrDok DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
            FROM GrDok WITH(NOLOCK)
            WHERE Sif_GrDok=@Sifra
                 End
     Else If @Tabela = 'DBUSERS'
         Begin
          If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Name, @SlednoIme=UID
            FROM SysUsers
            WHERE Name=@Sifra AND IsSqlUser=1
          End
  --     Else If @Tabela = 'TIPAKTIVNOSTI'
     --    Begin
        --If @Nacin = 'SLEDEN'
        --    SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        --FROM TipAktivnosti WITH(NOLOCK)
        --WHERE Tip_Akt >@Sifra
        --ORDER BY Tip_Akt ASC
        --Else If @Nacin = 'PRETHODEN'
        --    SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        --    FROM TipAktivnosti WITH(NOLOCK)
        --    WHERE Tip_Akt<@Sifra
        --    ORDER BY Tip_Akt DESC
        --Else If @Nacin = 'TOCEN'
        --    SELECT @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        --    FROM TipAktivnosti WITH(NOLOCK)
        --    WHERE Tip_Akt=@Sifra
     --     End
--     else If @Tabela = 'MCKATPOZICIJA'
--       Begin
--        If @Nacin = 'SLEDEN'
--            SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
--            FROM MCKatPozicija WITH(NOLOCK)
--            WHERE Sif_MCPozicija >@Sifra
--            ORDER BY Sif_MCPozicija ASC
--        Else If @Nacin = 'PRETHODEN'
--            SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
--            FROM MCKatPozicija WITH(NOLOCK)
--            WHERE Sif_MCPozicija<@Sifra
--            ORDER BY Sif_MCPozicija DESC
--        Else If @Nacin = 'TOCEN'
--            SELECT @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
--            FROM MCKatPozicija
--            WHERE Sif_MCPozicija=@Sifra
--        End

    Else If @Tabela = 'WHMLOKACIJA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
            FROM WhmLokacija WITH(NOLOCK)
            WHERE Lokac_ID >@Sifra
            ORDER BY Lokac_Id ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=lokac_Ime
            FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Id<@Sifra
            ORDER BY Lokac_Id DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
            FROM WhmLokacija WITH(NOLOCK)
            WHERE Lokac_Id=@Sifra
       End
     --Else If @Tabela = 'ASORTIMAN'
     --  Begin
        --If @Nacin = 'SLEDEN'
        --    SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        --    FROM Asortiman WITH(NOLOCK)
        --    WHERE Sifra_Asort >@Sifra
        --    ORDER BY Sifra_Asort ASC
        --Else If @Nacin = 'PRETHODEN'
        --    SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        --    FROM Asortiman WITH(NOLOCK)
        --    WHERE Sifra_Asort<@Sifra
        --    ORDER BY Sifra_Asort DESC
        --Else If @Nacin = 'TOCEN'
        --    SELECT @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        --    FROM Asortiman WITH(NOLOCK)
        --    WHERE Sifra_Asort=@Sifra
     --  End
    Else If @Tabela = 'KLIENTI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=RTRIM(ImeKlient) + ' ' + RTRIM(PrezimeKlient)
            FROM Klienti WITH(NOLOCK)
            WHERE Sif_Klient >@Sifra
            ORDER BY Sif_Klient ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=RTRIM(ImeKlient) + ' ' + RTRIM(PrezimeKlient)
            FROM Klienti WITH(NOLOCK)
            WHERE Sif_Klient<@Sifra
            ORDER BY Sif_Klient DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_Klient, @SlednoIme=RTRIM(ImeKlient) + ' ' + RTRIM(PrezimeKlient)
            FROM Klienti WITH(NOLOCK)
            WHERE Sif_Klient=@Sifra
       End



   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR



















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_akciipromo]'))
drop procedure [dbo].[sp_lkpsleden_akciipromo]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_AkciiPromo]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Ozn_Akcija>@Sifra
        ORDER BY Ozn_Akcija ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Ozn_Akcija<@Sifra
        ORDER BY Ozn_Akcija DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Ozn_Akcija=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_alt]'))
drop procedure [dbo].[sp_lkpsleden_alt]

Go

CREATE    PROCEDURE [dbo].[sp_lkpSleden_Alt]
    @Sifra        VARCHAR(20),
    @Tabela        VARCHAR(20),
    @Nacin        VARCHAR(10),
    @AlfaMoze    char(1) = 'N',
    @Sifra2        VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme    nVARCHAR(70) OUTPUT,
    @SlednoIme2    nVARCHAR(70) = Null OUTPUT,
           @Filter        nvarchar(20) = NULL

AS

   Declare @Greska Int
   Declare @IntSifra Int
   Set @Tabela=Upper(@Tabela)
   Set @Nacin=Upper(@Nacin)
    If @AlfaMoze <> 'D' AND len(@Sifra)<10 AND @Tabela <> 'VOZILA'
         Set @IntSifra = CONVERT(Int, @Sifra)

    If @Tabela = 'VOZILA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE Sifra_Art>@Sifra
            ORDER BY Sifra_Art ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE Sifra_Art<@Sifra
            ORDER BY Sifra_Art DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE Sifra_Art=@Sifra
       End

   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_amorgrp]'))
drop procedure [dbo].[sp_lkpsleden_amorgrp]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_AmorGrp]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Sifra_Amor>@Sifra
        ORDER BY Sifra_Amor ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Sifra_Amor<@Sifra
        ORDER BY Sifra_Amor DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Sifra_Amor=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_anal]'))
drop procedure [dbo].[sp_lkpsleden_anal]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Anal]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE Kto_Anal>@Sifra
        ORDER BY Kto_Anal ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE Kto_Anal<@Sifra
        ORDER BY Kto_Anal DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE Kto_Anal=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_arkakat]'))
drop procedure [dbo].[sp_lkpsleden_arkakat]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_ArkaKat]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE Sifra_Art>@Sifra
        ORDER BY Sifra_Art ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE Sifra_Art<@Sifra
        ORDER BY Sifra_Art DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE Sifra_Art=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_asortiman]'))
drop procedure [dbo].[sp_lkpsleden_asortiman]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Asortiman]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Sifra_Asort >@Sifra
        ORDER BY Sifra_Asort ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Sifra_Asort<@Sifra
        ORDER BY Sifra_Asort DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Sifra_Asort=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_atckodovi]'))
drop procedure [dbo].[sp_lkpsleden_atckodovi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_ATCKodovi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE Sifra_ATC>@Sifra
        ORDER BY Sifra_ATC ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE Sifra_ATC<@Sifra
        ORDER BY Sifra_ATC DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE Sifra_ATC=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_banki]'))
drop procedure [dbo].[sp_lkpsleden_banki]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Banki]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM Banki WITH(NOLOCK)
        WHERE Sifra_Ban >@Sifra
        ORDER BY Sifra_Ban ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM  Banki WITH(NOLOCK)
        WHERE Sifra_Ban<@Sifra
        ORDER BY Sifra_Ban DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM Banki WITH(NOLOCK)
        WHERE Sifra_Ban=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_banksmetki]'))
drop procedure [dbo].[sp_lkpsleden_banksmetki]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_BankSmetki]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE KojaSmetka>@Sifra
        ORDER BY KojaSmetka ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE KojaSmetka<@Sifra
        ORDER BY KojaSmetka DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE KojaSmetka=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_boja]'))
drop procedure [dbo].[sp_lkpsleden_boja]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Boja]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM Boja WITH(NOLOCK)
        WHERE Sifra_Boja >@Sifra
        ORDER BY Sifra_Boja ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM Boja WITH(NOLOCK)
        WHERE Sifra_Boja<@Sifra
        ORDER BY Sifra_Boja DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM Boja WITH(NOLOCK)
        WHERE Sifra_Boja=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_cbroevi]'))
drop procedure [dbo].[sp_lkpsleden_cbroevi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_CBroevi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE CarBroj>@Sifra
        ORDER BY CarBroj ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE CarBroj<@Sifra
        ORDER BY CarBroj DESC
    Else If @Nacin = 'TOCEN'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE CarBroj=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_crrkodovi]'))
drop procedure [dbo].[sp_lkpsleden_crrkodovi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_CRRKodovi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE Sifra_CRR > @IntSifra
        ORDER BY Sifra_CRR ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE Sifra_CRR < @IntSifra
        ORDER BY Sifra_CRR DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_CRR, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE Sifra_CRR = @IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_dbusers]'))
drop procedure [dbo].[sp_lkpsleden_dbusers]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_DBUSERS]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Name, @SlednoIme=UID
        FROM SysUsers
        WHERE Name=@Sifra AND IsSqlUser=1

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_depozamb]'))
drop procedure [dbo].[sp_lkpsleden_depozamb]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_DepozAmb]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
        FROM DepozAmb WITH(NOLOCK)
        WHERE Sif_Depoz_Amb>@Sifra
        ORDER BY Sif_Depoz_Amb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
        FROM DepozAmb WITH(NOLOCK)
        WHERE Sif_Depoz_Amb<@Sifra
        ORDER BY Sif_Depoz_Amb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Depoz_Amb, @SlednoIme=Null
        FROM DepozAmb WITH(NOLOCK)
        WHERE Sif_Depoz_Amb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_divizii]'))
drop procedure [dbo].[sp_lkpsleden_divizii]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Divizii]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE Sifra_Div>@Sifra
        ORDER BY Sifra_Div ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE Sifra_Div<@Sifra
        ORDER BY Sifra_Div DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE Sifra_Div=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_dnevnik]'))
drop procedure [dbo].[sp_lkpsleden_dnevnik]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Dnevnik]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE IdDnevnik>@IntSifra
        ORDER BY IdDnevnik ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE IdDnevnik<@IntSifra
        ORDER BY IdDnevnik DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE IdDnevnik=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_doznaki]'))
drop procedure [dbo].[sp_lkpsleden_doznaki]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Doznaki]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Broj_Doznaka
        FROM Doznaki WITH(NOLOCK)
        WHERE Broj_Doznaka>@Sifra + 1
        ORDER BY Broj_Doznaka ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Broj_Doznaka
        FROM Doznaki WITH(NOLOCK)
        WHERE Broj_Doznaka<@Sifra
        ORDER BY Broj_Doznaka DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Broj_Doznaka
        FROM Doznaki WITH(NOLOCK)
        WHERE Broj_Doznaka=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drgpodel]'))
drop procedure [dbo].[sp_lkpsleden_drgpodel]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_DrgPodel]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Sifra_Drg>@Sifra
        ORDER BY Sifra_Drg ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Sifra_Drg<@Sifra
        ORDER BY Sifra_Drg DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Sifra_Drg=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drgpodel1]'))
drop procedure [dbo].[sp_lkpsleden_drgpodel1]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_DrgPodel1]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Sifra_Drg1>@Sifra
        ORDER BY Sifra_Drg1 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Sifra_Drg1<@Sifra
        ORDER BY Sifra_Drg1 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Sifra_Drg1=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo1]'))
drop procedure [dbo].[sp_lkpsleden_drugo1]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo1]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

   If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Sifra_1>@IntSifra
        ORDER BY Sifra_1 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Sifra_1<@IntSifra
        ORDER BY Sifra_1 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Sifra_1=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo2]'))
drop procedure [dbo].[sp_lkpsleden_drugo2]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo2]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Sifra_2>@IntSifra
        ORDER BY Sifra_2 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Sifra_2<@IntSifra
        ORDER BY Sifra_2 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Sifra_2=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo3]'))
drop procedure [dbo].[sp_lkpsleden_drugo3]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo3]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Sifra_3>@IntSifra
        ORDER BY Sifra_3 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Sifra_3<@IntSifra
        ORDER BY Sifra_3 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Sifra_3=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo4]'))
drop procedure [dbo].[sp_lkpsleden_drugo4]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo4]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Sifra_4>@IntSifra
        ORDER BY Sifra_4 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Sifra_4<@IntSifra
        ORDER BY Sifra_4 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Sifra_4=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo5]'))
drop procedure [dbo].[sp_lkpsleden_drugo5]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo5]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Sifra_5>@IntSifra
        ORDER BY Sifra_5 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Sifra_5<@IntSifra
        ORDER BY Sifra_5 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Sifra_5=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo6]'))
drop procedure [dbo].[sp_lkpsleden_drugo6]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo6]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Sifra_6>@IntSifra
        ORDER BY Sifra_6 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Sifra_6<@IntSifra
        ORDER BY Sifra_6 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Sifra_6=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drugo7]'))
drop procedure [dbo].[sp_lkpsleden_drugo7]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Drugo7]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Sifra_7>@IntSifra
        ORDER BY Sifra_7 ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Sifra_7<@IntSifra
        ORDER BY Sifra_7 DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Sifra_7=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_drzava]'))
drop procedure [dbo].[sp_lkpsleden_drzava]

Go


create PROCEDURE [dbo].[sp_lkpSleden_Drzava]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Str_Drzava>@Sifra
        ORDER BY Str_Drzava ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Str_Drzava<@Sifra
        ORDER BY Str_Drzava DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Str_Drzava=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_edmerilist]'))
drop procedure [dbo].[sp_lkpsleden_edmerilist]

Go

create PROCEDURE [dbo].[sp_lkpSleden_EdMeriList]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera > @Sifra
        ORDER BY EdMera ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera < @Sifra
        ORDER BY EdMera DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera = @Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_fazi]'))
drop procedure [dbo].[sp_lkpsleden_fazi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Fazi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Sifra_Faza>@Sifra
        ORDER BY Sifra_Faza ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Sifra_Faza<@Sifra
        ORDER BY Sifra_Faza DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Sifra_Faza=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_firmi]'))
drop procedure [dbo].[sp_lkpsleden_firmi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Firmi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE Sifra_Firma>@Sifra
        ORDER BY Sifra_Firma ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE Sifra_Firma<@Sifra
        ORDER BY Sifra_Firma DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE Sifra_Firma=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_fitabela]'))
drop procedure [dbo].[sp_lkpsleden_fitabela]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_FiTabela]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE FiID>@IntSifra
        ORDER BY FiID ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE FiID<@IntSifra
        ORDER BY FiID DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE FiID=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_formuladef]'))
drop procedure [dbo].[sp_lkpsleden_formuladef]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_FormulaDef]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Sifra_Formula > @Sifra
        ORDER BY Sifra_Formula ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Sifra_Formula < @Sifra
        ORDER BY Sifra_Formula DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Sifra_Formula = @Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grad]'))
drop procedure [dbo].[sp_lkpsleden_grad]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Grad]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE Sifra_Grad>@IntSifra
        ORDER BY Sifra_Grad ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE Sifra_Grad<@IntSifra
        ORDER BY Sifra_Grad DESC
    Else If @Nacin = 'TOCEN'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE Sifra_Grad=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_granal]'))
drop procedure [dbo].[sp_lkpsleden_granal]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrAnal]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE Kto_GrAn>@Sifra
        ORDER BY Kto_GrAn ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE Kto_GrAn<@Sifra
        ORDER BY Kto_GrAn DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE Kto_GrAn=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_granalplan]'))
drop procedure [dbo].[sp_lkpsleden_granalplan]

Go

create PROCEDURE [dbo].[sp_lkpSleden_GrAnalPlan]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Sif_GrAnalPLan >@Sifra
        ORDER BY Sif_GrAnalPLan ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Sif_GrAnalPLan<@Sifra
        ORDER BY Sif_GrAnalPLan DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Sif_GrAnalPLan=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grdok]'))
drop procedure [dbo].[sp_lkpsleden_grdok]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrDok]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM GrDok WITH(NOLOCK)
        WHERE Sif_GrDok >@Sifra
        ORDER BY Sif_GrDok ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM  GrDok WITH(NOLOCK)
        WHERE Sif_GrDok<@Sifra
        ORDER BY Sif_GrDok DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM GrDok WITH(NOLOCK)
        WHERE Sif_GrDok=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_gregion]'))
drop procedure [dbo].[sp_lkpsleden_gregion]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GRegion]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE Sifra_Reg>@IntSifra
        ORDER BY Sifra_Reg ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE Sifra_Reg<@IntSifra
        ORDER BY Sifra_Reg DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE Sifra_Reg=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grkup]'))
drop procedure [dbo].[sp_lkpsleden_grkup]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrKup]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM GrKup WITH(NOLOCK)
        WHERE Sif_GrKup >@Sifra
        ORDER BY Sif_GrKup ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM  GrKup WITH(NOLOCK)
        WHERE Sif_GrKup<@Sifra
        ORDER BY Sif_GrKup DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM GrKup WITH(NOLOCK)
        WHERE Sif_GrKup=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grorg]'))
drop procedure [dbo].[sp_lkpsleden_grorg]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrOrg]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM GrOrg WITH(NOLOCK)
        WHERE Sif_grOrg >@Sifra
        ORDER BY Sif_grOrg ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM  GrOrg WITH(NOLOCK)
        WHERE Sif_grOrg<@Sifra
        ORDER BY Sif_grOrg DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM GrOrg WITH(NOLOCK)
        WHERE Sif_grOrg=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grpat]'))
drop procedure [dbo].[sp_lkpsleden_grpat]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrPat]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM GrPat WITH(NOLOCK)
        WHERE Sif_GrPat >@Sifra
        ORDER BY Sif_GrPat ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM  GrPat WITH(NOLOCK)
        WHERE Sif_GrPat<@Sifra
        ORDER BY Sif_GrPat DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM GrPat WITH(NOLOCK)
        WHERE Sif_GrPat=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grpizbor]'))
drop procedure [dbo].[sp_lkpsleden_grpizbor]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrpIzbor]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Sifra_GrpIzb>@Sifra
        ORDER BY Sifra_GrpIzb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Sifra_GrpIzb<@Sifra
        ORDER BY Sifra_GrpIzb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Sifra_GrpIzb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grpmarza]'))
drop procedure [dbo].[sp_lkpsleden_grpmarza]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrpMarza]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Grupa_Marza>@Sifra
        ORDER BY Grupa_Marza ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Grupa_Marza<@Sifra
        ORDER BY Grupa_Marza DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Grupa_Marza=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grupaweb]'))
drop procedure [dbo].[sp_lkpsleden_grupaweb]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrupaWeb]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM GrupaWeb WITH(NOLOCK)
        WHERE Sifra_GrWeb>@Sifra
        ORDER BY Sifra_GrWeb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM GrupaWeb WITH(NOLOCK)
        WHERE Sifra_GrWeb<@Sifra
        ORDER BY Sifra_GrWeb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM Sifra_GrWeb WITH(NOLOCK)
        WHERE Sifra_GrWeb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grupi]'))
drop procedure [dbo].[sp_lkpsleden_grupi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Grupi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Sifra_Gr>@Sifra
        ORDER BY Sifra_Gr ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Sifra_Gr<@Sifra
        ORDER BY Sifra_Gr DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Sifra_Gr=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_grupioper]'))
drop procedure [dbo].[sp_lkpsleden_grupioper]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_GrupiOper]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE Sifra_GrOper>@Sifra
        ORDER BY Sifra_GrOper ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE Sifra_GrOper<@Sifra
        ORDER BY Sifra_GrOper DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE Sifra_GrOper=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_gtipkup]'))
drop procedure [dbo].[sp_lkpsleden_gtipkup]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_gTipKup]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM gTipKup WITH(NOLOCK)
        WHERE TipKup>@Sifra
        ORDER BY TipKup ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM GTipKup WITH(NOLOCK)
        WHERE TipKup<@Sifra
        ORDER BY TipKup DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM GTipKup WITH(NOLOCK)
        WHERE TipKup=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_hilzni]'))
drop procedure [dbo].[sp_lkpsleden_hilzni]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Hilzni]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Sifra_Hilzna>@Sifra
        ORDER BY Sifra_Hilzna ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Sifra_Hilzna<@Sifra
        ORDER BY Sifra_Hilzna DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Sifra_Hilzna=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime]'))
drop procedure [dbo].[sp_lkpsleden_ime]

Go






--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar
CREATE                  PROCEDURE [dbo].[sp_lkpSleden_Ime]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL
AS
    Declare @Greska Int
    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

     If @Tabela = 'KATART'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE ImeArt>@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art > @OpcPrethSifra)
            ORDER BY ImeArt, Sifra_Art ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE ImeArt>=@Ime
            ORDER BY ImeArt, Sifra_Art ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
            FROM KatArt WITH(NOLOCK)
            WHERE ImeArt<@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art < @OpcPrethSifra)
            ORDER BY ImeArt DESC, Sifra_Art DESC
       End
    Else If @Tabela = 'PODGRUPI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Ime_Podg>@Ime
            ORDER BY Ime_Podg ASC, Sifra_Podg ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Ime_Podg>=@Ime
            ORDER BY Ime_Podg ASC, Sifra_Podg ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
            FROM Podgrupi WITH(NOLOCK)
            WHERE Ime_Podg<@Ime
            ORDER BY Ime_Podg DESC, Sifra_Podg DESC
       End
    Else If @Tabela = 'GRUPI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Ime_Gr>@Ime
            ORDER BY Ime_Gr ASC, Sifra_Gr ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Ime_Gr>=@Ime
            ORDER BY Ime_Gr ASC, Sifra_Gr ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
            FROM Grupi WITH(NOLOCK)
            WHERE Ime_Gr<@Ime
            ORDER BY Ime_Gr DESC, Sifra_Gr DESC
       End
    Else If @Tabela = 'TARIFI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE ImeTar>@Ime
            ORDER BY ImeTar ASC, Sifra_Tar ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE ImeTar>=@Ime
            ORDER BY ImeTar ASC, Sifra_Tar ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
            FROM Tarifi WITH(NOLOCK)
            WHERE ImeTar<@Ime
            ORDER BY ImeTar DESC, Sifra_Tar DESC
       End
    Else If @Tabela = 'KOMINT'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))>@Ime
            ORDER BY ImeKup ASC, Sifra_Kup ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE RTrim(ImeKup)+ ' /' + IsNull(RTrim(SMesto),'') + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))>=@Ime
            ORDER BY ImeKup ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
            FROM Komint WITH(NOLOCK)
            WHERE RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))<@Ime
            ORDER BY ImeKup DESC, Sifra_Kup DESC
       End
    Else If @Tabela = 'TIPDOK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE ImeDok>@Ime             ORDER BY ImeDok ASC, Sifra_Dok ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE ImeDok>=@Ime
            ORDER BY ImeDok ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
            FROM TipDok WITH(NOLOCK)
            WHERE ImeDok<@Ime             ORDER BY ImeDok DESC, Sifra_Dok DESC
       End
    Else If @Tabela = 'TIPNARAC'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE ImeNar>@Ime             ORDER BY ImeNar ASC, Sifra_Nar ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE ImeNar>=@Ime
            ORDER BY ImeNar ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
            FROM TipNarac WITH(NOLOCK)
            WHERE ImeNar<@Ime             ORDER BY ImeNar DESC, Sifra_Nar DESC
       End
    Else If @Tabela = 'TIPNAL'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE ImeNal>@Ime
            ORDER BY ImeNal ASC, Sifra_Nal ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE ImeNal>=@Ime
            ORDER BY ImeNal ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
            FROM TipNal WITH(NOLOCK)
            WHERE ImeNal<@Ime
            ORDER BY ImeNal DESC, Sifra_Nal DESC
       End
    Else If @Tabela = 'ORGED'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE ImeOrg>@Ime
            ORDER BY ImeOrg ASC, Sifra_OE ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE ImeOrg>=@Ime
            ORDER BY ImeOrg ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
            FROM Orged WITH(NOLOCK)
            WHERE ImeOrg<@Ime
            ORDER BY ImeOrg DESC, Sifra_OE DESC
       End
    Else If @Tabela = 'GREGION'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE ImeRegion>@Ime
            ORDER BY ImeRegion ASC, Sifra_reg ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE ImeRegion>=@Ime
            ORDER BY ImeRegion ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
            FROM GRegion WITH(NOLOCK)
            WHERE ImeRegion<@Ime
            ORDER BY ImeRegion DESC, Sifra_reg DESC
       End
    Else If @Tabela = 'PATNICI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE ImePat>@Ime
            ORDER BY ImePat ASC, Sifra_Pat ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE ImePat>=@Ime
            ORDER BY ImePat ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
            FROM Patnici WITH(NOLOCK)
            WHERE ImePat<@Ime
            ORDER BY ImePat DESC, Sifra_Pat DESC
       End
    Else If @Tabela = 'MARKETI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE ImeMark>@Ime
            ORDER BY ImeMark ASC, Sifra_Mark ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE ImeMark>=@Ime
            ORDER BY ImeMark ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
            FROM Marketi WITH(NOLOCK)
            WHERE ImeMark<@Ime
            ORDER BY ImeMark DESC, Sifra_Mark DESC
                 End
    Else If @Tabela = 'DRGPODEL'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Ime>@Ime
            ORDER BY Ime ASC, Sifra_Drg ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Ime>=@Ime
            ORDER BY Ime ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
            FROM DrgPodel WITH(NOLOCK)
            WHERE Ime<@Ime
            ORDER BY Ime DESC, Sifra_Drg DESC
       End
            Else If @Tabela = 'GRORG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg >@Ime
            ORDER BY Sif_grOrg ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM  GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg<@Ime
            ORDER BY Sif_grOrg DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
            FROM GrOrg WITH(NOLOCK)
            WHERE Sif_grOrg=@Ime
                 End
    Else If @Tabela = 'DRGPODEL1'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Ime_Drg1>@Ime
            ORDER BY Ime_Drg1 ASC, Sifra_Drg1 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Ime_Drg1>=@Ime
            ORDER BY Ime_Drg1 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
            FROM DrgPodel1 WITH(NOLOCK)
            WHERE Ime_Drg1<@Ime
            ORDER BY Ime_Drg1 DESC, Sifra_Drg1 DESC
       End
    Else If @Tabela = 'DRUGO1'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Ime_1>@Ime
            ORDER BY Ime_1 ASC, Sifra_1 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Ime_1>=@Ime
            ORDER BY Ime_1 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
            FROM Drugo1 WITH(NOLOCK)
            WHERE Ime_1<@Ime
            ORDER BY Ime_1 DESC, Sifra_1 DESC
       End
    Else If @Tabela = 'DRUGO2'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Ime_2>@Ime
            ORDER BY Ime_2 ASC, Sifra_2 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Ime_2>=@Ime
            ORDER BY Ime_2 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
            FROM Drugo2 WITH(NOLOCK)
            WHERE Ime_2<@Ime
            ORDER BY Ime_2 DESC, Sifra_2 DESC
       End
    Else If @Tabela = 'DRUGO3'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Ime_3>@Ime
            ORDER BY Ime_3 ASC, Sifra_3 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Ime_3>=@Ime
            ORDER BY Ime_3 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
            FROM Drugo3 WITH(NOLOCK)
            WHERE Ime_3<@Ime
            ORDER BY Ime_3 DESC, Sifra_3 DESC
       End
    Else If @Tabela = 'DRUGO4'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Ime_4>@Ime
            ORDER BY Ime_4 ASC, Sifra_4 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Ime_4>=@Ime
            ORDER BY Ime_4 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
            FROM Drugo4 WITH(NOLOCK)
            WHERE Ime_4<@Ime
            ORDER BY Ime_4 DESC, Sifra_4 DESC
       End
    Else If @Tabela = 'DRUGO5'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Ime_5>@Ime
            ORDER BY Ime_5 ASC, Sifra_5 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Ime_5>=@Ime
            ORDER BY Ime_5 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
            FROM Drugo5 WITH(NOLOCK)
            WHERE Ime_5<@Ime
            ORDER BY Ime_5 DESC, Sifra_5 DESC
       End
    Else If @Tabela = 'DRUGO6'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Ime_6>@Ime
            ORDER BY Ime_6 ASC, Sifra_6 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Ime_6>=@Ime
            ORDER BY Ime_6 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
            FROM Drugo6 WITH(NOLOCK)
            WHERE Ime_6<@Ime
            ORDER BY Ime_6 DESC, Sifra_6 DESC
       End
        Else If @Tabela = 'DRUGO7'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Ime_7>@Ime
            ORDER BY Ime_7 ASC, Sifra_7 ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Ime_7>=@Ime
            ORDER BY Ime_7 ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
            FROM Drugo7 WITH(NOLOCK)
            WHERE Ime_7<@Ime
            ORDER BY Ime_7 DESC, Sifra_7 DESC
       End
        Else If @Tabela = 'KDRUGO1'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Ime_1k>@Ime
            ORDER BY Ime_1k ASC, Sifra_1k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Ime_1K>=@Ime
            ORDER BY Ime_1k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
            FROM KDrugo1 WITH(NOLOCK)
            WHERE Ime_1k<@Ime
            ORDER BY Ime_1k DESC, Sifra_1k DESC
       End
    Else If @Tabela = 'KDRUGO2'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Ime_2k>@Ime
            ORDER BY Ime_2k ASC, Sifra_2k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Ime_2K>=@Ime
            ORDER BY Ime_2k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
            FROM KDrugo2 WITH(NOLOCK)
            WHERE Ime_2k<@Ime
            ORDER BY Ime_2k DESC, Sifra_2k DESC
       End
    Else If @Tabela = 'KDRUGO3'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Ime_3k>@Ime
            ORDER BY Ime_3k ASC, Sifra_3k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Ime_3K>=@Ime
            ORDER BY Ime_3k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
            FROM KDrugo3 WITH(NOLOCK)
            WHERE Ime_3k<@Ime
            ORDER BY Ime_3k DESC, Sifra_3k DESC
       End
    Else If @Tabela = 'KDRUGO4'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Ime_4k>@Ime
            ORDER BY Ime_4k ASC, Sifra_4k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Ime_4K>=@Ime
            ORDER BY Ime_4k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
            FROM KDrugo4 WITH(NOLOCK)
            WHERE Ime_4k<@Ime
            ORDER BY Ime_4k DESC, Sifra_4k DESC
       End
    Else If @Tabela = 'KDRUGO5'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Ime_5k>@Ime
            ORDER BY Ime_5k ASC, Sifra_5k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Ime_5K>=@Ime
            ORDER BY Ime_5k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
            FROM KDrugo5 WITH(NOLOCK)
            WHERE Ime_5k<@Ime
            ORDER BY Ime_5k DESC, Sifra_5k DESC
       End
        Else If @Tabela = 'KDRUGO6'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Ime_6k>@Ime
            ORDER BY Ime_6k ASC, Sifra_6k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Ime_6K>=@Ime
            ORDER BY Ime_6k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
            FROM KDrugo6 WITH(NOLOCK)
            WHERE Ime_6k<@Ime
            ORDER BY Ime_6k DESC, Sifra_6k DESC
       End
        Else If @Tabela = 'KDRUGO7'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Ime_7k>@Ime
            ORDER BY Ime_7k ASC, Sifra_7k ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Ime_7K>=@Ime
            ORDER BY Ime_7k ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
            FROM KDrugo7 WITH(NOLOCK)
            WHERE Ime_7k<@Ime
            ORDER BY Ime_7k DESC, Sifra_7k DESC
       End
        Else If @Tabela = 'KNIGATRG'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM KnigaTrg WITH(NOLOCK)
            WHERE Broj > @Ime
            ORDER BY Broj ASC, InterenBr ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM KnigaTrg WITH(NOLOCK)
            WHERE Broj >= @Ime
            ORDER BY Broj ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
            FROM KnigaTrg WITH(NOLOCK)
            WHERE Broj < @Ime
            ORDER BY Broj DESC, InterenBr DESC
       End
     Else If @Tabela = 'KRSLISTA'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE ImeVal>@Ime
            ORDER BY ImeVal ASC, SImeVal ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE ImeVal>=@Ime
            ORDER BY ImeVal ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
            FROM KrsLista WITH(NOLOCK)
            WHERE ImeVal<@Ime
            ORDER BY ImeVal DESC, SImeVal DESC
       End
     Else If @Tabela = 'CBROEVI'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE Ime>@Ime
            ORDER BY CarBroj ASC, Ime ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE Ime>=@Ime
            ORDER BY Ime ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi
            WHERE Ime<@Ime
            ORDER BY Ime DESC, CarBroj DESC
       End
    Else If @Tabela = 'GRAD'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE ImeGrad>@Ime
            ORDER BY Sifra_Grad ASC, ImeGrad ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE ImeGrad>=@Ime
            ORDER BY ImeGrad ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
            FROM Grad WITH(NOLOCK)
            WHERE ImeGrad<@Ime
            ORDER BY ImeGrad DESC, Sifra_Grad DESC
       End
    Else If @Tabela = 'NIVO'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM Nivo WITH(NOLOCK)
            WHERE ImeNivo>@Ime
            ORDER BY Sifra_Nivo ASC, ImeNivo ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM Nivo WITH(NOLOCK)
            WHERE ImeNivo>=@Ime
            ORDER BY ImeNivo ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
            FROM Nivo WITH(NOLOCK)
            WHERE ImeNivo<@Ime
            ORDER BY ImeNivo DESC, Sifra_Nivo DESC
       End
    Else If @Tabela = 'KLAS'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas
            WHERE ImeKlasa>@Ime
            ORDER BY Kto_Klas ASC, ImeKlasa ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas
            WHERE ImeKlasa>=@Ime
            ORDER BY ImeKlasa ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
            FROM Klas
            WHERE ImeKlasa<@Ime
            ORDER BY ImeKlasa DESC, Kto_Klas DESC
       End
    Else If @Tabela = 'GRANAL'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE ImeGrAn>@Ime
            ORDER BY Kto_GrAn ASC, ImeGrAn ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE ImeGrAn>=@Ime
            ORDER BY ImeGrAn ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
            FROM GrAnal WITH(NOLOCK)
            WHERE ImeGrAn<@Ime
            ORDER BY ImeGrAn DESC, Kto_GrAn DESC
       End
    Else If @Tabela = 'SINT'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE ImeSint>@Ime
            ORDER BY Kto_Sint ASC, ImeSint ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE ImeSint>=@Ime
            ORDER BY ImeSint ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
            FROM Sint WITH(NOLOCK)
            WHERE ImeSint<@Ime
            ORDER BY ImeSint DESC, Kto_Sint DESC
       End
    Else If @Tabela = 'ANAL'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE ImeAnal>@Ime
            ORDER BY  ImeAnal ASC, Kto_Anal ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE ImeAnal>=@Ime
            ORDER BY ImeAnal ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
            FROM Anal WITH(NOLOCK)
            WHERE ImeAnal<@Ime
            ORDER BY ImeAnal DESC, Kto_Anal DESC
       End
    Else If @Tabela = 'GrNar'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM GrNar WITH(NOLOCK)
            WHERE ImeGrNar>@Ime
            ORDER BY ImeGrNar ASC, Sifra_GrNar ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM GrNar WITH(NOLOCK)
            WHERE ImeGrNar>=@Ime
            ORDER BY ImeGrNar ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
            FROM GrNar WITH(NOLOCK)
            WHERE ImeGrNar<@Ime
            ORDER BY ImeGrNar DESC, Sifra_GrNar DESC
       End
    Else If @Tabela = 'BANKI'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM Banki WITH(NOLOCK)
            WHERE ImeBanka>@Ime
            ORDER BY ImeBanka ASC, Sifra_Ban ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM Banki WITH(NOLOCK)
            WHERE ImeBanka>=@Ime
            ORDER BY ImeBanka ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
            FROM Banki WITH(NOLOCK)
            WHERE ImeBanka<@Ime
            ORDER BY ImeBanka DESC, Sifra_Ban DESC
       End
    Else If @Tabela = 'PRODMEST'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM ProdMest WITH(NOLOCK)
            WHERE Opis>@Ime
            ORDER BY  Opis ASC, Sifra_Mest ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM ProdMest WITH(NOLOCK)
            WHERE Opis>=@Ime
            ORDER BY Opis ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
            FROM ProdMest WITH(NOLOCK)
            WHERE Opis<@Ime
            ORDER BY Opis DESC, Sifra_Mest DESC
       End
    Else If @Tabela = 'FITABELA'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE Ime>@Ime
            ORDER BY  Ime ASC, FiID ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE Ime>=@Ime
            ORDER BY Ime ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
            FROM FiTabela WITH(NOLOCK)
            WHERE Ime<@Ime
            ORDER BY Ime DESC, FiID DESC
       End
    Else If @Tabela = 'KARTKOR'
    Begin
        If @Nacin = 'Sleden'
        BEGIN
            IF @Filter IS NULL
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor>@Ime
                ORDER BY  ImeKor ASC, Sifra_Kor ASC
            ELSE
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor>@Ime AND Sifra_Kup=@Filter
                ORDER BY  ImeKor ASC, Sifra_Kor ASC
        END
        Else If @Nacin = 'SledenEdnakov'
        BEGIN
            IF @Filter IS NULL
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor>=@Ime
                ORDER BY ImeKor ASC
            ELSE
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor>=@Ime AND Sifra_Kup=@Filter
                ORDER BY ImeKor ASC
        END
        Else If @Nacin = 'Prethoden'
        BEGIN
            IF @Filter IS NULL
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor<@Ime
                ORDER BY ImeKor DESC, Sifra_Kor DESC
            ELSE
                SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
                FROM KartKor WITH(NOLOCK)
                WHERE ImeKor<@Ime AND Sifra_Kup=@Filter
                ORDER BY ImeKor DESC, Sifra_Kor DESC
        END
    End
    Else If @Tabela = 'TIPPERCENOVNIK'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE ImeTipC>@Ime
            ORDER BY  ImeTipC ASC, Sifra_TipC ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE ImeTipC>=@Ime
            ORDER BY ImeTipC ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
            FROM TipPerCenovnik WITH(NOLOCK)
            WHERE ImeTipC<@Ime
            ORDER BY ImeTipC DESC, Sifra_TipC DESC
       End
    Else If @Tabela = 'BANKSMETKI'
      Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE Banka>@Ime
            ORDER BY  Banka ASC, KojaSmetka ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE Banka>=@Ime
            ORDER BY Banka ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
            FROM BankSmetki WITH(NOLOCK)
            WHERE Banka<@Ime
            ORDER BY Banka DESC, KojaSmetka DESC
       End
    Else If @Tabela = 'CBROEVI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE Ime>@Ime
            ORDER BY Ime ASC, CarBroj ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE Ime>=@Ime
            ORDER BY Ime ASC, CarBroj ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
            FROM CBroevi WITH(NOLOCK)
            WHERE Ime<@Ime
            ORDER BY Ime DESC, CarBroj DESC
       End
    Else If @Tabela = 'KATAMB'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE ImeAmb>@Ime
            ORDER BY ImeAmb ASC, Sifra_Amb ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE ImeAmb>=@Ime
            ORDER BY ImeAmb ASC, Sifra_Amb ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
            FROM KatAmb WITH(NOLOCK)
            WHERE ImeAmb<@Ime
            ORDER BY ImeAmb DESC, Sifra_Amb DESC
       End
    Else If @Tabela = 'KATGAMB'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE ImeGAmb>@Ime
            ORDER BY ImeGAmb ASC, Sifra_GAmb ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE ImeGAmb>=@Ime
            ORDER BY ImeGAmb ASC, Sifra_GAmb ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
            FROM KatGAmb WITH(NOLOCK)
            WHERE ImeGAmb<@Ime
            ORDER BY ImeGAmb DESC, Sifra_GAmb DESC
       End
    Else If @Tabela = 'LOKACIJA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE ImeLok>@Ime
            ORDER BY ImeLok ASC, Sifra_Lok ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE ImeLok>=@Ime
            ORDER BY ImeLok ASC, Sifra_Lok ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
            FROM Lokacija WITH(NOLOCK)
            WHERE ImeLok<@Ime
            ORDER BY ImeLok DESC, Sifra_Lok DESC
       End
    Else If @Tabela = 'AMORGRP'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Ime>@Ime
            ORDER BY Ime ASC, Sifra_Amor ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Ime>=@Ime
            ORDER BY Ime ASC, Sifra_Amor ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
            FROM AmorGrp WITH(NOLOCK)
            WHERE Ime<@Ime
            ORDER BY Ime DESC, Sifra_Amor DESC
       End
    Else If @Tabela = 'OSNSRED'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Ime>@Ime
            ORDER BY Ime ASC, Inv_Broj ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Ime>=@Ime
            ORDER BY Ime ASC, Inv_Broj ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
            FROM OsnSred WITH(NOLOCK)
            WHERE Ime<@Ime
            ORDER BY Ime DESC, Inv_Broj DESC
       End
    Else If @Tabela = 'MAKROLOK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Ime_MakLok>@Ime
            ORDER BY Ime_MakLok ASC, Sifra_MakLok ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Ime_MakLok>=@Ime
            ORDER BY Ime_MakLok ASC, Sifra_MakLok ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
            FROM MakroLok WITH(NOLOCK)
            WHERE Ime_MakLok<@Ime
            ORDER BY Ime_MakLok DESC, Sifra_MakLok DESC
       End
    Else If @Tabela = 'MIKROLOK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Ime_MikLok>@Ime
            ORDER BY Ime_MikLok ASC, Sifra_MikLok ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Ime_MikLok>=@Ime
            ORDER BY Ime_MikLok ASC, Sifra_MikLok ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
            FROM MikroLok WITH(NOLOCK)
            WHERE Ime_MikLok<@Ime
            ORDER BY Ime_MikLok DESC, Sifra_MikLok DESC
       End
    Else If @Tabela = 'RABOTNIK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE ImeRab>@Ime
            ORDER BY ImeRab ASC, Sifra_Rab ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE ImeRab>=@Ime
            ORDER BY ImeRab ASC, Sifra_Rab ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
            FROM Rabotnik WITH(NOLOCK)
            WHERE ImeRab<@Ime
            ORDER BY ImeRab DESC, Sifra_Rab DESC
       End
    Else If @Tabela = 'PREVOZNIK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE ImePrev>@Ime
            ORDER BY ImePrev ASC, Sifra_Prev ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE ImePrev>=@Ime
            ORDER BY ImePrev ASC, Sifra_Prev ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
            FROM Prevoznik WITH(NOLOCK)
            WHERE ImePrev<@Ime
            ORDER BY ImePrev DESC, Sifra_Prev DESC
       End
    Else If @Tabela = 'OPSTINI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Ime_Opstina>@Ime
            ORDER BY Ime_Opstina ASC, Sif_Opstina ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Ime_Opstina>=@Ime
            ORDER BY Ime_Opstina ASC, Sif_Opstina ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
            FROM Opstini WITH(NOLOCK)
            WHERE Ime_Opstina<@Ime
            ORDER BY Ime_Opstina DESC, Sif_Opstina DESC
       End
    Else If @Tabela = 'PROGRAMI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Ime_Progr>@Ime
            ORDER BY Ime_Progr ASC, Sif_Progr ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Ime_Progr>=@Ime
            ORDER BY Ime_Progr ASC, Sif_Progr ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
            FROM Programi WITH(NOLOCK)
            WHERE Ime_Progr<@Ime
            ORDER BY Ime_Progr DESC, Sif_Progr DESC
       End
    Else If @Tabela = 'PRIMATELI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Ime_Primatel>@Ime
            ORDER BY Ime_Primatel ASC, Sif_Primatel ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Ime_Primatel>=@Ime
            ORDER BY Ime_Primatel ASC, Sif_Primatel ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
            FROM Primateli WITH(NOLOCK)
            WHERE Ime_Primatel<@Ime
            ORDER BY Ime_Primatel DESC, Sif_Primatel DESC
       End
    Else If @Tabela = 'ZADRSKI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Ime_Zadr>@Ime
            ORDER BY Ime_Zadr ASC, Sif_Zadr ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Ime_Zadr>=@Ime
            ORDER BY Ime_Zadr ASC, Sif_Zadr ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
            FROM Zadrski WITH(NOLOCK)
            WHERE Ime_Zadr<@Ime
            ORDER BY Ime_Zadr DESC, Sif_Zadr DESC
       End
    Else If @Tabela = 'ZARAB'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Ime_Zarab>@Ime
            ORDER BY Ime_Zarab ASC, Sif_Zarab ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Ime_Zarab>=@Ime
            ORDER BY Ime_Zarab ASC, Sif_Zarab ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
            FROM Zarab WITH(NOLOCK)
            WHERE Ime_Zarab<@Ime
            ORDER BY Ime_Zarab DESC, Sif_Zarab DESC
       End
    Else If @Tabela = 'OPERATORI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Ime_Oper>@Ime
            ORDER BY Ime_Oper ASC, Sifra_Oper ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Ime_Oper>=@Ime
            ORDER BY Ime_Oper ASC, Sifra_Oper ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
            FROM Operatori WITH(NOLOCK)
            WHERE Ime_Oper<@Ime
            ORDER BY Ime_Oper DESC, Sifra_Oper DESC
       End
    Else If @Tabela = 'NACPLAK'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE ImeNac>@Ime
            ORDER BY ImeNac ASC, Sifra_Nac ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE ImeNac>=@Ime
            ORDER BY ImeNac ASC, Sifra_Nac ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
            FROM NacPlak WITH(NOLOCK)
            WHERE ImeNac<@Ime
            ORDER BY ImeNac DESC, Sifra_Nac DESC
       End
    Else If @Tabela = 'INTERNIKART'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart>@Ime
            ORDER BY Interna_Kart ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart>=@Ime
            ORDER BY Interna_Kart ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
            FROM InterniKart WITH(NOLOCK)
            WHERE Interna_Kart<@Ime
            ORDER BY Interna_Kart DESC
       End
    Else If @Tabela = 'FIRMI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE ImeFirma>@Ime
            ORDER BY ImeFirma ASC, Sifra_Firma ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE ImeFirma>=@Ime
            ORDER BY ImeFirma ASC, Sifra_Firma ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
            FROM Firmi WITH(NOLOCK)
            WHERE ImeFirma<@Ime
            ORDER BY ImeFirma DESC, Sifra_Firma DESC
       End
    Else If @Tabela = 'NACINPRESMZ'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresmZ WITH(NOLOCK)
            WHERE Ime_NacPresZ>@Ime
            ORDER BY Ime_NacPresZ ASC, Sif_NacPresZ ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresmZ WITH(NOLOCK)
            WHERE Ime_NacPresZ>=@Ime
            ORDER BY Ime_NacPresZ ASC, Sif_NacPresZ ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
            FROM NacinPresZ WITH(NOLOCK)
            WHERE Ime_NacPresmZ<@Ime
            ORDER BY Ime_NacPresZ DESC, Sif_NacPresZ DESC
       End
    Else If @Tabela = 'GRPIZBOR'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Ime_GrpIzb>@Ime
            ORDER BY Ime_GrpIzb ASC, Sifra_GrpIzb ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Ime_GrpIzb>=@Ime
            ORDER BY Ime_GrpIzb ASC, Sifra_GrpIzb ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
            FROM GrpIzbor WITH(NOLOCK)
            WHERE Ime_GrpIzb<@Ime
            ORDER BY Ime_GrpIzb DESC, Sifra_GrpIzb DESC
       End
    Else If @Tabela = 'VIDVOZILA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Ime_Vid_Voz>@Ime
            ORDER BY Ime_Vid_Voz ASC, Sifra_Vid_Voz ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Ime_Vid_Voz>=@Ime
            ORDER BY Ime_Vid_Voz ASC, Sifra_Vid_Voz ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
            FROM VidVozila WITH(NOLOCK)
            WHERE Ime_Vid_Voz<@Ime
            ORDER BY Ime_Vid_Voz DESC, Sifra_Vid_Voz DESC
       End
    Else If @Tabela = 'DIVIZII'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE ImeDiv>@Ime
            ORDER BY ImeDiv ASC, Sifra_Div ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE ImeDiv>=@Ime
            ORDER BY ImeDiv ASC, Sifra_Div ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
            FROM Divizii WITH(NOLOCK)
            WHERE ImeDiv<@Ime
            ORDER BY ImeDiv DESC, Sifra_Div DESC
       End
    Else If @Tabela = 'NIVOCENIKARTKOR'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE ImeCeniKartKor>@Ime
            ORDER BY ImeCeniKartKor ASC, Sifra_CeniKartKor ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE ImeCeniKartKor>=@Ime
            ORDER BY ImeCeniKartKor ASC, Sifra_CeniKartKor ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
            FROM NivoCeniKartKor WITH(NOLOCK)
            WHERE ImeCeniKartKor<@Ime
            ORDER BY ImeCeniKartKor DESC, Sifra_CeniKartKor DESC
       End
    Else If @Tabela = 'TIPKARTKOR'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE ImeKartKor>@Ime
            ORDER BY ImeKartKor ASC, Sifra_TipKartKor ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE ImeKartKor>=@Ime
            ORDER BY ImeKartKor ASC, Sifra_TipKartKor ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
            FROM TipKartKor WITH(NOLOCK)
            WHERE ImeKartKor<@Ime
            ORDER BY ImeKartKor DESC, Sifra_TipKartKor DESC
       End
    Else If @Tabela = 'GRUPIOPER'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE ImeGrOper>@Ime
            ORDER BY ImeGrOper ASC, Sifra_GrOper ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE ImeGrOper>=@Ime
            ORDER BY ImeGrOper ASC, Sifra_GrOper ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
            FROM GrupiOper WITH(NOLOCK)
            WHERE ImeGrOper<@Ime
            ORDER BY ImeGrOper DESC, Sifra_GrOper DESC
       End
    Else If @Tabela = 'RELACISPOR'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Ime_RelIspor>@Ime
            ORDER BY Ime_RelIspor ASC, Sifra_RelIspor ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Ime_RelIspor>=@Ime
            ORDER BY Ime_RelIspor ASC, Sifra_RelIspor ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
            FROM RelacIspor WITH(NOLOCK)
            WHERE Ime_RelIspor<@Ime
            ORDER BY Ime_RelIspor DESC, Sifra_RelIspor DESC
       End
    Else If @Tabela = 'VIDPRODOBJ'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Ime_VPJ>@Ime
            ORDER BY Ime_VPJ ASC, Sifra_VPJ ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Ime_VPJ>=@Ime
            ORDER BY Ime_VPJ ASC, Sifra_VPJ ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
            FROM VidProdObj WITH(NOLOCK)
            WHERE Ime_VPJ<@Ime
            ORDER BY Ime_VPJ DESC, Sifra_VPJ DESC
       End
    Else If @Tabela = 'TIPKOMINT'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE ImeTip>@Ime
            ORDER BY ImeTip ASC, Sifra_Tip ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE ImeTip>=@Ime
            ORDER BY ImeTip ASC, Sifra_Tip ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
            FROM TipKomint WITH(NOLOCK)
            WHERE ImeTip<@Ime
            ORDER BY ImeTip DESC, Sifra_Tip DESC
       End
    Else If @Tabela = 'SMENI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Ime_Smena>@Ime
            ORDER BY Ime_Smena ASC, Sifra_Smena ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Ime_Smena>=@Ime
            ORDER BY Ime_Smena ASC, Sifra_Smena ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
            FROM Smeni WITH(NOLOCK)
            WHERE Ime_Smena<@Ime
            ORDER BY Ime_Smena DESC, Sifra_Smena DESC
       End
    Else If @Tabela = 'HILZNI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Ime_Hilzna>@Ime
            ORDER BY Ime_Hilzna ASC, Sifra_Hilzna ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Ime_Hilzna>=@Ime
            ORDER BY Ime_Hilzna ASC, Sifra_Hilzna ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
            FROM Hilzni WITH(NOLOCK)
            WHERE Ime_Hilzna<@Ime
            ORDER BY Ime_Hilzna DESC, Sifra_Hilzna DESC
       End
    Else If @Tabela = 'FAZI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Ime_Faza>@Ime
            ORDER BY Ime_Faza ASC, Sifra_Faza ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Ime_Faza>=@Ime
            ORDER BY Ime_Faza ASC, Sifra_Faza ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
            FROM Fazi WITH(NOLOCK)
            WHERE Ime_Faza<@Ime
            ORDER BY Ime_Faza DESC, Sifra_Faza DESC
       End
    Else If @Tabela = 'MASINI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE ImeMas>@Ime
            ORDER BY ImeMas ASC, Sifra_Mas ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE ImeMas>=@Ime
            ORDER BY ImeMas ASC, Sifra_Mas ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
            FROM Masini WITH(NOLOCK)
            WHERE ImeMas<@Ime
            ORDER BY ImeMas DESC, Sifra_Mas DESC
       End
    Else If @Tabela = 'AKCIIPROMO'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Opis_Akcija>@Ime
            ORDER BY Opis_Akcija ASC, Ozn_Akcija ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Opis_Akcija>=@Ime
            ORDER BY Opis_Akcija ASC, Ozn_Akcija ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
            FROM AkciiPromo WITH(NOLOCK)
            WHERE Opis_Akcija<@Ime
            ORDER BY Opis_Akcija DESC, Ozn_Akcija DESC
       End
    Else If @Tabela = 'GRPMARZA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Ime_GrM>@Ime
            ORDER BY Ime_GrM ASC, Grupa_Marza ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Ime_GrM>=@Ime
            ORDER BY Ime_GrM ASC, Grupa_Marza ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
            FROM GrpMarza WITH(NOLOCK)
            WHERE Ime_GrM<@Ime
            ORDER BY Ime_GrM DESC, Grupa_Marza DESC
       End
         Else If @Tabela = 'KONFSLAGANJE'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE ImeSlag>@Ime
            ORDER BY ImeSlag ASC, Sifra_Slag ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE ImeSlag>=@Ime
            ORDER BY ImeSlag ASC, Sifra_Slag ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
            FROM KonfSlaganje WITH(NOLOCK)
            WHERE ImeSlag<@Ime
            ORDER BY ImeSlag DESC, Sifra_Slag DESC
       End
         Else If @Tabela = 'GRUPAWEB'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM GrupaWeb WITH(NOLOCK)
            WHERE Ime_GrWeb>@Ime
            ORDER BY Ime_GrWeb ASC, Sifra_GrWeb ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM GrupaWeb WITH(NOLOCK)
            WHERE Ime_GrWeb>=@Ime
            ORDER BY Ime_GrWeb ASC, Sifra_GrWeb ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
            FROM GrupaWeb WITH(NOLOCK)
            WHERE Ime_GrWeb<@Ime
            ORDER BY Ime_GrWeb DESC, Sifra_GrWeb DESC
       End
         Else If @Tabela = 'PODGRWEB'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Ime_PodgrWeb>@Ime
            ORDER BY Ime_PodgrWeb ASC, Sifra_PodgrWeb ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Ime_PodgrWeb>=@Ime
            ORDER BY Ime_PodgrWeb ASC, Sifra_PodgrWeb ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
            FROM PodgrWeb WITH(NOLOCK)
            WHERE Ime_PodgrWeb<@Ime
            ORDER BY Ime_PodgrWeb DESC, Sifra_PodgrWeb DESC
       End
            Else If @Tabela = 'GRPAT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM GrPat WITH(NOLOCK)
            WHERE Sif_GrPat >@Ime
            ORDER BY Sif_GrPat ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM  GrPat WITH(NOLOCK)
            WHERE Sif_GrPat<@Ime
            ORDER BY Sif_GrPat DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
            FROM GrPat WITH(NOLOCK)
            WHERE Sif_GrPat=@Ime
                 End
            Else If @Tabela = 'KATSTATUS'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus >@Ime
            ORDER BY Sifra_KatStatus ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM  KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus<@Ime
            ORDER BY Sifra_KatStatus DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
            FROM KatStatus WITH(NOLOCK)
            WHERE Sifra_KatStatus=@Ime
                 End
      Else If @Tabela = 'TIPKATPAKUV'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM TipKatPakuv WITH(NOLOCK)
            WHERE Sifra_KatPak >@Ime
            ORDER BY Sifra_KatPak ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM  TipKatPakuv WITH(NOLOCK)
            WHERE Sifra_KatPak<@Ime
            ORDER BY Sifra_KatPak DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
            FROM Sifra_KatPak WITH(NOLOCK)
            WHERE Sifra_KatPak=@Ime
       End
    Else If @Tabela = 'VIDDOG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog >@Ime
            ORDER BY Sifra_VidDog ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM  VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog<@Ime
            ORDER BY Sifra_VidDog DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
            FROM VidDog WITH(NOLOCK)
            WHERE Sifra_VidDog=@Ime
            End
    Else If @Tabela = 'VERNTRAENJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost >@Ime
            ORDER BY Sifra_Vernost ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM  VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost<@Ime
            ORDER BY Sifra_Vernost DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
            FROM VernTraenje WITH(NOLOCK)
            WHERE Sifra_Vernost=@Ime
            End
    Else If @Tabela = 'TARMODEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel >@Ime
            ORDER BY Sifra_TarModel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM  TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel<@Ime
            ORDER BY Sifra_TarModel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
            FROM TarModel WITH(NOLOCK)
            WHERE Sifra_TarModel=@Ime
            End
        Else If @Tabela = 'RKASGRUPAOPERAC'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM  RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac >@Ime
            ORDER BY Sifra_GrOperac ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM  RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac<@Ime
            ORDER BY Sifra_GrOperac DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
            FROM RKASGRUPAOPERAC WITH(NOLOCK)
            WHERE Sifra_GrOperac=@Ime
       End
     else If @Tabela = 'ARKAKAT'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE ImeArt>@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art > @OpcPrethSifra)
            ORDER BY ImeArt, Sifra_Art ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE ImeArt>=@Ime
            ORDER BY ImeArt, Sifra_Art ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
            FROM ArkaKat WITH(NOLOCK)
            WHERE ImeArt<@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art < @OpcPrethSifra)
            ORDER BY ImeArt DESC, Sifra_Art DESC
       End
        Else If @Tabela = 'CRRKODOVI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE ImeCrr > @Ime
            ORDER BY ImeCrr ASC, Sifra_Crr ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE ImeCrr >= @Ime
            ORDER BY ImeCrr ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
            FROM CRRKodovi WITH(NOLOCK)
            WHERE ImeCrr < @Ime
            ORDER BY ImeCrr DESC, Sifra_Crr DESC
       End
        Else If @Tabela = 'FORMULADEF'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Ime_Formula > @Ime
            ORDER BY Ime_Formula ASC, Sifra_Formula ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Ime_Formula >= @Ime
            ORDER BY Ime_Formula ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
            FROM FormulaDef WITH(NOLOCK)
            WHERE Ime_Formula < @Ime
            ORDER BY Ime_Formula DESC, Sifra_Formula DESC
        End
       Else If @Tabela = 'KARAKTERIST'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE ImeKarakt > @Ime
            ORDER BY ImeKarakt ASC, Sifra_Karakt ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE ImeKarakt >= @Ime
            ORDER BY ImeKarakt ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
            FROM Karakterist WITH(NOLOCK)
            WHERE ImeKarakt < @Ime
            ORDER BY ImeKarakt DESC, Sifra_Karakt DESC
       End
       Else If @Tabela = 'KREDITSTATUS'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
            FROM Kreditstatus WITH(NOLOCK)
            WHERE ImeStatusKredit > @Ime
            ORDER BY ImeStatusKredit ASC, Status_Kredit ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
            FROM Kreditstatus WITH(NOLOCK)
            WHERE ImeStatusKredit >= @Ime
            ORDER BY ImeStatusKredit ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
            FROM Kreditstatus WITH(NOLOCK)
            WHERE ImeStatusKredit < @Ime
            ORDER BY ImeStatusKredit DESC, Status_Kredit DESC
     End
      Else If @Tabela = 'KREDITTIPOPOMENA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KREDITTIPOPOMENA WITH(NOLOCK)
            WHERE ImeTipOpomena > @Ime
            ORDER BY ImeTipOpomena ASC, Tip_Opomena ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KREDITTIPOPOMENA WITH(NOLOCK)
            WHERE ImeTipOpomena >= @Ime
            ORDER BY ImeTipOpomena ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
            FROM KREDITTIPOPOMENA WITH(NOLOCK)
            WHERE ImeTipOpomena < @Ime
            ORDER BY ImeTipOpomena DESC, Tip_Opomena DESC
       End
        Else If @Tabela = 'OSNGRPODEL'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OSNGRPODEL WITH(NOLOCK)
            WHERE ImeOsnGrPodel > @Ime
            ORDER BY ImeOsnGrPodel ASC, Sifra_OsnGrPodel ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OSNGRPODEL WITH(NOLOCK)
            WHERE ImeOsnGrPodel >= @Ime
            ORDER BY ImeOsnGrPodel ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OSNGRPODEL WITH(NOLOCK)
            WHERE ImeOsnGrPodel < @Ime
            ORDER BY ImeOsnGrPodel DESC, Sifra_OsnGrPodel DESC
       End
        Else If @Tabela = 'TROSOK4TIP'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Ime4Tros > @Ime
            ORDER BY Ime4Tros ASC, Sifra_4Tros ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Ime4Tros >= @Ime
            ORDER BY Ime4Tros ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
            FROM TROSOK4TIP WITH(NOLOCK)
            WHERE Ime4Tros < @Ime
            ORDER BY Ime4Tros DESC, Sifra_4Tros DESC
       End
        Else If @Tabela = 'TROSOKMESTO'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE ImeTrosM > @Ime
            ORDER BY ImeTrosM ASC, Sifra_TrosM ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE ImeTrosM >= @Ime
            ORDER BY ImeTrosM ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
            FROM TROSOKMESTO WITH(NOLOCK)
            WHERE ImeTrosM < @Ime
            ORDER BY ImeTrosM DESC, Sifra_TrosM DESC
       End
        Else If @Tabela = 'TROSOKVID'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE ImeTrosV > @Ime
            ORDER BY ImeTrosV ASC, Sifra_TrosV ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE ImeTrosV >= @Ime
            ORDER BY ImeTrosV ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
            FROM TROSOKVID WITH(NOLOCK)
            WHERE ImeTrosV < @Ime
            ORDER BY ImeTrosV DESC, Sifra_TrosV DESC
       End
      Else If @Tabela = 'GRKUP'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM GrKup WITH(NOLOCK)
            WHERE Ime_GrKup > @Ime
            ORDER BY Ime_GrKup ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM  GrKup WITH(NOLOCK)
            WHERE Ime_GrKup >= @Ime
            ORDER BY Ime_GrKup ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
            FROM GrKup WITH(NOLOCK)
            WHERE Ime_GrKup < @Ime
            ORDER BY Ime_GrKup DESC
       End
      Else If @Tabela = 'BOJA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM Boja WITH(NOLOCK)
            WHERE ImeBoja > @Ime
            ORDER BY ImeBoja ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM  Boja WITH(NOLOCK)
            WHERE ImeBoja >= @Ime
            ORDER BY ImeBoja ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
            FROM Boja WITH(NOLOCK)
            WHERE ImeBoja < @Ime
            ORDER BY ImeBoja DESC
       End
      Else If @Tabela = 'VELICINA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE ImeVelic > @Ime
            ORDER BY ImeVelic ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE ImeVelic >= @Ime
            ORDER BY ImeVelic ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
            FROM Velicina WITH(NOLOCK)
            WHERE ImeVelic < @Ime
            ORDER BY ImeVelic DESC
       End
       Else If @Tabela = 'KATSPECTIPMAT'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
            FROM KATSPECTIPMAT WITH(NOLOCK)
            WHERE ImeTipMat > @Ime
            ORDER BY ImeTipMat ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
            FROM KATSPECTIPMAT WITH(NOLOCK)
            WHERE ImeTipMat >= @Ime
            ORDER BY ImeTipMat ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
            FROM KATSPECTIPMAT WITH(NOLOCK)
            WHERE ImeTipMat < @Ime
            ORDER BY ImeTipMat DESC
       End
    Else If @Tabela = 'MCKATPOZICIJA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
            FROM MCKatPozicija WITH(NOLOCK)
            WHERE ImeMCPozicija > @Ime
            ORDER BY ImeMCPozicija ASC, Sif_MCPozicija ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
            FROM MCKatPozicija WITH(NOLOCK)
            WHERE ImeMCPozicija >= @Ime
            ORDER BY ImeMCPozicija ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
            FROM MCKatPozicija WITH(NOLOCK)
            WHERE ImeMCPozicija < @Ime
            ORDER BY ImeMCPozicija DESC, Sif_MCPozicija DESC
       End
    Else If @Tabela = 'TIPAKTIVNOSTI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
            FROM TipAktivnosti WITH(NOLOCK)
            WHERE Ime_Akt > @Ime
            ORDER BY Ime_Akt ASC, Tip_Akt ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
            FROM TipAktivnosti WITH(NOLOCK)
            WHERE Ime_Akt >= @Ime
            ORDER BY Ime_Akt ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
            FROM TipAktivnosti WITH(NOLOCK)
            WHERE Ime_Akt < @Ime
            ORDER BY Ime_Akt DESC, Tip_Akt DESC
       End
    Else If @Tabela = 'ASORTIMAN'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
            FROM Asortiman WITH(NOLOCK)
            WHERE Ime_Asort > @Ime
            ORDER BY Ime_Asort ASC, Sifra_Asort ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
            FROM Asortiman WITH(NOLOCK)
            WHERE Ime_Asort >= @Ime
            ORDER BY Ime_Asort ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
            FROM Asortiman WITH(NOLOCK)
            WHERE Ime_Asort < @Ime
            ORDER BY Ime_Asort DESC, Sifra_Asort DESC
       End
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_akciipromo]'))
drop procedure [dbo].[sp_lkpsleden_ime_akciipromo]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_AkciiPromo]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Opis_Akcija>@Ime
        ORDER BY Opis_Akcija ASC, Ozn_Akcija ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Opis_Akcija>=@Ime
        ORDER BY Opis_Akcija ASC, Ozn_Akcija ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Ozn_Akcija, @SlednoIme=Opis_Akcija
        FROM AkciiPromo WITH(NOLOCK)
        WHERE Opis_Akcija<@Ime
        ORDER BY Opis_Akcija DESC, Ozn_Akcija DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_alt]'))
drop procedure [dbo].[sp_lkpsleden_ime_alt]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

Create PROCEDURE sp_lkpSleden_Ime_Alt
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    Declare @Greska Int
    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

     If @Tabela = 'VOZILA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE KomOznaka>@Ime or (KomOznaka=@Ime and @OpcPrethSifra is not null and Sifra_art > @OpcPrethSifra)
            ORDER BY KomOznaka, Sifra_Art ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE KomOznaka>=@Ime
            ORDER BY KomOznaka, Sifra_Art ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=KomOznaka
            FROM Vozila WITH(NOLOCK)
            WHERE KomOznaka<@Ime or (KomOznaka=@Ime and @OpcPrethSifra is not null and Sifra_art < @OpcPrethSifra)
            ORDER BY KomOznaka DESC, Sifra_Art DESC
       End

   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_amorgrp]'))
drop procedure [dbo].[sp_lkpsleden_ime_amorgrp]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_AmorGrp]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Ime>@Ime
        ORDER BY Ime ASC, Sifra_Amor ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Ime>=@Ime
        ORDER BY Ime ASC, Sifra_Amor ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Amor, @SlednoIme=rtrim(Ime)+' '+cast(stapka as varchar(8))+'%'
        FROM AmorGrp WITH(NOLOCK)
        WHERE Ime<@Ime
        ORDER BY Ime DESC, Sifra_Amor DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_anal]'))
drop procedure [dbo].[sp_lkpsleden_ime_anal]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Anal]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE ImeAnal>@Ime
        ORDER BY  ImeAnal ASC, Kto_Anal ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE ImeAnal>=@Ime
        ORDER BY ImeAnal ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Kto_Anal, @SlednoIme=ImeAnal
        FROM Anal WITH(NOLOCK)
        WHERE ImeAnal<@Ime
        ORDER BY ImeAnal DESC, Kto_Anal DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_arkakat]'))
drop procedure [dbo].[sp_lkpsleden_ime_arkakat]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_ArkaKat]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE ImeArt>@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art > @OpcPrethSifra)
        ORDER BY ImeArt, Sifra_Art ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE ImeArt>=@Ime
        ORDER BY ImeArt, Sifra_Art ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt
        FROM ArkaKat WITH(NOLOCK)
        WHERE ImeArt<@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art < @OpcPrethSifra)
        ORDER BY ImeArt DESC, Sifra_Art DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_asortiman]'))
drop procedure [dbo].[sp_lkpsleden_ime_asortiman]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Asortiman]
    @Ime nVARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Ime_Asort > @Ime
        ORDER BY Ime_Asort ASC, Sifra_Asort ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Ime_Asort >= @Ime
        ORDER BY Ime_Asort ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_Asort, @SlednoIme=Ime_Asort
        FROM Asortiman WITH(NOLOCK)
        WHERE Ime_Asort < @Ime
        ORDER BY Ime_Asort DESC, Sifra_Asort DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_atckodovi]'))
drop procedure [dbo].[sp_lkpsleden_ime_atckodovi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_ATCKodovi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE ImeATC > @Ime
        ORDER BY ImeATC ASC, Sifra_ATC ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE ImeATC >= @Ime
        ORDER BY ImeATC ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
        FROM ATCKodovi WITH(NOLOCK)
        WHERE ImeATC < @Ime
        ORDER BY ImeATC DESC, Sifra_ATC DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_banki]'))
drop procedure [dbo].[sp_lkpsleden_ime_banki]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Banki]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM Banki WITH(NOLOCK)
        WHERE ImeBanka>@Ime
        ORDER BY ImeBanka ASC, Sifra_Ban ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM Banki WITH(NOLOCK)
        WHERE ImeBanka>=@Ime
        ORDER BY ImeBanka ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Ban, @SlednoIme=ImeBanka
        FROM Banki WITH(NOLOCK)
        WHERE ImeBanka<@Ime
        ORDER BY ImeBanka DESC, Sifra_Ban DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_banksmetki]'))
drop procedure [dbo].[sp_lkpsleden_ime_banksmetki]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_BankSmetki]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE Banka>@Ime
        ORDER BY  Banka ASC, KojaSmetka ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE Banka>=@Ime
        ORDER BY Banka ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=KojaSmetka, @SlednoIme=Banka
        FROM BankSmetki WITH(NOLOCK)
        WHERE Banka<@Ime
        ORDER BY Banka DESC, KojaSmetka DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_boja]'))
drop procedure [dbo].[sp_lkpsleden_ime_boja]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Boja]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM Boja WITH(NOLOCK)
        WHERE ImeBoja > @Ime
        ORDER BY ImeBoja ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM  Boja WITH(NOLOCK)
        WHERE ImeBoja >= @Ime
        ORDER BY ImeBoja ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_Boja, @SlednoIme=ImeBoja
        FROM Boja WITH(NOLOCK)
        WHERE ImeBoja < @Ime
        ORDER BY ImeBoja DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_cbroevi]'))
drop procedure [dbo].[sp_lkpsleden_ime_cbroevi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_CBroevi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE Ime>@Ime
        ORDER BY CarBroj ASC, Ime ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE Ime>=@Ime
        ORDER BY Ime ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=CarBroj, @SlednoIme=Ime
        FROM CBroevi
        WHERE Ime<@Ime
        ORDER BY Ime DESC, CarBroj DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_crrkodovi]'))
drop procedure [dbo].[sp_lkpsleden_ime_crrkodovi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_CRRKodovi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE ImeCrr > @Ime
        ORDER BY ImeCrr ASC, Sifra_Crr ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE ImeCrr >= @Ime
        ORDER BY ImeCrr ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Crr, @SlednoIme=ImeCrr
        FROM CRRKodovi WITH(NOLOCK)
        WHERE ImeCrr < @Ime
        ORDER BY ImeCrr DESC, Sifra_Crr DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_divizii]'))
drop procedure [dbo].[sp_lkpsleden_ime_divizii]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Divizii]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE ImeDiv>@Ime
        ORDER BY ImeDiv ASC, Sifra_Div ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE ImeDiv>=@Ime
        ORDER BY ImeDiv ASC, Sifra_Div ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Div, @SlednoIme=ImeDiv
        FROM Divizii WITH(NOLOCK)
        WHERE ImeDiv<@Ime
        ORDER BY ImeDiv DESC, Sifra_Div DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_dnevnik]'))
drop procedure [dbo].[sp_lkpsleden_ime_dnevnik]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Dnevnik]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE Sifra_Kup>@Ime
        ORDER BY  Sifra_Kup ASC, IdDnevnik ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE Sifra_Kup>=@Ime
        ORDER BY Sifra_Kup ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=IdDnevnik, @SlednoIme=Sifra_Kup
        FROM Dnevnik WITH(NOLOCK)
        WHERE Sifra_Kup<@Ime
        ORDER BY Sifra_Kup DESC, IdDnevnik DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drgpodel]'))
drop procedure [dbo].[sp_lkpsleden_ime_drgpodel]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_DrgPodel]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Ime>@Ime
        ORDER BY Ime ASC, Sifra_Drg ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Ime>=@Ime
        ORDER BY Ime ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Drg, @SlednoIme=Ime
        FROM DrgPodel WITH(NOLOCK)
        WHERE Ime<@Ime
        ORDER BY Ime DESC, Sifra_Drg DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drgpodel1]'))
drop procedure [dbo].[sp_lkpsleden_ime_drgpodel1]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_DrgPodel1]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Ime_Drg1>@Ime
        ORDER BY Ime_Drg1 ASC, Sifra_Drg1 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Ime_Drg1>=@Ime
        ORDER BY Ime_Drg1 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Drg1, @SlednoIme=Ime_Drg1
        FROM DrgPodel1 WITH(NOLOCK)
        WHERE Ime_Drg1<@Ime
        ORDER BY Ime_Drg1 DESC, Sifra_Drg1 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo1]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo1]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo1]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Ime_1>@Ime
        ORDER BY Ime_1 ASC, Sifra_1 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Ime_1>=@Ime
        ORDER BY Ime_1 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_1, @SlednoIme=Ime_1
        FROM Drugo1 WITH(NOLOCK)
        WHERE Ime_1<@Ime
        ORDER BY Ime_1 DESC, Sifra_1 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo2]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo2]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo2]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Ime_2>@Ime
        ORDER BY Ime_2 ASC, Sifra_2 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Ime_2>=@Ime
        ORDER BY Ime_2 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_2, @SlednoIme=Ime_2
        FROM Drugo2 WITH(NOLOCK)
        WHERE Ime_2<@Ime
        ORDER BY Ime_2 DESC, Sifra_2 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo3]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo3]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo3]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Ime_3>@Ime
        ORDER BY Ime_3 ASC, Sifra_3 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Ime_3>=@Ime
        ORDER BY Ime_3 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_3, @SlednoIme=Ime_3
        FROM Drugo3 WITH(NOLOCK)
        WHERE Ime_3<@Ime
        ORDER BY Ime_3 DESC, Sifra_3 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo4]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo4]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo4]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Ime_4>@Ime
        ORDER BY Ime_4 ASC, Sifra_4 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Ime_4>=@Ime
        ORDER BY Ime_4 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_4, @SlednoIme=Ime_4
        FROM Drugo4 WITH(NOLOCK)
        WHERE Ime_4<@Ime
        ORDER BY Ime_4 DESC, Sifra_4 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo5]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo5]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo5]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Ime_5>@Ime
        ORDER BY Ime_5 ASC, Sifra_5 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Ime_5>=@Ime
        ORDER BY Ime_5 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_5, @SlednoIme=Ime_5
        FROM Drugo5 WITH(NOLOCK)
        WHERE Ime_5<@Ime
        ORDER BY Ime_5 DESC, Sifra_5 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo6]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo6]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo6]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Ime_6>@Ime
        ORDER BY Ime_6 ASC, Sifra_6 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Ime_6>=@Ime
        ORDER BY Ime_6 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_6, @SlednoIme=Ime_6
        FROM Drugo6 WITH(NOLOCK)
        WHERE Ime_6<@Ime
        ORDER BY Ime_6 DESC, Sifra_6 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drugo7]'))
drop procedure [dbo].[sp_lkpsleden_ime_drugo7]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Drugo7]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Ime_7>@Ime
        ORDER BY Ime_7 ASC, Sifra_7 ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Ime_7>=@Ime
        ORDER BY Ime_7 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_7, @SlednoIme=Ime_7
        FROM Drugo7 WITH(NOLOCK)
        WHERE Ime_7<@Ime
        ORDER BY Ime_7 DESC, Sifra_7 DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_drzava]'))
drop procedure [dbo].[sp_lkpsleden_ime_drzava]

Go


--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_Drzava]
    @Ime nVARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Ime_Drzava>@Ime
        ORDER BY Ime_Drzava ASC, Str_Drzava ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Ime_Drzava>=@Ime
        ORDER BY Ime_Drzava ASC, Str_Drzava ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Str_Drzava, @SlednoIme=Ime_Drzava
        FROM Drzava WITH(NOLOCK)
        WHERE Ime_Drzava<@Ime
        ORDER BY Ime_Drzava DESC, Str_Drzava DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_edmerilist]'))
drop procedure [dbo].[sp_lkpsleden_ime_edmerilist]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_EdMeriList]
    @Ime VARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera > @Ime
        ORDER BY ImeEdMera ASC, EdMera ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera >= @Ime
        ORDER BY ImeEdMera ASC, EdMera ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra = EdMera, @SlednoIme = ImeEdMera
        FROM EdMeriList WITH(NOLOCK)
        WHERE EdMera < @Ime
        ORDER BY ImeEdMera DESC, EdMera DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_fazi]'))
drop procedure [dbo].[sp_lkpsleden_ime_fazi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Fazi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Ime_Faza>@Ime
        ORDER BY Ime_Faza ASC, Sifra_Faza ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Ime_Faza>=@Ime
        ORDER BY Ime_Faza ASC, Sifra_Faza ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Faza, @SlednoIme=Ime_Faza
        FROM Fazi WITH(NOLOCK)
        WHERE Ime_Faza<@Ime
        ORDER BY Ime_Faza DESC, Sifra_Faza DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_firmi]'))
drop procedure [dbo].[sp_lkpsleden_ime_firmi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Firmi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE ImeFirma>@Ime
        ORDER BY ImeFirma ASC, Sifra_Firma ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE ImeFirma>=@Ime
        ORDER BY ImeFirma ASC, Sifra_Firma ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Firma, @SlednoIme=ImeFirma
        FROM Firmi WITH(NOLOCK)
        WHERE ImeFirma<@Ime
        ORDER BY ImeFirma DESC, Sifra_Firma DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_fitabela]'))
drop procedure [dbo].[sp_lkpsleden_ime_fitabela]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_FiTabela]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE Ime>@Ime
        ORDER BY  Ime ASC, FiID ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE Ime>=@Ime
        ORDER BY Ime ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=FiID, @SlednoIme=Ime
        FROM FiTabela WITH(NOLOCK)
        WHERE Ime<@Ime
        ORDER BY Ime DESC, FiID DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_formuladef]'))
drop procedure [dbo].[sp_lkpsleden_ime_formuladef]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_FormulaDef]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Ime_Formula > @Ime
        ORDER BY Ime_Formula ASC, Sifra_Formula ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Ime_Formula >= @Ime
        ORDER BY Ime_Formula ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Formula, @SlednoIme=Ime_Formula
        FROM FormulaDef WITH(NOLOCK)
        WHERE Ime_Formula < @Ime
        ORDER BY Ime_Formula DESC, Sifra_Formula DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grad]'))
drop procedure [dbo].[sp_lkpsleden_ime_grad]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Grad]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE ImeGrad>@Ime
        ORDER BY Sifra_Grad ASC, ImeGrad ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE ImeGrad>=@Ime
        ORDER BY ImeGrad ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Grad, @SlednoIme=ImeGrad
        FROM Grad WITH(NOLOCK)
        WHERE ImeGrad<@Ime
        ORDER BY ImeGrad DESC, Sifra_Grad DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_granal]'))
drop procedure [dbo].[sp_lkpsleden_ime_granal]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrAnal]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE ImeGrAn>@Ime
        ORDER BY Kto_GrAn ASC, ImeGrAn ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE ImeGrAn>=@Ime
        ORDER BY ImeGrAn ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Kto_GrAn, @SlednoIme=ImeGrAn
        FROM GrAnal WITH(NOLOCK)
        WHERE ImeGrAn<@Ime
        ORDER BY ImeGrAn DESC, Kto_GrAn DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_granalplan]'))
drop procedure [dbo].[sp_lkpsleden_ime_granalplan]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_GrAnalPlan]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Ime_GrAnalPlan > @Ime
        ORDER BY Ime_GrAnalPlan ASC, Sif_GrAnalPLan ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Ime_GrAnalPlan >= @Ime
        ORDER BY Ime_GrAnalPlan ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_GrAnalPLan, @SlednoIme=Ime_GrAnalPlan
        FROM GrAnalPlan WITH(NOLOCK)
        WHERE Ime_GrAnalPlan < @Ime
        ORDER BY Ime_GrAnalPlan DESC, Sif_GrAnalPLan DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grdok]'))
drop procedure [dbo].[sp_lkpsleden_ime_grdok]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrDok]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM GrDok WITH(NOLOCK)
        WHERE Ime_GrDok > @Ime
        ORDER BY Ime_GrDok ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM GrDok WITH(NOLOCK)
        WHERE Ime_GrDok >= @Ime
        ORDER BY Ime_GrDok ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_GrDok, @SlednoIme=Ime_GrDok
        FROM GrDok WITH(NOLOCK)
        WHERE Ime_GrDok < @Ime
        ORDER BY Ime_GrDok DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_gregion]'))
drop procedure [dbo].[sp_lkpsleden_ime_gregion]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GRegion]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE ImeRegion>@Ime
        ORDER BY ImeRegion ASC, Sifra_reg ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE ImeRegion>=@Ime
        ORDER BY ImeRegion ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_reg, @SlednoIme=ImeRegion
        FROM GRegion WITH(NOLOCK)
        WHERE ImeRegion<@Ime
        ORDER BY ImeRegion DESC, Sifra_reg DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grkup]'))
drop procedure [dbo].[sp_lkpsleden_ime_grkup]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrKup]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM GrKup WITH(NOLOCK)
        WHERE Ime_GrKup > @Ime
        ORDER BY Ime_GrKup ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM  GrKup WITH(NOLOCK)
        WHERE Ime_GrKup >= @Ime
        ORDER BY Ime_GrKup ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_GrKup, @SlednoIme=Ime_GrKup
        FROM GrKup WITH(NOLOCK)
        WHERE Ime_GrKup < @Ime
        ORDER BY Ime_GrKup DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grnar]'))
drop procedure [dbo].[sp_lkpsleden_ime_grnar]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrNar]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
        FROM GrNar WITH(NOLOCK)
        WHERE ImeGrNar>@Ime
        ORDER BY ImeGrNar ASC, Sifra_GrNar ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
        FROM GrNar WITH(NOLOCK)
        WHERE ImeGrNar>=@Ime
        ORDER BY ImeGrNar ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_GrNar, @SlednoIme=ImeGrNar
        FROM GrNar WITH(NOLOCK)
        WHERE ImeGrNar<@Ime
        ORDER BY ImeGrNar DESC, Sifra_GrNar DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grorg]'))
drop procedure [dbo].[sp_lkpsleden_ime_grorg]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrOrg]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM GrOrg WITH(NOLOCK)
        WHERE Ime_GrOrg > @Ime
        ORDER BY Ime_GrOrg ASC, Sif_grOrg ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM  GrOrg WITH(NOLOCK)
        WHERE Ime_GrOrg >= @Ime
        ORDER BY Ime_GrOrg ASC
    Else If @Nacin = 'Prethoden'
        SELECT @SlednaSifra=Sif_grOrg, @SlednoIme=Ime_GrOrg
        FROM GrOrg WITH(NOLOCK)
        WHERE Ime_GrOrg < @Ime
        ORDER BY Ime_GrOrg DESC, Sif_grOrg DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grpat]'))
drop procedure [dbo].[sp_lkpsleden_ime_grpat]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrPat]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM GrPat WITH(NOLOCK)
        WHERE Sif_GrPat >@Ime
        ORDER BY Sif_GrPat ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM  GrPat WITH(NOLOCK)
        WHERE Sif_GrPat<@Ime
        ORDER BY Sif_GrPat DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_GrPat, @SlednoIme=Ime_GrPat
        FROM GrPat WITH(NOLOCK)
        WHERE Sif_GrPat=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grpizbor]'))
drop procedure [dbo].[sp_lkpsleden_ime_grpizbor]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrpIzbor]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Ime_GrpIzb>@Ime
        ORDER BY Ime_GrpIzb ASC, Sifra_GrpIzb ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Ime_GrpIzb>=@Ime
        ORDER BY Ime_GrpIzb ASC, Sifra_GrpIzb ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_GrpIzb, @SlednoIme=Ime_GrpIzb
        FROM GrpIzbor WITH(NOLOCK)
        WHERE Ime_GrpIzb<@Ime
        ORDER BY Ime_GrpIzb DESC, Sifra_GrpIzb DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grpmarza]'))
drop procedure [dbo].[sp_lkpsleden_ime_grpmarza]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrpMarza]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Ime_GrM>@Ime
        ORDER BY Ime_GrM ASC, Grupa_Marza ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Ime_GrM>=@Ime
        ORDER BY Ime_GrM ASC, Grupa_Marza ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Grupa_Marza, @SlednoIme=Ime_GrM
        FROM GrpMarza WITH(NOLOCK)
        WHERE Ime_GrM<@Ime
        ORDER BY Ime_GrM DESC, Grupa_Marza DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grupaweb]'))
drop procedure [dbo].[sp_lkpsleden_ime_grupaweb]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrupaWeb]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM GrupaWeb WITH(NOLOCK)
        WHERE Ime_GrWeb>@Ime
        ORDER BY Ime_GrWeb ASC, Sifra_GrWeb ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM GrupaWeb WITH(NOLOCK)
        WHERE Ime_GrWeb>=@Ime
        ORDER BY Ime_GrWeb ASC, Sifra_GrWeb ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_GrWeb, @SlednoIme=Ime_GrWeb
        FROM GrupaWeb WITH(NOLOCK)
        WHERE Ime_GrWeb<@Ime
        ORDER BY Ime_GrWeb DESC, Sifra_GrWeb DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grupi]'))
drop procedure [dbo].[sp_lkpsleden_ime_grupi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Grupi]
    @Ime nVARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Ime_Gr>@Ime
        ORDER BY Ime_Gr ASC, Sifra_Gr ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Ime_Gr>=@Ime
        ORDER BY Ime_Gr ASC, Sifra_Gr ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Gr, @SlednoIme=Ime_Gr
        FROM Grupi WITH(NOLOCK)
        WHERE Ime_Gr<@Ime
        ORDER BY Ime_Gr DESC, Sifra_Gr DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_grupioper]'))
drop procedure [dbo].[sp_lkpsleden_ime_grupioper]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_GrupiOper]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE ImeGrOper>@Ime
        ORDER BY ImeGrOper ASC, Sifra_GrOper ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE ImeGrOper>=@Ime
        ORDER BY ImeGrOper ASC, Sifra_GrOper ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_GrOper, @SlednoIme=ImeGrOper
        FROM GrupiOper WITH(NOLOCK)
        WHERE ImeGrOper<@Ime
        ORDER BY ImeGrOper DESC, Sifra_GrOper DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_gtipkup]'))
drop procedure [dbo].[sp_lkpsleden_ime_gtipkup]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_gTipKup]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM gTipKup WITH(NOLOCK)
        WHERE ImeTipKup>@Ime
        ORDER BY ImeTipKup ASC, TipKup ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM gTipKup WITH(NOLOCK)
        WHERE ImeTipKup>=@Ime
        ORDER BY ImeTipKup ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=TipKup, @SlednoIme=ImeTipKup
        FROM gTipKup WITH(NOLOCK)
        WHERE ImeTipKup<@Ime
        ORDER BY ImeTipKup DESC, TipKup DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_hilzni]'))
drop procedure [dbo].[sp_lkpsleden_ime_hilzni]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Hilzni]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Ime_Hilzna>@Ime
        ORDER BY Ime_Hilzna ASC, Sifra_Hilzna ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Ime_Hilzna>=@Ime
        ORDER BY Ime_Hilzna ASC, Sifra_Hilzna ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Hilzna, @SlednoIme=Ime_Hilzna
        FROM Hilzni WITH(NOLOCK)
        WHERE Ime_Hilzna<@Ime
        ORDER BY Ime_Hilzna DESC, Sifra_Hilzna DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_internikart]'))
drop procedure [dbo].[sp_lkpsleden_ime_internikart]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_InterniKart]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart>@Ime
        ORDER BY Interna_Kart ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart>=@Ime
        ORDER BY Interna_Kart ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Interna_Kart
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart<@Ime
        ORDER BY Interna_Kart DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_karakterist]'))
drop procedure [dbo].[sp_lkpsleden_ime_karakterist]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Karakterist]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE ImeKarakt > @Ime
        ORDER BY ImeKarakt ASC, Sifra_Karakt ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE ImeKarakt >= @Ime
        ORDER BY ImeKarakt ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE ImeKarakt < @Ime
        ORDER BY ImeKarakt DESC, Sifra_Karakt DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kartkor]'))
drop procedure [dbo].[sp_lkpsleden_ime_kartkor]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KartKor]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
    BEGIN
        IF @Filter IS NULL
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor>@Ime
            ORDER BY  ImeKor ASC, Sifra_Kor ASC
        ELSE
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor>@Ime AND Sifra_Kup=@Filter
            ORDER BY  ImeKor ASC, Sifra_Kor ASC
    END
    Else If @Nacin = 'SledenEdnakov'
    BEGIN
        IF @Filter IS NULL
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor>=@Ime
            ORDER BY ImeKor ASC
        ELSE
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor>=@Ime AND Sifra_Kup=@Filter
            ORDER BY ImeKor ASC
    END
    Else If @Nacin = 'Prethoden'
    BEGIN
        IF @Filter IS NULL
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor<@Ime
            ORDER BY ImeKor DESC, Sifra_Kor DESC
        ELSE
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE ImeKor<@Ime AND Sifra_Kup=@Filter
            ORDER BY ImeKor DESC, Sifra_Kor DESC
    END

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_katamb]'))
drop procedure [dbo].[sp_lkpsleden_ime_katamb]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KatAmb]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE ImeAmb>@Ime
        ORDER BY ImeAmb ASC, Sifra_Amb ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE ImeAmb>=@Ime
        ORDER BY ImeAmb ASC, Sifra_Amb ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE ImeAmb<@Ime
        ORDER BY ImeAmb DESC, Sifra_Amb DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_katart]'))
drop procedure [dbo].[sp_lkpsleden_ime_katart]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KatArt]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE ImeArt>@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art > @OpcPrethSifra)
        ORDER BY ImeArt, Sifra_Art ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE ImeArt>=@Ime
        ORDER BY ImeArt, Sifra_Art ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE ImeArt<@Ime or (ImeArt=@Ime and @OpcPrethSifra is not null and Sifra_art < @OpcPrethSifra)
        ORDER BY ImeArt DESC, Sifra_Art DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_katgamb]'))
drop procedure [dbo].[sp_lkpsleden_ime_katgamb]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KatGAmb]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE ImeGAmb>@Ime
        ORDER BY ImeGAmb ASC, Sifra_GAmb ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE ImeGAmb>=@Ime
        ORDER BY ImeGAmb ASC, Sifra_GAmb ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE ImeGAmb<@Ime
        ORDER BY ImeGAmb DESC, Sifra_GAmb DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_katspectipmat]'))
drop procedure [dbo].[sp_lkpsleden_ime_katspectipmat]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KATSPECTIPMAT]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE ImeTipMat > @Ime
        ORDER BY ImeTipMat ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE ImeTipMat >= @Ime
        ORDER BY ImeTipMat ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE ImeTipMat < @Ime
        ORDER BY ImeTipMat DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_katstatus]'))
drop procedure [dbo].[sp_lkpsleden_ime_katstatus]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KatStatus]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus >@Ime
        ORDER BY Sifra_KatStatus ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM  KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus<@Ime
        ORDER BY Sifra_KatStatus DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo1]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo1]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo1]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Ime_1k>@Ime
        ORDER BY Ime_1k ASC, Sifra_1k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Ime_1K>=@Ime
        ORDER BY Ime_1k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_1k, @SlednoIme=Ime_1k
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Ime_1k<@Ime
        ORDER BY Ime_1k DESC, Sifra_1k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo2]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo2]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo2]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Ime_2k>@Ime
        ORDER BY Ime_2k ASC, Sifra_2k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Ime_2K>=@Ime
        ORDER BY Ime_2k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_2k, @SlednoIme=Ime_2k
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Ime_2k<@Ime
        ORDER BY Ime_2k DESC, Sifra_2k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo3]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo3]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo3]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Ime_3k>@Ime
        ORDER BY Ime_3k ASC, Sifra_3k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Ime_3K>=@Ime
        ORDER BY Ime_3k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_3k, @SlednoIme=Ime_3k
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Ime_3k<@Ime
        ORDER BY Ime_3k DESC, Sifra_3k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo4]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo4]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo4]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Ime_4k>@Ime
        ORDER BY Ime_4k ASC, Sifra_4k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Ime_4K>=@Ime
        ORDER BY Ime_4k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_4k, @SlednoIme=Ime_4k
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Ime_4k<@Ime
        ORDER BY Ime_4k DESC, Sifra_4k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo5]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo5]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo5]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Ime_5k>@Ime
        ORDER BY Ime_5k ASC, Sifra_5k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Ime_5K>=@Ime
        ORDER BY Ime_5k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_5k, @SlednoIme=Ime_5k
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Ime_5k<@Ime
        ORDER BY Ime_5k DESC, Sifra_5k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo6]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo6]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo6]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Ime_6k>@Ime
        ORDER BY Ime_6k ASC, Sifra_6k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Ime_6K>=@Ime
        ORDER BY Ime_6k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_6k, @SlednoIme=Ime_6k
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Ime_6k<@Ime
        ORDER BY Ime_6k DESC, Sifra_6k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kdrugo7]'))
drop procedure [dbo].[sp_lkpsleden_ime_kdrugo7]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KDrugo7]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Ime_7k>@Ime
        ORDER BY Ime_7k ASC, Sifra_7k ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Ime_7K>=@Ime
        ORDER BY Ime_7k ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_7k, @SlednoIme=Ime_7k
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Ime_7k<@Ime
        ORDER BY Ime_7k DESC, Sifra_7k DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_klas]'))
drop procedure [dbo].[sp_lkpsleden_ime_klas]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Klas]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas
        WHERE ImeKlasa>@Ime
        ORDER BY Kto_Klas ASC, ImeKlasa ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas
        WHERE ImeKlasa>=@Ime
        ORDER BY ImeKlasa ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas
        WHERE ImeKlasa<@Ime
        ORDER BY ImeKlasa DESC, Kto_Klas DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_klienti]'))
drop procedure [dbo].[sp_lkpsleden_ime_klienti]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Klienti]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE ImeKlient > @Ime
        ORDER BY ImeKlient ASC, Sif_Klient ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE ImeKlient >= @Ime
        ORDER BY ImeKlient ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE ImeKlient < @Ime
        ORDER BY ImeKlient DESC, Sif_Klient DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_knigatrg]'))
drop procedure [dbo].[sp_lkpsleden_ime_knigatrg]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KnigaTrg]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM KnigaTrg WITH(NOLOCK)
        WHERE Broj > @Ime
        ORDER BY Broj ASC, InterenBr ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM KnigaTrg WITH(NOLOCK)
        WHERE Broj >= @Ime
        ORDER BY Broj ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM KnigaTrg WITH(NOLOCK)
        WHERE Broj < @Ime
        ORDER BY Broj DESC, InterenBr DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_komint]'))
drop procedure [dbo].[sp_lkpsleden_ime_komint]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Komint]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))>@Ime
        ORDER BY ImeKup ASC, Sifra_Kup ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE RTrim(ImeKup)+ ' /' + IsNull(RTrim(SMesto),'') + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))>=@Ime
        ORDER BY ImeKup ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))<@Ime
        ORDER BY ImeKup DESC, Sifra_Kup DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_konfslaganje]'))
drop procedure [dbo].[sp_lkpsleden_ime_konfslaganje]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KonfSlaganje]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE ImeSlag>@Ime
        ORDER BY ImeSlag ASC, Sifra_Slag ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE ImeSlag>=@Ime
        ORDER BY ImeSlag ASC, Sifra_Slag ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE ImeSlag<@Ime
        ORDER BY ImeSlag DESC, Sifra_Slag DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kreditstatus]'))
drop procedure [dbo].[sp_lkpsleden_ime_kreditstatus]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KreditStatus]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
        FROM Kreditstatus WITH(NOLOCK)
        WHERE ImeStatusKredit > @Ime
        ORDER BY ImeStatusKredit ASC, Status_Kredit ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
        FROM Kreditstatus WITH(NOLOCK)
        WHERE ImeStatusKredit >= @Ime
        ORDER BY ImeStatusKredit ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Status_Kredit, @SlednoIme=ImeStatusKredit
        FROM Kreditstatus WITH(NOLOCK)
        WHERE ImeStatusKredit < @Ime
        ORDER BY ImeStatusKredit DESC, Status_Kredit DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_kredittipopomena]'))
drop procedure [dbo].[sp_lkpsleden_ime_kredittipopomena]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KreditTipOpomena]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KREDITTIPOPOMENA WITH(NOLOCK)
        WHERE ImeTipOpomena > @Ime
        ORDER BY ImeTipOpomena ASC, Tip_Opomena ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KREDITTIPOPOMENA WITH(NOLOCK)
        WHERE ImeTipOpomena >= @Ime
        ORDER BY ImeTipOpomena ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KREDITTIPOPOMENA WITH(NOLOCK)
        WHERE ImeTipOpomena < @Ime
        ORDER BY ImeTipOpomena DESC, Tip_Opomena DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_krslista]'))
drop procedure [dbo].[sp_lkpsleden_ime_krslista]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_KrsLista]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE ImeVal>@Ime
        ORDER BY ImeVal ASC, SImeVal ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE ImeVal>=@Ime
        ORDER BY ImeVal ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE ImeVal<@Ime
        ORDER BY ImeVal DESC, SImeVal DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_layout]'))
drop procedure [dbo].[sp_lkpsleden_ime_layout]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_LayOut]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Ime_LayOut > @Ime
        ORDER BY Ime_LayOut ASC, Sifra_LayOut ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Ime_LayOut >= @Ime
        ORDER BY Ime_LayOut ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Ime_LayOut < @Ime
        ORDER BY Ime_LayOut DESC, Sifra_LayOut DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_layoutunit]'))
drop procedure [dbo].[sp_lkpsleden_ime_layoutunit]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_LayOutUnit]
    @Ime nVARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Ime_LayOutUnit > @Ime
        ORDER BY Ime_LayOutUnit ASC, Sifra_LayOutUnit ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Ime_LayOutUnit >= @Ime
        ORDER BY Ime_LayOutUnit ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Ime_LayOutUnit < @Ime
        ORDER BY Ime_LayOutUnit DESC, Sifra_LayOutUnit DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_lokacija]'))
drop procedure [dbo].[sp_lkpsleden_ime_lokacija]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Lokacija]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE ImeLok>@Ime
        ORDER BY ImeLok ASC, Sifra_Lok ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE ImeLok>=@Ime
        ORDER BY ImeLok ASC, Sifra_Lok ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE ImeLok<@Ime
        ORDER BY ImeLok DESC, Sifra_Lok DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_lokorg]'))
drop procedure [dbo].[sp_lkpsleden_ime_lokorg]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_LokOrg]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE ImeLokOrg > @Ime
        ORDER BY ImeLokOrg ASC, Sifra_LokOrg ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE ImeLokOrg >= @Ime
        ORDER BY ImeLokOrg ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE ImeLokOrg < @Ime
        ORDER BY ImeLokOrg DESC, Sifra_LokOrg DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_makrolok]'))
drop procedure [dbo].[sp_lkpsleden_ime_makrolok]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_MakroLok]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Ime_MakLok>@Ime
        ORDER BY Ime_MakLok ASC, Sifra_MakLok ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Ime_MakLok>=@Ime
        ORDER BY Ime_MakLok ASC, Sifra_MakLok ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Ime_MakLok<@Ime
        ORDER BY Ime_MakLok DESC, Sifra_MakLok DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_marketi]'))
drop procedure [dbo].[sp_lkpsleden_ime_marketi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Marketi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE ImeMark>@Ime
        ORDER BY ImeMark ASC, Sifra_Mark ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE ImeMark>=@Ime
        ORDER BY ImeMark ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE ImeMark<@Ime
        ORDER BY ImeMark DESC, Sifra_Mark DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_masini]'))
drop procedure [dbo].[sp_lkpsleden_ime_masini]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Masini]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE ImeMas>@Ime
        ORDER BY ImeMas ASC, Sifra_Mas ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE ImeMas>=@Ime
        ORDER BY ImeMas ASC, Sifra_Mas ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE ImeMas<@Ime
        ORDER BY ImeMas DESC, Sifra_Mas DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_mckatpozicija]'))
drop procedure [dbo].[sp_lkpsleden_ime_mckatpozicija]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_MCKatPozicija]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija WITH(NOLOCK)
        WHERE ImeMCPozicija > @Ime
        ORDER BY ImeMCPozicija ASC, Sif_MCPozicija ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija WITH(NOLOCK)
        WHERE ImeMCPozicija >= @Ime
        ORDER BY ImeMCPozicija ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija WITH(NOLOCK)
        WHERE ImeMCPozicija < @Ime
        ORDER BY ImeMCPozicija DESC, Sif_MCPozicija DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_mikrolok]'))
drop procedure [dbo].[sp_lkpsleden_ime_mikrolok]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_MikroLok]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Ime_MikLok>@Ime
        ORDER BY Ime_MikLok ASC, Sifra_MikLok ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Ime_MikLok>=@Ime
        ORDER BY Ime_MikLok ASC, Sifra_MikLok ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Ime_MikLok<@Ime
        ORDER BY Ime_MikLok DESC, Sifra_MikLok DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_mk]'))
drop procedure [dbo].[sp_lkpsleden_ime_mk]

Go






--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar
CREATE      PROCEDURE sp_lkpSleden_Ime_MK
    @Ime NVARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra NVARCHAR(20) OUTPUT,
    @SlednoIme NVARCHAR(70) OUTPUT,
    @SlednoIme2 NVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra NVARCHAR(20) = Null
AS
    Declare @Greska Int
    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)
    If @Tabela = 'KATHIER'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier
            FROM KatHier WITH(NOLOCK)
            WHERE Ime_KHier > @Ime
            ORDER BY Ime_KHier ASC, Sifra_KHier ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier
            FROM KatHier WITH(NOLOCK)
            WHERE Ime_KHier >= @Ime
            ORDER BY Ime_KHier ASC, Sifra_KHier ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier
            FROM KatHier WITH(NOLOCK)
            WHERE Ime_KHier < @Ime
            ORDER BY Ime_KHier DESC, Sifra_KHier DESC
       End
    Else If @Tabela = 'XFODDEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel >@Ime
            ORDER BY Sifra_Oddel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM  XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel<@Ime
            ORDER BY Sifra_Oddel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel=@Ime
       End
    Else If @Tabela = 'XFTIPPREDMET'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet >@Ime
            ORDER BY Sifra_TipPredmet ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM  XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet<@Ime
            ORDER BY Sifra_TipPredmet DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet=@Ime
       End
    Else If @Tabela = 'XFOBLAST'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast >@Ime
            ORDER BY Sifra_Oblast ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM  XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast<@Ime
            ORDER BY Sifra_Oblast DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast=@Ime
       End
    Else If @Tabela = 'XFNAPRAVENO'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno >@Ime
            ORDER BY Sifra_Napraveno ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM  XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno<@Ime
            ORDER BY Sifra_Napraveno DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno=@Ime
        End
    Else If @Tabela = 'XFSTATUSBARANJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje >@Ime
            ORDER BY Sifra_StatusBaranje ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM  XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje<@Ime
            ORDER BY Sifra_StatusBaranje DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje=@Ime
        end
    Else If @Tabela = 'NGSTUDENTS'        -- Pazi treba da e vo .... _MK
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM NGStudents WITH(NOLOCK)
            WHERE ImeStudent >@Ime
            ORDER BY ImeStudent ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM  NGStudents WITH(NOLOCK)
            WHERE ImeStudent<@Ime
            ORDER BY ImeStudent DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM NGStudents WITH(NOLOCK)
            WHERE ImeStudent=@Ime
       End
    Else If @Tabela = 'DIJAGNOZI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE ImeDijagn>@Ime
            ORDER BY ImeDijagn ASC, Sifra_Dijagn ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE ImeDijagn>=@Ime
            ORDER BY ImeDijagn ASC, Sifra_Dijagn ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE ImeDijagn<@Ime
            ORDER BY ImeDijagn DESC, Sifra_Dijagn DESC
       End
    Else If @Tabela = 'LEKARI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE ImeLekar>@Ime
            ORDER BY ImeLekar ASC, Sifra_Lekar ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE ImeLekar>=@Ime
            ORDER BY ImeLekar ASC, Sifra_Lekar ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE ImeLekar<@Ime
            ORDER BY ImeLekar DESC, Sifra_Lekar DESC
       End
    Else If @Tabela = 'FARMACEVT'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE ImeFarmacevt>@Ime
            ORDER BY ImeFarmacevt ASC, Sifra_Farmacevt ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE ImeFarmacevt>=@Ime
            ORDER BY ImeFarmacevt ASC, Sifra_Farmacevt ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE ImeFarmacevt<@Ime
            ORDER BY ImeFarmacevt DESC, Sifra_Farmacevt DESC
       End
    Else If @Tabela = 'APTEKA'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE ImeApteka>@Ime
            ORDER BY ImeApteka ASC, Sifra_Apteka ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE ImeApteka>=@Ime
            ORDER BY ImeApteka ASC, Sifra_Apteka ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE ImeApteka<@Ime
            ORDER BY ImeApteka DESC, Sifra_Apteka DESC
       End
    Else If @Tabela = 'OSNOVOSIG'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE ImeOsnovOsig>@Ime
            ORDER BY ImeOsnovOsig ASC, Sifra_OsnovOsig ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE ImeOsnovOsig>=@Ime
            ORDER BY ImeOsnovOsig ASC, Sifra_OsnovOsig ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE ImeOsnovOsig<@Ime
            ORDER BY ImeOsnovOsig DESC, Sifra_OsnovOsig DESC
       End
    Else If @Tabela = 'PODRACNISLUZBI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE ImePodrSluzba>@Ime
            ORDER BY ImePodrSluzba ASC, Sifra_PodrSluzba ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE ImePodrSluzba>=@Ime
            ORDER BY ImePodrSluzba ASC, Sifra_PodrSluzba ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE ImePodrSluzba<@Ime
            ORDER BY ImePodrSluzba DESC, Sifra_PodrSluzba DESC
       End
    Else If @Tabela = 'ATCKODOVI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE ImeATC>@Ime
            ORDER BY ImeATC ASC, Sifra_ATC ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE ImeATC>=@Ime
            ORDER BY ImeATC ASC, Sifra_ATC ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE ImeATC<@Ime
            ORDER BY ImeATC DESC, Sifra_ATC DESC
       End
    Else If @Tabela = 'PACIENTI'
       Begin
        If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE ImePacient>@Ime
            ORDER BY ImePacient ASC, EMBG ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE ImePacient>=@Ime
            ORDER BY ImePacient ASC, EMBG ASC
        Else If @Nacin = 'Prethoden'
            SELECT Top 1 @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE ImePacient<@Ime
            ORDER BY ImePacient DESC, EMBG DESC
       End
      Else If @Tabela = 'PROEKT'
       Begin
             If @Nacin = 'Sleden'
            SELECT Top 1 @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM Proekt WITH(NOLOCK)
            WHERE ImeProekt > @Ime
            ORDER BY ImeProekt ASC, Broj_Proekt ASC
        Else If @Nacin = 'SledenEdnakov'
            SELECT Top 1 @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM Proekt WITH(NOLOCK)
            WHERE ImeProekt >= @Ime
            ORDER BY ImeProekt ASC, Broj_Proekt ASC
        Else If @Nacin = 'Prethoden'
            SELECT top 1 @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM Proekt WITH(NOLOCK)
            WHERE ImeProekt < @Ime
            ORDER BY ImeProekt DESC, Broj_Proekt DESC
       End


 IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_nacinpresmz]'))
drop procedure [dbo].[sp_lkpsleden_ime_nacinpresmz]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_NacinPresmZ]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresmZ WITH(NOLOCK)
        WHERE Ime_NacPresZ>@Ime
        ORDER BY Ime_NacPresZ ASC, Sif_NacPresZ ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresmZ WITH(NOLOCK)
        WHERE Ime_NacPresZ>=@Ime
        ORDER BY Ime_NacPresZ ASC, Sif_NacPresZ ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresZ WITH(NOLOCK)
        WHERE Ime_NacPresmZ<@Ime
        ORDER BY Ime_NacPresZ DESC, Sif_NacPresZ DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_nacplak]'))
drop procedure [dbo].[sp_lkpsleden_ime_nacplak]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_NacPlak]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE ImeNac>@Ime
        ORDER BY ImeNac ASC, Sifra_Nac ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE ImeNac>=@Ime
        ORDER BY ImeNac ASC, Sifra_Nac ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE ImeNac<@Ime
        ORDER BY ImeNac DESC, Sifra_Nac DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_ng]'))
drop procedure [dbo].[sp_lkpsleden_ime_ng]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE sp_lkpSleden_Ime_NG
    @Ime VARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme VARCHAR(70) OUTPUT,
    @SlednoIme2 VARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        varchar(20)=NULL
AS
    Declare @Greska Int
    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Tabela = 'NGBILLCODES'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM NGBillCodes WITH(NOLOCK)
            WHERE ImeBillCode >@Ime
            ORDER BY ImeBillCode ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM  NGBillCodes WITH(NOLOCK)
            WHERE ImeBillCode<@Ime
            ORDER BY ImeBillCode DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM NGBillCodes WITH(NOLOCK)
            WHERE ImeBillCode=@Ime
            End
    Else If @Tabela = 'NGFAMILIJA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM NGFamilija WITH(NOLOCK)
            WHERE ImeFamil >@Ime
            ORDER BY ImeFamil ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM  NGFamilija WITH(NOLOCK)
            WHERE ImeFamil<@Ime
            ORDER BY ImeFamil DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM NGFamilija WITH(NOLOCK)
            WHERE ImeFamil=@Ime
            End
    Else If @Tabela = 'NGCOURSETYPE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM NGCourseType WITH(NOLOCK)
            WHERE ImeCourseType >@Ime
            ORDER BY ImeCourseType ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM  NGCourseType WITH(NOLOCK)
            WHERE ImeCourseType<@Ime
            ORDER BY ImeCourseType DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM NGCourseType WITH(NOLOCK)
            WHERE ImeCourseType=@Ime
            End
    Else If @Tabela = 'NGSCHOOLCODE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM NGSchoolYear WITH(NOLOCK)
            WHERE ImeSchoolYear > @Ime
            ORDER BY ImeSchoolYear ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM  NGSchoolYear WITH(NOLOCK)
            WHERE ImeSchoolYear < @Ime
            ORDER BY ImeSchoolYear DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM NGSchoolYear WITH(NOLOCK)
            WHERE ImeSchoolYear=@Ime
       End

   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_nivo]'))
drop procedure [dbo].[sp_lkpsleden_ime_nivo]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Nivo]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM Nivo WITH(NOLOCK)
        WHERE ImeNivo>@Ime
        ORDER BY Sifra_Nivo ASC, ImeNivo ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM Nivo WITH(NOLOCK)
        WHERE ImeNivo>=@Ime
        ORDER BY ImeNivo ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM Nivo WITH(NOLOCK)
        WHERE ImeNivo<@Ime
        ORDER BY ImeNivo DESC, Sifra_Nivo DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_nivocenikartkor]'))
drop procedure [dbo].[sp_lkpsleden_ime_nivocenikartkor]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_NivoCeniKartKor]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE ImeCeniKartKor>@Ime
        ORDER BY ImeCeniKartKor ASC, Sifra_CeniKartKor ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE ImeCeniKartKor>=@Ime
        ORDER BY ImeCeniKartKor ASC, Sifra_CeniKartKor ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE ImeCeniKartKor<@Ime
        ORDER BY ImeCeniKartKor DESC, Sifra_CeniKartKor DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_oblast]'))
drop procedure [dbo].[sp_lkpsleden_ime_oblast]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Oblast]
    @Ime nVARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Ime_Oblast > @Ime
        ORDER BY Ime_Oblast ASC, Sifra_Oblast ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Ime_Oblast >= @Ime
        ORDER BY Ime_Oblast ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Ime_Oblast < @Ime
        ORDER BY Ime_Oblast DESC, Sifra_Oblast DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_operatori]'))
drop procedure [dbo].[sp_lkpsleden_ime_operatori]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Operatori]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Ime_Oper>@Ime
        ORDER BY Ime_Oper ASC, Sifra_Oper ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Ime_Oper>=@Ime
        ORDER BY Ime_Oper ASC, Sifra_Oper ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Ime_Oper<@Ime
        ORDER BY Ime_Oper DESC, Sifra_Oper DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_opstini]'))
drop procedure [dbo].[sp_lkpsleden_ime_opstini]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Opstini]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Ime_Opstina>@Ime
        ORDER BY Ime_Opstina ASC, Sif_Opstina ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Ime_Opstina>=@Ime
        ORDER BY Ime_Opstina ASC, Sif_Opstina ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Ime_Opstina<@Ime
        ORDER BY Ime_Opstina DESC, Sif_Opstina DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_orged]'))
drop procedure [dbo].[sp_lkpsleden_ime_orged]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Orged]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE ImeOrg>@Ime
        ORDER BY ImeOrg ASC, Sifra_OE ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE ImeOrg>=@Ime
        ORDER BY ImeOrg ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE ImeOrg<@Ime
        ORDER BY ImeOrg DESC, Sifra_OE DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_osngrpodel]'))
drop procedure [dbo].[sp_lkpsleden_ime_osngrpodel]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_OsnGrPodel]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OSNGRPODEL WITH(NOLOCK)
        WHERE ImeOsnGrPodel > @Ime
        ORDER BY ImeOsnGrPodel ASC, Sifra_OsnGrPodel ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OSNGRPODEL WITH(NOLOCK)
        WHERE ImeOsnGrPodel >= @Ime
        ORDER BY ImeOsnGrPodel ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OSNGRPODEL WITH(NOLOCK)
        WHERE ImeOsnGrPodel < @Ime
        ORDER BY ImeOsnGrPodel DESC, Sifra_OsnGrPodel DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_osnpodelbi]'))
drop procedure [dbo].[sp_lkpsleden_ime_osnpodelbi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_OsnPodelbi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Vrednost > @Ime
        ORDER BY Vrednost ASC, Sifra_OsnPodel ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Vrednost >= @Ime
        ORDER BY Vrednost ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Vrednost < @Ime
        ORDER BY Vrednost DESC, Sifra_OsnPodel DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_osnsred]'))
drop procedure [dbo].[sp_lkpsleden_ime_osnsred]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_OsnSred]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Ime>@Ime
        ORDER BY Ime ASC, Inv_Broj ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Ime>=@Ime
        ORDER BY Ime ASC, Inv_Broj ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Ime<@Ime
        ORDER BY Ime DESC, Inv_Broj DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_patnici]'))
drop procedure [dbo].[sp_lkpsleden_ime_patnici]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Patnici]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE ImePat>@Ime
        ORDER BY ImePat ASC, Sifra_Pat ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE ImePat>=@Ime
        ORDER BY ImePat ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE ImePat<@Ime
        ORDER BY ImePat DESC, Sifra_Pat DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_podgrupi]'))
drop procedure [dbo].[sp_lkpsleden_ime_podgrupi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Podgrupi]
    @Ime nVARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Ime_Podg>@Ime
        ORDER BY Ime_Podg ASC, Sifra_Podg ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Ime_Podg>=@Ime
        ORDER BY Ime_Podg ASC, Sifra_Podg ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Ime_Podg<@Ime
        ORDER BY Ime_Podg DESC, Sifra_Podg DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_podgrweb]'))
drop procedure [dbo].[sp_lkpsleden_ime_podgrweb]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_PodgrWeb]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Ime_PodgrWeb>@Ime
        ORDER BY Ime_PodgrWeb ASC, Sifra_PodgrWeb ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Ime_PodgrWeb>=@Ime
        ORDER BY Ime_PodgrWeb ASC, Sifra_PodgrWeb ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Ime_PodgrWeb<@Ime
        ORDER BY Ime_PodgrWeb DESC, Sifra_PodgrWeb DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_podoblast]'))
drop procedure [dbo].[sp_lkpsleden_ime_podoblast]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_PodOblast]
    @Ime nVARCHAR(70),
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Ime_PodOblast > @Ime
        ORDER BY Ime_PodOblast ASC, Sifra_PodOblast ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Ime_PodOblast >= @Ime
        ORDER BY Ime_PodOblast ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Ime_PodOblast < @Ime
        ORDER BY Ime_PodOblast DESC, Sifra_PodOblast DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_prevoznik]'))
drop procedure [dbo].[sp_lkpsleden_ime_prevoznik]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Prevoznik]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE ImePrev>@Ime
        ORDER BY ImePrev ASC, Sifra_Prev ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE ImePrev>=@Ime
        ORDER BY ImePrev ASC, Sifra_Prev ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE ImePrev<@Ime
        ORDER BY ImePrev DESC, Sifra_Prev DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_primateli]'))
drop procedure [dbo].[sp_lkpsleden_ime_primateli]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Primateli]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Ime_Primatel>@Ime
        ORDER BY Ime_Primatel ASC, Sif_Primatel ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Ime_Primatel>=@Ime
        ORDER BY Ime_Primatel ASC, Sif_Primatel ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Ime_Primatel<@Ime
        ORDER BY Ime_Primatel DESC, Sif_Primatel DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_prodmest]'))
drop procedure [dbo].[sp_lkpsleden_ime_prodmest]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_ProdMest]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM ProdMest WITH(NOLOCK)
        WHERE Opis>@Ime
        ORDER BY  Opis ASC, Sifra_Mest ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM ProdMest WITH(NOLOCK)
        WHERE Opis>=@Ime
        ORDER BY Opis ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM ProdMest WITH(NOLOCK)
        WHERE Opis<@Ime
        ORDER BY Opis DESC, Sifra_Mest DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_programi]'))
drop procedure [dbo].[sp_lkpsleden_ime_programi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Programi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Ime_Progr>@Ime
        ORDER BY Ime_Progr ASC, Sif_Progr ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Ime_Progr>=@Ime
        ORDER BY Ime_Progr ASC, Sif_Progr ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Ime_Progr<@Ime
        ORDER BY Ime_Progr DESC, Sif_Progr DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_promocgrupna]'))
drop procedure [dbo].[sp_lkpsleden_ime_promocgrupna]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_PromocGrupna]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE cParam3 > @Ime and PodTipParam = 'GLAVA' and cParam2 = 'GRUPNA'
        ORDER BY cParam3 ASC, KodParam ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE cParam3 >= @Ime and PodTipParam = 'GLAVA' and cParam2 = 'GRUPNA'
        ORDER BY cParam3 ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE cParam3 < @Ime and PodTipParam = 'GLAVA' and cParam2 = 'GRUPNA'
        ORDER BY cParam3 DESC, KodParam DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_rabotnik]'))
drop procedure [dbo].[sp_lkpsleden_ime_rabotnik]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Rabotnik]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE ImeRab>@Ime
        ORDER BY ImeRab ASC, Sifra_Rab ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE ImeRab>=@Ime
        ORDER BY ImeRab ASC, Sifra_Rab ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE ImeRab<@Ime
        ORDER BY ImeRab DESC, Sifra_Rab DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_relacispor]'))
drop procedure [dbo].[sp_lkpsleden_ime_relacispor]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_RelacIspor]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Ime_RelIspor>@Ime
        ORDER BY Ime_RelIspor ASC, Sifra_RelIspor ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Ime_RelIspor>=@Ime
        ORDER BY Ime_RelIspor ASC, Sifra_RelIspor ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Ime_RelIspor<@Ime
        ORDER BY Ime_RelIspor DESC, Sifra_RelIspor DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_rkasgrupaoperac]'))
drop procedure [dbo].[sp_lkpsleden_ime_rkasgrupaoperac]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_RKASGRUPAOPERAC]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM  RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac >@Ime
        ORDER BY Sifra_GrOperac ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM  RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac<@Ime
        ORDER BY Sifra_GrOperac DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_sint]'))
drop procedure [dbo].[sp_lkpsleden_ime_sint]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Sint]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE ImeSint>@Ime
        ORDER BY Kto_Sint ASC, ImeSint ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE ImeSint>=@Ime
        ORDER BY ImeSint ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE ImeSint<@Ime
        ORDER BY ImeSint DESC, Kto_Sint DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_smeni]'))
drop procedure [dbo].[sp_lkpsleden_ime_smeni]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Smeni]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Ime_Smena>@Ime
        ORDER BY Ime_Smena ASC, Sifra_Smena ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Ime_Smena>=@Ime
        ORDER BY Ime_Smena ASC, Sifra_Smena ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Ime_Smena<@Ime
        ORDER BY Ime_Smena DESC, Sifra_Smena DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_spremac]'))
drop procedure [dbo].[sp_lkpsleden_ime_spremac]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Spremac]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM Spremac WITH(NOLOCK)
        WHERE ImeSpremac > @Ime
        ORDER BY ImeSpremac ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM  Spremac WITH(NOLOCK)
        WHERE ImeSpremac >= @Ime
        ORDER BY ImeSpremac ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM Spremac WITH(NOLOCK)
        WHERE ImeSpremac < @Ime
        ORDER BY ImeSpremac DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tarifi]'))
drop procedure [dbo].[sp_lkpsleden_ime_tarifi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Tarifi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE ImeTar>@Ime
        ORDER BY ImeTar ASC, Sifra_Tar ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE ImeTar>=@Ime
        ORDER BY ImeTar ASC, Sifra_Tar ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE ImeTar<@Ime
        ORDER BY ImeTar DESC, Sifra_Tar DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tarmodel]'))
drop procedure [dbo].[sp_lkpsleden_ime_tarmodel]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TarModel]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel >@Ime
        ORDER BY Sifra_TarModel ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM  TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel<@Ime
        ORDER BY Sifra_TarModel DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipaktivnosti]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipaktivnosti]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipAktivnosti]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Ime_Akt > @Ime
        ORDER BY Ime_Akt ASC, Tip_Akt ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Ime_Akt >= @Ime
        ORDER BY Ime_Akt ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Ime_Akt < @Ime
        ORDER BY Ime_Akt DESC, Tip_Akt DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipartzal]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipartzal]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

create PROCEDURE [dbo].[sp_lkpSleden_Ime_TipArtZal]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Ime_TipArtZal > @Ime
        ORDER BY Ime_TipArtZal ASC, Sifra_TipArtZal ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Ime_TipArtZal >= @Ime
        ORDER BY Ime_TipArtZal ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Ime_TipArtZal < @Ime
        ORDER BY Ime_TipArtZal DESC, Sifra_TipArtZal DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipdok]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipdok]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipDok]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE ImeDok>@Ime             ORDER BY ImeDok ASC, Sifra_Dok ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE ImeDok>=@Ime
        ORDER BY ImeDok ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE ImeDok<@Ime
        ORDER BY ImeDok DESC, Sifra_Dok DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipkartkor]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipkartkor]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipKartKor]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE ImeKartKor>@Ime
        ORDER BY ImeKartKor ASC, Sifra_TipKartKor ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE ImeKartKor>=@Ime
        ORDER BY ImeKartKor ASC, Sifra_TipKartKor ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE ImeKartKor<@Ime
        ORDER BY ImeKartKor DESC, Sifra_TipKartKor DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipkatpakuv]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipkatpakuv]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipKatPakuv]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM TipKatPakuv WITH(NOLOCK)
        WHERE Sifra_KatPak >@Ime
        ORDER BY Sifra_KatPak ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM  TipKatPakuv WITH(NOLOCK)
        WHERE Sifra_KatPak<@Ime
        ORDER BY Sifra_KatPak DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM Sifra_KatPak WITH(NOLOCK)
        WHERE Sifra_KatPak=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipkomint]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipkomint]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipKomint]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE ImeTip>@Ime
        ORDER BY ImeTip ASC, Sifra_Tip ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE ImeTip>=@Ime
        ORDER BY ImeTip ASC, Sifra_Tip ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE ImeTip<@Ime
        ORDER BY ImeTip DESC, Sifra_Tip DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipnal]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipnal]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipNal]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE ImeNal>@Ime
        ORDER BY ImeNal ASC, Sifra_Nal ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE ImeNal>=@Ime
        ORDER BY ImeNal ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE ImeNal<@Ime
        ORDER BY ImeNal DESC, Sifra_Nal DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tipnarac]'))
drop procedure [dbo].[sp_lkpsleden_ime_tipnarac]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipNarac]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')
    Set @Ime = Ltrim(Rtrim(@Ime))
             Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE ImeNar>@Ime             ORDER BY ImeNar ASC, Sifra_Nar ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE ImeNar>=@Ime
        ORDER BY ImeNar ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE ImeNar<@Ime
        ORDER BY ImeNar DESC, Sifra_Nar DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_tippercenovnik]'))
drop procedure [dbo].[sp_lkpsleden_ime_tippercenovnik]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TipPerCenovnik]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE ImeTipC>@Ime
        ORDER BY  ImeTipC ASC, Sifra_TipC ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE ImeTipC>=@Ime
        ORDER BY ImeTipC ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE ImeTipC<@Ime
        ORDER BY ImeTipC DESC, Sifra_TipC DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_trosok4tip]'))
drop procedure [dbo].[sp_lkpsleden_ime_trosok4tip]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TROSOK4TIP]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Ime4Tros > @Ime
        ORDER BY Ime4Tros ASC, Sifra_4Tros ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Ime4Tros >= @Ime
        ORDER BY Ime4Tros ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Ime4Tros < @Ime
        ORDER BY Ime4Tros DESC, Sifra_4Tros DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_trosokmesto]'))
drop procedure [dbo].[sp_lkpsleden_ime_trosokmesto]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TROSOKMESTO]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE ImeTrosM > @Ime
        ORDER BY ImeTrosM ASC, Sifra_TrosM ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE ImeTrosM >= @Ime
        ORDER BY ImeTrosM ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE ImeTrosM < @Ime
        ORDER BY ImeTrosM DESC, Sifra_TrosM DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_trosokvid]'))
drop procedure [dbo].[sp_lkpsleden_ime_trosokvid]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_TROSOKVID]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE ImeTrosV > @Ime
        ORDER BY ImeTrosV ASC, Sifra_TrosV ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE ImeTrosV >= @Ime
        ORDER BY ImeTrosV ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE ImeTrosV < @Ime
        ORDER BY ImeTrosV DESC, Sifra_TrosV DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_ucesdenovi]'))
drop procedure [dbo].[sp_lkpsleden_ime_ucesdenovi]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_UcesDenovi]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Uces>@Ime
        ORDER BY  Uces ASC, Denovi ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Uces>=@Ime
        ORDER BY Uces ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Uces<@Ime
        ORDER BY Uces DESC, Denovi DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_velicina]'))
drop procedure [dbo].[sp_lkpsleden_ime_velicina]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Velicina]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE ImeVelic > @Ime
        ORDER BY ImeVelic ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE ImeVelic >= @Ime
        ORDER BY ImeVelic ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE ImeVelic < @Ime
        ORDER BY ImeVelic DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_velicskala]'))
drop procedure [dbo].[sp_lkpsleden_ime_velicskala]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_VelicSkala]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Ime_VelSkala > @Ime
        ORDER BY Ime_VelSkala ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Ime_VelSkala >= @Ime
        ORDER BY Ime_VelSkala ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Ime_VelSkala < @Ime
        ORDER BY Ime_VelSkala DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_verntraenje]'))
drop procedure [dbo].[sp_lkpsleden_ime_verntraenje]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_VernTraenje]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost >@Ime
        ORDER BY Sifra_Vernost ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM  VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost<@Ime
        ORDER BY Sifra_Vernost DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_viddog]'))
drop procedure [dbo].[sp_lkpsleden_ime_viddog]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_VidDog]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog >@Ime
        ORDER BY Sifra_VidDog ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM  VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog<@Ime
        ORDER BY Sifra_VidDog DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog=@Ime

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_vidprodobj]'))
drop procedure [dbo].[sp_lkpsleden_ime_vidprodobj]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_VidProdObj]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Ime_VPJ>@Ime
        ORDER BY Ime_VPJ ASC, Sifra_VPJ ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Ime_VPJ>=@Ime
        ORDER BY Ime_VPJ ASC, Sifra_VPJ ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Ime_VPJ<@Ime
        ORDER BY Ime_VPJ DESC, Sifra_VPJ DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_vidvozila]'))
drop procedure [dbo].[sp_lkpsleden_ime_vidvozila]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_VidVozila]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Ime_Vid_Voz>@Ime
        ORDER BY Ime_Vid_Voz ASC, Sifra_Vid_Voz ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Ime_Vid_Voz>=@Ime
        ORDER BY Ime_Vid_Voz ASC, Sifra_Vid_Voz ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Ime_Vid_Voz<@Ime
        ORDER BY Ime_Vid_Voz DESC, Sifra_Vid_Voz DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_whmlokacija]'))
drop procedure [dbo].[sp_lkpsleden_ime_whmlokacija]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_WhmLokacija]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Ime > @Ime
        ORDER BY Lokac_Ime ASC, Lokac_Id ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Ime >= @Ime
        ORDER BY Lokac_Ime ASC
    Else If @Nacin = 'Prethoden'
        SELECT top 1 @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Ime < @Ime
        ORDER BY Lokac_Ime DESC, Lokac_Id DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_zadrski]'))
drop procedure [dbo].[sp_lkpsleden_ime_zadrski]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Zadrski]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Ime_Zadr>@Ime
        ORDER BY Ime_Zadr ASC, Sif_Zadr ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Ime_Zadr>=@Ime
        ORDER BY Ime_Zadr ASC, Sif_Zadr ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Ime_Zadr<@Ime
        ORDER BY Ime_Zadr DESC, Sif_Zadr DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ime_zarab]'))
drop procedure [dbo].[sp_lkpsleden_ime_zarab]

Go

--    Opis na Parametri
--    @Ime: Najmnogu 40 Karakteri.
--
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: Sleden, SledenEdnakov, Prethoden
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar

CREATE PROCEDURE [dbo].[sp_lkpSleden_Ime_Zarab]
    @Ime VARCHAR(70),        --ne stavaj nvarchar zatoa sto ne raboti sledenednakov
    @Tabela VARCHAR(20),
    @Nacin VARCHAR(15),
    @SlednaSifra VARCHAR(20) OUTPUT,
    @SlednoIme nVARCHAR(70) OUTPUT,
    @SlednoIme2 nVARCHAR(70) = Null OUTPUT,
    @OpcPrethSifra VARCHAR(20) = Null,
    @Filter        nvarchar(20)=NULL

AS

    If @Nacin = 'SledenEdnakov'
        Set @Ime =  Replace(@Ime, '[', '[[]')

    Set @Ime = Ltrim(Rtrim(@Ime))
    Set @Tabela = Upper(@Tabela)

    If @Nacin = 'Sleden'
        SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Ime_Zarab>@Ime
        ORDER BY Ime_Zarab ASC, Sif_Zarab ASC
    Else If @Nacin = 'SledenEdnakov'
        SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Ime_Zarab>=@Ime
        ORDER BY Ime_Zarab ASC, Sif_Zarab ASC
    Else If @Nacin = 'Prethoden'
        SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Ime_Zarab<@Ime
        ORDER BY Ime_Zarab DESC, Sif_Zarab DESC

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_internikart]'))
drop procedure [dbo].[sp_lkpsleden_internikart]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_InterniKart]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart>@Sifra
        ORDER BY Interna_Kart ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart<@Sifra
        ORDER BY Interna_Kart DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Interna_Kart, @SlednoIme=Ima_Limit
        FROM InterniKart WITH(NOLOCK)
        WHERE Interna_Kart=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_karakterist]'))
drop procedure [dbo].[sp_lkpsleden_karakterist]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Karakterist]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE Sifra_Karakt > @Sifra
        ORDER BY Sifra_KArakt ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE Sifra_Karakt < @Sifra
        ORDER BY Sifra_Karakt DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Karakt, @SlednoIme=ImeKarakt
        FROM Karakterist WITH(NOLOCK)
        WHERE Sifra_Karakt = @Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kartkor]'))
drop procedure [dbo].[sp_lkpsleden_kartkor]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KartKor]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
    Begin
        IF @Filter IS NULL
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE Sifra_Kor>@Sifra
            ORDER BY Sifra_Kor ASC
        ELSE
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE Sifra_Kor>@Sifra AND Sifra_Kup=@Filter
            ORDER BY Sifra_Kor ASC
    End
    Else If @Nacin = 'PRETHODEN'
    Begin
        IF @Filter IS NULL
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE Sifra_Kor<@Sifra
            ORDER BY Sifra_Kor DESC
        ELSE
            SELECT Top 1 @SlednaSifra=Sifra_Kor, @SlednoIme=ImeKor
            FROM KartKor WITH(NOLOCK)
            WHERE Sifra_Kor<@Sifra AND Sifra_Kup=@Filter
            ORDER BY Sifra_Kor DESC
    End
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Kor, @SlednoIme=Imekor
        FROM KartKor WITH(NOLOCK)
        WHERE Sifra_Kor=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_katamb]'))
drop procedure [dbo].[sp_lkpsleden_katamb]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KatAmb]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE Sifra_Amb>@Sifra
        ORDER BY Sifra_Amb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE Sifra_Amb<@Sifra
        ORDER BY Sifra_Amb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Amb, @SlednoIme=ImeAmb
        FROM KatAmb WITH(NOLOCK)
        WHERE Sifra_Amb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_katart]'))
drop procedure [dbo].[sp_lkpsleden_katart]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KatArt]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE Sifra_Art>@Sifra
        ORDER BY Sifra_Art ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE Sifra_Art<@Sifra
        ORDER BY Sifra_Art DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Art, @SlednoIme=ImeArt, @SlednoIme2=ImeArt2
        FROM KatArt WITH(NOLOCK)
        WHERE Sifra_Art=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_katgamb]'))
drop procedure [dbo].[sp_lkpsleden_katgamb]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KatGAmb]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE Sifra_GAmb>@Sifra
        ORDER BY Sifra_GAmb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE Sifra_GAmb<@Sifra
        ORDER BY Sifra_GAmb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GAmb, @SlednoIme=ImeGAmb
        FROM KatGAmb WITH(NOLOCK)
        WHERE Sifra_GAmb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_katspectipmat]'))
drop procedure [dbo].[sp_lkpsleden_katspectipmat]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KATSPECTIPMAT]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE Sifra_TipMat>@Sifra
        ORDER BY Sifra_TipMat ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE Sifra_TipMat<@Sifra
        ORDER BY Sifra_TipMat DESC
     Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TipMat, @SlednoIme=ImeTipMat
        FROM KATSPECTIPMAT WITH(NOLOCK)
        WHERE Sifra_TipMat=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_katstatus]'))
drop procedure [dbo].[sp_lkpsleden_katstatus]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KatStatus]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus >@Sifra
        ORDER BY Sifra_KatStatus ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM  KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus<@Sifra
        ORDER BY Sifra_KatStatus DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_KatStatus, @SlednoIme=ImeKatStatus
        FROM KatStatus WITH(NOLOCK)
        WHERE Sifra_KatStatus=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo1]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo1]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo1]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Sifra_1K>@IntSifra
        ORDER BY Sifra_1K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Sifra_1K<@IntSifra
        ORDER BY Sifra_1K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_1K, @SlednoIme=Ime_1K
        FROM KDrugo1 WITH(NOLOCK)
        WHERE Sifra_1K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo2]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo2]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo2]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Sifra_2K>@IntSifra
        ORDER BY Sifra_2K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Sifra_2K<@IntSifra
        ORDER BY Sifra_2K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_2K, @SlednoIme=Ime_2K
        FROM KDrugo2 WITH(NOLOCK)
        WHERE Sifra_2K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo3]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo3]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo3]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Sifra_3K>@IntSifra
        ORDER BY Sifra_3K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Sifra_3K<@IntSifra
        ORDER BY Sifra_3K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_3K, @SlednoIme=Ime_3K
        FROM KDrugo3 WITH(NOLOCK)
        WHERE Sifra_3K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo4]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo4]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo4]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Sifra_4K>@IntSifra
        ORDER BY Sifra_4K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Sifra_4K<@IntSifra
        ORDER BY Sifra_4K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_4K, @SlednoIme=Ime_4K
        FROM KDrugo4 WITH(NOLOCK)
        WHERE Sifra_4K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo5]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo5]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo5]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Sifra_5K>@IntSifra
        ORDER BY Sifra_5K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Sifra_5K<@IntSifra
        ORDER BY Sifra_5K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_5K, @SlednoIme=Ime_5K
        FROM KDrugo5 WITH(NOLOCK)
        WHERE Sifra_5K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo6]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo6]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo6]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Sifra_6K>@IntSifra
        ORDER BY Sifra_6K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Sifra_6K<@IntSifra
        ORDER BY Sifra_6K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_6K, @SlednoIme=Ime_6K
        FROM KDrugo6 WITH(NOLOCK)
        WHERE Sifra_6K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kdrugo7]'))
drop procedure [dbo].[sp_lkpsleden_kdrugo7]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KDrugo7]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Sifra_7K>@IntSifra
        ORDER BY Sifra_7K ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Sifra_7K<@IntSifra
        ORDER BY Sifra_7K DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_7K, @SlednoIme=Ime_7K
        FROM KDrugo7 WITH(NOLOCK)
        WHERE Sifra_7K=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_klas]'))
drop procedure [dbo].[sp_lkpsleden_klas]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Klas]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas WITH(NOLOCK)
        WHERE Kto_Klas>@Sifra
        ORDER BY Kto_Klas ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas WITH(NOLOCK)
        WHERE Kto_Klas<@Sifra
        ORDER BY Kto_Klas DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Kto_Klas, @SlednoIme=ImeKlasa
        FROM Klas WITH(NOLOCK)
        WHERE Kto_Klas=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_klienti]'))
drop procedure [dbo].[sp_lkpsleden_klienti]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Klienti]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE Sif_Klient >@Sifra
        ORDER BY Sif_Klient ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE Sif_Klient<@Sifra
        ORDER BY Sif_Klient DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Klient, @SlednoIme=ImeKlient
        FROM Klienti WITH(NOLOCK)
        WHERE Sif_Klient=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_knigatrg]'))
drop procedure [dbo].[sp_lkpsleden_knigatrg]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KnigaTrg]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM KnigaTrg WITH(NOLOCK)
        WHERE InterenBr > @Sifra
        ORDER BY InterenBr  ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM  KnigaTrg WITH(NOLOCK)
        WHERE InterenBr < @Sifra
        ORDER BY InterenBr DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=InterenBr, @SlednoIme=Broj
        FROM KnigaTrg WITH(NOLOCK)
        WHERE  InterenBr=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_komint]'))
drop procedure [dbo].[sp_lkpsleden_komint]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Komint]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25))+ ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE Sifra_Kup>@Sifra
        ORDER BY Sifra_Kup ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25)) + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE Sifra_Kup<@Sifra
        ORDER BY Sifra_Kup DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Kup, @SlednoIme=RTrim(ImeKup)+ ' /' + Cast(IsNull(SMesto, '') as Varchar(25)) + ' ' + Cast(IsNull(Sifra_Pat, '') As Varchar(6))
        FROM Komint WITH(NOLOCK)
        WHERE Sifra_Kup=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_konfslaganje]'))
drop procedure [dbo].[sp_lkpsleden_konfslaganje]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KonfSlaganje]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE Sifra_slag>@Sifra
        ORDER BY Sifra_Slag ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE Sifra_Slag<@Sifra
        ORDER BY Sifra_Slag DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Slag, @SlednoIme=ImeSlag
        FROM KonfSlaganje WITH(NOLOCK)
        WHERE Sifra_Slag=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kreditstatus]'))
drop procedure [dbo].[sp_lkpsleden_kreditstatus]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KreditStatus]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Status_Kredit
        FROM KreditStatus WITH(NOLOCK)
        WHERE Status_Kredit>@Sifra
        ORDER BY Status_Kredit ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Status_Kredit
        FROM KreditStatus WITH(NOLOCK)
        WHERE Status_Kredit<@Sifra
        ORDER BY Status_Kredit DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Status_Kredit
        FROM KreditStatus WITH(NOLOCK)
        WHERE Status_Kredit=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_kredittipopomena]'))
drop procedure [dbo].[sp_lkpsleden_kredittipopomena]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KreditTipOpomena]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KreditTipOpomena WITH(NOLOCK)
        WHERE Tip_Opomena>@Sifra
        ORDER BY Tip_Opomena ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KreditTipOpomena WITH(NOLOCK)
        WHERE Tip_Opomena<@Sifra
        ORDER BY Tip_Opomena DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Tip_Opomena, @SlednoIme=ImeTipOpomena
        FROM KreditTipOpomena WITH(NOLOCK)
        WHERE Tip_Opomena=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_krslista]'))
drop procedure [dbo].[sp_lkpsleden_krslista]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_KrsLista]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE SImeVal>@Sifra
        ORDER BY SImeVal ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE SImeVal<@Sifra
        ORDER BY SImeVal DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=SImeVal, @SlednoIme=ImeVal
        FROM KrsLista WITH(NOLOCK)
        WHERE SImeVal=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_layout]'))
drop procedure [dbo].[sp_lkpsleden_layout]

Go

create PROCEDURE [dbo].[sp_lkpSleden_LayOut]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Sifra_LayOut >@Sifra
        ORDER BY Sifra_LayOut ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Sifra_LayOut<@Sifra
        ORDER BY Sifra_LayOut DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_LayOut, @SlednoIme=Ime_LayOut
        FROM LayOut WITH(NOLOCK)
        WHERE Sifra_LayOut=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_layoutunit]'))
drop procedure [dbo].[sp_lkpsleden_layoutunit]

Go

create PROCEDURE [dbo].[sp_lkpSleden_LayOutUnit]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Sifra_LayOutUnit >@Sifra
        ORDER BY Sifra_LayOutUnit ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Sifra_LayOutUnit<@Sifra
        ORDER BY Sifra_LayOutUnit DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_LayOutUnit, @SlednoIme=Ime_LayOutUnit
        FROM LayOutUnit WITH(NOLOCK)
        WHERE Sifra_LayOutUnit=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_lokacija]'))
drop procedure [dbo].[sp_lkpsleden_lokacija]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Lokacija]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE Sifra_Lok>@Sifra
        ORDER BY Sifra_Lok ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE Sifra_Lok<@Sifra
        ORDER BY Sifra_Lok DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Lok, @SlednoIme=ImeLok
        FROM Lokacija WITH(NOLOCK)
        WHERE Sifra_Lok=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_lokorg]'))
drop procedure [dbo].[sp_lkpsleden_lokorg]

Go

create PROCEDURE [dbo].[sp_lkpSleden_LokOrg]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE Sifra_LokOrg >@Sifra
        ORDER BY Sifra_LokOrg ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE Sifra_LokOrg<@Sifra
        ORDER BY Sifra_LokOrg DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_LokOrg, @SlednoIme=ImeLokOrg
        FROM LokOrg WITH(NOLOCK)
        WHERE Sifra_LokOrg=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_makrolok]'))
drop procedure [dbo].[sp_lkpsleden_makrolok]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_MakroLok]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Sifra_MakLok>@Sifra
        ORDER BY Sifra_MakLok ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Sifra_MakLok<@Sifra
        ORDER BY Sifra_MakLok DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_MakLok, @SlednoIme=Ime_MakLok
        FROM MakroLok WITH(NOLOCK)
        WHERE Sifra_MakLok=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_marketi]'))
drop procedure [dbo].[sp_lkpsleden_marketi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Marketi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE Sifra_Mark>@IntSifra
        ORDER BY Sifra_Mark ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE Sifra_Mark<@IntSifra
        ORDER BY Sifra_Mark DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Mark, @SlednoIme=ImeMark
        FROM Marketi WITH(NOLOCK)
        WHERE Sifra_Mark=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_masini]'))
drop procedure [dbo].[sp_lkpsleden_masini]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Masini]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE Sifra_Mas>@Sifra
        ORDER BY Sifra_Mas ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE Sifra_Mas<@Sifra
        ORDER BY Sifra_Mas DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Mas, @SlednoIme=ImeMas
        FROM Masini WITH(NOLOCK)
        WHERE Sifra_Mas=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_mckatpozicija]'))
drop procedure [dbo].[sp_lkpsleden_mckatpozicija]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_MCKatPozicija]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija WITH(NOLOCK)
        WHERE Sif_MCPozicija >@Sifra
        ORDER BY Sif_MCPozicija ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija WITH(NOLOCK)
        WHERE Sif_MCPozicija<@Sifra
        ORDER BY Sif_MCPozicija DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_MCPozicija, @SlednoIme=ImeMCPozicija
        FROM MCKatPozicija
        WHERE Sif_MCPozicija=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_mikrolok]'))
drop procedure [dbo].[sp_lkpsleden_mikrolok]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_MikroLok]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Sifra_MikLok>@Sifra
        ORDER BY Sifra_MikLok ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Sifra_MikLok<@Sifra
        ORDER BY Sifra_MikLok DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_MikLok, @SlednoIme=Ime_MikLok
        FROM MikroLok WITH(NOLOCK)
        WHERE Sifra_MikLok=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_mk]'))
drop procedure [dbo].[sp_lkpsleden_mk]

Go



--    Opis na Parametri
--    @Sifra: 3 ili 6 Karakteri, 3 za Grupi, 6 za Podgrupi, KatArt.
--        Mora da gi sodrzi vodeckite nuli.
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
--        Prifakja: Katart, Podgrupi, Grupi, Tarifi, Komint
--    @Nacin: Nacin na prebaruvanje.
--        Prifakja: SLEDEN, PRETHODEN, TOCEN
--    @SlednaSifra: povraten parametar
--    @SlednoIme: povraten parametar
CREATE     PROCEDURE sp_lkpSleden_MK
    @Sifra        NVARCHAR(20),
    @Tabela        VARCHAR(20),
    @Nacin        VARCHAR(10),
    @AlfaMoze    char(1) = 'N',
    @SlednaSifra    NVARCHAR(20) OUTPUT,
    @SlednoIme    NVARCHAR(70) OUTPUT,
    @SlednoIme2    NVARCHAR(70) = Null OUTPUT
AS
   Declare @Greska Int
   Declare @IntSifra Int
   Set @Tabela=Upper(@Tabela)
   Set @Nacin=Upper(@Nacin)
    If @AlfaMoze <> 'D' AND len(@Sifra) < 10
        Set @IntSifra = CONVERT(Int, @Sifra)
    If @Tabela = 'KATHIER'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier, @SlednoIme2=Alt_ImeKHier
            FROM KatHier WITH(NOLOCK)
            WHERE Sifra_KHier > @Sifra
            ORDER BY Sifra_KHier ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier, @SlednoIme2=Alt_ImeKHier
            FROM KatHier WITH(NOLOCK)
            WHERE Sifra_KHier < @Sifra
            ORDER BY Sifra_KHier DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_KHier, @SlednoIme=Ime_KHier, @SlednoIme2=Alt_ImeKHier
            FROM KatHier WITH(NOLOCK)
            WHERE Sifra_KHier=@Sifra
       End
    Else If @Tabela = 'XFIZVRSITEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Izvrs, @SlednoIme=ImeIzvrs
            FROM XFIzvrsitel WITH(NOLOCK)
            WHERE Sifra_Izvrs >@Sifra
            ORDER BY Sifra_Izvrs ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Izvrs, @SlednoIme=ImeIzvrs
            FROM   XFIzvrsitel WITH(NOLOCK)
            WHERE Sifra_Izvrs<@Sifra
            ORDER BY Sifra_Izvrs  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Izvrs, @SlednoIme=ImeIzvrs
            FROM  XFIzvrsitel WITH(NOLOCK)
            WHERE Sifra_Izvrs =@Sifra
                 End
    Else If @Tabela = 'XFODDEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel >@Sifra
            ORDER BY Sifra_Oddel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM   XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel<@Sifra
            ORDER BY Sifra_Oddel  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Oddel, @SlednoIme=ImeOddel
            FROM  XFOddel WITH(NOLOCK)
            WHERE Sifra_Oddel =@Sifra
                 End
    Else If @Tabela = 'XFVIDBARANJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidBaranje, @SlednoIme=ImeVidBaranje
            FROM XFVidBaranje WITH(NOLOCK)
            WHERE Sifra_VidBaranje >@Sifra
            ORDER BY Sifra_VidBaranje ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_VidBaranje, @SlednoIme=ImeVidBaranje
            FROM   XFVidBaranje WITH(NOLOCK)
            WHERE Sifra_VidBaranje<@Sifra
            ORDER BY Sifra_VidBaranje  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_VidBaranje, @SlednoIme=ImeVidBaranje
            FROM  XFVidBaranje WITH(NOLOCK)
            WHERE Sifra_VidBaranje =@Sifra
    End
    Else If @Tabela = 'XFTIPPREDMET'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet >@Sifra
            ORDER BY Sifra_TipPredmet ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM   XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet < @Sifra
            ORDER BY Sifra_TipPredmet  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_TipPredmet, @SlednoIme=ImeTipPredmet
            FROM  XFTipPredmet WITH(NOLOCK)
            WHERE Sifra_TipPredmet =@Sifra
    End
    Else If @Tabela = 'XFSTATUSPREDMET'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusPredmet, @SlednoIme=ImeStatusPredmet
            FROM XFStatusPredmet WITH(NOLOCK)
            WHERE Sifra_StatusPredmet >@Sifra
            ORDER BY Sifra_StatusPredmet ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusPredmet, @SlednoIme=ImeStatusPredmet
            FROM   XFStatusPredmet WITH(NOLOCK)
            WHERE Sifra_StatusPredmet < @Sifra
            ORDER BY Sifra_StatusPredmet  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_StatusPredmet, @SlednoIme=ImeStatusPredmet
            FROM  XFStatusPredmet WITH(NOLOCK)
            WHERE Sifra_StatusPredmet =@Sifra
    End
    Else If @Tabela = 'XFOBLAST'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast >@Sifra
            ORDER BY Sifra_Oblast ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM   XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast<@Sifra
            ORDER BY Sifra_Oblast  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Oblast, @SlednoIme=ImeOblast
            FROM  XFOblast WITH(NOLOCK)
            WHERE Sifra_Oblast =@Sifra
        End
    Else If @Tabela = 'XFNAPRAVENO'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno >@Sifra
            ORDER BY Sifra_Napraveno ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM   XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno<@Sifra
            ORDER BY Sifra_Napraveno  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Napraveno, @SlednoIme=ImeNapraveno
            FROM  XFNapraveno WITH(NOLOCK)
            WHERE Sifra_Napraveno =@Sifra
        End
    Else If @Tabela = 'XFSTATUSBARANJE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje >@Sifra
            ORDER BY Sifra_StatusBaranje ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM   XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje<@Sifra
            ORDER BY Sifra_StatusBaranje  DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_StatusBaranje, @SlednoIme=ImeStatusBaranje
            FROM  XFStatusBaranje WITH(NOLOCK)
            WHERE Sifra_StatusBaranje =@Sifra
        End
    Else If @Tabela = 'NGSTUDENTS'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM NGStudents WITH(NOLOCK)
            WHERE Sifra_Student >@Sifra
            ORDER BY Sifra_Student ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM  NGStudents WITH(NOLOCK)
            WHERE Sifra_Student<@Sifra
            ORDER BY Sifra_Student DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Student, @SlednoIme=ImeStudent
            FROM NGStudents WITH(NOLOCK)
            WHERE Sifra_Student=@Sifra
       End
    Else If @Tabela = 'DIJAGNOZI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE Sifra_Dijagn>@Sifra
            ORDER BY Sifra_Dijagn ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE Sifra_Dijagn<@Sifra
            ORDER BY Sifra_Dijagn DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Dijagn, @SlednoIme=ImeDijagn
            FROM Dijagnozi WITH(NOLOCK)
            WHERE Sifra_Dijagn=@Sifra
       End
    Else If @Tabela = 'LEKARI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE Sifra_Lekar>@Sifra
            ORDER BY Sifra_Lekar ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE Sifra_Lekar<@Sifra
            ORDER BY Sifra_Lekar DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Lekar, @SlednoIme=ImeLekar
            FROM Lekari WITH(NOLOCK)
            WHERE Sifra_Lekar=@Sifra
       End
    Else If @Tabela = 'FARMACEVT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE Sifra_Farmacevt>@Sifra
            ORDER BY Sifra_Farmacevt ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE Sifra_Farmacevt<@Sifra
            ORDER BY Sifra_Farmacevt DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Farmacevt, @SlednoIme=ImeFarmacevt
            FROM Farmacevt WITH(NOLOCK)
            WHERE Sifra_Farmacevt=@Sifra
       End
    Else If @Tabela = 'APTEKA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE Sifra_Apteka>@Sifra
            ORDER BY Sifra_Apteka ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE Sifra_Apteka<@Sifra
            ORDER BY Sifra_Apteka DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Apteka, @SlednoIme=ImeApteka
            FROM Apteka WITH(NOLOCK)
            WHERE Sifra_Apteka=@Sifra
       End
    Else If @Tabela = 'OSNOVOSIG'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE Sifra_OsnovOsig>@Sifra
            ORDER BY Sifra_OsnovOsig ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE Sifra_OsnovOsig<@Sifra
            ORDER BY Sifra_OsnovOsig DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_OsnovOsig, @SlednoIme=ImeOsnovOsig
            FROM OsnovOsig WITH(NOLOCK)
            WHERE Sifra_OsnovOsig=@Sifra
       End
    Else If @Tabela = 'PODRACNISLUZBI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE Sifra_PodrSluzba>@Sifra
            ORDER BY Sifra_PodrSluzba ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE Sifra_PodrSluzba<@Sifra
            ORDER BY Sifra_PodrSluzba DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_PodrSluzba, @SlednoIme=ImePodrSluzba
            FROM PodracniSluzbi WITH(NOLOCK)
            WHERE Sifra_PodrSluzba=@Sifra
       End
    Else If @Tabela = 'ATCKODOVI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC>@Sifra
            ORDER BY Sifra_ATC ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC<@Sifra
            ORDER BY Sifra_ATC DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_ATC, @SlednoIme=ImeATC
            FROM ATCKodovi WITH(NOLOCK)
            WHERE Sifra_ATC=@Sifra
       End
    Else If @Tabela = 'PACIENTI'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE Cast(EMBG as varchar(20))>@Sifra
            ORDER BY EMBG ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE Cast(EMBG as varchar(20))<@Sifra
            ORDER BY EMBG DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=EMBG, @SlednoIme=ImePacient
            FROM Pacienti WITH(NOLOCK)
            WHERE Cast(EMBG as varchar(20))=@Sifra
       End
        Else If @Tabela = 'OSNGRPODEL'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel>@Sifra
            ORDER BY Sifra_OsnGrPodel ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel<@Sifra
            ORDER BY Sifra_OsnGrPodel DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
            FROM OsnGrPodel WITH(NOLOCK)
            WHERE Sifra_OsnGrPodel=@Sifra
       End
    Else If @Tabela = 'PROEKT'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM Proekt WITH(NOLOCK)
            WHERE Broj_Proekt > @Sifra
            ORDER BY Broj_Proekt ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM  Proekt WITH(NOLOCK)
            WHERE Broj_Proekt < @Sifra
            ORDER BY Broj_Proekt DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Broj_Proekt, @SlednoIme=ImeProekt
            FROM Proekt WITH(NOLOCK)
            WHERE Broj_Proekt = @Sifra
        End


   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_nacinpresmz]'))
drop procedure [dbo].[sp_lkpsleden_nacinpresmz]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_NacinPresmZ]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresmZ WITH(NOLOCK)
        WHERE Sif_NacPresZ>@Sifra
        ORDER BY Sif_NacPresZ ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresmZ WITH(NOLOCK)
        WHERE Sif_NacPresZ<@Sifra
        ORDER BY Sif_NacPresZ DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_NacPresZ, @SlednoIme=Ime_NacPresZ
        FROM NacinPresmZ WITH(NOLOCK)
        WHERE Sif_NacPresZ=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_nacplak]'))
drop procedure [dbo].[sp_lkpsleden_nacplak]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_NacPlak]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE Sifra_Nac>@Sifra
        ORDER BY Sifra_Nac ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE Sifra_Nac<@Sifra
        ORDER BY Sifra_Nac DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Nac, @SlednoIme=ImeNac
        FROM NacPlak WITH(NOLOCK)
        WHERE Sifra_Nac=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ng]'))
drop procedure [dbo].[sp_lkpsleden_ng]

Go

CREATE PROCEDURE sp_lkpSleden_NG
    @Sifra        VARCHAR(20),
    @Tabela        VARCHAR(20),
    @Nacin        VARCHAR(10),
    @AlfaMoze    char(1) = 'N',
        @Sifra2        VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme    VARCHAR(70) OUTPUT,
    @SlednoIme2    VARCHAR(70) = Null OUTPUT,
           @Filter        varchar(20) = NULL

AS

   Declare @Greska Int
   Declare @IntSifra Int
   Set @Tabela=Upper(@Tabela)
   Set @Nacin=Upper(@Nacin)
    If @AlfaMoze <> 'D' AND len(@Sifra)<10 AND @Tabela <> 'GTIPKUP'  AND @Tabela <> 'GRORG' AND @Tabela <> 'SYSUSERS' AND @Tabela <> 'NIVO' AND @Tabela <> 'BANKSMETKI'  AND @Tabela <> 'GRPIZBOR' AND @Tabela <> 'VIDVOZILA'
         AND @Tabela <> 'MIKROLOK' AND @Tabela <> 'MAKROLOK' AND @Tabela <> 'AKCIIPROMO' AND @Tabela <> 'KONFSLAGANJE' AND @Tabela <> 'ANAL'
         and @Tabela <> 'GRPAT' AND @Tabela <> 'VIDDOG' AND @Tabela <> 'TARMODEL' and @Tabela <> 'NGCOURSETYPE' and @Tabela <> 'NGSCHOOLYEAR'
                 and @Tabela <> 'NGBILLCODES' and @Tabela <> 'NGFAMILIJA' and @Tabela <> 'FORMULADEF'
         Set @IntSifra = CONVERT(Int, @Sifra)
    If @Tabela = 'NGBILLCODES'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM NGBillCodes WITH(NOLOCK)
            WHERE Cast(Sifra_BillCode as varchar(20)) >@Sifra
            ORDER BY Sifra_BillCode ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM  NGBillCodes WITH(NOLOCK)
            WHERE  Cast(Sifra_BillCode as varchar(20))<@Sifra
            ORDER BY Sifra_BillCode DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_BillCode, @SlednoIme=ImeBillCode
            FROM NGBillCodes WITH(NOLOCK)
            WHERE  Cast(Sifra_BillCode as varchar(20))=@Sifra
            End
    Else If @Tabela = 'NGFAMILIJA'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM NGFamilija WITH(NOLOCK)
            WHERE Sifra_Famil >@Sifra
            ORDER BY Sifra_Famil ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM  NGFamilija WITH(NOLOCK)
            WHERE Sifra_Famil<@Sifra
            ORDER BY Sifra_Famil DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_Famil, @SlednoIme=ImeFamil
            FROM NGFamilija WITH(NOLOCK)
            WHERE Sifra_Famil=@Sifra
            End
    Else If @Tabela = 'NGCOURSETYPE'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM NGCourseType WITH(NOLOCK)
            WHERE Sifra_CourseType >@Sifra
            ORDER BY Sifra_CourseType ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM  NGCourseType WITH(NOLOCK)
            WHERE Sifra_CourseType<@Sifra
            ORDER BY Sifra_CourseType DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_CourseType, @SlednoIme=ImeCourseType
            FROM NGCourseType WITH(NOLOCK)
            WHERE Sifra_CourseType=@Sifra
            End
    Else If @Tabela = 'NGSCHOOLYEAR'
       Begin
        If @Nacin = 'SLEDEN'
            SELECT Top 1 @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM NGSchoolYear WITH(NOLOCK)
            WHERE Sifra_SchoolYear > @Sifra
            ORDER BY Sifra_SchoolYear ASC
        Else If @Nacin = 'PRETHODEN'
            SELECT Top 1 @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM  NGSchoolYear WITH(NOLOCK)
            WHERE Sifra_SchoolYear < @Sifra
            ORDER BY Sifra_SchoolYear DESC
        Else If @Nacin = 'TOCEN'
            SELECT @SlednaSifra=Sifra_SchoolYear, @SlednoIme=ImeSchoolYear
            FROM NGSchoolYear WITH(NOLOCK)
            WHERE Sifra_SchoolYear = @Sifra
            End

   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_nivo]'))
drop procedure [dbo].[sp_lkpsleden_nivo]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Nivo]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM Nivo WITH(NOLOCK)
        WHERE Sifra_Nivo >@Sifra
        ORDER BY Sifra_Nivo ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM  Nivo WITH(NOLOCK)
        WHERE Sifra_Nivo<@Sifra
        ORDER BY Sifra_Nivo DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Nivo, @SlednoIme=ImeNivo
        FROM Nivo WITH(NOLOCK)
        WHERE Sifra_Nivo=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_nivocenikartkor]'))
drop procedure [dbo].[sp_lkpsleden_nivocenikartkor]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_NivoCeniKartKor]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE Sifra_CeniKartKor>@Sifra
        ORDER BY Sifra_CeniKartKor ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE Sifra_CeniKartKor<@Sifra
        ORDER BY Sifra_CeniKartKor DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_CeniKartKor, @SlednoIme=ImeCeniKartKor
        FROM NivoCeniKartKor WITH(NOLOCK)
        WHERE Sifra_CeniKartKor=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_oblast]'))
drop procedure [dbo].[sp_lkpsleden_oblast]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Oblast]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Sifra_Oblast >@Sifra
        ORDER BY Sifra_Oblast ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Sifra_Oblast<@Sifra
        ORDER BY Sifra_Oblast DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Oblast, @SlednoIme=Ime_Oblast
        FROM Oblast WITH(NOLOCK)
        WHERE Sifra_Oblast=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_operatori]'))
drop procedure [dbo].[sp_lkpsleden_operatori]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Operatori]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Sifra_Oper>@Sifra
        ORDER BY Sifra_Oper ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Sifra_Oper<@Sifra
        ORDER BY Sifra_Oper DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Oper, @SlednoIme=Ime_Oper
        FROM Operatori WITH(NOLOCK)
        WHERE Sifra_Oper=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_opstini]'))
drop procedure [dbo].[sp_lkpsleden_opstini]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Opstini]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Sif_Opstina>@Sifra
        ORDER BY Sif_Opstina ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Sif_Opstina<@Sifra
        ORDER BY Sif_Opstina DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Opstina, @SlednoIme=Ime_Opstina
        FROM Opstini WITH(NOLOCK)
        WHERE Sif_Opstina=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_orged]'))
drop procedure [dbo].[sp_lkpsleden_orged]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Orged]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin=Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE Sifra_OE>@IntSifra
        ORDER BY Sifra_OE ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE Sifra_OE<@IntSifra
        ORDER BY Sifra_OE DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_OE, @SlednoIme=ImeOrg
        FROM Orged WITH(NOLOCK)
        WHERE Sifra_OE=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_osngrpodel]'))
drop procedure [dbo].[sp_lkpsleden_osngrpodel]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_OsnGrPodel]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OsnGrPodel WITH(NOLOCK)
        WHERE Sifra_OsnGrPodel>@Sifra
        ORDER BY Sifra_OsnGrPodel ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OsnGrPodel WITH(NOLOCK)
        WHERE Sifra_OsnGrPodel<@Sifra
        ORDER BY Sifra_OsnGrPodel DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_OsnGrPodel, @SlednoIme=ImeOsnGrPodel
        FROM OsnGrPodel WITH(NOLOCK)
        WHERE Sifra_OsnGrPodel=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_osnpodelbi]'))
drop procedure [dbo].[sp_lkpsleden_osnpodelbi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_OsnPodelbi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Sifra_OsnPodel>@Sifra and Sifra_OsnGrPodel=@Sifra2
        ORDER BY Sifra_OsnPodel ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Sifra_OsnPodel<@Sifra and Sifra_OsnGrPodel=@Sifra2
        ORDER BY Sifra_OsnPodel DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_OsnPodel, @SlednoIme=Vrednost
        FROM OsnPodelbi WITH(NOLOCK)
        WHERE Sifra_OsnPodel=@Sifra and Sifra_OsnGrPodel=@Sifra2

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_osnsred]'))
drop procedure [dbo].[sp_lkpsleden_osnsred]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_OsnSred]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Inv_Broj>@Sifra
        ORDER BY Inv_Broj ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Inv_Broj<@Sifra
        ORDER BY Inv_Broj DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Inv_Broj, @SlednoIme=Ime
        FROM OsnSred WITH(NOLOCK)
        WHERE Inv_Broj=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_patnici]'))
drop procedure [dbo].[sp_lkpsleden_patnici]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Patnici]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE Sifra_Pat>@Sifra
        ORDER BY Sifra_Pat ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE Sifra_Pat<@Sifra
        ORDER BY Sifra_Pat DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Pat, @SlednoIme=ImePat
        FROM Patnici WITH(NOLOCK)
        WHERE Sifra_Pat=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_podgrupi]'))
drop procedure [dbo].[sp_lkpsleden_podgrupi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Podgrupi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Sifra_Podg>@Sifra
        ORDER BY Sifra_Podg ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Sifra_Podg<@Sifra
        ORDER BY Sifra_Podg DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Podg, @SlednoIme=Ime_Podg
        FROM Podgrupi WITH(NOLOCK)
        WHERE Sifra_Podg=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_podgrweb]'))
drop procedure [dbo].[sp_lkpsleden_podgrweb]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_PodgrWeb]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Sifra_PodgrWeb>@Sifra
        ORDER BY Sifra_PodgrWeb ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Sifra_PodgrWeb<@Sifra
        ORDER BY Sifra_PodgrWeb DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_PodgrWeb, @SlednoIme=Ime_PodgrWeb
        FROM PodgrWeb WITH(NOLOCK)
        WHERE Sifra_PodgrWeb=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_podoblast]'))
drop procedure [dbo].[sp_lkpsleden_podoblast]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_PodOblast]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Sifra_PodOblast >@Sifra
        ORDER BY Sifra_PodOblast ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Sifra_PodOblast<@Sifra
        ORDER BY Sifra_PodOblast DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_PodOblast, @SlednoIme=Ime_PodOblast
        FROM PodOblast WITH(NOLOCK)
        WHERE Sifra_PodOblast=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_prevoznik]'))
drop procedure [dbo].[sp_lkpsleden_prevoznik]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Prevoznik]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE Sifra_Prev>@Sifra
        ORDER BY Sifra_Prev ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE Sifra_Prev<@Sifra
        ORDER BY Sifra_Prev DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Prev, @SlednoIme=ImePrev
        FROM Prevoznik WITH(NOLOCK)
        WHERE Sifra_Prev=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_primateli]'))
drop procedure [dbo].[sp_lkpsleden_primateli]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Primateli]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Sif_Primatel>@Sifra
        ORDER BY Sif_Primatel ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Sif_Primatel<@Sifra
        ORDER BY Sif_Primatel DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Primatel, @SlednoIme=Ime_Primatel
        FROM Primateli WITH(NOLOCK)
        WHERE Sif_Primatel=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_prodmest]'))
drop procedure [dbo].[sp_lkpsleden_prodmest]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_ProdMest]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM ProdMest WITH(NOLOCK)
        WHERE Sifra_Mest >@Sifra
        ORDER BY Sifra_Mest ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM  ProdMest WITH(NOLOCK)
        WHERE Sifra_Mest<@Sifra
        ORDER BY Sifra_Mest DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Mest, @SlednoIme=Opis
        FROM ProdMest WITH(NOLOCK)
        WHERE Sifra_Mest=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_programi]'))
drop procedure [dbo].[sp_lkpsleden_programi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Programi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Sif_Progr>@Sifra
        ORDER BY Sif_Progr ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Sif_Progr<@Sifra
        ORDER BY Sif_Progr DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Progr, @SlednoIme=Ime_Progr
        FROM Programi WITH(NOLOCK)
        WHERE Sif_Progr=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_promocgrupna]'))
drop procedure [dbo].[sp_lkpsleden_promocgrupna]

Go

create PROCEDURE [dbo].[sp_lkpSleden_PromocGrupna]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam > @Sifra and PodTipParam = 'GLAVA' and cParam2 = 'GRUPNA'
        ORDER BY KodParam ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam < @Sifra  and PodTipParam = 'GLAVA'  and cParam2 = 'GRUPNA'
        ORDER BY KodParam DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam = @Sifra  and PodTipParam = 'GLAVA'  and cParam2 = 'GRUPNA'

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_promocii]'))
drop procedure [dbo].[sp_lkpsleden_promocii]

Go

create PROCEDURE [dbo].[sp_lkpSleden_Promocii]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam > @Sifra and PodTipParam = 'GLAVA'
        ORDER BY KodParam ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam < @Sifra  and PodTipParam = 'GLAVA'
        ORDER BY KodParam DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra = KodParam, @SlednoIme = cParam3
        FROM ApKonfigCel WITH(NOLOCK)
        WHERE KodParam = @Sifra  and PodTipParam = 'GLAVA'

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_rabotnik]'))
drop procedure [dbo].[sp_lkpsleden_rabotnik]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Rabotnik]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE Sifra_Rab>@Sifra
        ORDER BY Sifra_Rab ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE Sifra_Rab<@Sifra
        ORDER BY Sifra_Rab DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Rab, @SlednoIme=ImeRab
        FROM Rabotnik WITH(NOLOCK)
        WHERE Sifra_Rab=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_rekapitular]'))
drop procedure [dbo].[sp_lkpsleden_rekapitular]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Rekapitular]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Broj_rek, @SlednoIme=''
        FROM Rekapitular WITH(NOLOCK)
        WHERE Broj_rek>@Sifra
        ORDER BY Broj_rek  ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Broj_rek, @SlednoIme=''
        FROM Rekapitular WITH(NOLOCK)
        WHERE Broj_rek<@Sifra
        ORDER BY Broj_rek DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Broj_rek, @SlednoIme=''
        FROM Rekapitular WITH(NOLOCK)
        WHERE Broj_rek=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_relacispor]'))
drop procedure [dbo].[sp_lkpsleden_relacispor]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_RelacIspor]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Sifra_RelIspor>@Sifra
        ORDER BY Sifra_RelIspor ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Sifra_RelIspor<@Sifra
        ORDER BY Sifra_RelIspor DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_RelIspor, @SlednoIme=Ime_RelIspor
        FROM RelacIspor WITH(NOLOCK)
        WHERE Sifra_RelIspor=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_rkasgrupaoperac]'))
drop procedure [dbo].[sp_lkpsleden_rkasgrupaoperac]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_RKASGRUPAOPERAC]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac >@Sifra
        ORDER BY Sifra_GrOperac ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM  RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac<@Sifra
        ORDER BY Sifra_GrOperac DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_GrOperac, @SlednoIme=ImeGrupaOperac
        FROM RKASGRUPAOPERAC WITH(NOLOCK)
        WHERE Sifra_GrOperac=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_sint]'))
drop procedure [dbo].[sp_lkpsleden_sint]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Sint]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE Kto_Sint>@Sifra
        ORDER BY Kto_Sint ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE Kto_Sint<@Sifra
        ORDER BY Kto_Sint DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Kto_Sint, @SlednoIme=ImeSint
        FROM Sint WITH(NOLOCK)
        WHERE Kto_Sint=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_smeni]'))
drop procedure [dbo].[sp_lkpsleden_smeni]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Smeni]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Sifra_Smena>@Sifra
        ORDER BY Sifra_Smena ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Sifra_Smena<@Sifra
        ORDER BY Sifra_Smena DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Smena, @SlednoIme=Ime_Smena
        FROM Smeni WITH(NOLOCK)
        WHERE Sifra_Smena=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_spremac]'))
drop procedure [dbo].[sp_lkpsleden_spremac]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Spremac]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM Spremac WITH(NOLOCK)
        WHERE Sif_Spremac >@Sifra
        ORDER BY Sif_Spremac ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM Spremac WITH(NOLOCK)
        WHERE Sif_Spremac<@Sifra
        ORDER BY Sif_Spremac DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Spremac, @SlednoIme=ImeSpremac
        FROM Spremac WITH(NOLOCK)
        WHERE Sif_Spremac=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_sysusers]'))
drop procedure [dbo].[sp_lkpsleden_sysusers]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_SysUsers]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'TOCEN'
        SELECT    @SlednaSifra=Name, @SlednoIme=UID
        FROM    SysUsers
        WHERE    Name=@Sifra AND IsSqlRole=1

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tarifi]'))
drop procedure [dbo].[sp_lkpsleden_tarifi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Tarifi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin=Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE Sifra_Tar>@Sifra
        ORDER BY Sifra_Tar ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE Sifra_Tar<@Sifra
        ORDER BY Sifra_Tar DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Tar, @SlednoIme=ImeTar
        FROM Tarifi WITH(NOLOCK)
        WHERE Sifra_Tar=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tarmodel]'))
drop procedure [dbo].[sp_lkpsleden_tarmodel]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TarModel]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel >@Sifra
        ORDER BY Sifra_TarModel ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM  TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel<@Sifra
        ORDER BY Sifra_TarModel DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TarModel, @SlednoIme=Ime_TarModel
        FROM TarModel WITH(NOLOCK)
        WHERE Sifra_TarModel=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipaktivnosti]'))
drop procedure [dbo].[sp_lkpsleden_tipaktivnosti]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipAktivnosti]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Tip_Akt >@Sifra
        ORDER BY Tip_Akt ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Tip_Akt<@Sifra
        ORDER BY Tip_Akt DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Tip_Akt, @SlednoIme=Ime_Akt
        FROM TipAktivnosti WITH(NOLOCK)
        WHERE Tip_Akt=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipartzal]'))
drop procedure [dbo].[sp_lkpsleden_tipartzal]

Go

create PROCEDURE [dbo].[sp_lkpSleden_TipArtZal]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Sifra_TipArtZal >@Sifra
        ORDER BY Sifra_TipArtZal ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Sifra_TipArtZal<@Sifra
        ORDER BY Sifra_TipArtZal DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TipArtZal, @SlednoIme=Ime_TipArtZal
        FROM TipArtZal WITH(NOLOCK)
        WHERE Sifra_TipArtZal=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipdok]'))
drop procedure [dbo].[sp_lkpsleden_tipdok]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipDok]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE Sifra_Dok>@IntSifra
        ORDER BY Sifra_Dok ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE Sifra_Dok<@IntSifra
        ORDER BY Sifra_Dok DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Dok, @SlednoIme=ImeDok
        FROM TipDok WITH(NOLOCK)
        WHERE Sifra_Dok=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipkartkor]'))
drop procedure [dbo].[sp_lkpsleden_tipkartkor]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipKartKor]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE Sifra_TipKartKor>@Sifra
        ORDER BY Sifra_TipKartKor ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE Sifra_TipKartKor<@Sifra
        ORDER BY Sifra_TipKartKor DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TipKartKor, @SlednoIme=ImeKartKor
        FROM TipKartKor WITH(NOLOCK)
        WHERE Sifra_TipKartKor=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipkatpakuv]'))
drop procedure [dbo].[sp_lkpsleden_tipkatpakuv]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipKatPakuv]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM TipKatPakuv WITH(NOLOCK)
        WHERE Sifra_KatPak >@Sifra
        ORDER BY Sifra_KatPak ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM  TipKatPakuv WITH(NOLOCK)
        WHERE Sifra_KatPak<@Sifra
        ORDER BY Sifra_KatPak DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_KatPak, @SlednoIme=ImeKatPak
        FROM TipKatPakuv WITH(NOLOCK)
        WHERE Sifra_KatPak=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipkomint]'))
drop procedure [dbo].[sp_lkpsleden_tipkomint]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipKomint]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE Sifra_Tip>@Sifra
        ORDER BY Sifra_Tip ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE Sifra_Tip<@Sifra
        ORDER BY Sifra_Tip DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Tip, @SlednoIme=ImeTip
        FROM TipKomint WITH(NOLOCK)
        WHERE Sifra_Tip=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipnal]'))
drop procedure [dbo].[sp_lkpsleden_tipnal]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipNal]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE Sifra_Nal>@IntSifra
        ORDER BY Sifra_Nal ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE Sifra_Nal<@IntSifra
        ORDER BY Sifra_Nal DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Nal, @SlednoIme=ImeNal
        FROM TipNal WITH(NOLOCK)
        WHERE Sifra_Nal=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tipnarac]'))
drop procedure [dbo].[sp_lkpsleden_tipnarac]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipNarac]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE Sifra_Nar>@IntSifra
        ORDER BY Sifra_Nar ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE Sifra_Nar<@IntSifra
        ORDER BY Sifra_Nar DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Nar, @SlednoIme=ImeNar
        FROM TipNarac WITH(NOLOCK)
        WHERE Sifra_Nar=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_tippercenovnik]'))
drop procedure [dbo].[sp_lkpsleden_tippercenovnik]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TipPerCenovnik]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE Sifra_TipC>@IntSifra
        ORDER BY Sifra_TipC ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE Sifra_TipC<@IntSifra
        ORDER BY Sifra_TipC DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TipC, @SlednoIme=ImeTipC
        FROM TipPerCenovnik WITH(NOLOCK)
        WHERE Sifra_TipC=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_trosok4tip]'))
drop procedure [dbo].[sp_lkpsleden_trosok4tip]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TROSOK4TIP]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Sifra_4Tros>@Sifra
        ORDER BY Sifra_4Tros ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Sifra_4Tros<@Sifra
        ORDER BY Sifra_4Tros DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_4Tros, @SlednoIme=Ime4Tros
        FROM TROSOK4TIP WITH(NOLOCK)
        WHERE Sifra_4Tros=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_trosokmesto]'))
drop procedure [dbo].[sp_lkpsleden_trosokmesto]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TROSOKMESTO]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE Sifra_TrosM>@Sifra
        ORDER BY Sifra_TrosM ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE Sifra_TrosM<@Sifra
        ORDER BY Sifra_TrosM DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TrosM, @SlednoIme=ImeTrosM
        FROM TROSOKMESTO WITH(NOLOCK)
        WHERE Sifra_TrosM=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_trosokvid]'))
drop procedure [dbo].[sp_lkpsleden_trosokvid]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_TROSOKVID]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE Sifra_TrosV>@Sifra
        ORDER BY Sifra_TrosV ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE Sifra_TrosV<@Sifra
        ORDER BY Sifra_TrosV DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_TrosV, @SlednoIme=ImeTrosV
        FROM TROSOKVID WITH(NOLOCK)
        WHERE Sifra_TrosV=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_ucesdenovi]'))
drop procedure [dbo].[sp_lkpsleden_ucesdenovi]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_UcesDenovi]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Declare @IntSifra Int

    Set @Nacin = Upper(@Nacin)
    Set @IntSifra = CONVERT(Int, @Sifra)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Denovi>@IntSifra
        ORDER BY Denovi ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Denovi<@IntSifra
        ORDER BY Denovi DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Denovi, @SlednoIme=Uces
        FROM UcesDenovi WITH(NOLOCK)
        WHERE Denovi=@IntSifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_velicina]'))
drop procedure [dbo].[sp_lkpsleden_velicina]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Velicina]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE Sifra_Velic >@Sifra
        ORDER BY Sifra_Velic ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE Sifra_Velic<@Sifra
        ORDER BY Sifra_Velic DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Velic, @SlednoIme=ImeVelic
        FROM Velicina WITH(NOLOCK)
        WHERE Sifra_Velic=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_velicskala]'))
drop procedure [dbo].[sp_lkpsleden_velicskala]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VelicSkala]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Sifra_VelSkala >@Sifra
        ORDER BY Sifra_VelSkala ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Sifra_VelSkala<@Sifra
        ORDER BY Sifra_VelSkala DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_VelSkala, @SlednoIme=Ime_VelSkala
        FROM VelicSkala WITH(NOLOCK)
        WHERE Sifra_VelSkala=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_verntraenje]'))
drop procedure [dbo].[sp_lkpsleden_verntraenje]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VernTraenje]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost >@Sifra
        ORDER BY Sifra_Vernost ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM  VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost<@Sifra
        ORDER BY Sifra_Vernost DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Vernost, @SlednoIme=Ime_Vernost
        FROM VernTraenje WITH(NOLOCK)
        WHERE Sifra_Vernost=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_viddog]'))
drop procedure [dbo].[sp_lkpsleden_viddog]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VidDog]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog >@Sifra
        ORDER BY Sifra_VidDog ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM  VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog<@Sifra
        ORDER BY Sifra_VidDog DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_VidDog, @SlednoIme=Ime_VidDog
        FROM VidDog WITH(NOLOCK)
        WHERE Sifra_VidDog=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_vidprodobj]'))
drop procedure [dbo].[sp_lkpsleden_vidprodobj]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VidProdObj]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Sifra_VPJ>@Sifra
        ORDER BY Sifra_VPJ ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Sifra_VPJ<@Sifra
        ORDER BY Sifra_VPJ DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_VPJ, @SlednoIme=Ime_VPJ
        FROM VidProdObj WITH(NOLOCK)
        WHERE Sifra_VPJ=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_vidvozila]'))
drop procedure [dbo].[sp_lkpsleden_vidvozila]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VidVozila]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Sifra_Vid_Voz>@Sifra
        ORDER BY Sifra_Vid_Voz ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Sifra_Vid_Voz<@Sifra
        ORDER BY Sifra_Vid_Voz DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sifra_Vid_Voz, @SlednoIme=Ime_Vid_Voz
        FROM VidVozila WITH(NOLOCK)
        WHERE Sifra_Vid_Voz=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_vozizjava]'))
drop procedure [dbo].[sp_lkpsleden_vozizjava]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_VozIzjava]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Broj_Izjava
        FROM VozIzjava WITH(NOLOCK)
        WHERE Broj_Izjava>@Sifra
        ORDER BY Broj_Izjava ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Broj_Izjava
        FROM VozIzjava WITH(NOLOCK)
        WHERE Broj_Izjava<@Sifra
        ORDER BY Broj_Izjava DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Broj_Izjava
        FROM VozIzjava WITH(NOLOCK)
        WHERE Broj_Izjava=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_whmlokacija]'))
drop procedure [dbo].[sp_lkpsleden_whmlokacija]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_WhmLokacija]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_ID >@Sifra
        ORDER BY Lokac_Id ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Lokac_Id, @SlednoIme=lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Id<@Sifra
        ORDER BY Lokac_Id DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Lokac_Id, @SlednoIme=Lokac_Ime
        FROM WhmLokacija WITH(NOLOCK)
        WHERE Lokac_Id=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_zadrski]'))
drop procedure [dbo].[sp_lkpsleden_zadrski]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Zadrski]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Sif_Zadr>@Sifra
        ORDER BY Sif_Zadr ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Sif_Zadr<@Sifra
        ORDER BY Sif_Zadr DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Zadr, @SlednoIme=Ime_Zadr
        FROM Zadrski WITH(NOLOCK)
        WHERE Sif_Zadr=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpsleden_zarab]'))
drop procedure [dbo].[sp_lkpsleden_zarab]

Go

CREATE PROCEDURE [dbo].[sp_lkpSleden_Zarab]

    @Sifra            VARCHAR(20),
    @Tabela            VARCHAR(20),
    @Nacin            VARCHAR(10),
    @AlfaMoze        char(1) = 'N',
    @Sifra2            VARCHAR(20)=null,
    @SlednaSifra    VARCHAR(20) OUTPUT,
    @SlednoIme        nVARCHAR(70) OUTPUT,
    @SlednoIme2        nVARCHAR(70) = Null OUTPUT,
    @Filter            nvarchar(20) = NULL

AS

    Set @Nacin = Upper(@Nacin)

    If @Nacin = 'SLEDEN'
        SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Sif_Zarab>@Sifra
        ORDER BY Sif_Zarab ASC
    Else If @Nacin = 'PRETHODEN'
        SELECT Top 1 @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Sif_Zarab<@Sifra
        ORDER BY Sif_Zarab DESC
    Else If @Nacin = 'TOCEN'
        SELECT @SlednaSifra=Sif_Zarab, @SlednoIme=Ime_Zarab
        FROM Zarab WITH(NOLOCK)
        WHERE Sif_Zarab=@Sifra

    IF @@ERROR=0 AND @@ROWCOUNT=0
        RETURN 77000
    ELSE
        RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lkpstipkarakt]'))
drop procedure [dbo].[sp_lkpstipkarakt]

Go


CREATE    PROCEDURE sp_lkpSTipKarakt
    @Sifra_7     SMALLINT
AS
    SELECT Sifra_Karakt FROM TipKarakt
    WHERE Sifra_7 = @Sifra_7
    ORDER BY Sifra_Karakt
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lot_art_od_somag]'))
drop procedure [dbo].[sp_lot_art_od_somag]

Go

CREATE  PROCEDURE sp_lot_art_od_somag
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar (20),
        @PickLokSamo    char(1)    = Null,
    @SostOpc    char(1) = 'S'
AS
Declare @NomKomerc  varchar(50)
select @NomKomerc = Nom_Pakuv
from KatPakuv
where Sifra_Art = @Sifra_Art and Sifra_KatPak = 2
if @NomKomerc is not null
   if @PickLokSamo = 'D'
     Select distinct Sifra_Art, LotBr, RokRed from SoMag
     where Sifra_Oe = @Sifra_Oe
           And Sifra_Art in (select Sifra_Art from KatPakuv where Sifra_KatPak = 2 And Nom_Pakuv = @NomKomerc)
           And cast (Lokacija as smallint) <= 50
           And Sostojba > 0
     Order By RokRed DESC
   else
     Select distinct Sifra_Art, LotBr, RokRed from SoMag
     where Sifra_Oe = @Sifra_Oe
           And Sifra_Art in (select Sifra_Art from KatPakuv where Sifra_KatPak = 2 And Nom_Pakuv = @NomKomerc)
     Order By RokRed DESC
else
   if @PickLokSamo = 'D'
     Select distinct Sifra_Art, LotBr, RokRed from SoMag
     where Sifra_Oe = @Sifra_Oe
         And Sifra_Art = @Sifra_Art
         And cast (Lokacija as smallint) <= 50
           And Sostojba > 0
     Order By RokRed DESC
   else
     Select distinct Sifra_Art, LotBr, RokRed from SoMag
     where Sifra_Oe = @Sifra_Oe
         And Sifra_Art = @Sifra_Art
     Order By RokRed DESC




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_lot_art_od_whmsost]'))
drop procedure [dbo].[sp_lot_art_od_whmsost]

Go


CREATE    PROCEDURE sp_lot_art_od_WhmSost
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar (20),
        @PickLokSamo    char(1)    = Null,
    @SostOpc    char(1) = 'S'
AS

     Select distinct Sifra_Art, LotBr, RokRed
     from WhmSost
     where Sifra_Oe = @Sifra_Oe And Sifra_Art = @Sifra_Art
           And Sostojba > 0
     Order By RokRed




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_maglistazbirnopoart]'))
drop procedure [dbo].[sp_maglistazbirnopoart]

Go



CREATE    PROCEDURE sp_MagListaZbirnoPoArt
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    varchar(1000)
AS
Declare     @DokrID        varchar(1000)
Declare @SSQL varchar(2000)
CREATE TABLE #TmpDokrID
(DokrID    int)
SET @SSQL = 'SELECT DokrID FROM Dokr WHERE Sifra_OE=' +cast(@Sifra_OE as varchar(5))+'
 AND Sifra_Dok=' +cast(@Sifra_Dok as varchar(5))+ ' AND Broj_Dok IN ('+@Broj_Dok +')'
INSERT INTO #TmpDokrID EXEC (@SSQL)
SELECT P.Sifra_Art, A.ImeArt, A.EdMera, A.ImaKomerc, A.Lokacija,
A.Sifra_Tar, S.POsn, CASE WHEN S.DanCena='D' THEN S.Cena ELSE Round(S.Cena*(1+S.POsn/100),4) END as Cena,   -- Round(S.NNabCena*(1+S.POsn/100),4 ) Cena, bese do 11.06.08
SUM(P.Kolic) Kolicina, SUM(P.Paketi) Paketi FROM MagStavr P
INNER JOIN KatArt A ON A.Sifra_Art=P.Sifra_Art
LEFT OUTER JOIN SoArt S ON S.Sifra_Art=P.Sifra_Art AND S.Sifra_OE= @Sifra_OE
WHERE P.DokrID IN (SELECT DokrID FROM #TmpDokrID)
GROUP BY P.Sifra_Art, A.ImeArt, A.EdMera, A.ImaKomerc, A.Lokacija, A.Sifra_Tar, S.Cena, S.DanCena, S.POsn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mark_0_pec_dok]'))
drop procedure [dbo].[sp_mark_0_pec_dok]

Go


CREATE     PROCEDURE sp_Mark_0_Pec_Dok
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int

AS

    update dokr
    set Pec_Dok = null
    Where Sifra_Oe = @Sifra_oe and Sifra_Dok = @Sifra_Dok and Broj_Dok = @Broj_Dok





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mark_dokrlikvid]'))
drop procedure [dbo].[sp_mark_dokrlikvid]

Go





CREATE     PROCEDURE sp_Mark_DokrLikvid
    @Sifra_Oe    smallint,
    @Sifra_dok    smallint,
    @Broj_Dok    int,
    @DaliLikvid    char(1)
AS
    Update Dokr Set Likvid = @DaliLikvid
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mark_odjaven]'))
drop procedure [dbo].[sp_mark_odjaven]

Go


CREATE PROCEDURE sp_Mark_Odjaven

    @ListaDokrId varchar(7000)

AS

    Declare @SSQL varchar(7500)

    set @SSQL = '
        Update Dokr
        set Spck_Stat = ''F''
        where dokrid in (' + @ListaDokrId + ') '

    exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mark_scanlista]'))
drop procedure [dbo].[sp_mark_scanlista]

Go

CREATE  PROCEDURE sp_Mark_ScanLista
    @Sifra_OE    smallint,
    @Tip_Lista    smallint,
    @Broj_Lista    int,
    @DokrId        int
AS
    update ScanLista
    set DokrId = @DokrId
    WHERE Sifra_OE=@Sifra_OE AND Tip_Lista=@Tip_Lista AND Broj_Lista=@Broj_Lista




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mark_storniran]'))
drop procedure [dbo].[sp_mark_storniran]

Go

CREATE PROCEDURE [dbo].[sp_Mark_Storniran]
    @DokrId int

AS

    Declare @SSQL varchar(7500)

    Update Dokr
    set Spck_Stat = 'S'
    where dokrid = @DokrId






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_markblokirani]'))
drop procedure [dbo].[sp_markblokirani]

Go


CREATE     PROCEDURE sp_MarkBlokirani
    @KoiOE    varchar(800),
    @KoiTipDok    varchar(100),
    @Datum_Do    smalldatetime,
    @Sifra_Kup    char(6) = NULL,
    @Sifra_Obj    smallint = NULL,
    @Sifra_Pat    smallint = NULL,
    @IskluciMes    char(1) = 'N'
AS
    Declare @SSQL    varchar(4000)
    SET @SSQL = 'UPDATE Dokr SET Blokiran = ''T'' WHERE Sifra_OE IN (' + @KoiOE +
    ') AND Sifra_Dok IN (' + @KoiTipDok + ') AND Datum_Dok <= ''' +
    Cast(@Datum_Do as varchar(35)) + ''' AND (Blokiran <> ''D''  OR Blokiran IS NULL) '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup = ' + @Sifra_Kup
    IF @Sifra_Obj IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6))
    IF @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE= ' + Cast(@Sifra_Pat as varchar(6))
    IF @IskluciMes = 'D'
        SET @SSQL = @SSQL + ' AND Sifra_Kup NOT IN (SELECT Sifra_Kup FROM Komint WHERE KDrugo5 IS NULL OR KDrugo5 <> 1)'
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_material_export]'))
drop procedure [dbo].[sp_material_export]

Go



CREATE    PROCEDURE sp_Material_Export
    @Sifra_Oe smallint,
    @Datum_Dok smalldatetime
AS
    IF EXISTS ( SELECT * FROM tempdb..sysobjects WHERE name='##TmpMaterExp') DROP TABLE ##TmpMaterExp
    CREATE TABLE ##TmpMaterExp
    (
        Sifra_Art CHAR(18),
        PlivaMaterial CHAR(18) NULL,
        EdMera CHAR(3),
        ImeArt CHAR(40),
        MaterialType CHAR(4),
        StandardPrice CHAR(11) NULL,
        CurrencyKey CHAR(3) NULL
    )

    CREATE TABLE #TmpNabVred
    (Sifra_Art    varchar(20),
     NabVrednost    decimal(18,2),
     NabKolic    decimal(18,2))

    INSERT INTO #TmpNabVred (Sifra_Art, NabVrednost, NabKolic)
    SELECT Sifra_Art, Round(Sum(Case VlIzl When 'V' Then Kolic*NabCena Else -1*Kolic*NabCena End),2), Sum(Case VlIzl When 'V' Then Kolic Else -1*Kolic End)
    From Stavr
    Where Sifra_Oe=101 And Datum_Dok<=@Datum_Dok
    Group By Sifra_Art
    Having  Sum(Case VlIzl When 'V' Then Kolic Else -1*Kolic End) > 0

    INSERT INTO #TmpNabVred (Sifra_Art, NabVrednost, NabKolic)
    Select Sifra_Art, Sum(Case When VlIzl='V' Then Iznos_Razl Else -1*Iznos_Razl End), 0
    From RazlFin
    Where Sifra_Oe=101 And Datum_Dok<=@Datum_Dok
    Group By Sifra_Art

    Create Table #TmpPom
    (Sifra_Art    varchar(20),
     NabVrednost    decimal(18,2),
     NabKolic    decimal(18,2))

    Insert Into #TmpPom
    Select Sifra_Art, Sum(NabVrednost), Sum(NabKolic)
    From #TmpNabVred
    Group By Sifra_Art


    CREATE TABLE #TmpNabC
    (Sifra_Art    varchar(20),
     NabCena    decimal(9,2))

    INSERT INTO #TmpNabC (Sifra_Art, NabCena)
    SELECT Sifra_Art, Round(Sum(Case When NabKolic > 0 Then NabVrednost/NabKolic Else 0 End),4)
    From #TmpPom
    Group By Sifra_Art

--UPDATE ##TmpMaterExp set StandardPrice = C.NabCena FROM #TmpNabC C WHERE ##TmpMaterExp.Sifra_Art = C.Sifra_Art
    INSERT INTO ##TmpMaterExp
    SELECT K.Sifra_Art, K.Sifra_Art, 'PC', K.ImeArt, 'FERT', T.NabCena, NULL
    FROM KatArt K LEFT OUTER JOIN #TmpNabC T ON K.Sifra_Art=T.Sifra_Art  WHERE K.Aktiven='D'
-- SELECT Sifra_Art, ImeArt, CAST(CAST(ROUND(Nabavna,2) AS DECIMAL(9,2))AS CHAR(11)) from Katart Where Aktiven='D' Order By Nabavna DESC


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_materijalno_finansovo]'))
drop procedure [dbo].[sp_materijalno_finansovo]

Go



CREATE     PROCEDURE sp_Materijalno_Finansovo
    @Kto            varchar(300) = Null,
    @Datum_Nal_Od    smalldatetime = Null,
    @Datum_Nal_Do    smalldatetime = Null,
    @SamoOdOrged    char(1) = Null,
    @Sifra_Oe        smallint = Null,
    @Koi_Oe        varchar(10) = Null,
    @PoKojaCena        char(1) = 'D',       -- N - NabCena,  M - MagCena,    D - (Mag.cena na Vlez, Prodazna na Izlez)
    @CenaSoDanok    char(1) = 'N',
    @Sifra_Nal        smallint = Null,
    @PoMeseci        char(1) = Null,
    @BezBrNal        char(1) = Null,
    @Datum_DokOd    smalldatetime = Null,       -- se odnesuva na dokumenti bez broj na nalog (period od\do)
    @Datum_DokDo    smalldatetime = Null,       -- se odnesuva na dokumenti bez broj na nalog (period od\do)
    @PrikRazlCeni        char(1) = 'N'
AS
    Declare @SSQL as varchar(4000)
    Declare @SSQLUslMat as varchar(4000)
    Declare @SSQLUslFin as varchar(4000)

    Set @SSQLUslMat = ' '
    Set @SSQLUslFin = ' '


    Create Table #Tab
    (
        Sifra_Nal    smallint,
        Broj_Nal    int,
        Datum_Nal    smalldatetime,
        MatDolzi    decimal(18,6),
        MatPobaruva    decimal(18,6),
        GkDolzi        decimal(18,6),
        GkPobaruva    decimal(18,6),
        Rabat        decimal(18,6)
    )

        ---------------------------------------------------------------------
        Set @SSQL = @SSQL + ' (Case When TD.ImaDanok = ''N'' And S.DanMagCena = ''D'' And S.Posn = 0
                        Then
                            (Case When T.ProcOsn < 15 Then DS.Stapka2 Else DS.Stapka1 End)
                        Else
                            S.Posn
                        End) Posn '
        -- ova do ovde ne znam zossto e staveno zatoa ssto vo nikoj slucaj ne se izvrssuvat


        Set @SSQL = ' Select D.Sifra_Nal, D.Broj_Nal, '
        If @PoMeseci = 'D'
            Set @SSQL = @SSQL + ' N.Datum_Nal, '
        Else
            Set @SSQL = @SSQL + ' N.Datum_Nal, '
        If @PoKojaCena = 'N'
        Begin
            Set @SSQL=@SSQL + ' Sum(Case D.VlIzl When ''V'' Then (S.Kolic* dbo.fn_VratiCena(S.NabCena, S.Posn, ''N'', ''' + @CenaSoDanok + ''' )) Else 0 End),
                        Sum(Case D.VlIzl When ''I'' Then (S.Kolic* dbo.fn_VratiCena(S.NabCena, S.Posn, ''N'', ''' + @CenaSoDanok + ''')) Else 0 End), '
        End
        Else If @PoKojaCena = 'M'
        Begin
            Set @SSQL=@SSQL + ' Sum(Case D.VlIzl When ''V'' Then (S.Kolic* dbo.fn_VratiCena(S.MagCena,
                                        (Case When TD.ImaDanok = ''N'' And S.DanMagCena = ''D'' And S.Posn = 0
                                         Then (Case When T.ProcOsn < 15 Then DS.Stapka2 Else DS.Stapka1 End) Else S.Posn End),
                                        S.DanMagCena, ''' + @CenaSoDanok + ''')) Else 0 End),
                        Sum(Case D.VlIzl When ''I'' Then (S.Kolic* dbo.fn_VratiCena(S.MagCena,
                                        (Case When TD.ImaDanok = ''N'' And S.DanMagCena = ''D'' And S.Posn = 0
                                         Then (Case When T.ProcOsn < 15 Then DS.Stapka2 Else DS.Stapka1 End) Else S.Posn End),
                                        S.DanMagCena, ''' + @CenaSoDanok + ''')) Else 0 End), '
        End
        Else If @PoKojaCena = 'D'
        Begin
            Set @SSQL=@SSQL + ' Sum(Case D.VlIzl When ''V'' Then (S.Kolic* dbo.fn_VratiCena(S.MagCena, S.Posn, S.DanMagCena, ''' + @CenaSoDanok + ''')) Else 0 End),
                        Sum(Case D.VlIzl When ''I'' Then (S.Kolic* dbo.fn_VratiCena(S.DokCena, S.Posn, S.DanDokCena, ''' + @CenaSoDanok + ''')) Else 0 End), '
        End
        Set @SSQL = @SSQL + ' Sum(dbo.fn_VratiRabatBezDDV(S.Kolic, S.DokCena, S.DanDokCena, S.Posn, S.Uces)) as Rabat '
        Set @SSQL = @SSQL + ' From Dokr D
                    Inner Join Stavr S On S.DokrID=D.DokrID
                    Left Outer Join Nalozi N On N.Sifra_Nal = D.Sifra_Nal and N.Broj_Nal = D.Broj_Nal
                    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                    INNER JOIN Katart K ON K.Sifra_Art=S.Sifra_Art
                    Inner Join Tarifi T On T.Sifra_Tar = K.Sifra_Tar
                    Left Outer Join DDVStapki DS On S.Datum_Dok >= DS.Datum_Od And S.Datum_Dok <= DS.Datum_Do
                    Where 1=1 '

    If @Sifra_Nal Is Not Null
        Set @SSQLUslMat = @SSQLUslMat + ' And D.Sifra_Nal = ''' + Cast(@Sifra_Nal as varchar(10)) + ''' '
    If @Datum_Nal_Od Is Not Null
    Begin
        If @BezBrNal <> 'D' Or @BezBrNal Is Null
            Set @SSQLUslMat = @SSQLUslMat + ' And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od as varchar(30)) + ''' '
        Else
            Set @SSQLUslMat = @SSQLUslMat + ' And (N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od as varchar(30)) + ''' Or Datum_Nal Is Null)'
    End
    If @Datum_Nal_Do Is Not Null
    Begin
        If @BezBrNal <> 'D' Or @BezBrNal Is Null
            Set @SSQLUslMat = @SSQLUslMat + ' And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do as varchar(30)) + ''' '
        Else
            Set @SSQLUslMat = @SSQLUslMat + ' And (N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do as varchar(30)) + ''' Or Datum_Nal Is Null)'
    End
    If @BezBrNal = 'D' and @Datum_DokOd Is Not Null
        Set @SSQLUslMat = @SSQLUslMat + ' And D.Datum_Dok >= ''' + Cast(@Datum_DokOd as varchar(30)) + ''' '
    If @BezBrNal = 'D' and @Datum_DokDo Is Not Null
        Set @SSQLUslMat = @SSQLUslMat + ' And D.Datum_Dok <= ''' + Cast(@Datum_DokDo as varchar(30)) + ''' '
/*    If @BezBrNal<>'D'  -- koga se bara izvestaj za onie stavki bez broj na nalog se isklucuvaat datumite
    Begin
        If @Datum_Nal_Od Is Not Null
            Set @SSQL = @SSQL + ' And N.Datum_Nal >= ''' + Cast(@Datum_Nal_Od as varchar(30)) + ''' '
        If @Datum_Nal_Do Is Not Null
            Set @SSQL = @SSQL + ' And N.Datum_Nal <= ''' + Cast(@Datum_Nal_Do as varchar(30)) + ''' '
    End
*/    If @Sifra_Oe Is Not Null
        Set @SSQLUslMat = @SSQLUslMat + ' And D.Sifra_Oe = ''' + Cast(@Sifra_Oe as varchar(10)) + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQLUslMat = @SSQLUslMat + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '

    Set @SSQL = @SSQL + @SSQLUslMat

    If @PoMeseci = 'D'
        Set @SSQL = @SSQL + ' Group By D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal '
    Else
        Set @SSQL = @SSQL + ' Group By D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal '
    Insert Into #Tab(Sifra_Nal, Broj_Nal, Datum_Nal, MatDolzi, MatPobaruva, Rabat) Exec(@SSQL)


    Set @SSQL = ' Select Sifra_Nal, Broj_Nal, Datum_Nal, sum(Dolzi), Sum(pobaruva)
            From GStav
            Where 1=1 '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And Kto_Anal In ( ' + @Kto + ') '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Nal = ''' + Cast(@Sifra_Nal as varchar(10)) + ''' '
    If @Datum_Nal_Od Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Nal >= ''' + Cast(@Datum_Nal_Od as varchar(30)) + ''' '
    If @Datum_Nal_Do Is Not Null
        Set @SSQL = @SSQL + ' And Datum_Nal <= ''' + Cast(@Datum_Nal_Do as varchar(30)) + ''' '
    If @SamoOdOrged = 'D'
    Begin
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Oe = ''' + Cast(@Sifra_Oe as varchar(10)) + ''' '
        If @Koi_OE Is Not NULL
                 Set @SSQL = @SSQL + ' And Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    End
    Set @SSQL = @SSQL + ' Group By  Sifra_Nal, Broj_Nal, Datum_Nal '
--    If @BezBrNal <> 'D'    --  (='N' ili Null)  Da ne se izvrsuva dzabe ako sakame da gi vidime samo dok. bez br.na nalog, zatoa sto vo GStav sekogas ima broj na nalog
    Insert Into #Tab(Sifra_Nal, Broj_Nal, Datum_Nal, GkDolzi, GkPobaruva) Exec(@SSQL)

    If @PrikRazlCeni = 'D'
    Begin
        If @PoKojaCena = 'D'
        Begin
            Set @SSQL = ' Select D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal,
Sum(D.Kolic*(dbo.fn_VratiCena(D.KrCena,D.POsn,D.DanKrCena,'''+@CenaSoDanok+''')-dbo.fn_VratiCena(D.PocCena,D.POsn,D.DanPocCena,'''+@CenaSoDanok+'''))), 0
                    From RazlCeni D
                    Left Outer Join Nalozi N On N.Sifra_Nal = D.Sifra_Nal and N.Broj_Nal = D.Broj_Nal
                    Where 1=1 ' + @SSQLUslMat + ' Group By D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal '
--            print @SSQL
            Insert Into #Tab(Sifra_Nal, Broj_Nal, Datum_Nal, MatDolzi, MatPobaruva) Exec(@SSQL)
        End
        Else If @PoKojaCena = 'N'
        Begin
            Set @SSQL = ' Select D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal,
                        Sum(Case When D.VlIzl=''V'' Then D.Iznos_Razl Else 0 End),
                        Sum(Case When D.VlIzl=''I'' Then D.Iznos_Razl Else 0 End)
                    From RazlFin D
                    Left Outer Join Nalozi N On N.Sifra_Nal = D.Sifra_Nal and N.Broj_Nal = D.Broj_Nal
                    Where 1=1 ' + @SSQLUslMat + ' Group By D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal '
--            print @SSQL
            Insert Into #Tab(Sifra_Nal, Broj_Nal, Datum_Nal, MatDolzi, MatPobaruva) Exec(@SSQL)
        End
        ELSE IF @PoKojaCena='M'
        Begin
            Set @SSQL = ' Select D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal,
                        Sum(Case When D.VlIzl=''V'' Then D.Iznos_Razl Else 0 End),
                        Sum(Case When D.VlIzl=''I'' Then D.Iznos_Razl Else 0 End)
                    From RazlProd D
                    Left Outer Join Nalozi N On N.Sifra_Nal = D.Sifra_Nal and N.Broj_Nal = D.Broj_Nal
                    Where 1=1 ' + @SSQLUslMat + ' Group By D.Sifra_Nal, D.Broj_Nal, N.Datum_Nal '
            Insert Into #Tab(Sifra_Nal, Broj_Nal, Datum_Nal, MatDolzi, MatPobaruva) Exec(@SSQL)
        End
    End


    Set @SSQL = ' Select T.Sifra_Nal, T.Broj_Nal, T.Datum_Nal, '
        If @PoMeseci = 'D'
            Set @SSQL = @SSQL + ' Month(T.Datum_Nal) as Mesec, Year(T.Datum_Nal) Godina, '
        Else
            Set @SSQL = @SSQL + ' Null as Mesec, Null as Godina, '
    Set @SSQL = @SSQL + ' 0 as Kto, '' '' as ImeAnal,
                Round(Sum(T.MatDolzi), 4) MatDolzi, Round(Sum(T.MatPobaruva), 4) MatPobaruva, Round(Sum(T.MatDolzi-T.MatPobaruva), 4) MatSaldo,
                Round(Sum(T.GkDolzi), 4) GkDolzi, Round(Sum(T.GkPobaruva), 4) GkPobaruva, Round(Sum(T.GkDolzi-T.GkPobaruva), 4) GkSaldo, Round(Sum(T.Rabat), 4) as Rabat
                From #Tab T '
--        If @BezBrNal = 'D'
--            Set @SSQL = @SSQL + ' Where T.Datum_Nal Is Null '
        If @PoMeseci = 'D'
            Set @SSQL = @SSQL + ' Group By T.Sifra_Nal, T.Broj_Nal, Month(T.Datum_Nal), Year(T.Datum_Nal), T.Datum_Nal
                        Order by T.Sifra_Nal, T.Broj_Nal, Year(T.Datum_Nal), Month(T.Datum_Nal) '
        Else
            Set @SSQL = @SSQL + ' Group By T.Sifra_Nal, T.Broj_Nal, T.Datum_Nal
                        Order by  T.Sifra_Nal, T.Broj_Nal '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matic_artikli_dm5]'))
drop procedure [dbo].[sp_matic_artikli_dm5]

Go


CREATE       PROCEDURE [dbo].[sp_Matic_Artikli_DM5]

    @Datum_Art_Poc_Od    smalldatetime = NULL,
    @Datum_Art_Poc_Do    smalldatetime = NULL,
    @Datum_Art_Kr_Od    smalldatetime = NULL,
    @Datum_Art_Kr_Do    smalldatetime = NULL,
    @Sifra_Asort        varchar(10)=null,
    @Sifra_Gr        varchar(6)=null,
    @Sifra_Podg        char(6)=null,
    @Sifra_Oblast        varchar(10)=null,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do         varchar(20) = Null,
    @Kto             char(6) = Null,
    @Sifra_Brand         Smallint,
    @Sifra_Zbiren         Smallint,
    @Sifra_Layout        int,
    @Sifra_PodOblast            varchar(10)=null,
    @Lokacija        varchar(11) = Null,
    @Drugo1        smallint = Null,
    @Drugo2        smallint = Null,
    @Drugo3        smallint = Null,
    @Drugo4        smallint = Null,
    @Drugo5        smallint = Null,
    @Drugo6        smallint = Null,
    @Drugo7        smallint = Null

AS
    Declare @SSQL Varchar(8000)

    Create Table #ArtFilt
    (
        Sifra_Art    varchar(20)
    )
    Create NonClustered Index IX_ArtFilt On #ArtFilt (Sifra_Art)

    Set @SSQL = dbo.fn_smr_FiltriArt (@Sifra_Art_Od, @Sifra_Art_Do, @Kto, @Sifra_Podg, @Sifra_Gr, @Lokacija, @Sifra_Brand,
                    @Sifra_Zbiren, @Drugo1, @Drugo2, @Drugo3, @Drugo4, @Drugo5, @Drugo6, @Drugo7,
                    @Sifra_Layout, @Sifra_PodOblast, @Sifra_Asort, @Sifra_Oblast,
                    @Datum_Art_Poc_Od, @Datum_Art_Poc_Do, @Datum_Art_Kr_Od, @Datum_Art_Kr_Do)

    Insert Into #ArtFilt Exec(@SSQL)


    Select K.Sifra_Podg, K.Sifra_Layoutunit, K.Sifra_art, K.ImeArt, K.Datum_Art_Poc, K.Datum_Art_Kr,
            K.Nom, K.StatusArt, K.Alt_Sifra,
            K.Kto, K.Datum_Art_MozeNar_Poc, K.Sifra_Drg, DR.Ime, K.Nabavna, K.Fakturna, K.PrivLabel,
            P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, G.Sifra_Podoblast, PO.Ime_PodOblast, PO.Sifra_Oblast, OB.Ime_Oblast, OB.Sifra_asort, ASR.Ime_Asort,
            L.Ime_Layoutunit, D.ImeKup, LE.Sifra_Layout, LO.Ime_Layout,
            dbo.fn_VratiCena(SO.Cena, T.ProcOsn, SO.DanCena, 'N') ProdCBezDDV, dbo.fn_VratiCena(SO.Cena, T.ProcOsn, SO.DanCena, 'D') ProdCSoDDV
    From Katart K
    Inner Join #ArtFilt AF On AF.Sifra_Art = K.Sifra_Art
    inner join Podgrupi P on P.Sifra_Podg=K.Sifra_Podg
    inner join Grupi G on G.Sifra_Gr=P.Sifra_Gr
    inner join Tarifi T on T.Sifra_Tar=K.Sifra_Tar
    Left Outer Join Podoblast PO On PO.Sifra_Podoblast=G.Sifra_Podoblast
    Left Outer Join Oblast OB On OB.Sifra_Oblast=PO.Sifra_oblast
    Left Outer Join Asortiman ASR On ASR.Sifra_Asort=OB.Sifra_asort
    Left Outer Join Komint D On D.Sifra_Kup=K.Kto
    Left Outer Join DrgPodel DR On DR.Sifra_Drg=K.Sifra_Drg
    Left Outer Join DrgPodel1 ZDR On ZDR.Sifra_Drg1=DR.Sifra_Drg1
    Left Outer Join LayoutUnit L on L.Sifra_LayoutUnit=K.Sifra_LayoutUnit
    Left Outer Join LayoutElem LE On LE.Sifra_LayoutUnit=L.Sifra_LayoutUnit
    Left Outer Join Layout LO On LO.Sifra_Layout=LE.Sifra_Layout
    Left Outer Join Soart SO On SO.Sifra_Art=K.Sifra_art AND SO.Sifra_oe=1
    Order by K.Sifra_art
Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matic_artikli_kontrvnes_dm5]'))
drop procedure [dbo].[sp_matic_artikli_kontrvnes_dm5]

Go

create     PROCEDURE [dbo].[sp_Matic_Artikli_KontrVnes_DM5]
    @Datum_Vnes_Od    smalldatetime = NULL,
    @Datum_Vnes_Do    smalldatetime = NULL,
    @PoDatVnes        char(1) = null,
    @Datum_Izm_Od    smalldatetime = NULL,
    @Datum_Izm_Do    smalldatetime = NULL,
    @PoDatIzm        char(1) = null,
    @Operator        varchar(100) = Null

AS

    If @Datum_Vnes_Do Is Not Null
        Set @Datum_Vnes_Do = @Datum_Vnes_Do + 1

    If @Datum_Izm_Do Is Not Null
        Set @Datum_Izm_Do = @Datum_Izm_Do + 1

    Declare @SSQL Varchar(8000)

    set @SSQL = ' Select Sifra_Art
                  From Katart K
                  where 1 = 1 '
    if @PodatVnes = 'D'
      begin
        if @Datum_Vnes_Od is not null
            set @SSQL = @SSQL + ' and K.DodadenNa >= ''' + cast(@Datum_Vnes_Od as varchar(35)) + ''' '
        if @Datum_Vnes_Do is not null
            set @SSQL = @SSQL + ' and K.DodadenNa <= ''' + cast(@Datum_Vnes_Do as varchar(35)) + ''' '
        if @Operator is not null
            set @SSQL = @SSQL + ' and K.DodadenOd = ''' + @Operator + ''' '
      end
    else
      begin
        if @Datum_Izm_Od is not null
            set @SSQL = @SSQL + ' and K.IzmenetNa >= ''' + cast(@Datum_Izm_Od as varchar(35)) + ''' '
        if @Datum_Izm_Do is not null
            set @SSQL = @SSQL + ' and K.IzmenetNa <= ''' + cast(@Datum_Izm_Do as varchar(35)) + ''' '
        if @Operator is not null
            set @SSQL = @SSQL + ' and K.IzmenetOd = ''' + @Operator + ''' '
      end


    Create Table #ArtFilt
    (
        Sifra_Art    varchar(20)
    )
    Create NonClustered Index IX_ArtFilt
        On #ArtFilt (Sifra_Art)

    Insert Into #ArtFilt
        Exec(@SSQL)

    Select K.Sifra_Podg, K.Sifra_Layoutunit, K.Sifra_art, K.ImeArt, K.Datum_Art_Poc, K.Datum_Art_Kr,
            K.Nom, K.StatusArt, K.Alt_Sifra, K.Alt_Ime,
            K.IzmenetNa, K.DodadenNa, K.IzmenetOd, K.DodadenOd,
            K.Kto, K.Sezonski, K.StatusArt, K.TipEtiketa,
            K.Sifra_Pat_Man, PatM.ImePat Ime_Pat_Man,
            K.Sifra_Pat_Ref, PatR.ImePat Ime_Pat_Ref,
            K.Datum_Art_MozeNar_Poc, K.Datum_Art_MozeNar_Kr,
            K.Datum_Art_MozePriem_Poc, K.Datum_Art_MozePriem_Kr,
            K.Sifra_Drg, DR.Ime, K.Nabavna, K.Fakturna, K.PrivLabel,
            P.Ime_Podg, P.Sifra_Gr, K.SMatUsl, K.POdTipUsl, K.Sifra_TipArtZal, TAZ.Ime_TipArtZal,
            L.Ime_Layoutunit, D.ImeKup,
            K.ImeArt2, K.KategArt, Tar.ImeTar, Tar.ProcOsn,
            K.ImaKomerc, K.ImaBroevi, K.ImaPaleta, K.ProcAlk MinKolNar, K.MultiFaktorNar,
            K.Tezina, K.BTezina, K.Sirina, K.Visina, K.Dolzina,
            K.RokTraDen, K.PrivLabel, K.IzvorNab, K.SeVodiNaZaliha,
            K.CarBroj, CBr.Ime ImeCarBroj, CBr.Stapka CBrStapka,
            K.BlokadaPopust, K.Broj_PresmGrupa, K.SpeCena
    From Katart K
    Inner Join #ArtFilt AF
            On AF.Sifra_Art = K.Sifra_Art
    inner join Podgrupi P on P.Sifra_Podg=K.Sifra_Podg
    inner join Grupi G on G.Sifra_Gr=P.Sifra_Gr
    inner join Tarifi T on T.Sifra_Tar=K.Sifra_Tar
    Left Outer Join Podoblast PO On PO.Sifra_Podoblast=G.Sifra_Podoblast
    Left Outer Join Komint D On D.Sifra_Kup=K.Kto
    Left Outer Join DrgPodel DR On DR.Sifra_Drg=K.Sifra_Drg
    Left Outer Join DrgPodel1 ZDR On ZDR.Sifra_Drg1=DR.Sifra_Drg1
    Inner Join Tarifi Tar
        on Tar.Sifra_Tar = K.Sifra_Tar
    Left Outer Join TipArtZal TAZ
        on TAZ.Sifra_TipArtZal = K.Sifra_TipArtZal
    Left Outer Join LayoutUnit L
        on L.Sifra_LayoutUnit = K.Sifra_LayoutUnit
    Left Outer Join Patnici PatM
        on K.Sifra_Pat_Man = PatM.Sifra_Pat
    Left Outer Join Patnici PatR
        on K.Sifra_Pat_Ref = PatR.Sifra_Pat
    Left Outer Join CBroevi CBr
        on CBr.CarBroj = K.CarBroj
    Order by K.Sifra_art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matic_pregled]'))
drop procedure [dbo].[sp_matic_pregled]

Go




CREATE         PROCEDURE [dbo].[sp_Matic_Pregled]
    @Tabela VARCHAR(20),
        @Opc_Param_Int as integer = Null
AS

   Set @Tabela=Upper(@Tabela)

   If @Tabela='ORGED'
      Select * From Orged Order By Sifra_OE
   Else If @Tabela='GRUPI'
      Select G.*, PO.Ime_PodOblast
      From Grupi G
      left outer Join PodOblast PO
            on G.Sifra_PodOblast = PO.Sifra_PodOblast
     Order By G.Sifra_Gr
   Else If @Tabela='USL_KOLRAB_FRA'
      Select * From Usl_KolRab_Fra
   Else If @Tabela='PODGRUPI'
      Select P.*, G.Ime_Gr
      From Podgrupi P
      Inner Join Grupi G ON P.Sifra_Gr=G.Sifra_Gr
      Order By P.Sifra_Podg
   Else If @Tabela='TIPDOK'
      Select TD.*, TN.ImeNal
      From TipDok TD
      Inner Join  TipNal TN ON TD.Sifra_Nal=TN.Sifra_Nal
      Order By Sifra_Dok
   Else If @Tabela='TIPNAL'
      Select * From TipNal Order by Sifra_Nal
   Else If @Tabela='TARIFI'
      Select * From Tarifi
      Order by Sifra_Tar
   Else if @Tabela='MARKETI'
       Select * FROM Marketi
       Order by Sifra_Mark
   Else If @Tabela='KOBJEKTI'
        Select K.Sifra_Kup, K.ImeKup, KO.*
        From KObjekti KO
        Inner Join Komint K On KO.Sifra_Kup=K.Sifra_Kup
        Where Sifra_Obj <> 0
        Order By KO.Sifra_Kup, KO.Sifra_Obj
   Else If @Tabela='GREGION'
        Select * From GRegion
   Else If @Tabela='GTIPKUP'
        Select * From GTipKup
   Else If @Tabela='ANAL'
        Select * From ANAL ORDER BY KTO_ANAL
   Else If @Tabela='GRAD'
        Select * From GRAD
    Else If @Tabela='PATNICI'
          begin
               if @Opc_Param_Int is null  Or  @Opc_Param_Int = 0
                Select * From Patnici
               else if @Opc_Param_Int = 5
                Select * From Patnici where Sifra_Div IN (5, 6, 3)
               else
                Select * From Patnici where Sifra_Div = @Opc_Param_Int
          end
--    Else If @Tabela='PATNICI'
 --         begin
  --            if @Opc_Param_Int is null  Or  @Opc_Param_Int = 0
--        Select * From Patnici
 --             else
  --              Select * From Patnici where Sifra_Div = @Opc_Param_Int
   --       end
    Else If @Tabela='DRGPODEL'
        Select B.*, ZB.Ime_Drg1 From DrgPodel B
            Left Outer Join DrgPodel1 ZB On B.Sifra_Drg1=ZB.Sifra_Drg1
    Else If @Tabela = 'DRGPODEL1'
        Select * From DrgPodel1
    Else If @Tabela='KOMINT'
        Select * From Komint ORDER BY ImeKup
    Else If @Tabela='GRORG'
        Select * from GrOrg
    Else If @Tabela='KDRUGO1'
        Select * from KDrugo1
    Else If @Tabela='KDRUGO2'
        Select * from KDrugo2
    Else If @Tabela='KDRUGO3'
        Select * from KDrugo3
    Else If @Tabela='KDRUGO4'
        Select * from KDrugo4
    Else If @Tabela='KDRUGO5'
        Select * from KDrugo5
    Else If @Tabela='KDRUGO6'
        Select * from KDrugo6
    Else If @Tabela='KDRUGO7'
        Select * from KDrugo7
    Else If @Tabela = 'POPIS'
        SELECT P.*, O.ImeOrg
        FROM Popis P
        LEFT OUTER JOIN OrgEd O ON P.Sifra_OE = O.Sifra_OE
        ORDER BY IDPopis
    Else If @Tabela='KNIGATRG'
        Select * from KnigaTrg
    Else If @Tabela='CBROEVI'
        Select * from CBroevi
    Else If @Tabela='KRSLISTA'
        Select * from KrsLista
    Else If @Tabela='GRAD'
        Select * from Grad
    Else If @Tabela = 'NIVO'
        Select * FROM Nivo
    Else If @Tabela = 'KONFCENI'
        Select * FROM KonfCeni
    Else If @Tabela = 'GRANAL'
        Select * FROM GrAnal ORDER BY Kto_GrAn
    Else If @Tabela = 'SINT'
        Select * FROM Sint  ORDER BY Kto_Sint
    Else If @Tabela = 'KLAS'
        Select * FROM Klas  ORDER BY Kto_Klas
    Else If @Tabela = 'LOGO'
        Select * FROM Logo
    Else If @Tabela = 'GRNAR'
        Select * FROM GrNar
    Else If @Tabela = 'PRODMEST'
        Select * FROM ProdMest
    Else If @Tabela = 'DRUGO1'
        Select * FROM Drugo1
    Else If @Tabela = 'DRUGO2'
        Select * FROM Drugo2
    Else If @Tabela = 'DRUGO3'
        Select * FROM Drugo3
    Else If @Tabela = 'DRUGO4'
        Select * FROM Drugo4
    Else If @Tabela = 'DRUGO5'
        Select * FROM Drugo5
    Else If @Tabela = 'DRUGO6'
        Select * FROM Drugo6
    Else If @Tabela = 'DRUGO7'
        Select * FROM Drugo7
    Else If @Tabela = 'FIXTEKST'
        Select * FROM FixTekst
    Else If @Tabela = 'FIXTEKSTN'
        Select * FROM FixTekstN
    Else If @Tabela = 'TIPNARAC'
        Select TN.*, GN.ImeGrNar
                from TipNarac TN
                Left Outer Join GrNar GN On TN.Sifra_GrNar=GN.Sifra_GrNar
    Else If @Tabela = 'TIPPERCENOVNIK'
        Select T.*, V.Sifra_OE, G.ImeOrg FROM TipPerCenovnik T
        INNER JOIN TipPerCenVaziZa V ON T.Sifra_TipC = V.Sifra_TipC
        INNER JOIN Orged G ON V.Sifra_OE = G.Sifra_OE
    Else If @Tabela = 'UCESDENOVI'
        Select * FROM UcesDenovi
    Else If @Tabela = 'PROIZVTROSFIX'
            Select PTF.*, KA.ImeArt
                    From PROIZVTROSFIX PTF
                    Inner Join  KatArt KA ON PTF.Sifra_Art=KA.Sifra_Art
                    Order By Proiz_Sema
    Else If @Tabela = 'KSTAPKI'
        Select * FROM KStapki
    Else If @Tabela = 'KATAMB'
    Select GKA.ImeAmb ImeGAmb, KA.*                from KatAmb KA
                Left Outer Join KatAmb GKA On KA.Sifra_GAmb=GKA.Sifra_Amb
    Else If @Tabela = 'KATGAMB'
        Select * FROM KatGAmb
    Else If @Tabela = 'AMORGRP'
        Select * FROM AmorGrp
    Else If @Tabela = 'OSNSRED'
    Select A.Ime ImeAmor, M.Ime_MikLok, O.* from
        OsnSred O
        Left Outer Join AmorGrp A On A.Sifra_Amor=O.Sifra_Amor
        Left Outer Join MikroLok M On M.Sifra_MikLok=O.Sifra_MikLok
    Else If @Tabela = 'LOKACIJA'
        Select * FROM Lokacija
    Else If @Tabela = 'DOGRADBA'
        Select * FROM Dogradba
    Else If @Tabela = 'RABOTNIK'
        Select * FROM Rabotnik
    Else If @Tabela = 'RABMESTA'
        Select * FROM RabMesta
    Else If @Tabela = 'BANKI'
        Select * FROM Banki
    Else If @Tabela = 'PODGOD'
        Select * FROM PodGod
    Else If @Tabela = 'FIRMI'
                Select B.ImeBanka ImeBanka, F.*                from Firmi F
                Left Outer Join Banki B On F.Sifra_Ban=B.Sifra_Ban
    Else If @Tabela = 'PODMES'
        Select * FROM PodMes
    Else If @Tabela = 'PRIMATELI'
        Select * FROM Primateli
    Else If @Tabela = 'OPSTINI'
        Select * FROM Opstini
    Else If @Tabela = 'PROGRAMI'
        Select * FROM Programi
    Else If @Tabela = 'NACINPRESMZ'
        Select * FROM NacinPresmZ
    Else If @Tabela = 'ZADRSKI'
        Select * FROM Zadrski
    Else If @Tabela = 'ZARAB'
        Select * FROM Zarab
    Else If @Tabela = 'BankSmetki'
        Select * FROM BankSmetki
    Else If @Tabela = 'Divizii'
        Select * FROM Divizii
    Else If @Tabela = 'VidVozila'
        Select * FROM VidVozila
    Else If @Tabela = 'TipKartKor'
        Select * FROM TipKartKor
    Else If @Tabela = 'NivoCeniKartKor'
        Select * FROM NivoCeniKartKor
    Else If @Tabela = 'CenVidVozila'
        Select V.Ime_Vid_Voz ImeVoz, CVV.*                from CenVidVozila CVV
                Left Outer Join VidVozila v On CVV.Sifra_Vid_Voz=V.Sifra_Vid_Voz
    Else If @Tabela = 'Prevoznik'
        Select K.ImeKup ImeKup, P.*                from Prevoznik P
                Left Outer Join Komint K On P.Sifra_Kup=K.Sifra_Kup
    Else If @Tabela = 'MAKROLOK'
        SELECT MA.*, L.ImeLok
        FROM MakroLok MA
        LEFT OUTER JOIN Lokacija L ON MA.Sifra_Lok = L.Sifra_Lok
    Else If @Tabela = 'KRSVAZNOST'
        SELECT KV.*, K.ImeVal
        FROM KrsVaznost KV
        LEFT OUTER JOIN KrsLista K ON KV.SImeVal = K.SImeVal
    Else If @Tabela = 'GOTOVSUROVORG'
        SELECT GS.*, GOE.ImeOrg, SOE.ImeOrg ImeSurOrg
        FROM GotovSurovOrg GS
        LEFT OUTER JOIN OrgEd GOE ON GS.Sifra_OE_Got = GOE.Sifra_OE
                LEFT OUTER JOIN OrgEd SOE ON GS.Sifra_OE_Sur = SOE.Sifra_OE
    Else If @Tabela = 'MIKROLOK'
        Select MA.Ime_MakLok, MA.Sifra_MakLok, L.Sifra_Lok, L.ImeLok, MI.Sifra_MikLok, MI.Ime_MikLok        from Lokacija L
        Left Outer Join MakroLok MA On MA.Sifra_Lok=L.Sifra_Lok
        Left Outer Join MikroLok MI On MI.Sifra_MakLok=MA.Sifra_MakLok
    Else If @Tabela = 'KATLISTI'
    Select A.Imeart ImeArt, KA.*                from KatListi KA
                Left Outer Join KatArt A On KA.Sifra_art=A.Sifra_Art
   Else If @Tabela='OPERATORI'
        SELECT *        --Sifra_oper, Ime_Oper, Sifra_OE, Login_Ime, Aktiven
        FROM OPERATORI
    Else If @Tabela='RELACISPOR'
        SELECT R.*, RS.Rbr, RS.Sifra_Grad, RS.Prior_poseta, G.ImeGrad
        FROM RELACISPOR R INNER JOIN RelacIsporStav RS ON R.Sifra_RelIspor=RS.Sifra_RelIspor
        INNER JOIN Grad G ON RS.Sifra_grad=G.Sifra_Grad
    Else If @Tabela = 'VIDPRODOBJ'
        Select * FROM VidProdObj
    Else If @Tabela = 'TIPKOMINT'
        Select * FROM TipKomint
    Else If @Tabela = 'SMENI'
        Select * FROM SMENI
    Else If @Tabela = 'MASINI'
        Select * FROM MASINI
    Else If @Tabela = 'HILZNI'
        Select * FROM HILZNI
    Else If @Tabela = 'KATSTATUS'
        Select * FROM KATSTATUS
    Else If @Tabela = 'LSTPARTIC'
        Select * FROM LSTPARTIC
    Else If @Tabela = 'KATPAKUV'
        Select K.*, A.Imeart, T.ImeKatPak ImePak, T1.ImeKatPak ImePakMalo
        FROM KATPAKUV K
        INNER JOIN TipKatPakuv T ON T.Sifra_KatPak=K.Sifra_KatPak
        LEFT OUTER JOIN TipKatPakuv T1 ON T1.Sifra_KatPak=K.Sifra_KatPak_Pomalo
        Left Outer Join KatArt A On K.Sifra_Art = A.Sifra_Art
    Else If @Tabela = 'FAZI'
        Select F.*, O.ImeOrg
        FROM FAZI F
        Left Outer Join OrgEd O On F.Sifra_Oe = O.Sifra_Oe
    Else If @Tabela = 'PLANPAT'
        Select P.*, N.ImeNar as ImePlan
        FROM PLANPAT P
        Left Outer Join TipNarac N On N.Sifra_Nar = P.Sifra_Plan
    Else If @Tabela='GRPMARZA'
        SELECT R.*, G.Ime_GrOrg
        FROM GRPMARZA R
                INNER JOIN GrOrg G ON R.Sif_GrOrg=G.Sif_GrOrg
    Else If @Tabela = 'TARIFMODEL'
        Select * FROM TmTarifModel
    Else If @Tabela = 'USLUGI'
        Select * FROM TmUslugi
    Else If @Tabela = 'XFIZVRSITEL'
        Select * FROM XFIzvrsitel
    Else If @Tabela = 'XFODDEL'
        Select * FROM XFOddel
    Else If @Tabela = 'XFVRABODDEL'
        Select V.*, O.ImeOddel, I.ImeIzvrs
        FROM XFVRABODDEL V
        LEFT OUTER JOIN XFOddel O ON O.Sifra_Oddel=V.Sifra_Oddel
        LEFT OUTER JOIN XFIzvrsitel I ON I.Sifra_Izvrs=V.Sifra_Izvrs
    Else If @Tabela = 'XFTIPPREDMET'
        Select * FROM XFTipPredmet
    Else If @Tabela = 'XFSTATUSPREDMET'
        Select * FROM XFStatusPredmet
    Else If @Tabela = 'XFOBLAST'
    Select * FROM XFOblast
    Else If @Tabela = 'XFNAPRAVENO'
    Select * FROM XFNapraveno
    Else If @Tabela = 'XFSTATUSBARANJE'
    Select * FROM XFStatusBaranje
    Else If @Tabela = 'XFVIDBARANJE'
    Select * FROM XFVidBaranje
    Else If @Tabela = 'TARMODEL'
    Select * FROM TARMODEL
    Else If @Tabela = 'VERNTRAENJE'
    Select * FROM VERNTRAENJE
    Else If @Tabela = 'VIDDOG'
    Select * FROM VIDDOG
    Else If @Tabela = 'KARAKTERIST'
    Select * FROM Karakterist
    Else If @Tabela = 'NGBILLCODES'
    Select * FROM NGBillCodes
    Else If @Tabela = 'NGOTHERCODES'
    Select * FROM NGOtherCodes
    Else If @Tabela = 'NGFAMILIJA'
    Select * FROM NGFamilija
    Else If @Tabela = 'NGCOURSETYPE'
    Select * FROM NGCourseType
    Else If @Tabela = 'NGSTUDENTS'
    Select * FROM NGStudents
    Else If @Tabela = 'NGSCHOOLYEAR'
    Select * FROM NGSchoolYear
    Else If @Tabela = 'GRPAT'
    Select * FROM grpat
    Else if @Tabela= 'FORMULADEF'
        Select * from FormulaDef
    Else If @Tabela='WHMSEKCIJA'
         Select * from WhmSekcija
     order by sifra_Oe, Sekc_Id

    -- Moram vaka, zassto e ogromen IF-ot gore --
    -- da se napravi pointeligentna okolina...
    If @Tabela='NACPLAK'
         SELECT * FROM NACPLAK
    else if @Tabela = 'NACKONKART'
        select * from Nackonkart
    else if @Tabela = 'CENPOPODGR'
        select * from CenPoPodgr
    else if @Tabela = 'KREDITSTATUS'
    begin
        if @Opc_Param_Int = 1
            select * from KreditStatus
            where DaliZatvoren is null or DaliZatvoren <> 'D'
        else if @Opc_Param_Int = 2
            select * from KreditStatus
            where DaliZatvoren = 'D'
        else
            select * from KreditStatus
    end
    else if @Tabela = 'KREDITTIPOPOMENA'
        select * from KreditTipOpomena
    else if @Tabela = 'TROSOKVID'
        select * from trosokvid
    else if @Tabela = 'TROSOKMESTO'
        select * from trosokmesto
    else if @Tabela = 'TROSOK4TIP'
        select * from Trosok4Tip
     Else If @Tabela='GRkup'
        Select * from GrKUP
     Else If @Tabela='FiRaspredelba'
        SELECT F.*,  D.ImeDiv
            FROM  FiRaspredelba F
            INNER JOIN Divizii D ON F.Sifra_Div = D.Sifra_Div
     Else If @Tabela='WHMLOKACIJA'
         Select * from WhmLokacija
     order by sifra_Oe, Lokac_Id
     Else If @Tabela = 'ATCKODOVI'
        Select * FROM AtcKodovi
     Else If @Tabela = 'SIFAKC'
        Select * FROM SifAkc
    Else If @Tabela = 'KLUCSODRZ'
        Select distinct KlucSodrz, '' from sPrometADH
     Else If @Tabela = 'KLUCSPROMETADH'
        Select * FROM KlucSPrometAdh
    Else If @Tabela = 'SPREMAC'
             Select * FROM Spremac
    Else If @Tabela = 'BOJA'
        Select * FROM Boja
    Else If @Tabela = 'VELICINA'
        Select * FROM Velicina
    else if @Tabela='GRART'
        Select * from GrArt
    Else If @Tabela = 'KATSPECTIPMAT'
        Select * FROM KATSPECTIPMAT
    Else If @Tabela='KatSpecPakuv'
        SELECT F.*,  D.ImeTipMat, A.ImeArt
            FROM  KatSpecPakuv F
            INNER JOIN KatSpecTipMat D ON F.Sifra_TipMat = D.Sifra_TipMat
                INNER JOIN Katart A ON F.Sifra_Art = A.Sifra_Art
    Else If @Tabela = 'WHMPRIVOPER'
        Select W.*, O.Ime_Oper, OE.ImeOrg
                FROM WHMPRIVOPER W
                INNER JOIN Operatori O ON W.Sifra_Oper = O.Sifra_Oper
                INNER JOIN OrgEd OE ON W.Sifra_Oe_WHM = OE.Sifra_Oe
                ORDER BY W.SIFRA_OPER, W.SIFRA_OE_WHM
    Else If @Tabela = 'MCKATPOZICIJA'
        Select * FROM MCKatPozicija
    Else If @Tabela = 'MCLISTA'
        Select L.*, P.ImeMCPozicija FROM MCLista L LEFT OUTER JOIN MCKatPozicija P
            ON L.Sif_MCPozicija = P.Sif_MCPozicija
    ELSE IF @Tabela='KATPODSIFRA'
        SELECT K.*, B.ImeBoja, V.ImeVelic, KA.ImeArt
        FROM KatPodSifra K with (NOLOCK) INNER JOIN
            KatArt KA ON KA.Sifra_Art = K.Sifra_Art LEFT OUTER JOIN
            Boja B ON K.Sifra_Boja = B.Sifra_Boja LEFT OUTER JOIN
            Velicina V ON V.Sifra_Velic = K.Sifra_Velic
    ELSE IF @Tabela = 'DEKLART'
        SELECT    D.*, K.ImeArt
        FROM    DeklArt D INNER JOIN
                KatArt K ON K.Sifra_Art = D.Sifra_Art
    ELSE IF @Tabela = 'TIPAKTIVNOSTI'
        SELECT    *
        FROM    TipAktivnosti

    If @@ROWCOUNT=0
        RETURN 77000
    Else
        RETURN @@ERROR
















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matic_pregled_rcp]'))
drop procedure [dbo].[sp_matic_pregled_rcp]

Go



CREATE   PROCEDURE [dbo].[sp_Matic_Pregled_RCP]

    @Tabela VARCHAR(20),
        @Opc_Param_Int as integer = Null

AS

   Set @Tabela = Upper(@Tabela)

    If @Tabela = 'DIJAGNOZI'
        Select * FROM Dijagnozi
    Else If @Tabela = 'LEKARI'
        Select * FROM Lekari
    Else If @Tabela = 'FARMACEVT'
        Select * FROM Farmacevt
    Else If @Tabela = 'APTEKA'
        Select * FROM Apteka
    Else If @Tabela = 'OSNOVOSIG'
        Select * FROM OsnovOsig
    Else If @Tabela = 'PODRACNISLUZBI'
        Select * FROM PodracniSluzbi
    Else If @Tabela = 'ATCKODOVI'
        Select * FROM AtcKodovi
    Else If @Tabela = 'LSTPARTICMARZA'
        Select * FROM LstPartic
    Else If @Tabela = 'LSTPARTICSKALA'
        Select * FROM LstParticSkala
     Else If @Tabela = 'DRZAVA'
        Select * FROM Drzava

    If @@ROWCOUNT=0
      RETURN 77000
    Else
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matic_pregled2]'))
drop procedure [dbo].[sp_matic_pregled2]

Go



CREATE                            PROCEDURE [dbo].[sp_Matic_Pregled2]
    @Tabela VARCHAR(20),
        @Opc_Param_Int as integer = Null
AS

   Set @Tabela=Upper(@Tabela)

   If @Tabela='OSNGRPODEL'
      Select * From OsnGrPodel Order By Sifra_OsnGrPodel
   Else If @Tabela = 'OSNPODELBI'
      Select OP.*, OG.ImeOsnGrPodel
      from OsnPodelbi OP
      Left Outer Join OsnGrPodel OG On OP.Sifra_OsnGrPodel=OG.Sifra_OsnGrPodel
   Else If @Tabela='ANAL'                        --specijalno za proektot osnovni sredstva
        Select * From ANAL WHERE KTO_ANAL IN (SELECT DISTINCT Kto_Anal FROM OsnSred) ORDER BY KTO_ANAL

    If @@ROWCOUNT=0
      RETURN 77000
    Else
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevfra]'))
drop procedure [dbo].[sp_matstavkioddevfra]

Go




CREATE             PROCEDURE sp_MatStavkiOdDevFra
   @DevFraID integer
AS
    SELECT S.*, K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar, K.Carbroj, T.ProcOsn, K.Tezina, Kup.ImeKup
    FROM DevFraStavk S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    LEFT OUTER JOIN Komint Kup ON S.Dobav=Kup.Sifra_Kup
    WHERE S.DevFraID= @DevFraID
    ORDER BY S.DevFraStID





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevfra_mag]'))
drop procedure [dbo].[sp_matstavkioddevfra_mag]

Go

CREATE             PROCEDURE sp_MatStavkiOdDevFra_Mag
    @DevFraID    integer
AS
Declare @DokrID        integer
SELECT @DokrID=DokrID FROM Dokr D INNER JOIN DevFra DF ON D.Sifra_Oe=DF.Sifra_OE AND D.Sifra_Dok=DF.Sifra_Dok AND D.Broj_Dok=DF.Broj_DevF WHERE DF.DevFraID=@DevFraID

CREATE TABLE #TmpMagStavr
(Sifra_Art    varchar(20),
Kolic        decimal(18,6),
SpecOzn        varchar(60),
Rbr            smallint,
LotBr        varchar(30),
Lokacija    varchar(50),
Sifra_Boja    smallint,
Sifra_Velic smallint)
INSERT INTO #TmpMagStavr (Sifra_Art, Kolic, SpecOzn, Rbr, LotBr, Lokacija) SELECT Sifra_Art, Kolic, SpecOzn, Rbr, LotBr, Lokacija FROM MagStavr WHERE DokrID=@DokrID
UPDATE #TmpMagStavr SET Sifra_Velic = Substring(LotBr, PatIndex('%:%', LotBr)+1, 5)
UPDATE #TmpMagStavr SET Sifra_Boja = Substring(LotBr, PatIndex('% %', LotBr)+1, PatIndex('%:%', LotBr)-PatIndex('% %', LotBr)-1)

    SELECT S.DevFraStID, S.DevFraID, S.Sifra_Art, CASE WHEN MS.LotBr IS NULL THEN S.Kolic ELSE Ms.Kolic END AS Kolic, S.DevCena, S.Uces,
    S.CenaIznos, S.PTar, S.POsn, S.DenCena, S.ImeMat, S.KontrSer, S.MagCena, S.Paleti, S.Alt_Kolic, S.Dobav,
    K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar, K.Carbroj, T.ProcOsn, K.Tezina, Kup.ImeKup,
    MS.SpecOzn, MS.LotBr, MS.Lokacija, B.ImeBoja, V.ImeVelic
    FROM DevFraStavk S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    LEFT OUTER JOIN Komint Kup ON S.Dobav=Kup.Sifra_Kup
    LEFT OUTER JOIN #TmpMagStavr MS ON S.Sifra_Art=MS.Sifra_Art
    LEFT OUTER JOIN Boja B ON B.Sifra_Boja=MS.Sifra_Boja
    LEFT OUTER JOIN Velicina V ON V.Sifra_Velic=MS.Sifra_Velic
    WHERE S.DevFraID= @DevFraID
    ORDER BY S.DevFraStID, MS.Sifra_Boja, MS.Sifra_Velic






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevkalk]'))
drop procedure [dbo].[sp_matstavkioddevkalk]

Go






CREATE                           PROCEDURE sp_MatStavkiOdDevKalk
    @Sifra_OE smallint,
    @Sifra_Dok smallint=132,
    @Broj_Kalk int
AS
    SELECT S.IDDevSt, S.Sifra_Oe, S.Broj_Kalk, S.Sifra_art, S.Kolic, S.DevCena  DevCena, S.Uces, S.CenaIznos, S.Ptar, S.Posn, S.CarBroj,
            S.CarProc, Round(S.TrPredCar,4) TrPredCar, Round(S.TrPoCar,4) TrPoCar, S.ProdCena, S.DanProdCena, S.NabCena, round(S.EdPlatDan,4) EdPlatDan, Round(S.EdTrosok,4) EdTrosok,
            S.Prelevman, S.KaloProc, S.Carina, Round(S.DrugiTros,4) DrugiTros,
                    Round(S.EdPrelevman, 4) EdPrelevman, Round(S.EdSpedicija, 4) EdSpedicija, Round(EdBankProviz, 4) EdBankProviz, EdKalo,
            K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar, K.Carbroj CarBroj1, T.ProcOsn,
            K.Cena, K.DogCena, K.MalCena, K.GotCena, K.SpeCena, S.KontrSer, D.Kasa, S.FaktKolic,
            S.Alt_Kolic, K.Tezina, S.SpecCena
    FROM DevStavk S
    Inner Join DevKalk D On D.Sifra_Oe=S.Sifra_Oe and D.Broj_Kalk=S.Broj_Kalk AND D.Sifra_Dok=S.Sifra_Dok  -- dod 20.10.2005
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    WHERE S.Sifra_OE= @Sifra_OE  AND S.Broj_Kalk= @Broj_Kalk AND S.Sifra_Dok=@Sifra_Dok
    ORDER BY S.IDDevSt














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevkalk_mag]'))
drop procedure [dbo].[sp_matstavkioddevkalk_mag]

Go


CREATE  PROCEDURE sp_MatStavkiOdDevKalk_Mag
    @Sifra_OE smallint,
    @Sifra_Dok smallint=132,
    @Broj_Kalk int
AS
Declare @DokrID        integer
SELECT @DokrID=DokrID FROM Dokr WHERE Sifra_Oe=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Kalk

CREATE TABLE #TmpMagStavr
(Sifra_Art    varchar(20),
Kolic        decimal(18,6),
SpecOzn        varchar(60),
Rbr            smallint,
LotBr        varchar(30),
Lokacija    varchar(50),
Sifra_Boja    smallint,
Sifra_Velic smallint)
INSERT INTO #TmpMagStavr (Sifra_Art, Kolic, SpecOzn, Rbr, LotBr, Lokacija) SELECT Sifra_Art, Kolic, SpecOzn, Rbr, LotBr, Lokacija FROM MagStavr WHERE DokrID=@DokrID
UPDATE #TmpMagStavr SET Sifra_Velic = Substring(LotBr, PatIndex('%:%', LotBr)+1, 5)
UPDATE #TmpMagStavr SET Sifra_Boja = Substring(LotBr, PatIndex('% %', LotBr)+1, PatIndex('%:%', LotBr)-PatIndex('% %', LotBr)-1)

    SELECT S.IDDevSt, S.Sifra_Oe, S.Broj_Kalk, S.Sifra_art, CASE WHEN MS.LotBr IS NULL THEN S.Kolic ELSE Ms.Kolic END AS Kolic, S.DevCena, S.Uces, S.CenaIznos, S.Ptar, S.Posn, S.CarBroj,
            S.CarProc, Round(S.TrPredCar,4) TrPredCar, Round(S.TrPoCar,4) TrPoCar, S.ProdCena, S.DanProdCena, S.NabCena, round(S.EdPlatDan,4) EdPlatDan, Round(S.EdTrosok,4) EdTrosok,
            S.Prelevman, S.KaloProc, S.Carina, Round(S.DrugiTros,4) DrugiTros,
                    Round(S.EdPrelevman, 4) EdPrelevman, S.EdSpedicija, EdBankProviz, EdKalo,
            K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar, K.Carbroj CarBroj1, T.ProcOsn,
            K.Cena, K.DogCena, K.MalCena, K.GotCena, K.SpeCena, S.KontrSer, D.Kasa, S.FaktKolic,
            S.Alt_Kolic, K.Tezina, S.SpecCena,     MS.SpecOzn, MS.LotBr, MS.Lokacija, B.ImeBoja, V.ImeVelic
    FROM DevStavk S
    Inner Join DevKalk D On D.Sifra_Oe=S.Sifra_Oe and D.Broj_Kalk=S.Broj_Kalk AND D.Sifra_Dok=S.Sifra_Dok  -- dod 20.10.2005
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    LEFT OUTER JOIN #TmpMagStavr MS ON S.Sifra_Art=MS.Sifra_Art
    LEFT OUTER JOIN Boja B ON B.Sifra_Boja=MS.Sifra_Boja
    LEFT OUTER JOIN Velicina V ON V.Sifra_Velic=MS.Sifra_Velic
    WHERE S.Sifra_OE= @Sifra_OE  AND S.Broj_Kalk= @Broj_Kalk AND S.Sifra_Dok=@Sifra_Dok
    ORDER BY S.IDDevSt, MS.Sifra_Boja, MS.Sifra_Velic














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevkalkpoart]'))
drop procedure [dbo].[sp_matstavkioddevkalkpoart]

Go


CREATE                PROCEDURE sp_MatStavkiOdDevKalkPoArt
    @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(200) = Null,
    @Broj_Nal_Od Int = Null,
    @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
    @Broj_Dok_Do Int = Null,
    @Datum_Dok_Od Smalldatetime = Null,
    @Datum_Dok_Do Smalldatetime = Null,
    @Sifra_Kup     Char(6) = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @PoKojDatum    char(1) = 'D',     -- D - Datum_Dok,      V - Datum_Vnes
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null
AS
    Declare @TipDokKonf smallint
    Select @TipDokKonf = Devk_Tipd_MatFra From Konfig
    Declare @SSQL as VArchar(8000)
    Set @SSQL =  ' SELECT S.Sifra_Oe, D.Sifra_Dok, S.Broj_Kalk, D.KojaVal, V.ImeVal, D.Datum_Dok, S.Sifra_Art, K.ImeArt,
               S.Kolic, S.DevCena, S.Uces, D.Kasa, S.NabCena, S.Posn, D.Kurs, K.EdMera,
                       DO.Sifra_Kup, Kom.ImeKup
    FROM [DevStavk] S
    INNER JOIN DevKalk D On D.Sifra_Oe=S.Sifra_Oe and D.Broj_Kalk=S.Broj_Kalk AND D.Sifra_Dok=S.Sifra_Dok
        INNER JOIN Dokr DO On DO.Sifra_Oe=S.Sifra_Oe and DO.Broj_Dok=S.Broj_Kalk AND DO.Sifra_Dok=S.Sifra_Dok
    Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
    Left Outer Join KrsLista V On V.SImeVal = D.KojaVal
        Left Outer Join Komint Kom On Kom.Sifra_Kup = DO.Sifra_Kup '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND (Cast(S.Sifra_Oe as char(3)) + Cast(S.Broj_Kalk as char(8))) in (Select (Cast(A.Sifra_Oe as char(3)) + Cast(A.Broj_Kalk as char(8))) From AnFinDok A Where A.Sifra_Kup=''' + @Sifra_Kup + '''
                                And A.Sifra_Dok = ' + cast(@TipDokKonf as varchar(6)) + ') '
--    INNER Join Anfindok A On A.Sifra_Oe=D.Sifra_Oe and A.Broj_Kalk=D.Broj_Kalk and A.Sifra_Dok = ' + cast(@TipDokKonf as varchar(6)) + '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
       If @Sifra_Art_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
--    Set @SSQL = @SSQL + ' GROUP BY  S.Sifra_Oe, D.Sifra_Dok, S.Broj_Kalk, D.KojaVal, V.ImeVal, D.Datum_Dok, D.Kurs '
print @SSQL
/*            Sum(case S.CenaIznos
                When  ''N'' Then (S.DevCena*Kolic)
                Else S.DevCena
                End) DevIznos,
            Sum(S.DevCena*(1-S.Uces/100)*(1-D.Kasa/100)*D.Kurs*S.Kolic) DenIznos,
            Sum(S.TrPredCar) TrPredCar,
            Sum(S.Carina*S.Kolic) Carina,
            Sum(S.EdSpedicija*S.Kolic) Spedicija,
            Sum(S.EdBankProviz*S.Kolic) BankProv,
            Sum(S.DrugiTros*S.Kolic) DrTros,
            Sum(S.EdPrelevman*S.Kolic) Prelevman,
            Sum(S.EdPlatDan*S.Kolic) PlatDan,
            Sum(S.EdKalo) Kalo,
            Sum(S.TrPoCar+S.TrPredCar) Tros,
            Sum(S.NabCena*S.Kolic) NabIznos
*/
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevkalksum]'))
drop procedure [dbo].[sp_matstavkioddevkalksum]

Go


CREATE                PROCEDURE sp_MatStavkiOdDevKalkSum
    @Sifra_Nal Smallint = Null,
    @Sifra_Dok Smallint = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(200) = Null,
    @Broj_Nal_Od Int = Null,
    @Broj_Nal_Do Int = Null,
    @Broj_Dok_Od Int = Null,
    @Broj_Dok_Do Int = Null,
    @Datum_Dok_Od Smalldatetime = Null,
    @Datum_Dok_Do Smalldatetime = Null,
--    @Datum_Nal_Od Smalldatetime,
--    @Datum_Nal_Do Smalldatetime,
    @Sifra_Kup     Char(6) = Null,
    @Uces_Od    decimal(6,2) = Null,
    @Uces_Do    decimal(6,2) = Null,
    @PoKojDatum    char(1) = 'D'     -- D - Datum_Dok,      V - Datum_Vnes
AS
    Declare @TipDokKonf smallint
    Select @TipDokKonf = Devk_Tipd_MatFra From Konfig
    Declare @SSQL as VArchar(8000)
    Set @SSQL =  ' SELECT S.Sifra_Oe, D.Sifra_Dok, S.Broj_Kalk, D.KojaVal, V.ImeVal, D.Datum_Dok, D.Kurs, D.ECD, D.Opis, D.Akciza,
            Sum(case S.CenaIznos When  ''N'' Then (S.DevCena*Kolic) Else S.DevCena End) DevIznos,
            Sum(S.DevCena*(1-S.Uces/100)*(1-D.Kasa/100)*D.Kurs*S.Kolic) DenIznos,
            Sum(S.TrPredCar) TrPredCar, Sum(S.Carina*S.Kolic) Carina, Sum(S.EdSpedicija*S.Kolic) Spedicija,
            Sum(S.EdBankProviz*S.Kolic) BankProv, Sum(S.DrugiTros*S.Kolic) DrTros, Sum(S.EdPrelevman*S.Kolic) Prelevman,
            Sum(S.EdPlatDan*S.Kolic) PlatDan, Sum(S.EdKalo) Kalo, Sum(S.TrPoCar+S.TrPredCar) Tros, Sum(S.NabCena*S.Kolic) NabIznos,
                        DO.Sifra_Kup, K.ImeKup
    FROM [DevStavk] S
    INNER JOIN DevKalk D On D.Sifra_Oe=S.Sifra_Oe and D.Broj_Kalk=S.Broj_Kalk AND D.Sifra_Dok=S.Sifra_Dok
        INNER JOIN Dokr DO On DO.Sifra_Oe=S.Sifra_Oe and DO.Broj_Dok=S.Broj_Kalk AND DO.Sifra_Dok=S.Sifra_Dok
    Left Outer Join Komint K On K.Sifra_Kup = DO.Sifra_Kup
        Left Outer Join KrsLista V On V.SImeVal = D.KojaVal '
    If @Sifra_Nal Is Null
        SET @SSQL = @SSQL + 'WHERE 1=1     '
    Else
        SET @SSQL = @SSQL + 'WHERE D.Sifra_Nal=''' + Cast(@Sifra_Nal As Varchar(10)) + ''' '
    If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
       If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
       If @KoiOE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Nal>=''' + Cast(@Broj_Nal_Od As Varchar(35)) + ''' '
       If @Broj_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Nal<=''' + Cast(@Broj_Nal_Do As Varchar(35)) + ''' '
    If @Broj_Dok_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND D.Broj_Dok>=''' + Cast(@Broj_Dok_Od As Varchar(35)) + ''' '
       If @Broj_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND D.Broj_Dok<=''' + Cast(@Broj_Dok_Do As Varchar(35)) + ''' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
        If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
    Else
          Begin
        If @Datum_Dok_Od Is NOT Null
            SET @SSQL = @SSQL + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
           If @Datum_Dok_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
          End
/*    If @Datum_Nal_Od Is NOT Null
           SET @SSQL = @SSQL + 'AND N.Datum_Nal>=''' + Cast(@Datum_Nal_Od As Varchar(35)) + ''' '
       If @Datum_Nal_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND N.Datum_Nal<=''' + Cast(@Datum_Nal_Do As Varchar(35)) + ''' '
*/
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND (Cast(S.Sifra_Oe as char(3)) + Cast(S.Broj_Kalk as char(8))) in (Select (Cast(A.Sifra_Oe as char(3)) + Cast(A.Broj_Kalk as char(8))) From AnFinDok A Where A.Sifra_Kup=''' + @Sifra_Kup + '''
                                And A.Sifra_Dok = ' + cast(@TipDokKonf as varchar(6)) + ') '
--    INNER Join Anfindok A On A.Sifra_Oe=D.Sifra_Oe and A.Broj_Kalk=D.Broj_Kalk and A.Sifra_Dok = ' + cast(@TipDokKonf as varchar(6)) + '
       If @Uces_Od Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces >=''' + Cast(@Uces_Od As Varchar(10)) + ''' '
       If @Uces_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND S.Uces <=''' + Cast(@Uces_Do As Varchar(10)) + ''' '
    Set @SSQL = @SSQL + ' GROUP BY  S.Sifra_Oe, D.Sifra_Dok, S.Broj_Kalk, D.KojaVal, V.ImeVal, D.Datum_Dok, D.Kurs, D.ECD,
                                        D.Opis, D.Akciza, DO.Sifra_Kup, K.ImeKup
                      ORDER BY D.Datum_Dok, S.Sifra_Oe '
print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevkons]'))
drop procedure [dbo].[sp_matstavkioddevkons]

Go


create          PROCEDURE sp_MatStavkiOdDevKons
   @DevKonsID integer
AS
    SELECT S.*,
    K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar,
    K.Carbroj, T.ProcOsn
    FROM [DevStavKons] S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    WHERE S.[DevKonsID]= @DevKonsID
    ORDER BY S.[DevStavKonsID]




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_matstavkioddevnar]'))
drop procedure [dbo].[sp_matstavkioddevnar]

Go

CREATE           PROCEDURE sp_MatStavkiOdDevNar
   @DevNarID integer
AS
    SELECT S.*,
    K.ImeArt, K.ImeArt2, K.Edmera As SEdmera, K.Sifra_Tar,
    K.Carbroj, T.ProcOsn, K.Tezina
    FROM DevNarStavk S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
    WHERE S.DevNarID= @DevNarID
    ORDER BY S.DevNarStID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_maxiddnevnik]'))
drop procedure [dbo].[sp_maxiddnevnik]

Go
CREATE PROCEDURE sp_MaxIDDnevnik
    @MaxIDDnevnik  int = 0 OUTPUT
AS
    SELECT @MaxIDDnevnik = MAX(IDDnevnik) FROM Dnevnik




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_maxrbrzanalog]'))
drop procedure [dbo].[sp_maxrbrzanalog]

Go


CREATE  PROCEDURE sp_MaxRbrZaNalog
    @Sifra_Nal    Smallint,
    @Broj_Nal    int,
    @Max1    int OUTPUT,
    @Max2    int OUTPUT
AS
    SELECT @Max1=MAX(RbrNalog) FROM GStav
    WHERE Sifra_Nal = @Sifra_Nal  AND Broj_Nal = @Broj_Nal
    SELECT @Max2=MAX(V.RbrNalog) FROM FAvtVrski V
    INNER JOIN GStav G ON V.GstID = G.GStID AND
    G.Sifra_Nal = @Sifra_Nal AND G.Broj_Nal = @Broj_Nal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mcsostojbadatum]'))
drop procedure [dbo].[sp_mcsostojbadatum]

Go

CREATE          procedure [dbo].[sp_MCSostojbaDatum]
    @Datum as smalldatetime = null,
    @Sifra_Pat as varchar(10) =  null,
    @Sif_GrPat as varchar(10) = null,
    @Sifra_Kup as char(6) = null
As

    DECLARE @SSQL as varchar(3000)

    create table #Tmp
        (
        Sifra_Pat smallint,
        ImePat varchar(30),
        Sifra_Kup char(6),
        ImeKup varchar(40),
        Sifra_Obj smallint,
        ImeObj varchar(40),
        cDatum_MC char(6),
        Sif_MCPozicija integer,
        ImeMCPozicija nvarchar(50),
        Br_MCLista integer,
        VRednostN integer,
        VrednostC nvarchar(50),
        Datum smalldatetime
        )

    SET @SSQL = '

    SELECT  S.Sifra_Pat, P.ImePat, S.Sifra_Kup, K.ImeKup, S.Sifra_Obj, KO.IMeObj,
                   max(S.cDatum_MC), S.Sif_MCPozicija, KP.ImeMCPozicija, S.Br_MCLista
    FROM         MCStavki AS S
                          LEFT OUTER JOIN MCKatPozicija AS KP ON S.Sif_MCPozicija = KP.Sif_MCPozicija
                          LEFT OUTER JOIN Patnici P ON P.Sifra_Pat = S.Sifra_Pat
                          LEFT OUTER JOIN Komint K ON S.Sifra_Kup = K.Sifra_Kup
                          LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup = S.Sifra_Kup and KO.SIfra_Obj = S.SIfra_Obj
    WHERE        1 = 1 '

    IF @Datum IS NOT NULL
        SET @SSQL = @SSQL + ' AND CAST (''20''+ substring(S.cDatum_MC, 1, 2) + ''-'' + substring(S.cDatum_MC, 3, 2) + ''-'' + substring(S.cDatum_MC, 5, 2) AS SMALLDATETIME) < = '''+cast(@Datum as varchar(35))+''' '
    IF @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(5))+ ' '
    IF (@Sif_GrPat IS NOT NULL)
        SET @SSQL = @SSQL + ' AND S.Sifra_Pat IN (SELECT Sifra_Pat FROM SGrPat WHERE Sif_GrPat = ''' + cast(@Sif_GrPat as varchar(15)) + ''') '

    SET @SSQL = @SSQL + ' GROUP BY  S.Sifra_Pat, P.ImePat, S.Sifra_Kup, K.ImeKup, S.Sifra_Obj, KO.IMeObj, S.Sif_MCPozicija, KP.ImeMCPozicija, S.Br_MCLista '
    SET @SSQL = @SSQL + ' ORDER BY  S.Sifra_Pat, P.ImePat, S.Sifra_Kup, S.Sifra_Obj, S.Sif_MCPozicija, S.Br_MCLista '


    insert into #Tmp(Sifra_Pat, ImePat, Sifra_Kup, ImeKup,Sifra_Obj,ImeObj, cDatum_MC,Sif_MCPozicija,ImeMCPozicija, Br_MCLista)
    EXEC(@SSQL)

    update #Tmp set Datum = M.Datum, VrednostN = M.VrednostN, VrednostC = M.VrednostC from MCStavki M
    where #Tmp.Sifra_Pat = M.Sifra_Pat and #Tmp.Sifra_Kup = M.Sifra_Kup and #Tmp.Sifra_Obj = M.Sifra_Obj and #Tmp.cDatum_MC = M.cDatum_MC and #Tmp.Sif_MCPozicija = M.Sif_MCPozicija and #Tmp.Br_MCLista = M.Br_MCLista

    select * from #Tmp

    return @@error













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mesecizvreal]'))
drop procedure [dbo].[sp_mesecizvreal]

Go




CREATE         PROCEDURE [dbo].[sp_MesecIzvReal]
    @DatOd        smalldatetime,
    @DatDo        smalldatetime,
    @Sifra_Pat    smallint = Null,
    @Sif_GrPat    char(6) = Null,
    @Dev        char(1),
    @Kurs_EUR    decimal(18,6),
    @PrikaziPo    char(1) = 'P',    -- P - Patnik, A - Artikal, U - Upravnik, Z - Po Zemji (Drzavi), D - Podelba 1, K - Komintent
    @TipDokProd    varchar(200) = '1,3,6,7,16,131'

 AS

    DECLARE @SSQL varchar(8000)

    If @PrikaziPo = 'A'
        Set @SSQL = ' SELECT Null Sifra_Oe, Null ImePat, '
    Else If @PrikaziPo = 'U'
        Set @SSQL = ' SELECT (Case When IsNumeric(K.Lokacija)=1 Then K.Lokacija Else Null End) as Sifra_Oe, U.ImeOrg as ImePat, '
    Else If @PrikaziPo = 'Z'
        Set @SSQL = ' SELECT Kup.KDrugo1 as Sifra_Oe, K1.Ime_1K as ImePat, '
    Else If @PrikaziPo = 'K'
        Set @SSQL = ' SELECT D.Sifra_Kup as Sifra_Oe, Kup.ImeKup as ImePat, '
    Else
        Set @SSQL = ' SELECT D.Sifra_Pat Sifra_Oe, PAT.ImePat, '
--Round(SUM(S.Kolic * (Case When S.DanDokCena = ''D'' Then S.DokCena / (1 + (S.POsn/100)) * (1-(S.Uces/100))  Else S.DokCena * (1-(S.Uces/100)) End) / ' + CAST(@Kurs_EUR as varchar(18)) + '), 4) NetoProd,
    Set @SSQL = @SSQL + ' K.Drugo1, DR.Ime_1, S.Sifra_Art, K.ImeArt,
                Round(SUM(S.Kolic * K.Tezina / 1000), 4) ProdKolic,
                Round(SUM(S.Kolic * (Case When S.DanDokCena = ''D'' Then S.DokCena / (1 + (S.POsn/100)) * (1-(S.Uces/100))  Else S.DokCena * (1-(S.Uces/100)) End) / ' + CAST(@Kurs_EUR as varchar(18)) + '), 4) NetoProd,
                (C.Cena_Surovini + C.Cena_Energ + C.Cena_Amort + C.Cena_Plata + C.Cena_Dr) DirTrosArt,
                Round(Sum(S.Kolic * (Case When S.DanDokCena = ''D'' Then S.DokCena / (1 + (S.POsn/100)) * (S.Uces/100)  Else S.DokCena * (S.Uces/100) End) / ' + CAST(@Kurs_EUR as varchar(18)) + '), 4) NetoRabat,
                Null ProsProdCena
            FROM    Stavr S
            INNER JOIN TipDok TD ON TD.Sifra_Dok = S.Sifra_Dok
            INNER JOIN Dokr D ON D.DokrID=S.DokrID
            INNER JOIN KatArt K ON S.Sifra_Art = K.Sifra_Art
            LEFT OUTER JOIN Drugo1 DR ON DR.Sifra_1 = K.Drugo1
            LEFT OUTER JOIN CenNabPoArt C ON C.Sifra_Art = K.Sifra_Art And C.Godina=Year(S.Datum_Dok) And C.Mesec=Month(S.Datum_Dok)
            LEFT OUTER JOIN Patnici PAT ON PAT.Sifra_Pat = D.Sifra_Pat '
    IF @PrikaziPo = 'U'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN Orged U On U.Sifra_Oe=(Case When IsNumeric(K.Lokacija)=1 Then K.Lokacija Else Null End)  '
    IF @PrikaziPo = 'Z'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
                        LEFT OUTER JOIN KDrugo1 K1 On K1.Sifra_1K = Kup.KDrugo1 '
    IF @PrikaziPo = 'K'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '
    SET @SSQL = @SSQL + '  WHERE D.Sifra_Za = ''1'' AND S.VlIzl = ''I'' And K.SmatUsl <> ''U'' '
--                           And D.Sifra_Dok in (1,3,6,7,16,131)'

    IF @DatOd IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Datum_Dok >= ''' + CAST(@DatOd as varchar(30)) + ''' '   --AND ' + ' dbo.fn_NapraviDatum(C.Godina, C.Mesec, 1) >= ''' + CAST(@DatOd as varchar(30)) + ''''
    IF @DatDo IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Datum_Dok <= ''' + CAST(@DatDo as varchar(30)) + ''' '   --AND ' +' dbo.fn_NapraviDatum(C.Godina, C.Mesec, 1) <= ''' + CAST(@DatDo as varchar(30)) + ''''
    IF @Sif_GrPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat IN (SELECT Sifra_Pat FROM SGrPat WHERE Sif_GrPat = ''' + @Sif_GrPat + ''')'
    IF @Sifra_Pat Is Not Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    IF @Dev IS NOT NULL
        SET @SSQL = @SSQL + ' AND TD.Dev = ''' + @Dev + ''''
    IF @TipDokProd Is Not Null
        SET @SSQL = @SSQL + ' AND D.Sifra_Dok In (' + @TipDokProd + ') '



    SET @SSQL = @SSQL + ' GROUP BY '
    IF @PrikaziPo = 'A'
        SET @SSQL = @SSQL + ' '
    Else IF @PrikaziPo = 'U'
        SET @SSQL = @SSQL + ' (Case When IsNumeric(K.Lokacija)=1 Then K.Lokacija Else Null End), U.ImeOrg, '
    Else If @PrikaziPo = 'Z'
        SET @SSQL = @SSQL + ' Kup.KDrugo1, K1.Ime_1K, '
    Else If @PrikaziPo = 'K'
        Set @SSQL = @SSQL + ' D.Sifra_Kup, Kup.ImeKup, '
    Else
        SET @SSQL = @SSQL + ' D.Sifra_Pat, PAT.ImePat, '
    Set @SSQL = @SSQL + ' K.Drugo1, DR.Ime_1, S.Sifra_Art, K.ImeArt,
                (C.Cena_Surovini + C.Cena_Energ + C.Cena_Amort + C.Cena_Plata + C.Cena_Dr) '


    print(@SSQL)
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mozedelumenotpis]'))
drop procedure [dbo].[sp_mozedelumenotpis]

Go
CREATE PROCEDURE sp_MozeDelumenOtpis
    @Inv_Broj char(10),
    @Delov_God smallint
AS
    Select (Osn_amor-Otpis_pret) VredPocGod
    From PocSostOsn
    Where Inv_Broj=@Inv_Broj and Godina=@Delov_GOd



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nab_pooe]'))
drop procedure [dbo].[sp_nab_pooe]

Go

CREATE     PROCEDURE sp_Nab_PoOE
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(300) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Pod6 Smallint = Null,
    @Pod7 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Char(11) = Null,
    @Sifra_Brand Smallint = Null,
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi Varchar(200) = Null,
    @Koi_Regioni Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @PocnuvaSo    char(1) = 'N',        -- Se Odnesuva na podgrupite    D, N      (Povrzano e so @Sifra_Podg)
    @GrKup     varchar(500) = Null,
    @GrArt        varchar(500) = Null

AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--select * from #tsostav
-- Sega #tSostav e poln so Sostavnici i so fiktivni sostavnici

    If @GrKup Is Not Null
    Begin
    CREATE   Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KO.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KO On GK.Sifra_Kup = KO.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQL)

        Set @SSQL = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQL)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

    If @GrArt Is Not Null
    Begin
        Create Table #GrArt
        (
            Sifra_Art    varchar(20)
        )
        Create NonClustered Index IX_Art On #GrArt (Sifra_Art)

        Set @SSQL = 'Insert Into #GrArt Select DISTINCT Sifra_Art From SGrArt Where Sif_GrArt In (' + @GrArt + ') '
        Exec(@SSQL)
    End

--------------------------------------------------------------
    Set @SSQL = 'Select S.Sifra_OE, O.ImeOrg,
            Count(Distinct(S.DokrID)) As Br_Fri,
            Count(Distinct(S.DokID)) As Br_Stavki,
            Count(Distinct(D.Sifra_Kup)) As Br_Komint,
            Round(Avg(S.Kolic), 4) As Pros_Kolic,
            Round(Avg(S.DokCena), 4) As Pros_Cena,
            Round(Avg(K.GotCena), 4) As Pros_NPS,
            Round(Sum(S.Kolic*TS.Ima_Kolic*dbo.fix_BrandKolic(K.KolkuDrg)), 4) UL_Edinici,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn)), 4) as DVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as DVr_Krajna,
            Round(Sum(dbo.fn_vr_osnov  (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn)), 4) as MVr_Osnov,
            Round(Sum(dbo.fn_vr_sorabat(S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0, 0)), 4) as MVr_SoRabat,
            Round(Sum(dbo.fn_vr_krajna (S.Kolic*TS.Ima_Kolic, S.MagCena*TS.Cena/TS.VkCena, S.DanMagCena, S.POsn, 0,0)), 4) as MVr_Krajna,
            Round(Sum(S.Kolic*TS.Ima_Kolic*K.GotCena), 4) Vk_NPS
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Dokr D On S.DokrID=D.DokrID
        Inner Join Orged O On D.Sifra_OE=O.Sifra_OE '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Pod6 Is Not Null) Or (@Pod7 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=D.Sifra_Kup
                        And (Case When D.Sifra_Obj Is Not Null Then D.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
    If @GrArt Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #GrArt GA On GA.Sifra_Art=K.Sifra_Art '
    Set @SSQL = @SSQL + 'Where D.VlIzl=''V'' And D.Sifra_Za=2 And K.Iskluci <> ''D'' '
    If @Sifra_Brand Is Not Null
        Set @SSQL  = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(5)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo ='D'
            Set @SSQL=@SSQL+'AND (K.Sifra_Podg Like  ''' + Rtrim(@Sifra_Podg) + '%'') '
        Else
            Set @SSQL=@SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
--    If @Sifra_Podg Is Not NULL
--        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @KoiOE + ') '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
        Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Pod6 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')
                      Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Pod6 As Varchar(6)) + ')) '
           End
    If @Pod7 Is Not NULL
           Begin
        Set @SSQL = @SSQL + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')
                      Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Pod7 As Varchar(6)) + ')) '
           End
--    If @Pod5 Is Not NULL
--        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + 'And KUP.TipKup=''' + @TipKup + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_OE, O.ImeOrg '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By S.Sifra_OE '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By O.ImeOrg '
    Else If @Podred = '1'
        Set @SSQL = @SSQL + 'Order By Br_Fri Desc '
    Else If @Podred = '2'
        Set @SSQL = @SSQL + 'Order By UL_Edinici Desc '
    Else If @Podred = '3'
        Set @SSQL = @SSQL + 'Order By MVr_Krajna Desc, DVr_Krajna Desc '
    Exec(@SSQL)
    Set Nocount Off


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nab_voizlnamalo]'))
drop procedure [dbo].[sp_nab_voizlnamalo]

Go
CREATE   PROCEDURE sp_Nab_VoIzlNaMalo
AS
    Update Stavr
    Set NabCena=(Select Nabavna From Katart Where Stavr.Sifra_Art=Katart.Sifra_Art)/(1+POsn/100),  RNabC='D'
    Where (RNabC Is Null Or RNabC<>'D')  And VlIzl='I'
      And Sifra_OE In (Select Sifra_OE From Orged Where GolMal='M' Or Sifra_OE=301 or sifra_OE=102)
    Update Stavr Set RNabC = 'X'  Where NabCena = 0  And VlIzl='I'
      And Sifra_OE In (Select Sifra_OE From Orged Where GolMal='M' Or Sifra_OE=301 or sifra_oe=102)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nabavki]'))
drop procedure [dbo].[sp_nabavki]

Go
CREATE     PROCEDURE sp_Nabavki
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(100) = Null,
    @Pod1 Smallint = Null,
    @Pod2 Smallint = Null,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred Char(1) = 'S',
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Char(11) = Null,
    @Sifra_Brand Smallint = Null,
    @RazbijSostav Char(1) = 'N',
    @Koi_Gradovi Varchar(200) = Null,
    @Koi_Regioni Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null
AS
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set Nocount On
    Declare @SSQL Varchar(8000)
    CREATE    Table #tSostav
    (    Sifra_Art Varchar(20),
        Sifra_Sur Varchar(20),
        Ima_Kolic Decimal(18,6),
        Cena Decimal(18,6),
        VkCena Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
--------------------------------------------------------------
    Set @SSQL = 'Select K.Sifra_Art, K.ImeArt, K.EdMera, T.ProcOsn, K.DogCena,
            K.Sifra_Podg, P.Ime_Podg, G.Sifra_Gr, G.Ime_Gr,
            Sum(Kolic) Kolic, Round(Sum(S.Kolic*TS.Ima_Kolic * S.NabCena), 4) as NabVredBezDDV
        From #tSostav TS
        Inner Join Stavr S On TS.Sifra_Art=S.Sifra_Art
        Inner Join KatArt K ON TS.Sifra_Sur=K.Sifra_Art
        Inner Join Tarifi T ON T.Sifra_Tar = K.Sifra_Tar
        Inner Join Dokr D On S.DokrID=D.DokrID
        Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg
        Inner Join Grupi G ON P.Sifra_Gr = G.Sifra_Gr '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
        Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where D.VlIzl=''V'' And D.Sifra_Za=2 And K.Iskluci <> ''D'' '
    If @Sifra_Brand Is Not Null
        Set @SSQL  = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(5)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQL = @SSQL + 'And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @KoiOE + ') '
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And KUP.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not Null
        SET @SSQL = @SSQL +' AND KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + 'And KUP.TipKup=''' + @TipKup + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Group By K.Sifra_Art, K.ImeArt, K.EdMera, T.ProcOsn, K.DogCena,K.Sifra_Podg, P.Ime_Podg, G.Sifra_Gr, G.Ime_Gr '
    If @Podred = 'S'
        Set @SSQL = @SSQL + 'Order By K.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + 'Order By K.ImeArt '
    Exec(@SSQL)
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nabcenaodkatart]'))
drop procedure [dbo].[sp_nabcenaodkatart]

Go
CREATE  PROCEDURE sp_NabCenaOdKatArt
    @Sifra_art   varchar(20),
    @NabCenaBezDDV   decimal(18,2)  OUTPUT,
    @NabCenaSoDDV   decimal(18,2)  OUTPUT
 AS
    SELECT @NabCenaBezDDV = Round(K.Nabavna, 2), @NabCenaSoDDV = Round(K.Nabavna *(1+ T.ProcOsn/100), 2)
    FROM KatArt K
    INNER JOIN Tarifi T ON K.Sifra_Tar = T.Sifra_Tar
    WHERE K.Sifra_Art = @Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nabceni_fifo]'))
drop procedure [dbo].[sp_nabceni_fifo]

Go
CREATE     PROCEDURE sp_NabCeni_Fifo
    @PocDatum Smalldatetime,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @Sifra_Art Varchar(20)
    Declare @NCID Int
    Declare @VkVlez Decimal(18,4)
    Declare @NabCena Decimal(18,4)
    Declare @DokID Int
    Declare @Izlez Decimal(18,4)
    Declare @Kumul Decimal(18,4)
    Declare @tRec Int
    Declare @tNabavni Int
    Declare @SegaVlez Decimal(18,4)
    Create Table #NabCeni
    (    NCID Int IDENTITY(1, 1),
        Sifra_Art Varchar(20),
        Kolic Decimal(18, 4),
        NabCena Decimal(18, 4),
        Datum_Dok Smalldatetime
    )
    Declare Artikli Cursor Fast_Forward For
        Select Distinct Sifra_Art From Stavr
    Open Artikli
    Fetch Next From Artikli Into @Sifra_Art
    While @@Fetch_Status = 0
    Begin
        Insert #NabCeni
        Select Sifra_Art, Kolic, NabCena, Datum_Dok
        From Stavr
        Where Sifra_Dok  In (132, 15)
            And Sifra_OE  = 1
            And Sifra_Art = @Sifra_Art
            And Datum_Dok>= @PocDatum
            And Kolic    <> 0
        Union Select Sifra_Art, Kolic, NabCena, '2003-01-01'
        From PocCeni
        Where Sifra_Art = @Sifra_Art
        Order By Datum_Dok
        Set @tRec = @@RowCount
        If @tRec>0    --Imam nabavki za ovaj Artikl
            Begin
                Declare Stavki Cursor For
                    Select DokID, Kolic From Stavr
                        Where Sifra_Art   = @Sifra_Art
                            And Sifra_OE  In (Select Sifra_OE From SGrOrg Where Sif_GrOrg='9')
                            And VlIzl      = 'I'
                            And (ImaDodatna Is Null Or ImaDodatna = '')
                            And Datum_Dok >= @PocDatum
                            And Kolic     <> 0
                        Order By Datum_Dok
                Open Stavki
                Fetch Next From Stavki
                Into @DokID, @Izlez
                Set @VkVlez = 0
                Set @Kumul = 0
                Set @Nabcena = 0
                While 1=1    --Istrcaj go kursorot so prodazbi za ovaj Artikl
                Begin
                    If @@Fetch_Status <> 0    --Nema prodazba
                        Begin
                            Close Stavki
                            Deallocate Stavki
                            Break
                        End
                    Else    --@@Fetch_Status=0 => Ima Prodazba, pa da istrcame
                        Begin
                            While @VkVlez<@Izlez Or @VkVlez<=0
                            Begin
                                Select @tNabavni=Count(*) From #NabCeni
                                If @tNabavni > 0
                                    Begin
                                        Select Top 1 @NCID=NCID, @SegaVlez=Kolic, @NabCena=NabCena
                                        From #NabCeni
                                        Order By Datum_Dok
                                        Delete #NabCeni Where NCID=@NCID
                                    End
                                Else
                                    Break
                                Set @Kumul = @Kumul + @SegaVlez*@NabCena
                                Set @VkVlez = @VkVlez + @SegaVlez
                            End
                            If @VkVlez<>0
                                Set @NabCena = @Kumul/@VkVlez
                            If @Nabcena < 0
                                Set @Nabcena = 0
                            Update Stavr Set NabCena=@NabCena
                            Where DokID=@DokID
                            Set @Kumul = @Kumul - (@Izlez*@NabCena)
                            Set @VkVlez = @VkVlez - @Izlez
                            Fetch Next From Stavki
                            Into @DokID, @Izlez
                            If @@Fetch_Status <> 0
                                Begin
                                    Close Stavki
                                    Deallocate Stavki
                                    Break
                                End
                        End
                End    --Za kursorot so prodazbi za ovaj Artikl
                --Zavrsivme so ovoj artikl, pa cistime gjubre
                --i zemame nov
                Truncate Table #NabCeni
                Fetch Next From Artikli Into @Sifra_Art
            End --If @@RowCount>0
        Else    --Nemam nabavki za ovaj Artikl
            Begin
                Print 'Ne najdov niedna nabavna cena za ovaj artikl'
                Print 'Sifra_Art='+ @Sifra_Art
                Fetch Next From Artikli Into @Sifra_Art
            End
    End    --Za Kursorot so Artikli
    Close Artikli
    Deallocate Artikli



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nagraduvanje_komerc_et]'))
drop procedure [dbo].[sp_nagraduvanje_komerc_et]

Go



CREATE           PROCEDURE sp_Nagraduvanje_Komerc_ET
    @Sifra_Pat    int = Null,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @SoStavki    char(1) = 'N',
    @KomercKako    char(1) = 'T',       -- I - Istoriski od Dokr,    T - tekovno od komint
    @TipDokKgr    varchar(200) = '6,29,606,629',
    @DenariPoKgr    decimal(9,2) = 1,
    @ProcentNapl    decimal(9,2) = 0
AS
    Declare @SSQL        Varchar(4000)
    Create Table #Uplati
    (
     AnIDUpl    int,
     PlatenDel    decimal(18,6),
     SifOeFak    smallint,
     SifDokFak    smallint,
     BrDokFak    int,
     DolziFak    decimal(18,6),
     ProcZatv    decimal(9,2)
    )
    Set @SSQL = ' Select A.AnID, AZ.Iznos, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, F.Dolzi, 0
            FROM AnFinDok A
            Inner Join AnZatv AZ On AZ.AnID1=A.AnID
            Inner Join AnFinDok F On F.AnID=AZ.ANID2
            INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ''2''
            INNER JOIN TipDok TDF ON F.Sifra_Dok=TDF.Sifra_Dok And TDF.DaliMater = ''D''
            Where A.Sifra_Za=1 '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Insert Into #Uplati Exec(@SSQL)

    Set @SSQL = ' Select A.AnID, AZ.Iznos, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, F.Dolzi, 0
            FROM AnFinDok A
            Inner Join AnZatv AZ On AZ.AnID2=A.AnID
            Inner Join AnFinDok F On F.AnID=AZ.ANID1
            INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ''2''
            INNER JOIN TipDok TDF ON F.Sifra_Dok=TDF.Sifra_Dok And TDF.DaliMater = ''D''
            Where A.Sifra_Za=1 '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Insert Into #Uplati Exec(@SSQL)

    Update #Uplati Set ProcZatv=Round((PlatenDel/DolziFak), 2) Where DolziFak > 0

    Create Table #UplPoDok
    (
     DokrID        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Kup    char(6),
     Sifra_Pat    int,
     VkKolic        decimal(18,6),      -- Vkupno kolicina na dokumentot za onie dokumenti kaj koi nagraduvanjto GO zemame spored kolicinata
--     PlatKolic    decimal(18,6),      -- platena kolicina od dokumentot za onie dokumenti kaj koi nagraduvanjto GO zemame spored kolicinata
     IznosUplata    decimal(18,6),      -- iznos na uplata za dokumentite za onie dokumenti kaj koi nagraduvanjeto NE GO zemame spored kolicinata
     ProcZatv    decimal(9,2)      -- procent na uplaten del od dokumentot
--     NagradaKomerc decimal(18,6)
    )

    Set @SSQL = ' Select S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, D.Sifra_Kup, '
    If @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Pat.Sifra_Pat, ' --(Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End), '
    Else
        Set @SSQL = @SSQL + ' D.Sifra_Pat, '
    Set @SSQL = @SSQL + ' Sum(S.Kolic) VkKolic, U.PlatenDel, U.ProcZatv
        From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrID
        Inner Join #Uplati U On U.SifOeFak=S.Sifra_Oe And U.SifDokFak=S.Sifra_Dok And U.BrDokFak=S.Broj_Dok
        Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join Patnici Pat On Pat.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End)
        Where D.Sifra_Za=1 '
    If @TipDokKgr Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @TipDokKgr + ') '
    If @Sifra_Pat Is Not Null
        If @KomercKako = 'T'
            Set @SSQL = @SSQL + ' And Pat.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, U.ProcZatv, U.PlatenDel, D.Sifra_Kup, '
    If @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Pat.Sifra_Pat  '
    Else
        Set @SSQL = @SSQL + ' D.Sifra_Pat '
    Insert Into #UplPoDok Exec(@SSQL)

    Set @SSQL = ' Select S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, D.Sifra_Kup, '
    If @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Pat.Sifra_Pat, ' --(Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End), '
    Else
        Set @SSQL = @SSQL + ' D.Sifra_Pat, '
    Set @SSQL = @SSQL + ' 0 as VkKolic, U.PlatenDel, U.ProcZatv
        From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrID
        Inner Join #Uplati U On U.SifOeFak=S.Sifra_Oe And U.SifDokFak=S.Sifra_Dok And U.BrDokFak=S.Broj_Dok
        Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Left Outer Join Patnici Pat On Pat.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else Kup.Sifra_Pat End)
        Where D.Sifra_Za=1 '
    If @TipDokKgr Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok Not In (' + @TipDokKgr + ') '
    If @Sifra_Pat Is Not Null
        If @KomercKako = 'T'
            Set @SSQL = @SSQL + ' And Pat.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, U.ProcZatv, U.PlatenDel, D.Sifra_Kup, '
    If @KomercKako = 'T'
        Set @SSQL = @SSQL + ' Pat.Sifra_Pat  '
    Else
        Set @SSQL = @SSQL + ' D.Sifra_Pat '
    Insert Into #UplPoDok Exec(@SSQL)

    If @SoStavki = 'D'
        Set @SSQL = ' Select U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok,  '
    Else
        Set @SSQL = ' Select Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok,  '
    Set @SSQL = @SSQL + ' U.Sifra_Pat, P.ImePat, '
    If @SoStavki = 'D'     Set @SSQL = @SSQL + ' U.Sifra_Kup, KOM.ImeKup, '
    Set @SSQL = @SSQL + ' Sum(Case When U.VkKolic<>0 Then (U.VkKolic*U.ProcZatv) Else 0 End) NaplateniKgr,
            Sum(Case When U.VkKolic<>0 Then (U.VkKolic*U.ProcZatv*' + Cast(@DenariPoKgr as varchar(10)) + ') Else 0 End) NagradaZaKgr,
            Sum(Case When U.VkKolic=0 And IznosUplata <> 0 Then (U.IznosUplata*U.ProcZatv) Else 0 End) NaplateniFakturi,
            Sum(Case When U.VkKolic=0 And IznosUplata <> 0 Then (U.IznosUplata*U.ProcZatv*' + Cast(@ProcentNapl as varchar(10)) + '/100) Else 0 End) NagradaZaFakturi
        From #UplPoDok U
        Left Outer Join Patnici P On P.Sifra_Pat = U.Sifra_Pat '
    If @SoStavki = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Komint KOM On KOM.Sifra_Kup = U.Sifra_Kup
        Group By U.Sifra_Pat, P.ImePat, U.Sifra_Kup, KOM.ImeKup, U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok'
    ELSE
        Set @SSQL = @SSQL + ' Group By U.Sifra_Pat, P.ImePat '
print (@ssql)
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nagraduvanje_komerc_poart]'))
drop procedure [dbo].[sp_nagraduvanje_komerc_poart]

Go
CREATE        PROCEDURE sp_Nagraduvanje_Komerc_PoArt
    @Sifra_Pat    int = Null,
    @Datum_Dok_Od Smalldatetime = NULL,
    @Datum_Dok_Do Smalldatetime = NULL,
    @SoStavki    char(1) = 'N',
    @EkstraBonus3    char(1) = 'D',    -- za SwissLion Mak - za komintentite koi ne spagaat vo podelba 3 sifra 1 treba da se dade ekstra rabat
    @EkstraBonusProc smallint = 30,  -- procent na ekstra bonus
    @Sifra_OE    Smallint = NULL,
    @KoiOe    varchar(10) = Null,
    @Koi_Gradovi     varchar(300) = Null
--    @VratiPod    Char(1) = 'O',        --U-po Uplata, D-Detalno po zatvoranja, P-po Patnici, K-po Komint, O-po Organizacioni edinici,  I-Detalno po fakturi i zatvaranja, X-plateno pred/po rok+neplateno
--    @KoiUpl    Char(1) = 'S',        --S-Site, N-samo Neplateni, P-samo PLATENI,      D - Delimicno plateni
--    @KomercKako    char(1) = 'I',                -- I -  Istoriski od AnFinDok,       T - Tekovno od Komint
--    @Fra_Uplata    char(1) = '2',        -- 1- Faktupa,    2 - Uplata
AS
    Declare @SSQL        Varchar(4000)
    Create Table #Uplati
    (
     AnIDUpl    int,
     PlatenDel    decimal(18,6),
     SifOeFak    smallint,
     SifDokFak    smallint,
     BrDokFak    int,
     DolziFak    decimal(18,6),
     ProcZatv    decimal(9,2)
    )

    Set @SSQL = ' Select A.AnID, AZ.Iznos, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, F.Dolzi, 0
            FROM AnFinDok A
            Inner Join AnZatv AZ On AZ.AnID1=A.AnID
            Inner Join AnFinDok F On F.AnID=AZ.ANID2
            INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ''2''
            INNER JOIN TipDok TDF ON F.Sifra_Dok=TDF.Sifra_Dok And TDF.DaliMater = ''D''
            Where A.Sifra_Za=1 '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Insert Into #Uplati Exec(@SSQL)

    Set @SSQL = ' Select A.AnID, AZ.Iznos, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, F.Dolzi, 0
            FROM AnFinDok A
            Inner Join AnZatv AZ On AZ.AnID2=A.AnID
            Inner Join AnFinDok F On F.AnID=AZ.ANID1
            INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok And TD.TipDok= ''2''
            INNER JOIN TipDok TDF ON F.Sifra_Dok=TDF.Sifra_Dok And TDF.DaliMater = ''D''
            Where A.Sifra_Za=1 '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    Insert Into #Uplati Exec(@SSQL)

    Update #Uplati Set ProcZatv=Round((PlatenDel/DolziFak), 2) Where DolziFak > 0

    Create Table #UplPoArt
    (
     DokrID        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Art    varchar(20),
     IznosPoArt    decimal(18,6),
     ProcZatv    decimal(9,2),
     UplPoArt    decimal(18,6)
    )
    Set @SSQL = ' Select S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_Art,
            Sum(S.Kolic * S.DokCena * (1-S.Uces/100) * (1-D.Kasa/100)) IznosPoArt,
            U.ProcZatv, Sum((S.Kolic * S.DokCena * (1-S.Uces/100) * (1-D.Kasa/100)) * U.ProcZatv) UplPoArt
        From Dokr D
        Inner Join Stavr S On S.DokrID=D.DokrID
        Inner Join #Uplati U On U.SifOeFak=S.Sifra_Oe And U.SifDokFak=S.Sifra_Dok And U.BrDokFak=S.Broj_Dok
        Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup=D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
        Where D.Sifra_Za=1 '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOe + ''') '
    If @Koi_Gradovi Is Not NULL
         Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
                    OR ( KO.Sifra_Grad Is Null and Kup.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
    Set @SSQL = @SSQL + ' Group By S.DokrID, S.Sifra_Oe, S.Sifra_Dok, S.Broj_Dok, S.Sifra_Art, U.ProcZatv '
    Insert Into #UplPoArt Exec(@SSQL)

/*            Round(Sum(Case When K.Drugo1 = 1 Then (UplPoArt * 0.4/100) Else 0 End), 4) Proc04,
            Round(Sum(Case When K.Drugo1 = 2 Then (UplPoArt * 0.52/100) Else 0 End), 4) Proc052,
            Round(Sum(Case When K.Drugo1 = 3 Then (UplPoArt * 0.65/100) Else 0 End), 4) Proc065,
            Round(Sum(Case When K.Drugo1 = 4 Then (UplPoArt * 0.80/100) Else 0 End), 4) Proc080
*/
    If @SoStavki = 'D'
        Set @SSQL = ' Select U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok, U.Sifra_Art, K.ImeArt, '
    Else
        Set @SSQL = ' Select Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, Null Sifra_Art, Null ImeArt, '
    Set @SSQL = @SSQL + ' D.Sifra_Pat, P.ImePat,
            Sum(U.IznosPoArt) IznosPoArt,
            Sum(U.UplPoArt) IznosNaplataPoArt,
            Round(Sum(UplPoArt * D3.Tezina/100), 4) Nagrada,
            D3.Tezina ProcNagraduv, '
    If @EkstraBonus3 = 'D' And @EkstraBonusProc <> 0
        Set @SSQL = @SSQL + ' Round(Sum(Case When Kup.KDrugo3 = 1 Then 0 Else (UplPoArt * D3.Tezina/100 * ' + Cast(@EkstraBonusProc as varchar(6)) + '/100) End), 4)  EkstraNagrada '
    Else
        Set @SSQL = @SSQL + ' 0 as EkstraNagrada '
    Set @SSQL = @SSQL + ', kup.kdrugo3 From #UplPoArt U
        Inner Join Dokr D On D.DokrID = U.DokrID
        Inner Join Katart K On K.Sifra_Art = U.Sifra_Art
        Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
        Left Outer Join Patnici P On P.Sifra_Pat = D.Sifra_Pat
        Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
        Group By D.Sifra_Pat, P.ImePat, D3.Tezina, kup.kdrugo3 '
    If @SoStavki = 'D'
        Set @SSQL = @SSQL + ' , U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok, U.Sifra_Art, K.ImeArt '
print @SSQL
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nagraduvanje_komercijalisti]'))
drop procedure [dbo].[sp_nagraduvanje_komercijalisti]

Go





CREATE                  PROCEDURE sp_Nagraduvanje_Komercijalisti
    @Sifra_Pat    int = Null,
    @Sif_GrOrg    char(6) = Null,
    @Mesec    smallint = Null,
    @Godina    smallint = Null,
    @SoStavki    char(1) = 'N'
AS
    Declare @SSQL as varchar(8000)
    Create Table #Komerc
    (
     Sifra_Pat    int,
     ImePat        varchar(40),
     PlanRC        decimal(18,4),
     OstvRC    decimal(18,4),
     NaplRC    decimal(18,4),
     TenderiRC    decimal(18,4),
     PobarNad60d    decimal(18,4),
     GodRabat    decimal(18,4),
     NeisplGodRab    decimal(18,4),        --vo ova pole od 02.06.09 se staveni povrat.16
     FinOdobr    decimal(18,4),
     FinOdobrDr    decimal(18,4),
     FinOdobr10    decimal(18,4),
     FinOdobr3    decimal(18,4),
     Trosoci        decimal(18,4),
     GodOdmor    decimal(18,4),
     CistaRC    decimal(18,4),
     ProcNagrad    decimal(6,2),
     OsnovnaPlata decimal(18,2)
    )
    Set @SSQL = ' Select Sifra_Pat, ImePat, ProcNagr, OsnovnaPlata, 0, 0 From Patnici Where 1=1 '
    If @Sifra_Pat Is Not Null
        Set @SSQL=@SSQL + ' And Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
    IF @Sif_GrOrg IS NOT NULL
        Set @SSQL=@SSQL + ' And Sifra_Pat IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=''' + @Sif_GrOrg + ''') '
    Insert Into #Komerc(Sifra_Pat, ImePat, ProcNagrad, OsnovnaPlata, GodRabat, FinOdobrDr) Exec(@SSQL)
    Create Table #Tab
    (
     Sifra_Pat    int,
     Iznos        decimal(18,4)
    )
    If @SoStavki = 'D'
        Create Table #Stavki
        (
         Stavka        smallint,
         Sifra_Pat    int,
         Sifra_Oe    smallint,
         Sifra_Dok    smallint,
         Broj_Dok    int,
         Datum_Dok    smalldatetime,
         Iznos        decimal(18,4),
         Sifra_Kup    char(6)
        )
    --------------------------------------------- 2. Planirana razlika vo cena -------------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select Sifra_OE, Plan_Kol From PlanMes
                 Where ImePlan=''RAZLC'' AND Godina= ' + Cast(@Godina as varchar(4)) + '
                    And Mesec= ' + Cast(@Mesec as varchar(2)) + ' '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And Sifra_OE = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set PlanRC = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = ' Select 2 as Stavka, Null, Null, Null, Null, P.Sifra_Pat, P.PlanRC
                From NekojPlan P
                Where P.Godina= ' + Cast(@Godina as varchar(4)) + '
                    And P.Mesec= ' + Cast(@Mesec as varchar(2)) + ' '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And P.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
    --    Insert Into #Stavki Exec(@SSQL)
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------- 3. Ostvarena razlika vo cena -------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select D.Sifra_Pat,
                Round(Sum((dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)-S.NabCena)*S.Kolic), 2) Iznos
                From Dokr D
                Inner Join Stavr S On S.DokrID=D.DokrID
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.VlIzl=''I'' AND D.Sifra_Za=1 '
                    --And D.Sifra_Dok In (1, 71, 73, 81, 82, 83, 84, 19) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set OstvRC = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
/*    Else
    Begin
        Set @SSQL = ' Select 3 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Round(Sum((dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)-S.NabCena)*S.Kolic), 2) Iznos, D.Sifra_Kup
                From Dokr D
                Inner Join Stavr S On S.DokrID=D.DokrID
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok In (1, 71, 73, 81, 82, 83, 84) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By  D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End          */
    ---------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------- 3. Naplatena razlika vo cena -------------------------------------------------   SEGA PO NOVO od 10.10.06
    CREATE TABLE #TmpRazlC
    (Sifra_Pat    smallint,
    DokrID        int,
    Sifra_Oe    smallint,
    Sifra_Dok    smallint,
    Broj_Dok    int,
    Datum_Dok    smalldatetime,
    Toc200        decimal(18,2),
    RazlCena    decimal(18,2),
    Sifra_Kup    char(6),
    Izn_Naplat    decimal(18,2))
    Set @SSQL = ' Select D.Sifra_Pat, D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Toc200,
            Round(Sum((dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)-S.NabCena)*S.Kolic), 2) Iznos, D.Sifra_Kup,0
            From Dokr D
            Inner Join Stavr S On S.DokrID=D.DokrID
            Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                And D.Sifra_Dok In (1, 71, 73, 81, 82, 83, 84, 19) '
    If @Sifra_Pat Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.DokrID, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Toc200, D.Sifra_Kup '
    INSERT INTO #TmpRazlC EXEC(@SSQL)
    UPDATE #TmpRazlC SET Izn_Naplat = Toc200 WHERE Sifra_Dok IN (71,73,82,74) --gotov.ne odat vo fin
    UPDATE #TmpRazlC SET Izn_Naplat = F.Plateno_Dolzi FROM AnFinDok F WHERE #TmpRazlC.Sifra_OE=F.Sifra_OE AND #TmpRazlC.Sifra_Dok=F.Sifra_Dok AND #TmpRazlC.Broj_Dok=F.Broj_Dok
    UPDATE #TmpRazlC SET Izn_Naplat = F.Plateno_Dolzi * #TmpRazlC.Toc200/F.Dolzi FROM AnFinDok F, DokrZb Z, DokrZbSta ZS WHERE ZS.DokrID=#TmpRazlC.DokrID AND ZS.DokrZbID=Z.DokrZbID
    AND Z.Sifra_OE=F.Sifra_OE AND Z.Sifra_Dok=F.Sifra_Dok AND Z.Broj_Dok=F.Broj_Dok AND F.Dolzi<>0
    If @SoStavki = 'N'
    Begin
        Insert Into #Tab SELECT Sifra_Pat, SUM(RazlCena * Izn_Naplat / Toc200) FROM #TmpRazlC WHERE Toc200<>0 GROUP BY Sifra_Pat
        Update #Komerc
        Set NaplRC = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Insert Into #Stavki  Select 3 as Stavka, Sifra_Pat, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, RazlCena * Izn_Naplat / Toc200, Sifra_Kup From #TmpRazlC WHERE Toc200<>0
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------
    -- 4. Razlika vo cena - Tenderi
    --------------------------------------------- 5. Nenaplateni Pobaruvanja nad 60 dena -----------------------------------------------------
/*    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select D.Sifra_Pat, Sum(D.Dolzi-D.Plateno_Dolzi) Iznos From AnFinDok D
                Where DateAdd(day, D.Rok, D.Datum_Dok) < dbo.fn_VratiDatumOdDo( ' + Cast(@Godina as varchar(4)) + ',' + Cast(@Mesec as varchar(2)) + ',31)
                    And Datum_Dok > dbo.fn_VratiDatumOdDo( ' + Cast((@Godina-1) as varchar(4)) + ',' + Cast(@Mesec as varchar(2)) + ',31)
                    And D.Sifra_Za = ''1''
                    And (D.Dolzi - D.Plateno_Dolzi) > 0 And D.Dolzi > 0 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set PobarNad60d = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = ' Select 5 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(D.Dolzi-D.Plateno_Dolzi) Iznos, D.Sifra_Kup
                From AnFinDok D
                Where DateAdd(day, D.Rok, D.Datum_Dok) < dbo.fn_VratiDatumOdDo( ' + Cast(@Godina as varchar(4)) + ',' + Cast(@Mesec as varchar(2)) + ',31)
                    And Datum_Dok > dbo.fn_VratiDatumOdDo( ' + Cast((@Godina-1) as varchar(4)) + ',' + Cast(@Mesec as varchar(2)) + ',31)
                    And D.Sifra_Za = ''1''
                    And (D.Dolzi - D.Plateno_Dolzi) > 0  And D.Dolzi > 0 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By  D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End        */
    Declare @KrDat as smalldatetime
    Declare @DatDoUpl as smalldatetime
    --SET @KrDat = DateAdd(day, -90, dbo.fn_VratiDatumOd(@Godina, @Mesec))        trgnato 10.10.06 - ke se gleda nanazad 3 meseci
    SET @KrDat = dbo.fn_VratiDatumOdDo(@Godina, @Mesec,31)
    SET @DatDoUpl =  GetDate()                             --dbo.fn_VratiDatumOdDo(@Godina, @Mesec,31)
    CREATE TABLE #NeplFak
    (AnID    int,
    Sifra_OE smallint,
    Sifra_Dok smallint,
    Broj_Dok int,
    Sifra_Pat int,
    Datum_Dok smalldatetime,
    Iznos decimal(18,4),
    Plateno decimal(18,4),
    Sifra_Kup char(6))
    CREATE TABLE #Plak
    (AnID    int,
     Iznos    decimal(18,4))
    SET @SSQL = 'SELECT AnID, Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Pat, Datum_Dok, Dolzi, 0, Sifra_Kup
        FROM AnFinDok WHERE Dolzi>0 AND Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) AND
        Datum_Dok<='''+cast(@KrDat as varchar(35))+''' AND Datum_Dok>='''+Cast(DateAdd(day, -365, @KrDat) as varchar(35))+
        ''' AND Datum_Dok>=''2006-01-01'' '
    If @Sifra_Pat Is Not Null
        Set @SSQL=@SSQL + ' And Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
    INSERT INTO #NeplFak EXEC(@SSQL)
    INSERT INTO #Plak SELECT Z.AnID1, Sum(Abs(Z.Iznos)) FROM AnZatv Z
    INNER JOIN #NeplFak F ON F.AnID=Z.AnID1
    INNER JOIN AnFinDok U ON U.AnID=Z.AnID2
    WHERE U.Datum_Dok<=@DatDoUpl GROUP BY Z.AnID1
    UPDATE #NeplFak SET Plateno = P.Iznos FROM #Plak P WHERE #NeplFak.AnID=P.AnID
    DELETE FROM #Plak
    INSERT INTO #Plak SELECT Z.AnID2, Sum(Abs(Z.Iznos)) FROM AnZatv Z
    INNER JOIN #NeplFak F ON F.AnID=Z.AnID2
    INNER JOIN AnFinDok U ON U.AnID=Z.AnID1
    WHERE U.Datum_Dok<=@DatDoUpl GROUP BY Z.AnID2
    UPDATE #NeplFak SET Plateno = Plateno+P.Iznos FROM #Plak P WHERE #NeplFak.AnID=P.AnID
    DELETE FROM #Plak
    If @SoStavki = 'N'
    Begin
        INSERT INTO #Tab SELECT Sifra_Pat, Sum(Iznos-Plateno) FROM #NeplFak GROUP BY Sifra_Pat
        Update #Komerc Set PobarNad60d = #Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        INSERT INTO #Stavki    (Stavka,Sifra_Pat,Sifra_Oe,Sifra_Dok,Broj_Dok,Datum_Dok,Iznos,Sifra_Kup)
        SELECT 5,Sifra_Pat,Sifra_Oe,Sifra_Dok,Broj_Dok,Datum_Dok,Iznos-Plateno,Sifra_Kup
        FROM #NeplFak WHERE Iznos-Plateno>0
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- 6. Godisen rabat
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select D.Sifra_Pat, Sum(Round(D.Toc200 * K.God_Rabat/100, 2)) Iznos
                From Dokr D
                Inner Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                AND K.God_Rabat IS NOT NULL AND K.God_Rabat>0 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set GodRabat = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
        Set @SSQL = ' Select D.Sifra_Pat,
                Sum(Round(dbo.fn_VratiCena(S.DokCena,S.Posn,S.DanDokCena,''D'')*(1-S.Uces/100)*(1-D.Kasa/100)*S.Kolic * K.Spec_Rabat/100, 2))
                From Dokr D
                Inner Join Stavr S ON S.DokrID=D.DokrID
                Inner Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                Inner Join KatArt A ON S.Sifra_Art=A.Sifra_Art
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                AND K.Spec_Rabat IS NOT NULL AND K.Spec_Rabat>0 AND A.Drugo1=1 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set GodRabat = GodRabat + #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = 'Select 6 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Round(D.Toc200 * K.God_Rabat/100, 2) Iznos, D.Sifra_Kup
                From Dokr D
                Inner Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       AND K.God_Rabat IS NOT NULL AND K.God_Rabat>0 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Insert Into #Stavki Exec(@SSQL)
        Set @SSQL = ' Select 6 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(Round(dbo.fn_VratiCena(S.DokCena,S.Posn,S.DanDokCena,''D'')*(1-S.Uces/100)*(1-D.Kasa/100)*S.Kolic * K.Spec_Rabat/100, 2)), D.Sifra_Kup
                From Dokr D
                Inner Join Stavr S ON S.DokrID=D.DokrID
                Inner Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                Inner Join KatArt A ON S.Sifra_Art=A.Sifra_Art
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       AND K.Spec_Rabat IS NOT NULL AND K.Spec_Rabat>0 AND A.Drugo1=1 '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End
    -- 7. Neisplaten godisen rabat
    --------------------------------------------- 8. Finansiski odobrenija za navremeno plakanje --------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select F.Sifra_Pat,
                Sum( (S.Iznos_Fra * S.Proc_Odobr /100)/ (1+ S.POsn/100) ) Iznos
                From StaOdobr S
                Inner Join AnFinDok D On D.AnID=S.AnID_Odob
                Left Outer Join AnFinDok F On F.AnID=S.AnID_Fak
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Za = ''1''
                    And D.Dolzi < 0 '           --And D.Sifra_Dok = 311
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And F.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By F.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set FinOdobr = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = ' Select 8 as Stavka, F.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum( (S.Iznos_Fra * S.Proc_Odobr /100)/ (1+ S.POsn/100) ) Iznos, D.Sifra_Kup
                From StaOdobr S
                Inner Join AnFinDok D On D.AnID=S.AnID_Odob
                Left Outer Join AnFinDok F On F.AnID=S.AnID_Fak
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Za = ''1''
                    And D.Dolzi < 0 '   --                    And D.Sifra_Dok = 311
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And F.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By  F.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ----------------------------------------------------- 9. Drugi Finansiski odobrenija --------------------------------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select D.Sifra_OE,
                Sum(-1* (D.Dolzi - D.Danok1 - D.Danok2)) Iznos From AnFinDok D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Dok > 800 And D.Sifra_Za = ''1'' And D.Dolzi < 0
                    And D.Sifra_OE IN (Select Sifra_Pat FROM #Komerc)'
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_OE = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_OE '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc     Set FinOdobrDr = FinOdobrDr+#Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
        /*Set @SSQL = 'Select D.Sifra_Pat, Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok = 3 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc     Set FinOdobrDr = FinOdobrDr+#Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
        */
    End
    Else
    Begin
        Set @SSQL = ' Select 9 as Stavka, D.Sifra_OE Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(-1*(D.Dolzi - D.Danok1 - D.Danok2)) Iznos, D.Sifra_Kup
                From AnFinDok D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Dok > 800 And D.Sifra_Za = ''1'' And D.Dolzi < 0
                    And D.Sifra_OE IN (Select Sifra_Pat FROM #Komerc)'
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_OE = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        /*Set @SSQL = @SSQL + ' Union All
                Select 9 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos, D.Sifra_Kup
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok= 3 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        */
        Insert Into #Stavki Exec(@SSQL)
    End
    --------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------- 10. Finansiski odobrenija so 10%  -----------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select D.Sifra_Pat,
                Sum(-1 * D.Toc200) Iznos
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Dok In (6) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc
        Set FinOdobr10 = #Tab.Iznos
        From #Tab
        Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = ' Select 10 as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(-1 * D.Toc200) Iznos, D.Sifra_Kup
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                    And D.Sifra_Dok In (6) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By  D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End
    ----------------------------------------------------- 10.1. Storno --------------------------------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = 'Select D.Sifra_Pat, Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok = 3 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc     Set FinOdobr3 = #Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = '     Select ''11'' as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos, D.Sifra_Kup
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok= 3 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End
    ----------------------------------------------------- Povratnici tip dok.16 -----------------------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = 'Select D.Sifra_Pat, Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok = 16 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc     Set NeisplGodRab = #Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = '     Select ''7'' as Stavka, D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                Sum(-1*(D.Toc200 - D.Danok1 - D.Danok2)) Iznos, D.Sifra_Kup
                From Dokr D
                Where Year(D.Datum_Dok) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(D.Datum_Dok) = ' + Cast(@Mesec as varchar(2)) + '
                       And D.Sifra_Dok= 16 And D.Sifra_Pat IN (Select Sifra_Pat FROM #Komerc) '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And D.Sifra_Pat = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup '
        Insert Into #Stavki Exec(@SSQL)
    End
    --------------------------------------------------------------------------------------------------------------------------------------------------
    --------------------------------------------- 12. Trosoci  -----------------------------------------------------
    If @SoStavki = 'N'
    Begin
        Set @SSQL = ' Select Sifra_OE, Sum(Dolzi) From GStav
                Where Year(Datum_Nal) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(Datum_Nal) = ' + Cast(@Mesec as varchar(2)) + '
                    And Sifra_OE IN (Select Sifra_Pat FROM #Komerc) AND Kto_Anal LIKE ''4%'' '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And Sifra_OE = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Group By Sifra_OE '
        Insert Into #Tab Exec(@SSQL)
        Update #Komerc Set Trosoci = #Tab.Iznos
        From #Tab Where #Komerc.Sifra_Pat=#Tab.Sifra_Pat
        Delete From #Tab
    End
    Else
    Begin
        Set @SSQL = ' Select 12 as Stavka, Sifra_OE, Sifra_Oe, Null, Null, Datum_Nal, Dolzi, Null
                From GStav
                Where Year(Datum_Nal) = ' + Cast(@Godina as varchar(4)) + '
                    And Month(Datum_Nal) = ' + Cast(@Mesec as varchar(2)) + '
                    And Sifra_OE IN (Select Sifra_Pat FROM #Komerc)  AND Kto_Anal LIKE ''4%'' '
        If @Sifra_Pat Is Not Null
            Set @SSQL=@SSQL + ' And Sifra_OE = ' + cast(@Sifra_Pat as varchar(6)) + ' '
        Insert Into #Stavki Exec(@SSQL)
    End
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @SoStavki = 'N'
        Select * from #Komerc ORDER BY Sifra_Pat
    Else
        Select S.*, P.ImePat, K.ImeKup
        From #Stavki S
        Left Outer Join Patnici P On P.Sifra_Pat = S.Sifra_Pat
        Left Outer Join Komint K ON S.Sifra_Kup = K.Sifra_Kup ORDER BY S.Sifra_Pat, S.Stavka, S.Datum_Dok









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_art_brz]'))
drop procedure [dbo].[sp_najdi_art_brz]

Go


CREATE    PROCEDURE sp_Najdi_Art_Brz
    @Sifra_Art         varchar(20),
    @Sifra_Art_Najden     varchar(20) = NULL OUTPUT,
    @Nom            varchar(50) = NULL OUTPUT,
    @ImeArt            varchar(40) = NULL OUTPUT,
        @EdMera         varchar(5)  = NULL OUTPUT
AS

    select @Sifra_Art_Najden = Sifra_Art, @Nom = Nom,
        @ImeArt = ImeArt, @EdMera = EdMera
    from Katart
    where Sifra_Art = @Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_art_od_serbr]'))
drop procedure [dbo].[sp_najdi_art_od_serbr]

Go


create   PROCEDURE sp_Najdi_Art_Od_SerBr
    @SerBr        varchar(50),
    @Sifra_Art    varchar(20) = NULL OUTPUT,
    @ImeArt        varchar(50) = NULL OUTPUT,
    @BrZapisi    int = NULL OUTPUT
AS
    Set @BrZapisi = (Select Count(*) FROM SoMag L    WHERE LotBr = @SerBr)
    SELECT Top 1 @Sifra_Art = L.Sifra_Art, @ImeArt = K.ImeArt
    FROM SoMag L
    Inner Join Katart K on L.Sifra_Art = K.Sifra_Art
    WHERE LotBr = @SerBr
    Order By L.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_brojkasa_tip_org_datum]'))
drop procedure [dbo].[sp_najdi_brojkasa_tip_org_datum]

Go



CREATE PROCEDURE sp_Najdi_BrojKasa_Tip_Org_Datum
        @Sifra_Nal    smallint,
    @P_I        char(1),
    @Sifra_Oe    smallint,
    @Datum_Nal    smalldatetime,
    @Broj_Dok        int Output
AS
    Select @Broj_Dok = Broj_Dok
    From KasStav K
    Inner Join Nalozi N
    on K.Sifra_Nal = N.Sifra_Nal And K.Broj_Nal = N.Broj_Nal
    Where K.Sifra_Nal = @Sifra_Nal And P_I = @P_I And N.Datum_Nal = @Datum_Nal
              And Sifra_Oe = @Sifra_Oe
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_dok_za_art]'))
drop procedure [dbo].[sp_najdi_dok_za_art]

Go

CREATE   PROCEDURE sp_Najdi_Dok_Za_Art

    @KodObr        varchar(50),
    @KodOperator    varchar(50),

    @PodTip        varchar (20) = null,

    @Sifra_Art    varchaR(20),

    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,

    @Sifra_Oe    smallint = null OUTPUT,
    @Sifra_Dok    smallint = null OUTPUT,
    @Broj_Dok    int = null OUTPUT

AS

    select top 1 @Sifra_oe = S.Sifra_oe,
             @SifrA_Dok = S.SifrA_DOk,
             @Broj_Dok = S.Broj_Dok
    from stavr S
    left outer join PomBrojDok P
        on s.Sifra_oe = P.Sifra_Oe and s.Sifra_DOk = P.Sifra_Dok and S.Broj_Dok = P.Broj_Dok
            and P.KodObr = @KodObr and P.KodOperator = @KodOperator
    where S.Sifra_Art = @Sifra_Art
       and S.Sifra_Dok in (6,83,84)
       and S.Datum_Dok >= @Datum_Dok_Od and S.Datum_Dok <= @Datum_Dok_Do
       and P.Sifra_oe is null    -- znacci onie koi gi NEMA
    order by S.Datum_Dok desc





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_dokr_za_dokr]'))
drop procedure [dbo].[sp_najdi_dokr_za_dokr]

Go

CREATE PROCEDURE sp_Najdi_Dokr_Za_Dokr

    @DokrIdOrig    int,
    @DokrId        int = null Output,
    @Sifra_Oe    smallint = null Output,
    @Sifra_Dok    smallint = null Output,
    @Broj_Dok    int = null Output,
    @Realiziran    char(1) = null Output

AS

    -- DK   Rutinava e malku cudna, ama e napravena da e slicna so SP_Najdi_Dokr_Za_Nar
    -- inaku DokrIDOrig = DokrId realno sekogas
    Select top 1 @DokrID = N.DokrId, @Sifra_Oe = D.Sifra_Oe, @Sifra_Dok = D.Sifra_Dok,
             @Broj_Dok = D.Broj_Dok, @Realiziran = N.Realiziran
    From NarRealDokDokr N
    inner join Dokr D
        on N.DokrId = D.DokrId
    Where DokrIdOrig = @DokrIdOrig
    Order By N.DokrID Desc





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_dokr_za_nar]'))
drop procedure [dbo].[sp_najdi_dokr_za_nar]

Go

create   PROCEDURE sp_Najdi_Dokr_Za_Nar

    @NarId        int,
    @DokrId        int = null Output,
    @Sifra_Oe    smallint = null Output,
    @Sifra_Dok    smallint = null Output,
    @Broj_Dok    int = null Output,
    @Realiziran    char(1) = null Output

AS

    Select top 1 @DokrID = N.DokrId, @Sifra_Oe = D.Sifra_Oe, @Sifra_Dok = D.Sifra_Dok,
             @Broj_Dok = D.Broj_Dok, @Realiziran = N.Realiziran
    From NarRealDok N
    inner join Dokr D
        on N.DokrId = D.DokrId
    Where NarId = @NarId
    Order By N.DokrID Desc



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_dokr_za_nar_gledaj_dokr]'))
drop procedure [dbo].[sp_najdi_dokr_za_nar_gledaj_dokr]

Go


Create    PROCEDURE sp_Najdi_Dokr_Za_Nar_Gledaj_Dokr

    @NarId            int,
    @Sifra_Oe_Baram        int,
    @Sifra_Dok_Baram    int,
    @DokrId            int = null Output,
    @Sifra_Oe        smallint = null Output,
    @Sifra_Dok        smallint = null Output,
    @Broj_Dok        int = null Output,
    @Realiziran        char(1) = null Output

AS

    Select top 1 @DokrID = N.DokrId, @Sifra_Oe = D.Sifra_Oe, @Sifra_Dok = D.Sifra_Dok,
             @Broj_Dok = D.Broj_Dok, @Realiziran = N.Realiziran
    From NarRealDok N
    inner join Dokr D
        on N.DokrId = D.DokrId
    Where NarId = @NarId AND D.Sifra_OE = @Sifra_Oe_Baram AND D.Sifra_Dok = @Sifra_Dok_Baram
    Order By N.DokrID Desc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_ekvivart_podezen]'))
drop procedure [dbo].[sp_najdi_ekvivart_podezen]

Go


create  PROCEDURE sp_Najdi_EkvivArt_PoDezen
    @Sifra_Art_Osn    varchar(20),
    @Dezen        varchar(30),
    @Sifra_Art_Map    varchar(20) = NULL OUTPUT

AS

    Declare @OsnArt varchar (4)

    set @OsnArt = substring(@Sifra_Art_Osn, 1, 4)

    SELECT Top 1 @Sifra_Art_Map = Sifra_Art_Map
     FROM EkvivDezen
    WHERE substring(Sifra_Art_Osn, 1, 4) = @OsnArt
          and Dezen = @Dezen





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_faktura_za_art]'))
drop procedure [dbo].[sp_najdi_faktura_za_art]

Go


CREATE    PROCEDURE sp_Najdi_Faktura_Za_Art
    @Sifra_Art    varchar(20),
    @Sifra_Oe    smallint = null OUTPUT,
    @Sifra_Dok    smallint = null OUTPUT,
    @Broj_Dok    int = null OUTPUT

AS

    select top 1 @Sifra_Oe = SifrA_Oe,
             @Sifra_Dok = Sifra_DOk,
             @Broj_Dok = Broj_Dok
    from Stavr S
    where S.Sifra_Art = @Sifra_Art
        and S.SifrA_Dok in (1, 18, 100)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_faktura_za_art_ser]'))
drop procedure [dbo].[sp_najdi_faktura_za_art_ser]

Go



CREATE     PROCEDURE [dbo].[sp_Najdi_Faktura_Za_Art_Ser]
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30),
    @Sifra_Oe    smallint = null OUTPUT,
    @Sifra_Dok    smallint = null OUTPUT,
    @Broj_Dok    int = null OUTPUT

AS

    select top 1 @Sifra_Oe = D.SifrA_Oe,
             @Sifra_Dok = D.Sifra_DOk,
             @Broj_Dok = D.Broj_Dok
    from MagStavr MS
    inner join Dokr D
        on MS.DokrId = D.DokrId
    where MS.Sifra_Art = @Sifra_Art
        and MS.SpecOzn = @KontrSer
        and D.SifrA_Dok in (18, 100)

    if @Sifra_Oe is null
        select top 1 @Sifra_Oe = D.SifrA_Oe,
                     @Sifra_Dok = D.Sifra_DOk,
                     @Broj_Dok = D.Broj_Dok
        from MagStavr MS
        inner join Dokr D
            on MS.DokrId = D.DokrId
        where MS.Sifra_Art = @Sifra_Art
                and MS.SpecOzn = @KontrSer
                and D.SifrA_Dok in (1, 110)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_faktura_za_art_ser_fra]'))
drop procedure [dbo].[sp_najdi_faktura_za_art_ser_fra]

Go

CREATE   PROCEDURE [dbo].[sp_Najdi_Faktura_Za_Art_Ser_Fra]
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30),
    @Sifra_Oe    smallint = null OUTPUT,
    @Sifra_Dok    smallint = null OUTPUT,
    @Broj_Dok    int = null OUTPUT

AS

    select top 1 @Sifra_Oe = D.SifrA_Oe,
             @Sifra_Dok = D.Sifra_DOk,
             @Broj_Dok = D.Broj_Dok
    from MagStavr MS
    inner join Dokr D
        on MS.DokrId = D.DokrId
    where MS.Sifra_Art = @Sifra_Art
        and MS.SpecOzn = @KontrSer
        and D.SifrA_Dok in (1, 100, 110)

    if @Sifra_Oe is null
        select top 1 @Sifra_Oe = D.SifrA_Oe,
                     @Sifra_Dok = D.Sifra_DOk,
                     @Broj_Dok = D.Broj_Dok
        from MagStavr MS
        inner join Dokr D
            on MS.DokrId = D.DokrId
        where MS.Sifra_Art = @Sifra_Art
                and MS.SpecOzn = @KontrSer
                and D.SifrA_Dok in (18)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_fra_za_odj]'))
drop procedure [dbo].[sp_najdi_fra_za_odj]

Go

create PROCEDUrE [dbo].[sp_Najdi_Fra_Za_Odj]
    @DokrId_Odj    int,
    @DokrId_Fra    int = NUll OUTPUT,
    @Sifra_Oe    smallint = NUll OUTPUT,
    @Sifra_Dok    smallint = NUll OUTPUT,
    @Broj_Dok    int = NUll OUTPUT

AS

    select @DokrId_Fra = DO.DokrId_Fra,
           @Sifra_Oe = D.Sifra_Oe, @Sifra_Dok = D.Sifra_Dok, @Broj_Dok = D.Broj_Dok
    From DokrOdj DO
    inner Join Dokr D
        on DO.DokrId_Fra = D.DokrId
    where DO.DokrId_Odj = @DokrId_Odj








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_narid_art]'))
drop procedure [dbo].[sp_najdi_narid_art]

Go


CREATE  PROCEDURE sp_Najdi_NarID_Art
        @NarId        int,
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6) OUTPUT
AS
    Select @Kolic = Kolic
    From StaNarac
    Where NarId=@NarID And Sifra_Art=@Sifra_Art
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_narid_poreal]'))
drop procedure [dbo].[sp_najdi_narid_poreal]

Go


CREATE  PROCEDURE sp_Najdi_NarID_PoReal
        @DokrId        int,
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6),
    @NarID        int Output
AS
    Select @NarID = NarId
    From StaNaracReal
    Where DokrId=@DokrID And Sifra_Art=@Sifra_Art And Kolic=@Kolic
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_oedokbr_podokrid]'))
drop procedure [dbo].[sp_najdi_oedokbr_podokrid]

Go


create  PROCEDURE sp_Najdi_OeDokBr_PoDokrID
    @DokrId        int,
    @DokrIdDrFirma  int OUTPUT,
    @Sifra_Oe    smallint OUTPUT,
    @Sifra_Dok    smallint OUTPUT,
    @Broj_Dok    int OUTPUT
AS

    select  @DokrIdDrFirma = DokrIdDrFirma, @Sifra_Oe = Sifra_Oe, @Sifra_Dok = Sifra_Dok,
        @Broj_Dok = Broj_Dok
    from Dokr
    where DokrId = @DokrId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_sost_po_lok]'))
drop procedure [dbo].[sp_najdi_sost_po_lok]

Go

CREATE    PROCEDURE [dbo].[SP_najdi_sost_po_lok]
    @Lokacija    varchar(20)

AS

   Declare @DrugaBaza varchar(100)

   -- Uprosteno samo za edna baza
   select @DrugaBaza = ImeBaza
   From FirParal

   if @DrugaBaza is null
        SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                SUM(S.Vlez - S.Izlez) AS Zaliha, A.DogCena, '' Brend, A.Nom
        FROM KatArt A
        LEFT OUTER JOIN Podgrupi P
            ON A.Sifra_Podg = P.Sifra_Podg
        LEFT OUTER JOIN SoArt S
            ON S.Sifra_Art = A.Sifra_Art
        Where Lokacija = @Lokacija
        group by A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.DogCena, A.Nom
    else
        begin
            Declare @SSQL varchar(2000)

            set @SSQL = '
                    SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                            SUM(S.Vlez - S.Izlez) AS Zaliha, A.DogCena, ''1'' Brend, A.Nom
                            FROM KatArt A
                            LEFT OUTER JOIN Podgrupi P
                                ON A.Sifra_Podg = P.Sifra_Podg
                            LEFT OUTER JOIN SoArt S
                                ON S.Sifra_Art = A.Sifra_Art
                            Where Lokacija = ''' + @Lokacija + '''
                            group by A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.DogCena, A.Nom '

            Declare @SSQL1 varchar(2000)
            set @SSQL1 = '
                    SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                            SUM(S.Vlez - S.Izlez) AS Zaliha, A.DogCena, ''2'' Brend, A.Nom
                            FROM ' + @DrugaBaza + '..KatArt A
                            LEFT OUTER JOIN ' + @DrugaBaza + '..Podgrupi P
                                ON A.Sifra_Podg = P.Sifra_Podg
                            LEFT OUTER JOIN ' + @DrugaBaza + '..SoArt S
                                ON S.Sifra_Art = A.Sifra_Art
                            Where Lokacija = ''' + @Lokacija + '''
                            group by A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.DogCena, A.Nom '

            exec (@SSQL + ' Union ' + @SSQL1)
        end





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdi_zadolz_za_odj]'))
drop procedure [dbo].[sp_najdi_zadolz_za_odj]

Go

create PROCEDUrE [dbo].[sp_Najdi_Zadolz_Za_Odj]
    @Identif_Br    varchar(20),
    @Iznos        decimal(18,6) = NUll OUTPUT,
    @Sifra_Kup    char(6) = NUll OUTPUT

AS

    select top 1 @Iznos = Dolzi,
                 @Sifra_Kup = Sifra_Kup
    from anFinDok
    where BrojDok = @Identif_Br
          and Sifra_Dok = 150 and Sifra_Oe = 1
          and Dolzi <> 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiart_vopakuv]'))
drop procedure [dbo].[sp_najdiart_vopakuv]

Go

CREATE  PROCEDURE sp_NajdiArt_VoPakuv
    @KontrSer_Pak        varchar(30)
AS
    SELECT *
    From PakuvArt
    Where KontrSer_Pak = @KontrSer_Pak




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartikal]'))
drop procedure [dbo].[sp_najdiartikal]

Go


CREATE        PROCEDURE sp_NajdiArtikal
    @Nom    varchar(50) = NULL,
    @ImeArt    varchar(40) = NULL,
    @ImeArt2    varchar(40) = NULL,
    @Sifra_Drg    smallint = NULL,
    @Sifra_Gr    varchar(6) = NULL,
    @Sifra_Podg    varchar(10) = NULL,
    @KoiOE    varchar(200) = NULL
AS
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
    SUM(S.Vlez-S.Izlez) AS Zaliha, A.DogCena, B.Ime_2 Brend, BK.Nom Nom
    FROM KatArt A
    LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg
        LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art
    LEFT OUTER JOIN Drugo2 B ON BK.Drugo2 = B.Sifra_2
    LEFT OUTER JOIN SoArt S ON S.Sifra_Art = A.Sifra_Art '
    SET @SSQL = @SSQL + '  WHERE 1=1 '
    IF @Nom IS NOT NULL
        SET @SSQL = @SSQL + ' AND (BK.Nom LIKE ''%' + @Nom + '%'' OR A.Nom LIKE ''%' + @Nom + '%'') '
    IF @ImeArt IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.ImeArt LIKE ''%' + @ImeArt + '%'' '
    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN ('+ @KoiOE + ') '
    IF @ImeArt2 IS NOT  NULL
    Begin
        IF Substring(@ImeArt2,1,1) = '*'  OR Substring(@ImeArt2,1,1) = '%'
        Begin
            IF Substring(@ImeArt2,1,1) = '*'
                SET @ImeArt2 = '%' + Substring(@ImeArt2,2, Len(@ImeArt2)-1)
            SET @SSQL = @SSQL + ' AND (A.ImeArt2 LIKE ''' + @ImeArt2 + '%'' OR A.ImeArt2 LIKE ''' + @Nom + '%'') '
        End
        Else
            SET @SSQL = @SSQL + ' AND (A.ImeArt2 = ''' + @ImeArt2 + ''' OR A.ImeArt2 = ''' + @ImeArt2 + ''') '
    End
--        SET @SSQL = @SSQL + ' AND A.ImeArt2 LIKE ''%' + @ImeArt2 + '%'' '
    IF @Sifra_Drg IS NOT  NULL
        SET @SSQL = @SSQL + ' AND BK.Drugo2 = ' + Cast(@Sifra_Drg as varchar(9)) + ' '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL = @SSQL + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    IF @Sifra_Podg IS NOT NULL
        SET @SSQL = @SSQL +  ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    SET @SSQL = @SSQL + ' GROUP BY A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.DogCena, B.Ime_2, BK.Nom, A.Nom'
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartikal_oem]'))
drop procedure [dbo].[sp_najdiartikal_oem]

Go

CREATE PROCEDURE [dbo].[sp_NajdiArtikal_OEM]
    @Nom    varchar(50) = NULL,
    @ImeArt    varchar(40) = NULL,
    @ImeArt2    varchar(40) = NULL,
    @Sifra_Drg    smallint = NULL,
    @Sifra_Gr    varchar(6) = NULL,
    @Sifra_Podg    varchar(10) = NULL,
    @KoiOE        varchar(200) = NULL,
    @OEMBroj    varchar(50) = NULL,
    @PrikZameni    char(1) = Null

AS

    Declare @SSQL_Usl varchar(2000)

    --SET @SSQL_Usl = ' (BK.Nom is null or BK.Drugo2 is not null) '
    SET @SSQL_Usl = ' 1 = 1 '

    if @OEMBroj is not null
        set @SSQL_Usl = @SSQL_Usl + ' and A.Sifra_Art in (select Sifra_Art from KatartOEM
                              where OemBroj = ''' + @OEMBroj + ''') '

--    IF @Nom IS NOT NULL
--        SET @SSQL_Usl = @SSQL_Usl + ' AND BK.Nom LIKE ''%' + @Nom + '%'' '

    IF @ImeArt IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND A.ImeArt LIKE ''%' + @ImeArt + '%'' '

    IF @ImeArt2 IS NOT  NULL
    Begin
        set @ImeArt2 = ltrim(rtrim(@ImeArt2))
        -- Vaka bese do Fev 6, 2011  SET @ImeArt2 = '%' + Substring(@ImeArt2, 2, Len(@ImeArt2)-1) + '%'
        SET @ImeArt2 = '%' + @ImeArt2 + '%'
        SET @SSQL_Usl = @SSQL_Usl + ' AND A.Sifra_Art LIKE ''' + @ImeArt2 + ''' '
    End

--    IF @Sifra_Drg IS NOT  NULL
--        SET @SSQL_Usl = @SSQL_Usl + ' AND BK.Drugo2 = ' + Cast(@Sifra_Drg as varchar(9)) + ' '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    IF @Sifra_Podg IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl +  ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    Declare @SSQL varchar(2000)

    if @PrikZameni = 'D'
       begin
        Create Table #tArt
        (    Sifra_Art     Varchar(20)
            )

        Declare @SSQL_ARt varchar(2000)
        SET @SSQL_Art = ' SELECT distinct A.Sifra_Art
                  FROM KatArt A '
----                       LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art '
        if @Sifra_Podg is not null
            set @SSQL_Art = @SSQL_Art + '  LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg '

        set @SSQL_Art = @SSQL_Art + ' Where ' + @SSQL_Usl

        -- Vo #tArt se site artikli koi go zadovoluvaat ORIGINALNIOT uslov od baranjeto
        -- Tie artikli imaat nekoi OEM broevi
        insert into #TArt
            exec (@SSQL_Art)

        -- Sega gi dodavame site artikli koi imaat OEM broevi zaednicki so artiklite veke vo #tArt
        insert into #tArt
            select KOem.Sifra_Art
            from KatartOem KOem
            where KOem.OemBroj in (select OemBroj
                           from KatartOem KO
                           inner join #tArt TA
                            on TA.Sifra_Art = KO.Sifra_Art)

        -- Ke ima dosta duplikati, i zatoa vo posebna tabela ke gi iscistam
        Create Table #tArtEkv
        (    Sifra_Art     Varchar(20)
            )

        insert into #tArtEkv
            select distinct Sifra_Art
            from #tArt

        SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                    SUM(S.Vlez-S.Izlez) AS Zaliha, A.DogCena, '''' Brend, '''' Nom,
                    case when S.Sifra_Oe is null then 1 else S.Sifra_Oe end Sifra_Oe,
                    Koem.OEMBroj
            FROM KatArt A
            inner join #tArtEkv TA
                on A.Sifra_Art = TA.Sifra_Art
            LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg '
        --                LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art
              --  LEFT OUTER JOIN Drugo2 B ON BK.Drugo2 = B.Sifra_2
        set @SSQL = @SSQL + ' LEFT OUTER JOIN SoArt S ON S.Sifra_Art = A.Sifra_Art
            LEFT Outer Join KatartOem KOem
                on KOem.Sifra_Art = A.Sifra_Art
            Where (1 = 1) '
       end
    else
       begin
        SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                    SUM(S.Vlez-S.Izlez) AS Zaliha, A.DogCena, '''' Brend, '''' Nom,
                    case when S.Sifra_Oe is null then 1 else S.Sifra_Oe end Sifra_Oe,
                    Koem.OEMBroj
            FROM KatArt A
            LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg '
                -- LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art
         -- '     LEFT OUTER JOIN Drugo2 B ON BK.Drugo2 = B.Sifra_2
        set @SSQL = @SSQL + ' LEFT OUTER JOIN SoArt S ON S.Sifra_Art = A.Sifra_Art
            LEFT Outer Join KatartOem KOem
                on KOem.Sifra_Art = A.Sifra_Art
            Where '

        set @SSQL = @SSQL + @SSQL_Usl
       end

    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN ('+ @KoiOE + ') '

    SET @SSQL = @SSQL + ' GROUP BY A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.Sifra_Podg, A.DogCena,
                       S.Sifra_Oe, KOem.OemBroj'

    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartikal_oem_kol]'))
drop procedure [dbo].[sp_najdiartikal_oem_kol]

Go

CREATE PROCEDURE [dbo].[sp_NajdiArtikal_OEM_Kol]
    @Nom    varchar(50) = NULL,
    @ImeArt    varchar(40) = NULL,
    @ImeArt2    varchar(40) = NULL,
    @Sifra_Drg    smallint = NULL,
    @Sifra_Gr    varchar(6) = NULL,
    @Sifra_Podg    varchar(10) = NULL,
    @KoiOE        varchar(200) = NULL,
    @OEMBroj    varchar(50) = NULL,
    @PrikZameni    char(1) = Null

AS

    Declare @SSQL_Usl varchar(2000)

    --SET @SSQL_Usl = ' (BK.Nom is null or BK.Drugo2 is not null) '
    SET @SSQL_Usl = ' (1 = 1) '

    if @OEMBroj is not null
        set @SSQL_Usl = @SSQL_Usl + ' and A.Sifra_Art in (select Sifra_Art from KatartOEM
                              where OemBroj = ''' + @OEMBroj + ''') '

    IF @Nom IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND BK.Nom LIKE ''%' + @Nom + '%'' '

    IF @ImeArt IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND A.ImeArt LIKE ''%' + @ImeArt + '%'' '

    IF @ImeArt2 IS NOT  NULL
    Begin
        set @ImeArt2 = ltrim(rtrim(@ImeArt2))
        SET @ImeArt2 = '%' + Substring(@ImeArt2, 2, Len(@ImeArt2)-1) + '%'
        SET @SSQL_Usl = @SSQL_Usl + ' AND A.Sifra_Art LIKE ''' + @ImeArt2 + ''' '
    End

    IF @Sifra_Drg IS NOT  NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND BK.Drugo2 = ' + Cast(@Sifra_Drg as varchar(9)) + ' '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    IF @Sifra_Podg IS NOT NULL
        SET @SSQL_Usl = @SSQL_Usl +  ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    Declare @SSQL varchar(2000)

    Create Table #tArt
    (    Sifra_Art     Varchar(20)
        )

    Declare @SSQL_ARt varchar(2000)
    SET @SSQL_Art = ' SELECT distinct A.Sifra_Art
              FROM KatArt A
                      LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art '
    if @Sifra_Podg is not null
        set @SSQL_Art = @SSQL_Art + '  LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg '

    set @SSQL_Art = @SSQL_Art + ' Where ' + @SSQL_Usl

    -- Vo #tArt se site artikli koi go zadovoluvaat ORIGINALNIOT uslov od baranjeto
    -- Tie artikli imaat nekoi OEM broevi
    insert into #TArt
        exec (@SSQL_Art)

    -- Ke ima dosta duplikati, i zatoa vo posebna tabela ke gi iscistam
    Create Table #tArtEkv
    (    Sifra_Art     Varchar(20)
        )

    -- Sega gi dodavame site artikli koi imaat OEM broevi zaednicki so artiklite veke vo #tArt
    if @PrikZameni = 'D'
        insert into #tArt
            select KOem.Sifra_Art
            from KatartOem KOem
            where KOem.OemBroj in (select OemBroj
                           from KatartOem KO
                           inner join #tArt TA
                            on TA.Sifra_Art = KO.Sifra_Art)


    insert into #tArtEkv
        select distinct Sifra_Art
        from #tArt

    SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, P.Ime_Podg Podgrupa,
                SUM(S.Vlez-S.Izlez) AS Zaliha, A.DogCena, B.Ime_2 Brend, BK.Nom Nom,
                Koem.OEMBroj, KOemEkv.Sifra_Art Sifra_Art_Ekv, A.Sifra_Podg,
                AEkv.Sifra_Podg Sifra_Podg_Ekv, PEkv.Ime_POdg Podgrupa_Ekv
             FROM KatArt A
            inner join #tArtEkv TA
                on A.Sifra_Art = TA.Sifra_Art
            LEFT OUTER JOIN Podgrupi P ON A.Sifra_Podg = P.Sifra_Podg
                LEFT OUTER JOIN AbarKod BK ON A.Sifra_Art = BK.Sifra_Art
            LEFT OUTER JOIN Drugo2 B ON BK.Drugo2 = B.Sifra_2
            LEFT OUTER JOIN SoArt S ON S.Sifra_Art = A.Sifra_Art
            LEFT Outer Join KatartOem KOem
                on KOem.Sifra_Art = A.Sifra_Art
            LEFT Outer Join KatartOem KOemEkv
                on KOem.OemBroj = KOemEkv.OemBroj
            Left Outer Join Katart AEkv
                on AEkv.Sifra_Art = KOemEkv.Sifra_Art
            LEFT OUTER JOIN Podgrupi PEkv
                ON AEkv.Sifra_Podg = PEkv.Sifra_Podg

            Where (1 = 1) '

    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE IN ('+ @KoiOE + ') '

    SET @SSQL = @SSQL + ' GROUP BY A.Sifra_Art, A.ImeArt, P.Ime_Podg, A.Sifra_Podg, A.DogCena, B.Ime_2, BK.Nom,
                       KOem.OemBroj, KoemEkv.Sifra_Art, PEkv.Ime_Podg, AEkv.Sifra_Podg
                  Having KOemEkv.Sifra_Art is null or KOemEkv.Sifra_Art <> A.Sifra_Art '

    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartikalavto]'))
drop procedure [dbo].[sp_najdiartikalavto]

Go




CREATE              PROCEDURE sp_NajdiArtikalAvto
    @BrSasija    varchar(30) = NULL,
    @BrMotor    varchar(30) = NULL,
    @DelOdSasija    varchar(30) = NULL,
    @DelOdMotor    varchar(30) = NULL,
    @Drugo1        smallint = NULL,
    @Drugo2        smallint = NULL,
    @Drugo3        smallint = NULL,
    @Drugo4        smallint = NULL,
        @Registracija     varchar(20)= null,
    @Sopstvenik     varchar(40) = null,
    @Adresa        varchar(40) = Null,
    @Telefon    varchar(40) = Null,
    @SamoVozilo    char(1) = Null

AS

    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT A.Sifra_Art, A.ImeArt, V.Registracija, V.BrSasija, V.BrMotor
            FROM KatArt A '

    if @SamoVozilo = 'D'
        set @SSQL = @SSQL + ' INNER JOIN Vozila V ON A.Sifra_Art=V.Sifra_Art '
    else
        set @SSQL = @SSQL + ' LEFT OUTER JOIN Vozila V ON A.Sifra_Art=V.Sifra_Art '

    SET @SSQL = @SSQL + '  WHERE 1=1 '
    IF @Drugo1 IS NOT  NULL
        SET @SSQL = @SSQL + ' AND A.Drugo1 = ' + Cast(@Drugo1 as varchar(9)) + ' '
    IF @Drugo2 IS NOT  NULL
        SET @SSQL = @SSQL + ' AND A.Drugo2 = ' + Cast(@Drugo2 as varchar(9)) + ' '
    IF @Drugo3 IS NOT  NULL
        SET @SSQL = @SSQL + ' AND A.Drugo3 = ' + Cast(@Drugo3 as varchar(9)) + ' '
    IF @Drugo4 IS NOT  NULL
        SET @SSQL = @SSQL + ' AND A.Drugo4 = ' + Cast(@Drugo4 as varchar(9)) + ' '
    IF @BrSasija IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.BrSasija like ''%' + @BrSasija + '%'' '--= ''' + @BrSasija + ''' '
    IF @BrMotor IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.BrMotor like ''%' + @DelOdMOtor + '%'' '--= ''' + @BrMOtor + ''' '
    --IF @DelOdSasija IS NOT  NULL
        --SET @SSQL = @SSQL + ' AND V.BrSasija like ''%' + @DelODSasija + '%'' '
    --IF @DelOdMotor IS NOT  NULL
        --SET @SSQL = @SSQL + ' AND V.BrMotor like ''%' + @DelOdMOtor + '%'' '
    IF @Registracija IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.Registracija like ''%' + @Registracija + '%'' '
    IF @Sopstvenik IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.Sopstvenik like ''%' + @Sopstvenik + '%'' '

    IF @Adresa IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.Adresa like ''%' + @Adresa + '%'' '
    IF @Telefon IS NOT  NULL
        SET @SSQL = @SSQL + ' AND V.Telefon like ''%' + @Telefon + '%'' '

    SET @SSQL = @SSQL + ' ORDER BY A.Sifra_Art'


    EXEC(@SSQL)











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartodabarpak]'))
drop procedure [dbo].[sp_najdiartodabarpak]

Go


CREATE   PROCEDURE sp_NajdiArtOdABarPak
    @Nom varchar(50)
As
    SELECT A.*, K.Lokacija, K.ImeArt
    FROM ABarPak A INNER JOIN KatArt K ON A.Sifra_Art=K.Sifra_Art
    WHERE A.Nom=@Nom






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartodkatpodsifra]'))
drop procedure [dbo].[sp_najdiartodkatpodsifra]

Go
CREATE PROCEDURE sp_NajdiArtOdKatPodSifra
    @Nom    varchar(50),
    @Sifra_Art    varchar(20)=NULL OUTPUT,
    @Sifra_Boja    smallint=NULL OUTPUT,
    @Sifra_Velic smallint=NULL OUTPUT
AS
    SELECT @Sifra_Art=Sifra_Art, @Sifra_Boja=Sifra_Boja, @Sifra_Velic=Sifra_Velic
    FROM KatPodSifra WHERE Sifra_PodSif_Art = @Nom




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartodpodg]'))
drop procedure [dbo].[sp_najdiartodpodg]

Go


CREATE   PROCEDURE [dbo].[sp_NajdiArtOdPodg]
    @Sifra_Podg    char(6)

As
    SELECT    Sifra_Art, ImeArt
    FROM    KatArt
    WHERE    SIfra_Podg = @Sifra_Podg






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiartpokontrser]'))
drop procedure [dbo].[sp_najdiartpokontrser]

Go



CREATE    PROCEDURE sp_NajdiArtPoKontrSer
    @KontrSer    varchar(25),
    @Sifra_Oe    smallint = Null,
    @Sifra_Art    varchar(20) = Null Output,
    @ImeArt        varchar(40) = '' Output,
    @EdMera        char(5)='' Output,
    @Tezina_Bruto    decimal(18,0) = Null Output,
    @Tezina_Neto    decimal(18,0) = Null Output,
    @Nom        varchar(50) = Null Output
AS
    If @Sifra_Oe Is Not Null
        Select Top 1 @Sifra_Art=E.Sifra_Art, @ImeArt=K.ImeArt, @EdMera=K.EdMera, @Tezina_Bruto=Tezina_Bruto, @Tezina_Neto=Tezina_Neto,
            @KontrSer=E.KontrSer, @Nom=K.Nom
        From EvProizvod E
        Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
        Inner Join Dokr D On D.DokrID=E.DokrID
        Where  E.KontrSer=@KontrSer and D.Vlizl='V'
        and D.SifrA_oe=@Sifra_Oe
    Else
        Select Top 1 @Sifra_Art=E.Sifra_Art, @ImeArt=K.ImeArt, @EdMera=K.EdMera, @Tezina_Bruto=Tezina_Bruto, @Tezina_Neto=Tezina_Neto,
            @KontrSer=E.KontrSer, @Nom=K.Nom
        From EvProizvod E
        Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
        Inner Join Dokr D On D.DokrID=E.DokrID
        Where  E.KontrSer=@KontrSer and D.Vlizl='V'
        --and D.SifrA_oe=631








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdibarkodpaket]'))
drop procedure [dbo].[sp_najdibarkodpaket]

Go

CREATE  PROCEDURE sp_NajdiBarKodPaket
    @Sifra_Art    varchar(20),
    @Nom        varchar(50)='' OUTPUT,
    @ZaKolic    decimal(9,2)=0 OUTPUT
AS
SELECT @ZaKolic=MAX(ZaKolic) FROM ABarKod WHERE Sifra_Art=@Sifra_Art
SELECT @Nom=Nom FROM ABarKod WHERE Sifra_Art=@Sifra_Art AND ZaKolic=@ZaKolic




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdibrnaracpopat]'))
drop procedure [dbo].[sp_najdibrnaracpopat]

Go

CREATE PROCEDURE sp_NajdiBrNaracPoPat
    @Sifra_OE    Smallint,
    @Sifra_Nar    Smallint,
    @Sifra_Pat    Smallint,
    @Broj_Nar    int OUTPUT
AS
    SELECT @Broj_Nar = MAX(Broj_Nar) FROM Naracki
    WHERE Sifra_OE = @Sifra_OE AND Sifra_Nar = @Sifra_Nar AND Sifra_Pat = @Sifra_Pat




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiddvstapkizadatum]'))
drop procedure [dbo].[sp_najdiddvstapkizadatum]

Go

create PROCEDURE sp_NajdiDDVStapkiZaDatum
    @Datum    smalldatetime
 AS
        SELECT Stapka1, Stapka2 FROM DDVStapki
        WHERE @Datum >= datum_od and @Datum <= datum_do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdidokzaprendrbaza]'))
drop procedure [dbo].[sp_najdidokzaprendrbaza]

Go

CREATE     PROCEDURE sp_NajdiDokZaPrenDrBaza
    @ImeTabela    varchar(20),
    @Datum_Do    smalldatetime
As
    Declare @SSQL varchar(1000)
CREATE TABLE #TmpKomb
(Sifra_OE    smallint,
Sifra_Dok    smallint,
Sifra_Kup    char(6),
Sifra_Obj    smallint,
Moze        char(1))
    INSERT INTO #TmpKomb
    SELECT DISTINCT Sifra_OE, Sifra_Dok, Sifra_Kup, Sifra_Obj, 'D'
    FROM  Dokr WHERE (PrenDrFirma IS NULL OR PrenDrFirma<>'D') AND Datum_Dok<=@Datum_Do
    AND Sifra_Kup IN (SELECT DISTINCT ISifra_Kup FROM KonfDokPrenos WHERE Turni='D')
    AND Sifra_Dok IN (SELECT DISTINCT ISifra_Dok FROM KonfDokPrenos WHERE Turni='D')
UPDATE #TmpKomb SET Moze='N' FROM KonfDokPrenos K
WHERE #TmpKomb.Sifra_OE=K.ISifra_OE AND #TmpKomb.Sifra_Dok=K.ISifra_Dok AND
#TmpKomb.Sifra_Kup=K.ISifra_Kup AND #TmpKomb.Sifra_Obj=K.ISifra_Obj AND K.Turni='N'
UPDATE #TmpKomb SET Moze='N' FROM KonfDokPrenos K
WHERE (K.ISifra_OE=0 OR K.ISifra_Dok=0) AND
#TmpKomb.Sifra_Kup=K.ISifra_Kup AND #TmpKomb.Sifra_Obj=K.ISifra_Obj AND K.Turni='N'
SELECT Sifra_OE, Sifra_Dok, Sifra_Kup, Sifra_Obj FROM #TmpKomb WHErE Moze='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdifindokzatv]'))
drop procedure [dbo].[sp_najdifindokzatv]

Go
CREATE PROCEDURE sp_NajdiFinDokZatv
    @AnID        int,
    @AnIDZatv    int=0 OUTPUT
AS
SELECT @AnIdZatv=AnID2 FROM AnZatv WHERE AnID1=@AnID
IF @@RowCount<1
    SELECT @AnIdZatv=AnID1 FROM AnZatv WHERE AnID2=@AnID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdifinrazl]'))
drop procedure [dbo].[sp_najdifinrazl]

Go

CREATE   PROCEDURE sp_NajdiFinRazl
    @Sifra_OE    smallint,
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Datum_Do    smalldatetime,
    @AzurProsCena    char(1) = 'N',
    @Datum_Poc    smalldatetime = null,
    @AzurNabCStavr    char (1) = 'N',    -- D=azuriraj kade sto ne se azurirani,
                    -- F=forsiraj azuriranje na site dokumenti, bez ogled na azurirani
    @Datum_Od    smalldatetime = null,
    @Azur_DokMagCena char (1) = null,
    @Azur_DokMag_TipDok varchar (50) = null,
    @Podr char (1) = Null

AS

    Set Nocount On
    Declare @SSQL as varchar(8000)
    CREATE TABLE #TmpArt
(    Sifra_Art    varchar(20),
    Razlika        decimal(18,6)
)

    SET @SSQL = 'INSERT INTO #TmpArt (sifrA_art)
             SELECT DISTINCT s.Sifra_Art
             FROM SoArt S Inner Join Katart K  on S.sifra_art = K.sifra_art
                     WHERE S.Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' and K.smatusl <> ''U'' '
    If @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    EXEC(@SSQL)

    CREATE TABLE #TmpVlez
(    Datum_Dok    smalldatetime,
    Tip        char(1),
    VlIzl        char(1),
    Kolic        decimal(18,6),
    Vrednost    decimal(18,6),
    OrigTip        char(1),
    NabCena        decimal(18, 6)        -- Fev 21, 2010  DK
)

    CREATE TABLE #TmpIzlez
(    Datum_Dok    smalldatetime,
    Kolic        decimal(18,6),
    Vrednost    decimal(18,6),
        DokId           int,
        Broj_Nal        int,
        Sifra_Dok       smallint,
        Broj_dok        int,
        Sifra_Prim      smallint,
        Imadodatna      char (1)
)

    Declare @Sifra_Art    varchar(20)
    Declare @Razlika    decimal(18,6)
    Declare @ProsCena    decimal(18,6)
    Declare @PoslPros    decimal(18,6)
    Declare @VlIma        char(1)
    Declare @IzlIma        char(1)
    Declare @Vr_Vlez    decimal(18,6)
    Declare @Vr_Izlez    decimal(18,6)
    Declare @Vlez        decimal(18,6)
    Declare @Izlez        decimal(18,6)
    Declare @VrIzl_Kart    decimal(18,6)
    Declare @Vr_Treba    decimal(18,6)
        Declare @Vr_Kartica     decimal(18,6)
        Declare @Vr_Razl        decimal(18,6)
    Declare @VDatum_Dok    smalldatetime
    Declare @VTip        char(1)
    Declare @VVlIzl        char(1)
    Declare @VKolic        decimal(18,6)
    Declare @VVrednost    decimal(18,6)
    Declare @IDatum_Dok    smalldatetime
    Declare @IKolic        decimal(18,6)
    Declare @IVrednost    decimal(18,6)
        Declare @IDokID        int
        Declare @IBroj_Nal    int
    Declare @GledajVlez    char(1)
    Declare @GledajIzlez    char(1)
        Declare @VlImaPoc       char(1)
        Declare @IzlImaPoc      char(1)
    Declare @Gjubr            int
        Declare @Sifra_Dok      smallint
        Declare @Broj_Dok       int
        Declare @Sifra_Prim     smallint
        Declare @Imadodatna     char (1)
        Declare @SpecSQL        varchar (2000)
        Declare @OrigVlIzl      char (1)

    -- Fev 21, 2010 DK
    Declare @TekMinCena    decimal(18,6)
    Declare @TekMaxCena    decimal(18,6)
    Declare    @VNabCena    decimal(18,6)
    Declare @ImaVlFinRazl    int

DECLARE Artikli CURSOR FAST_FORWARD
FOR SELECT * FROM #TmpArt

OPEN Artikli
FETCH NEXT FROM Artikli INTO @Sifra_Art, @Razlika
WHILE @@FETCH_STATUS = 0
Begin
    DELETE FROM #TmpVlez
    DELETE FROM #TmpIzlez

    INSERT INTO #TmpVlez
        SELECT Datum_Dok, 'V', VlIzl, Kolic, Kolic*NabCena, 'V', NabCena
    FROM Stavr
        WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND
          Datum_Dok <= @Datum_Do AND VlIzl = 'V'

    INSERT INTO #TmpVlez
        SELECT Datum_Dok, 'F', VlIzl, 0, Iznos_Razl, VlIzl, 0
    FROM RazlFin
        WHERE Sifra_OE = @Sifra_OE AND Sifra_Art = @Sifra_Art AND
          Datum_Dok <= @Datum_Do

    UPDATE #TmpVlez
        SET VlIzl='V', Vrednost = Vrednost * -1
    WHERE Tip='F' AND VlIzl='I'

        INSERT INTO #TmpIzlez
        SELECT S.Datum_Dok, S.Kolic, S.Kolic*S.NabCena, S.DokID, D.Broj_Nal,
               S.Sifra_dok, S.Broj_dok, S.Sifra_Prim, S.Imadodatna
    FROM Stavr S, Dokr D
        WHERE S.Sifra_OE = @Sifra_OE AND S.Sifra_Art = @Sifra_Art AND
            S.Datum_Dok <= @Datum_Do AND S.VlIzl = 'I' and S.DokrId = D.DokrId

        SET @ProsCena    = 0
    SET @PoslPros    = 0
    SET @VlIma        = 'D'
    SET @IzlIma        = 'D'
    SET @Vr_Vlez    = 0
    SET @Vr_Izlez    = 0
    SET @Vlez        = 0
    SET @Izlez        = 0
    SET @VrIzl_Kart    = 0

    set @TekMinCena = 0
    set @TekMaxCena = 0
    set @ImaVlFinRazl = 0

    DECLARE Vlezovi CURSOR FAST_FORWARD
        FOR SELECT * FROM #TmpVlez
        order by datum_dok

        OPEN Vlezovi

    FETCH NEXT FROM Vlezovi
        INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost, @OrigVlIzl, @VNabCena
    IF @@FETCH_STATUS <> 0
        SET @VlIma = 'N'

    DECLARE Izlezi CURSOR FAST_FORWARD
        FOR SELECT * FROM #TmpIzlez
        order by datum_dok

    OPEN Izlezi

    FETCH NEXT FROM Izlezi
        INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal,
             @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna
    IF @@FETCH_STATUS <> 0
        SET @IzlIma = 'N'

    -- Dodadeno Aug 22, 2004 za da gleda od nekoja pocetna sostojba, bez da uprosecuva idealno do nea
        ---------------------------------------------------------------------------------------------------
    if @Datum_Poc is NOT NULL and @VlIma = 'D'
        begin
           set @VlImaPoc = 'D'
       WHILE @VlImaPoc = 'D' -- istrcaj gi site vlezovi
       BEGIN
               if @VDatum_Dok >= @Datum_Poc
           set @VlImaPoc = 'N'
               else
               begin
                   if @VTip = 'F'
                   begin
                      set @VrIzl_Kart = @VrIzl_Kart + (- @VVrednost)
                      set @Vr_Izlez = @Vr_Izlez + (- @VVrednost)
                   end
                   else
                   begin
              SET @Vr_Vlez = @Vr_Vlez + @VVrednost
              SET @Vlez = @Vlez + @VKolic
                      if @VKolic <> 0        -- aproksimacija vo slucaj na kraj na poceten period da ne mozam da presmetam prosecna cena
                         set @PoslPros = @VVrednost / @VKolic
                   end

           FETCH NEXT FROM Vlezovi
           INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost, @OrigVlIzl, @VNabCena
           IF @@FETCH_STATUS <> 0
                   begin
                      SET @VlImaPoc = 'N'
                      SET @VlIma = 'N'
                   end
               end
           END
        end

    if @Datum_Poc is NOT NULL and @IzlIma = 'D'
        begin
           set @IzlImaPoc = 'D'
       WHILE @IzlImaPoc = 'D' -- istrcaj gi site izlezi
       BEGIN
               if @IDatum_Dok >= @Datum_Poc
           set @IzlImaPoc = 'N'
               else
               begin
                   SET @VrIzl_Kart = @VrIzl_Kart + @IVrednost
           SET @Vr_Izlez = @Vr_Izlez + @IVrednost
           SET @Izlez = @Izlez + @IKolic
               FETCH NEXT FROM Izlezi
                   INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna
           IF @@FETCH_STATUS <> 0
                   begin
                     SET @IzlImaPoc = 'N'
                     SET @IzlIma = 'N'
                   end
               end
           END
        end

    if @Datum_Poc is NOT NULL
        begin
          IF @Vlez - @Izlez <> 0
      Begin
         SET @ProsCena = (@Vr_Vlez - @Vr_Izlez) / (@Vlez - @Izlez)
         If @ProsCena < 0
        SET @ProsCena = 0
          End
      ELSE
         SET @ProsCena = 0

      IF @ProsCena > 0
        SET @PoslPros = @ProsCena
          set @ProsCena = @PoslPros    -- za da go opfatam slucajot koga od gore se prenesuva
        end
        -- Gotovo so Dodadeno Aug 22, 2004
     ----------------------------------------------------------------------------------------

    -----------------------------------------------------------------------------------------
    ---- Ova e GLAVNATA LUPA ZA UPROSECCUVANJE VO NORMALNI USLOVI ZA EDEN ARTIKL
    WHILE @VlIma = 'D' or @IzlIma = 'D'
    BEGIN
        -----IF @VlIma = 'N' AND @IzlIma = 'N' EXIT
        SET @GledajVlez    = 'N'
        SET @GledajIzlez = 'N'
        IF @VlIma = 'N'
            SET @GledajIzlez = 'D'
        Else IF @IzlIma = 'N'
            SET @GledajVlez = 'D'
        Else IF @VDatum_Dok <= @IDatum_Dok
            SET @GledajVlez = 'D'
        Else IF @ProsCena <= 0
            SET @GledajVlez = 'D'
                else if @IKolic > 0 and @Vlez - @Izlez < @IKolic
            SET @GledajVlez = 'D'
        Else
            SET @GledajIzlez = 'D'

        IF @GledajVlez = 'D'
        Begin
                        IF @VTip = 'F' and @OrigVlIzl <> 'V'        -- Ova <> 'V' e dodadeno Maj 3, 2009 za VLEZNI FIN.RAZLIKI koi vlijaat na cenata
                        begin
                            set @VrIzl_Kart = @VrIzl_Kart + (- @VVrednost)
                        end
                        ELSE
                        begin

                if @VTip = 'F' and @OrigVlIzl = 'V'
                set @ImaVlFinRazl = 1
                else
                set @ImaVlFinRazl = 0        -- DK Okt 7, 10  else-to

                SET @Vr_Vlez = @Vr_Vlez + @VVrednost
                SET @Vlez = @Vlez + @VKolic        -- Ne e problem i kaj vlezni Fin.Razl, zassto se 0

                -- Tekovno presmetuvaj ja MAX NAB i MIN NAB cena zaradi zasstita od
                -- sindromot na mali-koliccini-ima-nekoj-vlez-imalo-finansiska-razlika-dava-ogromna-cena
                -- Fev 21, 2010 DK
                if @VTip <> 'F'        -- Znacci normalen vlez e (ne e finansiska razilika)
                begin
                if @VNabCena >= 0 and @ImaVlFinRazl = 0    -- Nabavnata cena od STAVR
                begin
                    if @VNabCena < @TekMinCena
                        set @TekMinCena = @VNabCena
                    if @VNabCena > @TekMaxCena
                        set @TekMaxCena = @VNabCena
                end
                end

                IF @Vlez - @Izlez <> 0
                  Begin
                SET @ProsCena = (@Vr_Vlez - @Vr_Izlez) / (@Vlez - @Izlez)
                If @ProsCena < 0
                    SET @ProsCena = 0
                else if @VTip = 'F'    -- Ako e Fin.Razlika, ke mora Min/Max Cena da se smeni, nema da e greska
                  begin        -- DK Okt 7, 10
                    if @ProsCena < @TekMinCena
                        set @TekMinCena = @ProsCena
                    if @ProsCena > @TekMaxCena
                        set @TekMaxCena = @ProsCena
                  end
                else if @ProsCena < @TekMinCena
                    SET @ProsCena = @TekMinCena
                else if @ProsCena > @TekMaxCena
                    SET @ProsCena = @TekMaxCena
                  End
                ELSE
                SET @ProsCena = 0

                IF @ProsCena > 0
                SET @PoslPros = @ProsCena
                        end

            FETCH NEXT FROM Vlezovi
            INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost, @OrigVlIzl, @VNabCena
            IF @@FETCH_STATUS <> 0
                SET @VlIma = 'N'
        End
        ELSE
        Begin
            SET @VrIzl_Kart = @VrIzl_Kart + @IVrednost
            SET @Vr_Izlez = @Vr_Izlez + @PoslPros * @IKolic
            SET @Izlez = @Izlez + @IKolic
            -- Dodadeno Okt 11, 2004
            if @AzurNabCStavr = 'D' or @AzurNabCStavr = 'F'
                        begin
                           if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe, @Sifra_Dok, @Sifra_Prim) = 'N'
                             set @Gjubr = 0
                           else if (@Datum_Od is not null) and @IDatum_Dok < @Datum_Od
                             set @Gjubr = 0
                           else if @AzurNabCStavr = 'D' and (@IBroj_Nal is not null)
                             set @Gjubr = 0
                           else if @PoslPros <= 0
                             set @Gjubr = 0
                           else
                             begin
                                 update stavr set NabCena = @PoslPros where DokId = @IDokId
                                 if @Azur_DokMagCena = 'D'
                 begin
                                     set @SpecSQL = 'update stavr set DokCena=' + cast(@PoslPros as varchar(18)) + ', MagCena=' + cast(@PoslPros as varchar(18)) + ', DanDokCena = ''N'', DanMagCena = ''N'' where DokId=' + cast(@IDokId as varchar(12)) + ' and Sifra_Dok in (' + cast(@Azur_DokMag_TipDok as varchar(50)) + ')'
                     EXEC(@SpecSQL)
                                 end
                 if @Imadodatna = 'D'
                                   begin
                                     update stavr set NabCena = @PoslPros
                                     where Sifra_art = @Sifra_art and Sifra_Oe = @Sifra_Prim and Sifra_Dok = @Sifra_Dok and Broj_dok = @Broj_dok and Sifra_Prim = @Sifra_oe and Imadodatna = 'P'
                                     if @Azur_DokMagCena = 'D'
                      begin
                                        --set @SpecSQL = 'q'
                                        set @SpecSQL = 'update stavr set DokCena=' + cast(@PoslPros as varchar(18)) + ', MagCena=' + cast(@PoslPros as varchar(18)) + ', DanDokCena = ''N'', DanMagCena = ''N'' where Sifra_art=' + cast(@Sifra_art as varchar(20)) + ' and Sifra_Oe=' + cast(@Sifra_Prim as varchar(5)) + ' and Sifra_Dok=' + cast(@Sifra_Dok as varchar(5)) + ' and Broj_dok=' + cast(@Broj_dok as varchar(10)) + ' and Sifra_Prim=' + cast(@Sifra_oe as varchar(5)) + ' and Imadodatna = ''P'' and Sifra_Dok in (' + cast(@Azur_DokMag_TipDok as varchar(50)) + ')'
                        EXEC(@SpecSQL)
                                     end
                                   end
                             end
                        end

                        -- Gotovo so dodadeno Okt 11, 2004
            FETCH NEXT FROM Izlezi
            INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal,
                 @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna
            IF @@FETCH_STATUS <> 0
                SET @IzlIma = 'N'
        End
    END        --while
    ---- Gotovo so GLAVNATA LUPA ZA UPROSECCUVANJE VO NORMALNI USLOVI ZA EDEN ARTIKL
    -----------------------------------------------------------------------------------------

    CLOSE Vlezovi
    DEALLOCATE Vlezovi

    CLOSE Izlezi
    DEALLOCATE Izlezi

--print @Vr_Vlez
--print @Vr_Izlez
--print @PoslPros
--print 'qwe'
--print @Vr_Vlez
--print @VrIzl_Kart
    SET @Vr_Treba = (@Vlez - @Izlez) * @PoslPros
    SET @Vr_Kartica = @Vr_Vlez - @VrIzl_Kart
        set @Vr_Razl = @Vr_Treba - @Vr_Kartica
    if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe, null, null) = 'N'
          set @Gjubr = 0
    else
    begin
          if abs(@vr_razl) > 0.009
          begin
            update #TmpArt
            set Razlika = - @Vr_Razl
            where sifrA_art = @sifra_art
          end

          if @AzurProsCena = 'D' and @PoslPros > 0
          begin
         update soart
             set nnabcena = @PoslPRos
             where sifra_oe = @Sifra_oe and sifra_art = @sifrA_art
          end

      if @POslPros > 0
      begin
        -- Dodadeno Maj 3, 2009 -- vo sekoj sluccaj da ja proveruva Posl.Min,MaxCena vo SOART
        Declare @nMinSoa decimal (18,6)
        Declare @nMaxSoa decimal (18,6)

        select @nMinSoa = NMinCena, @nMaxSoa = NMaxCena
        from Soart
            where sifra_oe = @Sifra_oe and sifra_art = @sifrA_art

        if @nMinSoa is null or @nMinSoa <= 0 or @PoslPros < @nMinSoa
        update soart
        set NMinCena = @PoslPros
                where sifra_oe = @Sifra_oe and sifra_art = @sifrA_art

        if @nMaxSoa is null or @nMaxSoa <= 0 or @PoslPros > @nMaxSoa
        update soart
        set NMaxCena = @PoslPros
                where sifra_oe = @Sifra_oe and sifra_art = @sifrA_art

      end
        end

    FETCH NEXT FROM Artikli
    INTO @Sifra_Art, @Razlika

End
CLOSE Artikli
DEALLOCATE Artikli

if @Podr = 'V'
  SELECT * FROM #TmpArt
  where abs(razlika) > 0.009
  order by abs(razlika) DESC
else
  SELECT * FROM #TmpArt
  where abs(razlika) > 0.009








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdifinrazl_grupa]'))
drop procedure [dbo].[sp_najdifinrazl_grupa]

Go



CREATE    PROCEDURE sp_NajdiFinRazl_Grupa
    @KoiOe        varchar(10),
    @Sifra_OE_Baza    smallint,
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Datum_Do    smalldatetime,
    @AzurProsCena    char(1) = 'N',
    @Datum_Poc    smalldatetime = null,
        @AzurNabCStavr    char (1) = 'N',    -- D=azuriraj kade sto ne se azurirani,
                    -- F=forsiraj azuriranje na site dokumenti, bez ogled na azurirani
    @Datum_Od    smalldatetime = null,
        @Azur_DokMagCena char (1) = null,
        @Azur_DokMag_TipDok varchar (50) = null
AS
    Set Nocount On
    Declare @SSQL as varchar(8000)
------
DECLARE @Sifra_oe as smallint
------
    CREATE TABLE #TmpArt
(    Sifra_Art    varchar(20),
    Razlika        decimal(18,6)
)
    -- ABC
    SET @SSQL = 'INSERT INTO #TmpArt (sifrA_art) SELECT DISTINCT s.Sifra_Art FROM SoArt S Inner Join Katart K  on S.sifra_art = K.sifra_art
             WHERE S.Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOe + ''') and K.smatusl <> ''U'' '
    If @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    EXEC(@SSQL)
    CREATE TABLE #TmpVlez
(    Datum_Dok    smalldatetime,
    Tip            char(1),
    VlIzl        char(1),
    Kolic        decimal(18,6),
    Vrednost    decimal(18,6)
)
    CREATE TABLE #TmpIzlez
(    Datum_Dok    smalldatetime,
    Kolic        decimal(18,6),
    Vrednost    decimal(18,6),
        DokId           int,
        Broj_Nal        int,
        Sifra_Dok       smallint,
        Broj_dok        int,
        Sifra_Prim      smallint,
        Imadodatna      char (1),
        Sifra_Oe    smallint
)
    Declare @Sifra_Art    varchar(20)
    Declare @Razlika    decimal(18,6)
    Declare @ProsCena    decimal(18,6)
    Declare @PoslPros    decimal(18,6)
    Declare @VlIma        char(1)
    Declare @IzlIma        char(1)
    Declare @Vr_Vlez    decimal(18,6)
    Declare @Vr_Izlez    decimal(18,6)
    Declare @Vlez        decimal(18,6)
    Declare @Izlez        decimal(18,6)
    Declare @VrIzl_Kart    decimal(18,6)
    Declare @Vr_Treba    decimal(18,6)
        Declare @Vr_Kartica     decimal(18,6)
        Declare @Vr_Razl        decimal(18,6)
    Declare @VDatum_Dok    smalldatetime
    Declare @VTip        char(1)
    Declare @VVlIzl        char(1)
    Declare @VKolic        decimal(18,6)
    Declare @VVrednost    decimal(18,6)
    Declare @IDatum_Dok    smalldatetime
    Declare @IKolic        decimal(18,6)
    Declare @IVrednost    decimal(18,6)
        Declare @IDokID        int
        Declare @IBroj_Nal    int
    Declare @GledajVlez    char(1)
    Declare @GledajIzlez    char(1)
        Declare @VlImaPoc       char(1)
        Declare @IzlImaPoc      char(1)
    Declare @Gjubr            int
        Declare @Sifra_Dok      smallint
        Declare @Broj_Dok       int
        Declare @Sifra_Prim     smallint
        Declare @Imadodatna     char (1)
        Declare @SpecSQL        varchar (2000)
DECLARE Artikli CURSOR FAST_FORWARD FOR SELECT * FROM #TmpArt
OPEN Artikli
FETCH NEXT FROM Artikli INTO @Sifra_Art, @Razlika
WHILE @@FETCH_STATUS = 0
Begin
    DELETE FROM #TmpVlez
    DELETE FROM #TmpIzlez
    -- ABC
    INSERT INTO #TmpVlez
    SELECT Datum_Dok, 'V', VlIzl, Kolic, Kolic*NabCena
    FROM Stavr
    WHERE Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @KoiOe)
    AND Sifra_Art = @Sifra_Art AND Datum_Dok <= @Datum_Do AND VlIzl = 'V'
    -- ABC
    INSERT INTO #TmpVlez SELECT Datum_Dok, 'F', VlIzl, 0, Iznos_Razl
    FROM RazlFin
    WHERE Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @KoiOe)
    AND Sifra_Art = @Sifra_Art AND Datum_Dok <= @Datum_Do
    UPDATE #TmpVlez SET VlIzl='V', Vrednost = Vrednost * -1 WHERE Tip='F' AND VlIzl='I'
    -- ABC
    INSERT INTO #TmpIzlez
    SELECT S.Datum_Dok, S.Kolic, S.Kolic*S.NabCena, S.DokID, D.Broj_Nal, S.Sifra_dok, S.Broj_dok, S.Sifra_Prim, S.Imadodatna, S.Sifra_Oe
    FROM Stavr S, Dokr D
    WHERE S.Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @KoiOe)
    AND S.Sifra_Art = @Sifra_Art AND S.Datum_Dok <= @Datum_Do AND S.VlIzl = 'I' and S.DokrId = D.DokrId
    SET @ProsCena    = 0
    SET @PoslPros    = 0
    SET @VlIma        = 'D'
    SET @IzlIma        = 'D'
    SET @Vr_Vlez    = 0
    SET @Vr_Izlez    = 0
    SET @Vlez        = 0
    SET @Izlez        = 0
    SET @VrIzl_Kart    = 0
    DECLARE Vlezovi CURSOR FAST_FORWARD FOR SELECT * FROM #TmpVlez order by datum_dok
    OPEN Vlezovi
    FETCH NEXT FROM Vlezovi INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost
    IF @@FETCH_STATUS <> 0 SET @VlIma = 'N'
    DECLARE Izlezi CURSOR FAST_FORWARD FOR SELECT * FROM #TmpIzlez order by datum_dok
    OPEN Izlezi
    FETCH NEXT FROM Izlezi INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna, @Sifra_Oe
    IF @@FETCH_STATUS <> 0 SET @IzlIma = 'N'
    -- Dodadeno Aug 22, 2004 za da gleda od nekoja pocetna sostojba, bez da uprosecuva idealno do nea
        ---------------------------------------------------------------------------------------------------
    if @Datum_Poc is NOT NULL and @VlIma = 'D'
        begin
           set @VlImaPoc = 'D'
       WHILE @VlImaPoc = 'D' -- istrcaj gi site vlezovi
       BEGIN
               if @VDatum_Dok >= @Datum_Poc
           set @VlImaPoc = 'N'
               else
               begin
                   if @VTip = 'F'
                   begin
                      set @VrIzl_Kart = @VrIzl_Kart + (- @VVrednost)
                      set @Vr_Izlez = @Vr_Izlez + (- @VVrednost)
                   end
                   else
                   begin
              SET @Vr_Vlez = @Vr_Vlez + @VVrednost
              SET @Vlez = @Vlez + @VKolic
                      if @VKolic <> 0        -- aproksimacija vo slucaj na kraj na poceten period da ne mozam da presmetam prosecna cena
                         set @PoslPros = @VVrednost / @VKolic
                   end
           FETCH NEXT FROM Vlezovi INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost
           IF @@FETCH_STATUS <> 0
                   begin
                      SET @VlImaPoc = 'N'
                      SET @VlIma = 'N'
                   end
               end
           END
        end
    if @Datum_Poc is NOT NULL and @IzlIma = 'D'
        begin
           set @IzlImaPoc = 'D'
       WHILE @IzlImaPoc = 'D' -- istrcaj gi site izlezi
       BEGIN
               if @IDatum_Dok >= @Datum_Poc
           set @IzlImaPoc = 'N'
               else
               begin
                   SET @VrIzl_Kart = @VrIzl_Kart + @IVrednost
           SET @Vr_Izlez = @Vr_Izlez + @IVrednost
           SET @Izlez = @Izlez + @IKolic
               FETCH NEXT FROM Izlezi INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna, @Sifra_Oe
           IF @@FETCH_STATUS <> 0
                   begin
                     SET @IzlImaPoc = 'N'
                     SET @IzlIma = 'N'
                   end
               end
           END
        end
    if @Datum_Poc is NOT NULL
        begin
          IF @Vlez - @Izlez <> 0
      Begin
         SET @ProsCena = (@Vr_Vlez - @Vr_Izlez) / (@Vlez - @Izlez)
         If @ProsCena < 0 SET @ProsCena = 0
          End
      ELSE
         SET @ProsCena = 0
          IF @ProsCena > 0 SET @PoslPros = @ProsCena
          set @ProsCena = @PoslPros    -- za da go opfatam slucajot koga od gore se prenesuva
        end
        -- Gotovo so Dodadeno Aug 22, 2004
     ----------------------------------------------------------------------------------------
    WHILE @VlIma = 'D' or @IzlIma = 'D'
    BEGIN
        -----IF @VlIma = 'N' AND @IzlIma = 'N' EXIT
        SET @GledajVlez    = 'N'
        SET @GledajIzlez = 'N'
        IF @VlIma = 'N'
            SET @GledajIzlez = 'D'
        Else IF @IzlIma = 'N'
            SET @GledajVlez = 'D'
        Else IF @VDatum_Dok <= @IDatum_Dok
            SET @GledajVlez = 'D'
        Else IF @ProsCena <= 0
            SET @GledajVlez = 'D'
                else if @IKolic > 0 and @Vlez - @Izlez < @IKolic
            SET @GledajVlez = 'D'
        Else
            SET @GledajIzlez = 'D'
        IF @GledajVlez = 'D'
        Begin
                        if @VTip = 'F'
                          begin
                         set @VrIzl_Kart = @VrIzl_Kart + (- @VVrednost)
                            ----set @Vr_Izlez = @Vr_Izlez + (- @VVrednost)   -- Dodadeno Sept 27, 2006 DK, zasto toa e REALEN IZLEZ napraven
                          end
                        else
                          begin
                SET @Vr_Vlez = @Vr_Vlez + @VVrednost
                SET @Vlez = @Vlez + @VKolic
                IF @Vlez - @Izlez <> 0
                  Begin
                SET @ProsCena = (@Vr_Vlez - @Vr_Izlez) / (@Vlez - @Izlez)
                If @ProsCena < 0 SET @ProsCena = 0
                  End
                ELSE
                SET @ProsCena = 0
                IF @ProsCena > 0 SET @PoslPros = @ProsCena
                          end
            FETCH NEXT FROM Vlezovi INTO @VDatum_Dok, @VTip, @VVlIzl, @VKolic, @VVrednost
            IF @@FETCH_STATUS <> 0 SET @VlIma = 'N'
        End
        ELSE
        Begin
            SET @VrIzl_Kart = @VrIzl_Kart + @IVrednost
            SET @Vr_Izlez = @Vr_Izlez + @PoslPros * @IKolic
            SET @Izlez = @Izlez + @IKolic
            -- Dodadeno Okt 11, 2004
            if @AzurNabCStavr = 'D' or @AzurNabCStavr = 'F'
                        begin
                           if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe, @Sifra_Dok, @Sifra_Prim) = 'N'
                             set @Gjubr = 0
                           else if (@Datum_Od is not null) and @IDatum_Dok < @Datum_Od
                             set @Gjubr = 0
                           else if @AzurNabCStavr = 'D' and (@IBroj_Nal is not null)
                             set @Gjubr = 0
                           else if @PoslPros <= 0
                             set @Gjubr = 0
                           else
                             begin
                                 update stavr set NabCena = @PoslPros where DokId = @IDokId
                                 if @Azur_DokMagCena = 'D'
                 begin
                                     set @SpecSQL = 'update stavr set DokCena=' + cast(@PoslPros as varchar(18)) + ', MagCena=' + cast(@PoslPros as varchar(18)) + ', DanDokCena = ''N'', DanMagCena = ''N'' where DokId=' + cast(@IDokId as varchar(12)) + ' and Sifra_Dok in (' + cast(@Azur_DokMag_TipDok as varchar(50)) + ')'
                     EXEC(@SpecSQL)
                                 end
                 if @Imadodatna = 'D'
                                   begin
                                     update stavr set NabCena = @PoslPros
                                     where Sifra_art = @Sifra_art and Sifra_Oe = @Sifra_Prim and Sifra_Dok = @Sifra_Dok and Broj_dok = @Broj_dok and Sifra_Prim = @Sifra_oe and Imadodatna = 'P'
                                     if @Azur_DokMagCena = 'D'
                      begin
                                        --set @SpecSQL = 'q'
                                        set @SpecSQL = 'update stavr set DokCena=' + cast(@PoslPros as varchar(18)) + ', MagCena=' + cast(@PoslPros as varchar(18)) + ', DanDokCena = ''N'', DanMagCena = ''N'' where Sifra_art=' + cast(@Sifra_art as varchar(20)) + ' and Sifra_Oe=' + cast(@Sifra_Prim as varchar(5)) + ' and Sifra_Dok=' + cast(@Sifra_Dok as varchar(5)) + ' and Broj_dok=' + cast(@Broj_dok as varchar(10)) + ' and Sifra_Prim=' + cast(@Sifra_oe as varchar(5)) + ' and Imadodatna = ''P'' and Sifra_Dok in (' + cast(@Azur_DokMag_TipDok as varchar(50)) + ')'
                        EXEC(@SpecSQL)
                                     end
                                   end
                             end
                        end
                        -- Gotovo so dodadeno Okt 11, 2004
            FETCH NEXT FROM Izlezi INTO @IDatum_Dok, @IKolic, @IVrednost, @IDokID, @IBroj_Nal, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @Imadodatna, @Sifra_Oe
            IF @@FETCH_STATUS <> 0 SET @IzlIma = 'N'
        End
    END        --while
    CLOSE Vlezovi
    DEALLOCATE Vlezovi
    CLOSE Izlezi
    DEALLOCATE Izlezi
--print @Vr_Vlez
--print @Vr_Izlez
--print @PoslPros
--print 'qwe'
--print @Vr_Vlez
--print @VrIzl_Kart
    SET @Vr_Treba = (@Vlez - @Izlez) * @PoslPros
    SET @Vr_Kartica = @Vr_Vlez - @VrIzl_Kart
        set @Vr_Razl = @Vr_Treba - @Vr_Kartica
    if dbo.fix_uproseci_izlez (@Sifra_Art, @Sifra_Oe_Baza, null, null) = 'N'
          set @Gjubr = 0
    else
    begin
          if abs(@vr_razl) > 0.009
          begin
            update #TmpArt
            set Razlika = - @Vr_Razl
            where sifrA_art = @sifra_art
          end
          if @AzurProsCena = 'D' and @PoslPros > 0
          begin
         -- ABC
             update soart
             set nnabcena = @PoslPRos
             where Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @KoiOe)
        and sifra_art = @sifrA_art
          end
        end
    FETCH NEXT FROM Artikli INTO @Sifra_Art, @Razlika
End
CLOSE Artikli
DEALLOCATE Artikli
SELECT * FROM #TmpArt where abs(razlika) > 0.009




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikolicrabat]'))
drop procedure [dbo].[sp_najdikolicrabat]

Go


CREATE PROCEDURE sp_NajdiKolicRabat
    @Paketi decimal (18, 4),
    @KolRabat Decimal(9,4) OUTPUT
AS
    Select @KolRabat=Rabat From Usl_KolRab_Fra
        Where Od_Kolic<@Paketi AND Do_Kolic>=@Paketi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikolicrabatsopodelart]'))
drop procedure [dbo].[sp_najdikolicrabatsopodelart]

Go



CREATE  PROCEDURE sp_NajdiKolicRabatSoPodelArt
    @Paketi            decimal (18, 4),
    @Sifra_Podelba    varchar(20),
    @Sifra_Tip        smallint,
    @KolRabat        Decimal(9,4) OUTPUT
AS
    Select @KolRabat=Rabat From Usl_KolRab_Fra
    Where Od_Kolic<@Paketi AND Do_Kolic>=@Paketi AND Sifra_Podelba=@Sifra_Podelba AND Sifra_Tip=@Sifra_Tip





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikomint]'))
drop procedure [dbo].[sp_najdikomint]

Go







CREATE             PROCEDURE sp_NajdiKomint
    @Smetka        varchar(35) = NULL,
    @Danocen    varchar(15) = NULL,
    @MatBr        varchar(7) = NULL,
    @Adresa        varchar(40) = NULL,
    @DelIme        varchar(40)=NULL,
    @Sifra_Grad    smallint = NULL,
    @Smesto        varchar(30) = NULL,
    @Zemja        varchar(20) = NULL,
    @KDrugo1    smallint = NULL
AS
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT Sifra_Kup, ImeKup, Adresa, SMesto, Danocen, MatBr
    FROM Komint  WHERE 1=1 '
    IF @DelIme IS NOT NULL
        SET @SSQL = @SSQL + ' AND ImeKup LIKE ''%' + @DelIme + '%'' '
    IF @Danocen IS NOT NULL
        SET @SSQL = @SSQL + ' AND Danocen LIKE ''%' + @Danocen + '%'' '
    IF @MatBr IS NOT NULL
        SET @SSQL = @SSQL + ' AND MatBr LIKE ''%' + @MatBr + '%'' '
    IF @Adresa IS NOT NULL
        SET @SSQL = @SSQL + ' AND Adresa LIKE ''%' + @Adresa + '%'' '
    IF @Smesto IS NOT NULL
        SET @SSQL = @SSQL + ' AND Smesto LIKE ''%' + @Smesto + '%'' '
    IF @Smetka IS NOT NULL
        SET @SSQL = @SSQL + ' AND (Ziro LIKE ''%' + @Smetka + '%'' OR Ziro2 LIKE  ''%' + @Smetka +
        '%'' OR Sifra_Kup IN (SELECT Sifra_Kup FROM KBanki WHERE ZiroSka LIKE ''%' + @Smetka + '%'' )) '
        ---OR Ziro2 LIKE  ''%' + @Smetka +     '%'' ))'
    IF @Sifra_Grad IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Grad=' + cast(@Sifra_Grad as varchar(6))
    IF @Zemja IS NOT NULL
        SET @SSQL = @SSQL + ' AND Zemja LIKE ''%' + @Zemja + '%'' '
    IF @KDrugo1 IS NOT NULL
        SET @SSQL = @SSQL + ' AND KDrugo1=' + cast(@KDrugo1 as varchar(6))


    EXEC(@SSQL)

select * from KDrugo1
select * From Komint




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikomintposmetka]'))
drop procedure [dbo].[sp_najdikomintposmetka]

Go
CREATE PROCEDURE sp_NajdiKomintPoSmetka
    @Smetka    varchar(50),
    @Sifra_Kup Char (6)='' OUTPUT,
    @KlkZapisi int =0 OUTPUT
AS

SET @Smetka = Replace(@Smetka, '-', '')
SET @Smetka = Replace(@Smetka, ' ', '')

CREATE TABLE #TmpK
(Sifra_Kup    char(6))

INSERT INTO #TmpK SELECT Sifra_Kup FROM KBanki WHERE Replace(Replace(ZiroSka, '-', ''), ' ', '')=@Smetka
INSERT INTO #TmpK SELECT Sifra_Kup FROM Komint WHERE Replace(Replace(Ziro, '-', ''), ' ', '')=@Smetka
INSERT INTO #TmpK SELECT Sifra_Kup FROM Komint WHERE Replace(Replace(Ziro2, '-', ''), ' ', '')=@Smetka

SELECT @KlkZapisi=COUNT(DISTINCT Sifra_Kup) FROM #TmpK
IF @KlkZapisi IS NULL SET @KlkZapisi=0
SELECT @Sifra_Kup = Sifra_Kup FROM #TmpK



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikonfazurtros]'))
drop procedure [dbo].[sp_najdikonfazurtros]

Go
CREATE   PROCEDURE sp_NajdiKonfAzurTros
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Pat    Smallint,
    @Sifra_TrosM smallint =NULL OUTPUT
AS
              -- Prvo komvbinacija cela dali odgovara
    SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Pat = @Sifra_Pat
    IF @@RowCount = 1 RETURN
             -- Potoa moznite kombinacii od 2 - po - 2
    SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Pat = @Sifra_Pat
    IF  @@RowCount = 1 RETURN
    SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Pat = 0
    IF  @@RowCount = 1 RETURN
    SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
    WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Pat = @Sifra_Pat
    IF  @@RowCount = 1 RETURN
            -- I na kraj kombinaciite so samo eden podatok
    IF @Sifra_dok  <> 0
        Begin
            SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
            WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Pat = 0
            IF @@RowCount = 1 RETURN
        End
    IF @Sifra_Pat  <> 0
        Begin
            SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
            WHERE Sifra_dok = 0 AND Sifra_OE = 0 AND Sifra_Pat = @Sifra_Pat
            IF @@RowCount = 1 RETURN
        End
    IF @Sifra_OE  <> 0
        Begin
            SELECT @Sifra_TrosM = Sifra_TrosM FROM KonfAzurTros
            WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Pat = 0
            IF @@RowCount = 1 RETURN
        End
    Set @Sifra_TrosM = NULL




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikonfceni]'))
drop procedure [dbo].[sp_najdikonfceni]

Go

CREATE   PROCEDURE sp_NajdiKonfCeni
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Prim    Smallint,
    @KojaCena     varchar(20)  OUTPUT,
    @KojaCenaM     varchar(20)  OUTPUT,
    @DaliMoze    char(1)         OUTPUT,
             @VleziCena       char(1)          OUTPUT,
             @VleziCena1     char(1)          OUTPUT
AS
              -- Prvo komvbinacija cela dali odgovara
    SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
    FROM KonfCeni
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim
    IF @@RowCount = 1 RETURN
             -- Potoa moznite kombinacii od 2 - po - 2
    SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
    FROM KonfCeni
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Prim = @Sifra_Prim
    IF  @@RowCount = 1 RETURN
    SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
    FROM KonfCeni
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = 0
    IF  @@RowCount = 1 RETURN
    SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
    FROM KonfCeni
    WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim
    IF  @@RowCount = 1 RETURN
            -- I na kraj kombinaciite so samo eden podatok
    IF @Sifra_dok  <> 0
        Begin
                                 SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
            FROM KonfCeni
            WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Prim = 0
                               IF @@RowCount = 1 RETURN
        End
    IF @Sifra_Prim  <> 0
        Begin
                                 SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
            FROM KonfCeni
            WHERE Sifra_dok = 0 AND Sifra_OE = 0 AND Sifra_Prim = @Sifra_Prim
            IF @@RowCount = 1 RETURN
        End
    IF @Sifra_OE  <> 0
        Begin
                                 SELECT @KojaCena = KojaCena, @KojaCenaM = KojaCenaM, @DaliMoze = DaliMoze, @VleziCena = VleziCena, @VleziCena1 = VleziCena1
            FROM KonfCeni
            WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Prim = 0
            IF @@RowCount = 1 RETURN
        End
    Set @KojaCena = ''
    Set @DaliMoze = 'D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikonfdokprenos]'))
drop procedure [dbo].[sp_najdikonfdokprenos]

Go
CREATE    PROCEDURE sp_NajdiKonfDokPrenos
    @Tabela    char(20),
    @ISifra_Dok    Smallint,
    @ISifra_OE    Smallint,
    @ISifra_Kup    char(6),
    @ISifra_Obj    smallint = NULL,
    @Izvor        char(1)    OUTPUT,
    @Sinhr_Bris    char(1)    OUTPUT,
             @PrenosVoObj    char(10)    OUTPUT,
             @Vleci        char(1)    OUTPUT,
    @Turni        char(1)    OUTPUT,
    @PSifra_Oe    smallint OUTPUT,
    @PSifra_Dok    smallint OUTPUT,
    @PGolMal    char(1) OUTPUT,
    @PSifra_Kup    char(6) OUTPUT,
    @PImeBaza    varchar(20) OUTPUT,
    @PUrl        varchar(50) OUTPUT
AS
              -- Prvo komvbinacija cela dali odgovara
SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
FROM KonfDokPrenos
WHERE ISifra_dok = @ISifra_Dok AND ISifra_OE = @ISifra_OE AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = @ISifra_Obj AND Tabela=@Tabela
IF @@RowCount = 1 RETURN
     -- Potoa moznite kombinacii od 2 - po - 2
SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
FROM KonfDokPrenos
WHERE ISifra_dok = @ISifra_Dok AND ISifra_OE = 0 AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = @ISifra_Obj AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
FROM KonfDokPrenos
WHERE ISifra_dok = 0 AND ISifra_OE = @ISifra_OE AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = @ISifra_Obj AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
FROM KonfDokPrenos
WHERE ISifra_dok = @ISifra_Dok AND ISifra_OE = @ISifra_OE AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = 0 AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
    -- I na kraj kombinaciite so samo eden podatok
IF @ISifra_dok  <> 0
    Begin
    SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
    FROM KonfDokPrenos
    WHERE ISifra_dok = @ISifra_Dok AND ISifra_OE = 0 AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = 0 AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
IF @ISifra_Obj  <> 0
    Begin
    SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
    FROM KonfDokPrenos
    WHERE ISifra_dok = 0 AND ISifra_OE = 0 AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = @ISifra_Obj AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
IF @ISifra_OE  <> 0
    Begin
    SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
    FROM KonfDokPrenos
    WHERE ISifra_dok = 0 AND ISifra_OE = @ISifra_OE AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = 0 AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
SELECT @PSifra_OE=PSifra_OE, @PSifra_Dok=PSifra_Dok, @PSifra_Kup=PSifra_Kup, @PGolMal=PGolMal, @PImeBaza=PImeBaza, @PUrl=PUrl,
    @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor
FROM KonfDokPrenos
WHERE ISifra_dok = 0 AND ISifra_OE = 0 AND ISifra_Kup = @ISifra_Kup AND ISifra_Obj = 0 AND Tabela=@Tabela
IF @@RowCount = 1 RETURN
    SET @Izvor=''



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikonfnasobjdok]'))
drop procedure [dbo].[sp_najdikonfnasobjdok]

Go

CREATE     PROCEDURE sp_NajdiKonfNasObjDok
    @Tabela    char(20),
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Prim    Smallint,
    @Izvor        char(1)    OUTPUT,
    @Azur_Izvor     char(1)  OUTPUT,
    @Azur_Drug    char(1)  OUTPUT,
    @Sinhr_Bris    char(1)    OUTPUT,
    @PrenosVoObj    char(10)    OUTPUT,
    @Vleci        char(1)    OUTPUT,
    @Turni        char(1)    OUTPUT,
    @Vo_Sifra_Dok smallint = 0 OUTPUT
AS
              -- Prvo komvbinacija cela dali odgovara
SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
FROM KonfNasObjDok
WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim AND Tabela=@Tabela
IF @@RowCount = 1 RETURN
     -- Potoa moznite kombinacii od 2 - po - 2
SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
FROM KonfNasObjDok
WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Prim = @Sifra_Prim    AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
FROM KonfNasObjDok
WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = 0 AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
FROM KonfNasObjDok
WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim AND Tabela=@Tabela
IF  @@RowCount = 1 RETURN
    -- I na kraj kombinaciite so samo eden podatok
IF @Sifra_dok  <> 0
    Begin
    SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
    FROM KonfNasObjDok
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND Sifra_Prim = 0 AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
IF @Sifra_Prim  <> 0
    Begin
    SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
    FROM KonfNasObjDok
    WHERE Sifra_dok = 0 AND Sifra_OE = 0 AND Sifra_Prim = @Sifra_Prim AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
IF @Sifra_OE  <> 0
    Begin
    SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
    FROM KonfNasObjDok
    WHERE Sifra_dok = 0 AND Sifra_OE = @Sifra_OE AND Sifra_Prim = 0 AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
    End
SELECT @Azur_Izvor=Azur_Izvor, @Azur_Drug=Azur_Drug, @Sinhr_Bris=Sinhr_Bris, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni, @Izvor=Izvor, @Vo_Sifra_Dok=Vo_Sifra_Dok
FROM KonfNasObjDok
WHERE Sifra_dok = 0 AND Sifra_OE = 0 AND Sifra_Prim = 0 AND Tabela=@Tabela
IF @@RowCount = 1 RETURN
    SET @Izvor=''




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikonfnasobjmatic]'))
drop procedure [dbo].[sp_najdikonfnasobjmatic]

Go


CREATE    PROCEDURE sp_NajdiKonfNasObjMatic
    @Tabela            char(20),
    @SifraI            int,
    @SifraS            varchar(20),
    @Izvor            char(1)    OUTPUT,
    @OdmaPrenos     char(1) OUTPUT,
    @PrenosVoObj    char(1) OUTPUT,
    @Vleci            char(1)    OUTPUT,
    @Turni            char(1)    OUTPUT
AS
IF @SifraI IS NOT NULL
Begin
              -- Prvo komvbinacija cela dali odgovara
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_int <= @SifraI AND Kr_int >= @SifraI AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
         -- Potoa moznite kombinacii
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_int <= @SifraI AND Kr_int = 0 AND Tabela=@Tabela
    IF  @@RowCount = 1 RETURN
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_int = 0 AND Kr_int >= @SifraI AND Tabela=@Tabela
    IF  @@RowCount = 1 RETURN
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_int = 0 AND Kr_int = 0 AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
End
ELSE
Begin
              -- Prvo komvbinacija cela dali odgovara
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_char <= @SifraS AND Kr_char >= @SifraS AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
         -- Potoa moznite kombinacii
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_char <= @SifraS AND Kr_char = '' AND Tabela=@Tabela
    IF  @@RowCount = 1 RETURN
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_char = '' AND Kr_char >= @SifraS AND Tabela=@Tabela
    IF  @@RowCount = 1 RETURN
    SELECT @Izvor=Izvor, @OdmaPrenos=OdmaPrenos, @PrenosVoObj=PrenosVoObj, @Vleci=Vleci, @Turni=Turni
    FROM KonfNasObjMatic
    WHERE Poc_char = '' AND Kr_char = '' AND Tabela=@Tabela
    IF @@RowCount = 1 RETURN
END
    SET @Izvor=''




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikorisnik]'))
drop procedure [dbo].[sp_najdikorisnik]

Go




CREATE   PROCEDURE sp_NajdiKorisnik
    @Sifra_Kup    char(6) = NULL,
    @LK        varchar(15) = NULL,
    @RegBrLK    varchar(10)=NULL
AS
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT Sifra_Kor, ImeKor, Sifra_Oe
    FROM KartKor  WHERE 1=1 '
    IF @LK IS NOT NULL
        SET @SSQL = @SSQL + ' AND LK LIKE ''%' + @LK + '%'' '
    IF @Sifra_Kup IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_Kup = ''' + @Sifra_Kup + ''' '
    IF @RegBrLK IS NOT NULL
    Begin
        SET @SSQL = @SSQL+' AND (RegBrLK = '''+@RegBrLK+''' OR RegBrKor2='''+@RegBrLK + ''' OR RegBrKor3= ''' + @RegBrLK + ''') '
    End
    EXEC(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdikorisnikid]'))
drop procedure [dbo].[sp_najdikorisnikid]

Go

CREATE  PROCEDURE sp_NajdiKorisnikID
    @ImeNaKorisnik   varchar(20),
    @IDKOrisnik         int  OUTPUT
AS
    SELECT @IDKOrisnik=UID FROM SysUsers WHERE Name=@ImeNaKorisnik




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdilogo]'))
drop procedure [dbo].[sp_najdilogo]

Go


CREATE    PROCEDURE sp_NajdiLogo
    @TipObr    Char(2),
    @Sifra_OE    Smallint,
    @Sifra_Dok    Smallint
AS
              -- Prvo komvbinacija cela dali odgovara
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr AND Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr AND Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE
    IF @@RowCount = 1 RETURN
End
             -- Potoa moznite kombinacii
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr AND Sifra_OE = @Sifra_OE AND Sifra_Dok = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr AND Sifra_OE = @Sifra_OE AND Sifra_Dok = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr AND Sifra_dok = @Sifra_Dok  AND Sifra_OE = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr AND Sifra_dok = @Sifra_Dok  AND Sifra_OE = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr  AND Sifra_OE = 0 AND Sifra_Dok = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr  AND Sifra_OE = 0 AND Sifra_Dok = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND TipObr = '  ')
Begin
    SELECT * FROM Logo
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND TipObr = '  '
    IF @@RowCount = 1 RETURN
End
IF @Sifra_Dok <> 0
Begin
    IF EXISTS (SELECT * FROM Logo WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND TipObr = '  ')
    Begin
        SELECT * FROM Logo
        WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND TipObr = '  '
        IF @@RowCount = 1 RETURN
    End
End
IF @Sifra_OE <> 0
Begin
    IF EXISTS (SELECT * FROM Logo WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = 0 AND TipObr='  ')
    Begin
        SELECT * FROM Logo
        WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = 0 AND TipObr='  '
        IF @@RowCount = 1 RETURN
    End
End
    Declare @TipObr1 char(2)
    Set @TipObr1 = 'FA'
              -- Prvo komvbinacija cela dali odgovara
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr1 AND Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr1 AND Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE
    IF @@RowCount = 1 RETURN
End
             -- Potoa moznite kombinacii
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr1 AND Sifra_OE = @Sifra_OE AND Sifra_Dok = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr1 AND Sifra_OE = @Sifra_OE AND Sifra_Dok = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr1 AND Sifra_dok = @Sifra_Dok  AND Sifra_OE = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr1 AND Sifra_dok = @Sifra_Dok  AND Sifra_OE = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE TipObr = @TipObr1  AND Sifra_OE = 0 AND Sifra_Dok = 0)
Begin
    SELECT * FROM Logo
    WHERE TipObr = @TipObr1  AND Sifra_OE = 0 AND Sifra_Dok = 0
    IF  @@RowCount = 1 RETURN
End
IF EXISTS (SELECT * FROM Logo WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND TipObr = '  ')
Begin
    SELECT * FROM Logo
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND TipObr = '  '
    IF @@RowCount = 1 RETURN
End
IF @Sifra_Dok <> 0
Begin
    IF EXISTS (SELECT * FROM Logo WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND TipObr = '  ')
    Begin
        SELECT * FROM Logo
        WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = 0 AND TipObr = '  '
        IF @@RowCount = 1 RETURN
    End
End
IF @Sifra_OE <> 0
Begin
    IF EXISTS (SELECT * FROM Logo WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = 0 AND TipObr='  ')
    Begin
        SELECT * FROM Logo
        WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = 0 AND TipObr='  '
        IF @@RowCount = 1 RETURN
    End
End
SELECT * FROM Logo where TipObr = '  '




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdilok_vo_org]'))
drop procedure [dbo].[sp_najdilok_vo_org]

Go

CREATE     PROCEDURE sp_NajdiLok_Vo_Org
    @Sifra_OE     Smallint,
       @Lokac_BarKod    varchar(30),
    @Lokac_Ime      nvarchar(40) = null OUTPUT,
    @Lokac_ID       varchar(30) = null OUTPUT,
    @Sifra_Art      varchar(20) = null OUTPUT,
    @ImeArt         varchar(40) = null OUTPUT,
    @Sostojba       decimal (18,4) = null OUTPUT,
    @KolkuSoSost    int = null OUTPUT,
    @LotBr        varchar(50) = Null OUTPUT,
    @Sifra_KatStatus smallint = Null OUTPUT,
    @RokRed        varchar(10) = Null OUTPUT,
    @ImeKatStatus    varchar(30) = Null OUTPUT

AS

    select @Lokac_Id = Lokac_Id, @Lokac_Ime = Lokac_Ime
    from WhmLokacija
    where Sifra_Oe = @Sifra_Oe and Lokac_BarKod = @Lokac_BarKod

    select @KolkuSoSost = count(*)
    from WhmSost W
    inner join Katart K on K.Sifra_Art = W.Sifra_Art
    where W.Sifra_Oe = @SifrA_Oe and W.Lokac_Id = @Lokac_ID
        and W.Sostojba <> 0

    select top 1
        @Sifra_Art = W.Sifra_Art, @ImeArt = K.ImeArt, @Sostojba = W.Sostojba,
        @LotBr = W.LotBr, @Sifra_KatStatus = W.Sifra_KatStatus, @RokRed = W.RokRed,
        @ImeKatStatus = KS.ImeKatStatus
    from WhmSost W
    inner join Katart K
        on K.Sifra_Art = W.Sifra_Art
    left outer join KatStatus KS
        on KS.Sifra_KatStatus = W.Sifra_KatStatus
    where W.Sifra_Oe = @SifrA_Oe and W.Lokac_Id = @Lokac_ID
        and W.Sostojba <> 0
    order by W.Sostojba Desc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdilokac]'))
drop procedure [dbo].[sp_najdilokac]

Go


CREATE PROCEDURE sp_NajdiLokac
    @Sifra_Art    varchar(20),
        @LOkacija       varchar (10) OUTPUT
AS
    SELECT @Lokacija = Lokacija FROM KatArt
    WHERE Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdilotser_tugaozn]'))
drop procedure [dbo].[sp_najdilotser_tugaozn]

Go
CREATE   PROCEDURE sp_NajdiLotSer_TugaOzn
    @TugaOzn    varchar(30),
    @SpecOzn    varchar(30) = Null OUTPUT,
    @Sifra_Art    varchar(20) = NULL OUTPUT,
    @ImeArt    varchar(50) = NULL OUTPUT,
    @Tip_Set    smallint = NULL OUTPUT,
    @RbrVoSet    smallint = NULL OUTPUT,
    @KolkuVoSet    smallint = NULL OUTPUT,
    @Status_Spec    char(1) = NULL OUTPUT,
    @BrZapisi    int = NULL OUTPUT
AS
    Set @BrZapisi = (Select Count(*) FROM LotSer L    WHERE TugaOzn = @TugaOzn)
    SELECT Top 1 @Sifra_Art = L.Sifra_Art, @SpecOzn = SpecOzn, @ImeArt = K.ImeArt, @Tip_Set=Tip_Set,
            @RbrVoSet=RbrVoSet, @KolkuVoSet=KolkuVoSet, @Status_Spec=Status_Spec
    FROM LotSer L
    Inner Join Katart K on L.Sifra_Art = K.Sifra_Art
    WHERE TugaOzn = @TugaOzn
    Order By L.Sifra_Art, L.SpecOzn



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdimapartimport]'))
drop procedure [dbo].[sp_najdimapartimport]

Go
CREATE PROCEDURE sp_NajdiMapArtImport

    @SifArtImport    varchar(20),
    @SifArtNasa    varchar(20) = Null Output
 AS
    Select @SifArtNasa = Sifra_Art From MapArtImport Where Sifra_Art_Import=@SifArtImport

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdimozeprenoskonfdrbaza]'))
drop procedure [dbo].[sp_najdimozeprenoskonfdrbaza]

Go
CREATE  PROCEDURE sp_NajdiMozePrenosKonfDrBaza
    @Tabela    char(20),
    @KojObj    char(1),
    @Vleci        char(1)    OUTPUT,
    @Turni        char(1)    OUTPUT
AS
    SET @Vleci = 'N'
    SET @Turni = 'N'
    SELECT @Vleci = Vleci FROM KonfDokPrenos WHERE PatIndex('%'+@KojObj + '%', PrenosVoObj)<>0 AND Tabela = @Tabela AND Vleci='D'
    SELECT @Turni = Turni FROM KonfDokPrenos WHERE Izvor = @KojObj AND Tabela = @Tabela AND Turni='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdimozeprenoskonfobj]'))
drop procedure [dbo].[sp_najdimozeprenoskonfobj]

Go

CREATE  PROCEDURE sp_NajdiMozePrenosKonfObj
    @Tabela    char(20),
    @KojObj    char(1),
    @Vleci        char(1)    OUTPUT,
    @Turni        char(1)    OUTPUT
AS
    SET @Vleci = 'N'
    SET @Turni = 'N'
    SELECT @Vleci = Vleci FROM KonfNasObjDok WHERE PatIndex('%'+@KojObj + '%', PrenosVoObj)<>0 AND Tabela = @Tabela AND Vleci='D'
    SELECT @Turni = Turni FROM KonfNasObjDok WHERE Izvor = @KojObj AND Tabela = @Tabela AND Turni='D'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdinarednakreditopomena]'))
drop procedure [dbo].[sp_najdinarednakreditopomena]

Go
CREATE  PROCEDURE sp_NajdiNarednaKreditOpomena
    @Sifra_Oe smallint,
    @Broj_kredit int,
    @Rbr      int OUTPUT
AS
    SELECT TOP 1 @Rbr = Broj_Opomena FROM KreditOpomena WHERE Sifra_OE=@Sifra_OE AND Broj_Kredit=@Broj_Kredit
    ORDER BY Broj_Opomena Desc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdinarednakredittrans]'))
drop procedure [dbo].[sp_najdinarednakredittrans]

Go

CREATE PROCEDURE sp_NajdiNarednaKreditTrans
    @Sifra_Oe smallint,
    @Broj_kredit int,
    @Rbr      int OUTPUT
AS
    SELECT TOP 1 @Rbr = Rbr_KreditTrans FROM KreditTransakc WHERE Sifra_OE=@Sifra_OE AND Broj_Kredit=@Broj_Kredit
    ORDER BY Rbr_KreditTrans Desc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiorginalnanarid]'))
drop procedure [dbo].[sp_najdiorginalnanarid]

Go


CREATE   Procedure sp_NajdiOrginalnaNarID
    @Pod_NarID         int = null,
    @Pod_Sifra_Oe        smallint = null,
    @Pod_Sifra_Nar        smallint = null,
    @Pod_Broj_Nar        smallint = null
as

    If @Pod_NarID is Null And @Pod_Sifra_Oe is Not NULL AND @Pod_Sifra_Nar is Not NULL AND @Pod_Broj_Nar is Not NULL
        Set @Pod_NarID = (Select NarID From Naracki
                  Where Sifra_Oe = @Pod_Sifra_Oe and Sifra_nar = @Pod_Sifra_Nar and Broj_Nar = @Pod_Broj_Nar )


    --
    Declare @@NarID as int
    Set @@NarID = (Select NarId_Orig From NarPodNar Where NarId_PodNar = @Pod_NarID AND Aktiven = 'D')

    If @@NarID IS NUll
        Set @@NarID = @Pod_NarID    --se raboti za orginalna naracka

    Select N.NarID ,TN.Sifra_Nar_Otkaz,D.DokrID
    From Naracki N
    Inner Join TipNarac TN ON N.Sifra_Nar = TN.Sifra_Nar
    Left Outer Join Dokr D on D.Sifra_OeNar = N.Sifra_Oe and D.Sifra_Nar = N.Sifra_Nar and  D.Broj_Nar = N.Broj_Nar
    Where N.NarID = @@NarID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiosnrabatsopodelart]'))
drop procedure [dbo].[sp_najdiosnrabatsopodelart]

Go
CREATE  PROCEDURE sp_NajdiOsnRabatSoPodelArt
    @Datum_Dok        smalldatetime,
    @Rok            smallint,
    @Sifra_Podelba    varchar(20),
    @Sifra_Tip        smallint,
    @OsnRabat        Decimal(9,4) OUTPUT
AS
IF @Datum_Dok IS NULL   SET @Datum_Dok=GetDate()

Select TOP 1 @OsnRabat=Uces From Usl_Komerc_Per
Where Sif_Art_Gen=@Sifra_Podelba AND Sif_Kup_Gen=@Sifra_Tip AND Rok_Dosp=@Rok AND Datum_Od<=@Datum_Dok
--AND Tip_Sif_Kup='T' ....




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiosnsred]'))
drop procedure [dbo].[sp_najdiosnsred]

Go
CREATE        PROCEDURE sp_NajdiOsnSred
    @Ime        nvarchar(65) = NULL,
    @Opis        nvarchar(250) = NULL,
    @Kto_Anal    char(10) = NULL,
    @Sifra_Amor    char(3) = NULL,
    @Sifra_Lok    char(10) = NULL,
    @Sifra_MakLok    char(10) = NULL,
    @Sifra_MikLok    char(10) = NULL,
    @Sifra_Rab    int = NULL,
    @Br_Smena    char(1) = NULL,
    @BarKod    char(15) = NULL,
    @Inv_Broj    char(10) = NULL
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = 'Select  O.Inv_Broj, O.Ime, O.BarKod, O.Sifra_MikLok, O.Opis, O.Kto_Anal, O.Br_Smena, O.Sifra_Amor, O.DatNab,
                O.DatAkt, O.DatPrest, O.Orig_Nab_Vr, O.RedTrans, O.Valuta,
                O.Orig_Nab_Vr_Val, O.Sifra_Rab, O.Tip, MIKL.Sifra_MakLok, MAKL.Sifra_Lok
        From OsnSred O
        Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
        Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
        Where 1=1 '
    If @Ime Is Not Null
        Set @SSQL = @SSQL + ' And O.Ime Like ''%' + @Ime + '%'' '
    If @Opis Is Not Null
        Set @SSQL = @SSQL + ' And O.Opis Like ''%' + @Opis + '%'' '
    If @Kto_Anal Is Not Null
        Set @SSQL = @SSQL + ' And O.Kto_Anal = ''' + @Kto_Anal + ''' '
    If @Sifra_Amor Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @Sifra_MikLok Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_MakLok Is Not Null
        Set @SSQL = @SSQL + ' And MIKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_Lok Is Not Null
        Set @SSQL = @SSQL + ' And MAKL.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Sifra_Rab Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_Rab = ''' + Cast(@Sifra_Rab as varchar(10)) + ''' '
    If @Br_Smena Is Not Null
        Set @SSQL = @SSQL + ' And O.Br_Smena = ''' + @Br_Smena + ''' '
    If @BarKod Is Not Null
        Set @SSQL = @SSQL + ' And O.BarKod = ''' + @BarKod + ''' '
    If @Inv_Broj Is Not Null
        Set @SSQL = @SSQL + ' And O.Inv_Broj = ''' + @Inv_Broj + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdipodgr]'))
drop procedure [dbo].[sp_najdipodgr]

Go



create PROCEDURE sp_NajdiPodgr
    @Sifra_Art    varchar(20),
        @Sifra_Podg       varchar (10) OUTPUT
AS
    SELECT @Sifra_Podg = Sifra_Podg FROM KatArt
    WHERE Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiposl_katserklas]'))
drop procedure [dbo].[sp_najdiposl_katserklas]

Go


create  PROCEDURE sp_NajdiPosl_KatSerKlas
    @Sifra_Art    varchar(20),
    @PoslKontrSer    varchar(30) = Null OUTPUT

AS

    select @PoslKontrSer = max(KontrSer)
    from KatSerKlas
    Where Sifra_Art = @Sifra_Art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiposlnar]'))
drop procedure [dbo].[sp_najdiposlnar]

Go


Create PROCEDURE sp_NajdiPoslNar
    @Sifra_OE    Smallint,
    @Sifra_Nar    Smallint,
    @Broj_Nar    int OUTPUT
AS
    SELECT @Broj_Nar = MAX(Broj_Nar) FROM Naracki
    WHERE Sifra_OE = @Sifra_OE AND Sifra_Nar = @Sifra_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiposlprimenlot]'))
drop procedure [dbo].[sp_najdiposlprimenlot]

Go
CREATE PROCEDURE sp_NajdiPoslPrimenLot
    @Sifra_OE    smallint,
    @Sifra_Art    varchar(20),
    @Lot         varchar(30) OUTPUT
AS
    SELECT TOP 1 @Lot = LotBr FROM MagStavr WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art AND VlIzl='V'
    ORDER BY Datum_Vnes Desc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdiprodmest]'))
drop procedure [dbo].[sp_najdiprodmest]

Go


CREATE              PROCEDURE sp_NajdiProdMest
    @Opis    varchar(50) = NULL,
    @Opis2  varchar(50)= null,
    @BrMotor varchar(50)= null,
    @BarKod    varchar(50)= null,
    @Litri integer= null
AS
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT Sifra_Mest, Opis, Opis2, BrMotor, BarKod, Litri
    FROM ProdMest  WHERE 1=1 '
    IF @Opis IS NOT NULL
        SET @SSQL = @SSQL + ' AND Opis LIKE ''%' + @Opis + '%'' '
    IF @Opis2 IS NOT NULL
        SET @SSQL = @SSQL + ' AND Opis2 LIKE ''%' + @Opis2 + '%'' '
    IF @BrMotor IS NOT NULL
        SET @SSQL = @SSQL + ' AND BrMotor LIKE ''%' + @BrMotor + '%'' '
    IF @BarKod IS NOT NULL
        SET @SSQL = @SSQL + ' AND BarKod LIKE ''%' + @BarKod + '%'' '
    IF @Litri IS NOT NULL
        SET @SSQL = @SSQL + ' AND Litri LIKE ''%' + @Litri + '%'' '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdisledenbrojlistazascanlista]'))
drop procedure [dbo].[sp_najdisledenbrojlistazascanlista]

Go
CREATE PROCEDURE sp_NajdiSledenBrojListaZaScanLista
    @Sifra_Oe    smallint,
    @Tip_Lista    smallint,
    @Broj_Lista    int = 0 OUTPUT
AS
    SELECT @Broj_Lista = MAX(Broj_Lista) FROM ScanLista WHERE Sifra_OE=@Sifra_OE AND Tip_Lista=@Tip_Lista
    IF @Broj_Lista IS NULL SET @Broj_Lista=0
    SET @Broj_Lista = @Broj_Lista + 1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdislednasifra]'))
drop procedure [dbo].[sp_najdislednasifra]

Go

CREATE PROCEDURE sp_NajdiSlednaSifra
    @Poc_Sifra    varchar(6)
AS
    SELECT Max(Sifra_Art) FROM KatArt
    WHERE Sifra_Art LIKE @Poc_Sifra + '%'




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_najdixfvidbar]'))
drop procedure [dbo].[sp_najdixfvidbar]

Go




CREATE   PROCEDURE sp_NajdiXFVidBar
    @Sifra_VidBaranje    smallint
AS
    Select * From XFVidBaranje
        Where Sifra_VidBaranje=@Sifra_VidBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nal_chk_i_zaf]'))
drop procedure [dbo].[sp_nal_chk_i_zaf]

Go


CREATE  PROCEDURE sp_Nal_Chk_I_Zaf
   @Sifra_Nal smallint,
   @Broj_Nal int,
   @StatZafaten char(1) OUTPUT
AS
   Declare @Zafaten char(1)
   Declare @Najden_Sifra_nal smallint
   select @Najden_sifrA_nal=Sifra_Nal, @Zafaten=Zafaten from Nalozi
   WHERE [Sifra_nal]=@Sifra_Nal AND [broj_Nal]=@Broj_Nal
   if @Najden_sifra_nal is null        -- ne postoi nalogot
      set @StatZafaten = 'X'
   else if @Zafaten = 'D'
      set @StatZafaten = 'D'
   else
      begin
        set @StatZafaten = 'N'
        update Nalozi
        set Zafaten = 'D'
        WHERE [Sifra_nal]=@Sifra_Nal AND [broj_Nal]=@Broj_Nal
      end
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nal_oslobodi]'))
drop procedure [dbo].[sp_nal_oslobodi]

Go



create  PROCEDURE sp_Nal_Oslobodi
   @Sifra_Nal smallint,
   @Broj_Nal int
AS
   update Nalozi
   set Zafaten = 'N'
   WHERE [Sifra_nal]=@Sifra_Nal AND [broj_Nal]=@Broj_Nal
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nalog_proizvodstvo]'))
drop procedure [dbo].[sp_nalog_proizvodstvo]

Go

CREATE  PROCEDURE sp_Nalog_Proizvodstvo
    @Den        smallint = 1,              -- od 1 do 10
    @Datum    smalldatetime = Null,
    @Datum_Vnes1    datetime = Null,
    @Datum_Vnes2    datetime = Null,
    @Lokacija    varchar(10) = Null,
    @DirDistr    char(1) = Null,
    @Sifra_Gr    varchar(6) = Null
As
    Declare @SSQL as Varchar(8000)
    Create Table #Tab
    (
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     SpecKolic1    decimal(18,6),
     SpecKolic2    decimal(18,6)
    )
    Set @SSQL = ' Select P.Sifra_Art, '
    If @Den = 1
        Set @SSQL = @SSQL + ' P.Den1 Kolic'
    Else If @Den = 2
        Set @SSQL = @SSQL + ' P.Den2 Kolic'
    Else If @Den = 3
        Set @SSQL = @SSQL + ' P.Den3 Kolic'
    Else If @Den = 4
        Set @SSQL = @SSQL + ' P.Den4 Kolic'
    Else If @Den = 5
        Set @SSQL = @SSQL + ' P.Den5 Kolic'
    Else If @Den = 6
        Set @SSQL = @SSQL + ' P.Den6 Kolic'
    Else If @Den = 7
        Set @SSQL = @SSQL + ' P.Den7 Kolic'
    Else If @Den = 8
        Set @SSQL = @SSQL + ' P.Den8 Kolic'
    Else If @Den = 9
        Set @SSQL = @SSQL + ' P.Den9 Kolic'
    Else If @Den = 10
        Set @SSQL = @SSQL + ' P.Den10 Kolic'
    Set @SSQL = @SSQL + ', 0, 0 '
    Set @SSQL = @SSQL + ' From PlanPer P
                Inner Join Katart K On K.Sifra_art = P.Sifra_art
                Inner Join Podgrupi Pod On Pod.Sifra_Podg = K.Sifra_Podg
                Left Outer Join Komint Kup On P.Sifra_Kup = Kup.Sifra_Kup
                Where 1=1 '
    If @Lokacija Is Not Null
         Begin
        If @Lokacija = '1'
            Set @SSQL = @SSQL + ' And ltrim(rtrim(K.Lokacija)) = ''' + ltrim(rtrim(@Lokacija)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
         End
    If @DirDistr IS NOT NULL
    Begin
        If @DirDistr = 'D'
            Set @SSQL = @SSQL + ' And Kup.DirDistr = ''D'' '
        Else
            Set @SSQL = @SSQL + ' And (Kup.DirDistr IS NULL OR Kup.DirDistr <> ''D'') '
    End
    If @Sifra_Gr IS NOT NULL
        Set @SSQL = @SSQL + ' And Pod.Sifra_Gr = ' + @Sifra_Gr + ' '
    Insert Into #Tab Exec(@SSQL)
--------------------------------- Za Naracki vneseni do @Datum_Vnes1 -----------------------------------------------------------------------
    Set @SSQL = ' Select S.Sifra_art, S.Kolic, 0, 0
            From StaNarac S
            Inner Join Naracki N On N.NarId = S.NarId
            Inner Join Katart K On K.Sifra_art = S.Sifra_Art
            Inner Join Podgrupi Pod On Pod.Sifra_Podg = K.Sifra_Podg
            Left Outer Join TipNarac T On T.Sifra_Nar = N.Sifra_Nar
            Left Outer Join Komint Kup On N.Sifra_Kup = Kup.Sifra_Kup
            Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + '''
            And N.Datum_Vnes <= ''' + cast(@Datum_Vnes1 as varchar(35)) + '''
            and T.Sifra_GrNar = 6  '
    If @Lokacija Is Not Null
         Begin
        If @Lokacija = '1'
            Set @SSQL = @SSQL + ' And ltrim(rtrim(K.Lokacija)) = ''' + ltrim(rtrim(@Lokacija)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
         End
    If @DirDistr IS NOT NULL
    Begin
        If @DirDistr = 'D'
            Set @SSQL = @SSQL + ' And Kup.DirDistr = ''D'' '
        Else
            Set @SSQL = @SSQL + ' And (Kup.DirDistr IS NULL OR Kup.DirDistr <> ''D'') '
    End
    If @Sifra_Gr IS NOT NULL
        Set @SSQL = @SSQL + ' And Pod.Sifra_Gr = ' + @Sifra_Gr + ' '
    Insert Into #Tab Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------- Za Naracki vneseni od @Datum_Vnes1 do @Datum_Vnes2 -------------------------------------------
    Set @SSQL = ' Select S.Sifra_art, 0, S.Kolic, 0
            From StaNarac S
            Inner Join Naracki N On N.NarId = S.NarId
            Inner Join Katart K On K.Sifra_art = S.Sifra_Art
            Inner Join Podgrupi Pod On Pod.Sifra_Podg = K.Sifra_Podg
            Left Outer Join TipNarac T On T.Sifra_Nar = N.Sifra_Nar
            Left Outer Join Komint Kup On N.Sifra_Kup = Kup.Sifra_Kup
            Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + '''
            And N.Datum_Vnes > ''' + cast(@Datum_Vnes1 as varchar(35)) + '''
            And N.Datum_Vnes <= ''' + cast(@Datum_Vnes2 as varchar(35)) + '''
            and T.Sifra_GrNar = 6  '
    If @Lokacija Is Not Null
         Begin
        If @Lokacija = '1'
            Set @SSQL = @SSQL + ' And ltrim(rtrim(K.Lokacija)) = ''' + ltrim(rtrim(@Lokacija)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
        End
    If @DirDistr IS NOT NULL
    Begin
        If @DirDistr = 'D'
            Set @SSQL = @SSQL + ' And Kup.DirDistr = ''D'' '
        Else
            Set @SSQL = @SSQL + ' And (Kup.DirDistr IS NULL OR Kup.DirDistr <> ''D'') '
    End
    If @Sifra_Gr IS NOT NULL
        Set @SSQL = @SSQL + ' And Pod.Sifra_Gr = ' + @Sifra_Gr + ' '
    Insert Into #Tab Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--------------------------------- Za Naracki vneseni po @Datum_Vnes2 -----------------------------------------------------------------------
    Set @SSQL = ' Select S.Sifra_art, 0, 0, S.Kolic
            From StaNarac S
            Inner Join Naracki N On N.NarId = S.NarId
            Inner Join Katart K On K.Sifra_art = S.Sifra_Art
            Inner Join Podgrupi Pod On Pod.Sifra_Podg = K.Sifra_Podg
            Left Outer Join TipNarac T On T.Sifra_Nar = N.Sifra_Nar
            Left Outer Join Komint Kup On N.Sifra_Kup = Kup.Sifra_Kup
            Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + '''
            And N.Datum_Vnes > ''' + cast(@Datum_Vnes2 as varchar(35)) + '''
            and T.Sifra_GrNar = 6  '
    If @Lokacija Is Not Null
         Begin
        If @Lokacija = '1'
            Set @SSQL = @SSQL + ' And ltrim(rtrim(K.Lokacija)) = ''' + ltrim(rtrim(@Lokacija)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
         End
    If @DirDistr IS NOT NULL
    Begin
        If @DirDistr = 'D'
            Set @SSQL = @SSQL + ' And Kup.DirDistr = ''D'' '
        Else
            Set @SSQL = @SSQL + ' And (Kup.DirDistr IS NULL OR Kup.DirDistr <> ''D'') '
    End
    If @Sifra_Gr IS NOT NULL
        Set @SSQL = @SSQL + ' And Pod.Sifra_Gr = ' + @Sifra_Gr + ' '
    Insert Into #Tab Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Select T.Sifra_Art, K.ImeArt, K.Drugo1, D.Ime_1, K.Drugo2, D2.Ime_2, Sum(T.Kolic) as KolicDo, Sum(T.SpecKolic1) as KolicOdDo,  Sum(T.SpecKolic2) as KolicPo
    From #Tab T
    Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
    Left Outer Join Drugo1 D On D.Sifra_1 = K.Drugo1
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    Group By T.Sifra_Art, K.ImeArt, K.Drugo1, D.Ime_1, K.Drugo2, D2.Ime_2



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nalog_pvo]'))
drop procedure [dbo].[sp_nalog_pvo]

Go
CREATE PROCEDURE sp_Nalog_Pvo
    @Sifra_art    varchar(20),
    @Den        smallint,
    @DirDistr    char(1) = 'D'
 AS
    Declare @SSQL varchar(2000)
    Set @SSQL = ' Select P.Sifra_Art, K.ImeArt, P.Sifra_Kup, Kup.ImeKup, '
    If @Den = 1
        Set @SSQL = @SSQL + ' P.Den1 Kolic'
    Else If @Den = 2
        Set @SSQL = @SSQL + ' P.Den2 Kolic'
    Else If @Den = 3
        Set @SSQL = @SSQL + ' P.Den3 Kolic'
    Else If @Den = 4
        Set @SSQL = @SSQL + ' P.Den4 Kolic'
    Else If @Den = 5
        Set @SSQL = @SSQL + ' P.Den5 Kolic'
    Else If @Den = 6
        Set @SSQL = @SSQL + ' P.Den6 Kolic'
    Else If @Den = 7
        Set @SSQL = @SSQL + ' P.Den7 Kolic'
    Else If @Den = 8
        Set @SSQL = @SSQL + ' P.Den8 Kolic'
    Else If @Den = 9
        Set @SSQL = @SSQL + ' P.Den9 Kolic'
    Else If @Den = 10
        Set @SSQL = @SSQL + ' P.Den10 Kolic'
    Set @SSQL = @SSQL + ' From PlanPer P
                Inner Join Katart K On K.Sifra_art = P.Sifra_art
                Left Outer Join Komint Kup On P.Sifra_Kup = Kup.Sifra_Kup
                Where 1=1 '
    If @Sifra_art Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_art = ''' + @Sifra_art + ''' '
    If @DirDistr IS NOT NULL
    Begin
        If @DirDistr = 'D'
            Set @SSQL = @SSQL + ' And Kup.DirDistr = ''D'' '
        Else
            Set @SSQL = @SSQL + ' And (Kup.DirDistr IS NULL OR Kup.DirDistr <> ''D'') '
    End
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nalog_relacija]'))
drop procedure [dbo].[sp_nalog_relacija]

Go
CREATE    PROCEDURE sp_Nalog_Relacija
    @Sifra_Oe    smallint = 1,
    @Den        smallint = Null,          -- od 1 do 10
    @Datum    smalldatetime = Null,
    @Sifra_reg_Od    smallint = Null,          -- ako e sifra_oe 1 togas filter po kdrugo4 od komint i kobjekti, a ako e 101 togas sifra_reg
    @Sifra_reg_Do    smallint = Null,          -- ako e sifra_oe 1 togas filter po kdrugo4 od komint i kobjekti, a ako e 101 togas sifra_reg
    @KojaIsporaka    char(1) = '1',              -- 1 ili 2
    @BezRelacija    char(1) = 'N',
    @KojaFirma    char(2) = 'ZL',         -- ZL - Zito Leb    ZV - Zito Vardar
    @Sifra_Nar    smallint = Null,
    @Lokacija    varchar(10) = Null,
    @KFLokacija    char(1) = 'N'
As
    Declare @SSQL as Varchar(2000)
    Declare @SSQL1 as Varchar(2000)
    Set @SSQL = ''
    Set @SSQL1 = ''
    Create Table #Tab
    (
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     Sifra_Kup    Char(6),
     Sifra_Obj    smallint,
     Sifra_Nar    smallint,
     Broj_Nar    Int,
     Identif_br    varchar(25)
    )
------------------------------------------------------------------------------------------------------------------ U S L O V -------------------------------------------------------------------------------------------------------------------
    If @Sifra_Oe Is Not Null And @KojaFirma = 'ZL'
        Begin
        If @Sifra_oe = 1
            Set @SSQL1 = @SSQL1 + ' And ltrim(rtrim(K.Lokacija)) = ''1'' '
        Else
            Set @SSQL1 = @SSQL1 + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
         End
    If @Lokacija Is Not Null And (@Sifra_Oe <> 1 Or @Sifra_Oe Is Null)
        If @KFLokacija = 'D'
            Set @SSQL1 = @SSQL1 + ' And (ltrim(rtrim(K.Lokacija)) <> ''' + @Lokacija + ''' Or K.Lokacija Is Null) '
        Else
            Set @SSQL1 = @SSQL1 + ' And ltrim(rtrim(K.Lokacija)) = ''' + @Lokacija + ''' '
    If @Sifra_Reg_Od Is Not Null
         Begin
        If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
            Set @SSQL1 = @SSQL1 + ' And ((KO.Kdrugo4 Is Not Null And KO.KDrugo4 >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')
                        OR ( KO.KDrugo4 Is Null and KUP.KDrugo4 >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')) '
           Else
            Set @SSQL1 = @SSQL1 + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')
                        OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')) '
               End
    If @Sifra_Reg_Do Is Not Null
         Begin
        If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
            Set @SSQL1 = @SSQL1 + ' And ((KO.Kdrugo4 Is Not Null And KO.KDrugo4 <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')
                        OR ( KO.KDrugo4 Is Null and KUP.KDrugo4 <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')) '
           Else
            Set @SSQL1 = @SSQL1 + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')
                        OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')) '
               End
    If @BezRelacija = 'D'
         Begin
        If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
            Set @SSQL1 = @SSQL1 + ' And (KO.Kdrugo4 Is Null And KUP.KDrugo4 is Null) '
           Else
            Set @SSQL1 = @SSQL1 + ' And (KO.Sifra_Reg Is Null And KUP.Sifra_Reg Is Null) '
               End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @KojaIsporaka = '2'
           Begin
        Set @SSQL = ' Select S.Sifra_Art, S.kolic, N.Sifra_Kup, N.Sifra_Obj, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br
                From StaNarac S
                Inner Join Naracki N On N.NarId = S.NarId
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = N.Sifra_Kup and KO.Sifra_Obj = N.Sifra_Obj
                Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + '''
                and N.Smena = ''2'' '
        If @KojaFirma <> 'ZL' And @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        If @Sifra_Nar Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Nar = ' + Cast(@Sifra_Nar as varchar(6)) + ' '
        Insert Into #Tab Exec(@SSQL + @SSQL1)
           End
    If @KojaIsporaka = '1'
           Begin
        Set @SSQL = ' Select S.Sifra_Art, S.kolic, N.Sifra_kup, N.Sifra_Obj, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br
                From StaNarac S
                Inner Join Naracki N On N.NarId = S.NarId
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = N.Sifra_Kup and KO.Sifra_Obj = N.Sifra_Obj
                Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + '''
                and (N.Smena <> ''2'' or N.Smena is Null) '
        If @KojaFirma <> 'ZL' And @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        If @Sifra_Nar Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Nar = ' + Cast(@Sifra_Nar as varchar(6)) + ' '
        Insert Into #Tab Exec(@SSQL + @SSQL1)

        Set @SSQL = ' Select P.Sifra_Art, '
        If @Den = 1
            Set @SSQL = @SSQL + ' P.Den1 Kolic,'
        Else If @Den = 2
            Set @SSQL = @SSQL + ' P.Den2 Kolic,'
        Else If @Den = 3
            Set @SSQL = @SSQL + ' P.Den3 Kolic,'
        Else If @Den = 4
            Set @SSQL = @SSQL + ' P.Den4 Kolic,'
        Else If @Den = 5
            Set @SSQL = @SSQL + ' P.Den5 Kolic,'
        Else If @Den = 6
            Set @SSQL = @SSQL + ' P.Den6 Kolic,'
        Else If @Den = 7
            Set @SSQL = @SSQL + ' P.Den7 Kolic,'
        Else If @Den = 8
            Set @SSQL = @SSQL + ' P.Den8 Kolic,'
        Else If @Den = 9
            Set @SSQL = @SSQL + ' P.Den9 Kolic,'
        Else If @Den = 10
            Set @SSQL = @SSQL + ' P.Den10 Kolic,'
        Set @SSQL = @SSQL + ' P.Sifra_Kup, P.Sifra_Obj, 0, 0, '' ''
                From PlanPer P
                Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = P.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = P.Sifra_Kup and KO.Sifra_Obj = P.Sifra_Obj
                Where 1=1 '
        Insert Into #Tab Exec(@SSQL + @SSQL1)
           End
    If @KojaIsporaka = '0'
           Begin
        Set @SSQL = ' Select S.Sifra_Art, S.kolic, N.Sifra_kup,  N.Sifra_Obj, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br
                From StaNarac S
                Inner Join Naracki N On N.NarId = S.NarId
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = N.Sifra_Kup and KO.Sifra_Obj = N.Sifra_Obj
                Where N.Datum_Nar = ''' + cast(@Datum as varchar(30)) + ''' '
        If @KojaFirma <> 'ZL' And @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        If @Sifra_Nar Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Nar = ' + Cast(@Sifra_Nar as varchar(6)) + ' '
        Insert Into #Tab Exec(@SSQL + @SSQL1)

        Set @SSQL = ' Select P.Sifra_Art, '
        If @Den = 1
            Set @SSQL = @SSQL + ' P.Den1 Kolic,'
        Else If @Den = 2
            Set @SSQL = @SSQL + ' P.Den2 Kolic,'
        Else If @Den = 3
            Set @SSQL = @SSQL + ' P.Den3 Kolic,'
        Else If @Den = 4
            Set @SSQL = @SSQL + ' P.Den4 Kolic,'
        Else If @Den = 5
            Set @SSQL = @SSQL + ' P.Den5 Kolic,'
        Else If @Den = 6
            Set @SSQL = @SSQL + ' P.Den6 Kolic,'
        Else If @Den = 7
            Set @SSQL = @SSQL + ' P.Den7 Kolic,'
        Else If @Den = 8
            Set @SSQL = @SSQL + ' P.Den8 Kolic,'
        Else If @Den = 9
            Set @SSQL = @SSQL + ' P.Den9 Kolic,'
        Else If @Den = 10
            Set @SSQL = @SSQL + ' P.Den10 Kolic,'
        Set @SSQL = @SSQL + ' P.Sifra_Kup, P.Sifra_Obj, 0, 0, '' ''
                From PlanPer P
                Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = P.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = P.Sifra_Kup and KO.Sifra_Obj = P.Sifra_Obj
                Where 1=1 '
        Insert Into #Tab Exec(@SSQL + @SSQL1)
           End

    Set @SSQL = ' Select T.Sifra_Art, K.ImeArt, K.Drugo1, T.Sifra_Kup, Kup.ImeKup, T.Sifra_Obj, KO.ImeObj, T.Sifra_Nar, T.Broj_Nar, T.Identif_Br, Sum(T.Kolic) Kolicina, '
    If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
        Set @SSQL = @SSQL + ' KO.KDrugo4 Sifra_RegObj,  DR4.Ime_4K ImeRegionObj, Kup.KDrugo4 Sifra_regKup, D4.Ime_4K ImeRegionKup '
    Else
        Set @SSQL = @SSQL + ' KO.Sifra_reg Sifra_RegObj, GR.ImeRegion ImeRegionObj, Kup.Sifra_Reg Sifra_regKup, R.ImeRegion ImeRegionKup '
    Set @SSQL = @SSQL + ' From #Tab T
                Inner Join Katart K On K.Sifra_Art = T.Sifra_Art
                Left Outer Join Komint Kup On Kup.Sifra_Kup = T.Sifra_Kup
                Left Outer Join KObjekti KO On Ko.Sifra_Kup = T.Sifra_Kup and KO.Sifra_Obj = T.Sifra_Obj '
    If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo4 D4 On D4.Sifra_4k = Kup.KDrugo4
                     Left Outer Join KDrugo4 DR4 On DR4.Sifra_4k = KO.KDrugo4 '
    Else
        Set @SSQL = @SSQL + ' Left Outer Join Gregion R On R.Sifra_reg = Kup.Sifra_reg
                     Left Outer Join Gregion GR On GR.Sifra_reg = KO.Sifra_reg '
    Set @SSQL = @SSQL + ' Group By T.Sifra_Art, K.ImeArt, K.Drugo1, T.Sifra_Kup, Kup.ImeKup, T.Sifra_Obj, KO.ImeObj, T.Sifra_Nar, T.Broj_Nar, T.Identif_Br, '
    If @Sifra_Oe = 1 And @KojaFirma = 'ZL'
        Set @SSQL = @SSQL + ' KO.KDrugo4,  DR4.Ime_4K, Kup.KDrugo4, D4.Ime_4K '
    Else
        Set @SSQL = @SSQL + ' KO.Sifra_reg, GR.ImeRegion, Kup.Sifra_Reg, R.ImeRegion '
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_namalirbrfavtvrski]'))
drop procedure [dbo].[sp_namalirbrfavtvrski]

Go
CREATE PROCEDURE sp_NamaliRbrFavtVrski
    @Sifra_Nal    smallint,
    @Broj_Nal    int
AS
Declare @MinRbrNalog smallint
SELECT @MinRbrNalog=MIN(F.RbrNalog) FROM FAvtVrski F INNER JOIN Gstav G ON F.GstID=G.GstID
WHERE G.Sifra_Nal=@Sifra_Nal AND G.Broj_Nal=@Broj_Nal

UPDATE FAvtVrski SET RbrNalog = RbrNalog - @MinRbrNalog + 1 WHERE GstID IN
(SELECT GStID FROM GStav WHERE Sifra_Nal=@Sifra_Nal AND Broj_Nal=@Broj_Nal)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naplata_po_divizii]'))
drop procedure [dbo].[sp_naplata_po_divizii]

Go
CREATE PROCEDURE  sp_Naplata_Po_Divizii
    @Sifra_Nal        smallint = Null,
    @DatumUplOd        smalldatetime = Null,
    @DatumUplDo        smalldatetime = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = 'SELECT A.Sifra_Kup, Kup.ImeKup, A.Sifra_Div, Div.ImeDiv, Sum(A.Pobaruva) IznosUpl
        FROM AnFinDok A
        Inner Join TipDok TD On TD.Sifra_Dok=A.Sifra_Dok And TD.TipDok=2
        Left Outer Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
        Left Outer Join Divizii Div On Div.Sifra_Div=A.Sifra_Div
        Where A.Sifra_Za=1 '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Nal = ' + Cast(@Sifra_Nal as varchar(6)) + ' '
    If @DatumUplOd Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@DatumUplOd as varchar(30)) + ''' '
    If @DatumUplDo Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@DatumUplDo as varchar(30)) + ''' '
    Set @SSQL=@SSQL + ' Group By A.Sifra_Kup, Kup.ImeKup, A.Sifra_Div, Div.ImeDiv '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naplatazaoe]'))
drop procedure [dbo].[sp_naplatazaoe]

Go


CREATE      PROCEDURE sp_NaplataZaOE
    @Sifra_OE    smallint,
    @KolkuDena    smallint = 7,
    @PoPatOdKup    char(1) = 'D',
    @Kto_Anal    char(10)=NULL
AS
CREATE TABLE #TmpKta (Kto_Anal char(10))
IF @Kto_Anal IS NOT NULL
    INSERT INTO #TmpKta VALUES (@Kto_Anal)
ELSE
    INSERT INTO #TmpKta SELECT Kto_Anal FROM Anal WHERE DaliKupuv='K'
Declare @PatOdKomintPat int
IF @Sifra_OE IS NOT NULL
    SELECT @PatOdKomintPat=COUNT(*) FROM KomintPat WHERE Sifra_Pat=@Sifra_OE
IF @PatOdKomintPat IS NULL SET @PatOdKomintPat = 0
IF @PatOdKomintPat>0 SET @PoPatOdKup='P'    -- ova treba da se pusta od servis kako sto se pusta vo ios, saldo, ama da pomineme bez verzija

IF  @PoPatOdKup = 'D'
    SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Kup, A.Pobaruva, A.Datum_dok
    FROM AnFinDok A INNER JOIN #TmpKta T ON A.Kto=T.Kto_Anal
    WHERE A.Datum_Dok >= DateAdd(day, @KolkuDena * -1, GetDate())
    AND A.Sifra_Za=1 AND A.Pobaruva <> 0  AND
    (A.Sifra_Kup IN (SELECT Sifra_Kup FROM Komint WHERE Sifra_Pat = @Sifra_OE OR Sifra_Pat2 = @Sifra_OE) OR
    A.Sifra_Kup IN (SELECT Sifra_Kup from KObjekti Where (Sifra_Pat = @Sifra_OE OR Sifra_Pat2=@Sifra_OE )) )
ELSE IF @PoPatOdKup = 'S'
    SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Kup, A.Pobaruva, A.Datum_dok
    FROM AnFinDok A  INNER JOIN #TmpKta T ON A.Kto=T.Kto_Anal
    WHERE A. Datum_Dok >= DateAdd(day, @KolkuDena * -1, GetDate())
    AND A.Sifra_Za=1 AND A.Pobaruva <> 0
ELSE IF @PoPatOdKup = 'P'
BEGIN
    CREATE TABLE #TmpKup (Sifra_Kup char(6))
    INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM KomintPat WHERE Sifra_Pat=@Sifra_OE

    SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Kup, A.Pobaruva, A.Datum_dok
    FROM AnFinDok A  INNER JOIN #TmpKta T ON A.Kto=T.Kto_Anal
    INNER JOIN #TmpKup K ON A.Sifra_Kup=K.Sifra_Kup
    WHERE A. Datum_Dok >= DateAdd(day, @KolkuDena * -1, GetDate()) AND A.Sifra_Za=1 AND A.Pobaruva <> 0
END
ELSE
    SELECT A.Sifra_OE, A.Sifra_Dok, A.Broj_Dok, A.Sifra_Kup, A.Pobaruva, A.Datum_dok
    FROM AnFinDok A  INNER JOIN #TmpKta T ON A.Kto=T.Kto_Anal
    WHERE A.Sifra_OE = @Sifra_OE AND A. Datum_Dok >= DateAdd(day, @KolkuDena * -1, GetDate())
    AND A.Sifra_Za=1 AND A.Pobaruva <> 0









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravifakturi]'))
drop procedure [dbo].[sp_napravifakturi]

Go

CREATE  PROCEDURE [dbo].[sp_NapraviFakturi]
    @Mesec    smallint,
    @Godina    smallint,
    @Datum_Fra smalldatetime,
    @Posebno_BezPartic char (1) = 'N'
AS

-- So upatstvo od Maj 2011 vaka e forsirano i ne go cepkaj
set    @Posebno_BezPartic = 'N'

CREATE TABLE #TmpFak
( Faktura_Br    char(6) )

CREATE TABLE #TmpRcp
( Sifra_Apteka char(2),
 Broj_Recept int,
 Rangiran char(1),
 Sifra_PodrSluzba char(4),
 BezPartic char(1),
 SifrA_Apteka_Kasa char(2),
 Specifika    char(1),
 NaParce char(1),
 DaliDezuren char(1),
 Stranski char(1),
 Str_Drzava char(3)
)

INSERT INTO #TmpRcp
Select  R.SifrA_APteka, R.Broj_Recept, R.Rangiran, P.Sifra_PodrSluzba_Fakt, R.BezPartic, R.Sifra_Apteka,
        case when K.VoPDA = 'D' then '2' else '1' end,
        case when R.Kolku_Kolic <> 0 then '2' else '1' end,
        case when R.Sifra_Lekar_Dezuren <> '' and R.Sifra_Lekar_Dezuren is not null then 'D' else '' end,
        case when OS.Stranski = 'D' then 'D' else '' end,
        case when OS.Stranski = 'D' and R.Str_Drzava is not null then R.Str_Drzava else '' end
From Recepti R
INNER JOIN PodracniSluzbi P
    ON Substring(R.Sifra_Kompanija,1,4) = P.Sifra_PodrSluzba
left outer join OsnovOsig OS
    ON R.Sifra_OsnovOsig = OS.Sifra_OsnovOsig
left outer join Katart K
    on R.Sifra_Art = K.Sifra_Art
WHERE Specif_Br IS NULL AND Datum_Izdav < DateAdd(month, 1, dbo.fn_NapraviDatum(@Godina, @Mesec, 1))
ORDER BY P.Sifra_PodrSluzba_Fakt, case when K.VoPDA = 'D' then '2' else '1' end,
         case when R.Kolku_Kolic <> 0 then '2' else '1' end,
         R.BezPartic,
         case when R.Sifra_Lekar_Dezuren <> '' and R.Sifra_Lekar_Dezuren is not null then 'D' else '' end,
         R.Broj_Recept

---- Do Jun 9, 10  ORDER BY R.Sifra_Apteka, P.Sifra_PodrSluzba_Fakt, R.BezPartic, R.Broj_Recept

Declare @Faktura_Br smallint
Declare @Rbr_Vo_Specif    smallint
Declare @Specif_Br    int
Declare @Sifra_Apt char(2)
Declare @Sifra_Apt_Kasa char(2)
Declare @Broj_Recept int
Declare @PodrSluzba char(4)
Declare @Rangiran char(1)
Declare @Sifra_Apt1 char(2)
Declare @PodrSluzba1 char(4)
Declare @Rangiran1 char(1)
Declare @Rbr smallint

Declare @BezPartic char(1)
Declare @BezPartic1 char(1)

Declare @Specifika char(1)
Declare @Specifika1 char(1)

Declare @NaParce char(1)
Declare @NaParce1 char(1)

Declare @DaliDezuren char(1)
Declare @DaliDezuren1 char(1)

Declare @Stranski char(1)
Declare @Stranski1 char(1)

Declare @Str_Drzava char(3)
Declare @Str_Drzava1 char(3)

--SET @Datum_Fra = dbo.fn_VratiDatumOdDo(@Godina, @Mesec, 31)

SELECT @Faktura_Br = MAX(Cast(Faktura_Br as int)) FROM Faktura WHERE Godina_Fra=@Godina
IF @Faktura_Br IS NULL SET @Faktura_Br =0

SELECT @Specif_Br = MAX(Cast(Specif_Br as int)) FROM Specifikacii WHERE Godina_Fra=@Godina
IF @Specif_Br IS NULL SET @Specif_Br =0

SET @Sifra_Apt1=''
SET @PodrSluzba1=''
set @Specifika1 = ''
set @NaParce1 = ''
set @DaliDezuren1 = ''
set @Stranski1 = ''
set @Str_Drzava1 = ''

Declare TabRcp Cursor Fast_Forward For
Select Sifra_Apteka, Broj_Recept, Rangiran, Sifra_PodrSluzba,
       BezPartic, NaParce, Sifra_Apteka_Kasa, Specifika, DaliDezuren, Stranski, Str_Drzava
From #TmpRcp
ORDER BY Sifra_PodrSluzba, Stranski, Str_Drzava, Specifika, Sifra_Apteka, NaParce, BezPartic, DaliDezuren, Broj_Recept

Declare @PocBroj int
Declare @KrBroj int
Declare @KolkuRecepti int

Declare @DaliPrva int
set @DaliPrva = 1

Declare @ForsFaktura int

Open TabRcp
Fetch Next From TabRcp Into @Sifra_Apt, @Broj_Recept, @Rangiran, @PodrSluzba,
                            @BezPartic, @NaParce, @Sifra_Apt_Kasa, @Specifika,
                            @DaliDezuren, @Stranski, @Str_Drzava

While @@Fetch_Status = 0
Begin
    if @BezPartic is null or @BezPartic <> 'D'
        set @BezPartic = ''

    -- Nova fakture se menuva samo pri promena na PODRACNA SLUZBA ILI SPECIFIKA ILI STRANSKI
    IF @PodrSluzba1 <> @PodrSluzba or @Specifika1 <> @Specifika or @Stranski1 <> @Stranski or @Str_Drzava1 <> @Str_Drzava
    Begin
        if @DaliPrva = 1
            set @DaliPrva = 0
        else    -- Vo prethodnata specifikacija postavi broj na recepti i poc-kr broj
            update Specifikacii
            set Poc_Broj_Recept = @PocBroj, Kr_Broj_Recept = @KrBroj, Kolku_Recepti = @KolkuRecepti
            where Godina_Fra = @Godina and Specif_Br = @Specif_Br

        SET @Sifra_Apt1 = @Sifra_Apt
        SET @PodrSluzba1 = @PodrSluzba
        SET @Rangiran1 = @Rangiran
        SET @BezPartic1 = @BezPartic
        set @Specifika1 = @Specifika
        set @NaParce1 = @NaParce
        set @DaliDezuren1 = @DaliDezuren
        set @Stranski1 = @Stranski
        set @Str_Drzava1 = @Str_Drzava

        SET @Rbr = 0
        SET @Specif_Br = @Specif_Br + 1
        SET @Faktura_Br = @Faktura_Br + 1

        set @PocBroj = @Broj_Recept
        set @KolkuRecepti = 0

        INSERT INTO Faktura (Godina_Fra, Faktura_Br, Mesec_Fra,
                             Datum_Fra, Sifra_PodrSluzba_Fakt, SpecLek, Stranski, Str_Drzava)
        VALUES (@Godina, @Faktura_Br, @Mesec,
                @Datum_Fra, @PodrSluzba, @Specifika, @Stranski, @Str_Drzava)

        INSERT INTO #TmpFak (faktura_Br) VALUES (@Faktura_Br)

        INSERT INTO Specifikacii (Godina_Fra, Faktura_Br, Rangiran, Specif_Br,
                                  Sifra_Apteka, BezPartic, SpecLek, DaliDezuren, NaParce, Stranski, Str_Drzava)
        VALUES (@Godina, @Faktura_Br, @Rangiran, @Specif_Br,
                @Sifra_Apt, @BezPartic, @Specifika, @DaliDezuren, @NaParce, @Stranski, @Str_Drzava)
    End

    IF @Rbr >= 500 OR @BezPartic <> @BezPartic1 or @Specifika <> @Specifika1
        or @NaParce <> @NaParce1 or @Sifra_Apt1 <> @Sifra_Apt or @Stranski1 <> @Stranski or @Str_Drzava1 <> @Str_Drzava
        or @DaliDezuren <> @DaliDezuren1
        or (@Rbr > 400 and @Broj_Recept % 500 = 600)
    Begin
        if @DaliPrva = 1
            set @DaliPrva = 0
        else    -- Vo prethodnata specifikacija postavi broj na recepti i poc-kr broj
            update Specifikacii
            set Poc_Broj_Recept = @PocBroj, Kr_Broj_Recept = @KrBroj, Kolku_Recepti = @KolkuRecepti
            where Godina_Fra = @Godina and Specif_Br = @Specif_Br

        -- TBD  Ne bi trebalo da vleze ovde
        set @ForsFaktura = 0
        if @Specifika <> @Specifika1 or @Stranski <> @Stranski1 or @Str_Drzava <> @Str_Drzava1
            set @ForsFaktura = 1
        --

        SET @Rbr = 0
        SET @Rangiran1 = @Rangiran
        SET @BezPartic1 = @BezPartic
        set @Specifika1 = @Specifika
        SET @Sifra_Apt1 = @Sifra_Apt
        SET @NaParce1    = @NaParce
        set @DaliDezuren1 = @DaliDezuren
        set @Stranski1 = @Stranski
        set @Str_Drzava1 = @Str_Drzava

        SET @Specif_Br = @Specif_Br + 1

        set @PocBroj = @Broj_Recept
        set @KolkuRecepti = 0

        if @ForsFaktura = 1
            begin
            SET @Faktura_Br = @Faktura_Br + 1

            INSERT INTO Faktura (Godina_Fra, Faktura_Br, Mesec_Fra,
                                 Datum_Fra, Sifra_PodrSluzba_Fakt, SpecLek, Stranski, Str_Drzava)
            VALUES (@Godina, @Faktura_Br, @Mesec,
                    @Datum_Fra, @PodrSluzba, @Specifika, @Stranski, @Str_Drzava)

            INSERT INTO #TmpFak (faktura_Br) VALUES (@Faktura_Br)
        end

        INSERT INTO Specifikacii (Godina_Fra, Faktura_Br, Rangiran, Specif_Br,
                                  Sifra_Apteka, BezPartic, SpecLek, DaliDezuren, NaParce, Stranski, Str_Drzava)
        VALUES (@Godina, @Faktura_Br, @Rangiran, @Specif_Br,
                @Sifra_Apt, @BezPartic, @Specifika, @DaliDezuren, @NaParce, @Stranski, @Str_Drzava)
    End

    set @KrBroj = @Broj_Recept
    set @KolkuRecepti = @KolkuRecepti + 1

    SET @Rbr = @Rbr + 1
    UPDATE Recepti
    SET Faktura_Br = @Faktura_Br, Godina_Fra = @Godina, Mesec_Fra = @Mesec,
            Specif_Br = @Specif_Br, Rbr_Vo_Specif = @Rbr, SpecLek = @Specifika
    WHERE Sifra_Apteka = @Sifra_Apt AND Broj_Recept = @Broj_Recept

    Fetch Next From TabRcp Into @Sifra_Apt, @Broj_Recept, @Rangiran, @PodrSluzba,
                                @BezPartic, @NaParce, @Sifra_Apt_Kasa, @Specifika, @DaliDezuren, @Stranski, @Str_Drzava
End

if @DaliPrva = 1
    set @DaliPrva = 0
else    -- Vo prethodnata specifikacija postavi broj na recepti i poc-kr broj
    update Specifikacii
    set Poc_Broj_Recept = @PocBroj, Kr_Broj_Recept = @KrBroj, Kolku_Recepti = @KolkuRecepti
    where Godina_Fra = @Godina and Specif_Br = @Specif_Br

Close TabRcp
Deallocate TabRcp

CREATE TABLE #TmpSpec
(Godina_Fra smallint,
 Specif_Br char(6),
 NabVr_BezDDV decimal(18, 2),
 Iznos_Marza decimal(18, 2),
 Osnovica_DDV decimal(18, 2),
 Iznos_DDV decimal(18, 2),
 Vk_Iznos decimal(18, 2),
 Vk_Partic decimal(18, 2),
 Vk_ZaNaplata decimal(18, 2),
 Presm_Partic decimal(18, 2))

INSERT INTO #TmpSpec
SELECT Godina_Fra, Specif_Br, SUM(Iznos_Tender), SUM(Iznos_Marza), SUM(Osnov_DDV), SUM(Iznos_na_DDV), SUM(Iznos_So_DDV), SUM(Naplat_Partic), SUM(Iznos_So_DDV), SUM(Iznos_Partic)
FROM Recepti
WHERE Godina_Fra=@Godina AND Faktura_Br IN (SELECT Faktura_Br FROM #TmpFak)
GROUP BY Godina_Fra, Specif_Br

UPDATE Specifikacii SET NabVr_BezDDV= T.NabVr_BezDDV, Iznos_Marza = T.Iznos_Marza, Osnovica_DDV= T.Osnovica_DDV,
    Iznos_DDV =T.Iznos_DDV, Vk_Iznos =dbo.fn_Zaokr5(T.Vk_Iznos), Vk_Partic =dbo.fn_Zaokr5(T.Vk_Partic), Vk_ZaNaplata = dbo.fn_Zaokr5(T.Vk_ZaNaplata), Vk_PresmParticip=dbo.fn_Zaokr5(T.Presm_Partic)
FROM #TmpSpec T WHERE Specifikacii.Godina_Fra = T.Godina_Fra AND Specifikacii.Specif_Br = T.Specif_Br
SELECT * FROM #TmpFak






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravifakturi_1]'))
drop procedure [dbo].[sp_napravifakturi_1]

Go


create   PROCEDURE sp_NapraviFakturi_1
    @Mesec    smallint,
    @Godina    smallint,
    @Datum_Fra smalldatetime,
    @Posebno_BezPartic char (1) = 'N'
AS

CREATE TABLE #TmpFak
(Faktura_Br    char(6))
CREATE TABLE #TmpRcp
(Sifra_Apteka char(2),
 Broj_Recept int,
 Sifra_PodrSluzba char(4),
 BezPartic char(1),
 Spc_Specif int)

INSERT INTO #TmpRcp
Select  R.Sifra_Apteka, R.Broj_Recept, cast (R.Spc_Podr as char(4)), R.BezPartic, R.Spc_Specif
From Recepti R
WHERE Specif_Br IS NULL AND Datum_Izdav < DateAdd(month, 1, dbo.fn_NapraviDatum(@Godina, @Mesec,1))
ORDER BY R.Sifra_Apteka, R.Spc_Podr, R.Spc_Specif, R.BezPartic, R.Broj_Recept

Declare @Faktura_Br smallint
Declare @Rbr_Vo_Specif    smallint
Declare @Specif_Br    int
Declare @Broj_Recept int
Declare @Rbr smallint
Declare @Sifra_Apt char(2)
Declare @PodrSluzba char(4)
Declare @Spc_Specif int
Declare @BezPartic char(1)
Declare @Sifra_Apt1 char(2)
Declare @PodrSluzba1 char(4)
Declare @Spc_Specif1 int
Declare @BezPartic1 char(1)
--SET @Datum_Fra = dbo.fn_VratiDatumOdDo(@Godina, @Mesec, 31)

SELECT @Faktura_Br = MAX(Cast(Faktura_Br as int))
FROM Faktura
WHERE Godina_Fra=@Godina

IF @Faktura_Br IS NULL
    SET @Faktura_Br =0

SELECT @Specif_Br = MAX(Cast(Specif_Br as int))
FROM Specifikacii
WHERE Godina_Fra=@Godina

IF @Specif_Br IS NULL
    SET @Specif_Br =0

SET @Sifra_Apt1=''
SET @PodrSluzba1=''
set @Spc_Specif1 = 0
set @BezPartic1 = ''

if @POsebno_BezPartic = 'D'
  Declare TabRcp Cursor Fast_Forward For
    Select Sifra_Apteka, Broj_Recept, Sifra_PodrSluzba, BezPartic, Spc_Specif
    From #TmpRcp
    ORDER BY Sifra_Apteka, Sifra_PodrSluzba, BezPartic, Spc_Specif, Broj_Recept
else
  Declare TabRcp Cursor Fast_Forward For
    Select Sifra_Apteka, Broj_Recept, Sifra_PodrSluzba, BezPartic, Spc_Specif
    From #TmpRcp
    ORDER BY Sifra_Apteka, Sifra_PodrSluzba, Spc_Specif, BezPartic, Broj_Recept

Open TabRcp

Fetch Next From TabRcp
Into @Sifra_Apt, @Broj_Recept, @PodrSluzba, @BezPartic, @Spc_Specif

While @@Fetch_Status = 0
Begin
    if @BezPartic is null or @BezPartic <> 'D'
        set @BezPartic = ''

    IF @Sifra_Apt1<>@Sifra_Apt OR @PodrSluzba1<>@PodrSluzba or (@Posebno_BezPartic = 'D' and @BezPartic1<>@BezPartic)
    Begin
        SET @Sifra_Apt1=@Sifra_Apt
        SET @PodrSluzba1=@PodrSluzba
        set @BezPartic1= @BezPartic
        set @Spc_Specif1 = @Spc_Specif
        SET @Rbr=0
        SET @Specif_Br =@Specif_Br + 1
        SET @Faktura_Br = @Faktura_Br + 1
        INSERT INTO Faktura (Godina_Fra, Faktura_Br, Mesec_Fra, Datum_Fra, Sifra_PodrSluzba_Fakt)
        VALUES (@Godina, @Faktura_Br, @Mesec, @Datum_Fra, @PodrSluzba)
        INSERT INTO #TmpFak (faktura_Br) VALUES (@Faktura_Br)
        INSERT INTO Specifikacii (Godina_Fra, Faktura_Br, Rangiran, Specif_Br, Sifra_Apteka,
                      BezPartic, Spc_Podr, Spc_Specif)
        VALUES (@Godina, @Faktura_Br, '0', @Specif_Br, @Sifra_Apt,
                      @BezPartic, @PodrSluzba, @Spc_Specif)
    End

    IF @Spc_Specif <> @Spc_Specif1
    Begin
        SET @Rbr = 0
        SET @BezPartic1 = @BezPartic
        set @Spc_Specif1 = @Spc_Specif
        SET @Specif_Br = @Specif_Br + 1
        INSERT INTO Specifikacii (Godina_Fra, Faktura_Br, Rangiran, Specif_Br, Sifra_Apteka,
                      BezPartic, Spc_Podr, Spc_Specif)
        VALUES (@Godina, @Faktura_Br, '0', @Specif_Br, @Sifra_Apt,
                      @BezPartic, @PodrSluzba, @Spc_Specif)
    End

    SET @Rbr = @Rbr + 1

    UPDATE Recepti
    SET Faktura_Br = @Faktura_Br, Godina_Fra = @Godina, Mesec_Fra = @Mesec,
        Specif_Br= @Specif_Br, Rbr_Vo_Specif =@Rbr
    WHERE Sifra_Apteka=@Sifra_Apt AND Broj_Recept=@Broj_Recept

    Fetch Next From TabRcp
    Into @Sifra_Apt, @Broj_Recept, @PodrSluzba, @BezPartic, @Spc_Specif
End

Close TabRcp
Deallocate TabRcp
CREATE TABLE #TmpSpec
(Godina_Fra smallint,
 Specif_Br char(6),
 NabVr_BezDDV decimal(18, 2),
 Iznos_Marza decimal(18, 2),
 Osnovica_DDV decimal(18, 2),
 Iznos_DDV decimal(18, 2),
 Vk_Iznos decimal(18, 2),
 Vk_Partic decimal(18, 2),
 Vk_ZaNaplata decimal(18, 2),
 Presm_Partic decimal(18, 2))

INSERT INTO #TmpSpec
SELECT Godina_Fra, Specif_Br, SUM(Iznos_Tender), SUM(Iznos_Marza), SUM(Osnov_DDV), SUM(Iznos_na_DDV), SUM(Iznos_So_DDV), SUM(Naplat_Partic), SUM(Iznos_So_DDV), SUM(Iznos_Partic)
FROM Recepti
WHERE Godina_Fra=@Godina AND Faktura_Br IN (SELECT Faktura_Br FROM #TmpFak)
GROUP BY Godina_Fra, Specif_Br

UPDATE Specifikacii SET NabVr_BezDDV= T.NabVr_BezDDV, Iznos_Marza = T.Iznos_Marza, Osnovica_DDV= T.Osnovica_DDV,
    Iznos_DDV =T.Iznos_DDV, Vk_Iznos =dbo.fn_Zaokr5(T.Vk_Iznos), Vk_Partic =dbo.fn_Zaokr5(T.Vk_Partic), Vk_ZaNaplata = dbo.fn_Zaokr5(T.Vk_ZaNaplata), Vk_PresmParticip=dbo.fn_Zaokr5(T.Presm_Partic)
FROM #TmpSpec T WHERE Specifikacii.Godina_Fra = T.Godina_Fra AND Specifikacii.Specif_Br = T.Specif_Br

SELECT * FROM #TmpFak






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravifakturi_fiz]'))
drop procedure [dbo].[sp_napravifakturi_fiz]

Go


CREATE   PROCEDURE sp_NapraviFakturi_Fiz
    @Mesec    smallint,
    @Godina    smallint

AS

Declare @Sifra_Apt char(2)
Declare @Broj_Recept int
Declare @Sifra_Apt1 char(2)
Declare @Rbr smallint
Declare @Specif_Br int

Declare TabRcp Cursor Fast_Forward For
    Select Sifra_Apteka, Broj_Recept
    From Recepti
    WHERE YEAR(DATUM_IZDAV) = @Godina AND Month(Datum_Izdav) = @Mesec
    ORDER BY Sifra_Apteka, Broj_Recept

Open TabRcp

Fetch Next From TabRcp Into @Sifra_Apt, @Broj_Recept

set @SifrA_Apt1 = '!'    -- Nepostoeccka
set @Specif_Br = 0

While @@Fetch_Status = 0
Begin

    IF @Sifra_Apt1 <> @Sifra_Apt
    Begin
        SET @Sifra_Apt1 = @Sifra_Apt
        SET @Rbr = 0

        SET @Specif_Br = @Specif_Br + 1
    End

    -- pazi ova 500.0 e sustinsko (tockata i nulata)
    IF @Rbr > 1 and floor ((@Broj_Recept - 1) / 500) = round((@Broj_Recept - 1) / 500.0, 4)    --Cela 500-ka
    Begin
        SET @Rbr = 0
        SET @Specif_Br = @Specif_Br + 1
    End

    SET @Rbr = @Rbr + 1

    UPDATE Recepti
    SET Specif_Fiz = @Specif_Br,
        Rbr_Fiz = @Rbr
    WHERE Sifra_Apteka = @Sifra_Apt AND Broj_Recept=@Broj_Recept

    Fetch Next From TabRcp Into @Sifra_Apt, @Broj_Recept
End

Close TabRcp
Deallocate TabRcp





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravinalzatv47glk]'))
drop procedure [dbo].[sp_napravinalzatv47glk]

Go

CREATE  PROCEDURE sp_NapraviNalZatv47GLK
    @Godina Smallint

AS
    CREATE TABLE #PomAnal
(    Kto_Anal    char(10),
    DaliOrg        char(1)
)

INSERT INTO #PomAnal (Kto_Anal, DaliOrg)
   SELECT Kto_Anal, 'N'
   FROM Anal
   WHERE (DaliOrg IS NULL OR DaliOrg <>'D') AND (Kto_Anal Like '4%' OR  Kto_Anal Like '7%')

INSERT INTO #PomAnal (Kto_Anal, DaliOrg)
   SELECT Kto_Anal, 'D'
   FROM Anal
   WHERE DaliOrg ='D' --AND (Prenos_PoOE IS NULL OR Prenos_PoOE='D')
         AND (Kto_Anal Like '4%' OR  Kto_Anal Like '7%')

-- Ova e konfuzija - ne e bitno za ZATVARANJETO
--INSERT INTO #PomAnal (Kto_Anal, DaliOrg)
--    SELECT Kto_Anal, 'N' FROM Anal WHERE DaliOrg ='D' AND Prenos_PoOE='N'  AND (Kto_Anal Like '4%' OR  Kto_Anal Like '7%')

-- Vrati go rezultatot
SELECT Kto_Anal, Sifra_OE, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva
FROM GStav
WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal
     FROM #PomAnal
     WHERE DaliOrg = 'D')
GROUP BY Kto_Anal, Sifra_OE

UNION

SELECT Kto_Anal, NULL Sifra_OE, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva
FROM GStav
WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal
     FROM #PomAnal
     WHERE DaliOrg = 'N')

GROUP BY Kto_Anal

-- Vrati go rezultatot





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravipocnalglk]'))
drop procedure [dbo].[sp_napravipocnalglk]

Go



CREATE     PROCEDURE sp_NapraviPocNalGLK
    @Godina Smallint,
    @DaliDivizii char(1)='N',
    @KojaDrz    varchar(2)='MK'
AS
    CREATE TABLE #PomAnal
(    Kto_Anal    char(10),
    DaliOrg        char(1)
)
    INSERT INTO #PomAnal (Kto_Anal, DaliOrg) SELECT Kto_Anal, 'N' FROM Anal WHERE DaliOrg IS NULL OR DaliOrg <>'D'
    INSERT INTO #PomAnal (Kto_Anal, DaliOrg) SELECT Kto_Anal, 'D' FROM Anal WHERE DaliOrg ='D' AND (Prenos_PoOE IS NULL OR Prenos_PoOE=' ' OR Prenos_PoOE='D')
    INSERT INTO #PomAnal (Kto_Anal, DaliOrg) SELECT Kto_Anal, 'N' FROM Anal WHERE DaliOrg ='D' AND Prenos_PoOE='N'
IF @KojaDrz='SR'
Begin
    DELETE FROM #PomAnal WHERE Kto_Anal Like '5%'
    DELETE FROM #PomAnal WHERE Kto_Anal Like '6%'
End
ELSE
Begin
    DELETE FROM #PomAnal WHERE Kto_Anal Like '4%'
    DELETE FROM #PomAnal WHERE Kto_Anal Like '7%'
End

IF @DaliDivizii='D'
    SELECT Kto_Anal, Sifra_OE, KojaVal, Sifra_Div, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva,
                  SUM(Dev_Dolzi) Dev_Dolzi, SUM(Dev_Pobaruva) Dev_Pobaruva
    FROM GStav WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal FROM #PomAnal WHERE DaliOrg = 'D')
    GROUP BY Kto_Anal, Sifra_OE, KojaVal, Sifra_Div
    UNION
    SELECT Kto_Anal, NULL Sifra_OE, KojaVal, Sifra_Div, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva,
                  SUM(Dev_Dolzi) Dev_Dolzi, SUM(Dev_Pobaruva) Dev_Pobaruva
    FROM GStav WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal FROM #PomAnal WHERE DaliOrg = 'N')
    GROUP BY Kto_Anal, KojaVal, Sifra_Div
ELSE
    SELECT Kto_Anal, Sifra_OE, KojaVal, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva,
                  SUM(Dev_Dolzi) Dev_Dolzi, SUM(Dev_Pobaruva) Dev_Pobaruva
    FROM GStav WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal FROM #PomAnal WHERE DaliOrg = 'D')
    GROUP BY Kto_Anal, Sifra_OE, KojaVal
    UNION
    SELECT Kto_Anal, NULL Sifra_OE, KojaVal, SUM(Dolzi) Dolzi, SUM(Pobaruva) Pobaruva,
                  SUM(Dev_Dolzi) Dev_Dolzi, SUM(Dev_Pobaruva) Dev_Pobaruva
    FROM GStav WHERE Year(Datum_Nal) = @Godina AND Kto_Anal IN
    (SELECT Kto_Anal FROM #PomAnal WHERE DaliOrg = 'N')
    GROUP BY Kto_Anal, KojaVal







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravitabartzawebnaracki]'))
drop procedure [dbo].[sp_napravitabartzawebnaracki]

Go
CREATE PROCEDURE sp_NapraviTabArtzaWEBNaracki
    @Sifra_Kup    char(6)
AS
Declare @ImeTab varchar(20)
SET @ImeTab = '##wNar'+@Sifra_Kup

Declare @SSQL varchar(3000)
SET @SSQL = 'DROP TABLE '+@ImeTab
    IF EXISTS ( SELECT * FROM tempdb..sysobjects WHERE name=@ImeTab )
        EXEC (@SSQL)
SET @SSQL='    CREATE TABLE ' + @ImeTab+' (Sifra_Art varchar(20), Kolic decimal(18,6))'
EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_napravizbirnidok]'))
drop procedure [dbo].[sp_napravizbirnidok]

Go










CREATE                        PROCEDURE sp_NapraviZbirniDok
    @KoiOE    varchar(300),
    @KoiTipDok    varchar(100),
    @Datum_Od    smalldatetime = NULL,    --ZA GOT. OD DISTR.
    @Datum_Do    smalldatetime,
    @Komint_Od    char(6) = NULL,
    @Komint_Do    char(6) = NULL,
    @KoiCeniMag char(1) = NULL,
    @MagCeniZaOE smallint = NULL,
    @Shiftiraj    char(1) = 'N',
    @ShiftCel    char(1) = 'N',        --Shiftiraj celosno samo za kalo se upotrebuva
    @KojaCena    char(1) = 'D',         --D-DogCena,M-MalCena,G-GotCena
    @IskluciMes    char(1) = 'N',        --Firmi na koi im se fakturira mesecno
    @FktPoPat    char(1) = 'N'        --fakturite po patnik,14.05.11 ZC
AS
    Declare @SSQL        varchar(4000)
    Declare @PriemOdMag    smallint
    Declare @VratVoMag    smallint
    Declare @VratVoMag2    smallint
    Declare @Faktura    smallint
    Declare @StornoFak    smallint
    Declare @Shift        int
    Declare @LenShift    int
    Declare @Art_Od    varchar(7)
    Declare @Art_Do    varchar(7)
    SELECT @PriemOdMag = Pren_fix_plus, @VratVoMag=Pren_fix_minus, @Faktura=Ispr_Fix_plus,
    @VratVoMag2=Pren_Fix_Minus2, @StornoFak=Ispr_Fix_Minus, @Shift = Ladno_Shift FROM Konfig
--    IF @Shiftiraj = 'D'
    Begin
        if @Shift IS NULL
            Begin
                SET @Art_Od = '001000'
                SET @Art_Do = '002000'
            End
        Else
            Begin
                SET @LenShift = Len(cast(@Shift as varchar(7)))
                IF @LenShift > 6
                    Begin
                    SET @Art_Od    = cast(@Shift as varchar(7))
                    SET @Art_Do    = cast(@Shift*2 as varchar(7))
                    End
                Else
                    Begin
                    SET @Art_Od    = Replicate('0', 6-@LenShift) + cast(@Shift as varchar(6))
                    SET @Art_Do    = Replicate('0', 6-@LenShift) + cast(@Shift*2 as varchar(6))
                    End
            End
    End
    Declare @IskluciKup varchar(500)
    Declare @SamoKup varchar(500)
    SET @IskluciKup = NULL
    SET @SamoKup = NULL
    IF @LenShift > 6
    Begin
        IF substring(@KoiTipDok,1,2)='81'
            SET @IskluciKup = '000001, 000002, 001000, 008135, 000020'
        IF substring(@KoiTipDok,1,2)='85'
        Begin
--            SET @KoiTipDok ='81,83,85,86'
            SET @SamoKup = '000001, 000002, 001000, 008135, 000020'
        End
    End
    CREATE TABLE #TmpDok
(    Sifra_Kup    char(6),
    Sifra_Obj    smallint,
    Sifra_Pat    smallint,
    Sifra_Art    varchar(20),
    Sifra_Tar    char(3),
    POsn        decimal(6,2),
    Kolic        decimal(18,6),
    Cena        decimal(18,6),
    MagCena    decimal(18,6),
    Uces        decimal(6,2),
    GotCena        decimal(18,6)
)
IF @Datum_Od IS NOT NULL
BEGIN
    SET @SSQL = 'SELECT Sifra_Art, Sum(Case VlIzl When ''V'' Then Kolic Else Kolic * (-1) End)
    FROM Stavr WHERE Sifra_OE IN (' + @KoiOE + ') AND (Sifra_Dok ='+CAST(@PriemOdMag AS VARCHAR(6))+
    ' OR Sifra_dok='+ CAST(@Faktura AS VARCHAR(6))+') AND Datum_Dok >= '''+Cast(@Datum_Od as varchar(35))+
    ''' AND Datum_Dok <= '''+Cast(@Datum_Do as varchar(35)) + ''' GROUP BY Sifra_Art'
    INSERT INTO #TmpDok (Sifra_Art, Kolic) EXEC(@SSQL)
    SET @SSQL = 'SELECT Sifra_Art, Sum(Case VlIzl When ''V'' Then Kolic Else Kolic * (-1) End)
    FROM Stavr WHERE Sifra_OE IN (' + @KoiOE + ') AND (Sifra_Dok ='+ CAST(@VratVoMag AS VARCHAR(6))+
    ' OR Sifra_Dok='+CAST(@VratVoMag2 AS VARCHAR(6))+ ' OR Sifra_Dok='+CAST(@StornoFak AS VARCHAR(6))+') AND Datum_Dok >= ''' +
    Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) +
    ''' AND (Sifra_Art<'+@Art_Od+' or Sifra_Art>'+@Art_Do+') GROUP BY Sifra_Art'
    INSERT INTO #TmpDok (Sifra_Art, Kolic) EXEC(@SSQL)
IF @LenShift > 6
    SET @SSQL = 'SELECT SubString(Sifra_Art,2,6), Sum(Case VlIzl When ''V'' Then Kolic Else Kolic * (-1) End)
    FROM Stavr WHERE Sifra_OE IN (' + @KoiOE + ') AND (Sifra_Dok ='+ CAST(@VratVoMag AS VARCHAR(6))+
    ' OR Sifra_Dok='+CAST(@VratVoMag2 AS VARCHAR(6))+ ' OR Sifra_Dok='+CAST(@StornoFak AS VARCHAR(6))+') AND Datum_Dok >= ''' +
    Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) +
    ''' AND Sifra_Art>'+@Art_Od+' AND Sifra_Art<'+@Art_Do+' GROUP BY Sifra_Art'
ELSE
    SET @SSQL = 'SELECT ''000'' + SubString(Sifra_Art,4,3), Sum(Case VlIzl When ''V'' Then Kolic Else Kolic * (-1) End)
    FROM Stavr WHERE Sifra_OE IN (' + @KoiOE + ') AND (Sifra_Dok ='+ CAST(@VratVoMag AS VARCHAR(6))+
    ' OR Sifra_Dok='+CAST(@VratVoMag2 AS VARCHAR(6))+ ' OR Sifra_Dok='+CAST(@StornoFak AS VARCHAR(6))+') AND Datum_Dok >= ''' +
    Cast(@Datum_Od as varchar(35)) + ''' AND Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) +
    ''' AND Sifra_Art>'+@Art_Od+' AND Sifra_Art<'+@Art_Do+' GROUP BY Sifra_Art'
    INSERT INTO #TmpDok (Sifra_Art, Kolic) EXEC(@SSQL)
END
ELSE
BEGIN
    SET @SSQL = 'SELECT '
    IF @Komint_Od IS NOT NULL OR @Komint_Do IS NOT NULL
    Begin
        SET @SSQL = @SSQL + 'D.Sifra_Kup, D.Sifra_Obj, '
        IF @FktPoPat='D' SET @SSQL=@SSQL + 'D.Sifra_Oe, '
        IF @KojaCena='Z' SET @SSQL=@SSQL + 'S.DokCena, '
    End
    SET @SSQL = @SSQL + 'S.Sifra_Art, SUM(S.Kolic) FROM Stavr S
    INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    IF @IskluciMes ='D'
        SET @SSQL = @SSQL + ' INNER JOIN Komint K ON D.Sifra_kup=K.Sifra_Kup '
    SET @SSQL = @SSQL + ' WHERE S.Sifra_OE in (' + @KoiOE + ') AND S.Sifra_Dok in (' + @KoiTipDok +
    ') AND S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35)) +
    ''' AND (D.Blokiran IS NULL OR D.Blokiran = ''T'') '
    IF @IskluciKup IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' +@IskluciKup + ') '
    IF @SamoKup IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup IN (' +@SamoKup + ') '
    IF @IskluciMes ='D'
        SET @SSQL = @SSQL + ' AND (K.KDrugo5 IS NULL OR K.KDrugo5 <> 1) '
    IF @Komint_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup >= ' + @Komint_Od
    IF @Komint_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND D.Sifra_Kup <= ' + @Komint_Do
    IF @Komint_Od IS NOT NULL OR @Komint_Do IS NOT NULL
        BEGIN
            SET @SSQL = @SSQL + ' GROUP BY D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art'
            IF @FktPoPat='D' SET @SSQL=@SSQL + ',D.Sifra_Oe '
            IF @KojaCena='Z' SET @SSQL=@SSQL + ',S.DokCena '

            Declare @SSQL1 varchar(300)
            SET @SSQL1 = 'INSERT INTO #TmpDok (Sifra_Kup, Sifra_Obj, '
            IF @FktPoPat='D' SET @SSQL1=@SSQL1 + 'Sifra_Pat, '
            IF @KojaCena='Z' SET @SSQL1=@SSQL1 + 'Cena, '
            SET @SSQL1=@SSQL1 + 'Sifra_Art, Kolic) '
            EXEC(@SSQL1 +@SSQL)
        END
    ELSE
        BEGIN
        SET @SSQL = @SSQL + ' GROUP BY S.Sifra_Art'
        INSERT INTO #TmpDok (Sifra_Art, Kolic) EXEC(@SSQL)
        END
END
IF @Shiftiraj = 'D'
BEGIN
    CREATE TABLE #TmpDok1
(    Sifra_Kup    char(6),
    Sifra_Obj    smallint,
    Sifra_Pat    smallint,
    Sifra_Art    varchar(20),
    Sifra_Tar    char(3),
    POsn        decimal(6,2),
    Kolic        decimal(18,6),
    Cena        decimal(18,6),
    MagCena    decimal(18,6),
    Uces        decimal(6,2),
    GotCena        decimal(18,6)
)
IF @LenShift > 6
Begin
    IF @ShiftCel = 'D'
        UPDATE #TmpDok SET Sifra_Art = substring(Sifra_Art,2,6) WHERE
        Sifra_Art > @Art_Od AND #TmpDok.Sifra_Art < @Art_Do
    ELSE
        UPDATE #TmpDok SET Sifra_Art = substring(Sifra_Art,2,6) WHERE
        Sifra_Art > @Art_Od AND #TmpDok.Sifra_Art < @Art_Do AND Kolic < 0
End
Else
Begin
    IF @ShiftCel = 'D'
        UPDATE #TmpDok SET Sifra_Art = '000' + substring(Sifra_Art,4,3) WHERE
        Sifra_Art > @Art_Od AND #TmpDok.Sifra_Art < @Art_Do
    ELSE
        UPDATE #TmpDok SET Sifra_Art = '000' + substring(Sifra_Art,4,3) WHERE
        Sifra_Art > @Art_Od AND #TmpDok.Sifra_Art < @Art_Do AND Kolic < 0
End
    IF @KojaCena='Z'
        INSERT INTO #TmpDok1 (Sifra_Kup, Sifra_Obj, Sifra_Pat, Sifra_Art, Cena, Kolic)
        SELECT Sifra_Kup, Sifra_Obj, Sifra_Pat, Sifra_Art, Cena, SUM(Kolic) FROM #TmpDok
        GROUP BY Sifra_Kup, Sifra_Obj, Sifra_Pat, Sifra_Art, Cena
    ELSE
        INSERT INTO #TmpDok1 (Sifra_Kup, Sifra_Obj, Sifra_Art, Kolic)
        SELECT Sifra_Kup, Sifra_Obj, Sifra_Art, SUM(Kolic) FROM #TmpDok
        GROUP BY Sifra_Kup, Sifra_Obj, Sifra_Art

    DELETE FROM #TmpDok
    INSERT INTO #TmpDok SELECT * FROM #TmpDok1
END

IF @KojaCena<>'Z'
Begin
    SET @SSQL = 'UPDATE #TmpDok SET #TmpDok.CENA = KatArt.'
    IF @KojaCena = 'D'
        SET @SSQL = @SSQL + 'DogCena'
    ELSE IF @KojaCena = 'M'
        SET @SSQL = @SSQL + 'MalCena'
    ELSE IF @KojaCena = 'G'
        SET @SSQL = @SSQL + 'GotCena'
    SET @SSQL = @SSQL + ', #TmpDok.Sifra_Tar = KatArt.Sifra_Tar, #TmpDok.POsn=Tarifi.ProcOsn
    FROM KatArt, Tarifi WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art AND
    Tarifi.Sifra_Tar = KatArt.Sifra_Tar '
    EXEC(@SSQL)
End

IF @KojaCena='Z'
    Update #TmpDok Set #TmpDok.Sifra_Tar = KatArt.Sifra_Tar, #TmpDok.POsn=Tarifi.ProcOsn
    FROM KatArt, Tarifi WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art AND
    Tarifi.Sifra_Tar = KatArt.Sifra_Tar


UPDATE #TmpDok SET #TmpDok.GotCena = KatArt.GotCena FROM KatArt WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art --02.03.11
IF @KoiCeniMag='L'
    BEGIN
        Declare @Sif_GrOrg char(6)
        Declare @DanCenaOE char(1)
        SELECT @Sif_GrOrg=G.Sif_GrOrg FROM GrOrg G INNER JOIN SGrOrg S ON G.Sif_GrOrg=S.Sif_GrOrg
        WHERE  G.ZaedPlanCeni='D' AND S.Sifra_OE=@MagCeniZaOE        --G.DaliPogon='D' bese do 18.12.07 mesto ZaedPlanCeni ZV
        SELECT @DanCenaOE = CeniSoDanok FROM OrgEd WHERE Sifra_OE=@MagCeniZaOE
        CREATE TABLE #TmpC
        (Sifra_Art varchar(20),
         Cena    decimal(12,4),
         DanCena char(1),
         POsn    decimal(6,2),
         Vazi_Od    smalldatetime)
        INSERT INTO #TmpC (Sifra_Art,Vazi_Od) SELECT Sifra_Art, MAX(Vazi_Od) FROM CeniPlanski
        WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Art IN (SELECT DISTINCT Sifra_Art FROM #TmpDok) GROUP BY Sifra_Art
        UPDATE #TmpC SET Cena=C.Cena, DanCena=C.DanCena FROM CeniPlanski C WHERE #TmpC.Sifra_Art=C.Sifra_Art AND #TmpC.Vazi_Od=C.Vazi_Od
        UPDATE #TmpC SET Posn=T.ProcOsn FROM KatArt A, Tarifi T WHERE #TmpC.Sifra_Art=A.Sifra_Art AND T.Sifra_Tar=A.Sifra_Tar
        UPDATE #TmpC SET Cena=Cena*(1+POsn/100) WHERE @DanCenaOE='D' AND DanCena='N'
        UPDATE #TmpC SET Cena=Cena/(1+POsn/100) WHERE @DanCenaOE='N' AND DanCena='D'
        UPDATE #TmpDok SET #TmpDok.MagCena = C.Cena FROM #TmpC C WHERE #TmpDok.Sifra_Art=C.Sifra_Art
    END
ELSE
    UPDATE #TmpDok SET #TmpDok.MagCena = KatArt.DogCena
    FROM KatArt WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art      --#TmpDok.Sifra_Art < @Art_Od  AND
/*UPDATE #TmpDok SET #TmpDok.MagCena = KatArt.DogCena
FROM KatArt WHERE #TmpDok.Sifra_Art > @Art_Od  AND #TmpDok.Sifra_Art < @Art_Do
AND '000'+Substring(#TmpDok.Sifra_Art,4,3) = KatArt.Sifra_Art*/
UPDATE #TmpDok SET Uces=0
IF @Komint_Od IS NOT NULL OR @Komint_Do IS NOT NULL
BEGIN                            --prviov update dod.06.10.06
    UPDATE #TmpDok SET Uces = CenPoPodgr.Uces FROM CenPoPodgr, Katart, Kobjekti
    WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art AND KatArt.Sifra_podg = CenPoPodgr.Sifra_Podelba
    AND #TmpDok.Sifra_Kup = Kobjekti.Sifra_Kup AND #TmpDok.Sifra_Obj = Kobjekti.Sifra_Obj AND Kobjekti.TipKup = CenPoPodgr.TipKup

    UPDATE #TmpDok SET Uces = CenPoPodgr.Uces FROM CenPoPodgr, Katart, Komint
    WHERE #TmpDok.Sifra_Art = KatArt.Sifra_Art AND KatArt.Sifra_podg = CenPoPodgr.Sifra_Podelba
    AND #TmpDok.Sifra_Kup = Komint.Sifra_Kup AND Komint.TipKup = CenPoPodgr.TipKup AND #TmpDok.Uces=0

    UPDATE #TmpDok SET Uces = C.Popust, Cena = C.Cena FROM Cenovnik C
    WHERE #TmpDok.Sifra_Art = C.Sifra_Art AND #TmpDok.Sifra_Kup = C.Sifra_Kup
    AND @Datum_Do >= C.PocDatum AND @Datum_Do <= C.KrajDatum
END
IF @LenShift > 6
    SELECT * FROM #TmpDok WHERE Kolic <> 0 ORDER BY Sifra_Kup, Sifra_Obj, Sifra_Pat, Sifra_Art
ELSE
    SELECT * FROM #TmpDok WHERE Kolic <> 0 AND Sifra_Art < @Art_Do ORDER BY Sifra_Kup, Sifra_Obj, Sifra_Pat, Sifra_Art








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narac_komint_datum]'))
drop procedure [dbo].[sp_narac_komint_datum]

Go

CREATE  PROCEDURE sp_Narac_Komint_Datum
    @Sifra_Kup Varchar(10),
    @Datum_Nar Smalldatetime
AS
    Select SN.Sifra_Art, K.ImeArt, K.EdMera,
        Sum(Case SN.Sifra_OE
            When 100 Then SN.Kolic
            Else    0
        End) Kolic100,
        Sum(Case SN.Sifra_OE
            When 102 Then SN.Kolic
            Else    0
        End) Kolic102
    From StaNarac SN
    Inner Join Naracki N On SN.NarID=N.NarID
    Inner Join Katart K On SN.Sifra_Art=K.Sifra_Art
    Where N.Sifra_Kup=@Sifra_Kup
      And N.Datum_Nar=@Datum_Nar
    Group By SN.Sifra_Art, K.ImeArt, K.EdMera




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracano_isporacano_cfr]'))
drop procedure [dbo].[sp_naracano_isporacano_cfr]

Go

CREATE        PROCEDURE sp_Naracano_Isporacano_CFR
    @Sifra_Oe_Fri    smallint,
    @Sifra_Pat    int = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @TipNaracList    varchar(200) = Null,
    @TipDokList    varchar(200) = Null

AS

    Declare @SSQL as varchar(8000)
    Create Table #Rez
    (
        -- Dokr
        Sifra_Oe    smallint,
        Sifra_Dok    smallint,
        Broj_Dok    int,
        Sifra_OeNar    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Datum_dok    smalldatetime,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Pat    int,
        Identif_Br    varchar(30),
        Toc200        decimal(18,4),
        Danok1     decimal(18,4),
        Danok2        decimal(18,4),
        Kasa        decimal(6,2),
        -- Stavr
        Sifra_Art    varchar(20),
        Kolic        decimal(18,4),
        DokCena    decimal(18,4),
        DanDokCena    char(1),
        Rabat        decimal(6,2),
        POsn        decimal(6,2),
        -- Naracki
        Datum_Nar    smalldatetime,
        -- StaNarac
        NarKolic    decimal(18,4),
        NarDokCena    decimal(18,4),
        NarDanDokCena char(1),
        NarRabat    decimal(6,2)
    )
    --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- gi zemame site Dokumenti povrzani so naracki
    --   5.1. Procedurata treba da TRCA PO DOKR za site IZLEZNI dokumenti (pazi i prenosnici se vklucceni), i za site stavki
    --   koi gi zadovoluvaat uslovite od 4., a za koi Sifra_Oe_Nar ne e 0 nitu Null, gi bara naracckite i soodvetnite stavki vo Stavr i StaNarac.
    --   5.5. Zabelezi deka za nekoi stavki (artikli) mozze da ima zapis vo STAVR a da nema zapis vo STANARAC (ako raccno dodale vo centrala stavka vo f-rata).
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Sifra_OeNar, D.Sifra_Nar, D.Broj_Nar, D.Datum_Dok,
                D.Sifra_Kup, D.Sifra_Obj, D.Sifra_Pat, D.Identif_Br, D.Toc200, D.Danok1, D.Danok2, D.Kasa,
                S.Sifra_Art, S.Kolic, S.DokCena, S.DanDokCena, S.Uces, S.POsn,
                N.Datum_Nar, SN.Kolic, SN.DokCena, SN.DanDokCena, SN.Uces
            From Dokr D
            inner Join Stavr S On S.DokrID=D.DokrID
            Left Outer Join Naracki N On D.Sifra_OeNar = N.Sifra_Oe And D.Sifra_Nar = N.Sifra_Nar And D.Broj_Nar = N.Broj_Nar
            Left Outer Join StaNarac SN On SN.NarID=N.NarID And S.Sifra_Art = SN.Sifra_Art
            Where D.VlIzl = ''I'' '
    If @Sifra_Oe_Fri Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe_Fri as varchar(6)) + ' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    If @TipDokList Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @TipDokList + ') '
    --If @TipNaracList Is Not Null
    --    Set @SSQL = @SSQL + ' And (D.Sifra_Nar is null or D.SIfra_Nar = 0 or D.Sifra_Nar In (' + @TipNaracList + ')) '
--print @SSQL
    Insert Into #Rez (Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_OeNar, Sifra_Nar, Broj_Nar, Datum_dok, Sifra_Kup, Sifra_Obj,
            Sifra_Pat, Identif_Br, Toc200, Danok1, Danok2, Kasa, Sifra_Art, Kolic, DokCena, DanDokCena, Rabat, POsn,
            Datum_Nar, NarKolic, NarDokCena, NarDanDokCena, NarRabat)
    Exec (@SSQL)
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Artiklite za koi ima naracka, a ne se vleseni vo dokument
    --  5.2. Zabelezi deka za nekoi artikli mozze da se slucci da NEMA zapisi vo Stavr a da IMA zapisi vo StaNarac -- treba da se prikazat i tie
    --  5.3. Zabelezi deka mozze da se slucci za nekoja naraccka da NEMA niedna stavka vo STAVR (no ima stavka vo DOKR).
    Set @SSQL = ' Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, D.Datum_dok, D.Sifra_Kup, D.Sifra_Obj, D.Sifra_Pat,
            D.Identif_Br, D.Toc200, D.Danok1, D.Danok2, D.Kasa, SN.Sifra_Art, Null Kolic, Null DokCena, Null DanDokCena, Null Uces,
            N.Datum_Nar, SN.Kolic, SN.DokCena, SN.DanDokCena, SN.Uces
        From Naracki N
        inner Join StaNarac SN On SN.NarID=N.NarID
        Inner Join Dokr D On D.Sifra_OeNar = N.Sifra_Oe And D.Sifra_Nar = N.Sifra_Nar And D.Broj_Nar = N.Broj_Nar
        Where D.VlIzl = ''I''
        And Cast(N.Sifra_Oe as char(6)) + Cast(N.Sifra_Nar as char(6)) + Cast(N.Broj_Nar as char(10)) + SN.Sifra_Art
                Not In (Select Distinct Cast(Sifra_OeNar as char(6)) +  Cast(Sifra_Nar as char(6)) + Cast(Broj_Nar as char(10)) + Sifra_Art From #Rez) '
    If @Sifra_Oe_Fri Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe_Fri as varchar(6)) + ' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    If @TipDokList Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @TipDokList + ') '
    If @TipNaracList Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Nar In (' + @TipNaracList + ') '

    Insert Into #Rez (Sifra_Oe, Sifra_Dok, Broj_Dok, Sifra_OeNar, Sifra_Nar, Broj_Nar, Datum_dok, Sifra_Kup, Sifra_Obj,
            Sifra_Pat, Identif_Br, Toc200, Danok1, Danok2, Kasa, Sifra_Art, Kolic, DokCena, DanDokCena, Rabat,
            Datum_Nar, NarKolic, NarDokCena, NarDanDokCena, NarRabat)
    Exec(@SSQL)
    -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Naracki koi ne se preneseni vo dokument
    --   5.4. Zabelezi deka mozze da se slucci za nekoja naraccka da NEMA DOKR, no sepak treba da se prikazze.
    -- Vnimavaj: mozze naracckata da e realizirana vo DRUG period.
    -- Zatoa ke gi prikazzeme sampo onie NARACKI KOI VOOPSSTO NE SE REALIZIRANI (ako se realizirani bilo
    -- koga ke vlijaat na prethodnite toccki a ne ovde). Znacci voopsto ne proveruvame dali voopsto
    -- nesto ima vo #Rez, tuku samo dali NEMA VOOPSSTO REALIZACIJA...
    Set @SSQL = ' Select N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, S.Sifra_Art, S.Kolic, S.DokCena, S.DanDokCena, S.Uces, N.Sifra_Kup, N.Sifra_Obj
            From Naracki N
            inner Join StaNarac S On S.NarID=N.NarID
            left outer join Dokr D On D.Sifra_OeNar = N.Sifra_Oe And D.Sifra_Nar = N.Sifra_Nar And D.Broj_Nar = N.Broj_Nar
            where D.Sifra_Oe is null '        -- t.e. nema DOKR, nemalo nikakva realizacija
----            Where Cast(N.Sifra_Oe as char(6)) +  Cast(N.Sifra_Nar as char(6)) + Cast(N.Broj_Nar as char(10))
--                Not In (Select Distinct Cast(Sifra_OeNar as char(6)) +  Cast(Sifra_Nar as char(6)) + Cast(Broj_Nar as char(10)) From #Rez) '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + Cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + Cast(@Datum_Dok_Do as varchar(30)) + ''' '
    If @TipNaracList Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar In (' + @TipNaracList + ') '
    Insert Into #Rez (Sifra_OeNar, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Art, NarKolic, NarDokCena, NarDanDokCena, NarRabat, Sifra_Kup, Sifra_Obj)
    Exec (@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Select R.Sifra_Oe, R.Sifra_Dok, R.Broj_Dok, R.Sifra_OeNar, R.Sifra_Nar, R.Broj_Nar,
        R.Datum_Dok, dateadd(day, 1, R.Datum_Dok) Datum_Ispor,
        R.Sifra_Kup, Kup.ImeKup, R.Sifra_Obj, KO.ImeObj, R.Sifra_Pat, Pat.ImePat,
        R.Identif_Br, R.Toc200, R.Danok1, R.Danok2, R.Kasa, R.Sifra_Art, K.ImeArt,
                case when R.Kolic is null then 0 else R.Kolic end IsporKolic,
        (CASE when R.DokCena is null then 0 else R.DokCena end) *
            (case when R.DanDokCena = 'N' then
                                   (1 + (case when R.POsn is null then 0 else R.Posn / 100 end))
                                      else 1 end) DokCena,
        R.DanDokCena,
        R.Datum_Nar,
        case when R.NarKolic is null then 0 else R.NarKolic end NaracKolic,
        CASE when R.NarDokCena is null then 0 else R.NarDokCena end NarDokCena,
        R.NarDanDokCena,
                case when R.Rabat is null then 0 else R.Rabat end Uces,
        (Case When R.Sifra_Obj > 0 Then KO.Posta Else Kup.Posta End) Posta,
        (Case When R.Sifra_Obj > 0 Then KO.Smesto Else Kup.Smesto End) Smesto,
        (Case When R.Sifra_Obj > 0 Then KO.ADresa Else Kup.ADresa End) ADresa,
        K.ImaKomerc, K.ProcAlk, Org.ImeOrg,
        P.Ime_Podg, GTip.ImeTipKup,
        TD.ImeDok, 'D' Sredeno
    From #Rez R
    Inner Join Katart K On K.Sifra_Art = R.Sifra_Art    Inner Join Podgrupi P On K.Sifra_Podg = P.Sifra_Podg
    Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra_Kup
    Left Outer Join Kobjekti KO On KO.Sifra_Kup = R.Sifra_Kup And KO.Sifra_Obj = R.Sifra_Obj
    Left Outer Join Patnici Pat On Pat.Sifra_Pat = R.Sifra_Pat
    left outer join OrgEd Org on Org.sifra_oe = R.Sifra_Oe
    left outer join GTipKup GTip on GTip.TipKup = Kup.TipKup
    left outer join TipDok TD on TD.Sifra_Dok = R.Sifra_Dok
    where K.SmatUsl <> 'U' or K.SmatUsl is null
    Order By R.Sifra_Oe, R.Sifra_Dok, R.Broj_Dok, R.Sifra_Art










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracano_isporacano_detalno]'))
drop procedure [dbo].[sp_naracano_isporacano_detalno]

Go

CREATE        PROCEDURE sp_Naracano_Isporacano_Detalno
    @Sifra_Pat        smallint = Null,
    @KoiPat        Varchar(10) = Null,
    @Sifra_Nar        Varchar(100) = Null,
    @Datum_Nar_Od    smalldatetime = Null,
    @Datum_Nar_Do    smalldatetime = Null,
    @PoKomintArt        char(1) = 'D'        -- K - Po Komintent,     A - Po Artikal,      D - Detalno Po Naracka
 AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    If @Sifra_Pat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Oe = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @KoiPat Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiPat + ''') '
    If @Sifra_Nar Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Nar In ( ' + @Sifra_Nar + ') '
    If @Datum_Nar_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Datum_Nar >= ''' + Cast(@Datum_Nar_Od as varchar(30)) + ''' '
    If @Datum_Nar_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Datum_Nar <= ''' + Cast(@Datum_Nar_Do as varchar(30)) + ''' '

    Create Table #NajnovDok
    (
         Sifra_Oe    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Sifra_Art    varchar(20),
        Datum_Dok    smalldatetime
    )
    Set @SSQL =  ' Select N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, SN.Sifra_Art, Max(D.Datum_Dok)
        From StaNarac SN
        Inner Join Naracki N on SN.NarID = N.NarID
        Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
        Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
        Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
        Where 1=1 '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, SN.Sifra_Art '
    Insert Into #NajnovDok Exec(@SSQL)

        Create Table #NajnovDok1
    (
         Sifra_Oe    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Sifra_Art    varchar(20),
        Datum_Dok    smalldatetime,
        DokrID        int
    )
    Insert Into #NajnovDok1
    Select D.Sifra_OeNar, D.Sifra_Nar, D.Broj_Nar, S.Sifra_Art, N.Datum_Dok, Max(D.DokrID)
    From Dokr D
    Inner Join #NajnovDok N On N.Sifra_Oe = D.Sifra_OeNar And N.Sifra_Nar=D.Sifra_Nar And N.Broj_Nar=D.Broj_Nar
    Inner Join Stavr S On S.DokrID=D.DokrID And S.Sifra_Art=N.Sifra_Art
    Group By D.Sifra_OeNar, D.Sifra_Nar, D.Broj_Nar, S.Sifra_Art, N.Datum_Dok


    Create Table #Nar
    (
        NarID        int,
        Sifra_OeNar    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Datum_Nar    smalldatetime,
        DokrID        int,
        Sifra_OeDok    smallint,
        Sifra_Dok    smallint,
        Broj_Dok    int,
        Datum_Dok    smalldatetime,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Art    varchar(20),
        KolicNar    decimal(18,6),
        KolicDok    decimal(18,6),
    )

    Set @SSQL = ' Select N.NarID, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, ND.DokrID, DD.Sifra_Oe, DD.Sifra_Dok, DD.Broj_Dok, ND.Datum_Dok,
                N.Sifra_Kup, N.Sifra_Obj, SN.Sifra_Art, SN.Kolic KolicNar, Sum(Case When S.Kolic Is Not Null Then S.Kolic Else 0 End) KolicDok
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Left Outer Join #NajnovDok1 ND On ND.Sifra_Oe = N.Sifra_Oe And ND.Sifra_Nar = N.Sifra_Nar And ND.Broj_Nar = N.Broj_Nar And ND.Sifra_Art = SN.Sifra_Art
            Left Outer Join Dokr DD On DD.DokrID=ND.DokrID
            Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.NarID, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, ND.DokrID, DD.Sifra_Oe, DD.Sifra_Dok, DD.Broj_Dok, ND.Datum_Dok,
                N.Sifra_Kup, N.Sifra_Obj, SN.Sifra_Art, SN.Kolic '
    print @SSQL
    Insert Into #Nar Exec(@SSQL)

    Set @SSQL = ' Select Null NarID, D.Sifra_Pat, Null Sifra_Nar, Null Broj_Nar, Null Datum_Nar, D.DokrID, D.Sifra_Oe, D.Sifra_Dok,  D.Broj_Dok, D.Datum_Dok,
                D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, 0 as KolicNar, Sum(Case When S.Kolic Is Not Null Then S.Kolic Else 0 End) KolicDok
            From Dokr D
            Left Outer Join Stavr S On S.DokrID = D.DokrID
            Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj=D.Sifra_Obj
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Where D.Sifra_OeNar Is Null And D.Sifra_Pat Is Not Null '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @KoiPat Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Pat In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiPat + ''') '
    If @Datum_Nar_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Nar_Od as varchar(30)) + ''' '
    If @Datum_Nar_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Nar_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By D.Sifra_Pat, D.DokrID, D.Sifra_Oe, D.Sifra_Dok,  D.Broj_Dok, D.Datum_Dok, D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art '
    Insert Into #Nar Exec(@SSQL)

--    Select * from #Nar

    Create Table #BrNarObj
    (
        Sifra_Pat    int,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Art    varchar(20),
        BrNar        int,
        BrDok        int,
        BrObj        int,
        BrKomint    int,
        BrPoseti        int
    )
    IF @PoKomintArt = 'K'
        Insert Into #BrNarObj Select Sifra_OeNar, Sifra_Kup, Sifra_Obj, Null, Count(Distinct NarID), Count(Distinct DokrID), Null, Null, Null From #Nar Group By Sifra_OeNar, Sifra_Kup, Sifra_Obj
    Else IF @PoKomintArt = 'A'
        Insert Into #BrNarObj Select Sifra_OeNar, Null, Null, Sifra_Art,  Count(Distinct NarID), Count(Distinct DokrID),
                    Count(Distinct Sifra_Kup + (Case When Sifra_Obj Is Not Null Then Cast(Sifra_Obj as char(3)) Else ' ' End)),
                    Count(Distinct Sifra_Kup), Null From #Nar Group By Sifra_OeNar, Sifra_Art

    Create Table #Poseti
    (
        Sifra_Pat    int,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        BrPoseti        int
    )
    If @PoKomintArt <> 'A' Or @PoKomintArt Is Null
    Begin
        Set @SSQL = ' Select Sifra_Oe, Sifra_Kup, Sifra_Obj, Count(*)
                From Akcija
                Where Aktivnost = ''V'' '
        If @Sifra_Pat Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Oe = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        If @KoiPat Is Not Null
            Set @SSQL = @SSQL + ' And Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiPat + ''') '
        If @Datum_Nar_Od Is Not Null
            Set @SSQL = @SSQL + ' And DatumVreme >= ''' + Cast(@Datum_Nar_Od as varchar(30)) + ''' '
        If @Datum_Nar_Do Is Not Null
            Set @SSQL = @SSQL + ' And DatumVreme < ''' + Cast(@Datum_Nar_Do + 1  as varchar(30)) + ''' '
        Set @SSQL = @SSQL + ' Group By Sifra_Oe, Sifra_Kup, Sifra_Obj '
        Insert Into #Poseti Exec(@SSQL)
    End

    --Poseti za koi ne se napraveni naracki
    Insert Into #Nar (Sifra_OeNar, Sifra_Kup, Sifra_Obj)
    Select Sifra_Pat, Sifra_Kup, Sifra_Obj
    From  #Poseti
    Where Cast(Sifra_Pat as char(10)) + Cast(Sifra_Kup as char(6)) + Cast(Sifra_Obj as char(3))
    Not In (Select Cast(Sifra_Pat as char(10)) + Cast(Sifra_Kup as char(6)) + Cast(Sifra_Obj as char(3)) From #Nar)

    Update #BrNarObj
    Set BrPoseti = P.BrPoseti
    From #Poseti P
    Where P.Sifra_Pat = #BrNarObj.Sifra_Pat And P.Sifra_Kup=#BrNarObj.Sifra_Kup And P.Sifra_Obj=#BrNarObj.Sifra_Obj
    And P.Sifra_Obj Is Null And #BrNarObj.Sifra_Obj Is Null

    Update #BrNarObj
    Set BrPoseti = P.BrPoseti
    From #Poseti P
    Where P.Sifra_Pat = #BrNarObj.Sifra_Pat And P.Sifra_Kup=#BrNarObj.Sifra_Kup
    And P.Sifra_Obj Is Not Null And #BrNarObj.Sifra_Obj Is Not Null


    Set @SSQL = ' Select N.Sifra_OeNar Sifra_Pat, Pat.ImePat, '
    If @PoKomintArt = 'K'
        Set @SSQL = @SSQL + ' N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj, Null Sifra_Art, Null ImeArt, '
    Else If @PoKomintArt = 'A'
        Set @SSQL = @SSQL + ' Null Sifra_Kup, Null ImeKup, Null Sifra_Obj, Null ImeObj, N.Sifra_Art, K.ImeArt, '
    Else -- detalno
        Set @SSQL = @SSQL + ' N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj, N.Sifra_Art, K.ImeArt, '
    If @PoKomintArt In ('K','A')
        Set @SSQL = @SSQL + ' Null Sifra_Nar, Null Broj_Nar, Null Datum_Nar, Null Sifra_OeDok, Null Sifra_Dok, Null Broj_Dok, Null Datum_Dok, Null Denovi, '
    Else
        Set @SSQL = @SSQL + ' N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_OeDok, N.Sifra_Dok, N.Broj_Dok, N.Datum_Dok, DateDiff(Day, N.Datum_Nar, N.Datum_Dok) Denovi, '
    Set @SSQL = @SSQL + ' Sum(KolicNar) KolicNar, Sum(KolicDok) KolicDok, BR.BrNar, BR.BrDok, BR.BrKomint , BR.BrObj, BP.BrPoseti
            From #Nar N
            Left Outer Join Patnici Pat On Pat.Sifra_Pat = N.Sifra_OeNar
            Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
            Left Outer Join Katart K On K.Sifra_Art = N.Sifra_Art
            Left Outer Join #Poseti BP On BP.Sifra_Kup = N.Sifra_Kup And BP.Sifra_Obj=N.Sifra_Obj '
    If @PoKomintArt = 'K'
        Set @SSQL = @SSQL + ' Left Outer Join #BrNarObj BR On BR.Sifra_Pat=N.Sifra_OeNar And BR.Sifra_Kup=N.Sifra_Kup And (Case When BR.Sifra_Obj Is Not Null Then BR.Sifra_Obj Else 1234 End)=(Case When N.Sifra_Obj Is Not Null Then N.Sifra_Obj Else 1234 End) '
    Else If @PoKomintArt = 'A'
        Set @SSQL = @SSQL + ' Left Outer Join #BrNarObj BR On BR.Sifra_Pat=N.Sifra_OeNar And BR.Sifra_Art=N.Sifra_Art '
    Else
        Set @SSQL = @SSQL + ' Left Outer Join #BrNarObj BR On BR.Sifra_Pat=N.Sifra_OeNar ' -- Ovde nema Join - samo taka e staveno
    Set @SSQL = @SSQL + ' Group By N.Sifra_OeNar, Pat.ImePat, '
    If @PoKomintArt = 'K'
        Set @SSQL = @SSQL + ' N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj, '
    Else If @PoKomintArt = 'A'
        Set @SSQL = @SSQL + ' N.Sifra_Art, K.ImeArt, '
    Else -- detalno
        Set @SSQL = @SSQL + ' N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj, N.Sifra_Art, K.ImeArt, '
    If @PoKomintArt In ('K','A')
        Set @SSQL = @SSQL + ' '
    Else
        Set @SSQL = @SSQL + ' N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_OeDok, N.Sifra_Dok, N.Broj_Dok, N.Datum_Dok, DateDiff(Day, N.Datum_Nar, N.Datum_Dok), '
    Set @SSQL = @SSQL + ' BR.BrNar, BR.BrDok, BR.BrKomint, BR.BrObj, BP.BrPoseti  '
print @SSQL
    Exec(@SSQL)




--select * from #BrNarObj



/*

    If @PoArtDok = 'D' -- po dokumrenti
    Begin
        Set @SSQL = ' Select SN.Sifra_Art, K.ImeArt, N.Datum_Nar, N.Sifra_Oe SifOeNar, N.Sifra_Nar, N.Broj_Nar, ND.Datum_Dok,
                    (SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)) IznosNar,
                    SN.Kolic KolicNar,
                    Sum(Case When S.Kolic Is Not Null Then (S.Kolic*(Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)) Else 0 End) IznosDok,
                    Sum(Case When S.Kolic Is Not Null Then S.Kolic Else 0 End) KolicDok,
                    DATEDIFF(day, N.Datum_Nar, ND.Datum_Dok) Denovi, Null as Rbr, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Left Outer Join #NajnovDok1 ND On ND.Sifra_Oe = N.Sifra_Oe And ND.Sifra_Nar = N.Sifra_Nar And ND.Broj_Nar = N.Broj_Nar And ND.Sifra_Art = SN.Sifra_Art
            Left Outer Join Dokr DD On DD.DokrID=ND.DokrID
            Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art, K.ImeArt, N.Datum_Nar, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, ND.Datum_Dok, DD.Sifra_Oe, DD.Sifra_Dok, DD.Broj_Dok,
                    (SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)), SN.Kolic,
                    DATEDIFF(day, N.Datum_Nar, ND.Datum_Dok), N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj
                Order by N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar '
        Exec(@SSQL)
    End
    Else   -- @PoArtDok = 'A' -- po artikli
    Begin
        Create Table #Narac
        (
            Sifra_Art    varchar(20),
            IznosNar    decimal(18,6),
            KolicNar    decimal(18,6),
            IznosDok    decimal(18,6),
            KolicDok    decimal(18,6)
        )
        Set @SSQL = ' Select SN.Sifra_Art, Sum(SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)) IznosNar,
                    Sum(SN.Kolic) KolicNar, 0, 0
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art '
        Insert Into #Narac Exec(@SSQL)

        Set @SSQL = ' Select SN.Sifra_Art, 0 IznosNar, 0 KolicNar,
                     Sum(S.Kolic*(Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)) IznosDok,
                    Sum(S.Kolic) KolicDok
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art '
        Insert Into #Narac Exec(@SSQL)

        Select N.Sifra_Art, K.ImeArt, Null Datum_Nar, Null SifOeNar, Null Sifra_Nar, Null Broj_Nar, Null Datum_Dok,
            Sum(N.IznosNar) IznosNar, Sum(N.KolicNar) KolicNar, Sum(N.IznosDok) IznosDok, Sum(KolicDok) KolicDok
        From #Narac N
        Inner Join Katart K ON K.Sifra_Art = N.Sifra_Art
        Group By N.Sifra_Art, K.ImeArt
    End
*/


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracano_realizirano]'))
drop procedure [dbo].[sp_naracano_realizirano]

Go


CREATE                           PROCEDURE sp_Naracano_Realizirano
    @Sifra_OE     Smallint,
       @Sifra_Nar     Smallint,
    @Broj_Nar     Int,
       @Datum_Nar_Od Smalldatetime,
       @Datum_Nar_Do Smalldatetime,
    @Sifra_Kup     Char(6),
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Podred    char(1) = 'S',    -- S - Sifra_Art,  I - ImeArt
    @KoiNar    char(1) = 'S',    -- D - Domassni,   E - Stranski,    S - Site (I Domassni i Stranski)
    @Sifra_GrNar    smallint = Null
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQL=' '
    Set @SSQLUsl=' '
    If @Sifra_Nar Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_GrNar Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND TN.Sifra_GrNar=''' + Cast(@Sifra_GrNar As Varchar(10)) + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Broj_Nar Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar=''' + Cast(@Broj_Nar As Varchar(10)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND SN.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND SN.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
/*    IF @Realiz='D'
        SET @SSQL = @SSQL + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'
        SET @SSQL = @SSQL + ' AND (Not (Nar.Realiziran = ''D'' Or Nar.Realiziran = ''S'')  Or (Nar.Realiziran Is Null)) '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
*/
    Create Table #Tab
    (
     Sifra_Art    varchar(20),
     KolicNarac    decimal(18,6),
     KolicReal    decimal(18,6),
     KolicOdZal    decimal(18,6),
     ImeMat        varchar(200)
    )
    SET @SSQL = ' SELECT SN.Sifra_Art, Sum(SN.Kolic) KolicNarac, 0 as KolicReal, Sum(SN.KolicOdZal), SN.ImeMat
            FROM Naracki Nar
            Inner Join StaNarac SN On Nar.NarID=SN.NarID
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Inner Join TipNarac TN On TN.Sifra_Nar=Nar.Sifra_Nar
            Where 1=1 '
    If @KoiNar = 'D'
        Set @SSQL = @SSQL + ' And (TN.DaliDev<>''D'' Or TN.DaliDev Is Null) '
    Else If @KoiNar = 'E'
        Set @SSQL = @SSQL + ' And TN.DaliDev=''D'' '
    Set @SSQL = @SSQL + @SSQLUsl + 'Group By SN.Sifra_Art, SN.ImeMat '
    Insert Into #Tab Exec(@SSQL)
    SET @SSQL = ' SELECT SNR.Sifra_Art, 0 as KolicNarac, Sum(SNR.Kolic) KolicReal, 0, Null
            FROM Naracki Nar
            Inner Join StaNaracReal SNR On Nar.NarID=SNR.NarID
            Inner Join Katart K On K.Sifra_Art = SNR.Sifra_Art
            Inner Join TipNarac TN On TN.Sifra_Nar=Nar.Sifra_Nar
            Where 1=1 '
    If @KoiNar = 'D'
        Set @SSQL = @SSQL + ' And (TN.DaliDev<>''D'' Or TN.DaliDev Is Null) '
    Else If @KoiNar = 'E'
        Set @SSQL = @SSQL + ' And TN.DaliDev=''D'' '
    Set @SSQL = @SSQL + @SSQLUsl + 'Group By SNR.Sifra_Art '
    Insert Into #Tab Exec(@SSQL)
    SELECT T.Sifra_Art, K.ImeArt, Sum(T.KolicNarac) KolicNarac, K.Tezina, K.BTezina, Sum(T.KolicReal) KolicReal, Sum(T.KolicOdZal) KolicOdZal, T.ImeMat, K.Sifra_Podg
    From #Tab T
    Inner Join Katart K On K.Sifra_Art=T.Sifra_Art
    Group by T.Sifra_Art, K.ImeArt, K.Tezina, K.BTezina, T.ImeMat, K.Sifra_Podg




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narackano_isporacano]'))
drop procedure [dbo].[sp_narackano_isporacano]

Go







CREATE        PROCEDURE sp_Narackano_Isporacano
    @Sifra_OeNar        smallint = Null,
    @Sifra_Nar        Varchar(100) = Null,
    @Datum_Nar_Od    smalldatetime = Null,
    @Datum_Nar_Do    smalldatetime = Null,
    @Realizirani        char(1) = Null,        -- D / N
    @PoArtDok        char(1) = 'N'        -- A - Po Artikli    D - Po Artikli i dokumenti
 AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    If @Sifra_OeNar Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Oe = ' + Cast(@Sifra_OeNar as varchar(6)) + ' '
    If @Sifra_Nar Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Sifra_Nar In ( ' + @Sifra_Nar + ') '
    If @Datum_Nar_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Datum_Nar >= ''' + Cast(@Datum_Nar_Od as varchar(30)) + ''' '
    If @Datum_Nar_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And N.Datum_Nar <= ''' + Cast(@Datum_Nar_Do as varchar(30)) + ''' '
    If @Realizirani = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And SN.Realiz_Kolic <> 0 '
    Else If @Realizirani = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And (SN.Realiz_Kolic = 0 Or SN.Realiz_Kolic Is Null) '

    Create Table #NajnovDok
    (
         Sifra_Oe    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Sifra_Art    varchar(20),
        Datum_Dok    smalldatetime
    )
    Set @SSQL =  ' Select N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, SN.Sifra_Art, Max(D.Datum_Dok)
        From StaNarac SN
        Inner Join Naracki N on SN.NarID = N.NarID
        Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
        Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
        Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
        Where 1=1 '
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, SN.Sifra_Art '
    Insert Into #NajnovDok Exec(@SSQL)

        Create Table #NajnovDok1
    (
         Sifra_Oe    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Sifra_Art    varchar(20),
        Datum_Dok    smalldatetime,
        DokrID        int
    )
    Insert Into #NajnovDok1
    Select D.Sifra_OeNar, D.Sifra_Nar, D.Broj_Nar, S.Sifra_Art, N.Datum_Dok, Max(D.DokrID)
    From Dokr D
    Inner Join #NajnovDok N On N.Sifra_Oe = D.Sifra_OeNar And N.Sifra_Nar=D.Sifra_Nar And N.Broj_Nar=D.Broj_Nar
    Inner Join Stavr S On S.DokrID=D.DokrID And S.Sifra_Art=N.Sifra_Art
    Group By D.Sifra_OeNar, D.Sifra_Nar, D.Broj_Nar, S.Sifra_Art, N.Datum_Dok

    If @PoArtDok = 'D' -- po dokumrenti
    Begin
        Set @SSQL = ' Select SN.Sifra_Art, K.ImeArt, N.Datum_Nar, N.Sifra_Oe SifOeNar, N.Sifra_Nar, N.Broj_Nar, ND.Datum_Dok,
                    (SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)) IznosNar,
                    SN.Kolic KolicNar,
                    Sum(Case When S.Kolic Is Not Null Then (S.Kolic*(Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)) Else 0 End) IznosDok,
                    Sum(Case When S.Kolic Is Not Null Then S.Kolic Else 0 End) KolicDok,
                    DATEDIFF(day, N.Datum_Nar, ND.Datum_Dok) Denovi, Null as Rbr, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Left Outer Join #NajnovDok1 ND On ND.Sifra_Oe = N.Sifra_Oe And ND.Sifra_Nar = N.Sifra_Nar And ND.Broj_Nar = N.Broj_Nar And ND.Sifra_Art = SN.Sifra_Art
            Left Outer Join Dokr DD On DD.DokrID=ND.DokrID
            Left Outer Join Komint Kup On Kup.Sifra_Kup = N.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art, K.ImeArt, N.Datum_Nar, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, ND.Datum_Dok, DD.Sifra_Oe, DD.Sifra_Dok, DD.Broj_Dok,
                    (SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)), SN.Kolic,
                    DATEDIFF(day, N.Datum_Nar, ND.Datum_Dok), N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj
                Order by N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar '
        Exec(@SSQL)
    End
    Else   -- @PoArtDok = 'A' -- po artikli
    Begin
        Create Table #Narac
        (
            Sifra_Art    varchar(20),
            IznosNar    decimal(18,6),
            KolicNar    decimal(18,6),
            IznosDok    decimal(18,6),
            KolicDok    decimal(18,6)
        )
        Set @SSQL = ' Select SN.Sifra_Art, Sum(SN.Kolic*(Case When SN.DanDokCena=''D'' Then SN.DokCena Else SN.DokCena*(1+SN.Posn/100) End)) IznosNar,
                    Sum(SN.Kolic) KolicNar, 0, 0
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art '
        Insert Into #Narac Exec(@SSQL)

        Set @SSQL = ' Select SN.Sifra_Art, 0 IznosNar, 0 KolicNar,
                     Sum(S.Kolic*(Case When S.DanDokCena=''D'' Then S.DokCena Else S.DokCena*(1+S.Posn/100) End)) IznosDok,
                    Sum(S.Kolic) KolicDok
            From StaNarac SN
            Inner Join Naracki N On SN.NarID = N.NarID
            Left Outer Join Dokr D On SN.Sifra_Oe = D.Sifra_OeNar and SN.Sifra_Nar = D.Sifra_Nar and SN.Broj_Nar = D.Broj_Nar
            Left Outer Join Stavr S On S.DokrID = D.DokrID And S.Sifra_Art = SN.Sifra_Art
            Where 1=1 '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By  SN.Sifra_Art '
        Insert Into #Narac Exec(@SSQL)
        Select N.Sifra_Art, K.ImeArt, Null Datum_Nar, Null SifOeNar, Null Sifra_Nar, Null Broj_Nar, Null Datum_Dok,
            Sum(N.IznosNar) IznosNar, Sum(N.KolicNar) KolicNar, Sum(N.IznosDok) IznosDok, Sum(KolicDok) KolicDok
        From #Narac N
        Inner Join Katart K ON K.Sifra_Art = N.Sifra_Art
        Group By N.Sifra_Art, K.ImeArt
    End


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narackareal]'))
drop procedure [dbo].[sp_narackareal]

Go
CREATE PROCEDURE sp_NarackaReal
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int
AS
    UPDATE Naracki SET Realiziran = 'D', Realiz_Na=GetDate()
    WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracki_sledenje]'))
drop procedure [dbo].[sp_naracki_sledenje]

Go





CREATE                             PROCEDURE sp_Naracki_Sledenje
    @Sifra_OE     Smallint,
       @Sifra_Nar     Smallint,
    @Broj_Nar     Int,
       @Datum_Nar_Od Smalldatetime,
       @Datum_Nar_Do Smalldatetime,
    @Sifra_Kup     Char(6),
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Podred    char(1) = 'S',    -- S - Sifra_Art,  I - ImeArt
    @KoiNar    char(1) = 'S',    -- D - Domassni,   E - Stranski,    S - Site (I Domassni i Stranski)
    @Sifra_GrNar    smallint = Null
--    @VlIzl Char(1),
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQL=' '
    Set @SSQLUsl=' '
    If @Sifra_Nar Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_GrNar Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND TN.Sifra_GrNar=''' + Cast(@Sifra_GrNar As Varchar(10)) + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Broj_Nar Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar=''' + Cast(@Broj_Nar As Varchar(10)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Kup=''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND SN.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND SN.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
/*    IF @Realiz='D'
        SET @SSQL = @SSQL + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'
        SET @SSQL = @SSQL + ' AND (Not (Nar.Realiziran = ''D'' Or Nar.Realiziran = ''S'')  Or (Nar.Realiziran Is Null)) '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
*/
    If @KoiNar In ('D', 'S')
    Begin
        SET @SSQL = @SSQL + ' SELECT SN.Sifra_Art, K.ImeArt, Sum(SN.Kolic) Kolic, K.Tezina, K.BTezina, SN.ImeMat as PosebBaranja,
                    SN.DokCena, ''Den'' as KojaVal, ''Den'' as ImeVal, Sum(SN.Kolic*SN.DokCena) VrednostVal, Sum(SN.Kolic*SN.DokCena) VrednostDen, SN.ImeMat, K.Sifra_Podg
                FROM Naracki Nar
                Inner Join StaNarac SN On Nar.NarID=SN.NarID
                Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
                Inner Join TipNarac TN On TN.Sifra_Nar=Nar.Sifra_Nar
                Where (TN.DaliDev<>''D'' Or TN.DaliDev Is Null) '
        Set @SSQL = @SSQL + @SSQLUsl + 'Group By SN.Sifra_Art, K.ImeArt, K.Tezina, K.BTezina, SN.ImeMat, SN.DokCena, SN.ImeMat, K.Sifra_Podg '
    End
    If @KoiNar = 'S'
        Set @SSQL = @SSQL + ' Union '
    If @KoiNar In ('E', 'S')
    Begin
        SET @SSQL = @SSQL + 'SELECT SN.Sifra_Art, K.ImeArt, Sum(SN.Kolic) Kolic, K.Tezina, K.BTezina, SN.ImeMat as PosebBaranja,
                    SN.DevCena, Nar.KojaVal, Val.ImeVal, Sum(SN.Kolic*SN.DevCena) VrednostVal, Sum(SN.Kolic*SN.DevCena*Nar.Kurs) VrednostDen, SN.ImeMat, K.Sifra_Podg
                FROM DevNar Nar
                Inner Join DevNarStavk SN On Nar.DevNarID=SN.DevNarID
                Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
                Left Outer Join KrsLista Val On Val.SImeVal=Nar.KojaVal
                Inner Join TipNarac TN On TN.Sifra_Nar=Nar.Sifra_Nar
                Where TN.DaliDev=''D'' '
        Set @SSQL = @SSQL + @SSQLUsl + 'Group By SN.Sifra_Art, K.ImeArt, K.Tezina, K.BTezina, SN.ImeMat, SN.DevCena, Nar.KojaVal, Val.ImeVal, SN.ImeMat, K.Sifra_Podg '
    End
print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracki_sledenje_postanaracreal]'))
drop procedure [dbo].[sp_naracki_sledenje_postanaracreal]

Go
CREATE    PROCEDURE sp_Naracki_Sledenje_PoStaNaracReal
    @Sifra_OE     Smallint,
       @Sifra_Nar     Smallint,
    @Broj_Nar_Od     Int,
    @Broj_Nar_Do     Int,
       @Datum_Nar_Od Smalldatetime,
       @Datum_Nar_Do Smalldatetime,
    @DajNepotvrdeni    char(1) = 'N',
    @DajNeispecateni    char(1) = 'D',
    @DajIspecateni        char(1) = 'N',
    @DajZatvoreni        char(1) = 'N',
    @PoKomint        char(1) = 'N'
--    @VlIzl Char(1),
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQLUsl=' '
    If @Sifra_Nar Is NOT NULL
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Broj_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar >=''' + Cast(@Broj_Nar_Od As Varchar(10)) + ''' '
    If @Broj_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar <=''' + Cast(@Broj_Nar_Do As Varchar(10)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @DajNepotvrdeni ='D'
        SET @SSQLUsl = @SSQLUsl + ' And Nar.Stat_Nar In (''N'' '
    If @DajNeispecateni ='D' And @DajNepotvrdeni <>'D'
        SET @SSQLUsl = @SSQLUsl + ' And Nar.Stat_Nar In (''A'' '
    Else If @DajNeispecateni ='D' And @DajNepotvrdeni ='D'
        SET @SSQLUsl = @SSQLUsl + ',''A'' '
    If @DajIspecateni ='D' And @DajNepotvrdeni <>'D' And @DajNeispecateni <> 'D'
        SET @SSQLUsl = @SSQLUsl + ' And Nar.Stat_Nar In (''C'' '
    Else If @DajIspecateni ='D' And (@DajNepotvrdeni = 'D' Or @DajNeispecateni ='D')
        SET @SSQLUsl = @SSQLUsl + ',''C'' '
    If @DajZatvoreni = 'D' And @DajIspecateni <> 'D' And @DajNepotvrdeni <> 'D' And @DajNeispecateni <> 'D'
        SET @SSQLUsl = @SSQLUsl + ' And Nar.Stat_Nar In (''Z'' '
    Else If @DajZatvoreni = 'D' And (@DajIspecateni ='D' Or @DajNepotvrdeni = 'D' Or @DajNeispecateni ='D')
        SET @SSQLUsl = @SSQLUsl + ',''Z'' '
    Set @SSQLUsl = @SSQLUsl + ') '
    If @PoKomint = 'D'
        SET @SSQL = ' SELECT Nar.Sifra_Kup, '
    Else
        SET @SSQL = ' SELECT Null Sifra_Kup, '
    Set @SSQL = @SSQL + ' Nar.NarID, SN.Sifra_Art, Sum(SN.Kolic) Kolic, Sum(SN.Kolic_Bo) Kolic_Bo, Sum(SNR.Kolic) as RKolic, Sum(SNR.Kolic_Bo) RKolic_Bo
            FROM Naracki Nar
            Inner Join StaNarac SN On Nar.NarID=SN.NarID
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Left Outer Join StaNaracReal SNR On SNR.NarID=Nar.NarID
            Where 1=1 '
    SET @SSQL = @SSQL + @SSQLUsl + ' Group By '
    If @PoKomint = 'D'
        SET @SSQL = @SSQL + ' Nar.Sifra_Kup, '
    Set @SSQL = @SSQL + ' Nar.NarID, SN.Sifra_Art '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracki_zadatum]'))
drop procedure [dbo].[sp_naracki_zadatum]

Go
CREATE PROCEDURE sp_Naracki_ZaDatum
    @Datum_Nar    smalldatetime,
    @Sifra_Oe    smallint = Null,
    @Sifra_Nar    smallint = Null,
    @Broj_Nar_Od    int = Null,
    @Broj_Nar_Do    int = Null,
    @Lokacija    varchar(10) = Null,
    @KF_Lokacija    char(1) = 'N'
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select Distinct N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar
            From Naracki N
            Inner Join StaNarac SN On SN.NarID=N.NarID
            Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
            Where N.Datum_Nar = ''' + cast(@Datum_Nar as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and N.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' and N.Sifra_Nar = ' + cast(@Sifra_Nar as varchar(6)) + ' '
    If @Broj_Nar_Od Is Not Null
        Set @SSQL = @SSQL + ' and N.Broj_Nar >= ' + cast(@Broj_Nar_Od as varchar(10)) + ' '
    If @Broj_Nar_Do Is Not Null
        Set @SSQL = @SSQL + ' and N.Broj_Nar <= ' + cast(@Broj_Nar_Do as varchar(10)) + ' '
    If @Lokacija Is Not Null
    Begin
        If @KF_Lokacija  = 'N'
            Set @SSQL = @SSQL + ' And K.Lokacija = ''' + @Lokacija + ''' '
        Else
            Set @SSQL = @SSQL + ' And K.Lokacija <> ''' + @Lokacija + ''' '
    End
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracki_zapecatenje]'))
drop procedure [dbo].[sp_naracki_zapecatenje]

Go
CREATE    PROCEDURE sp_Naracki_ZaPecatenje
    @Datum_Od    smalldatetime = Null,
    @Sifra_Nar    varchar(500) = Null,
    @Sifra_Oe    varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',    -- V - Po Datum na vnes        D - Po Datun na naracka
    @PecIzmeneti    char(1) = 'D'
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select  N.NarID, N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar, N.Datum_Vnes, N.Datum_Izm, N.Uces,
                N.Rok, N.Sifra_Pat, N.Sifra_Oper, N.Sifra_OpIz, N.Toc200, N.KojaVal, N.Kurs, N.DanDokCena, N.DanmagCena, N.CenaIznos, N.TekstPosle,
                N.Realiziran, N.Realiz_Na, N.DokrID, N.Kasa, N.Sifra_Nivo, N.Prenesen, N.Spremil, N.SiteTros, N.Prevoz, N.Osiguruv, N.Carina,
                N.Spedicija, N.Smena, N.KojaSmetka, N.Ispecaten, N.IzmenetPoslePec, Kup.ImeKup,
                D.Sifra_Oe Sif_OeDokr, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, 1 as BrKopii
            From Naracki N
            Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
            Left Outer Join Dokr D On D.Sifra_Nar=N.Sifra_Nar and D.Broj_Nar=N.Broj_Nar And D.Sifra_OeNar=N.Sifra_Oe
            Where (N.Ispecaten Is Null Or N.Ispecaten = 0 Or N.IzmenetPoslePec=''D'' OR N.IzmenetPoslePec Is Null) '
/*    Set @SSQL = ' Select  N.NarID, N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar, N.Datum_Vnes, N.Datum_Izm, N.Uces,
                N.Rok, N.Sifra_Pat, N.Sifra_Oper, N.Sifra_OpIz, N.Toc200, N.KojaVal, N.Kurs, N.DanDokCena, N.DanmagCena, N.CenaIznos, N.TekstPosle,
                N.Realiziran, N.Realiz_Na, N.DokrID, N.Kasa, N.Sifra_Nivo, N.Prenesen, N.Spremil, N.SiteTros, N.Prevoz, N.Osiguruv, N.Carina,
                N.Spedicija, N.Smena, N.KojaSmetka, N.Ispecaten, N.IzmenetPoslePec, Kup.ImeKup
            From Naracki N
            Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
            Where (N.Ispecaten Is Null Or N.Ispecaten = 0 Or N.IzmenetPoslePec=''D'' OR N.IzmenetPoslePec Is Null) '
*/
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe In (' + @Sifra_Oe + ') '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar in (' + @Sifra_Nar + ') '
    If @Datum_Od Is Not Null
    Begin
        If @PoKojDatum = 'V'
            Set @SSQL = @SSQL + ' And N.Datum_Vnes >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
        Else
            Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    End
    If @PecIzmeneti = 'N'
        Set @SSQL = @SSQL + ' And (N.IzmenetPoslePec <> ''D'' Or N.IzmenetPoslePec Is Null) '
    Set @SSQL = @SSQL + ' Order By N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar '
    Exec(@SSQL)
/*    Set @SSQL = ' Select  N.NarID, N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar, N.Datum_Vnes, N.Datum_Izm, N.Uces,
                N.Rok, N.Sifra_Pat, N.Sifra_Oper, N.Sifra_OpIz, N.Toc200, N.KojaVal, N.Kurs, N.DanDokCena, N.DanmagCena, N.CenaIznos, N.TekstPosle,
                N.Realiziran, N.Realiz_Na, N.DokrID, N.Kasa, N.Sifra_Nivo, N.Prenesen, N.Spremil, N.SiteTros, N.Prevoz, N.Osiguruv, N.Carina,
                N.Spedicija, N.Smena, N.KojaSmetka, N.Ispecaten, N.IzmenetPoslePec, Kup.ImeKup,
                D.Sifra_Oe Sif_OeDokr, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna
            From Naracki N
            Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
            Left Outer Join Dokr D On D.Sifra_Nar=N.Sifra_Nar and D.Broj_Nar=N.Broj_Nar And D.Sifra_OeNar=N.Sifra_Oe
            Where (N.Ispecaten Is Null Or N.Ispecaten = 0 Or N.IzmenetPoslePec=''D'' OR N.IzmenetPoslePec Is Null) '
*/


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narackipopatnici]'))
drop procedure [dbo].[sp_narackipopatnici]

Go
CREATE PROCEDURE sp_NarackiPoPatnici
    @Sif_GrPat    varchar(10) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Nar    smallint
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select N.Sifra_Pat, P.ImePat, SN.Sifra_Art, K.ImeArt, Sum(SN.Kolic) Kolic
            From Naracki N
            Inner Join StaNarac SN On SN.NarID=N.NarID
            Inner Join Katart K On K.Sifra_Art=SN.Sifra_Art
            Left Outer Join Patnici P On P.Sifra_Pat=N.Sifra_Pat
            Where 1=1 '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar = ' + Cast(@Sifra_Nar as varchar(6)) + ' '
    If @Sif_GrPat Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' +  @Sif_GrPat + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By N.Sifra_Pat, P.ImePat, SN.Sifra_Art, K.ImeArt '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narackivoperiod]'))
drop procedure [dbo].[sp_narackivoperiod]

Go


CREATE  PROCEDURE  sp_NarackiVoPeriod
    @DatumOd  smalldatetime,
    @DatumDo  smalldatetime
AS
    SELECT Sifra_OE, Sifra_Nar, Broj_Nar, Prenesen
    FROM Naracki
    WHERE Datum_Nar >= @DatumOd AND Datum_Nar <= @DatumDo




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_naracsporedminmaxoptzaliha]'))
drop procedure [dbo].[sp_naracsporedminmaxoptzaliha]

Go
CREATE        PROCEDURE sp_NaracSporedMinMaxOptZaliha
    @Sifra_Oe    smallint,
--    @Koi_Artikli    char(1) = Null,
    @Tip_Podr    char(1) = Null,
    @Sifra_Od    varchar(20) = Null,
    @Sifra_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @PodNadEdn     char(2) = Null
--    @MinMaxOpt    char(3) = 'O',        -- M Min,   X Max,  O Optimalna     Artikli Cija Zaliha e pomala od M, X ili O
AS
    Set Nocount On
    Declare @SSQL varchar(8000)
       Set @SSQL='SELECT S.Sifra_OE, S.Vlez, S.Izlez,
            (S.Vlez-S.Izlez) Zaliha , S.Cena, S.DanCena,
            S.Sifra_Art, K.ImeArt, K.Edmera, T.ProcOsn, K.Sifra_Tar, K.Tezina, K.ImaKomerc, K.Nabavna, K.DogCena,
            O.MinZal, O.MaxZal, O.OptZal, O.Dozvoleno,
            (Case When (S.Vlez-S.Izlez) <= O.MinZal Then O.MaxZal Else 0 End) Nar1
        FROM Soart S
        Inner Join OptZalPoOe O On O.Sifra_Oe=S.Sifra_Oe And O.Sifra_Art=S.Sifra_Art
        INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
        INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + ' INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where S.Sifra_Art In (Select Distinct Sifra_Art From Stavr Where VlIzl = ''V'' And Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ') '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' AND (S.Sifra_Oe=' + Cast(@Sifra_Oe As Varchar(6)) + ') '
       If @Sifra_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_Art>=''' + @Sifra_Od + ''' '
       If @Sifra_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_Art<=''' + @Sifra_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + ' AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL = @SSQL + ' AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
       If @Kto IS NOT NULL
              Set @SSQL = @SSQL + ' AND (K.Kto='''+@Kto+''') '
       If @Sifra_Gr IS NOT NULL
              Set @SSQL = @SSQL + ' AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
        Set @SSQL = @SSQL + ' AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
       If @Lokacija IS NOT NULL
        Set @SSQL = @SSQL + ' AND (K.Lokacija='''+lTrim(rTrim(@Lokacija))+''') '
    If @Drugo1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @PodNadEdn = 'P'     --Pod Min Zaliha
        Set @SSQL = @SSQL + ' And O.MinZal > (Vlez-Izlez) '
    Else If @PodNadEdn = 'PN'    --Pod ili Nad Min Zaliha
        Set @SSQL = @SSQL + ' And (O.MinZal > (Vlez-Izlez) Or O.MinZal < (Vlez-Izlez)) '
    Else If @PodNadEdn = 'PE'    --Pod ili Ednakvo so Min Zaliha
        Set @SSQL = @SSQL + ' And (O.MinZal > (Vlez-Izlez) Or O.MinZal = (Vlez-Izlez)) '
    Else If @PodNadEdn = 'N'    --Nad Min Zaliha
        Set @SSQL = @SSQL + ' And O.MinZal < (Vlez-Izlez) '
    Else If @PodNadEdn = 'NE'    --Nad ili ednakvo so Min Zaliha
        Set @SSQL = @SSQL + ' And (O.MinZal < (Vlez-Izlez) Or O.MinZal = (Vlez-Izlez)) '
    Else If @PodNadEdn = 'E'    --Ednakvo so Min Zaliha
        Set @SSQL = @SSQL + ' And O.MinZal = (Vlez-Izlez)  And O.MinZal <> 0 '
       If @Tip_Podr='S'
              Set @SSQL=@SSQL+' Order By S.Sifra_Art'
       Else If @Tip_Podr='A'
              Set @SSQL=@SSQL+' Order By K.ImeArt'
    Exec(@SSQL)
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_narrealdok_zapecatenje]'))
drop procedure [dbo].[sp_narrealdok_zapecatenje]

Go


CREATE    PROCEDURE [dbo].[sp_NarRealDok_ZaPecatenje]
    @Datum    smalldatetime=null,
    @Sifra_Dok    varchar(200)=null,
    @Sifra_OE    varchar(200)=Null,
    @Pec_Dok    smallint = Null,
    @Sifra_Nar    varchar(200)=Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = 'Select N.DokrId, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Br_Kopii, D.Sifra_Nar
                 From NarRealDok N
                 Inner Join Dokr D On D.DokrID=N.DokrID
                 Where N.Realiziran=''D'' '
    If @Datum IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum as varchar(30)) + ''' '
    If @Sifra_Dok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In ( ' + @Sifra_Dok + ') '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_OE In ( ' + @Sifra_OE + ') '
    If @Sifra_Nar IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Nar In ( ' + @Sifra_Nar + ') '
    If @Pec_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Pec_Dok= ' + Cast(@Pec_Dok as varchar(6)) + ' '
    Else If @Pec_Dok Is Null
        Set @SSQL = @SSQL + ' And D.Pec_Dok Is Null '

       Create Table #Dokumenti
    (
        DokrId       int,
        Sifra_Oe     int,
        Sifra_Dok    int,
        Broj_Dok     int,
        Br_Kopii     int,
        Sifra_Nar    int
    )
        Insert Into #Dokumenti Exec(@SSQL)

    select distinct sifra_oe, sifra_dok, broj_dok from #Dokumenti








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_neazuriranirazlceni]'))
drop procedure [dbo].[sp_neazuriranirazlceni]

Go
CREATE PROCEDURE sp_NeazuriraniRazlCeni
    @Sifra_Oe    smallint,
    @KoiOe    varchar(6),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Razl     varchar(50),
    @SoDanok    char(1) = 'D'
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select R.Sifra_Oe, R.Sifra_Razl, R.Datum_Dok,
            Round(Sum(R.Kolic*(dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''' + @SoDanok + ''') -
                           dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''' + @SoDanok + '''))), 4) as Iznos
            From RazlCeni R
             Inner Join KatArt K ON R.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
            Where R.Sifra_Razl IN (' + @Sifra_Razl + ')
            And Broj_Nal Is Null '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Oe In (Select Sifra_Oe From SGrorg Where Sif_GrOrg = ''' + @KoiOe + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Group By R.Sifra_Oe, R.Sifra_Razl, R.Datum_Dok
                  Order By R.Sifra_Oe, R.Sifra_Razl, R.Datum_Dok '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_neg_vtora_poz_prva]'))
drop procedure [dbo].[sp_neg_vtora_poz_prva]

Go


CREATE    PROCEDURE sp_neg_vtora_poz_prva
    @Sifra_OE smallint,
    @Sifra_Prim smallint,
    @Sifra_Art_Od varchar (20)
AS
   SELECT SN.Sifra_art, K.Imeart, K.EdMera, K.Sifra_tar, T.ProcOsn, SN.Vlez - SN.Izlez as ZalihaNeg, SP.Vlez - SP.Izlez as ZalihaPoz, K.Dogcena, K.Malcena, K.Nabavna, SN.Cena
    FROM Soart SN
        Inner Join Soart SP on SP.sifra_oe=@Sifra_Oe and SP.sifra_art=SN.sifra_art
    Inner Join Katart K On SN.Sifra_Art=K.Sifra_Art And (K.smatusl is null or K.smatusl <> 'U')
        Inner Join Tarifi T on T.sifra_tar = K.Sifra_Tar
    WHERE SN.Sifra_Art >= @Sifra_Art_Od and SN.Sifra_OE=@Sifra_Prim and SN.vlez - SN.izlez < 0 and SP.vlez - SP.izlez > 0
        Order By SN.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_neisporacaniart]'))
drop procedure [dbo].[sp_neisporacaniart]

Go
CREATE PROCEDURE sp_NeisporacaniArt
    @Sifra_Oe        smallint,
    @Koi_Oe        char(6),
    @Lokacija        char(11),
    @KF_Lokacija        char(1) = 'N',
    @Sifra_Art_Od        varchar(20),
    @Sifra_Art_Do        varchar(20),
    @Sifra_Gr        varchar(6),
    @Sifra_Podg        char(6),
    @Datum_Nar_Od    smalldatetime,
    @Datum_Nar_Do    smalldatetime,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime
 AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.DokrId, S.NarId, S.Sifra_art, S.Kolic_Nar, S.Kolic_Real, S.Opis, D.Sifra_Oe, K.ImeArt, D.Datum_Dok, K.Aktiven, D.Sifra_Prim
            From StaNeReal S
            Left Outer Join Dokr D On S.DokrId=D.DokrId
            Left Outer Join Naracki N On S.NarId=N.NarId
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Lokacija Is Not NULL
        Begin
            If @KF_Lokacija  = 'N'
                Set @SSQL = @SSQL + 'And K.Lokacija = ''' + @Lokacija + ''' '
            Else
                Set @SSQL = @SSQL + 'And K.Lokacija <> ''' + @Lokacija + ''' '
        End
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(30)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(30)) + ''' '
    If @Datum_Nar_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_Nar_Od as varchar(30)) + ''' '
    If @Datum_Nar_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + cast(@Datum_Nar_Do as varchar(30)) + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_neisporart_podokrid]'))
drop procedure [dbo].[sp_neisporart_podokrid]

Go

CREATE  PROCEDURE sp_NeisporArt_PoDokrID
    @DokrID    int
 AS
Select S.DokrId, S.NarId, S.Sifra_art, S.Kolic_Nar, S.Kolic_Real, S.Opis, D.Sifra_Oe, K.ImeArt, D.Datum_Dok, K.Aktiven
From StaNeReal S Left Outer Join Dokr D On S.DokrId=D.DokrId
Inner Join Katart K On K.Sifra_Art = S.Sifra_Art Where S.DokrId = @DokrId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nepratenidok]'))
drop procedure [dbo].[sp_nepratenidok]

Go




CREATE    PROCEDURE sp_NePrateniDok
    @Sifra_OE smallint
 AS
    SELECT DokrID, Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna
    FROM Dokr
    WHERE (Prenesen IS NULL OR Prenesen <> 'D')
        And (Sifra_OE = @Sifra_OE OR Sifra_Prim = @Sifra_OE)
        And (ImaDodatna IS NULL OR ImaDodatna <> 'P')




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nerasknizenistavki]'))
drop procedure [dbo].[sp_nerasknizenistavki]

Go
CREATE  PROCEDURE sp_NerasknizeniStavki
    @Sifra_Oe        smallint = Null,
    @Gr_Org        char(6) = Null,
    @Datum_EvidOd    smalldatetime = Null,
    @Datum_EvidDo    smalldatetime = Null,
    @Sifra_ArtOd        varchar(20) = Null,
    @Sifra_ArtDo        varchar(20) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.Sifra_Oe, O.ImeOrg, P.Datum_Evid, S.Sifra_Art, K.ImeArt, S.RKolic, S.Kolic
            From KPromet P
            Inner Join KSPromet S On S.Sifra_Oe=P.Sifra_Oe And S.Grp_Kasa=P.Grp_Kasa And S.BrKasa=P.BrKasa And S.Broj_Ska=P.Broj_Ska
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
            Left Outer Join Orged O On O.Sifra_Oe=S.Sifra_Oe
            Where (S.Kolic<>S.RKolic Or S.RKolic Is Null) '
    If @Sifra_ArtOd Is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Art >= ''' + @Sifra_ArtOd + ''' '
    If @Sifra_ArtDo Is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Art <= ''' + @Sifra_ArtDo + ''' '
    If @Gr_Org Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Gr_Org + ''') '
    If @Sifra_Oe Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as Varchar(6)) + ' '
    If @Datum_EvidOd Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid >= ''' + Cast(@Datum_EvidOd as Varchar(30)) + ''' '
    If @Datum_EvidDo Is Not Null
        Set @SSQL=@SSQL + ' And P.Datum_Evid <= ''' + Cast(@Datum_EvidDo as Varchar(30)) + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nerealnarac]'))
drop procedure [dbo].[sp_nerealnarac]

Go
CREATE     PROCEDURE sp_NeRealNarac
    @Sifra_OE    smallint = NULL,
    @Sifra_Nar    smallint,
    @Broj_Nar_Od    int = NULL,
    @Broj_Nar_Do    int = NULL,
    @Datum_Od    SmallDateTime = NULL,
    @Datum_Do    SmallDateTime = NULL
AS
    Declare @SSQL varchar(2000)
    SET @SSQL = 'SELECT Sifra_OE, Sifra_Nar, Broj_Nar FROM Naracki WHERE (Realiziran is null or Realiziran = ''N'') and Sifra_Nar = ' + cast(@Sifra_Nar as varchar(5))
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE = ' + Cast(@Sifra_OE as varchar(4))
    IF @Broj_Nar_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND Broj_Nar >= ' + Cast(@Broj_Nar_Od as varchar(9))
    IF @Broj_Nar_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND Broj_Nar <= ' + Cast(@Broj_Nar_Do as varchar(9))
    IF @Datum_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND Datum_Nar >= ''' + Cast(@Datum_Od as varchar(35)) + ''' '
    IF @Datum_Do IS NOT NULL
        SET @SSQL = @SSQL + ' AND Datum_Nar <= ''' + Cast(@Datum_Do as varchar(35)) + ''' '
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_neuspesnaprodazba]'))
drop procedure [dbo].[sp_neuspesnaprodazba]

Go
CREATE PROCEDURE sp_NeuspesnaProdazba
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(500) = Null,
    @KPod1 Smallint = Null,
    @KPod2 Smallint = Null,
    @KPod3 Smallint = Null,
    @KPod4 Smallint = Null,
    @KPod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_Art_Od Varchar(20) = Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Kto Char(6) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @TipKup Char(11) = Null,
    @Koi_Gradovi varchar(200) = Null,
    @Koi_Regioni varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @ADrugo1    smallint = Null,
    @ADrugo2    smallint = Null,
    @ADrugo3    smallint = Null,
    @ADrugo4    smallint = Null,
    @ADrugo5    smallint = Null,
    @Sifra_Dok    varchar(500) = Null
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Declare @SSQLGr as varchar(8000)
    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    Set @SSQLGr = ' '
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Create Table #Tab
    (
    Sifra_Oe    smallint,
    Sifra_art     varchar(20),
    Sifra_Dok     smallint,
    Broj_Dok    int,
    Sifra_Kup    char(6),
    Sifra_Obj    smallint,
    Sifra_Mest    int,
    Kolic        decimal(18,6)
    )
----------------------------------------------------------- P R O D A Z B A  --------------------------------------------------------------------------------
    Set @SSQL = ' Select S.Sifra_Oe, S.Sifra_Art, S.Sifra_dok, S.Broj_dok, D.Sifra_Kup, D.Sifra_Obj, D.Sifra_Mest, Sum(S.Kolic)
            From Stavr S
            Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
            Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
            Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
             Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' and  D.Sifra_za = 1'
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
           End
    If @KPod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')) '
           End
    If @KPod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')) '
           End
    If @KPod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')) '
           End
    If @KPod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')) '
           End
    If @KPod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @ADrugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@ADrugo1 As Varchar(6)) + ' '
    If @ADrugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@ADrugo2 As Varchar(6)) + ' '
    If @ADrugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@ADrugo3 As Varchar(6)) + ' '
    If @ADrugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@ADrugo4 As Varchar(6)) + ' '
    If @ADrugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@ADrugo5 As Varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQLGr = @SSQLGr + ' And S.Sifra_Dok in (' + @Sifra_Dok + ') '
    Set @SSQLGr = @SSQLGr + ' Group By S.Sifra_Oe, S.Sifra_art, S.Sifra_Dok, S.Broj_Dok, D.Sifra_Kup, D.Sifra_Obj, D.Sifra_Mest'
    Insert Into #Tab (Sifra_Oe, Sifra_Art, Sifra_Dok, Broj_Dok, Sifra_Kup, Sifra_Obj, Sifra_Mest, Kolic) Exec (@SSQL+@SSQLUsl+@SSQLGr)
print @SSQL+@SSQLUsl+@SSQLGr
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
------  Neuspesna Prodazba
    Set @SSQLUsl= ' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And A.Sifra_OE IN (' + @KoiOE + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.DatumVreme>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.DatumVreme<=''' + Cast(@Datum_Do As Varchar(25)) + ''' '
    If @KPod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')) '
           End
    If @KPod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')) '
           End
    If @KPod3 Is Not NULL
      Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')) '
           End
    If @KPod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')) '
           End
    If @KPod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    Create Table #Rez
    (
     Sifra_Oe    smallint,
     Sifra_Kup    char(6),
     DatumVreme    datetime,
     Aktivnost    char(1),
     Sifra_Obj    smallint,
     SoBarKod    char(1)
    )
    Set @SSQL = ' Select A.Sifra_OE, A.Sifra_Kup, A.DatumVreme, A.Aktivnost, A.Sifra_Obj, A.SoBarKod
    From Akcija A
    Left Outer Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
    Left Outer Join KObjekti KO ON A.Sifra_obj=KO.Sifra_obj and A.Sifra_kup=KO.Sifra_kup
    Where A.Sifra_Obj Is Null
    And A.Sifra_Kup Not in (Select Distinct Sifra_Kup From #Tab) '
    Insert Into #Rez Exec(@SSQL+@SSQLUsl)
    Set @SSQL = ' Select A.Sifra_OE, A.Sifra_Kup, A.DatumVreme, A.Aktivnost, A.Sifra_Obj, A.SoBarKod
    From Akcija A
    Left Outer Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
    Left Outer Join KObjekti KO ON A.Sifra_obj=KO.Sifra_obj and A.Sifra_kup=KO.Sifra_kup
    Where A.Sifra_Obj Is Not Null
    And Cast(A.Sifra_Oe as Varchar(6))+''$$$''+A.Sifra_Kup+''$$$''+Cast(A.Sifra_Obj as varchar(6)) Not in (Select Distinct Cast(Sifra_Oe as Varchar(6)) +''$$$''+Sifra_Kup+''$$$''+Cast(Sifra_Obj as varchar(6)) From #Tab) '
    Insert Into #Rez Exec(@SSQL+@SSQLUsl)
    Select R.Sifra_OE, O.ImeOrg, R.Sifra_Kup, Kup.ImeKup, R.Sifra_Obj, KO.ImeObj, R.DatumVreme, R.Aktivnost, SA.ImeAkc, R.SoBarKod
    From #Rez R
    Inner Join Orged O On O.Sifra_Oe=R.Sifra_Oe
    Left Outer Join Komint Kup On Kup.Sifra_Kup=R.Sifra_Kup
    Left Outer Join KObjekti KO ON R.Sifra_obj=KO.Sifra_obj and R.Sifra_kup=KO.Sifra_kup
    Left Outer Join SifAkc SA On SA.Sifra_Akc=R.Aktivnost



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ng_dnevniplakanja]'))
drop procedure [dbo].[sp_ng_dnevniplakanja]

Go
CREATE PROCEDURE sp_NG_DnevniPlakanja
    @Sifra_Student        char(6) = Null,
    @Sifra_Famil        char(20) = Null,
    @Datum_Fra_Od    smalldatetime = Null,
    @Datum_Fra_Do    smalldatetime = Null,
    @Datum_Stavka_Od    smalldatetime = Null,
    @Datum_Stavka_Do    smalldatetime = Null,
    @Sifra_CourseType    char(10) = Null,
    @Godina        char(10) = Null,
    @Aktiven        char(1) = Null,
    @Sifra_BillCode        char(10) = Null,
    @NivoCourseType    smallint = Null,
    @Kurs            decimal(18,4) = 1
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select F.Sifra_Student, S.ImeStudent, F.Datum_Inv, FS.Datum_Stavka, F.Broj_Inv, FS.Sifra_BillCode, FS.Opis_Stavka, BC.Tip_BillCode, '
    If @Kurs > 1
        Set @SSQL = @SSQL + ' (FS.Iznos_Stavka * ' + Cast(@Kurs as varchar(20)) +  ') Iznos_Stavka '
    Else
        Set @SSQL = @SSQL + ' FS.Iznos_Stavka '
    Set @SSQL = @SSQL + ' From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Inner Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where BC.Tip_BillCode = ''P'' '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    If @Datum_Fra_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv >= ''' + Cast(@Datum_Fra_Od as varchar(30)) + ''' '
    If @Datum_Fra_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv <= ''' + Cast(@Datum_Fra_Do as varchar(30)) + ''' '
    If @Datum_Stavka_Od Is Not Null
        Set @SSQL = @SSQL + ' And FS.Datum_Stavka >= ''' + Cast(@Datum_Stavka_Od as varchar(30)) + ''' '
    If @Datum_Stavka_Do Is Not Null
        Set @SSQL = @SSQL + ' And FS.Datum_Stavka <= ''' + Cast(@Datum_Stavka_Do as varchar(30)) + ''' '
    If @Sifra_CourseType Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_CourseType = ''' + @Sifra_CourseType + ''' '
    If @Godina Is Not Null
        Set @SSQL = @SSQL + ' And S.Godina = ''' + @Godina + ''' '
    If @Aktiven Is Not Null
        Set @SSQL = @SSQL + ' And S.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_BillCode Is Not Null
        Set @SSQL = @SSQL + ' And FS.Sifra_BillCode = ''' + @Sifra_BillCode + ''' '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '
    Set @SSQL = @SSQL + ' Order By FS.Datum_Stavka, F.Broj_Inv '
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ng_pismopotsetuvanje]'))
drop procedure [dbo].[sp_ng_pismopotsetuvanje]

Go
CREATE PROCEDURE sp_NG_PismoPotsetuvanje
    @Sifra_Student        char(6) = Null,
    @Sifra_Famil        char(20) = Null,
    @Datum_Presm        smalldatetime,
    @Sifra_CourseType    char(10) = Null,
    @Godina        char(10) = Null,
    @Aktiven        char(1) = Null,
    @Sifra_BillCode        char(10) = Null,
    @NivoCourseType    smallint = Null,
    @Kurs            decimal(18,4) = 1

AS
    If @Datum_Presm Is Null
        Set @Datum_Presm = GetDate()
    Declare @SSQL as varchar(8000)

    Create Table #Rez
    (
     TotalCharges        decimal(18,4),
     FutureCharges        decimal(18,4),
     CurrentCharges        decimal(18,4),
     CurrentPayments    decimal(18,4),
     CurrentAmountDue    decimal(18,4),
     PastDue        decimal(18,4)
    )

    Set @SSQL = ' Select    Sum(Case When BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) TotalCharges,
                Sum(Case When FS.Datum_Stavka > ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) FutureCharges,
                Sum(Case When FS.Datum_Stavka <= ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) CurrentCharges,
                Sum(Case When BC.Tip_BillCode In (''P'', ''C'') Then FS.Iznos_Stavka Else 0 End) CurrentPayments,
                Sum(Case When FS.Datum_Stavka <= ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka
                        When BC.Tip_BillCode In (''P'', ''C'') Then (- 1* FS.Iznos_Stavka) Else 0 End) CurrentAmountDue,
                Sum(Case When FS.Datum_Dosp_Stavka < ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka
                        When BC.Tip_BillCode In (''P'', ''C'') Then (- 1* FS.Iznos_Stavka) Else 0 End) PastDue
            From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Left Outer Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    If @Sifra_CourseType Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_CourseType = ''' + @Sifra_CourseType + ''' '
    If @Godina Is Not Null
        Set @SSQL = @SSQL + ' And S.Godina = ''' + @Godina + ''' '
    If @Aktiven Is Not Null
        Set @SSQL = @SSQL + ' And S.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_BillCode Is Not Null
        Set @SSQL = @SSQL + ' And FS.Sifra_BillCode = ''' + @Sifra_BillCode + ''' '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '
    Insert Into #Rez Exec(@SSQL)

    If @Kurs > 1
        Update #Rez
        Set TotalCharges=TotalCharges*@Kurs, FutureCharges=FutureCharges*@Kurs, CurrentCharges=CurrentCharges*@Kurs,
              CurrentPayments=CurrentPayments*@Kurs, CurrentAmountDue=CurrentAmountDue*@Kurs, PastDue=PastDue*@Kurs

    Select TotalCharges, FutureCharges, CurrentCharges, CurrentPayments,
        (Case When CurrentAmountDue < 0 Then 0 Else CurrentAmountDue End) CurrentAmountDue,
        (Case When CurrentAmountDue < 0 Then Abs(CurrentAmountDue) Else 0 End) AdvancedPayments,
        (Case When PastDue < 0 Then 0 Else PastDue End) PastDue
    From #Rez


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ng_pregledpofakturi]'))
drop procedure [dbo].[sp_ng_pregledpofakturi]

Go



CREATE   PROCEDURE sp_NG_PregledPoFakturi
    @Sifra_Student        char(6) = Null,
    @Sifra_Famil        char(20) = Null,
    @Datum_Fra_Od    smalldatetime = Null,
    @Datum_Fra_Do    smalldatetime = Null,
    @SoAmountDue    char(1) = 'N',
    @SoPassDue        char(1) = 'N',
    @Datum_Presm        smalldatetime,
    @Sifra_CourseType    char(10) = Null,
    @Godina        char(10) = Null,
    @Aktiven        char(1) = Null,
    @Sifra_BillCode        char(10) = Null,
    @NivoCourseType    smallint = Null,
    @Grupiran        char(1) = 'N',
    @Broj_Inv_Od        int = Null,
    @Broj_Inv_Do        int = Null,
    @Kurs            decimal(18,4) = 1

AS

    If @Datum_Presm Is Null
        Set @Datum_Presm = GetDate()
    Declare @SSQL as varchar(8000)

    Create Table #Rez
    (
     Broj_Inv         int,
     Datum_Inv        smalldatetime,
     Opis_Invoice        nvarchar(40),
     DodadenOd        varchar (100),
     DodadenNa        datetime,
     Sifra_Student        char(6),
     Sifra_Famil        char(20),
     FutureCharges        decimal(18,4),
     CurrentCharges        decimal(18,4),
     CurrentPayments    decimal(18,4),
     PastDue        decimal(18,4)
    )
    Set @SSQL = ' Select F.Broj_Inv, F.Datum_Inv, F.Opis_Invoice, F.DodadenOd, F.DodadenNa, F.Sifra_Student, S.Sifra_Famil,
                Sum(Case When FS.Datum_Stavka > ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) FutureCharges,
                Sum(Case When FS.Datum_Stavka <= ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) CurrentCharges,
                Sum(Case When BC.Tip_BillCode In (''P'', ''C'') Then FS.Iznos_Stavka Else 0 End) CurrentPayments,
                Sum(Case When FS.Datum_Dosp_Stavka < ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka
                        When BC.Tip_BillCode In (''P'', ''C'') Then (- 1* FS.Iznos_Stavka) Else 0 End) PastDue
            From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Left Outer Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '

    If @Datum_Fra_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv >= ''' + Cast(@Datum_Fra_Od as varchar(30)) + ''' '
    If @Datum_Fra_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv <= ''' + Cast(@Datum_Fra_Do as varchar(30)) + ''' '

    If @Broj_Inv_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Broj_Inv_Od >= ' + Cast(@Broj_Inv_Od as varchar(10))
    If @Broj_Inv_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Broj_Inv_Do <= ' + Cast(@Broj_Inv_Do as varchar(10))

    If @Sifra_CourseType Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_CourseType = ''' + @Sifra_CourseType + ''' '
    If @Godina Is Not Null
        Set @SSQL = @SSQL + ' And S.Godina = ''' + @Godina + ''' '
    If @Aktiven Is Not Null
        Set @SSQL = @SSQL + ' And S.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_BillCode Is Not Null
        Set @SSQL = @SSQL + ' And FS.Sifra_BillCode = ''' + @Sifra_BillCode + ''' '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '

    Set @SSQL = @SSQL + ' Group By F.Broj_Inv, F.Datum_Inv, F.Opis_Invoice, F.DodadenOd, F.DodadenNa, F.Sifra_Student, S.Sifra_Famil '

    Insert Into #Rez Exec(@SSQL)

    If @Kurs > 1
        Update #Rez
        Set FutureCharges=FutureCharges*@Kurs, CurrentCharges=CurrentCharges*@Kurs, CurrentPayments=CurrentPayments*@Kurs, PastDue=PastDue*@Kurs

    If @Grupiran = 'D'
    Begin
        Create Table #NG
        (
         FutureCharges        decimal(18,4),
         CurrentCharges        decimal(18,4),
         CurrentPayments    decimal(18,4),
         CurrentAmountDue    decimal(18,4),
         AdvancedPayments    decimal(18,4),
         PastDue        decimal(18,4)
        )

        Set @SSQL = ' Select Sum(R.FutureCharges) FutureCharges, Sum(R.CurrentCharges) CurrentCharges, Sum(R.CurrentPayments) CurrentPayments,
                Sum(Case When CurrentCharges - CurrentPayments < 0 Then 0 Else CurrentCharges - CurrentPayments End) CurrentAmountDue,
                Sum(Case When CurrentCharges - CurrentPayments < 0 Then Abs(CurrentCharges - CurrentPayments) Else 0 End) AdvancedPayments,
                Sum(Case When PastDue < 0 Then 0 Else PastDue End) PastDue
                From #Rez R '
        Insert Into #NG Exec(@SSQL)

        Set @SSQL = ' Select FutureCharges, CurrentCharges, CurrentPayments, CurrentAmountDue, AdvancedPayments, PastDue
                From #NG '
    End
    Else
    Begin
        Set @SSQL = ' Select R.Broj_Inv, R.Datum_Inv, R.Opis_Invoice, R.DodadenOd, R.DodadenNa, R.Sifra_Student, S.ImeStudent, R.Sifra_Famil, FAM.ImeFamil,
                    R.FutureCharges, R.CurrentCharges, R.CurrentPayments,
                    (Case When R.CurrentCharges - R.CurrentPayments < 0 Then 0 Else R.CurrentCharges - R.CurrentPayments End) CurrentAmountDue,
                    (Case When R.CurrentCharges - R.CurrentPayments < 0 Then Abs(R.CurrentCharges - R.CurrentPayments) Else 0 End) AdvancedPayments,
                    (Case When R.PastDue < 0 Then 0 Else R.PastDue End) PastDue
                From #Rez R
                Left Outer Join NGStudents S On S.Sifra_Student = R.Sifra_Student
                Left Outer Join NGFamilija FAM On FAM.Sifra_Famil = R.Sifra_Famil
                Where 1=1 '
        If @SoAmountDue = 'D'
            Set @SSQL = @SSQL + ' And (R.CurrentCharges - R.CurrentPayments) > 0 '
        If @SoPassDue = 'D'
            Set @SSQL = @SSQL + ' And R.PastDue > 0 '
        Set @SSQL = @SSQL + ' Order By R.Datum_Inv, R.Broj_Inv '

    End
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ng_pregledpofakturi_agingreport]'))
drop procedure [dbo].[sp_ng_pregledpofakturi_agingreport]

Go
CREATE PROCEDURE sp_NG_PregledPoFakturi_AgingReport
    @Sifra_Student        char(6) = Null,
    @Sifra_Famil        char(20) = Null,
    @Datum_Fra_Od    smalldatetime = Null,
    @Datum_Fra_Do    smalldatetime = Null,
    @Datum_Presm        smalldatetime,
    @Sifra_CourseType    char(10) = Null,
    @Godina        char(10) = Null,
    @Aktiven        char(1) = Null,
    @Sifra_BillCode        char(10) = Null,
    @NivoCourseType    smallint = Null,
    @Kurs            decimal(18,4) = 1
AS
    If @Datum_Presm Is Null
        Set @Datum_Presm = GetDate()
    Declare @SSQL as varchar(8000)
    Create Table #Rez
    (
     Broj_Inv         int,
     Datum_Inv        smalldatetime,
     Datum_Dosp_Stavka    smalldatetime,
     FutureCharges        decimal(18,4),
     CurrentCharges        decimal(18,4),
     CurrentPayments    decimal(18,4),
     CurrentAmountDue    decimal(18,4),
     PastDue        decimal(18,4)
    )

    Set @SSQL = ' Select F.Broj_Inv, F.Datum_Inv, FS.Datum_Dosp_Stavka,
                Sum(Case When FS.Datum_Stavka > ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) FutureCharges,
                Sum(Case When FS.Datum_Stavka <= ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka Else 0 End) CurrentCharges,
                Sum(Case When BC.Tip_BillCode In (''P'', ''C'') Then FS.Iznos_Stavka Else 0 End) CurrentPayments,
                Sum(Case When FS.Datum_Stavka <= ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka
                        When BC.Tip_BillCode In (''P'', ''C'') Then (-1 * FS.Iznos_Stavka) Else 0 End) CurrentAmountDue,
                Sum(Case When FS.Datum_Dosp_Stavka < ''' + Cast(@Datum_Presm as varchar(30)) + ''' And BC.Tip_BillCode In (''B'',''D'',''I'') Then FS.Iznos_Stavka
                        When BC.Tip_BillCode In (''P'', ''C'') Then (- 1* FS.Iznos_Stavka) Else 0 End) PastDue
            From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Left Outer Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    If @Datum_Fra_Od Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv >= ''' + Cast(@Datum_Fra_Od as varchar(30)) + ''' '
    If @Datum_Fra_Do Is Not Null
        Set @SSQL = @SSQL + ' And F.Datum_Inv <= ''' + Cast(@Datum_Fra_Do as varchar(30)) + ''' '
    If @Sifra_CourseType Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_CourseType = ''' + @Sifra_CourseType + ''' '
    If @Godina Is Not Null
        Set @SSQL = @SSQL + ' And S.Godina = ''' + @Godina + ''' '
    If @Aktiven Is Not Null
        Set @SSQL = @SSQL + ' And S.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_BillCode Is Not Null
        Set @SSQL = @SSQL + ' And FS.Sifra_BillCode = ''' + @Sifra_BillCode + ''' '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '
    Set @SSQL = @SSQL + ' Group By F.Broj_Inv, F.Datum_Inv, FS.Datum_Dosp_Stavka '
    Insert Into #Rez Exec(@SSQL)

    If @Kurs > 1
        Update #Rez
        Set FutureCharges=FutureCharges*@Kurs, CurrentCharges=CurrentCharges*@Kurs, CurrentPayments=CurrentPayments*@Kurs, CurrentAmountDue=CurrentAmountDue*@Kurs, PastDue=PastDue*@Kurs

--    Select * from #Rez

    Create Table #NG
    (
     Broj_Inv         int,
     Datum_Inv        smalldatetime,
     FutureCharges        decimal(18,4),
     CurrentCharges        decimal(18,4),
     CurrentPayments    decimal(18,4),
     CurrentAmountDue    decimal(18,4),
     PastDue        decimal(18,4),
     PastDue_1_29        decimal(18,4),
     PastDue_30_59    decimal(18,4),
     PastDue_60_89    decimal(18,4),
     PastDue_90        decimal(18,4)
    )

    Insert Into #NG
    Select R.Broj_Inv, R.Datum_Inv,
        Sum(FutureCharges) FutureCharges,
        Sum(CurrentCharges) CurrentCharges,
        Sum(CurrentPayments) CurrentPayments,
        Sum(CurrentAmountDue) CurrentAmountDue,
        Sum(PastDue) PastDue,
        Sum(Case When R.Datum_Dosp_Stavka >= DateAdd(Day, -29, @Datum_Presm) And R.Datum_Dosp_Stavka <= @Datum_Presm Then PastDue Else 0 End) PastDue_1_29,
        Sum(Case When R.Datum_Dosp_Stavka >= DateAdd(Day, -59, @Datum_Presm) And R.Datum_Dosp_Stavka <= DateAdd(Day, -30, @Datum_Presm) Then PastDue Else 0 End) PastDue_30_59,
        Sum(Case When R.Datum_Dosp_Stavka >= DateAdd(Day, -89, @Datum_Presm) And R.Datum_Dosp_Stavka <= DateAdd(Day, -60, @Datum_Presm) Then PastDue Else 0 End) PastDue_60_89,
        Sum(Case When R.Datum_Dosp_Stavka <= DateAdd(Day, -90, @Datum_Presm) Then PastDue Else 0 End) PastDue_90
    From #Rez R
    Group By R.Broj_Inv, R.Datum_Inv

--    Select * from #NG

    Select Broj_Inv, Datum_Inv, FutureCharges, CurrentCharges, CurrentPayments,
        (Case When CurrentAmountDue < 0 Then 0 Else CurrentAmountDue End) CurrentAmountDue,
        (Case When CurrentAmountDue < 0 Then Abs(CurrentAmountDue) Else 0 End) AdvancedPayments,
        (Case When PastDue < 0 Then 0 Else PastDue End) PastDue,
        (Case When PastDue < 0 Then 0 Else PastDue_1_29 End) PastDue_1_29,
        (Case When PastDue < 0 Then 0 Else PastDue_30_59 End) PastDue_30_59,
        (Case When PastDue < 0 Then 0 Else PastDue_60_89 End) PastDue_60_89,
        (Case When PastDue < 0 Then 0 Else PastDue_90 End) PastDue_90
    From #NG


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ng_pregledpofakturnikodovi]'))
drop procedure [dbo].[sp_ng_pregledpofakturnikodovi]

Go
CREATE PROCEDURE sp_NG_PregledPoFakturniKodovi
    @Sifra_Student        char(6) = Null,
    @Sifra_Famil        char(20) = Null,
    @Datum_Fra_Od    smalldatetime = Null,
    @Datum_Fra_Do    smalldatetime = Null,
    @Datum_Stavka_Od    smalldatetime = Null,
    @Datum_Stavka_Do    smalldatetime = Null,
    @Sifra_CourseType    char(10) = Null,
    @Godina        char(10) = Null,
    @Aktiven        char(1) = Null,
    @Sifra_BillCode        char(10) = Null,
    @NivoCourseType    smallint = Null,
    @Kurs            decimal(18,4) = 1,
    @BrojNaFakturi        decimal(18,6) = Null Output,
    @BrojNaStudenti    decimal(18,6) = Null Output
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    If @Sifra_Student Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Sifra_Famil Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    If @Datum_Fra_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Datum_Inv >= ''' + Cast(@Datum_Fra_Od as varchar(30)) + ''' '
    If @Datum_Fra_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Datum_Inv <= ''' + Cast(@Datum_Fra_Do as varchar(30)) + ''' '
    If @Datum_Stavka_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And FS.Datum_Stavka >= ''' + Cast(@Datum_Stavka_Od as varchar(30)) + ''' '
    If @Datum_Stavka_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And FS.Datum_Stavka <= ''' + Cast(@Datum_Stavka_Do as varchar(30)) + ''' '
    If @Sifra_CourseType Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_CourseType = ''' + @Sifra_CourseType + ''' '
    If @Godina Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Godina = ''' + @Godina + ''' '
    If @Aktiven Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_BillCode Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And FS.Sifra_BillCode = ''' + @Sifra_BillCode + ''' '
    If @NivoCourseType Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '

    ---------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Tab
    (
     BrojNaFakturi    decimal(18,6),
     BrojNaStudenti    decimal(18,6)
    )
    Set @SSQL = ' Select Count(Distinct F.Broj_Inv) RazlFri, Count(Distinct F.Sifra_Student) RazlStudent
            From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Inner Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where BC.Tip_BillCode In (''B'',''D'',''I'') '
    Set @SSQL = @SSQL + @SSQLUsl
    Insert Into #Tab Exec(@SSQL)
    Select @BrojNaFakturi=BrojNaFakturi, @BrojNaStudenti=BrojNaStudenti From #Tab
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = ' Select FS.Sifra_BillCode, BC.ImeBillCode, '
    If @Kurs > 1
        Set @SSQL = @SSQL + ' Sum(FS.Iznos_Stavka * ' + Cast(@Kurs as varchar(20)) +  ') Iznos '
    Else
        Set @SSQL = @SSQL + ' Sum(FS.Iznos_Stavka) Iznos '
    Set @SSQL = @SSQL + ' From NGInvoice F
            Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
            Inner Join NGStudents S ON S.Sifra_Student=F.Sifra_Student
            Inner Join NGBillCodes BC On BC.Sifra_BillCode=FS.Sifra_BillCode '
    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '
    Set @SSQL = @SSQL + ' Where BC.Tip_BillCode In (''B'',''D'',''I'') '

    Set @SSQL = @SSQL + @SSQLUsl

    Set @SSQL = @SSQL + ' Group By FS.Sifra_BillCode, BC.ImeBillCode '
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ngpregled_students]'))
drop procedure [dbo].[sp_ngpregled_students]

Go

CREATE  PROCEDURE sp_NGPregled_Students
    @Sifra_Student_Od chaR(6) = Null,
    @Sifra_Student_Do chaR(6) = Null,
    @Sifra_Famil chaR(20) = Null,
    @Aktiven chaR(1) = Null,
    @Sifra_Course chaR(10) = Null,
    @NivoCourseType    smallint = Null
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = ' Select S.*
            From NGStudents S '

    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' Inner Join NGCourseType CT On CT.Sifra_CourseType = S.Sifra_CourseType '

    Set @SSQL = @SSQL + ' Where 1 = 1 '

    If @Sifra_Student_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Student>=''' + @Sifra_Student_Od + ''' '

    If @Sifra_Student_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Student<=''' + @Sifra_Student_Do + ''' '

    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Famil=''' + @Sifra_Famil + ''' '

    If @Sifra_Course Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_CourseType=''' + @Sifra_Course + ''' '

    If @Aktiven = 'N'
        Set @SSQL = @SSQL + 'And S.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + 'And (S.Aktiven <> ''N'' or S.AKtiven Is Null) '

    If @NivoCourseType Is Not Null
        Set @SSQL = @SSQL + ' And CT.NivoCourseType = ''' + Cast(@NivoCourseType as varchar(10)) + ''' '

    Set @SSQL = @SSQL + ' Order By S.ImeStudent '


    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_noviart]'))
drop procedure [dbo].[sp_noviart]

Go
CREATE PROCEDURE sp_NoviArt
    @Datum    smalldatetime
AS
    SELECT Sifra_Art  FROM KatArt
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_novibrandovi]'))
drop procedure [dbo].[sp_novibrandovi]

Go

CREATE  PROCEDURE sp_NoviBrandovi
    @Datum Smalldatetime
AS
    SELECT Sifra_Drg  FROM DrgPodel
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_novikomint]'))
drop procedure [dbo].[sp_novikomint]

Go
CREATE  PROCEDURE sp_NoviKomint
    @Datum Smalldatetime
AS
    SELECT Sifra_Kup  FROM Komint
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_noviosnsred]'))
drop procedure [dbo].[sp_noviosnsred]

Go




CREATE           PROCEDURE sp_NoviOsnSred
    @Inv_BrojOd    char(10) = Null,
    @Inv_BrojDo    char(10) = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Delov_God    smallint,         -- mora
    @Sifra_Amor    char(3) = Null,
    @Datum    smalldatetime = Null,
    @Kto_Anal    varchar(10) = Null,
    @OS_SI    char(1) = 'O',              -- O - Osnovni Sredsrva    S - Siten Inventar
    @Datum_Nab_Od    smalldatetime = Null,
    @Datum_Nab_Do    smalldatetime = Null
 AS
    Declare @SSQL as Varchar(8000)
    Create Table #OS
    (
     Inv_Broj    char(10)
    )
    Set @SSQL = ' Select O.Inv_Broj
            From OsnSred O
            Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
            Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
            Where O.Inv_broj IN (SELECT Inv_Broj FROM StavOsnSred WHERE Delov_God='+
            Cast(@Delov_God as char(4))+' AND Datum_Dok<='''+cast(@Datum as varchar(35))+''' AND Tip_StaOsn IN (''P'',''D'')) '
    If @Inv_BrojOd Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    If @Sifra_Lok Is Not null
        Set @SSQL = @SSQL + ' And L.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Sifra_MakLok Is Not null
        Set @SSQL = @SSQL + ' And MAKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_MikLok Is Not null
        Set @SSQL = @SSQL + ' And MIKL.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_Amor Is Not null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @Kto_Anal IS NOT NULL
        Set @SSQL = @SSQL + ' And O.Kto_Anal = ''' + @Kto_Anal + ''' '
    If @OS_SI = 'O'
        Set @SSQL = @SSQL + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQL = @SSQL + ' And O.Tip = ''SI'' '
    If @Datum_Nab_Od Is Not null
        Set @SSQL = @SSQL + ' And O.DatNab >= ''' + Cast(@Datum_Nab_Od as varchar(30)) + ''' '
    If @Datum_Nab_Do Is Not null
        Set @SSQL = @SSQL + ' And O.DatNab <= ''' + Cast(@Datum_Nab_Do as varchar(30)) + ''' '
    Insert Into #OS Exec(@SSQL)
-- nema potreba    Delete From #OS Where Inv_Broj In (Select Inv_Broj From OsnSred Where Year(DatPrest) < @Delov_God)-- Or Year(DatPrest) > @Delov_God)
    Delete From #OS Where Inv_Broj In (Select Inv_Broj From OsnSred Where DatNab > @Datum)
-- nema sega na ekran vakva opcija    If @PrikOtpisani <> 'D'
--        Delete From #OS Where Inv_Broj In (Select Inv_Broj From OsnSred Where DatPrest <= @Datum)--Is Not Null)
    Create Table #PocSostOsnSred
    (
     Inv_Broj     char(10),
     OrigNabVr    decimal(18,2),
     Osn_Amor    decimal(18,2),
     Otpis_Pret    decimal(18,2)
    )
    Insert Into #PocSostOsnSred
    Select Inv_Broj, Orig_Nab_Vr, Osn_Amor, Otpis_Pret
    From StavOsnSred
    Where Tip_StaOsn In ('I', 'P') And Inv_Broj In (Select Inv_Broj From #OS)
    Set @SSQL = ' Select OS.Inv_Broj, O.Kto_Anal, O.Sifra_Amor, O.Sifra_MikLok,
        (Case When P.Osn_Amor Is Not Null Then P.Osn_Amor Else PS.Osn_Amor End) Osn_Amor, P.Otpis_Pret, Sum(S.Osn_Amor) Tek_Osn_Amor,
        O.Ime, O.Opis, MIKL.Ime_MikLok, MIKL.Sifra_MakLok, MAKL.Ime_MakLok, MAKL.Sifra_Lok, L.ImeLok, A.Ime Ime_AmorGrp, K.ImeAnal, S.Tip_StaOsn,
        O.BarKod, D.Sifra_Nal, D.Broj_Nal, O.DatNab, O.DatAkt, S.Datum_Dok, PS.OrigNabVr, O.DatPrest, O.Resen,
                O.ImeStr, A.Ime4, K.SimeAnal, D.Opis OpisD, O.Sifra_Rab, R.ImeRab
    From #OS OS
    Inner Join OsnSred O On O.Inv_Broj=OS.Inv_Broj
    Left Outer Join PocSostOsn P On P.Inv_Broj=O.Inv_Broj And P.Godina=' + cast(@Delov_God as varchar(4)) + '
    Left Outer Join #PocSostOsnSred PS On PS.Inv_Broj=O.Inv_Broj
    Left Outer Join StavOsnSred  S On S.Inv_Broj=O.Inv_Broj And S.Tip_StaOsn In (''D'', ''P'') and S.Delov_God= ' + Cast(@Delov_God as varchar(4)) + '
    Left Outer Join DokOsnSred D On D.DokOID=S.DokOID
    Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
    Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
    Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
    Left Outer Join AmorGrp A On A.Sifra_Amor=O.Sifra_Amor
    Left Outer Join Anal K On K.Kto_Anal=O.Kto_Anal
    left outer Join Rabotnik R on O.Sifra_Rab=R.Sifra_Rab
    Group By OS.Inv_Broj, O.Kto_Anal, O.Sifra_Amor, O.Sifra_MikLok, (Case When P.Osn_Amor Is Not Null Then P.Osn_Amor Else PS.Osn_Amor End), P.Otpis_Pret,
        O.Ime, O.Opis, MIKL.Ime_MikLok, MIKL.Sifra_MakLok, MAKL.Ime_MakLok, MAKL.Sifra_Lok, L.ImeLok, A.Ime, K.ImeAnal, S.Tip_StaOsn, O.BarKod,
        D.Sifra_Nal, D.Broj_Nal, S.Datum_Dok, O.DatNab, O.DatAkt, PS.OrigNabVr, O.DatPrest, O.Resen, O.ImeStr, A.Ime4, K.SimeAnal, D.Opis, O.Sifra_Rab, R.ImeRab  '
    Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_novipodgrupi]'))
drop procedure [dbo].[sp_novipodgrupi]

Go

CREATE  PROCEDURE sp_NoviPodgrupi
    @Datum Smalldatetime
AS
    SELECT Sifra_Podg, Sifra_Gr  FROM Podgrupi
    WHERE DodadenNa >= @Datum  or IzmenetNa >= @Datum




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_nulaprod]'))
drop procedure [dbo].[sp_nulaprod]

Go

CREATE         PROCEDURE sp_NulaProd
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_OE     varchar(300) = NULL,
    @KF_OE        char(1)  = 'N',
    @Sifra_Podg   varchar(300) = NULL,
    @KF_Podg      char(1) = 'N',
    @Sifra_Gr     varchar(300) = NULL,
    @KF_Gr        char(1) = 'N',
    @Kto          varchar(300) = NULL,
    @KF_Kto       char(1) = 'N',
    @KtoOdArt          varchar(300) = NULL,
    @KF_KtoOdArt       char(1) = 'N',
    @Sifra_Brand  varchar(300) = NULL,
    @KF_Brand     char(1) = 'N',
    @Lokacija     varchar(10) = NULL,
    @KF_Lokacija  char(1) = 'N',
    @SoDanok      Char(1) = 'D',    -- Ovoj parametar vazi samo koga @Nabavna = D ili N
    @KojaCena    char(1) = 'D',    -- D-Nabavna,  M-MalCena,  G-GotCena,  S-SpeCena,  C-DogCena,   N-MagCena,   O - Bez Cena
    @IskluciKup   varchar(200) = '660660, 660663, 021000',
    @OrgEdZaNabCeni smallint = 100,
    @TipDokPriem    smallint = 1,
    @TipDokProd     varchar(200) = '100,101,60',
    @PredDenaZaZal smallint = 10,
    @DatumNabOd    smalldatetime = Null,
    @DatumNabDo    smalldatetime = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @KPod1    smallint = Null,
    @KPod2    smallint = Null,
    @KPod3    smallint = Null,
    @KPod4    smallint = Null,
    @KPod5    smallint = Null,
    @KPod6    smallint = Null,
    @KPod7    smallint = Null,
    @Sifra_Pat    int = Null,
    @KomercKako    char(1) = 'I',
    @DajPodelArt    char(1) = 'N'
AS
    Declare @SSQL   Varchar(4000)
    Declare @SSQLKup   Varchar(4000)
    Set @SSQLKup = ' '
    Declare @DatDo_Zal smalldatetime
    SET @DatDo_Zal = DATEADD(DAY, @PredDenaZaZal * -1, @Datum_Do)
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @KPod1 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo1 = ' + Cast(@KPod1 as varchar(6)) + ' '
    If @KPod2 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo2 = ' + Cast(@KPod2 as varchar(6)) + ' '
    If @KPod3 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo3 = ' + Cast(@KPod3 as varchar(6)) + ' '
    If @KPod4 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo4 = ' + Cast(@KPod4 as varchar(6)) + ' '
    If @KPod5 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo5 = ' + Cast(@KPod5 as varchar(6)) + ' '
    If @KPod6 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo6 = ' + Cast(@KPod6 as varchar(6)) + ' '
    If @KPod7 Is Not Null
        Set @SSQLKup = @SSQLKup + ' And Kup.KDrugo7 = ' + Cast(@KPod7 as varchar(6)) + ' '
    If @Sifra_Pat Is Not Null
        If @KomercKako = 'I'
            Set @SSQLKup = @SSQLKup + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            Set @SSQLKup = @SSQLKup + ' And Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------
    CREATE TABLE #TmpZal
    (    Sifra_Art Varchar(20),
        Kolic Numeric(18, 4),
        Vrednost Numeric(18,4)
    )                        --dodadeno so sum 22.03.04 dosredi eliminiraj uste 1 INSERT
    SET @SSQL = 'SELECT S.Sifra_OE, S.Sifra_Art,
                Sum(Case S.VlIzl  WHEN  ''V'' Then S.Kolic ELSE 0 End)  Vlez,
                 Sum(Case S.VlIzl  WHEN  ''I'' Then S.Kolic ELSE 0 End)  Izlez
                FROM Stavr  S '
    If @Sifra_podg is Not NULL  OR @Sifra_gr is Not NULL OR @Sifra_Brand is Not NULL or @Lokacija is Not NULL OR @Kto IS NOT NULL OR @KtoOdArt IS NOT NULL
        Set @SSQL = @SSQL + ' Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
    If @Sifra_gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join PodGrupi P ON K.Sifra_podg = P.Sifra_Podg '
    Set @SSQL = @SSQL + '  WHERE  S.Datum_Dok<=''' + Cast(@DatDo_Zal As Varchar(35)) + ''' '
    If @Sifra_OE Is Not NULL
        Begin
            If @KF_OE = 'N'
                   Set @SSQL = @SSQL + ' And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
            Else
                  Set @SSQL = @SSQL + ' And S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Kto Is Not NULL
        Begin
            If @KF_Kto = 'N'
                Set @SSQL = @SSQL + 'And S.Dobav IN (' + @Kto  + ') '
            Else
                Set @SSQL = @SSQL + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    If @KtoOdArt Is Not NULL
        Begin
            If @KF_KtoOdArt = 'N'
                Set @SSQL = @SSQL + 'And K.Kto IN (' + @KtoOdArt  + ') '
            Else
                Set @SSQL = @SSQL + 'And K.Kto NOT IN (' + @KtoOdArt  + ') '
        End
    If @Sifra_Podg Is Not NULL
         Begin
            If @KF_Podg = 'N'
                Set @SSQL = @SSQL + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
            Else
                Set @SSQL = @SSQL + 'And K.Sifra_Podg NOT IN (' + @Sifra_Podg  + ') '
        End
    If @Sifra_Gr Is Not NULL
        Begin
            If @KF_Gr = 'N'
                Set @SSQL = @SSQL + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
            Else
                Set @SSQL = @SSQL + 'And P.Sifra_Gr NOT IN (' + @Sifra_Gr  + ') '
        End
    If @Sifra_Brand Is Not NULL
        Begin
            If @KF_Brand = 'N'
                Set @SSQL = @SSQL + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
            Else
                Set @SSQL = @SSQL + 'And K.Sifra_Drg NOT IN (' + @Sifra_Brand  + ') '
        End
    If @Lokacija Is Not NULL
        Begin
            If @KF_Lokacija  = 'N'                -- Izm GK 30.01.04
                Set @SSQL = @SSQL + 'And K.Lokacija = ''' + @Lokacija + ''' '
            Else
                Set @SSQL = @SSQL + 'And K.Lokacija <> ''' + @Lokacija + ''' '
        End
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    SET @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Sifra_Art'
    CREATE TABLE #PrometArt
    ( Sifra_OE  smallint,
      Sifra_Art  varchar(20),
      Vlez Decimal (18,4),
      Izlez Decimal (18,4),
      Cena Decimal(18,4)
    )
    INSERT INTO #PrometArt (SIfra_OE, Sifra_Art, Vlez, Izlez) EXEC(@SSQL)
    -- Sega za cenata da vidime
    If @KojaCena = 'D'  -- NabCena od Soart
    Begin
        CREATE TABLE #CeniArtN
        ( Sifra_Art  varchar(20),
          Datum smalldatetime,
          DokID  int
        )
        Set @SSQL = 'SELECT S.Sifra_art, max(S.Datum_Dok) Datum, max(S.DokID) DokID
            FROM Stavr S '
        If @IskluciKup Is NOT NULL
            Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
        /*Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) +      OVA BESE KOGA NEMASE NABAVNA
            ''' AND S.Kolic > 0 AND S.VlIZl = ''V'' AND
            (S.ImaDodatna Is NULL OR S.ImaDodatna ='' '' OR S.ImaDodatna ='''') AND
            S.Sifra_OE = ' + Cast(@OrgEdZaNabCeni as varchar(4)) +
            ' AND S.Sifra_Dok = '+Cast(@TipDokPriem as varchar(3))    */
        /*If @IskluciKup Is NOT NULL Or @KPod1 Is Not Null Or @KPod2 Is Not Null Or @KPod3 Is Not Null Or @KPod4 Is Not Null Or @KPod5 Is Not Null
           Or @KPod6 Is Not Null Or @KPod7 Is Not Null Or @Sifra_Pat Is Not Null   -- dod 07.05.08
            Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID
                          Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '*/
        Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) +
            ''' AND S.Kolic > 0 AND S.Dobav IS NOT NULL '
        If @IskluciKup Is NOT NULL
            Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
        --Set @SSQL = @SSQL + @SSQLKup
        Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
        INSERT INTO #CeniArtN EXEC (@SSQL)
        UPDATE #PrometArt
        SET Cena = dbo.fn_VratiVredIzl(1, S.NabCena, 'N', S.POsn, 0, 0, @SoDanok)    --Cena = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, @SoDanok)
                 FROM #CeniArtN C, Stavr S
        WHERE #PrometArt.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID
        UPDATE #PrometArt
        SET Cena = dbo.fn_VratiCena(S.Cena, S.POsn, 'D', @SoDanok)
            FROM StariNabavniC S
        WHERE #PrometArt.Sifra_Art = S.Sifra_Art AND (#PrometArt.Cena = 0  or #PrometArt.Cena IS NULL)
    End
    Else If @KojaCena = 'C'  -- DogCena od Katart
    Begin
        UPDATE #PrometArt
        SET Cena = K.DogCena
                 FROM Katart K
        WHERE #PrometArt.Sifra_Art = K.Sifra_Art
    End
    Else If @KojaCena = 'M'  -- MalCena od Katart
    Begin
        UPDATE #PrometArt
        SET Cena = K.MalCena
                 FROM Katart K
        WHERE #PrometArt.Sifra_Art = K.Sifra_Art
    End
    Else If @KojaCena = 'S'  -- SpeCena od Katart
    Begin
        UPDATE #PrometArt
        SET Cena = K.SpeCena
                 FROM Katart K
        WHERE #PrometArt.Sifra_Art = K.Sifra_Art
    End
    Else If @KojaCena = 'G'  -- GotCena od Katart
    Begin
        UPDATE #PrometArt
        SET Cena = K.GotCena
                 FROM Katart K
        WHERE #PrometArt.Sifra_Art = K.Sifra_Art
    End
    Else If @KojaCena = 'O'  -- Bez Cena
    Begin
        UPDATE #PrometArt
        SET Cena = 0
    End
    Else   -- @KojaCena = N  -- MagCena od Stavr
    Begin
        CREATE TABLE #CeniArt
        ( Sifra_OE  smallint,
          Sifra_Art  varchar(20),
          Datum smalldatetime,
          DokID  int
        )
        Set @SSQL = 'SELECT S.Sifra_oe, S.Sifra_art, max(S.Datum_Dok) Datum, max(S.DokID) DokID
            FROM Stavr S '
        If @IskluciKup Is NOT NULL
            Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
        /*If @IskluciKup Is NOT NULL Or @KPod1 Is Not Null Or @KPod2 Is Not Null Or @KPod3 Is Not Null Or @KPod4 Is Not Null Or @KPod5 Is Not Null
           Or @KPod6 Is Not Null Or @KPod7 Is Not Null Or @Sifra_Pat Is Not Null   -- dod 07.05.08
            Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID
                          Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '*/
        Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) + ''' AND S.Kolic > 0 '
        If @IskluciKup Is NOT NULL
            Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
        --Set @SSQL = @SSQL + @SSQLKup
        Set @SSQL = @SSQL + ' GROUP BY S.Sifra_OE, S.Sifra_Art '
        INSERT INTO #CeniArt (Sifra_OE, Sifra_Art, Datum, DokID) EXEC (@SSQL)
        UPDATE #PrometArt
        SET    Cena = dbo.fn_VratiCenaZaLager(@SoDanok, S.VlIzl, S.MagCena, S.DanMagCena, S.POsn, S.DokCena, S.DanDokCena, S.POsnPren)
        FROM #CeniArt C, Stavr S
        WHERE #PrometArt.Sifra_OE = C.Sifra_OE AND #PrometArt.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID
        UPDATE #PrometArt
        SET Cena = dbo.fn_VratiVredIzl(1, S.Cena, S.DanCena, S.POsn, 0, 0, @SoDanok)
            FROM Soart S
        WHERE #PrometArt.Sifra_OE = S.Sifra_OE AND #PrometArt.Sifra_Art = S.Sifra_Art AND
              (#PrometArt.Cena = 0 or #PrometArt.Cena IS NULL)
    End
    UPDATE #PrometArt
    SET Cena = 0
    WHERE (#PrometArt.Cena = 0 or #PrometArt.Cena IS NULL)
    INSERT INTO #TmpZal
    SELECT Sifra_Art, SUM(Vlez - Izlez) as Kolic, SUM((Vlez - Izlez) * Cena) As Vrednost
    FROM #PrometArt GROUP BY Sifra_Art
    SET @SSQL = 'SELECT Z.Sifra_Art, K.ImeArt, Z.Kolic, Z.Vrednost, '
    If @DajPodelArt = 'D'
        Set @SSQL = @SSQL + ' K.Kto, Dob.ImeKup ImeDob, K.Sifra_Drg, B.Ime ImeBrend, B.Sifra_Drg1, BB.Ime_Drg1 ImeZbBrend, K.Sifra_Podg, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr '
    Else
        Set @SSQL = @SSQL + ' Null Kto, Null ImeDob, Null Sifra_Drg, Null ImeBrend, Null Sifra_Drg1, Null ImeZbBrend, Null Sifra_Podg, Null Ime_Podg, Null Sifra_Gr, Null Ime_Gr '
    Set @SSQL = @SSQL + ' FROM #TmpZal Z
        INNER JOIN KatArt K ON Z.Sifra_Art = K.Sifra_Art '
    If @DajPodelArt = 'D'
        Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON P.Sifra_Podg = K.Sifra_Podg
                      INNER JOIN Grupi G ON G.Sifra_Gr = P.Sifra_Gr
                      LEFT OUTER JOIN Komint Dob ON Dob.Sifra_Kup = K.Kto
                      LEFT OUTER JOIN DrgPodel B ON B.Sifra_Drg = K.Sifra_Drg
                      LEFT OUTER JOIN DrgPodel1 BB ON BB.Sifra_Drg1 = B.Sifra_Drg1  '
    Set @SSQL = @SSQL + ' WHERE Z.Kolic > 0
        AND Z.Sifra_Art NOT IN
        (SELECT DISTINCT S.SIFRA_ART FROM Stavr S '
    If @IskluciKup Is NOT NULL Or @KPod1 Is Not Null Or @KPod2 Is Not Null Or @KPod3 Is Not Null Or @KPod4 Is Not Null Or @KPod5 Is Not Null
       Or @KPod6 Is Not Null Or @KPod7 Is Not Null Or @Sifra_Pat Is Not Null   -- dod 07.05.08
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID
                      Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '
    Set @SSQL = @SSQL + ' Where S.VlIzl = ''I'' '
    If @TipDokProd Is Not Null
        Set @SSQL = @SSQL + ' AND S.Sifra_Dok IN (' + @TipDokProd + ') '
---    AND (ImaDodatna IS NULL OR ImaDodatna = '' '' OR ImaDodatna = '''')       OVA BESE PORANO
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
        Begin
            If @KF_OE = 'N'
                    Set @SSQL = @SSQL + ' And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
            Else
                Set @SSQL = @SSQL + ' And S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Set @SSQL = @SSQL + @SSQLKup
    SET @SSQL = @SSQL + ' GROUP BY S.Sifra_art HAVING SUM(S.Kolic) > 0)'
    If @DatumNabOd Is Not Null Or @DatumNabDo Is Not Null
    Begin
        Set @SSQL = @SSQL + ' AND Z.Sifra_Art IN
            (SELECT DISTINCT S.SIFRA_ART FROM Stavr S Where S.VlIzl = ''V'' '
        If @DatumNabOd Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@DatumNabOd As Varchar(30)) + ''' '
        If @DatumNabDo Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@DatumNabDo As Varchar(30)) + ''' '
        If @Sifra_OE Is Not NULL
            Begin
                If @KF_OE = 'N'
                        Set @SSQL = @SSQL + ' And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
                Else
                    Set @SSQL = @SSQL + ' And S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
            End
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
        SET @SSQL = @SSQL + ' GROUP BY S.Sifra_art HAVING SUM(S.Kolic) > 0)'
    End
    print (@ssql)
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_obelezipratenidokrnaracimp]'))
drop procedure [dbo].[sp_obelezipratenidokrnaracimp]

Go
CREATE     PROCEDURE sp_ObeleziPrateniDokrNaracIMP
--    @TipDok      CHAR(1), -- =N (Naracki), <> ="N" (Dokr)
    @DokrID    INT
AS

--IF @TipDok = 'N'
-- NARACKI
------------------------------------------------------------------------------------------------------------------------
--    UPDATE Naracki SET Prenesen = 'D'
--    WHERE Sifra_Oe = @Sifra_Oe AND Sifra_Nar = @Sifra_Dok AND Broj_Nar = @Broj_Dok
--ELSE
-- DOKUMENTI -------------------------------------------------------------------------------------------------
    UPDATE Dokr SET Prenesen='D'
    WHERE DokrID = @DokrID -- Sifra_Oe = @Sifra_Oe AND Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_obelezipratenidokrnaracsap]'))
drop procedure [dbo].[sp_obelezipratenidokrnaracsap]

Go

CREATE     PROCEDURE sp_ObeleziPrateniDokrNaracSAP
    @TipDok      CHAR(1), -- =N (Naracki), <> ="N" (Dokr)
    @Sifra_Oe    SMALLINT,
    @Sifra_Dok    SMALLINT,
    @Broj_Dok    INTEGER
AS

IF @TipDok = 'N'
-- NARACKI ------------------------------------------------------------------------------------------------------------------------
    UPDATE Naracki SET Prenesen = 'D'
    WHERE Sifra_Oe = @Sifra_Oe AND Sifra_Nar = @Sifra_Dok AND Broj_Nar = @Broj_Dok
ELSE
-- DOKUMENTI -------------------------------------------------------------------------------------------------
    UPDATE Dokr SET Prenesen='D'
    WHERE Sifra_Oe = @Sifra_Oe AND Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_obelezipratenidokrnaracvind]'))
drop procedure [dbo].[sp_obelezipratenidokrnaracvind]

Go


CREATE     PROCEDURE sp_ObeleziPrateniDokrNaracVind
    @TipDok      CHAR(1), -- =N (Naracki), <> ="N" (Dokr)
    @Sifra_Oe    SMALLINT,
    @Sifra_Dok    SMALLINT,
    @Broj_Dok    INTEGER
AS

IF @TipDok = 'N'
-- NARACKI ------------------------------------------------------------------------------------------------------------------------
    UPDATE Naracki SET Prenesen = 'D'
    WHERE Sifra_Oe = @Sifra_Oe AND Sifra_Nar = @Sifra_Dok AND Broj_Nar = @Broj_Dok
ELSE
-- DOKUMENTI -------------------------------------------------------------------------------------------------
    UPDATE Dokr SET Prenesen='D'
    WHERE Sifra_Oe = @Sifra_Oe AND Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_obrt_na_zaliha]'))
drop procedure [dbo].[sp_obrt_na_zaliha]

Go



CREATE                    PROCEDURE sp_Obrt_Na_Zaliha

    @Sifra_OE     Smallint,
    @KoiOE     Varchar(700),
    @Datum_Od     Smalldatetime,
    @Datum_Do     Smalldatetime,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Kto         Char(6) = Null,
    @Sifra_Gr     varChar(6) = Null,
    @Sifra_Podg     Char(6) = Null,
    @Lokacija     Varchar(10) = Null,
    @Sifra_Brand     Smallint = Null,
    @Sifra_Zbiren     Smallint = Null,
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
    @Sifra_Div    smallint = Null,
    @CenaOd    char(1) = 'S'    -- S - DokCena od Soart,      K - Nabavna od Katart
AS

    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)

    Set @SSQLUsl = ' '

    If @Sifra_Brand Is Not NULL-- And @Sifra_Zbiren Is Null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Sifra_Zbiren Is Not Null --@Sifra_Brand Is NUll And
        Set @SSQLUsl = @SSQLUsl + ' And B.Sifra_Drg1=''' + Cast(@Sifra_Zbiren As Varchar(5)) + ''' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Drugo1 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
    If @Drugo6 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo6=' + Cast(@Drugo6 As Varchar(6)) + ' '
    If @Drugo7 Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Drugo7=' + Cast(@Drugo7 As Varchar(6)) + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Div=' + Cast(@Sifra_Div As Varchar(6)) + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '

    Create Table #ZalPoc1
    (
        Sifra_Art     varchar(20),
        PocZaliha    decimal(18,6),
        VredPocZal    decimal(18,6),
        KrajZaliha    decimal(18,6),
        VredKrajZal    decimal(18,6),
        IzlezZaPeriod    decimal(18,6),
        VredIzlZaPer    decimal(18,6)
--        Nabavna    decimal(18,6)
    )

    -- Pocetna zaliha, Krajna zaliha i Izlez vo periodot
    Set @SSQL = ' Select S.Sifra_Art,
            Sum(Case When S.Datum_Dok < ''' + Cast (@Datum_Od as varchar(30)) + ''' Then (Case When S.VlIzl = ''V'' Then S.Kolic Else -1*S.Kolic End) Else 0 End) PocZaliha,
            Sum(Case When S.Datum_Dok < ''' + Cast (@Datum_Od as varchar(30)) + ''' Then (Case When S.VlIzl = ''V'' Then (S.Kolic*S.NabCena) Else (-1*S.Kolic*S.NabCena) End) Else 0 End) VredPocZal,
            Sum(Case When S.Datum_Dok <= ''' + Cast (@Datum_Do as varchar(30)) + ''' Then (Case When S.VlIzl = ''V'' Then S.Kolic Else -1*S.Kolic End) Else 0 End) KrajZaliha,
            Sum(Case When S.Datum_Dok <= ''' + Cast (@Datum_Do as varchar(30)) + ''' Then (Case When S.VlIzl = ''V'' Then (S.Kolic*S.NabCena) Else (-1*S.Kolic*S.NabCena) End) Else 0 End) VredKrajZal,
            Sum(Case When S.Datum_Dok >= ''' + Cast (@Datum_Od as varchar(30))  + ''' And S.Datum_Dok <= ''' + Cast (@Datum_Do as varchar(30)) + ''' And S.Vlizl = ''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''') Then S.Kolic Else 0 End) IzlezZaPeriod,
            Sum(Case When S.Datum_Dok >= ''' + Cast (@Datum_Od as varchar(30))  + ''' And S.Datum_Dok <= ''' + Cast (@Datum_Do as varchar(30)) + ''' And S.Vlizl = ''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''') Then S.Kolic*S.NabCena Else 0 End) VredIzlZaPer '
    Set @SSQL = @SSQL + ' From Stavr S
                  Inner Join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    If @Sifra_Zbiren Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' And K.SMatUsl = ''M'' '

    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '

    Insert Into #ZalPoc1 Exec(@SSQL)

    -- Finansiski razliki
    Set @SSQL = ' Select S.Sifra_Art,
            0 PocZaliha,
            Sum(Case When S.Datum_Dok < ''' + Cast (@Datum_Od as varchar(30)) + ''' Then (Case VlIzl When ''V'' Then Iznos_Razl When ''I'' Then (-1*Iznos_Razl) End) Else 0 End) PocVredZal,
            0 KrajZaliha,
            Sum(Case When S.Datum_Dok <= ''' + Cast (@Datum_Do as varchar(30)) + ''' Then (Case VlIzl When ''V'' Then Iznos_Razl When ''I'' Then (-1*Iznos_Razl) End) Else 0 End) KrajVredZal,
            0 IzlezZaPeriod,
            0 VredIzlezZaPer
        From RazlFin S
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    If @Sifra_Zbiren Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' And K.SMatUsl = ''M'' '

    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art '

    Insert Into #ZalPoc1 Exec(@SSQL)

    Create Table #ZalPoc
    (
        Sifra_Art     varchar(20),
        PocZaliha    decimal(18,6),
        VredPocZal    decimal(18,6),
        KrajZaliha    decimal(18,6),
        VredKrajZal    decimal(18,6),
        IzlezZaPeriod    decimal(18,6),
        VredIzlZaPer    decimal(18,6),
        Nabavna    decimal(18,6)
    )
    Insert Into #ZalPoc
    Select Sifra_Art, Sum(PocZaliha), Sum(VredPocZal), Sum(KrajZaliha),
            Sum(VredKrajZal), Sum(IzlezZaPeriod), Sum(VredIzlZaPer), 0
    From #ZalPoc1
    Group By Sifra_Art

    Update #ZalPoc Set Nabavna = VredKrajZal/KrajZaliha Where KrajZaliha <>0
    Update #ZalPoc Set Nabavna = VredPocZal/PocZaliha Where PocZaliha <>0 And Nabavna = 0

    Update #ZalPoc
    Set Nabavna = K.Nabavna/(1+T.ProcOsn/100)
    From Katart K
    Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
    Where K.Sifra_Art = #ZalPoc.Sifra_Art And (#ZalPoc.Nabavna Is Null Or #ZalPoc.Nabavna=0)

--select * from #ZalPoc

--    Update #ZalPoc Set Vrednost = Zaliha*Cena

--    Select * from #ZalPoc order by sifra_art

    -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #PrometPoDat
    (
        Sifra_Art    varchar(20),
        Datum        smalldatetime,
        PrometDat    decimal(18,6)
    )
    Set @SSQL = ' Select S.Sifra_Art, S.Datum_Dok,
            Sum(Case When S.VlIzl = ''V'' Then S.Kolic Else -1*S.Kolic End)
            From Stavr S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg '
    If @Sifra_Zbiren Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg '
    Set @SSQL = @SSQL + ' Where K.SMatUsl = ''M'' And S.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' And S.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    Set @SSQL = @SSQL + @SSQLUsl + ' Group By S.Sifra_Art, S.Datum_Dok '

    Insert Into #PrometPoDat Exec(@SSQL)

    Insert Into #PrometPoDat Select Sifra_Art, @Datum_Od - 1, PocZaliha From #ZalPoc

--select * from #PrometPoDat

    Declare @RazlDat as smalldatetime
    Set @RazlDat = @Datum_Od
--select @Datum_Od, @RazlDat, @Datum_Do

    While @RazlDat <= @Datum_Do
    Begin
        If Not Exists (Select Distinct Datum From #PrometPoDat Where Datum=@RazlDat)
        Insert Into #PrometPoDat Select Null, @RazlDat, 0

        Set @RazlDat = Dateadd(Day,1,@RazlDat)
    End


--    Select * From #PrometPoDat
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Create Table #ZalihaPoDat
    (
        Sifra_Art    varchar(20),
        Datum        smalldatetime,
        ZalihaDat    decimal(18,6)
    )

    Declare @Dat as smalldatetime

    Declare Datumi Cursor
    Fast_Forward For Select Distinct Datum From #PrometPoDat Order By Datum
    Open Datumi
    Fetch Next From Datumi Into @Dat
    While @@Fetch_Status = 0
    Begin
        Insert Into #ZalihaPoDat
        Select Sifra_Art, Datum, Sum(PrometDat)
        From #PrometPoDat
        Where Datum <= @Dat And Sifra_Art Is Not Null
        Group By Sifra_Art, Datum

        Fetch Next From Datumi Into @Dat
    End
    Close Datumi
    Deallocate Datumi

--    Select * From #ZalihaPoDat

    Create Table #ProsZal
    (
        Sifra_Art    varchar(20),
        VkZal        decimal(18,4),
        ProsZal        decimal(18,4)
    )
    Insert Into #ProsZal Select Sifra_Art, Sum(ZalihaDat), 0 From #ZalihaPoDat Group By Sifra_Art
--select * from #ProsZal

    Declare @Denovi as smallint
    Set @Denovi = DateDiff(Day, @Datum_Od, @Datum_Do) + 2
--Select @Denovi

    Update #ProsZal Set ProsZal = VkZal/@Denovi
--select *, @Denovi Denovi from #ProsZal

    Select P.Sifra_Gr, G.Ime_Gr, K.Sifra_Podg, P.Ime_Podg, PZ.Sifra_Art, K.ImeArt,
        Round(ZP.PocZaliha,4) PocZaliha, Round(ZP.VredPocZal,4) VredPocZal, Round(ZP.IzlezZaPeriod,4) IzlezZaPeriod, Round(ZP.VredIzlZaPer,4) VredIzlZaPer,
        Round(ZP.KrajZaliha,4) KrajZaliha, Round(ZP.VredKrajZal,4) VredKrajZal,
        Round(PZ.ProsZal,4) ProsZal, Round(PZ.ProsZal*ZP.Nabavna,4) VredProsZal,            --13
        (Case When (PZ.ProsZal*ZP.Nabavna) <> 0 Then Round(ZP.VredIzlZaPer/(PZ.ProsZal*ZP.Nabavna),4) Else 0 End) KoefNaObrt,
        (Case When ZP.VredIzlZaPer <> 0 And (PZ.ProsZal*ZP.Nabavna) <> 0 Then Round((DateDiff(Day, @Datum_Od, @Datum_Do)+1)/((ZP.VredIzlZaPer)/(PZ.ProsZal*ZP.Nabavna)),4) Else 0 End) DenoviNaZal,
        DateDiff(Day, @Datum_Od, @Datum_Do) + 1 DenoviPeriod,
        Round(ZP.Nabavna,4) Cena
    From #ProsZal PZ
    Left Outer Join #ZalPoc ZP On ZP.Sifra_Art = PZ.Sifra_Art
    Inner Join Katart K On K.SIfra_Art = PZ.Sifra_Art
    Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
    Inner Join Grupi G On G.Sifra_Gr = P.Sifra_Gr


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ocekuvrealizpokomint]'))
drop procedure [dbo].[sp_ocekuvrealizpokomint]

Go

CREATE  PROCEDURE sp_OcekuvRealizPoKomint
    @Sifra_Oe    smallint,
    @Sifra_KupOd    char(6),
    @Sifra_KupDo    char(6),
    @DatumOd    smalldatetime,
    @DatumDo    smalldatetime,
    @Kto        varchar(10),
    @Sifra_Za    Char(1),           -- 1 ili 2
    @Koi_Pat    varchar(300) = Null,
    @KomercKako    char(1) = 'T'     -- I - Istopiski od dokum.    T - Tekovno od komint
 AS
    Declare @SSQL as Varchar(8000)
    If @Sifra_Za=1
        Set @SSQL='Select A.Sifra_Kup, K.ImeKup, DateADD(day, A.Rok, A.Datum_Dok) Datum_Dosp, Sum(A.Dolzi) Iznos, Sum(A.Plateno_Dolzi) Plateno
            From AnFinDok A
            Inner Join Komint K On A.Sifra_Kup = K.Sifra_Kup
            Where A.Sifra_Za = 1 '
    If @Sifra_Za=2
        Set @SSQL='Select A.Sifra_Kup, K.ImeKup, DateADD(day, A.Rok, A.Datum_Dok) Datum_Dosp, Sum(A.Pobaruva) Iznos, Sum(A.Plateno_Pobar) Plateno
            From AnFinDok A
            Inner Join Komint K On A.Sifra_Kup = K.Sifra_Kup
            Where A.Sifra_Za = 2 '
    If @Sifra_Oe is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe =''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Sifra_KupOd Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup >= ' + @Sifra_KupOd  + ' '
    If @Sifra_KupDo Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup <= ' + @Sifra_KupDo  + ' '
    If @DatumOd Is Not Null
        Set @SSQL = @SSQL + ' And DateADD(day, A.Rok, A.Datum_Dok) >= ''' + cast(@DatumOd as varchar(35)) + ''' '
    If @DatumDo Is Not Null
        Set @SSQL = @SSQL + ' And DateADD(day, A.Rok, A.Datum_Dok) <= ''' + cast(@DatumDo as varchar(35)) + ''' '
    If @Kto is Not Null
        Set @SSQL = @SSQL + ' And A.Kto =''' + @Kto + ''' '
       If @KomercKako = 'I'
        If @Koi_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Pat In (' + @Koi_Pat + ') '
       If @KomercKako = 'T'
        If @Koi_Pat IS NOT NULL
            Set @SSQL = @SSQL + ' And K.Sifra_Pat In (' + @Koi_Pat + ') '
    Set @SSQL = @SSQL + ' Group By A.Sifra_Kup, K.ImeKup, DateADD(day, A.Rok, A.Datum_Dok)'
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odblokirajdokument]'))
drop procedure [dbo].[sp_odblokirajdokument]

Go
CREATE  Procedure sp_OdblokirajDokument
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    smallint
As
    Update Dokr set Blokiran=''
    Where Sifra_Oe=660 and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok --@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfibrsmetki]'))
drop procedure [dbo].[sp_odfibrsmetki]

Go
CREATE          PROCEDURE sp_OdFiBrSmetki
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @BrSmetki    int OUTPUT
AS
    Declare @SSQL     varchar(1000)
    SET @BrSmetki = 0
    CREATE TABLE #TmpIzn
(
    Iznos    int
)
    SET @SSQL = 'SELECT SUM(Br_smetki) FROM FiskProm  WHERE Datum_Dok >= ''' + Cast(@Datum_Od as varchar(35)) +
        ''' AND Datum_Dok <= ''' + Cast(@Datum_Do as varchar(35))  + ''' '
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + '  And Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
    IF @Sifra_GrOrg Is Not Null
        Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
    IF @Za_GrOrgEd Is Not Null
        Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    INSERT INTO #TmpIzn EXEC(@SSQL)
    UPDATE #TmpIzn SET Iznos = 0 WHERE Iznos IS NULL
    SELECT @BrSmetki = SUM(Iznos) FRom #TmpIzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfibrvrab]'))
drop procedure [dbo].[sp_odfibrvrab]

Go
CREATE          PROCEDURE sp_OdFiBrVrab
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @BrVrab    int OUTPUT
AS
    Declare @SSQL     varchar(1000)
    CREATE TABLE #TmpIzn
(
    Iznos    int
)
    SET @SSQL = 'SELECT SUM(Br_Vraboteni) FROM Marketi  WHERE 1=1'
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And Sifra_Mark IN (SELECT Sifra_Mark FROM OrgEd WHERE Sifra_OE= ' + Cast(@Sifra_Oe as varchar(6)) + ') '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + ' And Sifra_Mark IN (SELECT Sifra_Mark FROM OrgEd WHERE Sifra_OE= ' + Cast(@Za_OrgEd as varchar(6)) + ') '
    IF @Sifra_GrOrg Is Not Null
        SET @SSQL = @SSQL + ' And Sifra_Mark IN (SELECT Sifra_Mark FROM OrgEd WHERE Sifra_OE IN
            (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''')) '
    IF @Za_GrOrgEd Is Not Null
        SET @SSQL = @SSQL + ' And Sifra_Mark IN (SELECT Sifra_Mark FROM OrgEd WHERE Sifra_OE IN
            (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd   +  ''')) '
    INSERT INTO #TmpIzn EXEC(@SSQL)
    UPDATE #TmpIzn SET Iznos = 0 WHERE Iznos IS NULL
    SELECT @BrVrab = SUM(Iznos) FRom #TmpIzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfikonta]'))
drop procedure [dbo].[sp_odfikonta]

Go







CREATE                          PROCEDURE sp_OdFiKonta
    @FiID        int,
    @RbrFi        smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @Iznos        decimal(18,6) OUTPUT,
    @BezOrgEd    char(1) = 'N',
    @DivizijaOd    char(1) = 'G',    -- G - od GStav       D - od GstAnDiv
    @Za_Divizija smallint = NULL
AS
    Declare @SSQL     varchar(1000)
    Declare @Kto_Anal    char(10)
    Declare @Egzaktno_Kto    char(1)
    Declare @TekPocVk    char(1)
    Declare @D_P_SD_SP    char(2)
    Declare @Raspredelba    char(1)
    Declare @Znak        char(1)
    Declare @PomIzn    decimal(18,6)
    Declare @PomProc    decimal(6,2)
    Declare @Sifra_Div    smallint
    Declare @Sifra_TrosM smallint
    Declare @Sifra_Rsp smallint
    SET @Iznos = 0

    CREATE TABLE #TmpIzn
(    Iznos        decimal(18,6))

    CREATE TABLE #TmpIzn1
(    Iznos        decimal(18,6))
Declare @Izn1 decimal (18,6)

    Set Nocount On
    Declare Tabela1 Cursor Fast_Forward For
        Select Kto_Anal, Egzaktno_Kto, TekPocVk, D_P_SD_SP, Raspredelba, Znak, Sifra_Div, Sifra_TrosM, Sifra_FiRsp
        From FiKonta WHERE FiId = @FiId AND RbrFi = @RbrFi
    Open Tabela1
    Fetch Next From Tabela1 Into @Kto_Anal, @Egzaktno_Kto, @TekPocVk, @D_P_SD_SP, @Raspredelba, @Znak, @Sifra_Div, @Sifra_TrosM, @Sifra_Rsp
    While @@Fetch_Status = 0
    Begin
        DELETE FROM #TmpIzn
        --If @Sifra_Div Is Not Null And @DivizijaOd = 'D'    bese do 04.2010
        If (((@Sifra_Div Is Not Null AND @Sifra_Rsp IS NULL) OR @Za_Divizija IS NOT NULL) And @DivizijaOd = 'D') OR @Sifra_TrosM IS NOT NULL
        Begin
            SET @SSQL = 'SELECT '
            IF @D_P_SD_SP = 'D '
                SET @SSQL = @SSQL + ' Sum(GD.Dolzi) '
            Else IF @D_P_SD_SP = 'P '
                SET @SSQL = @SSQL + ' Sum(GD.Pobaruva) '
            Else IF @D_P_SD_SP = 'SD'
                SET @SSQL = @SSQL + ' Sum(GD.Dolzi - GD.Pobaruva) '
            Else
                SET @SSQL = @SSQL + ' Sum(GD.Pobaruva - GD.Dolzi) '
        End
        Else
        Begin
            SET @SSQL = 'SELECT '
            IF @D_P_SD_SP = 'D '
                SET @SSQL = @SSQL + ' Sum(G.Dolzi) '
            Else IF @D_P_SD_SP = 'P '
                SET @SSQL = @SSQL + ' Sum(G.Pobaruva) '
            Else IF @D_P_SD_SP = 'SD'
                SET @SSQL = @SSQL + ' Sum(G.Dolzi - G.Pobaruva) '
            Else
                SET @SSQL = @SSQL + ' Sum(G.Pobaruva - G.Dolzi) '
        End
        SET @SSQL = @SSQL + ' FROM Gstav G '
        If (((@Sifra_Div Is Not Null AND @Sifra_Rsp IS NULL) OR @Za_Divizija IS NOT NULL) And @DivizijaOd = 'D') OR @Sifra_TrosM IS NOT NULL
            Set @SSQL = @SSQL + ' Inner Join GstAnDiv GD On GD.GstID=G.GstID '
        Set @SSQL = @SSQL + ' WHERE G.Kto_Anal '
        IF @Egzaktno_kto = 'D'
            SET @SSQL = @SSQL + ' = ''' + @Kto_Anal + ''' '
        Else
            SET @SSQL = @SSQL + ' LIKE ''' + ltrim(rtrim(@Kto_Anal)) + '%'' '
        IF @TekPocVk = 'T'
            SET @SSQL = @SSQL + ' AND G.Datum_Nal >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND G.Datum_Nal <= ''' + Cast(@Datum_Do as varchar(35))  + ''' '
        Else IF @TekPocVk = 'P'
            SET @SSQL = @SSQL + ' AND Year(G.Datum_nal) =  ' + Cast( Year(@Datum_Od) as char(4)) + ' AND G.Sifra_Nal = 999 '
        Else
            SET @SSQL = @SSQL +  ' AND Year(G.Datum_nal) =  ' + Cast( Year(@Datum_Od) as char(4)) + ' AND G.Datum_Nal <= ''' + Cast(@Datum_Do as varchar(35))  + ''' '
        If @BezOrgEd = 'D'
            SET @SSQL = @SSQL + ' And G.Sifra_Oe Is Null '
        Else
        Begin
            IF @Sifra_Oe Is Not Null
                SET @SSQL = @SSQL + ' And G.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
            IF @Sifra_GrOrg Is Not Null
                Set @SSQL  = @SSQL + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
            IF @Raspredelba <> 'D'
            Begin
                IF @Za_GrOrgEd Is Not Null
                    Set @SSQL  = @SSQL + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
                IF @Za_OrgEd Is Not Null
                    SET @SSQL = @SSQL + '  And G.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
            End
        End
        If @Sifra_Div Is Not Null AND @Sifra_Rsp IS NULL
        Begin
            If @DivizijaOd = 'D'
                Set @SSQL = @SSQL + '  And GD.Sifra_Div = ' + Cast(@Sifra_Div as varchar(6)) + ' '
            Else
                Set @SSQL = @SSQL + '  And G.Sifra_Div = ' + Cast(@Sifra_Div as varchar(6)) + ' '
        End
        If @Za_Divizija Is Not Null AND @Sifra_Rsp IS NULL
        Begin
            If @DivizijaOd = 'D'
                Set @SSQL = @SSQL + '  And GD.Sifra_Div = ' + Cast(@Za_Divizija as varchar(6)) + ' '
            Else
                Set @SSQL = @SSQL + '  And G.Sifra_Div = ' + Cast(@Za_Divizija as varchar(6)) + ' '
        End

        IF @Sifra_Rsp IS NOT NULL AND @Za_Divizija IS NOT NULL
        Begin
            If @DivizijaOd = 'D'
            Begin
                IF @Sifra_Div IS NOT NULL
                    Set @SSQL = @SSQL + '  And (GD.Sifra_Div = ' + Cast(@Sifra_Div as varchar(6)) + ' OR GD.Sifra_Div IS NULL) '
                ELSE
                    SET @SSQL = @SSQL + '  And GD.Sifra_Div IS NULL '
            End
            ELSE
            Begin
                IF @Sifra_Div IS NOT NULL
                    Set @SSQL = @SSQL + '  And (G.Sifra_Div = ' + Cast(@Sifra_Div as varchar(6)) + ' OR G.Sifra_Div IS NULL) '
                ELSE
                    SET @SSQL = @SSQL + '  And G.Sifra_Div IS NULL '
            End
        End
        IF @Sifra_TrosM IS NOT NULL
            Set @SSQL = @SSQL + '  And GD.Sifra_TrosM = ' + Cast(@Sifra_TrosM as varchar(6)) + ' '
        INSERT INTO #TmpIzn EXEC(@SSQL)
        UPDATE #TmpIzn SET Iznos=0 WHERE Iznos IS NULL
-------
        If @Za_Divizija IS NOT NULL And @DivizijaOd = 'D' AND @Sifra_Rsp IS NOT NULL AND @Sifra_TrosM IS NULL
        Begin
            SET @SSQL = 'SELECT '
            IF @D_P_SD_SP = 'D '
                SET @SSQL = @SSQL + ' Sum(G.Dolzi) '
            Else IF @D_P_SD_SP = 'P '
                SET @SSQL = @SSQL + ' Sum(G.Pobaruva) '
            Else IF @D_P_SD_SP = 'SD'
                SET @SSQL = @SSQL + ' Sum(G.Dolzi - G.Pobaruva) '
            Else
                SET @SSQL = @SSQL + ' Sum(G.Pobaruva - G.Dolzi) '
            SET @SSQL = @SSQL + ' FROM Gstav G WHERE G.GstID NOT IN (SELECT DISTINCT GstID FROM GstAnDiv) AND G.Kto_Anal '
            IF @Egzaktno_kto = 'D'
                SET @SSQL = @SSQL + ' = ''' + @Kto_Anal + ''' '
            Else
                SET @SSQL = @SSQL + ' LIKE ''' + ltrim(rtrim(@Kto_Anal)) + '%'' '
            IF @TekPocVk = 'T'
                SET @SSQL = @SSQL + ' AND G.Datum_Nal >= ''' + Cast(@Datum_Od as varchar(35)) + ''' AND G.Datum_Nal <= ''' + Cast(@Datum_Do as varchar(35))  + ''' '
            Else IF @TekPocVk = 'P'
                SET @SSQL = @SSQL + ' AND Year(G.Datum_nal) =  ' + Cast( Year(@Datum_Od) as char(4)) + ' AND G.Sifra_Nal = 999 '
            Else
                SET @SSQL = @SSQL +  ' AND Year(G.Datum_nal) =  ' + Cast( Year(@Datum_Od) as char(4)) + ' AND G.Datum_Nal <= ''' + Cast(@Datum_Do as varchar(35))  + ''' '
            If @BezOrgEd = 'D'
                SET @SSQL = @SSQL + ' And G.Sifra_Oe Is Null '
            Else
            Begin
                IF @Sifra_Oe Is Not Null
                    SET @SSQL = @SSQL + ' And G.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
                IF @Sifra_GrOrg Is Not Null
                    Set @SSQL  = @SSQL + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
                IF @Raspredelba <> 'D'
                Begin
                    IF @Za_GrOrgEd Is Not Null
                        Set @SSQL  = @SSQL + ' And G.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
                    IF @Za_OrgEd Is Not Null
                        SET @SSQL = @SSQL + '  And G.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
                End
            End

            DELETE FROM #TmpIzn1
            INSERT INTO #TmpIzn1 EXEC(@SSQL)
--print '2'
--print (@SSQL)
            SELECT @Izn1=Iznos FROM #TmpIzn1
            IF @Izn1 IS NULL SET @Izn1=0
            UPDATE #TmpIzn SET Iznos=Iznos+@Izn1
--select * from #TmpIzn
--print 'so rasp'
        END
-------
        IF @Znak = '-'
            UPDATE #TmpIzn SET Iznos = Iznos * -1
        UPDATE #TmpIzn SET Iznos = 0 WHERE Iznos IS NULL
        IF @Raspredelba = 'D' AND @Sifra_Rsp IS NULL
        Begin
            CREATE TABLE #Tmp1
        (    Sifra_OE    smallint,
            Iznos        decimal(18,6)
        )
            SET @SSQL = 'INSERT INTO #Tmp1
            SELECT P.Sifra_OE,  Round(#TmpIzn.Iznos * P.Procent / 100, 2)
            FROM ##TmpProc P, #TmpIzn WHERE 1=1'
            If @BezOrgEd = 'D'
                SET @SSQL = @SSQL + ' And Sifra_Oe Is Null '
            Else
            Begin
                IF @Za_OrgEd Is Not Null
                    SET @SSQL = @SSQL + '  And Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
                IF @Za_GrOrgEd Is Not Null
                    Set @SSQL  = @SSQL + ' And Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
            End
            EXEC (@SSQL)
            SELECT @PomIzn = SUM(Iznos) FRom #Tmp1
            DROP TABLE #Tmp1
        End
        ELSE IF @Sifra_Rsp IS NOT NULL AND @Za_Divizija IS NOT NULL
        Begin
            Declare @Procent as decimal(6,2)
            SET @Procent=0            --ova da se ostavi, pravese golemi problemi ako nema zapis dolu, ne se nulira, mi zede 2 sati
            SELECT @Procent = Procent FROM FiRaspredelba WHERE Sifra_FiRsp=@Sifra_Rsp AND Sifra_Div=@Za_Divizija
            IF @Procent IS NULL SET @Procent=0
            SELECT @PomIzn = Round(SUM(Iznos) * @Procent/100,2)  FRom #TmpIzn
--print 'rasp ' +cast(@Sifra_Rsp as varchar(2))+' proc '+cast(@Procent as varchar(8))+' div '+cast(@Za_Divizija as varchar(3))+' izn ' +cast(@PomIzn as varchar(14))
        End
        ELSE
            SELECT @PomIzn = SUM(Iznos) FRom #TmpIzn
        SET @Iznos = @Iznos + @PomIzn
--print 'sega @iznos'
--print @Iznos
        Fetch Next From Tabela1 Into @Kto_Anal, @Egzaktno_Kto, @TekPocVk, @D_P_SD_SP, @Raspredelba, @Znak, @Sifra_Div, @Sifra_TrosM, @Sifra_Rsp
    End
    Close Tabela1
    Deallocate Tabela1
    Set Nocount Off











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfimnabavka]'))
drop procedure [dbo].[sp_odfimnabavka]

Go
CREATE          PROCEDURE sp_OdFiMNabavka
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @Nab_VredNab    char(1) = 'N',
    @Iznos        decimal(18,6) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Create Table #Tab
        (
            Nabavka    decimal(18,6)
        )
    Set @SSQL = ' Insert Into #Tab (Nabavka)
            Select Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 4) as Vr_SoRabat
            From Stavr S
            Inner Join Dokr D On D. DokrId = S.DokrId
            Inner Join Katart K On S.Sifra_Art=K.Sifra_Art
            Where S.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(30)) + '''
            And S.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Nab_VredNab = 'N'
        Set @SSQL =@SSQL + ' And D.Sifra_Za = 2 and D.VlIzl = ''V'' '
    Else
        Set @SSQL= @SSQL + ' And D.Sifra_Za In (2,3) and D.VlIzl = ''V'' '
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
    IF @Sifra_GrOrg Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
    IF @Za_GrOrgEd Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    Exec(@SSQL)
-- Ne se slozuva so nekoi proceduri od prodaza zaradi toa sto tvddo e staveno da gi isklucuva tie artikli kada K.Iskluci = 'D'
        Set @Iznos = (Select Sum(Nabavka) From #Tab)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfimprodazba]'))
drop procedure [dbo].[sp_odfimprodazba]

Go


CREATE            PROCEDURE sp_OdFiMProdazba
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @Prod_VredProd char(1),
    @Sifra        varchar(20)=NULL,
    @KojaSifra    char(2) = NULL,        --PG-PodGrupa
    @Iznos        decimal(18,2) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Create Table #Tab
        (
            Prodazba        decimal(18,2)
        )
    Set @SSQL = ' Insert Into #Tab (Prodazba)
            Select Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) as Vr_SoRabat
            From Stavr S
            Inner Join Dokr D On D. DokrId = S.DokrId '
    IF @Sifra IS NOT NULL
    Begin
        IF @KojaSifra = 'PG'
        Set @SSQL = @SSQL + ' Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
    End
    Set @SSQL = @SSQL + ' Where S.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(30)) + '''
            And S.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Prod_VredProd = 'P'
        Set @SSQL = @SSQL + ' And D.Sifra_Za = 1 and D.VlIzl = ''I'' '
    Else
        Set @SSQL = @SSQL + ' And D.Sifra_Za In (1,3) and D.VlIzl = ''I'' '
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
    IF @Sifra_GrOrg Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
    IF @Za_GrOrgEd Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    IF @Sifra IS NOT NULL
    Begin
        IF @KojaSifra='PG'
        Set @SSQL  = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra + ''' '
    End
    Exec(@SSQL)
-- Ne se slozuva so nekoi proceduri od prodaza zaradi toa sto tvddo e staveno da gi isklucuva tie artikli kada K.Iskluci = 'D'
        Set @Iznos = (Select Sum(Prodazba) From #Tab)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfimrazlcena]'))
drop procedure [dbo].[sp_odfimrazlcena]

Go

CREATE           PROCEDURE sp_OdFiMRazlCena
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @Sifra        varchar(20) = NULL,
    @KojaSifra    char(2) = NULL,         --PG-PodGrupa
    @Iznos        decimal(18,2) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Create Table #Tab
        (
            RazlCena    decimal(18,6)
        )
    Set @SSQL = ' Insert Into #Tab Select Round(sum(Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)
                                - S.Kolic*S.NabCena),2)
            From Stavr S
            Inner Join Dokr D On D.DokrId = S.DokrId '
    IF @Sifra IS NOT NULL
    Begin
        IF @KojaSifra = 'PG'
        Set @SSQL = @SSQL + ' Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art '
    End
    SET @SSQL = @SSQL + '  Where S.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(30)) + '''
            And S.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + '''
            And S.VlIzl = ''I'' and D.Sifra_Za = 1 '
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
    IF @Sifra_GrOrg Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
    IF @Za_GrOrgEd Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    IF @Sifra IS NOT NULL
    Begin
        IF @KojaSifra='PG'
        Set @SSQL  = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra + ''' '
    End
    Exec(@SSQL)
-- Ne se slozuva so nekoi proceduri od prodaza zaradi toa sto tvddo e staveno da gi isklucuva tie artikli kada K.Iskluci = 'D'
    Set @Iznos = (Select Sum(RazlCena) From #Tab)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfimzaliha]'))
drop procedure [dbo].[sp_odfimzaliha]

Go
CREATE          PROCEDURE sp_OdFiMZaliha
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint,
    @Sifra_GrOrg    char(6),
    @Za_OrgEd    smallint,
    @Za_GrOrgEd    char(6),
    @Iznos        decimal(18,6) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Create Table #Tab
        (
            Vlez    decimal(18,6),
            Izlez    decimal(18,6),
           Cena    decimal(18,6)
        )
    Set @SSQL = ' Insert Into #Tab
            Select Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic
                When ''I'' Then 0
            End),
                     Izlez = Sum(Case S.VlIzl
                When ''V'' Then 0
                When ''I'' Then Kolic
            End),
            dbo.fn_CenaDatum(S.Sifra_OE, S.Sifra_Art, ''' + Cast(@Datum_Do As Varchar(30)) + ''', ''N'')
            From Stavr S
            Inner Join Dokr D On D. DokrId = S.DokrId
            Inner Join Katart K On S.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
            Where S.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    IF @Sifra_Oe Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    IF @Za_OrgEd Is Not Null
        SET @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Za_OrgEd as varchar(6)) + ' '
    IF @Sifra_GrOrg Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Sifra_GrOrg  +  ''') '
    IF @Za_GrOrgEd Is Not Null
        Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    Set @SSQL = @SSQL + ' Group By dbo.fn_CenaDatum(S.Sifra_OE, S.Sifra_Art, ''' + Cast(@Datum_Do As Varchar(30)) + ''', ''N'') '
    Exec(@SSQL)
    Set @Iznos = (Select Sum((Vlez-Izlez)*Cena) From #Tab)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfispeckuppat]'))
drop procedure [dbo].[sp_odfispeckuppat]

Go

CREATE         PROCEDURE sp_OdFiSpecKupPat
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint=NULL,
    @Sif_GrOrg    char(6),
    @Kto_Anal    char(10),
    @BezOrgEd    char(1) = 'N',
    @Iznos        decimal(18,6) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Create Table #Tab
        (Iznos    decimal(18,4) )
    Set @SSQL = ' Insert Into #Tab Select Sum(F.Dolzi-F.Pobaruva) From AnFinDok F
                INNER JOIN Komint K ON F.Sifra_Kup=K.Sifra_Kup
                Where F.Kto=' +@Kto_anal+ ' AND F.Datum_Dok <= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    IF @Datum_Od Is Not Null
        SET @SSQL = @SSQL + ' And F.Datum_Dok >= ''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    IF @BezOrgEd='N'
        Begin
        IF @Sif_GrOrg IS NOT NULL
            SET @SSQL = @SSQL + ' AND K.Sifra_Pat IN (SELECT Sifra_Pat FROM Patnici WHERE Sif_GrOrg=''' + @Sif_GrOrg + ''') '
        End
    ELSE
        SET @SSQL = @SSQL + ' AND K.Sifra_Pat IS NULL '
    Exec(@SSQL)
    Select @Iznos=Iznos From #Tab




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfitabela]'))
drop procedure [dbo].[sp_odfitabela]

Go



CREATE                       PROCEDURE sp_OdFiTabela
    @FiID        int,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Za_OrgEd    smallint = NULL,
    @Za_GrOrgEd    char(6) = NULL,
    @Konto_Raspr    varchar(10) = NULL,
    @PoOrgEd    char(1) = NULL,            --na D koga se pusta od sp_odFiTabelaPoOrged
    @BezOrgEd    char(1) = 'N',
    @DivizijaOd    char(1) = 'G',    -- G - od GStav       D - od GstAnDiv
    @Za_Divizija    smallint = NULL
AS
    CREATE TABLE ##TmpProc
(    Sifra_OE    smallint,
    Iznos        decimal(18,2),
    Procent        decimal(18,9)
)
Declare @TocnoKtoRaspr char(1)
Declare @VkIznRaspr    decimal(18,2)            --najdi % za raspredelba
SELECT @Konto_Raspr = rtrim(ltrim(Kto_Anal_Raspr)), @TocnoKtoRaspr = Egzaktno_KtoRaspr FROM FiTabela WHERE FiId = @FiID
if @Konto_Raspr='' SET  @Konto_Raspr = null
IF @Konto_Raspr IS NOT NULL
Begin
    IF @TocnoKtoRaspr = 'N'
    Begin
        SELECT @VkIznRaspr = round(SUM(Dolzi - Pobaruva),2) FROM GStav
        WHERE Datum_Nal >= @Datum_Od AND Datum_Nal <= @Datum_Do AND Kto_Anal LIKE @Konto_Raspr + '%'
        INSERT INTO ##TmpProc (Sifra_OE, Iznos)
        SELECT Sifra_OE, round(SUM(Dolzi - Pobaruva),2) FROM GStav
        WHERE Datum_Nal >= @Datum_Od AND Datum_Nal <= @Datum_Do AND Kto_Anal LIKE @Konto_Raspr + '%'
        GROUP BY Sifra_OE
    End
    Else
    Begin
        SELECT @VkIznRaspr = Round(SUM(Dolzi - Pobaruva),2) FROM GStav
        WHERE Datum_Nal >= @Datum_Od AND Datum_Nal <= @Datum_Do AND Kto_Anal = @Konto_Raspr
        INSERT INTO ##TmpProc (Sifra_OE, Iznos)
        SELECT Sifra_OE, Round(SUM(Dolzi - Pobaruva),2) FROM GStav WHERE Datum_Nal >= @Datum_Od AND Datum_Nal <= @Datum_Do AND Kto_Anal = @Konto_Raspr
        GROUP BY Sifra_OE
    End
    IF @VkIznRaspr <> 0
    UPDATE ##TmpProc SET Procent = ROUND(Iznos * 100 / @VkIznRaspr, 9)
    UPDATE ##TmpProc SET Procent = 0 WHERE Procent IS NULL
End
    CREATE TABLE ##TmpTab
(    RbrFi    int,
    Opis    nvarchar(200),
    Sifra_OE    smallint,
    Sifra_GrOrg    char(6),
    OdKade        char(10),
    Znak        char(1),
    Sifra        varchar(20),
    Razresen    char(1),
    Iznos        decimal(18,6)
)
    INSERT INTO ##TmpTab (RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Sifra, Razresen, Iznos)
    SELECT RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Sifra, 'N', 0  FROM Fistavki
    WHERE FiID = @FiID
    Declare @RbrFi        int
    Declare @Opis        nvarchar(200)
    Declare @Sifra_OE    smallint
    Declare @Sifra_GrOrg    char(6)
    Declare @OdKade    char(10)
    Declare @Znak        char(1)
    Declare @Sifra        varchar(20)
    Declare @Iznos        decimal(18,6)
    Declare @IIznos        int
    Declare @Razresen    char(1)
    Declare @ZnakSt    smallint
    Declare @Brojac    smallint
    Declare @ImaZ        char(1)
    Declare @BrRZbir    smallint
    Declare @Procent    decimal(6,2)
    Set Nocount On
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE Ltrim(RTrim(OdKade)) = 'K'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade    , @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        exec sp_OdFiKonta @FiID, @RbrFi, @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Iznos=@Iznos OUTPUT, @BezOrgEd=@BezOrgEd, @DivizijaOd=@DivizijaOd, @Za_Divizija=@Za_Divizija
        IF @Znak = '-'
            SET @ZnakSt = -1
        ELSE
            SET @ZnakSt = 1
        UPDATE ##TmpTab SET Iznos = Round(@Iznos * @ZnakSt,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade    , @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'BRSMETKI'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        SET @IIznos = 0
        exec sp_OdFiBrSmetki @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @BrSmetki=@IIznos OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@IIznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'BRVRAB'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        SET @IIznos = 0
        exec sp_OdFiBrVrab @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @BrVrab=@IIznos OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@IIznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
------------------------------------------------ Dodadeno 21.06.2004
-- Zosto sluzi poleto razresen i dali treba za se polni vo ovie slucai ???
    Declare @Prod_VredProd char(1)
    Declare @Nab_VredNab char(1)
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'ZALIHA'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        exec sp_OdFiMZaliha @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Iznos=@Iznos OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Sifra, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) Like 'PROD%'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Sifra, @Razresen, @Iznos
    Set @Prod_VredProd = 'P'
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        IF upper(Ltrim(RTrim(@OdKade))) = 'PROD'
            exec sp_OdFiMProdazba @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Prod_VredProd, NULL, NULL, @Iznos=@Iznos  OUTPUT
        ELSE IF upper(Ltrim(RTrim(@OdKade))) = 'PRODPG'
            exec sp_OdFiMProdazba @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Prod_VredProd, @Sifra, 'PG', @Iznos=@Iznos  OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Sifra, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'VRIZLEZ'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    Set @Prod_VredProd = 'V'
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        exec sp_OdFiMProdazba @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Prod_VredProd,NULL, NULL, @Iznos=@Iznos  OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'NABAV'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    Set @Nab_VredNab = 'N'
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        exec sp_OdFiMNabavka @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Nab_VredNab, @Iznos=@Iznos  OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'VRVLEZ'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    Set @Nab_VredNab = 'V'
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        exec sp_OdFiMNabavka @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Nab_VredNab, @Iznos=@Iznos  OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Sifra, Razresen, Iznos  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) Like 'RAZLCENA%'
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Sifra, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        IF upper(Ltrim(RTrim(@OdKade))) = 'RAZLCENA'
            exec sp_OdFiMRazlCena @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, NULL, NULL, @Iznos=@Iznos OUTPUT
        ELSE IF upper(Ltrim(RTrim(@OdKade))) = 'RAZLCENAPG'
            exec sp_OdFiMRazlCena @Datum_Od, @Datum_Do, @Sifra_OE, @Sifra_GrOrg, @Za_OrgEd, @Za_GrOrgEd, @Sifra, 'PG', @Iznos=@Iznos  OUTPUT
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Sifra, @Razresen, @Iznos
    End
    Close Tabela
    Deallocate Tabela
    Declare Tabela Cursor Fast_Forward For
        Select RbrFi, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos, Sifra  From ##TmpTab WHERE upper(Ltrim(RTrim(OdKade))) = 'SPECKP'   --spec.komint.po pat.
    Open Tabela
    Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos, @Sifra
    While @@Fetch_Status = 0
    Begin
        SET @Iznos = 0
        exec sp_OdFiSpecKupPat  NULL, @Datum_Do, Null, @Za_GrOrgEd, @Sifra, @BezOrgEd, @Iznos=@Iznos OUTPUT
        IF @Znak = '-'   SET @Iznos = @Iznos * -1
        UPDATE ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  WHERE RbrFi = @RbrFi
        Fetch Next From Tabela Into @RbrFi, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos, @Sifra
    End
    Close Tabela
    Deallocate Tabela
------------------------------------------------------------------------------------
UPDATE ##TmpTab SET Razresen='D' WHERE ltrim(rtrim(OdKade)) = 'F'

UPDATE ##TmpTab SET Iznos = cast(Substring(OdKade,2, 9) as decimal(18,6)) WHERE Substring(OdKade,1,1) = 'C'
UPDATE ##TmpTab SET Razresen='D' WHERE Substring(OdKade,1,1) = 'C'

DROP TABLE ##TmpProc
    Declare TabelaP Cursor Fast_Forward For
        Select RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos  From ##TmpTab  WHERE Ltrim(RTrim(OdKade)) = 'P'  OR  Ltrim(RTrim(OdKade)) = 'S'
    Open TabelaP
    Fetch Next From TabelaP Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        Exec sp_FiPodSuma @RbrFi,  @OdKade, @Iznos = @Iznos OUTPUT
        Update ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D' Where RbrFi = @RbrFi
        Fetch Next From TabelaP Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close TabelaP
    Deallocate TabelaP
Update ##TmpTab SET Iznos = 0 WHERE Iznos IS NULL
SET @Brojac = 1
SET @ImaZ = 'D'
While @Brojac < 100 AND @ImaZ = 'D'
Begin
    Declare TabelaZ Cursor Fast_Forward For
        Select RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos From ##TmpTab  WHERE Ltrim(RTrim(OdKade)) = 'Z'  AND Razresen <> 'D'
    Open TabelaZ
    Fetch Next From TabelaZ Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        Exec sp_OdFiZbir @FiID, @RbrFi,  @Iznos = @Iznos OUTPUT, @Razresen=@Razresen OUTPUT
        IF @Razresen='D'
        Update ##TmpTab SET Iznos = Round(@Iznos,2), Razresen='D'  Where RbrFi = @RbrFi
        Fetch Next From TabelaZ Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close TabelaZ
    Deallocate TabelaZ
    SET @Brojac = @Brojac + 1
    SELECT @BrRZbir = COUNT(*) FROM ##TmpTab  WHERE Ltrim(RTrim(OdKade)) = 'Z'  AND Razresen <> 'D'
    IF @BrRZbir = 0   SET @ImaZ = 'N'
End
Declare @ProsIzn decimal(18,6)
Declare @Denovi int
--SET @Denovi = DateDiff(day, @Datum_Od, @Datum_Do) + 1    TREBALO BEZ NEDELI
declare @Dat1 smalldatetime
declare @Dat2 smalldatetime
set @Dat1= @Datum_Od
set @Dat2= @Datum_Do
set @Denovi = 0
while @Dat1<= @Dat2
Begin
    if datename(weekday,@Dat1)<>'Sunday'
        SET @Denovi = @Denovi + 1
    SET @Dat1 = DateAdd(day, 1, @Dat1)
end
If @Denovi <> 0
Begin
    Declare TabelaPros Cursor Fast_Forward For
        Select RbrFi, Opis, Sifra_OE, Sifra_GrOrg, OdKade, Znak, Razresen, Iznos From ##TmpTab  WHERE Ltrim(RTrim(OdKade)) = 'PROSEK'  AND Razresen <> 'D'
    Open TabelaPros
    Fetch Next From TabelaPros Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    While @@Fetch_Status = 0
    Begin
        SELECT @ProsIzn = Iznos FROM ##TmpTab WHERE RbrFi = @RbrFi - 1
        IF @ProsIzn IS NULL  SET @ProsIzn = 0
        SET @ProsIzn = @ProsIzn / @Denovi
        Update ##TmpTab SET Iznos = Round(@ProsIzn,2), Razresen='D'  Where RbrFi = @RbrFi
        Fetch Next From TabelaPros Into @RbrFi, @Opis, @Sifra_OE, @Sifra_GrOrg, @OdKade, @Znak, @Razresen, @Iznos
    End
    Close TabelaPros
    Deallocate TabelaPros
End
    Set Nocount Off
IF @PoOrgEd IS NULL OR @PoOrgEd <> 'D'
Begin
    SELECT * FROM ##TmpTab
    DROP TABLE ##TmpTab
End







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfitabelapogrorg]'))
drop procedure [dbo].[sp_odfitabelapogrorg]

Go
CREATE    PROCEDURE sp_OdFiTabelaPoGrOrg
    @FiID        int,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Za_GrOrgEd    varchar(200) = NULL,
    @Konto_Raspr    char(10) = NULL,
    @DivizijaOd    char(1) = 'G'    -- G - od GStav       D - od GstAnDiv
AS
    CREATE TABLE #TmpPoOrgEd
    (
     RbrFi        int,
     Opis        nvarchar(200),
     GrOrg        varchar(6),
     Sifra_OE    smallint,
     Iznos        decimal(18,6)
    )
    CREATE TABLE #PomOrg
    (
     GrOrg        varchar(10),
     Sifra_OE    smallint
    )
    Declare @Poz_Start as smallint
    Declare @Poz_Kraj as smallint
    Declare @GrOrg as varchar(6)
    Set @Poz_Start = 0
    WHILE 1=1
    Begin
        Set @Poz_Kraj = Charindex(',', @Za_GrOrgEd, @Poz_Start)
        If @Poz_Kraj = 0
            Break
        Set @GrOrg = SubString(@Za_GrOrgEd, @Poz_Start, @Poz_Kraj-@Poz_Start)
        Set @Poz_Start = @Poz_Kraj + 1
        --Insert Into #PomOrg Select Sif_GrOrg, Sifra_Oe From SGrOrg Where Sif_GrOrg=@GrOrg
        Insert Into #PomOrg VALUES (@GrOrg, NULL)
    End
    Declare @SSQL varchar(2000)
    Set @GrOrg = Null
    Declare @OrgEd smallint
    Declare Org Cursor Fast_Forward For
        Select GrOrg, Sifra_Oe From #PomOrg
    Open Org
    Fetch Next From Org Into @GrOrg, @OrgEd
    While @@Fetch_Status = 0
    Begin
        --exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, @OrgEd, NULL, @Konto_Raspr, 'D'
        --exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, NULL, @GrOrg, @Konto_Raspr, 'D'   07.04.2008 gk
        exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, NULL, @GrOrg, @Konto_Raspr, 'D', 'N', @DivizijaOd
        INSERT INTO #TmpPoOrgEd SELECT RbrFi, Opis, @GrOrg, @OrgEd, Iznos FROM ##TmpTab
        WHERE Iznos <> 0
        DROP TABLE ##TmpTab
        Fetch Next From Org Into @GrOrg, @OrgEd
    End
    Close Org
    Deallocate Org
    exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, Null, NULL, @Konto_Raspr, 'D', 'D', @DivizijaOd
    INSERT INTO #TmpPoOrgEd SELECT RbrFi, Opis, 'BezOrg', Null, Iznos FROM ##TmpTab
    WHERE Iznos <> 0
    DROP TABLE ##TmpTab
    SELECT RbrFi, Opis, GrOrg, Sum(Iznos) Iznos
    From #TmpPoOrgEd
    Group By RbrFi, Opis, GrOrg
    Order By GrOrg, RbrFi



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfitabelapoorged]'))
drop procedure [dbo].[sp_odfitabelapoorged]

Go
CREATE   PROCEDURE sp_OdFiTabelaPoOrgEd
    @FiID        int,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Za_GrOrgEd    char(6) = NULL,
    @Konto_Raspr    char(10) = NULL,
    @DivizijaOd    char(1) = 'G'    -- G - od GStav       D - od GstAnDiv
AS
    CREATE TABLE #TmpPoOrgEd
(    RbrFi        int,
    Opis        nvarchar(200),
    Sifra_OE    smallint,
    Iznos        decimal(18,6)
)
    CREATE TABLE #PomOrg
(    Sifra_OE    smallint
)
    Declare @SSQL varchar(2000)
    Declare @OrgEd smallint
    SET @SSQL = 'SELECT Sifra_OE FROM OrgEd WHERE 1=1 '
    If @Za_GrOrgEd IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE IN (Select Sifra_Oe from SGrOrg G where Sif_GrOrg = ''' + @Za_GrOrgEd  +  ''') '
    INSERT INTO #PomOrg EXEC(@SSQL)
    Declare Org Cursor Fast_Forward For
        Select * From #PomOrg
    Open Org
    Fetch Next From Org Into @OrgEd
    While @@Fetch_Status = 0
    Begin
        --exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, @OrgEd, NULL, @Konto_Raspr, 'D'      07.04.2008 gk
        exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, @OrgEd, NULL, @Konto_Raspr, 'D', 'N', @DivizijaOd
        INSERT INTO #TmpPoOrgEd SELECT RbrFi, Opis, @OrgEd, Iznos FROM ##TmpTab
        WHERE Iznos <> 0
        DROP TABLE ##TmpTab
        Fetch Next From Org Into @OrgEd
    End
    Close Org
    Deallocate Org
    SELECT * from #TmpPoOrgEd



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfitabelapoper]'))
drop procedure [dbo].[sp_odfitabelapoper]

Go
CREATE       PROCEDURE sp_OdFiTabelaPoPer
    @FiID            int,
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Za_OrgEd        int,
    @Za_GrOrgEd        char(6) = NULL,
    @Konto_Raspr        char(10) = NULL,
    @Po_Meseci        char(1) = 'N',        -- D - Po Meseci,    P - So Preh. mesec + preth. sost.
    @So_MinatPer        char(1) = 'D',
    @So_Kumul        char(1) = 'D',
    @DivizijaOd        char(1) = 'G'    -- G - od GStav       D - od GstAnDiv
AS
    CREATE TABLE #TmpPoPer
(    RbrFi        int,
    Opis        nvarchar(200),
    Mesec        varchar(20),
    Iznos        decimal(18,2)
)
    CREATE TABLE #PomPer
(    Mesec        varchar(20),
    Datum_Od    smalldatetime,
    Datum_do    smalldatetime
)
    Declare @Mesec    varchar(20)
    Declare @PomDatum    smalldatetime
    Declare @Dat1         smalldatetime
    Declare @Dat2        smalldatetime
    Declare @Kumul1        varchar(20)
    Declare @Kumul2        varchar(20)
    IF @Po_Meseci = 'D'
    Begin
        SET @PomDatum = @Datum_Od
        WHILE @PomDatum <= @Datum_Do
        Begin
            SET @Dat1 = dbo.fn_VratiDatumOd(Year(@PomDatum), Month(@PomDatum))
            INSERT INTO #PomPer
            SELECT Cast(Year(@PomDatum) as char(4))+'/'+Cast(Month(@PomDatum) as char(2)),
                    @Dat1, DateAdd(Day, -1, DateAdd(Month, 1, @Dat1))
            SET @PomDatum = DateAdd(Month, 1, @PomDatum)
        End
    End
    Else IF @Po_Meseci = 'P'   -- dod G 11.01.2007
    Begin
        SET @PomDatum = @Datum_Do
        Declare @MesTek as varchar(20)
        Declare @MesPreth as varchar(20)
        Set @MesTek = Cast(Year(@PomDatum) as char(4))+'/'+Cast(Month(@PomDatum) as char(2))
        --Tekoven mesec
        INSERT INTO #PomPer
        SELECT @MesTek, dbo.fn_VratiDatumOd(Year(@PomDatum), 1), @Datum_Do
        -- Prethoden mesec
        If Month(@PomDatum) > 1
        Begin
            Set @MesPreth=Cast(Year(@PomDatum) as char(4))+'/'+Cast((Month(@PomDatum)-1) as char(2))
            SET @Dat1 = dbo.fn_VratiDatumOd(Year(@PomDatum), (Month(@PomDatum)-1))
            INSERT INTO #PomPer
            SELECT @MesPreth, dbo.fn_VratiDatumOd(Year(@PomDatum), 1), DateAdd(Day, -1, DateAdd(Month, 1, @Dat1))
        End
        -- Od 01.01 do preth.period
        INSERT INTO #PomPer
        SELECT ' Po~etno', dbo.fn_VratiDatumOd(Year(@PomDatum)-1, 1), dateadd(day, -1, dbo.fn_VratiDatumOd(Year(@PomDatum), 1))
    End
    Else
    Begin
        INSERT INTO #PomPer
        SELECT Cast(Year(@Datum_Do) as char(4))+'/'+Cast(Month(@Datum_Do) as char(2)), @Datum_Od, @Datum_Do
        If @So_Kumul = 'D'
            SET @Kumul1='Kumul '+Cast(Year(@Datum_Do) as char(4))+'/'+Cast(Month(@Datum_Do) as char(2))
            INSERT INTO #PomPer
            SELECT @Kumul1,    dbo.fn_VratiDatumOd(Year(@Datum_Od), 1), @Datum_Do
        If @So_MinatPer = 'D'
        Begin
            INSERT INTO #PomPer SELECT Cast(Year(@Datum_Do)-1 as char(4))+'/'+Cast(Month(@Datum_Do) as char(2)),
            DateAdd(Year, -1, @Datum_Od), DateAdd(Year, -1, @Datum_Do)
            If @So_Kumul = 'D'
                SET @Kumul2='Kumul '+Cast(Year(@Datum_Do)-1 as char(4))+'/'+Cast(Month(@Datum_Do) as char(2))
                INSERT INTO #PomPer
                SELECT @Kumul2, dbo.fn_VratiDatumOd(Year(@Datum_Od)-1, 1), DateAdd(Year, -1, @Datum_Do)
        End
    End
    Declare Per Cursor Fast_Forward For
        Select * From #PomPer
    Open Per
    Fetch Next From Per Into @Mesec, @Dat1, @Dat2
    While @@Fetch_Status = 0
    Begin
        -- exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D'    07.04.2008 gk
        exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D', 'N', @DivizijaOd
        INSERT INTO #TmpPoPer SELECT RbrFi, Opis, @Mesec, Round(Iznos,2) FROM ##TmpTab
        WHERE Iznos <> 0
        DROP TABLE ##TmpTab
        Fetch Next From Per Into @Mesec, @Dat1, @Dat2
    End
    Close Per
    Deallocate Per
IF @So_Kumul='D' AND @So_MinatPer = 'D'
Begin
CREATE TABLE #TmpProc
(    RbrFi        int,
    Opis        nvarchar(200),
    Mesec        varchar(20),
    Iznos        decimal(18,2))
INSERT INTO #TmpProc (RbrFi, Opis, Mesec, Iznos)
SELECT RbrFi, Opis, 'Zgol.%', Iznos FROM #TmpPoPer WHERE Mesec=@Kumul2 AND Iznos<>0
UPDATE #TmpProc SET Iznos = Round((P.Iznos / #TmpProc.Iznos -1) *100,2)
FROM #TmpPoPer P WHERE #TmpProc.RbrFi=P.RbrFi AND P.Mesec=@Kumul1
UPDATE #TmpProc SET Iznos = -100
WHERE #TmpProc.RbrFi NOT IN (SELECT RbrFi FROM #TmpPoPer WHERE Mesec=@Kumul1)
INSERT INTO #TmpPoPer SELECT * FROM #TmpProc
End
    If @Po_Meseci = 'P'
    Begin
        -- Procenti na otstapuvanje od prethodniot period i od prethodniot mesec
        CREATE TABLE #TmpOtstap
        (
         RbrFi        int,
         Opis        nvarchar(200),
         Mesec        varchar(20),
         Iznos        decimal(18,2)
        )
        -- Otstapuvanje procentualno na tekovniot mesec od pocetnata sostojba
        INSERT INTO #TmpOtstap (RbrFi, Opis, Mesec, Iznos)
        SELECT RbrFi, Opis, 'Od Po~etno', Iznos FROM #TmpPoPer WHERE Mesec=@MesTek AND Iznos<>0
        UPDATE #TmpOtstap SET Iznos = Round((#TmpOtstap.Iznos/P.Iznos) *100,2)
        FROM #TmpPoPer P WHERE #TmpOtstap.RbrFi=P.RbrFi AND P.Mesec=' Po~etno'
        And #TmpOtstap.Mesec='Od Po~etno'
        UPDATE #TmpOtstap SET Iznos = 0
        Where RbrFi Not In (Select RbrFi From #TmpPoPer WHERE Mesec=' Po~etno')
        And #TmpOtstap.Mesec='Od Po~etno'
        -- Otstapuvanje procentualno na tekovniot mesec od prethodniot mesec
        INSERT INTO #TmpOtstap (RbrFi, Opis, Mesec, Iznos)
        SELECT RbrFi, Opis, 'Od Preth.mes', Iznos FROM #TmpPoPer WHERE Mesec=@MesTek AND Iznos<>0
        UPDATE #TmpOtstap SET Iznos = Round((#TmpOtstap.Iznos/P.Iznos) *100,2)
        FROM #TmpPoPer P WHERE #TmpOtstap.RbrFi=P.RbrFi AND P.Mesec=@MesPreth
        And #TmpOtstap.Mesec='Od Preth.mes'
        UPDATE #TmpOtstap SET Iznos = 0
        Where RbrFi Not In (Select RbrFi From #TmpPoPer WHERE Mesec=@MesPreth)
        And #TmpOtstap.Mesec='Od Preth.mes'
        INSERT INTO #TmpPoPer SELECT * FROM #TmpOtstap
    End
    -- G 14.02.2007
    --Select * from #TmpPoPer
    Select RbrFi, Opis, (Case When IsNumeric(Substring(Mesec,6,2))=1 And Substring(Mesec,5,1)='/' Then
                    (Case When Substring(Mesec,6,2) < 10 Then Substring(Mesec,1,5)+'0'+Substring(Mesec,6,2) Else Mesec End)
                Else Mesec End) Mesec, Iznos
    From #TmpPoPer



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfitabelapopertx]'))
drop procedure [dbo].[sp_odfitabelapopertx]

Go
CREATE     PROCEDURE sp_OdFiTabelaPoPerTX
    @FiID            int,
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Za_OrgEd        int,
    @Za_GrOrgEd        char(6) = NULL,
    @Konto_Raspr        char(10) = NULL,
    @DivizijaOd        char(1) = 'G'    -- G - od GStav       D - od GstAnDiv
AS
    CREATE TABLE #TmpStavki
(    RbrFi        int,
    Opis        nvarchar(200)
)
    CREATE TABLE #TmpPoPerML
(    RbrFi        int,
    IznosML    decimal(18,6)
)
    CREATE TABLE #TmpPoPerMG
(    RbrFi        int,
    IznosMG    decimal(18,6)
)
    CREATE TABLE #TmpPoPerKL
(    RbrFi        int,
    IznosKL    decimal(18,6)
)
    CREATE TABLE #TmpPoPerKG
(    RbrFi        int,
    IznosKG    decimal(18,6)
)
    CREATE TABLE #PomPer
(    Mesec        varchar(20),
    Datum_Od    smalldatetime,
    Datum_do    smalldatetime
)
    INSERT INTO #TmpStavki SELECT RbrFi, Opis FROM FiStavki WHERE FiId = @FiID
    Declare @Mesec    varchar(20)
    Declare @PomDatum    smalldatetime
    Declare @Dat1         smalldatetime
    Declare @Dat2        smalldatetime
    -- exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D'     07.04.2008 gk
    exec sp_OdFiTabela @FiID, @Datum_Od, @Datum_Do, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D', 'N', @DivizijaOd
    INSERT INTO #TmpPoPerMG SELECT RbrFi, Iznos FROM ##TmpTab WHERE Iznos <> 0
    DROP TABLE ##TmpTab
    SET @Dat1 = dbo.fn_VratiDatumOd(Year(@Datum_Od), 1)
    -- exec sp_OdFiTabela @FiID, @Dat1, @Datum_Do, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D'     07.04.2008 gk
    exec sp_OdFiTabela @FiID, @Dat1, @Datum_Do, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D', 'N', @DivizijaOd
    INSERT INTO #TmpPoPerKG SELECT RbrFi, Iznos FROM ##TmpTab WHERE Iznos <> 0
    DROP TABLE ##TmpTab
    SET @Dat1 = DateAdd(Year, -1, @Datum_Od)
    SET @Dat2 = DateAdd(Year, -1, @Datum_Do)
    --exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D'     07.04.2008 gk
    exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D', 'N', @DivizijaOd
    INSERT INTO #TmpPoPerML SELECT RbrFi, Iznos FROM ##TmpTab WHERE Iznos <> 0
    DROP TABLE ##TmpTab
    SET @Dat1 = dbo.fn_VratiDatumOd(Year(@Datum_Od)-1, 1)
    SET @Dat2 = DateAdd(Year, -1, @Datum_Do)
    -- exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D'     07.04.2008 gk
    exec sp_OdFiTabela @FiID, @Dat1, @Dat2, @Za_OrgEd, @Za_GrOrgEd, @Konto_Raspr, 'D', 'N', @DivizijaOd
    INSERT INTO #TmpPoPerKL SELECT RbrFi, Iznos FROM ##TmpTab WHERE Iznos <> 0
    DROP TABLE ##TmpTab
    SELECT S.*, ML.IznosML, MG.IznosMG,KL.IznosKL,KG.IznosKG from #TmpStavki S
    LEFT OUTER JOIN #TmpPoPerML ML ON ML.RbrFi = s.RbrFi
    LEFT OUTER JOIN #TmpPoPerMG MG ON MG.RbrFi = s.RbrFi
    LEFT OUTER JOIN #TmpPoPerKL KL ON KL.RbrFi = s.RbrFi
    LEFT OUTER JOIN #TmpPoPerKG KG ON KG.RbrFi = s.RbrFi



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odfizbir]'))
drop procedure [dbo].[sp_odfizbir]

Go

CREATE      PROCEDURE sp_OdFiZbir
    @FiID        int,
    @RbrFi        smallint,
    @Iznos        decimal(18,6) OUTPUT,
    @Razresen    char(1) OUTPUT
AS
    Declare @SSQL     varchar(1000)
    Declare @Znak        char(1)
    Declare @OdRbrFi    int
    Declare @IznOdStav    decimal(18,6)
    Declare @RazrSt    char(1)
    SET @Iznos = 0
    SET @Razresen='D'
    Declare Tabela2 Cursor Fast_Forward For
        Select  Znak  , OdRbrFi
        From FiZbir WHERE FiId = @FiId AND RbrFi = @RbrFi
    Open Tabela2
    Fetch Next From Tabela2 Into @Znak, @OdRbrFi
    While @@Fetch_Status = 0
    Begin
        Select @IznOdStav = Iznos, @RazrSt = Razresen From ##TmpTab Where RbrFi = @OdRbrFi
        IF @RazrSt = 'N'
        Begin
            SET @Razresen='N'
            SET @Iznos=0
            Close Tabela2
            Deallocate Tabela2
            RETURN
        End
        If @Znak = '+'
            Set @Iznos = @Iznos + @IznOdStav
        If @Znak = '-'
            Set @Iznos = @Iznos - @IznOdStav
        If @Znak = '/' AND @IznOdStav <> 0
            Set @Iznos = @Iznos / @IznOdStav
        If @Znak = '*'
            Set @Iznos = @Iznos * @IznOdStav
        If @Znak = '%' AND @IznOdStav <> 0             --Set @Iznos = @Iznos * 100 / @IznOdStav  25.11.09
            Set @Iznos = @Iznos * 100 / @IznOdStav
        Fetch Next From Tabela2 Into  @Znak, @OdRbrFi
    End
    Close Tabela2
    Deallocate Tabela2




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjava]'))
drop procedure [dbo].[sp_odjava]

Go


CREATE                             PROCEDURE sp_Odjava
    @Sifra_OE smallint = NULL,
    @KoiOE Varchar(6) = NULL,
    @Sifra_Art_Od varchar(20) = NULL,
    @Sifra_Art_Do varchar(20) = NULL,
--    @Datum_Nal_Od Smalldatetime = NULL,        -- nema potreba
--    @Datum_Nal_Do Smalldatetime = NULL,        -- nema potreba
    @Datum_Dok_Od Smalldatetime = NULL,
--    @Datum_Dok_Do Smalldatetime = NULL,        -- nema da treba
    @SoDDV char(1) = 'D',         -- D/N        -- predlagam sekogass da e D
    @Sifra_Kup varchar(8) = NULL,
    @Sifra_Gr varchar(300) = NULL,
    @Sifra_Podg varchar(300) = NULL,
    @Sifra_Drg    smallint = Null,
    @Lokacija varchar(10) = NULL,
    @Sifra_Brand    smallint = NULL,
    @Aktiven    char(1) = Null,            -- D - Aktivni     N - Neaktivni
--    @KontrSer    varchar(25) = Null,        -- nema potreba
--    @PrikKontrSer    char(1) = 'N',            -- nema potreba
--    @SoRazlCeni    char(1) = 'D',                -- so razliki vo ceni    -- Ne treba
    @BezPromOdPren char(1) = 'N',
    @SiteArt    char(1) = 'N',
    @SoDozvArt    char(1) = 'N',
    @TipDok    varchar(300) = Null,
    @DobavOd    char(1) = 'K',             -- K - od Katart,     S - od Stavr
    @Sifra_Drg1    smallint = Null,
--    @KojaCena    char(1) = Null,            -- da fiksirame na tekovna cena od soart        M - MagCena,   N - Nabavna od Katart,   P - Prosecna nabavna,  D - DokCena (Nabavna na vlez, Prodazna na izlez)
    @KoiArt        char(1) = Null,            -- I - artikli so izlez vo tekovniot period,      N - artikli bez prodazba vo tek.period,    P - artikli so promet vo tekovniot period
    @DozvArt    char(1) = Null,
    @Drugo1        smallint= null,
    @Drugo2        smallint= null,
    @Drugo3        smallint= null,
    @Drugo4        smallint= null,
    @Drugo5        smallint= null,
    @Drugo6        smallint= null,
    @Drugo7        smallint= null,
    @BezPromOdPopis    char(1) = 'N'      -- bez promet od popis (tip dok 991,992)

AS
    Declare @SSQL As Varchar(4000)
    Declare @SSQLUsl As Varchar(4000)
    Declare @SSQLUslArt As Varchar(4000)

    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '

    CREATE TABLE #Promet
    (
      Sifra_OE Smallint,
      Sifra_Art Varchar(20),
      TVlez Numeric(18, 4),
      TIzlez Numeric(18, 4),
      TVlezBezPren Numeric(18, 4),
      TIzlezBezPren Numeric(18, 4),
      Sostojba decimal(18,6),
      Cena    decimal(18,6)
    )
    Create NonClustered Index IX_OeArt On #Promet (Sifra_Oe, Sifra_Art)

    Create Table #Art
    (
        Sifra_Art varchar(20)
    )
    Create NonClustered Index IX_Art On #Art (Sifra_Art)

    Set Nocount On

------------------------------------------------------------------------------------------------- U S L O V -------------------------------------------------------------------------------------------------------------
    If @Sifra_OE Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @TipDok Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok In (' + @TipDok + ') '
    If @Sifra_Kup Is NOT NULL
        If @DobavOd = 'S'
            SET @SSQLUslArt = @SSQLUslArt + ' ' --AND K.Sifra_Art In (Select Distinct S.Sifra_Art From Dokr D Inner Join Stavr S On S.DokrID = D.DokrID
                                                --Where D.VlIzl=''V'' And D.Sifra_Za = ''2'' And D.Sifra_Kup = ''' + @Sifra_Kup + ''') '
        Else
            SET @SSQLUslArt = @SSQLUslArt + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND G.Sifra_Gr In ('+@Sifra_Gr+') '
    If @Sifra_Podg IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Podg In ('+@Sifra_Podg+') '
    If @Sifra_Brand Is NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Drg = '  + Cast(@Sifra_Brand as varchar(6)) + ' '
    If @Lokacija IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    If @Sifra_Drg1 Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND B.Sifra_Drg1=' + Cast(@Sifra_Drg1 As Varchar(10)) + ' '
    If @Aktiven = 'D'
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    Else If @Aktiven = 'N'
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Aktiven = ''N'') '
    If @DozvArt = 'D' And @Sifra_Oe Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND (OZ.Dozvoleno <> ''N'' Or OZ.Dozvoleno Is Null) '
    Else If @DozvArt = 'N' And @Sifra_Oe Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND (OZ.Dozvoleno = ''N'') '
--16.09.2010
       If @Drugo1 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
--
    -----------------------------------------------------------------------------------------------
    If @DobavOd = 'S' And @Sifra_Kup Is Not Null
    Begin
        Set @SSQL = ' Select Distinct Sifra_Art From Stavr S Inner Join Dokr D On D.DokrID=S.DokrID
                        Where D.VlIzl=''V'' And D.Sifra_Za = ''2'' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        print @SSQL
        Insert Into #Art Exec(@SSQL)
    End

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Tekoven Promet
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    SET @SSQL = 'SELECT S.Sifra_OE, S.Sifra_Art,
                Vlez = Sum(Case S.VlIzl When ''V'' Then S.Kolic Else 0 End),
                Izlez = Sum(Case S.VlIzl When ''I'' Then S.Kolic Else 0 End), '
    If @BezPromOdPren = 'D' And (@BezPromOdPopis Is Null Or @BezPromOdPopis <> 'D')
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case S.VlIzl When ''V'' Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End),
                      IzlezBezPren = Sum(Case S.VlIzl When ''I'' Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End), '
    Else If @BezPromOdPren = 'D' And @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case When S.VlIzl=''V'' And S.Sifra_Dok Not In (991,992) Then (Case When S.ImaDodatna = ''P'' Then 0 Else S.Kolic End) Else 0 End),
                      IzlezBezPren = Sum(Case When S.VlIzl=''I'' And S.Sifra_Dok Not In (991,992) Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End), '
    Else If (@BezPromOdPren Is Null Or @BezPromOdPren<>'D') And @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case When S.VlIzl=''V'' And S.Sifra_Dok Not In (991,992) Then S.Kolic Else 0 End),
                      IzlezBezPren = Sum(Case When S.VlIzl=''I'' And S.Sifra_Dok Not In (991,992) Then S.Kolic Else 0 End), '
    Else
        Set @SSQL = @SSQL + ' 0 as TVlezBezPren, 0 as TIzlezBezPren, '
    Set @SSQL = @SSQL + ' 0 as Sostojba, 0 as  Cena
                  FROM Stavr S
                  INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art AND K.SMatUsl=''M'' '
    If @DobavOd = 'S' And @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #Art A On A.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr IS NOT NULL
                 Set @SSQL=@SSQL+' INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                           INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Drg1 Is Not Null
                 Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
    If @DozvArt In ('D','N') And @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = S.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' Where 1=1 '

    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '

--    If @Datum_Dok_Do Is NOT Null
 --        SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
--print @SSQL+@SSQLUsl

    Set @SSQL = @SSQL+@SSQLUsl+@SSQLUslArt

    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Art '
print @SSQL
    INSERT #Promet EXEC(@SSQL)

    ----------------- Artiklite koi imaat prethoden promet, a nemaat promet vo periodot
    Set @SSQL = ' SELECT Distinct S.Sifra_Oe, S.Sifra_Art, 0, 0, 0, 0, 0, 0
            FROM Stavr S
            INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art AND K.SMatUsl=''M'' '
    If @DobavOd = 'S' And @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #Art A On A.Sifra_Art=S.Sifra_Art '
    If @Sifra_Gr IS NOT NULL
                 Set @SSQL=@SSQL+' INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                           INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Drg1 Is Not Null
                 Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
    If @DozvArt In ('D','N') And @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = S.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' Where Cast(S.Sifra_Oe as char(3)) + S.Sifra_Art Not In (Select Cast(Sifra_Oe as char(3)) + Sifra_Art From #Promet) '

    Set @SSQL = @SSQL+@SSQLUsl+@SSQLUslArt

    INSERT #Promet EXEC(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Update #Promet
    Set Cena = (Case When S.DanCena = 'D' Then S.Cena Else S.Cena*(1+S.POsn/100) End),
          Sostojba  = (S.Vlez-S.Izlez)
    From Soart S
    Where S.Sifra_Oe = #Promet.Sifra_Oe And S.Sifra_Art = #Promet.Sifra_Art


    Set @SSQL =  ' SELECT P.Sifra_OE, O.ImeOrg, P.Sifra_Art,
            K.ImeArt, K.EdMera, K.Sifra_Tar, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr,
            K.Tezina, K.ImaKomerc, K.ImaBroevi, K.BTezina, K.Kto, Dob.ImeKup ImeDobav, K.Nabavna,
            (P.Sostojba - (P.TVlez - P.TIzlez)) PrethSost,
            ((P.Sostojba - (P.TVlez - P.TIzlez)) * P.Cena) PrethVredn,
            P.Sostojba TekSost,
            (P.Sostojba * P.Cena) TekVredn, '
    If @BezPromOdPren = 'D' Or @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' P.TVlezBezPren TVlez, (P.TVlezBezPren*P.Cena) TekVrVlez,
                      P.TIzlezBezPren TIzlez, (P.TIzlezBezPren*P.Cena) TekVrIzlez '
    Else
        Set @SSQL = @SSQL + ' P.TVlez, (P.TVlez*P.Cena) TekVrVlez,
                      P.TIzlez, (P.TIzlez*P.Cena) TekVrIzlez '
    If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
        Set @SSQL = @SSQL + ', OZ.Dozvoleno '
    Else
        Set @SSQL = @SSQL + ', Null as Dozvoleno '
    Set @SSQL = @SSQL + ' FROM #Promet P
                Inner Join Orged O On O.Sifra_Oe=P.Sifra_Oe
                Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
                Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
                Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
                Left Outer Join Komint Dob On Dob.Sifra_Kup=K.Kto '
    If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = P.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @KoiArt = 'P'
        Set @SSQL = @SSQL + ' And (P.TVlez > 0 Or P.TIzlez > 0) '
    Else If @KoiArt = 'I'
        Set @SSQL = @SSQL + ' And P.TIzlez > 0  '
    Else If @KoiArt = 'N'
        Set @SSQL = @SSQL + ' And P.TIzlez <= 0 '

    If @SiteArt = 'D' And @KoiArt Is Null
    Begin
        Set @SSQL = @SSQL + ' Union
                Select Null as Sifra_Oe, Null ImeOrg, K.Sifra_Art, K.ImeArt, K.EdMera, K.Sifra_Tar,
                    K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, K.Tezina, K.ImaKomerc, K.ImaBroevi, K.BTezina, K.Kto,
                    Dob.ImeKup ImeDobav, K.Nabavna,
                    0, 0, 0, 0, 0, 0, 0, 0 '
        If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
            Set @SSQL = @SSQL + ', OZ.Dozvoleno '
        Else
            Set @SSQL = @SSQL + ', Null as Dozvoleno '
        Set @SSQL = @SSQL + ' From Katart K
                    Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
                    Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
                    Left Outer Join Komint Dob On Dob.Sifra_Kup=K.Kto '
        If @DobavOd = 'S' And @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' Inner Join #Art A On A.Sifra_Art=K.Sifra_Art '
        If @Sifra_Drg1 Is Not Null
                     Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
        If (@SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null) Or (@DozvArt In ('D','N') And @Sifra_Oe Is Not Null And @KoiOe Is Null)
            Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = K.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Where K.Sifra_Art Not In (Select Distinct Sifra_Art From #Promet) '

        Set @SSQL = @SSQL + @SSQLUslArt
    End
    -------------------------------------------
    Set @SSQL = @SSQL + 'Order By P.Sifra_Art, P.Sifra_OE '
    print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjava_view]'))
drop procedure [dbo].[sp_odjava_view]

Go

CREATE                            PROCEDURE sp_Odjava_View
    @Sifra_OE smallint = NULL,
    @KoiOE Varchar(6) = NULL,
    @Sifra_Art_Od varchar(20) = NULL,
    @Sifra_Art_Do varchar(20) = NULL,
--    @Datum_Nal_Od Smalldatetime = NULL,        -- nema potreba
--    @Datum_Nal_Do Smalldatetime = NULL,        -- nema potreba
    @Datum_Dok_Od Smalldatetime = NULL,
--    @Datum_Dok_Do Smalldatetime = NULL,        -- nema da treba
    @SoDDV char(1) = 'D',         -- D/N        -- predlagam sekogass da e D
    @Sifra_Kup varchar(8) = NULL,
    @Sifra_Gr varchar(300) = NULL,
    @Sifra_Podg varchar(300) = NULL,
    @Sifra_Drg    smallint = Null,
    @Lokacija varchar(10) = NULL,
    @Sifra_Brand    smallint = NULL,
    @Aktiven    char(1) = Null,            -- D - Aktivni     N - Neaktivni
--    @KontrSer    varchar(25) = Null,        -- nema potreba
--    @PrikKontrSer    char(1) = 'N',            -- nema potreba
--    @SoRazlCeni    char(1) = 'D',                -- so razliki vo ceni    -- Ne treba
    @BezPromOdPren char(1) = 'N',
    @SiteArt    char(1) = 'N',
    @SoDozvArt    char(1) = 'N',
    @TipDok    varchar(300) = Null,
    @DobavOd    char(1) = 'K',             -- K - od Katart,     S - od Stavr
    @Sifra_Drg1    smallint = Null,
--    @KojaCena    char(1) = Null,            -- da fiksirame na tekovna cena od soart        M - MagCena,   N - Nabavna od Katart,   P - Prosecna nabavna,  D - DokCena (Nabavna na vlez, Prodazna na izlez)
    @KoiArt        char(1) = Null,            -- I - artikli so izlez vo tekovniot period,      N - artikli bez prodazba vo tek.period,    P - artikli so promet vo tekovniot period
    @Drugo1        smallint= null,
    @Drugo2        smallint= null,
    @Drugo3        smallint= null,
    @Drugo4        smallint= null,
    @Drugo5        smallint= null,
    @Drugo6        smallint= null,
    @Drugo7        smallint= null,
    @BezPromOdPopis    char(1) = 'N',      -- bez promet od popis (tip dok 991,992)
    @DozvArt    char(1) = Null


AS
    Declare @SSQL As Varchar(4000)
    Declare @SSQLUsl As Varchar(4000)
    Declare @SSQLUslArt As Varchar(4000)

    Set @SSQL = ' '
    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '

    CREATE TABLE #Promet
    (
      Sifra_OE Smallint,
      Sifra_Art Varchar(20),
      TVlez Numeric(18, 4),
      TIzlez Numeric(18, 4),
      TVlezBezPren Numeric(18, 4),
      TIzlezBezPren Numeric(18, 4),
      Sostojba decimal(18,6),
      Cena    decimal(18,6)
    )

    Set Nocount On

------------------------------------------------------------------------------------------------- U S L O V -------------------------------------------------------------------------------------------------------------
    If @Sifra_OE Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @KoiOE Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @KoiOE + ''') '
    If @TipDok Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok In (' + @TipDok + ') '
    If @Sifra_Kup Is NOT NULL
        If @DobavOd = 'S'
            SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Art In (Select Distinct S.Sifra_Art From Dokr D Inner Join Stavr S On S.DokrID = D.DokrID
                                    Where D.VlIzl=''V'' And D.Sifra_Za = ''2'' And D.Sifra_Kup = ''' + @Sifra_Kup + ''') '
        Else
            SET @SSQLUslArt = @SSQLUslArt + ' AND K.Kto = '''  + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Art>=''' + Cast(@Sifra_Art_Od As Varchar(35)) + ''' '
    If @Sifra_Art_Do Is NOT Null
         SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Art<=''' + Cast(@Sifra_Art_Do As Varchar(35)) + ''' '
    If @Sifra_Gr IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND G.Sifra_Gr In ('+@Sifra_Gr+') '
    If @Sifra_Podg IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Podg In ('+@Sifra_Podg+') '
    If @Sifra_Brand Is NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Drg = '  + Cast(@Sifra_Brand as varchar(6)) + ' '
    If @Lokacija IS NOT NULL
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Drg Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(10)) + ' '
    If @Sifra_Drg1 Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND B.Sifra_Drg1=' + Cast(@Sifra_Drg1 As Varchar(10)) + ' '
    If @Aktiven = 'D'
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    Else If @Aktiven = 'N'
        SET @SSQLUslArt = @SSQLUslArt + ' AND (K.Aktiven = ''N'') '
    If @DozvArt = 'D' And @Sifra_Oe Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND (OZ.Dozvoleno <> ''N'' Or OZ.Dozvoleno Is Null) '
    Else If @DozvArt = 'N' And @Sifra_Oe Is Not Null
        SET @SSQLUslArt = @SSQLUslArt + ' AND (OZ.Dozvoleno = ''N'') '

--16.09.2010
       If @Drugo1 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQLUsl = @SSQLUsl + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
--
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Tekoven Promet
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    SET @SSQL = 'SELECT S.Sifra_OE, S.Sifra_Art,
                Vlez = Sum(Case S.VlIzl When ''V'' Then S.Kolic Else 0 End),
                Izlez = Sum(Case S.VlIzl When ''I'' Then S.Kolic Else 0 End), '
    If @BezPromOdPren = 'D'
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case S.VlIzl When ''V'' Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End),
                      IzlezBezPren = Sum(Case S.VlIzl When ''I'' Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End), '
    Else If @BezPromOdPren = 'D' And @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case When S.VlIzl=''V'' And S.Sifra_Dok Not In (991,992) Then (Case When S.ImaDodatna = ''P'' Then 0 Else S.Kolic End) Else 0 End),
                      IzlezBezPren = Sum(Case When S.VlIzl=''I'' And S.Sifra_Dok Not In (991,992) Then (Case When S.ImaDodatna = ''D'' Then 0 Else S.Kolic End) Else 0 End), '
    Else If (@BezPromOdPren Is Null Or @BezPromOdPren<>'D') And @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' VlezBezPren = Sum(Case When S.VlIzl=''V'' And S.Sifra_Dok Not In (991,992) Then S.Kolic Else 0 End),
                      IzlezBezPren = Sum(Case When S.VlIzl=''I'' And S.Sifra_Dok Not In (991,992) Then S.Kolic Else 0 End), '
    Else
        Set @SSQL = @SSQL + ' 0 as TVlezBezPren, 0 as TIzlezBezPren, '
    Set @SSQL = @SSQL + ' 0 as Sostojba, 0 as  Cena
                  FROM Stavr S
                  INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art AND K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
                 Set @SSQL=@SSQL+' INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                           INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Drg1 Is Not Null
                 Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
    If @DozvArt In ('D','N') And @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = S.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' Where 1=1 '

    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '

--    If @Datum_Dok_Do Is NOT Null
 --        SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
--print @SSQL+@SSQLUsl

    Set @SSQL = @SSQL+@SSQLUsl+@SSQLUslArt

    Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Sifra_Art '
print @SSQL
    INSERT #Promet EXEC(@SSQL)

    ----------------- Artiklite koi imaat prethoden promet, a nemaat promet vo periodot
    Set @SSQL = ' SELECT Distinct S.Sifra_Oe, S.Sifra_Art, 0, 0, 0, 0, 0, 0
            FROM Stavr S
            INNER JOIN Katart K ON S.Sifra_Art = K.Sifra_Art AND K.SMatUsl=''M'' '
    If @Sifra_Gr IS NOT NULL
                 Set @SSQL=@SSQL+' INNER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
                           INNER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr '
    If @Sifra_Drg1 Is Not Null
                 Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
    If @DozvArt In ('D','N') And @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = S.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' Where Cast(Sifra_Oe as char(3)) + S.Sifra_Art Not In (Select Cast(Sifra_Oe as char(3)) + Sifra_Art From #Promet) '

    Set @SSQL = @SSQL+@SSQLUsl+@SSQLUslArt

    INSERT #Promet EXEC(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

    Update #Promet
    Set Cena = (Case When S.DanCena = 'D' Then S.Cena Else S.Cena*(1+S.POsn/100) End),
          Sostojba  = (S.Vlez-S.Izlez)
    From Soart S
    Where S.Sifra_Oe = #Promet.Sifra_Oe And S.Sifra_Art = #Promet.Sifra_Art


    Set @SSQL =  ' SELECT P.Sifra_OE, O.ImeOrg, P.Sifra_Art,
            K.ImeArt, K.EdMera, K.Sifra_Tar, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr,
            K.Tezina, K.ImaKomerc, K.ImaBroevi, K.BTezina, K.Kto, Dob.ImeKup ImeDobav, K.Nabavna,
            (P.Sostojba - (P.TVlez - P.TIzlez)) PrethSost,
            ((P.Sostojba - (P.TVlez - P.TIzlez)) * P.Cena) PrethVredn,
            P.Sostojba TekSost,
            (P.Sostojba * P.Cena) TekVredn, '
    If @BezPromOdPren = 'D' Or @BezPromOdPopis = 'D'
        Set @SSQL = @SSQL + ' P.TVlezBezPren TVlez, (P.TVlezBezPren*P.Cena) TekVrVlez,
                      P.TIzlezBezPren TIzlez, (P.TIzlezBezPren*P.Cena) TekVrIzlez '
    Else
        Set @SSQL = @SSQL + ' P.TVlez, (P.TVlez*P.Cena) TekVrVlez,
                      P.TIzlez, (P.TIzlez*P.Cena) TekVrIzlez '
    If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
        Set @SSQL = @SSQL + ', OZ.Dozvoleno '
    Else
        Set @SSQL = @SSQL + ', Null as Dozvoleno '
    Set @SSQL = @SSQL + ' FROM #Promet P
                Inner Join Orged O On O.Sifra_Oe=P.Sifra_Oe
                Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
                Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
                Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
                Left Outer Join Komint Dob On Dob.Sifra_Kup=K.Kto '
    If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
        Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = P.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @KoiArt = 'P'
        Set @SSQL = @SSQL + ' And (P.TVlez > 0 Or P.TIzlez > 0) '
    Else If @KoiArt = 'I'
        Set @SSQL = @SSQL + ' And P.TIzlez > 0  '
    Else If @KoiArt = 'N'
        Set @SSQL = @SSQL + ' And P.TIzlez <= 0 '

    If @SiteArt = 'D' And @KoiArt Is Null
    Begin
        Set @SSQL = @SSQL + ' Union
                Select Null as Sifra_Oe, Null ImeOrg, K.Sifra_Art, K.ImeArt, K.EdMera, K.Sifra_Tar,
                    K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, K.Tezina, K.ImaKomerc, K.ImaBroevi, K.BTezina, K.Kto,
                    Dob.ImeKup ImeDobav, K.Nabavna,
                    0, 0, 0, 0, 0, 0 '
        If @SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null
            Set @SSQL = @SSQL + ', OZ.Dozvoleno '
        Else
            Set @SSQL = @SSQL + ', Null as Dozvoleno '
        Set @SSQL = @SSQL + ' From Katart K
                    Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
                    Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
                    Left Outer Join Komint Dob On Dob.Sifra_Kup=K.Kto '
        If @Sifra_Drg1 Is Not Null
                     Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON B.Sifra_Drg=K.Sifra_Drg '
        If (@SoDozvArt = 'D' And @Sifra_Oe Is Not Null And @KoiOe Is Null) Or (@DozvArt In ('D','N') And @Sifra_Oe Is Not Null And @KoiOe Is Null)
            Set @SSQL = @SSQL + ' Left Outer Join OptZalPoOe OZ On OZ.Sifra_Art = K.Sifra_Art And OZ.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        Set @SSQL = @SSQL + ' Where K.Sifra_Art Not In (Select Distinct Sifra_Art From #Promet) '

        Set @SSQL = @SSQL + @SSQLUslArt
    End
    -------------------------------------------
    Set @SSQL = @SSQL + 'Order By P.Sifra_Art, P.Sifra_OE '
    print @SSQL
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjava1]'))
drop procedure [dbo].[sp_odjava1]

Go


CREATE   Procedure [dbo].[sp_Odjava1]
    @KoiOE    varchar(400)=Null,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Kup    char(6)
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpOE (Sifra_OE smallint)
IF @KoiOE IS NOT NULL
Begin
    SET @SSQL='SELECT Sifra_OE FROM Orged WHERE Sifra_OE IN ('+@KoiOE+')'
    INSERT INTO #TmpOE EXEc (@SSQL)
End
ELSE
INSERT INTO #TmpOE SELECT Sifra_Oe FROM OrgEd

SELECT S.Sifra_Art, A.ImeArt, A.EdMera, SUM(CASE S.VlIzl WHEN 'V' THEN S.Kolic ELSE 0 END) Vlez,
SUM(CASE S.VlIzl WHEN 'I' THEN S.Kolic ELSE 0 END) Izlez, A.Alt_Sifra
FROM Stavr S INNER JOIN KatArt A ON S.Sifra_art=A.Sifra_Art
WHERE S.Datum_Dok >= @Datum_Od AND S.Datum_Dok<=@Datum_Do AND A.Kto=@Sifra_Kup
AND S.Sifra_OE IN (SELECT Sifra_OE FROM #TmpOE)
GROUP BY S.Sifra_Art, A.ImeArt, A.EdMera, A.Alt_Sifra ORDER BY A.ImeArt





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjavanakarticki]'))
drop procedure [dbo].[sp_odjavanakarticki]

Go

CREATE   PROCEDURE sp_OdjavaNaKarticki
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(10) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_kup    char(6) = Null,
    @SeriskiBrOd    varchar(15) = Null,
    @SeriskiBrDo    varchar(15) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Drugo1        smallint= null,
    @Drugo2        smallint= null,
    @Drugo3        smallint= null,
    @Drugo4        smallint= null,
    @Drugo5        smallint= null,
    @Drugo6        smallint= null,
    @Drugo7        smallint= null
 AS
    Declare @SSQL as varchar(8000)
    Create Table #Tab
    (
     DokID        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Identif_br    varchar(25),
     Datum_Dok    smalldatetime,
     Sifra_Kup    char(6),
     Sifra_Art     varchar(20),
     SeriskiBr    varchar(15),
     Kolic        decimal(18,6),
     Iznos        decimal(18,6),
     Grupa        int
    )
    Set @SSQL = ' Select S.StaNarID, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Identif_br, N.Datum_Nar, N.Sifra_Kup, S.Sifra_Art, B.SeriskiBr, 1, (1*S.DokCena) Iznos
            From BrStaNarac B
            Inner Join StaNarac S On S.StanarID=B.StaNarID
            Inner Join Naracki N On N.NarID=S.NarID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
            Where N.Sifra_Nar in (18, 88, 98) ' --and D.Sifra_Za = ''1'' '
--            Where 1=1 '
    If @Sifra_Oe Is not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And S.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
--    If @Koi_OE Is Not Null
--        SET @SSQL = @SSQL + 'And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Koi_OE + ''') '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ' + @Sifra_Gr + ' '
       If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @SeriskiBrOd Is not Null
        Set @SSQL = @SSQL + ' And B.SeriskiBr >= ' + @SeriskiBrOd + ' '
    If @SeriskiBrDo Is not Null
        Set @SSQL = @SSQL + ' And B.SeriskiBr <= ' + @SeriskiBrDo + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Kup = ' + @Sifra_Kup + ' '
--16.09.2010
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
--


    Set @SSQL = @SSQL + ' Order By S.StaNarID, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Identif_br, N.Datum_Nar, N.Sifra_Kup, S.Sifra_Art, B.SeriskiBr '
    Insert Into #Tab(DokID, Sifra_Oe, Sifra_Dok, Broj_Dok, Identif_br, Datum_Dok, Sifra_Kup, Sifra_Art, SeriskiBr, Kolic, Iznos) Exec(@SSQL)
PRINT @ssql
    Create Table #SerBr
    (
     Sifra_Art    varchar(20),
     Broj        Int,
     SeriskiBrOd    varchar(15),
     SeriskiBrDo    varchar(15)
    )
    Declare @SeriskiBr as varchar(15)
    Declare @SeriskiBrPred as varchar(15)
    Declare @Broj as int
    Declare @Sifra_Art as Varchar(20)
    Declare @DokID as int
    Declare @DokIDPred as int
    Set @Broj=1
    Declare SeriskiBroj Cursor Fast_Forward For
        Select Sifra_Art, SeriskiBr, DokID From #Tab Order By DokID, Sifra_Art, SeriskiBr
    Open SeriskiBroj
    Fetch Next From SeriskiBroj Into @Sifra_Art, @SeriskiBr, @DokID
    While @@Fetch_Status = 0
    Begin
        If @SeriskiBrPred Is Null
        Begin
            Insert Into #SerBr(Broj, Sifra_Art, SeriskiBrOd) Values(@Broj, @Sifra_Art, @SeriskiBr)
            Update #Tab
            Set Grupa = @Broj
            Where SeriskiBr=@SeriskiBr and Sifra_Art= @Sifra_Art and DokID=@DokID
            Set @SeriskiBrPred = @SeriskiBr
            Set @DokIDPred = @DokID
        End
        Else
        Begin
            If cast(@SeriskiBr as decimal(18,0)) = cast(@SeriskiBrPred as decimal(18,0))+ 1 and @DokID = @DokIDPred
            Begin
                Update #Tab
                Set Grupa = @Broj
                Where SeriskiBr=@SeriskiBr and DokID=@DokID
                Set @SeriskiBrPred = @SeriskiBr
                Set @DokIDPred = @DokID
            End
            Else
            Begin
                Update #SerBr
                Set SeriskiBrDo = @SeriskiBrPred Where Broj=@Broj
                Set @Broj = @Broj + 1
                Insert Into #SerBr (Broj, Sifra_Art, SeriskiBrOd) Select @Broj, @Sifra_Art, @SeriskiBr
                Update #Tab
                Set Grupa = @Broj
                Where SeriskiBr=@SeriskiBr and DokID=@DokID
                Set @SeriskiBrPred = @SeriskiBr
                Set @DokIDPred = @DokID
            End
        End
        Fetch Next From SeriskiBroj Into @Sifra_Art, @SeriskiBr, @DokID
    End
        Update #SerBr
        Set SeriskiBrDo = @SeriskiBr Where Broj=@Broj
    Close SeriskiBroj
    Deallocate SeriskiBroj
    Set @SSQL = ' Select  T.Sifra_Oe, T.Sifra_Dok, T.Broj_Dok, T.Identif_br, T.Datum_Dok, T.Sifra_Kup, Kup.ImeKup, T.Sifra_Art, K.ImeArt, T.SeriskiBr,
                T.Kolic, T.Iznos, T.Grupa, (Rtrim(SB.SeriskiBrOd)+''-''+Rtrim(SB.SeriskiBrDo)) SerBrOdDo, K.Sifra_Podg, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr
            From #Tab T
            Inner Join Katart K On K.Sifra_Art=T.Sifra_Art
            Left Outer Join Komint Kup On Kup.Sifra_Kup=T.Sifra_Kup
            Left Outer Join #SerBr SB On SB.Broj = T.Grupa
            Left Outer Join Podgrupi P On P.Sifra_Podg = K.Sifra_podg
            Left Outer Join Grupi G On G.Sifra_Gr = P.Sifra_Gr '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjavanaserbr]'))
drop procedure [dbo].[sp_odjavanaserbr]

Go
CREATE PROCEDURE sp_OdjavaNaSerBr
    @Sifra_Art    varchar(20),
    @SeriskiBr    varchar(15),
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select N.Datum_Nar, S.Sifra_Oe, S.Sifra_Nar, S.Broj_Nar, 1 as Kolic,
            N.Sifra_Kup, Kup.ImeKup
            From Naracki N
            Inner Join StaNarac S On S.NarID = N.NarID
            Inner Join BrStaNarac B On B.StaNarID = S.StaNarID
            Left Outer Join Komint Kup On Kup.Sifra_kup = N.Sifra_Kup
            Where S.Sifra_Art = ' + @Sifra_Art + ' and B.SeriskiBr= ' + @SeriskiBr + '
            and S.Sifra_Nar In (18, 88, 98) '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odjavaserbrzatxt]'))
drop procedure [dbo].[sp_odjavaserbrzatxt]

Go

CREATE   PROCEDURE sp_OdjavaSerBrZaTxt
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(10) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @SeriskiBrOd    varchar(15) = Null,
    @SeriskiBrDo    varchar(15) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_kup    char(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Drugo1        smallint= null,
    @Drugo2        smallint= null,
    @Drugo3        smallint= null,
    @Drugo4        smallint= null,
    @Drugo5        smallint= null,
    @Drugo6        smallint= null,
    @Drugo7        smallint= null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select Cast(B.SeriskiBr as decimal(18,0)) SeriskiBr
            From Naracki N
            Inner Join StaNarac S On S.NarID = N.NarID
            Inner Join BrStaNarac B On B.StaNarID = S.StaNarID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
            Where S.Sifra_Nar In (18, 88, 98) '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(10)) + ''' '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And  S.Sifra_Art >= ' + @Sifra_Art_Od + ' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And  S.Sifra_Art <= ' + @Sifra_Art_Do + ' '
    If @SeriskiBrOd Is Not Null
        Set @SSQL = @SSQL + ' and B.SeriskiBr >= ' + @SeriskiBrOd + ' '
    If @SeriskiBrDo Is Not Null
        Set @SSQL = @SSQL + ' and B.SeriskiBr <= ' + @SeriskiBrDo + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And  N.Sifra_Kup = ' + @Sifra_Kup + ' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And  K.Sifra_Podg = ' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And  P.Sifra_Gr = ' + @Sifra_Gr + ' '
--16.09.2010
       If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
--
    Set @SSQL = @SSQL + ' Order By B.SeriskiBr '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odobr_sumpregled_potar]'))
drop procedure [dbo].[sp_odobr_sumpregled_potar]

Go
CREATE  PROCEDURE sp_Odobr_SumPregled_PoTar
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Declare @AnID_Odob Int
    Select @AnID_Odob = AnID From AnFindok
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
    Select     S.Posn, SUM((S.Iznos_Fra * S.Proc_Odobr / 100) / (1+S.Posn/100)) NetoOdobr, SUM((S.Iznos_Fra * S.Proc_Odobr / 100) / (1+S.Posn/100) * (S.Posn/100)) IznosDDV
    From StaOdobr S Where S.AnID_Odob=@AnID_Odob
    Group By S.POsn



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odobrenie]'))
drop procedure [dbo].[sp_odobrenie]

Go
CREATE  PROCEDURE sp_Odobrenie
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
 AS
    Select (A.Dolzi+A.Pobaruva) Iznos, A.Danok1, A.Danok2, A.Sifra_Kup, Kup.ImeKup, Kup.SMesto, Kup.Adresa, Kup.Posta, Kup.Zemja, A.SlobText, S.Stapka1, S.Stapka2, A.Datum_Dok,
        A.BrojDok, A.Opis
    From AnFindok A
    Left Outer Join Komint Kup On Kup.Sifra_Kup = A.Sifra_Kup
    Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
    Where A.Sifra_Oe = @Sifra_Oe and A.Sifra_Dok = @Sifra_Dok And A.Broj_Dok = @Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odobrenie_analitika]'))
drop procedure [dbo].[sp_odobrenie_analitika]

Go

CREATE   PROCEDURE sp_Odobrenie_Analitika
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Kup    char(6) = Null,
    @Sifra_Reg    smallint = Null,
    @Sifra_Pat    smallint = Null,
    @KomercKako    char(1) = 'I'
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok Datum_Odobr, A.Sifra_Kup, Kup.ImeKup,
        Cast(F.Sifra_Oe as varchar(6)) + ''-'' + Cast(F.Sifra_Dok as varchar(6)) + ''/'' + Cast(F.Broj_Dok as varchar(7)) Dokument, F.BrojDok, F.Datum_Dok Datum_Fra,
        S.Iznos_Fra, ((S.Iznos_Fra * S.Proc_Odobr / 100) / (1+S.Posn/100) * (S.Posn/100)) IznosDDVOdobr, (S.Iznos_Fra * S.Proc_Odobr / 100) IznosOdobr,
        S.Posn, S.AnID_Odob, S.AnID_Fak, S.AnID_Upl, F.Sifra_Dok Sifra_DokF, Kup.Sifra_Reg, R.ImeRegion
    From StaOdobr S
    Inner Join AnFinDok A On A.AnID=S.AnID_Odob
    Left Outer Join AnFinDok F On F.AnID=S.AnID_Fak
    Left Outer Join AnFinDok U On U.AnID=S.AnID_Upl
    Left Outer Join Komint Kup On Kup.Sifra_kup=A.Sifra_Kup
    Left Outer Join GRegion R On R.Sifra_Reg=Kup.Sifra_Reg
    Where 1=1 '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ''' + cast(@Sifra_Reg as varchar(6)) + ''' '
    If @Sifra_Pat IS NOT NULL
           If @KomercKako = 'T'
            Set @SSQL = @SSQL + ' And Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            Set @SSQL = @SSQL + ' And A.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    Exec (@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odobrenie_analitika_art]'))
drop procedure [dbo].[sp_odobrenie_analitika_art]

Go









CREATE           PROCEDURE sp_Odobrenie_Analitika_Art
    @Sifra_OE     Smallint = Null,
        @Sifra_Dok     Smallint = Null,
        @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Kup    char(6) = Null,
        @Sifra_Obj    smallint = Null,
    @Sifra_Reg    smallint = Null,
    @Sifra_Pat    smallint = Null,
    @KomercKako    char(1) = 'I',
        @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
        @Sifra_Gr     varchar(6) = Null,
    @Sifra_Podg     char(6) = Null,
        @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
     @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
    @Drugo7    smallint = Null,
        @VlIzl     Char(1) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select S.*, D.Sifra_Kup, Kup.ImeKup, Kup.Sifra_Reg, R.ImeRegion, K.ImeArt, K.EdMera,
                      D.Sifra_Pat, D.Sifra_Obj, OB.imeObj
    From StaDokrOdobr S
    Left Outer Join Katart K On K.Sifra_art=S.Sifra_Art
    Left Outer Join Dokr D On D.DokrID=S.DokrID
        Left Outer Join Komint Kup On Kup.Sifra_kup=D.Sifra_Kup
        Left Outer Join KObjekti OB On OB.Sifra_Obj=D.Sifra_Obj
        Left Outer Join GRegion R On R.Sifra_Reg=Kup.Sifra_Reg
        LEFT OUTER JOIN Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg
    LEFT OUTER JOIN Grupi G ON PG.Sifra_Gr=G.Sifra_Gr
        Where 1=1 '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ''' + cast(@Sifra_Reg as varchar(6)) + ''' '
    If @Sifra_Pat IS NOT NULL
           If @KomercKako = 'T'
            Set @SSQL = @SSQL + ' And Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
        Else
            Set @SSQL = @SSQL + ' And D.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' '
    If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
       If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
        If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND (G.Sifra_Gr='''+@Sifra_Gr+''') '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
        If @Drugo1 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
       If @Drugo2 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
       If @Drugo3 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
       If @Drugo4 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
       If @Drugo5 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
       If @Drugo6 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
       If @Drugo7 Is NOT Null
              SET @SSQL = @SSQL + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
        If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
        If @Sifra_OE Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
        If @Sifra_Dok Is NOT NULL
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok=''' + Cast(@Sifra_Dok As Varchar(10)) + ''' '
        If @Sifra_Obj Is NOT Null
              SET @SSQL = @SSQL + 'AND D.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
        Exec (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odobrenie_pregled]'))
drop procedure [dbo].[sp_odobrenie_pregled]

Go

CREATE   PROCEDURE sp_Odobrenie_Pregled
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Kup    char(6) = Null Output,
    @Dolzi        decimal(18,6) = Null Output,
    @Datum_Odob    smalldatetime = Null Output,
    @Sifra_Pat    int = Null Output
AS
    Declare @AnID_Odob Int
    Select @AnID_Odob = AnID, @Sifra_Kup=Sifra_Kup, @Dolzi=Dolzi, @Datum_Odob=Datum_Dok, @Sifra_Pat=Sifra_Pat
    From AnFindok
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
    Select     Cast(F.Sifra_Oe as varchar(6)) + '-' + Cast(F.Sifra_Dok as varchar(6)) + '/' + Cast(F.Broj_Dok as varchar(7)) Dokument, F.BrojDok,
        F.Datum_Dok, F.Sifra_Dok Sifra_DokF,
        U.Datum_Dok Datum_Upl,
        S.Proc_Odobr,
        ((S.Iznos_Fra * S.Proc_Odobr / 100) / (1+S.Posn/100)) NetoOdobr,
        S.Posn,
        ((S.Iznos_Fra * S.Proc_Odobr / 100) / (1+S.Posn/100) * (S.Posn/100)) IznosDDV,
        (S.Iznos_Fra * S.Proc_Odobr / 100) VkupnoOdbr,
        S.AnID_Odob, S.AnID_Fak, S.Iznos_Fra, S.AnID_Upl,
        A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok,
        A.Dolzi, A.Pobaruva
    From StaOdobr S
    Inner Join AnfinDok A On A.AnID=S.AnID_Odob
    Inner Join AnFinDok F On F.AnID=S.AnID_Fak
    Left Outer Join AnFinDok U On U.AnID=S.AnID_Upl
    Where S.AnID_Odob=@AnID_Odob




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odredi_kto_grupa]'))
drop procedure [dbo].[sp_odredi_kto_grupa]

Go
CREATE PROCEDURE sp_Odredi_Kto_Grupa
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sufix        varchar(3)='' OUTPUT
AS
    SELECT @Sufix = dbo.fix_Odredi_Kto_Grupa(@Sifra_Oe, @Sifra_Dok, @Broj_Dok)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odredidatisporakaporuti]'))
drop procedure [dbo].[sp_odredidatisporakaporuti]

Go


CREATE   Procedure sp_OdrediDatIsporakaPoRuti
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @Datum_Od smalldatetime = null,
    @Datum_Do smalldatetime = null
AS
Declare @DatIspOd smalldatetime, @DatIspDo smalldatetime, @DatZaklZaUtre smalldatetime
SET @DatIspOd = dbo.fn_VratiDatum(GetDate())
SET @DatIspDo = dbo.fn_VratiDatum(DateAdd(day, 6, GetDate()))

SET @DatZaklZaUtre = DateAdd(hour, 15, @DatIspOd)  -- 15h denes - da se parameterizira

CREATE TABLE #Tmp
    (Datum smalldatetime,
     sto varchar(30),
     Kolku integer)

CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatIspOd
WHILE @Datum<=@DatIspDo
BEGIN

    -- Specijalni ruti za fiksiran apsoluten datum
    INSERT INTO #TmpRuta (Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj
    FROM RutiZaDatum
    WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    -- Pazi na PRAZNICITE
    SELECT @Praznik=Sto
    FROM RabKalendar
    WHERE Datum=@Datum AND Sto='P'

    IF @Praznik IS NULL
    BEGIN
        DELETE FROM #TmpPR

        INSERT INTO #TmpPR
            SELECT Sifra_Pat, MAX(Datum_Od)
            FROM RutiPlan
            WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum)
            GROUP BY Sifra_Pat

        INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj
            FROM RutiPlan R
            INNER JOIN #TmpPR T
                ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
                AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END

--select * from #tmpRuta

Declare @Rbr as smallint
SET @Rbr=1
WHILE @Rbr<=7
Begin
    --naracki stignati do 15 casot da se isporacaat utre
    IF @Rbr=1
    Begin
        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Datum_Nar>=@Datum_Od
            AND Naracki.Datum_Nar<=@Datum_Do AND Naracki.Dat_Isporaka IS NULL
            --AND Naracki.Sifra_Pat=R.Sifra_Pat
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Datum_Nar>=@Datum_Od
            AND Naracki.Datum_Nar<=@Datum_Do AND Naracki.Dat_Isporaka IS NULL
            --AND Naracki.Sifra_Pat=R.Sifra_Pat
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End
    ELSE
    Begin
        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Nar>=@Datum_Od
            AND Naracki.Datum_Nar<=@Datum_Do AND Naracki.Dat_Isporaka IS NULL
            --AND Naracki.Sifra_Pat=R.Sifra_Pat
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Nar>=@Datum_Od
            AND Naracki.Datum_Nar<=@Datum_Do AND Naracki.Dat_Isporaka IS NULL
            --AND Naracki.Sifra_Pat=R.Sifra_Pat
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End

    SET @Rbr=@Rbr+1
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odredidatisporakaporuti1nar]'))
drop procedure [dbo].[sp_odredidatisporakaporuti1nar]

Go


CREATE   Procedure sp_OdrediDatIsporakaPoRuti1Nar
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int
AS
Declare @DatIspOd smalldatetime, @DatIspDo smalldatetime, @DatZaklZaUtre smalldatetime
Declare @Sifra_Pat smallint, @Sifra_Kup char(6), @Sifra_Obj as smallint, @Dat_Isporaka smalldatetime
SET @DatIspOd = dbo.fn_VratiDatum(GetDate())
SET @DatIspDo = dbo.fn_VratiDatum(DateAdd(day, 20, GetDate()))

SET @DatZaklZaUtre = DateAdd(hour, 15, @DatIspOd)  -- 15h denes - da se parameterizira
SELECT @Sifra_Pat=Sifra_Pat, @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj FROM Naracki WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar
IF @Sifra_Pat IS NULL OR @Sifra_Kup IS NULL RETURN

CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatIspOd
WHILE @Datum<=@DatIspDo
BEGIN

    -- Specijalni ruti za fiksiran apsoluten datum
    INSERT INTO #TmpRuta (Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj
    FROM RutiZaDatum
    WHERE Datum=@Datum AND Sifra_Pat =@Sifra_Pat  AND Sifra_Kup=@Sifra_Kup

    -- Pazi na PRAZNICITE
    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'

    IF @Praznik IS NULL
    BEGIN
        DELETE FROM #TmpPR

        INSERT INTO #TmpPR
            SELECT Sifra_Pat, MAX(Datum_Od)
            FROM RutiPlan
            WHERE Sifra_Pat =@Sifra_Pat AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum)
            GROUP BY Sifra_Pat

        INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj
            FROM RutiPlan R
            INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
                AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat =@Sifra_Pat
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END

Declare @Rbr as smallint
SET @Rbr=1
WHILE @Rbr<=20
Begin
    --naracki stignati do 15 casot da se isporacaat utre
    IF @Rbr=1
    Begin
        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Datum_Vnes<=@DatZaklZaUtre AND Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End
    ELSE
    Begin
        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NULL AND R.Sifra_Obj IS NULL
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)    --bez obj.

        UPDATE Naracki
        SET Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE Naracki.Dat_Isporaka IS NULL
            AND Naracki.Sifra_OE=@Sifra_OE AND Naracki.Sifra_Nar=@Sifra_Nar AND Naracki.Broj_Nar=@Broj_Nar
            AND Naracki.Sifra_Kup=R.Sifra_Kup AND Naracki.Sifra_Obj IS NOT NULL AND R.Sifra_Obj IS NOT NULL
            AND Naracki.Sifra_Obj=R.Sifra_Obj
            AND R.Datum = DateAdd(Day, @Rbr, @DatIspOd)  --so obj.
    End
    SELECT @Dat_Isporaka=Dat_Isporaka FROM Naracki WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar
print @Dat_Isporaka
    IF @Dat_Isporaka IS NOT NULL BREAK
    SET @Rbr=@Rbr+1
End



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_odredidatisporakaporuti1nar_samokazi]'))
drop procedure [dbo].[sp_odredidatisporakaporuti1nar_samokazi]

Go


CREATE   Procedure sp_OdrediDatIsporakaPoRuti1Nar_SamoKazi
    @NarId        int,
    @Dat_Isporaka    smalldatetime = Null OUTPUT
AS

Declare @GledajDenoviNanapred int
set @GledajDenoviNanapred = 15

Declare @DatIspOd smalldatetime
Declare @DatIspDo smalldatetime
Declare @PocetenDatZaRuta smalldatetime
Declare @Sifra_Pat smallint
Declare @Sifra_Kup char(6)
Declare @Sifra_Obj as smallint


-- ODredi go PRVIOT DATUM ZA ISPORAKA od kj treba da se gleda.
-- Toj moze da e najrano UTRE
-- no isto taka najrano DVA DENA OD DATUMOT NA NARACKA
-- pa koj e POGOLEMIOT OD TIE DVA DATUMI, TOJ KE BIDE OSNOVA ZA NATAMOSNO PREBARUVANJE

-- (Faza 1) Bazirano na DENESNIOT DATUM, najrano moze da se isporacuva UTRE
SET @DatIspOd = dbo.fn_VratiDatum(GetDate())
SET @PocetenDatZaRuta = DateAdd(day, 1, @DatIspOd)

-- (Faza 2) Bazirano na DATUM NA NARACKA, najrano moze da se isporacuva 2 dena po narackata
Declare @Datum_Nar smalldatetime
Declare @Sifra_Nar_Nar smallint

select @Datum_Nar = Datum_Nar, @Sifra_Nar_Nar = Sifra_Nar
    from Naracki
    where NarId = @NarId

-- POvratnicite - denes se reailzira odma
if @Sifra_Nar_Nar = 86
begin
    set @Dat_Isporaka = dbo.fn_VratiDatum(GetDate())
    RETURN
end

-- Ne bi trebalo da e NULL, ama i ako e, najcesto e narackata od VCERA
if @Datum_Nar is null
    set @Datum_Nar = DateAdd(day, -1, dbo.fn_VratiDatum(GetDate()))

Declare @NajranMozenDatumSporedNar smalldatetime
set @NajranMozenDatumSporedNar = DateAdd(day, 2, @Datum_Nar)

if @NajranMozenDatumSporedNar > @PocetenDatZaRuta
    set @PocetenDatZaRuta = @NajranMozenDatumSporedNar
---- Sega veke znaeme od koj den treba da poccneme

SET @DatIspDo = DateAdd(day, @GledajDenoviNanapred, @PocetenDatZaRuta)

SELECT @Sifra_Pat=Sifra_Pat, @Sifra_Kup=Sifra_Kup, @Sifra_Obj=Sifra_Obj
FROM Naracki
WHERE NarID = @NarId

set @Dat_Isporaka = null

IF @Sifra_Pat IS NULL OR @Sifra_Kup IS NULL
    RETURN

CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)

Declare @DenOdNedelata smallint

-- STRATEGIJATA E:  Vo #TMPRUTA da se vnesat site mozni ruti vo nekoj nareden opseg datumi za patnikot
SET @Datum = @PocetenDatZaRuta

WHILE @Datum <= @DatIspDo
BEGIN

    set @DenOdNedelata = dbo.fn_DenOdNedela(@Datum)

    -- Specijalni ruti za fiksiran apsoluten datum
    INSERT INTO #TmpRuta (Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj
    FROM RutiZaDatum
    WHERE Datum = @Datum AND Sifra_Pat = @Sifra_Pat

    -- Pazi na PRAZNICITE
    SELECT @Praznik = Sto
    FROM RabKalendar
    WHERE Datum = @Datum AND Sto='P'

    -- Ako ne e praznik, zemi ja vo predid rutata.
    -- (Ako e praznik, moze samo FIKSIRANITE RUTI da vazat, koi se gore obraboteni veke)
    IF @Praznik IS NULL
    begin
        DELETE FROM #TmpPR

        -- Bidejki vo ista tabela cuvame ISTORIJA NA RUTI, mora da na najdeme rutata za ovoj
        -- den od nedelata koja e so NAJTAZE pocetok na vaznost
        INSERT INTO #TmpPR
            SELECT Sifra_Pat, MAX(Datum_Od)
            FROM RutiPlan
            WHERE Sifra_Pat = @Sifra_Pat AND Datum_Od <= @Datum AND DenOdNedela = @DenOdNedelata
            GROUP BY Sifra_Pat

        -- Dodaj ja rutata soglasno den od nedelata, NAJTAZE sto e, pod uslov na toj den da nemalo SPECIJALNA RUTA
        INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj
            FROM RutiPlan R
            INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.DenOdNedela = @DenOdNedelata AND R.Sifra_Pat = @Sifra_Pat
                and R.Sifra_Pat NOT IN
                    ( SELECT Sifra_Pat
                      FROM RutiZaDatum
                      WHERE Datum = @Datum )
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END

--select *
--from #TmpRuta

----print @DatIspDo


Declare @Rbr as smallint
SET @Rbr = 1

Declare @DatProbaj smalldatetime
set @DatProbaj = @PocetenDatZaRuta

WHILE @DatProbaj <= @DatIspDo and @Dat_Isporaka is null
Begin

----print 'Probuvam so '
---print @DatProbaj
    if @Sifra_Obj is not null
        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE R.Sifra_Kup = @Sifra_Kup AND R.Sifra_Obj = @Sifra_Obj AND R.Datum = @DatProbaj
    else
        SELECT @Dat_Isporaka = R.Datum
        FROM #TmpRuta R
        WHERE R.Sifra_Kup = @Sifra_Kup AND R.Datum = @DatProbaj

    ---print 'Ispor'
    ---print @Dat_Isporaka

    SET @DatProbaj = DateAdd(day, 1, @DatProbaj)
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_optim_zaliha]'))
drop procedure [dbo].[sp_optim_zaliha]

Go



CREATE                      PROCEDURE sp_Optim_Zaliha
    @Sifra_OE     Smallint = Null,
    @KoiOE     Varchar(300) = Null,
    @Pod1         Smallint = Null,
    @Pod2         Smallint = Null,
    @Pod3         Smallint = Null,
    @Pod4         Smallint = Null,
    @Pod5         Smallint = Null,
    @Sifra_Tip     Smallint = Null,
    @Datum_Od     Smalldatetime = Null,
    @Datum_Do     Smalldatetime = Null,
    @Sifra_Brand     Smallint = Null,
    @Sifra_Art_Od     Varchar(20) = Null,
    @Sifra_Art_Do     Varchar(20) = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @Podred     Char(1) = 'K',
    @Kolku     Int = Null,
    @Kto         Char(6) = Null,
    @Sifra_Gr     varChar(6) = Null,
    @Sifra_Podg     Char(6) = Null,
    @Lokacija     Varchar(10) = Null,
    @TipKup     Varchar(11) = Null,
    @Komint_KObj     Char(1) = 'K',
    @Denovi     Smallint = Null,
    @Koi_Gradovi    Varchar(200) = Null,
    @Koi_Regioni     Varchar(200) = Null,
    @PoKojDatum    char(1) = 'D',        -- D - Po Datum na Dokument,    V - Po Datum Na Vnes
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
    @Drugo5    smallint = Null,
    @TipDokProd    varchar(300) = Null,
    @ZalihaNaDat char(1) = 'N',
    @Sifra_Div    smallint = Null,
    @Koef        decimal(9,2) = Null,
    @PrikArtBezProd    char(1) = Null,    -- Z - so Zaliha bez prodazba
    @Aktiven    char(1) = Null        -- D/N
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(8000)
    Declare @SSQLUslArt Varchar(8000)

    Set @SSQLUsl = ' '
    Set @SSQLUslArt = ' '

    Create Table #Promet
    (    Sifra_Art Varchar(20),
        Kolicina Decimal(18,6),
        Datum_Dok Smalldatetime,
        Dekada Smallint
    )
    If @Datum_Od Is Null
        Select @Datum_Od = Min(Datum_Dok) From Stavr
    If @Datum_Do Is Null
        Select @Datum_Do = Max(Datum_Dok) From Stavr
    If @PoKojDatum = 'V'
            If @Datum_Do Is Not Null
        Set @Datum_Do = @Datum_Do + 1
    Set @SSQL = 'Select S.Sifra_Art,
        Sum(S.Kolic) As Kolicina,
        S.Datum_Dok,
        dbo.fn_dekada_Round(''' + Cast(@Datum_Od As Varchar(30)) + ''', ' + 'S.Datum_Dok, ' + Cast(@Denovi As Varchar(3)) + ') As Dekada '
    Set @SSQL = @SSQL + 'From Stavr S
            Inner Join KatArt K ON S.Sifra_Art=K.Sifra_Art
            Inner Join Dokr D ON S.DokrID=D.DokrID '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg
                     Inner Join Grupi G ON P.Sifra_Gr=G.Sifra_Gr '
    If (@TipKup Is Not Null) Or (@Pod1 Is Not Null) Or (@Pod2 Is Not Null) Or (@Koi_Gradovi Is Not Null) Or (@Pod3 Is Not Null) Or (@Pod4 Is Not Null)
         Or (@Pod5 Is Not Null) Or (@Sifra_Tip Is Not Null) Or (@Koi_Regioni Is Not Null)
        Set @SSQL = @SSQL + 'Inner Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
                     Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup '
    Set @SSQL = @SSQL + 'Where (K.Iskluci <> ''D'' Or K.Iskluci Is Null)  and D.Sifra_Za = ''1'' '

    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Brand Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + 'And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Lokacija Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And P.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Sifra_Div Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    If @Drugo1 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo1=' + Cast(@Drugo1 As Varchar(6)) + ' '
    If @Drugo2 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo2=' + Cast(@Drugo2 As Varchar(6)) + ' '
    If @Drugo3 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo3=' + Cast(@Drugo3 As Varchar(6)) + ' '
    If @Drugo4 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo4=' + Cast(@Drugo4 As Varchar(6)) + ' '
    If @Drugo5 Is Not NULL
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Drugo5=' + Cast(@Drugo5 As Varchar(6)) + ' '
        If @Aktiven = 'N'
        Set @SSQLUslArt = @SSQLUslArt + ' And K.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQLUslArt = @SSQLUslArt + ' And (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    If @PoKojDatum = 'V'
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes>=''' + Cast(@Datum_Od As Varchar(25)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Vnes<''' + Cast(@Datum_Do As Varchar(25)) + ''' '
          End
    Else
          Begin
        If @Datum_Od Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQLUsl = @SSQLUsl + ' And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
           End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Pod1 As Varchar(6)) + ')) '
           End
    If @Pod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
           End
    If @Pod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Pod3 As Varchar(6)) + ')) '
           End
    If @Pod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Pod4 As Varchar(6)) + ')) '
           End
    If @Pod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Pod5 As Varchar(6)) + ')) '
           End
    If @Sifra_Tip Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
           Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @TipDokProd Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok In (' + @TipDokProd + ') '

    Set @SSQL = @SSQL + @SSQLUsl + @SSQLUslArt + ' Group By S.Sifra_Art, S.Datum_Dok '
    Insert #Promet    Exec(@SSQL)

    Create Table #Tab
    (
        Sifra_art        varchar(20),
        Kolicina        decimal(18,6),
        MaxVoDekada    decimal(18,4),
        DekadaSoMaxProd int,
        DatPrvaProd    smalldatetime,
        DatPoslProd    smalldatetime,
        Dekadi        Int,
    )
    Set @SSQL = 'Select P.Sifra_Art,
            Round(Sum(Kolicina), 4) As Kolicina,
            0  As MaxVoDekada, 0 AS DekadaSoMaxProd,
            Min(Datum_Dok) As DatPrvaProd,
            Max(Datum_Dok) As DatPoslProd,
            Count(Distinct(Dekada)) As Dekadi
        From #Promet P '
    Set @SSQL = @SSQL + 'Group By P.Sifra_Art '
    Insert Into #Tab Exec(@SSQL)

    Create Table #Dekada
    (
     Sifra_Art     varchar(20),
     Dekada    smallint,
     Kolic        decimal(18,6)
    )
    Insert Into #Dekada
    Select Sifra_art, Dekada, Sum(Kolicina)
    From #Promet
    Group By Sifra_art, Dekada

    Create Table #Dek
    (
     Sifra_Art     varchar(20),
     Kolic        decimal(18,6)
    )
    Insert Into #Dek
    Select Sifra_art, Max(Kolic)
    From #Dekada
    Group By #Dekada.Sifra_art

    Update #Tab Set #Tab.MaxVoDekada = #Dek.kolic From #Dek Where #Tab.Sifra_Art = #Dek.Sifra_art
    Update #Tab Set #Tab.DekadaSoMaxProd = #Dekada.Dekada From #Dek, #Dekada
    Where #Dekada.Sifra_Art=#Dek.Sifra_Art AND #Dekada.Kolic=#Dek.Kolic AND #Tab.Sifra_Art = #Dekada.Sifra_art

    CREATE TABLE #Zal
    (Sifra_Art    varchar(20),
    Zaliha        decimal(18,6))
    IF @ZalihaNaDat='D'
        SET @SSQL = 'SELECT S.Sifra_Art, SUM(CASE S.VlIzl WHEN ''V'' THEN S.Kolic ELSE S.Kolic*-1 END)
                FROM Stavr S
                Inner join Katart K On K.Sifra_Art = S.Sifra_Art '
    Else
        SET @SSQL = 'SELECT S.Sifra_Art, SUM(S.Vlez - S.Izlez)
                FROM Soart S
                Inner join Katart K On K.Sifra_Art = S.Sifra_Art '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join PodGrupi P ON K.Sifra_Podg=P.Sifra_Podg
                     Inner Join Grupi G ON P.Sifra_Gr=G.Sifra_Gr '

    If @PrikArtBezProd = 'Z'
        Set @SSQL = @SSQL + ' Where 1=1 '
    Else
        Set @SSQL = @SSQL + ' WHERE S.Sifra_Art IN (SELECT Sifra_Art FROM #Tab) '

    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (' + @KoiOE + ') '
    IF @ZalihaNaDat='D' Set @SSQL = @SSQL + ' AND S.Datum_Dok<=''' +cast(@Datum_Do as varchar(35))+''' '

    If @PrikArtBezProd = 'Z'
        Set @SSQL = @SSQL + @SSQLUslArt

    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art'
    INSERT INTO #Zal EXEC (@SSQL)

       If @Koef Is null
        Set @Koef = 0

    Set @SSQL = ' Select P.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, K.Alt_Ime, K.Alt_Ime2, K.Alt_Edmera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            Kolicina, MaxVoDekada, DatPrvaProd, DatPoslProd, Dekadi, P.DekadaSoMaxProd, Round(Z.Zaliha,4) Zaliha, K.Alt_Sifra,
            K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, K.DogCena, K.MalCena, K.GotCena, K.Nom, ' + Cast(@Koef as varchar(10)) + ' Koef
    From #Tab P
    Inner Join Katart K On P.Sifra_Art=K.Sifra_Art
    LEFT OUTER JOIN #Zal Z ON P.Sifra_Art=Z.Sifra_Art
    Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
    Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr '
    If @PrikArtBezProd = 'Z'
    Begin
        Set @SSQL = @SSQL + ' Union Select Z.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, K.Alt_Ime, K.Alt_Ime2, K.Alt_Edmera, K.ImaBroevi, K.ImaKomerc, K.Tezina,
            0 Kolicina, 0 MaxVoDekada, Null DatPrvaProd, Null DatPoslProd, Null Dekadi, Null DekadaSoMaxProd, Round(Z.Zaliha,4) Zaliha, K.Alt_Sifra,
            K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, K.DogCena, K.MalCena, K.GotCena, K.Nom, ' + Cast(@Koef as varchar(10)) + ' Koef
        From #Zal Z
        Inner Join Katart K On Z.Sifra_Art=K.Sifra_Art
        Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
        Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
        Where Z.Sifra_Art Not In (Select Sifra_Art From #Tab) '
    End
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.Sifra_Art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
    Else If @Podred = 'K'
        Set @SSQL = @SSQL + ' Order By P.Kolicina Desc, MaxVoDekada Desc, Dekadi Desc '
print @SSQL
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_optzal_dozv]'))
drop procedure [dbo].[sp_optzal_dozv]

Go


create   PROCEDURE sp_OptZal_Dozv
    @Sifra_OE    Smallint,
    @Sifra_Art    Varchar(20),
    @OptDozvoleno    Char(1) = NULL OUTPUT
AS
    Select @OptDozvoleno=Dozvoleno From OptZalPoOe With(NOLOCK)
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_optzaliha]'))
drop procedure [dbo].[sp_optzaliha]

Go


CREATE                    PROCEDURE sp_OptZaliha
    @Datum_Od     Smalldatetime,
    @Datum_Do     Smalldatetime,
    @Sifra_OE     varchar(200) = NULL,
    @KF_OE        char(1)  = 'N',
    @Sifra_Podg   varchar(200) = NULL,
    @KF_Podg      char(1) = 'N',
    @Sifra_Gr     varchar(200) = NULL,
    @KF_Gr        char(1) = 'N',
    @Kto          varchar(200) = NULL,
    @KF_Kto       char(1) = 'N',
    @Sifra_Brand  varchar(200) = NULL,
    @KF_Brand     char(1) = 'N',
    @Lokacija     varchar(10) = NULL,
    @KF_Lokacija  char(1) = 'N',
    @SoDanok      Char(1) = 'D',
    @IskluciKup   varchar(200) = '660660, 660663, 021000',
    @TipDokProd   varchar(200) = '100,101,60'
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQL1 Varchar(8000)
    CREATE TABLE #TmpProd
    (Sifra_Art    varchar(20),
     Prodazba    Decimal(18,2)
    )
    Set @SSQL = 'SELECT S.Sifra_Art, Sum(dbo.fn_VratiVredIzl(S.Kolic, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, ''' + @SoDanok+''')) As Prodazba '
    Set @SSQL1 = ' From Stavr S
            Inner Join Katart K On S.Sifra_Art=K.Sifra_Art
            Inner Join Dokr D On S.DokrID = D.DokrID '
    If @Sifra_gr Is Not NULL
        Set @SSQL1 = @SSQL1 + ' Inner Join PodGrupi P ON K.Sifra_podg = P.Sifra_Podg '
    Set @SSQL1 = @SSQL1 + ' Where K.Iskluci <> ''D'' And S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''')
            And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQL1 = @SSQL1 + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL1 = @SSQL1 + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Podg Is Not NULL
         Begin
        If @KF_Podg = 'N'
                Set @SSQL1 = @SSQL1 + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
        Else
            Set @SSQL1 = @SSQL1 + 'And K.Sifra_Podg NOT IN (' + @Sifra_Podg  + ') '
        End
    If @Sifra_Gr Is Not NULL
        Begin
        If @KF_Gr = 'N'
                Set @SSQL1 = @SSQL1 + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
        Else
            Set @SSQL1 = @SSQL1 + 'And P.Sifra_Gr NOT IN (' + @Sifra_Gr  + ') '
        End
    If @Sifra_OE Is Not NULL
        Begin
        If @KF_OE = 'N'
                Set @SSQL1 = @SSQL1 + 'And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
        Else
            Set @SSQL1 = @SSQL1 + 'And S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Kto Is Not NULL
        Begin
        If @KF_Kto = 'N'
                Set @SSQL1 = @SSQL1 + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SSQL1 = @SSQL1 + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    If @Sifra_Brand Is Not NULL
         Begin
        If @KF_Brand = 'N'
                Set @SSQL1 = @SSQL1 + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
        Else
            Set @SSQL1 = @SSQL1 + 'And K.Sifra_Drg NOT IN (' + @Sifra_Brand  + ') '
        End
    If @Lokacija Is Not NULL
        Begin
            If @KF_Lokacija  = 'N'
                Set @SSQL1 = @SSQL1 + 'And K.Lokacija = ''' + @Lokacija + ''' '
            Else
                Set @SSQL1 = @SSQL1 + 'And K.Lokacija <> ''' + @Lokacija + ''' '
        End
    Set @SSQL = @SSQL + @SSQL1 + ' Group By S.Sifra_Art'
    INSERT INTO #TmpProd EXEC (@SSQL)
    CREATE TABLE #TmpProdMark
    (Sifra_OE    smallint,
     Sifra_Art    varchar(20),
     Kolicina    Decimal(18,2)
    )
    Set @SSQL = 'Select S.Sifra_OE, S.Sifra_Art, Sum(S.Kolic) As Kolicina '
    Set @SSQL = @SSQL + @SSQL1 + ' Group By S.Sifra_oe, S.Sifra_Art '
    INSERT INTO #TmpProdMark Exec(@SSQL)
    SELECT M.*, V.Prodazba, A.ImeArt, O.ImeOrg
    FROM #TmpProdMark M
    INNER JOIN #TmpProd V ON V.Sifra_Art = M.Sifra_Art
    INNER JOIN KatArt A ON M.Sifra_Art = A.Sifra_Art
    INNER JOIN OrgEd O ON M.Sifra_OE = O.Sifra_OE




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_optzalpooe]'))
drop procedure [dbo].[sp_optzalpooe]

Go
CREATE PROCEDURE sp_OptZalPoOe
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20)
AS
    Delete OptZalPoOe
    Where Sifra_Oe = @Sifra_Oe and Sifra_Art = @Sifra_Art
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_orc]'))
drop procedure [dbo].[sp_orc]

Go


CREATE         PROCEDURE sp_ORC
    @APG Char(1) = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @KoiOE Varchar(300) = Null,
    @KoiGr Varchar(200) = Null,
    @KoiPodg Varchar(200) = Null,
    @KoiBrand Varchar(200) = Null,
    @KoiKta Varchar(200) = Null,
    @Lokacija Varchar(20) = Null,
    @SoDDV Char(1) = 'D',
    @KFKoiOE Char(1) = Null,
    @KFKoiGr Char(1) = Null,
    @KFKoiPodg Char(1) = Null,
    @KFKoiBrand Char(1) = Null,
    @KFKoiKta Char(1) = Null,
    @Sifra_Kup Char(6) = null,
    @Sifra_Obj smallint = null,
    @SoFinRazl Char(1) = Null,
    @Sifra_Art_Od Varchar(20)= Null,
    @Sifra_Art_Do Varchar(20) = Null,
    @ADrugo1    smallint = Null,
    @ADrugo2    smallint = Null,
    @ADrugo3    smallint = Null,
    @ADrugo4    smallint = Null,
    @ADrugo5    smallint = Null,
    @TipDokProd    varchar(300) = Null
AS
    Declare @SSQL Varchar(4000)
    CREATE TABLE #TmpArt
    (Sifra_Art varchar(20),
    ImeArt varchar(40),
    Sifra_Podg char(6),
    Sifra_Gr char(3),
    Ime_Podg varchar(50),
    Ime_Gr char(50))
    CREATE NONCLUSTERED INDEX IX_TmpArt ON #TmpArt
        (Sifra_Art) ON [PRIMARY]
    Create Table #Tab
    (Sifra_Art    varchar(20),
     Dobav        varchar(6),
     NabVr        decimal(18,6),
     ProdVr        decimal(18,6),
     Kolic        decimal(18,6))
    Declare @SOsn Varchar(2000)
    SET @SOsn = ''
    If @KoiPodg Is Not NULL
        Begin
        If @KFKoiPodg = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Podg IN (' + @KoiPodg  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Podg NOT IN (' + @KoiPodg  + ') '
        End
    If @KoiGr Is Not NULL
        Begin
        If @KFKoiGr = 'N'
                Set @SOsn = @SOsn + 'And P.Sifra_Gr IN (' + @KoiGr  + ') '
        Else
            Set @SOsn = @SOsn + 'And P.Sifra_Gr NOT IN (' + @KoiGr  + ') '
        End
    If @KoiBrand Is Not NULL
        Begin
        If @KFKoiBrand = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Drg IN (' + @KoiBrand  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Drg NOT IN (' + @KoiBrand  + ') '
        End
    If @Lokacija Is Not NULL
        Set @SOsn = @SOsn + 'And K.Lokacija <> ''' + @Lokacija + ''' '
    If @KoiKta Is Not NULL
        Begin
        If @KFKoiKta = 'N'
               Set @SOsn = @SOsn + 'And K.Kto IN (' + @KoiKta  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Kto NOT IN (' + @KoiKta  + ') '
        End
    If @Sifra_Art_Od Is Not Null
        Set @SOsn = @SOsn + ' And K.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SOsn = @SOsn + ' And K.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @ADrugo1 Is Not NULL
        Set @SOsn = @SOsn + ' And K.Drugo1=' + Cast(@ADrugo1 As Varchar(6)) + ' '
    If @ADrugo2 Is Not NULL
        Set @SOsn = @SOsn + ' And K.Drugo2=' + Cast(@ADrugo2 As Varchar(6)) + ' '
    If @ADrugo3 Is Not NULL
        Set @SOsn = @SOsn + ' And K.Drugo3=' + Cast(@ADrugo3 As Varchar(6)) + ' '
    If @ADrugo4 Is Not NULL
        Set @SOsn = @SOsn + ' And K.Drugo4=' + Cast(@ADrugo4 As Varchar(6)) + ' '
    If @ADrugo5 Is Not NULL
        Set @SOsn = @SOsn + ' And K.Drugo5=' + Cast(@ADrugo5 As Varchar(6)) + ' '
    SET @SSQL = 'SELECT K.Sifra_Art, K.ImeArt, K.Sifra_Podg, P.Sifra_Gr, P.Ime_Podg, G.Ime_Gr
         FROM KatArt K
         INNER JOIN Podgrupi P ON K.Sifra_Podg=P.SifRa_Podg
         INNER JOIN Grupi G ON G.Sifra_Gr=P.Sifra_Gr
         WHERE K.SMatUsl=''M'' ' + @SOsn
    INSERT INTO #TmpArt (Sifra_Art, ImeArt, Sifra_Podg, Sifra_Gr, Ime_Podg, Ime_Gr)EXEC (@SSQL)
    Set @SSQL = 'Select S.Sifra_Art, S.Dobav, '
    If @SoDDV = 'N'
        Set @SSQL = @SSQL + 'Round(Sum(S.NabCena*S.Kolic), 2) NabVr,'
    Else If @SoDDV = 'D'
        Set @SSQL = @SSQL + 'Round(Sum(S.NabCena*(1+S.POsn/100)*S.Kolic), 2) NabVr, '
    If @SoDDV = 'N'
        Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_sorabat(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) ProdVr, '
    Else If @SoDDV = 'D'
        Set @SSQL = @SSQL + 'Round(Sum(dbo.fn_vr_krajna (S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa)), 2) ProdVr, '
    Set @SSQL = @SSQL + 'Round(Sum(S.Kolic), 2) Kolic From Stavr S
        Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
        Inner Join Dokr D On D.DokrID = S.DokrID '
    Set @SSQL = @SSQL + 'Where S.VlIzl=''I'' And (S.ImaDodatna Is Null  OR S.ImaDodatna ='' '') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    If @Sifra_kup Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Kup = ' + @Sifra_Kup + ' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Obj = ''' + Cast(@Sifra_Obj As Varchar(10)) + ''' '
    If @KoiOE Is Not Null
        Begin
        If @KFKoiOE = 'N'
            Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @KoiOE + ') '
        ELSE
            Set @SSQL = @SSQL + 'And S.Sifra_OE NOT In (' + @KoiOE + ') '
        End
    If @TipDokProd Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Dok In (' + @TipDokProd + ') '
    Set @SSQL = @SSQL + 'Group By S.Sifra_Art, S.Dobav, K.Sifra_Podg, K.Sifra_Gr
        Order By S.Sifra_Art '
    Insert Into #Tab Exec(@SSQL)
    If @SoFinRazl = 'D' And @Sifra_Kup Is Null And @Sifra_Obj Is Null     -- Finansiski razliki od FinRazl
    Begin
        Set @SSQL = ' Select R.Sifra_Art, Null, '
        If  @SoDDV = 'D'
            Set @SSQL = @SSQL + ' Sum(R.Iznos_Razl*(1+R.Posn/100)), '
        Else
            Set @SSQL = @SSQL + ' Sum(R.Iznos_Razl), '
        Set @SSQL = @SSQL + ' 0, 0         From RazlFin R
                Inner Join #TmpArt K On K.Sifra_Art=R.Sifra_Art
                Where R.VlIzl=''I'' '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + 'And R.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + 'And R.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
        If @KoiOE Is Not Null
        Begin
            If @KFKoiOE = 'N'
                Set @SSQL = @SSQL + 'And R.Sifra_OE In (' + @KoiOE + ') '
            ELSE
                    Set @SSQL = @SSQL + 'And R.Sifra_OE NOT In (' + @KoiOE + ') '
        End
        Set @SSQL = @SSQL + 'Group By R.Sifra_Art    Order By R.Sifra_Art '
        Insert Into #Tab Exec(@SSQL)
    End
    If @SoFinRazl = 'D'
    Begin
        Select T.Sifra_Art, K.ImeArt, null as Dobav, Null as ImeKup, K.Sifra_Podg, K.Ime_Podg, K.Sifra_Gr, K.Ime_Gr,
            Sum(T.NabVr) NabVr, Sum(T.ProdVr) ProdVr, Sum(T.Kolic) Kolic,
            A.Kto, Dob.ImeKup ImeKto, A.Sifra_Drg, B.Ime
        From #Tab T
        Inner Join #TmpArt K On T.Sifra_Art=K.Sifra_Art
        Inner Join Katart A On A.Sifra_Art = T.Sifra_Art
        Left Outer Join Komint Dob On Dob.Sifra_Kup=A.Kto
        Left Outer Join DrgPodel B On B.Sifra_Drg = A.Sifra_Drg
        Group By T.Sifra_Art, K.ImeArt,K.Sifra_Podg, K.Ime_Podg, K.Sifra_Gr, K.Ime_Gr, A.Kto, Dob.ImeKup, A.Sifra_Drg, B.Ime
    End
    Else
    Begin
        Select T.Sifra_Art, K.ImeArt, T.Dobav, Kup.ImeKup, K.Sifra_Podg, K.Ime_Podg, K.Sifra_Gr, K.Ime_Gr, T.NabVr, T.ProdVr, T.Kolic,
            A.Kto, Dob.ImeKup ImeKto, A.Sifra_Drg, B.Ime
        From #Tab T
        Inner Join #TmpArt K On T.Sifra_Art=K.Sifra_Art
        Left Outer Join Komint Kup On T.Dobav=Kup.Sifra_Kup
        Inner Join Katart A On A.Sifra_Art = T.Sifra_Art
        Left Outer Join Komint Dob On Dob.Sifra_Kup=A.Kto
        Left Outer Join DrgPodel B On B.Sifra_Drg = A.Sifra_Drg
    End





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oslobodiprocespodelbanar]'))
drop procedure [dbo].[sp_oslobodiprocespodelbanar]

Go


Create   PROCEDURE sp_OslobodiProcesPodelbaNar
    @NarID    int,
    @Rezultat char(1) output
 AS
    Declare @PodelNar as char(1)
    Select @PodelNar = PodelNar From Naracki  Where NarID=@NarID

    IF @PodelNar = 'D'
        Begin
            Set @Rezultat = 'D'    --narackata ne bila vo proces na delenje
            Return
        End

    Update Naracki
    Set PodelNar=NULL
    Where NarID=@NarID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oslobodirealiznar]'))
drop procedure [dbo].[sp_oslobodirealiznar]

Go
Create  Procedure sp_OslobodiRealizNar
    @NarId        int
AS

    Update NarRealDok Set Realiziran = Null
    Where NarID = @NarId





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_osnkod]'))
drop procedure [dbo].[sp_osnkod]

Go

CREATE  PROCEDURE sp_OsnKod
    @Nom As Varchar(50)
As
    Select Inv_broj, Ime From OsnSred Where BarKod=@Nom
Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_osnsred_pregled]'))
drop procedure [dbo].[sp_osnsred_pregled]

Go
CREATE      PROCEDURE sp_OsnSred_Pregled
    @Inv_BrojOd    char(10) = Null,
    @Inv_BrojDo    char(10) = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Delov_God    smallint,         -- mora
    @Sifra_Amor    char(3) = Null,
    @DatNabOd    smalldatetime = Null,
    @DatNabDo    smalldatetime = Null,
    @DatAktOd    smalldatetime = Null,
    @DatAktDo    smalldatetime = Null,
    @DatPrestOd    smalldatetime = Null,
    @DatPrestDo    smalldatetime = Null
/*
--    @KojIzv        char(1) = 'S',  -- sostojba na osn sred,        N - Novonabaveni
    @PrikNovoNab        char(1) = 'D',  -- Novonabaveni
    @PrikNabOdPrethGod    char(1) = 'D',  -- Prethodno Nabaveni
    @PrikOtpisani        char(1) = 'N'   -- Otpisani
*/
 AS
    Declare @SSQL as Varchar(8000)
    Create Table #OS
    (
     Inv_Broj    char(10)
    )
    Set @SSQL = ' Select O.Inv_Broj
            From OsnSred O
            Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
            Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
            Where 1=1 '
    If @Inv_BrojOd Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    If @Sifra_Lok Is Not null
        Set @SSQL = @SSQL + ' And L.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Sifra_MakLok Is Not null
        Set @SSQL = @SSQL + ' And MAKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_MikLok Is Not null
        Set @SSQL = @SSQL + ' And MIKL.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_Amor Is Not null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @DatNabOd Is Not null
        Set @SSQL = @SSQL + ' And (O.DatNab >= ''' + cast(@DatNabOd as varchar(30)) + ''') '
    If @DatNabDo Is Not null
        Set @SSQL = @SSQL + ' And (O.DatNab <= ''' + cast(@DatNabDo as varchar(30)) + ''') '
    If @DatAktOd Is Not null
        Set @SSQL = @SSQL + ' And O.DatAkt >= ''' + cast(@DatAktOd as varchar(30)) + ''' '
    If @DatAktDo Is Not null
        Set @SSQL = @SSQL + ' And O.DatAkt <= ''' + cast(@DatAktDo as varchar(30)) + ''' '
    If @DatPrestOd Is Not null
        Set @SSQL = @SSQL + ' And O.DatPrest >= ''' + cast(@DatPrestOd as varchar(30)) + ''' '
    If @DatPrestDo Is Not null
        Set @SSQL = @SSQL + ' And O.DatPrest <= ''' + cast(@DatPrestDo as varchar(30)) + ''' '
print @SSQL
    Insert Into #OS Exec(@SSQL)
    Create Table #PocSostOsnSred
    (
     Inv_Broj     char(10),
     OrigNabVr    decimal(18,2),
     Osn_Amor    decimal(18,2),
     Otpis_Pret    decimal(18,2)
    )
    Insert Into #PocSostOsnSred
    Select Inv_Broj, Orig_Nab_Vr, Osn_Amor, Otpis_Pret
    From StavOsnSred
    Where Tip_StaOsn In ('I', 'P') And Inv_Broj In (Select Inv_Broj From #OS)
    Set @SSQL = ' Select OS.Inv_Broj, O.Kto_Anal, O.Sifra_Amor, O.Sifra_MikLok,
        (Case When P.Osn_Amor Is Not Null Then P.Osn_Amor Else PS.Osn_Amor End) Osn_Amor, P.Otpis_Pret, Sum(S.Osn_Amor) Tek_Osn_Amor,
        O.Ime, O.Opis, MIKL.Ime_MikLok, MIKL.Sifra_MakLok, MAKL.Ime_MakLok, MAKL.Sifra_Lok, L.ImeLok, A.Ime Ime_AmorGrp, K.ImeAnal, S.Tip_StaOsn,
        O.BarKod, D.Sifra_Nal, D.Broj_Nal, O.DatNab, O.DatAkt, S.Datum_Dok, PS.OrigNabVr, O.DatPrest, O.Resen
    From #OS OS
    Inner Join OsnSred O On O.Inv_Broj=OS.Inv_Broj
    Left Outer Join PocSostOsn P On P.Inv_Broj=O.Inv_Broj And P.Godina=' + cast(@Delov_God as varchar(4)) + '
    Left Outer Join #PocSostOsnSred PS On PS.Inv_Broj=O.Inv_Broj
    Left Outer Join StavOsnSred  S On S.Inv_Broj=O.Inv_Broj And S.Tip_StaOsn In (''D'', ''P'') and S.Delov_God= ' + Cast(@Delov_God as varchar(4)) + '
    Left Outer Join DokOsnSred D On D.DokOID=S.DokOID
    Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
    Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
    Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
    Left Outer Join AmorGrp A On A.Sifra_Amor=O.Sifra_Amor
    Left Outer Join Anal K On K.Kto_Anal=O.Kto_Anal
    Group By OS.Inv_Broj, O.Kto_Anal, O.Sifra_Amor, O.Sifra_MikLok, (Case When P.Osn_Amor Is Not Null Then P.Osn_Amor Else PS.Osn_Amor End), P.Otpis_Pret,
        O.Ime, O.Opis, MIKL.Ime_MikLok, MIKL.Sifra_MakLok, MAKL.Ime_MakLok, MAKL.Sifra_Lok, L.ImeLok, A.Ime, K.ImeAnal, S.Tip_StaOsn, O.BarKod,
        D.Sifra_Nal, D.Broj_Nal, S.Datum_Dok, O.DatNab, O.DatAkt, PS.OrigNabVr, O.DatPrest, O.Resen  '
/*    If @Inv_BrojOd Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not null
        Set @SSQL = @SSQL + ' And O.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    If @Sifra_Lok Is Not null
        Set @SSQL = @SSQL + ' And L.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Sifra_MakLok Is Not null
        Set @SSQL = @SSQL + ' And MAKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_MikLok Is Not null
        Set @SSQL = @SSQL + ' And MIKL.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_Amor Is Not null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @DatNabOd Is Not null
        Set @SSQL = @SSQL + ' And (O.DatNab >= ''' + cast(@DatNabOd as varchar(30)) + ''' Or S.Datum_Dok >=''' + cast(@DatNabOd as varchar(30)) + ''') '
    If @DatNabDo Is Not null
        Set @SSQL = @SSQL + ' And (O.DatNab <= ''' + cast(@DatNabDo as varchar(30)) + ''' Or S.Datum_Dok <=''' + cast(@DatNabOd as varchar(30)) + ''') '
    If @DatAktOd Is Not null
        Set @SSQL = @SSQL + ' And O.DatAkt >= ''' + cast(@DatAktOd as varchar(30)) + ''' '
    If @DatAktDo Is Not null
        Set @SSQL = @SSQL + ' And O.DatAkt <= ''' + cast(@DatAktDo as varchar(30)) + ''' '
    If @DatPrestOd Is Not null
        Set @SSQL = @SSQL + ' And O.DatPrest >= ''' + cast(@DatPrestOd as varchar(30)) + ''' '
    If @DatPrestDo Is Not null
        Set @SSQL = @SSQL + ' And O.DatPrest <= ''' + cast(@DatPrestDo as varchar(30)) + ''' '
*/
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otklucisams_uredi]'))
drop procedure [dbo].[sp_otklucisams_uredi]

Go










CREATE               PROCEDURE [dbo].[sp_OtkluciSams_Uredi]
    @Sifra_Kor varchar(20),
    @ImeKor varchar(40) output,
    @Saldo decimal(18, 6) output,
    @Status varchar(20) output
As

declare @kojUredId varchar(20)
declare @VekjeOtklucen varchar(20)
declare @ZaklucenSoStavki varchar(20)

set @VekjeOtklucen = null
set @ZaklucenSoSTavki = null
set @KojUredId = null

If @Sifra_Kor not in(select Sifra_Kor from arkakartkor)
    begin
        set @Status = 'Nema takov korisnik'
        return @@ERROR
    end

select @VekjeOtklucen = Sams_uredId from sams_statusuredi where Tek_Korisnik = @Sifra_Kor and tekstatus <> 'CEKANJE' and tekstatus <> 'CEKANJE-ST'
If @VekjeOtklucen is null
    begin
        select @ZaklucenSoStavki = Sams_UredId from sams_statusuredi where tekstatus = 'CEKANJE-ST' and Tek_Korisnik = @Sifra_Kor
        if @ZaklucenSostavki is null
            begin
                select @kojUredId = Sams_UredId from sams_statusuredi where tekstatus = 'CEKANJE' and Komanda is null
                --order by Posl_Parkiranje_Koga desc, Posl_Krevanje_Koga desc
                If @kojUredId is not null
                    begin
                        set @Status = 'Otklu~uvam ured'
                    update sams_statusuredi set komanda = 'OSLOBODI', Tek_Korisnik = @Sifra_Kor where sams_uredId = @kojUredID
                    end
                else If @kojUredId is null
                    begin
                        set @status = 'Nema sloboden ured'
                        return @@ERROR
                    end
            end
        else if @zaklucenSoStavki is not null
            begin
                set @Status = 'Otklu~uvam ured so stavki'
                update sams_statusuredi set komanda = 'OSLOBODI' where sams_uredId = @ZaklucenSoStavki
            end
    end
else if @VekjeOtklucen is not null
    set @Status = 'Postoi otklu~en ured za ovoj korisnik'

select @ImeKor = ImeKor from arkakartkor A where A.Sifra_Kor = @Sifra_Kor
select @Saldo = Novi_limi - Novi_Promet from arkakartkor A where A.Sifra_Kor = @Sifra_Kor
declare @NeraskSaldo as decimal(18, 6)
set @NeraskSaldo = 0
select @NeraskSaldo = sum(AK.Dolzi - AK.Pobaruva) from Arkakartkpm AK where AK.Sifra_Kor = @Sifra_Kor and AK.Rasknizen is null
If @NeraskSaldo <> 0
set @Saldo = @Saldo - @NeraskSaldo

Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkrij_levichar]'))
drop procedure [dbo].[sp_otkrij_levichar]

Go
CREATE     PROCEDURE [dbo].[sp_Otkrij_LeviChar]
    @KoiSifri    nvarchar(1000)= null
AS

begin

  Declare @SifrA_Art varchaR(20)
  Declare @ImeArt varchaR(100)

  Declare @Len int
  Declare @iW int
  Declare @wChar char(1)
  Declare @wAscii int

Create Table #KatSkraten
(
    Sifra_Art    int,
    ImeArt        varchar(100)
)


  DECLARE @@SQL as varchar(500)

  Set @@SQL='Insert Into #KatSkraten Select Sifra_Art,ImeArt From Katart '
  If @KoiSifri is not null
    Set @@SQL = @@SQL +' Where Sifra_Art in ('+@KoiSifri+')'

  Exec (@@SQL)


  DECLARE Kat CURSOR FAST_FORWARD FOR SELECT SifrA_Art, ImeArt FROM #KatSkraten  order by sifra_art
  OPEN Kat
  FETCH NEXT FROM Kat INTO @Sifra_Art, @ImeArt
  WHILE @@FETCH_STATUS = 0
  Begin
     --print @SifrA_Art + ' ' + @ImeArt

     set @Len = len(@ImeArt)
     set @iw = 1
     while @iw <= @Len
     begin
        set @wChar = substring(@ImeArt, @iw, 1)

        set @wAscii = ascii(@wChar)

        if @wAscii >= 127 or @wAscii < 32 or @wAscii in(81,120,113,124)
        begin
            --print cast(ascii(@wChar) as varchaR(5)) + @wChar
            print @SifrA_Art + ' ' + @ImeArt + '    ' + cast(ascii(@wChar) as varchaR(5))+' '  + @wChar
        end

        set @iw = @iw + 1
     end

     FETCH NEXT FROM Kat INTO @Sifra_Art, @ImeArt
  End
  CLOSE Kat
  DEALLOCATE Kat

end




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkup_specpoart]'))
drop procedure [dbo].[sp_otkup_specpoart]

Go


CREATE        PROCEDURE sp_Otkup_SpecPoArt
    @Sifra_OE        smallint,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @Sifra_Dok        smallint = 8,
    @Sifra_Kup        char(6) = Null,
    @PrikPo        char(1) = 'A'
AS
    Declare @SSQL varchar(5000)


    Set @SSQL = ' Select S.Sifra_Art, A.ImeArt, Round(Sum(Kolic),4) Kolic,
            Round(Sum(Cast(Substring(S.ImeMat,5,12) as decimal(12,2))/100), 4) Bruto,
            Round(Sum(S.BrAmbal), 4) BrAmbal,
            Round(Sum(S.Kolic*S.MagCena),4) Vrednost, '
    IF @PrikPo='D'
        Set @SSQL=@SSQl + ' S.Datum_Dok, '
    else
        Set @SSQL=@SSQl + ' Null as Datum_Dok, '
    If @PrikPo = 'C'
        Set @SSQL = @SSQL + ' S.MagCena '
    Else
        Set @SSQL = @SSQL + ' Null as MagCena '
    Set @SSQL = @SSQL + ' FROM Stavr S
                INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
                INNER JOIN Dokr D ON S.DokrID=D.DokrID
                WHERE S.ImeMat<>'''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok=' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup=' + @Sifra_Kup + ' '
    Set @SSQL = @SSQL + ' Group By  S.Sifra_Art, A.ImeArt '
    If @PrikPo = 'C'
        Set @SSQL = @SSQL + ', S.MagCena '
   if @PrikPo ='D'
     Set @SSQL = @SSQL + ', S.DAtum_Dok ORDER BY S.Datum_Dok '
    ELSE
        Set @SSQL = @SSQL + ' Order By S.Sifra_Art '
print(@SSQL)
    EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnabeleska]'))
drop procedure [dbo].[sp_otkupnabeleska]

Go


CREATE   PROCEDURE sp_OtkupnaBeleska
    @Sifra_Oe     SMALLINT,
    @Sifra_Dok     SMALLINT,
    @Broj_Dok    INT
AS
    SELECT D.Datum_Dok, D.Ispratnica, O.ImeOrg, D.Broj_Dok, D.Sifra_Kup, K.ImeKup, K.SMesto,
           K.Adresa, K.Banka, K.Ziro, K.Danocen, D.Opis,
           S.Rbr, S.Sifra_Art, A.ImeArt, S.BrAmbal,
           (CAST(SUBSTRING(S.ImeMat, 5, 12) AS DECIMAL(12,2))/100) AS Bruto, S.Alt_Kolic,
           (CAST(SUBSTRING(S.ImeMat, 5, 12) AS DECIMAL(12,2))/100)-S.Alt_Kolic AS Neto,
            CAST(SUBSTRING(S.ImeMat, 22, 12) AS DECIMAL(12,2))/100 AS Kalo,
           S.Kaloproc, S.Kolic, S.MagCena, S.Kolic * S.MagCena AS Iznos, D.Plat_PerDan, D.Proc_PerDan, S.DokCena
    FROM Stavr S
    INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    INNER JOIN Dokr D ON S.DokrID=D.DokrID
    LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
    LEFT OUTER JOIN OrgEd O ON D.Sifra_Oe = O.Sifra_Oe
    WHERE D.Sifra_OE = @Sifra_Oe AND D.Sifra_Dok = @Sifra_Dok AND D.Broj_Dok = @Broj_Dok AND S.ImeMat IS NOT NULL AND S.ImeMat<>''
    ORDER BY D.Broj_Dok, S.Rbr





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnalista]'))
drop procedure [dbo].[sp_otkupnalista]

Go




CREATE        PROCEDURE sp_OtkupnaLista
    @Sifra_OE        smallint,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @Sifra_Dok        smallint = 8,
    @Sifra_Kup        char(6) = Null,
    @BrojLista    varchar (25) = Null,
    @Ispratnica        varchar(25) = NULL
AS
    Declare @SSQL varchar(5000)

    SET @SSQL = 'SELECT D.Sifra_Oe, D.Sifra_Dok, D.Datum_Dok, D.Sifra_Kup, K.ImeKup, K.SMesto, K.Danocen, D.Broj_Dok, D.Ispratnica,
    (Case WHEN S.Rbr=1 Then D.Plat_PerDan Else 0 End) Plat_PerDan,
    Cast(Substring(S.ImeMat,5,12) as decimal(12,2))/100 as Bruto, S.Alt_Kolic, S.Kolic,
    Cast(Substring(S.ImeMat,22,12) as decimal(12,2))/100 as Kalo, S.KaloProc,
    S.DokCena, S.MagCena, A.Sifra_Art, A.ImeArt, A.EdMera, S.BrAmbal,
        round(S.MagCena * S.Kolic, 0) VrBruto,
        round(S.MagCena * S.Kolic, 0) - (Case WHEN S.Rbr=1 Then D.Plat_PerDan Else 0 End) VrNeto
    FROM Stavr S
        INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
    INNER JOIN Dokr D ON S.DokrID=D.DokrID
    LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
    WHERE S.ImeMat<>'''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok=' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup=' + @Sifra_Kup + ' '
    If @BrojLista Is Not Null
        Set @SSQL = @SSQL + ' And D.Identif_Br=' + @BrojLista + ' '
    IF @Ispratnica IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Ispratnica=' + @Ispratnica + ' '


    Set @SSQL = @SSQL + ' ORDER BY D.Broj_Dok, S.Rbr'

    EXEC (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnalista_isplatna]'))
drop procedure [dbo].[sp_otkupnalista_isplatna]

Go






CREATE       PROCEDURE sp_OtkupnaLista_Isplatna
    @Sifra_OE        smallint,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @Sifra_Dok        smallint = 8,
    @Sifra_Kup        char(6) = Null,
    @BrojLista    varchar (25) = Null,
    @Ispratnica        varchar(20) = NULL,
    @SamoMark    char(1) = Null   -- D - samo markirani,   N - samo nemarkirani  S - site
AS
    Declare @SSQL varchar(5000)

    SET @SSQL = 'SELECT D.Sifra_Oe, D.Sifra_Dok, D.Datum_Dok, D.Sifra_Kup,
                     K.ImeKup, K.SMesto, K.Danocen, D.Broj_Dok, D.Ispratnica,
             K.Adresa, K.Smesto, K.Ziro, K.Banka, K.Danocen, D.Identif_Br, D.Identif_Br StIdentif_Br,
             D.Toc200 VrNeto, D.Plat_PerDan, D.Toc200 + D.Plat_PerDan VrBruto, F.AnID
    from Dokr D
    inner join anFINDOK F on D.Sifra_Oe = F.Sifra_Oe and D.Sifra_Dok = F.Sifra_Dok and D.Broj_dok = F.Broj_Dok
    LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
    WHERE 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok=' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup=' + @Sifra_Kup + ' '
    If @BrojLista Is Not Null
        Set @SSQL = @SSQL + ' And D.Identif_Br=' + @BrojLista + ' '
    If @SamoMark = 'N'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Null Or D.Identif_Br = '' '') '
    Else If @SamoMark = 'D'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Not Null And D.Identif_Br <> '' '') '
    IF @Ispratnica IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Ispratnica=''' + @Ispratnica +''' '

    Set @SSQL = @SSQL + ' ORDER BY D.Broj_Dok'

    EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnalista_isplatna_file]'))
drop procedure [dbo].[sp_otkupnalista_isplatna_file]

Go

CREATE  PROCEDURE sp_OtkupnaLista_Isplatna_File
    @Sifra_OE        smallint,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @Sifra_Dok        smallint = 8,
    @Sifra_Kup        char(6) = Null,
    @BrojLista    varchar (25) = Null,
    @SamoMark    char(1) = Null   -- D - samo markirani,   N - samo nemarkirani  S - site
AS
    --Declare @ZiroSmetka as varchar(100)
    --select  top 1 @ZiroSmetka = Ziro from logo where tipobr='FA'

    Declare @SSQL varchar(5000)

    SET @SSQL = 'SELECT 2 as Oznaka, D.Sifra_Oe, D.Sifra_Dok, D.Datum_Dok, D.Sifra_Kup,
                 K.ImeKup, K.SMesto, K.Danocen, D.Broj_Dok, D.Ispratnica,
                 K.Adresa, K.Smesto, K.Ziro, K.Banka, K.Danocen, D.Identif_Br,
                 D.Toc200 VrNeto, D.Plat_PerDan, D.Toc200 + D.Plat_PerDan VrBruto, F.AnID
                 from Dokr D
     inner join anFINDOK F on D.Sifra_Oe = F.Sifra_Oe and D.Sifra_Dok = F.Sifra_Dok and D.Broj_dok = F.Broj_Dok
     LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
     WHERE 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok=' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup=' + @Sifra_Kup + ' '
    If @BrojLista Is Not Null
        Set @SSQL = @SSQL + ' And D.Identif_Br=' + @BrojLista + ' '
    If @SamoMark = 'N'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Null Or D.Identif_Br = '' '') '
    Else If @SamoMark = 'D'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Not Null And D.Identif_Br <> '' '') '

    Set @SSQL = @SSQL + ' ORDER BY D.Broj_Dok'

    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnalista_isplatna_file_stopban]'))
drop procedure [dbo].[sp_otkupnalista_isplatna_file_stopban]

Go
CREATE           PROCEDURE sp_OtkupnaLista_Isplatna_File_StopBan
    @Sifra_OE        smallint,
    @Datum_Dok_Od    smalldatetime,
    @Datum_Dok_Do    smalldatetime,
    @Sifra_Dok        smallint = 8,
    @Sifra_Kup        char(6) = Null,
    @BrojLista    varchar (25) = Null,
    @SamoMark    char(1) = Null,
    @DatumKniz smalldatetime  -- D - samo markirani,   N - samo nemarkirani  S - site
AS
       Create table #Tmp
       (
      Rbr  int identity(1,1),
      SmetkaNal char(15),
      IznosNal char(10),
         Smetka  char(15),
         ImeKup  char(72),
         SifPlak  char(3),
         CelPlak  varchar(50),
         PovikDolzi  char(24),
         PovikPobaruva  char(24),
         DatumValuta char(8),
      DatumUplata char(8),
      NacPlak char(1),
      NacPrior char(2),
      TipNal char(1)
       )-- Izn  decimal(18,2), NacProc  char(1)


    Declare @DatOd as char(8)
    Set @DatOd = (Case When Day(@DatumKniz) < 10 Then '0' Else '' End)+cast(Day(@DatumKniz) as varchar(2))
  +(Case When Month(@DatumKniz) < 10 Then '0' Else '' End)+cast(Month(@DatumKniz) as varchar(2))+
   cast(Year(@DatumKniz) as char(4))
    Declare @SSQL varchar(5000)

   -- Declare @Vk as decimal(12,2)
   -- Select @Vk= Sum(Toc200 + Plat_PerDan)
    --from Dokr
    --where sifra_kup in (select Sifra_kup from dokr)

    Set @SSQL=' SELECT ''200000004496136'',substring(dbo.fn_LevoNuliStr(cast(Sum(D.Toc200 + D.Plat_PerDan) as varchar(12)), 12), 1,10) , cast(K.Ziro as char(15)), cast(K.ImeKup as varchar(72)),
                ''930'', ''isplata na otkup'', '+ @BrojLista + ','+ @BrojLista + ','''+ @DatOD + ''','''+ @DatOD+ ''',
                CASE  substring(K.Ziro,1, 3) when ''200'' then ''3'' else ''2'' end , ''11'', ''0''
                FROM Dokr D
                Inner join anFINDOK F on D.Sifra_Oe = F.Sifra_Oe and D.Sifra_Dok = F.Sifra_Dok and D.Broj_dok = F.Broj_Dok
                LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
                WHERE K.sifra_kup in (select Sifra_kup from dokr)'
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok=' + cast(@Sifra_Dok as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup=' + @Sifra_Kup + ' '
    If @BrojLista Is Not Null
        Set @SSQL = @SSQL + ' And D.Identif_Br=' + @BrojLista + ' '
    If @SamoMark = 'N'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Null Or D.Identif_Br = '' '') '
    Else If @SamoMark = 'D'
        Set @SSQL = @SSQL + ' And (D.Identif_Br Is Not Null And D.Identif_Br <> '' '') '
    set @ssql= @ssql+'group by K.ziro, K.ImeKUp'
print @ssql
INSERT INTO #Tmp (SmetkaNal, IznosNal, Smetka,ImeKup,SifPlak,CelPlak,PovikDolzi,PovikPobaruva,DatumValuta, DatumUplata, NAcPLak, NacPrior, TipNal)
 EXEC (@SSQL)
  --  print(@ssql)
--exec (@ssql)
select * from #Tmp
--update #tmp set povikdolzi=@BrojLista
--update #tmp set povikpobaruva=@BrojLista
/*
    create table #Tmp1
    ( Ozn  char(1),
      Rbr  char(5),
      Izn  char(19),
      Smetka  char(15),
      ImeKup  char(72),
      SifPlak  char(3),
      CelPlak  varchar(70),
      PovikDolzi  char(24),
      PovikPobaruva  char(24),
      NacProc  char(1)
    )

INSERT INTO #Tmp1 (Ozn,RBR, Izn,Smetka,ImeKup,SifPlak,CelPlak,PovikDolzi,PovikPobaruva,NacProc)
select Ozn,dbo.fn_LevoNuli(RBR,5),dbo.fn_LevoNuliStr(cast(Izn as char(19)), 18),cast(Smetka as char(15)),rtrim(cast(ImeKup as char(72))),rtrim(SifPlak),
cast(CelPlak as char(70)), cast(PovikDolzi as char(24)),cast(povikpobaruva as char(24)),rtrim(NacProc) from #Tmp


    create table #Tmp2
    ( Ozn  char(1),
      Smetka  char(15),
      Izn  char(19),--decimal(18,2),
      BrNal  char(6),
      DatKniz  char(8),
      DatVal  char(8)
    )

Declare @DatOd as char(8)
Set @DatOd = cast(Year(@DatumKniz) as char(4))
+(Case When Month(@DatumKniz) < 10 Then '0' Else '' End)+cast(Month(@DatumKniz) as varchar(2))
+(Case When Day(@DatumKniz) < 10 Then '0' Else '' End)+cast(Day(@DatumKniz) as varchar(2))

INSERT INTO #Tmp2 (Ozn,Smetka,Izn,BrNal,DatKniz,DatVal)
SELECT '1', '', Sum(Izn), dbo.fn_LevoNuliStr(count(rbr), 6),@DatOd, @DatOd
from #tmp


update #tmp2 set Izn=dbo.fn_LevoNuliStr(cast(Izn as varchar(19)), 18)


Update #Tmp1 Set Izn = '+0'+Replace(Izn,'.','')
Update #Tmp2 Set Izn = '+0'+Replace(Izn,'.','')
--update #Tmp2 set Izn=replace (Substring(Izn, 1,1),'0', '+')
--update #Tmp1 set Izn=replace (Substring(Izn, 1,1),'0', '+')
SELECT * FROM #TMP2
SELECT * FROM #TMP1
*/










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otkupnilisti_analitika]'))
drop procedure [dbo].[sp_otkupnilisti_analitika]

Go
CREATE PROCEDURE sp_OtkupniListi_Analitika

    @Sifra_Oe    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS

    Declare @SSQL as varchar(8000)

    SET @SSQL = 'SELECT D.Identif_Br, Sum(D.Toc200) Toc200
            FROM Dokr D
            WHERE D.Sifra_Dok = 8 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE=' + cast(@Sifra_OE as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok>=''' + Cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok<=''' + Cast(@Datum_Do as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' Group By D.Identif_Br '
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otvazur100]'))
drop procedure [dbo].[sp_otvazur100]

Go





CREATE    PROCEDURE sp_OtvAzur100
    @Sifra_OE Smallint=Null,
    @Sif_GrOrg char(6)=Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Broj_Dok_Od    int=NULL,
    @Broj_Dok_Do    int=NULL
AS
Declare @SSQL Varchar(4000)
Set @SSQL = 'UPDATE Dokr SET Broj_Nal=NULL WHERE Sifra_Dok IN (100,101) '
If @Sif_GrOrg IS NOT NULL
    Set @SSQL =  @SSQL + ' AND Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg+''' '
If @Sifra_OE IS NOT NULL
    Set @SSQL =  @SSQL + ' AND Sifra_OE= ' + Cast (@Sifra_OE as varchar(5))
If @Datum_Od Is NOT Null
    SET @SSQL = @SSQL + ' AND Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
If @Datum_Do Is NOT Null
    SET @SSQL = @SSQL + ' AND Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
IF @Broj_Dok_Od IS NOT NULL
    SET @SSQL = @SSQL + ' AND Broj_Dok>=' + Cast(@Broj_Dok_Od As Varchar(9)) + ' '
IF @Broj_Dok_Do IS NOT NULL
    SET @SSQL = @SSQL + ' AND Broj_Dok<=' + Cast(@Broj_Dok_Do As Varchar(9)) + ' '
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otvazurrazlcena]'))
drop procedure [dbo].[sp_otvazurrazlcena]

Go





CREATE    PROCEDURE sp_OtvAzurRazlCena
    @Sifra_OE Smallint=Null,
    @Sif_GrOrg char(6)=Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Dok  smallint=Null
AS
Declare @SSQL Varchar(4000)
Set @SSQL = 'UPDATE RazlCeni SET Broj_Nal=NULL WHERE 1=1 '
If @Sif_GrOrg IS NOT NULL
    Set @SSQL =  @SSQL + ' AND Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg = '''+@Sif_GrOrg+''') '
If @Sifra_OE IS NOT NULL
    Set @SSQL =  @SSQL + ' AND Sifra_OE= ' + Cast (@Sifra_OE as varchar(5))
If @Datum_Od Is NOT Null
    SET @SSQL = @SSQL + ' AND Datum_Dok>=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
If @Datum_Do Is NOT Null
    SET @SSQL = @SSQL + ' AND Datum_Dok<=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
If @Sifra_Dok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Razl=' + Cast(@Sifra_Dok As Varchar(3)) + ' '
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_otvdokkom]'))
drop procedure [dbo].[sp_otvdokkom]

Go



CREATE    Procedure sp_OtvDokKom

    @Sifra_Oe smallint = Null,
    @Koi_Oe    varchar(6) = Null,
    @Datum_Od smalldatetime,
    @Datum_Do smalldatetime,
    @Sifra_Kup_Od char(6) = Null,
    @Sifra_Kup_Do char(6) = Null,
    @Sifra_1K  smallint= null,
    @Sifra_2K smallint = null,
    @Sifra_3K smallint = null,
    @Sifra_4K smallint = null,
    @Sifra_5K smallint = null,
    @Sifra_6K smallint = null,
    @Sifra_7K smallint = null,
    @Koi_Gradovi varchar(300) = Null,
    @Koi_Regioni varchar(300) = Null,
    @TipKup varchar(11) = Null,
    @Kto char(10)= null,
    @Sifra_Pat smallint= null,
    @Sif_GrPat char(6)= null,
    @Sifra_Div smallint = null
As
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select A.Sifra_Oe, A.Sifra_Pat ,  P.ImePat , A.Sifra_Kup, K.ImeKup, Sum((A.Dolzi-A.Plateno_Dolzi)-(A.Pobaruva-A.Plateno_Pobar)) Saldo
                From AnFinDok A
                Left Outer Join Patnici P on A.Sifra_Pat=P.Sifra_Pat
                Left Outer Join Komint K on A.Sifra_Kup=K.Sifra_Kup
                Where A.Sifra_Za=1'
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup >= ' + @Sifra_Kup_Od + ' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Kup <= ' + @Sifra_Kup_Do + ' '
    If @Sifra_1K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Sifra_1K As Varchar(6)) + ' '
    If @Sifra_2K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo2=' + Cast(@Sifra_2K As Varchar(6)) + ' '
    If @Sifra_3K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo3=' + Cast(@Sifra_3K As Varchar(6)) + ' '
    If @Sifra_4K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo4=' + Cast(@Sifra_4K As Varchar(6)) + ' '
    If @Sifra_5K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo5=' + Cast(@Sifra_5K As Varchar(6)) + ' '
    If @Sifra_6K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo6=' + Cast(@Sifra_6K As Varchar(6)) + ' '
    If @Sifra_7K Is Not Null
                Set @SSQL = @SSQL + 'And K.KDrugo7=' + Cast(@Sifra_7K As Varchar(6)) + ' '
    If @Koi_Gradovi Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Grad In (' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Reg In (' + @Koi_Regioni + ') '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And K.TipKup=''' + @TipKup + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + 'And A.Kto=''' + @Kto + ''' '
    If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND A.Sifra_Pat =' + cast(@Sifra_Pat as varchar(5)) + ' '
   If @Sif_GrPat IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Pat In  (Select Sifra_Pat From SGrPat Where Sif_GrPat =  ''' + @Sif_GrPat + ''') '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + 'AND A.Sifra_Div=' + Cast(@Sifra_Div As Varchar(10)) + ' '
    Set @SSQL=@SSQL + 'Group By A.Sifra_Oe, A.Sifra_Pat, P.ImePat, A.Sifra_Kup, K.ImeKup'
    print(@SSQL)
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_ozfindokkart]'))
drop procedure [dbo].[sp_ozfindokkart]

Go
CREATE procedure sp_OZFinDokKart
    @Sifra_Kup char(6),
    @Kto_Anal char(10)
As
    Delete from AnZatv
    Where AnID1 in (Select AnID from AnFinDok where Sifra_Kup=@Sifra_Kup and Kto=@Kto_Anal)
    Delete from AnZatv
    Where AnID2 in (Select AnID from AnFinDok where Sifra_Kup=@Sifra_Kup and Kto=@Kto_Anal)
    Update AnFinDok set Plateno_Dolzi=0, Plateno_Pobar=0
    Where Sifra_Kup=@Sifra_kup and Kto=@Kto_Anal


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznpratenanarac]'))
drop procedure [dbo].[sp_oznpratenanarac]

Go


CREATE    PROCEDURE sp_OznPratenaNarac
    @Sifra_OE smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int
 AS
    UPDATE Naracki  SET  Prenesen = 'D'
    WHERE Sifra_OE= @Sifra_OE AND Sifra_Nar= @Sifra_Nar AND Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznprateniart]'))
drop procedure [dbo].[sp_oznprateniart]

Go
CREATE   PROCEDURE sp_OznPrateniArt
    @Sifra        varchar(20),
    @KojObj    char(1)
AS
    UPDATE KatArt SET Prenesen=RTrim(Prenesen)+@KojObj
    WHERE Sifra_art = @Sifra



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznpratenidok]'))
drop procedure [dbo].[sp_oznpratenidok]

Go


CREATE    PROCEDURE sp_OznPrateniDok
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @Sifra_Prim smallint,
    @ImaDodatna char(1),
    @Prenesen    char(1)='D'
 AS
    Declare @SSQL VArchar(2000)
    Set @SSQL = 'UPDATE Dokr SET '
    IF @Prenesen='F'
        SET @SSQL = @SSQL + 'PrenDrFirma = ''D'' '
    ELSE
        SET @SSQL = @SSQL + 'Prenesen = ''D'' '
    SET @SSQL = @SSQL + ' WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND [Sifra_Dok]=' + Cast(@Sifra_Dok As Varchar(10)) +
        ' AND [Broj_Dok]=' + Cast(@Broj_Dok As varchar(10)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'AND [Sifra_Prim]=' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @ImaDodatna Is NOt Null
        Set @SSQL = @SSQL + 'AND [ImaDodatna]=''' + @ImaDodatna + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznpratenifindok]'))
drop procedure [dbo].[sp_oznpratenifindok]

Go







CREATE         PROCEDURE sp_OznPrateniFinDok
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @KojObj        char(1),
    @Kade        char(1)
 AS
    Declare @FinPrenesen char(5)
    SET @FinPrenesen=''
    if @Kade <> 'B'
        SELECT @FinPrenesen=Prenesen FROM AnFinDok WHERE Sifra_OE=Sifra_OE
        AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok
    IF @FinPrenesen IS NULL    SET @FinPrenesen=''
    SET @FinPrenesen= @FinPrenesen+ @KojObj
    Declare @SSQL VArchar(2000)
    Set @SSQL = 'UPDATE '
    If @Kade='B'
        Set @SSQL = @SSQL + 'BrsFinDok'
    Else
        Set @SSQL = @SSQL + 'AnFinDok'
    Set @SSQL = @SSQL + ' SET Prenesen = ''' + @KojObj +
        ''' WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) +
        ' AND Broj_Dok=' + Cast(@Broj_Dok As varchar(10)) +
        ' AND PatIndex(''%'+@KojObj + '%'', Prenesen)=0 '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznpratenikobjekti]'))
drop procedure [dbo].[sp_oznpratenikobjekti]

Go


CREATE    PROCEDURE sp_OznPrateniKObjekti
    @Sifra        char(9),
    @KojObj        char(1)
AS
    Declare @Sifra_Kup char(6)
    Declare @Sifra_Obj char(3)
    SET @Sifra_Kup = Substring(@Sifra,1,6)
    SET @Sifra_Obj = Substring(@Sifra,7,3)
    UPDATE KObjekti SET Prenesen=RTrim(Prenesen)+@KojObj
    WHERE Sifra_Kup = @Sifra_Kup AND Sifra_Obj = cast(@Sifra_Obj as smallint)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznpratenikomint]'))
drop procedure [dbo].[sp_oznpratenikomint]

Go

CREATE   PROCEDURE sp_OznPrateniKomint
    @Sifra        char(6),
    @KojObj        char(1)
AS
    UPDATE Komint SET Prenesen=RTrim(Prenesen)+@KojObj
    WHERE Sifra_Kup = @Sifra




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_oznproknizenkasstav]'))
drop procedure [dbo].[sp_oznproknizenkasstav]

Go








create          PROCEDURE sp_OznProknizenKasStav
    @Broj_Dok    int,
    @Sifra_Nal    smallint,
    @P_I        char(1)
 AS
    Update kasstav set proknizen = 'D'
    where Broj_Dok = @Broj_Dok and Sifra_Nal = @Sifra_Nal and P_I = @P_I




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_paklista_mark_ispecateni]'))
drop procedure [dbo].[sp_paklista_mark_ispecateni]

Go
CREATE PROCEDURE sp_PakLista_Mark_Ispecateni
    @Sifra_Oe    smallint,
    @Broj_Pak    int,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint
AS
    Update PakLista
    Set Ispecaten = (case When Ispecaten Is Not Null Then Ispecaten+1 Else 1 End)
    Where Sifra_Oe=@Sifra_Oe And Broj_Pak=@Broj_Pak And Mesto_Pak=@Mesto_Pak And Sifra_Pak=@Sifra_Pak



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_paklista_stavki_grup]'))
drop procedure [dbo].[sp_paklista_stavki_grup]

Go
CREATE   PROCEDURE sp_PakLista_Stavki_Grup
    @Sifra_Oe    smallint,
    @Broj_Pak    int
AS
    Select Sifra_Art, BarKodPak, Sum(Kolicina) Kolicina
    From PakListaStav
    Where Sifra_Oe=@Sifra_Oe And Broj_Pak=@Broj_Pak
    Group by Sifra_Art, BarKodPak



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_paklistazapec_stavki]'))
drop procedure [dbo].[sp_paklistazapec_stavki]

Go

CREATE  PROCEDURE sp_PakListaZaPec_Stavki
    @Sifra_Oe    smallint,
    @Broj_Pak    int,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint
AS
    Select P.Sifra_Oe, P.Broj_Pak, P.Datum, P.Sifra_Kup, P.Ext_Broj, P.Vozilo, P.Broj_RabN,
               P.Mesto_Pak, P.Sifra_Pak,
        S.Sifra_Art, K.ImeArt, S.Kolicina, S.Kutija, S.Sifra_Nar, S.Broj_Nar, S.BarKodPak, S.Rbr
    From PakLista P
    Inner Join PakListaStav S On S.Sifra_Oe=P.SIfra_Oe And S.Broj_Pak=P.Broj_Pak And S.Mesto_Pak=P.Mesto_Pak And S.Sifra_Pak=P.Sifra_Pak
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Where P.Sifra_Oe=@Sifra_Oe And P.Broj_Pak=@Broj_Pak And P.Mesto_Pak=@Mesto_Pak And P.Sifra_Pak=@Sifra_Pak




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_paklistazapecatenje]'))
drop procedure [dbo].[sp_paklistazapecatenje]

Go

CREATE  PROCEDURE sp_PakListaZaPecatenje
    @Datum_Od    smalldatetime = Null,
    @Sifra_Oe    varchar(100) = Null
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select  P.Sifra_Oe, P.Broj_Pak, P.Mesto_Pak, P.Datum, P.Sifra_Kup, P.Ext_Broj, P.Vozilo, P.Broj_RabN, P.Br_Kopii, P.Sifra_Pak
            From PakLista P
            Where (P.Ispecaten Is Null Or P.Ispecaten = 0)  '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oe IN (' + @Sifra_Oe + ') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order By P.Sifra_Oe, P.Broj_Pak '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_paklistazbirnopoart]'))
drop procedure [dbo].[sp_paklistazbirnopoart]

Go

CREATE  PROCEDURE sp_PakListaZbirnoPoArt
    @Sifra_OE    smallint,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint,
    @Broj_Pak    varchar(1000)
AS
Declare @SSQL varchar(2000)
SET @SSQL='SELECT P.Sifra_Art, A.ImeArt, A.EdMera, A.ImaKomerc, A.Lokacija, A.Sifra_Tar, Round(S.NNabCena*(1+S.POsn/100),4 ) Cena, S.POsn,
SUM(P.Kolicina) Kolicina, COUNT(P.Sifra_Art) Paketi FROM PakListaStav P
INNER JOIN KatArt A ON A.Sifra_Art=P.Sifra_Art
LEFT OUTER JOIN SoArt S ON S.Sifra_Art=P.Sifra_Art AND S.Sifra_OE=' +cast(@Sifra_OE as varchar(5))+
' WHERE P.Sifra_OE='+cast(@Sifra_OE as varchar(5))+' AND P.Mesto_Pak='+cast(@Mesto_Pak as varchar(5))+' AND P.Sifra_Pak='+cast(@Sifra_Pak as varchar(5))+' AND P.Broj_Pak IN ('+ @Broj_Pak +')
GROUP BY P.Sifra_Art, A.ImeArt, A.EdMera, A.ImaKomerc, A.Lokacija, A.Sifra_Tar, S.NNabCena, S.POsn '
exec (@ssql)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_payturn]'))
drop procedure [dbo].[sp_payturn]

Go
CREATE           PROCEDURE sp_PayTurn
    @Sifra_OE Smallint,
    @KoiOE Varchar(300),
    @Pod1 Smallint,
    @Pod2 Smallint,
    @Pod3 Smallint = Null,
    @Pod4 Smallint = Null,
    @Pod5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Datum_Od Smalldatetime,
    @Datum_Do Smalldatetime,
    @Sifra_Kup_Od Char(6),
    @Sifra_Kup_Do Char(6),
    @Podred Char(1),
    @TipKup Char(11),
    @Sifra_Pat Smallint = Null,
    @KomercKako    char(1) = 'T'
AS
   Declare @SSQL Varchar(8000)
   SET @SSQL = 'SELECT A.Sifra_Kup, K.ImeKup,
          Round(Sum(A.Dolzi), 4) As Prodazba,
          Round(Sum(A.Pobaruva), 4) As Naplata,
          Month(A.Datum_Dok) As Mesec,
          Year(A.Datum_Dok) As Godina
            FROM AnFinDok A
            INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
          INNER JOIN TipDok TD ON A.Sifra_Dok=TD.Sifra_Dok AND TD.Dev=''N''
            WHERE A.Sifra_Za=''1'' '
    If @TipKup Is Not NULL
        Set @SSQL = @SSQL + 'AND K.TipKup=''' + @TipKup + ''' '
    If @Sifra_Kup_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Sifra_Kup>=''' + Cast(@Sifra_Kup_Od As Varchar(6))+ ''' '
    If @Sifra_Kup_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Sifra_Kup<=''' + Cast(@Sifra_Kup_Do As Varchar(6))+ ''' '
     If @Sifra_OE Is NOT Null
               SET @SSQL = @SSQL + 'AND A.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Pod1 Is Not NULL
        Set @SSQL = @SSQL + ' And K.KDrugo1=' + Cast(@Pod1 As Varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And K.KDrugo2=' + Cast(@Pod2 As Varchar(6)) + ' '
    If @Pod3 Is Not NULL
        Set @SSQL = @SSQL + ' And K.KDrugo3=' + Cast(@Pod3 As Varchar(6)) + ' '
    If @Pod4 Is Not NULL
        Set @SSQL = @SSQL + ' And K.KDrugo4=' + Cast(@Pod4 As Varchar(6)) + ' '
    If @Pod5 Is Not NULL
        Set @SSQL = @SSQL + ' And K.KDrugo5=' + Cast(@Pod5 As Varchar(6)) + ' '
    If @Sifra_Tip Is Not NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Pat Is Not NULL
    Begin
        If @KomercKako = 'I'
            Set @SSQL = @SSQL + ' And A.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
        Else
            Set @SSQL = @SSQL + ' And K.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(6)) + ' '
    End
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Year(A.Datum_Dok)>=' + Cast(Year(@Datum_Od) as Varchar(6)) + ' '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Month(A.Datum_Dok)>=' + Cast(Month(@Datum_Od) as Varchar(6)) + ' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Year(A.Datum_Dok)<=' + Cast(Year(@Datum_Do) as Varchar(6)) + ' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Month(A.Datum_Dok)<=' + Cast(Month(@Datum_Do) as Varchar(6)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' And A.Sifra_OE IN (' + @KoiOE + ') '
    SET @SSQL = @SSQL + 'GROUP BY A.Sifra_Kup, K.ImeKup, Month(A.Datum_Dok), Year(A.Datum_Dok) '
    If @Podred = 'S'
        SET @SSQL = @SSQL + 'ORDER BY Mesec, Godina, A.Sifra_Kup ASC '
    Else
        SET @SSQL = @SSQL + 'ORDER BY Mesec, Godina, Prodazba DESC'
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pddgiozp]'))
drop procedure [dbo].[sp_pddgiozp]

Go

CREATE   PROCEDURE sp_PDDGIOZP
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Dok    smallint,
    @KoiOe        varchar(30),
    @Sifra        char(4)
AS
CREATE TABLE #TmpOE (Sifra_OE smallint)
Declare @SSQL varchar(1000)
SET @SSQL = 'INSERT INTO #TmpOE SELECT Sifra_OE FROM OrgEd WHERE Sifra_OE IN ('+@KoiOE+')'
EXEC (@SSQL)

Create Table #Tmp
    (Danocen    char(13),
    ImeKUp     varchar(40),
    --Adresa    varchar(100),
    --KlkDok    integer,
    Sifra char(4),
    Toc200    integer--decimal(18,2)
    )


    Insert Into #Tmp (Danocen, ImeKUp, Sifra,Toc200)
    SELECT cast(K.Danocen as char(13)), cast(K.ImeKup+''+ K.Adresa +' '+K.Smesto as char(4)) Adresa, @SIfra ,dbo.fn_LevoNuli(cast(Sum(D.Toc200) as integer),8) Iznos--,Count(D.DokrID) KlkDok
    FROM Dokr D INNER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
    INNER JOIN #TmpOE O ON D.Sifra_OE=O.Sifra_OE
    WHERE D.Datum_DOK>=@Datum_Od AND D.Datum_Dok<=@Datum_Do AND D.Sifra_Dok=@Sifra_Dok
    GROUP BY K.Danocen, K.ImeKup, K.Adresa, K.Smesto

Select * from #Tmp





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_analitika]'))
drop procedure [dbo].[sp_pecat_analitika]

Go
CREATE           PROCEDURE sp_Pecat_Analitika
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Sifra_Dok        smallint = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Art        varchar(20) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Sifra_Kup        char(6) = Null,
    @Sifra_Reg        smallint = Null,
    @Sifra_Grad        smallint = Null,
    @Podred        char(1) = 'B',    -- B Broj na dokument,       K - Po ime na komintent
    @DaliZbirno        char (1) = Null    -- D - zbirno po (Komintent + objekt)
AS
    Declare @SSQL as varchar(8000)
    Create Table #Popis
    (
     Datum_Dok    smalldatetime,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Popis    smalldatetime,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Primeno     decimal(18,6),
     Popis        decimal(18,6),
     Ostaveno    decimal(18,6),
     Vrateno    decimal(18,6),
     Prodadeno    decimal(18,6),
     Cena        decimal(18,6)
    )
    Set @SSQL = ' Select P.Datum_PopisDok, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Datum_PopisDok, P.Sifra_Kup, P.Sifra_Obj, P.Kolic, P.Popis, P.Ostaveno,
                (P.Popis-P.Ostaveno) Vrateno, (Kolic-P.Popis) Prodadeno,
                (Case When P.DanCena = ''N'' Then (P.Cena*(1+P.Posn/100)) Else P.Cena End)
            From PopisDok P
            Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
            Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_kup '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_PopisDok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_PopisDok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
    If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    Insert Into #Popis Exec(@SSQL)
    If @DaliZbirno = 'D'
        Set @SSQL = ' Select Null Datum_Dok, Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, Null Datum_Popis,
            P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, Kup.Uces,
            Sum(P.Primeno*Cena) Primeno, Sum(P.Popis*P.Cena) Popis, Sum(P.Ostaveno*P.Cena) Ostaveno,
            Sum(P.Vrateno*P.Cena) Vrateno, Sum(P.Prodadeno*P.Cena) Prodadeno,
            Sum(F.Dolzi) Zadolz, Sum(F.Plateno_Dolzi) as NaplatenIznos '
    Else
        Set @SSQL = ' Select P.Datum_Dok, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Datum_Popis, P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, Kup.Uces,
            Sum(P.Primeno*Cena) Primeno, Sum(P.Popis*P.Cena) Popis, Sum(P.Ostaveno*P.Cena) Ostaveno,
            Sum(P.Vrateno*P.Cena) Vrateno, Sum(P.Prodadeno*P.Cena) Prodadeno,
            (F.Dolzi) Zadolz, (F.Plateno_Dolzi) as NaplatenIznos '
    Set @SSQL = @SSQL + ' From #Popis P
            Left Outer Join AnFinDok F On F.Sifra_Oe=P.Sifra_Oe And F.Broj_Dok=P.Broj_Dok And F.Sifra_Dok = 99
            Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=P.Sifra_Kup And KO.Sifra_Obj=P.Sifra_Obj '
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Group By P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, Kup.Uces '
    Else
        Set @SSQL = @SSQL + ' Group By P.Datum_Dok, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Datum_Popis, P.Sifra_Kup,
                    Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, Kup.Uces, (F.Dolzi), (F.Plateno_Dolzi)  '
/*    Set @SSQL = @SSQL + ' Union
            Select Null Datum_Dok, Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, Null Datum_Popis,
            F.Sifra_Kup, Kup.ImeKup, 1 Sifra_Obj, ''EUROFARM -centar1'' ImeObj, Kup.Uces,
            10000 Primeno, 0 Popis, 0 Ostaveno,
            0 Vrateno, 10000 Prodadeno,
            0 Zadolz, Sum(F.Pobaruva-F.Plateno_Pobar) as NaplatenIznos
            From AnFinDok F
            Inner Join Komint Kup On Kup.Sifra_Kup = F.Sifra_Kup
            Where F.Sifra_Kup In (Select Sifra_Kup From #Popis)
            And F.BrojDok = ''' + (Case When Month(@Datum_Od) < 10 Then '0' End) + Cast(Month(@Datum_Od) as varchar(2)) + '/' +  Cast(Year(@Datum_Od) as varchar(4)) + '''
            Group By F.Sifra_Kup, Kup.ImeKup, Kup.Uces '
*/
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup '
    Else
    Begin
        If @Podred = 'K'
            Set @SSQL = @SSQL + ' Order By Kup.ImeKup, P.Datum_Dok '
        Else If @Podred = 'B'
            Set @SSQL = @SSQL + ' Order By P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok '
    End
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_art_po_popisdok]'))
drop procedure [dbo].[sp_pecat_art_po_popisdok]

Go

CREATE    PROCEDURE sp_Pecat_Art_Po_PopisDok
    @RbrPopis     smallint,
    @Sifra_Oe     smallint,
    @Sifra_Dok     smallint,
    @Dat_PopisDok_Od smalldatetime,
    @Dat_PopisDok_Do smalldatetime,
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint = Null
AS
    If @Sifra_Obj Is Not Null
        Select Sifra_Art, Kolic, Popis, Ostaveno
        From PopisDok
        Where RbrPopis=@RbrPopis And Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok
            And Datum_PopisDok >= @Dat_PopisDok_Od And Datum_PopisDok <= @Dat_PopisDok_Do
            And Sifra_Kup=@Sifra_Kup And Sifra_Obj=@Sifra_Obj
        Order By Datum_PopisDok, Rbr
    Else
        Select Sifra_Art, Kolic, Popis, Ostaveno
        From PopisDok
        Where RbrPopis=@RbrPopis And Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok
            And Datum_PopisDok >= @Dat_PopisDok_Od And Datum_PopisDok <= @Dat_PopisDok_Do
            And Sifra_Kup=@Sifra_Kup
        Order By Datum_PopisDok, Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_izvestajprodvrat]'))
drop procedure [dbo].[sp_pecat_izvestajprodvrat]

Go

CREATE      PROCEDURE sp_Pecat_IzvestajProdVrat
    @Sifra_Oe        smallint = Null,
    @KoiOe        varchar(6) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do        varchar(20) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Sifra_Kup        char(6) = Null,
    @Sifra_Reg        smallint = Null,
    @Sifra_Grad        smallint = Null,
    @VoTojGrad        char(1) = 'D',        -- D - Komintenti koi se vo toj grad     N - Nadvor od toj grad          X - Neraspredeleni
    @OdKojaTab        char(1) = 'P',        -- P - od PopisDok        R - od RasporedIsp
    @SoDanok        char(1) = 'D'
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Create Table #Popis
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art    varchar(20),
     Kolic         decimal(18,6),
     Popis        decimal(18,6),
     Ostaveno    decimal(18,6),
     Vrateno    decimal(18,6),
     Cena        decimal(18,6)
    )
    Create Table #Konfig
    (
     Cena_1_SoDanok char(1)
    )
    Set @SSQL = 'Select Cena_1_SoDanok From Konfig '
    Insert Into #Konfig Exec(@SSQL)
    Declare @DanDogCena as char(1)
    Select @DanDogCena = Cena_1_SoDanok From #Konfig
    If @OdKojaTab = 'R'
    Begin
        Set @SSQL = ' Select S.Sifra_Kup, S.Sifra_Obj, S.Sifra_Art, Sum(S.Kolic), Null, Null, Null,
                    dbo.fn_VratiCena(K.DogCena, T.ProcOsn, ''' + @DanDogCena + ''', ''' + @SoDanok + ''')
                From RasporedIspor R
                Inner Join RasporedIspStavki S On S.RasporID=R.RasporID
                Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
                Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
                Left Outer Join Komint Kup On Kup.Sifra_Kup=S.Sifra_kup
                Left Outer Join KObjekti KO On KO.Sifra_Kup=S.Sifra_kup And KO.Sifra_Obj=S.Sifra_Obj '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg '
        Set @SSQL = @SSQL + ' Where 1=1 '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And R.Datum_Raspor >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And R.Datum_Raspor <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Reg Is Not Null
            Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
        If @Sifra_Grad Is Not Null And @VoTojGrad = 'D'
            Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
                        OR (S.Sifra_Obj Is Null and Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
        If @Sifra_Grad Is Not Null And @VoTojGrad = 'N'
             Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ')
                        OR (S.Sifra_Obj Is Null And Kup.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ' )) '
        If @VoTojGrad = 'X'  -- Neraspredeleni po Gradovi
             Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad Is Null)
                        OR (S.Sifra_Obj Is Null And Kup.Sifra_Grad Is Null)) '
--        If @Sifra_Grad Is Not Null And @VoTojGrad = 'D'
--            Set @SSQL = @SSQL + ' And Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ' '
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
        If @Sifra_Podg Is Not Null
            Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
        Set @SSQL = @SSQL + ' Group By S.Sifra_Kup, S.Sifra_Obj, S.Sifra_Art, dbo.fn_VratiCena(K.DogCena, T.ProcOsn, ''' + @DanDogCena + ''', ''' + @SoDanok + ''') '
        Insert Into #Popis Exec(@SSQL)
    End
    Else
    Begin
        Set @SSQL = ' Select P.Sifra_Kup, P.Sifra_Obj, P.Sifra_Art, Sum(P.Kolic), Sum(P.Popis), Sum(P.Ostaveno), Sum(P.Popis-P.Ostaveno) Vreteno,
                    dbo.fn_VratiCena(P.Cena, T.ProcOsn, ''' + @DanDogCena + ''', ''' + @SoDanok + ''')
                From PopisDok P
                Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
                Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
                Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_kup
                Left Outer Join KObjekti KO On KO.Sifra_Kup=P.Sifra_kup And KO.Sifra_Obj=P.Sifra_Obj '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg '
        Set @SSQL = @SSQL + ' Where 1=1 '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOE Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And P.Datum_PopisDok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And P.Datum_PopisDok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        If @Sifra_Reg Is Not Null
            Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
        If @Sifra_Grad Is Not Null And @VoTojGrad = 'D'
            Set @SSQL = @SSQL + ' And ((P.Sifra_Obj Is Not Null And KO.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
                        OR (P.Sifra_Obj Is Null and Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
        If @Sifra_Grad Is Not Null And @VoTojGrad = 'N'
             Set @SSQL = @SSQL + ' And ((P.Sifra_Obj Is Not Null And KO.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ')
                        OR (P.Sifra_Obj Is Null And Kup.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ' )) '
        If @VoTojGrad = 'X'  -- Neraspredeleni po Gradovi
             Set @SSQL = @SSQL + ' And ((P.Sifra_Obj Is Not Null And KO.Sifra_Grad Is Null)
                        OR (P.Sifra_Obj Is Null And Kup.Sifra_Grad Is Null)) '
    --    If @Sifra_Grad Is Not Null And @VoTojGrad = 'D'
    --        Set @SSQL = @SSQL + ' And Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ' '
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
        If @Sifra_Podg Is Not Null
            Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
        Set @SSQL = @SSQL + ' Group By P.Sifra_Kup, P.Sifra_Obj, P.Sifra_Art, dbo.fn_VratiCena(P.Cena, T.ProcOsn, ''' + @DanDogCena + ''', ''' + @SoDanok + ''') '
        Insert Into #Popis Exec(@SSQL)
print @SSQL
    End
    Select P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, P.Sifra_Art, K.ImeArt, P.Kolic, P.Popis, P.Ostaveno, P.Vrateno,
        Round((Case when P.Kolic <=0 Then 0 Else (P.Vrateno/P.Kolic*100) End),4) ProcVrat, P.Cena
    From #Popis P
    Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
    Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=P.Sifra_Kup And KO.Sifra_Obj=P.Sifra_Obj





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_izvprodvrat_poraspored]'))
drop procedure [dbo].[sp_pecat_izvprodvrat_poraspored]

Go
CREATE   PROCEDURE sp_Pecat_IzvProdVrat_PoRaspored
    @Sifra_Oe        smallint = Null,
    @Sifra_Nar        smallint = Null,
    @Broj_Raspored    int,
    @Sifra_Art        varchar(20) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Sifra_Kup        char(6) = Null,
    @Sifra_Reg        smallint = Null,
    @Sifra_Grad        smallint = Null,
    @VoTojGrad        char(1) = 'D'        -- D - Komintenti koi se vo toj grad     N - Nadvor od toj grad          X - Neraspredeleni
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    ---------------------------- Artikli so kolicini za Rasporeduvanje ----------------------------
    Declare @Broj_Nar_Lista varchar (50)
    Select @Broj_Nar_Lista=Broj_Nar_Lista
    From RasporedIspor
    Where Sifra_Oe = @Sifra_Oe And Sifra_Nar = @Sifra_Nar And Broj_Raspored=@Broj_Raspored
    Create Table #Art
    (
     Broj_Nar    Smallint,
     Rbr        Smallint,
     Sifra_Art    Varchar(20)
    )
    Set @SSQL = ' Insert Into #Art Select Min(Broj_Nar), Min(StaNarID), Sifra_Art
            From StaNarac
             WHERE Sifra_OE='  + cast(@Sifra_OE as varchar (5)) +
                            ' And Sifra_Nar=' + cast(@Sifra_Nar as Varchar(5)) +
                            ' And Broj_Nar in (' + @Broj_Nar_Lista + ')
                        group by Sifra_Art'
    Exec(@SSQL)
    Create Table #ZaRaspored
    (
     Sifra_Art    varchar(20),
     KolicZaRaspor    decimal(18,6)
    )
    Set @SSQL = ' SELECT S.Sifra_Art, Sum (S.Kolic) as Kolic
            FROM StaNarac S
            INNER JOIN #Art A  ON S.Sifra_Art = A.Sifra_Art
            WHERE S.Sifra_OE='  + cast(@Sifra_OE as varchar (5)) + '
            And S.Sifra_Nar=' + cast(@Sifra_Nar as Varchar(5)) + '
            And S.Broj_Nar in (' + @Broj_Nar_Lista + ')
        Group by S.Sifra_Art '
    Insert Into #ZaRaspored Exec(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Popis
    (
     Datum_Raspor    smalldatetime,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art    varchar(20),
     Kolic         decimal(18,6),
     Popis        decimal(18,6),
     Ostaveno    decimal(18,6),
     Vrateno    decimal(18,6),
     Tip_Raspored    char(1)
    )
    Set @SSQL = ' Select R.Datum_Raspor, S.Sifra_Kup, S.Sifra_Obj, S.Sifra_Art, Sum(S.Kolic), Null, Null, Null, R.Tip_Raspored
            From RasporedIspor R
            Inner Join RasporedIspStavki S On S.RasporID=R.RasporID
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Left Outer Join Komint Kup On Kup.Sifra_Kup=S.Sifra_kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=S.Sifra_kup And KO.Sifra_Obj=S.Sifra_Obj '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Nar = ' + Cast(@Sifra_Nar as varchar(6)) + ' '
    If @Broj_Raspored Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_Raspored = ' + Cast(@Broj_Raspored as varchar(6)) + ' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
    If @Sifra_Grad Is Not Null And @VoTojGrad = 'D'
        Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
                    OR (S.Sifra_Obj Is Null and Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
    If @Sifra_Grad Is Not Null And @VoTojGrad = 'N'
         Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ')
                    OR (S.Sifra_Obj Is Null And Kup.Sifra_Grad <> ' + Cast(@Sifra_Grad as varchar(6)) + ' )) '
    If @VoTojGrad = 'X'  -- Neraspredeleni po Gradovi
         Set @SSQL = @SSQL + ' And ((S.Sifra_Obj Is Not Null And KO.Sifra_Grad Is Null)
                    OR (S.Sifra_Obj Is Null And Kup.Sifra_Grad Is Null)) '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    Set @SSQL = @SSQL + ' Group By R.Datum_Raspor, S.Sifra_Kup, S.Sifra_Obj, S.Sifra_Art, R.Tip_Raspored '
    Insert Into #Popis Exec(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------
    -------------------------------------------- Rasporedeni Artikli -------------------------------------------------------
    Create Table #RasporArt
    (
     Sifra_Art    varchar(20),
     RasporKolic    decimal(18,6)
    )
    Insert Into #RasporArt Select Sifra_Art, Sum(Kolic) From #Popis Group By Sifra_Art
    ----------------------------------------------------------------------------------------------------------------------------------
    Select P.Datum_Raspor, P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, P.Sifra_Art, K.ImeArt, P.Kolic, P.Popis, P.Ostaveno, P.Vrateno,
        Round((P.Vrateno/P.Kolic*100),4) ProcVrat, Z.KolicZaRaspor, R.RasporKolic, (Z.KolicZaRaspor-R.RasporKolic) OstZaRaspor,
        A.Broj_Nar, A.Rbr, P.Tip_Raspored
    From #Popis P
    Left Outer Join #Art A On A.Sifra_Art = P.Sifra_Art
    Left Outer Join #RasporArt R On R.Sifra_Art = P.Sifra_Art
    Left Outer Join #ZaRaspored Z On Z.Sifra_Art = P.Sifra_Art
    Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
    Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=P.Sifra_Kup And KO.Sifra_Obj=P.Sifra_Obj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_popisdok_komint]'))
drop procedure [dbo].[sp_pecat_popisdok_komint]

Go



CREATE    PROCEDURE sp_Pecat_PopisDok_Komint
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Art    varchar(20)
 AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.RbrPopis, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Art, P.Rbr, P.Datum_PopisDok,
            P.Kolic, P.Popis, P.Ostaveno, P.Cena, P.DanCena, P.Posn, P.DokrId_Vrat, P.Datum_Dok,
            P.Sifra_Kup, P.Sifra_Obj, P.Uces, P.RasporID, P.TipPopisDok
        From PopisDok P
        Where P.Sifra_Kup = ' + @Sifra_Kup + ' And P.Sifra_Art = ''' + @Sifra_Art + '''
            And P.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            And P.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By P.Datum_Dok, P.Sifra_Oe, P.SifrA_Dok, P.Broj_Dok '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_popisdok_komint_2]'))
drop procedure [dbo].[sp_pecat_popisdok_komint_2]

Go


Create  PROCEDURE sp_Pecat_PopisDok_Komint_2
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Art_2    char (2)
 AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.RbrPopis, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Art, P.Rbr, P.Datum_PopisDok,
            P.Kolic, P.Popis, P.Ostaveno, P.Cena, P.DanCena, P.Posn, P.DokrId_Vrat, P.Datum_Dok,
            P.Sifra_Kup, P.Sifra_Obj, P.Uces, P.RasporID, P.TipPopisDok
        From PopisDok P
        Where P.Sifra_Kup = ' + @Sifra_Kup + ' And Substring(P.Sifra_Art, 1, 2) = ''' + @Sifra_Art_2 + '''
            And P.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            And P.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Order By P.Datum_Dok, P.Sifra_Oe, P.SifrA_Dok, P.Broj_Dok '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecat_predlozi]'))
drop procedure [dbo].[sp_pecat_predlozi]

Go




CREATE      PROCEDURE sp_Pecat_Predlozi
    @RbrPopis    smallint,
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Datum_Dok_Od    datetime,
    @Datum_Dok_Do    datetime
AS
    Select P.Broj_Dok, P.Datum_Dok, P.Sifra_Kup,
           Case When P.Sifra_Obj Is Null Then '' else cast(P.Sifra_Obj as varchar (3)) end as Sifra_Obj,
               P.Sifra_Art, substring(P.Sifra_Art,1,2) as Sifra_Art_Kratok,
               P.Kolic as Primeno, P.Popis, P.Ostaveno, P.Datum_Dok
    From PopisDok P
    Where P.RbrPopis=@RbrPopis And P.Sifra_Oe=@Sifra_Oe And P.Sifra_Dok=@Sifra_Dok
              And P.Datum_Dok >= @Datum_Dok_Od And P.Datum_Dok <= @Datum_Dok_Do
    Order By Sifra_Kup, Sifra_Obj, Sifra_Art, P.Datum_Dok        -- Kriicno e da e ovoj redosled
    Return @@ERROR
Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecati_doznaka]'))
drop procedure [dbo].[sp_pecati_doznaka]

Go
CREATE PROCEDURE sp_Pecati_Doznaka
    @Broj_Doznaka   Int
AS
    Select *
    From Doznaki
    Where Broj_Doznaka=@Broj_Doznaka



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecati_poster]'))
drop procedure [dbo].[sp_pecati_poster]

Go
CREATE     PROCEDURE sp_Pecati_Poster
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Art    varchar(20) = Null Output,
    @Tezina_Bruto    decimal(18,0) = Null Output,
    @Tezina_Neto    decimal(18,0) = Null Output,
    @Tezina_Teor    decimal(18,4) = Null Output,
    @KontrSer    varchar(25) = Null Output,
    @Nom        varchar(50) = Null Output,
    @RabNalozi    varchar(300) = Null Output
AS
    Select E.*, K.ImeArt, K.Alt_Ime2, D2.Sirina, D2.Visina, D2.DodOzn2, D3.Tezina, RN.Broj_RabN,
                   DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab, RA.ImeRab, SM.Ime_Smena, HI.Ime_Hilzna, KS.KontrSerSta
    From EvProizvod E
    Left Outer Join KatSerBrSta KS On KS.KontrSer = E.KontrSer
    Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
    Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
    Inner Join Dokr D On D.DokrID=DRN.DokrID
    Inner Join RabNal RN On RN.RabNalID=DRN.RabNalID
    Left Outer Join Rabotnik RA On RA.Sifra_Rab = DRN.Sifra_Rab
    Left Outer Join Smeni SM On SM.Sifra_Smena = DRN.Sifra_Smena
    Left Outer Join Hilzni HI On HI.Sifra_Hilzna = E.Sifra_Hilzna
    Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    Select @Sifra_Art=E.Sifra_Art, @Tezina_Bruto=Tezina_Bruto, @Tezina_Neto=Tezina_Neto,
        @Tezina_Teor=D2.Sirina*D2.Visina*D3.Tezina*E.Kolku_Edinici/10000000,
        @KontrSer=E.KontrSer, @Nom=K.Nom
    From EvProizvod E
    Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
    Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
    Inner Join Dokr D On D.DokrID=DRN.DokrID
    Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    ---------------- Po koj se rabotni nalozi se proizvedeni Tamburite koi vleguvaat vo Rolnite
    Declare @Broj_RabN as smallint
    Set @RabNalozi = ''
    Create Table #RabNal
    (
     Broj_RabN    int
    )
    Insert Into #RabNal
    Select Distinct KS.Broj_RabN
    From KatSerBr KS
    Inner Join KatSerBrSta KSS On KSS.KontrSerSta = KS.KontrSer
    Where KSS.KontrSerSta In (Select KS.KontrSerSta From EvProizvod E
                            Left Outer Join KatSerBrSta KS On KS.KontrSer = E.KontrSer
                            Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
                            Inner Join Dokr D On D.DokrID=DRN.DokrID
                            Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok)
    Declare RabN Cursor Fast_Forward For Select Broj_RabN From #RabNal
    Open RabN
    Fetch Next From RabN Into @Broj_RabN
    While @@Fetch_Status = 0
    Begin
        Set @RabNalozi = @RabNalozi + Cast(@Broj_RabN as varchar(10)) + ', '
        Fetch Next From RabN Into @Broj_RabN
    End
    Close RabN
    Deallocate RabN
    If Len(@RabNalozi) > 1
        Set @RabNalozi = Substring(@RabNalozi, 1, (Len(@RabNalozi)-1) )
    -------------------------------------------------------------------------------------------------------------------------------------



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecati_poster_tabaci]'))
drop procedure [dbo].[sp_pecati_poster_tabaci]

Go


CREATE       PROCEDURE sp_Pecati_Poster_Tabaci
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Art    varchar(20) = Null Output,
    @Tezina_Bruto    decimal(18,0) = Null Output,
    @Tezina_Neto    decimal(18,0) = Null Output,
    @Tezina_Teor    decimal(18,4) = Null Output,
    @KontrSer    varchar(25) = Null Output,
    @Nom        varchar(50) = Null Output,
    @RabNalozi    varchar(300) = Null Output
AS
    Select E.*, K.ImeArt, K.Alt_Ime2, D2.Sirina, D2.Visina, D2.DodOzn2, D3.Tezina, RN.Broj_RabN,
                   DRN.Datum_Dok, DRN.Sifra_Smena, DRN.Sifra_Rab, RA.ImeRab, SM.Ime_Smena, HI.Ime_Hilzna, Null as KontrSerSta
    From EvProizvod E
    Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
    Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
    Inner Join Dokr D On D.DokrID=DRN.DokrID
    Inner Join RabNal RN On RN.RabNalID=DRN.RabNalID
    Left Outer Join Rabotnik RA On RA.Sifra_Rab = DRN.Sifra_Rab
    Left Outer Join Smeni SM On SM.Sifra_Smena = DRN.Sifra_Smena
    Left Outer Join Hilzni HI On HI.Sifra_Hilzna = E.Sifra_Hilzna
    Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    Select @Sifra_Art=E.Sifra_Art, @Tezina_Bruto=Tezina_Bruto, @Tezina_Neto=Tezina_Neto,
        @Tezina_Teor=D2.Sirina*D2.Visina*D3.Tezina*E.Kolku_Edinici/10000000,
        @KontrSer=E.KontrSer, @Nom=K.Nom
    From EvProizvod E
    Inner Join Katart K On K.Sifra_Art = E.Sifra_Art
    Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
    Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
    Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
    Inner Join Dokr D On D.DokrID=DRN.DokrID
    Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    ---------------- Po koj se rabotni nalozi se proizvedeni Tamburite koi vleguvaat vo Rolnite
    Declare @Broj_RabN as smallint
    Set @RabNalozi = ''
    Create Table #RabNal
    (
     Broj_RabN    int
    )
    Insert Into #RabNal
    Select Distinct M.Broj_RabN
    From KatSerBr M
    Inner Join KatSerBrSta RS On RS.KontrSerSta = M.KontrSer
    Inner Join KatSerBr R On R.KontrSer = RS.KontrSer
    Inner Join KatSerBrSta TS On TS.KontrSerSta = R.KontrSer
    Where TS.KontrSerSta In (Select KS.KontrSerSta From EvProizvod E
                Left Outer Join KatSerBrSta KS On KS.KontrSer = E.KontrSer
                Inner Join DokRabNal DRN On DRN.DokrID=E.DokrID
                Inner Join Dokr D On D.DokrID=DRN.DokrID
                Where  D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok)
    Declare RabN Cursor Fast_Forward For Select Broj_RabN From #RabNal
    Open RabN
    Fetch Next From RabN Into @Broj_RabN
    While @@Fetch_Status = 0
    Begin
        Set @RabNalozi = @RabNalozi + Cast(@Broj_RabN as varchar(10)) + ', '
        Fetch Next From RabN Into @Broj_RabN
    End
    Close RabN
    Deallocate RabN
    If Len(@RabNalozi) > 1
        Set @RabNalozi = Substring(@RabNalozi, 1, (Len(@RabNalozi)-1) )
    -------------------------------------------------------------------------------------------------------------------------------------




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecati_whm_loketik]'))
drop procedure [dbo].[sp_pecati_whm_loketik]

Go

CREATE   PROCEDURE sp_Pecati_Whm_LokEtik
    @Sifra_OE     Smallint,
       @Lokac_ID    varchar(30),
        @Lokac_X        char(4),
        @Lokac_Y        char(4),
    @Lokac_Z        char(4)
 AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' SELECT * FROM WhmLokacija W Where 1=1 '
    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And W.Lokac_X = ''' + @Lokac_X + ''' '
        If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And W.Lokac_Y = ''' + @Lokac_Y + ''' '
    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And W.Lokac_Z = ''' + @Lokac_Z + ''' '
        If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + ' and W.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And W.Lokac_ID = ''' + @Lokac_ID + ''' '

        Exec (@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecatiizjava]'))
drop procedure [dbo].[sp_pecatiizjava]

Go



CREATE      procedure sp_PecatiIzjava
    @Sifra_Art varchar(20)
As
     Select V.*, K.ImeArt, K.Drugo1,KO.ImeKup,KO.Adresa, KO.Smesto, KO.Zemja, D1.Ime_1, K.Sifra_Drg, DR.Ime,
           K.Drugo2, D2.Ime_2, K.Drugo3, D3.Ime_3, K.Kto, K.Drugo4, D4.Ime_4, VZ.*,
          '' BrSasijaExt, '' BrMotorExt, 0 GodProizExt, '' Ime_3Ext, '' OpisExt,
            0 Masa_Kgr, 0 Sila_KW

    from Vozila V
    inner join Katart K on V.Sifra_Art=K.Sifra_Art
    left outer join Komint KO on K.Kto=KO.Sifra_Kup
    left outer join Drugo1 D1 on K.Drugo1= D1.Sifra_1
    left outer join Drugo2 D2 on K.Drugo2= D2.Sifra_2
    left outer join Drugo3 D3 on K.Drugo3= D3.Sifra_3
    left outer join Drugo4 D4 on K.Drugo4= D4.Sifra_4
    left outer join DrgPodel DR on K.Sifra_drg= DR. Sifra_Drg
    left outer join VozIzjava VZ on V.Sifra_Art=VZ.Sifra_Art
    Where V.Sifra_Art=@Sifra_Art










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecatiizjava_ser]'))
drop procedure [dbo].[sp_pecatiizjava_ser]

Go


CREATE   procedure sp_PecatiIzjava_Ser

    @Sifra_Art varchar(20),
    @KontrSer  varchar(30)

As

     Select V.*, K.ImeArt, K.Drugo1,KO.ImeKup,KO.Adresa, KO.Smesto, KO.Zemja, D1.Ime_1, K.Sifra_Drg, DR.Ime,
           K.Drugo2, D2.Ime_2, K.Drugo3, D3.Ime_3, K.Kto, K.Drugo4, D4.Ime_4, VZ.*,
          KS.KontrSerExt BrSasijaExt, KS.AltKontrSer BrMotorExt, KS.GodProiz GodProizExt,
        D33.Ime_3 Ime_3Ext, KS.Opis OpisExt, KS.Masa_Kgr, KS.Sila_KW
    from Vozila V
    inner join Katart K
    on V.Sifra_Art = K.Sifra_Art
    left outer Join KatSerKlas KS
    on V.SifrA_Art = KS.Sifra_Art
    left outer join Komint KO on K.Kto=KO.Sifra_Kup
    left outer join Drugo1 D1 on K.Drugo1= D1.Sifra_1
    left outer join Drugo2 D2 on K.Drugo2= D2.Sifra_2
    left outer join Drugo3 D3 on K.Drugo3= D3.Sifra_3
    left outer join Drugo3 D33 on KS.Sifra_3= D33.Sifra_3
    left outer join Drugo4 D4 on K.Drugo4= D4.Sifra_4
    left outer join DrgPodel DR on K.Sifra_drg= DR. Sifra_Drg
    left outer join VozIzjava VZ on V.Sifra_Art=VZ.Sifra_Art
    Where V.Sifra_Art = @Sifra_Art and KS.KontrSer = @KontrSer






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecatikartprom_zaupl]'))
drop procedure [dbo].[sp_pecatikartprom_zaupl]

Go



CREATE   PROCEDURE sp_PecatiKartProm_ZaUpl
    @Sifra_Mark    smallint,
    @Sifra_Oe    smallint,
    @Broj_ska    int,
    @Sifra_Nac    smallint,
    @FraUpl        char (1),
          @Sifra_Kor    varchar(20),
    @Datum_Ska    smalldatetime,
        @Dolzi        decimal(18,6) = Null Output,
        @Pobaruva    decimal(18,6) = Null Output
AS

        Select Prom.*, Kor.ImeKor, O.ImeOrg, K.ImeKup From KartProm Prom
    Left Outer Join KartKor Kor On Prom.Sifra_Kor = Kor.Sifra_kor
    Left Outer Join OrgEd O On Prom.Sifra_Oe = O.Sifra_Oe
        Left Outer Join Komint K On Prom.Sifra_Kup = K.Sifra_Kup
        Where Prom.Sifra_Mark=@Sifra_Mark and Prom.Sifra_Oe=@Sifra_Oe and Prom.Broj_ska=@Broj_Ska and Prom.Datum_Ska=@Datum_Ska
              and Prom.Sifra_Nac=@Sifra_Nac and Prom.FraUpl=@FraUpl and Prom.Sifra_Kor=@Sifra_Kor
        Select @Dolzi=Dolzi, @Pobaruva=Pobaruva  From KartProm
        Where KartProm.Sifra_Mark=@Sifra_Mark and KArtProm.Sifra_Oe=@Sifra_Oe and KArtProm.Broj_ska=@Broj_Ska and KartProm.Datum_Ska=@Datum_Ska
              and KartProm.Sifra_Nac=@Sifra_Nac and KartProm.FraUpl=@FraUpl and KartProm.Sifra_Kor=@Sifra_Kor

--Nema da vazzi ako ima razliccni Org.Ed vo KartKor (Z-Vane)
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecetik_razlceni]'))
drop procedure [dbo].[sp_pecetik_razlceni]

Go

CREATE           PROCEDURE sp_PecEtik_RazlCeni
    @Sifra_OE     Smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_Prim     smallint,
    @ImaDodatna     char(1),
    @ZgolNam    char(1) = Null
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = ' Select S.*,
            K.ImeArt, K.ImeArt2, K.EdMera, K.Sifra_Tar,
            K.ImaKomerc, K.Tezina,     Nomen = Case K.Nom When NULL Then dbo.fn_Nom(S.Sifra_Art)     Else K.Nom  End,
            T.ProcOsn, K.Cena CenaOdKatart, K.DogCena, K.MalCena,
            K.GotCena, K.SpeCena, K.Sifra_Podg, K.DeklArt
    From Stavr S
     Inner Join KatArt K ON K.Sifra_Art=S.Sifra_Art And K.SMatUsl=''M''
    Inner Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
    Where S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + '
    And S.Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + '
    And S.Broj_Dok=' + Cast(@Broj_Dok As Varchar(10)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + ' And S.ImaDodatna=''' + @ImaDodatna + ''' '
    Set @SSQL = @SSQL + ' And S.Sifra_Art In (Select Sifra_Art From RazlCeni
                             Where Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + '
                             And Orig_Dok=' + Cast(@Sifra_Dok As Varchar(10)) + '
                               And Orig_Broj=' + Cast(@Broj_Dok As Varchar(10)) + '
                             And Sifra_Razl In (902, 903)'
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + ' And Orig_Prim =' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @ImaDodatna Is Not Null
        Set @SSQL = @SSQL + ' And Orig_ImaDod =''' + @ImaDodatna + ''' '
    If @ZgolNam = 'Z'
                     Set @SSQL = @SSQL + ' And PocCena < KrCena '
    If @ZgolNam = 'N'
                     Set @SSQL = @SSQL + ' And PocCena > KrCena '
    Set @SSQL = @SSQL + ' )
    Order By S.Sifra_Art '
    Exec(@SSQL)
/*
    R.Sifra_Razl, R.Sifra_OE, R.Orig_Dok, R.Orig_Broj, R.Sifra_Art, K.ImeArt, K.ImeArt2, K.Edmera, K.ImaKomerc,
                K.DogCena, K.MalCena, K.GotCena, K.SpeCena,
             Nomen =
             Case Nom
                When NULL Then dbo.fn_Nom(R.Sifra_Art)
                Else K.Nom
             End,
             R.Datum_dok, Round(R.Kolic, 4) Kolic,  R.POsn ProcOsn, R.PTar,
            Round(dbo.fn_VratiCena(R.PocCena, R.POsn, R.DanPocCena, ''D''), 4) as PocetnaCena,
            Round(dbo.fn_VratiCena(R.KrCena, R.POsn, R.DanKrCena, ''D''), 4) as MagCena
    From RazlCeni R
     Inner Join KatArt K ON R.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
    Where R.Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' And R.Orig_Dok = ' + Cast(@Orig_Dok as varchar(6)) + ' And R.Orig_Broj = ' + Cast(@Orig_Broj as varchar(10)) + ' '
    If @Orig_Prim Is Not Null
        Set @SSQL  = @SSQL + 'And R.OrigPrim = ' + Cast(@Orig_Prim As Varchar(5)) + ' '
    If @ZgolNam = 'Z'
                     Set @SSQL = @SSQL + 'And R.PocCena < R.KrCena '
    If @ZgolNam = 'N'
                     Set @SSQL = @SSQL + 'And R.PocCena > R.KrCena '
*/




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecfaktura]'))
drop procedure [dbo].[sp_pecfaktura]

Go


CREATE      PROCEDURE [dbo].[sp_PecFaktura]
    @Godina    smallint,
    @Faktura_Br    char(6),
    @Sifra_PodrSluzba char(4)='' OUTPUT,
    @ImePodrSluzba nchar(40)='' OUTPUT,
    @Datum_Fra smalldatetime=NULL OUTPUT,
    @Mesec_Fra    smallint=0 OUTPUT,
    @Str_Drzava char(3)='' OUTPUT,
    @Ime_Drzava nvarchar(100)='' OUTPUT
AS

    SELECT @Sifra_PodrSluzba =F.Sifra_PodrSluzba_Fakt, @ImePodrSluzba=P.ImePodrSluzba, @Datum_Fra=F.Datum_Fra, @Mesec_Fra=F.Mesec_Fra,
           @Str_Drzava=F.Str_Drzava, @Ime_Drzava=D.Ime_Drzava
    FROM Faktura F
    INNER JOIN PodracniSluzbi P ON F.Sifra_PodrSluzba_Fakt=P.Sifra_PodrSluzba
    LEFT OUTER JOIN Drzava D ON D.Str_Drzava=F.Str_Drzava
    WHERE F.Godina_Fra=@Godina AND F.Faktura_Br=@Faktura_Br

    SELECT R.Sifra_Art, L.ImeArt, R.Rangiran, R.BezPartic, Sum(R.Naplat_Partic) Naplat_Partic, COUNT(R.Sifra_Art) BrRecepti, Round(SUM(R.Kolku_Pakuv), 4) Kolku_Pakuv, Round(SUM(R.Kolku_Kolic), 4) Kolku_Kolic,
    Round(R.Cena_Tender, 4) Cena_Tender, Round(SUM(R.Iznos_Tender), 4) Iznos_Tender, Round(SUM(R.Iznos_Marza), 4) Iznos_Marza, Round(SUM(R.Osnov_DDV), 4) Osnov_DDV,
    Round(SUM(R.Iznos_Na_DDV), 4) Iznos_Na_DDV, Round(SUM(R.Iznos_So_DDV), 4) Iznos_So_DDV,
    Round(SUM(R.Iznos_Partic), 4) Iznos_Partic,
    Round(SUM(R.Naplat_Partic), 4) Napl_Partic,
    L.Alt_Ime
    FROM Recepti R INNER JOIN Faktura F ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br
    INNER JOIN Katart L ON R.Sifra_Art=L.Sifra_Art
    WHERE F.Godina_Fra=@Godina AND F.Faktura_Br=@Faktura_Br
    GROUP BY R.Sifra_Art, L.ImeArt, R.Rangiran, R.Cena_Tender, R.BezPartic, L.Alt_Ime








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pecspeccendog]'))
drop procedure [dbo].[sp_pecspeccendog]

Go






CREATE       procedure sp_PecSpecCenDog
    @Sifra_Kup char(6) =null,
    @TipKup varchar(11) =null,
    @DogBr char(10)
As

    Declare @SSQL Varchar(8000)
    SET @SSQL = 'Select (Case When S.Sifra_Kup=''999000'' then null else S.Sifra_Kup end) Sifra_Kup,
                (Case When S.TipKup=''ALL'' then null else S.TipKup end) TipKup,S.DogBr,
                 S.Sifra_Art,S.Rbr,S.Cena,S.DanCena,S.Uces,S.Kolic_Dog,S.AktivenSta,S.Opis_Cena,
                 C.*,P.ImePat, A.ImeArt,  K.ImeKup, K.Adresa, K.Smesto, K.Posta, K.Zemja, K.Telefon, G.ImeTipKUp, A.Edmera
                 From CenDogSta S
                 inner join CenDog C on S.Sifra_kup=C.Sifra_Kup and S.TipKup= C.TipKup and S.DogBr=C.DogBr
                 left outer join Komint K on S.Sifra_Kup=K.Sifra_kup
                 left outer join Patnici P on C.Sifra_Pat=P.Sifra_Pat
                 inner join Katart A on S.Sifra_Art= A.Sifra_Art
                 inner join GtipKup G on S.TipKup=G.TipKup
                 Where S.DogBr='+ Cast (@DogBr as char(10))+' '
    If @Sifra_Kup Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Sifra_Kup=' + Cast(@Sifra_kup As Varchar(6))  + ' '
    Else
        Set @SSQL = @SSQL + ' And S.Sifra_Kup = ''999000'' '
    If @TipKup Is NOT Null
         SET @SSQL = @SSQL + 'AND S.TipKup=''' + Cast(@TipKup As Varchar(11))  + ''' '
    Else
        Set @SSQL = @SSQL + ' And S.TipKup =''ALL '' '

SET @SSQL = @SSQL + ' Order by C.PocDatum,S.Sifra_Kup, S.TipKup, S.DogBr, S.Sifra_Art'
print @ssql
EXEC(@SSQL)
--on (Case When S.Sifra_Kup Is Not Null Then S.Sifra_kup Else ''%%%'' End)=
--(Case When C.Sifra_Kup Is Not Null Then C.Sifra_kup Else ''%%%'' End)
--And (Case When S.TipKup Is Not Null Then S.TipKup Else ''%%%'' End)=
-- (Case When C.TipKup Is Not Null Then C.TipKup Else ''%%%'' End)
-- and S.DogBr=C.DogBr









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_plan]'))
drop procedure [dbo].[sp_plan]

Go

CREATE      PROCEDURE sp_Plan
    @Godina    smallint=null,
    @Mesec    varchar(200) = Null, --smallint=null,
    @Sifra_Art    varchar(20)=null,
    @Podred    char(1)='S',
    @KoiOe    varchar(200),
    @ImePlan    varchar(10)
AS
    Create Table #Artikli
    (
    Sifra_art        varchar(20),
    RbrVoPlan    smallint,
    Sifra_Podg    char(6)
    )
    Insert Into #Artikli
    Select Distinct PM.Sifra_Art, PM.RbrVoPlan, K.Sifra_Podg
    From PlanMes PM
    Inner Join Katart K On K.Sifra_art = PM.Sifra_Art
    Where PM.ImePlan=@ImePlan
    Create Table #Podgrupi
    (
    Sifra_Podg    char(6),
    RbrPodg    smallint,
    )
    Insert Into #Podgrupi
    Select Distinct Sifra_Podg, Min(RbrVoPlan)
    From #Artikli
    Group By Sifra_Podg
--select * from     #Podgrupi
    Declare @SSQL As Varchar(4000)
    Set @SSQL='Select P.RbrVoPlan, P.Sifra_Oe, P.Godina, P.Mesec, P.Sifra_Art, K.ImeArt, K.Nom, P.Plan_Kol, P.Plan_Proc, P.Plan_Cena,
            K.DogCena, (Plan_Kol * K.DogCena) as Plan_Vrednost, P.ImePlan, K.Sifra_Podg, R.RbrPodg, PG.Ime_Podg, K.ImaKomerc, K.KolkuDrg
            From PlanMes P
            Inner Join Katart K On K.Sifra_art=P.Sifra_art
            Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
            Left Outer Join #Podgrupi R On R.Sifra_Podg=K.Sifra_Podg
            Where 1=1 '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And P.Godina = ' + cast(@Godina as varchar(4)) + ' '
--    If @Mesec Is Not Null
--        Set @SSQL=@SSQL+ ' And P.Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And P.Mesec IN (' + @Mesec + ') '
    If @Sifra_Art Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_art = ''' + @Sifra_art + ''' '
    If @KoiOe Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_Oe In (' + @KoiOe + ') '
    If @ImePlan Is Not Null
        Set @SSQl =@SSQl + ' And P.ImePlan = ''' + @ImePlan + ''' '
    If @Podred Is Null
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.Sifra_art '
    Else If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Imeart '
    Else
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
Print @SSQL
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_plan_pvo_isporaka]'))
drop procedure [dbo].[sp_plan_pvo_isporaka]

Go
CREATE PROCEDURE sp_Plan_Pvo_Isporaka
    @Sifra_Kup    char(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Den        smallint = 1,              -- od 1 do 10
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null
As
    Declare @SSQL as Varchar(4000)
    Set @SSQL = ' Select P.Sifra_Kup, Kup.ImeKup, P.Sifra_Art, K.ImeArt, '
    If @Den = 1
        Set @SSQL = @SSQL + ' P.Den1 Kolic '
    Else If @Den = 2
        Set @SSQL = @SSQL + ' P.Den2 Kolic '
    Else If @Den = 3
        Set @SSQL = @SSQL + ' P.Den3 Kolic '
    Else If @Den = 4
        Set @SSQL = @SSQL + ' P.Den4 Kolic '
    Else If @Den = 5
        Set @SSQL = @SSQL + ' P.Den5 Kolic '
    Else If @Den = 6
        Set @SSQL = @SSQL + ' P.Den6 Kolic '
    Else If @Den = 7
        Set @SSQL = @SSQL + ' P.Den7 Kolic '
    Else If @Den = 8
        Set @SSQL = @SSQL + ' P.Den8 Kolic '
    Else If @Den = 9
        Set @SSQL = @SSQL + ' P.Den9 Kolic '
    Else If @Den = 10
        Set @SSQL = @SSQL + ' P.Den10 Kolic '
    Set @SSQL = @SSQL + ' From PlanPer P
                Inner Join Katart K On K.Sifra_art = P.Sifra_art
                Inner Join Komint Kup On Kup.Sifra_Kup = P.Sifra_Kup
                Inner Join Podgrupi Pod On Pod.Sifra_Podg = K.Sifra_Podg
                Where 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And Pod.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
Print @SSQL
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_plan_realiz_ponedeli]'))
drop procedure [dbo].[sp_plan_realiz_ponedeli]

Go
CREATE    PROCEDURE sp_Plan_Realiz_PoNedeli
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(200) = Null,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Gr varChar(6) = Null,
    @Sifra_Podg Char(6) = Null,
    @APod1 Smallint = Null,
    @APod2 Smallint = Null,
    @APod3 Smallint = Null,
    @APod4 Smallint = Null,
    @APod5 Smallint = Null,
    @Kto Char(6) = Null,
    @Lokacija Varchar(10) = Null,
    @Sifra_Brand Smallint = Null,
    @KPod1 Smallint = Null,
    @KPod2 Smallint = Null,
    @KPod3 Smallint = Null,
    @KPod4 Smallint = Null,
    @KPod5 Smallint = Null,
    @Koi_Gradovi varchar(200) = Null,
    @Koi_Regioni varchar(200) = Null,
    @TipKup Char(11) = Null,
    @Sifra_Nivo Char(2) = Null,
    @Sifra_Tip Smallint = Null,
    @Sifra_Kup_Od Char(6) = Null,
    @Sifra_Kup_Do Char(6) = Null,
    @TipDokProd    VarChar(300) = Null
--    @RabDenMes Smallint = Null OUTPUT,
--    @RabDenPer Smallint = Null OUTPUT
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Declare @SSQLGr as varchar(1000)
    Set @SSQLUsl = ' '
    Set @SSQLGr = ' '
--  Planirani kolicini
    Create  Table #Plan
    (
     Sifra_Oe    smallint,
     Godina        smallint,
     Mesec        smallint,
     Sifra_Art    varchar(20),
     Planirano    decimal(18,6)
    )
    Set @SSQL = ' INSERT INTO #Plan
            Select S.Sifra_Oe, S.Godina, S.Mesec, S.Sifra_Art, S.Plan_Kol
            From PlanMes S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
            Where 1=1 '
    If  @Datum_Od Is Not Null
    Begin
        Set @SSQL = @SSQL + ' And S.Godina >= ' + Cast(Year(@Datum_Od) as Varchar(4)) + '
                    And S.Mesec >=' + Cast(Month(@Datum_Od) as Varchar(2)) + ' '
    End
    If  @Datum_Do Is Not Null
    Begin
        Set @SSQL = @SSQL + ' And S.Godina <= ' + Cast(Year(@Datum_Do) as Varchar(4)) + '
                    And S.Mesec <=' + Cast(Month(@Datum_Do) as Varchar(2)) + ' '
    End
    If @APod1 Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And K.Drugo1=' + Cast(@APod1 As Varchar(5)) + ' '
    If @APod2 Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And K.Drugo2=' + Cast(@APod2 As Varchar(5)) + ' '
    If @APod3 Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And K.Drugo3=' + Cast(@APod3 As Varchar(5)) + ' '
    If @APod4 Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And K.Drugo4=' + Cast(@APod4 As Varchar(5)) + ' '
    If @APod5 Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And K.Drugo5=' + Cast(@APod5 As Varchar(5)) + ' '
    If @Lokacija Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Lokacija=''' + @Lokacija + ''' '
    If @Kto Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto=' + @Kto + ' '
    If @Sifra_Brand Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And K.Sifra_Drg=''' + Cast(@Sifra_Brand As Varchar(5)) + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And PG.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Sifra_Art_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_OE Is Not NULL
        Set @SSQLUsl  = @SSQLUsl + ' And S.Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_OE IN (' + @KoiOE + ') '
print @SSQL+@SSQLUsl
    Exec (@SSQL+@SSQLUsl)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Prodazba - Gi zema samo onie artikli koi sto se pojavuvaat vo planot (ako artiklot go nema vo planot go isklucuva)
    Create Table #Prod
    (
     Sifra_Oe    smallint,
     Godina        smallint,
     Mesec        smallint,
     Nedela     smallint,
     Sifra_Art    varchar(20),
     Prodazba    decimal(18,6)
    )
    Set @SSQL = 'Insert Into #Prod Select S.Sifra_Oe, Year(S.Datum_Dok) as Godina, Month(S.Datum_Dok) as Mesec, DatePart(wk, S.Datum_Dok) as Nedela,
                S.Sifra_Art, Round(Sum(S.Kolic), 4) Ostv_Kol
        From Stavr S
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Inner Join Katart K On K.Sifra_art = S.Sifra_art
        Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
        Left Outer Join Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
        Left Outer Join KObjekti KO ON D.Sifra_obj=KO.Sifra_obj and D.Sifra_kup=KO.Sifra_kup
        Where S.VlIzl = ''I'' and S.Sifra_art in (Select Distinct Sifra_Art From #Plan) '
-- @SSQLUsl - go dopolnuvame uslovot so filtrite za komintenti i dokumenti
    If @KPod1 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@KPod1 As Varchar(6)) + ')) '
           End
    If @KPod2 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@KPod2 As Varchar(6)) + ')) '
           End
    If @KPod3 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@KPod3 As Varchar(6)) + ')) '
           End
    If @KPod4 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@KPod4 As Varchar(6)) + ')) '
           End
    If @KPod5 Is Not NULL
           Begin
        Set @SSQLUsl = @SSQLUsl + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@KPod5 As Varchar(6)) + ')) '
           End
    If @TipKup Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.TipKup=''' + @TipKup + ''' '
    If @Sifra_Tip Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(6)) + ' '
    If @Sifra_Nivo Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And KUP.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    If @Sifra_Kup_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup>=' + Cast(@Sifra_Kup_Od As Varchar(6)) + ' '
    If @Sifra_Kup_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Kup<=' + Cast(@Sifra_Kup_Do As Varchar(6)) + ' '
    If @TipDokProd is not null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok >=''' + Cast(@Datum_Od As Varchar(35))+ ''' '
    If @Datum_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35))+ ''' '
    Set @SSQLGr = ' Group By S.Sifra_Oe, Year(S.Datum_Dok), Month(S.Datum_Dok), DatePart(wk, S.Datum_Dok), S.Sifra_Art '
print @SSQL+@SSQLUsl+@SSQLGr
    Exec (@SSQL+@SSQLUsl+@SSQLGr)
    Declare @MinNedela as smallint
    Set @MinNedela = (Select Min(Nedela) From #Prod)
    Set @MinNedela=@MinNedela-1
    Update #Prod Set Nedela = Nedela - @MinNedela Where Nedela Is Not Null
--select * from #plan
--select * from #Prod
-- Ova nemat mnogu logika
    Create Table #AvgPlan
    (
     Sifra_Oe    smallint,
     Godina        smallint,
     Mesec        smallint,
     Sifra_Art    varchar(20),
     BrNedeli    decimal(9,2)
    )
    Insert Into #AvgPlan
    Select PL.Sifra_Oe, PL.Godina, PL.Mesec, PL.Sifra_Art, Count(P.Nedela)
    From #Plan PL
    Left Outer Join #Prod P on P.Sifra_Oe=PL.Sifra_Oe And P.Godina=PL.Godina And P.Mesec=PL.Mesec And P.Sifra_Art=PL.Sifra_Art
    Group By PL.Sifra_Oe, PL.Godina, PL.Mesec, PL.Sifra_Art
    Update #AvgPlan Set BrNedeli=1 Where BrNedeli=0
-------------------------------------------------------------
--    Select * from #AvgPlan
    Select PL.Sifra_Oe, O.ImeOrg, PL.Godina, PL.Mesec, P.Nedela, PL.Sifra_Art, K.ImeArt,
        P.Prodazba, (P.Prodazba*K.KolkuDrg) ProdSSU,
        (PL.Planirano/A.BrNedeli) Planirano, (PL.Planirano/A.BrNedeli*K.KolkuDrg) PlanSSU,
        K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, K.Drugo3, D3.Ime_3
    From #Plan PL
    Left Outer Join #Prod P on P.Sifra_Oe=PL.Sifra_Oe And P.Godina=Pl.Godina And P.Mesec=PL.Mesec And P.Sifra_Art=PL.Sifra_Art
    Left Outer Join #AvgPlan A on A.Sifra_Oe=PL.Sifra_Oe And A.Godina=Pl.Godina And A.Mesec=PL.Mesec And A.Sifra_Art=PL.Sifra_Art
    Inner Join Katart K On K.Sifra_Art = PL.Sifra_Art
    Inner Join Podgrupi PG On PG.Sifra_Podg=K.Sifra_Podg
    Inner Join Grupi G On G.Sifra_Gr=PG.Sifra_Gr
    Left Outer Join Drugo3 D3 On D3.Sifra_3=K.Drugo3
    Left Outer Join Orged O On O.Sifra_Oe=PL.Sifra_Oe
--------------------------------------------------------------------------------------------------------------------------------------------------------------
/*    Declare @DatOd as smalldatetime
    Declare @DatDo as smalldatetime
    Declare @NerabDenPer smallint
    Declare @NerabDenMes smallint
------------ Nerabotni denovi vo periodot
    Set @NerabDenPer = 0        -- za pocetok 0 nerabotni denovi
    Set @DatOd=@Datum_Od     -- go postavuvame pocetniot datum
    While @DatOd <= @Datum_Do    -- ciklus dodeka ne dojdeme do krajniot datum
    Begin
        If (Select datepart(dw, @DatOd)) =  1        -- ako denot e nedela
            Set @NerabDenPer=@NerabDenPer+1
    Set @DatOd=@DatOd+1
    End
    Set @RabDenPer = DateDiff(Day, @Datum_Od, @Datum_Do)-@NerabDenPer+1
-------------------------------------------------------------------------------------------------------------------------------------------------------------
------------- Nerabotni denovi vo mesecot
    Set @NerabDenMes = 0        -- za pocetok 0 nerabotni denovi
    Set @DatOd=@Datum_Od     -- go postavuvame pocetniot datum
    Declare @Godina as Smallint
    Declare @Mesec as Smallint
    Set @Godina = Year(@Datum_Do)
    Set @Mesec = Month(@Datum_Do) + 1
    If @Mesec = 13
    Begin
        Set @Mesec= 1
        Set @Godina = @Godina + 1
    End
    Set @DatDo=dbo.fn_VratiDatumOd(@Godina, @Mesec)
    Set @DatDo = @DatDo - 1
    While @DatOd <= @DatDo    -- ciklus dodeka ne dojdeme do krajniot datum vo mesecot
    Begin
        If (Select datepart(dw, @DatOd)) =  1        -- ako denot e nedela
            Set @NerabDenMes=@NerabDenMes+1
    Set @DatOd=@DatOd+1
    End
    Set @RabDenMes = DateDiff(Day, @Datum_Od, @DatDo)-@NerabDenMes+1
-------------------------------------------------------------------------------------------------------------------------------------------------------------
*/



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_plan_realiz_rabat]'))
drop procedure [dbo].[sp_plan_realiz_rabat]

Go
CREATE  PROCEDURE sp_Plan_Realiz_Rabat
    @Godina    Smallint = Null,
    @Datum_Od    Smalldatetime = Null,
    @Datum_Do    Smalldatetime = Null,
    @Sifra_OE    varchar(200) = NULL,
    @Sifra_Podg    varchar(200) = NULL,
    @Sifra_Gr    varchar(200) = NULL,
    @Kto        varchar(200) = NULL,
    @Sifra_Brand    varchar(200) = NULL,
    @SoDanok    Char(1) = 'D',
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @ImePlan    varchar(10) = Null
AS
    Declare @SSQL Varchar(8000)
    Declare @SSQL1 Varchar(8000)
    Declare @SSQLGroup Varchar(500)
    Declare @DatOd as smalldatetime
    Declare @DatDo as smalldatetime
    Set @SSQL1 = ''
    Set @SSQLGroup = ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not NULL
           Set @SSQL1 = @SSQL1 + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
    If @Sifra_Gr Is Not NULL
            Set @SSQL1 = @SSQL1 + 'And PG.Sifra_Gr IN (' + @Sifra_Gr  + ') '
    If @Kto Is Not NULL
            Set @SSQL1 = @SSQL1 + 'And K.Kto IN (' + @Kto  + ') '
    If @Sifra_Brand Is Not NULL
            Set @SSQL1 = @SSQL1 + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
/*    Create Table #Godplan
    (
     Sifra_Art    varchar(20),
     Godina        smallint,
     Kolic        decimal(18,4)
    )
    Insert Into #GodPlan
*/
    Create Table #Prod
    (
    Godina        smallint,
    Sifra_Art    varchar(20),
    Plan_Kol    decimal(18,4),
    Plan_Kol_VoKgr    decimal(18,4),
    Cena        decimal(18,4),
    VrednostPoCen    decimal(18,4),
    Ostv_Kol    decimal(18,4),
    Realiz_Vrednost    decimal(18,6),
    Pros_Rabat    decimal(18,4),
    Vred_Rabat    decimal(18,4)
    )
                        -- Raboti samo dokolku cenite za artiklite vo soart se isti za site Organizacioni edinici
    Set @SSQL = ' Insert Into #Prod  Select P.Godina, P.Sifra_Art, sum(P.Plan_Kol) as Plan_Kol, sum(P.Plan_Kol*K.Tezina/1000) as Plan_Kol_VoKgr, S.Cena,
            sum(P.Plan_Kol*S.Cena) as VrednostPoCen,
                0 as Ostv_Kol, 0 as Realiz_Vrednost, 0 as Pros_Rabat, 0 as Vred_Rabat
             From  PlanMes P
            Inner Join Katart K On K.Sifra_Art = P.Sifra_art
            Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
            Inner Join Soart S On S.Sifra_art = P.Sifra_art
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe In ('+ @Sifra_Oe + ') '
    If @ImePlan Is Not Null
        Set @SSQL = @SSQL + ' And P.ImePlan = ''' + @ImePlan + ''' '
    If @Godina Is Not Null
        Set @SSQL = @SSQL + ' and P.Godina = ' + cast(@Godina as varchar(4)) + ' '
    Set @SSQLGroup = @SSQLGroup + ' Group By  P.Godina, P.Sifra_Art, S.Cena '
    Exec(@SSQL + @SSQL1 + @SSQLGroup)
--select * from #prod
--Round(Sum(dbo.fn_VratiVredIzl (S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, '''+@SoDanok+''')), 4) as Realiz_Vrednost,
    Set @SSQL = 'INSERT INTO #Prod   Select Year(S.Datum_Dok) as Godina, S.Sifra_Art As Sifra_Art, 0 as Plan_Kol,
        0 as Plan_Kol_VoKgr, 0 as Cena, 0 as VrednostPoCen,
        Round(Sum(S.Kolic), 4) Ostv_Kol,
        Round(Sum(dbo.fn_vr_osnov  (S.Kolic, S.DokCena, S.DanDokCena, S.POsn)), 4) As  Realiz_Vrednost,
        0 as Pros_Rabat,
        Round(Sum(dbo.fn_VratiRabatBezDDV(S.Kolic, S.DokCena, S.DanDokCena, S.POsn, S.Uces)), 4) As Vr_Rabat
        From Stavr S
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Inner Join Katart K On K.Sifra_art = S.Sifra_art
        Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
        Where S.VlIzl = ''I'' and S.Sifra_art in (Select Distinct Sifra_Art From #Prod) '
--    If @Godina Is Not null
--        Set @SSQL = @SSQL + ' And Year(D.Datum_Dok) = ' + cast(@Godina as varchar(4)) + ' '
    If @Datum_Od Is Not null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
            Set @SSQL = @SSQL + 'And S.Sifra_OE IN (' + @Sifra_OE  + ') '
    Set @SSQLGroup = ' Group By Year(S.Datum_Dok), S.Sifra_Art '
    EXEC(@SSQL+@SSQL1+@SSQLGroup)
    Set @SSQL = ' Select P.Sifra_Art, K.ImeArt, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, SO.Cena,
        Sum(P.Plan_Kol) Plan_Kol, Sum(P.Plan_Kol_VoKgr) Plan_Kol_VoKgr,  Sum(P.VrednostPoCen) VrednostPoCen,
        Sum(P.Ostv_Kol) Ostv_Kol, Sum(P.Realiz_Vrednost) Realiz_Vrednost,
        Sum(P.Vred_Rabat) Vred_Rabat
        From #Prod P
        Inner Join Katart K On K.Sifra_Art = P.Sifra_art
        Inner Join Soart SO On SO.Sifra_art = K.Sifra_art
        Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
        Inner Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
        Where (P.Plan_Kol <> 0 Or P.Ostv_Kol <> 0) '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And So.Sifra_Oe In (' + @Sifra_Oe + ') '
    Set @SSQL = @SSQL + ' Group By  P.Sifra_Art, K.ImeArt, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, SO.Cena
        Order By P.Sifra_Art '
-- Vo Reportot da se presmeta
-- Procentot na rabat = (Vred_Rabat / Realiz_Vrednost * 100)
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_plan_surovini]'))
drop procedure [dbo].[sp_plan_surovini]

Go
CREATE PROCEDURE sp_Plan_Surovini
    @Sifra_Oe    Smallint,
    @ImePlan    Varchar(10),
    @Godina    Smallint
AS
    Select P.Sifra_art, K.ImeArt, P.Plan_Kol, S.Sifra_Sur, A.ImeArt ImeSur, (P.Plan_Kol*S.Ima_Kolic) as PotrebnoSur
    From PlanMes P
    Left Outer Join Katart K On K.Sifra_art = P.Sifra_art
    Left Outer Join Sostav S On S.Sifra_art = P.Sifra_art
    Left Outer Join Katart A On A.Sifra_art = S.Sifra_Sur
    Where P.Sifra_Oe=cast(@Sifra_Oe as varchar(5))
    and P.ImePlan = @ImePlan
    and P.Godina = cast(@Godina as varchar(4))




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_planpodel]'))
drop procedure [dbo].[sp_planpodel]

Go



create         PROCEDURE sp_PlanPodel
    @Godina    smallint=null,
    @Mesec    varchar(200) = Null, --smallint=null,
    @Sifra_Art    varchar(20)=null,
    @Podred    char(1)='S',
    @KoiOe    varchar(200),
    @ImePlan    varchar(10)
AS
    Declare @SSQL As Varchar(4000)
    Set @SSQL='Select P.RbrVoPlan, P.Sifra_Oe, P.Godina, P.Mesec, P.Sifra_podel, K.Ime_KHier Ime_Podel, P.Plan_Kol, P.Plan_Proc, P.Plan_Cena,
           P.ImePlan
                   From PlanMesPodel P
           Inner Join Kathier K On K.Sifra_KHier=P.Sifra_podel
                   Where 1=1 '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And P.Godina = ' + cast(@Godina as varchar(4)) + ' '
--    If @Mesec Is Not Null
--        Set @SSQL=@SSQL+ ' And P.Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And P.Mesec IN (' + @Mesec + ') '
    If @KoiOe Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_Oe In (' + @KoiOe + ') '
    If @ImePlan Is Not Null
        Set @SSQl =@SSQl + ' And P.ImePlan = ''' + @ImePlan + ''' '
    If @Podred Is Null
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.Sifra_podel '
    Else If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Imeart '
    Else
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
Print @SSQL
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_planpomes]'))
drop procedure [dbo].[sp_planpomes]

Go
CREATE PROCEDURE sp_PlanPoMes
    @Sifra_OEPlan    smallint,
    @Datum_Od    smalldatetime=NULL,
    @Datum_Do    smalldatetime=NULL,
    @Period    smallint,    -- Ovde Vnesi  7, 10 ili 15
    @BrPeriodi    smallint,     -- Ovde Vnesi (4 ili 5) , 3 ili 2
    @KoiOe    varchar(200)=NULL,
    @Sifra_Art_Od    varchar(20)=NULL,
    @Sifra_Art_Do    varchar(20)=NULL,
    @Sifra_Gr    varchar(6)=NULL,
    @Sifra_Podg    char(6)=NULL,
    @Sifra_Brand    smallint=NULL,
    @Komint    char(6)=NULL,
    @RazbijSostav    char(1)='N',
    @Podred    char(1)=NULL,
    @ImePlan    varchar(10),
    @Prikazi     char(1) = 'K'    -- K - Kolicina    B- Brend Kolicina
As
    Declare @SSQL as varchar(8000)
    Create Table #Periodi
    (
     Period smallint
     )
    Create Table #Meseci
    (
     Mesec varchar(2)
     )
    Declare @I as smallInt
    Declare @MesecOd smallint
    Declare @MesecDo smallint
    Declare @Godina smallint
    Set @I=1
    Set @MesecOd = Month(@Datum_Od)
    Set @MesecDo = Month(@Datum_Do)
    Set @Godina = Year(@Datum_Od)
    WHILE @MesecOd <= @MesecDo
    BEGIN
              Insert into #Meseci Select @MesecOd
        SET @MesecOd = @MesecOd+1
    END
    WHILE @I<=@BrPeriodi
    BEGIN
              Insert into #Periodi Select @I
              SET @I=@I+1
    END
-------------------------------------------------------------------------------------------------------------------------------------------------
    CREATE    Table #tSostav
    (    Sifra_Art    varchar(20),
        Sifra_Sur    varchar(20),
        Ima_Kolic    Decimal(18,6),
        Cena        Decimal(18,6),
        VkCena        Decimal(18,6)
    )
    If @RazbijSostav = 'D'
        Begin
            Set @SSQL = 'Insert #tSostav
                    Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena  From Sostav S
                    Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
            Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
            Exec(@SSQL)
        End
    Set @SSQL = 'Insert #tSostav
        Select K.Sifra_Art, K.Sifra_Art, 1, 1, 1
        From Katart K '
    Set @SSQL = @SSQL + 'Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL)
    --Select * from #tsostav
-------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #Plan
    (
    RbrVoPlan    smallint,
    RbrPodg    smallint,
    Sifra_Podg    char(6),
    Sifra_Art    varchar(20),
    Godina        smallint,
    Mesec        smallint,
    Period        smallint,
    PlanVkup    decimal(18,6),
    PlanKol        decimal(18,6),
    RealizKol    decimal(18,6),
    MesRealiz    decimal(18,6)
    )
    Create Table #Plan1
    (
    RbrVoPlan    smallint,
    ImePlan        varchar(10),
    Sifra_Oe    smallint,
    Sifra_Art    varchar(20),
    Sifra_Podg    Char(6)
    )
    Set @SSQL =' Insert Into #Plan1 Select PM.RbrVoPlan, PM.ImePlan, PM.Sifra_Oe, PM.Sifra_Art, K.Sifra_Podg
            From PlanMes PM
            Inner Join Katart K On K.Sifra_art = PM.Sifra_Art
            Where 1=1 '
    If @Sifra_art_Od Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Art >= ' + @Sifra_art_Od + ' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Art <= ' + @Sifra_art_Do + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Oe =' + cast(@Sifra_OEPlan as varchar(5)) + ' '
    Set @SSQL = @SSQL + ' And PM.Godina In (''' + cast(year(@Datum_Od) as varchar(4)) +''',''' + cast(Year(@Datum_Do) as Varchar(4)) + ''') '
    If @ImePlan Is Not Null
        Set @SSQL = @SSQL + ' And PM.ImePlan = ''' +@ImePlan + ''' '
--If Sifra PM.Sifra_Art >= @Sifra_Art_Od and PM.Sifra_Art <= @Sifra_Art_Do and PM.Sifra_Oe In (@KoiOe) and PM.Godina In (cast(year(@Datum_Od) as varchar(4)), cast(Year(@Datum_Do) as Varchar(4)))
    Print @SSQL
    Exec (@SSQL)
     Insert Into #Plan Select PM.RbrVoPlan, 0 as RbrPodg, PM.Sifra_podg, PM.Sifra_Art, @Godina , M.Mesec, P.Period,  Sum(0) as PlanVkup, Sum(0) as PlanKol ,Sum(0) as RezlizKol, Sum(0) as MesRealiz
            From #Plan1 PM, #Meseci M, #Periodi P
--            Where PM.Sifra_Art > @Sifra_Art_Od and PM.Sifra_Art < @Sifra_Art_Do and PM.Sifra_Oe In (@KoiOe)
            Group By PM.RbrVoPlan, PM.Sifra_podg, PM.ImePlan, PM.Sifra_Oe, PM.Sifra_Art, M.Mesec, P.Period
    Update #Plan
    Set PlanKol = (PlanMes.Plan_Kol/@BrPeriodi), PlanVkup = PlanMes.Plan_Kol
    From PlanMes
    Where #Plan.RbrVoPlan=PlanMes.RbrVoPlan and #Plan.Sifra_art=PlanMes.Sifra_Art and #Plan.Godina=PlanMes.Godina
         and #Plan.Mesec=PlanMes.Mesec  and PlanMes.ImePlan=@ImePlan
    Create Table #Podgrupi
    (
    Sifra_Podg    char(6),
    RbrPodg    smallint
    )
    Insert Into #Podgrupi
    Select Distinct Sifra_Podg, Min(RbrVoPlan)
    From #Plan
    Group By Sifra_Podg
    Update #Plan
    Set #Plan.RbrPodg=#Podgrupi.RbrPodg
    From #Podgrupi
    Where #Plan.Sifra_Podg=#Podgrupi.Sifra_Podg
    Create Table #Realizacija
    (
    Sifra_Art    varchar(20),
    Godina        smallint,
    Mesec        smallint,
    Period        Smallint,
    RealizKol    decimal(18,6)
    )
    Set @SSQL = '   Insert Into #Realizacija Select S.Sifra_Art, Year(S.Datum_Dok) as Godina, Month(S.Datum_Dok) as Mesec,
            dbo.fn_VratiPeriod(S.Datum_Dok, ' + cast(@Period as varchar(2))+ ',' + cast(@BrPeriodi as varchar(2)) + ') as Period, '
    If @Prikazi = 'B'
        Set @SSQL = @SSQL + ' Sum(S.Kolic * (Case When K.KolkuDrg <> 0 Then K.KolkuDrg Else 1 End)) '
    Else
        Set @SSQL = @SSQL + ' Sum(S.Kolic)  '
    Set @SSQL = @SSQL + ' From Stavr S
            Inner Join Dokr D On D.DokrID=S.DokrID
            Inner Join Katart K on K.Sifra_art = S.Sifra_art
            Inner Join Podgrupi P on P.Sifra_Podg = K.Sifra_Podg
            Inner join Grupi G On G.Sifra_Gr = P.Sifra_Gr
            Where    S.VlIzl ='''+ 'I' +''' '+ ' and D.Sifra_Za=1 and S.Datum_Dok >=''' + cast(@Datum_Od as varchar(35)) + ''' ' + ' and S.Datum_Dok <=''' + cast(@Datum_Do as varchar(35)) + '''
            And S.sifra_art in (select distinct sifra_art from #Plan) '
    If @Sifra_art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ' + @Sifra_art_Od + ' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ' + @Sifra_art_Do + ' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe In (' + @KoiOe + ') '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Komint is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ' + @Komint + ' '
    Set @SSQL =@SSQL + ' Group By S.Sifra_Art, Year(S.Datum_Dok), Month(S.Datum_Dok),
            dbo.fn_VratiPeriod(S.Datum_Dok, ' + cast(@Period as varchar(2))+ ',' + cast(@BrPeriodi as varchar(2)) + ') '
    Exec(@SSQL)
    Update #Plan
    Set #Plan.RealizKol=#Realizacija.RealizKol
    From #Realizacija
    Where #Plan.Sifra_Art=#Realizacija.Sifra_art and #Plan.Godina=#Realizacija.Godina  And #Plan.Mesec=#Realizacija.Mesec and #Plan.Period=#Realizacija.Period
    Create Table #SumRealiz
    (
    Sifra_art    varchar(20),
    Godina    smallint,
    Mesec    smallint,
    VkReal    decimal(18,6)
    )
    Insert Into #SumRealiz Select  Sifra_art, Godina, Mesec, Sum(RealizKol)
    From #Realizacija
    Group By Sifra_Art, Godina, Mesec
    Update #Plan
    Set #Plan.MesRealiz=#SumRealiz.VkReal
    From #SumRealiz
    Where #Plan.Sifra_Art=#SumRealiz.Sifra_art and #Plan.Godina=#SumRealiz.Godina  And #Plan.Mesec=#SumRealiz.Mesec
    Set @SSQL = ' Select P.RbrVoPlan, P.Sifra_Art, K.ImeArt, K.Nom, P.RbrPodg, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, P.Godina, P.Mesec, P.Period,
             Sum(P.PlanVkup) PlanVkup, Sum(P.PlanKol) as PlanKol, Sum(P.RealizKol) as RealizKol, P.MesRealiz
    From #Plan P
    Inner Join Katart K on K.Sifra_art = P.Sifra_art
    Inner Join Podgrupi PG on PG.Sifra_Podg = K.Sifra_Podg
    Inner join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
    Where 1=1 '
    If @Sifra_art_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art >= ' + @Sifra_art_Od + ' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art <= ' + @Sifra_art_Do + ' '
--    If @KoiOe Is Not Null
--        Set @SSQL = @SSQL + ' And P.Sifra_Oe In (' + @KoiOe + ') '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Komint is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ' + @Komint + ' '
    Set @SSQL = @SSQL + ' Group By   P.RbrVoPlan, P.Sifra_Art, K.ImeArt, K.Nom, K.Sifra_Podg, P.RbrPodg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, P.Godina, P.Mesec, P.Period, P.MesRealiz '
    If @Podred Is Null
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.Sifra_art '
    Else If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Imeart '
    Else
        Set @SSQL = @SSQL + ' Order By P.RbrVoPlan '
    EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_planrealizacija]'))
drop procedure [dbo].[sp_planrealizacija]

Go
CREATE   PROCEDURE sp_PlanRealizacija
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @Sifra_OE    varchar(200) = NULL,
    @Sifra_Podg    varchar(200) = NULL,
    @Sifra_Gr    varchar(200) = NULL,
    @Kto        varchar(200) = NULL,
    @Sifra_Brand    varchar(200) = NULL,
    @SoDanok    Char(1) = 'D',
    @RazbijSostav    Char(1) = 'N',
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null
AS
    CREATE    Table #tSostav
    (    Sifra_Art    varchar(20),
        Sifra_Sur    varchar(20),
        Ima_Kolic    Decimal(18,6),
        Cena        Decimal(18,6),
        VkCena        Decimal(18,6)
    )
    Declare @SSQL Varchar(8000)
    Declare @SSQL1 Varchar(8000)
    Declare @DatOd as smalldatetime
    Declare @DatDo as smalldatetime
    Set @SSQL1 = ''
    If @Sifra_Art_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not NULL
               Set @SSQL1 = @SSQL1 + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
    If @Sifra_Gr Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
    If @Kto Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And K.Kto IN (' + @Kto  + ') '
    If @Sifra_Brand Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
    If @RazbijSostav = 'D'
    Begin
        Set @SSQL = 'Insert #tSostav
        Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena From Sostav S
        Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' '
    EXEC(@SSQL + @SSQL1)
    End
    Set @SSQL = 'Insert #tSostav
    Select K.Sifra_Art, K.Sifra_Art,1, 1, 1
    From Katart K '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL+@SSQL1)
    Create Table #Prod
    (
    Godina        smallint,
    Mesec        smallint,
    Sifra_Art    varchar(20),
    Plan_Kol    decimal(18,4),
    Ostv_Kol    decimal(18,4),
    Plan_Proc    decimal(6,2),
    Plan_Cena    decimal(12,4),
--    DogCena    decimal(12,4),
    Plan_Vrednost    decimal(18,6),
    Realiz_Vrednost    decimal(18,6)
    )
    Insert Into #Prod  Select 0 as Godina, 0 as Mesec, S.Sifra_Art as Sifra_Art, 0 as Plan_Kol, 0 as Ostv_Kol, 0 as Plan_Pros, 0 as Plan_Cena, 0 as Plan_Vrednost, 0 as Plan_Realizacija
         from #tSostav S
    Set @SSQL = 'INSERT INTO #Prod     Select Year(S.Datum_Dok) as Godina, Month(S.Datum_Dok) As Mesec, S.Sifra_Art As Sifra_Art, 0 as Plan_Kol,
        Round(Sum(S.Kolic), 4) Ostv_Kol, 0 as Plan_Proc, 0 as Plan_Cena, 0 as Plan_Vrednost,
        Round(Sum(dbo.fn_VratiVredIzl (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, '''+@SoDanok+''')), 4) as Realiz_Vrednost
        From #tSostav TS
        Inner Join Stavr S ON TS.Sifra_Art=S.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Where S.VlIzl = ''I'' And
        (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''')  '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
            Set @SSQL = @SSQL + 'And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art,  Year(S.Datum_Dok), Month(S.Datum_Dok), S.DokCena '
    EXEC(@SSQL)
    Set @SSQL='Insert Into #Prod  Select P.Godina, P.Mesec, P.Sifra_Art, P.Plan_Kol, 0 as Ostv_Kol, P.Plan_Proc, P.Plan_Cena,
            (P.Plan_Kol * K.DogCena) as Plan_Vrednost, 0 as REaliz_Vrednost
            From PlanMes P
            Inner Join Katart K On K.Sifra_art=P.Sifra_art '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL+ ' And dbo.fn_VratiDatumOd(P.Godina, P.Mesec) >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL+ ' And dbo.fn_VratiDatumOd(P.Godina, P.Mesec) <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr IN (' + @Sifra_Gr  + ') '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto IN (' + @Kto  + ') '
    If @Sifra_Brand Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
    If @Sifra_OE Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_OE = ''' + cast(@Sifra_OE as varchar(6)) + ''' '
print @SSql
Exec(@SSQL)
    Select P.Sifra_Art, K.ImeArt, P.Godina, P.Mesec, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr,
        Sum(P.Plan_Kol) Plan_Kol, Sum(P.Ostv_Kol) Realiz_Kol, Sum(P.Plan_Vrednost) Plan_Vrednost, Sum(P.Realiz_Vrednost) Realiz_Vrednost
        From #Prod P
        Inner Join Katart K On K.Sifra_Art = P.Sifra_art
        Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
        Inner Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
        Where P.Plan_Kol <> 0 Or P.Ostv_Kol <> 0
        Group By   P.Godina, P.Mesec, P.Sifra_Art, K.Imeart, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr
        Order By P.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_planrealizacija_poperiodi]'))
drop procedure [dbo].[sp_planrealizacija_poperiodi]

Go
CREATE   PROCEDURE sp_PlanRealizacija_PoPeriodi
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @Sifra_OE    varchar(200) = NULL,
    @Sifra_Podg    varchar(200) = NULL,
    @Sifra_Gr    varchar(200) = NULL,
    @Kto        varchar(200) = NULL,
    @Sifra_Brand    varchar(200) = NULL,
    @SoDanok    Char(1) = 'D',
    @RazbijSostav    Char(1) = 'N',
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Denovi    smallint
AS
    CREATE    Table #tSostav
    (    Sifra_Art    varchar(20),
        Sifra_Sur    varchar(20),
        Ima_Kolic    Decimal(18,6),
        Cena        Decimal(18,6),
        VkCena        Decimal(18,6)
    )
    Declare @SSQL Varchar(8000)
    Declare @SSQL1 Varchar(8000)
    Set @SSQL1 = ''
    If @Sifra_Art_Od Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL1 = @SSQL1 + 'And K.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not NULL
               Set @SSQL1 = @SSQL1 + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
    If @Sifra_Gr Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
    If @Kto Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And K.Kto IN (' + @Kto  + ') '
    If @Sifra_Brand Is Not NULL
                Set @SSQL1 = @SSQL1 + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
    If @RazbijSostav = 'D'
    Begin
        Set @SSQL = 'Insert #tSostav
        Select S.Sifra_Art, S.Sifra_Sur, S.Ima_Kolic, S.Cena, S.VkCena From Sostav S
        Inner Join Katart K On S.Sifra_Art=K.Sifra_Art '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' '
    EXEC(@SSQL + @SSQL1)
    End
    Set @SSQL = 'Insert #tSostav
    Select K.Sifra_Art, K.Sifra_Art,1, 1, 1
    From Katart K '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    Set @SSQL = @SSQL + ' Where K.Iskluci <> ''D'' '
    If @RazbijSostav = 'D'
        Set @SSQL = @SSQL + 'And K.Sifra_Art Not In (Select Distinct Sifra_Art From Sostav) '
    Exec(@SSQL+@SSQL1)
    Create Table #Prod
    (
    Godina        smallint,
    Mesec        smallint,
    Dekada        smallint,
    Sifra_Art    varchar(20),
    Plan_Kol    decimal(18,4),
    Ostv_Kol    decimal(18,4),
    Plan_Proc    decimal(6,2),
    Plan_Cena    decimal(12,4),
--    DogCena    decimal(12,4),
    Plan_Vrednost    decimal(18,6),
    Realiz_Vrednost    decimal(18,6)
    )
    Insert Into #Prod  Select 0 as Godina, 0 as Mesec, 0 as Dekada, S.Sifra_Art as Sifra_Art, 0 as Plan_Kol, 0 as Ostv_Kol, 0 as Plan_Pros, 0 as Plan_Cena, 0 as Plan_Vrednost, 0 as Plan_Realizacija
         from #tSostav S
    Set @SSQL = 'INSERT INTO #Prod     Select Year(S.Datum_Dok) as Godina, Month(S.Datum_Dok) As Mesec,
                        dbo.fn_dekada(''' + Cast(@Datum_Od As Varchar(30)) + ''', ' + 'S.Datum_Dok, ' + Cast(@Denovi As Varchar(3)) + ') As Dekada,
                         S.Sifra_Art As Sifra_Art, 0 as Plan_Kol,
        Round(Sum(S.Kolic), 4) Ostv_Kol, 0 as Plan_Proc, 0 as Plan_Cena, 0 as Plan_Vrednost,
        Round(Sum(dbo.fn_VratiVredIzl (S.Kolic*TS.Ima_Kolic, S.DokCena*TS.Cena/TS.VkCena, S.DanDokCena, S.POsn, S.Uces, D.Kasa, '''+@SoDanok+''')), 4) as Realiz_Vrednost
        From #tSostav TS
        Inner Join Stavr S ON TS.Sifra_Art=S.Sifra_Art
        Inner Join Dokr D ON S.DokrID=D.DokrID And D.Sifra_Za=1
        Where S.VlIzl = ''I'' And
        (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''')  '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_OE Is Not NULL
            Set @SSQL = @SSQL + 'And S.Sifra_OE  IN (' + @Sifra_OE  + ') '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art,  Year(S.Datum_Dok), Month(S.Datum_Dok), dbo.fn_dekada(''' + Cast(@Datum_Od As Varchar(30)) + ''', ' + 'S.Datum_Dok, ' + Cast(@Denovi As Varchar(3)) + '),   S.DokCena 'print @SSQL
    EXEC(@SSQL)
print @SSQl
    Set @SSQL='Insert Into #Prod  Select P.Godina, P.Mesec, 0 as Dekada, P.Sifra_Art, P.Plan_Kol, 0 as Ostv_Kol, P.Plan_Proc, P.Plan_Cena,
            (P.Plan_Kol * K.DogCena) as Plan_Vrednost, 0 as REaliz_Vrednost
            From PlanMes P
            Inner Join Katart K On K.Sifra_art=P.Sifra_art '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + ' Inner Join Podgrupi PG ON K.Sifra_Podg=PG.Sifra_Podg '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL+ ' And dbo.fn_VratiDatumOd(P.Godina, P.Mesec) >= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL+ ' And dbo.fn_VratiDatumOd(P.Godina, P.Mesec) <= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
    If @Sifra_Gr Is Not NULL
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr IN (' + @Sifra_Gr  + ') '
    If @Kto Is Not NULL
        Set @SSQL = @SSQL + 'And K.Kto IN (' + @Kto  + ') '
    If @Sifra_Brand Is Not NULL
        Set @SSQL = @SSQL + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
    If @Sifra_OE Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_OE In (' + @Sifra_OE + ') '
--select * from #prod where dekada <> 0
Exec(@SSQL)
    Select P.Sifra_Art, K.ImeArt, P.Godina, P.Mesec, P.Dekada, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr,
        Sum(P.Plan_Kol) Plan_Kol, Sum(P.Ostv_Kol) Realiz_Kol, Sum(P.Plan_Vrednost) Plan_Vrednost, Sum(P.Realiz_Vrednost) Realiz_Vrednost
        From #Prod P
        Inner Join Katart K On K.Sifra_Art = P.Sifra_art
        Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
        Inner Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
        Where P.Plan_Kol <> 0 Or P.Ostv_Kol <> 0
        Group By   P.Godina, P.Mesec, P.Sifra_Art, P.Dekada, K.Imeart, K.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr
        Order By P.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_planvoperiod]'))
drop procedure [dbo].[sp_planvoperiod]

Go
CREATE         PROCEDURE sp_PlanVoPeriod
    @Sifra_OEPlan    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Period    smallint,    -- Ovde Vnesi  7, 10 ili 15
    @BrPeriodi    smallint,     -- Ovde Vnesi (4 ili 5) , 3 ili 2
    @KoiOe    varchar(200),
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Sifra_Gr    varchar(6),
    @Sifra_Podg    char(6),
    @Sifra_Brand    smallint,
    @Komint    char(6),
    @Podred    char(1),
    @ImePlan    varchar(10),
    @NedelenMes    char(1) = 'N'            -- M Mesecen        N-Nedelen
AS
    Declare @SSQL as Varchar(4000)
    Declare @Godina as varchar(4)
    Declare @Mesec as Varchar(2)
    Set @Godina =Year(@Datum_Od)
    Set @Mesec =Month(@Datum_Do)
    Create Table #Artikli
(
     Sifra_art        varchar(20),
    Godina        smallint,
    Mesec        smallint,
    Sifra_Podg    char(6),
    RbrVoPlan    smallint,
    RbrPodg    smallint,
    Plan_Kol    decimal(18,6),
    Plan_KolMes    decimal(18,6),
    Realiz_Kol    decimal(18,6),
    Zaliha        decimal(18,6)
)
    Set @SSQL= ' Insert Into #Artikli Select  PM.Sifra_Art, PM.Godina, PM.Mesec, K.Sifra_Podg, PM.RbrVoPlan, 0 as RbrPodg,
            (PM.Plan_Kol/' + cast(@BrPeriodi as varchar(2)) + ') as Plan_Kol, PM.Plan_Kol as Plan_KolMes, 0, 0
            From PlanMes PM
            Left outer Join Katart K On K.Sifra_art = PM.Sifra_art
            Inner Join Podgrupi PG on PG.Sifra_Podg = K.Sifra_Podg
            Inner join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
            Where PM.Godina = '+ @Godina + ' and PM.Mesec = ' + @Mesec + ' '
    If @Sifra_art_Od Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Art >= ' + @Sifra_art_Od + ' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Art <= ' + @Sifra_art_Do + ' '
    If @Sifra_OePlan Is Not Null
        Set @SSQL = @SSQL + ' And PM.Sifra_Oe = ' + cast(@Sifra_OePlan as varchar(6)) + ' ' --In (' + @KoiOe + ') '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Komint is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ' + @Komint + ' '
    If @ImePlan is Not Null
        Set @SSQL = @SSQL + ' And PM.ImePlan = ''' + @ImePlan + ''' '
--Print @SSQL
    EXEC (@SSQL)
    Create Table #Podgrupi
    (
    Sifra_Podg    char(6),
    RbrPodg    smallint,
    )
    Insert Into #Podgrupi
    Select Distinct Sifra_Podg, Min(RbrVoPlan)
    From #Artikli
    Group By Sifra_Podg
    Update #Artikli
    Set #Artikli.RbrPodg=#Podgrupi.RbrPodg
    From #Podgrupi
    Where #Artikli.Sifra_Podg = #Podgrupi.Sifra_Podg
    Create Table #Realizacija
    (
    Sifra_Art    varchar(20),
    Godina        smallint,
    Mesec        smallint,
    RealizKol    decimal(18,6)
    )
    Set @SSQL = ' Insert Into #Realizacija Select S.Sifra_Art, Year(S.Datum_Dok) as Godina, '
    If @NedelenMes = 'N'
        Set @SSQL = @SSQL + ' ' + cast(@Mesec as varchar(2)) +', '
    Else
        Set @SSQL = @SSQL + ' Month(S.Datum_Dok) as Mesec, '
    Set @SSQL = @SSQL + ' Sum(S.Kolic) as RezlizKol
            From Stavr S
            Inner Join Dokr D On D.DokrID=S.DokrID
            Inner Join Katart K On K.Sifra_art = S.Sifra_art
            Inner Join Podgrupi PG on PG.Sifra_Podg = K.Sifra_Podg
            Inner Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr
            Where S.Vlizl =' +'''I''' + ' and D.Sifra_Za=1 and S.Datum_Dok >=''' + cast(@Datum_Od as varchar(35)) + ''' ' +
            ' and S.Datum_Dok <=''' + cast(@Datum_Do as varchar(35)) + '''
            and S.Sifra_art In (Select Distinct Sifra_art From #Artikli) '
    If @Sifra_art_Od Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_art_Od + ''' '
    If @Sifra_art_Do Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_art_Do + ''' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_OE In (' + @KoiOe + ') '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg=''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And PG.Sifra_Gr=''' + @Sifra_Gr + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ' '
    If @Komint is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ' + @Komint + ' '
    If @NedelenMes = 'N'
        Set @SSQL = @SSQL + ' Group By S.Sifra_art, YEAR(S.Datum_Dok) '
    Else
        Set @SSQL = @SSQL + ' Group By S.Sifra_art, YEAR(S.Datum_Dok), MONTH(S.Datum_Dok) '
--Print @SSQL
Exec(@SSQL)
--select * FROM #Realizacija
--select * FROM #Artikli
    Set @SSQL = 'Select S.Sifra_Art,
        Vlez = Sum(Case S.VlIzl
                When ''V'' Then S.Kolic
                When ''I'' Then 0
            End),
        Izlez = Sum(Case S.VlIzl
                When ''V'' Then 0
                When ''I'' Then S.Kolic
            End)
        From Stavr S
        Inner Join Katart K On S.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'Inner Join Podgrupi PG On K.Sifra_Podg=PG.Sifra_Podg '
    Set @SSQL = @SSQL + 'Where Datum_Dok<= ''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art>=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art<=''' + @Sifra_Art_Do + ''' '
    If @KoiOe Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_OE In (' + @KoiOe +  ') '
    If @Komint Is Not Null
             Set @SSQL=@SSQL + 'And K.Kto='''+ @Komint +''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Podg=' + @Sifra_Podg + ' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + 'And PG.Sifra_Gr=' + @Sifra_Gr + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL = @SSQL + 'And K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(8)) + ' '
--        Set @SSQL = @SSQL + ' and S.Sifra_art In (Select Distinct Sifra_art From #Artikli) '
    Set @SSQL = @SSQL + 'Group By  S.Sifra_Art '
    Create Table #Zaliha
    (    Sifra_Art Varchar(20),
        Vlez Decimal(18,6),
        Izlez Decimal(18,6)
    )
--Print @SSQL
    Insert #Zaliha Exec(@SSQL)
--select * from #zaliha
    Update #Artikli
    Set #Artikli.Zaliha=(#Zaliha.Vlez-#Zaliha.Izlez)
    From #Zaliha
    Where #Artikli.Sifra_art=#Zaliha.Sifra_art
    Update #Artikli
    Set #Artikli.Realiz_Kol=#Realizacija.RealizKol
    From #Realizacija
    Where #Artikli.Sifra_art=#Realizacija.Sifra_art and #Artikli.Godina=#Realizacija.Godina
    AND #Artikli.Mesec=#Realizacija.Mesec
--    Where #Plan.Sifra_Oe=#Zaliha.Sifra_Oe and #Plan.Sifra_art=#Zaliha.Sifra_art
--select * from #Artikli
    Set @SSQL = ' Select A.Sifra_art,  K.Imeart, K.Nom, A.Sifra_Podg, PG.Ime_Podg, PG.Sifra_gr, G.Ime_Gr, A.RbrVoPlan, A.RbrPodg, A.Plan_Kol Planirano,
             A.Plan_KolMes MesecenPlan, A.Realiz_Kol Realizacija,  A.Zaliha, K.KolkuDrg
            From #Artikli A
            Inner Join Katart K On K.Sifra_art =A.Sifra_art
            Inner Join Podgrupi PG on PG.Sifra_Podg = K.Sifra_Podg
            Inner join Grupi G On G.Sifra_Gr = PG.Sifra_Gr '
    If @Podred Is Null
        Set @SSQL = @SSQL + ' Order By A.RbrVoPlan '
    Else If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By A.Sifra_art '
    Else If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By A.RbrVoPlan '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Imeart '
    Else
        Set @SSQL = @SSQL + ' Order By A.RbrVoPlan '
    Print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pocsost_osnsred]'))
drop procedure [dbo].[sp_pocsost_osnsred]

Go

CREATE  PROCEDURE sp_PocSost_OsnSred
    @Godina    smallint,        -- mora da se vnese
    @Inv_BrojOd    char(10) = Null,
    @Inv_BrojDo    char(10) = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_Amor    char(3) = Null,
    @podred    char(1) = 'S',    -- S - Sifra      A-Ime
    @OS_SI    char(1) = 'O'        -- O - Osnovni Sredstva     S - Siten Inventar
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.Inv_Broj, O.Ime, P.Godina, P.Osn_Amor, P.Otpis_Pret, O.Sifra_MikLok, MikL.Ime_MikLok, O.Sifra_Amor, P.Kto_Anal, O.Sifra_Rab, R.ImeRab
            From PocSostOsn P
            Left Outer Join MikroLok MikL On MikL.Sifra_MikLok = P.Sifra_MikLok
            Left Outer Join MakroLok MakL On MakL.Sifra_MakLok = MikL.Sifra_MakLok
            Inner Join OsnSred O On O.Inv_Broj=P.Inv_Broj
            Left Outer Join Rabotnik R On R.Sifra_Rab=O.Sifra_Rab
            Where P.Godina = ' + Cast(@Godina as varchar(10)) + ' '
    If @Sifra_Amor Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_Amor = ''' + @Sifra_Amor + ''' '
    If @Sifra_MikLok Is Not Null
        Set @SSQL = @SSQL + ' And O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
    If @Sifra_MakLok Is Not Null
        Set @SSQL = @SSQL + ' And MikL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_Lok Is Not Null
        Set @SSQL = @SSQL + ' And MakL.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Inv_BrojOd Is Not Null
        Set @SSQL = @SSQL + ' And P.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not Null
        Set @SSQL = @SSQL + ' And P.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    If @OS_SI = 'O'
        Set @SSQL = @SSQL + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQL = @SSQL + ' And O.Tip = ''SI'' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.Inv_Broj '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By O.Ime '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pocsostfinnadat]'))
drop procedure [dbo].[sp_pocsostfinnadat]

Go


CREATE    PROCEDURE sp_PocSostFinNaDat
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime
AS
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 Dolzi        decimal(18,2),
 Pobaruva    decimal(18,2),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2) )
INSERT INTO #TmpPocSost (Sifra_Kup, Dolzi, Pobaruva) SELECT Sifra_Kup, Sum(Dolzi), Sum(Pobaruva) FROM AnFinDok
WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup
CREATE TABLE #TmpPlat
(Sifra_Kup    char(6),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2) )
/*INSERT INTO #TmpPlat (Sifra_Kup, Plat_Dolzi)
SELECT F.Sifra_Kup, SUM(Case When ((Z.Iznos>0 AND F.Dolzi>0) OR (Z.Iznos<0 AND F.Dolzi<0)) Then Z.Iznos Else Z.Iznos * -1 End )
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F.Dolzi<>0 AND
Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup
INSERT INTO #TmpPlat (Sifra_Kup, Plat_Dolzi)
SELECT F.Sifra_Kup, SUM(Case When ((Z.Iznos>0 AND F.Dolzi>0) OR (Z.Iznos<0 AND F.Dolzi<0)) Then Z.Iznos Else Z.Iznos * -1 End )
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID2=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F.Dolzi<>0 AND
Z.AnID1 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup
INSERT INTO #TmpPlat (Sifra_Kup, Plat_Pobaruva)
SELECT F.Sifra_Kup, SUM(Case When ((Z.Iznos>0 AND F.Pobaruva>0) OR (Z.Iznos<0 AND F.Pobaruva<0)) Then Z.Iznos Else Z.Iznos * -1 End )
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F.Pobaruva<>0 AND
Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup
INSERT INTO #TmpPlat (Sifra_Kup, Plat_Pobaruva)
SELECT F.Sifra_Kup, SUM(Case When ((Z.Iznos>0 AND F.Pobaruva>0) OR (Z.Iznos<0 AND F.Pobaruva<0)) Then Z.Iznos Else Z.Iznos * -1 End )
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID2=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F.Pobaruva<>0 AND
Z.AnID1 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup  */
--NE VAKA (vo 2008 zaglavuva IN)     INSERT INTO #TmpPlat (Sifra_Kup, Plat_Dolzi, Plat_Pobaruva)
--SELECT F.Sifra_Kup, SUM(Case When F.Dolzi>0 OR F.Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Pobaruva>0 OR F.Dolzi<0 Then abs(Z.Iznos) Else 0 End)
--FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
--WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND
--Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
--GROUP BY F.Sifra_Kup

INSERT INTO #TmpPlat (Sifra_Kup, Plat_Dolzi, Plat_Pobaruva)
SELECT F.Sifra_Kup, SUM(Case When F.Dolzi>0 OR F.Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Pobaruva>0 OR F.Dolzi<0 Then abs(Z.Iznos) Else 0 End)
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
INNER JOIN AnFinDok F1 ON Z.AnID2=F1.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F1.Sifra_Za=@Sifra_Za AND F1.Kto=@Kto AND F1.Datum_Dok>@Datum_Do
GROUP BY F.Sifra_Kup
--Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)

INSERT INTO #TmpPlat (Sifra_Kup, Plat_Dolzi, Plat_Pobaruva)
SELECT F.Sifra_Kup, SUM(Case When F.Dolzi>0 OR F.Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Pobaruva>0 OR F.Dolzi<0 Then abs(Z.Iznos) Else 0 End)
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID2=F.AnID
INNER JOIN AnFinDok F1 ON Z.AnID1=F1.AnId
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND F1.Sifra_Za=@Sifra_Za AND F1.Kto=@Kto AND F1.Datum_Dok>@Datum_Do
GROUP BY F.Sifra_Kup
--Z.AnID1 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)


CREATE TABLE #TmpPlatSum
(Sifra_Kup    char(6),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2) )
INSERT INTO #TmpPlatSum SELECT Sifra_Kup, Sum(Plat_Dolzi), Sum(Plat_Pobaruva) FROM #TmpPlat GROUP BY Sifra_Kup
UPDATE #TmpPocSost SET  Plat_Dolzi = P.Plat_Dolzi, Plat_Pobaruva = P.Plat_Pobaruva FROM #TmpPlatSum P
WHERE #TmpPocSost.Sifra_Kup = P.Sifra_Kup
SELECT * FROM #TmpPocSost ORDER BY Sifra_Kup





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pocsostfinnadatdev]'))
drop procedure [dbo].[sp_pocsostfinnadatdev]

Go



CREATE    PROCEDURE sp_PocSostFinNaDatDev
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime
AS
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 KojaVal    char(3),
 Dev_Dolzi        decimal(18,2),
 Dev_Pobaruva    decimal(18,2),
 Dev_Plat_Dolzi    decimal(18,2),
 Dev_Plat_Pobar    decimal(18,2),
 Dolzi        decimal(18,2),
 Pobaruva    decimal(18,2),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2),
 Kurs        decimal(18,6) )
INSERT INTO #TmpPocSost (Sifra_Kup, KojaVal, Dev_Dolzi, Dev_pobaruva, Dolzi, Pobaruva, Kurs)
SELECT Sifra_Kup, KojaVal, Sum(Dev_Dolzi), Sum(Dev_pobaruva), Sum(Dolzi), Sum(Pobaruva), 0 FROM AnFinDok
WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup, KojaVal
UPDATE #TmpPocSost SET Kurs = (Dolzi - Pobaruva)/(Dev_Dolzi - Dev_Pobaruva) WHERE Dev_Dolzi-Dev_Pobaruva<>0   --??!
UPDATE #TmpPocSost SET Kurs=KrsVaznost.KursSreden FROM KrsVaznost WHERE Kurs=0 AND KrsVaznost.SImeVal=#TmpPocSost.KojaVal And KrsVaznost.Datum=@Datum_Do
CREATE TABLE #TmpPlat
(Sifra_Kup    char(6),
 KojaVal    char(3),
 Dev_Plat_Dolzi    decimal(18,2),
 Dev_Plat_Pobar    decimal(18,2),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2) )
INSERT INTO #TmpPlat (Sifra_Kup, KojaVal, Dev_Plat_Dolzi, Dev_Plat_Pobar)
SELECT F.Sifra_Kup, KojaVal, SUM(Case When F.Dev_Dolzi>0 OR F.Dev_Pobaruva<0 Then abs(Z.Iznos_Dev) Else 0 End), SUM(Case When F.Dev_Pobaruva>0 OR F.Dev_Dolzi<0 Then abs(Z.Iznos_Dev) Else 0 End)
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND
Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup, KojaVal
INSERT INTO #TmpPlat (Sifra_Kup, KojaVal, Dev_Plat_Dolzi, Dev_Plat_Pobar)
SELECT F.Sifra_Kup, KojaVal, SUM(Case When F.Dev_Dolzi>0 OR F.Dev_Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Dev_Pobaruva>0 OR F.Dev_Dolzi<0 Then abs(Z.Iznos) Else 0 End)
FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID2=F.AnID
WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND
Z.AnID1 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
GROUP BY F.Sifra_Kup, KojaVal
CREATE TABLE #TmpPlatSum
(Sifra_Kup    char(6),
 KojaVal    char(3),
 Dev_Plat_Dolzi    decimal(18,2),
 Dev_Plat_Pobar    decimal(18,2) )
INSERT INTO #TmpPlatSum SELECT Sifra_Kup, KojaVal, Sum(Dev_Plat_Dolzi), Sum(Dev_Plat_Pobar) FROM #TmpPlat GROUP BY Sifra_Kup, KojaVal
UPDATE #TmpPocSost SET  Dev_Plat_Dolzi = P.Dev_Plat_Dolzi, Dev_Plat_Pobar = P.Dev_Plat_Pobar,
Plat_Dolzi = Round(P.Dev_Plat_Dolzi*Kurs,2), Plat_Pobaruva = round(P.Dev_Plat_Pobar*Kurs,2)
FROM #TmpPlatSum P WHERE #TmpPocSost.Sifra_Kup = P.Sifra_Kup
SELECT * FROM #TmpPocSost ORDER BY Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pocsostfinnadatoe]'))
drop procedure [dbo].[sp_pocsostfinnadatoe]

Go



CREATE    PROCEDURE sp_PocSostFinNaDatOE
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime,
    @ORGiliPAT    char(1)='O',
    @DaliDiv    char(1)='N'
AS
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 Sifra_OE    smallint,
 Dolzi        decimal(18,2),
 Pobaruva    decimal(18,2),
 Plat_Dolzi    decimal(18,2),
 Plat_Pobaruva    decimal(18,2),
 Sifra_Div    smallint )
IF @ORGiliPAT='P'
BEGIN
    IF @DaliDiv='D'
        INSERT INTO #TmpPocSost (Sifra_Kup, Sifra_OE, Sifra_Div, Dolzi, Pobaruva) SELECT Sifra_Kup, Sifra_Pat, Sifra_Div, Sum(Dolzi), Sum(Pobaruva) FROM AnFinDok
        WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup, Sifra_Pat, Sifra_Div
    ELSE
        INSERT INTO #TmpPocSost (Sifra_Kup, Sifra_OE, Dolzi, Pobaruva) SELECT Sifra_Kup, Sifra_Pat, Sum(Dolzi), Sum(Pobaruva) FROM AnFinDok
        WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup, Sifra_Pat
END
ELSE
BEGIN
    IF @DaliDiv='D'
        INSERT INTO #TmpPocSost (Sifra_Kup, Sifra_OE, Sifra_Div, Dolzi, Pobaruva) SELECT Sifra_Kup, Sifra_OE, Sifra_Div, Sum(Dolzi), Sum(Pobaruva) FROM AnFinDok
        WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup, Sifra_OE, Sifra_Div
    ELSE
        INSERT INTO #TmpPocSost (Sifra_Kup, Sifra_OE, Dolzi, Pobaruva) SELECT Sifra_Kup, Sifra_OE, Sum(Dolzi), Sum(Pobaruva) FROM AnFinDok
        WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok <= @Datum_Do GROUP BY Sifra_Kup, Sifra_OE
END
IF @DaliDiv<>'D' AND @ORGiliPAT<>'P'    --da se doraboti
BEGIN
    CREATE TABLE #TmpPlat
    (Sifra_Kup    char(6),
     Sifra_OE    smallint,
     Plat_Dolzi    decimal(18,2),
     Plat_Pobaruva    decimal(18,2) )
    INSERT INTO #TmpPlat (Sifra_Kup, Sifra_OE, Plat_Dolzi, Plat_Pobaruva)
    SELECT F.Sifra_Kup, Sifra_OE, SUM(Case When F.Dolzi>0 OR F.Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Pobaruva>0 OR F.Dolzi<0 Then abs(Z.Iznos) Else 0 End)
    FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID1=F.AnID
    WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND
    Z.AnID2 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
    GROUP BY F.Sifra_Kup, Sifra_OE

    INSERT INTO #TmpPlat (Sifra_Kup, Sifra_OE, Plat_Dolzi, Plat_Pobaruva)
    SELECT F.Sifra_Kup, Sifra_OE, SUM(Case When F.Dolzi>0 OR F.Pobaruva<0 Then abs(Z.Iznos) Else 0 End), SUM(Case When F.Pobaruva>0 OR F.Dolzi<0 Then abs(Z.Iznos) Else 0 End)
    FROM AnZatv Z INNER JOIN AnFinDok F ON Z.AnID2=F.AnID
    WHERE F.Sifra_Za=@Sifra_Za AND F.Kto=@Kto AND F.Datum_Dok<=@Datum_Do AND
    Z.AnID1 IN (SELECT AnID FROM AnFinDok WHERE Sifra_Za=@Sifra_Za AND Kto=@Kto AND Datum_Dok>@Datum_Do)
    GROUP BY F.Sifra_Kup, Sifra_OE
    CREATE TABLE #TmpPlatSum
    (Sifra_Kup    char(6),
     Sifra_OE    smallint,
     Plat_Dolzi    decimal(18,2),
     Plat_Pobaruva    decimal(18,2) )
    INSERT INTO #TmpPlatSum SELECT Sifra_Kup, Sifra_OE, Sum(Plat_Dolzi), Sum(Plat_Pobaruva) FROM #TmpPlat GROUP BY Sifra_Kup, Sifra_OE

    UPDATE #TmpPocSost SET  Plat_Dolzi = P.Plat_Dolzi, Plat_Pobaruva = P.Plat_Pobaruva FROM #TmpPlatSum P
    WHERE #TmpPocSost.Sifra_Kup = P.Sifra_Kup AND #TmpPocSost.Sifra_OE = P.Sifra_OE
END
SELECT * FROM #TmpPocSost ORDER BY Sifra_Kup






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podg_odjavanakarticki]'))
drop procedure [dbo].[sp_podg_odjavanakarticki]

Go
CREATE       PROCEDURE sp_Podg_OdjavaNaKarticki
    @Sifra_Oe        smallint = Null,
    @Koi_Oe        varchar(10) = Null,
    @Datum_Od_Novi    smalldatetime = Null,
    @Datum_Do_Novi    smalldatetime = Null,
    @Datum_Od_Odjava    smalldatetime = Null,
    @Datum_Do_Odjava    smalldatetime = Null
 AS
    Declare @SSQL as varchar(8000)
-------------------------------------------------------  NOVI DOKUMENTI ZA KOI KARTICKITE NE SE ODJAVUVAAT  ------------------------------------------------------
    Create Table #TabNoviDok
    (
     Datum_Dok    smalldatetime,
--     DokID        int,
--     DokrID        int,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art     varchar(20)
    )
    Set @SSQL = ' Select Max(D.Datum_Dok), D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art
            From Dokr D
            Inner Join Stavr S On S.DokrId = D.DokrId
            Where S.Sifra_Art >=''000700'' and S.Sifra_Art <= ''000750''
            And D.Sifra_Za = ''1'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Datum_Od_Novi Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od_Novi as varchar(30)) + ''' '
    If @Datum_Do_Novi Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do_Novi as varchar(30)) + ''' '
    Set @SSQL=@SSQL + ' Group By D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art '
    Insert Into #TabNoviDok Exec(@SSQL)
    Create Table #NoviDok
    (
     DokID        int,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art     varchar(20)
    )
    Set @SSQL =  ' Insert Into #NoviDok
            Select S.DokID, T.Sifra_kup, T.Sifra_Obj, T.Sifra_Art
            From  #TabNoviDok T, Dokr D
            Inner Join Stavr S On D.DokrID = S.DokrID
            Where S.Datum_Dok=T.Datum_Dok and D.Sifra_kup=T.Sifra_Kup and D.Sifra_Obj=T.Sifra_Obj and S.Sifra_art=T.Sifra_Art
            and T.Sifra_Obj Is Not Null and D.Sifra_Obj Is Not Null '
    Exec(@SSQL)
    Set @SSQL =  ' Insert Into #NoviDok
            Select S.DokID, T.Sifra_kup, T.Sifra_Obj, T.Sifra_Art
            From  #TabNoviDok T, Dokr D
            Inner Join Stavr S On D.DokrID = S.DokrID
            Where S.Datum_Dok=T.Datum_Dok and D.Sifra_kup=T.Sifra_Kup and S.Sifra_art=T.Sifra_Art
            and T.Sifra_Obj Is Null and D.Sifra_Obj Is Null '
    Exec(@SSQL)
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------  DOKUMENTI SO DATUM OD/DO ZA KOI KE SE ODJAVUVAAT KARTICKITE, A NE SPAGAAT VO GORNITE ------------------
    Create Table #Komint
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art     varchar(20)
    )
    Insert Into #Komint
    Select Distinct Sifra_Kup, Sifra_Obj, Sifra_Art From #NoviDok
    Create Table #ZaOdjava
    (
     DokID        int,
     Sifra_Oe    smallint,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Art    varchar(20),
     Seriskibr    varchar(15),
     Grupa        int
    )
    Set @SSQL=  ' Select S.DokID, D.Sifra_Oe, D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, B.SeriskiBr, 0
            From Dokr D
            Inner Join Stavr S On S.DokrId = D.DokrId
            Inner Join BrStavr B On B.DokId = S.DokId
            Inner Join #Komint N On N.Sifra_kup = D.Sifra_Kup and N.Sifra_Obj = D.Sifra_Obj and N.Sifra_Art = S.Sifra_Art
            Where D.Sifra_Za = ''1'' and N.Sifra_Obj Is Not Null and D.Sifra_Obj Is Not Null
            And S.Sifra_Art+''&&&''+B.SeriskiBr Not In (Select SN.Sifra_Art+''&&&''+BN.SeriskiBr From StaNarac SN Inner Join BrStaNarac BN On BN.StaNarID=SN.StaNarID Where SN.Sifra_Nar In (18,88,98) )
            And S.DokID Not In (Select DokID From #NoviDok)  '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Datum_Od_Odjava Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od_Odjava as varchar(30)) + ''' '
    If @Datum_Do_Odjava Is Not Null        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do_Odjava as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order by B.SeriskiBr '
    Insert Into #ZaOdjava Exec(@SSQL)
    Set @SSQL=  ' Select S.DokID, D.Sifra_Oe, D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Art, B.SeriskiBr, 0
            From Dokr D
            Inner Join Stavr S On S.DokrId = D.DokrId
            Inner Join BrStavr B On B.DokId = S.DokId
            Inner Join #Komint N On N.Sifra_kup = D.Sifra_Kup and N.Sifra_Art = S.Sifra_Art
            Where D.Sifra_Za = ''1'' and N.Sifra_obj Is Null and D.Sifra_obj Is Null
            And S.Sifra_Art+''&&&''+B.SeriskiBr Not In (Select SN.Sifra_Art+''&&&''+BN.SeriskiBr From StaNarac SN Inner Join BrStaNarac BN On BN.StaNarID=SN.StaNarID Where SN.Sifra_Nar In (18,88,98) )
            And S.DokID Not In (Select DokID From #NoviDok)  '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
    If @Koi_OE Is Not NULL
             Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Datum_Od_Odjava Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od_Odjava as varchar(30)) + ''' '
    If @Datum_Do_Odjava Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do_Odjava as varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' Order by B.seriskiBr '
    Insert Into #ZaOdjava Exec(@SSQL)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Create Table #SerBr
    (
     DokID        int,
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Sifra_kup    char(6),
     Sifra_Obj    smallint,
     Broj        Int,
     SeriskiBrOd    varchar(15),
     SeriskiBrDo    varchar(15)
    )
    Declare @SeriskiBr as varchar(15)
    Declare @SeriskiBrPred as varchar(15)
    Declare @Broj as int
    Declare @Sifra_Art as Varchar(20)
    Declare @Sifra_Kup as char(6)
    Declare @Sifra_Obj as smallint
    Declare @DokID as int
    Declare @DokIDPred as int
    Declare @Sif_Oe as smallint
    Set @Broj=1
    Declare SeriskiBroj Cursor Fast_Forward For
        Select Sifra_Art, SeriskiBr, DokID, Sifra_Kup, Sifra_Obj, Sifra_Oe From #ZaOdjava Order By DokID, Sifra_Art, SeriskiBr
    Open SeriskiBroj
    Fetch Next From SeriskiBroj Into @Sifra_Art, @SeriskiBr, @DokID, @Sifra_Kup, @Sifra_Obj, @Sif_Oe
    While @@Fetch_Status = 0
    Begin
        If @SeriskiBrPred Is Null
        Begin
            Insert Into #SerBr(Broj, Sifra_Art, Sifra_Kup, Sifra_Obj, Sifra_Oe, SeriskiBrOd) Values(@Broj, @Sifra_Art, @Sifra_Kup, @Sifra_Obj, @Sif_Oe,@SeriskiBr)
            Update #ZaOdjava
            Set Grupa = @Broj
            Where SeriskiBr=@SeriskiBr and Sifra_Art=@Sifra_Art and DokID=@DokID
            Set @SeriskiBrPred = @SeriskiBr
            Set @DokIDPred = @DokID
        End
        Else
        Begin
            If cast(@SeriskiBr as decimal(18,0)) = cast(@SeriskiBrPred as decimal(18,0))+ 1 and @DokID = @DokIDPred
            Begin
                Update #ZaOdjava
                Set Grupa = @Broj
                Where SeriskiBr=@SeriskiBr and DokID=@DokID
                Set @SeriskiBrPred = @SeriskiBr
                Set @DokIDPred = @DokID
            End
            Else
            Begin
                Update #SerBr
                Set SeriskiBrDo = @SeriskiBrPred Where Broj=@Broj
                Set @Broj = @Broj + 1
                Insert Into #SerBr(Broj, Sifra_Art, Sifra_Kup, Sifra_Obj, Sifra_Oe, SeriskiBrOd) Values(@Broj, @Sifra_Art, @Sifra_Kup, @Sifra_Obj, @Sif_Oe,@SeriskiBr)
                Update #ZaOdjava
                Set Grupa = @Broj
                Where SeriskiBr=@SeriskiBr and DokID=@DokID
                Set @SeriskiBrPred = @SeriskiBr
                Set @DokIDPred = @DokID
            End
        End
        Fetch Next From SeriskiBroj Into @Sifra_Art, @SeriskiBr, @DokID, @Sifra_Kup, @Sifra_Obj, @Sif_Oe
    End
        Update #SerBr
        Set SeriskiBrDo = @SeriskiBr Where Broj=@Broj
    Close SeriskiBroj
    Deallocate SeriskiBroj
    Select Sifra_Art, Sifra_kup, Sifra_Obj, Sifra_Oe, Broj, SeriskiBrOd, SeriskiBrDo
    From #SerBr
    Order By Sifra_Oe, Sifra_Kup, Sifra_Obj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_cengrorg_art]'))
drop procedure [dbo].[sp_podigni_cengrorg_art]

Go

create  PROCEDURE sp_Podigni_CenGrOrg_Art
    @Sif_GrOrg        char(6),
    @SifArtTocen    Varchar(20) = Null,
    @ImeArtDel        varchaR(50) = Null,
    @Sifra_Podg        char(6) = Null

AS

    Declare @SSQLUsl varchar(1000)

    set @SSQLUsl = ''
    if @SifArtTocen is not null
        set @SSQLUsl = @SSQLUsl + ' and CC.Sifra_Art = ''' + @SifArtTocen + ''' '
    if @ImeArtDel is not null
        set @SSQLUsl = @SSQLUsl + ' and K.ImeArt like ''' + @ImeArtDel + '%'' '
    if @Sifra_Podg is not null
        set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    create Table #tZal
    (    Sifra_Art     Varchar(20),
        Zaliha         Decimal(18,4)
    )

    Declare @SSQL varchar(2000)

    set @SSQL =
            ' Insert into #tZal
              Select CC.Sifra_Art, Sum(CC.Vlez - CC.Izlez)
              From Soart CC
              Inner Join SGrOrg SS
                on CC.Sifra_Oe = SS.Sifra_Oe
              Inner Join Katart K
                on K.Sifra_Art = CC.Sifra_Art
              WHere SS.Sif_GrOrg = ''' + @Sif_GrOrg + ''' '
                + @SSQLUsl + '
              Group By CC.Sifra_Art '

    exec (@SSQL)

--select *
--from #tZal

    set @SSQL =
        '    Select CC.Sifra_Art, CC.Cena, CC.Dozvoleno, CC.CenaR, Z.Zaliha, K.Nabavna, K.ImeArt, K.EdMera
            From CenGrOrg CC WITH(NOLOCK)
            Inner Join Katart K
                on CC.Sifra_Art = K.Sifra_Art
            Inner Join #tZal Z
                on CC.Sifra_Art = Z.Sifra_Art
            Where CC.Sif_GrOrg = ''' + @Sif_GrOrg + ''' '
                + @SSQLUsl + '
            Order by K.ImeArt '

    exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_fixopt]'))
drop procedure [dbo].[sp_podigni_fixopt]

Go
CREATE  PROCEDURE [dbo].[sp_Podigni_FixOpt]
    @TblName    VARCHAR (40),
    @FldName        varchar (40),
    @Param1    varchar(20) = Null,
    @Param2    varchar(20) = Null,
    @Param3    varchar(20) = Null
AS
    Declare @SSQL as varchar(8000)
    --Select cast(FldKey as varchar(6)) as FldKey, '' FldValue, 'N' DefKey
    --From FixOpt
    --where TblName = @TblName and FldName = @FldName
    --Order By FldKey
    IF @TblName = 'tmTarifModel'
    Begin
        Select cast(Sifra_TarifModel as varchar(6)) as FldKey, Ime FldValue, 'N' DefKey
        FROM TmTarifModel ORDER BY Sifra_TarifModel
    End
    IF @TblName = 'tmTel'
    Begin    --S.Cena CenaRed, K.MalCena CenaPovl, (S.Vlez-S.Izlez) Zaliha
        Set @SSQL = ' Select S.Sifra_Art FldKey, K.ImeArt FldValue, ''N'' DefKey
            From Soart S
            Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
            Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
            Where S.Sifra_Oe = ' + @Param1 + ' And (S.Vlez-S.Izlez) <> 0 '
        If @Param2 Is Not Null
            Set @SSQL = @SSQL + ' And K.Sifra_Podg = ' + @Param2 + ' '
        If @Param3 Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Gr = ' + @Param3 + ' '
        Exec(@SSQL + ' Order By S.Sifra_Art ')
        --SELECT cast(Sifra_Tel as varchar(6)) as FldKey, Tip as FldValue, 'N' DefKey
        --FROM tmTel ORDER BY Sifra_Tel
    End
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_ispeclok]'))
drop procedure [dbo].[sp_podigni_ispeclok]

Go
CREATE  PROCEDURE sp_Podigni_IspecLok
    @Sifra_Oe smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int,
    @Lokacija varchar(10)
AS
    Declare @Sega Smalldatetime
    Set @Sega = GetDate ()
    Select IspecNa, @Sega as SegaDatumVreme From IspecLok
    Where Sifra_Oe = @Sifra_Oe and Sifra_Nar = @Sifra_nar and Broj_Nar = @Broj_Nar and Lokacija = @Lokacija
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_konfmeniuser]'))
drop procedure [dbo].[sp_podigni_konfmeniuser]

Go


CREATE    PROCEDURE sp_Podigni_KonfMeniUser
    @OznPC        varchar (20) = Null,
    @Grupa_Kor    varchar (20) = Null
AS
if @OznPC is not Null
  SELECT * From KonfMeniUser
  WHERE OznPC = @OznPC
  ORDER BY RbrMeni, RbrMoznost
else if @Grupa_Kor is not Null
  SELECT * From KonfMeniUser
  WHERE Sifra_GrKor = @Grupa_Kor
  ORDER BY RbrMeni, RbrMoznost
-- Bi moralo barem ednoto da e ne-null




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_kup_po_tipkup]'))
drop procedure [dbo].[sp_podigni_kup_po_tipkup]

Go
CREATE  PROCEDURE sp_Podigni_Kup_Po_TipKup
    @TipKup varchar (11)
AS
    Create Table #Komint
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     ImeKup        char(40),
     ImeKup1    char(40),
     Sifra_Grad    smallint,
     Sifra_Grad_Obj    smallint,
     KDrugo1    smallint,
     KDrugo1_Obj    smallint
    )
    Insert Into #Komint
    SELECT K.Sifra_Kup, O.Sifra_Obj, O.ImeObj, K.ImeKup, K.Sifra_Grad, 0.Sifra_Grad, K.KDrugo1, O.KDrugo1
    FROM Komint K
    Left Outer Join KObjekti O On O.Sifra_Kup=K.Sifra_Kup
    WHERE O.TipKup = @TipKup And O.Sifra_Obj > 0
    ORDER BY K.ImeKup, O.ImeObj
    Insert Into #Komint
    SELECT K.Sifra_Kup, Null, K.ImeKup, K.ImeKup, K.Sifra_Grad, Null, K.KDrugo1, Null
    FROM Komint K
    WHERE K.TipKup = @TipKup And K.Sifra_Kup Not In (Select Distinct Sifra_Kup From #Komint)
    ORDER BY K.ImeKup
    Select Sifra_Kup, Sifra_Obj, ImeKup, Sifra_Grad, Sifra_Grad_Obj, KDrugo1, KDrugo1_Obj
    From #Komint
    Order By ImeKup1
RETURN @@Error



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_nar_faktura]'))
drop procedure [dbo].[sp_podigni_nar_faktura]

Go

CREATE  Procedure sp_Podigni_Nar_Faktura
    @Sifra_OE    smallint,
    @KolkuDena    smallint = 1
AS

    Declare @Denes as DateTime
    Select @Denes = CAST(FLOOR(CAST(GETDATE() AS FLOAT)) AS DATETIME)

    Select *
    From NarRealDok NR
    Inner Join Dokr D On NR.DokrID = D.DokrID
    Left Outer Join Komint K On D.Sifra_Kup = K.Sifra_Kup
    Left Outer Join KObjekti OB ON D.Sifra_Kup = OB.Sifra_Kup and D.Sifra_Obj = OB.Sifra_Obj
    Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
    Left Outer Join TipDok TD on D.Sifra_Dok = TD.Sifra_Dok
    Where NR.NarID Not IN (Select NarId_Podnar From NarPodNar Where Aktiven = 'D')
        AND NR.Realiziran = 'D'
             AND  (D.Broj_Nal IS NUll or D.Broj_Nal = 0)
             AND D.Datum_Dok >= DateAdd(day,-@kolkudena,@Denes)
        AND D.Sifra_Oe = @Sifra_OE




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_nar_nefakt]'))
drop procedure [dbo].[sp_podigni_nar_nefakt]

Go





CREATE      Procedure sp_Podigni_Nar_NeFakt
    @Sifra_OE    smallint,
    @Datum_Od    datetime,
    @Datum_Do    datetime
AS
/*    Create Table #TempDok
    (
        DokrID    int,
        NarID     int
    )

    Insert Into #TempDok
    Select Distinct NR.DokrID,NP.NarId_Orig
    From NarRealDok NR
    left outer  Join NarPodnar NP on NR.NarID  = NP.NarId_Podnar
    Where NR.Realiziran = 'D' and NP.Aktiven = 'D'
         AND  NR.DokrID Not IN (Select DokrID From NarRealDok Where Realiziran is null or Realiziran = 'N' )
    Order By NR.DokrID
*/

Create Table #TempDok
(    DokrID    int,
    NarID    int,
    Kompleten char(1))
--prvo narackata od DOKR - ORGINALNATA - Ako e nesto zapocnato da se raboti
INSERT INTO #TempDok SELECT DISTINCT NR.DokrID, N.NarID, NOR.Realiziran
FROM NarRealDok NR
INNER JOIN Dokr D ON NR.DokrID=D.DokrID
INNER JOIN Naracki N ON D.Sifra_OENar=N.Sifra_OE AND D.Sifra_Nar=N.Sifra_Nar AND D.Broj_Nar=N.Broj_Nar
Inner Join NarRealDok NOR on N.NarID = NOR.NarID
WHERE D.Datum_Dok >=@Datum_Od  AND D.Datum_Dok <= @Datum_Do AND D.Sifra_OE  = @Sifra_OE AND NR.Realiziran = 'D'

--sega podnaracki koi se zapocnati so realizacija i ne se zavrseni
UPDATE  #TempDok Set Kompleten = 'N'
FROM #TempDok T
INNER Join NarPodnar NP ON T.NarID = NP.NarId_Orig
LEFT OUTER JOIN NarRealDok ND ON NP.NarID_Podnar = ND.NarID
Where NP.NarId_Orig is not null  and (ND.DokrID is not NUll and (ND.Realiziran is null OR ND.Realiziran<>'D'))

--sega podnaracki koi ne se zapocnati so realizacija
UPDATE  #TempDok Set Kompleten = 'N'
FROM #TempDok T
INNER Join NarPodnar NP ON T.NarID = NP.NarId_Orig
LEFT OUTER JOIN NarRealDok ND ON NP.NarID_Podnar = ND.NarID
Where NP.NarId_Orig is not null  and ND.DokrID is  NUll


UPDATE #TempDok SET Kompleten='N' FROM Stavr S WHERE #TempDok.DokrID=S.DokrID  --ima bar eden zapis vo stavr

    Select * From  #TempDok T
    Inner Join Dokr  D on T.DokrID = D.DokrID
    Left Outer Join Komint K On D.Sifra_Kup = K.Sifra_Kup
    Left Outer Join KObjekti OB ON D.Sifra_Kup = OB.Sifra_Kup and D.Sifra_Obj = OB.Sifra_Obj
    Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
    Left Outer Join TipDok TD on D.Sifra_Dok = TD.Sifra_Dok
    Where T.Kompleten='D'  --T.DokrID Not IN (Select T.DokrID From Stavr S Inner Join #TempDok T on S.DokrID = T.DokrID )
    --    AND D.Datum_Dok >=@Datum_Od  AND D.Datum_Dok <= @Datum_Do AND D.Sifra_OE  = @Sifra_OE









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_polni_grpmarza]'))
drop procedure [dbo].[sp_podigni_polni_grpmarza]

Go

CREATE     PROCEDURE sp_Podigni_Polni_GrpMarza
    @Grupa_Marza smallint
AS
    Create Table #GrpMar
    (
     Sif_GrOrg    char(6),
     Ime_GrOrg     varchar(50),
     Proc_Marza    decimal(9,2)
    )
    INSERT INTO #GrpMar
    SELECT M.Sif_GrOrg, G.Ime_GrOrg, M.Proc_Marza
    FROM GrpMarza M
    Inner Join GrOrg G On G.Sif_GrOrg=M.Sif_GrOrg
    Where M.Grupa_Marza=@Grupa_Marza
    INSERT INTO #GrpMar
    SELECT Sif_GrOrg, Ime_GrOrg, Null
    FROM GrOrg
    WHERE Edinstvena = 'D' AND Sif_GrOrg NOT IN (SELECT Sif_GrOrg FROM #GrpMar)
    SELECT * FROM #GrpMar  ORDER BY  Ime_GrOrg
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_sifropst]'))
drop procedure [dbo].[sp_podigni_sifropst]

Go

CREATE PROCEDURE sp_Podigni_SifrOpst
    @TblName    VARCHAR (40)
AS
    Declare @SSQL as varchar(8000)
    set @SSQL = 'Select * from ' + @TblName
    Exec (@SSQL)
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_sifrovnik]'))
drop procedure [dbo].[sp_podigni_sifrovnik]

Go

--    Opis na Parametri
--    @Tabela: Ime na tabelata po koja prebaruvame, case-sensitive.
CREATE                  PROCEDURE [dbo].[sp_Podigni_Sifrovnik]
    @Tabela    VARCHAR(20)
AS
    Declare @Greska Int
    Declare @IntSifra Int
    Set @Tabela=Upper(@Tabela)
    If @Tabela = 'PODGRUPI'
        SELECT SifrA_Podg, Ime_Podg From PODGRUPI
    ELSE If @Tabela = 'GRUPI'
        SELECT SifrA_Gr, Ime_Gr From GRUPI
    ELSE If @Tabela = 'ORGED'
        SELECT Sifra_Oe, ImeOrg From ORGED
    ELSE If @Tabela = 'GRORG'
        SELECT Sif_GrOrg, Ime_GrOrg From GRORG
    ELSE If @Tabela = 'VIDDOG'
        SELECT Sifra_VidDog, Ime_VidDog From VIDDOG
    ELSE If @Tabela = 'VERNTRAENJE'
        SELECT Sifra_Vernost, Ime_Vernost From VERNTRAENJE
    ELSE If @Tabela = 'TARMODEL'
        SELECT Sifra_TarModel, Ime_TarModel From TarModel
    ELSE If @Tabela = 'TIPNARAC'
        SELECT Sifra_Nar, ImeNar FROM TipNarac
    ELSE If @Tabela = 'TIPDOK'
        SELECT Sifra_Dok, ImeDok FROM TipDok
    ELSE If @Tabela = 'GRORG'
        SELECT Sif_GrOrg, Ime_GrOrg From GRORG
    ELSE If @Tabela = 'OPSTINI'
        SELECT Sif_Opstina, Ime_Opstina From OPSTINI
    ELSE If @Tabela = 'BANKI'
        SELECT Sifra_Ban, ImeBanka From BANKI
    ELSE If @Tabela = 'PRIMATELI'
        SELECT Sif_Primatel, Ime_Primatel From PRIMATELI
    ELSE If @Tabela = 'NACPLAK'
        SELECT Sifra_Nac, ImeNac From NACPLAK
    ELSE If @Tabela = 'OPERATORI'
        SELECT Sifra_Oper, Ime_Oper From OPERATORI
    ELSE If @Tabela = 'INTERNIKART'
        SELECT Interna_Kart, Ime_Int_Kart From INTERNIKART
    ELSE If @Tabela = 'DRGPODEL'
        SELECT Sifra_Drg, Ime From DRGPODEL
    ELSE If @Tabela = 'DRGPODEL1'
        SELECT Sifra_Drg1, Ime_Drg1 From DRGPODEL1
    ELSE If @Tabela = 'DRUGO1'
        SELECT Sifra_1, Ime_1 From DRUGO1
    ELSE If @Tabela = 'DRUGO2'
        SELECT Sifra_2, Ime_2 From DRUGO2
    ELSE If @Tabela = 'DRUGO3'
        SELECT Sifra_3, Ime_3 From DRUGO3
    ELSE If @Tabela = 'DRUGO4'
        SELECT Sifra_4, Ime_4 From DRUGO4
    ELSE If @Tabela = 'DRUGO5'
        SELECT Sifra_5, Ime_5 From DRUGO5
        ELSE If @Tabela = 'DRUGO6'
        SELECT Sifra_6, Ime_6 From DRUGO6
        ELSE If @Tabela = 'DRUGO7'
        SELECT Sifra_7, Ime_7 From DRUGO7
    ELSE If @Tabela = 'GRPIZBOR'
        SELECT Sifra_GrpIzb, Ime_GrpIzb From GrpIzbor
    ELSE If @Tabela = 'VIDVOZILA'
        SELECT Sifra_Vid_Voz, Ime_Vid_Voz From VidVozila
    ELSE If @Tabela = 'KATHIER'
        SELECT Sifra_KHier, Ime_KHier From KatHier
    ELSE If @Tabela = 'TIPKOMINT'
        SELECT Sifra_Tip, ImeTip From TipKomint
    ELSE If @Tabela = 'VIDPRODOBJ'
        SELECT Sifra_VPJ, Ime_VPJ From VidProdObj
    ELSE If @Tabela = 'DIVIZII'
        SELECT Sifra_Div, ImeDiv From Divizii
    ELSE If @Tabela = 'GRAD'
        SELECT Sifra_Grad, ImeGrad From Grad
    ELSE If @Tabela = 'GREGION'
        SELECT Sifra_Reg, ImeRegion From GRegion
    ELSE If @Tabela = 'GRUPAWEB'
        SELECT Sifra_GrWeb, Ime_GrWeb From GrupaWeb
    ELSE If @Tabela = 'PODGRWEB'
        SELECT Sifra_PodgrWeb, Ime_PodgrWeb From PodgrWeb
    ELSE If @Tabela = 'KATART'
        SELECT Sifra_Art, ImeArt From KatArt
    ELSE If @Tabela = 'XFTIPPREDMET'
        SELECT Sifra_TipPredmet, ImeTipPredmet From XFTipPredmet
    ELSE If @Tabela = 'XFSTATUSPREDMET'
        SELECT Sifra_StatusPredmet, ImeStatusPredmet From XFStatusPredmet
    ELSE If @Tabela = 'XFOBLAST'
        SELECT Sifra_Oblast, ImeOblast From XFOblast
    ELSE If @Tabela = 'XFIZVRSITEL'
        SELECT Sifra_Izvrs, ImeIzvrs From XFIzvrsitel
        ELSE If @Tabela = 'XFVIDBARANJE'
        SELECT Sifra_VidBaranje, ImeVidBaranje From XFVidBaranje
        ELSE If @Tabela = 'TARIFI'
        SELECT Sifra_Tar, ImeTar From Tarifi
        ELSE If @Tabela = 'GTIPKUP'
        SELECT TipKup, ImeTipKup From GTipKup
    ELSE If @Tabela = 'KDRUGO1'
        SELECT Sifra_1K, Ime_1K From KDRUGO1
    ELSE If @Tabela = 'KDRUGO2'
        SELECT Sifra_2K, Ime_2K From KDRUGO2
    ELSE If @Tabela = 'KDRUGO3'
        SELECT Sifra_3K, Ime_3K From KDRUGO3
    ELSE If @Tabela = 'KDRUGO4'
        SELECT Sifra_4K, Ime_4K From KDRUGO4
    ELSE If @Tabela = 'KDRUGO5'
        SELECT Sifra_5K, Ime_5K From KDRUGO5
        ELSE If @Tabela = 'KDRUGO6'
        SELECT Sifra_6K, Ime_6K From KDRUGO6
        ELSE If @Tabela = 'KDRUGO7'
        SELECT Sifra_7K, Ime_7K From KDRUGO7
    ELSE If @Tabela = 'NIVO'
        SELECT Sifra_Nivo, ImeNivo From NIVO
    ELSE If @Tabela = 'NGBILLCODES'
        SELECT Sifra_BillCode, ImeBillCode From NGBILLCODES
    ELSE If @Tabela = 'NGFAMILIJA'
        SELECT Sifra_Famil, ImeFamil From NGFAMILIJA
    ELSE If @Tabela = 'NGCOURSETYPE'
        SELECT Sifra_CourseType, ImeCourseType From NGCOURSETYPE
    ELSE If @Tabela = 'NGSTUDENTS'
        SELECT Sifra_Student, ImeStudent From NGSTUDENTS
    ELSE If @Tabela = 'NGSCHOOLYEAR'
        SELECT Sifra_SchoolYear, ImeSchoolYear From NGSCHOOLYEAR
    ELSE If @Tabela = 'GRUPIOPER'
        SELECT Sifra_GrOper, ImeGrOper From GRUPIOPER
    ELSE If @Tabela = 'ATCKODOVI'
        SELECT Sifra_ATC, ImeATC From ATCKODOVI
    ELSE If @Tabela = 'LEKARI'
        SELECT Sifra_Lekar, ImeLekar From LEKARI
    ELSE If @Tabela = 'OSNOVOSIG'
        SELECT Sifra_OsnovOsig, ImeOsnovOsig From OSNOVOSIG
    ELSE If @Tabela = 'PODRACNISLUZBI'
        SELECT Sifra_PodrSluzba, ImePodrSluzba From PODRACNISLUZBI
    ELSE If @Tabela = 'PACIENTI'
        SELECT EMBG, ImePacient From PACIENTI
    ELSE If @Tabela = 'FARMACEVT'
        SELECT Sifra_Farmacevt, ImeFarmacevt From FARMACEVT
    ELSE If @Tabela = 'APTEKA'
        SELECT Sifra_Apteka, ImeApteka From APTEKA
    ELSE If @Tabela = 'DIJAGNOZI'
        SELECT Sifra_Dijagn, ImeDijagn From DIJAGNOZI
    ELSE If @Tabela = 'KREDITSTATUS'
        SELECT Status_Kredit, ImeStatusKredit From KreditStatus
    ELSE If @Tabela = 'KREDITTIPOPOMENA'
        SELECT Tip_Opomena, ImeTipOpomena From KreditTipOpomena
    ELSE If @Tabela = 'PRIVFILTTIPPRIVIL'
        SELECT TipPrivil, OpisTipPrivil From PrivFiltTipPrivil
    ELSE If @Tabela = 'TIPPRODMESTO'
        SELECT Sif_TipProdM, ImeTipProdM From TIPPRODMESTO
    ELSE If @Tabela = 'ASORTIMAN'
        SELECT Sifra_Asort, Ime_Asort From Asortiman
    ELSE If @Tabela = 'OBLAST'
        SELECT Sifra_Oblast, Ime_Oblast From Oblast
    ELSE If @Tabela = 'PODOBLAST'
        SELECT Sifra_PodOblast, Ime_PodOblast From PodOblast
    ELSE If @Tabela = 'EDMERILIST'
        SELECT Edmera, ImeEdMera From EdMeriList

    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigni_sodogan]'))
drop procedure [dbo].[sp_podigni_sodogan]

Go
CREATE     PROCEDURE SP_Podigni_SoDogan
   @Sifra_OE smallint,
   @Sifra_Art varchar(20) = Null
AS
    Declare @SSQL Varchar(8000)
    select * from SoDogan
    where Sifra_Oe_Vlez = @Sifra_Oe and Sifra_Art = @Sifra_Art and
          Kolicina_Vlez > Kolicina_Izlez
    order by Datum_ECd




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniabarpak_art_site]'))
drop procedure [dbo].[sp_podigniabarpak_art_site]

Go


create  PROCEDURE sp_PodigniABarPak_Art_Site

        @Sifra_Art    varchar (20)

AS

    Select A.*, K.ImeArt
    From ABarPak A
    inner join Katart K
        on A.Sifra_Art = K.SifrA_Art
    Where A.Sifra_Art = @Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniabarpak_nom]'))
drop procedure [dbo].[sp_podigniabarpak_nom]

Go

CREATE PROCEDURE sp_PodigniABarPak_Nom
        @Nom        varchar (50),
    @Sifra_Art    varchar(20) OUTPUT,
    @ZaKolic    decimal (18, 6) OUTPUT,
    @Sifra_KatPak    smallint OUTPUT,
        @Nom_Alt    varchar (50) OUTPUT

AS

        Declare @Nom_Drug        varchar (50)
    Declare @ZaKolic_Drug       decimal (18, 6)
    Declare @Sifra_KatPak_Drug    smallint

    set @Nom_Alt = null

    -- ??? Dali e ednoznaccno DK
    Select @Sifra_KatPak = Sifra_KatPak, @Sifra_Art = Sifra_Art, @ZaKolic = ZaKolic
    From ABarPak
    Where Nom = @Nom

    if @Sifra_Art is not null
    begin
        Select @Nom_Drug = Nom, @Sifra_KatPak_Drug = Sifra_KatPak, @ZaKolic_Drug = ZaKolic
        From ABarPak
        Where Sifra_Art = @Sifra_Art and Nom <> @Nom

        if @Nom_Drug is not null
        begin
            set @Nom_Alt = @Nom_Drug
            set @SifrA_KatPak = @Sifra_KatPak_Drug
            set @ZaKolic = @ZaKolic_Drug
        end
    end




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniabarpak_nom_site]'))
drop procedure [dbo].[sp_podigniabarpak_nom_site]

Go


CREATE    PROCEDURE sp_PodigniABarPak_Nom_Site

        @Nom        varchar (50)

AS

    Declare @PozChr29 int
    Declare @KodEAN  varchar(50)
    Declare @Sifra_Art varchar(20)

    Set @PozChr29 = Charindex(char(29), @Nom)

    IF @PozChr29 > 0 And (Substring(@Nom, 1, 2) = '02'
                  or Substring(@Nom, 1, 2) = '01')
        SET @KodEAN = Substring(@Nom, 4, 13)
    ELSE
        SET @KodEAN = @Nom

    create table #Sifri
    (    Sifra_Art  varchaR(20)
    )

    -- Najdi koi sifri na artikli go imaat toj bar-kod
    insert into #Sifri
        select A.Sifra_Art
        from ABarPak A
        where A.Nom = @KodEAN

    Select A.*, K.ImeArt
    From ABarPak A
    inner join Katart K
        on A.Sifra_Art = K.Sifra_Art
    inner join #Sifri S
        on A.Sifra_Art = S.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniabarpakzaartoddokr]'))
drop procedure [dbo].[sp_podigniabarpakzaartoddokr]

Go

create PROCEDURE sp_PodigniABarPakZaArtOdDokr

    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int

AS

SELECT KP.*, K.ImeArt
FROM ABarPak KP
inner join Katart K
    on KP.Sifra_Art = K.Sifra_Art
WHERE KP.Sifra_Art IN
    ( SELECT DISTINCT Sifra_Art
      FROM Stavr
      WHERE Sifra_OE = @Sifra_OE AND Sifra_Dok = @Sifra_Dok AND Broj_Dok = @Broj_Dok
      GROUP BY Sifra_Art)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniabarpakzaartodnar]'))
drop procedure [dbo].[sp_podigniabarpakzaartodnar]

Go


CREATE    PROCEDURE sp_PodigniABarPakZaArtOdNar

    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int,
    @Lokacija    varchar(10)=null

AS

    Create Table #ArtNarac
    (
        Sifra_Art varchar(20)
    )

    IF @Lokacija IS NOT NULL
        Insert Into #ArtNarac
        SELECT DISTINCT ST.Sifra_Art
          FROM StaNarac  ST
          INNER JOIN KatArt K ON ST.Sifra_Art = K.Sifra_Art
          WHERE Sifra_OE = @Sifra_OE AND Sifra_Nar = @Sifra_Nar AND Broj_Nar = @Broj_Nar
            AND K.Lokacija = @Lokacija
    Else
        Insert Into #ArtNarac
        SELECT DISTINCT Sifra_Art
          FROM StaNarac
          WHERE Sifra_OE = @Sifra_OE AND Sifra_Nar = @Sifra_Nar AND Broj_Nar = @Broj_Nar


    SELECT KP.*, K.ImeArt
    FROM ABarPak KP
    inner join Katart K
        on KP.Sifra_Art = K.Sifra_Art
    WHERE KP.Sifra_Art IN
        ( SELECT DISTINCT Sifra_Art FROM #ArtNarac )




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniadrtaggy]'))
drop procedure [dbo].[sp_podigniadrtaggy]

Go
CREATE PROCEDURE sp_PodigniAdrTaggy
    @Sifra_OE    Smallint,
    @Sifra_Art    VarChar(20)
AS
    SELECT * from AdrTaggy where Sifra_Oe=@Sifra_Oe and Sifra_Art=@Sifra_Art
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniakciikolic]'))
drop procedure [dbo].[sp_podigniakciikolic]

Go
CREATE PROCEDURE sp_PodigniAkciiKolic
    @Ozn_Akcija    char(10)
AS
SELECT * FROM AkciiKolic WHERE Ozn_Akcija=@Ozn_Akcija



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniakciiprod]'))
drop procedure [dbo].[sp_podigniakciiprod]

Go
CREATE  PROCEDURE sp_PodigniAkciiProd
    @DokrID    int
AS
    Select * From AkciiProd Where DokrID=@DokrID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniakcija]'))
drop procedure [dbo].[sp_podigniakcija]

Go



CREATE   PROCEDURE sp_PodigniAkcija
   @Sifra_OE Smallint,
    @Sifra_Kup Char(6),
    @DatumVreme DateTime,
    @Aktivnost Char(1)
AS
   SELECT * FROM Akcija WHERE Sifra_OE=@Sifra_OE And
   Sifra_Kup=@Sifra_Kup And DatumVreme=@DAtumVreme And Aktivnost=@Aktivnost
    IF @@ROWCOUNT=1
        RETURN 0
    ELSE
        RETURN 77000




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignianfindok]'))
drop procedure [dbo].[sp_podignianfindok]

Go


CREATE    PROCEDURE sp_PodigniANFINDOK
   @Sifra_OE Smallint,
   @Sifra_Dok Smallint,
   @Broj_Dok Int
AS
   SELECT A.*, O.ImeOrg, T.ImeDok, AK.ImeAnal,AK.DevZatvDen, K.ImeKup, P.ImePat, OP.Ime_Oper As Ime_Vnes, OPP.Ime_Oper As Ime_Izm
   FROM AnFinDok A
   INNER JOIN Orged O ON A.Sifra_OE=O.Sifra_OE
   INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
   LEFT OUTER JOIN Anal AK ON A.Kto=AK.Kto_Anal
   LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
   LEFT OUTER JOIN Patnici P ON A.Sifra_Pat=P.Sifra_Pat
   LEFT OUTER JOIN Operatori OP ON A.Sifra_Oper=OP.Sifra_Oper
   LEFT OUTER JOIN Operatori OPP ON A.Sifra_OpIz=OPP.Sifra_Oper
   WHERE A.Sifra_OE=@Sifra_OE AND A.Sifra_Dok=@Sifra_Dok AND A.Broj_Dok=@Broj_Dok
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignianfindokdevkalk]'))
drop procedure [dbo].[sp_podignianfindokdevkalk]

Go



CREATE       PROCEDURE sp_PodigniAnFinDokDevKalk
    @Sifra_OE Smallint,
    @Sifra_Dok smallint=132,
    @Broj_Kalk Int
AS
   SELECT A.*, DK.Kurs Kurs1, DK.TrosVoMatFak, O.ImeOrg, T.ImeDok, AK.ImeAnal, K.ImeKup, P.ImePat, OP.Ime_Oper As Ime_Vnes, OPP.Ime_Oper As Ime_Izm, KL.ImeVal
   FROM AnFinDok A
   INNER JOIN Orged O ON A.Sifra_OE=O.Sifra_OE
   INNER JOIN TipDok T ON A.Sifra_Dok=T.Sifra_Dok
   Inner Join DevKalk DK On A.Sifra_OE=DK.Sifra_OE And A.Broj_Kalk=DK.Broj_Kalk AND DK.Sifra_Dok=A.Sifra_DokDK
   LEFT OUTER JOIN Anal AK ON A.Kto=AK.Kto_Anal
   LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
   LEFT OUTER JOIN Patnici P ON A.Sifra_Pat=P.Sifra_Pat
   LEFT OUTER JOIN Operatori OP ON A.Sifra_Oper=OP.Sifra_Oper
   LEFT OUTER JOIN Operatori OPP ON A.Sifra_OpIz=OPP.Sifra_Oper
   LEFT OUTER JOIN KrsLista KL ON A.KojaVal=KL.SImeVal
   WHERE A.Sifra_OE=@Sifra_OE AND  A.Broj_Kalk=@Broj_Kalk AND Sifra_DokDK=@Sifra_Dok







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignianfindoksoid]'))
drop procedure [dbo].[sp_podignianfindoksoid]

Go

CREATE   PROCEDURE sp_PodigniAnFinDokSoID
   @AnID Int
AS
   SELECT Sifra_Oe, Sifra_dok, Broj_Dok FROM AnFinDok
   WHERE AnID=@AnID
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniapteka]'))
drop procedure [dbo].[sp_podigniapteka]

Go

CREATE PROCEDURE sp_PodigniApteka

    @Sifra_Apteka    char(2)
AS
    Select * From Apteka
    Where Sifra_Apteka=@Sifra_Apteka



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniarkakasadn]'))
drop procedure [dbo].[sp_podigniarkakasadn]

Go
CREATE Procedure sp_PodigniArkaKAsaDn
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int
As
    Select * from ArkaKasaDn
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniarkakasadnsta]'))
drop procedure [dbo].[sp_podigniarkakasadnsta]

Go
CREATE Procedure sp_PodigniArkaKAsaDnSta
    @Sifra_Oe smallint,
    @Datum_Evid smalldatetime,
    @BrKasa smallint,
    @BrSmena smallint,
    @Broj_Dok int,
    @Sifra_nac smallint
As
    Select * from ArkaKasaDnSta
    Where Sifra_Oe=@Sifra_Oe and
        Datum_Evid=@Datum_Evid and
        BrKasa=@BrKasa and
        BrSmena=@BrSmena and
        Broj_Dok=@Broj_Dok and
        Sifra_nac=@Sifra_nac


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniartpodelbi]'))
drop procedure [dbo].[sp_podigniartpodelbi]

Go
CREATE PROCEDURE sp_PodigniArtPodelbi
    @Sifra_Art    varchar(20),
    @Sifra_Podg    char(6) = Null Output,
    @Drugo1    smallint = Null Output,
    @Drugo2    smallint = Null Output,
    @Drugo3    smallint = Null Output,
    @Drugo4    smallint = Null Output,
    @Drugo5    smallint = Null Output,
    @Sifra_Drg    smallint = Null Output
AS
    Select @Sifra_Podg=Sifra_Podg, @Drugo1=Drugo1, @Drugo2=Drugo2, @Drugo3=Drugo3, @Drugo4=Drugo4, @Drugo5=Drugo5, @Sifra_Drg=Sifra_Drg
    From Katart
    Where Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniarttaggy]'))
drop procedure [dbo].[sp_podigniarttaggy]

Go
CREATE PROCEDURE sp_PodigniArtTaggy
    @Sifra_OE    Smallint,
    @Sifra_Art    VarChar(20)
AS
    SELECT * from AdrTaggy where Sifra_Oe=@Sifra_Oe and Sifra_Art=@Sifra_Art
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniasortiman]'))
drop procedure [dbo].[sp_podigniasortiman]

Go

CREATE PROCEDURE [dbo].[sp_PodigniAsortiman]
    @Sifra_Asort    varchar(10) = NULL

AS

    IF @Sifra_Asort IS NOT NULL
        SELECT    *
        FROM    Asortiman
        WHERE    Sifra_Asort = @Sifra_Asort
    ELSE
        SELECT    *
        FROM    Asortiman

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniatckodovi]'))
drop procedure [dbo].[sp_podigniatckodovi]

Go

CREATE PROCEDURE sp_PodigniATCKodovi

    @Sifra_ATC    char(10)
AS
    Select * From ATCKodovi
    Where Sifra_ATC=@Sifra_ATC
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniavtkont]'))
drop procedure [dbo].[sp_podigniavtkont]

Go



CREATE    PROCEDURE sp_PodigniAvtKont
    @Sif_GrOrg        char(6),
    @Sif_GrDok        char(3),
    @Sif_GrOrg_Prima    varchar(6)
AS
    Declare @SSQL varchar(1000)
    Set @SSQL = 'SELECT K.*, A.ImeAnal, A.DaliDev, A.DaliKupuv, A.DaliOrg, A.DetalDiv, A.SoTrosok
    FROM AvtKont K
    INNER JOIN Anal A ON K.Kto_Anal = A.Kto_Anal
    WHERE  K.Sif_GrOrg = ''' + @Sif_GrOrg + ''' AND K.Sif_GrDok = ''' +
    @Sif_GrDok + ''' AND K.Sif_GrOrg_Prima '
    if @Sif_GrOrg_Prima IS NULL
        Set @SSQL = @SSQL + 'IS NULL'
    else
        Set @SSQL = @SSQL + ' = ''' + @Sif_GrOrg_Prima + ''''
    Exec(@SSQL)
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniavtkontartmap]'))
drop procedure [dbo].[sp_podigniavtkontartmap]

Go
CREATE PROCEDURE sp_PodigniAvtKontArtMap
AS
    SELECT AM.*, A1.ImeAnal ImeKtoAvtKont, A2.ImeAnal ImeKtoArt, A3.ImeAnal ImeKtoKniz
    FROM AvtKontArtMap AM
    LEFT OUTER JOIN Anal A1 ON A1.Kto_Anal=AM.Kto_Anal_OdAvtKont
    LEFT OUTER JOIN Anal A2 ON A2.Kto_Anal=AM.Kto_Anal_Art
    LEFT OUTER JOIN Anal A3 ON A3.Kto_Anal=AM.Kto_Anal_Kniz




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniavtkontos]'))
drop procedure [dbo].[sp_podigniavtkontos]

Go



CREATE       PROCEDURE sp_PodigniAvtKontOS
    @Kod_Kniz smallint
AS
    SELECT AV.*, A.ImeAnal, AA.ImeAnal ImeAnal2, AA.DaliOrg, AA.DetalDiv, AA.SoTrosok, AA.DaliVidTros
    FROM AvtKontOSn AV
    left outer join anal A on AV. Kto_Anal_OS = A.Kto_Anal
    left outer join anal AA on AV. Kto_Anal_Knz = AA.Kto_Anal
    Where AV.Kod_kniz=@Kod_Kniz











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniavtmail]'))
drop procedure [dbo].[sp_podigniavtmail]

Go





CREATE     PROCEDURE [dbo].[sp_PodigniAvtMail]
        @Korisnik  varchar(20)=null,
        @Rbr  smallint=null,
        @RbrProc  smallint=null
AS
        Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select M.Grupa, M.Korisnik, M.Exec_Proc, M.Mail_Od, M.Mail_Do, M.Param_Zamena,
                  M.Format, M.Naslov, M.ImeRep, M.ImeProc, M.Param_ZameniSo, M.Rbr, M.RbrProc, M.KolonaPlus,
                  M.Sub_Parametri, M.Sub_Ime, M.RepOrient
                      From AvtMail M
                  where 1=1 '
        Set @SSQL = @SSQL + ' and M.Aktiven = ''D'' '
        If @Korisnik Is Not Null
           Set @SSQL = @SSQL + ' and M.Korisnik = ''' + @Korisnik + ''' '
        If @Rbr Is Not Null
           Set @SSQL = @SSQL + ' And M.Rbr=' + Cast(@Rbr As Varchar(6)) + ' '
        If @RbrProc Is Not Null
           Set @SSQL = @SSQL + ' And M.RbrProc=' + Cast(@RbrProc As Varchar(6)) + ' '
        Set @SSQL = @SSQL + ' order by M.Rbr, M.RbrProc'
        Print (@SSQL)
        Exec (@SSQL)











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniavtvrski]'))
drop procedure [dbo].[sp_podigniavtvrski]

Go

CREATE     PROCEDURE sp_PodigniAvtVrski
    @GStId int
AS
    SELECT V.*, F.Sifra_Kup, K.ImeKup, F.Sifra_OE, F.Sifra_Dok, F.Broj_Dok, F.BrojDok, F.Datum_Dok, F.Rok, F.Sifra_Pat,
    A.DaliOrg, A.DaliKupuv, A.DaliDev, F.Danok1, F.Danok2, F.Opis, F.Kojaval, F.Kurs, F.Sifra_Div,
    D.Datum_Dok DDatum_Dok
    FROM FAvtVrski V
    INNER JOIN GStav G ON V.GstID = G.GstID
    INNER JOIN Anal A ON G.Kto_Anal = A.Kto_Anal
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    LEFT OUTER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
    LEFT OUTER JOIN Dokr D ON V.DokrID = D.DokrID
    WHERE V.GStID  = @GStID
    ORDER BY V.RbrNalog
IF @@ERROR=0
    IF @@ROWCOUNT=1
        RETURN 0
    ELSE
        RETURN 77000
ELSE
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibanki]'))
drop procedure [dbo].[sp_podignibanki]

Go
CREATE PROCEDURE sp_PodigniBanki
    @Sifra_Banka    smallint
 AS
    Select B.Sifra_Ban, B.ImeBanka, B.ZiroSkaNBRM, B.Zabeleska, B.DanocenBr
    From Banki B
    Where B.Sifra_Ban=@Sifra_Banka



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniblokiranid]'))
drop procedure [dbo].[sp_podigniblokiranid]

Go

CREATE  PROCEDURE sp_PodigniBlokiranID
   @DokrID int,
    @Blokiran Char(1) OUTPUT
AS
    Select @Blokiran=Blokiran From Dokr
    Where DokrID = @DokrID
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniblokirankkluc]'))
drop procedure [dbo].[sp_podigniblokirankkluc]

Go

CREATE   PROCEDURE sp_PodigniBlokiranKKluc
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
    @Blokiran Char(1) OUTPUT
AS
    If @Sifra_Prim Is Null
        Select @Blokiran=Blokiran From Dokr
        Where Sifra_OE=@Sifra_OE
            And Sifra_Dok=@Sifra_Dok
            And Broj_Dok=@Broj_Dok
    Else
        Select @Blokiran=Blokiran From Dokr
        Where Sifra_OE=@Sifra_OE
            And Sifra_Dok=@Sifra_Dok
            And Broj_Dok=@Broj_Dok
            And Sifra_Prim=@Sifra_Prim
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrdok]'))
drop procedure [dbo].[sp_podignibrdok]

Go

CREATE PROCEDURE sp_PodigniBrDok
   @Sifra_OE Smallint,
   @Sifra_Dok Smallint
AS
   SELECT *   FROM BrDok
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrnal]'))
drop procedure [dbo].[sp_podignibrnal]

Go

CREATE PROCEDURE sp_PodigniBrNal
   @Sifra_Nal Smallint
AS
   SELECT *   FROM BrNal
   WHERE Sifra_Nal=@Sifra_Nal
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrnar]'))
drop procedure [dbo].[sp_podignibrnar]

Go

CREATE  PROCEDURE sp_PodigniBrNar
   @Sifra_OE Smallint,
   @Sifra_Nar Smallint
AS
   SELECT *   FROM BrNar
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Nar=@Sifra_Nar
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrstanarac]'))
drop procedure [dbo].[sp_podignibrstanarac]

Go
CREATE PROCEDURE sp_PodigniBrStaNarac
    @StaNarID    int
 AS
    Select SeriskiBr, StaNarId
    From BrStaNar
    Where StaNarID=@StaNarID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrstavr]'))
drop procedure [dbo].[sp_podignibrstavr]

Go
CREATE PROCEDURE sp_PodigniBrStavr
    @DokID    int
 AS
    Select SeriskiBr, DokId
    From BrStavr
    Where DokID=@DokID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrstavrsite]'))
drop procedure [dbo].[sp_podignibrstavrsite]

Go

CREATE  PROCEDURE sp_PodigniBrStavrSite
    @DokrID    int
 AS
    Select B.SeriskiBr, S.DokId, S.Sifra_Art From Stavr S INNER JOIN BrStavr B ON S.DokID=B.DokID
    Where S.DokrID=@DokrID





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignibrvlezovi]'))
drop procedure [dbo].[sp_podignibrvlezovi]

Go
create PROCEDURE [dbo].[sp_PodigniBrVlezovi]
    @Sifra_OE    int,
    @DatumOd    smalldatetime,
    @DatumDo    smalldatetime

AS

    DECLARE @SSQL varchar(1000)

    SET @SSQL = '

    SELECT    B.Sifra_Oe, O.ImeOrg, B.Biznis_Den, COUNT(Biznis_Den) Broj
    FROM    BrojacVlezovi B INNER JOIN OrgEd O ON B.Sifra_Oe = O.Sifra_Oe
    WHERE    1 = 1 '

    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND B.Sifra_Oe = ' + CAST(@Sifra_OE as varchar(5))
    IF @DatumOd IS NOT NULL
        SET @SSQL = @SSQL + ' AND B.Biznis_Den >= ''' + CAST(@DatumOd as varchar(35)) + ''''
    IF @DatumDo IS NOT NULL
        SET @SSQL = @SSQL + ' AND B.Biznis_Den <= ''' + CAST(@DatumDo as varchar(35)) + ''''

    SET @SSQL = @SSQL + ' GROUP BY B.Sifra_Oe, O.ImeOrg, B.Biznis_Den'

    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicekovi]'))
drop procedure [dbo].[sp_podignicekovi]

Go
CREATE PROCEDURE sp_PodigniCekovi
    @Datum_Vnes    smalldatetime,
    @KojaSmetka    char(1)
AS
    Select C.Datum_Vnes, C.KojaSmetka, C.Iznos, C.Dat_Dosp, C.Br_Cek, C.Br_Tekovna, C.Sifra_Ban, B.ImeBanka, C.Opis
    From Cekovi C
    Left Outer Join Banki B On B.Sifra_Ban=C.Sifra_Ban
    Where C.Datum_Vnes=@Datum_Vnes and C.KojaSmetka=@KojaSmetka
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenazagrorg]'))
drop procedure [dbo].[sp_podignicenazagrorg]

Go
CREATE  PROCEDURE sp_PodigniCenaZaGrOrg
    @Sifra_OE    Smallint,
    @Sifra_Art    Varchar(20),
    @Cena        Decimal(18,6) = NULL OUTPUT,
    @Dozvoleno    Char(1) = NULL OUTPUT,
    @Aktivna    Char(1) = NULL OUTPUT,
    @OptDozvoleno    Char(1) = NULL OUTPUT
AS
    Select @Cena=CC.Cena, @Dozvoleno=CC.Dozvoleno, @Aktivna = GG.Aktivna
    From CenGrOrg CC WITH(NOLOCK)
    Inner Join SGrOrg SS On CC.Sif_GrOrg=SS.Sif_GrOrg And SS.Sifra_OE=@Sifra_OE
    Inner Join GrOrg GG On CC.Sif_GrOrg=GG.Sif_GrOrg And GG.Edinstvena='D'
    Where Sifra_Art=@Sifra_Art
    Select @OptDozvoleno=Dozvoleno From OptZalPoOe With(NOLOCK)
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicendog]'))
drop procedure [dbo].[sp_podignicendog]

Go



CREATE    PROCEDURE sp_PodigniCenDog

    @Sifra_Kup    char(6),
    @TipKup    varchar(11),
    @DogBr    char(10)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select * From CenDog
            Where DogBr = ''' + @DogBr + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Else
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''999000'' '--Set @SSQL = @SSQL + ' And Sifra_Kup Is Null '--Set @SSQL = @SSQL + ' And Sifra_Kup Is Null '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And TipKup = ''' + @TipKup + ''' '
    Else
        Set @SSQL = @SSQL + ' And TipKup =''ALL'' '--Set @SSQL = @SSQL + ' And TipKup Is Null '
    Exec (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicendogsta]'))
drop procedure [dbo].[sp_podignicendogsta]

Go

CREATE    PROCEDURE sp_PodigniCenDogSta

    @Sifra_Kup    char(6),
    @TipKup    varchar(11),
    @DogBr    char(10)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select C.*, K.ImeArt From CenDogSta C
                      LEFT OUTER JOIN KatArt K ON C.Sifra_Art = K.Sifra_Art
              Where DogBr = ''' + @DogBr + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Else
        Set @SSQL = @SSQL + ' And Sifra_Kup = ''999000'' '--Set @SSQL = @SSQL + ' And Sifra_Kup Is Null '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And TipKup = ''' + @TipKup + ''' '
    Else
        Set @SSQL = @SSQL + ' And TipKup =''ALL'' '--Set @SSQL = @SSQL + ' And TipKup Is Null '

    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicengrorgsodozv]'))
drop procedure [dbo].[sp_podignicengrorgsodozv]

Go




CREATE        PROCEDURE sp_PodigniCenGrOrgSoDozv
    @Sif_GrOrg varchar(6),
    @Tip_DozvOrgArt varchar(10) = NULL
AS
    CREATE TABLE #TmpCeni
    (Sif_GrOrg varchar(12),
     Sifra_Art  varchar(20),
     Cena  Decimal(18,6),
     Dozv  char(1),
     Ispraten     varchar(120),
     CenaR    Decimal(18,6),
     ImeArt varchar(50) )
    INSERT INTO #TmpCeni
    SELECT C.*, A.ImeArt     FROM CenGrOrg C
    INNER JOIN KatArt A ON C.Sifra_Art = A.Sifra_Art
    WHERE C.Sif_GrOrg = @Sif_GrOrg
IF @Tip_DozvOrgArt IS NOT NULL
Begin
CREATE TABLE #TmpArt
( Sifra_Art varchar(20))
IF @Tip_DozvOrgArt='PODG'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Sifra_Podg IN
    (SELECT Sifra_Podg FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='GR'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Sifra_Podg IN
    (SELECT Sifra_Podg FROM Grupi WHERE Sifra_Gr IN (SELECT Sifra_Gr FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg))
    AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='DR1'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Drugo1 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='DR2'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Drugo2 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='DR3'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Drugo3 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='DR4'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Drugo4 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt='DR5'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt WHERE Drugo5 IN
    (SELECT Tuga_Sini FROM DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg) AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
ELSE IF @Tip_DozvOrgArt = 'SIF'
    Begin
    Declare @ArtOd varchar(20)
    Declare @ArtDo varchar(20)
    Declare DozvArtOdDo Cursor Fast_Forward For
        Select  Sifra_Od, Sifra_Do From DozvOrgArt WHERE Sif_GrOrg = @Sif_GrOrg
    Open DozvArtOdDo
    Fetch Next From DozvArtOdDo Into @ArtOd, @ArtDo
    While @@Fetch_Status = 0
    Begin
        INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Art FROM KatArt
        WHERE Sifra_Art >= @ArtOd AND Sifra_Art <= @ArtDo AND Sifra_Art NOT IN (SELECT Sifra_Art FROM #TmpCeni)
        Fetch Next From DozvArtOdDo Into  @ArtOd, @ArtDo
    End
    Close DozvArtOdDo
    Deallocate DozvArtOdDo
    End
    DELETE FROM #TmpCeni

    INSERT INTO #TmpCeni
    SELECT C.*, A.ImeArt     FROM CenGrOrg C
    INNER JOIN #TmpArt TA ON C.Sifra_Art = TA.Sifra_Art
    INNER JOIN KatArt A ON C.Sifra_Art = A.Sifra_Art
    WHERE C.Sif_GrOrg = @Sif_GrOrg
End
    SELECT * FROM #TmpCeni  ORDER BY  Sifra_Art
    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenimp]'))
drop procedure [dbo].[sp_podignicenimp]

Go

CREATE  PROCEDURE sp_PodigniCENIMP
    @Sifra_VidDog    VARCHAR(20),
    @Sifra_Vernost    SMALLINT,
    @Sif_GrOrg        CHAR(6)
AS
If @Sif_GrOrg is Not Null
    SELECT C.*, K.ImeArt FROM CENIMP C
    INNER JOIN Katart K ON C.Sifra_Art = K.Sifra_Art
    WHERE C.Sifra_VidDog = @Sifra_VidDog AND C.Sifra_Vernost = @Sifra_Vernost
    AND C.Sif_GrOrg  = @Sif_GrOrg ORDER BY C.Sifra_Art
ELSE
    SELECT C.*, K.ImeArt FROM CENIMP C
    INNER JOIN Katart K ON C.Sifra_Art = K.Sifra_Art
    WHERE C.Sifra_VidDog = @Sifra_VidDog AND C.Sifra_Vernost = @Sifra_Vernost
    AND C.Sif_GrOrg IS NULL ORDER BY C.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniceniplanski]'))
drop procedure [dbo].[sp_podigniceniplanski]

Go



CREATE    PROCEDURE sp_PodigniCeniPlanski
    @Sif_GrOrg        char(6),
    @Vazi_Od        smalldatetime
AS
    Select C.*, K.ImeArt, K.EdMera
    From CeniPlanski C INNER JOIN KatArt K ON C.Sifra_Art=K.Sifra_Art
    WHERE Sif_GrOrg=@Sif_GrOrg AND Vazi_Od=@Vazi_Od
    ORDER BY C.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenizaorg]'))
drop procedure [dbo].[sp_podignicenizaorg]

Go


CREATE    PROCEDURE sp_PodigniCeniZaOrg
    @Sif_GrOrg     varchar(12),
    @Sifra_OE       smallint,
    @Sifra_Art_Od varchar(20),
    @Sifra_Art_Do varchar(20),
    @Samo_Novi   char(1) = 'D'
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'Select Sifra_Art, Cena, Ispraten
    From CenGrOrg
    WHERE Sif_GrOrg=''' + @Sif_GrOrg  + ''' '
    If @Sifra_Art_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND Sifra_Art>=''' + @Sifra_Art_Od +''' '
    If @Sifra_Art_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND Sifra_Art<=''' + @Sifra_Art_Do + ''' '
/*    If @Samo_Novi = 'D'
        Set @SSQL = @SSQL + ' AND (Ispraten IS NULL OR Ispraten = '''' OR ' +
        Cast(@Sifra_OE as varchar(5)) + ' NOT IN (' + @Isp + '))'
print(@SSQL)*/
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenkartkor]'))
drop procedure [dbo].[sp_podignicenkartkor]

Go
CREATE PROCEDURE sp_PodigniCenKartKor
    @Sifra_CeniKartKor    smallint
 AS
    Select C.*, K.ImeArt
    From CenKartKor C
    Inner Join Katart K On K.Sifra_Art=C.Sifra_Art
    Where C.Sifra_CeniKartKor=@Sifra_CeniKartKor



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicennabpoart]'))
drop procedure [dbo].[sp_podignicennabpoart]

Go

CREATE PROCEDURE [dbo].[sp_PodigniCenNabPoArt]
    @Godina        smallint,
    @Mesec        smallint,
    @Sifra_Podg    char(6) = NULL

AS
    IF @Sifra_Podg IS NOT NULL
        SELECT    C.*, K.ImeArt
        FROM    CenNabPoArt C
                INNER JOIN KatArt K ON K.Sifra_Art = C.Sifra_Art
        WHERE    Godina = @Godina AND Mesec = @Mesec AND K.Sifra_Podg = @Sifra_Podg
    ELSE
        SELECT    C.*, K.ImeArt
        FROM    CenNabPoArt C
                INNER JOIN KatArt K ON K.Sifra_Art = C.Sifra_Art
        WHERE    Godina = @Godina AND Mesec = @Mesec

    RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenovnik]'))
drop procedure [dbo].[sp_podignicenovnik]

Go



CREATE        PROCEDURE sp_PodigniCenovnik
    @Sifra_kup    char(6),
    @Sifra_art    varchar(20),
    @Cena        decimal(18,4) OUTPUT,
    @Popust    decimal(6,2) = null OUTPUT,
    @SpeCena    decimal(18,4)=null OUTPUT,
    @SpePopust    decimal(6,2)=null OUTPUT,
    @PocDatum    smalldatetime=null OUTPUT,
    @KrajDatum    smalldatetime=null OUTPUT,
    @Aktiven    char(1) = Null OUTPUT,
    @SImeVal    char(3) = Null OUTPUT,
    @PopustGot    decimal(6,2) = null OUTPUT,
        @Sifra_Art_Cen    varchar (20) = null OUTPUT,
    @Sifra_Tar    char(3) = NULL OUTPUT,
    @ProcOsn    decimal(6,3)=NULL OUTPUT,
    @DanCeni    char(1)=NULL OUTPUT
AS
    Select @Cena=C.Cena, @Popust=C.Popust, @SpeCena=C.SpeCena, @SpePopust=C.SpePopust,
         @PocDatum=C.PocDatum, @KrajDatum=C.KrajDatum, @Aktiven=C.Aktiven, @SImeVal=C.SImeVal,
         @PopustGot=C.PopustGot, @Sifra_Art_Cen = C.Sifra_Art, @Sifra_Tar=A.Sifra_Tar, @ProcOsn=T.ProcOsn, @DanCeni=C.DanCeni
    From Cenovnik C
    Inner Join KatArt A on C.Sifra_Art=A.Sifra_Art
    inner Join Tarifi T on T.Sifra_Tar=A.Sifra_Tar
    Where C.Sifra_Kup = @Sifra_Kup and C.Sifra_art = @Sifra_Art







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenovnikotkup]'))
drop procedure [dbo].[sp_podignicenovnikotkup]

Go
Create procedure sp_PodigniCenovnikOtkup
    @Sifra_art varchar(20),
    @Vazi_od smalldatetime
As
    Select * from CenovnikOtkup
    Where Sifra_Art=@Sifra_art and Vazi_od=@Vazi_od



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenpoart]'))
drop procedure [dbo].[sp_podignicenpoart]

Go
CREATE PROCEDURE sp_PodigniCenPoArt
    @Tip_Cena    smallint,
    @Sifra_Art    varchar(20)
AS
    Select Tip_Cena, Sifra_Art, Opis_Cena, Cena, Popust, SpeCena, SpePopust, PocDatum, KrajDatum
    From CenPoArt
    Where Tip_Cena=@Tip_Cena And Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenpopodgr_kup]'))
drop procedure [dbo].[sp_podignicenpopodgr_kup]

Go

CREATE    PROCEDURE sp_PodigniCenPoPodgr_Kup
    @TipKup        varchar(11),
    @PodelArt    char(1) = Null,
    @VratiSitePodel    char(1) = Null

AS

IF @PodelArt IS NULL OR @PodelArt='P' OR @PodelArt='G' OR @PodelArt='7'
    Select C.*, '' as Ime_7, P.Ime_Podg, G.Ime_Gr
    From CenPoPodgr C
        Left Outer Join Drugo7 D on cast (C.Sifra_Podelba as int) = D.Sifra_7
        Left Outer Join Podgrupi P on C.Sifra_Podelba = P.Sifra_Podg
        Left Outer Join Grupi G on C.Sifra_Podelba = G.Sifra_Gr
    WHERE TipKup = @TipKup
        Order by Tip_Podelba, Sifra_Podelba

else if @PodelArt = '1' and @VratiSitePodel = 'D'
    Select C.Tip_Podelba, C.TipKup, C.Sifra_Podelba,
           D.Ime_1 as Ime_7, '' Ime_Podg, '' Ime_Gr, Uces, Uces2, Uces3, 1 ZaOrd,
           C.Cena, C.ParamN1, C.ParamN2, C.ParamN3
    From CenPoPodgr C
    Left Outer Join Drugo1 D
        on cast (C.Sifra_Podelba as int) = D.Sifra_1
    WHERE TipKup = @TipKup

    Union

    Select 'A' Tip_Podelba, Null TipKup, D.Sifra_1 Sifra_Podelba,
           D.Ime_1 as Ime_7, '' Ime_Podg, '' Ime_Gr, 0, 0, 0, 2 ZaOrd,
           0 Cena, 0 ParamN1, 0 ParamN2, 0 ParamN3

    From Drugo1 D
    Where sifra_1 not in (Select Sifra_1 From Drugo1 D
                left Join CenPoPodgr C
                    on cast (C.Sifra_Podelba as int) = D.Sifra_1
                WHERE TipKup = @TipKup )

    Order by ZaOrd, Sifra_Podelba

ELSE IF @PodelArt='1'
    Select C.Tip_Podelba, C.TipKup, D.Sifra_1 Sifra_Podelba, C.Uces, C.Cena, C.Uces2, C.Uces3, C.ParamN1, C.ParamN2, C.ParamN3, D.Ime_1 as Ime_7, '' Ime_Podg, '' Ime_Gr
        From Drugo1 D
    Left Outer Join CenPoPodgr C on cast (C.Sifra_Podelba as int) = D.Sifra_1
    WHERE (TipKup = @TipKup Or TipKup Is Null)
    Union
    Select Null Tip_Podelba, Null TipKup, D.Sifra_1 Sifra_Podelba, Null Uces, Null Cena, Null Uces2, Null Uces3, Null ParamN1,
    Null ParamN2, Null ParamN3, D.Ime_1 as Ime_7, '' Ime_Podg, '' Ime_Gr
    From Drugo1 D
    Where sifra_1 not in (Select Sifra_1 From Drugo1 D
    left Join CenPoPodgr C on cast (C.Sifra_Podelba as int) = D.Sifra_1
    WHERE (TipKup = @TipKup Or TipKup Is Null))
    Order by Tip_Podelba, D.Sifra_1 --Sifra_Podelba

else if @PodelArt = '2' and @VratiSitePodel = 'D'
    Select C.Tip_Podelba, C.TipKup, C.Sifra_Podelba,
           D.Ime_2 as Ime_7, '' Ime_Podg, '' Ime_Gr, Uces, Uces2, Uces3, 1 ZaOrd,
           C.Cena, C.ParamN1, C.ParamN2, C.ParamN3
    From CenPoPodgr C
    Left Outer Join Drugo2 D
        on cast (C.Sifra_Podelba as int) = D.Sifra_2
    WHERE TipKup = @TipKup

    Union

    Select 'A' Tip_Podelba, Null TipKup, D.Sifra_2 Sifra_Podelba,
           D.Ime_2 as Ime_7, '' Ime_Podg, '' Ime_Gr, 0, 0, 0, 2 ZaOrd,
           0 Cena, 0 ParamN1, 0 ParamN2, 0 ParamN3

    From Drugo2 D
    Where sifra_2 not in (Select Sifra_2 From Drugo2 D
                left Join CenPoPodgr C
                    on cast (C.Sifra_Podelba as int) = D.Sifra_2
                WHERE TipKup = @TipKup )

    Order by ZaOrd, Sifra_Podelba

ELSE IF @PodelArt='2'

    Select C.*, D.Ime_2 as Ime_7, '' Ime_Podg, '' Ime_Gr From CenPoPodgr C
    Left Outer Join Drugo2 D on cast (C.Sifra_Podelba as int) = D.Sifra_2
    WHERE TipKup = @TipKup  Order by Tip_Podelba, Sifra_Podelba

ELSE IF @PodelArt='3'
    Select C.*, D.Ime_3 as Ime_7, '' Ime_Podg, '' Ime_Gr From CenPoPodgr C
    Left Outer Join Drugo3 D on cast (C.Sifra_Podelba as int) = D.Sifra_3
    WHERE TipKup = @TipKup  Order by Tip_Podelba, Sifra_Podelba
ELSE IF @PodelArt='4'
    Select C.*, D.Ime_4 as Ime_7, '' Ime_Podg, '' Ime_Gr From CenPoPodgr C
    Left Outer Join Drugo4 D on cast (C.Sifra_Podelba as int) = D.Sifra_4
    WHERE TipKup = @TipKup  Order by Tip_Podelba, Sifra_Podelba
ELSE IF @PodelArt='5'
    Select C.*, D.Ime_5 as Ime_7, '' Ime_Podg, '' Ime_Gr From CenPoPodgr C
    Left Outer Join Drugo5 D on cast (C.Sifra_Podelba as int) = D.Sifra_5
    WHERE TipKup = @TipKup  Order by Tip_Podelba, Sifra_Podelba
ELSE IF @PodelArt='6'
    Select C.*, D.Ime_6 as Ime_7, '' Ime_Podg, '' Ime_Gr From CenPoPodgr C
    Left Outer Join Drugo6 D on cast (C.Sifra_Podelba as int) = D.Sifra_6
    WHERE TipKup = @TipKup  Order by Tip_Podelba, Sifra_Podelba





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicenvidvozila]'))
drop procedure [dbo].[sp_podignicenvidvozila]

Go
CREATE PROCEDURE sp_PodigniCenVidVozila
    @Sifra_Vid_Voz    varchar(20)
 AS
    Select Sifra_Vid_Voz, KM, Cena
    From CenVidVozila
    Where Sifra_Vid_Voz=@Sifra_Vid_Voz



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignicrrkodovi]'))
drop procedure [dbo].[sp_podignicrrkodovi]

Go
CREATE  PROCEDURE sp_PodigniCRRKodovi
    @Sifra_Crr as tinyint
AS
    SELECT * FROM CRRKodovi WHERE Sifra_Crr = @Sifra_Crr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignideklart]'))
drop procedure [dbo].[sp_podignideklart]

Go


CREATE     PROCEDURE sp_PodigniDeklArt
    @Sifra_Art    varchar(20),
    @Ozn        varchar(20)
As
    Select * from DeklArt where Sifra_Art=@Sifra_Art and Ozn=@Ozn
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignideklartzadevnar]'))
drop procedure [dbo].[sp_podignideklartzadevnar]

Go
CREATE PROCEDURE [dbo].[sp_PodigniDeklArtZaDevNar]
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_DevN    int
AS
CREATE TABLE #TmpDekl
(DevNarStID    int,
Sifra_Art    varchar(20),
Ozn varchar(20),
ImeArt        nvarchar(80),
Upatstvo     nvarchar(2000),
Sifra_KatPak    smallint,
DeklTekst    nvarchar(2000)
)

INSERT INTO #TmpDekl (DevNarStID, Sifra_Art, Ozn, ImeArt, Upatstvo, Sifra_KatPak, DeklTekst)
SELECT S.DevNarStID, D.Sifra_Art, D.Ozn, D.ImeArt, D.Upatstvo, D.Sifra_KatPak,
case when DV.Ozn_Grupa IS null then dekltekst else null end as DeklTekst
FROM DeklArt D
LEFT OUTER JOIN DeklArtVrska DV ON D.Sifra_Art=DV.Sifra_Art AND DV.Ozn_Grupa=D.Ozn
INNER JOIN DevNarStavk S ON S.Sifra_Art=D.Sifra_Art AND S.Ozn_Dekl=D.Ozn
INNER JOIN DevNar N ON S.DevNarID=N.DevNarID
WHERE  N.Sifra_OE = @Sifra_OE AND N.Sifra_Nar = @Sifra_Nar AND N.Broj_DevN = @Broj_DevN

INSERT INTO #TmpDekl (DevNarStID, Sifra_Art, Ozn, ImeArt, Upatstvo, Sifra_KatPak, DeklTekst)
SELECT S.DevNarStID, D.Sifra_Art, D.Ozn, D.ImeArt, null, D.Sifra_KatPak, D.DeklTekst
FROM DeklArt D
INNER JOIN DeklArtVrska DV ON D.Sifra_Art=DV.Sifra_Art AND DV.Ozn_Elem=D.Ozn
INNER JOIN DevNarStavk S ON S.Sifra_Art=D.Sifra_Art AND S.Ozn_Dekl=DV.Ozn_Grupa
INNER JOIN DevNar N ON S.DevNarID=N.DevNarID
WHERE  N.Sifra_OE = @Sifra_OE AND N.Sifra_Nar = @Sifra_Nar AND N.Broj_DevN = @Broj_DevN


CREATE TABLE #TmpDeklImg
(DevNarStID    int,
Sifra_Art    varchar(20),
Ozn varchar(20),
ImeArt        nvarchar(80),
Upatstvo     nvarchar(2000),
Sifra_KatPak    smallint,
DeklTekst    nvarchar(2000),
FileTmp        image)

insert into #TmpDeklImg(DevNarStID,Sifra_Art,Ozn,ImeArt, Upatstvo, Sifra_KatPak, DeklTekst)
SELECT distinct T.DevNarStID, T.Sifra_Art,T.Ozn, T.ImeArt,T.Upatstvo,T.Sifra_KatPak,T.DeklTekst
FROM #TmpDekl T
ORDER BY T.DevNarStID, T.Sifra_KatPak

UPDATE #TmpDeklImg set FileTmp = D.FileTmp FROM DeklArt D
WHERE D.Sifra_Art = #TmpDeklImg.Sifra_Art AND D.Ozn = #TmpDeklImg.Ozn

SELECT * FROM #TmpDeklImg T
ORDER BY  T.DevNarStID, T.Sifra_KatPak, T.Upatstvo  desc





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidepozamb_site]'))
drop procedure [dbo].[sp_podignidepozamb_site]

Go
CREATE PROCEDURE sp_PodigniDepozAmb_Site
AS
    Select * From DepozAmb



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevcar]'))
drop procedure [dbo].[sp_podignidevcar]

Go

CREATE          PROCEDURE sp_PodigniDevCar
   @ANID int
AS
    SELECT * FROM DevCar
    WHERE ANID= Cast(@ANID As Varchar(10))




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevfra]'))
drop procedure [dbo].[sp_podignidevfra]

Go



CREATE   PROCEDURE sp_PodigniDevFra
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_DevF int
AS
    SELECT D.*, O.ImeOrg, TD.ImeDok, TN.ImeNal, V.ImeVal, OB.ImeObj
    FROM DevFra  D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    INNER JOIN KrsLista V ON D.KojaVal=V.SImeVal
    LEFT OUTER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    LEFT OUTER JOIN TipNal TN ON D.Sifra_Nal=TN.Sifra_Nal
        LEFT OUTER JOIN KObjekti OB ON D.Sifra_Obj=OB.Sifra_Obj  And D.Sifra_Kup=OB.Sifra_Kup
    WHERE D.Sifra_OE = @Sifra_OE AND D.Sifra_Dok = @Sifra_Dok AND
              D.Broj_DevF= @Broj_DevF





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevfraidodspecanfin]'))
drop procedure [dbo].[sp_podignidevfraidodspecanfin]

Go

CREATE    PROCEDURE sp_PodigniDevFraIDOdSpecAnFin
    @Broj_SpecFin int,
    @DevFraID int output
AS
    SELECT @DevFraID = DevFraID FROM SpecAnFin WHERE Broj_SpecFin=@Broj_SpecFin
SET QUOTED_IDENTIFIER OFF




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevfrasoid]'))
drop procedure [dbo].[sp_podignidevfrasoid]

Go


CREATE    PROCEDURE sp_PodigniDevFraSoID
   @DevFraID Int
AS
   SELECT Sifra_Oe, Sifra_dok, Broj_DevF FROM DevFra
   WHERE DevFraID=@DevFraID
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevfsite]'))
drop procedure [dbo].[sp_podignidevfsite]

Go


CREATE                     PROCEDURE sp_PodigniDevfSite
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_DevF int
AS
    Declare @SSQL VArchar(2000)
    Set @SSQL =
        'SELECT D.[DevFraID],  D.[Sifra_OE],  O.[ImeOrg], D.[Sifra_Dok],
        TD.[NaslovDok], TD.NaslovIspr, TD.NaslovPrIme, TD.NaslovObicPr,
        D.[Broj_Dok], D.[Broj_Nal], D.[Identif_Br], D.[Ispratnica], D.[Opis],
        D.[Sifra_Kup], K.[ImeKup], K.[ImeKup2], K.[Adresa], K.[Adresa2],
        K.[SMesto], K.[Posta], K.[Zemja], K.[Alt_ImeKup], K.[Alt_Adresa], K.[IspZemja], K.[Danocen],
        D.[Datum_Dok], D.[Datum_Vnes], D.[Datum_Izm], D.[Rok_Dosp] Rok,
        D.[Sifra_Oper], D.[Sifra_OpIz], D.[Kto], D.[Kurs], D.[KojaVal],
        D.[TekstPosle], D.KojaSmetka, D.Koleti, D.Bruto, D.Neto, D.Swift, D.TekstPred,
        D.Banka, D.Vozilo, D.Paleti, D.Usluzna, D.DevIznos, D.DenLogo, D.Paritet, D.Sifra_Pat, P.ImePat, K.Telefon, K.Fax,
        D.Sifra_Nar, D.Sifra_OeNar, D.Broj_Nar, D.Sifra_Obj, OB.[ImeObj], OB.[Adresa] As OAdresa,
                OB.[Adresa2] As OAdresa2, OB.[SMesto] As OSMesto, OB.[Posta] As OPosta,
        OB.[Zemja] As OZemja, K.[IspMesto]
        FROM [DevFra] D
        INNER JOIN Orged O ON D.[Sifra_OE]=O.[Sifra_OE]
        INNER JOIN TipDok TD ON D.[Sifra_Dok]=TD.[Sifra_Dok]
        LEFT OUTER JOIN Komint K ON D.[Sifra_Kup]=K.[Sifra_Kup]
                LEFT OUTER JOIN Patnici P ON D.[Sifra_Pat]=P.[Sifra_Pat]
                LEFT OUTER JOIN KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
        WHERE D.[Sifra_OE]=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND D.[Broj_DevF]=' + Cast(@Broj_DevF As varchar(10)) + ' '
        + '  and D.Sifra_Dok=' + Cast(@Sifra_Dok as varchar(10))    + ' '
Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevkalk]'))
drop procedure [dbo].[sp_podignidevkalk]

Go





CREATE                PROCEDURE sp_PodigniDevKalk
    @Sifra_OE smallint,
    @Sifra_Dok    smallint=132,
    @Broj_Kalk int
AS
    SELECT D.*, O.ImeOrg, TD.ImeDok, TN.ImeNal, V.ImeVal
    FROM DevKalk D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    left outer JOIN KrsLista V ON D.KojaVal=V.SImeVal
    LEFT OUTER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    LEFT OUTER JOIN TipNal TN ON D.Sifra_Nal=TN.Sifra_Nal
    WHERE D.Sifra_OE= @Sifra_OE   AND D.Broj_Kalk= @Broj_Kalk AND D.Sifra_Dok=@Sifra_Dok






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevkons]'))
drop procedure [dbo].[sp_podignidevkons]

Go



CREATE   PROCEDURE sp_PodigniDevKons
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Kons int
AS
    SELECT D.*, O.ImeOrg, TD.ImeDok, TN.ImeNal, V.ImeVal
    FROM DevKons  D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    LEFT OUTER JOIN KrsLista V ON D.KojaVal=V.SImeVal
    LEFT OUTER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    LEFT OUTER JOIN TipNal TN ON D.Sifra_Nal=TN.Sifra_Nal
    WHERE D.Sifra_OE= @Sifra_OE AND D.Sifra_DOk = @Sifra_DOK and  D.Broj_Kons= @Broj_Kons




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevkonssite]'))
drop procedure [dbo].[sp_podignidevkonssite]

Go
CREATE     PROCEDURE sp_PodigniDevKonsSite
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Kons int
AS
    Declare @SSQL VArchar(4000)
    Set @SSQL = ' SELECT D.DevKonsID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Kons, D.Storno, D.Datum_Dok, D.Datum_Mag, D.Sifra_Kup, D.Kto, D.Ecd,
    D.Opis, D.CarOzn, D.EvCarBroj, D.Paritet, D.RezimUvoz, D.Poteklo, D.KojaVal, D.Kurs, D.Sifra_Nal, D.Broj_Nal, D.Datum_Vnes, D.Datum_Izm, D.Rok_Dosp,
    D.Swift, D.Banka, D.Vozilo, D.Koleti, D.Bruto, D.Neto, D.Paleti, D.KojaSmetka, D.TekstPosle, D.Sifra_Oper, D.Sifra_Opiz, D.Identif_Br, D.Ispratnica, D.DevIznos, D.VlIzl,
    O.ImeOrg, TD.NaslovDok, TD.NaslovIspr, TD.NaslovPrIme, TD.NaslovObicPr, K.ImeKup, K.ImeKup2, K.Adresa, K.Adresa2, K.SMesto, K.Posta,
    K.Zemja, K.Alt_ImeKup, K.Alt_Adresa, K.IspZemja, D.TekstPred
    FROM DevKons D
    INNER JOIN Orged O ON D.[Sifra_OE]=O.[Sifra_OE]
    INNER JOIN TipDok TD ON D.[Sifra_Dok]=TD.[Sifra_Dok]
    LEFT OUTER JOIN Komint K ON D.[Sifra_Kup]=K.[Sifra_Kup]
    WHERE D.[Sifra_OE]=' + Cast(@Sifra_OE As Varchar(10)) +
    ' AND D.Broj_Kons=' + Cast(@Broj_Kons As varchar(10)) + ' '
    + ' And D.Sifra_Dok=' + Cast(@Sifra_Dok as varchar(10))    + ' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevnar]'))
drop procedure [dbo].[sp_podignidevnar]

Go
CREATE   PROCEDURE sp_PodigniDevNar
   @Sifra_OE smallint,
   @Sifra_Nar smallint,
   @Broj_DevN int
AS
    SELECT D.*, O.ImeOrg, TD.ImeNar, TN.ImeNal, V.ImeVal
    FROM DevNar D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    INNER JOIN KrsLista V ON D.KojaVal=V.SImeVal
    LEFT OUTER JOIN TipNarac TD ON D.Sifra_Nar=TD.Sifra_Nar
    LEFT OUTER JOIN TipNal TN ON D.Sifra_Nal=TN.Sifra_Nal
    WHERE D.Sifra_OE = @Sifra_OE AND D.Sifra_Nar = @Sifra_Nar AND
              D.Broj_DevN= @Broj_DevN



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidevnarsite]'))
drop procedure [dbo].[sp_podignidevnarsite]

Go



CREATE                  PROCEDURE sp_PodigniDevNarSite
   @Sifra_OE smallint,
   @Sifra_Nar smallint,
   @Broj_DevN int
AS
    Declare @SSQL VArchar(2000)
    Set @SSQL =
        'SELECT D.Sifra_OE, O.ImeOrg, D.Broj_DevN, D.Storno, D.Datum_Nar, D.Sifra_Kup, D.Kto, D.ECD, D.Opis, D.KojaVal, D.Kurs, D.Sifra_Nal,
            D.Broj_Nal, D.Datum_Vnes, D.Rok_Dosp, D.Swift, D.Banka, D.Vozilo, D.Koleti, D.Bruto, D.Neto, D.KojaSmetka,
            D.TekstPosle, D.Sifra_Oper, D.Identif_Br, D.Ispratnica, D.Sifra_Nar, D.Broj_Nar, D.DevIznos, D.Paleti, D.TekstPred, D.Usluzna,
            TN.ImeNar, TN.Naslov, K.ImeKup, K.ImeKup2, K.Adresa, K.Adresa2, K.SMesto, K.Posta, K.Zemja, K.Alt_ImeKup, K.Alt_Adresa, K.IspZemja,
            D.Sifra_Pat, P.ImePat, K.Telefon, K.Fax, K.Danocen, D.Paritet, D.Izn_Prevoz, D.Usl_Plakanje,
                        P.Adresa PatAdresa, P.SMesto PatSMesto, P.Telefon PatTelefon, P.TelMobil PatTelMobil, P.EMail PatEMail
        FROM DevNar D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    INNER JOIN TipNarac TN ON D.Sifra_Nar=TN.Sifra_Nar
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
    LEFT OUTER JOIN Patnici P ON D.Sifra_Pat=P.Sifra_Pat
    WHERE D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) +
    ' AND D.Broj_DevN=' + Cast(@Broj_DevN As varchar(10)) + ' '
    + ' and D.Sifra_Nar=' + cast(@Sifra_Nar as varchar(10))    + ' '
Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidijagnozi]'))
drop procedure [dbo].[sp_podignidijagnozi]

Go

CREATE PROCEDURE sp_PodigniDijagnozi

    @Sifra_Dijagn    char(5)
AS
    Select * From Dijagnozi
    Where Sifra_Dijagn=@Sifra_Dijagn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidnevnik]'))
drop procedure [dbo].[sp_podignidnevnik]

Go

CREATE  PROCEDURE sp_PodigniDnevnik
    @IdDnevnik    int
 AS
    Select IdDnevnik, Sifra_Kup, Datum_Akt, Opis_Akt, Tip_Akt, Datum_SlAkt, Opis_SlAkt, Tip_SlAkt,
               DodadenOd, IzmenetOd
    From Dnevnik
    Where IdDnevnik=@IdDnevnik
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidnizvskr]'))
drop procedure [dbo].[sp_podignidnizvskr]

Go
CREATE PROCEDURE sp_PodigniDnIzvSkr
    @Sema_DnIzvSkr    smallint
 AS
    Select Sema_DnIzvSkr, Sifra_Dok, VlIzlPari, DokrFin
    From DnIzvSkr
    Where Sema_DnIzvSkr=@Sema_DnIzvSkr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidogtmobile]'))
drop procedure [dbo].[sp_podignidogtmobile]

Go
CREATE          PROCEDURE sp_PodigniDogTmobile
   @SifraKomint varchar(20)
AS
    SELECT * FROM DogTmobile
    WHERE SifraKomint= @SifraKomint




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokosnsred]'))
drop procedure [dbo].[sp_podignidokosnsred]

Go


CREATE    PROCEDURE sp_PodigniDokOsnSred
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Select DokOID, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Identif_Br, Sifra_Kup, Tip_StaOsn, Sifra_Nal,
        Broj_Nal, Toc200, VlIzl, Danok1, Danok2, Kolic, Poc_Inv_Broj, Osn_Amor, Otpis_Pret, Delov_God, Orig_Nab_Vr, Orig_Nab_Vr_Val, Valuta,
        Sifra_MikLok, Sifra_MikLok_Od, Opis, Sifra_Div, Sifra_Div_Od, Sifra_TrosM, Sifra_TrosM_Od, Sifra_TrosV, Sifra_TrosV_Od
    From DokOsnSred
    Where Sifra_Oe=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokosnsred_pecdok]'))
drop procedure [dbo].[sp_podignidokosnsred_pecdok]

Go


CREATE    PROCEDURE sp_PodigniDokOsnSred_PecDok
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @DokOID    int = Null Output
AS
    Set @DokOID = (Select DokOID
             From DokOsnSred
             Where Sifra_Oe=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok)

    Select DokOID, Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Identif_Br, Sifra_Kup, Tip_StaOsn, Sifra_Nal,
        Broj_Nal, Toc200, VlIzl, Danok1, Danok2, Kolic, Poc_Inv_Broj, Osn_Amor, Otpis_Pret, Delov_God, Orig_Nab_Vr, Orig_Nab_Vr_Val, Valuta,
        Sifra_MikLok, Sifra_MikLok_Od, Opis
    From DokOsnSred
    Where Sifra_Oe=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokr]'))
drop procedure [dbo].[sp_podignidokr]

Go

CREATE                       PROCEDURE sp_PodigniDokr
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int,
   @Sifra_Prim smallint,
   @ImaDodatna char(1)
-- Ednoznacen Kluc
AS
    Declare @SSQL VArchar(4000)
    Set @SSQL = 'SELECT D.[DokrID], D.[Sifra_OE], O.[ImeOrg], D.[Sifra_Dok], TD.[NaslovDok],
    D.[Broj_Dok], D.[Sifra_Prim], OO.[ImeOrg] As ImePrim, D.[ImaDodatna], D.[VlIzl], D.[Sifra_Za], D.Sifra_Nal,
    D.[Broj_Nal], D.[Identif_Br], D.[Ispratnica], D.[Opis], D.[Sifra_Kup], D.[Sifra_Obj],
    K.[ImeKup], K.[Adresa], K.[Adresa2], K.[SMesto], K.[Posta], K.[Zemja], OB.[ImeObj],
    OB.[Adresa] As OAdresa, OB.[Adresa2] As OAdresa2, OB.[SMesto] As OSMesto,
    OB.[Posta] As OPosta, OB.[Zemja] As OZemja, D.[Datum_Dok], D.[Datum_Vnes], D.[Datum_Izm],
    D.[Uces], D.[Kasa], D.[Rok], D.[Sifra_Pat], D.[Sifra_Oper], D.[Sifra_OpIz], D.[SerBr],
    D.[Kto], D.[Kurs], D.[KojaVal], D.[Toc200], D.[MagVr], D.[MagVrDan], D.[Marza],
    D.[Danok1], D.[Danok2], D.[PDanok1], D.[PDanok2], D.[PTrosok], D.[DanDokCena], D.[DanMagCena],
    D.[CenaIznos], D.[ProcMarza], D.[Kod_Danok], D.[TekstPosle], D.[Prenesen], D.[Sifra_Nivo],
    D.[Kojasmetka], D.[KasaPoDDV], D.[Blokiran], D.[Spremil], D.[Sifra_Nar], D.[Broj_Nar], D.[Sifra_OeNar],
    D.[Usluzna], D.[TekstPred], D.[Sifra_Mest], D.[Izrab_Nar], D.[Dokr_Stat], D.[Sifra_Prev], D.[Pec_Fisc],
    D.[Spec_Forma_Pec], D.[Sifra_Div], D.[NarID_Zatv], D.Likvid, D.Plat_PerDan, D.Proc_PerDan,
    D.DogBr, D.Sifra_Kor, D.Spck_Stat, DZ.DokrZbID, D.Broj_Proekt, D.Prifaten, D.Datum_Ispor
    FROM [Dokr] D
    INNER JOIN Orged O ON D.[Sifra_OE]=O.[Sifra_OE]
    INNER JOIN TipDok TD ON D.[Sifra_Dok]=TD.[Sifra_Dok]
    LEFT OUTER JOIN Orged OO ON D.[Sifra_Prim]=OO.[Sifra_OE]
    LEFT OUTER JOIN Komint K ON D.[Sifra_Kup]=K.[Sifra_Kup]
    LEFT OUTER JOIN KObjekti OB ON D.Sifra_Obj=OB.Sifra_Obj  And D.Sifra_Kup=OB.Sifra_Kup
    LEFT OUTER JOIN DokrZbSta DZ ON D.DokrID=DZ.DokrID
    WHERE D.[Sifra_OE]=' + Cast(@Sifra_OE As Varchar(10)) + ' AND D.[Sifra_Dok]=' + Cast(@Sifra_Dok As Varchar(10)) + ' AND D.[Broj_Dok]=' + Cast(@Broj_Dok As varchar(10)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'AND D.[Sifra_Prim]=' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @ImaDodatna Is NOt Null
        Set @SSQL = @SSQL + 'AND D.[ImaDodatna]=''' + @ImaDodatna + ''' '
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrabnal]'))
drop procedure [dbo].[sp_podignidokrabnal]

Go


CREATE  PROCEDURE sp_PodigniDokRabNal
     @RabNalID integer
AS
        SELECT DRN.*
        FROM [DokRAbNal] DRN
        WHERE DRN.RabNalID=@RabNalID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrabnaldokrid]'))
drop procedure [dbo].[sp_podignidokrabnaldokrid]

Go

CREATE     PROCEDURE sp_PodigniDokRabNalDokrID
    @DokrID        integer,
    @Broj_RabN    integer output,
    @Sifra_Rab    integer  = NULL output,
    @Sifra_Smena    smallint  = NULL output,
    @Sifra_mas    varchar (15) = NULL output,
    @Grupa_DokRab    smallint = NULL OUTPUT,
    @Kolic_Topli    decimal(18,4) = NULL OUTPUT,
    @RabNalId    integer  = NULL output,
    @PoluprDali    char(1) = NULL OUTPUT

AS

    SELECT @Broj_RabN = R.Broj_Rabn, @Sifra_Rab = DRN.Sifra_Rab, @Grupa_DokRab =Grupa_DokRab,
           @Sifra_Smena = DRN.Sifra_Smena, @Sifra_Mas = DRN.Sifra_Mas, @Kolic_Topli=DRN.Kolic_Topli,
           @RabNalId = DRN.RabNalId, @PoluprDali = DRN.PoluprDali
    FROM [DokRabNal] DRN, RabNal R
    WHERE DRN.DokrID=@DokrID and R.RabNalID = DRN.RabNalID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokridotvkniz]'))
drop procedure [dbo].[sp_podignidokridotvkniz]

Go

CREATE       PROCEDURE sp_PodigniDokrIDOtvKniz
    @Sifra_OE        smallint,
    @ImaDodatna        char(1),
    @Sifra_Prim        smallint,
    @Sifra_Dok        smallint,
    @Broj_Dok        int
AS

IF @ImaDodatna=''
    SELECT DokrID FROM Dokr WHERE
    ((Sifra_OE = @Sifra_OE  AND ImaDodatna = 'D') OR
    (Sifra_OE = @Sifra_Prim  AND ImaDodatna = 'P')) AND
    Sifra_Dok = @Sifra_Dok  AND Broj_Dok = @Broj_Dok
ELSE

    SELECT DokrID FROM Dokr WHERE
    Sifra_OE = @Sifra_OE    AND ImaDodatna = @ImaDodatna AND
    Sifra_Prim = @Sifra_Prim AND Sifra_Dok = @Sifra_Dok  AND
    Broj_Dok = @Broj_Dok

RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrkratok]'))
drop procedure [dbo].[sp_podignidokrkratok]

Go

CREATE  PROCEDURE sp_PodigniDokrKratok
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @Sifra_Prim smallint,
    @ImaDodatna char(1)
AS
    Declare @SSQL VArchar(2000)
    Set @SSQL = 'SELECT DokrID, Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna
        FROM Dokr
        WHERE Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND [Sifra_Dok]=' + Cast(@Sifra_Dok As Varchar(10)) +
        ' AND [Broj_Dok]=' + Cast(@Broj_Dok As varchar(10)) + ' '
    If @Sifra_Prim Is Not Null
        Set @SSQL = @SSQL + 'AND [Sifra_Prim]=' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @ImaDodatna Is NOt Null
        Set @SSQL = @SSQL + 'AND [ImaDodatna]=''' + @ImaDodatna + ''' '
    Exec(@SSQL)
   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrsite]'))
drop procedure [dbo].[sp_podignidokrsite]

Go




CREATE                             PROCEDURE [dbo].[sp_PodigniDokrSite]
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @DajTezinaAmb char(1) = 'N'
AS
    Declare @SSQL VArchar(4000)
    Declare @TezinaAmb decimal(18,6)
    Declare @MestoIsporaka varchar(20)

    Select @MestoIsporaka = MestoIsporaka From KonfDat

    If @DajTezinaAmb = 'D'
    Begin
        Select @TezinaAmb = Sum(S.Kolic*A.Tezina_Amb/1000)
        From Stavr S
        Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
        Inner Join KatAmb A On  A.Sifra_Amb = K.Sifra_Amb
        Where S.Sifra_OE = @Sifra_OE And S.Sifra_Dok = @Sifra_Dok And Broj_Dok = @Broj_Dok

        If @TezinaAmb Is Null
            Set @TezinaAmb = 0
    End

    Set @SSQL =
        'SELECT D.[DokrID], D.[Sifra_OE], O.[ImeOrg], D.[Sifra_Dok], TD.[NaslovDok], TD.NaslovIspr, TD.NaslovPrIme, TD.NaslovObicPr,
        D.[Broj_Dok], D.[Sifra_Prim], OO.[ImeOrg] As ImePrim, D.[ImaDodatna], D.[VlIzl], D.[Sifra_Za], D.[Broj_Nal], D.[Identif_Br],
        D.[Ispratnica], D.[Opis], D.[Sifra_Kup], D.[Sifra_Obj], K.[ImeKup], K.[Adresa], K.[Adresa2], K.[SMesto], K.[Posta], K.[Zemja],
        OB.[ImeObj], OB.[Adresa] As OAdresa, OB.[Adresa2] As OAdresa2, OB.[SMesto] As OSMesto, OB.[Posta] As OPosta,
        OB.[Zemja] As OZemja, D.[Datum_Dok], D.[Datum_Vnes], D.[Datum_Izm], D.[Uces], D.[Kasa], D.KasaPoDDV, D.[Rok], D.[Sifra_Pat],
        D.[Sifra_Oper], D.[Sifra_OpIz], D.[SerBr], D.[Kto], D.[Kurs], D.[KojaVal], D.[Toc200], D.[MagVr], D.[MagVrDan], D.[Marza],
        D.[Danok1], D.[Danok2], D.[PDanok1], D.[PDanok2], D.[PTrosok], D.[DanDokCena], D.[DanMagCena], D.[CenaIznos],
        D.[ProcMarza], D.[Kod_Danok], D.[TekstPosle], D.[KojaSmetka], D.[Spremil], D.[Sifra_Nar], D.[Broj_Nar], D.[Sifra_OeNar],
        D.[Usluzna], D.[TekstPred], D.[Izrab_Nar], D.[Spec_Forma_Pec], D.Sifra_Mest, K.DogovorBroj, K.Telefon, '''' Opis_Ispratnici,
        D.Sifra_Prev, P.ImePrev, D.Pec_Dok, K.Danocen, K.Kontakt, K.ImeKup2, D.Plat_PerDan, D.Sifra_Nivo, N.ImeNivo, K.MatBr, D.AltBroj,
        D.DogBr, D.Datum_Ispor, '
    If @MestoIsporaka Is Not Null And @MestoIsporaka <> ''
        Set @SSQL = @SSQL + ' ''' + @MestoIsporaka + ''' as MestoIsporaka, '
    Else
        Set @SSQL = @SSQL + ' O.MestoIsporaka, '
    If @DajTezinaAmb = 'D'
        Set @SSQL = @SSQL + ' ' + Cast(@TezinaAmb as varchar(20)) + ' as TezinaAmb '
    Else
        Set @SSQL = @SSQL + ' Null as TezinaAmb '
    Set @SSQL = @SSQL + ' FROM [Dokr] D
    INNER JOIN Orged O ON D.[Sifra_OE]=O.[Sifra_OE]
    INNER JOIN TipDok TD ON D.[Sifra_Dok]=TD.[Sifra_Dok]
    LEFT OUTER JOIN Orged OO ON D.[Sifra_Prim]=OO.[Sifra_OE]
    LEFT OUTER JOIN Komint K ON D.[Sifra_Kup]=K.[Sifra_Kup]
    LEFT OUTER JOIN KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
    LEFT OUTER JOIN Prevoznik P ON P.Sifra_Prev=D.Sifra_Prev
        LEFT OUTER JOIN Nivo N ON D.[Sifra_Nivo]=N.[Sifra_Nivo]
    WHERE D.[Sifra_OE]=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND D.[Sifra_Dok]=' + Cast(@Sifra_Dok As Varchar(10)) +
        ' AND D.[Broj_Dok]=' + Cast(@Broj_Dok As varchar(10)) + ' '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrzb]'))
drop procedure [dbo].[sp_podignidokrzb]

Go
CREATE                  PROCEDURE sp_PodigniDokrZb
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int
AS
    SELECT D.* FROM DokrZb D
    WHERE D.Sifra_OE=@Sifra_OE  AND D.Sifra_Dok=@Sifra_Dok AND D.Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrzbsite]'))
drop procedure [dbo].[sp_podignidokrzbsite]

Go




CREATE          PROCEDURE [dbo].[sp_PodigniDokrZbSite]
   @Sifra_OE smallint,
   @Sifra_Dok smallint,
   @Broj_Dok int
AS
    Declare @MestoIsporaka varchar(20)
    Select @MestoIsporaka = MestoIsporaka From KonfDat

    Declare @Opis_Ispratnici varchar(1000)
    Declare @wSifra_OE smallint
    Declare @wSifra_Dok smallint
    Declare @wBroj_Dok int
    CREATE TABLE #TmpDokr
    (Sifra_OE smallint,
    Sifra_Dok smallint,
    Broj_Dok  int)
    INSERT INTO #TmpDokr SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok FROM Dokr D
    INNER JOIN DokrZbSta ZbS ON D.DokrID = ZbS.DokrID
    INNER JOIN DokrZb Zb ON Zb.DokrZbId = ZbS.DokrZbID
    WHERE Zb.Sifra_OE=@Sifra_OE AND Zb.Sifra_Dok=@Sifra_Dok AND Zb.Broj_Dok=@Broj_Dok
    SET @Opis_Ispratnici=''
    Set Nocount On
    Declare Tabela1 Cursor Fast_Forward For
        Select Sifra_OE, Sifra_Dok, Broj_Dok From #TmpDokr
    Open Tabela1
    Fetch Next From Tabela1 Into @wSifra_OE, @wSifra_Dok, @wBroj_Dok
    While @@Fetch_Status = 0
    Begin
        IF @Opis_Ispratnici <> '' SET @Opis_Ispratnici = @Opis_Ispratnici + ', '
        SET @Opis_Ispratnici = @Opis_Ispratnici + cast(@wSifra_OE as varchar(5))+'-'+ cast(@wSifra_Dok as varchar(5))+'/'+cast(@wBroj_Dok as varchar(8))
        Fetch Next From Tabela1 Into @wSifra_OE, @wSifra_Dok, @wBroj_Dok
    End
    Close Tabela1
    Deallocate Tabela1
    Set Nocount Off
    SELECT D.DokrZbID DokrID, D.Sifra_OE, O.ImeOrg, D.Sifra_Dok, TD.NaslovDok, TD.NaslovIspr, TD.NaslovPrIme, TD.NaslovObicPr,
    D.Broj_Dok, 0 Sifra_Prim, '' As ImePrim, '' ImaDodatna, 'I' VlIzl, 1 Sifra_Za, D.Broj_Nal, D.Identif_Br,
    '' Ispratnica, D.Opis, D.Sifra_Kup, D.Sifra_Obj, K.ImeKup, K.Adresa, K.Adresa2, K.SMesto, K.Posta, K.Zemja,
    OB.ImeObj, OB.Adresa As OAdresa, OB.Adresa2 As OAdresa2, OB.SMesto As OSMesto, OB.Posta As OPosta,
    OB.Zemja As OZemja, D.Datum_Dok, D.Datum_Vnes, Null Datum_Izm, 0 Uces, D.Kasa, 0 KasaPoDDV, D.Rok, D.Sifra_Pat,
    D.Sifra_Oper, '' Sifra_OpIz, '' SerBr, D.Kto, 0 Kurs, Null KojaVal, D.Toc200, 0 MagVr, 0 MagVrDan, 0 Marza,
    D.Danok1, D.Danok2, 0 PDanok1, 0 PDanok2, 0 PTrosok, '' DanDokCena, '' DanMagCena, '' CenaIznos,
    0 ProcMarza, '' Kod_Danok, '' TekstPosle, D.KojaSmetka, '' Spremil, 0 Sifra_Nar, 0 Broj_Nar, 0 Sifra_OeNar,
    '' Usluzna, '' TekstPred, '' Izrab_Nar, D.Spec_Forma_Pec, 0 Sifra_Mest, K.DogovorBroj, K.Telefon, @Opis_Ispratnici Opis_Ispratnici,
    D.Sifra_Prev, P.ImePrev, K.Danocen, K.Kontakt, K.MatBr, '' AltBroj, '' DogBr,
     (Case When @MestoIsporaka Is Not Null And @MestoIsporaka<>'' Then @MestoIsporaka Else O.MestoIsporaka End) as MestoIsporaka,
    D.Datum_Ispor
    FROM DokrZb D
    INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
    INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
    LEFT OUTER JOIN KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
    LEFT OUTER JOIN Prevoznik P On P.Sifra_Prev=D.Sifra_Prev
    WHERE D.Sifra_OE=@Sifra_OE AND D.Sifra_Dok=@Sifra_Dok AND D.Broj_Dok=@Broj_Dok





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrzbsta]'))
drop procedure [dbo].[sp_podignidokrzbsta]

Go

CREATE  PROCEDURE sp_PodigniDokrZbSta
    @DokrZbId    int
AS
SELECT ZbS.*, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok
FROM DokrZbSta ZbS INNER JOIN Dokr D ON ZbS.DokrID=D.DokrID
WHERE ZbS.DokrZbID=@DokrZbId ORDER BY ZbS.RbrZb




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokrzbstazaazur]'))
drop procedure [dbo].[sp_podignidokrzbstazaazur]

Go


CREATE   PROCEDURE sp_PodigniDokrZbStaZaAzur
    @DokrZbId    int
AS
SELECT ZbS.*, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok
FROM DokrZbSta ZbS INNER JOIN Dokr D ON ZbS.DokrID=D.DokrID
WHERE ZbS.DokrZbID=@DokrZbId AND D.Broj_Nal IS NULL ORDER BY ZbS.RbrZb




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidokumentiskrsoid]'))
drop procedure [dbo].[sp_podignidokumentiskrsoid]

Go




CREATE PROCEDURE sp_PodigniDokumentiSkrSoID
    @DokrID Int
AS
    SELECT Sifra_OE, Sifra_Dok, Broj_Dok FROM Dokr WHERE DokrID=@DokrID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignidozvorgart]'))
drop procedure [dbo].[sp_podignidozvorgart]

Go


CREATE     PROCEDURE sp_PodigniDozvOrgArt
    @Sif_GrOrg        char(6),
    @Tip_DozvOrgArt    varchar(10)=null
AS
    IF @Tip_DozvOrgArt IS NULL   RETURN
CREATE TABLE #TmpDozv
(    Sif_GrOrg char(6) NOT NULL,
    Sifra_Podg char(6) NULL,
    Sifra_Gr char(3) NULL,
    Tuga_Sini smallint NULL,
    Sifra_Od varchar(20) NULL,
    Sifra_Do varchar(20) NULL,
    Dozv char(1),
    Ime varchar(50),
    ImeDo varchar(50))
    Declare @SSQL varchar(1000)
Set @SSQL = 'SELECT D.*, ''D'' Dozv, '
IF @Tip_DozvOrgArt='PODG'
    Set @SSQL = @SSQL + 'P.Ime_Podg as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='GR'
    Set @SSQL = @SSQL + 'G.Ime_Gr as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='DR1'
    Set @SSQL = @SSQL + 'DR.Ime_1 as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='DR2'
    Set @SSQL = @SSQL + 'DR.Ime_2 as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='DR3'
    Set @SSQL = @SSQL + 'DR.Ime_3 as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='DR4'
    Set @SSQL = @SSQL + 'DR.Ime_4 as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='DR5'
    Set @SSQL = @SSQL + 'DR.Ime_5 as Ime, '''' ImeDo '
ELSE IF @Tip_DozvOrgArt='SIF'
    Set @SSQL = @SSQL + 'A.ImeArt as Ime, A1.ImeArt as ImeDo '
Set @SSQL = @SSQL + ' FROM DozvOrgArt D'
IF @Tip_DozvOrgArt='PODG'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Podgrupi P ON D.Sifra_Podg=P.Sifra_Podg '
ELSE IF @Tip_DozvOrgArt='GR'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Grupi G ON D.Sifra_Podg=G.Sifra_Gr '
ELSE IF @Tip_DozvOrgArt='DR1'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Drugo1 DR ON D.Tuga_Sini=DR.Sifra_1 '
ELSE IF @Tip_DozvOrgArt='DR2'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Drugo2 DR ON D.Tuga_Sini=DR.Sifra_2 '
ELSE IF @Tip_DozvOrgArt='DR3'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Drugo3 DR ON D.Tuga_Sini=DR.Sifra_3 '
ELSE IF @Tip_DozvOrgArt='DR4'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Drugo4 DR ON D.Tuga_Sini=DR.Sifra_4 '
ELSE IF @Tip_DozvOrgArt='DR5'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN Drugo5 DR ON D.Tuga_Sini=DR.Sifra_5 '
ELSE IF @Tip_DozvOrgArt='SIF'
    Set @SSQL = @SSQL + ' LEFT OUTER JOIN KatArt A ON D.Sifra_Od=A.Sifra_Art LEFT OUTER JOIN KatArt A1 ON D.Sifra_Do=A1.Sifra_Art '
Set @SSQL = @SSQL + ' WHERE  D.Sif_GrOrg = ''' + @Sif_GrOrg + ''' '
INSERT INTO #TmpDozv EXEC (@SSQL)
IF @Tip_DozvOrgArt <> 'SIF'
Begin
IF @Tip_DozvOrgArt='PODG'
    Set @SSQL ='SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, Sifra_podg, '''' as Sifra_Gr, 0 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_Podg as Ime, '''' ImeDo FROM Podgrupi WHERE Sifra_Podg NOT IN (SELECT Sifra_Podg FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='GR'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, Sifra_Gr, 0 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_Gr as Ime , '''' ImeDoFROM Grupi WHERE Sifra_Gr NOT IN (SELECT Sifra_Gr FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='DR1'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, '''' as Sifra_Gr, Sifra_1 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_1 as Ime, '''' ImeDo FROM Drugo1 WHERE Sifra_1 NOT IN (SELECT Tuga_Sini FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='DR2'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, '''' as Sifra_Gr, Sifra_2 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_2 as Ime, '''' ImeDo FROM Drugo2 WHERE Sifra_2 NOT IN (SELECT Tuga_Sini FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='DR3'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, '''' as Sifra_Gr, Sifra_3 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_3 as Ime, '''' ImeDo FROM Drugo3 WHERE Sifra_3 NOT IN (SELECT Tuga_Sini FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='DR4'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, '''' as Sifra_Gr, Sifra_4 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_4 as Ime, '''' ImeDo FROM Drugo4 WHERE Sifra_4 NOT IN (SELECT Tuga_Sini FROM #TmpDozv)'
ELSE IF @Tip_DozvOrgArt='DR5'
    Set @SSQL = 'SELECT ''' + @Sif_GrOrg + ''' as Sif_GrOrg, '''' Sifra_podg, '''' as Sifra_Gr, Sifra_5 as Tuga_Sini, '''' as Sifra_Od,
        '''' as Sifra_Do, ''N'' Dozv, Ime_5 as Ime, '''' ImeDo FROM Drugo5 WHERE Sifra_5 NOT IN (SELECT Tuga_Sini FROM #TmpDozv)'
INSERT INTO #TmpDozv EXEC (@SSQL)
End
    SELECT  * FROM #TmpDozv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniedmerilist]'))
drop procedure [dbo].[sp_podigniedmerilist]

Go

create PROCEDURE sp_PodigniEdMeriList

    @EdMera    char(5)
AS

    Select * From EdMeriList
    Where EdMera = @EdMera



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniekvivart]'))
drop procedure [dbo].[sp_podigniekvivart]

Go

CREATE  PROCEDURE sp_PodigniEkvivArt
    @IdEkviv varchar(50)
AS
    SELECT E.*, A.ImeArt FROM EkvivArt E INNER JOIN KatArt A ON E.Sifra_Art=A.Sifra_Art
    WHERE IdEkviv=@IdEkviv ORDER By E.Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniekvivdezen]'))
drop procedure [dbo].[sp_podigniekvivdezen]

Go


CREATE   procedure sp_PodigniEkvivDezen
    @GrupaEkviv varchar(50)
As
    Select E.*, A.ImeArt ImeArtOsn, K.ImeArt ImeArtMap From EkvivDezen E
    Inner Join KatArt A On E.Sifra_Art_Osn=A.Sifra_Art
    Inner Join KatArt K On E.Sifra_Art_MAp=K.Sifra_Art
    Where E.GrupaEkviv=@GrupaEkviv Order By E.Rbr






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignievdekl]'))
drop procedure [dbo].[sp_podignievdekl]

Go
create procedure sp_PodigniEvDekl
    @Godina smallint,
    @Rbr int
As
    Select *  from EvDekl
    Where Godina=@Godina  and Rbr=@Rbr



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignievdeklstav]'))
drop procedure [dbo].[sp_podignievdeklstav]

Go

CREATE  procedure sp_PodigniEvDeklStav
    @Godina smallint,
    @Rbr int
As
    Select E.*, C.Ime  from EvDeklStav E
    inner join Cbroevi C on E.CarBroj=C.CarBroj
    Where E.Godina=@Godina  and E.Rbr=@Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignievproizvod]'))
drop procedure [dbo].[sp_podignievproizvod]

Go



CREATE    PROCEDURE sp_PodigniEvProizvod
    @DokrID    int
AS
    select Ev.*, Kata.ImeArt, Kata.EdMera
    From EvProizvod Ev
    inner join Katart Kata  on Ev.Sifra_Art = Kata.Sifra_Art
    Where DokrID=@DokrID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifaktura]'))
drop procedure [dbo].[sp_podignifaktura]

Go


CREATE   PROCEDURE sp_PodigniFaktura
    @Godina    smallint,
    @Faktura_Br char(6)
AS
SELECT * FROM Faktura WHERE Godina_Fra=@Godina AND Faktura_Br=@Faktura_Br





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifarmacevt]'))
drop procedure [dbo].[sp_podignifarmacevt]

Go

CREATE PROCEDURE sp_PodigniFarmacevt

    @Sifra_Farmacevt    char(6)
AS
    Select * From Farmacevt
    Where Sifra_Farmacevt=@Sifra_Farmacevt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifavtvrski_anid]'))
drop procedure [dbo].[sp_podignifavtvrski_anid]

Go

Create  PROCEDURE sp_PodigniFAvtVrski_AnID
    @AnID    int
AS
    SELECT * FROM FAvtVrski WHERE AnID = @AnID





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifazi]'))
drop procedure [dbo].[sp_podignifazi]

Go

CREATE PROCEDURE sp_PodigniFazi
    @Sifra_Faza    smallint
 AS
    Select Sifra_Faza, Ime_Faza, Sifra_oe
    From Fazi
    Where Sifra_Faza=@Sifra_Faza




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifikonta]'))
drop procedure [dbo].[sp_podignifikonta]

Go

CREATE  PROCEDURE sp_PodigniFiKonta
    @FiID    smallint
AS
    Select FK.*, T.ImeTrosM from FiKonta FK LEFT OUTER JOIN TrosokMesto T ON FK.Sifra_TrosM=T.Sifra_TrosM
    Where FK.FiID=@FiID  ORDER BY FK.FiID,FK.RbrFi





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifintipdok]'))
drop procedure [dbo].[sp_podignifintipdok]

Go


CREATE     PROCEDURE sp_PodigniFinTipDok
AS
    SELECT Sifra_Dok, ImeDok, Sifra_Za, Dev, Vl_Izl, AnalKupDob FROM TipDok WHERE DaliMater = 'N'
           order by sifra_dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifiraspredelba]'))
drop procedure [dbo].[sp_podignifiraspredelba]

Go





CREATE     PROCEDURE sp_PodigniFiRaspredelba
    @Sifra_FiRsp   smallint
AS
    SELECT F.*,  D.ImeDiv
    FROM  FiRaspredelba F
    INNER JOIN Divizii D ON F.Sifra_Div = D.Sifra_Div
    WHERE  F.Sifra_FiRsp = @Sifra_FiRsp
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifirparal]'))
drop procedure [dbo].[sp_podignifirparal]

Go

CREATE  PROCEDURE sp_PodigniFirParal

    @ImeBaza    varchar(50) = Null

AS
    if @ImeBaza is not null
        Select * From FirParal
        where ImeBaza = @ImeBaza
    else
        Select * From FirParal





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifiskprom]'))
drop procedure [dbo].[sp_podignifiskprom]

Go

CREATE   PROCEDURE sp_PodigniFiskProm
    @Sifra_Oe    smallint,
        @BrKasa         smallint,
    @Datum_dok    smalldatetime
 AS
    Select Sifra_Oe, Datum_Dok, Tar1, Tar2, Tar0, Gotovina, Cek, Kredit, Posn1, Posn2, Br_Smetki, Linii, Promet, Predadeno, Pocetno, OstVoKasa, Dr_Izlezi, Danok1, Danok2, Prenesen
    From FiskProm
    Where Sifra_Oe=@Sifra_Oe and Datum_Dok=@Datum_Dok and BrKasa = @BrKasa



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifistavki]'))
drop procedure [dbo].[sp_podignifistavki]

Go
CREATE PROCEDURE sp_PodigniFiStavki
    @FiID    int
AS
    Select FS.*, O.ImeOrg, G.Ime_GrOrg  from FiStavki FS
    LEFT OUTER JOIN OrgEd O ON FS.Sifra_OE = O.Sifra_OE
    LEFT OUTER JOIN GrOrg G ON FS.Sifra_GrOrg = G.Sif_GrOrg
    Where FS.FiID=@FiID  ORDER BY FS.FiID, FS.RbrFi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifitabela]'))
drop procedure [dbo].[sp_podignifitabela]

Go
CREATE  PROCEDURE sp_PodigniFiTabela
    @FiID    smallint
As
    Select FiID, RTrim(Ime) Ime, RTrim(Ime2) Ime2, Kto_Anal_Raspr, Kto_Anal, Egzaktno_KtoRaspr from FiTabela
    Where FiID = @FiID
   IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignifizbir]'))
drop procedure [dbo].[sp_podignifizbir]

Go
CREATE PROCEDURE sp_PodigniFiZbir
    @FiID    smallint
AS
    Select * from FiZbir
    Where FiID=@FiID ORDER BY FiID, RbrFi




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigotsurorg]'))
drop procedure [dbo].[sp_podignigotsurorg]

Go



CREATE     PROCEDURE sp_PodigniGotSurOrg
    @Sifra_OE_Got    smallint
AS
    SELECT S.*, O.ImeOrg ImeOrg FROM  GotovSurovOrg S
    INNER JOIN OrgEd O ON S.Sifra_OE_Sur = O.Sifra_OE
    WHERE S.Sifra_OE_Got = @Sifra_OE_Got ORDER BY S.Reden
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigranalplan]'))
drop procedure [dbo].[sp_podignigranalplan]

Go
CREATE Procedure sp_PodigniGrAnalPlan
    @Sif_GrAnalPlan    nvarchar(30)
As
    Select * from GrAnalPlan
    Where Sif_GrAnalPlan=@Sif_GrAnalPlan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigranalplanst]'))
drop procedure [dbo].[sp_podignigranalplanst]

Go

CREATE  Procedure sp_PodigniGrAnalPlanSt
    @Sif_GrAnalPlan    nvarchar(30)
AS
    Select A.ImeAnal,G.*  from GrAnalPLanSt G
    Inner Join Anal A on G.Kto_anal=A.kto_Anal
    Where Sif_GrAnalPlan=@Sif_GrAnalPlan



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrartdiv]'))
drop procedure [dbo].[sp_podignigrartdiv]

Go

create  procedure sp_PodigniGrArtDiv
@Sif_GrArt varchar(20)
as
select * from GrArtDiv
where sif_grArt=@Sif_GrArt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrkupdiv]'))
drop procedure [dbo].[sp_podignigrkupdiv]

Go
CREATE procedure sp_PodigniGrKupDiv
@Sif_GrKup varchar(20)
as
select * from GrKupDiv
where sif_grkup=@Sif_GrKup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrnar]'))
drop procedure [dbo].[sp_podignigrnar]

Go
CREATE PROCEDURE sp_PodigniGrNar
    @Sifra_GrNar    int
 AS
    Select * From GrNar
    Where Sifra_GrNar=@Sifra_GrNar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrorg]'))
drop procedure [dbo].[sp_podignigrorg]

Go
CREATE PROCEDURE sp_PodigniGrOrg
AS
    SELECT * FROM GrOrg




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrorgtip]'))
drop procedure [dbo].[sp_podignigrorgtip]

Go

CREATE PROCEDURE sp_PodigniGrOrgTip
    @Sifra_GrKor  VARCHAR(20)
AS
    SELECT * FROM PrivilOrgTip WHERE Sifra_GrKor =@Sifra_GrKor
RETURN @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrpat]'))
drop procedure [dbo].[sp_podignigrpat]

Go
CREATE PROCEDURE sp_PodigniGrPat
AS
    SELECT * FROM GrPat



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigrpmarza]'))
drop procedure [dbo].[sp_podignigrpmarza]

Go


CREATE   PROCEDURE sp_PodigniGrpMarza
    @Grupa_Marza    smallint
AS
    CREATE TABLE #TmpM
    (Grupa_Marza smallint,
    Ime_GrM varchar(30),
    Sif_GrOrg char(6),
    Proc_Marza decimal(9,2))
    INSERT INTO #TmpM
    Select Top 1 Grupa_Marza, Ime_GrM, Sif_GrOrg,Proc_Marza From GrpMarza
    Where Grupa_Marza=@Grupa_Marza
    IF @@ROWCOUNT=0 AND @Grupa_Marza>0
    INSERT INTO #TmpM VALUES (@Grupa_Marza, '', '',0)
    SELECT * FROM #TmpM




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigsostav]'))
drop procedure [dbo].[sp_podignigsostav]

Go

CREATE     PROCEDURE sp_PodigniGSostav
    @Sif_GrOrg    char(6),
    @Sifra_Art    varchar(20)
AS
    SELECT S.*,  SU.ImeArt ImeSur, SU.EdMera FROM  GSostav S
    INNER JOIN KatArt  SU ON S.Sifra_Sur = SU.Sifra_Art
    WHERE S.Sif_GrOrg = @Sif_GrOrg AND S.Sifra_Art = @Sifra_Art
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigst_kto_oe_odk]'))
drop procedure [dbo].[sp_podignigst_kto_oe_odk]

Go




CREATE    PROCEDURE  sp_PodigniGSt_Kto_Oe_Odk
    @Sifra_Nal    Smallint,
    @Broj_Nal    Int,
    @Kto_Anal    char(10),
    @Sifra_oe       smallint,
    @OdKade         char (1),
    @DaliDev        char (1),
    @DP             char (1),
    @KojaVal        char (3),
    @Sifra_Div        smallint = NULL
AS
IF @Sifra_Div IS NULL
BEGIN
    IF @DaliDev = 'D' and @DP = 'D'
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade and KojaVal = @KojaVal and Dolzi <> 0
    ELSE IF @DaliDev = 'D' and @DP = 'P'
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade and KojaVal = @KojaVal and Pobaruva <> 0
    ELSE
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade
END
ELSE
BEGIN
    IF @DaliDev = 'D' and @DP = 'D'
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade and KojaVal = @KojaVal and Dolzi <> 0 AND Sifra_Div=@Sifra_Div
    ELSE IF @DaliDev = 'D' and @DP = 'P'
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade and KojaVal = @KojaVal and Pobaruva <> 0 AND Sifra_Div=@Sifra_Div
    ELSE
        SELECT GStID FROM GStav
        WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal And Kto_anal = @Kto_Anal
        and Sifra_oe = @Sifra_oe and OdKade = @OdKade AND Sifra_Div=@Sifra_Div
END





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigstandiv]'))
drop procedure [dbo].[sp_podignigstandiv]

Go




CREATE    PROCEDURE sp_PodigniGstAnDiv
    @GStId int,
    @AnId int
AS
    if @GstID is not null and @AnId is not null
        select GD.*, D.ImeDiv, TM.ImeTrosM, TV.ImeTrosV, T4.Ime4Tros
        from GstAnDiv GD
        left outer join Divizii D ON GD.Sifra_Div=D.Sifra_Div
        left outer join TrosokMesto TM ON GD.Sifra_TrosM=TM.Sifra_TrosM
        left outer join TrosokVid TV ON GD.Sifra_TrosV=TV.Sifra_TrosV
        left outer join Trosok4Tip T4 ON GD.Sifra_4Tros = T4.Sifra_4Tros
        where GD.GStId = @GstID and GD.AnId = @AnID
    else if @GstId is not null
        select GD.*, D.ImeDiv, TM.ImeTrosM, TV.ImeTrosV, T4.Ime4Tros
        from GstAnDiv GD
        left outer join Divizii D ON GD.Sifra_Div=D.Sifra_Div
        left outer join TrosokMesto TM ON GD.Sifra_TrosM=TM.Sifra_TrosM
        left outer join TrosokVid TV ON GD.Sifra_TrosV=TV.Sifra_TrosV
        left outer join Trosok4Tip T4 ON GD.Sifra_4Tros = T4.Sifra_4Tros
        where GD.GstId = @GstId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigstav]'))
drop procedure [dbo].[sp_podignigstav]

Go

CREATE    PROCEDURE sp_PodigniGStav
    @GStID  int
AS
    SELECT G.*, A.ImeAnal, O.ImeOrg
    FROM GStav G
    INNER JOIN Anal A ON G.Kto_Anal = A.Kto_Anal
    LEFT OUTER JOIN OrgEd O ON G.Sifra_Oe = O.Sifra_OE
    WHERE GStID = @GStID
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigstavsokto]'))
drop procedure [dbo].[sp_podignigstavsokto]

Go
CREATE    PROCEDURE  sp_PodigniGStavSoKto
    @Sifra_Nal    Smallint,
    @Broj_Nal    Int,
    @Kto_Anal    char(10),
    @KojaVal    char(3) = NULL,
    @Sifra_OE    smallint = NULL,
    @OdKade    char(1) = NULL
AS
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT TOP 1 GStID FROM GStav
    WHERE Sifra_Nal = ' + cast(@Sifra_Nal as varchar(6)) + ' and Broj_Nal = ' + cast(@Broj_Nal as varchar(9)) +
    ' And Kto_anal = ' + @Kto_Anal
    If @KojaVal IS NOT NULL
        SET @SSQL = @SSQL + ' AND KojaVal = ' + @KojaVal
    If @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND Sifra_OE = ' + cast(@Sifra_OE as varchar(5))
    If @OdKade IS NOT NULL
        SET @SSQL = @SSQL + ' AND OdKade = ''' + @OdKade +''' '
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignigstavsovrska]'))
drop procedure [dbo].[sp_podignigstavsovrska]

Go


CREATE    PROCEDURE  sp_PodigniGStavSoVrska
    @Sifra_Nal    Smallint,
    @Broj_Nal    Int,
    @Kto_Anal    char(10),
    @KojaVal    char(3) = NULL,
    @Sifra_OE    smallint = NULL,
    @OdKade    char(1) = NULL,
    @DP        char(1),
    @DokrID    int,
    @BrStavki    smallint OUTPUT,
    @GStID         int OUTPUT,
    @Dolzi        decimal(18,6) OUTPUT,
    @Pobaruva    decimal(18,6) OUTPUT
AS
    CREATE  TABLE #TmpGStID
(    GStID    int,
    Dolzi    decimal(18,6),
    Pobaruva decimal(18,6)
)
    Declare @SSQL varchar(1000)
    SET @SSQL = 'SELECT V.GStID, V.Dolzi, V.Pobaruva FROM FAvtVrski V INNER JOIN GStav G ON V.GStID = G.GStID
    WHERE V.DokrID = ' + Cast(@DokrID as varchar(9)) + ' AND G.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(6)) +
    ' and G.Broj_Nal = ' + cast(@Broj_Nal as varchar(9)) + ' And G.Kto_Anal = ' + @Kto_Anal
    IF @DP = 'D'
        SET @SSQL = @SSQL + ' AND V.Dolzi <> 0 '
    IF @DP = 'P'
        SET @SSQL = @SSQL + ' AND V.Pobaruva <> 0 '
    If @KojaVal IS NOT NULL
        SET @SSQL = @SSQL + ' AND G.KojaVal = ' + @KojaVal
    If @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND G.Sifra_OE = ' + cast(@Sifra_OE as varchar(5))
    Else
        SET @SSQL = @SSQL + ' AND G.Sifra_OE IS NULL '
    If @OdKade IS NOT NULL
        SET @SSQL = @SSQL + ' AND G.OdKade = ''' + @OdKade +''' '
    INSERT INTO #TmpGStID EXEC(@SSQL)
    SELECT @GStID = GStID, @Dolzi=Dolzi, @Pobaruva=Pobaruva FROM #TmpGStID
    SELECT @BrStavki = Count(*) FROM #TmpGStID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignihilzni]'))
drop procedure [dbo].[sp_podignihilzni]

Go

CREATE PROCEDURE sp_PodigniHilzni
    @Sifra_Hilzna smallint
AS
    Select Sifra_Hilzna, Ime_Hilzna, Tezina_Hilzna, Sirina_Hilzna, Precnik_Hilzna, Aktivna
    From Hilzni
    Where Sifra_Hilzna=@Sifra_Hilzna




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniinvpopis]'))
drop procedure [dbo].[sp_podigniinvpopis]

Go
CREATE PROCEDURE sp_PodigniInvPopis
    @Sifra_Oe    smallint = Null,
    @BrojInvP    int = Null
 AS
    Select Sifra_Oe, BrojInvP, Datum_InvP, Sifra_Kup, Sifra_Obj, Sifra_Mest, Popis
    From InvPopis
    Where Sifra_Oe=@Sifra_Oe and  BrojInvP= @BrojInvP



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikarakterist]'))
drop procedure [dbo].[sp_podignikarakterist]

Go
CREATE PROCEDURE sp_PodigniKarakterist
    @Sifra_Karakt    smallint
AS
    SELECT Sifra_Karakt, ImeKarakt FROM Karakterist
    WHERE Sifra_Karakt = @Sifra_Karakt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikartdepoz]'))
drop procedure [dbo].[sp_podignikartdepoz]

Go
CREATE  PROCEDURE sp_PodigniKartDepoz
    @Broj_Depoz int
AS
    SELECT * FROM KartDepoz WHERE Broj_Depoz = @Broj_Depoz




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikartkor]'))
drop procedure [dbo].[sp_podignikartkor]

Go
CREATE  PROCEDURE sp_PodigniKartKor
    @Sifra_Oe    smallint,
    @Sifra_Kor    varchar(20)
AS
    Select K.*, Kom.ImeKup, Tip.ImeKartKor from  KartKor K
    left outer join Komint Kom on Kom.Sifra_Kup = K.Sifra_Kup
    left outer join TipKartKor Tip on Tip.Sifra_TipKartKor = K.Sifra_TipKartKor
    Where Sifra_Oe = @Sifra_Oe and Sifra_Kor = @Sifra_Kor
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikartkordetali]'))
drop procedure [dbo].[sp_podignikartkordetali]

Go


create  PROCEDURE sp_PodigniKartKorDetali

    @Sifra_Kor    varchar(20)
AS
    Select * from  KartKorDetali KD
    Where  Sifra_Kor = @Sifra_Kor
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikartprom]'))
drop procedure [dbo].[sp_podignikartprom]

Go
CREATE PROCEDURE sp_PodigniKartProm
    @Sifra_Mark    smallint,
    @Sifra_Oe    smallint,
    @Broj_ska    int,
    @Sifra_Kor    varchar(20),
    @Sifra_Nac    smallint,
    @Datum_Ska    smalldatetime
AS
    Select * From KartProm
    Where Sifra_Mark=@Sifra_Mark and Sifra_Oe=@Sifra_Oe and Broj_ska=@Broj_Ska and Sifra_Kor=@Sifra_Kor and Sifra_Nac=@Sifra_Nac and Datum_Ska=@Datum_Ska
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikartprom_zaupl]'))
drop procedure [dbo].[sp_podignikartprom_zaupl]

Go

CREATE PROCEDURE sp_PodigniKartProm_ZaUpl
    @Sifra_Mark    smallint,
    @Sifra_Oe    smallint,
    @Broj_ska    int,
    @Sifra_Nac    smallint,
    @FraUpl        char (1)
AS
    Select Prom.*, Kor.ImeKor From KartProm Prom
    Left Outer Join KartKor Kor
    On Prom.Sifra_Kor = Kor.Sifra_kor
    Where Sifra_Mark=@Sifra_Mark and Prom.Sifra_Oe=@Sifra_Oe and Broj_ska=@Broj_Ska
              and Sifra_Nac=@Sifra_Nac and FraUpl=@FraUpl
--Nema da vazzi ako ima razliccni Org.Ed vo KartKor (Z-Vane)
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasdnevn]'))
drop procedure [dbo].[sp_podignikasdnevn]

Go
CREATE PROCEDURE sp_PodigniKasDnevn
    @Sifra_Nal    smallint,
    @Broj_Nal    int
 AS
    SELECT DnID, Sifra_Nal, Broj_Nal, Datum_Nal, Datum_Vnes, Datum_Knz, Sts_Kniz, Sifra_Oper
    FROM KasDnevn
    WHERE Sifra_Nal=@Sifra_Nal and Broj_Nal=@Broj_Nal




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasstav]'))
drop procedure [dbo].[sp_podignikasstav]

Go




CREATE     PROCEDURE sp_PodigniKasStav
    @Broj_dok    int,
    @Sifra_Nal    smallint,
    @P_I        char(1)
AS
    SELECT K.*, A.ImeAnal, A.DaliKupuv, A.DevZatvDen, F.Sifra_Pat
    FROM KasStav K
    LEFT OUTER JOIN Anal A ON K.Kto_Anal = A.Kto_Anal
    LEFT OUTER JOIN AnFinDok F ON K.AnID=F.AnID
    WHERE K.Sifra_Nal=@Sifra_Nal and K.Broj_Dok=@Broj_Dok and K.P_I=@P_I






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasstav1]'))
drop procedure [dbo].[sp_podignikasstav1]

Go



CREATE    PROCEDURE sp_PodigniKasStav1
    @Sifra_Nal    smallint,
    @Broj_Nal    int
AS
    SELECT K.*, A.DaliKupuv,A.ImeAnal
    FROM KasStav K
    LEFT OUTER JOIN Anal A ON K.Kto_Anal = A.Kto_Anal
    WHERE Sifra_Nal=@Sifra_Nal and Broj_Nal=@Broj_Nal
    ORDER BY K.KStaID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasstav4]'))
drop procedure [dbo].[sp_podignikasstav4]

Go



CREATE    PROCEDURE sp_PodigniKasStav4
    @Broj_dok    int,
    @Sifra_Nal    smallint,
    @P_I        char(1),
    @TipBlag    char(3)
AS
    SELECT K.*, A.ImeAnal, A.DaliKupuv
    FROM KasStav K
    LEFT OUTER JOIN Anal A ON K.Kto_Anal = A.Kto_Anal
    WHERE Sifra_Nal=@Sifra_Nal and Broj_Dok=@Broj_Dok and P_I=@P_I AND TipBlag=@TipBlag




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasstavdetal]'))
drop procedure [dbo].[sp_podignikasstavdetal]

Go


CREATE    PROCEDURE sp_PodigniKasStavDetal
    @KStaID    int
AS
     Select C.*, K.ImeAnal From KasStavDetal C
         LEFT OUTER JOIN Anal K ON C.Kto_Anal = K.Kto_Anal
         Where KStaID = @KStaID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikasstavsodokrid]'))
drop procedure [dbo].[sp_podignikasstavsodokrid]

Go
CREATE PROCEDURE sp_PodigniKasStavSoDokrID
    @DokrID    int
AS
    SELECT * FROM KasStav WHERE DokrID=@DokrID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatartoem]'))
drop procedure [dbo].[sp_podignikatartoem]

Go

create PROCEDURE sp_PodigniKatartOEM
    @Sifra_Art    varchar(20)

AS

    Select S.*
    From KatartOEM S
    Where S.Sifra_Art = @Sifra_Art
    Order By S.RbrOEM





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatasortlisti]'))
drop procedure [dbo].[sp_podignikatasortlisti]

Go

CREATE       PROCEDURE sp_PodigniKatAsortListi
    @Broj_ALista    smallint,
    @KatAsortPoSto char(5)
AS
    Declare @SSQL varchar(2000)
SET @SSQL='SELECT L.*'
IF Substring(@KatAsortPoSto,1,1)='D'
    SET @SSQL = @SSQL +', K.ImeKup Ime1'
ELSE IF Substring(@KatAsortPoSto,1,1)='G'
    SET @SSQL = @SSQL +', G.Ime_Gr Ime1'
ELSE IF Substring(@KatAsortPoSto,1,1)='2'
    SET @SSQL = @SSQL +', D.Ime_2 Ime1'
ELSE IF Substring(@KatAsortPoSto,1,1)='4'
    SET @SSQL = @SSQL +', D.Ime_4 Ime1'
ELSE IF Substring(@KatAsortPoSto,1,1)='H'
    SET @SSQL = @SSQL +', D.Ime_KHier Ime1'
ELSE
    SET @SSQL = @SSQL +', '''' Ime1'
IF Substring(@KatAsortPoSto,2,1)='P'
    SET @SSQL = @SSQL +', P.Ime_Podg Ime2'
ELSE
    SET @SSQL = @SSQL +', '''' Ime2'
SET @SSQL = @SSQL +' FROM KatAsortLista L '
IF Substring(@KatAsortPoSto,1,1)='D'
    SET @SSQL = @SSQL +' INNER JOIN Komint K ON L.Sifra1=K.Sifra_Kup '
ELSE IF Substring(@KatAsortPoSto,1,1)='G'
    SET @SSQL = @SSQL +' INNER JOIN Grupi G ON L.Sifra1=G.Sifra_Gr '
ELSE IF Substring(@KatAsortPoSto,1,1)='2'
    SET @SSQL = @SSQL +' INNER JOIN Drugo2 D ON L.Sifra1=D.Sifra_2 '
ELSE IF Substring(@KatAsortPoSto,1,1)='4'
    SET @SSQL = @SSQL +' INNER JOIN Drugo4 D ON L.Sifra1=D.Sifra_4 '
ELSE IF Substring(@KatAsortPoSto,1,1)='H'
    SET @SSQL = @SSQL +' INNER JOIN KatHier D ON L.Sifra1=D.Sifra_KHier '
IF Substring(@KatAsortPoSto,2,1)='P'
    SET @SSQL = @SSQL +' LEFT OUTER JOIN Podgrupi P ON L.Sifra2=P.Sifra_Podg'
SET @SSQL = @SSQL +' WHERE Broj_ALista=' + cast(@Broj_ALista as varchar(10)) + ' ORDER BY L.Reden_broj'
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatkarakt]'))
drop procedure [dbo].[sp_podignikatkarakt]

Go
CREATE PROCEDURE sp_PodigniKatKarakt
    @Sifra_Art    VARCHAR(20)
AS
    SELECT * FROM KatKarakt WHERE Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatlisti]'))
drop procedure [dbo].[sp_podignikatlisti]

Go


CREATE   PROCEDURE sp_PodigniKatListi
    @Broj_Lista    smallint
AS
SELECT L.*, K.ImeArt FROM KatListi L INNER JOIN KatArt K ON L.SIfra_Art=K.Sifra_Art
WHERE Broj_Lista=@Broj_Lista ORDER BY L.Reden_broj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatlokprom]'))
drop procedure [dbo].[sp_podignikatlokprom]

Go
CREATE   PROCEDURE sp_PodigniKatLokProm
    @Sifra_Art    char(6)
AS
    SELECT K.*
    FROM KatLokProm K
    WHERE Sifra_Art=@Sifra_Art
        ORDER BY DATUM_PROM




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatpakuv]'))
drop procedure [dbo].[sp_podignikatpakuv]

Go
CREATE PROCEDURE sp_PodigniKatPakuv
    @Sifra_Art        varchar(    20),
    @Sifra_KatPak        smallint
 AS
    Select * From KatPakuv
    Where Sifra_Art=@Sifra_Art And Sifra_KatPak=@Sifra_KatPak



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatpakuv_pak_nom]'))
drop procedure [dbo].[sp_podignikatpakuv_pak_nom]

Go


CREATE   PROCEDURE sp_PodigniKatPakuv_Pak_Nom
    @Sifra_KatPak        smallint,
    @Sifra_KatPak4        smallint,
        @Nom_Pakuv        varchar (50),
    @Sifra_Art        varchar(20) OUTPUT,
    @Nom_Pomalo        varchar(50) OUTPUT,
    @Sodrzi_Kolic        decimal (18, 6) OUTPUT,
        @TipKutija        smallint OUTPUT
 AS
    Select @TipKutija = Sifra_KatPak, @Sifra_Art = Sifra_Art, @Nom_Pomalo = Nom_Pomalo, @Sodrzi_Kolic = Sodrzi_Kolic
    From KatPakuv
    Where (Sifra_KatPak = @Sifra_KatPak Or Sifra_KatPak = @Sifra_KatPak4) And Nom_Pakuv = @Nom_Pakuv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatpakuvzaart]'))
drop procedure [dbo].[sp_podignikatpakuvzaart]

Go


CREATE PROCEDURE sp_PodigniKatPakuvZaArt
    @Sifra_Art    varchar (20)
AS
SELECT KP.*, K.ImeArt
FROM KatPakuv KP
inner join Katart K
on KP.Sifra_Art = K.Sifra_Art
WHERE KP.Sifra_Art = @Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatpakuvzaartoddok]'))
drop procedure [dbo].[sp_podignikatpakuvzaartoddok]

Go


CREATE   PROCEDURE sp_PodigniKatPakuvZaArtOdDok
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
SELECT KP.*, K.ImeArt FROM KatPakuv KP
inner join Katart K
on KP.Sifra_Art = K.Sifra_Art
WHERE KP.Sifra_Art IN
(SELECT DISTINCT Sifra_Art FROM Stavr
WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok GROUP BY Sifra_Art)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatprior_vidobj]'))
drop procedure [dbo].[sp_podignikatprior_vidobj]

Go
CREATE PROCEDURE sp_PodigniKatPrior_VidObj
    @Sifra_Art    varchar(20)
AS
    Select Sifra_Art, Sifra_VPJ
    From KatPrior_VidObj
    Where Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatserbr]'))
drop procedure [dbo].[sp_podignikatserbr]

Go

CREATE     PROCEDURE sp_PodigniKatSerBr
    @KontrSer    varchar(25)
AS
    Select S.*, K.ImeArt, K.EdMera
    From KatSerBr S
    Left outer join Katart K
        on S.Sifra_Art = K.Sifra_Art
    Where S.KontrSer = @KontrSer




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatserbranaliza]'))
drop procedure [dbo].[sp_podignikatserbranaliza]

Go
CREATE PROCEDURE sp_PodigniKatSerBrAnaliza
    @KontrSer    varchar(25)
AS
    Select * From KatSerBrAnaliza
    Where KontrSer=@KontrSer
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatserbrsta]'))
drop procedure [dbo].[sp_podignikatserbrsta]

Go

CREATE  PROCEDURE sp_PodigniKatSerBrSta
    @KontrSer    varchar(25)
AS
    Select * From KatSerBrSta
    Where KontrSer=@KontrSer
    Order by Rbr
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatserklas]'))
drop procedure [dbo].[sp_podignikatserklas]

Go



CREATE   PROCEDURE sp_PodigniKatSerKlas
    @Sifra_Art    varchar(20),
    @KontrSer    varchar(30)

AS

    select K.*, D3.Ime_3
    from KatSerKlas K
    left outer join Drugo3 D3
        on K.SIfra_3 = D3.SifrA_3
    Where Sifra_Art = @Sifra_Art and KontrSer = @KontrSer

    Return @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatsliki]'))
drop procedure [dbo].[sp_podignikatsliki]

Go
CREATE PROCEDURE [dbo].[sp_PodigniKatSliki]
    @Sifra_Art    varchar(20)
AS
    Select Sifra_Art, SlikaArt, ImeFile, VerSlika
    From KatSliki
    Where Sifra_Art=@Sifra_Art

    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatspecpakzaart]'))
drop procedure [dbo].[sp_podignikatspecpakzaart]

Go



CREATE     PROCEDURE sp_PodigniKatSpecPakZaArt
    @Sifra_art    varchar(20)
 AS
    Select K.Sifra_art, K.Vid_Pakuv, K.Sifra_TipMat, K.Opis_Komp, K.TEzina, T.ImeTipMat, K.Datum
        from KatSpecPakuv K
        left outer join KatSpecTipMat T on T.Sifra_TipMat=K.Sifra_TipMat
        where Sifra_Art=@Sifra_art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatspectipmat]'))
drop procedure [dbo].[sp_podignikatspectipmat]

Go

create  PROCEDURE sp_PodigniKatSpecTipMat
    @Sifra_TipMat        smallint
 AS
    Select * From KatSpecTipMat
    Where Sifra_TipMat=@Sifra_TipMat




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikatvelicboja]'))
drop procedure [dbo].[sp_podignikatvelicboja]

Go

CREATE  PROCEDURE sp_PodigniKatVelicBoja
    @Sifra_Art        varchar(20)
AS
SELECT K.* FROM KatVelicBoja K  WHERE Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikbanki]'))
drop procedure [dbo].[sp_podignikbanki]

Go
CREATE PROCEDURE sp_PodigniKBanki
    @Sifra_Kup    char(6),
    @RbrBan    smallint
 AS
    Select KB.Sifra_Kup, KB.RbrBan, KB.ZiroSka, KB.Sifra_Ban, K.ImeKup, KB.ImeKor
    From KBanki KB
    Inner Join Komint K On K.Sifra_Kup = KB.Sifra_Kup
    Where KB.Sifra_Kup=@Sifra_Kup and KB.RbrBan=@RbrBan




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikbankisite]'))
drop procedure [dbo].[sp_podignikbankisite]

Go

CREATE    PROCEDURE sp_PodigniKBankiSite
    @Sifra_Kup    char(6)
 AS
    Select Sifra_Kup, RbrBan, K.Sifra_Ban, ZiroSka, B.ImeBanka, K.ImeKor
    From KBanki K, Banki B
    Where Sifra_Kup=@Sifra_Kup and K.Sifra_Ban = B.Sifra_Ban
    Order by RbrBan





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniklient]'))
drop procedure [dbo].[sp_podigniklient]

Go
CREATE PROCEDURE sp_PodigniKlient
    @Sif_Klient    int
AS
SELECT * FROM Klienti WHERE Sif_Klient=@Sif_Klient


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniklista]'))
drop procedure [dbo].[sp_podigniklista]

Go
CREATE PROCEDURE sp_PodigniKlista
    @Broj        int
AS
    Select Broj, Datum_Kam, Iznos, Datum_Fakt, Rok_Dosp, Identif_Br, Ekster, AnID1, AnID2
    From KLista
    Where Broj=@Broj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniklistad]'))
drop procedure [dbo].[sp_podigniklistad]

Go
CREATE PROCEDURE sp_PodigniKlistaD
    @Broj        int
AS
    Select Broj, Sifra_Kup, Opis, Datum_Kli, Datum_Vnes, Oper_Vnes, Datum_Izm, Oper_Izm
    From KlistaD
    Where Broj=@Broj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniklucsprometadh]'))
drop procedure [dbo].[sp_podigniklucsprometadh]

Go

create  procedure sp_PodigniKlucSPrometAdh
    @Kluc varchar(20)
As
    Select * from KlucSPrometAdh
    Where KlucSodrz=@Kluc




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniknigatrg]'))
drop procedure [dbo].[sp_podigniknigatrg]

Go

CREATE PROCEDURE sp_PodigniKnigaTrg
    @InterenBr int
AS
    SELECT  *   FROM KnigaTrg
    WHERE InterenBr = @InterenBr
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikobj]'))
drop procedure [dbo].[sp_podignikobj]

Go



CREATE   PROCEDURE sp_PodigniKObj
   @Sifra_Kup varchar(15),
   @Sifra_Obj Smallint,
   @ImeTugaSifra char(1) = 'N'
AS
   If @ImeTugaSifra = 'D'
    SELECT KO.*, VO.Ime_VPJ, D1.Ime_1K, D2.Ime_2K, D3.Ime_3K, D4.Ime_4K, D5.Ime_5K, D6.Ime_6K, D7.Ime_7K, REG.ImeRegion, GR.ImeGrad, GTK.ImeTipKup
    FROM Kobjekti KO  WITH(NOLOCK)
    LEFT OUTER JOIN VidProdObj VO ON VO.Sifra_VPJ=KO.Sifra_VPJ
                        Left Outer Join KDrugo1 D1 On D1.Sifra_1k = KO.KDrugo1
                        Left Outer Join KDrugo2 D2 On D2.Sifra_2k = KO.KDrugo2
                        Left Outer Join KDrugo3 D3 On D3.Sifra_3k = KO.KDrugo3
                        Left Outer Join KDrugo4 D4 On D4.Sifra_4k = KO.KDrugo4
                        Left Outer Join KDrugo5 D5 On D5.Sifra_5k = KO.KDrugo5
                        Left Outer Join KDrugo6 D6 On D6.Sifra_6k = KO.KDrugo6
                        Left Outer Join KDrugo7 D7 On D7.Sifra_7k = KO.KDrugo7
                        Left Outer Join Grad GR On GR.Sifra_grad = KO.Sifra_Grad
                        Left Outer Join GRegion REG On REG.Sifra_reg = KO.Sifra_reg
                        Left Outer Join GTipkup GTK On GTK.TipKup = KO.TipKup
    WHERE KO.Sifra_Kup=@Sifra_Kup AND KO.Sifra_Obj=@Sifra_Obj
   Else
    SELECT *   FROM KObjekti
    WHERE Sifra_Kup=@Sifra_Kup AND Sifra_Obj=@Sifra_Obj
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikobjsliki]'))
drop procedure [dbo].[sp_podignikobjsliki]

Go


CREATE   PROCEDURE sp_PodigniKObjSliki
    @Sifra_Obj    smallint,
    @Sifra_Kup varchar(20)
AS
    Select Sifra_Obj, SlikaKObj, ImeFile, Sifra_Kup
    From KObjSliki
    Where Sifra_Obj=@Sifra_Obj and Sifra_Kup=@Sifra_Kup
    Return @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikomintpat]'))
drop procedure [dbo].[sp_podignikomintpat]

Go
CREATE  PROCEDURE sp_PodigniKomintPat
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint
AS
    If @Sifra_Obj Is Not Null
        Select Sifra_Kup, Sifra_Obj, Sifra_Pat
        From KomintPat
        Where Sifra_Kup=@Sifra_Kup And Sifra_Obj=@Sifra_Obj
    Else
        Select Sifra_Kup, Sifra_Obj, Sifra_Pat
        From KomintPat
        Where Sifra_Kup=@Sifra_Kup And Sifra_Obj is null



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikomintpatpat]'))
drop procedure [dbo].[sp_podignikomintpatpat]

Go
CREATE   PROCEDURE sp_PodigniKomintPatPat
    @Sifra_Pat smallint
AS
Select KP.Sifra_Kup, KP.Sifra_Obj, KP.Sifra_Pat, K.ImeKup, O.ImeObj
From KomintPat KP INNER JOIN Komint K ON KP.Sifra_Kup=K.Sifra_Kup
LEFT OUTER JOIN KObjekti O ON KP.Sifra_Kup=O.Sifra_Kup AND KP.Sifra_Obj=O.Sifra_Obj
Where KP.Sifra_Pat=@Sifra_Pat




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikomintstavki]'))
drop procedure [dbo].[sp_podignikomintstavki]

Go



CREATE    procedure sp_PodigniKomintStavki
    @Sif_GrKup varchar(20) ,
    @Sifra_Kup varchar(6)
As
    Select KS.*,K.ImeKup from SGrKup KS
    left outer join Komint K on KS.Sifra_Kup=K.SIfra_Kup
    Where KS.Sif_GrKup=@Sif_GrKup and KS.Sifra_Kup=@Sifra_Kup






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikomlimitdiv]'))
drop procedure [dbo].[sp_podignikomlimitdiv]

Go
create procedure sp_PodigniKomLimitDiv
    @Sifra_kup char(6)
AS
    Select KD.*, K.ImeKup, D.ImeDiv from KomLimitDiv KD
    Inner Join KOmint K on KD.Sifra_Kup=K.Sifra_Kup
    Inner Join Divizii D on KD.Sifra_Div=D.Sifra_Div
    Where KD.Sifra_kup=@Sifra_Kup



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikompenz]'))
drop procedure [dbo].[sp_podignikompenz]

Go

CREATE   PROCEDURE sp_PodigniKompenz
    @Broj_Komp Int,
    @Datum_Komp Smalldatetime OUTPUT,
    @Opis Varchar(50) OUTPUT,
    @Datum_Do Smalldatetime OUTPUT,
    @KtoKup Varchar(10) OUTPUT,
    @KtoDob Varchar(10) OUTPUT,
    @Sifra_Kup Varchar(10) OUTPUT,
    @ImeKup Varchar(40) OUTPUT,
    @Adresa Varchar(40) OUTPUT,
    @Mesto Varchar(20) OUTPUT,
    @Posta Varchar(10) OUTPUT,
    @Ziro Varchar(25) OUTPUT,
    @Banka Varchar(50) OUTPUT,
    @Danocen Varchar(20) OUTPUT,
    @Telefon Varchar(15) OUTPUT
AS
    Select @Datum_Komp=K.Datum_Komp, @Sifra_Kup=K.Sifra_Kup, @Opis=K.Opis,
        @Datum_Do=K.Datum_Do, @KtoKup=K.KtoKup, @KtoDob=K.KtoDob,
        @ImeKup=Kup.ImeKup, @Adresa=Kup.Adresa, @Mesto=Kup.SMesto, @Posta=Kup.Posta,
        @Ziro=Kup.Posta, @Ziro=Kup.Ziro, @Banka=Kup.Banka, @Danocen=Kup.Danocen,
        @Telefon=Kup.Telefon
    From Kompenz K
    Inner Join Komint Kup On K.Sifra_Kup=Kup.Sifra_Kup
    Where K.Broj_Komp=@Broj_Komp
    Select KS.Sifra_OE, KS.Sifra_Dok, KS.Broj_Dok, KS.BrojDok, KS.Datum_Dok,
        KS.Dolzi, KS.Pobaruva From KompStav KS
    Where KS.[Broj_Komp]=@Broj_Komp




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikompenzstav]'))
drop procedure [dbo].[sp_podignikompenzstav]

Go

CREATE    PROCEDURE sp_PodigniKompenzStav
    @Broj_Komp Int
AS
    Select KS.Sifra_OE, KS.Sifra_Dok, KS.Broj_Dok, KS.BrojDok, KS.Datum_Dok,
        KS.Dolzi, KS.Pobaruva From KompStav KS
    Where KS.[Broj_Komp]=@Broj_Komp




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikompenzzag]'))
drop procedure [dbo].[sp_podignikompenzzag]

Go


CREATE    PROCEDURE sp_PodigniKompenzZag
    @Broj_Komp Int
AS
    Select K.Datum_Komp, K.Sifra_Kup, K.Opis, K.Datum_Do,
        K.KtoKup, K.KtoDob, Kup.ImeKup, Kup.Adresa, Kup.SMesto, Kup.Posta,
        Kup.Ziro, Kup.Banka, Kup.Danocen, Kup.Telefon
    From Kompenz K
    Inner Join Komint Kup On K.Sifra_Kup=Kup.Sifra_Kup
    Where K.Broj_Komp=@Broj_Komp




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikomsliki]'))
drop procedure [dbo].[sp_podignikomsliki]

Go
CREATE PROCEDURE sp_PodigniKomSliki
    @Sifra_Kup    varchar(    20)
AS
    Select Sifra_Kup, SlikaKom, ImeFile
    From KomSliki
    Where Sifra_Kup=@Sifra_Kup
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfaccr]'))
drop procedure [dbo].[sp_podignikonfaccr]

Go
CREATE PROCEDURE sp_PodigniKonfAccr
AS
SELECT * FROM KonfAccr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfazurtros]'))
drop procedure [dbo].[sp_podignikonfazurtros]

Go





CREATE      PROCEDURE sp_PodigniKonfAzurTros
AS
    SELECT K.*, T.ImeDok, P.ImePat, O.ImeOrg, TM.ImeTrosM
    FROM KonfAzurTros K
    left outer join TipDok T on T.Sifra_Dok = K.Sifra_Dok
    left outer join Orged O on O.Sifra_Oe = K.Sifra_Oe
    left outer join Patnici P on P.Sifra_Pat = K.Sifra_Pat
    left outer join TrosokMesto TM on TM.Sifra_TrosM = K.Sifra_TrosM











Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfceni]'))
drop procedure [dbo].[sp_podignikonfceni]

Go

CREATE PROCEDURE sp_PodigniKonfCeni
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @Sifra_Prim    Smallint
AS
    SELECT *
    FROM KonfCeni
    WHERE Sifra_dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND Sifra_Prim = @Sifra_Prim
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfdat]'))
drop procedure [dbo].[sp_podignikonfdat]

Go

create PROCEDURE [dbo].[sp_PodigniKonfDat]
AS
SELECT * FROM KonfDat





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfmapword]'))
drop procedure [dbo].[sp_podignikonfmapword]

Go
CREATE  PROCEDURE sp_PodigniKonfMapWord
    @TempID varchar(20)
AS
    SELECT * FROM KonfMapWord
    WHERE TempID = @TempID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikonfnasobjopst]'))
drop procedure [dbo].[sp_podignikonfnasobjopst]

Go
CREATE PROCEDURE sp_PodigniKonfNasObjOpst
    @Izvor    Char(10)
AS
    Select * From KonfNasObjOpst
    Where Izvor = @Izvor



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikoravtmail]'))
drop procedure [dbo].[sp_podignikoravtmail]

Go


CREATE  PROCEDURE sp_PodigniKorAvtMail

AS
  Select distinct(Korisnik) From AvtMail





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikplkprompodokr]'))
drop procedure [dbo].[sp_podignikplkprompodokr]

Go


CREATE   PROCEDURE sp_PodigniKPlkPromPoDokr
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Declare @Broj_Ska int
    SELECT @Broj_Ska=Broj_Ska FROM KPromet WHERE Sifra_Oe=@Sifra_Oe And Grp_Kasa=@Sifra_Dok And BrKasa=1 And Departm=@Broj_Dok

    Select P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska, P.Sifra_Nac, N.ImeNac, P.Iznos, P.Sifra_kup, P.Broj_Nac, P.Opis, P.Rbr, N.Fisc_Nacin
    From KPlkProm P
    Left Outer Join NacPlak N On N.Sifra_Nac=P.Sifra_Nac
    Where P.Sifra_Oe=@Sifra_Oe And P.Grp_Kasa=@Sifra_Dok And P.BrKasa=1 And P.Broj_Ska=@Broj_Ska
    Order By Rbr





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikredit]'))
drop procedure [dbo].[sp_podignikredit]

Go




CREATE     procedure sp_PodigniKredit

    @Sifra_Oe as smallint,
    @Broj_Kredit as int

As

    Select K.*, Kor.Profesija, Kor.ImeKor, Kor.Adresa, Kor.Smesto, Kor.RegBrLk,
       Kor.Telefon, Kor.LK, Kor.TelMobil, Stat.ImeStatusKredit, Opom.ImeTipOpomena, Kor.Sifra_Kup, Kom.ImeKup
    from Kredit K
    left outer join KartKor Kor on K.Sifra_Kor = KOr.Sifra_Kor
    left outer join KreditStatus Stat on K.Status_Kredit = Stat.Status_Kredit
    left outer join KreditTipOpomena Opom on K.Tip_Posl_Opomena = Opom.Tip_Opomena
        left outer join Komint Kom on Kor.Sifra_Kup = KOm.Sifra_Kup
    Where K.Sifra_Oe = @Sifra_Oe and K.Broj_Kredit = @Broj_Kredit









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikreditopomena]'))
drop procedure [dbo].[sp_podignikreditopomena]

Go

CREATE  procedure sp_PodigniKreditOpomena
    @Sifra_Oe smallint,
    @Broj_kredit int ,
    @Broj_Opomena int
As
    Select * from KreditOpomena
    Where Sifra_oe=@Sifra_oe and Broj_kredit=@Broj_kredit and Broj_Opomena=@Broj_Opomena




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikreditrati]'))
drop procedure [dbo].[sp_podignikreditrati]

Go


create   procedure sp_PodigniKreditRati
    @Sifra_Oe smallint,
    @Broj_kredit int

As

    select * from KreditTransakc
    Where sifra_oe=@sifra_oe and broj_kredit=@broj_kredit and Dolzi>0 and Dolzi is not null






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikreditstavki]'))
drop procedure [dbo].[sp_podignikreditstavki]

Go


CREATE   procedure sp_PodigniKreditStavki
    @Sifra_Oe smallint ,
    @Broj_kredit int
As
    Select KS.*,K.ImeArt from KreditStavki KS
    left outer join Katart K on KS.Sifra_Art=K.SIfra_Art
    Where KS.Sifra_oe=@Sifra_oe and KS.broj_kredit=@broj_kredit --and rbr_kredart=@rbr_kredart





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikredittransakc]'))
drop procedure [dbo].[sp_podignikredittransakc]

Go

CREATE  procedure sp_PodigniKreditTransakc
    @Sifra_Oe smallint,
    @Broj_kredit int

As

    select * from KreditTransakc
    Where sifra_oe=@sifra_oe and broj_kredit=@broj_kredit





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikredittransakc_rbr]'))
drop procedure [dbo].[sp_podignikredittransakc_rbr]

Go


create  procedure sp_PodigniKreditTransakc_Rbr
    @Sifra_Oe smallint,
    @Broj_Kredit int,
        @Rbr_KreditTrans int

As

    select * from KreditTransakc
    Where Sifra_oe = @Sifra_oe and Broj_Kredit = @Broj_Kredit and Rbr_KreditTrans = @Rbr_KreditTrans







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikreditvrskazatv]'))
drop procedure [dbo].[sp_podignikreditvrskazatv]

Go


create procedure sp_PodigniKreditVrskaZatv
    @Sifra_Oe_1 smallint,
    @Broj_kredit_1 int,
    @Rbr_KreditTrans_1 int

As

    select *
    from KreditVrskaZatv
    where Sifra_Oe_1 = @Sifra_oe_1 and Broj_kredit_1 = @Broj_kredit_1
    and rbr_kredittrans_1 = @rbr_kredittrans_1





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikredtranakc]'))
drop procedure [dbo].[sp_podignikredtranakc]

Go


create  PROCEDURE sp_PodigniKredTranakc
    @Sifra_Oe smallint,
    @Broj_kredit int,
        @Rbr_KreditTrans int
 AS
    Select * From KreditTransakc KT
    Where KT.Sifra_Oe=@Sifra_Oe and KT.Broj_Kredit=@Broj_Kredit and
              KT.Rbr_KreditTrans=@Rbr_KreditTrans





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikrsvaznost]'))
drop procedure [dbo].[sp_podignikrsvaznost]

Go
CREATE PROCEDURE sp_PodigniKrsVaznost
    @Datum    smalldatetime,
    @SImeVal    char(3)= NULL
 AS
    Declare @SSQL as varchar(2000)
    Set @SSQL = 'Select K.Datum, V.SImeVal, K.KursKupoven, K.KursProdazen, K.KursSreden, K.KursPazaren, V.ImeVal
            From KrsLista V LEFT OUTER JOIN  KrsVaznost K ON K.SImeVal=V.SImeVal
            AND K.Datum = ''' + cast(@Datum as varchar(25)) + ''' '
    If @SImeVal Is Not Null
        Set @SSQL = @SSQL +  ' And K.SImeVal = ' + @SImeVal
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikstapki]'))
drop procedure [dbo].[sp_podignikstapki]

Go
CREATE PROCEDURE sp_PodigniKStapki
    @Datum_Od        smalldatetime
 AS
    Select  Datum_Od, God_Real_St, God_Reval_St, Vaz_Metod, God_Mes
    From KStapki
    Where Datum_Od=@DAtum_Od
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignikupzadeklart]'))
drop procedure [dbo].[sp_podignikupzadeklart]

Go



CREATE   PROCEDURE [dbo].[sp_PodigniKupZaDeklArt]
    @Sifra_Art     varchar(20),
    @Ozn         varchar(20)
AS
    SELECT  D.*, K.ImeKup
    FROM    DeklArtKup D LEFT OUTER JOIN Komint K ON D.Sifra_Kup = K.Sifra_Kup
    WHERE    Sifra_Art = @Sifra_Art AND Ozn = @Ozn

    RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilayout]'))
drop procedure [dbo].[sp_podignilayout]

Go

CREATE PROCEDURE [dbo].[sp_PodigniLayOut]
    @Sifra_LayOut    int = NULL

AS

    IF @Sifra_LayOut IS NOT NULL
        SELECT    *
        FROM    LayOut
        WHERE    Sifra_LayOut = @Sifra_LayOut
    ELSE
        SELECT    *
        FROM    LayOut
        ORDER BY Sifra_LayOut

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilayoutelem]'))
drop procedure [dbo].[sp_podignilayoutelem]

Go

CREATE PROCEDURE [dbo].[sp_PodigniLayOutElem]
    @Sifra_LayOut        int = NULL

AS

    IF @Sifra_LayOut IS NOT NULL
        SELECT    LE.*, LO.Ime_LayOut, LU.Ime_LayOutUnit
        FROM    LayOutElem LE
                INNER JOIN LayOut LO ON LO.Sifra_LayOut = LE.Sifra_LayOut
                INNER JOIN LayOutUnit LU ON LU.Sifra_LayOutUnit = LE.Sifra_LayOutUnit
        WHERE    LE.Sifra_LayOut = @Sifra_LayOut
        ORDER BY LE.rbr_LayOutUnit
    ELSE
        SELECT    LE.*, LO.Ime_LayOut, LU.Ime_LayOutUnit
        FROM    LayOutElem LE
                INNER JOIN LayOut LO ON LO.Sifra_LayOut = LE.Sifra_LayOut
                INNER JOIN LayOutUnit LU ON LU.Sifra_LayOutUnit = LE.Sifra_LayOutUnit
        ORDER BY LE.Sifra_LayOut, LE.Sifra_LayOutUnit

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilayoutunit]'))
drop procedure [dbo].[sp_podignilayoutunit]

Go

CREATE PROCEDURE [dbo].[sp_PodigniLayOutUnit]
    @Sifra_LayOutUnit    smallint = NULL

AS

    IF @Sifra_LayOutUnit IS NOT NULL
        SELECT    *
        FROM    LayOutUnit
        WHERE    Sifra_LayOutUnit = @Sifra_LayOutUnit
    ELSE
        SELECT    *
        FROM    LayOutUnit
        ORDER BY Sifra_LayOutUnit

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilekari]'))
drop procedure [dbo].[sp_podignilekari]

Go

CREATE PROCEDURE sp_PodigniLekari

    @Sifra_Lekar    char(6)
AS
    Select * From Lekari
    Where Sifra_Lekar=@Sifra_Lekar
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilogo]'))
drop procedure [dbo].[sp_podignilogo]

Go



CREATE   PROCEDURE sp_PodigniLogo
    @Sifra_Dok    Smallint,
    @Sifra_OE    Smallint,
    @TipObr            varchar(2)
AS
    SELECT *
    FROM Logo
    WHERE Sifra_Dok = @Sifra_Dok AND Sifra_OE = @Sifra_OE AND TipObr = @TipObr
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilokorg]'))
drop procedure [dbo].[sp_podignilokorg]

Go

create PROCEDURE [dbo].[sp_PodigniLokOrg]
    @Sifra_LokOrg    int = NULL

AS

    IF @Sifra_LokOrg IS NOT NULL
        SELECT    *
        FROM    LokOrg
        WHERE    Sifra_LokOrg = @Sifra_LokOrg
    ELSE
        SELECT    *
        FROM    LokOrg
        ORDER BY Sifra_LokOrg

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilotser]'))
drop procedure [dbo].[sp_podignilotser]

Go
CREATE PROCEDURE sp_PodigniLotSer
    @SpecOzn    varchar(30)
AS
    Select * From LotSer         --SpecOzn, Sifra_Art, TugaOzn
    Where SpecOzn=@SpecOzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilotser_sifart]'))
drop procedure [dbo].[sp_podignilotser_sifart]

Go
CREATE PROCEDURE sp_PodigniLotSer_SifArt
    @Sifra_Art    varchar(20),
    @Tip_Set    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select L.*, K.ImeArt
            From LotSer L
            Where Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Tip_Set Is Not Null
        Set @SSQL=@SSQL + ' Anf L.Tip_Set = ' + Cast(@Tip_Set as varchar(5)) + ' '
    Exec @SSQL



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilpopis]'))
drop procedure [dbo].[sp_podignilpopis]

Go




CREATE     PROCEDURE sp_PodigniLPopis
    @IDPopis int,
    @Broj int
AS
    SELECT LP.*, A.ImeArt, A.EdMera, A.RokKontrDali,
    dbo.fn_Vraticena(S.Cena, T.ProcOsn, S.DanCena, 'D') As Cena, B.ImeBoja, V.ImeVelic
    FROM LPopis LP
    INNER JOIN KatArt A ON LP.Sifra_Art = A.Sifra_Art
    INNER JOIN Tarifi T ON T.Sifra_Tar = A.Sifra_Tar
    INNER JOIN Popis P ON P.IDPopis = @IDPopis
    LEFT OUTER JOIN SoArt S ON LP.Sifra_Art = S.Sifra_Art AND S.Sifra_OE = P.Sifra_OE
    Left Outer Join Boja B on LP.Sifra_Boja=B.Sifra_Boja
    left Outer Join Velicina V on LP.Sifra_Velic=V.Sifra_Velic
    WHERE  LP.IDpopis = @IDPopis AND LP.Broj = @Broj
    ORDER BY IDLPopis
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilpopisos]'))
drop procedure [dbo].[sp_podignilpopisos]

Go




CREATE     PROCEDURE sp_PodigniLPopisOS
    @IDPopisOS smallint,
    @Broj_Lista int
AS
    SELECT LP.*, O.Ime, O.BarKod
    FROM LPopisOS LP
    INNER JOIN OsnSred O ON LP.Inv_Broj = O.Inv_Broj
    INNER JOIN PopisOS P ON P.IDPopisOS = @IDPopisOS
    WHERE  LP.IDpopisOS = @IDPopisOS AND LP.Broj_Lista = @Broj_Lista
    ORDER BY IDLPopisOS
  IF @@ROWCOUNT = 0
      RETURN 77000
  ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilpopisos_br]'))
drop procedure [dbo].[sp_podignilpopisos_br]

Go





CREATE      PROCEDURE sp_PodigniLPopisOS_Br
    @Broj_Lista int
AS
    SELECT LP.*, O.Ime, O.BarKod
    FROM LPopisOS LP
    INNER JOIN OsnSred O ON LP.Inv_Broj = O.Inv_Broj
    --INNER JOIN PopisOS P ON P.IDPopisOS = @IDPopisOS
    WHERE  LP.IDpopisOS  in(Select IDPopisOS from LPopisOs where Broj_Lista=@Broj_Lista)
    ORDER BY IDLPopisOS
  IF @@ROWCOUNT = 0
      RETURN 77000
  ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilstpartic]'))
drop procedure [dbo].[sp_podignilstpartic]

Go

Create  PROCEDURE sp_PodigniLstPartic

 AS

    Select * From LstPartic
    Order By Iznos_Od



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilstparticmarza]'))
drop procedure [dbo].[sp_podignilstparticmarza]

Go



CREATE    PROCEDURE sp_PodigniLstParticMarza

 AS

    Select * From LstPartic
    Order By Iznos_Od





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilstparticskala]'))
drop procedure [dbo].[sp_podignilstparticskala]

Go

create  PROCEDURE sp_PodigniLstParticSkala

 AS

    Select * From LstParticSkala
    Order By Iznos_Od



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignilstpoeniiznos]'))
drop procedure [dbo].[sp_podignilstpoeniiznos]

Go
Create  PROCEDURE sp_PodigniLstPoeniIznos

 AS

    Select * From LstPoeniIznos
    Order By Poeni_Od




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_dokrid]'))
drop procedure [dbo].[sp_podignimagstavr_dokrid]

Go




CREATE     PROCEDURE sp_PodigniMagStavr_DokrID
    @DokrID    int
AS
    Select MS.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc
    From MagStavr MS
        Inner Join Katart K
        On MS.Sifra_Art = K.Sifra_Art
    Where DokrID=@DokrID
        ORDER BY Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_dokrid_zbirno]'))
drop procedure [dbo].[sp_podignimagstavr_dokrid_zbirno]

Go




create    PROCEDURE sp_PodigniMagStavr_DokrID_Zbirno
    @DokrID    int
AS
    Select MS.Sifra_Art, K.ImeArt, K.EdMera, sum(MS.Kolic) as SumKolic
    From MagStavr MS
        Inner Join Katart K
        On MS.Sifra_Art = K.Sifra_Art
    Where DokrID = @DokrID
        Group By MS.Sifra_Art, K.ImeArt, K.EdMera




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_dokrid1]'))
drop procedure [dbo].[sp_podignimagstavr_dokrid1]

Go



CREATE    PROCEDURE sp_PodigniMagStavr_DokrID1
    @DokrID    int
AS
Select MS.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc, K.Sifra_tar, T.ProcOsn, S.DokCena, S.DanDokCena
From MagStavr MS
Inner Join Katart K On MS.Sifra_Art = K.Sifra_Art
INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
LEFT OUTER JOIN Stavr S ON S.DokrID=MS.DokrID AND MS.Sifra_Art=S.Sifra_Art
Where MS.DokrID=@DokrID        --ke ima povekekratni zapisi ako ima pov.zapisi za 1art.vo stavr-da se dotera ova!stavr se korisiti za cenata




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_dokridart]'))
drop procedure [dbo].[sp_podignimagstavr_dokridart]

Go


CREATE     PROCEDURE sp_PodigniMagStavr_DokrIDArt
    @DokrID    int,
    @Sifra_Art    varchar(20)

AS

    Select MS.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc
    From MagStavr MS
        left outer Join Katart K
            On MS.Sifra_Art = K.Sifra_Art
    Where DokrID = @DokrID AND MS.Sifra_Art = @Sifra_Art
    ORDER BY Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_listdokrid]'))
drop procedure [dbo].[sp_podignimagstavr_listdokrid]

Go

create PROCEDURE sp_PodigniMagStavr_ListDokrID
    @DokrID_List    varchar(5000)

AS

    Declare @SSQL varchar(6000)

    set @SSQL = '
        Select MS.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc
        From MagStavr MS
            Inner Join Katart K
            On MS.Sifra_Art = K.Sifra_Art
        Where DokrID in (' + @DokrID_List + ')
            ORDER BY MS.SIfra_Art, DokrId, MS.Rbr
        '

    exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_narid]'))
drop procedure [dbo].[sp_podignimagstavr_narid]

Go





Create      PROCEDURE sp_PodigniMagStavr_NarID
    @NarID        int
AS
    Select MS.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc
    From MagStavr MS
        Inner Join Katart K
        On MS.Sifra_Art = K.Sifra_Art
    Where NarID=@NarID
        ORDER BY Rbr






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_oe_art_ozn]'))
drop procedure [dbo].[sp_podignimagstavr_oe_art_ozn]

Go
CREATE PROCEDURE sp_PodigniMagStavr_Oe_Art_Ozn
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20),
    @SpecOzn    varchar(30)
AS
    Select *
    From MagStavr
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art And SpecOzn=@SpecOzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_oe_dok_broj]'))
drop procedure [dbo].[sp_podignimagstavr_oe_dok_broj]

Go











CREATE        PROCEDURE [dbo].[sp_PodigniMagStavr_Oe_Dok_Broj]
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS  --S.*
    Select S.DokrID, S.Sifra_Oe,  S.Sifra_Art, S.Kolic, S.VlIzl, S.SpecOzn, S.Datum_Vnes ,S.Paketi,  S.Rbr, S.LotBr,
    S.Lokacija,    S.Sifra_KatPak, S.Sifra_KatStatus,  S.RokRed, S.AltSerBr, S.WHMSys, S.Sifra_Oe_WHM, S.Sifra_Oper, S.NarID,
    S.LokacPrima, K.ImeArt, K.RokTraDen, K.DeklArt, K.EdMera, K.ImaKomerc, KS.ImeKatStatus, D.VlIzl, K.Nom, K.DeklArt,
    D.Sifra_Kup, D.Sifra_Prim, KUP.ImeKup, O.ImeOrg, D.Identif_Br, D.Opis, D.Datum_Dok
    From Dokr D
    Inner Join MagStavr S On S.DokrID=D.DokrID
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Left Outer Join KatStatus KS ON KS.Sifra_KatStatus=S.Sifra_KatStatus
    LEFT OUTER JOIN Orged O ON D.Sifra_Prim=O.Sifra_OE
    LEFT OUTER JOIN Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
    Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
        order by K.Sifra_art












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_oedokbroj_ceni]'))
drop procedure [dbo].[sp_podignimagstavr_oedokbroj_ceni]

Go








CREATE      PROCEDURE [dbo].[sp_PodigniMagStavr_OeDokBroj_Ceni]
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
CREATE TABLE #TmpStavr
(DokrID     int,
DokID        int,
Sifra_Art    varchar(20))
INSERT INTO #TmpStavr SELECT DokrID, Min(DokID), Sifra_Art FROM Stavr WHERE Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
GROUP BY DokrID, Sifra_Art

    Select S.*, K.ImeArt, K.RokTraDen, K.DeklArt, K.EdMera, K.ImaKomerc, KS.ImeKatStatus, D.VlIzl, K.Nom, K.DeklArt,
           D.Sifra_Kup, D.Sifra_Prim, KUP.ImeKup, O.ImeOrg, ST.DokCena, ST.MagCena, ST.DanDokCena, ST.DanMagCena, ST.Posn, ST.PosnPren,
           D.Identif_Br, D.Opis, D.Datum_Dok
    From Dokr D
    Inner Join MagStavr S On S.DokrID=D.DokrID
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    LEFT OUTER JOIN #TmpStavr TS ON S.DokrID=TS.DokrID AND S.Sifra_Art=TS.Sifra_Art
    LEFT OUTER Join Stavr ST On ST.DokrID=TS.DokrID and ST.Sifra_Art=TS.Sifra_Art AND ST.DokID=TS.DokID
    Left Outer Join KatStatus KS ON KS.Sifra_KatStatus=S.Sifra_KatStatus
    LEFT OUTER JOIN Orged O ON D.Sifra_Prim=O.Sifra_OE
    LEFT OUTER JOIN Komint KUP ON D.Sifra_Kup=KUP.Sifra_Kup
    Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
        order by K.Sifra_art














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_ozn_art]'))
drop procedure [dbo].[sp_podignimagstavr_ozn_art]

Go
CREATE PROCEDURE sp_PodigniMagStavr_Ozn_Art
    @Sifra_Art    varchar(20),
    @SpecOzn    varchar(30)
AS
    Select *
    From MagStavr
    Where Sifra_Art=@Sifra_Art And SpecOzn=@SpecOzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavr_specozn]'))
drop procedure [dbo].[sp_podignimagstavr_specozn]

Go
CREATE PROCEDURE sp_PodigniMagStavr_SpecOzn
    @SpecOzn    varchar(30)
AS
    Select *
    From MagStavr
    Where SpecOzn=@SpecOzn




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimagstavrkatserklas]'))
drop procedure [dbo].[sp_podignimagstavrkatserklas]

Go
CREATE PROCEDURE sp_PodigniMagStavrKatSerKlas

    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Select M.Sifra_Art, A.ImeArt, M.Kolic, M.VlIzl, M.Rbr, M.LotBr, K.KontrSerExt
    From Dokr D
    Inner Join MagStavr M On M.DokrID=D.DokrID
    Inner Join KatSerKlas K On K.Sifra_Art=M.Sifra_Art And K.KontrSer=M.LotBr
    Inner Join Katart A On A.Sifra_Art=M.Sifra_Art
    Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimapartimport]'))
drop procedure [dbo].[sp_podignimapartimport]

Go

CREATE   PROCEDURE sp_PodigniMapArtImport
AS
    SELECT MA.*, K.ImeArt
    FROM MapArtImport MA
    LEFT OUTER JOIN KatArt K ON K.Sifra_Art=MA.Sifra_Art
    order by MA.Sifra_Art_Import






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimasini]'))
drop procedure [dbo].[sp_podignimasini]

Go
CREATE PROCEDURE sp_PodigniMasini
    @Sifra_Mas    varchar(15)
AS
    Select * From Masini
    Where Sifra_Mas=@Sifra_Mas



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimatic]'))
drop procedure [dbo].[sp_podignimatic]

Go





CREATE                PROCEDURE [dbo].[sp_PodigniMatic]
    @Sifra Varchar(20),
    @Tabela Varchar(20),
    @ImeTugaSifra Char(1) = 'N'

AS

    SET @Tabela=UPPER(@Tabela)
    IF @Tabela='KATART'
        If @ImeTugaSifra = 'D'
            SELECT K.*, H.Ime_KHier, P.Ime_Podg, B.Ime Ime_Brand, Dob.ImeKup as Ime_Dobav,
                        D1.Ime_1, D2.Ime_2,D3.Ime_3,D4.Ime_4,D5.Ime_5,D6.Ime_6,D7.Ime_7, DI.ImeDiv,
                        T.ImeTar
            FROM Katart K WITH(NOLOCK)
            Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
            Left Outer Join DrgPodel B On B.Sifra_Drg = K.Sifra_Drg
            Left Outer Join KatHier H On K.Sifra_KHier = H.Sifra_KHier
            Left Outer Join Komint Dob On K.Kto = Dob.Sifra_Kup
                        Left Outer Join Drugo1 D1 On D1.Sifra_1 = K.Drugo1
                        Left Outer Join Drugo2 D2 On D2.Sifra_2 = K.Drugo2
                        Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
                        Left Outer Join Drugo4 D4 On D4.Sifra_4 = K.Drugo4
                        Left Outer Join Drugo5 D5 On D5.Sifra_5 = K.Drugo5
                        Left Outer Join Drugo6 D6 On D6.Sifra_6 = K.Drugo6
                        Left Outer Join Drugo7 D7 On D7.Sifra_7 = K.Drugo7
                        Left Outer Join Divizii DI On DI.Sifra_Div = K.sifra_div
                        Left Outer Join Tarifi T On T.Sifra_Tar = K.sifra_tar
            WHERE K.Sifra_Art=@Sifra
        else
            SELECT * FROM KatArt WITH(NOLOCK) WHERE Sifra_Art=@Sifra
    ELSE IF @Tabela='TARIFI'
        SELECT * FROM Tarifi WITH(NOLOCK)  WHERE Sifra_Tar=@Sifra
    ELSE IF @Tabela='GRUPI'
        SELECT * FROM Grupi WITH(NOLOCK)  WHERE Sifra_Gr=@Sifra
    ELSE IF @Tabela='PODGRUPI'
        If @ImeTugaSifra = 'D'
            SELECT P.*, G.Ime_Gr, PW.Ime_PodgrWeb
            FROM Podgrupi P WITH(NOLOCK)
            Left Outer Join Grupi G On G.Sifra_Gr = P.Sifra_Gr
            Left Outer Join PodgrWeb PW On PW.Sifra_PodgrWeb = P.Sifra_PodgrWeb
            WHERE P.Sifra_Podg=@Sifra
        Else
            SELECT * FROM Podgrupi WITH(NOLOCK)  WHERE Sifra_Podg=@Sifra
    ELSE IF @Tabela='KOMINT'
        If @ImeTugaSifra = 'D'
            SELECT K.*, N.ImeNivo, N.Prioritet, N.Rok_Dosp as Rok_Dosp_Nivo, N.Uces as Uces_Nivo, N.Kasa as Kasa_Nivo, N.Kojacena as KojaCenaNivo,
                TK.ImeTip, VO.Ime_VPJ, D1.Ime_1K, D2.Ime_2K, D3.Ime_3K, D4.Ime_4K, D5.Ime_5K, D6.Ime_6K, D7.Ime_7K,
                               REG.ImeRegion, GR.ImeGrad, GTK.ImeTipKup
            FROM Komint K  WITH(NOLOCK)
            LEFT OUTER JOIN Nivo N ON N.Sifra_Nivo=K.Sifra_Nivo
            LEFT OUTER JOIN TipKomint TK ON TK.Sifra_Tip=K.Sifra_Tip
            LEFT OUTER JOIN VidProdObj VO ON VO.Sifra_VPJ=K.Sifra_VPJ
                        Left Outer Join KDrugo1 D1 On D1.Sifra_1k = K.KDrugo1
                        Left Outer Join KDrugo2 D2 On D2.Sifra_2k = K.KDrugo2
                        Left Outer Join KDrugo3 D3 On D3.Sifra_3k = K.KDrugo3
                        Left Outer Join KDrugo4 D4 On D4.Sifra_4k = K.KDrugo4
                        Left Outer Join KDrugo5 D5 On D5.Sifra_5k = K.KDrugo5
                        Left Outer Join KDrugo6 D6 On D6.Sifra_6k = K.KDrugo6
                        Left Outer Join KDrugo7 D7 On D7.Sifra_7k = K.KDrugo7
                        Left Outer Join Grad GR On GR.Sifra_grad = K.Sifra_Grad
                        Left Outer Join GRegion REG On REG.Sifra_reg = K.Sifra_reg
                        Left Outer Join GTipkup GTK On GTK.TipKup = K.TipKup
            WHERE Sifra_Kup=@Sifra
        Else
            SELECT K.*, N.ImeNivo, N.Prioritet, N.Rok_Dosp as Rok_Dosp_Nivo, N.Uces as Uces_Nivo, N.Kasa as Kasa_Nivo, N.Kojacena as KojaCenaNivo
            FROM Komint K  WITH(NOLOCK)
            LEFT OUTER JOIN Nivo N ON K.Sifra_Nivo=N.Sifra_Nivo
            WHERE Sifra_Kup=@Sifra
    ELSE IF @Tabela='ORGED'
        SELECT * FROM Orged  WITH(NOLOCK) WHERE Sifra_OE=@Sifra
    ELSE IF @Tabela='TIPDOK'
        SELECT * FROM TipDok WITH(NOLOCK)  WHERE Sifra_Dok=@Sifra
    ELSE IF @Tabela='TIPNAL'
        SELECT * FROM TipNal  WITH(NOLOCK) WHERE Sifra_nal=@Sifra
    ELSE IF @Tabela='ANAL'
        SELECT * FROM Anal  WITH(NOLOCK) WHERE Kto_Anal=@Sifra
    ELSE IF @Tabela='KLAS'
        SELECT * FROM Klas WITH(NOLOCK)  WHERE Kto_Klas=@Sifra
    ELSE IF @Tabela='GRANAL'
        SELECT * FROM GrAnal WITH(NOLOCK)  WHERE Kto_GrAn=@Sifra
    ELSE IF @Tabela='SINT'
        SELECT * FROM Sint  WITH(NOLOCK) WHERE Kto_Sint=@Sifra
    ELSE IF @Tabela='MARKETI'
        SELECT * FROM Marketi  WITH(NOLOCK) WHERE Sifra_Mark=@Sifra
    ELSE IF @Tabela='Patnici'
        SELECT * FROM Patnici  WITH(NOLOCK)  WHERE Sifra_Pat=@Sifra
    ELSE IF @Tabela='KOBJEKTI'
        Select K.ImeKup, KO.*
        From KObjekti KO WITH(NOLOCK)
        Inner Join Komint K On KO.Sifra_Kup=K.Sifra_Kup
        Where KO.Sifra_Obj=@Sifra
    ELSE IF @Tabela='GREGION'
        SELECT * FROM GRegion WITH(NOLOCK)  WHERE Sifra_Reg=@Sifra
    ELSE IF @Tabela='GTIPKUP'
        SELECT * FROM GTipKup  WITH(NOLOCK) WHERE TipKup=@Sifra
    ELSE IF @Tabela='DrgPodel'
        SELECT B.*,Z.Ime_Drg1  FROM DrgPodel B WITH(NOLOCK)
                Left Outer Join DrgPodel1 Z On Z.Sifra_Drg1 = B.Sifra_Drg1
                WHERE Sifra_Drg=@Sifra
    ELSE IF @Tabela = 'GRORG'
        SELECT * FROM GrOrg WITH(NOLOCK)  WHERE Sif_GrOrg=@Sifra
        ELSE IF @Tabela = 'GRPAT'
        SELECT * FROM GrPAt WITH(NOLOCK)  WHERE Sif_GrPat=@Sifra
    ELSE IF @Tabela = 'DRGPODEL1'
        SELECT * FROM DrgPodel1 WITH(NOLOCK)  WHERE Sifra_Drg1=@Sifra
    ELSE IF @Tabela = 'DRUGO1'
        SELECT * FROM Drugo1 WITH(NOLOCK)  WHERE Sifra_1=@Sifra
    ELSE IF @Tabela = 'DRUGO2'
        SELECT * FROM Drugo2 WITH(NOLOCK)  WHERE Sifra_2=@Sifra
    ELSE IF @Tabela = 'DRUGO3'
        SELECT * FROM Drugo3 WITH(NOLOCK)  WHERE Sifra_3=@Sifra
    ELSE IF @Tabela = 'DRUGO4'
        SELECT * FROM Drugo4 WITH(NOLOCK)  WHERE Sifra_4=@Sifra
    ELSE IF @Tabela = 'DRUGO5'
        SELECT * FROM Drugo5 WITH(NOLOCK)  WHERE Sifra_5=@Sifra
        ELSE IF @Tabela = 'DRUGO6'
        SELECT * FROM Drugo6 WITH(NOLOCK)  WHERE Sifra_6=@Sifra
    ELSE IF @Tabela = 'DRUGO7'
        SELECT * FROM Drugo7 WITH(NOLOCK)  WHERE Sifra_7=@Sifra
        ELSE IF @Tabela = 'KDRUGO1'
        SELECT * FROM KDrugo1 WITH(NOLOCK)  WHERE Sifra_1k=@Sifra
    ELSE IF @Tabela = 'KDRUGO2'
        SELECT * FROM KDrugo2 WITH(NOLOCK)  WHERE Sifra_2k=@Sifra
    ELSE IF @Tabela = 'KDRUGO3'
        SELECT * FROM KDrugo3 WITH(NOLOCK)  WHERE Sifra_3k=@Sifra
    ELSE IF @Tabela = 'KDRUGO4'
        SELECT * FROM KDrugo4 WITH(NOLOCK)  WHERE Sifra_4k=@Sifra
    ELSE IF @Tabela = 'KDRUGO5'
        SELECT * FROM KDrugo5 WITH(NOLOCK)  WHERE Sifra_5k=@Sifra
        ELSE IF @Tabela = 'KDRUGO6'
        SELECT * FROM KDrugo6 WITH(NOLOCK)  WHERE Sifra_6k=@Sifra
    ELSE IF @Tabela = 'KDRUGO7'
        SELECT * FROM KDrugo7 WITH(NOLOCK)  WHERE Sifra_7k=@Sifra
        ELSE IF @Tabela = 'KRSLISTA'
        SELECT * FROM KrsLista WITH(NOLOCK)  WHERE SImeVal=@Sifra
    ELSE IF @Tabela = 'CBROEVI'
        SELECT * FROM CBroevi WITH(NOLOCK)  WHERE CarBroj=@Sifra
    ELSE IF @Tabela = 'GRAD'
        SELECT * FROM Grad WITH(NOLOCK)  WHERE Sifra_Grad=@Sifra
    ELSE IF @Tabela = 'TIPNARAC'
        SELECT * FROM TipNarac WITH(NOLOCK)  WHERE Sifra_Nar=Cast(@Sifra As Smallint)
    ELSE IF @Tabela = 'NIVO'
        SELECT * FROM Nivo  WITH(NOLOCK) WHERE Sifra_Nivo=@Sifra
    ELSE IF @Tabela = 'BANKSMETKI'
        SELECT * FROM BankSmetki WITH(NOLOCK)  WHERE KojaSmetka=@Sifra
    ELSE IF @Tabela = 'GRNAR'
        SELECT * FROM GrNar WITH(NOLOCK)  WHERE Sifra_GrNar=@Sifra
    ELSE IF @Tabela = 'BANKI'
        SELECT * FROM Banki WITH(NOLOCK)  WHERE Sifra_Ban=@Sifra
    ELSE IF @Tabela = 'FIXTEKST'
        SELECT * FROM FixTekst WITH(NOLOCK)  WHERE Sifra_FixTekst=@Sifra
    ELSE IF @Tabela = 'FIXTEKSTN'
        SELECT * FROM FixTekstN WITH(NOLOCK)  WHERE Sifra_FixTekst=@Sifra
    ELSE IF @Tabela = 'PRODMEST'
        SELECT * FROM ProdMest P WITH(NOLOCK)
        LEFT OUTER JOIN TipProdMesto T on T.Sif_TipProdM =  P.Sif_TipProdM
        WHERE Sifra_Mest=@Sifra
    ELSE IF @Tabela = 'FITABELA'
        SELECT * FROM FiTabela WITH(NOLOCK)  WHERE FiID=@Sifra
    ELSE IF @Tabela = 'TIPPERCENOVNIK'
        SELECT * FROM TipPerCenovnik WITH(NOLOCK)  WHERE Sifra_TipC=@Sifra
    ELSE IF @Tabela = 'BANKSMETKI'
        SELECT * FROM BankSmetki WITH(NOLOCK)  WHERE KojaSmetka=@Sifra
    ELSE IF @Tabela = 'UCESDENOVI'
        SELECT * FROM UCESDENOVI WITH(NOLOCK)  WHERE Denovi=@Sifra
    ELSE IF @Tabela = 'KATGAMB'
        SELECT * FROM KATGAMB WITH(NOLOCK)  WHERE Sifra_GAmb=@Sifra
    ELSE IF @Tabela = 'KATAMB'
        SELECT * FROM KATAMB WITH(NOLOCK)  WHERE Sifra_Amb=@Sifra
    ELSE IF @Tabela = 'LOKACIJA'
        SELECT * FROM LOKACIJA WITH(NOLOCK)  WHERE Sifra_Lok=@Sifra
    ELSE IF @Tabela='AMORGRP'
        SELECT * FROM AMORGRP WITH(NOLOCK)  WHERE Sifra_Amor=@Sifra
    ELSE IF @Tabela='OSNSRED'
        SELECT * FROM OSNSRED WITH(NOLOCK)  WHERE Inv_Broj=@Sifra
    ELSE IF @Tabela='MAKROLOK'
        SELECT * FROM MAKROLOK WITH(NOLOCK)  WHERE Sifra_MakLok=@Sifra
    ELSE IF @Tabela='MIKROLOK'
        SELECT * FROM MIKROLOK WITH(NOLOCK)  WHERE Sifra_MikLok=@Sifra
    ELSE IF @Tabela='RABOTNIK'
        If @ImeTugaSifra = 'D'
            SELECT R.*, O.ImeOrg, OPR.Ime_Opstina as ImeOpstRab, OPZ.Ime_Opstina as ImeOpstZivee, B.ImeBanka, F.ImeFirma
            FROM RABOTNIK R WITH(NOLOCK)
            Left Outer Join Orged O On O.Sifra_Oe=R.Sifra_Oe
            Left Outer Join Opstini OPR On OPR.Sif_Opstina = R.Sif_Opst_Rab
            Left Outer Join Opstini OPZ On OPZ.Sif_Opstina = R.Sif_Opst_Zivee
            Left Outer Join Banki B On B.Sifra_Ban = R.Sif_Banka
            Left Outer Join Firmi F On F.Sifra_Firma = R.Sifra_Firma
             WHERE Sifra_Rab=@Sifra
        Else
            SELECT * FROM RABOTNIK WITH(NOLOCK)  WHERE Sifra_Rab=@Sifra
    ELSE IF @Tabela='DOZNAKI'
        SELECT * FROM Doznaki WITH(NOLOCK)  WHERE Broj_Doznaka=@Sifra
    ELSE IF @Tabela='PREVOZNIK'
        SELECT * FROM Prevoznik WITH(NOLOCK)  WHERE Sifra_Prev=@Sifra
    ELSE IF @Tabela='OPSTINI'
        If @ImeTugaSifra = 'D'
            SELECT O.*,
            PD.Ime_Primatel as ImePrim_PD,
            PIO.Ime_Primatel as ImePrim_PIO,
            Zdr.Ime_Primatel as ImePrim_Zdr,
            Vrab.Ime_Primatel as ImePrim_Vrab,
            DZ.Ime_Primatel as ImePrim_DopolZdr,
            VS.Ime_Primatel as ImePrim_Vodostop,
            KRM.Ime_Primatel as ImePrim_KomoraRM,
            KDR.Ime_Primatel as ImePrim_KomoraDr
            FROM Opstini O WITH(NOLOCK)
            Left Outer Join Primateli PD On PD.Sif_Primatel=O.Sif_Prim_PD
            Left Outer Join Primateli PIO On PIO.Sif_Primatel=O.Sif_Prim_PIO
            Left Outer Join Primateli Zdr On Zdr.Sif_Primatel=O.Sif_Prim_Zdr
            Left Outer Join Primateli Vrab On Vrab.Sif_Primatel=O.Sif_Prim_Vrab
            Left Outer Join Primateli DZ On DZ.Sif_Primatel=O.Sif_Prim_DopolZdr
            Left Outer Join Primateli VS On VS.Sif_Primatel=O.Sif_Prim_Vodostop
            Left Outer Join Primateli KRM On KRM.Sif_Primatel=O.Sif_Prim_KomoraRM
            Left Outer Join Primateli KDR On KDR.Sif_Primatel=O.Sif_Prim_KomoraDr
            WHERE O.Sif_Opstina=@Sifra
        Else
            SELECT * FROM Opstini WITH(NOLOCK)  WHERE Sif_Opstina=@Sifra
    ELSE IF @Tabela='PROGRAMI'
        SELECT * FROM Programi WITH(NOLOCK)  WHERE Sif_Progr=@Sifra
    ELSE IF @Tabela='PRIMATELI'
        If @ImeTugaSifra = 'D'
            SELECT P.*, O.Ime_Opstina
            FROM Primateli P WITH(NOLOCK)
            Left Outer Join Opstini O On O.Sif_Opstina=P.Sif_Opstina
             WHERE Sif_Primatel=@Sifra
        Else
            SELECT * FROM Primateli WITH(NOLOCK)  WHERE Sif_Primatel=@Sifra
    ELSE IF @Tabela='ZADRSKI'
        SELECT * FROM Zadrski WITH(NOLOCK)  WHERE Sif_Zadr=@Sifra
    ELSE IF @Tabela='PODMES'
        SELECT * FROM PodMes WITH(NOLOCK)  WHERE GodMes=@Sifra
    ELSE IF @Tabela='PODGOD'
        SELECT * FROM PodGod WITH(NOLOCK)  WHERE Godina=@Sifra
    ELSE IF @Tabela = 'ZARAB'
        SELECT * FROM Zarab WITH(NOLOCK)  WHERE Sif_Zarab=@Sifra
    ELSE IF @Tabela = 'INTERNIKART'
        SELECT * FROM InterniKart WITH(NOLOCK)  WHERE Interna_Kart=@Sifra
        ELSE IF @Tabela = 'VIDVOZILA'
        SELECT * FROM VidVozila WITH(NOLOCK)  WHERE Sifra_Vid_Voz=@Sifra
    ELSE IF @Tabela = 'NACPLAK'
        If @ImeTugaSifra = 'D'
            SELECT N.*, I.Ime_Int_Kart, O.ImeOrg
            FROM NacPlak N WITH(NOLOCK)
            Left Outer Join InterniKart I On I.Interna_Kart=N.Interna_Kart
            Left Outer Join Orged O On O.Sifra_Oe=N.Sifra_Oe
            WHERE N.Sifra_Nac=@Sifra
        Else
            SELECT * FROM NacPlak WITH(NOLOCK)  WHERE Sifra_Nac=@Sifra
    ELSE IF @Tabela = 'OPERATORI'
        If @ImeTugaSifra = 'D'
            SELECT O.*, G.ImeGrOper
            FROM Operatori O WITH(NOLOCK)
            Left Outer Join GrupiOper G On O.Sifra_GrOper=G.Sifra_GrOper
            WHERE Sifra_Oper=@Sifra
        Else
            SELECT * FROM Operatori WITH(NOLOCK)  WHERE Sifra_Oper=@Sifra
    ELSE IF @Tabela = 'FIRMI'
        If @ImeTugaSifra = 'D'
            SELECT F.*, B.ImeBanka
            FROM Firmi F WITH(NOLOCK)
            Left Outer Join Banki B On B.Sifra_Ban=F.Sifra_Ban
            WHERE F.Sifra_Firma=@Sifra
        Else
            SELECT * FROM Firmi WITH(NOLOCK) WHERE Sifra_Firma=@Sifra
    ELSE IF @Tabela = 'NACINPRESMZ'
        SELECT * FROM NacinPresmZ WITH(NOLOCK) WHERE Sif_NacPresZ=@Sifra
    ELSE IF @Tabela = 'GRPIZBOR'
        SELECT * FROM GrpIzbor WITH(NOLOCK) WHERE Sifra_GrpIzb=@Sifra
    ELSE IF @Tabela = 'GRPIZBORNIZA'
        SELECT G.Sifra_GrpIzb, GI.Ime_GrpIzb, G.Sifra_Nar_Izb, GN.Ime_GrpIzb Ime_NarIzbor, G.Sifra_Nar_Art, K.ImeArt ImeNarArt, G.Reden_Izb, G.Boja_Dugme, G.Boja_Tekst, G.Boja_Dugme2, G.Izgl_dugme
        FROM GrpIzborNiza G WITH(NOLOCK)
        Left Outer Join GrpIzbor GI On GI.Sifra_GrpIzb=G.Sifra_GrpIzb
        Left Outer Join GrpIzbor GN On GN.Sifra_GrpIzb=G.Sifra_Nar_Izb
        Left Outer Join Katart K On K.Sifra_Art=G.Sifra_Nar_Art
        WHERE G.Sifra_GrpIzb=@Sifra
         order by G.Reden_Izb
    ELSE IF @Tabela = 'DIVIZII'
        SELECT * FROM Divizii WITH(NOLOCK) WHERE Sifra_Div=@Sifra
    ELSE IF @Tabela = 'NIVOCENIKARTKOR'
        SELECT * FROM NivoCeniKartKor WITH(NOLOCK) WHERE Sifra_CeniKartKor=@Sifra
    ELSE IF @Tabela = 'TIPKARTKOR'
        SELECT * FROM TipKartKor WITH(NOLOCK) WHERE Sifra_TipKartKor=@Sifra
    ELSE IF @Tabela = 'KARTKOR'
        Select K.*, Kom.ImeKup, Tip.ImeKartKor from  KartKor K
        left outer join Komint Kom on Kom.Sifra_Kup = K.Sifra_Kup
        left outer join TipKartKor Tip on Tip.Sifra_TipKartKor = K.Sifra_TipKartKor
        Where Sifra_Kor = @Sifra
        ----- DO Okt 23, 2007  DK  SELECT * FROM KartKor WITH(NOLOCK) WHERE Sifra_Kor=@Sifra
    ELSE IF @Tabela = 'GRUPIOPER'
        SELECT * FROM GrupiOper WITH(NOLOCK) WHERE Sifra_GrOper=@Sifra
    ELSE IF @Tabela = 'RELACISPOR'
        SELECT * FROM RelacIspor WITH(NOLOCK) WHERE Sifra_RelIspor=@Sifra
    ELSE IF @Tabela = 'VIDPRODOBJ'
        SELECT * FROM VidProdObj WITH(NOLOCK) WHERE Sifra_VPJ=@Sifra
    ELSE IF @Tabela = 'TIPKOMINT'
        SELECT * FROM TipKomint WITH(NOLOCK) WHERE Sifra_Tip=@Sifra
    ELSE IF @Tabela = 'AKCIIPROMO'
        SELECT A.*, K.Ime_1K FROM AkciiPromo A WITH(NOLOCK) LEFT OUTER JOIN KDrugo1 K ON A.Sifra_Podelba=K.Sifra_1K  WHERE A.Ozn_Akcija=@Sifra
        ELSE IF @Tabela = 'AKCIIPROMOSTA'
        --SELECT * FROM AkciiPromoSta WITH(NOLOCK) WHERE Ozn_Akcija=@Sifra
    SELECT S.Ozn_Akcija, S.Sifra_Art_Osnoven, O.ImeArt ImeArtOsn, S.Sifra_Art_Paket, P.ImeArt ImeArtPak, S.Kolicina, S.Cena, S.Rabat
        FROM AkciiPromoSta S WITH(NOLOCK)
        Left Outer Join KatArt O On O.Sifra_Art=S.Sifra_Art_Osnoven
        Left Outer Join KatArt P On P.Sifra_Art=S.Sifra_Art_Paket
             WHERE S.Ozn_Akcija=@Sifra
                order by S.Sifra_art_Paket
    ELSE IF @Tabela = 'KONFSLAGANJE'
        SELECT Top 1 * FROM KonfSlaganje WITH(NOLOCK) WHERE Sifra_Slag=@Sifra
    ELSE IF @Tabela='GRUPAWEB'
        SELECT * FROM GrupaWeb WITH(NOLOCK)  WHERE Sifra_GrWeb=@Sifra
    ELSE IF @Tabela='PODGRWEB'
        If @ImeTugaSifra = 'D'
            SELECT P.*, G.Ime_GrWeb
            FROM PodgrWeb P WITH(NOLOCK)
            Left Outer Join GrupaWeb G On G.Sifra_GrWeb = P.Sifra_GrWeb
            WHERE P.Sifra_PodgrWeb=@Sifra
        Else
            SELECT * FROM PodgrWeb WITH(NOLOCK)  WHERE Sifra_PodgrWeb=@Sifra
    ELSE IF @Tabela='KATSTATUS'
        SELECT * FROM KatStatus WITH(NOLOCK)  WHERE Sifra_KatStatus=@Sifra
     ELSE IF @Tabela = 'TIPKATPAKUV'
        SELECT * FROM TipKatPakuv  WHERE Sifra_KatPak=@Sifra
     ELSE IF @Tabela = 'VIDDOG'
        SELECT * FROM VidDog  WHERE Sifra_VidDog=@Sifra
     ELSE IF @Tabela = 'VERNTRAENJE'
        SELECT * FROM VernTraenje  WHERE Sifra_Vernost=@Sifra
     ELSE IF @Tabela = 'TARMODEL'
        SELECT * FROM TarModel  WHERE Sifra_TarModel=@Sifra
        ELSE IF @Tabela = 'CRRKodovi'
        SELECT * FROM CRRKodovi  WHERE Sifra_Crr=@Sifra
    ELSE IF @Tabela = 'KARAKTERIST'
        SELECT * FROM Karakterist WHERE Sifra_Karakt = @Sifra
        ELSE IF @Tabela = 'FORMULADEF'
        SELECT * FROM FormulaDef WITH(NOLOCK) WHERE Sifra_Formula = @Sifra
        ELSE IF @Tabela = 'KREDITSTATUS'
        SELECT * FROM KreditStatus WITH(NOLOCK) WHERE Status_Kredit = @Sifra
        ELSE IF @Tabela = 'KREDITTIPOPOMENA'
        SELECT * FROM KreditTipOPomena WITH(NOLOCK) WHERE Tip_Opomena = @Sifra
        ELSE IF @Tabela = 'OSNGRPODEL'
        SELECT * FROM OsnGrPodel WITH(NOLOCK) WHERE Sifra_OsnGrPodel = @Sifra
    ELSE IF @Tabela = 'TROSOKMESTO'
        SELECT * FROM TROSOKMESTO WITH(NOLOCK) WHERE Sifra_TrosM = @Sifra
    ELSE IF @Tabela = 'TROSOKVID'
        SELECT * FROM TROSOKVID WITH(NOLOCK) WHERE Sifra_TrosV = @Sifra
    ELSE IF @Tabela = 'TROSOK4TIP'
        SELECT * FROM TROSOK4TIP WITH(NOLOCK) WHERE Sifra_4Tros = @Sifra
    ELSE IF @Tabela = 'GRKUP'
        SELECT * FROM GrKUP WITH(NOLOCK)  WHERE Sif_GrKUP=@Sifra
    ELSE IF @Tabela = 'PROEKT'
        SELECT P.*, K.ImeKup, K2.ImeKup ImeKup2
        FROM Proekt P WITH(NOLOCK)
        left outer join Komint K
            on K.Sifra_Kup = P.Sifra_Kup
        left outer join Komint K2
            on K2.Sifra_Kup = P.Sifra_Kup2
        WHERE Broj_Proekt=@Sifra
    ELSE IF @Tabela = 'TIPPRODMESTO'
        SELECT * FROM TipProdMesto WITH(NOLOCK) WHERE Sif_TipProdM = @Sifra
    ELSE IF @Tabela = 'GRART'
        SELECT * FROM GrART WITH(NOLOCK)  WHERE Sif_GrArt=@Sifra
        ELSE IF @Tabela = 'BOJA'
        SELECT * FROM Boja WITH(NOLOCK)  WHERE Sifra_Boja=@Sifra
        ELSE IF @Tabela = 'VELICINA'
        SELECT * FROM Velicina WITH(NOLOCK)  WHERE Sifra_Velic=@Sifra
     ELSE IF @Tabela='RABKALENDAR'
        SELECT * FROM RabKalendar with (NOLOCK) where Datum=@Sifra
    ELSE IF @Tabela='SPREMAC'
        SELECT * FROM Spremac with (NOLOCK) where Sif_Spremac=@Sifra
    ELSE IF @Tabela='FAZI'
        SELECT * FROM Fazi with (NOLOCK) where Sifra_Faza=@Sifra
    ELSE IF @Tabela='KATPODSIFRA'
        SELECT K.*, B.ImeBoja, V.ImeVelic
        FROM KatPodSifra K with (NOLOCK) LEFT OUTER JOIN
            Boja B ON K.Sifra_Boja = B.Sifra_Boja LEFT OUTER JOIN
            Velicina V ON V.Sifra_Velic = K.Sifra_Velic
        where Sifra_Art=@Sifra
    ELSE IF @Tabela='TIPAKTIVNOSTI'
        SELECT * FROM TipAktivnosti with (NOLOCK) where Tip_Akt=@Sifra
    ELSE IF @Tabela='DRZAVA'
        SELECT * FROM Drzava with (NOLOCK) where Str_Drzava=@Sifra

        IF @@ROWCOUNT = 0
        RETURN 77000
    ELSE
        RETURN 0









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimatic_mk]'))
drop procedure [dbo].[sp_podignimatic_mk]

Go


CREATE PROCEDURE sp_PodigniMatic_MK
    @Sifra nVarchar(20),
    @Tabela Varchar(20),
    @ImeTugaSifra Char(1) = 'N'
AS
    SET @Tabela=UPPER(@Tabela)
    IF @Tabela='KATHIER'
        If @ImeTugaSifra = 'D'
            SELECT KH.*, G.Ime_KHier as Ime_KHier_Hier
            FROM KatHier KH WITH(NOLOCK)
            Left Outer Join KatHier G On G.Sifra_KHier = KH.Sifra_KHier_Hier
            WHERE KH.Sifra_KHier=@Sifra
        Else
                SELECT * FROM KatHier WITH(NOLOCK) WHERE Sifra_KHier=@Sifra
    IF @@ROWCOUNT = 0
        RETURN 77000
    ELSE
        RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimattipdok]'))
drop procedure [dbo].[sp_podignimattipdok]

Go



CREATE      PROCEDURE sp_PodigniMatTipDok
AS
    SELECT Sifra_Dok, ImeDok, Sifra_Za, Dev, Vl_Izl, AnalKupDob, TipDok FROM TipDok WHERE DaliMater = 'D'
           order by sifra_dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimattipdok_neg]'))
drop procedure [dbo].[sp_podignimattipdok_neg]

Go


create  PROCEDURE sp_PodigniMatTipDok_Neg
AS
    SELECT Sifra_Dok, ImeDok, Sifra_Za, Dev, Vl_Izl, AnalKupDob, TipDok
    FROM TipDok
    WHERE DaliMater = 'D' and plus_minus = '-'
        order by sifra_dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimaxbrdok]'))
drop procedure [dbo].[sp_podignimaxbrdok]

Go

create PROCEDURE [dbo].[sp_PodigniMaxBrDok]
   @Sifra_OE Smallint,
   @Sifra_Dok Smallint,
    @Broj_Dok int output
AS
   SELECT @Broj_Dok = MAX(Broj_Dok)  FROM BrDok
   WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok

      RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimaxspecanfin]'))
drop procedure [dbo].[sp_podignimaxspecanfin]

Go

CREATE    PROCEDURE sp_PodigniMaxSpecAnFin
    @NovID int=0 output
AS
    SELECT @NovID = MAX(Broj_SpecFin) + 1 FROM SpecAnFin
    IF @NovID IS Null set @NovID=1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimckatpoz]'))
drop procedure [dbo].[sp_podignimckatpoz]

Go

create          PROCEDURE [dbo].[sp_PodigniMCKatPoz]
    @Sif_MCPozicija int
AS
    SELECT    *
    FROM    MCKatPozicija
    WHERE    Sif_MCPozicija = @Sif_MCPozicija






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimclista]'))
drop procedure [dbo].[sp_podignimclista]

Go
create  PROCEDURE [dbo].[sp_PodigniMCLista]
    @Br_MCLista    smallint,
    @Sif_MCPozicija    smallint
AS

    SELECT    *
    FROM    MCLista
    WHERE    Br_MCLista = @Br_MCLista AND Sif_MCPozicija = @Sif_MCPozicija
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimcstavki]'))
drop procedure [dbo].[sp_podignimcstavki]

Go


CREATE    PROCEDURE [dbo].[sp_PodigniMCStavki]
    @Sifra_Pat smallint,
    @cDatum_MC char(6),
    @Br_MCLista    smallint,
    @Sif_MCPozicija    smallint,
    @Sifra_Kup char(6),
    @Sifra_Obj smallint
AS

declare @SSQL as varchar(300)

set @SSQL = ' SELECT    * FROM    MCStavki
    WHERE 1 = 1 '

    IF @Sifra_Pat is not null
        SET @SSQL = @SSQL + ' AND Sifra_Pat = ' +cast(@Sifra_Pat as varchar(5))+ ' '
    IF @cDAtum_MC is not null
        SET @SSQL = @SSQL + ' AND cDatum_MC = ' +cast(@cDatum_MC as varchar(6))+ ' '
    IF @Br_MCLista is not null
        SET @SSQL = @SSQL + ' AND Br_MCLista = ' +cast(@Br_MCLista as varchar(5))+ ' '
    IF @Sif_MCPozicija is not null
        SET @SSQL = @SSQL + ' AND Sif_MCPozicija = ' +cast(@Sif_MCPozicija as varchar(5))+ ' '
    IF @Sifra_Kup is not null
        SET @SSQL = @SSQL + ' AND Sifra_Kup = ' +cast(@Sifra_Kup as char(6))+ ' '
    IF @Sifra_Obj is not null
        SET @SSQL = @SSQL + ' AND Sifra_Obj = ' +cast(@Sifra_Obj as varchar(6))+ ' '
    else if @Sifra_Obj is null
        set @SSQL = @SSQL + ' AND SIFRA_Obj is null '


    exec (@SSQL)
    print(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimerenjazaart]'))
drop procedure [dbo].[sp_podignimerenjazaart]

Go



CREATE    PROCEDURE sp_PodigniMerenjaZaArt
    @Sifra_Kup    char(6),
    @Datum        smalldatetime,
    @Sifra_Art    varchar(20)
AS
    SELECT *
    FROM MerenjaZaArt
    WHERE Sifra_Kup=@Sifra_Kup and Datum=@Datum and Sifra_Art=@Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimmozalpoorged]'))
drop procedure [dbo].[sp_podignimmozalpoorged]

Go


CREATE      PROCEDURE sp_PodigniMMOZalPoOrgEd
    @Sifra_Oe    smallint,
        @ImeArtDel    nvarchar(20) = Null,
        @SifArtDel    varchar(20) = Null,
        @SifArtTocen    varchar(20) = Null

AS

        Declare @SSQL as varchar(8000)

    Set @SSQL = '
            Select K.Sifra_Art, K.ImeArt, O.Dozvoleno, O.MinZal, O.MaxZal, O.OptZal
        From KatArt K
            Left Outer Join OptZalPoOe O
            ON K.Sifra_Art=O.Sifra_Art and O.Sifra_Oe = ' +  Cast(@Sifra_Oe as varchar(6))

    Set @SSQL = @SSQL + ' Where 1=1 '
    If @ImeArtDel IS NOT NULL
           Set @SSQL = @SSQL + ' and K.ImeArt Like ''' + @ImeArtDel + '%'' '
        If @SifArtDel IS NOT NULL
           Set @SSQL = @SSQL + ' and K.Sifra_Art Like ''' + @SifArtDel + '%'' '
        If @SifArtTocen IS NOT NULL
           Set @SSQL = @SSQL + ' and K.Sifra_Art = ''' + @SifArtTocen + ''' '

        Set @SSQL = @SSQL + ' order by K.ImeArt '

--       print (@SSQL)

       exec (@SSQL)
       Return @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignimozevlez]'))
drop procedure [dbo].[sp_podignimozevlez]

Go

CREATE PROCEDURE sp_PodigniMozeVlez
    @Sifra_Art varchar(20),
    @Sifra_OE  smallint,
    @Zabr_Fors char(1)  OUTPUT,
    @Zabr_Top  char(1)  OUTPUT
AS
    Set @Zabr_Fors = 'N'
    Set @Zabr_Top  = 'N'
    SELECT @Zabr_Fors=KojaZabr_F, @Zabr_Top=KojaZabr_T
    FROM MozeVlez
    WHERE Sifra_Art = @Sifra_Art AND Sifra_OE = @Sifra_OE
/*   IF @@ERROR=0 AND @@ROWCOUNT=0
      RETURN 77000
   ELSE
      RETURN @@ERROR */




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninadvkor]'))
drop procedure [dbo].[sp_podigninadvkor]

Go
CREATE  PROCEDURE [dbo].[sp_PodigniNadvKor]
    @KorIme    varchar(15),
    @Lozinka          varchar(100)
 AS
    --Select *,KorIme, Sifra_Kup, Lozinka, Aktiven, Aktiven_Od, Aktiven_Do, Jazik
    Declare @Datum smalldatetime
    Set @Datum = GetDate()
    Select *
    From NadvKor N
    left outer join komint K on K.Sifra_Kup = N.Sifra_Kup
    Where KorIme=@KorIme and Lozinka = cast(@Lozinka as varbinary(100)) and @Datum > N. Aktiven_Od and   @Datum < N.Aktiven_Do


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninadvkorkomint]'))
drop procedure [dbo].[sp_podigninadvkorkomint]

Go
CREATE  procedure [dbo].[sp_PodigniNadvKorKomint]
 @SifraKup char(6),
 @LokAdm char(1)=null,
 @Podred varchar(50) = Null
AS

Declare @SSQL as varchar(2000)

Set @SSQL = ' Select * From NadvKor N
        left outer join komint K on K.Sifra_Kup = N.Sifra_Kup
        Where 1=1 '
If @LokAdm = 'L'
    Set @SSQL = @SSQL + ' And N.Sifra_Kup = ' + @SifraKup + ' '
If @Podred Is Not Null
    Set @SSQL = @SSQL + ' Order By N.' + @Podred + ' '

If @LokAdm In ('L', 'A')
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninalozi]'))
drop procedure [dbo].[sp_podigninalozi]

Go
CREATE   PROCEDURE sp_PodigniNalozi
   @Sifra_Nal Smallint,
   @Broj_Nal Int
AS
   SELECT N.*, T.PredlDatNaDok  FROM Nalozi N INNER JOIN TipNal T ON N.Sifra_Nal = T.Sifra_Nal
   WHERE N.Sifra_Nal=@Sifra_Nal AND N.Broj_Nal=@Broj_Nal
   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninaplata]'))
drop procedure [dbo].[sp_podigninaplata]

Go
CREATE PROCEDURE sp_PodigniNaplata
    @Sifra_OE    smallint = Null,
    @Sifra_Dok    smallint = Null,
    @Broj_Dok    int = Null
AS
    Select Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Kup, Pobaruva, Datum_Dok
    From Naplata
    Where Sifra_OE=@Sifra_Oe and Sifra_Dok=@Sifra_Dok and Broj_Dok=@Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninaracki]'))
drop procedure [dbo].[sp_podigninaracki]

Go

CREATE                    PROCEDURE sp_PodigniNaracki
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int
AS
    SELECT N.NarID, N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar, N.Datum_Vnes, N.Datum_Izm, N.Uces, N.Rok, N.Sifra_Pat, N.Sifra_Oper,
        N.Sifra_OpIz, N.Toc200, N.KojaVal, N.Kurs, N.DanDokCena, N.DanmagCena, N.CenaIznos, N.TekstPosle, N.Realiziran, N.Realiz_Na, N.DokrID, N.Kasa, N.Sifra_Nivo, N.Prenesen,
        N.Spremil, N.SiteTros, N.Prevoz, N.Osiguruv, N.Carina, N.Spedicija, N.Smena, N.KojaSmetka, N.PlakOpis, N.Dat_Ocek, N.Dat_Pristig, N.Dat_Utov, N.Vet_Broj, N.Dat_Vet_Vazn,
        N.Vozilo_Kont, N.Stat_Nar, N.Stat_Dok_Nar, K.ImeKup, O.ImeOrg, K.Limit_Dolzi, KO.ImeObj, N.Broj_Proekt, N.TekstPred,
        N.Sifra_Prev, N.Sifra_Za_Prim, N.Dat_Isporaka, N.Sifra_Za_Org, N.Sifra_Za_Dok, N.Predmet
    FROM Naracki N Left Outer Join Komint K ON N.Sifra_Kup=K.Sifra_Kup
    INNER JOIN OrgEd O ON N.Sifra_Oe=O.Sifra_OE
    LEFT OUTER JOIN KObjekti KO on KO.Sifra_Kup=N.Sifra_Kup and KO.Sifra_Obj=N.Sifra_Obj
    WHERE N.Sifra_OE=@Sifra_OE AND N.Sifra_Nar=@Sifra_Nar AND N.Broj_Nar=@Broj_Nar


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninarackiskrsoid]'))
drop procedure [dbo].[sp_podigninarackiskrsoid]

Go



CREATE           PROCEDURE sp_PodigniNarackiSkrSoID
    @NarID Int
AS
    SELECT Sifra_OE, Sifra_Nar, Broj_Nar FROM Naracki WHERE NarID=@NarID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninarackiwms]'))
drop procedure [dbo].[sp_podigninarackiwms]

Go






CREATE         PROCEDURE sp_PodigniNarackiWMS
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int
AS
    SELECT N.NarID, N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar, N.Datum_Vnes, N.Datum_Izm, N.Uces, N.Rok, N.Sifra_Pat, N.Sifra_Oper,
        N.Sifra_OpIz, N.Toc200, N.KojaVal, N.Kurs, N.DanDokCena, N.DanmagCena, N.CenaIznos, N.TekstPosle, N.Realiziran, N.Realiz_Na, N.DokrID, N.Kasa, N.Sifra_Nivo, N.Prenesen,
        N.Spremil, N.SiteTros, N.Prevoz, N.Osiguruv, N.Carina, N.Spedicija, N.Smena, N.KojaSmetka, N.PlakOpis, N.Dat_Ocek, N.Dat_Pristig, N.Dat_Utov, N.Vet_Broj, N.Dat_Vet_Vazn,
        N.Vozilo_Kont, N.Stat_Nar, N.Stat_Dok_Nar, K.ImeKup, O.ImeOrg, K.Limit_Dolzi, KO.ImeObj, N.Broj_Proekt, N.TekstPred,
        N.Sifra_Prev, N.Sifra_Za_Prim, N.Dat_Isporaka, NOR.Sifra_OE Sifra_OE_Orig, NOR.Sifra_Nar Sifra_Nar_Orig, NOR.Broj_Nar Broj_Nar_Orig, NOR.NarID NarID_Orig , NP.DaliMat
    FROM Naracki N
    Left Outer Join Komint K ON N.Sifra_Kup=K.Sifra_Kup
       LEFT OUTER JOIN KObjekti KO on KO.Sifra_Kup=N.Sifra_Kup and KO.Sifra_Obj=N.Sifra_Obj
    INNER JOIN OrgEd O ON N.Sifra_Oe=O.Sifra_OE
    LEFT OUTER JOIN NarPodNar NP ON N.NarID=NP.NarID_PodNar
    LEFT OUTER JOIN Naracki NOR ON NP.NarID_Orig=NOR.NarID
    WHERE N.Sifra_OE=@Sifra_OE AND N.Sifra_Nar=@Sifra_Nar AND N.Broj_Nar=@Broj_Nar
          AND N.PodelNar IS NULL














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninarackizakup]'))
drop procedure [dbo].[sp_podigninarackizakup]

Go






CREATE                 PROCEDURE sp_PodigniNarackiZaKup
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint,
    @Sifra_Nar    varchar(20)=NULL
AS
Declare @SSQL varchar(2000)
CREATE TABLE #TmpTN
(Sifra_Nar    smallint)
IF @Sifra_Nar IS NOT NULL
Begin
    SET @SSQL='INSERT INTO #TmpTN SELECT Sifra_Nar FROM TipNarac WHERE Sifra_Nar IN ('+@Sifra_Nar+')'
    EXEC (@SSQL)
End
ELSE
    INSERT INTO #TmpTN SELECT Sifra_Nar FROM TipNarac

CREATE TABLE #TmpN
(Sifra_Oe    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Datum_Nar    smalldatetime,
Sifra_Pat    smallint,
Odobreno        char(1))

CREATE TABLE #TmpO
(Sifra_Oe    smallint,
Sifra_Nar    smallint,
Broj_Nar    int,
Odobreno        char(1))

IF @Sifra_Obj IS NULL
    INSERT INTO #TmpN (Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Pat, Odobreno)
    SELECT TOP 20 N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Pat,0
    FROM Naracki N INNER JOIN TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
    INNER JOIN #TmpTN T ON N.Sifra_Nar=T.Sifra_Nar
    WHERE N.Sifra_Kup=@Sifra_Kup AND TN.VlIzl='I' ORDER BY N.NarID DESC
ELSE
    INSERT INTO #TmpN (Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Sifra_Pat,Odobreno)
    SELECT TOP 20 N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Pat,0
    FROM Naracki N INNER JOIN TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
    INNER JOIN #TmpTN T ON N.Sifra_Nar=T.Sifra_Nar
    WHERE N.Sifra_Kup=@Sifra_Kup AND N.Sifra_Obj=@Sifra_Obj AND TN.VlIzl='I' ORDER BY N.NarID DESC

INSERT INTO #TmpO SELECT N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, Count(DISTINCT S.Lokacija) FROM #TmpN N
INNER JOIN StaNarac S ON S.Sifra_OE=N.Sifra_OE AND S.Sifra_Nar=N.Sifra_Nar AND S.Broj_Nar=N.Broj_Nar AND (Lokacija IS NOT NULL AND Lokacija<>'')
GROUP BY N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar
UPDATE #TmpO SET Odobreno=0 WHERE Odobreno IS NULL

UPDATE #TmpN SET Odobreno=S.Odobreno FROM #TmpO S WHERE S.Sifra_OE=#TmpN.Sifra_OE AND S.Sifra_Nar=#TmpN.Sifra_Nar AND S.Broj_Nar=#TmpN.Broj_Nar

SELECT * FROM #TmpN








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninaracsite]'))
drop procedure [dbo].[sp_podigninaracsite]

Go



CREATE                   PROCEDURE [dbo].[sp_PodigniNaracSite]
   @Sifra_OE smallint,
   @Sifra_Nar smallint,
   @Broj_Nar int,
   @Usluzna char(1) = Null OUTPUT
AS
    Declare @SSQL VArchar(4000)
    Declare @MestoIsporaka varchar(20)
    Select @MestoIsporaka = MestoIsporaka From KonfDat

    Set @SSQL = 'SELECT Nar.*,
        O.[ImeOrg], TN.[ImeNar], TN.[VlIzl], TN.[Naslov], K.[ImeKup], K.[Adresa], K.[Adresa2], K.[SMesto], K.[Posta], K.[Zemja], K.[Telefon], OB.[ImeObj],
        OB.[Adresa] As OAdresa, OB.[Adresa2] As OAdresa2, OB.[SMesto] As OSMesto, OB.[Posta] As OPosta, OB.[Zemja] As OZemja, OB.[Telefon] As OTelefon,
        TN.Obrazec, P.ImePat, (Case When OB.Sifra_Reg Is not Null Then OB.Sifra_Reg Else K.Sifra_Reg End) Sifra_Reg, R.ImeRegion, TN.Oznaka_Obrazec,
        PP.Sifra_Kup2, K2.ImeKup ImeKup2, K2.Adresa AdresaKup2, K2.Adresa2 Adresa2Kup2, K2.SMesto SMestoKup2, K2.Posta PostaKup2, K2.Zemja ZemjaKup2, K2.Telefon TelefonKup2,
        K.Danocen, K.MatBr, K.Kontakt, Nar.Dat_Isporaka, '
    If @MestoIsporaka Is Not Null And @MestoIsporaka <> ''
        Set @SSQL = @SSQL + ' ''' + @MestoIsporaka + ''' as MestoIsporaka '
    Else
        Set @SSQL = @SSQL + ' O.MestoIsporaka '
    Set @SSQL = @SSQL + 'FROM [Naracki] Nar
    INNER JOIN Orged O ON Nar.[Sifra_OE]=O.[Sifra_OE]
    INNER JOIN TipNarac TN ON Nar.[Sifra_Nar]=TN.[Sifra_Nar]
    LEFT OUTER JOIN Komint K ON Nar.[Sifra_Kup]=K.[Sifra_Kup]
    LEFT OUTER JOIN KObjekti OB ON Nar.Sifra_Kup=OB.Sifra_Kup And Nar.Sifra_Obj=OB.Sifra_Obj
    LEFT OUTER JOIN Patnici P On P.Sifra_Pat=Nar.Sifra_Pat
    LEFT OUTER JOIN Proekt PP On PP.Broj_Proekt=Nar.Broj_Proekt
    LEFT OUTER JOIN Komint K2 On K2.Sifra_Kup=PP.Sifra_Kup2
    LEFT OUTER JOIN GRegion R On R.Sifra_Reg = (Case When OB.Sifra_Reg Is not Null Then OB.Sifra_Reg Else K.Sifra_Reg End)
    WHERE Nar.[Sifra_OE]=' + Cast(@Sifra_OE As Varchar(10)) +
        ' AND Nar.[Sifra_Nar]=' + Cast(@Sifra_Nar As Varchar(10)) +
        ' AND Nar.[Broj_Nar]=' + Cast(@Broj_Nar As varchar(10)) + ' '

   print(@SSQL)
   Exec(@SSQL)
------------------------  Proverka dali site artikli vo narackata se usluzni  -------------------------
    Declare @SiteStavki as int
    Declare @UslStavki as int
    Select @SiteStavki=count(SN.StaNarID)
    From Naracki N
    Inner Join StaNarac SN On SN.NarID=N.NarID
    Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
    WHERE N.Sifra_OE=@Sifra_OE AND N.Sifra_Nar=@Sifra_Nar AND N.Broj_Nar=@Broj_Nar
    Select @UslStavki=count(SN.StaNarID)
    From Naracki N
    Inner Join StaNarac SN On SN.NarID=N.NarID
    Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art
    WHERE N.Sifra_OE=@Sifra_OE AND N.Sifra_Nar=@Sifra_Nar AND N.Broj_Nar=@Broj_Nar
    And K.SMatUsl = 'U'
    If @SiteStavki=@UslStavki
        Set @Usluzna = 'D'
---------------------------------------------------------------------------------------------------------------------------------






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninarreallok]'))
drop procedure [dbo].[sp_podigninarreallok]

Go
CREATE PROCEDURE sp_PodigniNarRealLok
    @NarID        int,
    @Lokacija    varchar(10)
 AS
    Select  NarID, Lokacija, Sifra_Oper, Dodaden_Na
    From NarRealLok
    Where NarID=@NarID And Lokacija=@Lokacija



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninarsonarid]'))
drop procedure [dbo].[sp_podigninarsonarid]

Go





CREATE                    PROCEDURE sp_PodigniNarSoNarID
    @NarID Int
AS
    SELECT N.*, TN.DaliDev
    FROM Naracki N  INNER JOIN TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
    WHERE N.NarID=@NarID













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningbillcodes]'))
drop procedure [dbo].[sp_podigningbillcodes]

Go



CREATE    PROCEDURE sp_PodigniNGBillCodes
    @Sifra_BillCode    char(10)
AS
    Select Sifra_BillCode, ImeBillCode, DefIznos, BrojRati, DenoviVoGod, DP, Tip_BillCode, DefProcent,
           PoDatumi, Datum1, Datum2, Datum3, Datum4, Datum5, Datum6,
           Datum7, Datum8, Datum9, Datum10, Datum11, Datum12, Opis_Fakt,
           DniDospDef
    From NGBillCodes
    Where Sifra_BillCode=@Sifra_BillCode







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningcoursetype]'))
drop procedure [dbo].[sp_podigningcoursetype]

Go
CREATE  PROCEDURE sp_PodigniNGCourseType
    @Sifra_CourseType    char(10)
AS
    Select Sifra_CourseType, ImeCourseType, NivoCourseType
    From NGCourseType
    Where Sifra_CourseType=@Sifra_CourseType



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningfamilija]'))
drop procedure [dbo].[sp_podigningfamilija]

Go
CREATE PROCEDURE sp_PodigniNGFamilija
    @Sifra_Famil    char(20)
AS
    Select Sifra_Famil, ImeFAmil
    From NGFamilija
    Where Sifra_Famil=@Sifra_Famil




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningfrasta]'))
drop procedure [dbo].[sp_podigningfrasta]

Go
CREATE PROCEDURE sp_PodigniNGFraSta
    @Sifra_Student        char(6),
    @Broj_Inv        int = Null,
    @Sifra_Famil        char(20) = Null,
    @Kurs            decimal(18,4) = 1,
    @BrFri            smallint = Null Output
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select F.Sifra_Student, S.ImeStudent, FS.Sifra_Oe, FS.Broj_Inv, FS.RbrStavka, FS.Datum_Stavka,
                (Case When BK.Tip_BillCode In (''C'',''N'',''P'') Then Null Else FS.Datum_Dosp_Stavka End) Datum_Dosp_Stavka,
                FS.Sifra_BillCode, BK.ImeBillCode, FS.Sifra_OtherCode, FS.Opis_Stavka, BK.Tip_BillCode, '
    If @Kurs > 1
        Set @SSQL = @SSQL + ' FS.Iznos_Stavka * ' + Cast(@Kurs as varchar(20)) + ' Iznos_Stavka '
    Else
        Set @SSQL = @SSQL + ' FS.Iznos_Stavka '
    Set @SSQL = @SSQL + ' From NGInvoice F
                  Inner Join NGInvoiceSta FS On FS.Sifra_Oe=F.Sifra_Oe And FS.Broj_Inv=F.Broj_Inv
                  Inner Join NGStudents S On S.Sifra_Student=F.Sifra_Student
                  Left Outer Join NGBillCodes BK On BK.Sifra_BillCode=FS.Sifra_BillCode
                  Where 1=1 '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Broj_Inv Is Not Null
        Set @SSQL = @SSQL + ' And F.Broj_Inv = ' + Cast(@Broj_Inv as varchar(10)) + ' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    Exec(@SSQL)

    Create Table #Tab
    (
        BrFri    smallint
    )
    Set @SSQL = ' Select Count(F.Broj_Inv)
            From NGInvoice F
            Inner Join NGStudents S On S.Sifra_Student=F.Sifra_Student
            Where 1=1 '
    If @Sifra_Student Is Not Null
        Set @SSQL = @SSQL + ' And F.Sifra_Student = ''' + @Sifra_Student + ''' '
    If @Broj_Inv Is Not Null
        Set @SSQL = @SSQL + ' And F.Broj_Inv = ' + Cast(@Broj_Inv as varchar(6)) + ' '
    If @Sifra_Famil Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Famil = ''' + @Sifra_Famil + ''' '
    Insert Into #Tab Exec(@SSQL)
    Set @BrFri = (Select BrFri From #Tab)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninginvoice]'))
drop procedure [dbo].[sp_podigninginvoice]

Go

CREATE  PROCEDURE sp_PodigniNGInvoice
    @Sifra_Oe    smallint,
    @Broj_Inv    int
AS
    Select Sifra_Oe, Broj_Inv, FiscPeriod, Sifra_Student, Datum_Inv, Opis_Invoice, SlobTekst,
        Y.ImeSchoolYear
    From NGInvoice I
    left outer join NGSchoolYear Y  on I.FiscPeriod = Y.Sifra_SchoolYear
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninginvoicestasite]'))
drop procedure [dbo].[sp_podigninginvoicestasite]

Go


CREATE   PROCEDURE sp_PodigniNGInvoiceStaSite

    @Sifra_Oe        smallint,
    @Broj_Inv        int
AS
    Select Sifra_Oe, Broj_Inv, RbrStavka, Datum_Stavka, Datum_Dosp_Stavka, S.Sifra_BillCode,
        Sifra_OtherCode, Iznos_Stavka, Opis_Stavka, C.Tip_BillCode
    From NGInvoiceSta S
    Left Outer Join NGBillCodes C on S.Sifra_BillCode = C.Sifra_BillCode
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninginvoicestastavka]'))
drop procedure [dbo].[sp_podigninginvoicestastavka]

Go
CREATE PROCEDURE sp_PodigniNGInvoiceStaStavka
    @Sifra_Oe        smallint,
    @Broj_Inv        int,
    @RbrStavka        smallint
AS
    Select Sifra_Oe, Broj_Inv, RbrStavka, Datum_Stavka, Datum_Dosp_Stavka, Sifra_BillCode, Sifra_OtherCode, Iznos_Stavka, Opis_Stavka
    From NGInvoiceSta
    Where Sifra_Oe=@Sifra_Oe And Broj_Inv=@Broj_Inv And RbrStavka=@RbrStavka



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningschoolyear]'))
drop procedure [dbo].[sp_podigningschoolyear]

Go

create   PROCEDURE sp_PodigniNGSchoolYear
    @Sifra_SchoolYear    char(10)
AS
    Select Sifra_SchoolYear, ImeSchoolYear
    From NGSchoolYear
    Where Sifra_SchoolYear = @Sifra_SchoolYear




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigningstudents]'))
drop procedure [dbo].[sp_podigningstudents]

Go



CREATE    PROCEDURE sp_PodigniNGStudents
    @Sifra_Student    char(6)
AS
    Select Sifra_Student, ImeStudent, Adresa, Posta, SMesto, Telefon, S.Sifra_Famil,
        S.Sifra_CourseType, Godina, Aktiven, Adresa_Bill, Posta_Bill, SMesto_Bill,
        ImeStudent_Bill, TelMob, eMailAdr, C.ImeCourseType, Fam.ImeFamil, Zemja
    From NGStudents  S
    left outer join NGFamilija Fam on S.Sifra_Famil = Fam.Sifra_Famil
    left outer join NGCourseType C on S.Sifra_CourseType = C.Sifra_CourseType
    Where Sifra_Student=@Sifra_Student






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigninisto]'))
drop procedure [dbo].[sp_podigninisto]

Go


create  PROCEDURE sp_PodigniNisto
AS
select imepret from Konfig
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioblast]'))
drop procedure [dbo].[sp_podignioblast]

Go

CREATE PROCEDURE [dbo].[sp_PodigniOblast]
    @Sifra_Oblast    varchar(10) = NULL

AS

    IF @Sifra_Oblast IS NOT NULL
        SELECT    O.*, A.Ime_Asort
        FROM    Oblast O
                LEFT OUTER JOIN Asortiman A ON A.Sifra_Asort = O.Sifra_Asort
        WHERE    Sifra_Oblast = @Sifra_Oblast
    ELSE
        SELECT    O.*, A.*
        FROM    Oblast O
                LEFT OUTER JOIN Asortiman A ON A.Sifra_Asort = O.Sifra_Asort

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioeodgrorg]'))
drop procedure [dbo].[sp_podignioeodgrorg]

Go
CREATE PROCEDURE sp_PodigniOEOdGrOrg
    @Sif_GrOrg    char(6)
AS
SELECT Sifra_Oe, ImeOrg FROM Orged WHERE Sifra_OE IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioezawhm]'))
drop procedure [dbo].[sp_podignioezawhm]

Go


CREATE   Procedure sp_PodigniOeZaWHM
    @Sifra_OE     smallint = null
AS
    DECLARE @@OrgEd as varchar(100)
    DECLARE @@SQL     as varchar(500)

    IF @Sifra_OE IS NOT NULL
        SET @@OrgEd = dbo.fix_WHM_Daj_OrgEdNOVA(@Sifra_OE)
    ELSE
        SET @@OrgEd = dbo.fix_WHM_Daj_OrgEdNOVA(null)

    SET @@SQL = ''

    IF @@OrgEd = ''
        RETURN
    Else
        SET @@SQL ='SELECT Sifra_Oe,ImeOrg, WHM_1Lok
            FROM OrgEd
            WHERE Sifra_Oe IN ('+ @@OrgEd +')'

    IF @@SQL <> ''
        EXEC (@@SQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniogrart]'))
drop procedure [dbo].[sp_podigniogrart]

Go
CREATE  PROCEDURE [dbo].[sp_PodigniOgrArt]
    @Sifra_GrKor    varchar(20),
    @Tip_Podelba    char(1)

AS
    SELECT    OA.*, P.Ime_Podg
    FROM    OgrArt OA
            LEFT OUTER JOIN Podgrupi P ON P.Sifra_Podg = OA.Sifra_Podelba
    WHERE    OA.Sifra_GrKor = @Sifra_GrKor AND OA.Tip_Podelba = @Tip_Podelba


    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioperaciisite]'))
drop procedure [dbo].[sp_podignioperaciisite]

Go

CREATE  PROCEDURE sp_PodigniOperaciiSite
AS
    SELECT * FROM  Operacii
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioperacija]'))
drop procedure [dbo].[sp_podignioperacija]

Go

CREATE  PROCEDURE sp_PodigniOperacija
AS
    SELECT *  FROM  Operacii
    WHERE Operacija = 'a-komint'
IF @@ROWCOUNT = 0
      RETURN 77000
ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniopersolozinka]'))
drop procedure [dbo].[sp_podigniopersolozinka]

Go
CREATE     PROCEDURE sp_PodigniOperSoLozinka
    @Login_Ime    varchar(20),
    @Lozinka    varchar(20),
    @Sifra_Oper    smallint = null OUTPUT,
    @Ime_Oper    varchar(50) = null OUTPUT,
    @Sifra_OE    smallint = null OUTPUT,
    @MaxPopust    decimal (6, 2) = null OUTPUT,
    @Sif_GrOrg    char(6) = null OUTPUT
AS
SELECT @Sifra_Oper = Sifra_Oper, @Ime_Oper = Ime_Oper, @Sifra_OE=Sifra_OE, @MaxPopust=MaxPopust, @Sif_GrOrg=Sif_GrOrg
FROM Operatori WHERE Login_Ime = @Login_Ime And Lozinka = @Lozinka




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioptzalpooe]'))
drop procedure [dbo].[sp_podignioptzalpooe]

Go
CREATE PROCEDURE sp_PodigniOptZalPoOe
    @Sifra_Art    varchar(20)
AS
    Select O.Sifra_Oe, O.Sifra_Art, O.MinZal, O.MaxZal, O.OptZal, OE.ImeOrg, O.Dozvoleno
    From OptZalPoOe O INNER JOIN OrgEd OE ON O.Sifra_Oe=OE.Sifra_OE
    Where O.Sifra_Art = @Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniorged]'))
drop procedure [dbo].[sp_podigniorged]

Go


CREATE   Procedure sp_PodigniOrgEd
As
    Select distinct D.Sifra_Oe, Cast(D.Sifra_Oe as varchar(3))+' '+ O.ImeOrg
    From Dokr D
    Inner Join Orged O on D.Sifra_oe=O.Sifra_Oe
    Where D.Sifra_Dok=100
    Order by D.Sifra_Oe





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniosnovosig]'))
drop procedure [dbo].[sp_podigniosnovosig]

Go

CREATE PROCEDURE sp_PodigniOsnovOsig

    @Sifra_OsnovOsig    char(2)
AS
    Select * From OsnovOsig
    Where Sifra_OsnovOsig=@Sifra_OsnovOsig




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniosnpodelbi]'))
drop procedure [dbo].[sp_podigniosnpodelbi]

Go





CREATE     PROCEDURE sp_PodigniOsnPodelbi
    @Sifra_OsnGrPodel smallint,
    @Sifra_OsnPodel smallint
AS
    SELECT OP.Sifra_OsnGrPodel,OP.Sifra_OsnPodel,OP.Vrednost, GP.ImeOsnGrPodel
        FROM  OsnPodelbi OP
    INNER JOIN OsnGrPodel GP ON OP.Sifra_OsnGrPodel = GP.Sifra_OsnGrPodel
    WHERE OP.Sifra_OsnGrPodel = @Sifra_OsnGrPodel and OP.Sifra_OsnPodel = @Sifra_OsnPodel
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniosnpodelbisite]'))
drop procedure [dbo].[sp_podigniosnpodelbisite]

Go





CREATE PROCEDURE sp_PodigniOsnPodelbiSite
    @Sifra_OsnGrPodel smallint
AS
    SELECT OP.Sifra_OsnGrPodel,OP.Sifra_OsnPodel,OP.Vrednost
        FROM  OsnPodelbi OP
    WHERE OP.Sifra_OsnGrPodel = @Sifra_OsnGrPodel
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniosnpodelsta]'))
drop procedure [dbo].[sp_podigniosnpodelsta]

Go





create        PROCEDURE sp_PodigniOsnPodelSta
    @Inv_Broj    char(10)
AS
    SELECT S.Inv_Broj, S.Sifra_OsnPodel, S.Sifra_OsnGrPodel, OP.Vrednost,OG.ImeOsnGrPodel FROM  OsnPodelSta S
        inner join OsnGrPodel OG ON S.Sifra_OsnGRPodel = OG.Sifra_OsnGrPodel
    inner join OsnPodelbi OP ON S.Sifra_OsnPodel = OP.Sifra_OsnPodel And S.Sifra_OsnGRPodel = OP.Sifra_OsnGrPodel

        WHERE S.Inv_Broj = @Inv_Broj

IF @@ROWCOUNT = 0
  RETURN 77000
ELSE
RETURN 0







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniotkrojsema]'))
drop procedure [dbo].[sp_podigniotkrojsema]

Go
CREATE PROCEDURE sp_PodigniOtkrojSema
    @Sifra_Otkr    smallint
 AS
    Select Sifra_Otkr, Proc1, Proc2, Proc3, Proc4, Proc5
    From OtkrojSema
    Where Sifra_Otkr=@Sifra_Otkr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignioznaka]'))
drop procedure [dbo].[sp_podignioznaka]

Go


CREATE  PROCEDURE sp_PodigniOznaka
    @Sifra_Art     varchar(20),
    @Ozn         varchar(20)
AS
    SELECT     *
    FROM    DeklArtVrska
    WHERE    Sifra_Art = @Sifra_Art AND Ozn_Grupa = @Ozn

    RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipacienti]'))
drop procedure [dbo].[sp_podignipacienti]

Go


CREATE  PROCEDURE sp_PodigniPacienti

    @EMBG        char(13)
AS
    Select P.*, L.ImeLekar, Os.ImeOsnovOsig From Pacienti P
        Left Outer Join Lekari L on P.Sifra_Lekar = L.SIfra_Lekar
        Left Outer Join OsnovOsig Os on P.Sifra_OsnovOsig = Os.SIfra_OsnovOsig
    Where EMBG=@EMBG





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipaklista]'))
drop procedure [dbo].[sp_podignipaklista]

Go

CREATE   PROCEDURE sp_PodigniPakLista
    @Sifra_OE    smallint,
    @Mesto_Pak    smallint,
    @Sifra_Pak    smallint,
    @Broj_Pak    int
 AS
    SELECT PL.* FROM PakLista PL
    WHERE Sifra_OE=@Sifra_OE and Mesto_Pak=@Mesto_Pak and Sifra_Pak=@Sifra_Pak and Broj_Pak=@Broj_Pak
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipaklistastav]'))
drop procedure [dbo].[sp_podignipaklistastav]

Go
Create  PROCEDURE sp_PodigniPakListaStav
    @Sifra_OE    smallint,
    @Broj_Pak    int
 AS
    SELECT P.*
    FROM PakListaStav P
    WHERE Sifra_OE=@Sifra_OE and Broj_Pak=@Broj_Pak
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipakuvart]'))
drop procedure [dbo].[sp_podignipakuvart]

Go


CREATE  PROCEDURE sp_PodigniPakuvArt
    @Broj_DokPak    int,
    @KontrSer_Pak    Varchar(25) = Null Output,
    @Kolic_Pak    Decimal(18,6) = Null Output
AS
    SELECT P.*,  SU.ImeArt ImeSur, SU.EdMera EdMeraSur,
                 GP.ImeArt ImeArt, GP.EdMera, SU.Alt_Ime2 AltIme2
    FROM PakuvArt P
    Left outer JOIN KatArt GP ON P.Sifra_Art_Pak = GP.Sifra_Art
    Left outer JOIN KatArt SU ON P.Sifra_Art_Ed = SU.Sifra_Art
    WHERE P.Broj_DokPak = @Broj_DokPak
    Order by P.Rbr
    SELECT Top 1 @KontrSer_Pak=KontrSer_Pak, @Kolic_Pak=Kolic_Pak
    FROM PakuvArt P
    WHERE Broj_DokPak = @Broj_DokPak




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipatnik]'))
drop procedure [dbo].[sp_podignipatnik]

Go

CREATE PROCEDURE sp_PodigniPatnik
    @Sifra_Pat as Smallint
AS
    SELECT [Sifra_Pat],
        [ImePat], [Adresa], [Adresa2], [SMesto], [Posta], [Zemja],
        [Aktiven], [Telefon], [TelMobil], [Fax], [EMail], [LK], [Sopst_Mat]
    FROM [Patnici]
    WHERE [Sifra_Pat]=@Sifra_Pat
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipercenceni]'))
drop procedure [dbo].[sp_podignipercenceni]

Go

CREATE      PROCEDURE sp_PodigniPerCenCeni
    @Sifra_TipC smallint,
    @Datum_Od smalldatetime,
    @Osn_OrgEd smallint,
    @CeniOdCenGrOrg char(1)
AS
If @CeniOdCenGrOrg='D'
Begin
    Declare @GrOrg as char(6)
    SELECT @GrOrg = S.Sif_GrOrg FROM SGrOrg S, GrOrg G
    WHERE S.Sifra_OE = @Osn_OrgEd AND S.Sif_GrOrg = G.Sif_GrOrg AND G.Edinstvena = 'D'
    SELECT C.*, K.ImeArt, S.Cena StCena, K.Nabavna FROM PerCenCeni C
    INNER JOIN KatArt K ON C.Sifra_Art = K.Sifra_Art
    LEFT OUTER JOIN CenGrOrg S ON S.Sifra_Art = K.Sifra_Art AND Sif_GrOrg = @GrOrg
    WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
End
ELSE
    SELECT C.*, K.ImeArt, S.Cena StCena, K.Nabavna FROM PerCenCeni C
    INNER JOIN KatArt K ON C.Sifra_Art = K.Sifra_Art
    LEFT OUTER JOIN SoArt S ON S.Sifra_Art = K.Sifra_Art AND S.Sifra_OE = @Osn_OrgEd
    WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipercenceni1]'))
drop procedure [dbo].[sp_podignipercenceni1]

Go
CREATE     PROCEDURE sp_PodigniPerCenCeni1
    @Sifra_TipC smallint,
    @Datum_Od smalldatetime
AS
    SELECT TOP 1 *
    FROM PerCenCeni
    WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipercenceni1redov]'))
drop procedure [dbo].[sp_podignipercenceni1redov]

Go


CREATE      PROCEDURE sp_PodigniPerCenCeni1Redov
    @Sifra_TipC smallint,
    @Datum_Od smalldatetime
AS
Declare @Resen char(1)   --ako ima bar 1 resen, da ne moze da se menuva
SELECT TOP 1 @Resen = Resen FROM PerCenCeniRedov WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od And Resen = 'D'
SELECT TOP 1 Sifra_TipC,Datum_Od, @Resen As Resen FROM PerCenCeniRedov WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od
    RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipercenceniredov]'))
drop procedure [dbo].[sp_podignipercenceniredov]

Go


CREATE      PROCEDURE sp_PodigniPerCenCeniRedov
    @Sifra_TipC smallint,
    @Datum_Od smalldatetime
AS
Declare    @Osn_OrgEd smallint
SELECT TOP 1 @Osn_OrgEd = Sifra_OE FROM TipPerCenVaziZa WHERE Sifra_TipC=@Sifra_TipC ORDER BY Sifra_OE

CREATE TABLE #TmpPC
(    Sifra_Art varchar (20),
    NabCena decimal(18, 6),
    Rabat decimal(6,2),
    Cena decimal(18, 6))
INSERT INTO #TmpPC (Sifra_Art, NabCena, Rabat, Cena)
SELECT DISTINCT Sifra_Art, NabCena, Rabat, Cena FROM PerCenCeniRedov WHERE Sifra_TipC = @Sifra_TipC AND Datum_Od = @Datum_Od

     SELECT C.*, K.ImeArt, K.Nabavna, S.Cena StCena FROM #TmpPC C
    INNER JOIN KatArt K ON C.Sifra_Art = K.Sifra_Art
    LEFT OUTER JOIN SoArt S ON S.Sifra_Art = K.Sifra_Art AND S.Sifra_OE = @Osn_OrgEd
RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipicklist]'))
drop procedure [dbo].[sp_podignipicklist]

Go

create PROCEDURE sp_PodigniPickList
    @ImeTabela as varchar(50),
    @Polinja as varchar(1000) = Null,
    @Filtri as varchar(1000) = Null
AS
DECLARE @SSQL as varchar(8000)
SET @SSQL = 'SELECT '
IF @Polinja IS NULL
    SET @SSQL = @SSQL + '*'
ELSE
    SET @SSQL = @SSQL + @Polinja
SET @SSQL = @SSQL + ' FROM ' + @ImeTabela
IF @Filtri IS NOT NULL
    SET @SSQL = @SSQL + ' WHERE ' + @Filtri
PRINT @SSQL
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanbudzet]'))
drop procedure [dbo].[sp_podigniplanbudzet]

Go




CREATE      PROCEDURE [dbo].[sp_PodigniPlanBudzet]
    @Godina    smallint=Null,
    @KojSifr varchar(10)='DIV'
AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL='Select P.Godina, P.Mesec, P.Sifra, P.Iznos, '
    if @KojSifr = 'DIV'
          Set @SSQL=@SSQL + 'D.ImeDiv Ime From PlanBudzet P inner join Divizii D on D.Sifra_Div=P.Sifra '
    ELSE IF @KojSifr = 'ANAL'
          Set @SSQL=@SSQL + 'A.ImeAnal Ime From PlanBudzet P inner join Anal A on A.Kto_Anal=P.Sifra '
    ELSE IF @KojSifr = 'GRANAL'
            SET @SSQL = @SSQl + 'G.Ime_GrAnalPlan Ime FROM PlanBudzet P INNER JOIN GrAnalPlan G ON P.Sifra = G.Sif_GrAnalPlan '
    Set @SSQL=@SSQL+ ' Where 1=1 '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And P.Godina = ' + cast(@Godina as varchar(4)) + ' '
    if @KojSifr = 'DIV'
        Set @SSQL=@SSQL+ ' order by dbo.fn_LevoNuli (cast(P.Sifra as int),4), P.mesec'
    ELSE
        Set @SSQL=@SSQL+ ' order by P.Sifra, P.mesec '
Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanmes]'))
drop procedure [dbo].[sp_podigniplanmes]

Go
CREATE      PROCEDURE sp_PodigniPlanMes
    @Godina    smallint=Null,
    @Mesec    smallint=Null,
    @Sifra_Art varchar(20)=Null,
    @Sifra_Oe smallint,
        @ImePlan varchar(10),
    @PlanMesGod    char(1) = 'M'
AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL='Select P.Godina, P.Mesec, P.Sifra_Art, K.ImeArt, K.EdMera, P.Plan_Kol, P.Plan_Proc, P.Plan_Cena, P.Sifra_Oe, P.RbrVoPlan, ImePlan, Plan_Vred
            From PlanMes P
            Inner Join Katart K On K.Sifra_art=P.Sifra_art
            Where 1=1 '
    If @PlanMesGod = 'G'
        Set @SSQL=@SSQL+' And P.Mesec = 0 '
    Else
        Set @SSQL=@SSQL+' And P.Mesec <> 0 '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And P.Godina = ' + cast(@Godina as varchar(4)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And P.Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Sifra_Art Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_art = ''' + @Sifra_art + ''' '
    Set @SSQL=@SSQL+ ' And P.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6))
    Set @SSQL=@SSQL+ ' And P.ImePlan = ''' + @ImePlan + ''' '
    --mnogu e vazno da e podredeno po rbr+artikli!!!!!    D.K. Fev 22, 2004
    Set @SSQL=@SSQL+ ' order by godina, P.RbrVoPlan, P.sifra_art, mesec '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanmespodel]'))
drop procedure [dbo].[sp_podigniplanmespodel]

Go




CREATE            PROCEDURE sp_PodigniPlanMesPodel
    @Godina    smallint=Null,
    @Mesec    smallint=Null,
    @Sifra_Podel nvarchar(20)=Null,
    @Sifra_Oe smallint,
        @ImePlan nvarchar(10),
    @PlanMesGod    char(1) = 'M',
        @KojaPodel  varchar(10)
AS
    Declare @SSQL As Varchar(2000)
        Set @SSQL='Select P.Godina, P.Mesec, P.Sifra_Podel, K.Ime_KHier Ime, P.Plan_Kol, P.Plan_Proc, P.Plan_Cena, P.Sifra_Oe, P.RbrVoPlan, P.ImePlan, P.Plan_Vred, P.KojaPodel
            From PlanMesPodel P
            Inner Join KatHier K On K.Sifra_KHier=P.Sifra_Podel
            Where P.KojaPodel=''' + @KojaPodel + ''' '
    If @PlanMesGod = 'G'
        Set @SSQL=@SSQL+' And P.Mesec = 0 '
    Else
        Set @SSQL=@SSQL+' And P.Mesec <> 0 '
    If @Godina Is Not Null
        Set @SSQL=@SSQL+ ' And P.Godina = ' + cast(@Godina as varchar(4)) + ' '
    If @Mesec Is Not Null
        Set @SSQL=@SSQL+ ' And P.Mesec = ' + cast(@Mesec as varchar(2)) + ' '
    If @Sifra_Podel Is Not Null
        Set @SSQL=@SSQL+ ' And P.Sifra_Podel = ''' + @Sifra_Podel + ''' '
    Set @SSQL=@SSQL+ ' And P.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6))
    Set @SSQL=@SSQL+ ' And P.ImePlan = ''' + @ImePlan + ''' '
    --mnogu e vazno da e podredeno po rbr+artikli!!!!!    D.K. Fev 22, 2004
    Set @SSQL=@SSQL+ ' order by godina, P.RbrVoPlan, P.sifra_podel, mesec '
    Exec(@SSQL)









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanmespodelpatnik]'))
drop procedure [dbo].[sp_podigniplanmespodelpatnik]

Go

CREATE PROCEDURE [dbo].[sp_PodigniPlanMesPodelPatnik]
    @Sifra_Oe    smallint = NULL,
    @Godina        smallint = NULL,
    @Mesec        smallint = NULL,
    @KojaPodel    varchar(10) = 'DRUGO1'
AS
    IF @Sifra_Oe IS NULL AND @Godina IS NULL AND @Mesec IS NULL
        SELECT    PM.*, D.Ime_1 ImePodel, PAT.ImePat
        FROM    PlanMesPodel PM
                INNER JOIN Drugo1 D ON D.Sifra_1 = PM.Sifra_Podel
                INNER JOIN Patnici PAT ON PAT.Sifra_Pat = PM.Sifra_Oe
        WHERE    PM.KojaPodel = @KojaPodel
        ORDER BY PM.Sifra_Oe, PM.Godina, PM.Mesec, PM.RbrVoPlan
    ELSE
        SELECT    PM.*, D.Ime_1 ImePodel, PAT.ImePat
        FROM    PlanMesPodel PM
                INNER JOIN Drugo1 D ON D.Sifra_1 = PM.Sifra_Podel
                INNER JOIN Patnici PAT ON PAT.Sifra_Pat = PM.Sifra_Oe
        WHERE    PM.Sifra_Oe = @Sifra_Oe AND PM.Godina = @Godina AND PM.Mesec = @Mesec AND PM.KojaPodel = @KojaPodel
        ORDER BY PM.RbrVoPlan










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanpat]'))
drop procedure [dbo].[sp_podigniplanpat]

Go
CREATE PROCEDURE sp_PodigniPlanPat
    @Sifra_Plan    smallint,
    @Mesec    smallint,
    @Godina    smallint
AS
    Select P.Sifra_Plan, Pat.ImePat, P.Sifra_Pat, P.Mesec, P.Godina, P.UspesniPoseti, P.ProdMesta, P.Prodazba
    From PlanPat P
    Inner Join Patnici Pat On PAt.Sifra_Pat=P.Sifra_Pat
    Where P.Sifra_Plan=@Sifra_Plan And P.Mesec=@Mesec And P.Godina=@Godina



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanper]'))
drop procedure [dbo].[sp_podigniplanper]

Go
CREATE PROCEDURE sp_PodigniPlanPer
    @Sifra_Kup    char(6),
    @Sifra_Obj    smallint
 AS
    Declare @SSQL as varchar(2000)
    Set @SSQL = 'Select P.*, A.ImeArt
            From PlanPer P INNER JOIN KatArt A ON P.Sifra_Art = A.Sifra_Art
            AND P.Sifra_Kup = ' + @Sifra_Kup
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL +  ' And P.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6))
    EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanpro]'))
drop procedure [dbo].[sp_podigniplanpro]

Go
CREATE PROCEDURE sp_PodigniPlanPro
    @Sif_GrOrg char(6),
    @Sifra_Nar smallint,
    @Broj_Plan char(10)
AS
SELECT P.* FROM PlanPro P
WHERE P.Sif_GrOrg=@Sif_GrOrg AND P.Sifra_Nar=@Sifra_Nar AND P.Broj_Plan=@Broj_Plan




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniplanprosta]'))
drop procedure [dbo].[sp_podigniplanprosta]

Go



CREATE    PROCEDURE sp_PodigniPlanProSta
    @Sif_GrOrg char(6),
    @Sifra_Nar smallint,
    @Broj_Plan char(10)
AS
SELECT P.*, A.ImeArt, A.EdMera SEdMera FROM PlanProSta P LEFT OUTER JOIN KatArt A ON P.Sifra_Art=A.Sifra_Art
WHERE P.Sif_GrOrg=@Sif_GrOrg AND P.Sifra_Nar=@Sifra_Nar AND P.Broj_Plan=@Broj_Plan
ORDER BY P.Rbr




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipocnabceni]'))
drop procedure [dbo].[sp_podignipocnabceni]

Go
CREATE PROCEDURE sp_PodigniPocNabCeni
    @Sifra_Oe    smallint,
    @Sifra_Art    varchar(20)
AS
    Select  Sifra_Oe, Sifra_Art, NabCena, Datum_Dok, Datum_Vnes, Datum_Izm
    From PocNabCeni
    Where Sifra_Oe=@Sifra_Oe And Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipocsostosn]'))
drop procedure [dbo].[sp_podignipocsostosn]

Go
CREATE PROCEDURE sp_PodigniPocSostOsn
    @Inv_Broj    char(10),
    @Godina    smallint
AS
    Select  Inv_Broj, Godina, Osn_Amor, Otpis_Pret, Sifra_MikLok, Sifra_Amor, Kto_Anal, Sifra_Rab
    From PocSostOsn
    Where Inv_Broj=@Inv_Broj and Godina=@Godina
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipodatvozilo]'))
drop procedure [dbo].[sp_podignipodatvozilo]

Go


CREATE   procedure sp_PodigniPodatVozilo
    @Sifra_Art varchar(20)=null
As
    Select V.Sifra_Art SifArtVoz, V.KomOznaka, V.VarijIzvedba, V.Kateg_ESE, V.Kateg_MKS, V.BrSasija, V.BrMotor, V.GodProiz, V.GodModel, V.SilaMotor, V.KubiciMotor,
           V.Nosivost, V.MasaKgr, V.Dolzina, V.sirina, V.Visina, V.Rastoj_Oski, V.Optovar_Oski1, V.Optovar_Oski2, V.BrojOskiPrikl, V.MaxMasaPrikl1,
           V.MaxMasaPrikl2, V.DozvPnevm1, V.DozvPnevm2, V.MestaSedenje, V.MestaStoenje, V.MestaLezenje, V.MaxBrzina, V.TehnOznaka, V.Registracija,
           V.BrojVrati, V.Sopstvenik, V.Adresa, V.Telefon, V.Datum_Garanc, V.OznakaOdobr, V.PotvrdaSoobr, V.DozvPnevm, V.TipMOtor, V.VrteziMin, V.VrteziBucava,
           V.Bucava, V.Sila_Masa, V.CO2, V.Poc_KM, V.Poteklo, V.Sifra_Kup, K.Sifra_art, K.ImeArt, D3.Ime_3, D4.Ime_4, B.Ime ImeDrg
           from Vozila V
           INNER JOIN Katart K ON V.Sifra_Art=K.Sifra_Art
           Left Outer Join Drugo3 D3 On D3.Sifra_3 = K.Drugo3
       Left Outer Join Drugo1 D1 On D1.Sifra_1 = K.Drugo1
           Left Outer Join Drugo4 D4 On D4.Sifra_4 = K.Drugo4
           Left Outer Join DrgPodel B On B.Sifra_Drg = K.Sifra_Drg
     Where v.Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipodelartkomusl]'))
drop procedure [dbo].[sp_podignipodelartkomusl]

Go
CREATE  PROCEDURE sp_PodigniPodelArtKomUsl
AS
    Select *
    From PodelArtKomUsl
    Order by PodelArtKomerc Desc, Sifra_Kanal Desc -- mnogu vazno
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipodoblast]'))
drop procedure [dbo].[sp_podignipodoblast]

Go

CREATE PROCEDURE [dbo].[sp_PodigniPodOblast]
    @Sifra_PodOblast    varchar(10) = NULL

AS

    IF @Sifra_PodOblast IS NOT NULL
        SELECT    P.*, O.Ime_Oblast
        FROM    PodOblast P
                LEFT OUTER JOIN Oblast O ON P.Sifra_Oblast = O.Sifra_Oblast
        WHERE    Sifra_PodOblast = @Sifra_PodOblast
    ELSE
        SELECT    P.*, O.*
        FROM    PodOblast P
                LEFT OUTER JOIN Oblast O ON P.Sifra_Oblast = O.Sifra_Oblast

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipodracnisluzbi]'))
drop procedure [dbo].[sp_podignipodracnisluzbi]

Go

CREATE PROCEDURE sp_PodigniPodracniSluzbi

    @Sifra_PodrSluzba    char(4)
AS
    Select * From PodracniSluzbi
    Where Sifra_PodrSluzba=@Sifra_PodrSluzba
    Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopis]'))
drop procedure [dbo].[sp_podignipopis]

Go

CREATE PROCEDURE sp_PodigniPopis
    @Sifra_OE smallint,
    @Datum smalldatetime
AS
    SELECT P.*, O.ImeOrg, T.ImeDok
    FROM Popis P
    INNER JOIN OrgEd O ON P.Sifra_OE = O.Sifra_OE
    LEFT OUTER JOIN TipDok T ON P.Sifra_dokK = T.Sifra_dok
    WHERE P.Sifra_OE = @Sifra_OE AND  P.Datum = @Datum
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopisdok_stavki]'))
drop procedure [dbo].[sp_podignipopisdok_stavki]

Go
CREATE        PROCEDURE sp_PodigniPopisDok_Stavki
    @RbrPopis        smallint,
    @Sifra_Oe        smallint,
    @Sifra_Dok        smallint,
    @Broj_Dok        int
AS
    Select P.RbrPopis, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Art, K.ImeArt, P.Rbr, P.Datum_PopisDok, P.Kolic, P.Popis, P.Ostaveno,
        P.Cena, P.DanCena, P.Posn, T.ImeDok, O.ImeOrg, P.DokrId_Vrat, P.Datum_Dok, P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj,
        Kup.Adresa, Kup.SMesto, Kup.Posta, KO.Adresa AdresaObj, KO.SMesto SMestoObj, KO.Posta PostaObj, P.Uces, P.RasporID, P.TipPopisDok,
        Kup.Uces UcesKup
    From PopisDok P
    Inner Join Katart K On K.Sifra_Art=P.Sifra_Art
    Left Outer Join TipDok T on P.Sifra_Dok = T.Sifra_Dok
    Left Outer Join OrgEd O on P.Sifra_Oe = O.Sifra_Oe
    Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=P.Sifra_Kup And KO.Sifra_Obj=P.Sifra_Obj
    Where P.RbrPopis=@RbrPopis And P.Sifra_Oe=@Sifra_Oe And P.Sifra_Dok=@Sifra_Dok And P.Broj_Dok=@Broj_Dok
    Order By Rbr
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopisid]'))
drop procedure [dbo].[sp_podignipopisid]

Go

CREATE PROCEDURE sp_PodigniPopisID
    @IDPopis int
AS
    SELECT P.*, O.ImeOrg, T.ImeDok
    FROM Popis P
    INNER JOIN OrgEd O ON P.Sifra_OE = O.Sifra_OE
    LEFT OUTER JOIN TipDok T ON P.Sifra_dokK = T.Sifra_dok
    WHERE P.IDPopis = @IDPopis
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopisos]'))
drop procedure [dbo].[sp_podignipopisos]

Go



CREATE    PROCEDURE sp_PodigniPopisOS
    @Sifra_OE    smallint,
    @Datum        smalldatetime,
    @Sifra_MikLok    char(10)=Null,
    @Sifra_MakLok    char(10)=Null,
    @Sifra_Rab        int=Null
AS
DECLARE @SSQL varchar(1000)
SET @SSQL = 'SELECT * FROM PopisOS WHERE Sifra_OE=' + cast(@Sifra_OE as varchar(4))
+ ' AND Datum='''+cast(@Datum as varchar(35))+''' '
IF @Sifra_MikLok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_MikLok='''+@Sifra_MikLok+''' '
ELSE
    SET @SSQL = @SSQL + ' AND Sifra_MikLok IS NULL '
IF @Sifra_MakLok IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_MakLok='''+@Sifra_MakLok+''' '
ELSE
    SET @SSQL = @SSQL + ' AND Sifra_MakLok IS NULL '
IF @Sifra_Rab IS NOT NULL
    SET @SSQL = @SSQL + ' AND Sifra_Rab='+cast(@Sifra_Rab as varchar(6))+' '
ELSE
    SET @SSQL = @SSQL + ' AND Sifra_Rab IS NULL '
--print @ssql
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopisos_br]'))
drop procedure [dbo].[sp_podignipopisos_br]

Go




Create     PROCEDURE sp_PodigniPopisOS_Br
    @Broj_Lista    smallint
AS
Select * From PopisOs Where IDPopisOS in(Select IDPopisOS from LPopisOs where Broj_Lista=@Broj_Lista)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipopisos_oe_dat]'))
drop procedure [dbo].[sp_podignipopisos_oe_dat]

Go
CREATE    PROCEDURE sp_PodigniPopisOS_Oe_Dat
    @Sifra_OE    smallint,
    @Datum    smalldatetime
AS
    SELECT * FROM PopisOS WHERE Sifra_OE=@Sifra_OE And Datum=@Datum



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniporastcenist]'))
drop procedure [dbo].[sp_podigniporastcenist]

Go
CREATE PROCEDURE sp_PodigniPorastCeniSt
    @Mesec    smallint,
    @Godina    smallint
 AS
    Select Mesec, Godina, Stapka
    From PorastCeniSt
    Where Mesec=@Mesec and Godina=@Godina



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniposlrabnalzatip]'))
drop procedure [dbo].[sp_podigniposlrabnalzatip]

Go
CREATE PROCEDURE sp_PodigniPoslRabNalZaTip
    @Tip_RabNal char(1),
    @Sifra_OEPrim smallint
AS
Declare @RabNalID int
Declare @DokrID    int
SELECT @RabNalID = MAX(RabNalID) FROM RabNal WHERE Tip_RabNal=@Tip_RabNal AND Sifra_OEPrim=@Sifra_OEPrim
SELECT @DokrID = DokrID FROM DokRabNal WHERE RabNalID = @RabNalID
SELECT P.*, K.ImeArt, K.EdMera From EvProizvod P
INNER JOIN Katart K ON P.Sifra_Art = K.Sifra_Art Where DokrID=@DokrID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignipresmgrupa]'))
drop procedure [dbo].[sp_podignipresmgrupa]

Go

CREATE PROCEDURE [dbo].[sp_PodigniPresmGrupa]
    @Sifra_Kup            char(6) = NULL

AS

    IF @Sifra_Kup IS NOT NULL
        SELECT    P.*, K.ImeKup
        FROM    PresmGrupi P
                INNER JOIN Komint K ON K.Sifra_Kup = P.Sifra_Kup
        WHERE    P.Sifra_Kup = @Sifra_Kup
        ORDER BY P.Broj_PresmGrupa
    ELSE
        SELECT    P.*, K.ImeKup
        FROM    PresmGrupi P
                INNER JOIN Komint K ON K.Sifra_Kup = P.Sifra_Kup
        ORDER BY P.Sifra_Kup, P.Broj_PresmGrupa

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniprivfilt_run]'))
drop procedure [dbo].[sp_podigniprivfilt_run]

Go

create PROCEDURE sp_PodigniPrivFilt_Run
    @NIme_User    varchar(30),
    @PlusKoeMeni    varchaR(30)

 AS

    select *
    from PrivFiltOper
    where NIme_User = @NIme_User and
        (OpcMeni is null or OpcMeni = '' or OpcMeni = @PlusKoeMeni)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniprivfiltoper]'))
drop procedure [dbo].[sp_podigniprivfiltoper]

Go





create PROCEDURE sp_PodigniPrivFiltOper
    @NIme_User varchar(30),
    @TipPrivil varchar(30),
    @PodTipPrivil varchar(30),
    @OpcMeni varchar(30)
 AS
    Select PO.*
    From PrivFiltOper PO
    Where PO.NIme_User=@NIme_User and PO.TipPrivil = @TipPrivil and PO.PodTipPrivil = @PodTipPrivil and PO.OpcMeni = @OpcMeni

    Return @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniprivilegii]'))
drop procedure [dbo].[sp_podigniprivilegii]

Go

CREATE PROCEDURE sp_PodigniPrivilegii
    @Sifra_GrKor varchar(20)
AS
    SELECT * FROM Privilegii
    WHERE Sifra_GrKor = @Sifra_GrKor




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniprivkoncept]'))
drop procedure [dbo].[sp_podigniprivkoncept]

Go


create       PROCEDURE sp_PodigniPrivKoncept
    @Sifra_GrKor varchar (20)
AS
    SELECT *
    FROM PrivKoncept
    WHERE Sifra_GrKor = @Sifra_GrKor




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniproektpoz]'))
drop procedure [dbo].[sp_podigniproektpoz]

Go

create procedure [dbo].[sp_PodigniProektPoz]
    @Broj_Proekt int,
    @PozID int
As
    select * from ProektPoz
    where Broj_Proekt=@Broj_Proekt and PozID=@PozID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniproizvtrosfix]'))
drop procedure [dbo].[sp_podigniproizvtrosfix]

Go
CREATE   PROCEDURE sp_PodigniProizvTrosFix
    @Proiz_Sema        smallint
 AS
    Select P.Proiz_Sema, P.Sifra_art, P.Cena, P.PoVodeckiArtikal, K.ImeArt
    From ProizvTrosFix P
    Inner Join Katart K On K.Sifra_Art=P.Sifra_Art
    Where Proiz_Sema=@Proiz_Sema



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabkalendar]'))
drop procedure [dbo].[sp_podignirabkalendar]

Go
CREATE Procedure sp_PodigniRabKalendar
    @Datum smalldatetime
AS
    Select * from RabKalendar    Where Datum=@Datum



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnal]'))
drop procedure [dbo].[sp_podignirabnal]

Go
CREATE  PROCEDURE sp_PodigniRabNal
   @Sifra_OERAB smallint,
   @Broj_RABN int,
   @Sema_Fix    smallint = Null OUTPUT
AS
    SELECT RN.*
    FROM RabNal RN
    WHERE RN.Sifra_OERAB= @Sifra_OERAB AND RN.Broj_RABN= @Broj_RABN
    Set @Sema_Fix=(Select RN.Sema_Fix
            FROM RabNal RN
            WHERE RN.Sifra_OERAB=@Sifra_OERAB   AND RN.Broj_RABN=@Broj_RABN)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnal_zap]'))
drop procedure [dbo].[sp_podignirabnal_zap]

Go

create  PROCEDURE sp_PodigniRabNal_Zap
   @Sifra_OERAB smallint,
   @Broj_RABN int,
   @Sema_Fix    smallint = Null OUTPUT

AS

    SELECT RN.*
    FROM RabNal_Zap RN
    WHERE RN.Sifra_OERAB= @Sifra_OERAB AND RN.Broj_RABN= @Broj_RABN

    Set @Sema_Fix=(Select RN.Sema_Fix
            FROM RabNal_Zap RN
            WHERE RN.Sifra_OERAB=@Sifra_OERAB   AND RN.Broj_RABN=@Broj_RABN)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnalfazi]'))
drop procedure [dbo].[sp_podignirabnalfazi]

Go




CREATE     PROCEDURE sp_PodigniRabNalFazi
    @RabNalID    integer,
    @Sifra_Faza    smallint,
    @Sifra_Smena    smallint,
    @Datum_Dok    smalldatetime
AS
    Select RF.*, A.ImeArt, A.EdMera, B.ImeBoja, V.ImeVelic FROM RabNalFazi RF
    INNER JOIN KatArt A ON RF.Sifra_Art=A.Sifra_Art
    LEFT OUTER JOIN Boja B ON RF.Sifra_Boja=B.Sifra_Boja
    LEFT OUTER JOIN Velicina V ON RF.Sifra_Velic=V.Sifra_Velic
    where RabNalID=@RabNalID  AND Sifra_Smena=@Sifra_Smena AND Sifra_Faza=@Sifra_Faza AND Datum_Dok=@Datum_Dok
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnalfazisoid]'))
drop procedure [dbo].[sp_podignirabnalfazisoid]

Go




CREATE    PROCEDURE sp_PodigniRabNalFaziSoID
   @RabNalID    int

AS
    SELECT * FROM RabNal WHERE RabNalID=@RabNalID






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnalprim]'))
drop procedure [dbo].[sp_podignirabnalprim]

Go

CREATE  PROCEDURE [dbo].[sp_PodigniRabNalPrim]
   @Sifra_OEPrim smallint,
   @Broj_RABN int,
   @PoluprDali char(1) = Null

AS

    if @PoluprDali = 'D'
        SELECT RN.*
        FROM RabNal RN
        WHERE RN.Sifra_OEPOLU = @Sifra_OEPrim AND RN.Broj_RABN = @Broj_RABN
    else
        SELECT RN.*
        FROM RabNal RN
        WHERE RN.Sifra_OEPrim= @Sifra_OEPrim AND RN.Broj_RABN = @Broj_RABN





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirabnalsoid]'))
drop procedure [dbo].[sp_podignirabnalsoid]

Go



CREATE   PROCEDURE sp_PodigniRabNalSoID
   @RabNalID    int,
   @Sema_Fix    smallint = Null OUTPUT
AS
    SELECT * FROM RabNal WHERE RabNalID=@RabNalID
    Set @Sema_Fix=(Select Sema_Fix FROM RabNal WHERE RabNalID=@RabNalID)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniraspispor]'))
drop procedure [dbo].[sp_podigniraspispor]

Go
CREATE PROCEDURE sp_PodigniRaspIspor
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Nar        int,
    @Broj_Raspored    int=Null OUTPUT,
    @RasporId        int=Null OUTPUT
AS
    Select @Broj_Raspored=Broj_Raspored, @RasporId=RasporId
    From RasporedIspor
    Where Sifra_Oe=@Sifra_Oe and Sifra_Nar=@Sifra_Nar And Broj_Nar=@Broj_Nar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirasporedispor]'))
drop procedure [dbo].[sp_podignirasporedispor]

Go
CREATE                        PROCEDURE sp_PodigniRasporedIspor
    @Sifra_Oe        smallint,
    @Sifra_Nar        smallint,
    @Broj_Raspored    int
AS
    Select RasporID, R.Sifra_OE, R.Sifra_Nar, Broj_Raspored, Datum_Raspor, O.ImeOrg, N.ImeNar, R.Broj_Nar, R.Proknizen, R.Broj_Nar_Lista, R.Tip_Raspored, R.ZaKadeRaspored
    From RasporedIspor R
        Left Outer Join OrgEd O on R.Sifra_oe = O.Sifra_oe
        Left Outer Join TipNarac N on R.Sifra_nar = N.Sifra_nar
    Where R.Sifra_OE=@Sifra_OE and R.Sifra_Nar=@Sifra_Nar And Broj_Raspored=@Broj_Raspored



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirasporedispstavki]'))
drop procedure [dbo].[sp_podignirasporedispstavki]

Go

CREATE            PROCEDURE sp_PodigniRasporedIspStavki
    @RasporId    int
AS
    Select R.RasporStaId, R.RasporId, R.Sifra_Kup, Kup.ImeKup, R.Sifra_Art, K.ImeArt, R.Kolic, R.Sifra_Obj
    From RasporedIspStavki R
    Left Outer Join Komint Kup On Kup.Sifra_kup = R.Sifra_Kup
    Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
    Where R.RasporId=@RasporId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirasporedispstavki_ponar]'))
drop procedure [dbo].[sp_podignirasporedispstavki_ponar]

Go


CREATE        PROCEDURE sp_PodigniRasporedIspStavki_PoNar
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Raspored    int
AS
    Select S.RasporStaId, S.RasporId, S.Sifra_Kup, Kup.ImeKup, S.Sifra_Art, K.ImeArt, S.Kolic, R.Broj_Raspored, R.Proknizen, S.Sifra_Obj
    From RasporedIspStavki S
    Inner Join RasporedIspor R on R.RasporId = S.RasporId
    Left Outer Join Komint Kup On Kup.Sifra_kup = S.Sifra_Kup
    Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
    Where R.Sifra_Oe=@Sifra_Oe and R.Sifra_Nar=@Sifra_Nar and R.Broj_Raspored=@Broj_Raspored




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirazlfin]'))
drop procedure [dbo].[sp_podignirazlfin]

Go

CREATE  PROCEDURE sp_PodigniRazlFin
    @Broj_RazlFin    int,
    @Sifra_Oe    smallint
 AS
    SELECT R.broj_razlfin, R.Datum_dok, R.SifrA_oe, R.Sifra_art, R.Posn,
               R.Ptar, R.VlIzl, R.Sifra_Nal, R.Broj_Nal, R.Iznos_Razl, K.imeart, K.edmera as sedmera
        from RazlFin R
        left outer join KATART K  on R.sifrA_art = K.sifra_art
    WHERE Broj_RazlFin=@Broj_RazlFin and Sifra_Oe=@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirazlfindat]'))
drop procedure [dbo].[sp_podignirazlfindat]

Go


CREATE    PROCEDURE sp_PodigniRazlFinDat
    @Sifra_Oe    smallint,
    @Broj_RazlFin    int,
    @Datum_Dok    smalldatetime OUTPUT
 AS
    SELECT top 1 @Datum_dok = datum_dok
    FROM RazlFin R
    WHERE Broj_RazlFin=@Broj_RazlFin and Sifra_Oe=@Sifra_Oe

    SELECT R.broj_razlfin, R.Datum_dok, R.Sifra_oe, R.Sifra_art, A.ImeArt,
    R.Posn, R.Ptar, R.VlIzl, R.Sifra_Nal, R.Broj_Nal, R.Iznos_Razl, A.Kto_Anal
    FROM RazlFin R
    INNER JOIN KatArt A ON R.Sifra_Art = A.Sifra_Art
    WHERE R.Broj_RazlFin=@Broj_RazlFin and R.Sifra_Oe=@Sifra_Oe





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirazlicnisigmasells]'))
drop procedure [dbo].[sp_podignirazlicnisigmasells]

Go





CREATE      PROCEDURE sp_PodigniRazlicniSigmaSells

AS
      SELECT Grp_Kasa,Brkasa ,Datum_Evid FROM Promet
    where Datum_Evid>Dateadd(day,-5,dbo.fn_VratiDatum(getdate()))
    group by Grp_Kasa,Brkasa ,Datum_Evid




   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirazlprod]'))
drop procedure [dbo].[sp_podignirazlprod]

Go
CREATE  PROCEDURE sp_PodigniRazlProd
    @Broj_RazlProd    int,
    @Sifra_Oe    smallint
 AS
    SELECT R.broj_razlProd, R.Datum_dok, R.SifrA_oe, R.Sifra_art, R.Posn,
               R.Ptar, R.VlIzl, R.Sifra_Nal, R.Broj_Nal, R.Iznos_Razl, K.imeart, K.edmera as sedmera,
      R.Kolic, R.StaraCena, R.NovaCena, R.DanVredn
        from RazlProd R
        left outer join KATART K  on R.sifrA_art = K.sifra_art
    WHERE Broj_RazlProd=@Broj_RazlProd and Sifra_Oe=@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirazlproddat]'))
drop procedure [dbo].[sp_podignirazlproddat]

Go


CREATE    PROCEDURE sp_PodigniRazlProdDat
    @Sifra_Oe    smallint,
    @Broj_RazlProd    int,
    @Datum_Dok    smalldatetime OUTPUT
 AS
    SELECT top 1 @Datum_dok = datum_dok
    FROM RazlProd R
    WHERE Broj_RazlProd=@Broj_RazlProd and Sifra_Oe=@Sifra_Oe
    SELECT R.broj_razlProd, R.Datum_dok, R.Sifra_oe, R.Sifra_art, A.ImeArt,
    R.Posn, R.Ptar, R.VlIzl, R.Sifra_Nal, R.Broj_Nal, R.Iznos_Razl, R.Kolic, R.StaraCena, R.NovaCena, R.DanVredn
    FROM RazlProd R
    INNER JOIN KatArt A ON R.Sifra_Art = A.Sifra_Art
    WHERE R.Broj_RazlProd=@Broj_RazlProd and R.Sifra_Oe=@Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirecepti]'))
drop procedure [dbo].[sp_podignirecepti]

Go

CREATE     PROCEDURE [dbo].[sp_PodigniRecepti]

    @Broj_Recept        int,
    @Sifra_Apteka        char(2)
AS
    Select R.*, Lek1.ImeLekar as ImeLekarMatic, Lek2.ImeLekar as ImeLekarSpec,
               L.ImeArt, A.ImeATC, F.ImeFarmacevt, D.ImeDijagn, Os.ImeOsnovOSig, P.ImePacient,
               PS.ImePodrSluzba, Lek3.ImeLekar as ImeLekarDezuren
  From Recepti R
        Left Outer Join Lekari Lek1 on R.Sifra_Lekar = Lek1.Sifra_Lekar
        Left Outer Join Lekari Lek2 on R.Sifra_Lekar_Spec = Lek2.Sifra_Lekar
        Left Outer Join Lekari Lek3 on R.Sifra_Lekar_Dezuren = Lek3.Sifra_Lekar
        Left Outer Join Katart L on R.Sifra_Art = L.Sifra_Art
        Left Outer Join ATCKodovi A on R.Sifra_ATC = A.Sifra_ATC
        Left Outer Join Farmacevt F on R.Sifra_Farmacevt = F.Sifra_Farmacevt
        Left Outer Join Dijagnozi D on R.Sifra_Dijagn = D.Sifra_Dijagn
        Left Outer Join OsnovOsig Os on R.Sifra_OSnovOsig = Os.Sifra_OsnovOSig
        Left Outer Join PodracniSluzbi PS on substring(R.Sifra_Kompanija,1,4) = PS.Sifra_PodrSluzba
          LEFT OUTER JOIN Pacienti P ON R.EMBG=P.EMBG
    Where R.Broj_Recept=@Broj_Recept And R.Sifra_Apteka=@Sifra_Apteka









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirecepti_p]'))
drop procedure [dbo].[sp_podignirecepti_p]

Go

CREATE  PROCEDURE [dbo].[sp_PodigniRecepti_P]
    @Broj_Recept        int,
    @Sifra_Apteka        char(2)

AS

    Select R.*, Lek1.ImeLekar as ImeLekarMatic, Lek2.ImeLekar as ImeLekarSpec,
               L.ImeArt, A.ImeATC, F.ImeFarmacevt, D.ImeDijagn, Os.ImeOsnovOSig, P.ImePacient,
               PS.ImePodrSluzba, Lek3.ImeLekar as ImeLekarDezuren
  From Recepti_P R
        Left Outer Join Lekari Lek1 on R.Sifra_Lekar = Lek1.Sifra_Lekar
        Left Outer Join Lekari Lek2 on R.Sifra_Lekar_Spec = Lek2.Sifra_Lekar
        Left Outer Join Lekari Lek3 on R.Sifra_Lekar_Dezuren = Lek3.Sifra_Lekar
        Left Outer Join Katart L on R.Sifra_Art = L.Sifra_Art
        Left Outer Join ATCKodovi A on R.Sifra_ATC = A.Sifra_ATC
        Left Outer Join Farmacevt F on R.Sifra_Farmacevt = F.Sifra_Farmacevt
        Left Outer Join Dijagnozi D on R.Sifra_Dijagn = D.Sifra_Dijagn
        Left Outer Join OsnovOsig Os on R.Sifra_OSnovOsig = Os.Sifra_OsnovOSig
        Left Outer Join PodracniSluzbi PS on substring(R.Sifra_Kompanija,1,4) = PS.Sifra_PodrSluzba
    LEFT OUTER JOIN Pacienti P ON R.EMBG=P.EMBG
    Where R.Broj_Recept=@Broj_Recept And R.Sifra_Apteka=@Sifra_Apteka







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirelacisporstav]'))
drop procedure [dbo].[sp_podignirelacisporstav]

Go

CREATE  PROCEDURE sp_PodigniRelacIsporStav
    @Sifra_RelIspor    smallint
AS
    Select R.*, G.ImeGrad From RelacIsporStav R INNER JOIN Grad G ON R.Sifra_Grad=G.Sifra_Grad
    Where Sifra_RelIspor=@Sifra_RelIspor




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirkasprivil]'))
drop procedure [dbo].[sp_podignirkasprivil]

Go

CREATE   PROCEDURE sp_PodigniRKasPrivil
    @Sifra_Oper     smallint,
    @Sifra_GrOper    char(20),
    @Sifra_Operac    char(20)
AS
    SELECT * FROM RKasPrivil
    WHERE Sifra_Oper = @Sifra_Oper And Sifra_GrOper = @Sifra_GrOper And Sifra_Operac = @Sifra_Operac




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirpopis]'))
drop procedure [dbo].[sp_podignirpopis]

Go

CREATE PROCEDURE sp_PodigniRPopis
    @IDPopis smallint
AS
    SELECT RP.*, A.ImeArt
    FROM RPopis RP
    INNER JOIN KatArt A ON RP.Sifra_Art = A.Sifra_Art
    WHERE  RP.IDpopis = @IDPopis
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirutiplan]'))
drop procedure [dbo].[sp_podignirutiplan]

Go




CREATE     PROCEDURE sp_PodigniRutiPlan
    @Sifra_Pat smallint,
    @Datum_Od smalldatetime,
    @DenOdNedela char(1)
 AS
    Select R.Sifra_Pat, R.Datum_Od, R.DenOdNedela, R.Rbr, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, KO.Adresa
    From RutiPlan R
    left outer join Komint K on K.Sifra_Kup = R.Sifra_Kup
    left outer join KOBjekti KO on R.Sifra_Kup = KO.Sifra_Kup and R.Sifra_Obj =KO.Sifra_Obj
    Where R.Sifra_Pat=@Sifra_Pat and R.Datum_Od = @Datum_Od and R.DenOdNedela = @DenOdNedela
    order by rbr
    Return @@ERROR








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignirutizadatum]'))
drop procedure [dbo].[sp_podignirutizadatum]

Go





CREATE     PROCEDURE sp_PodigniRutiZaDatum
    @Sifra_Pat smallint,
    @Datum smalldatetime

 AS
    Select R.Sifra_Pat, R.Datum, R.Rbr, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, KO.Adresa
    From RutiZaDatum R
    left outer join Komint K on K.Sifra_Kup = R.Sifra_Kup
    left outer join KOBjekti KO on R.Sifra_Kup = KO.Sifra_Kup and R.Sifra_Obj = KO.Sifra_Obj
    Where R.Sifra_Pat=@Sifra_Pat and R.Datum = @Datum
    order by rbr
    Return @@ERROR









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisams_statusuredi]'))
drop procedure [dbo].[sp_podignisams_statusuredi]

Go

CREATE            PROCEDURE sp_PodigniSams_StatusUredi
    @Sams_UredId varchar(20),
    @Komanda varchar(10) output,
    @TekKorisnik varchar(20) output,
    @ImeKorisnik varchar(40) output,
    @SaldoKorisnik decimal(18, 6) output
As

Select @Komanda = Komanda, @TekKorisnik = Tek_Korisnik, @ImeKorisnik = ImeKor, @SaldoKorisnik = Novi_Limi - novi_promet from Sams_StatusUredi S
inner join ArkaKartKor AK on AK.Sifra_Kor = S.Tek_Korisnik
where Sams_UredId = @Sams_UredId

declare @NeraskSaldo as decimal(18, 6)
set @NeraskSaldo = 0
select @NeraskSaldo = sum(AK.Dolzi - AK.Pobaruva) from Arkakartkpm AK where AK.Sifra_Kor =  @TekKorisnik and AK.Rasknizen is null

If @NeraskSaldo <> 0
    set @SaldoKorisnik = @SaldoKorisnik - @NeraskSaldo

Return @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisamsslikaporaka]'))
drop procedure [dbo].[sp_podignisamsslikaporaka]

Go

create  PROCEDURE sp_PodigniSamsSlikaPoraka
    @Sifra_Art    varchar(20)
AS
    Select Sifra_Art, SlikaArt, ImeFile
    From KatSliki
    Where Sifra_Art=@Sifra_Art
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisamstemp]'))
drop procedure [dbo].[sp_podignisamstemp]

Go



CREATE  PROCEDURE sp_PodigniSamsTemp

as
select distinct S.sifra_kor, K.imekor from sams_temp S
inner join ArkaKartKor K on K.Sifra_Kor = S.Sifra_Kor





















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisamstempscan]'))
drop procedure [dbo].[sp_podignisamstempscan]

Go
CREATE PROCEDURE sp_PodigniSamsTempScan
    @Sifra_Kor as varchar(20) = null
as
    select S.Nom, S.Sifra_Art, S.Kolic, S.KratkaImeArt, S.Uces, S.DokCena, S.ImaKomerc, S.ProcOsn, S.Sifra_Tar, S.Rascisten, S.EdMera, S.DokVredn, null as drzimesto  from sams_temp S
    where S.Sifra_Kor = @Sifra_Kor




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisgrart]'))
drop procedure [dbo].[sp_podignisgrart]

Go




create      procedure sp_PodigniSgrart
    @Sif_GrArt varchar(20)
    --@Sifra_Kup varchar(6)
As
    Select KS.*,K.ImeArt from SGrArt KS
    left outer join KatArt K on KS.Sifra_Art=K.SIfra_Art
    Where KS.Sif_GrArt=@Sif_GrArt
    Order by KS.Sifra_Art --and KS.Sifra_Kup=@Sifra_Kup








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisgrkup]'))
drop procedure [dbo].[sp_podignisgrkup]

Go



CREATE     procedure sp_PodigniSgrKup
    @Sif_GrKup varchar(20)
    --@Sifra_Kup varchar(6)
As
    Select KS.*,K.ImeKup from SGrKup KS
    left outer join Komint K on KS.Sifra_Kup=K.SIfra_Kup
    Where KS.Sif_GrKup=@Sif_GrKup
    Order by KS.Sifra_Kup --and KS.Sifra_Kup=@Sifra_Kup







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisgrkupobj]'))
drop procedure [dbo].[sp_podignisgrkupobj]

Go
CREATE Procedure sp_PodigniSGrKupObj
    @Sif_GrKup varchar(20)
    --@Sifra_Kup varchar(6)
As
    Select KS.*, K.ImeKup, KO.ImeObj from SGrKupObj KS
    Left outer join Komint K on KS.Sifra_Kup=K.SIfra_Kup
    Left outer join Kobjekti KO on KS.Sifra_Kup=KO.Sifra_Kup and KS.Sifra_Obj=KO.Sifra_Obj
    Where KS.Sif_GrKup=@Sif_GrKup
    Order by KS.Sifra_Kup









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisigmaplus]'))
drop procedure [dbo].[sp_podignisigmaplus]

Go



CREATE    PROCEDURE sp_PodigniSigmaPlus
    @BrKasa    smallint,
    @Grp_Kasa smallint

AS
       SELECT '000', cast(BrKasa as varchar(6)) + cast(Broj_Ska as varchar(6))  ,Rbr, 0,Kolic,
    S.Cena,S.Cena,'1',S.Cena- (S.Cena * 0.18),0,Substring(Sifra_Podg,3,4) ,nom,S.Sifra_Art
    FROM sPromet S
    Inner Join Katart K on K.Sifra_Art=S.Sifra_Art
    Where BrKasa=@BrKasa and Grp_Kasa=@Grp_Kasa

   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisigmasells]'))
drop procedure [dbo].[sp_podignisigmasells]

Go




CREATE     PROCEDURE sp_PodigniSigmaSells
    @BrKasa    smallint,
    @Grp_Kasa smallint

AS


       SELECT L.Brkasa,L.Broj_Ska ,convert(varchar, P.DatumVreme, 104), convert(varchar, P.DatumVreme, 108),P.Sifra_Oper ,'""','""','""',1,
    Sum(Case when L.Iznos<0 then L.Iznos else 0 end)*-1 ,Sum(L.Iznos),1,Sum(Case when L.Sifra_Nac=1 then L.Iznos else 0 end),2,Sum(Case when L.Sifra_Nac=2 then L.Iznos else 0 end),
    3,Sum(Case when L.Sifra_Nac=3 then L.Iznos else 0 end),4,Sum(Case when L.Sifra_Nac=4 then L.Iznos else 0 end),'""',L.Broj_Ska,0
    FROM PlkProm L
    left outer Join Promet P on L.Sifra_Oe=P.Sifra_Oe and L.Grp_Kasa=P.Grp_Kasa and L.BrKasa=P.BrKasa and  L.Broj_Ska=P.Broj_Ska
    Where L.BrKasa=@BrKasa and L.Grp_Kasa=@Grp_Kasa
      Group By L.Sifra_Oe,L.Grp_Kasa,L.BrKasa,L.Broj_Ska,P.DatumVreme,P.Sifra_Oper

   IF @@ERROR=0
      IF @@ROWCOUNT=1
         RETURN 0
      ELSE
         RETURN 77000
   ELSE
      RETURN @@ERROR







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisitegstavodgknal]'))
drop procedure [dbo].[sp_podignisitegstavodgknal]

Go

CREATE    PROCEDURE  sp_PodigniSiteGStavOdGkNal
    @Sifra_Nal    Smallint,
    @Broj_Nal    Int
AS
    SELECT GStID FROM GStav
    WHERE Sifra_Nal = @Sifra_Nal and Broj_Nal = @Broj_Nal
    ORDER BY RbrNalog




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisiteorg]'))
drop procedure [dbo].[sp_podignisiteorg]

Go
CREATE PROCEDURE sp_PodigniSiteOrg
AS
    Select * From Orged



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisjazici]'))
drop procedure [dbo].[sp_podignisjazici]

Go

CREATE    PROCEDURE sp_PodigniSJazici
    @Sif_Rabot integer
AS
    SELECT Sif_Jazik FROM SJazik
    WHERE Sifra_Rab = @Sif_Rabot
    ORDER BY Sif_Jazik
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniskroznaka]'))
drop procedure [dbo].[sp_podigniskroznaka]

Go

CREATE  PROCEDURE sp_PodigniSkrOznaka
    @SkrOznaka    varchar(20),
    @SkrGrupa    char(1)
AS
    SELECT *  FROM SkrDok
    WHERE SkrOznaka = @SkrOznaka AND SkrGrupa=@SkrGrupa




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisledenbrojwbn_tnar]'))
drop procedure [dbo].[sp_podignisledenbrojwbn_tnar]

Go
CREATE PROCEDURE sp_PodigniSledenBrojWbn_TNar
    @Sifra_Oe Smallint,
    @Sifra_Nar Smallint
AS
    Select MAX(Broj_Nar) From Wbn_TNar Where Sifra_Oe=@Sifra_Oe and Sifra_Nar=@Sifra_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignismeni]'))
drop procedure [dbo].[sp_podignismeni]

Go

CREATE PROCEDURE sp_PodigniSmeni
    @Sifra_Smena    smallint
 AS
    Select Sifra_Smena, Ime_Smena, Aktivna
    From Smeni
    Where Sifra_Smena=@Sifra_Smena




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignismeniev]'))
drop procedure [dbo].[sp_podignismeniev]

Go
CREATE PROCEDURE sp_PodigniSmeniEv
    @BrSmena    smallint,
    @Datum_Evid    smalldatetime
 AS
    Select BrSmena, Datum_Evid, Datum_Otv, Datum_Zatv, Sifra_Oe, Sifra_Oper, Dozv_Oper
    From SmeniEv
    Where BrSmena=@BrSmena And Datum_Evid=@Datum_Evid




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisostav]'))
drop procedure [dbo].[sp_podignisostav]

Go

CREATE  procedure sp_PodigniSostav
    @Sifra_Art   varchar(20)
AS
    SELECT S.*,  SU.ImeArt ImeSur, SU.EdMera EdMeraSur
    FROM  Sostav S
    INNER JOIN KatArt  SU ON S.Sifra_Sur = SU.Sifra_Art
    WHERE  S.Sifra_Art = @Sifra_Art
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisostavboivel]'))
drop procedure [dbo].[sp_podignisostavboivel]

Go



create     PROCEDURE [dbo].[sp_PodigniSostavBoiVel]
  @Sifra_Art    varchar(20),
  @Sifra_Boja    smallint
AS
    SELECT S.*,  SU.ImeArt, B.ImeBoja FROM  SostavBoiVel S
    INNER JOIN KatArt SU ON S.Sifra_Art = SU.Sifra_Art
    INNER JOIN Boja B ON S.Sifra_Boja = B.Sifra_Boja
    WHERE S.Sifra_Boja = @Sifra_Boja AND S.Sifra_Art = @Sifra_Art
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisostavkontr]'))
drop procedure [dbo].[sp_podignisostavkontr]

Go




CREATE    PROCEDURE sp_PodigniSostavKontr
    @Sifra_Art varchar(20),
    @KontrSer varchar(25)
AS
SELECT S.*, A.ImeArt, SUR.ImeArt ImeSur, SUR.EdMera EdmeraSur FROM SostavKontr S
INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
INNER JOIN KatArt SUR ON S.Sifra_Sur=SUR.Sifra_Art
WHERE S.Sifra_Art=@Sifra_Art AND KontrSer=@KontrSer
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisostboivelstavki]'))
drop procedure [dbo].[sp_podignisostboivelstavki]

Go

CREATE    procedure [dbo].[sp_PodigniSostBoiVelStavki]
    @Sifra_Art   varchar(20),
    @Sifra_Boja   smallint,
    @DaliSurov    char(1)=NULL
AS
IF @DaliSurov IS NULL
    SELECT S.*,  SU.ImeArt ImeSur, B.ImeBoja ImeBojaSur, SU.Edmera
    FROM  SostavBoiVel S
    INNER JOIN KatArt  SU ON S.Sifra_Sur = SU.Sifra_Art
    LEFT OUTER JOIN Boja  B ON S.Sifra_Boja_Sur = B.Sifra_Boja
    WHERE  S.Sifra_Art = @Sifra_Art and  S.Sifra_Boja = @Sifra_Boja
ELSE
    SELECT S.*,  SU.ImeArt ImeSur, B.ImeBoja ImeBojaSur, SU.Edmera
    FROM  SostavBoiVel S
    INNER JOIN KatArt  SU ON S.Sifra_Sur = SU.Sifra_Art
    LEFT OUTER JOIN Boja  B ON S.Sifra_Boja_Sur = B.Sifra_Boja
    WHERE  S.Sifra_Art = @Sifra_Art and  S.Sifra_Boja = @Sifra_Boja AND SU.DaliSurov=@DaliSurov

  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignisostkor]'))
drop procedure [dbo].[sp_podignisostkor]

Go
CREATE     PROCEDURE sp_PodigniSostKor
AS
    Declare @Mesec as smalldatetime
    Declare @Godina as smalldatetime
    Set @Mesec = Month(GetDate())
    Set @Godina = Year(GetDate())
    Create Table #PromTekMes
    (
     Sifra_Kor    varchar(20),
     Promet        decimal(18,6)
    )
    Insert Into #PromTekMes
    Select Sifra_Kor, Sum(Dolzi)
    From KartProm
    Where Month(Datum_Ska) = @Mesec And Year(Datum_Ska) = @Godina
    Group By Sifra_Kor
    Select K.Sifra_Kor, Sum(K.Dolzi-K.Pobaruva) Saldo, M.Promet
    From KartProm K
    Left Outer Join #PromTekMes M On M.Sifra_Kor=K.Sifra_Kor
    Group By K.Sifra_Kor, M.Promet



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistaambal]'))
drop procedure [dbo].[sp_podignistaambal]

Go
CREATE PROCEDURE sp_PodigniStaAmbal
    @DokrID    int
AS
    Select S.DokrID, S.Sifra_Amb, S.Kolic, S.So_GAmb, A.ImeAmb, A.Sifra_GAmb, G.ImeAmb ImeGAmb
    From StaAmbal S
    Left Outer Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
    Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
    Where DokrID=@DokrID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistadokrodobr]'))
drop procedure [dbo].[sp_podignistadokrodobr]

Go




CREATE     PROCEDURE sp_PodigniStaDokrOdobr
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int

AS

    Select S.*, K.ImeArt, K.EdMera, K.ImaBroevi, K.ImaKomerc, T.ProcOsn as POsnOdArt, K.Sifra_Tar
    From StaDokrOdobr S
        Left Outer Join Katart K On S.Sifra_Art = K.Sifra_Art
        Left Outer Join Tarifi T On T.Sifra_Tar = K.Sifra_Tar
    Where Sifra_Oe = @Sifra_Oe and Sifra_Dok = @Sifra_Dok and Broj_dok = @Broj_Dok
        ORDER BY Rbr






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistadokrodobr_zadolz]'))
drop procedure [dbo].[sp_podignistadokrodobr_zadolz]

Go




CREATE      PROCEDURE sp_PodigniStaDokrOdobr_Zadolz
    @Sifra_OE smallint,
    @Sifra_Dok smallint,
    @Broj_Dok int,
    @NacinPresm varchar(3) = Null Output,
        @TekstPosle varchar(1500) = Null Output,
        @OdobrNeto decimal(18, 4) = Null Output,
        @OdobrBruto decimal(18, 4) = Null Output,
        @ImaDanok char(1) = Null Output
AS
    Declare @SSQL VArchar(4000)
    SELECT S.DokrID, S.Sifra_OE, S.Sifra_Dok, S.Broj_Dok, S.ImaDodatna, S.ZadolzDali, S.Datum_Dok,
        S.RBr, S.Sifra_Art, K.ImeArt, S.ImeMat, S.DanNacinPresm, S.VlIzl, S.Kolic, S.BaznaCena,
        S.ProcOz, S.EdOdobrNeto, S.OdobrNeto, S.POsn, S.OdobrBruto ,
        D.Sifra_Kup, Kup.ImeKup, D.Sifra_Obj, KO.ImeObj, K.Edmera, S.ImaDanok,
                Kup.Adresa, Kup.SMesto, Kup.Posta, KO.Adresa OAdresa, KO.SMesto OSMesto, KO.Posta OPosta
    FROM StaDokrOdobr S
    Inner Join Dokr D oN D.DokrID=S.DokrID
    Inner Join Katart K On K.Sifra_Art = S.Sifra_Art
    Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
    Left Outer Join Kobjekti KO On KO.Sifra_Kup = D.Sifra_Kup And KO.Sifra_Obj = D.Sifra_Obj
    WHERE S.Sifra_OE=@Sifra_OE And S.Sifra_Dok=@Sifra_Dok And S.Broj_Dok=@Broj_Dok
    Select @NacinPresm=NacinPresm
      From StaDokrOdobr S
    Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
        Select @TekstPosle=TekstPosle
      From Dokr D
    Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
        Select @OdobrNeto=Sum(OdobrNeto)
      From StaDokrOdobr S
    Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
        Select @OdobrBruto=Sum(OdobrBruto)
      From StaDokrOdobr S
    Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
        Select @ImaDanok=ImaDanok
      From StaDokrOdobr S
    Where Sifra_OE=@Sifra_OE And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac]'))
drop procedure [dbo].[sp_podignistanarac]

Go
CREATE                      PROCEDURE [dbo].[sp_PodigniStaNarac]
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar Int,
    @Podred    char(1)=NULL    --dod.16.12.09 L-po lokacii
AS
IF @Podred='L'
    SELECT N.StaNarID, N.NarID,    N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar,    N.RBr, N.Sifra_Art, N.Kolic, N.DokCena, N.MagCena,
    N.POsn, N.PTar, N.Uces, N.DanDokCena, N.DanMagCena,    N.CenaIznos, N.ImeMat, N.EdMera, N.Realiziran, N.Realiz_Na,
    N.DokrID, A.ImeArt, A.EdMera as SEdMera, A.Lokacija, A.DogCena, A.MalCena, N.Kutija_Br, N.NarIdOdNar, N.CarProc, N.DrugiTros,
    N.SrednaNabC, N.TekProdC, N.PrifPredlog,S.NNabcena, S.Vlez - S.Izlez as TekSostojba, A.Sifra_Podg, P.Marza_Gol, P.Marza_Mal,
    N.TekNabC, N.DokNabC, N.Realiz_Kolic, N.Paketi, N.KontrSer, UcesOsn, UcesKol, UcesDod, Alt_Kolic, A.SMatUsl, N.Kolic_BO,
    N.RealFlag_KBO, A.Tezina, N.KolicOdZal, N.SIfra_CRR, N.Sifra_Boja, N.Sifra_Velic, B.ImeBoja, V.ImeVelic, N.Sifra_KatStatus, N.Lokacija NarLokac, N.Ozn_Dekl,
    '' BarKod, '' Ime_LayOutUnit
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN PODGRUPI P  on P.sifra_podg = A.SifrA_podg
    LEFT OUTER JOIN SOART S ON S.Sifra_oe = N.Sifra_oe and S.Sifra_Art = N.SifrA_art
    LEFT OUTER JOIN Boja B ON N.Sifra_Boja=B.Sifra_Boja
    LEFT OUTER JOIN Velicina V ON N.Sifra_Velic=V.Sifra_Velic
    WHERE N.Sifra_OE=@Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
    ORDER BY A.Lokacija
ELSE
    SELECT N.StaNarID, N.NarID,    N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar,    N.RBr, N.Sifra_Art, N.Kolic, N.DokCena, N.MagCena,
    N.POsn, N.PTar, N.Uces, N.DanDokCena, N.DanMagCena,    N.CenaIznos, N.ImeMat, N.EdMera, N.Realiziran, N.Realiz_Na,
    N.DokrID, A.ImeArt, A.EdMera as SEdMera, A.Lokacija, A.DogCena, A.MalCena, N.Kutija_Br, N.NarIdOdNar, N.CarProc, N.DrugiTros,
    N.SrednaNabC, N.TekProdC, N.PrifPredlog,S.NNabcena, S.Vlez - S.Izlez as TekSostojba, A.Sifra_Podg, P.Marza_Gol, P.Marza_Mal,
    N.TekNabC, N.DokNabC, N.Realiz_Kolic, N.Paketi, N.KontrSer, UcesOsn, UcesKol, UcesDod, Alt_Kolic, A.SMatUsl, N.Kolic_BO,
    N.RealFlag_KBO, A.Tezina, N.KolicOdZal, N.SIfra_CRR, N.Sifra_Boja, N.Sifra_Velic, B.ImeBoja, V.ImeVelic, N.Sifra_KatStatus, N.Lokacija NarLokac, N.Ozn_Dekl,
    '' BarKod, '' Ime_LayOutUnit
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN PODGRUPI P  on P.sifra_podg = A.SifrA_podg
    LEFT OUTER JOIN SOART S ON S.Sifra_oe = N.Sifra_oe and S.Sifra_Art = N.SifrA_art
    LEFT OUTER JOIN Boja B ON N.Sifra_Boja=B.Sifra_Boja
    LEFT OUTER JOIN Velicina V ON N.Sifra_Velic=V.Sifra_Velic
    WHERE N.Sifra_OE=@Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
    ORDER BY Rbr
    RETURN @@Error












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac_lista]'))
drop procedure [dbo].[sp_podignistanarac_lista]

Go
CREATE    PROCEDURE sp_PodigniStaNarac_Lista
    @Sifra_OE Smallint,
    @Sifra_Nar Smallint,
    @Broj_Nar_Lista varchar (50)
AS
    Declare @SSQL Varchar    (8000)
    Create Table #Art
    (
     Broj_Nar    Smallint,
     Rbr        Smallint,
     Sifra_Art    Varchar(20)
    )
    Set @SSQL = ' Insert Into #Art Select Min(Broj_Nar), Min(StaNarID), Sifra_Art
            From StaNarac
             WHERE Sifra_OE='  + cast(@Sifra_OE as varchar (5)) +
                            ' And Sifra_Nar=' + cast(@Sifra_Nar as Varchar(5)) +
                            ' And Broj_Nar in (' + @Broj_Nar_Lista + ')
                        group by Sifra_Art'
    Exec(@SSQL)
    set @SSQL = ' SELECT S.Sifra_art, K.ImeArt, sum (S.Kolic) as Kolic
            FROM [StaNarac] S
            INNER JOIN KatArt K  ON S.Sifra_Art = K.Sifra_Art
            INNER JOIN #Art A  ON S.Sifra_Art = A.Sifra_Art
            WHERE S.Sifra_OE='  + cast(@Sifra_OE as varchar (5)) +
                            ' And S.Sifra_Nar=' + cast(@Sifra_Nar as Varchar(5)) +
                            ' And S.Broj_Nar in (' + @Broj_Nar_Lista + ')
                        group by S.Sifra_Art, K.ImeArt, A.Rbr, A.Broj_Nar
        Order By A.Broj_Nar, A.Rbr'
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac_lokacija]'))
drop procedure [dbo].[sp_podignistanarac_lokacija]

Go






CREATE                    PROCEDURE sp_PodigniStaNarac_Lokacija
    @Sifra_OE     Smallint,
    @Sifra_Nar    Smallint,
    @Broj_Nar     Int,
    @Lokacija    varchar(10),
    @Sifra_OE_ZaCeni smallint,
    @DajZalPoLot char(1)='N',
    @Podred    char(1)    = 'R'        --R-rbr,P-podgrupa,L-lokacija
AS
CREATE TABLE #TmpZalPoLot
(Sifra_Art    varchar(20),
LotBr        varchar(50),
Sostojba    decimal(18,4))
IF @DajZalPoLot='D'
Begin
    IF @Lokacija IS NULL
        INSERT INTO #TmpZalPoLot (Sifra_Art, LotBr) SELECT S.Sifra_Art, MIN(M.LotBr) FROM StaNarac S
        LEFT OUTER JOIN SoMag M ON M.Sifra_OE=@Sifra_OE_ZaCeni AND S.Sifra_Art=M.Sifra_Art
        WHERE S.Sifra_Oe=@Sifra_Oe AND S.Sifra_Nar=@Sifra_Nar AND S.Broj_Nar=@Broj_Nar AND M.Sostojba>0
        GROUP BY S.Sifra_Art
    ELSE
    Begin
        INSERT INTO #TmpZalPoLot (Sifra_Art, LotBr) SELECT DISTINCT S.Sifra_Art, MIN(M.LotBr) FROM StaNarac S INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
        LEFT OUTER JOIN SoMag M ON M.Sifra_OE=@Sifra_OE_ZaCeni AND S.Sifra_Art=M.Sifra_Art
        WHERE S.Sifra_Oe=@Sifra_Oe AND S.Sifra_Nar=@Sifra_Nar AND S.Broj_Nar=@Broj_Nar AND A.Lokacija=@Lokacija AND M.Sostojba>0
        GROUP BY S.Sifra_Art

        UPDATE #TmpZalPoLot SET Sostojba=M.Sostojba FROM SoMag M WHERE M.Sifra_OE=@Sifra_OE AND #TmpZalPoLot.Sifra_Art=M.Sifra_Art AND #TmpZalPoLot.LotBr=M.LotBr
    End
End
IF @Podred='P'
BEGIN  --\--
IF @Lokacija IS NULL
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
    ORDER BY A.Sifra_Podg
ELSE
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar And A.Lokacija=@Lokacija
    ORDER BY A.Sifra_Podg
END     --\--
ELSE IF @Podred='L'
BEGIN  --\-
IF @Lokacija IS NULL
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
    ORDER BY A.Lokacija
ELSE
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar And A.Lokacija=@Lokacija
    ORDER BY A.Lokacija
END     --\-
ELSE
BEGIN  ---
IF @Lokacija IS NULL
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
    ORDER BY N.Rbr
ELSE
    SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
    FROM StaNarac N
    INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
    LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
    LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
    WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar And A.Lokacija=@Lokacija
    ORDER BY N.Rbr
END     ---
RETURN @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac_mob]'))
drop procedure [dbo].[sp_podignistanarac_mob]

Go




CREATE     PROCEDURE sp_PodigniStaNarac_Mob
    @Sifra_OE     Smallint,
    @Sifra_Nar    Smallint,
    @Broj_Nar     Int,
    @Lokacija    varchar(10),
    @Sifra_OE_ZaCeni smallint
AS

SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, N.DanDokCena, N.UcesOsn, N.UcesDod, N.UcesKol,
A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Rok, N.KontrSer
FROM StaNarac N INNER JOIN Naracki Nar ON N.NarID=Nar.NarID
INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
ORDER BY N.Rbr

    RETURN @@Error








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac_mobpotv]'))
drop procedure [dbo].[sp_podignistanarac_mobpotv]

Go






CREATE       PROCEDURE sp_PodigniStaNarac_MobPotv
    @Sifra_OE     Smallint,
    @Sifra_Nar    Smallint,
    @Broj_Nar     Int,
    @Lokacija    varchar(10)
AS

SELECT N.RBr, N.Sifra_Art, N.Kolic_BO Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, N.DanDokCena, N.UcesOsn, N.UcesDod, N.UcesKol,
A.ImeArt, A.EdMera, A.ImaKomerc, Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Rok, N.KontrSer
FROM StaNarac N INNER JOIN Naracki Nar ON N.NarID=Nar.NarID
INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar AND N.Lokacija=@Lokacija AND Kolic_BO>0 AND Odobril IS NOT NULL
ORDER BY N.Rbr










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanarac_povlokacii]'))
drop procedure [dbo].[sp_podignistanarac_povlokacii]

Go






CREATE                  PROCEDURE sp_PodigniStaNarac_PovLokacii
    @Sifra_OE     Smallint,
    @Sifra_Nar    Smallint,
    @Broj_Nar     Int,
    @Lokacija    varchar(50),        --moze pov.lokacii
    @Sifra_OE_ZaCeni smallint,
    @DajZalPoLot char(1)='N',
    @Podred    char(1)    = 'R'        --R-rbr,P-podgrupa,L-lokacija
AS
CREATE TABLE #TmpZalPoLot
(Sifra_Art    varchar(20),
LotBr        varchar(50),
Sostojba    decimal(18,4))
Declare @SSQL as varchar(3000)

    IF @DajZalPoLot='D'
    Begin
        IF @Lokacija IS NULL
            INSERT INTO #TmpZalPoLot (Sifra_Art, LotBr) SELECT S.Sifra_Art, MIN(M.LotBr) FROM StaNarac S
            LEFT OUTER JOIN SoMag M ON M.Sifra_OE=@Sifra_OE_ZaCeni AND S.Sifra_Art=M.Sifra_Art
            WHERE S.Sifra_Oe=@Sifra_Oe AND S.Sifra_Nar=@Sifra_Nar AND S.Broj_Nar=@Broj_Nar AND M.Sostojba>0
            GROUP BY S.Sifra_Art
        ELSE
        Begin
            INSERT INTO #TmpZalPoLot (Sifra_Art, LotBr) EXEC (@SSQL)
            SET @SSQL='SELECT DISTINCT S.Sifra_Art, MIN(M.LotBr) FROM StaNarac S INNER JOIN KatArt A ON S.Sifra_Art=A.Sifra_Art
            LEFT OUTER JOIN SoMag M ON M.Sifra_OE='+ cast(@Sifra_OE_ZaCeni as varchar(5)) +' AND S.Sifra_Art=M.Sifra_Art
            WHERE S.Sifra_Oe='+ cast(@Sifra_Oe as varchar(5)) +' AND S.Sifra_Nar='+ cast(@Sifra_Nar as varchar(5)) +
            ' AND S.Broj_Nar='+ cast(@Broj_Nar as varchar(10)) +' AND A.Lokacija IN ('+ @Lokacija +') AND M.Sostojba>0 GROUP BY S.Sifra_Art'

            UPDATE #TmpZalPoLot SET Sostojba=M.Sostojba FROM SoMag M WHERE M.Sifra_OE=@Sifra_OE AND #TmpZalPoLot.Sifra_Art=M.Sifra_Art AND #TmpZalPoLot.LotBr=M.LotBr
        End
    End

    IF @Lokacija IS NULL
    BEGIN
    If @podred = 'P'
        SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
        FROM StaNarac N
        INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
        LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
        LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
        WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
        ORDER BY A.Sifra_podg
    ELSE If @podred = 'L'
        SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
        FROM StaNarac N
        INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
        LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
        LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
        WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
        ORDER BY A.Lokacija
    ELSE
        SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
        FROM StaNarac N
        INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
        LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE=@Sifra_OE_ZaCeni
        LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
        WHERE N.Sifra_OE= @Sifra_OE And N.Sifra_Nar=@Sifra_Nar And N.Broj_Nar=@Broj_Nar
        ORDER BY N.RBR
    END
    ELSE
        BEGIN
        SET @SSQL='SELECT N.RBr, N.Sifra_Art, N.Kolic, N.Paketi, N.DokCena, N.Uces, N.Posn, N.PTar, A.ImeArt, A.EdMera, A.ImaKomerc, S.Cena, S.DanCena, M.LotBr, M.Sostojba,N.UcesOsn,N.UcesKol,N.UcesDod
        FROM StaNarac N
        INNER JOIN KatArt  A  ON N.Sifra_Art = A.Sifra_Art
        LEFT OUTER JOIN SoArt S ON N.Sifra_art = S.Sifra_Art AND S.Sifra_OE='+ cast(@Sifra_OE_ZaCeni as varchar(10)) +'
        LEFT OUTER JOIN #TmpZalPoLot M ON N.Sifra_Art=M.Sifra_Art
        WHERE N.Sifra_OE='+ cast(@Sifra_OE as varchar(10)) +' And N.Sifra_Nar='+ cast(@Sifra_Nar as varchar(10)) +
        ' And N.Broj_Nar='+ cast(@Broj_Nar as varchar(10)) +' And A.Lokacija IN ('+@Lokacija+') '
        IF @podred = 'P'
                SET @SSQL = @SSQL + 'ORDER BY A.Sifra_Podg'
        ELSE IF @podred = 'P'
                SET @SSQL = @SSQL + 'ORDER BY A.Lokacija'
        ELSE
                SET @SSQL = @SSQL + 'ORDER BY N.Rbr'

        EXEC (@SSQL)
        END

    RETURN @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistanaracreal]'))
drop procedure [dbo].[sp_podignistanaracreal]

Go
CREATE PROCEDURE sp_PodigniStaNaracReal
    @NarId        int,
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6) Output,
    @Kolic_BO    decimal(18,6) Output,
    @Sifra_Nar    smallint Output,
    @DokrID    int Output,
    @Datum_Real    smalldatetime Output,
    @Opis_Real    nvarchar(50) Output,
    @Ozn_Real    char(1) Output
AS
    Select @Kolic=Kolic, @Kolic_BO=Kolic_BO, @Sifra_Nar=Sifra_Nar, @DokrID=DokrID, @Datum_Real=Datum_Real, @Opis_Real=Opis_Real, @Ozn_Real=Ozn_Real
    From StaNaracReal
    Where NarId=@NarID And Sifra_Art=@Sifra_Art
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistaodobr]'))
drop procedure [dbo].[sp_podignistaodobr]

Go

CREATE           PROCEDURE sp_PodigniStaOdobr
    @AnID_Odob int
AS
SELECT S.*, F.Sifra_Oe, F.Sifra_Dok, F.Broj_Dok, F.Datum_Dok, F.Rok, F.Plateno_Dolzi
FROM StaOdobr S INNER JOIN AnFinDok F ON S.AnID_Fak=F.AnID
WHERE S.AnID_Odob= @AnID_Odob




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistapozic]'))
drop procedure [dbo].[sp_podignistapozic]

Go


CREATE  PROCEDURE sp_PodigniStaPozic
    @Sifra_Oe smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int

AS

    select SP.*, PP.ImePoz, PP.EdMeraPoz, PP.Sifra_Art
    From StaPozic SP
    inner Join ProektPoz PP
        on SP.Broj_Proekt = PP.Broj_Proekt and SP.PozId = PP.PozId
    Where Sifra_Oe = @Sifra_Oe and Sifra_Nar = @Sifra_Nar and Broj_Nar = @Broj_Nar
    Order By space(5 - len(rtrim(SP.Nivo1))) + rtrim(SP.Nivo1),
         space(5 - len(rtrim(SP.Nivo2))) + rtrim(SP.Nivo2),
         space(5 - len(rtrim(SP.Nivo3))) + rtrim(SP.Nivo3),
         space(5 - len(rtrim(SP.Nivo4))) + rtrim(SP.Nivo4),
         space(5 - len(rtrim(SP.Nivo5))) + rtrim(SP.Nivo5),
         space(5 - len(rtrim(SP.Nivo6))) + rtrim(SP.Nivo6),
         space(5 - len(rtrim(SP.Nivo7))) + rtrim(SP.Nivo7)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistaprodmest]'))
drop procedure [dbo].[sp_podignistaprodmest]

Go





CREATE             PROCEDURE sp_PodigniStaProdMest
    @Broj_Dok Int
AS
    SELECT S.Broj_Dok, S.Sifra_Mest, S.Datum_Dok, S.Opis OpisOdStaPrMest, S.Sifra_Kup, S.Sifra_Obj, S.VlIzlPros, S.Iznos,
         PM.Opis OpisOdPrMest, KUP.ImeKup, KO.ImeObj, S.Sifra_Ser, S.Identif_Br, K.ImeKup ImeSer,
                 PM.Proizv, PR.ImeKup ImeProizv, PM.Godina, PM.Dimenzii, PM.Led, PM.Zabel, Kup.Adresa, PR.Adresa PrAdresa, K.Adresa SerAdresa,
                 PM.Litri, PM.BrMotor, PM.BarKod, PM.Sif_TipProdM, TPM.ImeTipProdM, PM.Opis2
    FROM StaProdMest S
    INNER JOIN ProdMest PM On PM.Sifra_Mest = S.Sifra_Mest
    LEFT OUTER JOIN Komint KUP On KUP.Sifra_Kup = S.Sifra_Kup
        LEFT OUTER JOIN Komint PR On PR.Sifra_Kup = PM.Proizv
    LEFT OUTER JOIN Komint K On K.Sifra_Kup =S.Sifra_Ser
    LEFT OUTER JOIN KObjekti KO On KO.Sifra_Kup = S.Sifra_Kup and KO.Sifra_Obj = S.Sifra_Obj
        LEFT OUTER JOIN TipProdMesto TPM On TPM.Sif_TipProdM = PM.Sif_TipProdM
    WHERE  Broj_Dok=@Broj_Dok
 RETURN @@Error







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistarabnal]'))
drop procedure [dbo].[sp_podignistarabnal]

Go




CREATE     PROCEDURE [dbo].[sp_PodigniStaRabNal]
     @RabNalID integer
AS
    SELECT S.RabNalID, S.Sifra_Art, K.ImeArt, K.EdMera, S.Kolic, S.Cena,
        KontrSer, Kolic_Repro, Proizv_EdVreme, Potros_EdVreme, Sir_Hilz, Opis_StaRab, Proc_Proiz_Od_Repro,
        Proc_Skart_Plan, Kolic_Energ_Aktuel, Kolic_Energ_Alt_Aktuel, Kolic_Skart_Aktuel,Ozn_Dekl, T.ProcOsn, T.Sifra_Tar, K.Lokacija
    FROM StaRabNal S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    INNER JOIN Tarifi T ON T.Sifra_Tar=K.Sifra_Tar
    WHERE RabNalID = @RabNalID
    ORDER BY S.SRNID







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistarabnalboivel]'))
drop procedure [dbo].[sp_podignistarabnalboivel]

Go




CREATE     PROCEDURE sp_PodigniStaRabNalBoiVel
    @RabNalID    int
AS
SELECT S.RabNalID, S.SRNID, S.Sifra_Boja, S.Sifra_Velic, S.Kolicina, B.ImeBoja SkrImeBoja, V.ImeVelic SkrImeVelic, RS.Sifra_Art, RS.Cena, RS.Opis_StaRab, A.ImeArt, A.EdMera, A.Sifra_Tar, T.ProcOsn
FROM StaRabNalVelicBoja S
INNER JOIN StaRabNal RS ON S.SRNID=RS.SRNID
INNER JOIN KatArt A ON A.Sifra_Art=RS.Sifra_Art
INNER JOIN Tarifi T ON T.Sifra_Tar=A.Sifra_Tar
LEFT OUTER JOIN Boja B ON S.Sifra_Boja=B.Sifra_Boja
LEFT OUTER JOIN Velicina V ON S.Sifra_Velic=V.Sifra_Velic
WHERE S.RabNalID = @RabNalID






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistarabnalvelicboja]'))
drop procedure [dbo].[sp_podignistarabnalvelicboja]

Go



CREATE    PROCEDURE sp_PodigniStaRabNalVelicBoja
    @RabNalID integer
AS
    SELECT S.RabNalID, S.Sifra_Art, K.ImeArt, K.EdMera, Sum(VB.Kolicina) Kolicina, S.Cena,VB.Sifra_Boja,
        KontrSer, Kolic_Repro, Proizv_EdVreme, Potros_EdVreme, Sir_Hilz, Opis_StaRab, Proc_Proiz_Od_Repro,
        Proc_Skart_Plan, Kolic_Energ_Aktuel, Kolic_Energ_Alt_Aktuel, Kolic_Skart_Aktuel
    FROM StaRabNal S
    INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
    inner join StaRabNalVelicBoja VB on VB.RabNalID=S.RabNalID
    WHERE S.RabNalID = @RabNalID
    GROUP BY S.RabNalID, S.Sifra_Art, K.ImeArt, K.EdMera,S.Cena,VB.Sifra_Boja, KontrSer, Kolic_Repro, Proizv_EdVreme, Potros_EdVreme, Sir_Hilz, Opis_StaRab, Proc_Proiz_Od_Repro,
        Proc_Skart_Plan, Kolic_Energ_Aktuel, Kolic_Energ_Alt_Aktuel, Kolic_Skart_Aktuel,  S.SRNID
    ORDER BY S.SRNID






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistarabnkarakt]'))
drop procedure [dbo].[sp_podignistarabnkarakt]

Go


CREATE  PROCEDURE sp_PodigniStaRabNKarakt

    @RabNalId int

AS

    SELECT S.*, K.ImeArt, Kar.SkrOzn
        FROM StaRabN_Karakt S
        INNER JOIN KatArt K ON S.Sifra_Art = K.Sifra_Art
    left outer join Karakterist Kar on S.Sifra_Karakt = Kar.Sifra_Karakt
        WHERE S.RabNalID = @RabNalId





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistavosnsred]'))
drop procedure [dbo].[sp_podignistavosnsred]

Go





CREATE      PROCEDURE [dbo].[sp_PodigniStavOSnSred]
    @DokOID        int
AS
    Select S.DokOID, S.StaOID, S.Inv_Broj, S.Datum_Dok, S.Tip_StaOsn, S.VlIzl, S.Sifra_MikLok, S.RedTrans, S.Osn_Amor, S.Otpis_Pret, S.Sifra_MikLok_Od,
    S.Sifra_Rab, S.Sifra_RabOd, O.DatNab, O.Ime, P.Osn_Amor PocOsnAmor, P.Otpis_Pret PocOtpis, O.DatAkt,
        S.Sifra_Div, S.Sifra_Div_Od, S.Sifra_TrosM, S.Sifra_TrosM_Od, S.Sifra_TrosV, S.Sifra_TrosV_Od,
S.oss_otpis_pret,
S.oss_sifra_amor,
S.oss_kto_anal,
S.oss_osn_amor,
P.oss_Osn_Amor ossPocOsnAmor,
P.oss_otpis_pret ossPocOtpis

    From StavOsnSred S INNER JOIN OsnSred O ON S.Inv_broj=O.Inv_Broj
    Left Outer Join PocSostOsn P ON P.Inv_Broj = S.Inv_Broj AND P.Godina = S.Delov_God
    Where S.DokOID=@DokOID ORDER BY S.StaOID
    Return @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistavr_dokridart]'))
drop procedure [dbo].[sp_podignistavr_dokridart]

Go





CREATE    PROCEDURE sp_PodigniStavr_DokrIDArt
    @DokrID    int,
    @Sifra_Art    varchar(20)
AS
    Select * From Stavr Where DokrID=@DokrID AND Sifra_Art=@Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignistavrzaetikrokovi]'))
drop procedure [dbo].[sp_podignistavrzaetikrokovi]

Go


CREATE     PROCEDURE sp_PodigniStavrZaEtikRokovi
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Sifra_ArtOd varchar(20) = NULL,
    @Sifra_ArtDo varchar(20) = NULL
AS
Declare @SSQL varchar(3000)

SET @SSQL = 'SELECT S.Sifra_Art, S.Kolic, 1 AS Paketi, K.ImeArt, K.RokTraDen, K.DeklArt, K.EdMera, K.ImaKomerc, K.Nom,
    ''L''+Substring(S.Sifra_Art,1,6)+CASE Substring(S.KontrSer,1,3) WHEN ''KK>'' THEN Substring(S.KontrSer,4,22) ELSE Substring(S.KontrSer,12,2)+Substring(S.KontrSer,7,2)+Substring(S.KontrSer,4,2)+Substring(S.KontrSer,14,12) END SpecOzn,
    CASE Substring(S.KontrSer,1,3) WHEN ''KK>'' THEN Substring(S.KontrSer,4,22) ELSE Substring(S.KontrSer,12,2)+Substring(S.KontrSer,7,2)+Substring(S.KontrSer,4,2)+Substring(S.KontrSer,14,12) END LotBr
    FROM Stavr S Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    WHERE S.Sifra_Oe='+cast(@Sifra_Oe as varchar(5))+' And S.Sifra_Dok='+Cast(@Sifra_Dok as varchar(5))+
    ' And S.Broj_Dok='+cast(@Broj_Dok as varchar(8))+ ' AND S.KontrSer IS NOT NULL '
IF @Sifra_ArtOd IS NOT NULL
    SET @SSQL = @SSQL +' AND S.Sifra_Art >='''+@Sifra_ArtOd+''' '
IF @Sifra_ArtDo IS NOT NULL
    SET @SSQL = @SSQL +' AND S.Sifra_Art <='''+@Sifra_ArtDo+''' '
SET @SSQL = @SSQL +' ORDER BY S.DokID'
EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitabela]'))
drop procedure [dbo].[sp_podignitabela]

Go
CREATE                PROCEDURE sp_PodigniTabela
   @Tabela Varchar(20)
AS
    Declare @SSQL as varchar(2000)
    If @Tabela Is Not Null
        Set @SSQL = ' SELECT * FROM ' + @Tabela
    Exec(@SSQL)
    IF @@ROWCOUNT = 0
        RETURN 77000
    ELSE
        RETURN 0



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitarifa]'))
drop procedure [dbo].[sp_podignitarifa]

Go

CREATE PROCEDURE sp_PodigniTarifa
    @Sifra_Tar char(3)
AS
    SELECT * FROM Tarifi
    WHERE Sifra_Tar = @Sifra_Tar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitekstsmetki]'))
drop procedure [dbo].[sp_podignitekstsmetki]

Go


CREATE   PROCEDURE sp_PodigniTekstSmetki

    @Kade        varchar(10)
 AS

    Select Kade, Rbr, Tekst
    From TekstSmetki
    Where Kade=@Kade
    Order By Rbr





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitipartzal]'))
drop procedure [dbo].[sp_podignitipartzal]

Go

CREATE PROCEDURE [dbo].[sp_PodigniTipArtZal]
    @Sifra_TipArtZal    smallint = NULL

AS

    IF @Sifra_TipArtZal IS NOT NULL
        SELECT    *
        FROM    TipArtZal
        WHERE    Sifra_TipArtZal = @Sifra_TipArtZal
    ELSE
        SELECT    *
        FROM    TipArtZal
        ORDER BY Sifra_TipArtZal

    RETURN @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitipdok]'))
drop procedure [dbo].[sp_podignitipdok]

Go
CREATE     PROCEDURE sp_PodigniTipDok
AS
    SELECT Sifra_Dok, ImeDok, Sifra_Za, Dev, Vl_Izl, AnalKupDob FROM TipDok
           order by sifra_dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitipdokposifra_dok]'))
drop procedure [dbo].[sp_podignitipdokposifra_dok]

Go

Create   PROCEDURE sp_PodigniTipDokPoSifra_Dok
    @Sifra_Dok        int
AS
    SELECT *
    FROM TipDok
    Where Sifra_Dok = @Sifra_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitipkarakt]'))
drop procedure [dbo].[sp_podignitipkarakt]

Go
CREATE PROCEDURE sp_PodigniTipKarakt
    @Sifra_7    SMALLINT
AS
    SELECT * FROM TipKarakt
    WHERE Sifra_7=@Sifra_7




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitippercenvaziza]'))
drop procedure [dbo].[sp_podignitippercenvaziza]

Go
CREATE PROCEDURE sp_PodigniTipPerCenVaziZa
    @Sifra_TipC Smallint
AS
    SELECT T.*, O.ImeOrg, G.Ime_GrOrg
    FROM TipPerCenVaziZa T
    INNER JOIN Orged O On O.Sifra_Oe = T.Sifra_Oe
    LEFT OUTER JOIN GrOrg G ON T.Sif_GrOrg=G.Sif_GrOrg
    Where Sifra_TipC=@Sifra_TipC
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmaneks]'))
drop procedure [dbo].[sp_podignitmaneks]

Go



CREATE      PROCEDURE sp_PodigniTmAneks
    @Sifra_Oe    smallint,
    @BrojBaranje    int,
    @BrojPrilog    int,
    @Sifra_Aneks    int
AS
    SELECT * FROM tmAneks
    WHERE     Sifra_Oe = @Sifra_Oe AND BrojBaranje = @BrojBaranje AND BrojPrilog = @BrojPrilog AND Sifra_Aneks = @Sifra_Aneks
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmbaranje]'))
drop procedure [dbo].[sp_podignitmbaranje]

Go

CREATE   PROCEDURE sp_PodigniTmBaranje
    @Sifra_OE         smallint,
    @BrojBaranje         int
AS
    SELECT * from tmBaranje where Sifra_Oe=@Sifra_Oe and BrojBaranje=@BrojBaranje
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmbaranje_datum]'))
drop procedure [dbo].[sp_podignitmbaranje_datum]

Go
CREATE PROCEDURE sp_PodigniTmBaranje_Datum
    @Sifra_Oe    smallint,
    @DatumBar    smalldatetime
AS
    Select * From tmBaranje
    Where Sifra_Oe=@Sifra_Oe And DatumBar=@DatumBar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmpdistitems]'))
drop procedure [dbo].[sp_podignitmpdistitems]

Go

CREATE PROCEDURE sp_PodigniTmpDistItems
AS
    SELECT DISTINCT Cst_Code As ISifra_Kup, Doc_No As BrDok, Agent as Sifra_OE
    FROM TmpItems




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmpitems]'))
drop procedure [dbo].[sp_podignitmpitems]

Go

CREATE PROCEDURE sp_PodigniTmpItems
    @Doc_no    varchar(30),
    @Agent        varchar(4),
    @Poz        char(1) = 'D'
AS
    Declare @SSQL varchar(2000)
    Set @SSQL = 'SELECT I.Cst_Code As ISifra_Kup, I.Item_Code As Sifra_Art, K.Sifra_Tar, T.ProcOsn, I.Quantity As Kolic, I.Value as Vred,
    I.Discount as Popust, I.Doc_No As BrDok, I.Agent as Sifra_OE, KK.Sifra_Kup as Sifra_Kup, I.Trans_date as Datum_dok
    FROM TmpItems I
    LEFT OUTER JOIN KatArt K ON K.Sifra_Art = I.Item_Code
    LEFT OUTER JOIN Tarifi T ON T.Sifra_tar = K.Sifra_Tar
    LEFT OUTER JOIN Komint KK ON I.Cst_Code = KK.Sifra_Kup
    WHERE I.Doc_No = ''' + @Doc_no + ''' AND I.Agent = ''' + @Agent + ''' AND '
    If @Poz = 'D'
        Set @SSQL = @SSQL + 'I.Quantity > 0 '
    Else
        Set @SSQL = @SSQL + 'I.Quantity < 0 '
EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmsim]'))
drop procedure [dbo].[sp_podignitmsim]

Go
CREATE   PROCEDURE sp_PodigniTmSim
    @Sifra_OE         smallint,
    @BrojBaranje         int,
    @BrojPrilog         int
AS
    SELECT * from tmSim where Sifra_Oe=@Sifra_Oe and BrojBaranje=@BrojBaranje and BrojPrilog=@BrojPrilog
RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmsim_opcusl]'))
drop procedure [dbo].[sp_podignitmsim_opcusl]

Go
CREATE   PROCEDURE sp_PodigniTmSim_OpcUsl
    @Sifra_OE     smallint,
    @BrojBaranje    int,
    @BrojPrilog    int
AS
    Select * From TmSim_OpcUsl
    Where Sifra_OE=@Sifra_Oe And BrojBaranje=@BrojBaranje And BrojPrilog=@BrojPrilog
    RETURN @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmtarifmodel]'))
drop procedure [dbo].[sp_podignitmtarifmodel]

Go
CREATE  PROCEDURE sp_PodigniTmTarifModel
    @Sifra_TarifModel    smallint
AS
    SELECT * from tmTarifModel where Sifra_TarifModel=@Sifra_TarifModel
RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmtel]'))
drop procedure [dbo].[sp_podignitmtel]

Go
CREATE  PROCEDURE sp_PodigniTmTel
    @Sifra_Tel    int
AS
    Select * From TmTel
    Where Sifra_Tel=@Sifra_Tel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmuslugi]'))
drop procedure [dbo].[sp_podignitmuslugi]

Go
CREATE PROCEDURE sp_PodigniTmUslugi
    @Sifra_TmUsl    smallint
AS
    Select * From TmUslugi
    Where Sifra_TmUsl=@Sifra_TmUsl



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitmuslugi_site]'))
drop procedure [dbo].[sp_podignitmuslugi_site]

Go
create PROCEDURE sp_podignitmuslugi_site
AS
    select * from TmUslugi
    order by Sifra_TmUsl ASC




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitransnal]'))
drop procedure [dbo].[sp_podignitransnal]

Go
CREATE PROCEDURE sp_PodigniTransNal
    @Sifra_Oe    smallint,
    @Broj_Trans    int
AS
    Select Sifra_Oe, Broj_Trans, Sifra_Prev, Vozilo, Vozac, Krajna_Dest, Oddalecenost, Br_Istov_Mesta, Datum_TransNal, Sifra_Vid_Voz
    From TransNal     Where Sifra_Oe=@Sifra_Oe and Broj_Trans=@Broj_Trans



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitransnalstav]'))
drop procedure [dbo].[sp_podignitransnalstav]

Go
CREATE PROCEDURE sp_PodigniTransNalStav
    @Sifra_Oe    smallint,
    @Broj_Trans    int
AS
    Select S.Sifra_Oe, S.Broj_Trans, S.DokrID, S.Opis, D.Sifra_OE OEDok, D.Sifra_Dok, D.Broj_Dok,
    D.Datum_Dok, D.Toc200, D.Sifra_Kup, K.ImeKup
    From TransNalStav S INNER JOIN Dokr D ON S.DokrID = D.DokrID
    LEFT OUTER JOIN Komint K ON D.Sifra_Kup = K.Sifra_Kup
    Where S.Sifra_Oe=@Sifra_Oe And S.Broj_Trans=@Broj_Trans



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitrospatn]'))
drop procedure [dbo].[sp_podignitrospatn]

Go



CREATE    PROCEDURE [dbo].[sp_PodigniTrosPatn]
    @Sifra_Oe     smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sif_Tros    smallint= null
AS
CREATE TABLE #Tmp (
    IdTrosPatn int IDENTITY (1, 1) NOT NULL ,
    Sifra_Oe smallint,
    Datum_Dok smalldatetime,
    Opis varchar(250),
    Poc_Km char(7),
    Kr_Km char(7),
    Iznos decimal(18, 6) NULL,
    Sif_Tros nvarchar(2),
    ImeOrg varchar(40)
) ON [PRIMARY]



    INSERT INTO #Tmp (Sifra_Oe, Datum_Dok, Opis, Poc_Km, Kr_Km,Iznos,Sif_Tros,ImeOrg)
    SELECT T.Sifra_Oe,T.Datum_Dok,T.Opis,T.Poc_Km,T.Kr_Km,T.Iznos,T.Sif_Tros, O.ImeOrg
    From TrosPatn T
    INNER Join Orged O On O.Sifra_oe = T.Sifra_Oe
    WHERE T.Sifra_Oe = @Sifra_Oe and T.Datum_Dok>=@Datum_Od and T.Datum_Dok<=@Datum_Do
    ORDER By Datum_Dok, Kr_Km

    DECLARE @PocKmPretDen as int
    SET @PocKmPretDen = 0
    SELECT TOP 1 @PocKmPretDen = Kr_Km  From TrosPatn T
    Where T.Sifra_Oe = @Sifra_Oe and T.Datum_Dok<@Datum_Od AND ISNUMERIC(kR_kM) = 1 And Kr_Km <> '.'
    ORDER BY Datum_Dok Desc, Kr_Km desc

    declare @IdTrosPatn as int
    declare @Kr_Km as int
    SET @IdTrosPatn = 0
    SET @Kr_Km = 0

    Declare PocetniKm Cursor Fast_Forward For Select T.IdTrosPatn,T.Kr_Km  From #Tmp T
    Where T.Kr_Km is not null and T.Kr_Km <> 0
    Open PocetniKm
    Fetch Next From PocetniKm Into @IdTrosPatn, @Kr_Km
    While @@Fetch_Status = 0
        begin
        If @IDTrosPatn = 1
            begin
            update #Tmp set Poc_Km = @PocKmPretDen where #Tmp.IdTrosPatn = @IDTrosPatn and (#Tmp.Poc_Km = '' or #Tmp.Poc_Km is null)
            update #Tmp set Poc_Km = @Kr_Km from #Tmp where #Tmp.IdTrosPatn = @IDTrosPatn + 1 and (#Tmp.Poc_Km = '' or #Tmp.Poc_Km is null)
            end
        else
            update #Tmp set Poc_Km = @Kr_Km from #Tmp where #Tmp.IdTrosPatn = @IDTrosPatn + 1 and (#Tmp.Poc_Km = '' or #Tmp.Poc_Km is null)
        Fetch Next From PocetniKm Into @IdTrosPatn, @Kr_Km

    end
    Close PocetniKm
    Deallocate PocetniKm

    --za pred 20.09.2010 se predlagaat krajnite km
    DECLARE @KrKmPretDen as int
    SET @KrKmPretDen = 0
    SELECT TOP 1 @KrKmPretDen = Poc_Km From TrosPatn T Where T.Sifra_Oe = @Sifra_Oe and T.Datum_Dok>@Datum_Od AND ISNUMERIC(pOC_kM) = 1
    ORDER BY Datum_Dok asc, Poc_Km Asc

    print @KrKmPretDen
    declare @Poc_Km as int
    SET @IdTrosPatn = 0
    SET @Poc_Km = 0

    Declare KrajniKm Cursor Fast_Forward For Select T.IdTrosPatn,T.Poc_Km From #Tmp T
    Where T.Poc_Km is not null and T.Poc_Km <> 0
    Open KrajniKm
    Fetch Next From KrajniKm Into @IdTrosPatn, @Poc_Km
    While @@Fetch_Status = 0
        begin
        If @IDTrosPatn = 1
            begin
            update #Tmp set Kr_Km = @KrKmPretDen where #Tmp.IdTrosPatn = @IDTrosPatn and (#Tmp.Kr_Km = '' or #Tmp.Kr_Km is null)
            update #Tmp set Kr_Km = @Poc_Km from #Tmp where #Tmp.IdTrosPatn = @IDTrosPatn - 1 and (#Tmp.Kr_Km = '' or #Tmp.Kr_Km is null)
            end
        else
            update #Tmp set Kr_Km = @Poc_Km from #Tmp where #Tmp.IdTrosPatn = @IDTrosPatn - 1 and (#Tmp.Kr_Km = '' or #Tmp.Kr_Km is null)
        Fetch Next From KrajniKm Into @IdTrosPatn, @Poc_Km

    end
    Close KrajniKm
    Deallocate KrajniKm

    if @Sif_tros is null
        select * from #Tmp
    else
        select * from #Tmp where Sif_tros=@Sif_Tros

    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignitrospatn_grupaoe]'))
drop procedure [dbo].[sp_podignitrospatn_grupaoe]

Go



CREATE    PROCEDURE sp_PodigniTrosPatn_GrupaOe
    @KoiOe     varchar(10),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sif_Tros    smallint= null
AS

    CREATE TABLE #TmpGr (
        IdTrosPatn int ,
        Sifra_Oe smallint,
        Datum_Dok smalldatetime,
        Opis varchar(250),
        Poc_Km char(7),
        Kr_Km char(7),
        Iznos decimal(18, 6) NULL,
        Sif_Tros nvarchar(2),
        ImeOrg varchar(40)
    ) ON [PRIMARY]

    Declare @Sifra_Oe as smallint

    Declare OE Cursor Fast_Forward For Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @KoiOe
    Open OE
    Fetch Next From OE Into @Sifra_Oe
    While @@Fetch_Status = 0
    Begin
        Insert Into #TmpGr Exec sp_PodigniTrosPatn @Sifra_Oe, @Datum_Od, @Datum_Do, @Sif_Tros

        Fetch Next From OE Into @Sifra_Oe
    End
    Close OE
    Deallocate OE

    Select * From #TmpGr

    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniulinreo]'))
drop procedure [dbo].[sp_podigniulinreo]

Go


create   procedure sp_PodigniUliNReo
    @Sifra_NReo   smallint
AS
    SELECT S.*,  SU.ImeUli
    FROM  UliNReo S
    INNER JOIN Ulici  SU ON S.Sifra_Uli = SU.Sifra_Uli
    WHERE  S.Sifra_NReo = @Sifra_NReo
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniusl_komerc_opsti]'))
drop procedure [dbo].[sp_podigniusl_komerc_opsti]

Go
CREATE PROCEDURE sp_PodigniUsl_Komerc_Opsti
    @VlIzl        char(1),
    @Tip_Sif_Kup    char(1),
    @Sif_Kup_Gen    varchar(11),
    @Tip_Sif_Art    char(1),
    @Sif_Art_Gen    varchar(20)
AS
    Select VlIzl, Tip_Sif_Kup, Sif_Kup_Gen, Tip_Sif_Art, Sif_Art_Gen, Rok_Dosp, Uces, Cena
    From  Usl_Komerc_Opsti
    Where VlIzl=@VlIzl And Tip_Sif_Kup=@Tip_Sif_Kup And Sif_Kup_Gen=@Sif_Kup_Gen And Tip_Sif_Art=@Tip_Sif_Art And Sif_Art_Gen=@Sif_Art_Gen



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniusl_komerc_per]'))
drop procedure [dbo].[sp_podigniusl_komerc_per]

Go

CREATE            PROCEDURE sp_PodigniUsl_Komerc_Per
    @VlIzl            char(1)='I',
    @Tip_Sif_Kup        char(1)='',
    @Sif_Kup_Gen        varchar(11)='',
    @Tip_Sif_Art        char(1)='A',
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime=Null,        --ova da se koristi za periodicen cenovnik
    @Sif_GrOrg_ZaZal    char(6)=Null,
    @ZemiOdPrethCen    char(1)=Null,
    @DajSamoArt        char(1)='N',             --ovoj par. da se napravi da se pusta
    @Ostanati        char(1)='N',             --ovoj par. da se napravi da se pusta
    @Sifra_Podg        char(6)=Null,
    @Sifra_Gr        varchar(6)=Null,
    @Sifra_Drg        smallint=Null,
    @SamoZaDadKup    char(1)='N'                --dod.03.11.07
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpArt
(Sifra_art    varchar(20))
IF @Tip_Sif_Art = 'A'
Begin
    If @Sif_GrOrg_ZaZal IS NOT NULL
    Begin
        CREATE Table #TmpZal
        (Sifra_Art    varchar(20),
         Kolic         decimal(18,4))
        INSERT INTO #TmpZal (Sifra_Art, Kolic) SELECT Sifra_Art, SUM(Vlez - Izlez) FROM SoArt WHERE Sifra_OE IN
                (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=@Sif_GrOrg_ZaZal) GROUP BY Sifra_Art
    End
    SET @SSQL = 'SELECT A.Sifra_Art FROM KatArt A '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL = @SSQL + 'INNER JOIN Podgrupi P ON A.Sifra_Podg=P.Sifra_Podg '
    SET @SSQL = @SSQL +' WHERE 1=1 '
    IF @Sifra_Podg IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    IF @Sifra_Gr IS NOT NULL
        SET @SSQL = @SSQL + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    IF @Sifra_Drg IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Drg = ' + Cast(@Sifra_Drg as varchar(5)) + ' '
    If @Sif_GrOrg_ZaZal IS NOT NULL
        SET @SSQL = @SSQL + ' AND A.Sifra_Art IN (SELECT Sifra_Art FROM #TmpZal) '
    INSERT INTO #TmpArt (Sifra_Art) EXEC (@SSQL)
End
ELSE IF @Tip_Sif_Art= 'P'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Podg FROM Podgrupi ORDER BY Sifra_Podg
ELSE IF @Tip_Sif_Art= 'G'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Gr FROM Grupi ORDER BY Sifra_Gr
ELSE IF @Tip_Sif_Art= 'B'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_Drg FROM DrgPodel ORDER BY Sifra_Drg
ELSE IF @Tip_Sif_Art= '1'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_1 FROM Drugo1 ORDER BY Sifra_1
ELSE IF @Tip_Sif_Art= '2'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_2 FROM Drugo2 ORDER BY Sifra_2
ELSE IF @Tip_Sif_Art= '3'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_3 FROM Drugo3 ORDER BY Sifra_3
ELSE IF @Tip_Sif_Art= '4'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_4 FROM Drugo4 ORDER BY Sifra_4
ELSE IF @Tip_Sif_Art= '5'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Sifra_5 FROM Drugo5 ORDER BY Sifra_5
ELSE IF @Tip_Sif_Art= 'D'
    INSERT INTO #TmpArt (Sifra_Art) SELECT Distinct Kto FROM KatArt ORDER BY Kto
ELSE
    INSERT INTO #TmpArt (Sifra_Art) VALUES ('')
IF @ZemiOdPrethCen = 'D' or @DajSamoArt='D'
Begin
    CREATE TABLE #TmpCen
    (VlIzl char (1) ,
    Tip_Sif_Kup char (1) ,
    Sif_Kup_Gen varchar (11) ,
    Tip_Sif_Art char (1) ,
    Sif_Art_Gen varchar (20),
    Datum_Od smalldatetime NULL ,
    Rok_Dosp smallint NULL ,
    Datum_Do smalldatetime NULL ,
    Uces decimal(6, 2) NULL ,
    Dod_Uces decimal(6, 2) NULL ,
    Cena decimal(18, 4) NULL ,
    MalCena decimal(18, 4) NULL ,
    DanCena char (1) ,
    DanMalCena char (1),
    ImeKup    varchar(40),
    ImeArt    varchar(40),
    Proc_Marza decimal(6,2) )
    Declare @fRok as smallint, @fUces as decimal(6,2), @fDodUces as decimal(6,2)
    Declare @fCena as decimal(18,4), @fMalCena as decimal(18,4)
    Declare @fDanCena as char(1), @fDanMalCena as char(1), @fSifArtGen as varchar(20)
    IF @ZemiOdPrethCen = 'D'
    Begin
    Set Nocount On
    Declare TabC Cursor Fast_Forward For
        Select Sifra_Art From #TmpArt
    Open TabC
    Fetch Next From TabC Into @fSifArtGen
    While @@Fetch_Status = 0
    Begin
      IF @SamoZaDadKup='D'
        INSERT INTO #TmpCen (Sif_art_Gen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena)
        SELECT @FSifArtGen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena
        FROM dbo.fix_DajCenaZaDatumZaDadKup(@VlIzl, @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, @fSifArtGen, @Datum_Od)
      ELSE
        INSERT INTO #TmpCen (Sif_art_Gen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena)
        SELECT @FSifArtGen, Rok_Dosp, Uces, Dod_Uces, Cena, MalCena, DanCena, DanMalCena
        FROM dbo.fix_DajCenaZaDatum(@VlIzl, @Tip_Sif_Kup, @Sif_Kup_Gen, @Tip_Sif_Art, @fSifArtGen, @Datum_Od)
        Fetch Next From TabC Into @fSifArtGen
    End
    Close TabC
    Deallocate TabC
    Set Nocount Off
    End
    if @Ostanati = 'D'
     begin
        INSERT INTO #TmpCen (Sif_Art_Gen) SELECT Sifra_Art FROM #TmpArt
        WHERE Sifra_Art NOT IN (SELECT Sif_Art_Gen FROM #TmpCen)
    end
    UPDATE #TmpCen SET VlIzl = @VlIzl, Tip_Sif_Kup =@Tip_Sif_kup, Sif_Kup_Gen=@Sif_Kup_Gen
    IF @Tip_Sif_Art= 'A'
        UPDATE #TmpCen SET ImeArt= A.ImeArt, Proc_Marza=A.Proc_Marza FROM KatArt A WHERE A.Sifra_Art=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= 'P'
        UPDATE #TmpCen SET ImeArt= P.Ime_Podg FROM  Podgrupi P WHERE P.Sifra_Podg=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= 'G'
        UPDATE #TmpCen SET ImeArt= G.Ime_Gr FROM Grupi G WHERE G.Sifra_Gr=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= 'B'
        UPDATE #TmpCen SET ImeArt= D.Ime FROM  DrgPodel D WHERE D.Sifra_Drg=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= '1'
        UPDATE #TmpCen SET ImeArt= D.Ime_1 FROM  Drugo1 D WHERE D.Sifra_1=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= '2'
        UPDATE #TmpCen SET ImeArt= D.Ime_2 FROM  Drugo2 D WHERE D.Sifra_2=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= '3'
        UPDATE #TmpPrCen SET ImeArt= D.Ime_3 FROM Drugo3 D WHERE D.Sifra_3=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= '4'
        UPDATE #TmpCen SET ImeArt= D.Ime_4 FROM Drugo4 D WHERE D.Sifra_4=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= '5'
        UPDATE #TmpCen SET ImeArt= D.Ime_5 FROM Drugo5 D WHERE D.Sifra_5=#TmpCen.Sif_Art_Gen
    ELSE IF @Tip_Sif_Art= 'D'
        UPDATE #TmpCen SET ImeArt= K.ImeKup FROM Komint K WHERE K.Sifra_Kup=#TmpCen.Sif_Art_Gen
    IF @Tip_Sif_Kup= 'K'
        UPDATE #TmpCen SET ImeKup= K.ImeKup FROM Komint K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_Kup
    ELSE IF @Tip_Sif_Kup= '1'
        UPDATE #TmpCen SET ImeKup= K.Ime_1K FROM KDrugo1 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_1K
    ELSE IF @Tip_Sif_Kup= '2'
        UPDATE #TmpCen SET ImeKup= K.Ime_2K FROM KDrugo2 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_2K
    ELSE IF @Tip_Sif_Kup= '3'
        UPDATE #TmpCen SET ImeKup= K.Ime_3K FROM KDrugo3 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_3K
    ELSE IF @Tip_Sif_Kup= '4'
        UPDATE #TmpCen SET ImeKup= K.Ime_4K FROM KDrugo4 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_4K
    ELSE IF @Tip_Sif_Kup= '5'
        UPDATE #TmpCen SET ImeKup= K.Ime_5K FROM KDrugo5 K WHERE #TmpCen.Sif_Kup_Gen=K.Sifra_5K
    SELECT * FROM #TmpCen ORDER BY Sif_Art_Gen
End
ELSE
Begin
    SET @SSQL = 'SELECT U.*, '
    IF @Tip_Sif_Kup= 'K'
        SET @SSQL = @SSQL + ' K.ImeKup ImeKup, '
    ELSE IF @Tip_Sif_Kup= '1'
        SET @SSQL = @SSQL + ' K.Ime_1K ImeKup, '
    ELSE IF @Tip_Sif_Kup= '2'
        SET @SSQL = @SSQL + ' K.Ime_2K ImeKup, '
    ELSE IF @Tip_Sif_Kup= '3'
        SET @SSQL = @SSQL + ' K.Ime_3K ImeKup, '
    ELSE IF @Tip_Sif_Kup= '4'
        SET @SSQL = @SSQL + ' K.Ime_4K ImeKup, '
    ELSE IF @Tip_Sif_Kup= '5'
        SET @SSQL = @SSQL + ' K.Ime_5K ImeKup,'
    ELSE IF @Tip_Sif_Kup= 'T'        --TipKomint
        SET @SSQL = @SSQL + ' K.ImeTip ImeKup,'
    ELSE
        SET @SSQL = @SSQL + ' '''' ImeKup, '
    IF @Tip_Sif_Art= 'A'
        SET @SSQL = @SSQL + ' A.ImeArt ImeArt, A.Proc_Marza '
    ELSE IF @Tip_Sif_Art= 'P'
        SET @SSQL = @SSQL + ' P.Ime_Podg ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= 'G'
        SET @SSQL = @SSQL + ' G.Ime_Gr ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= 'B'
        SET @SSQL = @SSQL + ' D.Ime ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= '1'
        SET @SSQL = @SSQL + ' D.Ime_1 ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= '2'
        SET @SSQL = @SSQL + ' D.Ime_2 ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= '3'
        SET @SSQL = @SSQL + ' D.Ime_3 ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= '4'
        SET @SSQL = @SSQL + ' D.Ime_4 ImeArt, '''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= '5'
        SET @SSQL = @SSQL + ' D.Ime_5 ImeArt,'''' Proc_Marza '
    ELSE IF @Tip_Sif_Art= 'D'
        SET @SSQL = @SSQL + ' KD.ImeKup ImeArt,'''' Proc_Marza '
    ELSE
        SET @SSQL = @SSQL + ' '''' ImeArt, '''' Proc_Marza '
    SET @SSQL = @SSQL + ' From  Usl_Komerc_Per U '
    IF @Tip_Sif_Kup= 'K'
        SET @SSQL = @SSQL + ' INNER JOIN Komint K ON U.Sif_Kup_Gen=K.Sifra_Kup '
    ELSE IF @Tip_Sif_Kup= '1'
        SET @SSQL = @SSQL + ' INNER JOIN KDrugo1 K ON U.Sif_Kup_Gen=K.Sifra_1K '
    ELSE IF @Tip_Sif_Kup= '2'
        SET @SSQL = @SSQL + ' INNER JOIN KDrugo2 K ON U.Sif_Kup_Gen=K.Sifra_2K '
    ELSE IF @Tip_Sif_Kup= '3'
        SET @SSQL = @SSQL + ' INNER JOIN KDrugo3 K ON U.Sif_Kup_Gen=K.Sifra_3K '
    ELSE IF @Tip_Sif_Kup= '4'
        SET @SSQL = @SSQL + ' INNER JOIN KDrugo4 K ON U.Sif_Kup_Gen=K.Sifra_4K '
    ELSE IF @Tip_Sif_Kup= '5'
        SET @SSQL = @SSQL + ' INNER JOIN KDrugo5 K ON U.Sif_Kup_Gen=K.Sifra_5K '
    ELSE IF @Tip_Sif_Kup= 'T'
        SET @SSQL = @SSQL + ' INNER JOIN TipKomint K ON U.Sif_Kup_Gen=K.Sifra_Tip '
    IF @Tip_Sif_Art= 'A'
        SET @SSQL = @SSQL + ' INNER JOIN KatArt A ON A.Sifra_Art=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= 'P'
        SET @SSQL = @SSQL + ' INNER JOIN Podgrupi P ON P.Sifra_Podg=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= 'G'
        SET @SSQL = @SSQL + ' INNER JOIN Grupi G ON G.Sifra_Gr=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= 'B'
        SET @SSQL = @SSQL + ' INNER JOIN DrgPodel D ON D.Sifra_Drg=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= '1'
        SET @SSQL = @SSQL + ' INNER JOIN Drugo1 D ON D.Sifra_1=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= '2'
        SET @SSQL = @SSQL + ' INNER JOIN Drugo2 D ON D.Sifra_2=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= '3'
        SET @SSQL = @SSQL + ' INNER JOIN Drugo3 D ON D.Sifra_3=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= '4'
        SET @SSQL = @SSQL + ' INNER JOIN Drugo4 D ON D.Sifra_4=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= '5'
        SET @SSQL = @SSQL + ' INNER JOIN Drugo5 D ON D.Sifra_5=U.Sif_Art_Gen'
    ELSE IF @Tip_Sif_Art= 'D'
        SET @SSQL = @SSQL + ' INNER JOIN Komint KD ON KD.Sifra_Kup=U.Sif_Art_Gen'
    SET @SSQL = @SSQL + ' Where U.VlIzl=''' + @VlIzl + ''' And U.Tip_Sif_Kup=''' + @Tip_Sif_Kup + ''' And U.Sif_Kup_Gen=''' + @Sif_Kup_Gen +
        ''' And U.Tip_Sif_Art=''' + @Tip_Sif_Art + ''' AND U.Datum_Od = ''' + Cast(@Datum_Od as varchar(30)) +
        '''  AND U.Sif_Art_Gen IN (SELECT Sifra_Art FROM #TmpArt) '
    SET @SSQL = @SSQL + ' ORDER BY U.Sif_Art_Gen'
    EXEC (@SSQL)
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniuslkolrabfra]'))
drop procedure [dbo].[sp_podigniuslkolrabfra]

Go



CREATE PROCEDURE [dbo].[sp_PodigniUslKolRabFra]

AS

    SELECT * FROM Usl_KolRab_Fra

    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivelicskala]'))
drop procedure [dbo].[sp_podignivelicskala]

Go


CREATE  PROCEDURE sp_PodigniVelicSkala
    @Sifra_VelSkala varchar(20)
AS
    SELECT * FROM VelicSkala
    WHERE Sifra_VelSkala=@Sifra_VelSkala
     RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivelicskalastav]'))
drop procedure [dbo].[sp_podignivelicskalastav]

Go



CREATE   PROCEDURE sp_PodigniVelicSkalaStav
    @Sifra_VelSkala varchar(20)
AS
    SELECT S.*,V.ImeVelic FROM VelicSkalaStav  S
    INNER JOIN Velicina V On S.Sifra_Velic=V.Sifra_Velic
    WHERE Sifra_VelSkala=@Sifra_VelSkala
     RETURN @@ERROR






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivirmani]'))
drop procedure [dbo].[sp_podignivirmani]

Go
CREATE PROCEDURE sp_PodigniVirmani
    @VirID int
AS
    SELECT * FROM VirmanIzv WHERE VirID = @VirID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivozila]'))
drop procedure [dbo].[sp_podignivozila]

Go
CREATE procedure sp_PodigniVozila
    @Sifra_Art varchar(20)
As
    Select * from Vozila
    Where Sifra_Art=@Sifra_Art



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivozizjava]'))
drop procedure [dbo].[sp_podignivozizjava]

Go
CREATE procedure sp_PodigniVozIzjava
    @Sifra_Oe smallint,
    @Broj_izjava int
As
    select * from VozIzjava
    where Sifra_Oe=@Sifra_Oe and Broj_Izjava=@Broj_izjava



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignivpjsite]'))
drop procedure [dbo].[sp_podignivpjsite]

Go
CREATE PROCEDURE sp_PodigniVPJSite
AS
    Select * From VidProdObj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwbn_tnarzakor]'))
drop procedure [dbo].[sp_podigniwbn_tnarzakor]

Go


CREATE   Procedure sp_PodigniWbn_TNarZaKor
    @Kod_Korisnik_Vnes Varchar(20),
    @Sifra_Nar smallint
 As
    Select N.*, K.ImeKup From
    Wbn_TNar N Left outer Join Komint K
    on N.Sifra_Kup = K.Sifra_Kup
    where N.Kod_Korisnik_Vnes=@Kod_Korisnik_Vnes
    and N.Sifra_Nar=@Sifra_Nar






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwbn_tsnarzakor]'))
drop procedure [dbo].[sp_podigniwbn_tsnarzakor]

Go

CREATE    Procedure sp_PodigniWbn_TSNarZaKor
    @Broj_Nar int
 As
    Select * From Wbn_TSNar
    where Broj_Nar=@Broj_Nar





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwebnaracki]'))
drop procedure [dbo].[sp_podigniwebnaracki]

Go



CREATE     PROCEDURE sp_PodigniWEBNaracki
    @Sifra_Nar     smallint = Null,
    @Sifra_OE     smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null

AS
Select N.NarID, N.Sifra_Oe , N.Sifra_Nar, N.Broj_Nar , N.Datum_Nar, N.Sifra_Kup,K.ImeKup From Naracki N
Left Outer Join Komint K On K.Sifra_Kup = N.Sifra_Kup
Where (N.Datum_Nar  between @Datum_Od and @Datum_DO) and N.Sifra_oe=@Sifra_Oe and N.Sifra_Nar=@Sifra_Nar
Order By N.Datum_Nar Desc


Select S.NarID,S.StaNarID, S.Sifra_Oe , S.Sifra_Nar, S.Broj_Nar ,S.Sifra_Art , A.ImeArt, S.Kolic, S.DokCena,
(case when PrifPredlog='O' then 'True' else 'False' end) as Odobren  From StaNarac S
Left Outer Join Katart A On A.Sifra_Art = S.Sifra_Art
Left Outer Join Naracki N On N.NarID = S.NarID and  N.Sifra_Oe=S.Sifra_Oe and N.Sifra_Nar=S.Sifra_Nar and N.Broj_Nar=S.Broj_Nar
Where (N.Datum_Nar  between @Datum_Od and @Datum_DO) and N.Sifra_oe=@Sifra_Oe and N.Sifra_Nar=@Sifra_Nar








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmfxr]'))
drop procedure [dbo].[sp_podigniwhmfxr]

Go
CREATE PROCEDURE sp_PodigniWhmFXR

    @Sifra_Oe    smallint,
    @FXR_ID    varchar(30)
AS

    Select * From WhmFXR
    Where Sifra_Oe=@Sifra_Oe And FXR_ID=@FXR_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmlokacgrupi]'))
drop procedure [dbo].[sp_podigniwhmlokacgrupi]

Go

CREATE  procedure sp_PodigniWhmLokacGrupi
    @Sifra_Oe smallint,
    @Sifra_Gr varchar(6)
AS
    Select w.*, wl.Lokac_ime from WhmLokacGrupi W
    LEFT OUTER JOIN WhmLokacija WL ON W.Sifra_OE=WL.Sifra_OE AND W.Lokac_ID=WL.Lokac_ID
    Where W.Sifra_Oe=@Sifra_Oe and W.Sifra_Gr=@Sifra_Gr
    return @@error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmlokaciizaorged]'))
drop procedure [dbo].[sp_podigniwhmlokaciizaorged]

Go





CREATE PROCEDURE sp_PodigniWhmLokaciiZaOrged
    @Sifra_OE       smallint
AS
    SELECT * FROM WhmLokacija S
    WHERE  S.Sifra_Oe = @Sifra_Oe
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmlokacija]'))
drop procedure [dbo].[sp_podigniwhmlokacija]

Go

CREATE  PROCEDURE sp_PodigniWhmLokacija

    @Sifra_Oe        smallint,
    @Lokac_ID        varchar(30)
AS

    SELECT * FROM WhmLokacija
    Where Sifra_Oe=@Sifra_Oe And Lokac_ID=@Lokac_ID
    Return @@ERROR



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmlokackarakterist]'))
drop procedure [dbo].[sp_podigniwhmlokackarakterist]

Go
CREATE PROCEDURE sp_PodigniWhmLokacKarakterist

    @Sifra_Oe    smallint,
    @Sekc_ID    varchar(15) = Null,
    @Lokac_X    char(4) = Null,
    @Lokac_Y    char(4) = Null,
    @Lokac_Z    char(4) = Null,
    @Lokac_ID    varchar(30) = Null,
    @FXR_ID    varchar(30) = Null,
    @Sifra_Karakt    smallint

AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select * From WhmLokacKarakterist
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_Karakt = ' + Cast(@Sifra_Karakt as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmlokackatstatus]'))
drop procedure [dbo].[sp_podigniwhmlokackatstatus]

Go
CREATE PROCEDURE sp_PodigniWhmLokacKatStatus

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15) = Null,
    @Lokac_X        char(4) = Null,
    @Lokac_Y        char(4) = Null,
    @Lokac_Z        char(4) = Null,
    @Lokac_ID        varchar(30) = Null,
    @FXR_ID        varchar(30) = Null,
    @Sifra_KatStatus    smallint
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select * From WhmLokacKatStatus
            Where Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' And Sifra_KatStatus = ' + Cast(@Sifra_KatStatus as varchar(6)) + ' '

    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And Sekc_ID = ' + @Sekc_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Sekc_ID Is Null '

    If @Lokac_X Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_X = ' + @Lokac_X + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_X Is Null '

    If @Lokac_Y Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Y = ' + @Lokac_Y + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Y Is Null '

    If @Lokac_Z Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_Z = ' + @Lokac_Z + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_Z Is Null '

    If @Lokac_ID Is Not Null
        Set @SSQL = @SSQL + ' And Lokac_ID = ' + @Lokac_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And Lokac_ID Is Null '

    If @FXR_ID Is Not Null
        Set @SSQL = @SSQL + ' And FXR_ID = ' + @FXR_ID + ' '
    Else
        Set @SSQL = @SSQL + ' And FXR_ID Is Null '

    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmmvc]'))
drop procedure [dbo].[sp_podigniwhmmvc]

Go
CREATE PROCEDURE sp_PodigniWhmMVC

    @MVC_ID        int
AS
    Select * From WhmMVC
    Where MVC_ID=@MVC_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmprivoper]'))
drop procedure [dbo].[sp_podigniwhmprivoper]

Go

CREATE  PROCEDURE sp_PodigniWhmPrivOper

    @Sifra_Oper        smallint,
    @Sifra_Oe_WHM    smallint
AS

    Create Table #WhmPrivIme
    (
        Sifra_Oper    smallint,
        Sifra_Oe_Whm    smallint,
        ImePrivilWhm    varchar(30),
        OpisImePrivilWhm varchar(100),
        Moze_Vlez    char(1),
        Opc_Spec1    varchar(10),
        Opc_Spec2    varchar(10)
    )
    Insert Into #WhmPrivIme
    Select @Sifra_Oper, @Sifra_Oe_WHM, ImePrivilWhm, OpisImePrivilWhm, Null, Null, Null
    From WhmPrivIme

    Update     #WhmPrivIme Set Moze_Vlez = O.Moze_Vlez, Opc_Spec1=O.Opc_Spec1, Opc_Spec2=O.Opc_Spec2
    From WhmPrivOper O
    Where O.Sifra_Oper=#WhmPrivIme.Sifra_Oper And O.Sifra_Oe_Whm=#WhmPrivIme.Sifra_Oe_Whm And O.ImePrivilWhm=#WhmPrivIme.ImePrivilWhm

    Select * From #WhmPrivIme Order By ImePrivilWHM

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmsekciizaorged]'))
drop procedure [dbo].[sp_podigniwhmsekciizaorged]

Go




create     PROCEDURE sp_PodigniWhmSekciiZaOrged
    @Sifra_OE       smallint
AS
    SELECT * FROM WhmSekcija S
    WHERE  S.Sifra_Oe = @Sifra_Oe
  IF @@ROWCOUNT = 0
      RETURN 77000
   ELSE
      RETURN 0





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podigniwhmsekcija]'))
drop procedure [dbo].[sp_podigniwhmsekcija]

Go
CREATE PROCEDURE sp_PodigniWhmSekcija

    @Sifra_Oe        smallint,
    @Sekc_ID        varchar(15)
AS

    SELECT * FROM WhmSekcija
    Where Sifra_Oe=@Sifra_Oe And Sekc_ID=@Sekc_ID
    Return @@ERROR


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfaktnapraveno]'))
drop procedure [dbo].[sp_podignixfaktnapraveno]

Go
CREATE PROCEDURE sp_PodigniXFAktNapraveno
       @Broj_Napraveno int
AS
  SELECT * FROM XFAktNapraveno WHERE Broj_Napraveno = @Broj_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfaktnapravenosta]'))
drop procedure [dbo].[sp_podignixfaktnapravenosta]

Go

create  PROCEDURE sp_PodigniXFAktNapravenoSta
    @Broj_Napraveno int
AS
    SELECT * FROM XFAktNapravenoSta
    WHERE Broj_Napraveno = @Broj_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranje]'))
drop procedure [dbo].[sp_podignixfbaranje]

Go


CREATE     PROCEDURE sp_PodigniXFBaranje
    @Broj_Baranje int
AS
    SELECT B.*, K.ImeKup, I.ImeIzvrs as ImeIzvrsOd, OBL.ImeOblast FROM XFBaranje B
    left outer join Komint K on B.Sifra_Kup = K.Sifra_Kup
    left outer join XFIzvrsitel I on B.Sifra_Izvrs_Od = I.Sifra_Izvrs
    left outer join XFOblast OBL on B.Sifra_Oblast = OBL.Sifra_Oblast
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranjefile]'))
drop procedure [dbo].[sp_podignixfbaranjefile]

Go

CREATE PROCEDURE sp_PodigniXFBaranjeFile
    @Broj_Baranje int
AS
    -- Namerno ne go podigan IMAGE-to zaradi efikasnost
    SELECT FileID, File_Ime, Datum_Kreiran, Datum_Izmena
    FROM XFBaranjeFile
        WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranjeopsirno]'))
drop procedure [dbo].[sp_podignixfbaranjeopsirno]

Go
CREATE    PROCEDURE sp_PodigniXFBaranjeOpsirno
    @Broj_Baranje    int,
    @SlikaGoreX        smallint=0 OUTPUT,
    @SlikaGoreY        smallint=0 OUTPUT,
    @SlikaDoluX     smallint=0 OUTPUT,
    @SlikaDoluY     smallint=0 OUTPUT,
    @TekstGoreX     smallint=0 OUTPUT,
    @TekstGoreY     smallint=0 OUTPUT,
    @TekstDoluX     smallint=0 OUTPUT,
    @TekstDoluY     smallint=0 OUTPUT,
    @SirSlikaGore     smallint=0 OUTPUT,
    @VisSlikaGore     smallint=0 OUTPUT,
    @SirSlikaDolu     smallint=0 OUTPUT,
    @VisSlikaDolu    smallint=0 OUTPUT,
    @Sifra_Oe    smallint=0 OUTPUT,
    @Sifra_Nar    smallint=0 OUTPUT,
    @Broj_Nar    int=0 OUTPUT
AS
    SELECT @SlikaGoreX = V.SlikaGoreX, @SlikaGoreY = V.SlikaGoreY, @SlikaDoluX = V.SlikaDoluX,
    @SlikaDoluY    = V.SlikaDoluY,    @TekstGoreX = V.TekstGoreX,    @TekstGoreY = V.TekstGoreY,
    @TekstDoluX    = V.TekstDoluX,    @TekstDoluY = V.TekstDoluY,    @SirSlikaGore = V.SirSlikaGore,
    @VisSlikaGore = V.VisSlikaGore,    @SirSlikaDolu = V.SirSlikaDolu, @VisSlikaDolu = V.VisSlikaDolu,
    @Sifra_Oe = B.Sifra_OE,    @Sifra_Nar = B.Sifra_Nar, @Broj_Nar    = B.Broj_Nar
    FROM XFBaranje B LEFT OUTER JOIN XFVidBaranje V ON B.Sifra_VidBaranje=V.Sifra_VidBaranje
    WHERE B.Broj_Baranje=@Broj_Baranje
    SELECT B.*, K.ImeKup, S.ImeStatusBaranje, ST.Sifra_VidBaranje Sifra_VidBaranjeSta, VST.ImeVidBaranje ImeVidBaranjeSta,
    V.ImeVidBaranje, V.Nivo_VidBaranje, V.Samo_Informacija, V.SlikaGore, V.SlikaDolu, V.TekstGore, V.TekstDolu, V.NaslovVidBaranje,
    IZVR.ImeIzvrs, IZVRod.ImeIzvrs as ImeIzvrOd, O.ImeOblast, TP.ImeTipPredmet, K.Adresa, K.Posta, K.SMesto, P.ImePredmet,
    AN.OpisNapraveno
    FROM XFBaranje B
    LEFT OUTER JOIN XFPredmet P ON B.Broj_Predmet=P.Broj_Predmet
    LEFT OUTER JOIN Komint K ON B.sifra_Kup=K.Sifra_Kup
    LEFT OUTER JOIN XFStatusBaranje S ON B.Sifra_StatusBaranje=S.Sifra_StatusBaranje
    LEFT OUTER JOIN XFVidBaranje V ON B.Sifra_VidBaranje=V.Sifra_VidBaranje
    LEFT OUTER JOIN XFBaranjeSta ST ON B.Broj_Baranje=ST.Broj_Baranje
    LEFT OUTER JOIN XFVidBaranje VST ON ST.Sifra_VidBaranje=VST.Sifra_VidBaranje
    LEFT OUTER JOIN XFIzvrsitel IZVR ON B.Sifra_Izvrs=IZVR.Sifra_Izvrs
    LEFT OUTER JOIN XFIzvrsitel IZVRod ON B.Sifra_Izvrs_Od=IZVRod.Sifra_Izvrs
    LEFT OUTER JOIN XFOblast O On O.Sifra_Oblast=B.Sifra_Oblast
    LEFT OUTER JOIN XFTipPredmet TP On TP.Sifra_TipPredmet=B.Sifra_TipPredmet
    LEFT OUTER JOIN XFAktNapraveno AN On AN.Broj_Baranje=B.Broj_Baranje
    WHERE B.Broj_Baranje=@Broj_Baranje



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranjesta]'))
drop procedure [dbo].[sp_podignixfbaranjesta]

Go




CREATE      PROCEDURE sp_PodigniXFBaranjeSta
    @Broj_Baranje int
AS
    SELECT S.*, B.ImeVidBaranje
    FROM XFBaranjeSta S
    Left Outer Join XFVidBaranje B
    on S.Sifra_VidBaranje = B.Sifra_VidBaranje
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranjestaizvrs]'))
drop procedure [dbo].[sp_podignixfbaranjestaizvrs]

Go


CREATE    PROCEDURE sp_PodigniXFBaranjeStaIzvrs
    @Broj_Baranje int
AS
    SELECT S.*, I.ImeIzvrs
    FROM XFBaranjeStaIzvrs S
    Inner Join XFIzvrsitel I
    On S.Sifra_Izvrs = I.Sifra_Izvrs
    WHERE Broj_Baranje = @Broj_Baranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfbaranjponarac]'))
drop procedure [dbo].[sp_podignixfbaranjponarac]

Go
CREATE PROCEDURE sp_PodigniXFBaranjPoNarac
    @Sifra_OE    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int
AS
SELECT * FROM XFBaranje where sifra_Oe=@Sifra_OE AND Sifra_Nar=@Sifra_Nar AND Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfizvrsitel]'))
drop procedure [dbo].[sp_podignixfizvrsitel]

Go
CREATE PROCEDURE sp_PodigniXFIzvrsitel
    @Sifra_Izvrs    int
AS
    SELECT * FROM XFIzvrsitel
    WHERE Sifra_Izvrs = @Sifra_Izvrs




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfnapraveno]'))
drop procedure [dbo].[sp_podignixfnapraveno]

Go
CREATE PROCEDURE sp_PodigniXFNapraveno
    @Sifra_Napraveno    smallint
AS
    SELECT * FROM XFNapraveno
    WHERE Sifra_Napraveno = @Sifra_Napraveno




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfoblast]'))
drop procedure [dbo].[sp_podignixfoblast]

Go
CREATE PROCEDURE sp_PodigniXFOblast
    @Sifra_Oblast    smallint
AS
    SELECT * FROM XFOblast
    WHERE Sifra_Oblast = @Sifra_Oblast




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfoddel]'))
drop procedure [dbo].[sp_podignixfoddel]

Go
CREATE PROCEDURE sp_PodigniXFOddel
    @Sifra_Oddel    smallint
AS
    SELECT * FROM XFOddel
    WHERE Sifra_Oddel = @Sifra_Oddel




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfpredmet]'))
drop procedure [dbo].[sp_podignixfpredmet]

Go
CREATE PROCEDURE sp_PodigniXFPredmet
       @Broj_Predmet INT
AS
    SELECT P.*,  TP.ImeTipPredmet, O.ImeOblast, I.ImeIzvrs, S.ImeStatusPredmet
    FROM XFPredmet P
    Left Outer Join XFTipPredmet TP On TP.Sifra_TipPredmet=P.Sifra_TipPredmet
    Left Outer Join XFOblast O On O.Sifra_Oblast=P.Sifra_Oblast
    Left Outer Join XFIzvrsitel I On I.Sifra_Izvrs=P.Sifra_Izvrs
    Left Outer Join XFStatusPredmet S On S.Sifra_StatusPredmet=P.Sifra_StatusPredmet
    WHERE Broj_Predmet = @Broj_Predmet



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfslednobaranje]'))
drop procedure [dbo].[sp_podignixfslednobaranje]

Go
CREATE PROCEDURE sp_PodigniXFSlednoBaranje
    @Sifra_VidBaranje        smallint
AS
    Select SB.Sifra_VidBaranje, SB.Sifra_VidBaranje_Sledno, VB.ImeVidBaranje as ImeVidBaranje_Sledno, SB.Zabrana
    From XFSlednoBaranje SB
    Left Outer Join XFVidBaranje VB On VB.Sifra_VidBaranje=SB.Sifra_VidBaranje_Sledno
    Where SB.Sifra_VidBaranje=@Sifra_VidBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfstatusbaranje]'))
drop procedure [dbo].[sp_podignixfstatusbaranje]

Go
CREATE PROCEDURE sp_PodigniXFStatusBaranje
    @Sifra_StatusBaranje    smallint
AS
    SELECT * FROM XFStatusBaranje
    WHERE Sifra_StatusBaranje = @Sifra_StatusBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfstatuspredmet]'))
drop procedure [dbo].[sp_podignixfstatuspredmet]

Go
CREATE PROCEDURE sp_PodigniXFStatusPredmet
    @Sifra_StatusPredmet    smallint
AS
    SELECT * FROM XFStatusPredmet
    WHERE Sifra_StatusPredmet = @Sifra_StatusPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixftippredmet]'))
drop procedure [dbo].[sp_podignixftippredmet]

Go
CREATE PROCEDURE sp_PodigniXFTipPredmet
    @Sifra_TipPredmet    smallint
AS
    SELECT * FROM XFTipPredmet
    WHERE Sifra_TipPredmet = @Sifra_TipPredmet




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfvidbaranje]'))
drop procedure [dbo].[sp_podignixfvidbaranje]

Go
CREATE PROCEDURE sp_PodigniXFVidBaranje
    @Sifra_VidBaranje    smallint
AS
    SELECT * FROM XFVidBaranje
    WHERE Sifra_VidBaranje = @Sifra_VidBaranje




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfvidbarizvrs]'))
drop procedure [dbo].[sp_podignixfvidbarizvrs]

Go
CREATE PROCEDURE sp_PodigniXFVidBarIzvrs
    @Sifra_VidBaranje    smallint
AS
    Select VB.Sifra_VidBaranje, VB.Sifra_Izvrs, I.ImeIzvrs, VB.Sifra_Oddel, ImeOddel, VB.Zabrana
    From XFVidBarIzvrs VB
    Left Outer Join XFIzvrsitel I On I.Sifra_Izvrs=VB.Sifra_Izvrs
    Left Outer Join XFOddel O On O.Sifra_Oddel=VB.Sifra_Oddel
    Where Sifra_VidBaranje=@Sifra_VidBaranje



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_podignixfvraboddel]'))
drop procedure [dbo].[sp_podignixfvraboddel]

Go
CREATE PROCEDURE sp_PodigniXFVrabOddel
    @Sifra_Izvrs    int
--    @Sifra_Oddel    smallint
AS
    SELECT *, O.ImeOddel
    FROM XFVrabOddel V
    Left Outer Join XFOddel O On O.Sifra_Oddel=V.Sifra_Oddel
    WHERE Sifra_Izvrs = @Sifra_Izvrs-- AND Sifra_Oddel = @Sifra_Oddel



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polni_optzalpooe_od_promet]'))
drop procedure [dbo].[sp_polni_optzalpooe_od_promet]

Go


CREATE   PROCEDURE SP_Polni_OptZalPoOe_Od_Promet
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Min_Denovi    smallint,
    @Max_Denovi    smallint,
    @Insertiraj    char(1) = 'D'

AS

    Create Table #Prod
    (
     Sifra_Art    varchar(20),
     Prodazba    decimal(18, 6),
     DnevnaProd     decimal(18, 6),
     Min_Dat    smalldatetime,
     Max_Dat    smalldatetime,
     Denovi        int
    )

    Declare @SSQL2 varchaR(3000)

    insert into #PRod
    (Sifra_Art, Prodazba, DnevnaProd, Min_Dat, Max_Dat, Denovi)
        Select S.Sifra_Art, Sum(S.Kolic), 0, Min(S.Datum_Dok), Max(S.Datum_Dok), 0
        From Stavr S
        INNER JOIN Katart K ON S.Sifra_Art=K.Sifra_Art
        Where S.Sifra_Oe = @Sifra_Oe And S.VlIzl = 'I'
            and S.Sifra_DOk = 100
            And S.Datum_Dok >= @Datum_Od and S.Datum_Dok <= @Datum_Do
            and (K.SmatUsl is null or K.SmatUsl <> 'U')
            and (K.Lokacija is null or K.Lokacija <> 'P')
        group by S.Sifra_Art

    Update #Prod
    set Denovi = datediff (d, Min_Dat, Max_Dat) + 1
    where Min_Dat is not null and Max_Dat is not null

    Update #Prod
    set DnevnaProd = Prodazba / Denovi
    where Denovi > 60

    if @Insertiraj = 'D'
        insert into OptZalPoOe
        (Sifra_Oe, Sifra_Art, MinZal, MaxZal, OptZal)
        select @Sifra_Oe, Sifra_Art,
            ceiling(DnevnaProd * @Min_Denovi),
            ceiling(DnevnaProd * @Max_Denovi), 0
        from #Prod
    else
        select @Sifra_Oe, Sifra_Art,
            ceiling(DnevnaProd * @Min_Denovi),
            ceiling(DnevnaProd * @Max_Denovi), 0,
            Min_Dat, Max_Dat, Denovi
        from #Prod





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polniakciipromostatemp]'))
drop procedure [dbo].[sp_polniakciipromostatemp]

Go
CREATE procedure sp_PolniAkciiPromoStaTemp
    @Sifra_art_paket varchar(20)
as
    Declare @Br as smallint
    Set @Br = (select count(*) from AkciiPromoStaTemp Where Sifra_art_paket= @Sifra_art_paket)

    If @Br = 0
        insert into AkciiPromoStaTemp
        select *, 1
        from AkciiPromoSta
        Where Sifra_art_paket= @Sifra_art_paket




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnianfinoddrugabaza]'))
drop procedure [dbo].[sp_polnianfinoddrugabaza]

Go



CREATE       PROCEDURE sp_PolniAnFinOdDrugaBaza
    @BazaOd    varchar(15),
    @Kto        char(10),
    @Sifra_Za    char(1),
    @Datum_Od    smalldatetime,
    @Vo_Sifra_Nal    varchar(5),
    @Vo_Broj_Nal    varchar(10),
    @Vo_Dat_Nal    smalldatetime,
    @Prefix_ZaBr    varchar(3),
    @Datum_Do_SmeniBr smalldatetime
AS
Declare @SSQL varchar(3000)
Declare @iPrefix as integer
SET @iPrefix = Cast(@Prefix_ZaBr as smallint) * 1000000
--prvo tie sto se so golemi broevi (veke ednas prefrleni)
SET @SSQL = 'INSERT INTO AnFinDok (Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Sifra_Nal, Broj_Nal,Datum_Nal, Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva,
    Plateno_Dolzi, Plateno_Pobar, Dev_Dolzi, Dev_Pobaruva, Dev_Plat_Dolzi, Dev_Plat_Pobar, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, Opis, Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText,
    Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK)
SELECT Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, '+@Vo_Sifra_Nal+', ' +@Vo_Broj_Nal+',''' +cast(@Vo_Dat_Nal as varchar(30))+
    ''', Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva, 0, 0, Dev_Dolzi, Dev_Pobaruva, 0, 0, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, Opis,
    Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText,     Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK FROM ' + @BazaOd + '..AnFinDok
    WHERE Kto=''' +@Kto + ''' AND Sifra_Za=' + @Sifra_Za + ' AND Datum_Dok>''' + Cast(@Datum_Od as varchar(30))+
    ''' AND Datum_Dok<='''+cast(@Datum_Do_SmeniBr as varchar(30))+''' AND Broj_Dok>999999'
EXEC (@SSQL)
--posle godinasnite so nov prefix
SET @SSQL = 'INSERT INTO AnFinDok (Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Sifra_Nal, Broj_Nal,Datum_Nal, Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva,
    Plateno_Dolzi, Plateno_Pobar, Dev_Dolzi, Dev_Pobaruva, Dev_Plat_Dolzi, Dev_Plat_Pobar, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, Opis, Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText,
    Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK)
SELECT Sifra_OE, Sifra_Dok, '+cast(@iPrefix as varchar(10))+'+Broj_Dok, BrojDok, '+@Vo_Sifra_Nal+', ' +@Vo_Broj_Nal+',''' +cast(@Vo_Dat_Nal as varchar(30))+
    ''', Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva, 0, 0, Dev_Dolzi, Dev_Pobaruva, 0, 0, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, substring(Opis+'+''' n.''+'+'Cast(Sifra_Nal as varchar(3))+'+'''/'''+'+cast(Broj_Nal as varchar(8)),1,40),
    Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText,     Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK FROM ' + @BazaOd + '..AnFinDok
    WHERE Kto=''' +@Kto + ''' AND Sifra_Za=' + @Sifra_Za + ' AND Datum_Dok>''' + Cast(@Datum_Od as varchar(30))+
    ''' AND Datum_Dok<='''+cast(@Datum_Do_SmeniBr as varchar(30))+''' AND Broj_Dok<1000000'
EXEC (@SSQL)
SET @SSQL = 'INSERT INTO AnFinDok (Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Sifra_Nal, Broj_Nal,Datum_Nal, Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva,
    Plateno_Dolzi, Plateno_Pobar, Dev_Dolzi, Dev_Pobaruva, Dev_Plat_Dolzi, Dev_Plat_Pobar, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, Opis, Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText,
    Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK)
SELECT Sifra_OE, Sifra_Dok, Broj_Dok, BrojDok, Sifra_Nal, Broj_Nal, Datum_Nal,
    Kto, Sifra_Za, Sifra_Kup, Dolzi, Pobaruva, 0, 0, Dev_Dolzi, Dev_Pobaruva, 0, 0, Kurs, KojaVal, Sifra_Pat, Datum_Dok,
    Datum_Vnes, Datum_Izm, Rok, Sifra_Oper, Sifra_OpIz, Danok1, Danok2, Opis,
    Broj_Kalk, Odnadvor, TipDevKalk, Sifra_Nivo, SlobText, Kto_Kontra, Prenesen, Zaklucen, Sifra_Div, Sifra_DokDK FROM ' + @BazaOd + '..AnFinDok
    WHERE Kto=''' +@Kto + ''' AND Sifra_Za=' + @Sifra_Za + ' AND Datum_Dok>'''+cast(@Datum_Do_SmeniBr as varchar(30))+''' '
EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnianzatvoddrugabaza]'))
drop procedure [dbo].[sp_polnianzatvoddrugabaza]

Go




CREATE      PROCEDURE sp_PolniAnZatvOdDrugaBaza
    @BazaOd    varchar(15),
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime,
    @Datum_Do_SmeniBr smalldatetime,
    @Prefix_ZaBr    varchar(3)
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpZatv
(AnID1        int,
AnId2        int,
Iznos        decimal(18,2),
Sif_OE1        smallint,
Sif_Dok1    smallint,
Br_Dok1    int,
Dat_Dok1    smalldatetime,
Dolzi_1        decimal(18,4),
Pobar_1    decimal(18,4),
Tip_Dok1    char(1),
Br_Dok1Nov    int,
AnID1Nov    int,
Sif_OE2        smallint,
Sif_Dok2    smallint,
Br_Dok2    int,
Dat_Dok2    smalldatetime,
Dolzi_2        decimal(18,4),
Pobar_2    decimal(18,4),
Tip_Dok2    char(1),
Br_Dok2Nov    int,
AnID2Nov    int,
Sifra_Kup    char(6))
SET @SSQL = 'SELECT AnId1, AnID2, Iznos FROM '+@BazaOd+'..AnZatv
WHERE AnID1 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok>'''+cast(@Datum_Do as varchar(30))+''')
OR AnID2 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok >'''+cast(@Datum_Do as varchar(30))+''')'
INSERT INTO #TmpZatv (Anid1, AnId2, Iznos) EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE1= F.Sifra_OE, Sif_Dok1 = F.Sifra_Dok, Br_Dok1 = F.Broj_Dok, Dat_DOk1 = F.Datum_Dok,
Dolzi_1=F.Dolzi, Pobar_1=F.Pobaruva, Sifra_Kup=F.Sifra_Kup
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID1 = F.AnID'
EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE2= F.Sifra_OE, Sif_Dok2 = F.Sifra_Dok, Br_Dok2 = F.Broj_Dok, Dat_Dok2 = F.Datum_Dok,
Dolzi_2=F.Dolzi, Pobar_2=F.Pobaruva, Sifra_Kup=F.Sifra_Kup
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID2 = F.AnID'
EXEC (@SSQL)
--UPDATE #TmpZatv SET Tip_Dok1 = T.TipDok FROM TipDok T WHERE #TmpZatv.Sif_Dok1=T.Sifra_Dok
--UPDATE #TmpZatv SET Tip_Dok2 = T.TipDok FROM TipDok T WHERE #TmpZatv.Sif_Dok2=T.Sifra_Dok
Declare @iPrefix as integer
SET @iPrefix = Cast(@Prefix_ZaBr as smallint) * 1000000
                            --dok. koj go zadrzuvaat brojot i dok.so golem broj, da so OR
UPDATE #TmpZatv SET Br_Dok1Nov = Br_Dok1 WHERE Dat_Dok1>@Datum_Do_SmeniBr OR Br_Dok1>999999
UPDATE #TmpZatv SET Br_Dok2Nov = Br_Dok2 WHERE Dat_Dok2>@Datum_Do_SmeniBr OR Br_Dok2>999999
UPDATE #TmpZatv SET Br_Dok1Nov = @iPrefix + Br_Dok1 WHERE Dat_Dok1>@Datum_Do AND Dat_Dok1<=@Datum_Do_SmeniBr AND Br_Dok1<1000000
UPDATE #TmpZatv SET Br_Dok2Nov = @iPrefix + Br_Dok2 WHERE Dat_Dok2>@Datum_Do AND Dat_Dok2<=@Datum_Do_SmeniBr AND Br_Dok2<1000000
UPDATE #TmpZatv SET AnID1Nov = F.AnID FROM AnFinDok F WHERE #TmpZatv.Sif_OE1=F.Sifra_OE AND #TmpZatv.Sif_Dok1=F.Sifra_Dok AND #TmpZatv.Br_Dok1Nov=F.Broj_Dok
UPDATE #TmpZatv SET AnID2Nov = F.AnID FROM AnFinDok F WHERE #TmpZatv.Sif_OE2=F.Sifra_OE AND #TmpZatv.Sif_Dok2=F.Sifra_Dok AND #TmpZatv.Br_Dok2Nov=F.Broj_Dok
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 AnID_Dol    int,
 Dolzi_D    decimal(18,4),
 AnID_Pob    int,
 Pobar_P    Decimal(18,4) )
INSERT INTO #TmpPocSost (Sifra_Kup) SELECT DISTINCT Sifra_Kup FROM #TmpZatv
UPDATE #TmpPocSost SET AnID_Dol=F.AnID, Dolzi_D=F.Dolzi FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Dolzi<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za
UPDATE #TmpPocSost SET AnID_Pob=F.AnID, Pobar_P=F.Pobaruva FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Pobaruva<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za
UPDATE #TmpZatv SET AnID1Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1<=@Datum_Do AND
((#TmpZatv.Dolzi_1>0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_1<0 AND P.Dolzi_D<0) OR (#TmpZatv.Pobar_1<0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_1>0 AND P.Dolzi_D<0))
UPDATE #TmpZatv SET AnID1Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1<=@Datum_Do AND
((#TmpZatv.Pobar_1>0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_1<0 AND P.Pobar_P<0) OR (#TmpZatv.Dolzi_1<0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_1>0 AND P.Pobar_P<0))
UPDATE #TmpZatv SET AnID2Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2<=@Datum_Do AND
((#TmpZatv.Dolzi_2>0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_2<0 AND P.Dolzi_D<0) OR (#TmpZatv.Pobar_2<0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_2>0 AND P.Dolzi_D<0))
UPDATE #TmpZatv SET AnID2Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2<=@Datum_Do AND
((#TmpZatv.Pobar_2>0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_2<0 AND P.Pobar_P<0) OR (#TmpZatv.Dolzi_2<0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_2>0 AND P.Pobar_P<0))
INSERT INTO AnZatv(AnID1, AnID2, Iznos, DatumZatv, Iznos_Dev)
SELECT AnID1Nov, AnID2Nov, Iznos, GETDATE(), Iznos FROM #TmpZatv
WHERE AnID1Nov IS NOT NULL AND AnID2Nov IS NOT NULL        --Datum_Dok1>@Datum_Do AND Datum_Dok2>@Datum_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnianzatvoddrugabazasamopoc]'))
drop procedure [dbo].[sp_polnianzatvoddrugabazasamopoc]

Go


CREATE       PROCEDURE sp_PolniAnZatvOdDrugaBazaSamoPoc
    @BazaOd    varchar(15),
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpZatv
(AnID1        int,
AnId2        int,
Iznos        decimal(18,2),
Sif_OE1        smallint,
Sif_Dok1    smallint,
Br_Dok1    int,
Dat_Dok1    smalldatetime,
Dolzi_1        decimal(18,4),
Pobar_1    decimal(18,4),
Tip_Dok1    char(1),
Br_Dok1Nov    int,
AnID1Nov    int,
Sif_OE2        smallint,
Sif_Dok2    smallint,
Br_Dok2    int,
Dat_Dok2    smalldatetime,
Dolzi_2        decimal(18,4),
Pobar_2    decimal(18,4),
Tip_Dok2    char(1),
Br_Dok2Nov    int,
AnID2Nov    int,
Sifra_Kup    char(6))
SET @SSQL = 'SELECT AnId1, AnID2, Iznos FROM '+@BazaOd+'..AnZatv
WHERE AnID1 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok>'''+cast(@Datum_Do as varchar(30))+''')
AND AnID2 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok <='''+cast(@Datum_Do as varchar(30))+''')'
INSERT INTO #TmpZatv (Anid1, AnId2, Iznos) EXEC (@SSQL)
UPDATE #TmpZatv SET Dolzi_1=0, Dolzi_2=0, Pobar_1=0, Pobar_2=0
SET @SSQL = 'SELECT AnId1, AnID2, Iznos FROM '+@BazaOd+'..AnZatv
WHERE AnID2 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok>'''+cast(@Datum_Do as varchar(30))+''')
AND AnID1 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok <='''+cast(@Datum_Do as varchar(30))+''')'
INSERT INTO #TmpZatv (Anid1, AnId2, Iznos) EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE1= F.Sifra_OE, Sif_Dok1 = F.Sifra_Dok, Br_Dok1 = F.Broj_Dok, Dat_DOk1 = F.Datum_Dok,
Dolzi_1=F.Dolzi, Pobar_1=F.Pobaruva, Sifra_Kup=F.Sifra_Kup, Br_Dok1Nov = Br_Dok1, AnID1Nov=AnID1
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID1 = F.AnID AND F.Datum_Dok >'''+cast(@Datum_Do as varchar(30))+''''
EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE2= F.Sifra_OE, Sif_Dok2 = F.Sifra_Dok, Br_Dok2 = F.Broj_Dok, Dat_Dok2 = F.Datum_Dok,
Dolzi_2=F.Dolzi, Pobar_2=F.Pobaruva, Sifra_Kup=F.Sifra_Kup, Br_Dok2Nov = Br_Dok2, AnID2Nov=AnID2
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID2 = F.AnID AND F.Datum_Dok >'''+cast(@Datum_Do as varchar(30))+''''
EXEC (@SSQL)
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 AnID_Dol    int,
 Dolzi_D    decimal(18,4),
 AnID_Pob    int,
 Pobar_P    Decimal(18,4) )
INSERT INTO #TmpPocSost (Sifra_Kup) SELECT DISTINCT Sifra_Kup FROM #TmpZatv
UPDATE #TmpPocSost SET AnID_Dol=F.AnID, Dolzi_D=F.Dolzi FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Dolzi<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za
UPDATE #TmpPocSost SET AnID_Pob=F.AnID, Pobar_P=F.Pobaruva FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Pobaruva<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za
UPDATE #TmpZatv SET AnID1Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1 IS NULL AND
((#TmpZatv.Pobar_2>0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_2<0 AND P.Dolzi_D<0) OR (#TmpZatv.Dolzi_2<0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_2>0 AND P.Dolzi_D<0))
UPDATE #TmpZatv SET AnID1Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1 IS NULL AND
((#TmpZatv.Dolzi_2>0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_2<0 AND P.Pobar_P<0) OR (#TmpZatv.Pobar_2<0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_2>0 AND P.Pobar_P<0))
UPDATE #TmpZatv SET AnID2Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2 IS NULL AND
((#TmpZatv.Pobar_1>0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_1<0 AND P.Dolzi_D<0) OR (#TmpZatv.Dolzi_1<0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_1>0 AND P.Dolzi_D<0))
UPDATE #TmpZatv SET AnID2Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2 IS NULL AND
((#TmpZatv.Dolzi_1>0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_1<0 AND P.Pobar_P<0) OR (#TmpZatv.Pobar_1<0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_1>0 AND P.Pobar_P<0))
--select * from #tmppocsost
--select * from #tmpzatv
INSERT INTO AnZatv(AnID1, AnID2, Iznos, DatumZatv, Iznos_Dev)
SELECT AnID1Nov, AnID2Nov, Iznos, GETDATE(), Iznos FROM #TmpZatv
WHERE AnID1Nov IS NOT NULL AND AnID2Nov IS NOT NULL        --Datum_Dok1>@Datum_Do AND Datum_Dok2>@Datum_Do




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnianzatvoddrugabazasamopocoe]'))
drop procedure [dbo].[sp_polnianzatvoddrugabazasamopocoe]

Go




CREATE      PROCEDURE sp_PolniAnZatvOdDrugaBazaSamoPocOE
    @BazaOd    varchar(15),
    @Sifra_Za    char(1),
    @Kto        char(10),
    @Datum_Do    smalldatetime
AS
Declare @SSQL varchar(3000)
CREATE TABLE #TmpZatv
(AnID1        int,
AnId2        int,
Iznos        decimal(18,2),
Sif_OE1        smallint,
Sif_Dok1    smallint,
Br_Dok1    int,
Dat_Dok1    smalldatetime,
Dolzi_1        decimal(18,4),
Pobar_1    decimal(18,4),
Tip_Dok1    char(1),
Br_Dok1Nov    int,
AnID1Nov    int,
Sif_OE2        smallint,
Sif_Dok2    smallint,
Br_Dok2    int,
Dat_Dok2    smalldatetime,
Dolzi_2        decimal(18,4),
Pobar_2    decimal(18,4),
Tip_Dok2    char(1),
Br_Dok2Nov    int,
AnID2Nov    int,
Sifra_Kup    char(6))
SET @SSQL = 'SELECT AnId1, AnID2, Iznos FROM '+@BazaOd+'..AnZatv
WHERE AnID1 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok>'''+cast(@Datum_Do as varchar(30))+''')
AND AnID2 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok <='''+cast(@Datum_Do as varchar(30))+''')'
INSERT INTO #TmpZatv (Anid1, AnId2, Iznos) EXEC (@SSQL)
UPDATE #TmpZatv SET Dolzi_1=0, Dolzi_2=0, Pobar_1=0, Pobar_2=0
SET @SSQL = 'SELECT AnId1, AnID2, Iznos FROM '+@BazaOd+'..AnZatv
WHERE AnID2 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok>'''+cast(@Datum_Do as varchar(30))+''')
AND AnID1 IN (SELECT AnID FROM '+@BazaOd+'..AnFinDok WHERE Sifra_Za='+@Sifra_Za+' AND Kto='''+@Kto+''' AND Datum_Dok <='''+cast(@Datum_Do as varchar(30))+''')'
INSERT INTO #TmpZatv (Anid1, AnId2, Iznos) EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE1= F.Sifra_OE, Sif_Dok1 = F.Sifra_Dok, Br_Dok1 = F.Broj_Dok, Dat_DOk1 = F.Datum_Dok,
Dolzi_1=F.Dolzi, Pobar_1=F.Pobaruva, Sifra_Kup=F.Sifra_Kup, Br_Dok1Nov = Br_Dok1, AnID1Nov=AnID1
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID1 = F.AnID AND F.Datum_Dok >'''+cast(@Datum_Do as varchar(30))+''''
EXEC (@SSQL)
SET @SSQL = 'UPDATE #TmpZatv SET Sif_OE2= F.Sifra_OE, Sif_Dok2 = F.Sifra_Dok, Br_Dok2 = F.Broj_Dok, Dat_Dok2 = F.Datum_Dok,
Dolzi_2=F.Dolzi, Pobar_2=F.Pobaruva, Sifra_Kup=F.Sifra_Kup, Br_Dok2Nov = Br_Dok2, AnID2Nov=AnID2
FROM '+@BazaOd+'..AnFinDok F WHERE #TmpZatv.AnID2 = F.AnID AND F.Datum_Dok >'''+cast(@Datum_Do as varchar(30))+''''
EXEC (@SSQL)
CREATE TABLE #TmpPocSost
(Sifra_Kup    char(6),
 Sifra_OE    smallint,
 AnID_Dol    int,
 Dolzi_D    decimal(18,4),
 AnID_Pob    int,
 Pobar_P    Decimal(18,4) )

INSERT INTO #TmpPocSost (Sifra_Kup, Sifra_OE) SELECT DISTINCT Sifra_Kup, Sif_OE1 FROM #TmpZatv WHERE Sif_OE1 IS NOT NULL
UNION SELECT DISTINCT Sifra_Kup, Sif_OE2 FROM #TmpZatv WHERE Sif_OE2 IS NOT NULL

UPDATE #TmpPocSost SET AnID_Dol=F.AnID, Dolzi_D=F.Dolzi FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Dolzi<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za AND #TmpPocSost.Sifra_OE=F.Sifra_OE
UPDATE #TmpPocSost SET AnID_Pob=F.AnID, Pobar_P=F.Pobaruva FROM AnFinDok F WHERE #TmpPocSost.Sifra_Kup=F.Sifra_Kup AND F.Pobaruva<>0 AND
F.Datum_Dok=@Datum_Do AND F.Kto = @Kto AND F.Sifra_Za = @Sifra_Za AND #TmpPocSost.Sifra_OE=F.Sifra_OE

UPDATE #TmpZatv SET AnID1Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND #TmpZatv.Sif_OE2 = P.Sifra_OE AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1 IS NULL AND
((#TmpZatv.Pobar_2>0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_2<0 AND P.Dolzi_D<0) OR (#TmpZatv.Dolzi_2<0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_2>0 AND P.Dolzi_D<0))

UPDATE #TmpZatv SET AnID1Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND #TmpZatv.Sif_OE2 = P.Sifra_OE AND
#TmpZatv.AnID1Nov IS NULL AND #TmpZatv.Dat_Dok1 IS NULL AND
((#TmpZatv.Dolzi_2>0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_2<0 AND P.Pobar_P<0) OR (#TmpZatv.Pobar_2<0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_2>0 AND P.Pobar_P<0))

UPDATE #TmpZatv SET AnID2Nov = P.AnID_Dol FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND #TmpZatv.Sif_OE1 = P.Sifra_OE AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2 IS NULL AND
((#TmpZatv.Pobar_1>0 AND P.Dolzi_D>0) OR (#TmpZatv.Pobar_1<0 AND P.Dolzi_D<0) OR (#TmpZatv.Dolzi_1<0 AND P.Dolzi_D>0) OR (#TmpZatv.Dolzi_1>0 AND P.Dolzi_D<0))

UPDATE #TmpZatv SET AnID2Nov = P.AnID_Pob FROM #TmpPocSost P WHERE #TmpZatv.Sifra_Kup = P.Sifra_Kup AND #TmpZatv.Sif_OE1 = P.Sifra_OE AND
#TmpZatv.AnID2Nov IS NULL AND #TmpZatv.Dat_Dok2 IS NULL AND
((#TmpZatv.Dolzi_1>0 AND P.Pobar_P>0) OR (#TmpZatv.Dolzi_1<0 AND P.Pobar_P<0) OR (#TmpZatv.Pobar_1<0 AND P.Pobar_P>0) OR (#TmpZatv.Pobar_1>0 AND P.Pobar_P<0))
--select * from #tmppocsost
--select * from #tmpzatv
INSERT INTO AnZatv(AnID1, AnID2, Iznos, DatumZatv, Iznos_Dev)
SELECT AnID1Nov, AnID2Nov, Iznos, GETDATE(), Iznos FROM #TmpZatv
WHERE AnID1Nov IS NOT NULL AND AnID2Nov IS NOT NULL        --Datum_Dok1>@Datum_Do AND Datum_Dok2>@Datum_Do






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polniknigatrgzv]'))
drop procedure [dbo].[sp_polniknigatrgzv]

Go
CREATE PROCEDURE sp_PolniKnigaTrgZV

    @Datum_Do    smalldatetime
AS

    Declare @Datum_Od as smalldatetime

    Set @Datum_Od = (select max(datum_dok) from knigatrg where broj like '100-10%') -- proverka do koj datum e vneseno

    If @Datum_Od Is Null
        Set @Datum_Od = '2000-01-01'

    Set @Datum_Od = DateAdd(Day, 1, @Datum_Od)

    Create Table #Tab
    (
     Brojac        int identity(1,1),
     InterBr    int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,
     Toc200    decimal(18,4),
     NabVred    decimal(18,4)
    )
    Insert Into #Tab(Sifra_Oe, Sifra_Dok, Broj_Dok, Datum_Dok, Toc200, NabVred)
    Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Toc200, Sum(S.Kolic*S.NabCena)
    From Dokr D
    Inner Join Stavr S On S.DokrID=D.DokrID
    Where D.Sifra_oe=100 And D.Sifra_Dok in(106,107) and D.Datum_Dok >= @Datum_Od and D.Datum_Dok <= @Datum_Do
    Group by D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok, D.Toc200
    Order By D.Datum_Dok

    Declare @MaxKT as int
    Set @MaxKT = (Select max(interenBr) From KnigaTrg)

    Update #Tab Set InterBr=Brojac+@MaxKT


    Insert Into KnigaTrg (InterenBr, Datum_Dok, Datum_Knz, Broj, Opis, ProdVredn, VkalkDan, ObvrskaDan, VrednProd, Sifra_OE, NabVred)
    Select InterBr, Datum_Dok, Datum_Dok, '100-' + Cast(Sifra_Dok as varchar(6)) + '/' + Cast(Broj_Dok as varchar(6)), ' ', Toc200, 0, 0, 0, 1, NabVred From #Tab order by interbr


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnimaticoddrugabaza]'))
drop procedure [dbo].[sp_polnimaticoddrugabaza]

Go






CREATE            PROCEDURE sp_PolniMaticOdDrugaBaza
     @BazaOd as varchar(15)
As
Declare @SSQL as varchar(8000)
Set @SSQL = 'Insert Into Konfig Select * From ' + @BazaOd + '..Konfig '
Exec(@SSQL)
Set @SSQL = 'Insert Into Grupi Select * From ' + @BazaOd + '..Grupi '
Exec(@SSQL)
Set @SSQL = 'Insert Into PodGrupi Select * From ' + @BazaOd + '..PodGrupi '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo1 Select * From ' + @BazaOd + '..Drugo1 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo2 Select * From ' + @BazaOd + '..Drugo2 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo3 Select * From ' + @BazaOd + '..Drugo3 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo4 Select * From ' + @BazaOd + '..Drugo4 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo5 Select * From ' + @BazaOd + '..Drugo5 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo6 Select * From ' + @BazaOd + '..Drugo6 '
Exec(@SSQL)
Set @SSQL = 'Insert Into Drugo7 Select * From ' + @BazaOd + '..Drugo7 '
Exec(@SSQL)
Set @SSQL = 'Insert Into AtcKodovi Select * From ' + @BazaOd + '..AtcKodovi'
Exec(@SSQL)
Set @SSQL = 'Insert Into DrgPodel1 Select * From ' + @BazaOd + '..DrgPodel1 '
Exec(@SSQL)
Set @SSQL = 'Insert Into DrgPodel Select * From ' + @BazaOd + '..DrgPodel '
Exec(@SSQL)
Set @SSQL = 'Insert Into Firparal Select * From ' + @BazaOd + '..Firparal '
Exec(@SSQL)
Set @SSQL = 'Insert Into FDrugo1 Select * From ' + @BazaOd + '..FDrugo1 '
Exec(@SSQL)
Set @SSQL = 'Insert Into FDrugo2 Select * From ' + @BazaOd + '..FDrugo2 '
Exec(@SSQL)
Set @SSQL = 'Insert Into FDrugo3 Select * From ' + @BazaOd + '..FDrugo3 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo1 Select * From ' + @BazaOd + '..KDrugo1 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo2 Select * From ' + @BazaOd + '..KDrugo2 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo3 Select * From ' + @BazaOd + '..KDrugo3 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo4 Select * From ' + @BazaOd + '..KDrugo4 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo5 Select * From ' + @BazaOd + '..KDrugo5 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo6 Select * From ' + @BazaOd + '..KDrugo6 '
Exec(@SSQL)
Set @SSQL = 'Insert Into KDrugo7 Select * From ' + @BazaOd + '..KDrugo7 '
Exec(@SSQL)
Set @SSQL = 'Insert Into GRegion Select * From ' + @BazaOd + '..GRegion '
Exec(@SSQL)
Set @SSQL = 'Insert Into GTipKup Select * From ' + @BazaOd + '..GTipKup '
Exec(@SSQL)
Set @SSQL = 'Insert Into Grad Select * From ' + @BazaOd + '..Grad '
Exec(@SSQL)
Set @SSQL = 'Insert Into Orged Select * From ' + @BazaOd + '..Orged '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrOrg Select * From ' + @BazaOd + '..GrOrg '
Exec(@SSQL)
Set @SSQL = 'Insert Into SGrOrg Select * From ' + @BazaOd + '..SGrOrg '
Exec(@SSQL)
Set @SSQL = 'Insert Into KrsLista Select * From ' + @BazaOd + '..KrsLista '
Exec(@SSQL)
Set @SSQL = 'Insert Into KrsVaznost Select * From ' + @BazaOd + '..KrsVaznost '
Exec(@SSQL)
Set @SSQL = 'Insert Into FixTekst Select * From ' + @BazaOd + '..FixTekst '
Exec(@SSQL)
Set @SSQL = 'Insert Into FixTekstN Select * From ' + @BazaOd + '..FixTekstN '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipNal Select * From ' + @BazaOd + '..TipNal '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipDok Select * From ' + @BazaOd + '..TipDok '
Exec(@SSQL)
Set @SSQL = 'Insert Into DDVStapki Select * From ' + @BazaOd + '..DDVStapki '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfMeni Select * From ' + @BazaOd + '..KonfMeni '
Exec(@SSQL)
Set @SSQL = 'Insert Into Marketi Select * From ' + @BazaOd + '..Marketi '
Exec(@SSQL)
Set @SSQL = 'Insert Into Masini Select * From ' + @BazaOd + '..Masini '
Exec(@SSQL)
Set @SSQL = 'Insert Into Meniedno Select * From ' + @BazaOd + '..Meniedno '
Exec(@SSQL)
Set @SSQL = 'Insert Into NasiBoi Select * From ' + @BazaOd + '..NasiBoi '
Exec(@SSQL)
Set @SSQL = 'Insert Into Nivo Select * From ' + @BazaOd + '..Nivo '
Exec(@SSQL)
Set @SSQL = 'Insert Into menipokor Select * From ' + @BazaOd + '..menipokor '
Exec(@SSQL)
Set @SSQL = 'Insert Into Operacii Select * From ' + @BazaOd + '..Operacii '
Exec(@SSQL)
Set @SSQL = 'Insert Into CBroevi Select * From ' + @BazaOd + '..CBroevi '
Exec(@SSQL)
Set @SSQL = 'Insert Into CenPoPodgr Select * From ' + @BazaOd + '..CenPoPodgr '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipPerCenovnik Select * From ' + @BazaOd + '..TipPerCenovnik '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipPerCenVaziZa Select * From ' + @BazaOd + '..TipPerCenVaziZa '
Exec(@SSQL)
Set @SSQL = 'Insert Into PrivKoncept Select * From ' + @BazaOd + '..PrivKoncept '
Exec(@SSQL)
Set @SSQL = 'Insert Into SkrDok Select * From ' + @BazaOd + '..SkrDok '
Exec(@SSQL)
Set @SSQL = 'Insert Into Operatori Select * From ' + @BazaOd + '..Operatori '
Exec(@SSQL)
Set @SSQL = 'Insert Into Privilegii Select * From ' + @BazaOd + '..Privilegii '
Exec(@SSQL)
Set @SSQL = 'Insert Into PrivilOrgTip Select * From ' + @BazaOd + '..PrivilOrgTip '
Exec(@SSQL)
Set @SSQL = 'Insert Into FiTabela Select * From ' + @BazaOd + '..FiTabela '
Exec(@SSQL)
Set @SSQL = 'Insert Into FiStavki Select * From ' + @BazaOd + '..FiStavki '
Exec(@SSQL)
Set @SSQL = 'Insert Into FiKonta Select * From ' + @BazaOd + '..FiKonta '
Exec(@SSQL)
Set @SSQL = 'Insert Into FiZbir Select * From ' + @BazaOd + '..FiZbir '
Exec(@SSQL)
--Set @SSQL = 'Insert Into FiTabela (Ime, Ime2, Kto_Anal_Raspr, Kto_Anal, Egzaktno_KtoRaspr)
--        SELECT Ime, Ime2, Kto_Anal_Raspr, Kto_Anal, Egzaktno_KtoRaspr FROM ' + @BazaOd + '..FiTabela '
--Exec(@SSQL)                Dijana 28.07.05
Set @SSQL = 'Insert Into Logo(TipObr, Sifra_OE, Sifra_Dok, ImeFile, Picture, SirinaLogo, VisinaLogo, LeftLogo, TopLogo, ImePret, Telefon, Banka, Ziro, DDVBroj, EMail, TextDolu1, TextDolu2, TextDolu3, TextDolu4, TextDolu5, TextDolu6, FontI_ImePret, FontSi_ImePret, FontSt_ImePret, FontI_Nsl, FontSi_Nsl, FontSt_Nsl, FontI_EMail, FontSi_EMail, FontSt_EMail, FontI_Komint, FontSi_Komint, FontSt_Komint, TopKomint, LeftKomint, SirinaKomint, VisinaKomint, FontI_SlTekst, FontSi_SlTekst, FontSt_SlTekst, TopSlTekst, LeftSlTekst, SirinaSlTekst, VisinaSlTekst, FontI_Dospeva, FontSi_Dospeva, FontSt_Dospeva, FontI_Dolu1, FontSi_Dolu1, FontSt_Dolu1, FontI_Dolu2, FontSi_Dolu2, FontSt_Dolu2, Adresa, Mesto, PrikPakuv, PrikKomint, LeftOff, AltSifArt, AltImeArt, DecKolic, DecCena, Kasa, IznSoBukvi, TextDolu7, LeftDolu4, TopDolu4, LeftDolu5, TopDolu5, LeftDolu6, TopDolu6, LeftDolu7, TopDolu7, PatnikDaNe, PrikBarKod, PrikSubPoTarifi, MemoGore, VisMemoGore, MemoDolu, VisMemoDolu, PresmPak,
                PrikNeispArt, PrikKontrBr, DopTekst, LeftDopTxt, TopDopTxt, SpecFormaTekst, PrikTezina)
        SELECT TipObr, Sifra_OE, Sifra_Dok, ImeFile, Picture, SirinaLogo, VisinaLogo, LeftLogo, TopLogo, ImePret, Telefon, Banka, Ziro, DDVBroj, EMail, TextDolu1, TextDolu2, TextDolu3, TextDolu4, TextDolu5, TextDolu6, FontI_ImePret, FontSi_ImePret, FontSt_ImePret, FontI_Nsl, FontSi_Nsl, FontSt_Nsl, FontI_EMail, FontSi_EMail, FontSt_EMail, FontI_Komint, FontSi_Komint, FontSt_Komint, TopKomint, LeftKomint, SirinaKomint, VisinaKomint, FontI_SlTekst, FontSi_SlTekst, FontSt_SlTekst, TopSlTekst, LeftSlTekst, SirinaSlTekst, VisinaSlTekst, FontI_Dospeva, FontSi_Dospeva, FontSt_Dospeva, FontI_Dolu1, FontSi_Dolu1, FontSt_Dolu1, FontI_Dolu2, FontSi_Dolu2, FontSt_Dolu2, Adresa, Mesto, PrikPakuv, PrikKomint, LeftOff, AltSifArt, AltImeArt, DecKolic, DecCena, Kasa, IznSoBukvi, TextDolu7, LeftDolu4, TopDolu4, LeftDolu5, TopDolu5, LeftDolu6, TopDolu6, LeftDolu7, TopDolu7, PatnikDaNe, PrikBarKod, PrikSubPoTarifi, MemoGore, VisMemoGore, MemoDolu, VisMemoDolu, PresmPak,
                PrikNeispArt, PrikKontrBr, DopTekst, LeftDopTxt, TopDopTxt, SpecFormaTekst, PrikTezina From ' + @BazaOd + '..Logo '
Exec(@SSQL)
Set @SSQL = 'Insert Into Kstapki Select * From ' + @BazaOd + '..Kstapki '
Exec(@SSQL)
Set @SSQL = 'Insert Into UprosRedosled Select * From ' + @BazaOd + '..UprosRedosled '
Exec(@SSQL)
Set @SSQL = 'Insert Into Banki Select * From ' + @BazaOd + '..Banki '
Exec(@SSQL)
Set @SSQL = 'Insert Into Site1sif Select * From ' + @BazaOd + '..Site1sif '
Exec(@SSQL)
Set @SSQL = 'Insert Into Site11si Select * From ' + @BazaOd + '..Site11si '
Exec(@SSQL)
Set @SSQL = 'Insert Into UcesDenovi Select * From ' + @BazaOd + '..UcesDenovi '
Exec(@SSQL)
Set @SSQL = 'Insert Into Tarifi Select * From ' + @BazaOd + '..Tarifi '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipKomint Select * From ' + @BazaOd + '..TipKomint '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrNar Select * From ' + @BazaOd + '..GrNar '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipNarac Select * From ' + @BazaOd + '..TipNarac '
Exec(@SSQL)
Set @SSQL = 'Insert Into AltIm Select * From ' + @BazaOd + '..AltIm '
Exec(@SSQL)
Set @SSQL = 'Insert Into BankSmetki Select * From ' + @BazaOd + '..BankSmetki '
Exec(@SSQL)
Set @SSQL = 'Insert Into SifAkc Select * From ' + @BazaOd + '..SifAkc '
Exec(@SSQL)
Set @SSQL = 'Insert Into Klas Select * From ' + @BazaOd + '..Klas '
Exec(@SSQL)
Set @SSQL = 'Insert Into Sint Select * From ' + @BazaOd + '..Sint '
Exec(@SSQL)
Set @SSQL = 'Insert Into Anal Select * From ' + @BazaOd + '..Anal '
Exec(@SSQL)
Set @SSQL = 'Insert Into Rabotnik Select * From ' + @BazaOd + '..Rabotnik '
Exec(@SSQL)
Set @SSQL = 'Insert Into Divizii Select * From ' + @BazaOd + '..Divizii '
Exec(@SSQL)
Set @SSQL = 'Insert Into VidProdObj Select * From ' + @BazaOd + '..VidProdObj '
Exec(@SSQL)
Set @SSQL = 'Insert Into Patnici Select * From ' + @BazaOd + '..Patnici '
Exec(@SSQL)
Set @SSQL = 'Insert Into Komint Select * From ' + @BazaOd + '..Komint '
Exec(@SSQL)
Delete From KObjekti
Set @SSQL = 'Insert Into KObjekti Select * From ' + @BazaOd + '..KObjekti '--KO2 Where KO2.Sifra_Obj <> 0 '
Exec(@SSQL)
Declare @BrPM int
CREATE TABLE #TmpPM (BrPM int)
Set @SSQL = 'Select COUNT(*) From ' + @BazaOd + '..ProdMest'
INSERT INTO #TmpPM Exec(@SSQL)
SELECT @BrPM = BrPM FROM #TmpPM
IF @BrPM>0
Begin        --ova pagase ne znam z's, pa zatoa se vovedoa gornite komplikacii
    Set @SSQL = 'Insert Into ProdMest Select * From ' + @BazaOd + '..ProdMest '
    Exec(@SSQL)
End
Set @SSQL = 'Insert Into KBanki Select * From ' + @BazaOd + '..KBanki '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatAmb Select * From ' + @BazaOd + '..KatAmb '
Exec(@SSQL)
Set @SSQL = 'Insert Into Katart Select * From ' + @BazaOd + '..Katart '
Exec(@SSQL)
Set @SSQL = 'Insert Into ABarKod (Sifra_Art, Nom, Drugo2) Select Sifra_Art, Nom, Drugo2 From ' + @BazaOd + '..ABarKod '
Exec(@SSQL)
Set @SSQL = 'Insert Into CenGrOrg Select * From ' + @BazaOd + '..CenGrOrg '
Exec(@SSQL)
Set @SSQL = 'Insert Into Cenovnik Select * From ' + @BazaOd + '..Cenovnik '
Exec(@SSQL)
Set @SSQL = 'Insert Into PerCenCeni Select * From ' + @BazaOd + '..PerCenCeni '
Exec(@SSQL)
Set @SSQL = 'Insert Into Sostav Select * From ' + @BazaOd + '..Sostav '
Exec(@SSQL)
Set @SSQL = 'Insert Into NadvKor Select * From ' + @BazaOd + '..NadvKor '
Exec(@SSQL)
Set @SSQL = 'Insert Into AvtKont Select * From ' + @BazaOd + '..AvtKont '
Exec(@SSQL)
Declare @BrSP int
CREATE TABLE #Tmp (BrSP int)
Set @SSQL = 'Select COUNT(*) From ' + @BazaOd + '..StaProdMest'
INSERT INTO #Tmp Exec(@SSQL)
SELECT @BrSP = BrSP FROM #Tmp
IF @BrSP>0
Begin        --ova pagase ne znam z's, pa zatoa se vovedoa gornite komplikacii
    Set @SSQL = 'Insert Into StaProdMest Select * From ' + @BazaOd + '..StaProdMest WHERE Sifra_Mest IS NOT NULL'
    Exec(@SSQL)
End
Set @SSQL = 'Insert Into KonfCeni Select * From ' + @BazaOd + '..KonfCeni '
Exec(@SSQL)
Set @SSQL = 'Insert Into ProizvTrosFix Select * From ' + @BazaOd + '..ProizvTrosFix '
Exec(@SSQL)
Set @SSQL = 'Insert Into DnIzvSkr Select * From ' + @BazaOd + '..DnIzvSkr '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrAnal Select * From ' + @BazaOd + '..GrAnal '
Exec(@SSQL)
Set @SSQL = 'Insert Into NacPlak Select * From ' + @BazaOd + '..NacPlak '
Exec(@SSQL)
Set @SSQL = 'Insert Into NivoCeniKartKor Select * From ' + @BazaOd + '..NivoCeniKartKor '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipKartKor Select * From ' + @BazaOd + '..TipKartKor '
Exec(@SSQL)
Set @SSQL = 'Insert Into KartKor Select * From ' + @BazaOd + '..KartKor '
Exec(@SSQL)
Set @SSQL = 'Insert Into KartProm Select * From ' + @BazaOd + '..KartProm '
Exec(@SSQL)
Set @SSQL = 'Insert Into CenKartKor Select * From ' + @BazaOd + '..CenKartKor '
Exec(@SSQL)
Set @SSQL = 'Insert Into MozeVlez Select * From ' + @BazaOd + '..MozeVlez '
Exec(@SSQL)
Set @SSQL = 'Insert Into OptZalPoOe Select * From ' + @BazaOd + '..OptZalPoOe '
Exec(@SSQL)
Set @SSQL = 'Insert Into DozvObj Select * From ' + @BazaOd + '..DozvObj '
Exec(@SSQL)
Set @SSQL = 'Insert Into PodelArtKomUsl Select * From ' + @BazaOd + '..PodelArtKomUsl '
Exec(@SSQL)
Set @SSQL = 'Insert Into IstBlokKom Select * From ' + @BazaOd + '..IstBlokKom '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrupiOper Select * From ' + @BazaOd + '..GrupiOper '
Exec(@SSQL)
Set @SSQL = 'Insert Into OperacInter Select * From ' + @BazaOd + '..OperacInter '
Exec(@SSQL)
Set @SSQL = 'Insert Into PrivOper Select * From ' + @BazaOd + '..PrivOper '
Exec(@SSQL)
Set @SSQL = 'Insert Into DepozAmb Select * From ' + @BazaOd + '..DepozAmb '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfIzvArt Select * From ' + @BazaOd + '..KonfIzvArt '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfDokPrenos Select * From ' + @BazaOd + '..KonfDokPrenos '
Exec(@SSQL)
Set @SSQL = 'Insert Into CeniPlanski Select * From ' + @BazaOd + '..CeniPlanski '
Exec(@SSQL)
Set @SSQL = 'Insert Into RelacIspor Select * From ' + @BazaOd + '..RelacIspor '
Exec(@SSQL)
Set @SSQL = 'Insert Into RelacIsporStav Select * From ' + @BazaOd + '..RelacIsporStav '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfAccr Select * From ' + @BazaOd + '..KonfAccr '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatHier Select * From ' + @BazaOd + '..KatHier '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatPrior_VidObj Select * From ' + @BazaOd + '..KatPrior_VidObj '
Exec(@SSQL)
Set @SSQL = 'Insert Into Usl_KolRab_Fra Select * From ' + @BazaOd + '..Usl_KolRab_Fra '
Exec(@SSQL)
Set @SSQL = 'Insert Into KomintPat Select * From ' + @BazaOd + '..KomintPat '
Exec(@SSQL)
Set @SSQL = 'Insert Into SostavKontr Select * From ' + @BazaOd + '..SostavKontr '
Exec(@SSQL)
Set @SSQL = 'Insert Into AkciiPromo Select * From ' + @BazaOd + '..AkciiPromo '
Exec(@SSQL)
Set @SSQL = 'Insert Into AkciiPromoSta Select * From ' + @BazaOd + '..AkciiPromoSta '
Exec(@SSQL)
Set @SSQL = 'Insert Into Fazi Select * From ' + @BazaOd + '..Fazi '
Exec(@SSQL)
Set @SSQL = 'Insert Into Hilzni Select * From ' + @BazaOd + '..Hilzni '
Exec(@SSQL)
Set @SSQL = 'Insert Into Smeni Select * From ' + @BazaOd + '..Smeni '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfMeniUser Select * From ' + @BazaOd + '..KonfMeniUser '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatGAmb Select * From ' + @BazaOd + '..KatGAmb '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrpMarza Select * From ' + @BazaOd + '..GrpMarza '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfSlaganje Select * From ' + @BazaOd + '..KonfSlaganje '
Exec(@SSQL)
--za prenos vo tx, pusti prvo xx_NabCeniTx koja ja popolnuva PomNabC2005
Set @SSQL = 'Insert Into StariNabavniC Select * From ' + @BazaOd + '..PomNabC2005 '    --ova neka bide posledno zasto go nema negde
Exec(@SSQL)
Set @SSQL = 'Insert Into GrupaWeb Select * From ' + @BazaOd + '..GrupaWeb '
Exec(@SSQL)
Set @SSQL = 'Insert Into PodgrWeb Select * From ' + @BazaOd + '..PodgrWeb '
Exec(@SSQL)
Set @SSQL = 'Insert Into Periodi Select * From ' + @BazaOd + '..Periodi '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrPat Select * From ' + @BazaOd + '..GrPat '
Exec(@SSQL)
Set @SSQL = 'Insert Into SGrPat Select * From ' + @BazaOd + '..SGrPat '
Exec(@SSQL)
Set @SSQL = 'Insert Into AvtKontArtMap Select * From ' + @BazaOd + '..AvtKontArtMap '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfMapWord Select * From ' + @BazaOd + '..KonfMapWord '
Exec(@SSQL)
Set @SSQL = 'Insert Into Udf_Izv Select * From ' + @BazaOd + '..Udf_Izv '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatStatus Select * From ' + @BazaOd + '..KatStatus '
Exec(@SSQL)
Set @SSQL = 'Insert Into tmUslugi Select * From ' + @BazaOd + '..tmUslugi '
Exec(@SSQL)
Set @SSQL = 'Insert Into tmTarifModel Select * From ' + @BazaOd + '..tmTarifModel '
Exec(@SSQL)
Set @SSQL = 'Insert Into tmTel Select * From ' + @BazaOd + '..tmTel '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipKatPakuv Select * From ' + @BazaOd + '..TipKatPakuv '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatPakuv Select * From ' + @BazaOd + '..KatPakuv '
Exec(@SSQL)
Set @SSQL = 'Insert Into LstPartic Select * From ' + @BazaOd + '..LstPartic '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFIzvrsitel Select * From ' + @BazaOd + '..XFIzvrsitel '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFIzvrsitel Select * From ' + @BazaOd + '..XFIzvrsitel '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFOddel Select * From ' + @BazaOd + '..XFOddel '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFVrebOddel Select * From ' + @BazaOd + '..XFVrebOddel '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFVidBaranje Select * From ' + @BazaOd + '..XFVidBaranje '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFSlednoBaranje Select * From ' + @BazaOd + '..XFSlednoBaranje '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFVidBarIzvrs Select * From ' + @BazaOd + '..XFVidBarIzvrs '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFTipPredmet Select * From ' + @BazaOd + '..XFTipPredmet '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFStatusPredmet Select * From ' + @BazaOd + '..XFStatusPredmet '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFOblast Select * From ' + @BazaOd + '..XFOblast '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFNapraveno Select * From ' + @BazaOd + '..XFNapraveno '
Exec(@SSQL)
Set @SSQL = 'Insert Into XFStatusBaranje Select * From ' + @BazaOd + '..XFStatusBaranje '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfMerenoVaga Select * From ' + @BazaOd + '..KonfMerenoVaga '
Exec(@SSQL)
Set @SSQL = 'Insert Into DeklArt Select * From ' + @BazaOd + '..DeklArt '
Exec(@SSQL)
Set @SSQL = 'Insert Into KartDepoz Select * From ' + @BazaOd + '..KartDepoz '
Exec(@SSQL)

--- za 2009
Set @SSQL = 'Insert Into AdrTaggy Select * From ' + @BazaOd + '..AdrTaggy  '
Exec(@SSQL)
Set @SSQL = 'Insert Into AmorGrp Select * From ' + @BazaOd + '..AmorGrp  '
Exec(@SSQL)
Set @SSQL = 'Insert Into VidVozila Select * From ' + @BazaOd + '..VidVozila  '
Exec(@SSQL)
Set @SSQL = 'Insert Into CenVidVozila Select * From ' + @BazaOd + '..CenVidVozila  '
Exec(@SSQL)
Set @SSQL = 'Insert Into GotovSurovOrg Select * From ' + @BazaOd + '..GotovSurovOrg  '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrpIzbor Select * From ' + @BazaOd + '..GrpIzbor  '
Exec(@SSQL)
Set @SSQL = 'Insert Into GrpIzborNiza Select * From ' + @BazaOd + '..GrpIzborNiza  '
Exec(@SSQL)
Set @SSQL = 'Insert Into GSostav Select * From ' + @BazaOd + '..GSostav  '
Exec(@SSQL)
Set @SSQL = 'Insert Into InterniKart Select * From ' + @BazaOd + '..InterniKart  '
Exec(@SSQL)
Set @SSQL = 'Insert Into Karakterist Select * From ' + @BazaOd + '..Karakterist  '
Exec(@SSQL)
Set @SSQL = 'Insert Into TipKarakt Select * From ' + @BazaOd + '..TipKarakt  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatKarakt Select * From ' + @BazaOd + '..KatKarakt  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatAsortLista Select * From ' + @BazaOd + '..KatAsortLista  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatCombo Select * From ' + @BazaOd + '..KatCombo  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatOpcii Select * From ' + @BazaOd + '..KatOpcii  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KatSliki Select * From ' + @BazaOd + '..KatSliki  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfDat Select * From ' + @BazaOd + '..KonfDat  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfLokPrn Select * From ' + @BazaOd + '..KonfLokPrn  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfMerenoVaga Select * From ' + @BazaOd + '..KonfMerenoVaga  '
Exec(@SSQL)
Set @SSQL = 'Insert Into konfMoznosti Select * From ' + @BazaOd + '..konfMoznosti  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfNasObjDok Select * From ' + @BazaOd + '..KonfNasObjDok  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfNasObjMatic Select * From ' + @BazaOd + '..KonfNasObjMatic  '
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfNasObjOpst Select * From ' + @BazaOd + '..KonfNasObjOpst  '
Exec(@SSQL)
Set @SSQL = 'Insert Into Lokacija Select * From ' + @BazaOd + '..Lokacija  '
Exec(@SSQL)
Set @SSQL = 'Insert Into MakroLok Select * From ' + @BazaOd + '..MakroLok  '
Exec(@SSQL)
Set @SSQL = 'Insert Into MikroLok Select * From ' + @BazaOd + '..MikroLok  '
Exec(@SSQL)
Set @SSQL = 'Insert Into OsnSred Select * From ' + @BazaOd + '..OsnSred  '
Exec(@SSQL)
Set @SSQL = 'Insert Into PerCeniProm Select * From ' + @BazaOd + '..PerCeniProm  '
Exec(@SSQL)
Set @SSQL = 'Insert Into PlanPat Select * From ' + @BazaOd + '..PlanPat WHERE Godina >' + cast(Year(GetDate()) as char(4))
Exec(@SSQL)
Set @SSQL = 'Insert Into Prevoznik Select * From ' + @BazaOd + '..Prevoznik  '
Exec(@SSQL)
Set @SSQL = 'Insert Into RKasGrupaOperac Select * From ' + @BazaOd + '..RKasGrupaOperac  '
Exec(@SSQL)
Set @SSQL = 'Insert Into RKasi Select * From ' + @BazaOd + '..RKasi  '
Exec(@SSQL)
Set @SSQL = 'Insert Into RKasOperac Select * From ' + @BazaOd + '..RKasOperac  '
Exec(@SSQL)
Set @SSQL = 'Insert Into RKasPrivil Select * From ' + @BazaOd + '..RKasPrivil  '
Exec(@SSQL)
Set @SSQL = 'Insert Into SifKupArt Select * From ' + @BazaOd + '..SifKupArt  '
Exec(@SSQL)
Set @SSQL = 'Insert Into TekstSmetki Select * From ' + @BazaOd + '..TekstSmetki  '
Exec(@SSQL)
Set @SSQL = 'Insert Into UDF_Stavki Select * From ' + @BazaOd + '..UDF_Stavki  '
Exec(@SSQL)
Set @SSQL = 'Insert Into Usl_Komerc_Per Select * From ' + @BazaOd + '..Usl_Komerc_Per  '
Exec(@SSQL)


Set @SSQL = 'Insert Into KomSliki Select * From ' + @BazaOd + '..KomSliki'
Exec(@SSQL)
Set @SSQL = 'Insert Into BonSpec Select * From ' + @BazaOd + '..BonSpec'
Exec(@SSQL)
Set @SSQL = 'Insert Into KumulSki Select * From ' + @BazaOd + '..KumulSki'
Exec(@SSQL)
Set @SSQL = 'Insert Into ApKonfigParam Select * From ' + @BazaOd + '..ApKonfigParam'
Exec(@SSQL)
Set @SSQL = 'Insert Into KObjSliki Select * From ' + @BazaOd + '..KObjSliki'
Exec(@SSQL)
Set @SSQL = 'Insert Into CRRKodovi Select * From ' + @BazaOd + '..CRRKodovi'
Exec(@SSQL)
Set @SSQL = 'Insert Into FormulaDef Select * From ' + @BazaOd + '..FormulaDef'
Exec(@SSQL)
Set @SSQL = 'Insert Into EkvivDezen Select * From ' + @BazaOd + '..EkvivDezen'
Exec(@SSQL)
Set @SSQL = 'Insert Into CenDog Select * From ' + @BazaOd + '..CenDog'
Exec(@SSQL)
Set @SSQL = 'Insert Into CenDogSta Select * From ' + @BazaOd + '..CenDogSta'
Exec(@SSQL)
Set @SSQL = 'Insert Into WhmLokacija Select * From ' + @BazaOd + '..WhmLokacija'
Exec(@SSQL)
Set @SSQL = 'Insert Into WhmFXR Select * From ' + @BazaOd + '..WhmFXR'
Exec(@SSQL)
Set @SSQL = 'Insert Into WhmMVC Select * From ' + @BazaOd + '..WhmMVC'
Exec(@SSQL)
Set @SSQL = 'Insert Into WhmLokacKarakterist Select * From ' + @BazaOd + '..WhmLokacKarakterist'
Exec(@SSQL)
Set @SSQL = 'Insert Into WhmLokacKatStatus Select * From ' + @BazaOd + '..WhmLokacKatStatus'
Exec(@SSQL)
Set @SSQL = 'Insert Into LogNadvKor Select * From ' + @BazaOd + '..LogNadvKor'
Exec(@SSQL)
Set @SSQL = 'Insert Into Lekari Select * From ' + @BazaOd + '..Lekari'
Exec(@SSQL)
Set @SSQL = 'Insert Into OsnovOsig Select * From ' + @BazaOd + '..OsnovOsig'
Exec(@SSQL)
Set @SSQL = 'Insert Into PodracniSluzbi Select * From ' + @BazaOd + '..PodracniSluzbi'
Exec(@SSQL)
Set @SSQL = 'Insert Into Dijagnozi Select * From ' + @BazaOd + '..Dijagnozi'
Exec(@SSQL)
Set @SSQL = 'Insert Into Farmacevt Select * From ' + @BazaOd + '..Farmacevt'
Exec(@SSQL)
Set @SSQL = 'Insert Into Apteka Select * From ' + @BazaOd + '..Apteka'
Exec(@SSQL)
Set @SSQL = 'Insert Into Pacienti Select * From ' + @BazaOd + '..Pacienti'
Exec(@SSQL)
Set @SSQL = 'Insert Into Sams_Uredi Select * From ' + @BazaOd + '..Sams_Uredi'
Exec(@SSQL)
Set @SSQL = 'Insert Into Sams_StatusUredi Select * From ' + @BazaOd + '..Sams_StatusUredi'
Exec(@SSQL)
Set @SSQL = 'Insert Into Vozila Select * From ' + @BazaOd + '..Vozila'
Exec(@SSQL)
Set @SSQL = 'Insert Into StatusKasi Select * From ' + @BazaOd + '..StatusKasi'
Exec(@SSQL)
Set @SSQL = 'Insert Into PomBrojDok Select * From ' + @BazaOd + '..PomBrojDok'
Exec(@SSQL)
Set @SSQL = 'Insert Into KartKorDetali Select * From ' + @BazaOd + '..KartKorDetali'
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfPregled Select * From ' + @BazaOd + '..KonfPregled'
Exec(@SSQL)
Set @SSQL = 'Insert Into OsnGrPodel Select * From ' + @BazaOd + '..OsnGrPodel'
Exec(@SSQL)
Set @SSQL = 'Insert Into OsnPodelbi Select * From ' + @BazaOd + '..OsnPodelbi'
Exec(@SSQL)
Set @SSQL = 'Insert Into OsnPodelSta Select * From ' + @BazaOd + '..OsnPodelSta'
Exec(@SSQL)
Set @SSQL = 'Insert Into NacKonKart Select * From ' + @BazaOd + '..NacKonKart'
Exec(@SSQL)
Set @SSQL = 'Insert Into TrosokVid Select * From ' + @BazaOd + '..TrosokVid'
Exec(@SSQL)
Set @SSQL = 'Insert Into TrosokMesto Select * From ' + @BazaOd + '..TrosokMesto'
Exec(@SSQL)
Set @SSQL = 'Insert Into KonfAzurTros Select * From ' + @BazaOd + '..KonfAzurTros'
Exec(@SSQL)

--NE SE DODADENI: CenImp, CenPoArt, DozvOrgArt, Etik*, Firmi, KatListi(nikoj ne ja koristi)
--            LotSer?!, NG*, OtkrojSema, PisiBrisiBarKod, PlanPro,PlanProSta, PocNabCeni, PrometODL
--            StatusKasi?!, VernTraenje, VidDog
-- plata    NacinPresmZ, Obrazovanie, Opstini, Primateli, Programi, RabKalendar, RabMesta, Rabotnik
--            StsRabMesto, StrSprema, TipResenijaVrab





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polninalozidrugabaza]'))
drop procedure [dbo].[sp_polninalozidrugabaza]

Go
CREATE PROCEDURE sp_PolniNaloziDrugaBaza
    @BazaOd    varchar(15),
    @Datum_Od    smalldatetime
AS
Declare @SSQL varchar(3000)
SET @SSQL = 'INSERT INTO Nalozi SELECT * FROM '+@BazaOd + '..Nalozi WHERE Datum_Nal>=''' + cast(@Datum_Od as varchar(30))+''' '
EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnioptzalpooe]'))
drop procedure [dbo].[sp_polnioptzalpooe]

Go


CREATE   PROCEDURE [dbo].[sp_PolniOptZalPoOe]
    @BazenDatum     Smalldatetime,
    @Sifra_OE     varchar(600) = NULL,
    @Prodazba_DD  smallint = 20,
    @Preth_DD     smallint = 60,
    @Trend_EE     smallint = 60,
    @KF_OE        char(1)  = 'N',
    @Sifra_Podg   varchar(1000) = NULL,
    @KF_Podg      char(1) = 'N',
    @Sifra_Gr     varchar(200) = NULL,
    @KF_Gr        char(1) = 'N',
    @Kto          varchar(200) = NULL,
    @KF_Kto       char(1) = 'N',
    @Sifra_Brand  varchar(200) = NULL,
    @KF_Brand     char(1) = 'N',
    @Lokacija     varchar(10) = NULL,
    @KF_Lokacija  char(1) = 'N',
    @SoDanok      Char(1) = 'D',
    @TekZaliha    char(1) = 'D',
    @TipDokProd   varchar(200) = '100,101,60',
    @So_NulaProd    char(1)='D',
    @DobavOd    char(1) = 'K',
    @BazaPreth    varchar(20) = Null

AS
    Declare @Datum_Od smalldatetime
    Declare @Datum_Do smalldatetime

    set @Datum_Od = dateadd(dd, @Preth_DD*(-1), @BazenDatum)
    set @Datum_Do = @BazenDatum

    CREATE TABLE #TmpArt
    (
        Sifra_Art varchar(20),
        ImeArt varchar(40),
        Sifra_Podg char(6),
        FaktorMin decimal(18, 6),
        FaktorMax decimal(18, 6)
    )
    CREATE NONCLUSTERED INDEX IX_TmpArt ON #TmpArt
        (Sifra_Art) ON [PRIMARY]

    Declare @SSQL Varchar(8000)
    Declare @SSQLUsl Varchar(2000)
    Declare @SOE Varchar(2000)
    Declare @SOsn Varchar(2000)
    SET @SSQLUsl = ''
    SET @SOE = ''
    SET @SOsn = ''

    If @Sifra_OE Is Not NULL
       Begin
        If @KF_OE = 'N'
             Set @SOE = @SOE + 'AND S.Sifra_OE  IN (' + @Sifra_OE  + ') '
        Else
               Set @SOE = @SOE + 'AND S.Sifra_OE  NOT IN (' + @Sifra_OE  + ') '
        End
    If @Sifra_Podg Is Not NULL
        Begin
        If @KF_Podg = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Podg IN (' + @Sifra_Podg  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Podg NOT IN (' + @Sifra_Podg  + ') '
        End
    If @Sifra_Gr Is Not NULL
        Begin
        If @KF_Gr = 'N'
                Set @SOsn = @SOsn + 'And P.Sifra_Gr IN (' + @Sifra_Gr  + ') '
        Else
            Set @SOsn = @SOsn + 'And P.Sifra_Gr NOT IN (' + @Sifra_Gr  + ') '
        End
    If @Sifra_Brand Is Not NULL
        Begin
        If @KF_Brand = 'N'
                Set @SOsn = @SOsn + 'And K.Sifra_Drg IN (' + @Sifra_Brand  + ') '
        Else
            Set @SOsn = @SOsn + 'And K.Sifra_Drg NOT IN (' + @Sifra_Brand  + ') '
        End
    If @Lokacija Is Not NULL
    Begin
        If @KF_Lokacija  = 'N'
            Set @SOsn = @SOsn + 'And K.Lokacija = ''' + @Lokacija + ''' '
        Else
            Set @SOsn = @SOsn + 'And K.Lokacija <> ''' + @Lokacija + ''' '
    End
    If @Kto Is Not NULL
    Begin
        If @DobavOd = 'K'
        Begin
            If @KF_Kto = 'N'
                    Set @SOsn = @SOsn + 'And K.Kto IN (' + @Kto  + ') '
            Else
                Set @SOsn = @SOsn + 'And K.Kto NOT IN (' + @Kto  + ') '
        End
        Else
        Begin
            If @KF_Kto = 'N'
                    Set @SOsn = @SOsn + 'And S.Dobav IN (' + @Kto  + ') '
            Else
                Set @SOsn = @SOsn + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    End

    If @DobavOd = 'K'
        SET @SSQL = 'SELECT K.Sifra_Art, K.ImeArt, K.Sifra_Podg, P.Proc_MinZal, P.Proc_MaxZal
                FROM KatArt K
                Inner Join Podgrupi P on K.Sifra_Podg = P.Sifra_Podg '
    Else
        SET @SSQL = 'SELECT Distinct S.Sifra_Art, K.ImeArt, K.Sifra_Podg, P.Proc_MinZal, P.Proc_MaxZal
                FROM Stavr S
                Inner Join KatArt K On K.Sifra_Art = S.Sifra_Art
                Inner Join Podgrupi P on K.Sifra_Podg = P.Sifra_Podg '
    SET @SSQL = @SSQL + ' WHERE 1=1 ' + @SOsn

    If @DobavOd <> 'K' Or @DobavOd Is Null
    Begin
        Set @SSQL = @SSQL + @SOE
        If @TipDokProd is NOT null
            Set @SSQL = @SSQL + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
       If @Datum_Od Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
        If @Datum_Do Is Not NULL
            Set @SSQL = @SSQL + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    End

    INSERT INTO #TmpArt EXEC (@SSQL)
    UPDATE #TmpArt set FaktorMin = 0.7 where FaktorMin is null or FaktorMin <=0
    UPDATE #TmpArt set FaktorMax = 1.3 where FaktorMax is null or FaktorMax <=0

    ---Sega prodazba
    Set @SSQLUsl = ' '

    CREATE TABLE #TmpKolic
    (
        Sifra_Art    varchar(20),
        Kolicina        decimal(18,6),
        OzPoc decimal(18,6)
    )
    CREATE NONCLUSTERED INDEX IX_TmpKolic ON #TmpKolic
        (Sifra_Art) ON [PRIMARY]

    SET @SSQL = 'SELECT S.Sifra_Art, Sum(S.Kolic) As Kolicina '

    Set @SSQL = @SSQL + ' From Stavr S
        Inner Join #TmpArt K On S.Sifra_Art=K.Sifra_Art
        Inner Join Dokr D On S.DokrID = D.DokrID
        Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
    If @TipDokProd is NOT null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Kto Is Not NULL And (@DobavOd <> 'K' Or @DobavOd Is Null)
        Begin
        If @KF_Kto = 'N'
                Set @SSQLUsl = @SSQLUsl + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    Set @SSQLUsl = @SSQLUsl +  'Group By S.Sifra_Art'
    --print @SSQL+@SSQLUsl

    INSERT #TmpKolic(Sifra_Art, Kolicina) EXEC(@SSQL+@SSQLUsl)

        If @Prodazba_DD <=0 or @Prodazba_DD is null
            set @Prodazba_DD = 20

        If @Preth_DD <=0 or @Preth_DD is null
            set @Preth_DD = 60

    Update #TmpKolic set OzPoc = (Kolicina * @Prodazba_DD / @Preth_DD)

    create table #TmpPromPrethGod
    (
        Sifra_Podg char(6),
        Preth_Promet decimal(18, 6),
        Iden_Promet decimal(18, 6)
    )

    declare @Datum_Od_PrethGod smalldatetime
    declare @BazenDatum_PrethGod smalldatetime
    declare @Datum_Do_PrethGod smalldatetime

    set @Datum_Od_PrethGod = dateadd(dd, @Trend_EE*(-1), dateadd(yy, (-1), @BazenDatum ))
    set @BazenDatum_PrethGod = dateadd(yy, (-1), @BazenDatum)
    set @Datum_Do_PrethGod = dateadd(dd, @Trend_EE, dateadd(yy, (-1), @BazenDatum ))


    SET @SSQL = 'SELECT A.Sifra_Podg, '
    SET @SSQLUsl = ' '
    Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) '
    If @BazaPreth is not null
        Set @SSQL = @SSQL + ' From ' + @BazaPreth + '..Stavr S
            Inner Join #TmpArt A On A.Sifra_Art = S.Sifra_Art
            Inner Join ' + @BazaPreth + '..Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
    else
            Set @SSQL = @SSQL + ' From Stavr S
            Inner Join #TmpArt A On A.Sifra_Art = S.Sifra_Art
            Inner Join Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE

    If @TipDokProd is NOT null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok>=''' + Cast(@Datum_Od_PrethGod As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok<=''' + Cast(@BazenDatum_PrethGod As Varchar(30)) + ''' '
    If @Kto Is Not NULL And (@DobavOd <> 'K' Or @DobavOd Is Null)
        Begin
        If @KF_Kto = 'N'
                Set @SSQLUsl = @SSQLUsl + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    Set @SSQLUsl = @SSQLUsl +  'Group By A.Sifra_Podg'


    INSERT #TmpPromPrethGod(Sifra_Podg, Preth_Promet) EXEC(@SSQL+@SSQLUsl)
    print(@SSQL+@SSQLUsl)
    SET @SSQL = 'SELECT A.Sifra_Podg, '
    SET @SSQLUsl = ' '
    Set @SSQL = @SSQL + ' Sum(Case
                    When S.DanDokCena=''N'' Then
                      (S.Kolic * S.DokCena * (1+S.Posn/100)*(1-S.Uces/100)*(1-D.Kasa/100))
                    Else
                      (S.Kolic * S.DokCena * (1-S.Uces/100)*(1-D.Kasa/100))
                    End) '
    If @BazaPreth is not null
        Set @SSQL = @SSQL + ' From ' + @BazaPreth + '..Stavr S
            Inner Join #TmpArt A On S.Sifra_Art=A.Sifra_Art
            Inner Join ' + @BazaPreth + '..Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE
    else
        Set @SSQL = @SSQL + ' From Stavr S
            Inner Join #TmpArt A On S.Sifra_Art=A.Sifra_Art
            Inner Join Dokr D On S.DokrID = D.DokrID
            Where S.VlIzl = ''I'' And (S.ImaDodatna Is NULL OR S.ImaDodatna = '' '' OR S.ImaDodatna = '''') '+@SOE

    If @TipDokProd is NOT null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Dok IN (' + @TipDokProd + ') '
    If @Datum_Od Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok>=''' + Cast(@BazenDatum_PrethGod As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQLUsl = @SSQLUsl + 'And S.Datum_Dok<=''' + Cast(@Datum_Do_PrethGod As Varchar(30)) + ''' '
    If @Kto Is Not NULL And (@DobavOd <> 'K' Or @DobavOd Is Null)
        Begin
        If @KF_Kto = 'N'
                Set @SSQLUsl = @SSQLUsl + 'And S.Dobav IN (' + @Kto  + ') '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And S.Dobav NOT IN (' + @Kto  + ') '
        End
    Set @SSQLUsl = @SSQLUsl +  'Group By A.Sifra_Podg'

    INSERT #TmpPromPrethGod(Sifra_Podg, Iden_Promet) EXEC(@SSQL+@SSQLUsl)
    print(@SSQL+@SSQLUsl)

    create table #TmpFaktor
    (
        Sifra_Podg char(6),
        Preth_Promet decimal(18, 6),
        Iden_Promet decimal(18, 6),
        Faktor decimal(18, 6)
    )
    INSERT #TmpFaktor (Sifra_Podg, Preth_Promet, Iden_Promet)
    SELECT Sifra_Podg, sum(Preth_Promet), sum(Iden_Promet)
    FROM #TmpPromPrethGod
    GROUP BY Sifra_Podg


    update #TmpFaktor set Faktor = Iden_Promet / Preth_Promet
    where Preth_Promet <> 0 and Preth_Promet is not null

    update #TmpFaktor set Faktor = 1
    where Faktor is null

     SELECT TK.Sifra_Art, TK.OzPoc, TA.FaktorMin,
     case when TF.Faktor is null then 1 else TF.Faktor end as Faktor, TA.FaktorMax
    FROM #TmpKolic TK
    INNER JOIN #TmpArt TA on TA.Sifra_Art = TK.Sifra_Art
    LEFT OUTER JOIN #TmpFaktor TF on TA.Sifra_Podg = TF.Sifra_Podg




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_polnitabartzawebnaracki]'))
drop procedure [dbo].[sp_polnitabartzawebnaracki]

Go
CREATE PROCEDURE sp_PolniTabArtzaWEBNaracki
    @Sifra_Kup    char(6),
    @Sifra_Art    varchar(20),
    @Kolic        decimal(18,6)
AS
Declare @ImeTab varchar(20)
SET @ImeTab = '##wNar'+@Sifra_Kup
Declare @SSQL varchar(3000)

SET @SSQL = 'INSERT INTO ' + @ImeTab + ' (Sifra_Art, Kolic) VALUES ('''+@Sifra_Art +''','+ cast(@Kolic as varchar(30))+')'

EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_poluproizvodi_utrossok]'))
drop procedure [dbo].[sp_poluproizvodi_utrossok]

Go
CREATE PROCEDURE sp_Poluproizvodi_Utrossok
    @Sifra_Oe    smallint,
    @TipDok    varchar(200)
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select K.KontrSer, K.Sifra_Art, K.Dolzina_Proiz, K.Tezina_Dara, K.Tezina_Bruto, K.Tezina_Neto, K.Precnik_Proiz, K.Sifra_Boja,
            K.Broj_Prekini, K.Vreme_Pocetok, K.Vreme_Kraj, K.Sirina_Proiz, K.Precnik_Amb, K.Kolku_Edinici, K.Kolic, K.OznPodBr, K.Sifra_Hilzna, K.Sifra_OeRab,
            K.Broj_RabN, K.Kvalitet
        From KatSerBr K
        Where K.KontrSer In (Select KontrSerSta From KatSerBrSta)
        And K.KontrSer Not In (Select M.SpecOzn From MagStavr M Inner Join Stavr S On S.DokrID=M.DokrID
                    Where S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + '
                    And S.Sifra_Dok In ( ' + @TipDok + ')) '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pomlagernadat]'))
drop procedure [dbo].[sp_pomlagernadat]

Go

CREATE PROCEDURE sp_PomLagerNaDat
    @SifMarket  char(2),
    @Datum   smalldatetime
AS
Set Nocount On
---
    Declare @ImeDat char(8)
    Set @ImeDat = 'TZ'+@SifMarket+'0'+cast(month(@Datum) as varchar(1))+'03'
    Declare @SSQL varchar(4000)
    SET @SSQL = 'SELECT Sifra_Art,
                Vlez=
                CASE
                     WHEN VlIzl = ''V'' THEN Kolic
                   ELSE  0
                END,
                 Izlez=
                CASE
                     WHEN VlIzl = ''I'' THEN Kolic
                   ELSE  0
                END
                FROM Stavr
                WHERE Sifra_OE=1 AND Datum_Dok<=''' + Cast(@Datum As Varchar(35)) + ''' '
    CREATE TABLE #PrometArt
    ( Sifra_Art  varchar(20),
      Vlez Numeric(18,4),
      Izlez Numeric(18,4)
    )
    INSERT INTO #PrometArt EXEC(@SSQL)
--    Set @SSQL = 'If Exists (select * from dbo.sysobjects where id = object_id(N'+
--        @ImeDat+') and OBJECTPROPERTY(id, N'IsTable') = 1)
--        Drop Table @ImeDat
    Set @SSQL = 'CREATE TABLE '+@ImeDat+
    ' (Sifra_Art  Varchar(20),
     Kolic decimal(15,3),
     Vrednost  decimal(15,3))'
    EXEC(@SSQL)
    Set @SSQL = 'INSERT INTO '+@ImeDat+
    ' SELECT Sifra_Art, SUM(Vlez - Izlez) AS Kolic, 0 AS Vrednost
    FROM #PrometArt
    GROUP BY Sifra_Art'
    EXEC(@SSQL)
    Set @SSQL = 'UPDATE '+ @ImeDat +' SET Vrednost = S.Cena * T.Kolic
    FROM Soart S, ' + @ImeDat + ' T
    WHERE S.Sifra_Art = T.Sifra_Art AND S.Sifra_OE = 1'
    EXEC(@SSQL)
    DROP TABLE #PrometArt
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popis_i_ostvarenpromet]'))
drop procedure [dbo].[sp_popis_i_ostvarenpromet]

Go
CREATE          PROCEDURE sp_Popis_i_OstvarenPromet
    @Sifra_Oe        smallint,
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Sifra_Dok_Ispor    smallint,
    @Sifra_Kup        char(6),
    @Sifra_Reg        smallint,
    @Sifra_Grad        smallint,
    @DaliZbirno        char (1) = Null,
    @Sifra_Obj        smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Create Table #Popis
    (
     RbrPopis    int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Datum_Dok    smalldatetime,
     Uces        decimal(6,2),
     UcesKom    decimal(6,2),
     IznPrimeno    decimal(18,6),
     IznPopis    decimal(18,6),
     IznOstaveno    decimal(18,6),
     IznosUpl    decimal(18,6),
     Razdolz    decimal(18,6)
    )
    If @DaliZbirno = 'D'
        Set @SSQL = ' Select Null RbrPopis, Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, P.Sifra_Kup, Null Sifra_Obj, Null Datum_Dok, Null Uces, Kup.Uces as UcesKom,
                Sum(Kolic*Cena) as IznPrimeno, Sum(Popis*Cena) as IznPopis, Sum(Ostaveno*Cena) as IznOstaveno,
                Sum(U.IznosUpl) IznosUpl, (F.Plateno_Dolzi) Razdolz '
    Else
        Set @SSQL = ' Select P.RbrPopis, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Kup, P.Sifra_Obj, P.Datum_Dok, P.Uces, Kup.Uces as UcesKom,
                Sum(Kolic*Cena) as IznPrimeno, Sum(Popis*Cena) as IznPopis, Sum(Ostaveno*Cena) as IznOstaveno,
                Sum(U.IznosUpl) IznosUpl, (F.Plateno_Dolzi) Razdolz '
    Set @SSQL = @SSQL + ' From PopisDok P
            Left Outer Join PopisDokUpl U On U.RbrPopis=P.RbrPopis And U.Sifra_Oe=P.Sifra_Oe And U.Sifra_Dok=P.Sifra_Dok And U.Broj_Dok=P.Broj_Dok
            Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_kup
            Left Outer Join AnFinDok F On F.Sifra_Oe=P.Sifra_Oe And F.Broj_Dok=P.Broj_Dok And F.Sifra_Dok = 99
            Where P.Sifra_Dok = ' + Cast(@Sifra_Dok_Ispor as varchar(6)) + '
            And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + '
            And P.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + '''
            And P.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
    If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + ' And Kup.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ' '
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Group By P.Sifra_Kup, Kup.ImeKup, Kup.Uces, F.Plateno_Dolzi '
    Else
        Set @SSQL = @SSQL + ' Group By P.RbrPopis, P.SIfra_oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Kup, P.Sifra_Obj,
                    P.Datum_Dok, P.Uces, Kup.ImeKUp, Kup.Uces, F.Plateno_Dolzi '
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup '
    Else
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup, P.Datum_Dok '
    Insert Into #Popis Exec(@SSQL)
    -- Uplatite od AnFinDok koi se odnesuvaat na mesecot od @Datum_Od (ako ne zatvaraat dobro)
    Set @SSQL = 'Select Null RbrPopis, Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok,
                F.Sifra_Kup, Null Sifra_Obj, Null Datum_Dok, Null Uces, Kup.Uces as UcesKom,
                0 IznPrimeno, 0 IznPopis, 0 IznOstaveno,
                0 IznosUpl, Sum(F.Pobaruva-F.Plateno_Pobar) Razdolz
            From AnFinDok F
            Inner Join Komint Kup On Kup.Sifra_Kup = F.Sifra_Kup
            Where F.Sifra_kup In (Select Sifra_Kup From #Popis)
            And F.BrojDok = ''' + (Case When Month(@Datum_Od) < 10 Then '0' Else '' End) + Cast(Month(@Datum_Od) as varchar(2)) + '/' +  Cast(Year(@Datum_Od) as varchar(4)) + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' And F.Opis = ''M' + Cast(@Sifra_Obj as varchar(6)) + ''' '
    Set @SSQL = @SSQL + ' Group By F.Sifra_Kup, Kup.ImeKup, Kup.Uces '
    Insert Into #Popis Exec (@SSQL)
print @SSQL
    If @DaliZbirno = 'D'
        Set @SSQL = ' Select Null RbrPopis, Null Sifra_Oe, Null Sifra_Dok, Null Broj_Dok, P.Sifra_Kup, Null Sifra_Obj, Null Datum_Dok, Null Uces, P.UcesKom,
                Kup.ImeKup,
                Sum(IznPrimeno) as IznPrimeno, Sum(IznPopis) as IznPopis, Sum(IznOstaveno) as IznOstaveno,
                Sum(IznosUpl) IznosUpl, Sum(Razdolz) Razdolz '
    Else
        Set @SSQL = ' Select P.RbrPopis, P.Sifra_Oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Kup, P.Sifra_Obj, P.Datum_Dok, P.Uces, P.UcesKom,
                Kup.ImeKup,
                Sum(IznPrimeno) as IznPrimeno, Sum(IznPopis) as IznPopis, Sum(IznOstaveno) as IznOstaveno,
                Sum(IznosUpl) IznosUpl, Sum(Razdolz) Razdolz '
    Set @SSQL = @SSQL + ' From #Popis P
            Left Outer Join Komint Kup On Kup.Sifra_Kup=P.Sifra_kup '
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Group By P.Sifra_Kup, Kup.ImeKup, P.UcesKom '
    Else
        Set @SSQL = @SSQL + ' Group By P.RbrPopis, P.SIfra_oe, P.Sifra_Dok, P.Broj_Dok, P.Sifra_Kup, P.Sifra_Obj,
                    P.Datum_Dok, P.Uces, Kup.ImeKUp, P.UcesKom '
    If @DaliZbirno = 'D'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup '
    Else
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup, P.Datum_Dok '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popis_povekeoe]'))
drop procedure [dbo].[sp_popis_povekeoe]

Go
CREATE PROCEDURE sp_Popis_PovekeOe
    @Datum    smalldatetime
AS
Set Nocount On
    Create Table #Rez
    (
     Sifra_Art    varchar(20),
     Evid100    decimal(18,4),
     Popis100    decimal(18,4),
     Evid3        decimal(18,4),
     Popis3        decimal(18,4),
     Evid4        decimal(18,4),
     Popis4        decimal(18,4),
     Evid5        decimal(18,4),
     Popis5        decimal(18,4),
     Evid1        decimal(18,4),
     Popis1        decimal(18,4),
     Popis60    decimal(18,4)
    )
    Insert Into #Rez
    Select Distinct Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From Soart Where Sifra_oe In (100, 1, 3, 4, 5, 60)
    Insert Into #Rez
    Select Distinct LP.Sifra_Art, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    From LPopis LP
    Inner Join Popis P On P.IDPopis=LP.IDPopis
    Where P.Sifra_Oe In (100, 1, 3, 4, 5, 60) And P.Datum=@Datum And LP.Sifra_Art Not In (Select Sifra_Art From #Rez)
    ------------ ZALIHA -------------
    Create Table #Zaliha
    (
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,4)
    )
    Insert Into #Zaliha
    Select Sifra_Oe, Sifra_Art, Sum(Case When VlIzl='V' Then Kolic Else -1*Kolic End)
    From Stavr
    Where Datum_Dok<=@Datum
    Group By Sifra_Oe, Sifra_Art
    ------------ POPIS -------------
    Create Table #Popis
    (
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,4)
    )
    Insert Into #Popis
    Select P.Sifra_Oe, LP.Sifra_Art, Sum(LP.Popis)
    From LPopis LP
    Inner Join Popis P On P.IDPopis=LP.IDPopis
    Where P.Sifra_Oe In (100, 3, 4, 5, 60) And P.Datum=@Datum
    Group By P.Sifra_Oe, LP.Sifra_Art
    ------------------------------------------------------------------------------------------------------------------------------------------
    Update #Rez Set Evid100=#Zaliha.Kolic From #Zaliha Where #Zaliha.Sifra_Art=#Rez.Sifra_Art And #Zaliha.Sifra_Oe=100
    Update #Rez Set Evid3=#Zaliha.Kolic From #Zaliha Where #Zaliha.Sifra_Art=#Rez.Sifra_Art And #Zaliha.Sifra_Oe=3
    Update #Rez Set Evid4=#Zaliha.Kolic From #Zaliha Where #Zaliha.Sifra_Art=#Rez.Sifra_Art And #Zaliha.Sifra_Oe=4
    Update #Rez Set Evid5=#Zaliha.Kolic From #Zaliha Where #Zaliha.Sifra_Art=#Rez.Sifra_Art And #Zaliha.Sifra_Oe=5
    Update #Rez Set Evid1=#Zaliha.Kolic From #Zaliha Where #Zaliha.Sifra_Art=#Rez.Sifra_Art And #Zaliha.Sifra_Oe=1
    Update #Rez Set Popis100=#Popis.Kolic From #Popis Where #Popis.Sifra_Art=#Rez.Sifra_Art And #Popis.Sifra_Oe=100
    Update #Rez Set Popis3=#Popis.Kolic From #Popis Where #Popis.Sifra_Art=#Rez.Sifra_Art And #Popis.Sifra_Oe=3
    Update #Rez Set Popis4=#Popis.Kolic From #Popis Where #Popis.Sifra_Art=#Rez.Sifra_Art And #Popis.Sifra_Oe=4
    Update #Rez Set Popis5=#Popis.Kolic From #Popis Where #Popis.Sifra_Art=#Rez.Sifra_Art And #Popis.Sifra_Oe=5
    Update #Rez Set Popis1=Popis100+Popis3+Popis4
    Update #Rez Set Popis60=#Popis.Kolic From #Popis Where #Popis.Sifra_Art=#Rez.Sifra_Art And #Popis.Sifra_Oe=60
    Select R.Sifra_Art, K.ImeArt, R.Evid100, R.Popis100, (R.Popis100 - R.Evid100) Razl100, R.Evid3, R.Popis3, (R.Popis3 - R.Evid3) Razl3,
        R.Evid4, R.Popis4, (R.Popis4 - R.Evid4) Razl4, R.Evid5, R.Popis5, (R.Popis5 - R.Evid5) Razl5,
        R.Evid1, (R.Evid100+R.Evid3+R.Evid4) EvidZb, R.Popis1, (R.Popis1 - R.Evid1) Razl1, R.Popis60
    From #Rez R
    Inner Join Katart K On K.Sifra_Art=R.Sifra_Art
    Order By R.Sifra_Art
Set NoCount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popisisporedba]'))
drop procedure [dbo].[sp_popisisporedba]

Go

CREATE  PROCEDURE sp_PopisiSporedba
    @PopisID    varchar(200)=Null,
    @Sifra_Oe    smallint,
    @Koi_Oe    varchar(1000),
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_Art_Od    varchar(20)=Null,
    @Sifra_Art_Do    varchar(20)=Null,
    @Sifra_Podg    char(6)=Null,
    @Sifra_Gr    varchar(6)=Null,
    @ADrugo1    smallint=Null,
    @ADrugo2    smallint=Null,
    @ADrugo3    smallint=Null,
    @ADrugo4    smallint=Null,
    @ADrugo5    smallint=Null,
    @Kto        char(6)=Null,
    @Sifra_Drg    smallint=Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.Sifra_Oe, R.Sifra_Art, K.ImeArt, K.EdMera, P.Datum, R.Popis, R.KnigSost, R.Cena,
            R.DanCena, R.POsn, R.Sifra_Tar, O.ImeOrg
            From RPopis R
            Inner Join Popis P On P.IdPopis=R.Idpopis
            Inner Join Katart K On K.Sifra_Art=R.Sifra_Art
            Left Outer Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
            Left Outer Join Orged O On O.Sifra_Oe=P.Sifra_Oe
            Where 1=1 '
    If @PopisID Is Not Null
        Set @SSQL = @SSQL + ' And P.IDPopis IN (' + @PopisID + ') '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' and P.Sifra_Oe In (' + @Koi_Oe + ') ' --P.Sifra_OE IN (Select G.Sifra_Oe From SGrOrg G where G.Sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and P.Datum >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and P.Datum <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' and R.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' and R.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' and PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @ADrugo1 Is Not Null
        Set @SSQL = @SSQL + ' and K.Drugo1 = ''' + cast(@ADrugo1 as varchar(6)) + ''' '
    If @ADrugo2 Is Not Null
        Set @SSQL = @SSQL + ' and K.Drugo2 = ''' + cast(@ADrugo2 as varchar(6)) + ''' '
    If @ADrugo3 Is Not Null
        Set @SSQL = @SSQL + ' and K.Drugo3 = ''' + cast(@ADrugo3 as varchar(6)) + ''' '
    If @ADrugo4 Is Not Null
        Set @SSQL = @SSQL + ' and K.Drugo4 = ''' + cast(@ADrugo4 as varchar(6)) + ''' '
    If @ADrugo5 Is Not Null
        Set @SSQL = @SSQL + ' and K.Drugo5 = ''' + cast(@ADrugo5 as varchar(6)) + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' and K.Kto = ''' + @Kto + ''' '
    If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Drg = ''' + cast(@Sifra_Drg as varchar(6)) + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popisosnsred]'))
drop procedure [dbo].[sp_popisosnsred]

Go

CREATE  PROCEDURE [dbo].[sp_PopisOsnSred]
    @GodPresm    smallint,
    @KrMesec    smallint,
    @Broj_Lista    int = NULL,     --broj popisna lista
    @Inv_Broj_Od    char(10) = Null,
    @Inv_Broj_Do    char(10) = Null,
    @Kto_anal    varchar(200) = Null,
    @Sifra_Amor    varchar(200) = Null,
    @Sifra_MikLok    varchar(200) = Null,
    @Sifra_MakLok    varchar(200) = Null,
    @Sifra_Lok    varchar(200) = Null,
    @Sifra_Rab    varchar(200) = Null,
    @OS_SI        char(1) = NULL,    -- O-Osnovni Sredstva, S-Siten Inventar NE CEPKAJ DEFAULT, BITEN ZA PRENOSOT
    @Sifra_TrosM        smallint = Null,
    @Sifra_Div        smallint = Null,
    @Firma        smallint = Null,          -- pole oss_rez2
    @SpecLokacija     nvarchar(40) = Null,     -- pole oss_speclokacija, moze i po del od ime
    @PodProgram     char(5) = Null,        -- pole oss_sif_podprogr
    @Grantist    char(5) = Null,        -- pole oss_sifra_gra
    @TipOprema    char(5) = Null,        -- pole oss_tip_oprema
    @PosebenKod    varchar(10) = Null,    -- pole oss_kod, moze i po del od ime
    @Dogovor    nvarchar(50) = Null,    -- pole oss_dogovor, moze i po del od ime
    @Ime        nvarchar(100) = Null,    -- pole ime, moze i pode del od ime
    @Opis        nvarchar(250) = Null,    -- pole opis. moze i pod del od ime
    @Oznaka    nvarchar(10)= null -- dod 03.09.2011 za ZiVa AD
AS
/*    Declare @SSQL varchar(2000)
    Declare @PocDat smalldatetime
    Declare @KrDat smalldatetime
    Declare @PocDatGod smalldatetime
    SET @PocDatGod = dbo.fn_NapraviDatum (@GodPresm, 1, 1)
    SET @PocDat = dbo.fn_NapraviDatum (@GodPresm, @PocMesec, 1)
    SET @KrDat = dbo.fn_VratiDatumOdDo (@GodPresm, @KrMesec, 31)

    CREATE TABLE #PomOsn
(    Inv_Broj        char(10),
    DatAkt        smalldatetime,
    DatPrest    smalldatetime
)
*/
    CREATE TABLE #TmpOS
(    Inv_Broj    char(10),
    Rbr            smallint,
    Ime            varchar(40),
    DatAkt        smalldatetime,
    DatPrest    smalldatetime,
    KolPopis    smallint,
    KolicKnig    smallint,
    Osn_Amor    decimal(18,2),
    Otpis_pret    decimal(18,2),
    Stapka_Amor    decimal(8,3),
    AmortTekGod    decimal(18,6),
    AmortKumul    decimal(18,6))

SELECT * FROM #TmpOS



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolni_c_intdok]'))
drop procedure [dbo].[sp_popolni_c_intdok]

Go

CREATE     PROCEDURE sp_Popolni_C_IntDok

    @Sifra_OE     Smallint=Null,
    @Datum_Dok_Od   Smalldatetime,
    @Datum_Dok_Do   Smalldatetime

AS

    Declare @Sif_GrOrg char(6)
    set @Sif_GrOrg = 'PROS'

    Declare @Sifra_Oe_Dava smallint
    set @Sifra_Oe_Dava = 1

    Declare @Sifra_Dok_Dava smallint
    set @Sifra_Dok_Dava = 6

    Declare @SIfra_Kup_Dava chaR(6)
    set @Sifra_Kup_Dava = '006448'

    Declare @Sifra_Dok_Prima smallint
    set @Sifra_Dok_Prima = 206

    create TABLE #NabCeniIzlez
    (    Sifra_Oe    smallint,
        Sifra_Art     Varchar(20),
        Sifra_Obj     smallint null,
        Vk_NabVr     decimal(18, 4) NULL,
        Vk_Kolic    decimal(18,4) NULL,
        NaBCenaProsGol    decimal(18,6) NULL,
        NaBCenaProsMal    decimal(18,6) NULL,
        Sifra_Oe_Prod    smallint null,
        Sifra_Art_Mal    VarchaR(20)
    )

    insert into #NabCeniIzlez
          (Sifra_Art, Sifra_Obj, Vk_NabVr, Vk_Kolic)
       select  S.SifrA_ARt, D.SIfrA_Obj, sum(S.Kolic * S.NabCena), sum(S.Kolic)
       from Stavr S
       inner join Dokr D
        on S.DokrId = D.DokrId
       where S.Sifra_Oe in (select SifrA_oe from SGrOrg where Sif_GrOrg = @Sif_GrOrg) and
         S.SifrA_Dok = @Sifra_Dok_Dava
         and D.Sifra_Kup = @Sifra_Kup_Dava
         and S.Datum_Dok >= @Datum_Dok_Od
         and S.Datum_Dok <= @Datum_Dok_Do
       group by S.SifrA_Art, D.Sifra_Obj

    update #NabCeniIzlez
    set NabCenaProsGol = Vk_NabVr / Vk_Kolic
    where Vk_Kolic > 0 and Vk_NabVr > 0

    update #NabCeniIzlez
    set NabCenaProsMal = NabCenaProsGol

    update #NabCeniIzlez
    set NabCenaProsMal = NabCenaProsGol  / 50
    where Sifra_Art Like '30015%'

    update #NabCeniIzlez
    set Sifra_Oe_Prod = 600 + Sifra_Obj

    update #NabCeniIzlez
    set Sifra_Art_Mal = K.Sifra_Art
    from Katart K
    where K.Alt_Ime2 = #NabCeniIzlez.Sifra_Art

    --select *
    --from #NabCeniIzlez

    Update Stavr
    set NabCena = NC.NabCenaProsMal
    From #NabCeniIzlez NC
    where Stavr.SifrA_Dok = @Sifra_Dok_Prima
         and Stavr.Datum_Dok >= @Datum_Dok_Od
         and Stavr.Datum_Dok <= @Datum_Dok_Do
         and Stavr.SifrA_Art = NC.SIfrA_ARt_Mal
         and Stavr.Sifra_Oe = NC.Sifra_Oe_Prod

    --select S.NabCena, NC.NabCenaProsMal, S.DokCena, S.DanDOkCena, S.MagCena, S.DanMagCena, NC.*
    --from Stavr S
     --   inner join #NabCeniIzlez NC
    --    on NC.Sifra_Art_Mal = S.SIfra_Art
    --        and NC.SifrA_Oe_PRod = S.SifrA_Oe
    --   where S.SifrA_Dok = @Sifra_Dok_Prima
    --     and S.Datum_Dok >= @Datum_Dok_Od
    --     and S.Datum_Dok <= @Datum_Dok_Do


    -- Sega popravi vo DOKR
    create TABLE #DokrVlez
    (
        Sifra_Oe     smallint,
        Sifra_Dok    smallint,
        Broj_DOk     int
    )

    insert into #DokrVlez
        (Sifra_Oe, Sifra_Dok, Broj_dok)
    select sifra_oe, sifrA_dok, broj_dok
    from Dokr
    where SifrA_Dok = @Sifra_Dok_Prima
         and Datum_Dok >= @Datum_Dok_Od
         and Datum_Dok <= @Datum_Dok_Do

    DECLARE DokrPopravi CURSOR FAST_FORWARD
        FOR SELECT *
        FROM #DokrVlez

    Declare @Sifra_Oe_Popravi smallint
    Declare @Sifra_Dok_Popravi smallint
    Declare @Broj_Dok_Popravi int

        OPEN DokrPopravi
        FETCH NEXT FROM DokrPopravi
        INTO @Sifra_Oe_Popravi, @SifrA_Dok_Popravi, @Broj_Dok_Popravi
        WHILE @@FETCH_STATUS = 0
      Begin
         print cast(@SifrA_oe_Popravi as varchaR(8)) + '-'
           + cast(@Sifra_Dok_Popravi as varchaR(8)) + '/'
           + cast(@Broj_Dok_Popravi as varchaR(8))

         EXEC sp_Popravi1Dokr @Sifra_OE_Popravi, @Sifra_Dok_Popravi, @Broj_Dok_Popravi

         FETCH NEXT FROM DokrPopravi
            INTO @Sifra_Oe_Popravi, @SifrA_Dok_Popravi, @Broj_Dok_Popravi
      End

        CLOSE DokrPopravi
        DEALLOCATE DokrPopravi







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolni_c_intdok_storno]'))
drop procedure [dbo].[sp_popolni_c_intdok_storno]

Go





create  PROCEDURE sp_Popolni_C_IntDok_Storno

    @Sifra_OE     Smallint=Null,
    @Datum_Dok_Od   Smalldatetime,
    @Datum_Dok_Do   Smalldatetime

AS

    Declare @Sifra_Oe_Dava smallint
    set @Sifra_Oe_Dava = 1

    Declare @Sifra_Dok_Dava smallint
    set @Sifra_Dok_Dava = 7

    Declare @SIfra_Kup_Dava chaR(6)
    set @Sifra_Kup_Dava = '006448'

    Declare @Sifra_Dok_Prima smallint
    set @Sifra_Dok_Prima = 207

    create TABLE #NabCeniIzlez
    (
        Sifra_Art     Varchar(20),
        Sifra_Obj     smallint null,
        Vk_NabVr     decimal(18, 4) NULL,
        Vk_Kolic    decimal(18,4) NULL,
        NaBCenaProsGol    decimal(18,6) NULL,
        NaBCenaProsMal    decimal(18,6) NULL,
        Sifra_Oe_Prod    smallint null,
        Sifra_Art_Mal    VarchaR(20)
    )

    insert into #NabCeniIzlez
          (Sifra_Art, Sifra_Obj, Vk_NabVr, Vk_Kolic)
       select S.SifrA_ARt, D.SIfrA_Obj, sum(S.Kolic * S.NabCena), sum(S.Kolic)
       from Stavr S
       inner join Dokr D
        on S.DokrId = D.DokrId
       where S.Sifra_Oe = @SifrA_Oe_Dava and
         S.SifrA_Dok = @Sifra_Dok_Dava
         and D.Sifra_Kup = @Sifra_Kup_Dava
         and S.Datum_Dok >= @Datum_Dok_Od
         and S.Datum_Dok <= @Datum_Dok_Do
       group by S.SifrA_Art, D.Sifra_Obj

    update #NabCeniIzlez
    set NabCenaProsGol = Vk_NabVr / Vk_Kolic
    where Vk_Kolic > 0 and Vk_NabVr > 0

    update #NabCeniIzlez
    set NabCenaProsMal = NabCenaProsGol

    update #NabCeniIzlez
    set NabCenaProsMal = NabCenaProsGol  / 50
    where Sifra_Art Like '30015%'

    update #NabCeniIzlez
    set Sifra_Oe_Prod = 600 + Sifra_Obj

    update #NabCeniIzlez
    set Sifra_Art_Mal = K.Sifra_Art
    from Katart K
    where K.Alt_Ime2 = #NabCeniIzlez.Sifra_Art

    --select *
    --from #NabCeniIzlez

    Update Stavr
    set NabCena = NC.NabCenaProsMal
    From #NabCeniIzlez NC
    where Stavr.SifrA_Dok = @Sifra_Dok_Prima
         and Stavr.Datum_Dok >= @Datum_Dok_Od
         and Stavr.Datum_Dok <= @Datum_Dok_Do
         and Stavr.SifrA_Art = NC.SIfrA_ARt_Mal
         and Stavr.Sifra_Oe = NC.Sifra_Oe_Prod

    --select S.NabCena, NC.NabCenaProsMal, S.DokCena, S.DanDOkCena, S.MagCena, S.DanMagCena, NC.*
    --from Stavr S
     --   inner join #NabCeniIzlez NC
    --    on NC.Sifra_Art_Mal = S.SIfra_Art
    --        and NC.SifrA_Oe_PRod = S.SifrA_Oe
    --   where S.SifrA_Dok = @Sifra_Dok_Prima
    --     and S.Datum_Dok >= @Datum_Dok_Od
    --     and S.Datum_Dok <= @Datum_Dok_Do


    -- Sega popravi vo DOKR
    create TABLE #DokrVlez
    (
        Sifra_Oe     smallint,
        Sifra_Dok    smallint,
        Broj_DOk     int
    )

    insert into #DokrVlez
        (Sifra_Oe, Sifra_Dok, Broj_dok)
    select sifra_oe, sifrA_dok, broj_dok
    from Dokr
    where SifrA_Dok = @Sifra_Dok_Prima
         and Datum_Dok >= @Datum_Dok_Od
         and Datum_Dok <= @Datum_Dok_Do

    DECLARE DokrPopravi CURSOR FAST_FORWARD
        FOR SELECT *
        FROM #DokrVlez

    Declare @Sifra_Oe_Popravi smallint
    Declare @Sifra_Dok_Popravi smallint
    Declare @Broj_Dok_Popravi int

        OPEN DokrPopravi
        FETCH NEXT FROM DokrPopravi
        INTO @Sifra_Oe_Popravi, @SifrA_Dok_Popravi, @Broj_Dok_Popravi
        WHILE @@FETCH_STATUS = 0
      Begin
         print cast(@SifrA_oe_Popravi as varchaR(8)) + '-'
           + cast(@Sifra_Dok_Popravi as varchaR(8)) + '/'
           + cast(@Broj_Dok_Popravi as varchaR(8))

         EXEC sp_Popravi1Dokr @Sifra_OE_Popravi, @Sifra_Dok_Popravi, @Broj_Dok_Popravi

         FETCH NEXT FROM DokrPopravi
            INTO @Sifra_Oe_Popravi, @SifrA_Dok_Popravi, @Broj_Dok_Popravi
      End

        CLOSE DokrPopravi
        DEALLOCATE DokrPopravi







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolnidozvobj]'))
drop procedure [dbo].[sp_popolnidozvobj]

Go
CREATE PROCEDURE sp_PopolniDozvObj
AS
    Insert Into DozvObj
    Select Name, Id, Null
    From SysObjects
    Where xtype='P' And Name Like 'sp_%'
    And Name Not In (Select ObjIme from DozvObj)
    Order by Name
    Insert Into DozvObj
    Select Name, Id, Null
    From SysObjects
    Where xtype='FN' And (Name Like 'fn_%' Or Name Like 'fix_%')
    And Name Not In (Select ObjIme from DozvObj)
    Order by Name



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolnifinpodvorecept_rcp_od_do_ceni]'))
drop procedure [dbo].[sp_popolnifinpodvorecept_rcp_od_do_ceni]

Go

CREATE    PROCEDURE [dbo].[sp_PopolniFinPodVoRecept_Rcp_Od_Do_Ceni]
    @Sifra_Apteka    char(2) = Null,
    @Broj_Recept_Od    int,
    @Broj_Recept_Do int

-- Pazi identiccna logika so Sp_PopolniFinPodVoRecept_SkalaMaza
-- samo filterot e razliccen, i ne formira SPECIFIKACII

AS

    -- Za sekoj sluccaj, obezbedi se
    if @Sifra_Apteka is null
        set @Sifra_Apteka = '01'
    else if @Sifra_Apteka = ''
        set @Sifra_Apteka = '01'
    else if @SifrA_Apteka = '1'
        set @Sifra_Apteka = '01'
    else if @SifrA_Apteka = '2'
        set @Sifra_Apteka = '02'
    else if @SifrA_Apteka = '3'
        set @Sifra_Apteka = '03'

    UPDATE Recepti
    SET Rangiran = '0',
        Cena_Tender = L.SpeCena,
        Vid_Marza = '1',
        Sifra_Oslobod = '0',
        Proc_Marza=0
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art
        AND Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka
   -- Pazi podolu CENA_TENDER moze da se smeni kaj onie artikli koi se davaat na parce

    UPDATE Recepti
    SET Iznos_Tender = Round(Kolku_Pakuv * Cena_Tender,2)
    WHERE Recepti.Kolku_Pakuv > 0
        AND Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    -- Novo Jul 26, 2011 -- i CENATA NA TENDER nanovo najdi ja
    UPDATE Recepti
    SET Cena_Tender = L.SpeCena * L.Koef
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art
        AND Recepti.Kolku_Kolic > 0
        AND Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka
        AND L.Koef <> 0 and L.Koef is not null
    --

    UPDATE Recepti
    SET Iznos_Tender = Round(Recepti.Kolku_Kolic * Recepti.Cena_Tender / L.SodrziEd, 2)
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art
        AND Recepti.Kolku_Kolic > 0
        AND Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    ------ Okt 2, 2007
    UPDATE Recepti
    SET Iznos_Marza = P.Izn_Marza
    FROM LstPartic P
    WHERE Recepti.Iznos_Tender Between P.Iznos_Od AND P.Iznos_Do
        AND Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka
    ------ Gotovo so Okt 2, 2007

    UPDATE Recepti
    SET Osnov_DDV = Iznos_Tender + Iznos_Marza
    WHERE Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET ProcDDV = T.ProcOsn
    FROM Tarifi T, Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art AND L.Sifra_Tar=T.Sifra_Tar
          and Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET Iznos_Na_DDV = Round(Osnov_DDV * ProcDDV / 100, 2)
    WHERE Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET Iznos_So_DDV = Osnov_DDV + Iznos_Na_DDV
    WHERE Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET Iznos_Partic = P.Izn_Partic
    FROM LstParticSkala P
    WHERE Recepti.Iznos_So_DDV Between P.Iznos_Od AND P.Iznos_Do
          and Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET Naplat_Partic = 0        -- Za da moze vo IZMENA dobro da raboti
    WHERE Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka

    UPDATE Recepti
    SET Naplat_Partic = Iznos_Partic
    WHERE Recepti.Specif_Br IS NULL
        AND Recepti.Broj_Recept >= @Broj_Recept_Od and Recepti.Broj_Recept <= @Broj_Recept_Do
        AND Recepti.Sifra_Apteka = @Sifra_Apteka
        and (Recepti.BezPartic IS NULL OR Recepti.BezPartic<>'D')



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolnifinpodvorecept_skalamarza]'))
drop procedure [dbo].[sp_popolnifinpodvorecept_skalamarza]

Go

CREATE     PROCEDURE [dbo].[sp_PopolniFinPodVoRecept_SkalaMarza]
    @Godina    smallint,
    @Mesec    smallint

AS

    Declare @DatOd smalldatetime
    Declare @DatDo smalldatetime
    SET @DatOd = dbo.fn_NapraviDatum(@Godina, @Mesec,1)
    SET @DatDo = dbo.fn_VratiDatumOdDo(@Godina, @Mesec, 31)
    UPDATE Recepti
    SET Rangiran='0'
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art AND L.Lokacija = 'P'
        AND Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Cena_Tender = L.SpeCena
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art and L.Lokacija = 'P'
        AND Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo
   -- Pazi podolu CENA_TENDER moze da se smeni kaj onie artikli koi se davaat na parce

    UPDATE Recepti
    SET Vid_Marza='1', Sifra_Oslobod='0'
    WHERE  Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Proc_Marza=0
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Iznos_Tender = Round(Kolku_Pakuv * Cena_Tender,2)
    WHERE Kolku_Pakuv>0 AND Specif_Br IS NULL AND Datum_Izdav>=@DatOd AND Datum_Izdav<=@DatDo

    -- Novo Jul 26, 2011 -- i CENATA NA TENDER nanovo najdi ja
    UPDATE Recepti
    SET Cena_Tender = L.SpeCena * L.Koef
    FROM Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art
        AND Recepti.Kolku_Kolic > 0
        AND Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo
        AND L.Koef <> 0 and L.Koef is not null
    --

    UPDATE Recepti
    SET Iznos_Tender = Round(Recepti.Kolku_Kolic * Recepti.Cena_Tender / L.SodrziEd, 2)
    FROM Katart L
    WHERE Recepti.Kolku_Kolic>0 AND L.Sifra_Art=Recepti.Sifra_Art
        AND Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    ------ Okt 2, 2007
    UPDATE Recepti
    SET Iznos_Marza = P.Izn_Marza
    FROM LstPartic P
    WHERE Recepti.Iznos_Tender Between P.Iznos_Od AND P.Iznos_Do AND
        Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo
    ------ Gotovo so Okt 2, 2007

    UPDATE Recepti
    SET Osnov_DDV = Iznos_Tender + Iznos_Marza
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET ProcDDV = T.ProcOsn
    FROM Tarifi T, Katart L
    WHERE Recepti.Sifra_Art = L.Sifra_Art AND L.Sifra_Tar=T.Sifra_Tar
        AND Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Iznos_Na_DDV=Round(Osnov_DDV * ProcDDV/100,2)
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Iznos_So_DDV=Osnov_DDV + Iznos_Na_DDV
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Iznos_Partic=P.Izn_Partic
    FROM LstParticSkala P
    WHERE round(Recepti.Iznos_So_DDV, 0) > P.Iznos_Od AND round(Recepti.Iznos_So_DDV, 0) <= P.Iznos_Do AND
        Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    -- Jul 28, 2011  DK Inaku zezase pri izmena - ostanuvase istoto
    UPDATE Recepti
    SET Naplat_Partic = 0
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo

    UPDATE Recepti
    SET Naplat_Partic = Iznos_Partic
    WHERE Recepti.Specif_Br IS NULL AND Recepti.Datum_Izdav>=@DatOd AND Recepti.Datum_Izdav<=@DatDo
        and (Recepti.BezPartic IS NULL OR Recepti.BezPartic<>'D')




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popolnirealkolvostanarodstavr]'))
drop procedure [dbo].[sp_popolnirealkolvostanarodstavr]

Go

CREATE  PROCEDURE sp_PopolniRealKolVoStanarOdStavr
    @DokrID    varchar(200),
    @NarID    int
AS
CREATE TABLE #TmpStavr
(Sifra_Art    varchar(20),
Kolic        decimal(18,6))

Declare @SSQL varchar(3000)

SET @SSQL = 'SELECT Sifra_Art, SUM(Kolic) FROM Stavr WHERE DokrID IN (' +@DokrID +') GROUP BY Sifra_Art'
INSERT #TmpStavr EXEC (@SSQL)

UPDATE StaNarac SET Realiz_Kolic=0 WHERE NarID=@NarID
UPDATE StaNarac SET Realiz_Kolic=S.Kolic FROM #TmpStavr S  WHERE StaNarac.NarID=@NarID AND StaNarac.Sifra_Art=S.Sifra_Art




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popravi1dokr]'))
drop procedure [dbo].[sp_popravi1dokr]

Go

CREATE           PROCEDURE sp_Popravi1Dokr
    @Sifra_OE    Smallint,
    @Sifra_Dok    Smallint,
    @Broj_Dok    int
AS
    Declare @SSQL As Varchar(1000)
    Declare @SSQL2 As Varchar(1000)
    Declare @SSQL3 As Varchar(1000)
    Declare @Uces As Decimal(6,2)
    Declare @Kasa as decimal(6,2)
    Declare @POsn As Decimal(6,2)
    Declare @DanDokCena As Char(1)
    Declare @DanMagCena As Char(1)
    Declare @Kolic As Decimal(18,6)
    Declare @DokCena As Decimal(18,6)
    Declare @MagCena As Decimal(18,6)
    Declare @dFaktorDDV As Decimal(6,4)
    Declare @dFaktorNeto As Decimal(6,4)
    Declare @mFaktorDDV As Decimal(6,4)
    Declare @mFaktorNeto As Decimal(6,4)
    Declare @Danok1 As Decimal(18,6)
    Declare @Danok2 As Decimal(18,6)
    Declare @PDanok1 As Decimal(18,6)
    Declare @PDanok2 As Decimal(18,6)
    Declare @NabIznos As Decimal(18,6)
    Declare @MagIznos As Decimal(18,6)
    Declare @MagIznosDan As Decimal(18,6)
    Declare @SumaNabIznos As Decimal(18,6)
    Declare @SumaMagIznos As Decimal(18,6)
    Declare @SumaMagIznosDan As Decimal(18,6)
    Declare @SumaDanok1 As Decimal(18,6)
    Declare @SumaDanok2 As Decimal(18,6)
    Declare @SumaPDanok1 As Decimal(18,6)
    Declare @SumaPDanok2 As Decimal(18,6)
    Declare @Suma As Decimal(18,6)
    Create Table #tStavr
    (  Uces Decimal(6,2),
        Kasa Decimal(6,2),
        POsn Decimal(6,2),
        DanDokCena Char(1),
        DanMagCena Char(1),
        Kolic Decimal(18,6),
        DokCena Decimal(18,6),
        MagCena Decimal(18,6)
    )

        Set @SSQL2 = 'Select S.Uces, D.Kasa, S.POsn, S.DanDokCena, S.DanMagCena, S.Kolic, S.DokCena, S.MagCena
                    From Stavr S INNER JOIN Dokr D ON D.DokrID=S.DokrID
                    Where S.Sifra_OE='+Cast(@Sifra_OE As Varchar(5)) + ' And S.Sifra_Dok=' +
                    Cast(@Sifra_Dok As Varchar(5)) + ' And S.Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        Truncate Table #tStavr
        Insert #tStavr Exec(@SSQL2)
        Declare tStavr Cursor Fast_Forward For Select * From #tStavr
        Open tStavr
        Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
        Set @SumaNabIznos = 0
        Set @SumaMagIznos = 0
        Set @SumaMagIznosDan = 0
        Set @SumaDanok1 = 0
        Set @SumaDanok2 = 0
        Set @SumaPDanok1 = 0
        Set @SumaPDanok2 = 0
        While @@Fetch_Status=0
        Begin
            If @DanDokCena='D'
                Begin
                    Set @dFaktorDDV = 1
                    Set @dFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @dFaktorDDV = 1 + @POsn/100
                    Set @dFaktorNeto = 1
                End
            If @DanMagCena='D'
                Begin
                    Set @mFaktorDDV = 1
                    Set @mFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @mFaktorDDV = 1 + @POsn/100
                    Set @mFaktorNeto = 1
                End
            If @POsn > 15
                Begin
                    Set @Danok1  = @Kolic * @DokCena * (1 - @Uces/100) * (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok1 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                    Set @Danok2 = 0
                    Set @PDanok2 = 0
                End
            Else
                Begin
                    Set @Danok1  = 0
                    Set @PDanok1 = 0
                    Set @Danok2 = @Kolic * @DokCena * (1 - @Uces/100)* (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok2 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                End
            Set @NabIznos = @Kolic * @DokCena * @dFaktorDDV * (1 - @Uces/100)* (1-@Kasa/100)
            Set @MagIznos = @Kolic * @MagCena / @mFaktorNeto
            Set @MagIznosDan = @Kolic * @MagCena * @mFaktorDDV
            Set @SumaNabIznos = @SumaNabIznos + @NabIznos
            Set @SumaMagIznos = @SumaMagIznos + @MagIznos
            Set @SumaMagIznosDan = @SumaMagIznosDan + @MagIznosDan
            Set @SumaDanok1 = @SumaDanok1 + @Danok1
            Set @SumaDanok2 = @SumaDanok2 + @Danok2
            Set @SumaPDanok1 = @SumaPDanok1 + @PDanok1
            Set @SumaPDanok2 = @SumaPDanok2 + @PDanok2
            Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
            End --While
        Close tStavr
        Deallocate tStavr
         Set @SSQL3 = 'Update Dokr
            Set Toc200  = ' + Cast(@SumaNabIznos As Varchar(20)) + ',
                 MagVr   = ' + Cast(@SumaMagIznos As Varchar(20)) + ',
                 MagVrDan= ' + Cast(@SumaMagIznosDan As Varchar(20)) + ',
                 Marza   = ' + Cast(@SumaMagIznos - (@SumaNabIznos - @SumaDanok1 - @SumaDanok2) As Varchar(20)) + ',
                 Danok1  = ' + Cast(@SumaDanok1 As Varchar(20)) + ',
                 Danok2  = ' + Cast(@SumaDanok2 As Varchar(20)) + ',
                 PDanok1 = ' + Cast(@SumaPDanok1 As Varchar(20)) + ',
                 PDanok2 = ' + Cast(@SumaPDanok2 As Varchar(20)) + '
        Where Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' And Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' And Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        Exec(@SSQL3)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popravidokr]'))
drop procedure [dbo].[sp_popravidokr]

Go

CREATE            PROCEDURE sp_PopraviDokr
    @Sifra_OE Smallint,
    @Sifra_Dok Smallint,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @KolkuDok Int OUTPUT
AS
    Declare @SSQL As Varchar(1000)
    Declare @SSQL2 As Varchar(1000)
    Declare @SSQL3 As Varchar(1000)
    Declare @Broj_Dok As Int
    Declare @Sifra_Prim As Smallint
    Declare @ImaDodatna As Char(1)
    Declare @Uces As Decimal(6,2)
    Declare @Kasa as decimal(6,2)
    Declare @POsn As Decimal(6,2)
    Declare @DanDokCena As Char(1)
    Declare @DanMagCena As Char(1)
    Declare @Kolic As Decimal(18,6)
    Declare @DokCena As Decimal(18,6)
    Declare @MagCena As Decimal(18,6)
    Declare @dFaktorDDV As Decimal(6,4)
    Declare @dFaktorNeto As Decimal(6,4)
    Declare @mFaktorDDV As Decimal(6,4)
    Declare @mFaktorNeto As Decimal(6,4)
    Declare @Danok1 As Decimal(18,6)
    Declare @Danok2 As Decimal(18,6)
    Declare @PDanok1 As Decimal(18,6)
    Declare @PDanok2 As Decimal(18,6)
    Declare @NabIznos As Decimal(18,6)
    Declare @MagIznos As Decimal(18,6)
    Declare @MagIznosDan As Decimal(18,6)
    Declare @SumaNabIznos As Decimal(18,6)
    Declare @SumaMagIznos As Decimal(18,6)
    Declare @SumaMagIznosDan As Decimal(18,6)
    Declare @SumaDanok1 As Decimal(18,6)
    Declare @SumaDanok2 As Decimal(18,6)
    Declare @SumaPDanok1 As Decimal(18,6)
    Declare @SumaPDanok2 As Decimal(18,6)
    Declare @Suma As Decimal(18,6)
    Set @SSQL = 'Select Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna From Dokr Where 1=1 '
    If @Sifra_OE Is Not NULL
        Set @SSQL = @SSQL + 'And Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @Sifra_Dok Is Not NULL
        Set @SSQL = @SSQL + 'And Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And Datum_Dok >=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And Datum_Dok <=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Create Table #tStavr
    (  Uces Decimal(6,2),
        Kasa Decimal(6,2),
        POsn Decimal(6,2),
        DanDokCena Char(1),
        DanMagCena Char(1),
        Kolic Decimal(18,6),
        DokCena Decimal(18,6),
        MagCena Decimal(18,6)
    )
    Create Table #tDokr
    (  Sifra_OE Smallint,
        Sifra_Dok Smallint,
        Broj_Dok Int,
        Sifra_Prim Smallint,
        ImaDodatna Char(1)
    )
    Insert #tDokr Exec(@SSQL)
    Set @KolkuDok=@@RowCount
    Declare tDokr Cursor Fast_Forward For Select * From #tDokr
    Open tDokr
    Fetch Next From tDokr Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna
    While @@Fetch_Status = 0
    Begin
        Print 'Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + '; Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + '; Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) --+ '; Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + '; ImaDodatna='  + @ImaDodatna
        Set @SSQL2 = 'Select S.Uces, D.Kasa, S.POsn, S.DanDokCena, S.DanMagCena, S.Kolic, S.DokCena, S.MagCena
                    From Stavr S INNER JOIN Dokr D ON D.DokrID=S.DokrID
                    Where S.Sifra_OE='+Cast(@Sifra_OE As Varchar(5)) + ' And S.Sifra_Dok=' +
                    Cast(@Sifra_Dok As Varchar(5)) + ' And S.Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        If @Sifra_Prim Is Not NULL
            Set @SSQL2 = @SSQL2 + 'And S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
        If @ImaDodatna Is Not NULL
            Set @SSQL2 = @SSQL2 + 'And S.ImaDodatna=''' + @ImaDodatna + ''' '
        Truncate Table #tStavr
        Insert #tStavr Exec(@SSQL2)
        Declare tStavr Cursor Fast_Forward For Select * From #tStavr
        Open tStavr
        Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
        Set @SumaNabIznos = 0
        Set @SumaMagIznos = 0
        Set @SumaMagIznosDan = 0
        Set @SumaDanok1 = 0
        Set @SumaDanok2 = 0
        Set @SumaPDanok1 = 0
        Set @SumaPDanok2 = 0
        While @@Fetch_Status=0
        Begin
            If @DanDokCena='D'
                Begin
                    Set @dFaktorDDV = 1
                    Set @dFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @dFaktorDDV = 1 + @POsn/100
                    Set @dFaktorNeto = 1
                End
            If @DanMagCena='D'
                Begin
                    Set @mFaktorDDV = 1
                    Set @mFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @mFaktorDDV = 1 + @POsn/100
                    Set @mFaktorNeto = 1
                End
            If @POsn > 15
                Begin
                    Set @Danok1  = @Kolic * @DokCena * (1 - @Uces/100) * (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok1 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                    Set @Danok2 = 0
                    Set @PDanok2 = 0
                End
            Else
                Begin
                    Set @Danok1  = 0
                    Set @PDanok1 = 0
                    Set @Danok2 = @Kolic * @DokCena * (1 - @Uces/100)* (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok2 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                End
            Set @NabIznos = @Kolic * @DokCena * @dFaktorDDV * (1 - @Uces/100)* (1-@Kasa/100)
            Set @MagIznos = @Kolic * @MagCena / @mFaktorNeto
            Set @MagIznosDan = @Kolic * @MagCena * @mFaktorDDV
            Set @SumaNabIznos = @SumaNabIznos + @NabIznos
            Set @SumaMagIznos = @SumaMagIznos + @MagIznos
            Set @SumaMagIznosDan = @SumaMagIznosDan + @MagIznosDan
            Set @SumaDanok1 = @SumaDanok1 + @Danok1
            Set @SumaDanok2 = @SumaDanok2 + @Danok2
            Set @SumaPDanok1 = @SumaPDanok1 + @PDanok1
            Set @SumaPDanok2 = @SumaPDanok2 + @PDanok2
            Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
            End --While
        Close tStavr
        Deallocate tStavr
print @SumaNabIznos
print @SumaMagIznos
print @SumaMAgIznosDan
print @SumaDanok1
print @SumaDanok2
print @SumaPDanok1
print @SumaPDanok2
print '-----------'
SET @SumaNabIznos = round(@SumaNabIznos,0)
        Set @SSQL3 = 'Update Dokr
            Set Toc200  = ' + Cast(@SumaNabIznos As Varchar(20)) + ',
                 MagVr   = ' + Cast(@SumaMagIznos As Varchar(20)) + ',
                 MagVrDan= ' + Cast(@SumaMagIznosDan As Varchar(20)) + ',
                 Marza   = ' + Cast(@SumaMagIznos - (@SumaNabIznos - @SumaDanok1 - @SumaDanok2) As Varchar(20)) + ',
                 Danok1  = ' + Cast(@SumaDanok1 As Varchar(20)) + ',
                 Danok2  = ' + Cast(@SumaDanok2 As Varchar(20)) + ',
                 PDanok1 = ' + Cast(@SumaPDanok1 As Varchar(20)) + ',
                 PDanok2 = ' + Cast(@SumaPDanok2 As Varchar(20)) + '
        Where Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' And Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' And Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        If @Sifra_Prim Is Not NULL
            Set @SSQL3 = @SSQL3 + 'And Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
        If @ImaDodatna Is Not NULL
            Set @SSQL3 = @SSQL3 + 'And ImaDodatna=''' + @ImaDodatna + ''' '
        Exec(@SSQL3)
        Fetch Next From tDokr Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna
    End --While
    Close tDokr
    Deallocate tDokr
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_popravidokr_tkn]'))
drop procedure [dbo].[sp_popravidokr_tkn]

Go

create      PROCEDURE sp_PopraviDokr_TKN
    @Sifra_OE Smallint,
    @Datum_Od Smalldatetime = Null,
    @Datum_Do Smalldatetime = Null,
    @KolkuDok Int OUTPUT
AS

    Declare @Sifra_Dok Smallint
    set @SIfra_DOk = 912

    Declare @SSQL As Varchar(1000)
    Declare @SSQL2 As Varchar(1000)
    Declare @SSQL3 As Varchar(1000)
    Declare @Broj_Dok As Int
    Declare @Sifra_Prim As Smallint
    Declare @ImaDodatna As Char(1)
    Declare @Uces As Decimal(6,2)
    Declare @Kasa as decimal(6,2)
    Declare @POsn As Decimal(6,2)
    Declare @DanDokCena As Char(1)
    Declare @DanMagCena As Char(1)
    Declare @Kolic As Decimal(18,6)
    Declare @DokCena As Decimal(18,6)
    Declare @MagCena As Decimal(18,6)
    Declare @dFaktorDDV As Decimal(6,4)
    Declare @dFaktorNeto As Decimal(6,4)
    Declare @mFaktorDDV As Decimal(6,4)
    Declare @mFaktorNeto As Decimal(6,4)
    Declare @Danok1 As Decimal(18,6)
    Declare @Danok2 As Decimal(18,6)
    Declare @PDanok1 As Decimal(18,6)
    Declare @PDanok2 As Decimal(18,6)
    Declare @NabIznos As Decimal(18,6)
    Declare @MagIznos As Decimal(18,6)
    Declare @MagIznosDan As Decimal(18,6)
    Declare @SumaNabIznos As Decimal(18,6)
    Declare @SumaMagIznos As Decimal(18,6)
    Declare @SumaMagIznosDan As Decimal(18,6)
    Declare @SumaDanok1 As Decimal(18,6)
    Declare @SumaDanok2 As Decimal(18,6)
    Declare @SumaPDanok1 As Decimal(18,6)
    Declare @SumaPDanok2 As Decimal(18,6)
    Declare @Suma As Decimal(18,6)
    Set @SSQL = 'Select Sifra_OE, Sifra_Dok, Broj_Dok, Sifra_Prim, ImaDodatna From Dokr Where 1=1 '
    If @Sifra_OE Is Not NULL
        Set @SSQL = @SSQL + 'And Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' '
    If @Sifra_Dok Is Not NULL
        Set @SSQL = @SSQL + 'And Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' '
    If @Datum_Od Is Not NULL
        Set @SSQL = @SSQL + 'And Datum_Dok >=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not NULL
        Set @SSQL = @SSQL + 'And Datum_Dok <=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    Create Table #tStavr
    (      Uces Decimal(6,2),
        Kasa Decimal(6,2),
        POsn Decimal(6,2),
        DanDokCena Char(1),
        DanMagCena Char(1),
        Kolic Decimal(18,6),
        DokCena Decimal(18,6),
        MagCena Decimal(18,6)
    )
    Create Table #tDokr
    (  Sifra_OE Smallint,
        Sifra_Dok Smallint,
        Broj_Dok Int,
        Sifra_Prim Smallint,
        ImaDodatna Char(1)
    )
    Insert #tDokr Exec(@SSQL)
    Set @KolkuDok=@@RowCount
    Declare tDokr Cursor Fast_Forward For Select * From #tDokr
    Open tDokr
    Fetch Next From tDokr Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna
    While @@Fetch_Status = 0
    Begin
        Print 'Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + '; Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + '; Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) --+ '; Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + '; ImaDodatna='  + @ImaDodatna
        Set @SSQL2 = 'Select S.Uces, D.Kasa, S.POsn, S.DanDokCena, S.DanMagCena, S.Alt_Kolic, S.DokCena, S.MagCena
                    From Stavr S INNER JOIN Dokr D ON D.DokrID=S.DokrID
                    Where S.Sifra_OE='+Cast(@Sifra_OE As Varchar(5)) + ' And S.Sifra_Dok=' +
                    Cast(@Sifra_Dok As Varchar(5)) + ' And S.Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        If @Sifra_Prim Is Not NULL
            Set @SSQL2 = @SSQL2 + 'And S.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
        If @ImaDodatna Is Not NULL
            Set @SSQL2 = @SSQL2 + 'And S.ImaDodatna=''' + @ImaDodatna + ''' '
        Truncate Table #tStavr
        Insert #tStavr Exec(@SSQL2)
        Declare tStavr Cursor Fast_Forward For Select * From #tStavr
        Open tStavr
        Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
        Set @SumaNabIznos = 0
        Set @SumaMagIznos = 0
        Set @SumaMagIznosDan = 0
        Set @SumaDanok1 = 0
        Set @SumaDanok2 = 0
        Set @SumaPDanok1 = 0
        Set @SumaPDanok2 = 0
        While @@Fetch_Status=0
        Begin
            If @DanDokCena='D'
                Begin
                    Set @dFaktorDDV = 1
                    Set @dFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @dFaktorDDV = 1 + @POsn/100
                    Set @dFaktorNeto = 1
                End
            If @DanMagCena='D'
                Begin
                    Set @mFaktorDDV = 1
                    Set @mFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @mFaktorDDV = 1 + @POsn/100
                    Set @mFaktorNeto = 1
                End
            If @POsn > 15
                Begin
                    Set @Danok1  = @Kolic * @DokCena * (1 - @Uces/100) * (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok1 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                    Set @Danok2 = 0
                    Set @PDanok2 = 0
                End
            Else
                Begin
                    Set @Danok1  = 0
                    Set @PDanok1 = 0
                    Set @Danok2 = @Kolic * @DokCena * (1 - @Uces/100)* (1-@Kasa/100) / @dFaktorNeto * @POsn/100
                    Set @PDanok2 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                End

            Set @NabIznos = @Kolic * (@MagCena * @mFaktorDDV - @DokCena * @dFaktorDDV)
            set @MagIznosDan = @NabIznos

            set @NabIznos = 0

                Set @SumaNabIznos = @SumaNabIznos + @NabIznos
                Set @SumaMagIznosDan = @SumaMagIznosDan + @MagIznosDan

            Fetch Next From tStavr Into @Uces, @Kasa, @POsn, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena
            End --While
        Close tStavr
        Deallocate tStavr
print @SumaNabIznos
print @SumaMagIznos
print @SumaMAgIznosDan
print @SumaDanok1
print @SumaDanok2
print @SumaPDanok1
print @SumaPDanok2
print '-----------'
SET @SumaNabIznos = round(@SumaNabIznos,0)

        Set @SSQL3 = 'Update Dokr set
                 MagVrDan= ' + Cast(@SumaMagIznosDan As Varchar(20)) + ',
                 Toc200 = ' + Cast(@SumaNabIznos As Varchar(20)) + '
        Where Sifra_OE=' + Cast(@Sifra_OE As Varchar(5)) + ' And Sifra_Dok=' + Cast(@Sifra_Dok As Varchar(5)) + ' And Broj_Dok=' + Cast(@Broj_Dok As Varchar(6)) + ' '
        If @Sifra_Prim Is Not NULL
            Set @SSQL3 = @SSQL3 + 'And Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
        If @ImaDodatna Is Not NULL
            Set @SSQL3 = @SSQL3 + 'And ImaDodatna=''' + @ImaDodatna + ''' '
        Exec(@SSQL3)
        Fetch Next From tDokr Into @Sifra_OE, @Sifra_Dok, @Broj_Dok, @Sifra_Prim, @ImaDodatna
    End --While
    Close tDokr
    Deallocate tDokr
    Return @@Error







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_posldevcena]'))
drop procedure [dbo].[sp_posldevcena]

Go

CREATE  PROCEDURE sp_PoslDevCena
    @Sifra_Art varchar(20),
    @DevCena    decimal(18,6) = Null Output
AS
Set @DevCena = (Select Top 1 S.DevCena From  DevKalk D
Inner Join DevStavk S On D.Sifra_Oe=S.Sifra_Oe And D.Broj_Kalk=S.Broj_Kalk AND D.Sifra_Dok=S.Sifra_Dok
Where D.Sifra_Oe <= 900 And S.Sifra_Art = @Sifra_Art
Order By D.Datum_Dok Desc, D.Broj_Kalk Desc)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_posldomcena]'))
drop procedure [dbo].[sp_posldomcena]

Go


Create  PROCEDURE sp_PoslDomCena
    @Sifra_Art varchar(20),
    @Sifra_Oe  smallint,
    @DokCena    decimal(18,6) = Null Output,
    @DanDokCena    char (1) = Null Output
 AS
        Declare @DokId integer
    Set @DokId = (Select Top 1 S.DokId
            From  Stavr S
            Where S.Sifra_Oe = @Sifra_Oe And S.Sifra_Art = @Sifra_Art
                              And (S.Imadodatna = '' or S.Imadodatna is null) And VlIzl = 'V'
            Order By S.Datum_Dok Desc)
    if @DokId is Not Null
        select @DokCena = Dokcena, @DanDokCena = DanDokCena
        from Stavr
        where DokId = @DokId




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_poslnabcenazaart]'))
drop procedure [dbo].[sp_poslnabcenazaart]

Go
CREATE        PROCEDURE sp_PoslNabCenaZaArt
    @Sifra_Art   varchar(20),
    @Datum_Do Smalldatetime,
    @IskluciKup   varchar(200) = '660663, 660660, 021000',
    @OrgEdZaNabCeni smallint = 100,
    @TipDokPriem    smallint = 1,
    @CenaSoDDV decimal(18,6)    OUTPUT,
    @CenaBEZDDV decimal(18,6)   OUTPUT,
    @Sifra_Kup  varchar(9) = ''  OUTPUT
AS
    Declare @SSQL   Varchar(2000)
    Declare @DokID int
    Declare @MaxDat  smalldatetime
    SELECT @MaxDat =  max(Datum_Dok), @DokID = max(DokID)
    FROM Stavr
    WHERE Sifra_Art = @Sifra_Art
    AND Datum_Dok <= Cast(@Datum_Do As Varchar(35))
    AND Kolic > 0 AND VlIZl = 'V' AND (ImaDodatna Is NULL  OR ImaDodatna =' ' OR ImaDodatna ='')
    AND Sifra_OE =   Cast(@OrgEdZaNabCeni as varchar(4))
    AND Sifra_Dok = Cast(@TipDokPriem as varchar(3))
    SELECT @CenaSoDDV = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces,D.Kasa, 'D'),
         @CenaBezDDV = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces,D.Kasa,  'N'),
         @Sifra_kup = D.Sifra_Kup
             FROM Stavr S
    INNER JOIN Dokr D ON D.DokrID = S.DokrID
    WHERE S.DokID = @DokID



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_poslprodcenazakup]'))
drop procedure [dbo].[sp_poslprodcenazakup]

Go




CREATE     PROCEDURE sp_PoslProdCenaZaKup
    @Sifra_Art    Varchar(20),
    @Sifra_OE    smallint=NULL,
    @Sifra_Kup    char(6),
    @VratiCenaSoDan char(1),
    @VlIzl    char(1)='I'
AS
IF @Sifra_OE IS NOT NULL
    Select TOP 1 dbo.fn_VratiCena(S.DokCena, S.POsn,S.DanDokCena,@VratiCenaSoDan)  FROM Stavr S WITH(NOLOCK) INNER JOIN Dokr D ON S.DokrID=D.DokrID
    WHERE S.Sifra_Art = @Sifra_Art AND S.Sifra_Oe = @Sifra_oe AND D.Sifra_Kup=@Sifra_Kup AND D.VlIzl=@VlIzl ORDER By S.Datum_Dok Desc
ELSE
    Select TOP 1 dbo.fn_VratiCena(S.DokCena, S.POsn,S.DanDokCena,@VratiCenaSoDan) FROM Stavr S WITH(NOLOCK) INNER JOIN Dokr D ON S.DokrID=D.DokrID
    WHERE S.Sifra_Art = @Sifra_Art AND D.Sifra_Kup=@Sifra_Kup AND D.VlIzl=@VlIzl ORDER By S.Datum_Dok Desc







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_poslprodcenazaoe]'))
drop procedure [dbo].[sp_poslprodcenazaoe]

Go





CREATE     PROCEDURE sp_PoslProdCenaZaOE
    @Sifra_Art    Varchar(20),
    @Sifra_OE    smallint=NULL,
    @Sifra_OEPrim    smallint,
    @VratiCenaSoDan char(1)
AS
Select TOP 1 dbo.fn_VratiCena(S.DokCena, S.POsn,S.DanDokCena,@VratiCenaSoDan) FROM Stavr S WITH(NOLOCK)
WHERE S.Sifra_Art = @Sifra_Art AND S.Sifra_OE=@Sifra_OE AND S.Sifra_Prim=@Sifra_OEPrim AND S.VlIzl='I'  ORDER By S.Datum_Dok Desc








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavi_datum_poc_proiz]'))
drop procedure [dbo].[sp_postavi_datum_poc_proiz]

Go




CREATE  PROCEDURE sp_Postavi_Datum_Poc_Proiz
    @RabNalID    int,
    @Datum_Poc_Proiz smalldatetime
AS
    UPDATE RabNal SET Datum_Poc_Proiz=@Datum_Poc_Proiz
    WHERE RabNalID = @RabNalID
              and (Datum_Poc_Proiz is null or Datum_Poc_Proiz < '2006-1-1')
    RETURN @@ERROR




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavi_nalog_ispor]'))
drop procedure [dbo].[sp_postavi_nalog_ispor]

Go


CREATE    PROCEDURE [dbo].[sp_Postavi_Nalog_Ispor]
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int,
    @Sifra_Za_Dok    smallint = Null,
    @Sifra_Za_Org    smallint = Null,
    @Opis             varchar(1500)=Null,
    @Dat_Za_Ispor    smalldatetime = Null,
    @Sifra_Za_Prim    smallint = Null,
    @Sifra_Oper_Oper smallint = Null

AS

    Declare @SetStat char(1)

    if @SIfra_Za_Dok is null and @Sifra_Za_Org is null
       Begin
        set @SetStat = null
        set @Dat_Za_ISpor = null
        end
    else
        set @SetStat = 'P'

IF @Opis IS NULL
    Update Naracki
    Set Sifra_Za_Dok = @Sifra_Za_Dok, Sifra_Za_Org = @Sifra_Za_Org,
        Stat_Dok_Nar  = @SetStat, Dat_Isporaka = @Dat_Za_Ispor, Sifra_Za_Prim = @Sifra_Za_Prim,
        Sifra_Oper_Oper = @Sifra_Oper_Oper
    Where Sifra_Oe=@Sifra_Oe And Sifra_Nar=@Sifra_Nar And Broj_Nar=@Broj_Nar
ELSE
    Update Naracki
    Set Sifra_Za_Dok = @Sifra_Za_Dok, Sifra_Za_Org = @Sifra_Za_Org,
        Stat_Dok_Nar  = @SetStat, Dat_Isporaka = @Dat_Za_Ispor, Sifra_Za_Prim = @Sifra_Za_Prim, TekstPosle = @Opis,
        Sifra_Oper_Oper = @Sifra_Oper_Oper
    Where Sifra_Oe=@Sifra_Oe And Sifra_Nar=@Sifra_Nar And Broj_Nar=@Broj_Nar



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavicena]'))
drop procedure [dbo].[sp_postavicena]

Go



CREATE  PROCEDURE sp_PostaviCena
    @Sifra_OE Smallint,
    @Sifra_Art Varchar(20),
    @Cena Decimal(18,6),
    @DanCena Char(1),
    @POsn Decimal(6,2),
    @Dodaden Tinyint OUTPUT,
    @Izmenet Tinyint OUTPUT
AS
if exists (Select sifra_oe from orged where sifra_Oe=@Sifra_OE)
Begin
    Select @Sifra_OE, @Sifra_Art From Soart
    Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
    If @@RowCount = 1
        Begin
            Update Soart
                Set Cena=@Cena,
                     DanCena=@DanCena
            Where Sifra_OE=@Sifra_OE And Sifra_Art=@Sifra_Art
            Set @Dodaden = 0
            Set @Izmenet = 1
        End
    Else
        Begin
            Insert Soart
                (Sifra_OE, Sifra_Art, Vlez, Izlez, Prof_Rez, Cena, DanCena, POsn, NabCena, DokCena, Uces)
            Values(@Sifra_OE, @Sifra_Art, 0, 0,   0,       @Cena, @DanCena, @POsn, 0,     0,       0)
            Set @Dodaden = 1
            Set @Izmenet = 0
        End
End
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviceni]'))
drop procedure [dbo].[sp_postaviceni]

Go

CREATE   PROCEDURE sp_PostaviCeni
    @Sifra_Art Varchar(20),
    @DogCena Decimal(18,4),
    @MalCena Decimal(18,4),
    @GotCena Decimal(18,4),
        @Fakturna Decimal(18,4)
AS
    If Exists (Select Sifra_Art From Katart Where Sifra_Art=@Sifra_Art)
    Update Katart Set DogCena=@DogCena,    MalCena=@MalCena, GotCena=@GotCena, Fakturna=@Fakturna,
    IzmenetNa=GetDate(), IzmenetOd=SUser_SName()         Where Sifra_Art=@Sifra_Art
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviceniodgrorg]'))
drop procedure [dbo].[sp_postaviceniodgrorg]

Go
CREATE  PROCEDURE sp_PostaviCeniOdGrOrg
    @Za_OrgEd    smallint,
    @Od_GrOrgEd    char(6),
    @Datum_RazlCeni smalldatetime
AS
    Declare @Sifra_Art Varchar(20)
    Declare @KrCena Decimal(18,6)
    Declare Ceni1 Cursor Fast_Forward For
        Select Sifra_Art, Cena  From CenGrOrg WHERE Sif_GrOrg = @Od_GrOrgEd
    Open Ceni1
    Fetch Next From Ceni1 Into @Sifra_Art, @KrCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Za_OrgEd, @Sifra_Art, @KrCena,'D', @Datum_RazlCeni
        Fetch Next From Ceni1 Into @Sifra_Art, @KrCena
    End
    Close Ceni1
    Deallocate Ceni1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviceniodkatart]'))
drop procedure [dbo].[sp_postaviceniodkatart]

Go
CREATE  PROCEDURE sp_PostaviCeniOdKatart
    @Za_OrgEd    smallint,
    @Datum_RazlCeni smalldatetime
AS
    Declare @Sifra_Art Varchar(20)
    Declare @KrCena Decimal(18,6)
    Declare Ceni1 Cursor Fast_Forward For
        Select Sifra_Art, DogCena  From Katart WHERE DogCena > 0
    Open Ceni1
    Fetch Next From Ceni1 Into @Sifra_Art, @KrCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Za_OrgEd, @Sifra_Art, @KrCena,'D', @Datum_RazlCeni
        Fetch Next From Ceni1 Into @Sifra_Art, @KrCena
    End
    Close Ceni1
    Deallocate Ceni1


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavidatumaktkartkor]'))
drop procedure [dbo].[sp_postavidatumaktkartkor]

Go
CREATE PROCEDURE sp_PostaviDatumAktKartKor

AS

    Create Table #DatAktKor
    (
        Sifra_Kor    varchar(20),
        Datum_Akt    smalldatetime
    )

    Insert Into #DatAktKor
    Select KP.Sifra_Kor, Min(KP.Datum_Ska)
    From KartProm KP
    Inner Join KartKor KK On KK.Sifra_Kor=KP.Sifra_Kor
    Where KK.Datum_Akt Is Null
    Group By KP.Sifra_Kor

    Update KartKor
    Set KartKor.Datum_Akt = #DatAktKor.Datum_Akt
    From #DatAktKor
    Where KartKor.Sifra_Kor=#DatAktKor.Sifra_Kor
    And KartKor.Datum_Akt Is Null

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavidatumaktkartkor_klub]'))
drop procedure [dbo].[sp_postavidatumaktkartkor_klub]

Go

CREATE  PROCEDURE sp_PostaviDatumAktKartKor_Klub

AS

    Create Table #DatAktKor
    (
        Sifra_Kor    varchar(20),
        Datum_Akt    smalldatetime
    )

    Insert Into #DatAktKor
    Select KP.Sifra_Kor, Min(KP.Datum_Ska)
    From KartProm_Klub_KumulC KP
    Inner Join KartKor KK On KK.Sifra_Kor=KP.Sifra_Kor
    Where KK.Datum_Akt Is Null
    Group By KP.Sifra_Kor

    Update KartKor
    Set KartKor.Datum_Akt = #DatAktKor.Datum_Akt
    From #DatAktKor
    Where KartKor.Sifra_Kor=#DatAktKor.Sifra_Kor
    And KartKor.Datum_Akt Is Null


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavidogc]'))
drop procedure [dbo].[sp_postavidogc]

Go

CREATE   PROCEDURE sp_PostaviDogC
    @Sifra_Art Varchar(20),
    @DogCena Decimal(18,4)
AS
    If Exists (Select Sifra_Art From Katart Where Sifra_Art=@Sifra_Art)
        Update Katart Set DogCena=@DogCena, IzmenetNa=GetDate(), IzmenetOd=SUser_SName()
        Where Sifra_Art=@Sifra_Art
    Return @@Error




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavidokneispecfisk]'))
drop procedure [dbo].[sp_postavidokneispecfisk]

Go
CREATE PROCEDURE sp_PostaviDokNeispecFisk
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Update Dokr
    Set Pec_Fisc = 0
    Where Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavidozvobj]'))
drop procedure [dbo].[sp_postavidozvobj]

Go
CREATE PROCEDURE sp_PostaviDozvObj
    @GrupaKor    varchar(20)
AS
    Declare @SSQL as varchar(1000)
    Declare @ObjIme as varchar(128)
    Declare Dozv Cursor Fast_Forward For
        Select ObjIme From DozvObj Where Dozvoleno = 'D' Order By ObjIme
    Open Dozv
    Fetch Next From Dozv Into @ObjIme
    While @@Fetch_Status = 0
    Begin
        Set @SSQL = ' GRANT EXECUTE ON [dbo].[' + @ObjIme + '] TO [' + @GrupaKor + '] '
        Print @SSQL
        Exec(@SSQL)
        Fetch Next From Dozv Into @ObjIme
    End
    Close Dozv
    Deallocate Dozv
    -------------------------------------------------------------------------------------------------------------------------------------------------------------
    Declare NeDozv Cursor Fast_Forward For
        Select ObjIme From DozvObj Where (Dozvoleno <>'D' Or Dozvoleno Is Null) Order By ObjIme
    Open NeDozv
    Fetch Next From NeDozv Into @ObjIme
    While @@Fetch_Status = 0
    Begin
        Set @SSQL = ' DENY EXECUTE ON [dbo].[' + @ObjIme + '] TO [' + @GrupaKor + '] '
        Print @SSQL
        Exec(@SSQL)
        Fetch Next From NeDozv Into @ObjIme
    End
    Close NeDozv
    Deallocate NeDozv



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavinabcenausl]'))
drop procedure [dbo].[sp_postavinabcenausl]

Go
CREATE  PROCEDURE sp_PostaviNabCenaUsl
    @DokrId    int
AS
    Update Stavr
    Set Stavr.NabCena = 0
    Where Stavr.DokrId = @DokrId
    and Stavr.Sifra_Art In
    (Select K.Sifra_art
     From Katart K
     Where K.smatusl='U')



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviparamnarpodnar]'))
drop procedure [dbo].[sp_postaviparamnarpodnar]

Go
CREATE PROCEDURE sp_PostaviParamNarPodnar

    @NarID_Orig    int
 AS

--    Update Naracki Set Sifra_Za_Dok = N.Sifra_Za_Dok, Sifra_Za_Org = Null, Sifra_Za_Prim=Null, Dat_Isporaka=Null Where NarId = @NarID_Orig
    Update Naracki Set Sifra_Za_Dok = Null, Sifra_Za_Org = Null, Sifra_Za_Prim=Null, Dat_Isporaka=Null Where NarId = @NarID_Orig


    Return @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviperceni]'))
drop procedure [dbo].[sp_postaviperceni]

Go


CREATE    PROCEDURE sp_PostaviPerCeni
    @Za_Datum    smalldatetime
AS
SELECT 1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviperceni1]'))
drop procedure [dbo].[sp_postaviperceni1]

Go




CREATE      PROCEDURE sp_PostaviPerCeni1
    @Za_Datum    smalldatetime
AS
    SET @Za_Datum = dbo.fn_VratiDatum(@Za_Datum)
    Declare @SSQL varchar(500)
--BEGIN TRANSACTION
    CREATE TABLE #TmpDat
(    Sifra_Art    varchar(20),
    Sifra_OE    smallint,
    Cena        decimal(18,6),
    Prioritet        smallint,
    CenaTek    decimal(18,6)
)
    INSERT INTO #TmpDat (Sifra_Art, Sifra_OE, Prioritet)
    SELECT P.Sifra_Art, V.Sifra_OE, max(T.Prioritet) FROM PerCenCeni P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= @Za_Datum AND P.Datum_Do >= @Za_Datum
    GROUP BY P.Sifra_Art, V.Sifra_OE

    UPDATE #TmpDat SET Cena = P.Cena FROM PerCenCeni P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE (T.TipCen IS NULL OR T.TipCen=1) AND P.Datum_Od <= @Za_Datum AND P.Datum_Do >= @Za_Datum AND T.Prioritet = #TmpDat.Prioritet
    AND #TmpDat.Sifra_Art = P.Sifra_Art AND #TmpDat.Sifra_OE = V.Sifra_OE

    UPDATE #TmpDat SET CenaTek = S.Cena     FROM SoArt S
    WHERE #TmpDat.Sifra_Art=S.Sifra_Art AND S.Sifra_OE = #TmpDat.Sifra_OE
    UPDATE #TmpDat SET  CenaTek = 0 WHERE CenaTek IS NULL

    UPDATE PerCeniProm SET Cena = T.Cena, CenaR = T.CenaTek FROM #TmpDat T
    WHERE T.Sifra_OE=PerCeniProm.Sifra_OE AND T.Sifra_Art=PerCeniProm.Sifra_Art AND T.Cena <> T.CenaTek
    INSERT INTO PerCeniProm (Sifra_OE, Sifra_Art, Cena, CenaR)
    SELECT T.Sifra_OE, T.Sifra_Art, T.Cena, T.CenaTek FROM #TmpDat T LEFT OUTER JOIN PerCeniProm P ON T.Sifra_OE=P.Sifra_OE AND T.Sifra_Art=P.Sifra_Art
    WHERE T.Cena <> T.CenaTek AND P.Sifra_Art IS NULL AND P.Sifra_OE IS NULL

    Declare @Sifra_OE Smallint
    Declare @Sifra_Art Varchar(20)
    Declare @KrCena Decimal(18,6)
    Declare Ceni1 Cursor Fast_Forward For
        Select Sifra_OE, Sifra_Art, Cena  From #TmpDat   WHERE Cena <> CenaTek
    Open Ceni1
    Fetch Next From Ceni1 Into @Sifra_OE, @Sifra_Art, @KrCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Sifra_OE, @Sifra_Art, @KrCena,'D', @Za_Datum
        Fetch Next From Ceni1 Into @Sifra_OE, @Sifra_Art, @KrCena
    End
    Close Ceni1
    Deallocate Ceni1
--sega da se vratat starite ceni kade sto treba
    CREATE TABLE #TmpDat1
(    Sifra_Art    varchar(20),
    Sifra_OE    smallint,
    Cena        decimal(18,6),
    CenaR        decimal(18,6))
    INSERT INTO #TmpDat1 (Sifra_Art, Sifra_OE, Cena, CenaR)
    SELECT P.Sifra_Art, P.Sifra_OE, P.Cena, P.CenaR FROM PerCeniProm P
    LEFT OUTER JOIN #TmpDat C ON P.Sifra_Art = C.Sifra_Art AND P.Sifra_OE = C.Sifra_OE
    WHERE C.Sifra_OE IS NULL AND C.Sifra_Art IS NULL AND P.Cena <> P.CenaR AND P.CenaR>0
    UPDATE PerCeniProm SET Cena = #TmpDat1.CenaR
    FROM #TmpDat1 WHERE PerCeniProm.Sifra_Art = #TmpDat1.Sifra_Art AND PerCeniProm.Sifra_OE = #TmpDat1.Sifra_OE
    Declare Ceni2 Cursor Fast_Forward For
        Select Sifra_OE, Sifra_Art, CenaR  From #TmpDat1
    Open Ceni2
    Fetch Next From Ceni2 Into @Sifra_OE, @Sifra_Art, @KrCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Sifra_OE, @Sifra_Art, @KrCena,'D', @Za_Datum
        Fetch Next From Ceni2 Into @Sifra_OE, @Sifra_Art, @KrCena
    End
    Close Ceni2
    Deallocate Ceni2
--COMMIT

    Declare @Nabavna decimal(18,6), @Rabat decimal(6,2), @Datum_Od smalldatetime, @Sif_GrOrg char(6)
    Declare Ceni3 Cursor Fast_Forward For
        SELECT P.Sifra_OE, P.Sifra_Art, P.Datum_Od, P.Cena, P.NabCena, P.Rabat, V.Sif_GrOrg FROM PerCenCeniRedov P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE T.TipCen=2 AND (P.Datum_Od=@Za_Datum OR P.Datum_Od=dateadd(day, -1, @Za_Datum)) AND P.Resen IS NULL
     ORDER BY P.Sifra_OE, P.Sifra_Art, P.Datum_Od
    Open Ceni3
    Fetch Next From Ceni3 Into @Sifra_OE, @Sifra_Art, @Datum_Od, @KrCena, @Nabavna, @Rabat,@Sif_GrOrg
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Sifra_OE, @Sifra_Art, @KrCena,'D', @Za_Datum
        IF @Nabavna>0 UPDATE KatArt SET Nabavna=@Nabavna WHERE Sifra_Art=@Sifra_Art AND Nabavna<>@Nabavna
        IF @Sif_GrOrg IS NOT NULL UPDATE CenGrOrg SET Cena=@KrCena WHERE Sif_GrOrg=@Sif_GrOrg AND Sifra_Art=@Sifra_Art AND Cena<>@KrCena
        UPDATE PerCenCeniRedov SET Resen='D' WHERE Sifra_OE=@Sifra_OE AND Sifra_Art=@Sifra_Art AND Datum_Od=@Datum_Od
        Fetch Next From Ceni3 Into @Sifra_OE, @Sifra_Art, @Datum_Od, @KrCena, @Nabavna, @Rabat,@Sif_GrOrg
    End
    Close Ceni3
    Deallocate Ceni3






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postaviraspored_proknizen]'))
drop procedure [dbo].[sp_postaviraspored_proknizen]

Go


CREATE   PROCEDURE sp_PostaviRaspored_Proknizen
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Raspored    int,
    @Proknizen    char(1)
AS
    Update RasporedIspor
    Set Proknizen=@Proknizen
    Where Sifra_Oe=@Sifra_Oe And Sifra_Nar=@Sifra_Nar And Broj_Raspored=@Broj_Raspored




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavistatnar]'))
drop procedure [dbo].[sp_postavistatnar]

Go

create PROCEDURE sp_PostaviStatNar
    @Sifra_Oe    smallint,
    @Sifra_Nar    smallint,
    @Broj_Nar    int,
        @Stat_Nar    char (1)
AS
    Update Naracki
    Set Stat_Nar = @Stat_Nar
    Where Sifra_Oe=@Sifra_Oe And Sifra_Nar=@Sifra_Nar And Broj_Nar=@Broj_Nar




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postavivratiodcengrorg]'))
drop procedure [dbo].[sp_postavivratiodcengrorg]

Go

CREATE   PROCEDURE sp_PostaviVratiOdCenGrOrg
    @Za_Datum    smalldatetime
AS
    SET @Za_Datum = dbo.fn_VratiDatum(@Za_Datum)
    Declare @SSQL varchar(500)
    CREATE TABLE #TmpDat1
(    Sifra_Art    varchar(20),
    Sif_GrOrg    char(6),
    Cena        decimal(18,6),
    CenaR        decimal(18,6)
)
    INSERT INTO #TmpDat1 (Sifra_Art, Sif_GrOrg, Cena, CenaR)
    SELECT Sifra_Art, Sif_GrOrg, Cena, CenaR FROM CenGrOrg WHERE Cena <> CenaR AND CenaR>0
    CREATE TABLE #TmpTekCeni
(    Sifra_Art    varchar(20),
    Sif_GrOrg    char(6),
    Cena        decimal(18,6),
    Prioritet        smallint
)
    INSERT INTO #TmpTekCeni (Sifra_Art, Sif_GrOrg, Prioritet)
    SELECT P.Sifra_Art, V.Sif_GrOrg, max(T.Prioritet) FROM PerCenCeni P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE P.Datum_Od <= @Za_Datum AND P.Datum_Do >= @Za_Datum
    GROUP BY P.Sifra_Art, V.Sif_GrOrg
    UPDATE #TmpTekCeni SET Cena = P.Cena
    FROM PerCenCeni P
    INNER JOIN TipPerCenovnik T ON T.Sifra_TipC = P.Sifra_TipC
    INNER JOIN TipPerCenVaziZa V ON V.Sifra_TipC = T.Sifra_TipC
    WHERE P.Datum_Od <= @Za_Datum AND P.Datum_Do >= @Za_Datum AND T.Prioritet = #TmpTekCeni.Prioritet
    AND #TmpTekCeni.Sifra_Art = P.Sifra_Art AND #TmpTekCeni.Sif_GrOrg = V.Sif_GrOrg
    CREATE TABLE #TmpDat
(    Sifra_Art    varchar(20),
    Sif_GrOrg    char(6),
    Cena        decimal(18,6),
    CenaR        decimal(18,6)
)
    INSERT INTO #TmpDat (Sifra_Art, Sif_GrOrg, Cena, CenaR)
    SELECT T.Sifra_Art, T.Sif_GrOrg, T.Cena, T.CenaR FROM #TmpDat1 T
    LEFT OUTER JOIN #TmpTekCeni C ON T.Sifra_Art = C.Sifra_Art AND T.Sif_GrOrg = C.Sif_GrOrg
    WHERE C.Sif_GrOrg IS NULL AND C.Sifra_Art IS NULL
    CREATE TABLE #TmpDatOE
(    Sifra_Art    varchar(20),
    Sifra_OE    smallint,
    Cena        decimal(18,6),
    CenaR        decimal(18,6)
)
    INSERT INTO #TmpDatOE (Sifra_Art, Sifra_OE, Cena, CenaR)
    SELECT T.Sifra_Art, S.Sifra_OE, T.Cena, T.CenaR  FROM #TmpDat T
    INNER JOIN SGrOrg S ON S.Sif_GrOrg = T.Sif_GrOrg
    UPDATE CenGrOrg SET Cena = #TmpDat.CenaR
    FROM #TmpDat WHERE CenGrOrg.Sifra_Art = #TmpDat.Sifra_Art AND CenGrOrg.Sif_GrOrg = #TmpDat.Sif_GrOrg
    AND #TmpDat.Cena <> #TmpDat.CenaR
    INSERT INTO RazlFix (Tip, Sif_GrOrg, Sifra_Art, Stara_Cena, Nova_Cena, Datum, Sifra_Oper)
    SELECT 'P', Sif_GrOrg, Sifra_Art, Cena, CenaR, GetDate(), 'proc' FROM #TmpDat
    WHERE #TmpDat.Cena <> #TmpDat.CenaR
    Declare @Sifra_OE Smallint
    Declare @Sifra_Art Varchar(20)
    Declare @KrCena Decimal(18,6)
    Declare @Datum smalldatetime
    SET @Datum = @Za_Datum        --GetDate()
    Declare Ceni1 Cursor Fast_Forward For
        Select Sifra_OE, Sifra_Art, CenaR  From #TmpDatOE WHERE Cena <> CenaR
    Open Ceni1
    Fetch Next From Ceni1 Into @Sifra_OE, @Sifra_Art, @KrCena
    While @@Fetch_Status = 0
    Begin
        exec sp_902  @Sifra_OE, @Sifra_Art, @KrCena,'D', @Datum
        Fetch Next From Ceni1 Into @Sifra_OE, @Sifra_Art, @KrCena
    End
    Close Ceni1
    Deallocate Ceni1




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postoililok_vo_org]'))
drop procedure [dbo].[sp_postoililok_vo_org]

Go


CREATE  PROCEDURE sp_PostoiLiLok_Vo_Org
    @Sifra_OE     Smallint,
       @Lokac_BarKod    varchar(30),
        @DaliPostoi     char(1) = Null OUTPUT,
    @Lokac_DaliPovekeArt chaR(1) = Null OUTPUT,
    @Lokac_DaliPovekeLot chaR(1) = Null OUTPUT,
    @Lokac_Pick chaR(1) = Null OUTPUT

AS

    if exists (select Lokac_Id
           from WhmLokacija
           where Sifra_Oe = @Sifra_Oe and Lokac_BarKod = @Lokac_BarKod)
        begin
            set @DaliPostoi = 'D'

            select    @Lokac_DaliPovekeArt = Lokac_DaliPovekeArt,
                @Lokac_DaliPovekeLot = Lokac_DaliPovekeLot,
                @Lokac_Pick = Lokac_Pick
            from WhmLokacija
            where Sifra_Oe = @Sifra_Oe and Lokac_BarKod = @Lokac_BarKod
        end

    else
        set @DaliPostoi = 'N'






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_postojanikomintenti]'))
drop procedure [dbo].[sp_postojanikomintenti]

Go

CREATE     PROCEDURE sp_PostojaniKomintenti
    @Mesec_Od Smallint,
    @Mesec_Do Smallint,
    @Komint_Od Varchar(10) = Null,
    @Komint_Do Varchar(10) = Null,
    @Podelba1 Smallint = Null,
    @Podelba2 Smallint = Null,
    @Podelba3 Smallint = Null,
    @Podelba4 Smallint = Null,
    @Podelba5 Smallint = Null,
    @Podelba6 Smallint = Null,
    @Podelba7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Grad Smallint = Null,
    @Patnik Smallint = Null,
    @TipKup Varchar(11) = Null,
    @KojaCena char(1) = Null,
    @Sifra_reg    smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @Aktiven    Char(1) = Null,
    @MozeIsporaka    Char(1) = Null,
    @Patnik_OdKomintPat char(1)='N',
    @Sifra_VPJ    smallint = Null,
    @DatumIzm_Od    smalldatetime = NULL,
    @DatumIzm_Do    smalldatetime = NULL
AS
    Declare @SSQL Varchar(3000)
    Declare @Mesec Smallint
    Declare @Godina Smallint
    Create Table #Sifri_Kup (    Sifra_Kup Varchar(10))
    Set @Godina = Year(GetDate())
    Set @Mesec = @Mesec_Od
    Set @SSQL = 'Insert Into #Sifri_Kup Select Distinct D.Sifra_Kup From Dokr D
        Inner Join Komint Kup On D.Sifra_Kup=Kup.Sifra_Kup '
    IF @Patnik_OdKomintPat = 'D' AND @Patnik IS NOT NULL
            Set @SSQL = @SSQL + ' Left Outer Join KomintPat KP On KP.Sifra_Kup=Kup.Sifra_Kup AND KP.Sifra_Obj=Null '
    Set @SSQL = @SSQL + ' Where Month(Datum_Dok)=' + Cast(@Mesec As Varchar(3)) + ' And Year(Datum_Dok)=' + Cast(@Godina As Varchar(4)) + ' And Sifra_Za=''1'' And VlIzl=''I'' '
    If @Komint_Od Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '
    If @Komint_Do Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup<=''' + @Komint_Do + ''' '
    If @Podelba1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or Kup.KDrugo1 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo2<>' + Cast(@Podelba2 As Varchar(10)) + ' Or Kup.KDrugo2 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo3<>' + Cast(@Podelba3 As Varchar(10)) + ' Or Kup.KDrugo3 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo4<>' + Cast(@Podelba4 As Varchar(10)) + ' Or Kup.KDrugo4 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo5<>' + Cast(@Podelba5 As Varchar(10)) + ' Or Kup.KDrugo5 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
    If @Podelba6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo6<>' + Cast(@Podelba6 As Varchar(10)) + ' Or Kup.KDrugo6 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo6=' + Cast(@Podelba6 As Varchar(10)) + ' '
    If @Podelba7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQL = @SSQL + 'And (Kup.KDrugo7<>' + Cast(@Podelba7 As Varchar(10)) + ' Or Kup.KDrugo7 Is Null) '
        Else
            Set @SSQL = @SSQL + 'And Kup.KDrugo7=' + Cast(@Podelba7 As Varchar(10)) + ' '
/*    If @Podelba1 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
*/
    If @Sifra_Tip Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
    If @Sifra_VPJ Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_VPJ=' + Cast(@Sifra_VPJ As Varchar(10)) + ' '
    If @Grad Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Grad=' + Cast(@Grad As Varchar(10)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Reg=' + Cast(@Sifra_Reg As Varchar(10)) + ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @Aktiven = 'N'
        Set @SSQL = @SSQL + 'And Kup.Aktiven = ''N'' '
    Else If @Aktiven = 'A'
        Set @SSQL = @SSQL + 'And (Kup.Aktiven <> ''N'' or Kup.Aktiven Is Null) '
    If @MozeIsporaka = 'N'
        Set @SSQL = @SSQL + 'And Kup.MozeIsporaka = ''N'' '
    Else If @MozeIsporaka = 'D'
        Set @SSQL = @SSQL + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
    If @Patnik Is Not Null
    Begin
        IF @Patnik_OdKomintPat = 'D'
            Set @SSQL = @SSQL + 'And KP.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
        ELSE
            Set @SSQL = @SSQL + 'And Kup.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
    End
    If @KojaCena Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KojaCena=''' + @KojaCena + ''' '
    IF @DatumIzm_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND (Kup.DodadenNa>=''' +cast(@DatumIzm_Od as varchar(35))+''' OR Kup.IzmenetNa>=''' +cast(@DatumIzm_Od as varchar(35))+ ''' )'
    IF @DatumIzm_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND (Kup.DodadenNa<=''' +cast(@DatumIzm_Do as varchar(35))+''' OR Kup.IzmenetNa<=''' +cast(@DatumIzm_Do as varchar(35))+ ''' )'
    Exec(@SSQL)
    Set @Mesec = @Mesec + 1
    While @Mesec <= @Mesec_Do
    Begin
        Set @SSQL = 'Delete #Sifri_Kup
        Where Sifra_Kup Not In (Select D.Sifra_Kup From Dokr D
        Inner Join Komint Kup On D.Sifra_Kup=Kup.Sifra_Kup
        Where Month(Datum_Dok)=' + Cast(@Mesec As Varchar(3)) + '
        And Year(Datum_Dok)=' + Cast(@Godina As Varchar(4)) + '
        And Sifra_Za=''1'' And VlIzl=''I'' '
        If @Komint_Od Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '
        If @Komint_Do Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Kup<=''' + @Komint_Do + ''' '
        If @Podelba1 Is Not NULL
            If @KFPod1 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or Kup.KDrugo1 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not NULL
            If @KFPod2 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo2<>' + Cast(@Podelba2 As Varchar(10)) + ' Or Kup.KDrugo2 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not NULL
            If @KFPod3 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo3<>' + Cast(@Podelba3 As Varchar(10)) + ' Or Kup.KDrugo3 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not NULL
            If @KFPod4 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo4<>' + Cast(@Podelba4 As Varchar(10)) + ' Or Kup.KDrugo4 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not NULL
            If @KFPod5 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo5<>' + Cast(@Podelba5 As Varchar(10)) + ' Or Kup.KDrugo5 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
        If @Podelba6 Is Not NULL
            If @KFPod6 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo6<>' + Cast(@Podelba6 As Varchar(10)) + ' Or Kup.KDrugo6 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo6=' + Cast(@Podelba6 As Varchar(10)) + ' '
        If @Podelba7 Is Not NULL
            If @KFPod7 = 'D'
                Set @SSQL = @SSQL + 'And (Kup.KDrugo7<>' + Cast(@Podelba7 As Varchar(10)) + ' Or Kup.KDrugo7 Is Null) '
            Else
                Set @SSQL = @SSQL + 'And Kup.KDrugo7=' + Cast(@Podelba7 As Varchar(10)) + ' '
/*        If @Podelba1 Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '*/
        If @Sifra_Tip Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '        If @Sifra_VPJ Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_VPJ=' + Cast(@Sifra_VPJ As Varchar(10)) + ' '        If @Grad Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Grad=' + Cast(@Grad As Varchar(10)) + ' '
        If @Sifra_Reg Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Reg=' + Cast(@Sifra_Reg As Varchar(10)) + ' '
        If @Sifra_Nivo Is Not Null
            Set @SSQL = @SSQL + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        If @Aktiven = 'N'
            Set @SSQL = @SSQL + 'And Kup.Aktiven = ''N'' '
        Else If @Aktiven = 'A'
            Set @SSQL = @SSQL + 'And (Kup.Aktiven <> ''N'' or Kup.Aktiven Is Null) '
        If @MozeIsporaka = 'N'
            Set @SSQL = @SSQL + 'And Kup.MozeIsporaka = ''N'' '
        Else If @MozeIsporaka = 'D'
            Set @SSQL = @SSQL + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
        If @KojaCena Is Not Null
            Set @SSQL = @SSQL + 'And Kup.KojaCena=''' + @KojaCena + ''' '
        Set @SSQL = @SSQL + ') '
        Exec(@SSQL)
        Set @Mesec = @Mesec + 1
    End
    Select Kup.*,
        P.ImePat, G.ImeGrad, R.ImeRegion, N.ImeNivo,
        KD1.Ime_1K, KD2.Ime_2K, TK.ImeTipKup, Kup.KojaCena
        From Komint Kup
        Left Outer Join Patnici P On Kup.Sifra_Pat=P.Sifra_Pat
        Left Outer Join Grad G On Kup.Sifra_Grad=G.Sifra_Grad
        Left Outer Join GRegion R On Kup.Sifra_Reg=R.Sifra_Reg
        Left Outer Join Nivo N On Kup.Sifra_Nivo=N.Sifra_Nivo
        Left Outer Join KDrugo1 KD1 On Kup.KDrugo1=KD1.Sifra_1K
        Left Outer Join KDrugo2 KD2 On Kup.KDrugo1=KD2.Sifra_2K
        Left Outer Join GTipKup TK On Kup.TipKup=TK.TipKup
    Where Kup.Sifra_Kup In (Select Sifra_Kup From #Sifri_Kup)
        and TK.TipKup = @TipKup
    Order By Kup.KDrugo1, Kup.KDrugo2, Kup.Sifra_Kup




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_potreben_li_e_dezen]'))
drop procedure [dbo].[sp_potreben_li_e_dezen]

Go

create  PROCEDURE sp_Potreben_Li_E_Dezen

    @Sifra_Art Varchar(20),
    @Kolku_So_Dezen int OUTPUT

AS

    select @Kolku_So_Dezen = count (*)
    from Sostav
    where Sifra_Art = @SifrA_art and VodeckiArtikal = 'D'

--print @Kolku_So_Dezen

    Return @@Error





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_potrosokponormativ]'))
drop procedure [dbo].[sp_potrosokponormativ]

Go

CREATE   PROCEDURE sp_PotrosokPoNormativ
    @Sifra_OE_Tros    smallint,
    @Sifra_OE_Pvo        smallint,
    @Sifra_Dok_Tros    varchar(200),
    @Sifra_Dok_Pvo    varchar(200),
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @BrojRabN_Od        int,
    @BrojRabN_Do        int
--    @Sifra_Art_Od        varchar(20) = Null,
--    @Sifra_Art_Do        varchar(20) = Null
 AS
    Declare @SSQL as varchar(4000)
    Create Table #Tabela1
    (
        Sifra_Art    varchar(20),
        Sifra_Sur    varchar(20),
        Potroseno    decimal(18,4),
        Normativ    decimal(18,4),
        Razlika        decimal(18,4),
        Cena        decimal(18,4),
        Vrednost    decimal(18,4)
    )
    Set @SSQL = ' Select S.Sifra_Art, S.Sifra_Art, sum(S.Kolic) Potroseno, 0 as Normativ
            From Stavr S
            Inner Join Dokr D On D.DokrId=S.DokrId
            Left Outer Join DokRabnal DRN On DRN.DokrID=D.DokrID
            Left Outer Join Rabnal R On DRN.RabNalID=R.RabNalID
            Inner Join Katart K On K.Sifra_art = S.Sifra_art
            Where S.VlIzl =  ''I'' '--S.Sifra_Dok = 991
    If @Sifra_OE_Tros Is Not Null
        Set @SSQL = @SSQL +  ' And S.Sifra_Oe = ' + cast(@Sifra_Oe_Tros as Varchar(10)) +  ' '
    If @Sifra_Dok_Tros Is Not Null
        Set @SSQL = @SSQL +  ' And S.Sifra_Dok In (' + @Sifra_Dok_Tros  + ') '
    If @Datum_Od is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35))  + ''' '
    If @Datum_Do is Not Null
        Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35))  + ''' '
    If @BrojRabN_Od is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RabN >= ' + cast(@BrojRabN_Od as Varchar(8))  + ' '
    If @BrojRabN_Do is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RabN <= ' + cast(@BrojRabN_Do as Varchar(8))  + ' '
--    If @Sifra_Art_Od is Not Null
--        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od  + ''' '
--    If @Sifra_Art_Do is Not Null
--        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do  + ''' '
    Set @SSQL=@SSQL + 'Group By S.Sifra_Art '
    Insert Into #Tabela1 (Sifra_Art, Sifra_Sur, Potroseno, Normativ)  Exec(@SSQL)
--select * from #tabela1
    CREATE TABLE #Tabela2
    (
    Sifra_Art    varchar(20),
    Kolicina        decimal(18,6)
    )
    Set @SSQL= 'Select S.Sifra_Art, Sum(S.Kolic)
            From Stavr S
            Inner Join Dokr D On D.DokrId=S.DokrId
            Left Outer Join DokRabnal DRN On DRN.DokrID=D.DokrID
            Left Outer Join Rabnal R On DRN.RabNalID=R.RabNalID
            Where S.VlIzl= ''V'' '
--Where S.Sifra_Dok = 46 and S.VlIzl= ''V'' '
    If @Sifra_Oe_Pvo is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe_Pvo as Varchar(10)) +  ' '
    If @Sifra_Dok_Pvo is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Dok In (' + @Sifra_Dok_Pvo + ') '
    If @Datum_Od is Not Null
        Set @SSQL=@SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) +  ''' '
    If @Datum_Do is Not Null
        Set @SSQL=@SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) +  ''' '
    If @BrojRabN_Od is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RabN >= ' + cast(@BrojRabN_Od as Varchar(8))  + ' '
    If @BrojRabN_Do is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_RabN <= ' + cast(@BrojRabN_Do as Varchar(8))  + ' '
--    If @Sifra_Art_Od is Not Null
--        Set @SSQL = @SSQL + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od  + ''' '
--    If @Sifra_Art_Do is Not Null
--        Set @SSQL = @SSQL + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do  + ''' '
    Set @SSQL=@SSQL + ' Group by S.Sifra_Art '
    INSERT INTO #Tabela2 Exec(@SSQL)
--select * from #tabela2
    Set @SSQL= ' SELECT  T.Sifra_Art, S.Sifra_Sur, 0 as Potroseno, Sum(T.Kolicina * S.Ima_Kolic/S.Za_Kolku) Normativ
                FROM #Tabela2 T
                LEFT OUTER JOIN Sostav S On T.Sifra_Art = S.Sifra_Art
                GROUP BY T.Sifra_Art, S.Sifra_Sur '
    Insert Into #Tabela1 (Sifra_Art, Sifra_Sur, Potroseno, Normativ) Exec(@SSQL)
--select * from #Tabela1
    Create Table #NabCeni
    (
     Sifra_Sur    varchar(20),
     PoslNabCena    decimal(18,4)
    )
    Insert Into #NabCeni (Sifra_Sur) Select Distinct Sifra_Sur From  #Tabela1
    Update #NabCeni Set PoslNabCena = dbo.fn_CenaDatum(@Sifra_OE_Tros, Sifra_Sur, (Case When @Datum_Do Is Not Null Then @Datum_Do Else GetDate() End), 'N')
    Select T.Sifra_Sur, K.Imeart, K.EdMera, Sum(Potroseno) Potroseno, Sum(Normativ) Normativ, Sum(T.Potroseno - T.Normativ) Razlika, N.PoslNabCena, K.Sifra_Podg, P.Ime_Podg
    From #Tabela1 T
    Inner Join Katart K On K.Sifra_art = T.Sifra_Sur
    Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
    Left Outer Join #NabCeni N On N.Sifra_Sur = T.Sifra_Sur
    Group By T.Sifra_Sur, K.ImeArt, K.EdMera, N.PoslNabCena, K.Sifra_Podg, P.Ime_Podg
    Order by T.Sifra_Sur




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_potrossurovini]'))
drop procedure [dbo].[sp_potrossurovini]

Go


CREATE  PROCEDURE sp_PotrosSurovini
    @Sifra_Oe_Tros        smallint,
    @Sifra_Dok_Tros        smallint,
    @Sifra_Oe_Pvo        smallint,
    @Sifra_Dok_Pvo        smallint,
    @Datum_Od        smalldatetime,
    @Datum_Do        smalldatetime,
    @Broj_DokOd        int,
    @Broj_DokDo        int,
    @PvoTros        char(1),        -- P - Proizvodstvo,         T - Trosok,             S - Zaedno(Pvo i Trosok)
    @KojIzv            char(1) = Null, -- E - od EvProizvod    Else - Od Stavr
        @Broj_Proekt int     = null

 AS

    CREATE TABLE #Tabela1
    (
    RabNalID    int,
    Sifra_OeRab    smallint,
    Sifra_Dok    smallint,
    Broj_RabN    int,
    Broj_Dok    int,
    Datum_Dok    smalldatetime,
    VlIzl        char(1),
    Sifra_Art    varchar(20),
    Kolicina        decimal(18,6),
    DokCena    decimal(18,6),
    Vrednost    decimal(18,6),
    KontrSer    varchar(25),
    Tezina_Dara    decimal(18,0),
    Tezina_Neto    decimal(18,0),
    Tezina_Bruto    decimal(18,0),
    Sifra_OeRab_Tocen    int
    )

    DECLARE @SSQL as varchar(8000)
    If @KojIzv = 'E'
    Begin
    --------------------------------------------------------------------------------------------------------   T  R  O  S  O  K   -----------------------------------------------------------------------------------------------------
        If @PvoTros <> 'P' Or @PvoTros Is Null
        Begin
            Set @SSQL= 'Select RN.RabNalID, RN.Sifra_OeRab, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                        E.Sifra_Art, Sum(E.Kolic), Null as DokCena, Null as Vrednost, E.KontrSer, E.Tezina_Dara, E.Tezina_Neto, E.Tezina_Bruto,
                        RN.SIfra_OeRab
                    From Dokr D
                    Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
                    Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
                    Left Outer Join EvProizvod E On E.DokrID=DRN.DokrID '
--                    Left Outer Join StaRabNal SRN On SRN.RabNalID = RN.RabNalID
            Set @SSQL = @SSQL + ' Where D.VlIzl = ''I'' '
            If @Sifra_Oe_Tros is Not Null
                Set @SSQL=@SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe_Tros as Varchar(10)) +  ' '
            If @Sifra_Dok_Tros is Not Null
                Set @SSQL=@SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok_Tros as Varchar(10)) +  ' '
            If @Datum_Od is Not Null
                Set @SSQL=@SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) +  ''' '
            If @Datum_Do is Not Null
                Set @SSQL=@SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) +  ''' '
            If @Broj_DokOd is Not Null
                Set @SSQL=@SSQL + ' And D.Broj_Dok >= ' + cast(@Broj_DokOd as Varchar(10)) +  ' '
            If @Broj_DokDo is Not Null
                Set @SSQL=@SSQL + ' And D.Broj_Dok <= ' + cast(@Broj_DokDo as Varchar(10)) +  ' '
            If @Broj_Proekt is Not Null
                Set @SSQL=@SSQL + ' And RN.Broj_Proekt = ' + cast(@Broj_Proekt as Varchar(6)) +  ' '
            Set @SSQL=@SSQL + ' Group by RN.RabNalID, RN.Sifra_OeRab, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                        E.Sifra_Art, E.KontrSer, E.Tezina_Dara, E.Tezina_Neto, E.Tezina_Bruto '
            INSERT INTO #Tabela1 Exec(@SSQL)
        End
        --    Select * from #Tabela1
        ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        --------------------------------------------------------------------------------   P  R  O  I  Z  V  O  D  S  T  V  O  -------------------------------------------------------------------------------------
        If @PvoTros <> 'T' Or @PvoTros Is Null
        Begin
            Set @SSQL= 'Select RN.RabNalID, RN.Sifra_OeRab, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                        E.Sifra_Art, Sum(E.Kolic), Null as DokCena, Null as Vrednost, E.KontrSer, E.Tezina_Dara, E.Tezina_Neto, E.Tezina_Bruto,
                        RN.SIfra_OeRab
                    From Dokr D
                    Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
                    Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
                    Left Outer Join EvProizvod E On E.DokrID=DRN.DokrID '
--                    Left Outer Join StaRabNal SRN On SRN.RabNalID = RN.RabNalID
            Set @SSQL = @SSQL + ' Where D.VlIzl = ''V'' '
            If @Sifra_Oe_Pvo is Not Null
                Set @SSQL=@SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe_Pvo as Varchar(10)) +  ' '
            If @Sifra_Dok_Pvo is Not Null
                Set @SSQL=@SSQL + ' And D.Sifra_Dok = ' + cast(@Sifra_Dok_Pvo as Varchar(10)) +  ' '
            If @Datum_Od is Not Null
                Set @SSQL=@SSQL + ' And D.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) +  ''' '
            If @Datum_Do is Not Null
                Set @SSQL=@SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) +  ''' '
            If @Broj_DokOd is Not Null
                Set @SSQL=@SSQL + ' And D.Broj_Dok >= ' + cast(@Broj_DokOd as Varchar(10)) +  ' '
            If @Broj_DokDo is Not Null
                Set @SSQL=@SSQL + ' And D.Broj_Dok <= ' + cast(@Broj_DokDo as Varchar(10)) +  ' '
            If @Broj_Proekt is Not Null
                Set @SSQL=@SSQL + ' And RN.Broj_Proekt = ' + cast(@Broj_Proekt as Varchar(6)) +  ' '
            Set @SSQL=@SSQL + ' Group by RN.RabNalID, RN.Sifra_OeRab, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                        E.Sifra_Art, E.KontrSer, E.Tezina_Dara, E.Tezina_Neto, E.Tezina_Bruto '
            INSERT INTO #Tabela1 Exec(@SSQL)
        End
    End -- If @KojIzv = 'E'
    Else
    Begin
        ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        --------------------------------------------------------------------------------------------------------   T  R  O  S  O  K   -----------------------------------------------------------------------------------------------------
        If @PvoTros <> 'P' Or @PvoTros Is Null
        Begin
            Set @SSQL= 'Select RN.RabNalID, RN.Sifra_OeRab, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                    S.Sifra_Art, Sum(S.Kolic), S.DokCena, Sum(S.Kolic*S.DokCena), Null, Null, Null, Null,
                    RN.SIfra_OeRab
                    From Stavr S
                    Inner Join Dokr D On S.DokrId=D.DokrID
                    Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
                    Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
                    Where D.VlIzl = ''I'' '
--                    Left Outer Join StaRabNal SRN On SRN.RabNalID = RN.RabNalID
            If @Sifra_Oe_Tros is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe_Tros as Varchar(10)) +  ' '
            If @Sifra_Dok_Tros is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_Dok = ' + cast(@Sifra_Dok_Tros as Varchar(10)) +  ' '
            If @Datum_Od is Not Null
                Set @SSQL=@SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) +  ''' '
            If @Datum_Do is Not Null
                Set @SSQL=@SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) +  ''' '
            If @Broj_DokOd is Not Null
                Set @SSQL=@SSQL + ' And S.Broj_Dok >= ' + cast(@Broj_DokOd as Varchar(10)) +  ' '
            If @Broj_DokDo is Not Null
                Set @SSQL=@SSQL + ' And S.Broj_Dok <= ' + cast(@Broj_DokDo as Varchar(10)) +  ' '
                If @Broj_Proekt is Not Null
                Set @SSQL=@SSQL + ' And RN.Broj_Proekt = ' + cast(@Broj_Proekt as Varchar(6)) +  ' '
            Set @SSQL=@SSQL + ' Group by RN.RabNalID, D.Sifra_Dok, RN.Sifra_OeRab, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl, S.Sifra_Art, S.DokCena '

            INSERT INTO #Tabela1 Exec(@SSQL)
        End
        --    Select * from #Tabela1
        ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        --------------------------------------------------------------------------------   P  R  O  I  Z  V  O  D  S  T  V  O  -------------------------------------------------------------------------------------
        If @PvoTros <> 'T' Or @PvoTros Is Null
        Begin
            Set @SSQL= 'Select RN.RabNalID, RN.Sifra_OePrim, D.Sifra_Dok, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl,
                    S.Sifra_Art, Sum(S.Kolic), S.DokCena, Sum(S.Kolic*S.DokCena), Null, Null, Null, Null,
                    RN.SIfra_OeRab
                    From Stavr S
                    Inner Join Dokr D On S.DokrId=D.DokrID
                    Left Outer Join DokRabNal DRN On DRN.DokrId=D.DokrId
                    Left Outer Join RabNal RN On RN.RabNalID = DRN.RabNalID
                    Where D.VlIzl = ''V'' '
--                    Left Outer Join StaRabNal SRN On SRN.RabNalID = RN.RabNalID
            If @Sifra_Oe_Pvo is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe_Pvo as Varchar(10)) +  ' '
            If @Sifra_Dok_Pvo is Not Null
                Set @SSQL=@SSQL + ' And S.Sifra_Dok = ' + cast(@Sifra_Dok_Pvo as Varchar(10)) +  ' '
            If @Datum_Od is Not Null
                Set @SSQL=@SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as Varchar(35)) +  ''' '
            If @Datum_Do is Not Null
                Set @SSQL=@SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as Varchar(35)) +  ''' '
            If @Broj_DokOd is Not Null
                Set @SSQL=@SSQL + ' And S.Broj_Dok >= ' + cast(@Broj_DokOd as Varchar(10)) +  ' '
            If @Broj_DokDo is Not Null
                Set @SSQL=@SSQL + ' And S.Broj_Dok <= ' + cast(@Broj_DokDo as Varchar(10)) +  ' '
                If @Broj_Proekt is Not Null
                Set @SSQL=@SSQL + ' And RN.Broj_Proekt = ' + cast(@Broj_Proekt as Varchar(6)) +  ' '
            Set @SSQL=@SSQL + ' Group by RN.RabNalID, D.Sifra_Dok, RN.Sifra_OePrim, RN.Broj_RabN, D.Broj_Dok, D.Datum_Dok, D.VlIzl, S.Sifra_Art,  S.DokCena,
                    RN.SIfra_OeRab '

            INSERT INTO #Tabela1 Exec(@SSQL)
        End
        ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    End
    Select T.RabNalID, T.Sifra_OeRab, T.Sifra_Dok, T.Broj_RabN, T.Broj_Dok, T.Datum_Dok, T.VlIzl, T.Sifra_Art, K.ImeArt, T.Kolicina, T.DokCena, T.Vrednost, K.Tezina, K.BTezina,
        T.KontrSer, T.Tezina_Dara, T.Tezina_Neto, T.Tezina_Bruto, K.ImaKomerc, K.Volumen,
        Kup.ImeKup, R.Broj_Proekt, Pr.ImeProekt, T.Sifra_OeRab_Tocen
    From #Tabela1 T
    Inner Join Katart K
        On K.Sifra_Art = T.Sifra_Art
    Left Outer Join RabNal R
        on T.Sifra_OeRab_Tocen = R.Sifra_OeRab and T.Broj_RabN = R.Broj_RabN
    Left Outer Join Proekt Pr
        on R.Broj_Proekt = Pr.Broj_Proekt
    Left Outer Join Komint Kup
        on Kup.Sifra_Kup = Pr.Sifra_Kup





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_predlodsomag]'))
drop procedure [dbo].[sp_predlodsomag]

Go


CREATE  PROCEDURE sp_PredlOdSoMag
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
CREATE TABLE #TmpStavr
(Sifra_Art    varchar(20),
Kolic        decimal(18,6))
INSERT INTO #TmpStavr SELECT Sifra_Art, SUM(Kolic) FROM Stavr
WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Broj_Dok=@Broj_Dok GROUP BY Sifra_Art
CREATE TABLE #TmpSoMag
(Sifra_Art    varchar(20),
ImeArt          varchar(40),
Sostojba    decimal(18,6),
LotBr        varchar(30),
Lokacija    varchar(50),
Sifra_KatPak smallint,
Sifra_KatStatus smallint,
RokRed        varchar(6),
Kolic        decimal(18,6),
Rbr            int IDENTITY (1, 1))
INSERT INTO #TmpSoMag (Sifra_Art, ImeArt, Sostojba, LotBr, Lokacija, Sifra_KatPak, Sifra_KatStatus, RokRed, Kolic)
  SELECT S.Sifra_Art, K.ImeArt, S.Sostojba, S.LotBr, S.Lokacija, S.Sifra_KatPak, S.Sifra_KatStatus, S.RokRed, 0
  FROM SoMag S inner join Katart K on S.Sifra_Art = K.Sifra_Art WHERE Sifra_Oe=@Sifra_OE AND S.Sifra_Art IN (SELECT S.Sifra_Art FROM #TmpStavr)
  AND S.Sostojba>0   --pretpostavuvame deka proc. ke treba samo za pozitivni fakuri
Declare @Sifra_Art    varchar(20)
Declare @Kolic        decimal(18,6)
Declare @Sostojba    decimal(18,6)
Declare @Rbr         int
Declare @PredlKol    decimal(18,6)
Declare TabM Cursor Fast_Forward For  Select Sifra_Art, Kolic From #TmpStavr
Open TabM
Fetch Next From TabM Into @Sifra_Art, @Kolic
While @@Fetch_Status = 0
Begin
--------
    Declare TabSM Cursor Fast_Forward For  Select Sostojba, Rbr From #TmpSoMag WHERE Sifra_Art=@Sifra_Art ORDER BY Lokacija, RokRed
    Open TabSM
    Fetch Next From TabSM Into @Sostojba, @Rbr
    While @@Fetch_Status = 0 AND @Kolic <> 0
    Begin
        IF @Sostojba >= @Kolic
            SET @PredlKol = @Kolic
        ELSE IF @Sostojba < @Kolic
            SET @PredlKol = @Sostojba
        UPDATE #TmpSoMag SET Kolic = @PredlKol WHERE Rbr=@Rbr
        SET @Kolic = @Kolic - @PredlKol
        Fetch Next From TabSM Into @Sostojba, @Rbr
    End
    Close TabSM
    Deallocate TabSM
--------
    Fetch Next From TabM Into  @Sifra_Art, @Kolic
End
Close TabM
Deallocate TabM
SELECT * FROM #TmpSoMag WHERE Kolic<>0 ORDER BY Sifra_Art, Lokacija, RokRed




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_predlogtreb]'))
drop procedure [dbo].[sp_predlogtreb]

Go




CREATE          PROCEDURE sp_PredlogTreb
    @Sifra_Oe_Dava    smallint,
    @Sifra_Oe_Prima    smallint,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do        varchar(20) = Null,
    @MinMaxOptPod    char(1) = 'M',        -- M Min,   X Max,  O Optimalna
    @MinMaxOptDo        char(1) = 'X'        -- M Min,   X Max,  O Optimalna
AS
    Set Nocount On
    Declare @SSQL varchar(8000)
    Create Table #Zal
    (
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     MMOZalOd    decimal(18,6),
     MMOZalDo    decimal(18,6),
     TekZalPrima    decimal(18,6),
     TekZalDava    decimal(18,6),
     Potrebno    decimal(18,6)
    )
-- Ja polnime tabelata so zalihata koja sto ja sporeduvame (min, max, opt)
    Set @SSQL='SELECT S.Sifra_OE, S.Sifra_Art, '
    If @MinMaxOptPod = 'M'
        SET @SSQL = @SSQL + ' S.MinZal, '
    Else If @MinMaxOptPod = 'X'
        SET @SSQL = @SSQL + ' S.MaxZal, '
    Else
        SET @SSQL = @SSQL + ' S.OptZal, '
    If @MinMaxOptDo = 'M'
        SET @SSQL = @SSQL + ' S.MinZal '
    Else If @MinMaxOptDo = 'X'
        SET @SSQL = @SSQL + ' S.MaxZal '
    Else
        SET @SSQL = @SSQL + ' S.OptZal '
    SET @SSQL = @SSQL + ' FROM OptZalPoOe S
                 WHERE 1=1 '
    If @Sifra_Oe_Prima Is Not Null
        Set @SSQL=@SSQL+'AND (S.Sifra_Oe=' + Cast(@Sifra_Oe_Prima As Varchar(6)) + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    Insert Into #Zal (Sifra_Oe, Sifra_Art, MMOZalOd, MMOZalDo) Exec (@SSQL)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Tekovna Zaliha za Prima OE
    Create Table #TekZalPrima
    (
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Zal        decimal(18,6)
    )
    Set @SSQL='SELECT S.Sifra_OE, S.Sifra_Art, (S.Vlez-S.Izlez)
            FROM Soart S
             WHERE 1=1 '
    If @Sifra_Oe_Prima Is Not Null
        Set @SSQL=@SSQL+'AND (S.Sifra_Oe=' + Cast(@Sifra_Oe_Prima As Varchar(6)) + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    Insert Into #TekZalPrima Exec(@SSQL)
    Update #Zal
    Set #Zal.TekZalPrima=#TekZalPrima.Zal
    From #TekZalPrima
    Where #Zal.Sifra_Oe=#TekZalPrima.Sifra_Oe And #Zal.Sifra_Art=#TekZalPrima.Sifra_Art
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Tekovna Zaliha za OE sto Dava
    Create Table #TekZalDava
    (
     Sifra_Oe    smallint,
     Sifra_Art    varchar(20),
     Zal        decimal(18,6)
    )
    Set @SSQL='SELECT S.Sifra_OE, S.Sifra_Art, (S.Vlez-S.Izlez)
            FROM Soart S
             WHERE 1=1 '
    If @Sifra_Oe_Dava Is Not Null
        Set @SSQL=@SSQL+'AND (S.Sifra_Oe=' + Cast(@Sifra_Oe_Dava As Varchar(6)) + ') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art >=''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL=@SSQL+'AND S.Sifra_Art <=''' + @Sifra_Art_Do + ''' '
    Insert Into #TekZalDava Exec(@SSQL)
    Update #Zal
    Set #Zal.TekZalDava=#TekZalDava.Zal
    From #TekZalDava
    Where #Zal.Sifra_Art=#TekZalDava.Sifra_Art
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Update #Zal Set TekZalPrima = 0 Where TekZalPrima Is Null
    Update #Zal Set TekZalDava = 0 Where TekZalDava Is Null
    Update #Zal Set Potrebno = (MMOZalDo-TekZalPrima) Where (TekZalPrima < MMOZalOd)
    Select Sifra_Art, (Case When (TekZalDava > Potrebno) Then Potrebno Else TekZalDava End) Predlog
    From #Zal
    Where Potrebno > 0 And TekZalDava > 0
    Order By Sifra_Art
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_predlozispecanfindok]'))
drop procedure [dbo].[sp_predlozispecanfindok]

Go


CREATE     PROCEDURE sp_PredloziSpecAnFinDok
    @Sifra_Dok varchar(200),
    @Datum_Dok_Od Datetime,
    @Datum_Dok_Do Datetime,
    @Broj_SpecFin  Int =NULL,
    @DevFraID    int=0 OUTPUT,
    @Sifra_Kup    char(6)='' OUTPUT,
    @KojaVal    char(3)='' OUTPUT,
    @Kurs        decimal(18,6)=0 OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLSel Varchar(4000)
    Set @SSQLSel = ' '
    Set @SSQL = ' '
    If @Broj_SpecFin Is NOT Null
        BEGIN
        SET @Sifra_Dok =Null
        SET @Datum_Dok_Od =Null
        SET @Datum_Dok_Do =Null
        SET @SSQL = @SSQL + 'AND A.AnId IN (SELECT AnID FROM SpecAnFin WHERE Broj_SpecFin=''' + Cast(@Broj_SpecFin As Varchar(35)) +''' ) '
        SELECT @DevFraID=DevFraID, @Sifra_Kup=Sifra_Kup, @KojaVal=KojaVal, @Kurs=Kurs FROM DevFra
        WHERE DevFraID IN (SELECT DevFraID FROM SpecAnFin WHERE Broj_SpecFin=@Broj_SpecFin)
        END
    ELSE
        SET @SSQL = @SSQL + 'AND A.AnId NOT IN (SELECT AnID FROM SpecAnFin) '
    If @Sifra_Dok Is NOT Null
        SET @SSQL = @SSQL + ' AND Sifra_Dok IN (' + Cast(@Sifra_Dok As Varchar(200)) + ') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND A.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
    If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND A.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    SET @SSQLSel = 'SELECT A.*, K.ImeKup, K.SMesto, KL.ImeVal FROM AnFinDok A
      LEFT OUTER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
      Left Outer Join KrsLista KL On KL.SImeVal = A.KojaVal
      WHERE 1=1  '
    --print (@SSQLSel+@SSQL)
    EXEC(@SSQLSel+@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preg_finnal]'))
drop procedure [dbo].[sp_preg_finnal]

Go


CREATE       PROCEDURE sp_Preg_FinNal
    @Sifra_Nal Smallint,
    @Broj_Nal Int,
    @Sifra_OE Smallint,
    @Datum_Nal Smalldatetime = Null,
    @Sifra_Za Char(1) = Null,
    @DaliDev char(1) OUTPUT
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT A.*, K.ImeKup, K.SMesto, S.Stapka1, S.Stapka2, TD.Dev, V.ImeVal
        FROM AnFinDok A
        INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
        Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
        Left Outer Join TipDok TD On TD.Sifra_Dok=A.Sifra_Dok
        Left Outer Join KrsLista V On V.SImeVal  = A.KojaVal
        WHERE A.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
    If @Broj_Nal Is Not Null
        Set @SSQL = @SSQL + ' AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Datum_Nal Is Not Null And @Broj_Nal Is Null
        Set @SSQL = @SSQL + ' AND A.Datum_Nal=''' + Cast(@Datum_Nal As Varchar(30)) + ' '''
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10))
    If @Sifra_Za = '1' Or @Sifra_Za = '2'
        Set @SSQL = @SSQL + ' And A.Sifra_Za = ''' + @Sifra_Za + ''' '
    EXEC(@SSQL)
------------------------------  Dodadeno 13.04.2004 za Parametarot @DaliDev ----------------------------------------------------------------------------------------------
    Create Table #SifriDok
    (Sifra_Dok Int)
--                  INNER JOIN Komint K ON A.Sifra_Kup=K.Sifra_Kup
--                  Left Outer Join DDVStapki S On A.Datum_Dok >= S.Datum_Od And A.Datum_Dok <= S.Datum_Do
    Set @SSQL = ' SELECT DISTINCT A.Sifra_Dok FROM AnFinDok A
                  WHERE Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + ' '
--                  AND Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Broj_Nal Is Not Null
        Set @SSQL = @SSQL + ' AND A.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Datum_Nal Is Not Null And @Broj_Nal Is Null
        Set @SSQL = @SSQL + ' AND A.Datum_Nal=''' + Cast(@Datum_Nal As Varchar(30)) + ' '''
    If @Sifra_OE Is Not Null
        Set @SSQL = @SSQL + ' AND Sifra_OE=' + Cast(@Sifra_OE As Varchar(10))
    If @Sifra_Za Is Not Null AND @Sifra_Za <> ' '
        Set @SSQL = @SSQL + ' And A.Sifra_Za = ''' + @Sifra_Za + ''' '
    Insert Into #SifriDok Exec (@SSQL)
    Select @DaliDev = TD.Dev  FROM TipDok TD Where TD.Dev='D' and TD.Sifra_Dok In (Select Distinct Sifra_Dok From #SifriDok)
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
/*
    If Exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Preg_FinNal]') and OBJECTPROPERTY(id, N'IsView') = 1)
        Set @SSQL = 'ALTER VIEW Preg_FinNal AS ' + @SSQL
    Else
        Set @SSQL = 'CREATE VIEW Preg_FinNal AS ' + @SSQL
*/
--   EXEC(@SSQL)
--   SELECT PFN.* FROM Preg_FinNal PFN




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregedcrrkodovi]'))
drop procedure [dbo].[sp_pregedcrrkodovi]

Go
CREATE procedure sp_PregedCrrKodovi
    @Sifra_Oe        smallint = Null,
    @Koi_Oe        varchar(10) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @Sifra_Art_Od        varchar(20) = Null,
    @Sifra_Art_Do        varchar(20) = Null,
    @Sifra_Podg        char(6) = Null
As
    Declare @SSQL as Varchar(8000)
    Declare @SSQLUsl as Varchar(8000)
-------------------------------------------
Set @SSQLUsl=''
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Datum_Dok_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Dok >= ''' + @Datum_Dok_Od + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Dok <= ''' + @Datum_Dok_Do + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And KA.Sifra_Podg = ''' + @Sifra_Podg + ''' '
-------------------------------------------------------------------------------------------
        Set @SSQL=' Select D.Sifra_Kup, K.ImeKup,D.Sifra_Obj, KO.ImeObj, S.Sifra_Crr, CR.ImeCrr
                   From Stavr S
                   Inner Join Dokr D On D.DokrID=S.DokrID
                   Left Outer Join Komint K On K.Sifra_Kup=D.Sifra_Kup
                   Inner Join KatArt KA on S.Sifra_Art=KA.Sifra_Art
                   Left Outer Join CrrKodovi CR on S.Sifra_Crr=CR.Sifra_Crr
                   Where S.Sifra_Crr is not null '
        Set @SSQL= @SSQL+@SSQLUsl
print(@ssql)
exec(@ssql)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_abarpak]'))
drop procedure [dbo].[sp_pregl_abarpak]

Go




CREATE      PROCEDURE sp_Pregl_ABarPak
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @APod1    smallint = Null,
    @APod2    smallint = Null,
    @APod3    smallint = Null,
    @APod4    smallint = Null,
    @APod5    smallint = Null,
        @APod6    smallint = Null,
        @APod7    smallint = Null,
    @Lokacija    varchar(10) = Null,
    @Podred    char(1) = Null,      -- S-Sifra,   A-Ime
    @Sifra_Div    smallint = Null
AS

    Declare @SSQL as Varchar(8000)
    Set @SSQL = ' Select A.Sifra_art, A.Nom, A.ZaKolic, A.CenaPak, A.OpisPak, A.Sifra_KatPak,
                      K.ImeArt, K.Sifra_Podg, K.Drugo1, K.Drugo2, K.Drugo3, K.Drugo4, K.Drugo5, K.Drugo6, K.Drugo7,
                      K.Sifra_Drg, K.Lokacija, K.Sifra_Div,
                      P.Ime_Podg, G.Ime_Gr, TKP.ImeKatPak
                      from ABarPak A
              Left Outer Join TipKatPakuv TKP
                on A.Sifra_KatPak = TKP.Sifra_KatPak
                      Inner Join KatArt K On A.Sifra_Art=K.Sifra_Art
                      Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
              Inner Join Grupi G On G.Sifra_Gr=P.Sifra_Gr '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And K.Lokacija = ''' + @Lokacija + ''' '
    If @APod5 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo5 = ''' + Cast(@APod5 as varchar(6)) + ''' '
    If @APod4 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo4 = ''' + Cast(@APod4 as varchar(6)) + ''' '
    If @APod3 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo3 = ''' + Cast(@APod3 as varchar(6)) + ''' '
    If @APod2 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo2 = ''' + Cast(@APod2 as varchar(6)) + ''' '
    If @APod1 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo1 = ''' + Cast(@APod1 as varchar(6)) + ''' '
        If @APod6 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo6 = ''' + Cast(@APod6 as varchar(6)) + ''' '
        If @APod7 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo7 = ''' + Cast(@APod7 as varchar(6)) + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By K.Sifra_art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Ime_Art '
    Exec (@SSQL)










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_akciipromo]'))
drop procedure [dbo].[sp_pregl_akciipromo]

Go
CREATE    PROCEDURE sp_Pregl_AkciiPromo
    @Ozn_Akcija    char(10) = Null,
    @Sifra_Art_Paket    varchar(20) = Null
AS
    Declare @SSQL as Varchar(8000)
    Set @SSQL = ' SELECT S.*, A.Aktivna, A.Opis_Akcija, A.Datum_poc, A.Datum_Kr, K1.ImeArt ImeArtOsn, K2.ImeArt ImeArtPaket
            FROM AkciiPromoSta S
            INNER JOIN AkciiPromo A ON A.Ozn_Akcija=S.Ozn_Akcija
            LEFT OUTER JOIN KatArt K1 ON S.Sifra_Art_Osnoven=K1.Sifra_Art
            LEFT OUTER JOIN KatArt K2 ON S.Sifra_Art_Paket=K2.Sifra_Art
            Where 1=1 '
    If @Ozn_Akcija Is Not Null
        Set @SSQL = @SSQL + ' And A.Ozn_Akcija = ''' + @Ozn_Akcija + ''' '
    If @Sifra_Art_Paket Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Art_Paket = ''' + @Sifra_Art_Paket + ''' '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_ambalaza_kupdob]'))
drop procedure [dbo].[sp_pregl_ambalaza_kupdob]

Go
CREATE      PROCEDURE sp_Pregl_Ambalaza_KupDob
    @KupDob    char(1) = 'K',
    @Sifra_Kup    char(6) = Null,
    @Sifra_Amb    char(6) = Null,     -- Mora da se vnese ili Sifra_Amb ili Sifra_GAmb
--    @Sifra_GAmb    char(6) = Null,
    @Datum    smalldatetime = Null,
    @Amb_GAmb    char(1) = 'A',      --  A - Po Ambalaza    G - Po Grupna Ambalaza
    @Sifra_Oe    smallint = Null,
    @Koi_Oe    varchar(10) = Null,
    @TipKup    varchar(500) = Null
AS
    Set @Amb_GAmb = Null
    Declare @SSQL as varchar(8000)
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
-------------------------------------------------------------------------------  TEKOVEN PROMET-----------------------------------------------------------------------------------------
    Create Table #Tab
    (
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Sifra_Amb    char(6),
     Sifra_GAmb    char(6),
     Zadolzenie    decimal(18,6),
     Razdolzenie    decimal(18,6),
     So_GAmb    char(1)
    )
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
    Set @SSQL = 'Select D.Sifra_Kup, D.Sifra_Obj, K.Sifra_Amb, Null,
            (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End),
            Abs((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)),
            ''D''
            From Dokr D
            Inner Join Stavr S On S.DokrId=D.DokrID
            Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
            Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I'' and D.Sifra_Za = ''1'''
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And KUP.TipKup In (' + @TipKup + ') '
    Insert Into #Tab Exec(@SSQL)
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
    Set @SSQL = 'Select D.Sifra_Kup, D.Sifra_Obj, S.Sifra_Amb, Null,
            (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End),
            Abs((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End)),
            S.So_GAmb
            From Dokr D
            Inner Join StaAmbal S On S.DokrId=D.DokrID
            Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup=D.Sifra_Kup '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @KupDob = 'K'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''I''  and D.Sifra_Za = ''1'''
    Else If @KupDob = 'D'
        Set @SSQL = @SSQL + ' And D.VlIzl = ''V'' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_OE Is Not NULL
             Set @SSQL = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And KUP.TipKup In (' + @TipKup + ') '
    If @Amb_GAmb = 'G' -- Grupna Ambalaza (Gajbi)
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''G'') '
    Else  If @Amb_GAmb = 'A' -- Ambalaza
        Set @SSQL = @SSQL + ' And (S.So_GAmb = ''D'' or S.So_GAmb = ''N'') '
    Insert Into #Tab Exec(@SSQL)
--select * from #tab
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = ' Select 1 as Red, T.Sifra_Kup, Kup.ImeKup, T.Sifra_Obj, KO.ImeObj, T.Sifra_Amb, A.ImeAmb, A.VoGAmb, Null as Sifra_GAmb, Null as ImeGAmb,
            Round(Sum(Case When T.So_GAmb In (''D'', ''G'') Then (Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then T.Zadolzenie Else (T.Zadolzenie/A.VoGAmb) End) Else 0 End), 4) ZadolzGAmb,
            Round(Sum(Case When T.So_GAmb In (''D'', ''G'') Then (Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then T.Razdolzenie Else (T.Razdolzenie/A.VoGAmb) End) Else 0 End), 4) RazdolzGAmb,
            Round(Sum(Case When T.So_GAmb In (''D'', ''N'') Then (Zadolzenie) Else 0 End), 4) as ZadolzAmb,
            Round(Sum(Case When T.So_GAmb In (''D'', ''N'') Then (Razdolzenie) Else 0 End), 4) as RazdolzAmb
        From #Tab T
        Left Outer Join Komint Kup On Kup.Sifra_Kup = T.Sifra_Kup
        Left Outer Join KObjekti KO On KO.Sifra_Kup = T.Sifra_Kup And KO.Sifra_Obj=T.Sifra_Obj
        Left Outer Join KatAmb A On A.Sifra_Amb=T.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        Where T.Sifra_Amb IS Not Null And A.Povratna = ''D''
        Group By T.Sifra_Kup, T.Sifra_Obj, KO.ImeObj, Kup.ImeKup, T.Sifra_Amb, A.ImeAmb, A.VoGAmb '
    Exec (@SSQL)
/*
    If @Amb_GAmb = 'G'
        Set @SSQL = @SSQL + ' Round(Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then T.Zadolzenie Else (T.Zadolzenie/A.VoGAmb) End), 4) Zadolzenie,
                      Round(Sum(Case When (A.VoGAmb Is Null Or A.VoGAmb = 0) Then T.Razdolzenie Else (T.Razdolzenie/A.VoGAmb) End), 4) Razdolzenie '
    Else --If @Amb_GAmb = 'A'
        Set @SSQL = @SSQL + ' Sum(Zadolzenie) as Zadolzenie, Sum(Razdolzenie) as Razdolzenie '
*/



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_ambalaza_oe]'))
drop procedure [dbo].[sp_pregl_ambalaza_oe]

Go

CREATE     PROCEDURE sp_Pregl_Ambalaza_OE
    @Sifra_Oe        char(6),
    @Koi_Oe        Varchar(10) = Null,
    @Sifra_Amb        char(6),
--    @Sifra_GAmb        char(6),
    @Datum        smalldatetime,
    @Amb_GAmb        char(1) = 'A',      --  A - Po Ambalaza    G - i so Grupna Ambalaza(25.12.10)
    @VkluciAmbOdDok    char(1) = 'D',
    @KojIzv        char(1) = 'C'    -- D - Izv vo odnos na dobavuvac,    K - Izv vo odnos na kupuvac,     C - Celosen
AS
    Declare @SSQL as varchar(8000)
-------------------------------------------------------------------------------  TEKOVEN PROMET-----------------------------------------------------------------------------------------
    Create Table #Tab
    (
     Sifra_Oe    smallint,
     Sifra_Amb    char(6),
     Sifra_GAmb    char(6),
     Zadolzenie    decimal(18,6),
     Razdolzenie    decimal(18,6)
    )
----------------------------------------------------------------------  Od Stavr prodadeni proizvodi so ambalaza -------------------------------------------------------------------
    -- MOMENTALNO NE GLEDAME OD STAVR (SAMO OD STAAMBAL)
    -- Ovoj del od procedurata ne se koristi
    If @VkluciAmbOdDok = 'D'
    Begin
        If @KojIzv in ('C', 'D')
        Begin
            Set @SSQL = 'Select D.Sifra_Oe, K.Sifra_Amb, ''D'',
                    (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End),
                    Abs((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End))
                    From Dokr D
                    Inner Join Stavr S On S.DokrId=D.DokrID
                    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                    Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                    Where D.VlIzl = ''V'' And A.Povratna =''D'' '
            If @Sifra_Amb Is Not Null
                Set @SSQL = @SSQL + ' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Datum Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
            If @Koi_OE Is Not NULL
                     Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Tab Exec(@SSQL)
        End
        If @KojIzv in ('C', 'K')
        Begin
            Set @SSQL = 'Select D.Sifra_Oe, K.Sifra_Amb, ''D'',
                    Abs((Case WHEN S.Kolic < 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)),
                    (Case WHEN S.Kolic > 0 Then (Case When (A.SodrziArt <> 0 and A.SodrziArt Is Not Null) Then (S.Kolic/A.SodrziArt) Else S.Kolic End) Else 0 End)
                    From Dokr D
                    Inner Join Stavr S On S.DokrId=D.DokrID
                    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
                    Inner Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
                    Where D.VlIzl = ''I'' And A.Povratna =''D'' '
            If @Sifra_Amb Is Not Null
                Set @SSQL = @SSQL + ' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
            If @Datum Is Not Null
                Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
            If @Sifra_Oe Is Not Null
                Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
            If @Koi_OE Is Not NULL
                     Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
            Insert Into #Tab Exec(@SSQL)
        End
    End
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------ Od StaAmbal dadena ambalaza ---------------------------------------------------------------------------
    If @KojIzv in ('C', 'D')
    Begin
        Set @SSQL = 'Select D.Sifra_Oe, S.Sifra_Amb, So_GAmb,
                (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End),
                Abs((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End))
                From Dokr D
                Inner Join StaAmbal S On S.DokrId=D.DokrID
                Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                Where D.VlIzl = ''V'' And A.Povratna =''D'' '
        If @Sifra_Amb Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
        If @Datum Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
        If @Koi_OE Is Not NULL
                 Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
        Insert Into #Tab Exec(@SSQL)
    End

    If @KojIzv in ('C', 'K')
    Begin
        Set @SSQL = 'Select D.Sifra_Oe, S.Sifra_Amb, So_GAmb,
                Abs((Case WHEN S.Kolic < 0 Then S.Kolic Else 0 End)),
                (Case WHEN S.Kolic > 0 Then S.Kolic Else 0 End)
                From Dokr D
                Inner Join StaAmbal S On S.DokrId=D.DokrID
                Inner Join KatAmb A On A.Sifra_Amb=S.Sifra_Amb
                Where D.VlIzl = ''I'' And A.Povratna =''D'' '
        If @Sifra_Amb Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Amb = ''' + @Sifra_Amb + ''' '
        If @Datum Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + cast(@Datum as varchar(30)) + ''' '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as varchar(6)) + ''' '
        If @Koi_OE Is Not NULL
                 Set @SSQL  = @SSQL + ' And D.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @Koi_Oe  +  ''') '
        Insert Into #Tab Exec(@SSQL)
    End
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @Amb_GAmb = 'A'
    Begin
        Select T.Sifra_Oe, O.ImeOrg, T.Sifra_Amb, A.ImeAmb,  A.VoGAmb, Null as Sifra_GAmb, Null as ImeGAmb, Sum(Zadolzenie) as Zadolzenie, Sum(Razdolzenie) as Razdolzenie
        From #Tab T
        Left Outer Join Orged O On O.Sifra_Oe = T.Sifra_Oe
        Left Outer Join KatAmb A On A.Sifra_Amb=T.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        Where T.Sifra_Amb IS Not Null
        Group By T.Sifra_Oe, O.ImeOrg, T.Sifra_Amb, A.ImeAmb, A.VoGAmb
    End
    Else If @Amb_GAmb = 'G'            --treba za avt.povratnica
        Select T.Sifra_Oe, O.ImeOrg, T.Sifra_Amb, A.ImeAmb,  A.VoGAmb, T.Sifra_GAmb, Null as ImeGAmb, Sum(Zadolzenie) as Zadolzenie, Sum(Razdolzenie) as Razdolzenie
        From #Tab T
        Left Outer Join Orged O On O.Sifra_Oe = T.Sifra_Oe
        Left Outer Join KatAmb A On A.Sifra_Amb=T.Sifra_Amb
        Left Outer Join KatAmb G On G.Sifra_Amb=A.Sifra_GAmb
        Where T.Sifra_Amb IS Not Null
        Group By T.Sifra_Oe, O.ImeOrg, T.Sifra_Amb, A.ImeAmb, A.VoGAmb, T.Sifra_GAmb




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_anfindok]'))
drop procedure [dbo].[sp_pregl_anfindok]

Go

CREATE        PROCEDURE sp_Pregl_AnFinDok
    @Sifra_Oe    int=NULL,
    @Sifra_Dok    int,
    @Broj_Dok    int,
        @P_I        char (1)
AS
    Select A.Sifra_oe, A.Sifra_Dok, a.Broj_dok, A.Datum_Dok as Dod_Datum, A.Kto as Kto_Anal, A.Dolzi, A.Pobaruva, A.Broj_Nal, A.Sifra_Nal,
        A.Opis, A.BrojDok as Opis2, A.Sifra_Kup, KUP.ImeKup, KUP.Smesto, A.KojaVal,V.ImeVal, A.Kurs, A.Dev_Dolzi, A.Dev_Pobaruva as Dev_Pobar, A.Datum_Vnes,
        ' ' as Lice, null as KasaGrupa, @P_I as P_I, '' as ImeNac, '' as TipBlag, '' as Kto_Osnovica
    From AnFindok A
    Left Outer Join Komint KUP On A.Sifra_Kup=KUP.Sifra_Kup
    Left Outer Join KrsLista V ON A.KojaVal=V.SImeVal
    Where A.Sifra_Oe=@Sifra_oe and A.Sifra_Dok=@Sifra_Dok and A.Broj_Dok=@Broj_Dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_artikli]'))
drop procedure [dbo].[sp_pregl_artikli]

Go


CREATE    PROCEDURE sp_Pregl_Artikli
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Tar    char(3) = Null,
    @APod1    smallint = Null,
    @APod2    smallint = Null,
    @APod3    smallint = Null,
    @APod4    smallint = Null,
    @APod5    smallint = Null,
    @Sifra_Amb    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Aktiven    char(1) = Null,
    @DatDodOd    smalldatetime = Null,
    @DatDodDo    smalldatetime = Null,
    @DatIzmOd    smalldatetime = Null,
    @DatIzmDo    smalldatetime = Null,
    @PocnuvaSo    char(1) = Null,
    @Podred    char(1) = Null,      -- S-Sifra,   A-Ime
    @Sifra_Div    smallint = Null,
    @Sifra_KHier    varchar(20) = Null,
    @PrikHierarhii    char(1) = 'N',
    @SlikaPrik    char(1) = 'N',
        @VoPDA          char(1) = null
AS

    Declare @SSQL as Varchar(8000)
    Set @SSQL = ' Select K.Sifra_Art, K.ImeArt, K.ImeArt2, K.EdMera, K.Alt_Ime, K.Alt_Ime2, K.Alt_EdMera,
            K.Sifra_Podg, P.Ime_Podg,
            P.Sifra_Gr, G.Ime_Gr,
            K.Sifra_Tar, T.ImeTar,
            K.Kto, D.ImeKup,
            K.Cena, K.Sostojba, K.CarBroj, K.SMatUsl,
            K.Sifra_Drg, B.Ime as ImeDrg, K.KolkuDrg,
            K.Drugo1, K1.Ime_1,
            K.Drugo2, K2.Ime_2,
            K.Drugo3, K3.Ime_3,
            K.Drugo4, K4.Ime_4,
            K.Drugo5, K5.Ime_5,
            K.DaliSurov, K.Uces, K.Datum_Cena, K.Fakturna, K.Nabavna, K.DogCena, K.MalCena, K.GotCena, K.SpeCena, K.PCena4, K.PCena5, K.PCena6,
            K.Proc_Marza, K.Nom, K.SMin_Sost, K.SMax_Sost, K.SOpt_Sost, K.Lokacija, K.Popust, K.ImaBroevi, K.ImaKomerc, K.Tezina, K.PopusMar, K.DodadenNa,
            K.DodadenOd, K.IzmenetNa, K.IzmenetOd, K.Alt_Sifra, K.Iskluci, K.SpecRabat, K.SpecRabatOd, K.SpecRabatDo, K.BTezina, K.Volumen,
            K.Rabat_Dali, K.SodrziEd, K.Propagiraj, K.ProcAlk, K.RokKontrDali, K.Aktiven,
            K.Sifra_Amb, A.ImeAmb , '''' as Prikazi, T.ProcOsn, K.ImaPaleta, '

    if @SlikaPrik = 'D'
        Set @SSQL = @SSQL + ' Slik.SlikaArt, '

    If @PrikHierarhii = 'D'
        Set @SSQL = @SSQL + ' H1.Sifra_KHier, H1.Ime_KHier, H1.Alt_ImeKHier,
                    H2.Sifra_KHier Sifra_KHier2, H2.Ime_KHier Ime_KHier2, H2.Alt_ImeKHier Alt_ImeKHier2,
                    H3.Sifra_KHier Sifra_KHier3, H3.Ime_KHier Ime_KHier3, H3.Alt_ImeKHier Alt_ImeKHier3,
                    H4.Sifra_KHier Sifra_KHier4, H4.Ime_KHier Ime_KHier4, H4.Alt_ImeKHier Alt_ImeKHier4 '
    Else
        Set @SSQL = @SSQL + ' Null Sifra_KHier, Null Ime_KHier, Null Alt_ImeKHier,
                    Null Sifra_KHier2, Null Ime_KHier2, Null Alt_ImeKHier2,
                    Null Sifra_KHier3, Null Ime_KHier3, Null Alt_ImeKHier3,
                    Null Sifra_KHier4, Null Ime_KHier4, Null Alt_ImeKHier4 '
    Set @SSQL = @SSQL + ' From Katart K
            Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
            Inner Join Grupi G On G.Sifra_Gr=P.Sifra_Gr
            Left Outer Join Tarifi T On T.Sifra_Tar=K.Sifra_Tar
            Left Outer Join Drugo1 K1 On K1.Sifra_1=K.Drugo1
            Left Outer Join Drugo2 K2 On K2.Sifra_2=K.Drugo2
            Left Outer Join Drugo3 K3 On K3.Sifra_3=K.Drugo3
            Left Outer Join Drugo4 K4 On K4.Sifra_4=K.Drugo4
            Left Outer Join Drugo5 K5 On K5.Sifra_5=K.Drugo5
            Left Outer Join KatAmb A On A.Sifra_Amb=K.Sifra_Amb
            Left Outer Join Komint D On D.Sifra_Kup=K.Kto
            Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg '

    if @SlikaPrik = 'D'
        Set @SSQL = @SSQL + ' left outer Join KatSliki Slik on K.SifrA_Art=Slik.Sifra_Art '

    If @PrikHierarhii = 'D'
        Set @SSQL = @SSQL + ' Left Outer Join KatHier H1 On H1.Sifra_KHier=K.Sifra_KHier
            Left Outer Join KatHier H2 On H2.Sifra_KHier=H1.Sifra_KHier_Hier
            Left Outer Join KatHier H3 On H3.Sifra_KHier=H2.Sifra_KHier_Hier
            Left Outer Join KatHier H4 On H4.Sifra_KHier=H3.Sifra_KHier_Hier '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
/*    If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven = ''D'' Or K.Aktiven Is Null) '
    Else If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
*/    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Amb Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Amb = ''' + @Sifra_Amb + ''' '
    If @APod5 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo5 = ''' + Cast(@APod5 as varchar(6)) + ''' '
    If @APod4 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo4 = ''' + Cast(@APod4 as varchar(6)) + ''' '
    If @APod3 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo3 = ''' + Cast(@APod3 as varchar(6)) + ''' '
    If @APod2 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo2 = ''' + Cast(@APod2 as varchar(6)) + ''' '
    If @APod1 Is Not Null
        Set @SSQL = @SSQL + ' And K.Drugo1 = ''' + Cast(@APod1 as varchar(6)) + ''' '
    If @DatDodOd Is Not Null
        Set @SSQL = @SSQL + ' And K.DodadenNa >= ''' + Cast(@DatDodOd as varchar(30)) + ''' '
    If @DatDodDo Is Not Null
        Set @SSQL = @SSQL + ' And K.DodadenNa <= ''' + Cast(@DatDodDo as varchar(30)) + ''' '
    If @DatIzmOd Is Not Null
        Set @SSQL = @SSQL + ' And K.IzmenetNa >= ''' + Cast(@DatIzmOd as varchar(30)) + ''' '
    If @DatIzmDo Is Not Null
        Set @SSQL = @SSQL + ' And K.IzmenetNa <= ''' + Cast(@DatIzmDo as varchar(30)) + ''' '
    If @Sifra_Tar Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Tar = ''' + @Sifra_Tar + ''' '
    If @Sifra_Podg Is Not Null
        If @PocnuvaSo = 'D'
            Set @SSQL = @SSQL + 'And K.Sifra_Podg Like ''' + Rtrim(@Sifra_Podg) + '%'' '
        Else
            Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Div=''' + Cast(@Sifra_Div As Varchar(6)) + ''' '
    If @Sifra_KHier Is Not Null
        Set @SSQL = @SSQL + ' And (H1.Sifra_KHier = ' + @Sifra_KHier + ' Or H2.Sifra_KHier = ' + @Sifra_KHier + '
                      Or H3.Sifra_KHier = ' + @Sifra_KHier + ' Or H4.Sifra_KHier = ' + @Sifra_KHier + ') '
    If @VoPDA Is Not Null and @VoPDA <> ''
        Set @SSQL = @SSQL + ' And K.VoPDA = ''' + @VoPDA + ''' '
        If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By K.Sifra_art '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.Ime_Art '
    Exec (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_cengrorg]'))
drop procedure [dbo].[sp_pregl_cengrorg]

Go

CREATE               PROCEDURE sp_Pregl_CenGrOrg
    @Sif_GrOrg    varchar(8),
    @Tip_Podr    char(1) = Null,
    @Sifra_Od    varchar(12) = Null,
    @Sifra_Do    varchar(12) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Tar    char(3) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @Marza_Od     Decimal(6,2) = Null,
    @Marza_Do    Decimal(6,2) = Null,
    @DajPoslDob    char(1) = 'N',        -- Daj posleden Dobavuvac
        @MarzaN_Od     Decimal(6,2) = Null,
    @MarzaN_Do    Decimal(6,2) = Null
AS
    Set Nocount Off
    Declare @SSQL varchar(4000)
    Declare @SSQLUsl varchar(4000)
    Set @SSQLUsl = ' '
    ------------------------------------------------------ POSLEDEN DOBAVUVAC ------------------------------------------------------------------------
    If @DajPoslDob='D'
    Begin
        CREATE TABLE #TmpDok
        (
            Sifra_Art    char(6),
            Sifra_Oe     smallint,
            Sifra_Dok    smallint,
            Broj_Dok    int,
            Identif_br    varchar(25),
            Sifra_Kup    char(6),
            Datum        smalldatetime,
            Kolicina        decimal(18,6)
        )
        Set @SSQL = ' INSERT INTO #TmpDok (Sifra_Art)
                SELECT DISTINCT Sifra_Art
                FROM Stavr WHERE VlIzl = ''V'' '
        If @Sifra_Od IS NOT NULL
            Set @SSQL = @SSQL + 'AND Sifra_Art>=' + @Sifra_Od + ' '
        If @Sifra_Do IS NOT NULL
            Set @SSQL = @SSQL + 'AND Sifra_Art<=' + @Sifra_Do + ' '
        Exec(@SSQL)
        CREATE TABLE #DokArtN
        ( Sifra_Art  varchar(20),
          Datum      smalldatetime,
          DokID  int
        )
        CREATE TABLE #DokDat
        ( Sifra_Art  varchar(20),
          Datum smalldatetime
        )
        Set @SSQL = 'SELECT S.Sifra_art,  max(S.Datum_Dok) Datum FROM Stavr S '
        Set @SSQL = @SSQL + ' WHERE S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '')
                       AND S.Sifra_Art IN (SELECT Sifra_Art FROM #TmpDok) '
        If @Sif_GrOrg Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sif_GrOrg + ''') '
        Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
        INSERT INTO #DokDat EXEC (@SSQL)
        Set @SSQL = 'SELECT S.Sifra_art, S.Datum_Dok, max(S.DokID) DokID FROM Stavr S
                INNER JOIN #DokDat C ON S.Sifra_Art = C.Sifra_Art AND S.Datum_Dok = C.Datum '
        Set @SSQL = @SSQL + ' WHERE
                S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '') '
        If @Sif_GrOrg Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sif_GrOrg + ''') '
        Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art, S.Datum_Dok '
        INSERT INTO #DokArtN EXEC (@SSQL)
        UPDATE #TmpDok
        SET    Sifra_oe = D.Sifra_Oe, Sifra_Dok = D.Sifra_Dok, Broj_Dok = D.Broj_Dok, Identif_br = D.Identif_br, Sifra_Kup = D.Sifra_Kup, Datum = D.Datum_Dok, Kolicina = S.Kolic
                 FROM #DokArtN C, Stavr S, Dokr D
        WHERE #TmpDok.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID AND D.DokrID = S.DokrID
    End
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ------------------------------------ TEKOVNA ZALIHA --------------------------------------
    Create Table #TmpZal
    (
     Sifra_Art    varchar(20),
     Zaliha        decimal(18,6)
    )
    Set @SSQL = ' Select C.Sifra_Art, Sum(C.Vlez-C.Izlez)
            From Soart C
            INNER JOIN Katart K ON C.Sifra_Art=K.Sifra_Art '
    If @Sifra_Gr Is Not NULL
        Set @SSQL=@SSQL+'INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL + '    Where Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sif_GrOrg + ''') '
    -- Uslov
    If @Sifra_Od IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + 'AND C.Sifra_Art>=' + @Sifra_Od + ' '
    If @Sifra_Do IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + 'AND C.Sifra_Art<=' + @Sifra_Do + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @Kto Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (K.Kto='''+@Kto+''') '
    If @Sifra_Gr Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (P.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Tar Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
    If @Marza_Od Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND dbo.fn_VratiMarza(K.Nabavna, C.Cena) >= '+ Cast(@Marza_Od as varchar(10))
    If @Marza_Do Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND dbo.fn_VratiMarza(K.Nabavna, C.Cena) <= '+ Cast(@Marza_Do as varchar(10))
        If @MarzaN_Od Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND dbo.fn_VratiMarza(C.Cena, K.Nabavna)* (-1) >= '+ Cast(@MarzaN_Od as varchar(10))
    If @MarzaN_Do Is Not Null
        Set @SSQLUsl=@SSQLUsl+'AND dbo.fn_VratiMarza(C.Cena, K.Nabavna)* (-1) <= '+ Cast(@MarzaN_Do as varchar(10))
    Set @SSQL = @SSQL + @SSQLUsl + ' Group By C.Sifra_Art '
    Insert Into #TmpZal Exec(@SSQL)
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL='SELECT C.Sif_GrOrg, C.Sifra_Art, C.Cena, C.Dozvoleno, K.ImeArt, K.ImeArt2, K.Edmera, T.ProcOsn, K.Sifra_Tar, K.Nabavna,
                K.Sifra_Drg, B.Ime ImeDrg, K.Drugo1, D1.Ime_1, Z.Zaliha,
        Nomen =
            Case K.Nom
                When NULL Then dbo.fn_Nom(C.Sifra_Art)
            Else K.Nom
            End, '
    If @DajPoslDob='D'
        Set @SSQL=@SSQL + ' D.Sifra_Kup, Kup.ImeKup '
    Else
         Set @SSQL=@SSQL + ' Null as Sifra_Kup, Null as ImeKup '
    Set @SSQL=@SSQL + ' FROM CenGrOrg C
                INNER JOIN Katart K ON C.Sifra_Art=K.Sifra_Art
                Left Outer Join #TmpZal Z On Z.Sifra_Art=C.Sifra_Art '
    If @DajPoslDob='D'
        Set @SSQL=@SSQL+'LEFT OUTER JOIN #TmpDok D ON D.Sifra_Art=C.Sifra_Art
                    Left Outer Join Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup '
    Set @SSQL=@SSQL+'INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar
                Left Outer Join DrgPodel B On B.Sifra_Drg=K.Sifra_Drg
                Left Outer Join Drugo1 D1 On D1.Sifra_1=K.Drugo1 '
    If @Sifra_Gr Is Not NULL
        Set @SSQL=@SSQL+'INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+'WHERE C.Sif_GrOrg=''' + @Sif_GrOrg + ''' '
    Set @SSQL = @SSQL + @SSQLUsl
    If @Tip_Podr='S'
        Set @SSQL=@SSQL+'ORDER BY C.Sifra_Art'
    Else If @Tip_Podr='A'
        Set @SSQL=@SSQL+'ORDER BY K.ImeArt'
    Else If @Tip_Podr='P'
        Set @SSQL=@SSQL+'ORDER BY K.Sifra_Podg'
    Else If @Tip_Podr='G'
        Set @SSQL=@SSQL+'ORDER BY P.Sifra_Gr'
    Else If @Tip_Podr='L'
        Set @SSQL=@SSQL+'ORDER BY K.Lokacija'
    Else If @Tip_Podr='K'
        Set @SSQL=@SSQL+'ORDER BY K.Kto'
    Else If @Tip_Podr='M' -- Marza
        Set @SSQL=@SSQL+'ORDER BY (Case When K.Nabavna > 0 Then (((C.Cena/K.Nabavna)-1)*100) Else 0 End) Desc'
    EXEC(@SSQL)
    Set Nocount Off




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_cengrorgtt]'))
drop procedure [dbo].[sp_pregl_cengrorgtt]

Go



CREATE                  PROCEDURE sp_Pregl_CenGrOrgTT
    @Sif_GrOrg        varchar(8),
    @Tip_Podr        char(1) = Null,
    @Sifra_Od        varchar(12) = Null,
    @Sifra_Do        varchar(12) = Null,
    @Kto            char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @Sifra_Podg        char(6) = Null,
    @Lokacija        varchar(10) = Null,
    @Sifra_Tar        char(3) = Null,
    @Sifra_Brand        Smallint = Null,
    @Sifra_ZBrand        Smallint = Null,
    @Datum_Do        Smalldatetime = '2005-12-31',
    @IskluciKup        varchar(200) = '660663, 660660, 021000',
    @OrgEdZaNabCeni    smallint = 100,
    @TipDokPriem        smallint = 1,
    @Marza_Od        Decimal(6,2) = Null,
    @Marza_Do        Decimal(6,2) = Null,
        @MarzaN_Od     Decimal(6,2) = Null,
    @MarzaN_Do    Decimal(6,2) = Null
AS
    Set Nocount Off
    Declare @SSQL varchar(2000)
   Set @SSQL =    'SELECT C.Sif_GrOrg, C.Sifra_Art, C.Cena, C.Dozvoleno, Null
        FROM CenGrOrg C
           INNER JOIN Katart K ON C.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
           INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar '
   If @Sifra_Gr Is Not NULL
        Set @SSQL=@SSQL+'INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
   If @Sifra_ZBrand Is Not Null
       Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
   Set @SSQL=@SSQL+'WHERE 1=1 '
    If @Sif_GrOrg Is Not Null
       Set @SSQL=@SSQL+'And C.Sif_GrOrg=''' + @Sif_GrOrg + ''' '
   If @Sifra_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.Sifra_Art>=''' + @Sifra_Od + ''' '
   If @Sifra_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.Sifra_Art<=''' + @Sifra_Do + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
   If @Kto Is Not Null
      Set @SSQL=@SSQL+'AND (K.Kto='''+@Kto+''') '
   If @Sifra_Gr Is Not Null
      Set @SSQL=@SSQL+'AND (P.Sifra_Gr='''+@Sifra_Gr+''') '
   If @Sifra_Podg Is Not Null
      Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
   If @Lokacija Is Not Null
      Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
   If @Sifra_Tar Is Not Null
      Set @SSQL=@SSQL+'AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
    If @Marza_Od Is Not Null
        Set @SSQL=@SSQL+'AND dbo.fn_VratiMarza(K.Nabavna, C.Cena) >= '+Cast(@Marza_Od as varchar(10))
    If @Marza_Do Is Not Null
        Set @SSQL=@SSQL+'AND dbo.fn_VratiMarza(K.Nabavna, C.Cena) <= '+Cast(@Marza_Do as varchar(10))
        If @MarzaN_Od Is Not Null
        Set @SSQL=@SSQL+'AND dbo.fn_VratiMarza(C.Cena, K.Nabavna) * (-1) >= '+Cast(@MarzaN_Od as varchar(10))
    If @MarzaN_Do Is Not Null
        Set @SSQL=@SSQL+'AND dbo.fn_VratiMarza(C.Cena, K.Nabavna) * (-1) <= '+Cast(@MarzaN_Do as varchar(10))
    CREATE TABLE [#Ceni] (
        [Sif_GrOrg] [char] (6),
        [Sifra_Art] Varchar(20),
        [Cena] [decimal](18, 6),
        [Dozvoleno] [char] (1),
        [PoslednaNabavna] [decimal] (18,6)
    )
print @ssql
    Insert #Ceni EXEC(@SSQL)
    CREATE TABLE #CeniArtN
    ( Sifra_Art  varchar(20),
      Datum smalldatetime,
      DokID  int
    )
    Set @SSQL = 'SELECT S.Sifra_art, max(S.Datum_Dok) Datum, max(S.DokID) DokID
        FROM Stavr S '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) +
        ''' AND S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '') AND
        S.Sifra_OE = ' + Cast(@OrgEdZaNabCeni as varchar(4)) +
        ' AND S.Sifra_Dok = '+Cast(@TipDokPriem as varchar(3))
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
    INSERT INTO #CeniArtN EXEC (@SSQL)
    UPDATE #Ceni
    SET    PoslednaNabavna = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, 0, 'D')
             FROM #CeniArtN C, Stavr S
    WHERE #Ceni.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID
    UPDATE #Ceni
    SET PoslednaNabavna = S.Cena
        FROM StariNabavniC S
    WHERE #Ceni.Sifra_Art = S.Sifra_Art AND (#Ceni.PoslednaNabavna = 0 or #Ceni.PoslednaNabavna IS NULL)
/*
    UPDATE #PrometArt
    SET ProdCena = S.Cena
        FROM SoArt S
    WHERE #PrometArt.Sifra_Art = S.Sifra_Art AND S.Sifra_OE = @OrgEdZaNabCeni
*/
   Set @SSQL='SELECT C.Sif_GrOrg, GO.Ime_GrOrg,  '
    Set @SSQL = @SSQL + 'C.Sifra_Art + '' '' + K.ImeArt Artikl, '
    -- da zavrsime so opisni podatoci
    Set @SSQL = @SSQL + 'K.ImeArt2, K.Edmera, K.Sifra_Tar, T.ProcOsn, C.Dozvoleno, '
    -- sega vaznite podatoci (cenite)
    Set @SSQL = @SSQL + 'C.Cena Cena, K.Nabavna FiksnaNabavna, C.PoslednaNabavna PoslednaNabavna,
         Nomen =
            Case K.Nom
                When NULL Then dbo.fn_Nom(C.Sifra_Art)
            Else K.Nom
            End
        FROM #Ceni C
        Inner Join GrOrg GO On C.Sif_GrOrg=GO.Sif_GrOrg
        INNER JOIN Katart K ON C.Sifra_Art=K.Sifra_Art And K.SMatUsl=''M''
        INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar '
   If @Tip_Podr='S'
      Set @SSQL=@SSQL+'ORDER BY C.Sifra_Art, K.ImeArt'
   Else If @Tip_Podr='A'
      Set @SSQL=@SSQL+'ORDER BY K.ImeArt, C.Sifra_Art'
   Else If @Tip_Podr='P'
      Set @SSQL=@SSQL+'ORDER BY K.Sifra_Podg'
   Else If @Tip_Podr='G'
      Set @SSQL=@SSQL+'ORDER BY P.Sifra_Gr'
   Else If @Tip_Podr='L'
      Set @SSQL=@SSQL+'ORDER BY K.Lokacija'
   Else If @Tip_Podr='K'
      Set @SSQL=@SSQL+'ORDER BY K.Kto'
   EXEC(@SSQL)
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_cenpopodgr]'))
drop procedure [dbo].[sp_pregl_cenpopodgr]

Go

CREATE                 PROCEDURE sp_Pregl_CenPoPodgr
    @Tip_Podelba    char(1) = 'P',
    @TipKup_Od    varchar(11) = Null,
    @TipKup_Do    varchar(11) = Null,
    @Podelba_Od    varchar(20) = Null,
    @Podelba_Do    varchar(20) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Marza_Od     Decimal(6,2) = Null,
    @Marza_Do    Decimal(6,2) = Null,
    @Tip_Podr    char(2) = 'TS'        --PRV ZNAK T-TipKup, P-Podelba, VTOR ZNAK S-Sifra, I-Ime
AS
    Set Nocount Off
    Declare @SSQL varchar(2000)        --ovde dopolni so ime zavisno od koja tabela
    Set @SSQL='SELECT C.TipKup, T.ImeTipKup, C.Sifra_Podelba, P.Ime_Podg, C.Uces, C.Cena, C.Uces2, C.Uces3
        FROM CenPoPodgr C
        INNER JOIN Podgrupi P ON C.Sifra_Podelba=P.Sifra_Podg
        INNER JOIN GTipKup T ON C.TipKup=T.TipKup
        WHERE C.Tip_Podelba=''' + @Tip_Podelba + ''' '
    If @TipKup_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.TipKup>=''' + @TipKup_Od + ''' '
    If @TipKup_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.TipKup<=''' + @TipKup_Do + ''' '
    If @Podelba_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.Sifra_Podelba>=''' + @Podelba_Od + ''' '
    If @Podelba_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND C.Sifra_Podelba<=''' + @Podelba_Do + ''' '
    If @Marza_Od Is Not Null
        Set @SSQL = @SSQL + ' AND C.Uces >= '+ Cast(@Marza_Od as varchar(10))
    If @Marza_Do Is Not Null
        Set @SSQL = @SSQL + ' AND C.Uces <= '+ Cast(@Marza_Do as varchar(10))
    If @Sifra_Gr is not null
        Set @SSQL = @SSQL + ' AND P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Tip_Podr='TS'
        Set @SSQL=@SSQL+'ORDER BY C.TipKup, C.Sifra_Podelba'
    Else If @Tip_Podr='PS'
        Set @SSQL=@SSQL+'ORDER BY C.Sifra_Podelba, C.TipKup '
    Else If @Tip_Podr='PI'
        Set @SSQL=@SSQL+'ORDER BY P.Ime_Podg, C.TipKup '
    Else If @Tip_Podr='TI'
        Set @SSQL=@SSQL+'ORDER BY T.ImeTipKup, C.Sifra_Podelba'
   EXEC(@SSQL)
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_detalruti]'))
drop procedure [dbo].[sp_pregl_detalruti]

Go








CREATE                     Procedure sp_Pregl_DetalRuti
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null,
    @RazlProdMest char(1) = 'N',
    @DenOdNedelata    smallint = Null,
    @Poseteni    char(1) = Null
As
CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
        DELETE FROM #TmpPR
        INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
        WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat


        If @DenOdNedelata Is Not null And dbo.fn_DenOdNedela(@Datum)=@DenOdNedelata
            INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
            AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
        Else If @DenOdNedelata Is Null
            INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
            AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)
/*set @SSQL = 'insert into #TmpRuta(Sifra_Pat, DatumOd, DenOdNedela, Sifra_Kup, Sifra_Obj)
    select Sifra_Pat, max(Datum_Od), DenOdNedela, Sifra_Kup, Sifra_Obj
    from RutiPlan where Datum_Od <='''+cast(@DatumOd as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat = '+cast (@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '+cast(@Sifra_GrPat as varchar(6))+' ) '
set @SSQL = @SSQL + ' group by Sifra_Pat, DenOdNedela, Sifra_Kup, Sifra_Obj '
    exec(@SSQL)

set @SSQL = ' insert into #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
     select Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj
                     from RutiZaDatum
                     where Datum >= '''+cast(@DatumOd as varchar(35))+''' and Datum <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '+cast(@Sifra_GrPat as varchar(6))+' ) '
--    print(@SSQL)
    exec(@SSQL)*/

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime
    )
set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod)
            select A.sifra_Oe, P.ImePat, A.Sifra_Kup, K.ImeKup, case when A.Sifra_Obj <> 0 then A.Sifra_Obj end, KO.ImeObj, A.DatumVreme,''D'', A.SoBarKod
            from Akcija A
            inner join Patnici P on A.Sifra_oe=P.Sifra_Pat
            inner join Komint K on K.Sifra_Kup = A.Sifra_Kup
            left outer join KObjekti KO on KO.Sifra_Obj = A.Sifra_Obj and KO.Sifra_Kup = A.Sifra_Kup
            where cast(cast(datepart(yyyy, DatumVreme) as char(4)) +''-''+
            cast(datepart(mm, DatumVreme) as char(2)) +''-''+
            cast(datepart(dd, DatumVreme) as char(2)) as smalldatetime)
             >= '''+cast(@DatumOd as varchar(35))+''' and
            cast(cast(datepart(yyyy, DatumVreme) as char(4)) +''-''+
            cast(datepart(mm, DatumVreme) as char(2)) +''-''+
            cast(datepart(dd, DatumVreme) as char(2)) as smalldatetime)
             <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
If @DenOdNedelata Is Not Null
    Set @SSQL = @SSQL + ' And dbo.fn_DenOdNedela(A.DatumVreme)= ' + Cast(@DenOdNedelata as varchar(6)) + ' '

set @SSQL = @SSQL + ' order by A.DatumVreme, A.Sifra_Kup, A.Sifra_Obj '
print(@SSQL)
exec(@SSQL)

--sega da gi izbriseme duplite vneseni vo rok od nekolku minuti
Declare @SifKup char(6), @SifObj smallint, @SifPat smallint, @SifKup1 char(6), @SifObj1 smallint, @SifPat1 smallint, @Datum1 smalldatetime
SET @SifKup1=''
SET @SifObj1=0
SET @SifPat1=0
SET @Datum1=GETDATE()
Declare Tab1 Cursor Fast_Forward For
    Select  Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum From #TmpDetal ORDER BY Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum
Open Tab1
Fetch Next From Tab1 Into @SifPat, @SifKup, @SifObj, @Datum
While @@Fetch_Status = 0
Begin
    IF @SifPat1=@SifPat AND @SifKup1=@SifKup AND dbo.fn_VratiDatum(@Datum1)=dbo.fn_VratiDatum(@Datum)
    BEGIN
        IF (@SifObj IS NULL AND @SifObj1 IS NULL) OR (@SifObj IS NOT NULL AND @SifObj1 IS NOT NULL AND @SifObj=@SifObj1)
            Update #TmpDetal SET Poseten='X' WHERE Sifra_Pat=@SifPat AND Sifra_Kup=@SifKup AND Datum=@Datum
    END
    SET @SifPat1=@SifPat
    SET @SifKup1=@SifKup
    SET @SifObj1=@SifObj
    SET @Datum1=@Datum
    Fetch Next From Tab1  Into @SifPat, @SifKup, @SifObj, @Datum
End
Close Tab1
Deallocate Tab1

DELETE FROM #TmpDetal WHERE Poseten='X'
/*update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
      where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is not null and TR.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_OBj
        and datepart(dw, #TmpDetal.Datum) - 1 = TR.DenOdNedela
        and TR.Datum is null

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
          and datepart(dw, #TmpDetal.Datum) - 1 = TR.DenOdNedela
        and TR.Datum is null
*/
UPDATE #TmpDetal SET Sifra_Obj=NULL WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null
update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta, Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(dbo.fn_VratiDatum(Datum) as char(11)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta, Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(dbo.fn_VratiDatum(Datum) as char(11))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

If @RazlProdMest = 'D'
Begin
    select distinct Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, '' PoRuta, '' Poseten, '' SoBarKod, min(Datum) as Datum from #TmpDetal
    where Poseten = 'D'
    group by Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj --, PoRuta, Poseten, SoBarKod
    ORDER BY Sifra_Pat
End
Else
Begin
    If @Poseteni Is Not Null
        Select * From #TmpDetal Where Poseten = @Poseteni ORDER BY Sifra_Pat, Datum
    Else
        Select * From #TmpDetal ORDER BY Sifra_Pat, Datum
End




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_detalruti_071210]'))
drop procedure [dbo].[sp_pregl_detalruti_071210]

Go




create                  Procedure sp_Pregl_DetalRuti_071210
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null,
    @RazlProdMest char(1) = 'N',
    @DenOdNedelata    char(1) = Null
As
CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
        DELETE FROM #TmpPR
        INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
        WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat


        If @DenOdNedelata Is Not null And dbo.fn_DenOdNedela(@Datum)=@DenOdNedelata
            INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
            AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
        Else
            INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
            SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
            WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
            AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)
/*set @SSQL = 'insert into #TmpRuta(Sifra_Pat, DatumOd, DenOdNedela, Sifra_Kup, Sifra_Obj)
    select Sifra_Pat, max(Datum_Od), DenOdNedela, Sifra_Kup, Sifra_Obj
    from RutiPlan where Datum_Od <='''+cast(@DatumOd as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat = '+cast (@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '+cast(@Sifra_GrPat as varchar(6))+' ) '
set @SSQL = @SSQL + ' group by Sifra_Pat, DenOdNedela, Sifra_Kup, Sifra_Obj '
    exec(@SSQL)

set @SSQL = ' insert into #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
     select Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj
                     from RutiZaDatum
                     where Datum >= '''+cast(@DatumOd as varchar(35))+''' and Datum <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '+cast(@Sifra_GrPat as varchar(6))+' ) '
--    print(@SSQL)
    exec(@SSQL)*/

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime
    )
set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod)
            select A.sifra_Oe, P.ImePat, A.Sifra_Kup, K.ImeKup, case when A.Sifra_Obj <> 0 then A.Sifra_Obj end, KO.ImeObj, A.DatumVreme,''D'', A.SoBarKod
            from Akcija A
            inner join Patnici P on A.Sifra_oe=P.Sifra_Pat
            inner join Komint K on K.Sifra_Kup = A.Sifra_Kup
            left outer join KObjekti KO on KO.Sifra_Obj = A.Sifra_Obj and KO.Sifra_Kup = A.Sifra_Kup
            where dbo.fn_VratiDatum(DatumVreme) >= '''+cast(@DatumOd as varchar(35))+''' and dbo.fn_VratiDatum(DatumVreme) <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
If @DenOdNedelata Is Not Null
    Set @SSQL = @SSQL + ' And dbo.fn_DenOdNedela(A.Datum_Vreme)= ' + Cast(@DenOdNedelata as varchar(6)) + ' '

set @SSQL = @SSQL + ' order by A.DatumVreme, A.Sifra_Kup, A.Sifra_Obj '
print(@SSQL)
exec(@SSQL)

--sega da gi izbriseme duplite vneseni vo rok od nekolku minuti
Declare @SifKup char(6), @SifObj smallint, @SifPat smallint, @SifKup1 char(6), @SifObj1 smallint, @SifPat1 smallint, @Datum1 smalldatetime
SET @SifKup1=''
SET @SifObj1=0
SET @SifPat1=0
SET @Datum1=GETDATE()
Declare Tab1 Cursor Fast_Forward For
    Select  Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum From #TmpDetal ORDER BY Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum
Open Tab1
Fetch Next From Tab1 Into @SifPat, @SifKup, @SifObj, @Datum
While @@Fetch_Status = 0
Begin
    IF @SifPat1=@SifPat AND @SifKup1=@SifKup AND dbo.fn_VratiDatum(@Datum1)=dbo.fn_VratiDatum(@Datum)
    BEGIN
        IF (@SifObj IS NULL AND @SifObj1 IS NULL) OR (@SifObj IS NOT NULL AND @SifObj1 IS NOT NULL AND @SifObj=@SifObj1)
            Update #TmpDetal SET Poseten='X' WHERE Sifra_Pat=@SifPat AND Sifra_Kup=@SifKup AND Datum=@Datum
    END
    SET @SifPat1=@SifPat
    SET @SifKup1=@SifKup
    SET @SifObj1=@SifObj
    SET @Datum1=@Datum
    Fetch Next From Tab1  Into @SifPat, @SifKup, @SifObj, @Datum
End
Close Tab1
Deallocate Tab1

DELETE FROM #TmpDetal WHERE Poseten='X'
/*update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
      where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is not null and TR.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_OBj
        and datepart(dw, #TmpDetal.Datum) - 1 = TR.DenOdNedela
        and TR.Datum is null

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
          and datepart(dw, #TmpDetal.Datum) - 1 = TR.DenOdNedela
        and TR.Datum is null
*/
UPDATE #TmpDetal SET Sifra_Obj=NULL WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null
update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(dbo.fn_VratiDatum(Datum) as char(11)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(dbo.fn_VratiDatum(Datum) as char(11))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

If @RazlProdMest = 'D'
    select distinct Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, '' PoRuta, '' Poseten, '' SoBarKod, min(Datum) as Datum from #TmpDetal
    group by Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj --, PoRuta, Poseten, SoBarKod
    ORDER BY Sifra_Pat
else
    select * from #TmpDetal ORDER BY Sifra_Pat, Datum

















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_distlog]'))
drop procedure [dbo].[sp_pregl_distlog]

Go

CREATE    PROCEDURE sp_Pregl_DistLog
    @ImeLog    varchar(20) = NULL,
    @Datum_Od    Smalldatetime = NULL,
    @Datum_Do    Smalldatetime = NULL
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT DISTINCT ImeLog, Koga    FROM OpstLog WHERE 1=1 '
    If @ImeLog IS NOT NULL
        Set @SSQL = @SSQL + 'AND ImeLog = ''' + @ImeLog + ''' '
    If @Datum_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND Koga >= ''' + Cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND Koga < ''' + Cast(DateAdd(Day, 1, @Datum_Do)  as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' ORDER BY Koga'
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_dok_stavr_magstavr]'))
drop procedure [dbo].[sp_pregl_dok_stavr_magstavr]

Go

CREATE  PROCEDURE sp_Pregl_Dok_Stavr_MagStavr
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int
AS
    Create Table #Stavki
    (
     Sifra_Art    varchar(20),
     KolicStavr    decimal(18,6),
     KolicMS1    decimal(18,6),
     KolicMS2    decimal(18,6),
     KolicMS3    decimal(18,6)
    )
    Insert Into #Stavki
    Select S.Sifra_Art, Sum(S.Kolic), 0, 0, 0
    From Stavr S
    Where S.Sifra_Oe=@Sifra_Oe And S.Sifra_Dok=@Sifra_Dok And S.Broj_Dok=@Broj_Dok
    Group By S.Sifra_Art
    Insert Into #Stavki
    Select M.Sifra_Art, 0,
        Sum(Case When Substring(M.SpecOzn,20,1) = 1 Then M.Kolic Else 0 End),
        Sum(Case When Substring(M.SpecOzn,20,1) = 2 Then M.Kolic Else 0 End),
        Sum(Case When Substring(M.SpecOzn,20,1) = 3 Then M.Kolic Else 0 End)
    From Dokr D
    Inner Join MagStavr M On M.DokrID=D.DokrID
    Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    Group By M.Sifra_Art
    Select S.Sifra_Art, K.ImeArt, Sum(S.KolicStavr) KolicStavr, Sum(S.KolicMS1) KolicMS1, Sum(S.KolicMS2) KolicMS2, Sum(S.KolicMS3) KolicMS3, K.SodrziEd
    From #Stavki S
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Group By S.Sifra_Art, K.ImeArt, K.SodrziEd




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_dokosnsred]'))
drop procedure [dbo].[sp_pregl_dokosnsred]

Go



CREATE     PROCEDURE sp_Pregl_DokOsnSred
    @Sifra_Oe    smallint,
    @Sifra_Dok    smallint,
    @Broj_Dok    int,
    @Tip_StaOsn    char(1) ='' OUTPUT
AS
    SELECT @Tip_StaOsn = Tip_StaOsn FROM DokOsnSred WHERE Sifra_Oe=@Sifra_Oe And Sifra_Dok=@Sifra_Dok And Broj_Dok=@Broj_Dok
    Select D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.VlIzl, D.Poc_Inv_Broj as Inv_Broj, D.Sifra_Kup, K.ImeKup, D.Identif_Br,
               O.Ime, O.Opis, O.BarKod, S.Datum_Dok, S.Tip_StaOsn, S.VlIzl,
        S.Sifra_MikLok, MikL.Ime_MikLok, S.RedTrans, S.Osn_Amor, S.Otpis_Pret, S.Sifra_MikLok_Od, MikL2.Ime_MikLok Ime_MikLok_Od,
        S.Orig_Nab_Vr, S.Valuta, S.Orig_Nab_Vr_Val, S.Delov_God, S.Sifra_Rab, Rab.ImeRab, S.Sifra_RabOd, Rab2.ImeRab ImeRab_Od,
        Count(*) as Kolic, O. Kto_anal, D.Sifra_Nal, D.Broj_Nal, A.ImeAnal
    From DokOsnSred D
    Inner Join StavOsnSred S On S.DokOID=D.DokOID
    Inner Join OsnSred O On O.Inv_Broj=D.Poc_Inv_Broj
        Left Outer Join Komint K On K.Sifra_Kup=D.Sifra_Kup
    Left Outer Join MikroLok MikL On MikL.Sifra_MikLok=S.Sifra_MikLok
    Left Outer Join MikroLok MikL2 On MikL2.Sifra_MikLok=S.Sifra_MikLok_Od
    Left Outer Join Rabotnik Rab On Rab.Sifra_Rab=S.Sifra_Rab
    Left Outer Join Rabotnik Rab2 On Rab2.Sifra_Rab=S.Sifra_RabOd
    Left Outer Join Anal A on O.kto_Anal=A.Kto_Anal
    Where D.Sifra_Oe=@Sifra_Oe And D.Sifra_Dok=@Sifra_Dok And D.Broj_Dok=@Broj_Dok
    Group By D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.VlIzl, D.Poc_Inv_Broj, D.Sifra_Kup, K.ImeKup, D.Identif_Br, O.Ime, O.Opis, O.BarKod, S.Datum_Dok, S.Tip_StaOsn, S.VlIzl,
        S.Sifra_MikLok, MikL.Ime_MikLok, S.RedTrans, S.Osn_Amor, S.Otpis_Pret, S.Sifra_MikLok_Od, MikL2.Ime_MikLok,
        S.Orig_Nab_Vr, S.Valuta, S.Orig_Nab_Vr_Val, S.Delov_God, S.Sifra_Rab, Rab.ImeRab, S.Sifra_RabOd, Rab2.ImeRab, O.Kto_Anal, D.Sifra_Nal, D.Broj_Nal, A.ImeAnal
    Return @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_dokr_prev]'))
drop procedure [dbo].[sp_pregl_dokr_prev]

Go



CREATE                 PROCEDURE sp_Pregl_Dokr_Prev
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sifra_Dok    smallint=null,
    @Sifra_Dok2    smallint=null,
    @Sifra_Dok3    smallint=null,
    @Sifra_Dok4    smallint=null,
    @Broj_Dok_Od    int=null,
    @Broj_Dok_Do    int=null,
    @BezPrevoznik    char(1) = Null,
    @KoiOe    varchar(6) = Null,
    @BezKasiP    char(1)='N',
    @Sifra_Pat    smallint = NULL,
    @NePecFisc        char(1)=NULL,
    @Podred    char(1) = 'G',    --po grad(default),D-po oe-dok/br,P-po patnik+dok, K-po kupuvac
    @BezStornirani     char(1) = 'N',
    @KDrugo1    smallint = Null    ,
    @SifGrDok    varchar(30) =null--13.12.2011 - Gleda po GrDok
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL =  'SELECT D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.DokrID, D.Datum_Vnes,
        Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Dok as varchar(6)) + ''/'' + Cast(D.Broj_Dok as varchar(10)) BrojDok,
        D.Sifra_Kup,D.Opis, K.ImeKup, K.Adresa, D.Sifra_Obj, OB.ImeObj, D.Toc200,
        (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
        K1.Ime_1K,
        D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Broj_Nal, D.Spec_Forma_Pec, '
    Set @SSQL = @SSQL + ' D.Toc200 IznosDok, Sum(S.Kolic*A.BTezina) as Tezina, SUM(Case When (A.ImaKomerc IS NULL OR A.ImaKomerc=0) Then 0 Else S.Kolic * A.Volumen/A.ImaKomerc End) Volumen, Count(S.DokID) Stavki '
    Set @SSQL = @SSQL + ' From Dokr D Inner Join Stavr S On S.DokrID=D.DokrID
                      Inner Join Katart A On A.Sifra_Art = S.Sifra_Art '
    Set @SSQL = @SSQL + ' Left Outer Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                  Left Outer Join KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
                  Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
                  Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End)
                  Left Outer Join Prevoznik P On P.Sifra_Prev = D.Sifra_Prev
                  Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat '
    Set @SSQL = @SSQL + ' Where D.VlIzl=''I'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '

    IF @SifGrDok IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (Select Sifra_Dok From SGrDok Where Sif_GrDok=''' + @SifGrDok + ''') '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null And @Sifra_Dok4 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok3 as varchar(6))  + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok4 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok3 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Dok = ' + Cast(@Sifra_Dok2 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok = ' + Cast(@Sifra_Dok as varchar(6)) + ' '

    If @Broj_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Dok >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Dok <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    If @BezPrevoznik = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
    Else If @BezPrevoznik = 'N'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    IF @Sifra_Pat IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
    IF @NePecFisc IS NOT NULL AND @NePecFisc='D'    --dod.samo za pec.na fisc+Promena na kasa
        Set @SSQL = @SSQL + ' And (D.Pec_Fisc IS NULL OR D.Pec_Fisc=0) AND D.Broj_Nal IS NULL '
    IF @BezKasiP='D'    --dod.14.11.06
        SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID FROM KasStav WHERE DokrID IS NOT NULL) '
    IF @BezStornirani = 'D'
        SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT Dokr_ID_Orig FROM DokrStorno)
                              AND D.DokrID NOT IN (SELECT Dokr_ID_Storno FROM DokrStorno)'
    If @KDrugo1 Is Not Null
        Set @SSQL = @SSQL + ' And K1.Sifra_1K = ' + Cast(@KDrugo1 as varchar(6)) + ' '
    Set @SSQL = @SSQL + ' Group By D.Datum_Dok, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.DokrID, D.Datum_Vnes,
                D.Sifra_Kup, D.Opis, K.ImeKup, K.Adresa, D.Sifra_Obj, OB.ImeObj, D.Toc200, (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End),
                D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, G.ImeGrad, D.Broj_Nal, K1.Ime_1K, D.Spec_Forma_Pec '
    If @Podred='D'
        Set @SSQL = @SSQL + ' Order By D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok '
    ELSE If @Podred='P'
        Set @SSQL = @SSQL + ' Order By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok '
    ELSE If @Podred='K'
        Set @SSQL = @SSQL + ' Order By Case When D.Sifra_Obj Is not null or D.Sifra_Obj>0 Then OB.ImeObj else K.ImeKup end, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok '
    ELSE
        Set @SSQL = @SSQL + ' Order By G.ImeGrad, K.ImeKup, D.Broj_Dok '
print @SSQL
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_dokr_prev_narac]'))
drop procedure [dbo].[sp_pregl_dokr_prev_narac]

Go
CREATE       PROCEDURE [dbo].[sp_Pregl_Dokr_Prev_Narac]
    @Sifra_Prev                char(6)=null,
    @Datum_Od                smalldatetime=null,
    @Datum_Do                smalldatetime=null,
    @Sifra_OE                 smallint=null,
    @Sifra_Dok                smallint=null,
    @Sifra_Dok2                smallint=null,
    @Sifra_Dok3                smallint=null,
    @Sifra_Dok4                smallint=null,
    @Broj_Dok_Od            int=null,
    @Broj_Dok_Do            int=null,
    @BezPrevoznik            char(1) = Null,
    @KoiOe                    varchar(6) = Null,
    @BezKasiP                char(1)='N',
    @Sifra_Pat                smallint = NULL,
    @NePecFisc                char(1)=NULL,
    @Podred                    char(1) = 'G',    --po grad(default),D-po oe-dok/br,P-po patnik+dok,V-dat.vnes Naracka
    @BezStornirani             char(1) = 'N',
    @KDrugo1                smallint = Null,
    @KojDatum                 char(1)= 'N',     -- D-Dat.dosp,N-dat.nar.,I-po datispor.(Orbico)
    @ZaProverka                char(1) = 'P',
    @Sifra_reg                 smallint = null,
    @Sifra_Grad             smallint = null,
    @DodOpisIspor            char(1)='N',            --N - opis e prazno taka bese na 04.08.11, D - opis e Identid_Br + Naracka.TekstPosle
    @SifGrDok                varchar(30) = null,      --14.09.2011 Igor  - ne se vo uloga poveke Sifra_Dok 1-4
    @SifGrOrgIsporaka        varchar(15) = null,     --26.09.2011 Igor - Isporaka od koi OE
    @Sifra_Oper_Oper        smallint = null,        --07.12.2011 Igor - filter za operator,
    @SamoNeRealizirani        char(1)='N'                --07.02.2012 Igor - filter za realizirani naracki

AS

    --za podnarackite
    Create Table #TmpNar
    (
        NarID        int,
        Podelena    char(1),
        Aktiven        char(1)
    )
    --gi smestuvame narackite koi sto se podeleni
    Insert Into #TmpNar
    Select Distinct NarID_Orig,'P','D'
    From NarPodNar

    --gi smenstuvame podelenite naracki na vtoro,treto nivo
    Insert Into #TmpNar
    Select Distinct NarID_OdKoja,'P','N'
    From NarPodNar
    Where NarId_OdKoja is not null

    --gi smestuvame podnarackite koi sto ne se podeleni
    Insert Into #TmpNar
    Select Distinct  NarID_PodNar,'N',Aktiven
    From NarPodNar
    Where NarId_PodNar Not IN (Select NarID From #TmpNar)

    Update #TmpNar Set Aktiven = 'N' Where Aktiven is null


    Declare @SSQL         as varchar(8000)
    Declare @SQLOPIS     as varchar(200)
    Declare @SQLOPISGR    as varchar(200)

    Set @SQLOPIS = ''' '' '    --vaka bese na 04.08.11
    Set @SQLOPISGR = ''

    Declare @TempKojOpis as char(1)
    set @TempKojOpis = dbo.fix_WHM_OpisNarNalog(@SifGrOrgIsporaka, @SifGrDok)
    if @TempKojOpis <> ''
        set @DodOpisIspor = @TempKojOpis

    IF @DodOpisIspor ='D'
       BEGIN
        Set @SQLOPIS = '(D.Identif_Br + D.TekstPosle) '    --za select
        Set @SQLOPISGR = 'D.Identif_Br,D.TekstPosle, '    --za group by
       END
    else IF @DodOpisIspor ='I'
       BEGIN
        Set @SQLOPIS = ' (D.Identif_Br) '    --za select
        Set @SQLOPISGR = ' D.Identif_Br, '    --za group by
       END

    If @KojDatum = 'D'
             Set @SSQL =  'SELECT Dateadd(day, D.Rok, D.Datum_Nar) Datum_Dok, '
    ELSE IF @KojDatum = 'I'
            Set @SSQL =  'SELECT D.Dat_Isporaka Datum_Dok, D.Sifra_Za_Dok,
                    DD.Sifra_Oe DSifra_Oe, DD.Sifra_Dok DSifra_Dok, DD.Broj_Dok DBroj_Dok,
                    NRD.Realiziran DReal, '
    ELSE IF @KojDatum = 'P'
            Set @SSQL =  'SELECT D.Datum_Nar Datum_Dok, D.Dat_Isporaka, D.Sifra_Za_Dok, D.Sifra_Za_Org, D.Sifra_Za_Prim,
                    DD.Sifra_Oe DSifra_Oe, DD.Sifra_Dok DSifra_Dok, DD.Broj_Dok DBroj_Dok,
                    NRD.Realiziran DReal, '
    Else
            Set @SSQL =  'SELECT D.Datum_Nar Datum_Dok, D.Sifra_Za_Dok, '

    Set @SSQL=@SSQL+' D.Sifra_Oe, D.Sifra_Nar Sifra_Dok, D.Broj_Nar Broj_Dok, D.NarID DokrID, D.Datum_Vnes,
                      Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Nar as varchar(6)) + ''/'' + Cast(D.Broj_Nar as varchar(10)) BrojDok,
                      D.Sifra_Kup,  '+ @SQLOPIS +' Opis,K.ImeKup, K.Adresa, D.Sifra_Obj, OB.ImeObj, D.Toc200,
                      (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
                      K1.Ime_1K, D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Toc200 IznosDok, Sum(S.Kolic*A.BTezina) as Tezina,
                      SUM(Case When (A.ImaKomerc IS NULL OR A.ImaKomerc=0) Then 0 Else S.Kolic * A.Volumen/A.ImaKomerc End) Volumen,
                      SUM(Case When (A.ImaKomerc IS NULL OR A.ImaKomerc=0) Then 0 Else S.Kolic/A.ImaKomerc End) Paketi,
              Count(S.NarID) Stavki, N.OdiVo_Sifra_Dok,N.OdiVo_Sifra_Oe , N.DaliDev , TMP.Podelena , TMP.Aktiven, TD.Sifra_Za,
              D.Sifra_Oper_Oper, Oper.Ime_Oper
                  From Naracki D
          Inner Join Stanarac S On S.NarID=D.NarID
                  Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
                  Left Outer Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                  Left Outer Join KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
                  Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
                  Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End)
                  Left Outer Join Prevoznik P On P.Sifra_Prev = D.Sifra_Prev
                  Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat
                  left outer Join TipNarac  N on N.Sifra_Nar=D.Sifra_Nar
          LEFT OUTER JOIN TipDok TD ON N.OdiVo_Sifra_Dok=TD.Sifra_Dok
              Left Outer Join GRegion Reg on Reg.Sifra_Reg=(Case When OB.Sifra_Reg Is Not Null Then OB.Sifra_Reg Else K.Sifra_Reg End)
          Left Outer Join Grad GR on GR.Sifra_Grad=(Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
          Left Outer Join #TmpNar TMP ON D.NarID = TMP.NarID
          Left Outer Join Operatori Oper
            on Oper.Sifra_Oper = D.Sifra_Oper_Oper '

    if @KojDatum = 'P' or @KojDatum = 'I' or @SamoNeRealizirani ='D'
         set @SSQL = @SSQL + ' Left Outer Join NarRealDok NRD
                        on NRD.NarId = D.NarId
                       Left Outer Join Dokr DD
                        on DD.DokrId = NRD.DokrId '

    set @SSQL = @SSQL + '   Where N.VlIzl=''I'' And (TMP.Aktiven IS NULL OR TMP.Aktiven<>''N'') '


    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '

    If @SifGrDok Is not NUll
        Set @SSQL = @SSQL + ' And (D.Sifra_Nar In (Select Sifra_Nar From SGrDok Where Sif_GrDok ='''+ @SifGrDok  +''') ) '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null And @Sifra_Dok4 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Nar = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_NAr = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_NAr = ' + Cast(@Sifra_Dok3 as varchar(6))  + ' Or D.Sifra_NAr = ' + Cast(@Sifra_Dok4 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null And @Sifra_Dok3 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Nar = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_NAr = ' + Cast(@Sifra_Dok2 as varchar(6)) + ' Or D.Sifra_Nar = ' + Cast(@Sifra_Dok3 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null And @Sifra_Dok2 Is Not Null
        Set @SSQL = @SSQL + ' And (D.Sifra_Nar = ' + Cast(@Sifra_Dok as varchar(6)) + ' Or D.Sifra_Nar = ' + Cast(@Sifra_Dok2 as varchar(6)) + ') '
    Else If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Nar = ' + Cast(@Sifra_Dok as varchar(6)) + ' '
    If @Broj_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
    IF @Sifra_Oper_Oper is not null
        Set @SSQL = @SSQL + ' And Oper.Sifra_Oper = ' + Cast(@Sifra_Oper_Oper as varchar(10)) + ' '

If @KojDatum = 'D'
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
END
ELSE If @KojDatum = 'I'
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Isporaka >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Dat_Isporaka <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    --if @ZaProverka = 'D'
    --    Set @SSQL = @SSQL + ' And (D.Stat_Dok_Nar <> ''P'' or D.Stat_Dok_Nar is null) '
    --else if @ZaProverka = 'P'
    --    Set @SSQL = @SSQL + ' And D.Stat_Dok_Nar = ''P'' '


END
ELSE If @KojDatum = 'P'
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '

    if @ZaProverka = 'D'
        Set @SSQL = @SSQL + ' And (D.Stat_Dok_Nar <> ''P'' or D.Stat_Dok_Nar is null) '
    else if @ZaProverka = 'P'
        Set @SSQL = @SSQL + ' And D.Stat_Dok_Nar = ''P'' '


END
ELSE
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    if @ZaProverka = 'P'
        Set @SSQL = @SSQL + ' And D.Stat_Dok_Nar = ''P'' '
END

    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    If @BezPrevoznik = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
    Else If @BezPrevoznik = 'N'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    IF @Sifra_Pat IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
    IF @NePecFisc IS NOT NULL AND @NePecFisc='D'    --dod.samo za pec.na fisc+Promena na kasa
        Set @SSQL = @SSQL + ' And (D.Pec_Fisc IS NULL OR D.Pec_Fisc=0) AND D.Broj_Nal IS NULL '
    IF @BezKasiP='D'    --dod.14.11.06
        SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT DokrID FROM KasStav WHERE DokrID IS NOT NULL) '
    IF @BezStornirani = 'D'
        SET @SSQL = @SSQL + ' AND D.DokrID NOT IN (SELECT Dokr_ID_Orig FROM DokrStorno)
                              AND D.DokrID NOT IN (SELECT Dokr_ID_Storno FROM DokrStorno)'
    If @KDrugo1 Is Not Null
        Set @SSQL = @SSQL + ' And K1.Sifra_1K = ' + Cast(@KDrugo1 as varchar(6)) + ' '
    IF @Sifra_Reg IS NOT NULL
        Set @SSQL = @SSQL + ' And Reg.Sifra_Reg = '+cast(@Sifra_Reg as varchar(5)) +' '
    IF @Sifra_Grad IS NOT NULL
        Set @SSQL = @SSQL + ' And GR.Sifra_Grad = '+cast(@Sifra_Grad as varchar(5)) +' '

    IF @SifGrOrgIsporaka IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Za_Org In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @SifGrOrgIsporaka +''') '

    IF @SamoNeRealizirani ='D'
            Set @SSQL = @SSQL + ' And (NRD.Realiziran is null OR NRD.Realiziran <>''D'') '


    Set @SSQL = @SSQL + ' Group by D.Datum_Nar, D.Sifra_OE, D.Sifra_Nar, D.Broj_Nar, D.DokrID, D.Datum_Vnes,
        D.Sifra_Kup,'+ @SQLOPISGR +' K.ImeKup, K.Adresa, D.Sifra_Obj, OB.ImeObj, D.Toc200, (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End),
        D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, G.ImeGrad, K1.Ime_1K, D.NarID,D.Rok, Reg.Sifra_reg, N.OdiVo_Sifra_Dok,N.OdiVo_Sifra_Oe ,N.DaliDev,TMP.Podelena , TMP.Aktiven, TD.Sifra_Za,
    D.Sifra_Oper_Oper, Oper.Ime_Oper '

    if @KojDatum = 'P' or @KojDatum = 'I'
        Set @SSQL = @SSQL + ', DD.Sifra_Oe, DD.Sifra_Dok, DD.Broj_Dok, NRD.Realiziran '

    IF @KojDatum = 'I'
        Set @SSQL = @SSQL + ', D.Dat_Isporaka, D.Sifra_Za_Dok '
    else IF @KojDatum = 'P'
        Set @SSQL = @SSQL + ', D.Sifra_Za_Dok, D.Sifra_Za_Org, D.Sifra_Za_Prim, D.Dat_Isporaka '
    else if @KojDatum = 'N'
        Set @SSQL = @SSQL + ', D.Sifra_Za_Dok '

    If @Podred='D'
        Set @SSQL = @SSQL + ' Order By D.Sifra_Oe, D.Sifra_Nar, D.Broj_Nar '
    ELSE If @Podred='P'
        Set @SSQL = @SSQL + ' Order By D.Sifra_Pat, D.Sifra_Oe, D.Sifra_NAr, D.Broj_Nar '
    ELSE If @Podred='V'
        Set @SSQL = @SSQL + ' Order By D.Datum_Vnes DESC '
    ELSE
        Set @SSQL = @SSQL + ' Order By G.ImeGrad, K.ImeKup, D.Broj_Nar '
--print @SSQL
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_edmeri]'))
drop procedure [dbo].[sp_pregl_edmeri]

Go

create PROCEDURE [dbo].[sp_Pregl_EdMeri]
    @Sifra_Kup     Varchar(10) = Null,
    @Sifra_Obj    smallint = Null

AS

    select *
    from EdMeriList

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_fakturi]'))
drop procedure [dbo].[sp_pregl_fakturi]

Go

CREATE    PROCEDURE [dbo].[sp_Pregl_Fakturi]
    @Godina    smallint=NUll,
    @Mesec    smallint=Null,
    @Sifra_PodrSluzba    char(4)=Null,
    @Faktura_Br    char(6)=Null
AS
DECLARE @SSQL as varchar(2000)
DECLARE @SSQLUsl as varchar(1000)
SET @SSQLUsl=''
IF @Godina IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Godina_Fra='+Cast(@Godina as char(4))
IF @Mesec IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Mesec_Fra='+Cast(@Mesec as char(2))
IF @Sifra_PodrSluzba IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Sifra_PodrSluzba_Fakt='''+@Sifra_PodrSluzba+''' '

CREATE TABLE #TmpRec
(Godina_Fra    smallint,
 Faktura_Br    char(6),
 BrRecepti    int
)

SET @SSQL = 'SELECT R.Godina_Fra, R.Faktura_Br, COUNT(R.Sifra_Art) FROM Recepti R
INNER JOIN Faktura F ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br
WHERE 1=1 '+@SSQLUsl + ' GROUP BY R.Godina_Fra, R.Faktura_Br'
INSERT INTO #TmpRec EXEC(@SSQL)

SET @SSQL= 'SELECT F.*, P.ImePodrSluzba, R.BrRecepti,
        case when F.SpecLek = ''D'' then ''1'' else ''0'' end Specifika,
    SUM(S.NabVr_BezDDV) Iznos_Tender, SUM(S.Iznos_Marza) Iznos_Marza, SUM(S.Osnovica_DDV) Osnov_DDV,
    SUM(S.Iznos_DDV) Iznos_Na_DDV, SUM(S.Vk_Iznos) Iznos_So_DDV, SUM(S.Vk_PresmParticip) Iznos_Partic,
        SUM(S.Vk_ZaNaplata) Vk_ZaNaplata,
    SUM(S.Vk_Partic) Napl_Partic
    FROM Specifikacii S INNER JOIN Faktura F ON S.Godina_Fra=F.Godina_Fra AND S.Faktura_Br=F.Faktura_Br
    INNER JOIN PodracniSluzbi P ON F.Sifra_PodrSluzba_Fakt=P.Sifra_PodrSluzba
    INNER JOIN #TmpRec R ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br WHERE 1=1 '
SET @SSQL = @SSQL + @SSQLUsl + ' GROUP BY F.Godina_Fra, F.Faktura_Br, F.Mesec_Fra, F.Datum_Fra, F.Sifra_PodrSluzba_Fakt, P.ImePodrSluzba, R.BrRecepti,
                                          F.SpecLek, F.Stranski, F.Str_Drzava
 ORDER BY F.Godina_Fra, Cast(F.Faktura_Br as int)'
--print @ssql

EXEC (@SSQL)

















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_fakturi_grpspec]'))
drop procedure [dbo].[sp_pregl_fakturi_grpspec]

Go




CREATE     PROCEDURE [dbo].[sp_Pregl_Fakturi_GrpSpec]
    @Godina    smallint=NUll,
    @Mesec    smallint=Null,
    @Sifra_PodrSluzba    char(4)=Null,
    @Faktura_Br    char(6)=Null
AS
DECLARE @SSQL as varchar(2000)
DECLARE @SSQLUsl as varchar(1000)
SET @SSQLUsl=''
IF @Godina IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Godina_Fra='+Cast(@Godina as char(4))
IF @Mesec IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Mesec_Fra='+Cast(@Mesec as char(2))
IF @Sifra_PodrSluzba IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Sifra_PodrSluzba_Fakt='''+@Sifra_PodrSluzba+''' '
If @Faktura_Br Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Faktura_Br = ''' + @Faktura_Br + ''' '
CREATE TABLE #TmpRec
(Godina_Fra    smallint,
 Faktura_Br    char(6),
 BrRecepti    int,
 Specif_Br    char(6),
)

SET @SSQL = 'SELECT R.Godina_Fra, R.Faktura_Br, COUNT(R.Sifra_Art), R.Specif_Br FROM Recepti R
INNER JOIN Faktura F ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br
WHERE 1=1 '+@SSQLUsl + ' GROUP BY R.Godina_Fra, R.Faktura_Br, R.Specif_Br'
INSERT INTO #TmpRec EXEC(@SSQL)

SET @SSQL= 'SELECT F.*, P.ImePodrSluzba, R.BrRecepti,
        case when F.SpecLek = ''D'' then ''1'' else ''0'' end Specifika,
    SUM(S.NabVr_BezDDV) Iznos_Tender, SUM(S.Iznos_Marza) Iznos_Marza, SUM(S.Osnovica_DDV) Osnov_DDV,
    SUM(S.Iznos_DDV) Iznos_Na_DDV, SUM(S.Vk_Iznos) Iznos_So_DDV, SUM(S.Vk_PresmParticip) Iznos_Partic,
    SUM(S.Vk_ZaNaplata) Vk_ZaNaplata,
    SUM(S.Vk_Partic) Napl_Partic,
    S.Specif_Br, S.Spc_Specif
    FROM Specifikacii S
    INNER JOIN Faktura F ON S.Godina_Fra=F.Godina_Fra AND S.Faktura_Br=F.Faktura_Br
    INNER JOIN PodracniSluzbi P ON F.Sifra_PodrSluzba_Fakt=P.Sifra_PodrSluzba
    INNER JOIN #TmpRec R ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br AND R.Specif_Br=S.Specif_Br WHERE 1=1 '


SET @SSQL = @SSQL + @SSQLUsl + ' GROUP BY F.Godina_Fra, F.Faktura_Br, F.Mesec_Fra, F.Datum_Fra, F.Sifra_PodrSluzba_Fakt, P.ImePodrSluzba, R.BrRecepti,
                                          F.SpecLek, F.Stranski, S.Specif_Br, S.Spc_Specif, F.Str_Drzava
 ORDER BY F.Godina_Fra, Cast(F.Faktura_Br as int), Cast(S.Specif_Br as int) '
--print @ssql

EXEC (@SSQL)


















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_fiizvestaj]'))
drop procedure [dbo].[sp_pregl_fiizvestaj]

Go


CREATE   PROCEDURE sp_Pregl_FiIzvestaj
    @FiID    smallint = Null
AS
    Declare @SSQL as varchar(2000)
    Set @SSQL = 'Select FT.FiId, FT.Ime, FT.Ime2, FT.Kto_Anal_Raspr, FT.Kto_Anal,
        FS.RbrFi, FS.Opis, FS.Sifra_Oe, FS.Sifra_GrOrg, FS.OdKade, FS.Znak,
        FK.Kto_Anal Kto_AnalFK, FK.Egzaktno_Kto, FK.TekPocVk, FK.D_P_SD_SP, FK.Raspredelba, FK.Znak ZnakFK,
        FZ.OdRbrFi, FZ.Znak ZnakFZ
    From FiTabela FT
    Left Outer Join FiStavki FS On FS.FiID=FT.FiID
    Left Outer Join FiKonta FK On FS.FiID = FK.FiID and Fk.RbrFi=FS.RbrFi and FS.OdKade = ''K''
    Left Outer Join FiZbir FZ On FS.FiID = FZ.FiID and FZ.RbrFi=FS.RbrFi and FS.OdKade = ''Z'' '
    If @FiId Is Not Null
         Set @SSQL = @SSQL + ' Where FT.FiID= ' + cast(@FiID as varchar(5))
    Set @SSQL = @SSQL + ' ORDER BY FS.FiID, FS.RbrFi '
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_fiskprom]'))
drop procedure [dbo].[sp_pregl_fiskprom]

Go

CREATE   PROCEDURE [dbo].[sp_Pregl_FiskProm]
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @KoiOE    varchar(300) = NULL,
    @PoFiscAnal    char(1) = 'F'        -- F - po Fiskalen promet     A - po Analitika      Z - Po fiskalen promet + promet po Analitika
AS
    Declare @SSQL as Varchar(4000)
    If @PoFiscAnal = 'A'
    Begin
        Set @SSQL = ' Select S.Sifra_Oe, O.ImeOrg, S.Datum_Dok,
                Sum(S.Kolic*(Case When S.DanDokCena=''N'' Then S.DokCena * (1+Posn/100) Else S.DokCena End) * (1-S.Uces/100)) as Tar1,
                0 as Tar2, 0 as Tar0,
                0 as Gotovina, 0 as Cek, 0 as Kredit,
                Null as Posn1, Null as Posn2, null as BrKasa, Null PromPoAnal, 0 Predaden1
                From Stavr S
                Inner Join Orged O On O.Sifra_Oe = S.Sifra_Oe
                Where S.Sifra_Dok in (100,101) '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe IN (' + @KoiOe + ') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
        Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, O.ImeOrg, S.Datum_Dok '
    End
    Else If @PoFiscAnal = 'Z'
    Begin
        Create Table #PromAnalitika
        (
         Sifra_Oe    smallint,
         Datum_Dok    smalldatetime,
         Promet        decimal(18,6)
        )
        Set @SSQL = ' Select S.Sifra_Oe, S.Datum_Dok,
                Sum(S.Kolic*(Case When S.DanDokCena=''N'' Then S.DokCena * (1+Posn/100) Else S.DokCena End) * (1-S.Uces/100)) as Promet
                From Stavr S
                Inner Join Orged O On O.Sifra_Oe = S.Sifra_Oe
                Where S.Sifra_Dok in (100,101) '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOe Is Not Null
            Set @SSQL = @SSQL + ' And S.Sifra_Oe IN (' + @KoiOe + ') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And S.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And S.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
        Set @SSQL = @SSQL + ' Group By S.Sifra_Oe, S.Datum_Dok '
        Insert Into #PromAnalitika Exec(@SSQL)
        Set @SSQL = ' Select F.Sifra_Oe, O.ImeOrg, F.Datum_Dok, Sum(F.Tar1) Tar1, Sum(F.Tar2) Tar2, Sum(F.Tar0) Tar0, Sum(F.Gotovina) Gotovina,
                    Sum(F.Cek) Cek, Sum(F.Kredit) Kredit, Null Posn1, Null Posn2, Null BrKasa, P.Promet PromPoAnal,
                    sum(case when F.Predadeno is null then 0 else F.Predadeno end) Predaden1
                From FiskProm F
                Inner Join Orged O On O.Sifra_Oe = F.Sifra_Oe
                Left Outer Join #PromAnalitika P On P.Sifra_Oe=F.Sifra_Oe And P.Datum_Dok=F.Datum_Dok
                Where 1 = 1 '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And F.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOe Is Not Null
            Set @SSQL = @SSQL + ' And F.Sifra_Oe IN (' + @KoiOe + ') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And F.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And F.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
        Set @SSQL = @SSQL + ' Group By F.Sifra_Oe, O.ImeOrg, F.Datum_Dok, P.Promet
                      Order By F.Sifra_Oe, F.Datum_Dok'
    End
    Else  If @PoFiscAnal = 'F'
    Begin
        Set @SSQL = ' Select F.Sifra_Oe, O.ImeOrg, F.Datum_Dok, F.Tar1, F.Tar2, F.Tar0, F.Gotovina, F.Cek, F.Kredit, F.Posn1, F.Posn2, F.BrKasa, Null PromPoAnal,
                    Danok1, Danok2, Promet, Predadeno, POcetno, OstVoKasa, Dr_Izlezi, 0 Predaden1
                From FiskProm F
                Inner Join Orged O On O.Sifra_Oe = F.Sifra_Oe
                Where 1 = 1 '
        If @Sifra_Oe Is Not Null
            Set @SSQL = @SSQL + ' And F.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
        If @KoiOe Is Not Null
            Set @SSQL = @SSQL + ' And F.Sifra_Oe IN (' + @KoiOe + ') '
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And F.Datum_Dok >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And F.Datum_Dok <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    End
    Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_ispeclok]'))
drop procedure [dbo].[sp_pregl_ispeclok]

Go
CREATE PROCEDURE sp_Pregl_IspecLok
    @Sifra_Oe    smallint,
    @Sifra_Nar     smallint,
    @Broj_NarOd     int,
    @Broj_NarDo     int,
    @Datum_NarOd    smalldatetime,
    @Datum_NarDo    smalldatetime,
    @Sifra_Kup    char(6),
    @VlIzl        char(1),
    @Lokacija     char(10)
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL = ' Select N.Sifra_OE, N.Sifra_Nar, N.Broj_Nar, N.Identif_Br, N.Sifra_Kup, N.Sifra_Obj, N.Datum_Nar,
                 I.Lokacija, I.IspecNa, N.Datum_Vnes, N.Datum_Izm, Kup.ImeKup, KO.ImeObj, N.Ispecaten, N.IzmenetPoslePec
            From Naracki N
            Left Outer Join IspecLok I On I.Sifra_Oe=N.Sifra_Oe and N.Sifra_Nar=I.Sifra_Nar and N.Broj_Nar=I.Broj_Nar
            INNER JOIN TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
            Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
            Left Outer Join Kobjekti KO On KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
            Where 1=1 '
    If @VlIzl = 'V'
        Set @SSQL = @SSQL + ' And TN.VlIzl = ''V'' '
    Else If @VlIzl = 'I'
        Set @SSQL = @SSQL + ' And TN.VlIzl = ''I'' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Nar Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar = ' + cast(@Sifra_Nar as varchar(10)) + ' '
    If @Broj_NarOd Is Not Null
        Set @SSQL = @SSQL + ' And N.Broj_Nar >= ' + cast(@Broj_NarOd as varchar(10)) + ' '
    If @Broj_NarDo Is Not Null
        Set @SSQL = @SSQL + ' And N.Broj_Nar <= ' + cast(@Broj_NarDo as varchar(10)) + ' '
    If @Datum_NarOd Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + cast(@Datum_NarOd as varchar(30)) + ''' '
    If @Datum_NarDo Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + cast(@Datum_NarDo as varchar(30)) + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Kup = ' + @Sifra_Kup + ' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' And I.Lokacija = ''' + @Lokacija + ''' '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_karakt]'))
drop procedure [dbo].[sp_pregl_karakt]

Go

create PROCEDURE sp_Pregl_Karakt

AS

    Select *
    From Karakterist
    order by ImeKarakt




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_kartkor_komint]'))
drop procedure [dbo].[sp_pregl_kartkor_komint]

Go

CREATE  PROCEDURE sp_Pregl_KartKor_Komint
    @Sifra_Kup    char(6) = Null,
    @KoiKart    char(1) = 'S'    -- S - Site   D - Aktivni,   N - Neaktivni
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select K.Sifra_Kup, Kup.ImeKup, K.Sifra_TipKartKor, KK.ImeKartKor, Count(*) KolkuKart, Kup.Adresa, Kup.Telefon
            From KartKor K
            Inner Join Komint Kup On Kup.Sifra_Kup = K.Sifra_Kup
            Left Outer Join TipKartKor KK On KK.Sifra_TipKartKor=K.Sifra_TipKartKor
            Where 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @KoiKart = 'D'
        Set @SSQL = @SSQL + ' And (K.Aktiven <> ''N'' Or K.Aktiven Is Null) '
    Else If @KoiKart = 'N'
        Set @SSQL = @SSQL + ' And K.Aktiven = ''N'' '
    Set @SSQL = @SSQL + ' Group By K.Sifra_Kup, Kup.ImeKup, K.Sifra_TipKartKor, KK.ImeKartKor, Kup.Adresa, Kup.Telefon '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_kasov]'))
drop procedure [dbo].[sp_pregl_kasov]

Go






CREATE         PROCEDURE sp_Pregl_Kasov
    @Sifra_Nal    int,
    @TipBlag    char(3)=NULL,    --dod.11.10.07
    @Broj_Dok    int,
    @Broj_DokDo    int,    -- dod 01.08.06 za pecat. kasi od/do
    @P_I        char(1)  -- Kasa Primi ili Isplati  P ili I
AS
Declare @SSQL varchar(2000)
SET @SSQL='Select K.Broj_dok, K.Sifra_Nal, K.Broj_Nal, K.Dod_Datum, K.P_I, K.Kto_Anal, K.Dolzi, K.Pobaruva, K.Lice, K.SMesto,
           K.Opis, K.Opis2, K.Sifra_Kup, KUP.ImeKup, K.KojaVal,V.ImeVal, K.Kurs, K.Dev_Dolzi, K.Dev_Pobar,
           K.Datum_Vnes, K.KasaGrupa, K.Sifra_Oe, N.ImeNac, K.TipBlag, K.Kto_Osnovica
    From KasStav K
    Left Outer Join Komint KUP On K.Sifra_Kup=KUP.Sifra_Kup
    Left Outer Join KrsLista V ON K.KojaVal=V.SImeVal
    LEFT OUTER JOIN NacPlak N ON K.Sifra_Nac=N.Sifra_Nac
    Where K.Sifra_Nal='+cast(@Sifra_Nal as varchar(5))+' and K.Broj_Dok>='+cast(@Broj_Dok as varchar(8))+
    ' and K.Broj_Dok<='+cast(@Broj_DokDo as varchar(8))+' and  K.P_I='''+@P_I+''' '
IF @TipBlag IS NOT NULL
    SET @SSQL=@SSQL+' AND TipBlag='''+@TipBlag+''' '
EXEC (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_katart_kratok]'))
drop procedure [dbo].[sp_pregl_katart_kratok]

Go

CREATE      PROCEDURE sp_Pregl_Katart_Kratok
    @SIFRA_ART Varchar(20)
AS
    SELECT [KATART].[IMEART],
           ISNULL([KATART].[EDMERA],'') AS Edmera,
           [KATART].[SIFRA_PODG],
           [PODGRUPI].[IME_PODG],
           [KATART].[SIFRA_TAR],
           [TARIFI].[PROCOSN],
           ISNULL([KATART].[LOKACIJA],'') AS Lokacija,
           ISNULL([KATART].[KTO],'') AS Kto,
           ISNULL([KOMINT].[IMEKUP],'') AS ImeKup,
           ISNULL([KATART].[NOM],'') AS Nom,
           ISNULL([KATART].[SMATUSL],'') AS SMatUsl,
           ISNULL([KATART].[PROC_MARZA],0.00) AS Proc_Marza,
           ISNULL([KATART].[SMin_Sost],0.00) As SMin,
           ISNULL([KATART].[SMax_Sost],0.00) As SMax,
           ISNULL([KATART].[SOpt_Sost],0.00) As SOpt,
           ISNULL([KATART].[PopusMar],'') AS PopusMark,
           [KATART].[CARBROJ],  [CBROEVI].[IME], [CBROEVI].[STAPKA],
               [KATART].[IMABROEVI], [KATART].[IMAKOMERC], [KATART].[TEZINA], [KATART].[BTEZINA], [KATART].[RokKontrDali]
    FROM   [KATART]
    LEFT OUTER JOIN [PODGRUPI] ON [KATART].[SIFRA_PODG]=[PODGRUPI].[SIFRA_PODG]
    LEFT OUTER JOIN [KOMINT] ON [KATART].[KTO]=[KOMINT].[SIFRA_KUP]
    LEFT OUTER JOIN [CBROEVI] ON [CBROEVI].[CARBROJ] = [KATART].[Carbroj]
    INNER JOIN [TARIFI] ON [KATART].[SIFRA_TAR] = [TARIFI].[SIFRA_TAR]
    WHERE  [KATART].[SIFRA_ART] = @SIFRA_ART
RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_komintenti]'))
drop procedure [dbo].[sp_pregl_komintenti]

Go

CREATE          PROCEDURE sp_Pregl_Komintenti
    @Komint_Od Varchar(10),
    @Komint_Do Varchar(10),
    @Podelba1 Smallint= Null,
    @Podelba2 Smallint= Null,
    @Podelba3 Smallint = Null,
    @Podelba4 Smallint = Null,
    @Podelba5 Smallint = Null,
    @Podelba6 Smallint = Null,
    @Podelba7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Grad Smallint= Null,
    @Podred Char(1) = 'S',
    @Patnik    Smallint = Null,
    @Patnik2    Smallint = Null,
    @TipKup    varchar(11)=Null,
    @KojaCena    char(1) = Null,
    @Sifra_reg    smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @Aktiven    Char(1) = Null,
    @MozeIsporaka    Char(1) = Null,
    @Patnik_OdKomintPat char(1)='N', --ova ne go pustaj na D ne e dopraeno
    @Sifra_VPJ    smallint = Null,
    @DatumIzm_Od    smalldatetime = NULL,
    @DatumIzm_Do    smalldatetime = NULL
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQLUsl = ' '
    Set @SSQL = ' Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, Kup.Adresa, Kup.Adresa2, Kup.SMesto, Kup.Posta, Kup.Zemja, Kup.ImaObj, Kup.IspAdresa, Kup.IspAdresa2,
            Kup.IspMesto, Kup.IspPosta, Kup.IspZemja, Kup.Telefon, Kup.Tel1, Kup.Tel2, Kup.TelMobil, Kup.Fax, Kup.Telex, Kup.EMail, Kup.AdrWeb, Kup.Sopstvenik, Kup.LK,
            Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, Kup.KONTAKT, Kup.Prenesen, Kup.ForsUces, Kup.Limit_Dolzi, Kup.Prioritet,
            Kup.Sifra_Pat, P.ImePat,
            Kup.Sifra_Grad, G.ImeGrad,
            Kup.TipKup, TK.ImeTipKup,
            Kup.Sifra_reg, R.ImeRegion,
            Kup.Sifra_Nivo, N.ImeNivo,
            Kup.Sifra_Tip, T.ImeTip,
            Kup.KDrugo1, D1.Ime_1K,
            Kup.KDrugo2, D2.Ime_2K,
            Kup.KDrugo3, D3.Ime_3K,
            Kup.KDrugo4, D4.Ime_4K,
            Kup.KDrugo5, D5.Ime_5K,
            Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, Kup.Zabeleska, Kup.Aktiven, Kup.BrProdMesta,
            Kup.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa, Kup.DogovorBroj,
            Kup.MozeIsporaka, Kup.Garancija, Kup.Propagiraj, Kup.MatBr, '
    IF @Patnik_OdKomintPat = 'D'
        Set @SSQL = @SSQL + ' Null Sifra_Pat2, '''' ImePat2, '
    ELSE
        Set @SSQL = @SSQL + 'Kup.Sifra_Pat2, P2.ImePat as ImePat2, '
    Set @SSQL = @SSQL + 'Kup.Sopst_Adr, Kup.Sopst_Mesto, '''' as Prikazi, Kup.m2
            From Komint Kup '
    IF @Patnik_OdKomintPat = 'D'
    Set @SSQL = @SSQL + 'Left Outer Join KomintPat KP On KP.Sifra_Kup=Kup.Sifra_Kup AND KP.Sifra_Obj IS NULL
            Left Outer Join Patnici P On P.Sifra_Pat=KP.Sifra_Pat '
    ELSE
    Set @SSQL = @SSQL + 'Left Outer Join Patnici P On P.Sifra_Pat=Kup.Sifra_Pat
            Left Outer Join Patnici P2 On P2.Sifra_Pat=Kup.Sifra_Pat2 '
    Set @SSQL = @SSQL + 'Left Outer Join Grad G On G.Sifra_Grad=Kup.Sifra_Grad
            Left Outer Join GRegion R On R.Sifra_Reg=Kup.Sifra_reg
            Left Outer Join GTipKup TK On TK.TipKup=Kup.TipKup
            Left Outer Join Nivo N  On N.Sifra_Nivo=Kup.Sifra_Nivo
            Left Outer Join TipKomint T On T.Sifra_Tip=Kup.Sifra_Tip
            Left Outer Join KDrugo1 D1 On D1.Sifra_1K=Kup.KDrugo1
            Left Outer Join KDrugo2 D2 On D2.Sifra_2K=Kup.KDrugo2
            Left Outer Join KDrugo3 D3 On D3.Sifra_3K=Kup.KDrugo3
            Left Outer Join KDrugo4 D4 On D4.Sifra_4K=Kup.KDrugo4
            Left Outer Join KDrugo5 D5 On D5.Sifra_5K=Kup.KDrugo5
            Where 1=1 '
    If @Komint_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '
    If @Komint_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup<=''' + @Komint_Do + ''' '
    If @Podelba1 Is Not NULL
        If @KFPod1 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or Kup.KDrugo1 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not NULL
        If @KFPod2 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo2<>' + Cast(@Podelba2 As Varchar(10)) + ' Or Kup.KDrugo2 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not NULL
        If @KFPod3 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo3<>' + Cast(@Podelba3 As Varchar(10)) + ' Or Kup.KDrugo3 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not NULL
        If @KFPod4 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo4<>' + Cast(@Podelba4 As Varchar(10)) + ' Or Kup.KDrugo4 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not NULL
        If @KFPod5 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo5<>' + Cast(@Podelba5 As Varchar(10)) + ' Or Kup.KDrugo5 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
    If @Podelba6 Is Not NULL
        If @KFPod6 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo6<>' + Cast(@Podelba6 As Varchar(10)) + ' Or Kup.KDrugo6 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo6=' + Cast(@Podelba6 As Varchar(10)) + ' '
    If @Podelba7 Is Not NULL
        If @KFPod7 = 'D'
            Set @SSQLUsl = @SSQLUsl + 'And (Kup.KDrugo7<>' + Cast(@Podelba7 As Varchar(10)) + ' Or Kup.KDrugo7 Is Null) '
        Else
            Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo7=' + Cast(@Podelba7 As Varchar(10)) + ' '
/*
    If @Podelba1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
*/
    If @Sifra_Tip Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
    If @Sifra_VPJ Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_VPJ=' + Cast(@Sifra_VPJ As Varchar(10)) + ' '
    If @Grad Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Grad=' + Cast(@Grad As Varchar(10)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Reg=' + Cast(@Sifra_Reg As Varchar(10)) + ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @MozeIsporaka = 'N'
        Set @SSQLUsl = @SSQLUsl + 'And Kup.MozeIsporaka = ''N'' '
    Else If @MozeIsporaka = 'D'
        Set @SSQLUsl = @SSQLUsl + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
    If @Sifra_Nivo Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    IF @Patnik_OdKomintPat = 'D'
        If @Patnik Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And KP.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
    ELSE
    Begin
        If @Patnik Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
        If @Patnik2 Is Not Null
            Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Pat2=' + Cast(@Patnik2 As Varchar(10)) + ' '
    End
    If @TipKup Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.TipKup=''' + @TipKup + ''' '
    If @KojaCena Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KojaCena =''' + @KojaCena + ''' '
    If @Aktiven = 'N'
        Set @SSQLUsl = @SSQLUsl + 'And (Kup.Aktiven = ''N'') '
    Else If @Aktiven = 'D'
        Set @SSQLUsl = @SSQLUsl + 'And (Kup.Aktiven <> ''N'' or Kup.Aktiven Is Null) '
    IF @DatumIzm_Od IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' AND (Kup.DodadenNa>=''' +cast(@DatumIzm_Od as varchar(35))+''' OR Kup.IzmenetNa>=''' +cast(@DatumIzm_Od as varchar(35))+ ''' )'
    IF @DatumIzm_Do IS NOT NULL
        Set @SSQLUsl = @SSQLUsl + ' AND (Kup.DodadenNa<=''' +cast(@DatumIzm_Do as varchar(35))+''' OR Kup.IzmenetNa<=''' +cast(@DatumIzm_Do as varchar(35))+ ''' )'
    If @Podred Is Null Or @Podred='S'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.Sifra_Kup '
    Else If @Podred='I'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.ImeKup '
    Else If @Podred='G'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.Sifra_Grad '
    Exec(@SSQL+@SSQLUsl)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_layout_podob]'))
drop procedure [dbo].[sp_pregl_layout_podob]

Go


CREATE  PROCEDURE [dbo].[sp_Pregl_LayOut_PoDob]
    @Kto    char(6) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select K.Kto, Kup.ImeKup, K.Sifra_LayOutUnit, L.Ime_LayOutUnit
            From Katart K
            Left Outer Join Komint Kup On Kup.Sifra_Kup = K.Kto
            Left Outer Join LayOutUnit L On L.Sifra_LayOutUnit=K.Sifra_LayOutUnit
            Where 1=1 '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    Set @SSQL = @SSQL + ' Group By K.Kto, Kup.ImeKup, K.Sifra_LayOutUnit, L.Ime_LayOutUnit '
    Print(@SSQL)
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_log]'))
drop procedure [dbo].[sp_pregl_log]

Go


CREATE    PROCEDURE sp_Pregl_Log
    @ImeLog    varchar(20),
    @Koga        datetime,
    @DoKoga        datetime = NULL
AS
    Declare @DoKoga1 datetime
    IF @DoKoga IS NULL
        Set @DoKoga1 = DateADD(second, 1, @Koga)
    Else
        Set @DoKoga1 = @DoKoga
    SELECT *
    FROM OpstLog
    WHERE ImeLog = @ImeLog AND Koga >= @Koga AND Koga <= @DoKoga1
    ORDER BY Koga, LogID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_log_detal]'))
drop procedure [dbo].[sp_pregl_log_detal]

Go


CREATE    PROCEDURE sp_Pregl_Log_Detal
    @ImeLog    varchar(20) = NULL,
    @Koga    Smalldatetime = NULL,
    @DoKoga    Smalldatetime = NULL
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'SELECT * FROM OpstLog WHERE 1=1 '
    If @ImeLog IS NOT NULL
        Set @SSQL = @SSQL + 'AND ImeLog = ''' + @ImeLog + ''' '
    If @Koga IS NOT NULL
        Set @SSQL = @SSQL + ' AND Koga >= ''' + Cast(@Koga as varchar(35)) + ''' '
    If @DoKoga IS NOT NULL
        Set @SSQL = @SSQL + ' AND Koga < ''' + Cast(DateAdd(Day, 1, @DoKoga)  as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' ORDER BY Koga'
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nabceni]'))
drop procedure [dbo].[sp_pregl_nabceni]

Go
CREATE       PROCEDURE sp_Pregl_NabCeni
    @Tip_Podr char(1) = Null,
    @Sifra_Od varchar(12) = Null,
    @Sifra_Do varchar(12) = Null,
    @Kto char(6) = Null,
    @Sifra_Gr varchar(6) = Null,
    @Sifra_Podg char(6) = Null,
    @Lokacija varchar(10) = Null,
    @Sifra_Tar char(3) = Null,
    @Sifra_Brand Smallint = Null,
    @Sifra_ZBrand Smallint = Null,
    @Datum_Do Smalldatetime,
    @IskluciKup   varchar(200) = '660663, 660660, 021000',
    @GrOrgEdZaNabCeni Char(6) = Null,
--    @OrgEdZaNabCeni smallint = 100,    -- GK ke go fiksiram za OE od 500 do 600 za Tinex Magi
    @TipDokPriem    smallint = 1                    --1
AS
    Declare @SSQL   Varchar(8000)
    Set @SSQL = 'SELECT K.Sifra_Art, K.ImeArt, K.EdMera, K.Nabavna FROM KatArt K '
    If @Sifra_Gr Is Not NULL
        Set @SSQL=@SSQL+'INNER JOIN Podgrupi P ON K.Sifra_Podg=P.Sifra_Podg '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+'WHERE K.SMatUsl = ''M'' '
    If @Sifra_Od IS NOT NULL
        Set @SSQL = @SSQL + 'AND K.Sifra_Art>=' + @Sifra_Od + ' '
    If @Sifra_Do IS NOT NULL
        Set @SSQL = @SSQL + 'AND K.Sifra_Art<=' + @Sifra_Do + ' '
    If @Sifra_Brand Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
    If @Kto Is Not Null
        Set @SSQL=@SSQL+'AND (K.Kto='''+@Kto+''') '
    If @Sifra_Gr Is Not Null
        Set @SSQL=@SSQL+'AND (P.Sifra_Gr='''+@Sifra_Gr+''') '
    If @Sifra_Podg Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Podg='''+@Sifra_Podg+''') '
    If @Lokacija Is Not Null
        Set @SSQL=@SSQL+'AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    If @Sifra_Tar Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
    CREATE TABLE #PrometArt
    ( Sifra_Art  varchar(20),
      ImeArt  varchar(40),
      EdMera  varchar(5),
      Cena Decimal(18,4),
      ProdCena Decimal(18,4),
      Nabavna  Decimal(18,4)
    )
    INSERT INTO #PrometArt (Sifra_Art, ImeArt, EdMera, Nabavna)  EXEC(@SSQL)
    CREATE TABLE #CeniArtN
    ( Sifra_Art  varchar(20),
      Datum smalldatetime,
      DokID  int )
    CREATE TABLE #CeniDat
    ( Sifra_Art  varchar(12),
      Datum smalldatetime )
    Set @SSQL = 'SELECT S.Sifra_art, max(S.Datum_Dok) Datum  FROM Stavr S
            INNER JOIN #PrometArt P ON P.Sifra_Art = S.Sifra_Art '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    Set @SSQL = @SSQL + ' WHERE S.Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) +
        ''' AND S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '')
        AND S.Sifra_Dok = '+Cast(@TipDokPriem as varchar(3)) + ' And  S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @GrOrgEdZaNabCeni + ''') ' -- -- + Cast(@OrgEdZaNabCeni as varchar(4)) +
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art '
    INSERT INTO #CeniDat EXEC (@SSQL)
    Set @SSQL = 'SELECT S.Sifra_art, S.Datum_Dok, max(S.DokID) DokID FROM Stavr S
            INNER JOIN #CeniDat C ON S.Sifra_Art = C.Sifra_Art AND S.Datum_Dok = C.Datum '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' INNER JOIN Dokr D ON S.DokrID = D.DokrID '
    Set @SSQL = @SSQL + ' WHERE S.Kolic > 0 AND S.VlIZl = ''V'' AND (S.ImaDodatna Is NULL  OR S.ImaDodatna ='' '')
            AND S.Sifra_Dok = '+Cast(@TipDokPriem as varchar(3)) + ' And  S.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @GrOrgEdZaNabCeni + ''') '
    If @IskluciKup Is NOT NULL
        Set @SSQL = @SSQL + ' AND D.Sifra_Kup NOT IN (' + @IskluciKup + ') '
    Set @SSQL = @SSQL + ' GROUP BY S.Sifra_Art, S.Datum_Dok '
    INSERT INTO #CeniArtN EXEC (@SSQL)
    UPDATE #PrometArt
    SET    Cena = dbo.fn_VratiVredIzl(1, S.DokCena, S.DanDokCena, S.POsnPren, S.Uces, D.Kasa, 'D')
             FROM #CeniArtN C, Stavr S, Dokr D
    WHERE #PrometArt.Sifra_Art = C.Sifra_Art AND S.DokID = C.DokID AND S.DokrId = D.DokrID
    UPDATE #PrometArt
    SET Cena = S.Cena
        FROM StariNabavniC S
    WHERE #PrometArt.Sifra_Art = S.Sifra_Art AND (#PrometArt.Cena = 0 or #PrometArt.Cena IS NULL)
    UPDATE #PrometArt
    SET ProdCena = S.Cena
        FROM SoArt S
    WHERE #PrometArt.Sifra_Art = S.Sifra_Art AND S.Sifra_OE In  (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = @GrOrgEdZaNabCeni) -- ovde moze da ima poveke ceni vo soart
                                                                       -- po pravilo ako odat na vnesuvanje na ceni
                                                                       -- za grupi org.ed. treba da se isti.
    Set @SSQL = 'SELECT * FROM #PrometArt WHERE CENA > 0 '
    If @Tip_Podr='S'
        Set @SSQL=@SSQL+'ORDER BY Sifra_Art'
    Else If @Tip_Podr='A'
        Set @SSQL=@SSQL+'ORDER BY ImeArt'
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nalog_datum]'))
drop procedure [dbo].[sp_pregl_nalog_datum]

Go

CREATE         PROCEDURE sp_Pregl_Nalog_Datum
    @Sifra_Nal        Smallint,
    @Datum_Nalog_Od     smalldatetime,
    @Datum_Nalog_Do     smalldatetime,
    @Sifra_Oe        smallint,
    @Koi_Kta        varchar(300) = Null,
    @KoiOE        varchar(300) = Null,
    @SoGrOrg        char(1) = 'N'
AS
    Declare @SSQL varchar(8000)
    Set @SSQL = 'SELECT S.Sifra_nal, S.Broj_Nal, S.Datum_Nal, S.Datum_dok, dbo.fn_RbrSort(S.RbrNalog, V.RbrNalog) RbrNalog,
        S.Sifra_OE, S.Kto_Anal, A.ImeAnal, A.DaliKupuv, S.Opis, S.Dolzi SDolzi, S.Pobaruva SPobar,
        S.Dev_Dolzi SDolDev, S.Dev_Pobaruva SPobDev, V.Dev_Dolzi FDolDev, V.Dev_Pobaruva FPobDev, S.KojaVal,
        F.Sifra_kup, K.ImeKup, F.Rok, F.BrojDok, V.Dolzi FDolzi, V.Pobaruva FPobar, F.Sifra_Dok, F.Broj_Dok,
        F.Datum_Dok FDatum, F.Opis FOpis, KL.ImeVal, S.Opis2, D.Identif_Br, D.Sifra_Dok DSifra_Dok,
        D.Broj_Dok DBroj_Dok, V.DokrID, V.AnID, D.Sifra_Oe DSifra_Oe, D.Datum_Dok DDatum, D.Sifra_Prim,
        (Case When Substring(F.Opis,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(F.Opis,1,6)
                  When Substring(S.Opis,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(S.Opis,1,6)
                  When Substring(S.Opis2,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(S.Opis2,1,6)
        Else ''Drugo'' End) OpisGroup, '
    If @SoGrOrg = 'D'
        Set @SSQL = @SSQL + ' SG.Sif_GrOrg, GO.Ime_GrOrg '
    Else
        Set @SSQL = @SSQL + ' Null Sif_GrOrg, Null Ime_GrOrg '
    Set @SSQL = @SSQL + ' FROM GStav S
    INNER JOIN Anal A ON S.Kto_Anal = A.Kto_Anal
        LEFT OUTER JOIN KrsLista KL ON S.KojaVal = KL.SImeVal
        LEFT OUTER JOIN FAvtVrski V ON S.GStID = V.GStID
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = V.DokrID
    LEFT OUTER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup '
    If @SoGrOrg = 'D'
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN SGrOrg SG On SG.Sifra_Oe=S.Sifra_Oe
                      LEFT OUTER JOIN GrOrg GO On GO.Sif_GrOrg=SG.Sif_GrOrg '
    Set @SSQL = @SSQL + ' WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
                ' AND S.Datum_Nal >= ''' + cast(@Datum_Nalog_Od as varchar(30)) + '''
                  AND S.Datum_Nal <= ''' + cast(@Datum_Nalog_Do as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Kta Is Not Null
        Set @SSQL = @SSQL + ' And S.Kto_Anal In (' + @Koi_Kta + ') '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And SG.Sif_GrOrg In (' + @KoiOE + ') '
    SET @SSQL = @SSQL + ' ORDER BY S.Kto_Anal, S.Opis '
print @SSQL
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nalog_datum_divizii]'))
drop procedure [dbo].[sp_pregl_nalog_datum_divizii]

Go
CREATE        PROCEDURE sp_Pregl_Nalog_Datum_Divizii
    @Sifra_Nal        Smallint,
    @Datum_Nalog_Od     smalldatetime,
    @Datum_Nalog_Do     smalldatetime,
    @Sifra_Oe        smallint,
    @Koi_Kta        varchar(300) = Null,
    @Koi_GrOrg        varchar(300) = Null,
    @SoGrOrg        char(1) = 'N'
AS
    Declare @SSQL varchar(8000)
    Set @SSQL = 'SELECT S.Sifra_nal, S.Broj_Nal, S.Datum_Nal, S.Datum_dok, dbo.fn_RbrSort(S.RbrNalog, V.RbrNalog) RbrNalog,
        S.Sifra_OE, S.Kto_Anal, A.ImeAnal, A.DaliKupuv, S.Opis, S.Dolzi SDolzi, S.Pobaruva SPobar,
        S.Dev_Dolzi SDolDev, S.Dev_Pobaruva SPobDev, V.Dev_Dolzi FDolDev, V.Dev_Pobaruva FPobDev, S.KojaVal,
        F.Sifra_kup, K.ImeKup, F.Rok, F.BrojDok, V.Dolzi FDolzi, V.Pobaruva FPobar, F.Sifra_Dok, F.Broj_Dok,
        F.Datum_Dok FDatum, F.Opis FOpis, KL.ImeVal, S.Opis2, D.Identif_Br, D.Sifra_Dok DSifra_Dok,
        D.Broj_Dok DBroj_Dok, V.DokrID, V.AnID, D.Sifra_Oe DSifra_Oe, D.Datum_Dok DDatum, D.Sifra_Prim,
        (Case When Substring(F.Opis,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(F.Opis,1,6)
                  When Substring(S.Opis,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(S.Opis,1,6)
                  When Substring(S.Opis2,1,6) In (''kompen'', ''b.izvo'', ''cesija'') Then Substring(S.Opis2,1,6)
        Else ''Drugo'' End) OpisGroup, '
    If @SoGrOrg = 'D'
        Set @SSQL = @SSQL + ' SG.Sif_GrOrg, GO.Ime_GrOrg, '
    Else
        Set @SSQL = @SSQL + ' Null Sif_GrOrg, Null Ime_GrOrg, '
    Set @SSQL = @SSQL + ' GD.GstID, GD.AnID, GD.Dolzi DivDolzi, GD.Pobaruva DivPobaruva, GD.Sifra_Div
            FROM GStav S
            INNER JOIN Anal A ON S.Kto_Anal = A.Kto_Anal
                LEFT OUTER JOIN KrsLista KL ON S.KojaVal = KL.SImeVal
                LEFT OUTER JOIN FAvtVrski V ON S.GStID = V.GStID
            LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
            LEFT OUTER JOIN GstAnDiv GD On GD.GstID=S.GstID
            LEFT OUTER JOIN Dokr D ON D.DokrID = V.DokrID
            LEFT OUTER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup '
    If @SoGrOrg = 'D'
        Set @SSQL = @SSQL + ' LEFT OUTER JOIN SGrOrg SG On SG.Sifra_Oe=S.Sifra_Oe
                      LEFT OUTER JOIN GrOrg GO On GO.Sif_GrOrg=SG.Sif_GrOrg '
    Set @SSQL = @SSQL + ' WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
                ' AND S.Datum_Nal >= ''' + cast(@Datum_Nalog_Od as varchar(30)) + '''
                  AND S.Datum_Nal <= ''' + cast(@Datum_Nalog_Do as varchar(30)) + ''' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @Koi_Kta Is Not Null
        Set @SSQL = @SSQL + ' And S.Kto_Anal In (' + @Koi_Kta + ') '
    If @Koi_GrOrg Is Not Null
        Set @SSQL = @SSQL + ' And SG.Sif_GrOrg In (' + @Koi_GrOrg + ') '
    SET @SSQL = @SSQL + ' ORDER BY S.Kto_Anal, S.Opis '
print @SSQL
    EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nalog_suban]'))
drop procedure [dbo].[sp_pregl_nalog_suban]

Go
CREATE        PROCEDURE sp_Pregl_Nalog_SubAn
    @Sifra_Nal    Smallint,
    @Broj_Nal    int,
    @Sifra_OE    smallint = NULL,
    @KoiOe    varchar(10) = Null,
    @Datum_Nalog    smalldatetime OUTPUT,
    @DaliDev    char(1)='N' OUTPUT
AS
    Select @Datum_Nalog = Datum_Nal
    From GStav
    Where Sifra_Nal = @Sifra_Nal AND Broj_Nal = @Broj_Nal
    SELECT @DaliDev=DaliDev  FROM Anal WHERE DaliDev = 'D' AND Kto_Anal IN
    (SELECT DISTINCT Kto_Anal FROM GStav WHERE Sifra_Nal = @Sifra_Nal AND Broj_Nal = @Broj_Nal)
    Declare @SSQL varchar(8000)
    SET @SSQL = 'SELECT S.Sifra_nal, S.Broj_Nal, S.Datum_Nal, S.Datum_dok, dbo.fn_RbrSort(S.RbrNalog, V.RbrNalog) RbrNalog,
    S.Sifra_OE, S.Kto_Anal, A.ImeAnal, A.DaliKupuv, S.Opis, S.Dolzi SDolzi, S.Pobaruva SPobar,
    S.Dev_Dolzi SDolDev, S.Dev_Pobaruva SPobDev, V.Dev_Dolzi FDolDev, V.Dev_Pobaruva FPobDev, S.KojaVal,
    F.Sifra_kup, K.ImeKup, F.Rok, F.BrojDok, V.Dolzi FDolzi, V.Pobaruva FPobar, F.Sifra_Dok, F.Broj_Dok,
    F.Datum_Dok FDatum, F.Opis FOpis, KL.ImeVal, S.Opis2, D.Identif_Br, D.Sifra_Dok DSifra_Dok,
    D.Broj_Dok DBroj_Dok, V.DokrID, V.AnID, D.Sifra_Oe DSifra_Oe, D.Datum_Dok DDatum, D.Sifra_Prim
    FROM GStav S
    INNER JOIN Anal A ON S.Kto_Anal = A.Kto_Anal
        LEFT OUTER JOIN KrsLista KL ON S.KojaVal = KL.SImeVal
        LEFT OUTER JOIN FAvtVrski V ON S.GStID = V.GStID
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = V.DokrID
    LEFT OUTER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
    WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
    ' AND S.Broj_Nal = ' + cast(@Broj_Nal as varchar(10))
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE = ' + cast(@Sifra_OE as varchar(4))
    IF @KoiOE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @KoiOE + ''') '
    SET @SSQL = @SSQL + ' ORDER BY RbrNalog'
    --PRINT @ssql
    EXEC(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nalog_suban_divizii]'))
drop procedure [dbo].[sp_pregl_nalog_suban_divizii]

Go


CREATE                   PROCEDURE sp_Pregl_Nalog_SubAn_Divizii
    @Sifra_Nal    Smallint,
    @Broj_Nal    int,
    @Sifra_OE    smallint = NULL,
    @KoiOe    varchar(10) = Null,
    @Datum_Nalog    smalldatetime OUTPUT,
    @DaliDev    char(1)='N' OUTPUT
AS
    Select @Datum_Nalog = Datum_Nal
    From GStav
    Where Sifra_Nal = @Sifra_Nal AND Broj_Nal = @Broj_Nal

    SELECT @DaliDev=DaliDev  FROM Anal WHERE DaliDev = 'D' AND Kto_Anal IN
    (SELECT DISTINCT Kto_Anal FROM GStav WHERE Sifra_Nal = @Sifra_Nal AND Broj_Nal = @Broj_Nal)

    Declare @SSQL varchar(8000)
    Create Table #TmpNal
    (
     GstID        int,
     AnID        int,
     DokrID        int,
     Kto_Anal    varchar(20),
     Dolzi        decimal(18,6),
     Pobaruva    decimal(18,6),
     Dev_Dolzi    decimal(18,6),
     Dev_Pobaruva    decimal(18,6),
     Sifra_Oe    smallint,
     Sifra_Div    smallint,
     KojaVal        varchar(10),
     Kurs        decimal(18,6),
     Datum_Nal    smalldatetime,
     Datum_Dok    smalldatetime,
     Opis        varchar(50),
     Opis2        varchar(50),
     RbrNalog    int,
     Sifra_Kup    char(6),
     Sifra_Dok    smallint,
     Broj_Dok    int,
     BrojDok    varchar(50),
     FOpis        varchar(50),
     FDatum    smalldatetime,
     Rok        smallint,
     Sifra_TrosM    smallint,
     Sifra_TrosV    smallint
    )
    SET @SSQL = 'SELECT S.GstID, F.AnID, D.DokrID, S.Kto_Anal,
                (Case When V.Dolzi + V.Pobaruva <> 0 Then V.Dolzi When F.Dolzi + F.Pobaruva <> 0 Then F.Dolzi Else S.Dolzi End) Dolzi,
                (Case When V.Dolzi + V.Pobaruva <> 0 Then V.Pobaruva When F.Dolzi + F.Pobaruva <> 0 Then F.Pobaruva Else S.Pobaruva End) Pobaruva,
                (Case When V.Dev_Dolzi + V.Dev_Pobaruva <> 0 Then V.Dev_Dolzi When F.Dev_Dolzi + F.Dev_Pobaruva <> 0 Then F.Dev_Dolzi Else S.Dev_Dolzi End) Dev_Dolzi,
                (Case When V.Dev_Dolzi + V.Dev_Pobaruva <> 0 Then V.Dev_Pobaruva When F.Dev_Dolzi + F.Dev_Pobaruva <> 0 Then F.Dev_Pobaruva Else S.Dev_Pobaruva End) Dev_Pobaruva,
                S.Sifra_Oe, GD.Sifra_Div, S.KojaVal, S.Kurs, S.Datum_Nal, S.Datum_Dok, S.Opis, S.Opis2, S.RbrNalog,
                Null as Sifra_Kup, Null as Sifra_Dok, Null as Broj_Dok, Null as BrojDok, Null as FOpis, Null as FDatum, Null as Rok, GD.Sifra_TrosM, GD.Sifra_TrosV
    FROM GStav S
    LEFT OUTER JOIN GstAnDiv GD On GD.GstID=S.GstID
    INNER JOIN Anal A ON S.Kto_Anal = A.Kto_Anal
        LEFT OUTER JOIN KrsLista KL ON S.KojaVal = KL.SImeVal
        LEFT OUTER JOIN FAvtVrski V ON S.GStID = V.GStID
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = V.DokrID
    LEFT OUTER JOIN Komint K ON F.Sifra_Kup = K.Sifra_Kup
    WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
    ' AND S.Broj_Nal = ' + cast(@Broj_Nal as varchar(10)) + '
    And GD.GstID Is Null '
--    And (GD.GstID Is Null Or F.AnID Is Null)'
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE = ' + cast(@Sifra_OE as varchar(4))
    PRINT @ssql
    Insert Into #TmpNal EXEC(@SSQL)
--EXEC(@SSQL)
--select * from #tmpnal
    SET @SSQL = 'SELECT S.GstID, GD.AnID, D.DokrID, S.Kto_Anal,
                (Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) Dolzi,
                (Case When GD.Pobaruva <> 0  Then GD.Pobaruva  Else 0 End) Pobaruva,
                (Case When A.Dev_Dolzi <> 0 Then A.Dev_Dolzi Else 0 End) Dev_Dolzi,
                (Case When A.Dev_Pobaruva <> 0 Then A.Dev_Pobaruva End) Dev_Pobaruva,
                S.Sifra_Oe, GD.Sifra_Div, S.KojaVal, S.Kurs, S.Datum_Nal, S.Datum_Dok, S.Opis, S.Opis2, S.RbrNalog,
                Null as Sifra_Kup, Null as Sifra_Dok, Null as Broj_Dok, Null as BrojDok, Null as FOpis, Null as FDatum, Null as Rok, GD.Sifra_TrosM, GD.Sifra_TrosV
    FROM GStav S
    INNER JOIN GstAnDiv GD On GD.GstID=S.GstID
    Left Outer Join AnFinDok A On A.AnID=GD.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = GD.DokrID
    WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
    ' AND S.Broj_Nal = ' + cast(@Broj_Nal as varchar(10)) + '
    AND A.AnID In (Select AnID From GstAnDiv Group By AnID Having Count(*)<=1) '
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE = ' + cast(@Sifra_OE as varchar(4))
    PRINT @ssql
    Insert Into #TmpNal EXEC(@SSQL)

    SET @SSQL = 'SELECT S.GstID, GD.AnID, D.DokrID, S.Kto_Anal,
                (Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) Dolzi,
                (Case When GD.Pobaruva <> 0  Then GD.Pobaruva  Else 0 End) Pobaruva,
                (Case When GD.Dolzi <> 0 And (S.Kurs <> 0 Or A.Kurs <>0 ) Then (Case When A.Kurs <> 0 Then GD.Dolzi/A.Kurs Else GD.Dolzi/S.Kurs End) Else 0 End) Dev_Dolzi,
                (Case When GD.Pobaruva <> 0 And (S.Kurs <> 0 Or A.Kurs <>0 ) Then (Case When A.Kurs <> 0 Then GD.Pobaruva/A.Kurs Else GD.Pobaruva/S.Kurs End) Else 0 End) Dev_Pobaruva,
                S.Sifra_Oe, GD.Sifra_Div, S.KojaVal, S.Kurs, S.Datum_Nal, S.Datum_Dok, S.Opis, S.Opis2, S.RbrNalog,
                Null as Sifra_Kup, Null as Sifra_Dok, Null as Broj_Dok, Null as BrojDok, Null as FOpis, Null as FDatum, Null as Rok, GD.Sifra_TrosM, GD.Sifra_TrosV
    FROM GStav S
    INNER JOIN GstAnDiv GD On GD.GstID=S.GstID
    Inner Join AnFinDok A On A.AnID=GD.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = GD.DokrID
    WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
    ' AND S.Broj_Nal = ' + cast(@Broj_Nal as varchar(10)) + '
    AND A.AnID Not In (Select AnID From GstAnDiv Group By AnID Having Count(*)<=1) '
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE = ' + cast(@Sifra_OE as varchar(4))
    PRINT @ssql
    Insert Into #TmpNal EXEC(@SSQL)
    -- 11.02.2010 bese Left Outer Join AnFinDok - se dupliraa stavkite so slednoto query

    ---------------- Dod 06.05.2008 GK    - Dokolku kontoto e po divizii a ne se vodat subanalitiki (go nema vo AnFinDok)
    SET @SSQL = 'SELECT S.GstID, GD.AnID, D.DokrID, S.Kto_Anal,
                (Case When GD.Dolzi <> 0 Then GD.Dolzi Else 0 End) Dolzi,
                (Case When GD.Pobaruva <> 0  Then GD.Pobaruva  Else 0 End) Pobaruva,
                (Case When GD.Dolzi <> 0 And (S.Kurs <> 0 Or A.Kurs <>0 ) Then (Case When A.Kurs <> 0 Then GD.Dolzi/A.Kurs Else GD.Dolzi/S.Kurs End) Else 0 End) Dev_Dolzi,
                (Case When GD.Pobaruva <> 0 And (S.Kurs <> 0 Or A.Kurs <>0 ) Then (Case When A.Kurs <> 0 Then GD.Pobaruva/A.Kurs Else GD.Pobaruva/S.Kurs End) Else 0 End) Dev_Pobaruva,
                S.Sifra_Oe, GD.Sifra_Div, S.KojaVal, S.Kurs, S.Datum_Nal, S.Datum_Dok, S.Opis, S.Opis2, S.RbrNalog,
                Null as Sifra_Kup, Null as Sifra_Dok, Null as Broj_Dok, Null as BrojDok, Null as FOpis, Null as FDatum, Null as Rok, GD.Sifra_TrosM, GD.Sifra_TrosV
    FROM GStav S
    INNER JOIN GstAnDiv GD On GD.GstID=S.GstID
    Left Outer Join AnFinDok A On A.AnID=GD.AnID
    LEFT OUTER JOIN Dokr D ON D.DokrID = GD.DokrID
    WHERE S.Sifra_Nal = ' + cast(@Sifra_Nal as varchar(4)) +
    ' AND S.Broj_Nal = ' + cast(@Broj_Nal as varchar(10)) + '
    AND A.AnID Is Null  '
    IF @Sifra_OE IS NOT NULL
        SET @SSQL = @SSQL + ' AND S.Sifra_OE = ' + cast(@Sifra_OE as varchar(4))
    PRINT @ssql
    Insert Into #TmpNal EXEC(@SSQL)
    -----------------------------------------------------------------------------------
--select * from #TmpNal
    Create Table #Rbr1
    (
     GstID        int,
     AnID        int,
     RbrNal        int
    )
    Insert Into #Rbr1
    Select T.GstID, F.AnID, Min(dbo.fn_RbrSort(T.RbrNalog, V.RbrNalog))
    From #TmpNal  T
        LEFT OUTER JOIN FAvtVrski V ON T.GStID = V.GStID
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    Group By T.GstID, F.AnID

    Create Table #Rbr
    (
     GstID        int,
     AnID        int,
     RbrNal        int
    )
    Insert Into #Rbr Select T.GstID, T.AnID, R.RbrNal From #TmpNal T Inner Join #Rbr1 R On R.GstID=T.GstID And T.AnID=R.AnID

    Insert Into #Rbr Select T.GstID, Null, Min(R.RbrNal) From #TmpNal T Inner Join #Rbr1 R On R.GstID=T.GstID Where T.AnID Is Null Group By T.GstID

    Update #TmpNal
    Set #TmpNal.RbrNalog=R.RbrNal
    From #Rbr R
    Where R.GstID=#TmpNal.GstID And R.AnID=#TmpNal.AnID
    And #TmpNal.AnID Is Not Null

    Update #TmpNal
    Set #TmpNal.RbrNalog=R.RbrNal
    From #Rbr R
    Where R.GstID=#TmpNal.GstID
    And #TmpNal.RbrNalog < 1

--select * from #TmpNal
    Update #TmpNal
    Set #TmpNal.Sifra_Kup=F.Sifra_Kup, #TmpNal.Sifra_Dok=F.Sifra_Dok, #TmpNal.Broj_Dok=F.Broj_Dok, #TmpNal.BrojDok=F.BrojDok,
        #TmpNal.FOpis=F.Opis, #TmpNal.FDatum=F.Datum_Dok, #TmpNal.Rok=F.Rok
    From FAvtVrski V
    LEFT OUTER JOIN AnFinDok F ON V.AnID = F.AnID
    Where V.GstID=#TmpNal.GstID And V.AniD=#TmpNal.AnID

--select * from #TmpNal
    Update #TmpNal
    Set #TmpNal.Sifra_Dok=D.Sifra_Dok, #TmpNal.Broj_Dok=D.Broj_Dok, #TmpNal.BrojDok=D.Identif_Br,
        #TmpNal.FOpis=D.Opis, #TmpNal.FDatum=D.Datum_Dok, #TmpNal.Rok=D.Rok
    From Dokr D
    Where D.DokrID=#TmpNal.DokrID

    -- Na nekoi stavki nemasse sifra_oe
    Update #TmpNal
    Set #TmpNal.Sifra_Oe=D.Sifra_Oe
    From Dokr D
    Where D.DokrID=#TmpNal.DokrID And #TmpNal.Sifra_Oe Is Null

    Select  N.RbrNalog, N.GstID, N.AnID, N.DokrID, N.Kto_Anal, A.ImeAnal, Round(N.Dolzi,2) Dolzi, Round(N.Pobaruva,2) Pobaruva,
        Round(N.Dev_Dolzi,2) Dev_Dolzi, Round(N.Dev_Pobaruva,2) Dev_Pobaruva, N.Sifra_Oe, N.Sifra_Div, N.KojaVal,
        KL.ImeVal, N.Kurs, N.Datum_Nal, N.Datum_Dok, N.Opis, N.Opis2, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Dok,
        N.Broj_Dok, N.BrojDok, N.FOpis, N.FDatum, N.Rok, N.Sifra_TrosM, N.Sifra_TrosV
    From #TmpNal N
    Inner Join Anal A On A.Kto_Anal=N.Kto_Anal
    Left Outer Join Komint Kup On Kup.Sifra_Kup=N.Sifra_Kup
        Left Outer Join KrsLista KL ON N.KojaVal = KL.SImeVal
--    Left Outer Join TrosokMesto TM On TM.Sifra_TrosM=N.Sifra_TrosM
--    Left Outer Join TrosokVid TV On TV.Sifra_TrosV=N.Sifra_TrosV
    Order By N.RbrNalog, N.DokrID




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nalozi]'))
drop procedure [dbo].[sp_pregl_nalozi]

Go

CREATE      PROCEDURE sp_Pregl_Nalozi
    @Sifra_Nal    Smallint = NULL,
    @Datum_Od    Smalldatetime = NULL,
    @Datum_Do    Smalldatetime = NULL,
    @SamoNesloz    char(1) = 'N',
    @Zatvoreni    char(1) = NULL        --D-Zatvoreni, N-Otvoreni, null-site
AS
    Declare @SSQL varchar(2000)
    Set @SSQL = 'SELECT N.Sifra_Nal, N.Broj_Nal, N.Datum_Nal, Sum(G.Dolzi) Dolzi, Sum(G.Pobaruva) Pobaruva,
        Sum(G.KolkuVrski) Vrski, Sum(Case
            When G.KolkuVrski = 0 Then 1
            Else G.KolkuVrski
            End) RbrStavki
        FROM Nalozi N
        LEFT OUTER JOIN Gstav G ON G.Sifra_Nal=N.Sifra_Nal AND G.Broj_Nal=N.Broj_Nal '

    Set @SSQL = @SSQL + 'WHERE 1=1 '

    If @Sifra_Nal IS NOT NULL
        Set @SSQL = @SSQL + ' AND N.Sifra_Nal = ' + Cast(@Sifra_Nal as varchar(6)) + ' '
    If @Datum_Od IS NOT NULL
        Set @SSQL = @SSQL + ' AND N.Datum_Nal >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND N.Datum_Nal <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Zatvoreni IS NOT NULL
        Set @SSQL = @SSQL + ' AND N.Sts_Kniz =''' + @Zatvoreni + ''' '
    Set @SSQL = @SSQL + ' GROUP BY N.Sifra_Nal, N.Broj_Nal, N.Datum_Nal '

    If @SamoNesloz = 'D'
        Set @SSQL = @SSQL + ' HAVING ABS(SUM(G.Dolzi) - SUM(G.Pobaruva)) >= 0.0099 '

    Set @SSQL = @SSQL + ' ORDER BY N.Datum_Nal'

    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_nar_obr]'))
drop procedure [dbo].[sp_pregl_nar_obr]

Go



Create  PROCEDURE sp_Pregl_Nar_Obr
    @KoiOe        varchar(6) = Null,
    @Sifra_OE     smallint=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_Nar_List    varchar (30),
    @Broj_Nar_Od    int=null,
    @Broj_Nar_Do    int=null,
    @Stat_Nar_List    varchar(20) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL =  'SELECT N.Datum_Nar, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.NarID,
        Cast(N.Sifra_OE as varchar(6)) + ''-'' + Cast(N.Sifra_Nar as varchar(6)) + ''/'' + Cast(N.Broj_Nar as varchar(10)) BrojNar,
        N.Sifra_Kup, K.ImeKup, N.Sifra_Obj, OB.ImeObj, N.Toc200,
        (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
        N.Sifra_Pat, Pat.ImePat, N.Stat_Nar, '
    Set @SSQL = @SSQL + ' N.Toc200 IznosNar '
    Set @SSQL = @SSQL + ' From Naracki N '
    Set @SSQL = @SSQL + ' Left Outer Join Komint K ON N.Sifra_Kup=K.Sifra_Kup
                  Left Outer Join KObjekti OB ON N.Sifra_Kup=OB.Sifra_Kup And N.Sifra_Obj=OB.Sifra_Obj
                  Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
                      Left Outer Join Patnici Pat On Pat.Sifra_Pat = N.Sifra_Pat '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @Sifra_Nar_List Is Not Null
        Set @SSQL = @SSQL + ' And N.Sifra_Nar in (' + @Sifra_Nar_List + ') '
    If @Broj_Nar_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Broj_Nar >= ' + Cast(@Broj_Nar_Od as varchar(10)) + ' '
    If @Broj_Nar_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Broj_Nar <= ' + Cast(@Broj_Nar_Do as varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And N.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Stat_Nar_List Is Not Null
        Set @SSQL = @SSQL + ' And N.Stat_Nar in (' + @Stat_Nar_List + ') '
    Set @SSQL = @SSQL + ' Order By K.ImeKup, N.Datum_Nar, N.Broj_Nar '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_narac_odlozeno]'))
drop procedure [dbo].[sp_pregl_narac_odlozeno]

Go
CREATE                        PROCEDURE sp_Pregl_Narac_Odlozeno
    @Sifra_OE     Smallint,
       @Sifra_Nar     Smallint,
       @Datum_Nar_Od Smalldatetime,
       @Datum_Nar_Do Smalldatetime,
    @ZbirnoPoArt    char(1) = 'N'
AS
    Declare @SSQL Varchar(4000)
    SET @SSQL = ' SELECT SN.Sifra_Art, K.ImeArt, K.EdMera, Sum(SN.Kolic) Kolic, Sum(SN.Kolic_BO) Kolic_BO, '
    If @ZbirnoPoArt <> 'D'
        Set @SSQL = @SSQL + ' Nar.Sifra_Oe, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Datum_Nar, Nar.Sifra_Kup, Kup.ImeKup, Nar.Sifra_Pat, Pat.ImePat '
    Else
        Set @SSQL = @SSQL + ' Null as Sifra_Oe, Null as Sifra_Nar, Null as Broj_Nar, Null as Datum_Nar, Null as Sifra_Kup, Null as ImeKup, Null as Sifra_Pat, Null as ImePat '
    Set @SSQL = @SSQL + ' FROM Naracki Nar
                Inner Join StaNarac SN On Nar.NarID=SN.NarID
                Inner Join Katart K On K.Sifra_Art = SN.Sifra_Art'
    If @ZbirnoPoArt <> 'D'
        Set @SSQL = @SSQL + ' Left Outer Join Komint Kup On Kup.Sifra_Kup=Nar.Sifra_Kup
                      Left Outer Join Patnici Pat On Pat.Sifra_Pat=Nar.Sifra_Pat '
    Set @SSQL=@SSQL + '    Where SN.Kolic_BO <> 0 '
    If @Sifra_Nar Is NOT NULL
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' Group By SN.Sifra_Art, K.ImeArt, K.EdMera '
    If @ZbirnoPoArt <> 'D'
        Set @SSQL = @SSQL + ', Nar.Sifra_Oe, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Datum_Nar, Nar.Sifra_Kup, Kup.ImeKup, Nar.Sifra_Pat, Pat.ImePat '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_narac_slika]'))
drop procedure [dbo].[sp_pregl_narac_slika]

Go

create PROCEDURE sp_Pregl_Narac_Slika
    @Sifra_Oe smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int

AS

    Select N.SIfrA_Oe, N.SIfra_Nar, N.Broj_Nar, N.Sifra_Kup, Kom.ImeKup, N.Datum_Nar,
        SN.Sifra_Art, K.ImeArt, K.EdMera, SN.Kolic, SN.DokCena, SN.DanDokCena,
         Slik.SlikaArt, K.Nom
    From StaNarac SN
    Inner Join Naracki N On SN.NarID=N.NarID
    left outer join Komint Kom on Kom.Sifra_Kup=N.SIfra_Kup
    Inner Join Katart K On SN.Sifra_Art=K.Sifra_Art
    left outer Join KatSliki Slik on SN.SifrA_Art=Slik.Sifra_Art
    Where N.Sifra_Oe=@Sifra_Oe And N.Sifra_Nar=@Sifra_Nar and N.Broj_Nar=@Broj_Nar





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_narac_slika_dm]'))
drop procedure [dbo].[sp_pregl_narac_slika_dm]

Go
CREATE  PROCEDURE [dbo].[sp_Pregl_Narac_Slika_DM]
    @Sifra_Oe smallint,
    @Sifra_Nar smallint,
    @Broj_Nar int

AS

    Select N.SIfrA_Oe, N.SIfra_Nar, N.Broj_Nar, N.Sifra_Kup, Kom.ImeKup, N.Datum_Nar,
        SN.Sifra_Art, K.ImeArt, K.EdMera, SN.Kolic, SN.DokCena, SN.DanDokCena, K.Nom, K.Alt_Sifra, K.Alt_Ime,  SN.Uces, SN.POsn,
(case when SN.DanDokCena='D' then SN.DokCena/(1+SN.POsn/100) else SN.DOkCena end ) CenaBezDDV,
(case when SN.DanDokCena='D' then SN.Kolic*SN.DokCena/(1+SN.POsn/100) else SN.Kolic*SN.DOkCena end ) VrednBezDDV,
(case when SN.DanDokCena='D'Then SN.kolic*SN.DokCena else SN.kolic*SN.DokCena*(1+SN.POsn/100)end ) VrednSoDDV

    From StaNarac SN
    Inner Join Naracki N On SN.NarID=N.NarID
    left outer join Komint Kom on Kom.Sifra_Kup=N.SIfra_Kup
    Inner Join Katart K On SN.Sifra_Art=K.Sifra_Art
    --left outer Join KatSliki Slik on SN.SifrA_Art=Slik.Sifra_Art
    Where N.Sifra_Oe=@Sifra_Oe And N.Sifra_Nar=@Sifra_Nar and N.Broj_Nar=@Broj_Nar







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_novilist_artikli]'))
drop procedure [dbo].[sp_pregl_novilist_artikli]

Go

CREATE        PROCEDURE [dbo].[sp_Pregl_NoviList_Artikli]
    @Datum_Art_Poc_Od    smalldatetime = NULL,
    @Datum_Art_Poc_Do    smalldatetime = NULL,
    @Datum_Art_Kr_Od    smalldatetime = NULL,
    @Datum_Art_Kr_Do    smalldatetime = NULL,
    @Sifra_Asort        Varchar(10)=null,
    @Sifra_Gr           varChar(6)=null,
    @Sifra_Podg           Char(6)=null,
    @Sifra_Oblast        Varchar(10)=null,
    @StatusArt          Char(1)=null
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = ' Select K.Sifra_Podg, K.Sifra_Layoutunit, K.Sifra_art, K.ImeArt, K.Datum_Art_Poc, K.Datum_Art_Kr, K.Nom, K.StatusArt, K.Alt_Sifra,
                  K.Kto, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, PO.Sifra_Oblast, OB.Ime_Oblast, OB.Sifra_asort, ASR.Ime_Asort, L.Ime_Layoutunit, D.ImeKup
                   From Katart K
                  inner join Podgrupi P on P.Sifra_Podg=K.Sifra_Podg
                  inner join Grupi G on G.Sifra_Gr=P.Sifra_Gr
                  Left Outer Join Podoblast PO On PO.Sifra_Podoblast=G.Sifra_Podoblast
                  Left Outer Join Oblast OB On OB.Sifra_Oblast=PO.Sifra_oblast
                  Left Outer Join Asortiman ASR On ASR.Sifra_Asort=OB.Sifra_asort
                  Left Outer Join Layoutunit L on L.Sifra_layoutunit=K.Sifra_layoutunit
                  Left Outer Join Komint D On D.Sifra_Kup=K.Kto
                  Where 1=1 '
    If @Datum_Art_Poc_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND K.Datum_Art_Poc>= ''' + Cast(@Datum_Art_Poc_Od As Varchar(35)) + ''' '
    If @Datum_Art_Poc_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND K.Datum_Art_Poc<= ''' + Cast(@Datum_Art_Poc_Do As Varchar(35)) + ''' '
    If @Datum_Art_Kr_Od Is NOT Null
                SET @SSQL = @SSQL + 'AND K.Datum_Art_Kr>= ''' + Cast(@Datum_Art_Kr_Od As Varchar(35)) + ''' '
    If @Datum_Art_Kr_Do Is NOT Null
                SET @SSQL = @SSQL + 'AND K.Datum_Art_Kr<= ''' + Cast(@Datum_Art_Kr_Do As Varchar(35)) + ''' '
    If @Sifra_asort Is Not Null
                Set @SSQL = @SSQL + 'And OB.Sifra_Asort=''' + @Sifra_asort + ''' '
    If @Sifra_Gr IS NOT NULL
              Set @SSQL=@SSQL+'AND P.Sifra_Gr='''+@Sifra_Gr+''' '
       If @Sifra_Podg IS NOT NULL
              Set @SSQL=@SSQL+'AND K.Sifra_Podg='''+@Sifra_Podg+''' '
    If @Sifra_Oblast IS NOT NULL
              Set @SSQL=@SSQL+'AND PO.Sifra_Oblast='''+@Sifra_Oblast+''' '
    If @StatusArt IS NOT NULL
              Set @SSQL=@SSQL+'AND K.StatusArt='''+@StatusArt+''' '
   -- If @Komint_Od Is Not Null
    --    Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '

/*
    If @Podelba1 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
*/
--    Print(@SSQL)
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_objekti]'))
drop procedure [dbo].[sp_pregl_objekti]

Go



CREATE        PROCEDURE sp_Pregl_Objekti
    @Sifra_Kup     Varchar(10) = Null,
    @Sifra_Obj    smallint = Null
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = ' Select KO.Sifra_Kup, Kup.ImeKup,
            KO.Sifra_Obj, KO.Star_Kup, KO.ImeObj, KO.ImeObj2, KO.Adresa, KO.Adresa2, KO.SMesto, KO.Posta, KO.Zemja,
            KO.Telefon, KO.Tel1, KO.Tel2, KO.TelMobil, KO.Fax, KO.Telex, KO.EMail, KO.Kontakt,
            KO.Sifra_Pat, P.ImePat,
            KO.Sifra_Grad,  G.ImeGrad,
            KO.TipKup, TK.ImeTipKup,
            KO.Sifra_Reg, R.ImeRegion,
            Kup.Sifra_Nivo, N.ImeNivo,
            Kup.Sifra_Tip, T.ImeTip,
            KO.Zabeleska, KO.Aktiven, KO.BrProdMesta, KO.BrAktProdMesta,
            KO.KDrugo1, D1.Ime_1K,
            KO.KDrugo2, D2.Ime_2K,
            KO.KDrugo3, D3.Ime_3K,
            KO.KDrugo4, D4.Ime_4K,
            KO.Propagiraj,
            KO.m2,
                        KO.Sifra_Pat2, P2.ImePat as ImePat2
            From Komint Kup
            Inner Join KObjekti KO On KO.Sifra_Kup=Kup.Sifra_Kup
            Left Outer Join Patnici P On P.Sifra_Pat=KO.Sifra_Pat
            Left Outer Join Patnici P2 On P2.Sifra_Pat=KO.Sifra_Pat2
            Left Outer Join Grad G On G.Sifra_Grad=KO.Sifra_Grad
            Left Outer Join GRegion R On R.Sifra_Reg=KO.Sifra_reg
            Left Outer Join GTipKup TK On TK.TipKup=KO.TipKup
            Left Outer Join Nivo N  On N.Sifra_Nivo=KO.Sifra_Nivo
            Left Outer Join TipKomint T On T.Sifra_Tip=KO.Sifra_Tip
            Left Outer Join KDrugo1 D1 On D1.Sifra_1K=KO.KDrugo1
            Left Outer Join KDrugo2 D2 On D2.Sifra_2K=KO.KDrugo2
            Left Outer Join KDrugo3 D3 On D3.Sifra_3K=KO.KDrugo3
            Left Outer Join KDrugo4 D4 On D4.Sifra_4K=KO.KDrugo4
            Where KO.Sifra_Obj <> 0 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + 'And KO.Sifra_Kup =''' + @Sifra_Kup + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + 'And KO.Sifra_Obj = ' + Cast(@Sifra_Obj As Varchar(10)) + ' '
print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_onebalance]'))
drop procedure [dbo].[sp_pregl_onebalance]

Go
CREATE      PROCEDURE sp_Pregl_OneBalance
    @Datum_Od    smalldatetime = null,
    @Datum_Do    smalldatetime = null,
    @Tip    smallint = Null
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '
    ------------------------------------------------------------------- U S L O V ------------------------------------------------------------------------------------
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And L.Vreme >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And L.Vreme <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @tip Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And L.TipIznos = ' + Cast(@Tip as varchar(6)) + ' '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = ' SELECT L.*  FROM OneBalance  L '
        Set @SSQL = @SSQL + ' Where 1=1 ' + @SSQLUsl
        Set @SSQL = @SSQL + ' ORDER BY L.Vreme'
    print @SSQL
    Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_periodruti]'))
drop procedure [dbo].[sp_pregl_periodruti]

Go






CREATE           Procedure sp_Pregl_PeriodRuti
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null
As
create table #Tmp
    (Sifra_Pat smallint,
     sto varchar(30),
     Kolku integer
    )
CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
    DELETE FROM #TmpPR
    INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
    WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat

    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
    WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime
    )
set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod)
            select A.sifra_Oe, P.ImePat, A.Sifra_Kup, K.ImeKup, case when A.Sifra_Obj <> 0 then A.Sifra_Obj end, KO.ImeObj, A.DatumVreme,''D'', A.SoBarKod
            from Akcija A
            inner join Patnici P on A.Sifra_oe=P.Sifra_Pat
            inner join Komint K on K.Sifra_Kup = A.Sifra_Kup
            left outer join KObjekti KO on KO.Sifra_Obj = A.Sifra_Obj and KO.Sifra_Kup = A.Sifra_Kup
            where dbo.fn_VratiDatum(DatumVreme) >= '''+cast(@DatumOd as varchar(35))+''' and dbo.fn_VratiDatum(DatumVreme) <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
set @SSQL = @SSQL + ' order by A.DatumVreme, A.Sifra_Kup, A.Sifra_Obj '
exec(@SSQL)

--sega da gi izbriseme duplite vneseni vo rok od nekolku minuti
Declare @SifKup char(6), @SifObj smallint, @SifPat smallint, @SifKup1 char(6), @SifObj1 smallint, @SifPat1 smallint, @Datum1 smalldatetime
SET @SifKup1=''
SET @SifObj1=0
SET @SifPat1=0
SET @Datum1=GETDATE()
Declare Tab1 Cursor Fast_Forward For
    Select  Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum From #TmpDetal ORDER BY Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum
Open Tab1
Fetch Next From Tab1 Into @SifPat, @SifKup, @SifObj, @Datum
While @@Fetch_Status = 0
Begin
    IF @SifPat1=@SifPat AND @SifKup1=@SifKup AND dbo.fn_VratiDatum(@Datum1)=dbo.fn_VratiDatum(@Datum)
    BEGIN
        IF (@SifObj IS NULL AND @SifObj1 IS NULL) OR (@SifObj IS NOT NULL AND @SifObj1 IS NOT NULL AND @SifObj=@SifObj1)
            Update #TmpDetal SET Poseten='X' WHERE Sifra_Pat=@SifPat AND Sifra_Kup=@SifKup AND Datum=@Datum
    END
    SET @SifPat1=@SifPat
    SET @SifKup1=@SifKup
    SET @SifObj1=@SifObj
    SET @Datum1=@Datum
    Fetch Next From Tab1  Into @SifPat, @SifKup, @SifObj, @Datum
End
Close Tab1
Deallocate Tab1

DELETE FROM #TmpDetal WHERE Poseten='X'

UPDATE #TmpDetal SET Sifra_Obj=NULL WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null
update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(dbo.fn_VratiDatum(Datum) as char(11)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(dbo.fn_VratiDatum(Datum) as char(11))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

--sega zbirni
UPDATE #TmpDetal SET Sifra_Obj=0 WHERE Sifra_Obj IS NULL    --zaradi group by

insert into #Tmp select TP.Sifra_Pat, 'KupRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'D' and TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp select TP.Sifra_Pat, 'BrPoseti', count (*) from #TmpDetal TP
where TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp select TP.Sifra_Pat, 'BrPosetiVonRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'N' and TP.Poseten = 'D'
group by TP.Sifra_Pat

/*CREATE TABLE #TmpRzl (Sifra_Pat smallint, Datum smalldatetime, Broj integer)  VAKA AKO TREBA RAZL.PROD.M. PO DEN
insert into #TmpRzl select  TP.Sifra_Pat,   dbo.fn_VratiDatum(TP.Datum), count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
from #TmpDetal TP
where TP.Poseten = 'D'
group by TP.Sifra_Pat, dbo.fn_VratiDatum(TP.Datum)
insert into #Tmp select Sifra_Pat, 'BrRazlProdMesta', SUM(Broj) FROM #TmpRzl group by Sifra_Pat */
insert into #Tmp select TP.Sifra_Pat, 'BrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6))) from #TmpDetal TP
where TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp select null, 'VkBrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6))) from #TmpDetal TP
where TP.Poseten = 'D'


insert into #Tmp select TP.Sifra_Pat,  'SoBarKod', count (*) from #TmpDetal TP
where TP.SoBarKod = 'D'
group by TP.Sifra_Pat

CREATE TABLE #TmpDefKupVoRuti
(Sifra_pat    smallint,
Kolku         int)
INSERT INTO #TmpDefKupVoRuti SELECT Sifra_Pat, COUNT(*) FROM #TmpRuta GROUP BY Sifra_Pat

create table #TmpKraj
(Sifra_Pat smallint,
ImePat varchar(30),
KupVoRuta integer,
BrPoseti integer,
BrPosetiVonRuta integer,
BrRazlProdMesta integer,
BrBarkod integer,
DefKupVoRuta integer,
VkBrRazlProdMesta integer)

insert into #TmpKraj(Sifra_Pat) select distinct sifra_pat from #Tmp
update #TmpKraj set ImePat = P.ImePat from Patnici P where P.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set KupVoRuta = T.Kolku from #Tmp T where T.Sto = 'KupRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrPoseti = T.Kolku from #Tmp T where T.Sto = 'BrPoseti' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrPosetiVonRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiVonRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'BrRazlProdMesta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrBarkod = T.Kolku from #Tmp T where T.Sto = 'SoBarKod' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set DefKupVoRuta = T.Kolku from #TmpDefKupVoRuti T WHERE T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set VkBrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'VkBrRazlProdMesta'
select * from #TmpKraj














Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_periodruti_ns]'))
drop procedure [dbo].[sp_pregl_periodruti_ns]

Go

create        Procedure sp_Pregl_PeriodRuti_NS
    @Sifra_Oe smallint = Null,
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null
As

create table #Tmp
    (Sifra_Pat smallint,
     sto varchar(30),
     Kolku integer
    )

CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime
    )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
 (Sifra_Pat smallint,
 Datum smalldatetime )

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
    DELETE FROM #TmpPR
    INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
    WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat

    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
    WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime,
    Stavki int,
    Vrednost decimal (16, 4)
    )

set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod,
                    Stavki, Vrednost)
            select D.sifra_Pat, P.ImePat, D.Sifra_Kup, K.ImeKup,
            case when D.Sifra_Obj <> 0 then D.Sifra_Obj else null end, KO.ImeObj,
            A.Datum_Dok, ''D'', ''N'',
                count(*) Stavki, sum(A.Kolic * A.Dokcena * (1 - A.Uces / 100)) Vrednost
            from Stavr A
            inner join Dokr D
                on A.DokrId = D.DokrId
            inner join Patnici P
                on D.Sifra_Pat=P.Sifra_Pat
            inner join Komint K
                on K.Sifra_Kup = D.Sifra_Kup
            left outer join KObjekti KO
                on KO.Sifra_Obj = D.Sifra_Obj and KO.Sifra_Kup = D.Sifra_Kup
            where D.Sifra_Za in (''1'') and A.Datum_Dok >= '''+cast(@DatumOd as varchar(35))
                + ''' and A.Datum_Dok <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Oe is not null
    set @SSQL = @SSQL + ' and A.Sifra_Oe = '+cast(@Sifra_Oe as varchar(5))+' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and D.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
            Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
set @SSQL = @SSQL + ' group by A.Datum_Dok, D.Sifra_Pat, P.ImePat, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj '
set @SSQL = @SSQL + ' order by A.Datum_Dok, D.Sifra_Kup, D.Sifra_Obj '

exec(@SSQL)

UPDATE #TmpDetal
SET Sifra_Obj=NULL
WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null

update #TmpDetal
set PoRuta = 'D'
from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = #TmpDetal.Datum

update #TmpDetal
set PoRuta = 'D'
from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = #TmpDetal.Datum

update #TmpDetal
set PoRuta = 'N'
where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as varchar(35)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(dbo.fn_VratiDatum(Datum) as varchar(35)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as varchar(35)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(dbo.fn_VratiDatum(Datum) as varchar(35))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

--sega zbirni
UPDATE #TmpDetal SET Sifra_Obj=0 WHERE Sifra_Obj IS NULL    --zaradi group by

insert into #Tmp select TP.Sifra_Pat, 'KupRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'D' and TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp select TP.Sifra_Pat, 'BrPoseti', count (*) from #TmpDetal TP
where TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp select TP.Sifra_Pat, 'BrPosetiVonRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'N' and TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp
select TP.Sifra_Pat, 'BrRazlProdMesta',
       count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
from #TmpDetal TP
where TP.Poseten = 'D'
group by TP.Sifra_Pat

insert into #Tmp
select Null, 'VkBrRazlProdMesta',
       count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
from #TmpDetal TP
where TP.Poseten = 'D'

CREATE TABLE #TmpDefKupVoRuti
( Sifra_pat    smallint,
  Kolku         int
)
INSERT INTO #TmpDefKupVoRuti
    SELECT Sifra_Pat, COUNT(*)
    FROM #TmpRuta
    GROUP BY Sifra_Pat

create table #TmpTempSum
( Sifra_Pat smallint,
  Stavki int,
  Vrednost decimal (16, 4)
)
insert into #TmpTempSum
select Sifra_Pat, sum(T.Stavki), sum(T.Vrednost)
from #TmpDetal T
Group By T.Sifra_Pat

create table #TmpKraj
( Sifra_Pat smallint,
  ImePat varchar(30),
  KupVoRuta integer,
  BrPoseti integer,
  BrPosetiVonRuta integer,
  BrRazlProdMesta integer,
  BrBarkod integer,
  DefKupVoRuta integer,
  VkBrRazlProdMesta integer,
  Stavki int,
  Vrednost decimal (16, 4)
)

insert into #TmpKraj(Sifra_Pat)
    select distinct sifra_pat
    from #Tmp

update #TmpKraj
set Stavki = T.Stavki, Vrednost = T.Vrednost
from #TmpTempSum T
where #TmpKraj.Sifra_Pat = T.Sifra_Pat

update #TmpKraj set ImePat = P.ImePat from Patnici P where P.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set KupVoRuta = T.Kolku from #Tmp T where T.Sto = 'KupRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrPoseti = T.Kolku from #Tmp T where T.Sto = 'BrPoseti' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrPosetiVonRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiVonRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'BrRazlProdMesta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set DefKupVoRuta = T.Kolku from #TmpDefKupVoRuti T WHERE T.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set VkBrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'VkBrRazlProdMesta'

select * from #TmpKraj





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_periodrutipodatum]'))
drop procedure [dbo].[sp_pregl_periodrutipodatum]

Go
CREATE         Procedure sp_Pregl_PeriodRutiPoDatum
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null
As
create table #Tmp
    (Datum smalldatetime,
     sto varchar(30),
     Kolku integer
    )
CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
    DELETE FROM #TmpPR
    INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
    WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat

    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
    WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime
    )
set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod)
            select A.sifra_Oe, P.ImePat, A.Sifra_Kup, K.ImeKup, case when A.Sifra_Obj <> 0 then A.Sifra_Obj end, KO.ImeObj, A.DatumVreme,''D'', A.SoBarKod
            from Akcija A
            inner join Patnici P on A.Sifra_oe=P.Sifra_Pat
            inner join Komint K on K.Sifra_Kup = A.Sifra_Kup
            left outer join KObjekti KO on KO.Sifra_Obj = A.Sifra_Obj and KO.Sifra_Kup = A.Sifra_Kup
            where dbo.fn_VratiDatum(DatumVreme) >= '''+cast(@DatumOd as varchar(35))+''' and dbo.fn_VratiDatum(DatumVreme) <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
set @SSQL = @SSQL + ' order by A.DatumVreme, A.Sifra_Kup, A.Sifra_Obj '
exec(@SSQL)

--sega da gi izbriseme duplite vneseni vo rok od nekolku minuti
Declare @SifKup char(6), @SifObj smallint, @SifPat smallint, @SifKup1 char(6), @SifObj1 smallint, @SifPat1 smallint, @Datum1 smalldatetime
SET @SifKup1=''
SET @SifObj1=0
SET @SifPat1=0
SET @Datum1=GETDATE()
Declare Tab1 Cursor Fast_Forward For
    Select  Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum From #TmpDetal ORDER BY Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum
Open Tab1
Fetch Next From Tab1 Into @SifPat, @SifKup, @SifObj, @Datum
While @@Fetch_Status = 0
Begin
    IF @SifPat1=@SifPat AND @SifKup1=@SifKup AND dbo.fn_VratiDatum(@Datum1)=dbo.fn_VratiDatum(@Datum)
    BEGIN
        IF (@SifObj IS NULL AND @SifObj1 IS NULL) OR (@SifObj IS NOT NULL AND @SifObj1 IS NOT NULL AND @SifObj=@SifObj1)
            Update #TmpDetal SET Poseten='X' WHERE Sifra_Pat=@SifPat AND Sifra_Kup=@SifKup AND Datum=@Datum
    END
    SET @SifPat1=@SifPat
    SET @SifKup1=@SifKup
    SET @SifObj1=@SifObj
    SET @Datum1=@Datum
    Fetch Next From Tab1  Into @SifPat, @SifKup, @SifObj, @Datum
End
Close Tab1
Deallocate Tab1

DELETE FROM #TmpDetal WHERE Poseten='X'

UPDATE #TmpDetal SET Sifra_Obj=NULL WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null
update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = dbo.fn_VratiDatum(#TmpDetal.Datum)

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(dbo.fn_VratiDatum(Datum) as char(11)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(dbo.fn_VratiDatum(Datum) as char(11))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

--sega zbirni
UPDATE #TmpDetal SET Sifra_Obj=0 WHERE Sifra_Obj IS NULL    --zaradi group by

insert into #Tmp select dbo.fn_VratiDatum(TP.Datum), 'KupRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'D' and TP.Poseten = 'D'
group by dbo.fn_VratiDatum(TP.Datum)

insert into #Tmp select dbo.fn_VratiDatum(TP.Datum), 'BrPoseti', count (*) from #TmpDetal TP
where TP.Poseten = 'D'
group by dbo.fn_VratiDatum(TP.Datum)

insert into #Tmp select dbo.fn_VratiDatum(TP.Datum), 'BrPosetiVonRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'N' and TP.Poseten = 'D'
group by dbo.fn_VratiDatum(TP.Datum)

insert into #Tmp select  dbo.fn_VratiDatum(TP.Datum),  'BrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
from #TmpDetal TP
where TP.Poseten = 'D'
group by dbo.fn_VratiDatum(TP.Datum)

insert into #Tmp select dbo.fn_VratiDatum(TP.Datum),  'SoBarKod', count (*) from #TmpDetal TP
where TP.SoBarKod = 'D'
group by dbo.fn_VratiDatum(TP.Datum)

insert into #Tmp select  null,  'VkBrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
from #TmpDetal TP
where TP.Poseten = 'D'

CREATE TABLE #TmpDefKupVoRuti
(Datum    smalldatetime,
Kolku     int)
INSERT INTO #TmpDefKupVoRuti SELECT Datum, COUNT(*) FROM #TmpRuta GROUP BY Datum

create table #TmpKraj
(Datum smalldatetime,
KupVoRuta integer,
BrPoseti integer,
BrPosetiVonRuta integer,
BrRazlProdMesta integer,
BrBarkod integer,
DefKupVoRuta integer,
VkBrRazlProdMesta integer)

insert into #TmpKraj(Datum) select distinct datum from #Tmp
update #TmpKraj set KupVoRuta = T.Kolku from #Tmp T where T.Sto = 'KupRuta' and T.datum = #TmpKraj.datum
update #TmpKraj set BrPoseti = T.Kolku from #Tmp T where T.Sto = 'BrPoseti' and T.datum = #TmpKraj.datum
update #TmpKraj set BrPosetiVonRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiVonRuta' and T.datum = #TmpKraj.datum
update #TmpKraj set BrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'BrRazlProdMesta' and T.datum = #TmpKraj.datum
update #TmpKraj set BrBarkod = T.Kolku from #Tmp T where T.Sto = 'SoBarKod' and T.datum = #TmpKraj.datum
UPDATE #TmpKraj SET DefKupVoRuta = T.Kolku FROM #TmpDefKupVoRuti T WHERE T.datum = #TmpKraj.datum
update #TmpKraj SET VkBrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'VkBrRazlProdMesta'
select * from #TmpKraj



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_periodrutipodatum_ns]'))
drop procedure [dbo].[sp_pregl_periodrutipodatum_ns]

Go

CREATE  Procedure sp_Pregl_PeriodRutiPoDatum_NS
    @Sifra_Oe smallint = null,
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null
As
create table #Tmp
    (Datum smalldatetime,
     Sto varchar(30),
     Kolku integer
    )

CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
( Sifra_Pat smallint,
  Datum smalldatetime )

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
    DELETE FROM #TmpPR
    INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
    WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat

    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
    WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)

create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime,
    Stavki int,
    Vrednost decimal (16, 4)
    )

set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod,
                    Stavki, Vrednost)
            select D.sifra_Pat, P.ImePat, D.Sifra_Kup,
            K.ImeKup, case when D.Sifra_Obj <> 0 then D.Sifra_Obj else null end,
            KO.ImeObj, A.Datum_Dok,''D'', ''N'',
                count(*) Stavki, sum(A.Kolic * A.Dokcena * (1 - A.Uces / 100)) Vrednost
            from Stavr A
            inner join Dokr D
                on A.DokrId = D.DokrId
            inner join Patnici P
                on D.Sifra_Pat=P.Sifra_Pat
            inner join Komint K
                on K.Sifra_Kup = D.Sifra_Kup
            left outer join KObjekti KO
                on KO.Sifra_Obj = D.Sifra_Obj and KO.Sifra_Kup = D.Sifra_Kup
            where D.Sifra_Za in (''1'') and A.Datum_Dok >= '''+cast(@DatumOd as varchar(35))
                + ''' and A.Datum_Dok <= '''+cast(@DatumDo as varchar(35))+''' '

If @Sifra_Oe is not null
    set @SSQL = @SSQL + ' and A.Sifra_Oe = '+cast(@Sifra_Oe as varchar(5))+' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and D.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
set @SSQL = @SSQL + ' group by A.Datum_Dok, D.Sifra_Pat, P.ImePat, D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, KO.ImeObj '
set @SSQL = @SSQL + ' order by A.Datum_Dok, D.Sifra_Kup, D.Sifra_Obj '

exec(@SSQL)

UPDATE #TmpDetal
SET Sifra_Obj=NULL
WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
         and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and TR.Sifra_Obj is null
        and #TmpDetal.Sifra_Obj is null
        and TR.Datum = #TmpDetal.Datum

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = #TmpDetal.Datum

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Datum as varchar(35))
 FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(Datum as varchar(35))
 FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL

--sega zbirni
UPDATE #TmpDetal
SET Sifra_Obj=0
WHERE Sifra_Obj IS NULL    --zaradi group by

insert into #Tmp
    select TP.Datum, 'KupRuta', count (*) from #TmpDetal TP
    where TP.PoRuta = 'D' and TP.Poseten = 'D'
    group by TP.Datum

insert into #Tmp
    select TP.Datum, 'BrPoseti', count (*)
    from #TmpDetal TP
    where TP.Poseten = 'D'
    group by TP.Datum

insert into #Tmp
    select TP.Datum, 'BrPosetiVonRuta', count (*)
    from #TmpDetal TP
    where TP.PoRuta = 'N' and TP.Poseten = 'D'
    group by TP.Datum

insert into #Tmp
    select TP.Datum,  'BrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
    from #TmpDetal TP
    where TP.Poseten = 'D'
    group by TP.Datum

insert into #Tmp
    select  null,  'VkBrRazlProdMesta', count (distinct cast(TP.sifra_kup as char(6)) + cast(TP.sifra_obj as char(6)))
    from #TmpDetal TP
    where TP.Poseten = 'D'

CREATE TABLE #TmpDefKupVoRuti
( Datum    smalldatetime,
  Kolku     int
)

INSERT INTO #TmpDefKupVoRuti
    SELECT Datum, COUNT(*)
    FROM #TmpRuta
    GROUP BY Datum

create table #TmpTempSum
( Datum smalldatetime,
  Stavki int,
  Vrednost decimal (16, 4)
)

insert into #TmpTempSum
select T.Datum, sum(T.Stavki), sum(T.Vrednost)
from #TmpDetal T
Group By T.Datum

create table #TmpKraj
( Datum smalldatetime,
  KupVoRuta integer,
  BrPoseti integer,
  BrPosetiVonRuta integer,
  BrRazlProdMesta integer,
  BrBarkod integer,
  DefKupVoRuta integer,
  VkBrRazlProdMesta integer,
  Stavki int,
  Vrednost decimal (16, 4)
)

insert into #TmpKraj(Datum)
    select distinct Datum
    from #Tmp

update #TmpKraj
set Stavki = T.Stavki, Vrednost = T.Vrednost
from #TmpTempSum T
where #TmpKraj.Datum = T.Datum

update #TmpKraj set KupVoRuta = T.Kolku from #Tmp T where T.Sto = 'KupRuta' and T.datum = #TmpKraj.datum
update #TmpKraj set BrPoseti = T.Kolku from #Tmp T where T.Sto = 'BrPoseti' and T.datum = #TmpKraj.datum
update #TmpKraj set BrPosetiVonRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiVonRuta' and T.datum = #TmpKraj.datum
update #TmpKraj set BrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'BrRazlProdMesta' and T.datum = #TmpKraj.datum
UPDATE #TmpKraj SET DefKupVoRuta = T.Kolku FROM #TmpDefKupVoRuti T WHERE T.Datum = #TmpKraj.Datum
update #TmpKraj SET VkBrRazlProdMesta = T.Kolku from #Tmp T where T.Sto = 'VkBrRazlProdMesta'

select * from #TmpKraj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_periodrutipovrednosti]'))
drop procedure [dbo].[sp_pregl_periodrutipovrednosti]

Go






CREATE                  Procedure sp_Pregl_PeriodRutiPoVrednosti
    @Sifra_pat smallint = null,
    @Sifra_GrPat char(6) = null,
    @DatumOd smalldatetime = null,
    @DatumDo smalldatetime = null,
    @Podelba1 smallint = null,
    @KFPod1 char(1) = null,
    @SoVred char(1) = 'D',
    @Kurs    decimal=null
As
create table #Tmp
    (Sifra_Pat smallint,
     Datum smalldatetime,
     sto varchar(30),
     Kolku integer
    )
CREATE TABLE #TmpRuta
    (Sifra_Pat smallint,
     DatumOd smalldatetime,
     DenOdNedela char(1),
     Sifra_Kup char(6),
     Sifra_Obj smallint,
     Datum smalldatetime )

CREATE TABLE #TmpPat (Sifra_Pat smallint)
If @Sifra_Pat is not null
    INSERT INTO #TmpPat VALUES (@Sifra_Pat)
Else IF @Sifra_GrPat is not null
    INSERT INTO #TmpPat SELECT Sifra_Pat from Sgrpat where Sif_GrPat =@Sifra_GrPat
ELSE
    INSERT INTO #TmpPat SELECT Sifra_Pat from Patnici

CREATE TABLE #TmpPR
(Sifra_Pat smallint,
Datum smalldatetime)

Declare @Datum smalldatetime
Declare @Praznik as char(1)
SET @Datum=@DatumOd
WHILE @Datum<=@DatumDo
BEGIN
    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj FROM RutiZaDatum WHERE Datum=@Datum AND Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)

    SELECT @Praznik=Sto FROM RabKalendar WHERE Datum=@Datum AND Sto='P'
    IF @Praznik IS NULL
    BEGIN
    DELETE FROM #TmpPR
    INSERT INTO #TmpPR SELECT Sifra_Pat, MAX(Datum_Od) FROM RutiPlan
    WHERE Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat) AND Datum_Od<=@Datum AND DenOdNedela=dbo.fn_DenOdNedela(@Datum) GROUP BY Sifra_Pat

    INSERT INTO #TmpRuta(Sifra_Pat, Datum, Sifra_Kup, Sifra_Obj)
    SELECT R.Sifra_Pat, @Datum, R.Sifra_Kup, R.Sifra_Obj FROM RutiPlan R INNER JOIN #TmpPR T ON R.Sifra_Pat=T.Sifra_Pat AND R.Datum_Od=T.Datum
    WHERE R.Sifra_Pat NOT IN (SELECT Sifra_Pat FROM RutiZaDatum WHERE Datum=@Datum)
    AND dbo.fn_DenOdNedela(@Datum)=R.DenOdNedela AND R.Sifra_Pat IN (SELECT Sifra_Pat FROM #TmpPat)
    END

    SET @Datum = DateAdd(day, 1, @Datum)
END
declare @SSQL as varchar(5000)


create table #TmpDetal
    (
    Sifra_Pat smallint,
    ImePat varchar(30),
    Sifra_Kup char(6),
    ImeKup varchar(40),
    Sifra_Obj smallint,
    ImeObj varchar(40),
    PoRuta char(1),
    Poseten char(1),
    SoBarkod char(1),
    Datum smalldatetime
    )
set @SSQL = 'insert into #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, Datum, Poseten, SoBarkod)
            select A.sifra_Oe, P.ImePat, A.Sifra_Kup, K.ImeKup, case when A.Sifra_Obj <> 0 then A.Sifra_Obj end, KO.ImeObj, A.DatumVreme,''D'', A.SoBarKod
            from Akcija A
            inner join Patnici P on A.Sifra_oe=P.Sifra_Pat
            inner join Komint K on K.Sifra_Kup = A.Sifra_Kup
            left outer join KObjekti KO on KO.Sifra_Obj = A.Sifra_Obj and KO.Sifra_Kup = A.Sifra_Kup
            where dbo.fn_VratiDatum(DatumVreme) >= '''+cast(@DatumOd as varchar(35))+''' and dbo.fn_VratiDatum(DatumVreme) <= '''+cast(@DatumDo as varchar(35))+''' '
If @Sifra_Pat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat = '+cast(@Sifra_Pat as varchar(15))+' '
If @Sifra_GrPat is not null
    set @SSQL = @SSQL + ' and P.Sifra_Pat in (select sifra_Pat from Sgrpat where Sif_GrPat = '''+cast(@Sifra_GrPat as varchar(6))+''' ) '
If @Podelba1 Is Not NULL
    If @KFPod1 = 'D'
        Set @SSQL = @SSQL + 'And (K.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or K.KDrugo1 Is Null) '
    Else
        Set @SSQL = @SSQL + 'And K.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
set @SSQL = @SSQL + ' order by A.DatumVreme, A.Sifra_Kup, A.Sifra_Obj '
exec(@SSQL)

--sega da gi izbriseme duplite vneseni vo rok od nekolku minuti
Declare @SifKup char(6), @SifObj smallint, @SifPat smallint, @SifKup1 char(6), @SifObj1 smallint, @SifPat1 smallint, @Datum1 smalldatetime
SET @SifKup1=''
SET @SifObj1=0
SET @SifPat1=0
SET @Datum1=GETDATE()
Declare Tab1 Cursor Fast_Forward For
    Select  Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum From #TmpDetal ORDER BY Sifra_Pat, Sifra_Kup, Sifra_Obj, Datum
Open Tab1
Fetch Next From Tab1 Into @SifPat, @SifKup, @SifObj, @Datum
While @@Fetch_Status = 0
Begin
    IF @SifPat1=@SifPat AND @SifKup1=@SifKup AND dbo.fn_VratiDatum(@Datum1)=dbo.fn_VratiDatum(@Datum)
    BEGIN
        IF (@SifObj IS NULL AND @SifObj1 IS NULL) OR (@SifObj IS NOT NULL AND @SifObj1 IS NOT NULL AND @SifObj=@SifObj1)
            Update #TmpDetal SET Poseten='X' WHERE Sifra_Pat=@SifPat AND Sifra_Kup=@SifKup AND Datum=@Datum
    END
    SET @SifPat1=@SifPat
    SET @SifKup1=@SifKup
    SET @SifObj1=@SifObj
    SET @Datum1=@Datum
    Fetch Next From Tab1  Into @SifPat, @SifKup, @SifObj, @Datum
End
Close Tab1
Deallocate Tab1

DELETE FROM #TmpDetal WHERE Poseten='X'

Update #TmpDetal Set Datum = dbo.fn_VratiDatum(Datum) --so ova na edno mesto go pretvorame datumot

UPDATE #TmpDetal SET Sifra_Obj=NULL WHERE Sifra_Obj=0    --so ova se eliminiraat greskite kade se zapisalo 0 mesto null

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
    and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
    and TR.Sifra_Obj is null
    and #TmpDetal.Sifra_Obj is null
    and TR.Datum = #TmpDetal.Datum

update #TmpDetal set PoRuta = 'D' from #tmpRuta TR
where TR.Sifra_Pat = #TmpDetal.Sifra_Pat
        and TR.Sifra_Kup = #TmpDetal.Sifra_Kup
        and #TmpDetal.Sifra_Obj is not null  --and #TmpDetal.Sifra_Obj <> 0
        and TR.Sifra_Obj = #TmpDetal.Sifra_Obj
        and TR.Datum = #TmpDetal.Datum

update #TmpDetal set PoRuta = 'N' where PoRuta is null

--sega da gi dodademe tie sto se vo ruta, a ne se poseteni
INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Datum as char(11)) FROM #TmpDetal) AND R.Sifra_Obj IS NULL

INSERT INTO #TmpDetal (Sifra_Pat, ImePat, Sifra_Kup, ImeKup, Sifra_Obj, ImeObj, PoRuta,    Poseten, SoBarkod, Datum)
SELECT R.Sifra_Pat, P.ImePat, R.Sifra_Kup, K.ImeKup, R.Sifra_Obj, KO.ImeObj, 'D', 'N', '', R.Datum
FROM #TmpRuta R INNER JOIN Patnici P ON R.Sifra_Pat=P.Sifra_Pat
INNER JOIN Komint K on K.Sifra_Kup = R.Sifra_Kup
LEFT OUTER JOIN KObjekti KO on KO.Sifra_Obj = R.Sifra_Obj and KO.Sifra_Kup = R.Sifra_Kup
WHERE Cast(R.Sifra_Pat as char(3))+R.Sifra_Kup+cast(R.Sifra_Obj as char(3))+cast(R.Datum as char(11)) NOT IN
(SELECT Cast(Sifra_Pat as char(3))+Sifra_Kup+cast(Sifra_Obj as char(3))+cast(Datum as char(11))FROM #TmpDetal WHERE Sifra_Obj IS NOT NULL) AND R.Sifra_Obj IS NOT NULL


--pred zbirni treba da zamenime sifra_pat i ime_Pat so grupata -  za supervisor
IF NOT @Sifra_GrPat IS NULL    --ako e pustena grupa - togas ni treba imeto na grupata - supervisor
    Update #TmpDetal SET Sifra_Pat = @Sifra_GrPat,ImePat = Ime_GrPat
    FROM  GrPat
    Where Sif_GrPat=@Sifra_GrPat
--sega zbirni
UPDATE #TmpDetal SET Sifra_Obj=0 WHERE Sifra_Obj IS NULL    --zaradi group by

insert into #Tmp select Sifra_Pat,TP.Datum, 'BrPosetiRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'D' and TP.Poseten = 'D'
group by Sifra_Pat,TP.Datum

insert into #Tmp select Sifra_Pat,TP.Datum, 'BrPosetiVonRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'N' and TP.Poseten = 'D'
group by Sifra_Pat,TP.Datum

insert into #Tmp select Sifra_Pat,TP.Datum, 'DefPosRuta', count (*) from #TmpDetal TP
where TP.PoRuta = 'D'
group by Sifra_Pat,TP.Datum

insert into #Tmp select Sifra_Pat,TP.Datum, 'VkupnoPoseti', count (*) from #TmpDetal TP
where TP.Poseten = 'D'
group by Sifra_Pat,TP.Datum

IF @SoVred ='D'
  BEGIN
    CREATE TABLE #TmpVred
    (
    Sifra_Pat smallint,
    Datum    smalldatetime,
    VrednostProd    decimal(18,2),
    VrednostVrat    decimal(18,2))

    INSERT INTO #TmpVred(Sifra_Pat,Datum,VrednostProd,VrednostVrat)
    SELECT D.Sifra_Pat,D.Datum_Dok, Case When @Kurs is null then SUM(D.Toc200) Else (SUM(D.Toc200) / @Kurs) end ,0 FROM Dokr D INNER JOIN #TmpPat P ON D.Sifra_Pat=P.Sifra_Pat
    WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo AND D.VlIzl = 'I' AND D.Sifra_Za=1 AND D.Sifra_Kup IS NOT NULL AND D.Toc200>0
    GROUP BY D.Sifra_Pat,D.Datum_Dok

    INSERT INTO #TmpVred(Sifra_Pat,Datum,VrednostProd,VrednostVrat)
    SELECT D.Sifra_Pat,D.Datum_Dok, 0,Case When @Kurs is null then SUM(D.Toc200) Else (SUM(D.Toc200) / @Kurs) end FROM Dokr D INNER JOIN #TmpPat P ON D.Sifra_Pat=P.Sifra_Pat
    WHERE D.Datum_Dok>=@DatumOd AND D.Datum_Dok<=@DatumDo AND D.VlIzl = 'I' AND D.Sifra_Za=1 AND D.Sifra_Kup IS NOT NULL AND D.Toc200<0
    GROUP BY D.Sifra_Pat,D.Datum_Dok
  END
--select * From #TmpDetal order by Sifra_Pat , Datum
--select * From #TmpDefKupVoRuti
--select * From #TmpVred TV order by TV.Sifra_Pat , TV.Datum
--select * From #Tmp TD order by TD.Sifra_Pat , TD.Datum
--return
create table #TmpKraj
(
Sifra_Pat smallint,
ImePat varchar(30),
Datum smalldatetime,
BrPosetiRuta integer,
BrPosetiVonRuta integer,
VkupnoPoseti    integer,
DefPosRuta     integer,
VrednProdazba    decimal(18,2),
VrednVrateno    decimal(18,2),)

insert into #TmpKraj(Sifra_Pat,Datum) select Sifra_pat,datum from #Tmp where datum is not null group by Sifra_pat,datum
update #TmpKraj set ImePat = TD.ImePat from #TmpDetal TD where TD.Sifra_Pat = #TmpKraj.Sifra_Pat
update #TmpKraj set BrPosetiRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat and T.datum = #TmpKraj.datum
update #TmpKraj set BrPosetiVonRuta = T.Kolku from #Tmp T where T.Sto = 'BrPosetiVonRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat and T.datum = #TmpKraj.datum
update #TmpKraj set VkupnoPoseti = T.Kolku from #Tmp T where T.Sto = 'VkupnoPoseti' and T.Sifra_Pat = #TmpKraj.Sifra_Pat and T.datum = #TmpKraj.datum
update #TmpKraj set DefPosRuta = T.Kolku from #Tmp T where T.Sto = 'DefPosRuta' and T.Sifra_Pat = #TmpKraj.Sifra_Pat and T.datum = #TmpKraj.datum
IF @SoVred='D'
   Begin
    Update #TmpKraj SET VrednProdazba = TV.VrednostProd
    FROM  #TmpVred TV
    WHERE TV.Sifra_Pat = #TmpKraj.Sifra_Pat and TV.Datum = #TmpKraj.Datum and  TV.VrednostVrat = 0

    Update #TmpKraj SET VrednVrateno = TV.VrednostVrat
    FROM  #TmpVred TV
    WHERE TV.Sifra_Pat = #TmpKraj.Sifra_Pat and TV.Datum = #TmpKraj.Datum and  TV.VrednostProd = 0

    END
Else
    Update #TmpKraj SET VrednProdazba = 0,VrednVrateno = 0

select * from #TmpKraj







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_podgr]'))
drop procedure [dbo].[sp_pregl_podgr]

Go


CREATE   PROCEDURE sp_Pregl_Podgr
    @Tabela VARCHAR(20),
        @Nisto_Proba VARCHAR(20)=null
AS
  Set @Tabela=Upper(@Tabela)
  If @Tabela='PODGRUPI'
      Select P.*, G.Ime_Gr
      From Podgrupi P
      Inner Join Grupi G ON P.Sifra_Gr=G.Sifra_Gr
      Order By P.Sifra_Podg
If @@ROWCOUNT=0
      RETURN 77000
   Else
      RETURN @@ERROR





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_rabnal_autoauto]'))
drop procedure [dbo].[sp_pregl_rabnal_autoauto]

Go

create PROCEDURE sp_Pregl_RabNal_AutoAuto
    @Sifra_OE        smallint,
    @DatumOtv_Od    smalldatetime,
    @DatumOtv_Do    smalldatetime,
    @Otv_Zatv        char(1) = 'O',    -- O - Otvoreni    Z - Zatvoreni
    @PodGarancija    char(1) = 'S',    -- D - Pod Garangija,    N - Drugi,      S - Site
    @Sifra_Kup        char(6) = Null,
     @Sifra_Rab         int = null,
    @Sifra_Art         varchar(20) = null,
     @Sifra_Rab_2     int = null,
    @SamoZavrseniNezatv    char(1) = Null,
    @Tip_Operacija    char(1) = Null

 AS

    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '

    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl +  ' And R.Sifra_OeRab = ' + cast(@Sifra_OE as Varchar(10)) +  ' '
    If @DatumOtv_Od is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Otv >= ''' + cast(@DatumOtv_Od as Varchar(35))  + ''' '
    If @DatumOtv_Do is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Otv <= ''' + cast(@DatumOtv_Do as Varchar(35))  + ''' '
    If @Sifra_Kup is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Kup= ' + @Sifra_Kup  + ' '
       If @Sifra_Rab is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab= ' + cast(@Sifra_Rab as varchar(8))  + ' '
       If @Sifra_Rab_2 is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab_2 = ' + cast(@Sifra_Rab_2 as varchar(8))  + ' '

    if @SamoZavrseniNezatv = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Null and
            (DatePart(hour, R.Datum_Kr_Proiz) <> 12 and DatePart(minute, R.Datum_Kr_Proiz) <> 0)'
    else
        begin
            If @Otv_Zatv = 'O'
                Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Null '
            Else If @Otv_Zatv = 'Z'
                Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Not Null '
        end

    If @PodGarancija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''D'' '
    Else If @PodGarancija = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''N'' '

    if @Tip_Operacija <> '' and @Tip_Operacija is not null
        Set @SSQLUsl = @SSQLUsl + ' And R.Tip_Operacija = ''' + @Tip_Operacija + ''' '

    Create Table #Izn
    (
     RabNalID    int,
     Toc200    decimal(18,6)
    )

    Set @SSQL = 'Select DRN.RabNalID, D.Toc200
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Where DRN.Tip_RabStav = ''T'' '

    Insert Into #Izn Exec(@SSQL+@SSQLUsl)

    Set @SSQL = 'Select R.Sifra_OeRab, R.Broj_RabN, R.Datum_Otv, R.Datum_Zatv, R.Sifra_Proiz Sifra_Art, K.ImeArt, R.Garancija,
            D.Opis, R.Opis Opis_RabN, Izn.Toc200, R.Sifra_Kup, Kup.ImeKup, RA.ImeRab, RA2.ImeRab ImeRab_2,
            R.Sifra_Rab, R.Sifra_Rab_2, R.Datum_Poc_Serv, R.Datum_Kr_Proiz, R.Datum_Izdav,
            DATEDIFF (hour, R.Datum_Poc_Serv, R.Datum_Kr_Proiz) SatiServis, R.Tip_Operacija,
            Voz.Registracija, R.PonudaBr, Kup.Telefon, R.ImeKlient
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Left Outer Join #Izn Izn On Izn.RabNalID=DRN.RabNalID
        Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra_Kup
        Left Outer Join Katart K On R.Sifra_Proiz = K.Sifra_art
        Left Outer Join Vozila Voz On Voz.Sifra_art = K.Sifra_art
        Left outer join Rabotnik RA on R.Sifra_Rab= RA.Sifra_Rab
        Left outer join Rabotnik RA2 on R.Sifra_Rab_2 = RA2.Sifra_Rab
        Where DRN.Tip_RabStav = ''T'' '

    If @Sifra_art is not null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Proiz= '''+cast(@Sifra_art as varchar(20))+''' '

    Exec(@SSQL+@SSQLUsl)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_rabnal_servis]'))
drop procedure [dbo].[sp_pregl_rabnal_servis]

Go

CREATE PROCEDURE [dbo].[sp_Pregl_RabNal_Servis]
    @Sifra_OE        smallint,
    @DatumOtv_Od        smalldatetime,
    @DatumOtv_Do        smalldatetime,
    @Otv_Zatv        char(1) = 'O',    -- O - Otvoreni    Z - Zatvoreni
    @PodGarancija        char(1) = 'S',    -- D - Pod Garangija,    N - Drugi,      S - Site
    @Sifra_Kup        char(6) = Null,
     @Sifra_Rab         int = null,
    @Sifra_Art         varchar(20) = null,
     @Sifra_Rab_2         int = null,
    @SamoZavrseniNezatv    char(1) = Null,
    @Tip_Operacija        char(1) = Null,
    @Sifra_Art_RabRaka    varchar(20) = Null

 AS

    Declare @SSQL as varchar(4000)
    Declare @SSQLUsl as varchar(4000)
    Set @SSQLUsl = ' '

    If @Sifra_OE Is Not Null
        Set @SSQLUsl = @SSQLUsl +  ' And R.Sifra_OeRab = ' + cast(@Sifra_OE as Varchar(10)) +  ' '
    If @DatumOtv_Od is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Otv >= ''' + cast(@DatumOtv_Od as Varchar(35))  + ''' '
    If @DatumOtv_Do is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Otv <= ''' + cast(@DatumOtv_Do as Varchar(35))  + ''' '
    If @Sifra_Kup is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Kup= ' + @Sifra_Kup  + ' '
       If @Sifra_Rab is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab= ' + cast(@Sifra_Rab as varchar(8))  + ' '
       If @Sifra_Rab_2 is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And R.Sifra_Rab_2 = ' + cast(@Sifra_Rab_2 as varchar(8))  + ' '

    if @SamoZavrseniNezatv = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Null and
            (DatePart(hour, R.Datum_Kr_Proiz) <> 12 and DatePart(minute, R.Datum_Kr_Proiz) <> 0)'
    else
        begin
            If @Otv_Zatv = 'O'
                Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Null '
            Else If @Otv_Zatv = 'Z'
                Set @SSQLUsl = @SSQLUsl + ' And R.Datum_Zatv Is Not Null '
        end

    If @PodGarancija = 'D'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''D'' '
    Else If @PodGarancija = 'N'
        Set @SSQLUsl = @SSQLUsl + ' And R.Garancija= ''N'' '

    if @Tip_Operacija <> '' and @Tip_Operacija is not null
        Set @SSQLUsl = @SSQLUsl + ' And R.Tip_Operacija = ''' + @Tip_Operacija + ''' '

    ------- Iznos na dokumentot zaradi lesen query za rezultatot
    Create Table #Izn
    (
     RabNalID    int,
     Toc200    decimal(18,6)
    )

    Set @SSQL = 'Select DRN.RabNalID, D.Toc200
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Where DRN.Tip_RabStav = ''F'' '

    Insert Into #Izn Exec(@SSQL+@SSQLUsl)
    ----

    -------- Presmetka na sati
    Create Table #Tros
    (
     RabNalID    int,
     SatiServis    decimal(18,6)
    )

    if @Sifra_Art_RabRaka is null
        set @Sifra_Art_RabRaka = '399999990'

    Set @SSQL = 'Select DRN.RabNalID, sum(S.Kolic)
        From Rabnal R
        Left Outer Join DokRabnal DRN
            On DRN.RabNalID = R.RabNalID
        Left Outer Join Stavr S
            on S.DokrId = DRN.DokrId
        Where DRN.Tip_RabStav = ''T'' and S.Sifra_Art = ''' + @Sifra_Art_RabRaka + ''' '

    Insert Into #Tros Exec(@SSQL + @SSQLUsl + ' Group By DRN.RabNalId ')
    -------

    Set @SSQL = 'Select R.Sifra_OeRab, R.Broj_RabN, R.Datum_Otv, R.Datum_Zatv, S.Sifra_Art, K.ImeArt, S.KontrSer, R.Garancija,
            D.Opis, R.Opis Opis_RabN, Izn.Toc200, R.Sifra_Kup, Kup.ImeKup, RA.ImeRab, RA2.ImeRab ImeRab_2,
            R.Sifra_Rab, R.Sifra_Rab_2, R.Datum_Poc_Serv, R.Datum_Kr_Proiz, R.Datum_Izdav,
            DATEDIFF (hour, R.Datum_Poc_Serv, R.Datum_Kr_Proiz) SatiPresm, R.Tip_Operacija,
            Voz.Registracija, R.PonudaBr, Kup.Telefon, R.ImeKlient, T.SatiServis
        From Rabnal R
        Left Outer Join DokRabnal DRN On DRN.RabNalID=R.RabNalID
        Left Outer Join Dokr D On D.DokrID=DRN.DokrId
        Left Outer Join Stavr S On S.DokrID=D.DokrID
        Left Outer Join #Izn Izn On Izn.RabNalID=DRN.RabNalID
        Left Outer Join #Tros T
            On T.RabNalID = DRN.RabNalID
        Left Outer Join Komint Kup On Kup.Sifra_Kup = R.Sifra_Kup
        Left Outer Join Katart K On K.Sifra_art = S.Sifra_art
        Left Outer Join Vozila Voz On Voz.Sifra_art = S.Sifra_art
        Left outer join Rabotnik RA on R.Sifra_Rab= RA.Sifra_Rab
        Left outer join Rabotnik RA2 on R.Sifra_Rab_2 = RA2.Sifra_Rab
        Where DRN.Tip_RabStav = ''V'' '

    If @Sifra_art is not null
        Set @SSQLUsl = @SSQLUsl + ' And K.Sifra_art= '''+cast(@Sifra_art as varchar(20))+''' '

    Exec(@SSQL+@SSQLUsl)










Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_razlceniprobl]'))
drop procedure [dbo].[sp_pregl_razlceniprobl]

Go
CREATE PROCEDURE sp_Pregl_RazlCeniProbl

    @Sif_GrOrg    char(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Kto        char(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Grupa_Marza    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null
AS

    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select R.Datum_Vnes, R.Sifra_Oper, R.Sif_GrOrg, R.Sifra_Oe, R.Sifra_Art, K.ImeArt, R.Nabavna, R.CenaProdPreth, R.CenaProdNova, R.OpisProbl,
                K.Sifra_Podg, P.Ime_Podg, P.Grupa_Marza
            From RazlCeniProbl R
            Inner Join Katart K On K.Sifra_Art = R.Sifra_Art
            Inner Join Podgrupi P On P.Sifra_Podg = K.Sifra_Podg
            Where 1=1 '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Grupa_Marza Is Not Null
        Set @SSQL = @SSQL + ' And P.Grupa_Marza = ' + Cast(@Grupa_Marza as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Vnes >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Vnes < ''' + Cast(@Datum_Do + 1 as varchar(30)) + ''' '  --  + 1 zs datumot se zapisuvat so vreme
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_samozbdok]'))
drop procedure [dbo].[sp_pregl_samozbdok]

Go





CREATE               PROCEDURE sp_Pregl_SamoZbDok
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sifra_Dok    varchar(100) = Null,
    @Broj_Dok_Od     int=null,
    @Broj_Dok_Do     int=null,
    @Markiran    char(1) = Null,        -- D - So Prevoznik,     N - Bez Prevoznik
    @Sifra_Grad    Smallint = Null,
    @Sifra_Pat    smallint = NULL,
    @Sifra_Kup    char(6) = Null
AS
    Declare @SSQL as varchar(8000)
Set @SSQL =  'SELECT D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.DokrZbID, D.Datum_Vnes,
    Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Dok as varchar(6)) + ''/'' + Cast(D.Broj_Dok as varchar(10)) ZbirenDok,
    D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
    (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
    D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Sifra_Nal, D.Broj_Nal,
    (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End) KDrugo1, K1.Ime_1K Ime_KDrugo1, D.Opis,
    D.Toc200 as IznosDok, D.Identif_Br
From DokrZb D
Left Outer Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
Left Outer Join KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End)
Left Outer Join Prevoznik P On P.Sifra_Prev = D.Sifra_Prev
Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat  Where 1=1 '
If @Sifra_Oe Is Not Null
    Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
If @Sifra_Dok Is Not Null
    Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @Sifra_Dok + ') '
If @Broj_Dok_Od Is Not Null
    Set @SSQL = @SSQL + ' And D.Broj_Dok >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
If @Broj_Dok_Do Is Not Null
    Set @SSQL = @SSQL + ' And D.Broj_Dok <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
If @Datum_Od Is Not Null
    Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
If @Datum_Do Is Not Null
    Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
If @Sifra_Prev Is Not Null
    Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
If @Markiran = 'D'
    Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
Else If @Markiran = 'N'
    Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + ' And ((OB.Sifra_Grad Is Not Null And OB.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
            OR ( OB.Sifra_Grad Is Null and K.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
IF @Sifra_Pat IS NOT NULL
    Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
If @Sifra_Kup Is Not Null
    Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Set @SSQL = @SSQL + ' Order By G.ImeGrad, K.ImeKup, D.Broj_Dok '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_smetki]'))
drop procedure [dbo].[sp_pregl_smetki]

Go
CREATE     PROCEDURE sp_Pregl_Smetki
    @Sifra_Oe        smallint = null,
    @KoiOe        char(6) = null,
    @Sifra_Kup        char(6) = null,
    @Datum_Od        smalldatetime = null,
    @Datum_Do        smalldatetime = null,
    @FraUpl        char(1) = null,
    @Sifra_Nac        smallint = null,
    @KorSoOE        char(1) = 'N',
    @Sifra_TipKartKor    smallint = Null,
    @Sifra_Kor_Od        varchar(20) = Null,
    @Sifra_Kor_Do        varchar(20) = Null,
    @Dat_Zacl_Od        smalldatetime = Null,
    @Dat_Zacl_Do        smalldatetime = Null,
    @Aktiven        char(1)=Null,
    @Kred_Klub         char(2) = 'KR'    -- KR - Kreditni       KL - Klub       K2 - Kreditni + Klub
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select K.Sifra_Mark, M.ImeMark, K.Sifra_Oe, O.ImeOrg, K.Broj_ska, K.Sifra_Kor, KK.ImeKor,
            K.Sifra_Nac, K.Datum_Ska, '
    If @Kred_Klub = 'KL'
        Set @SSQL = @SSQL + ' K.KlubDolzi Dolzi, 0 Pobaruva, '
    Else If @Kred_Klub = 'KR'
        Set @SSQL = @SSQL + ' K.Dolzi, K.Pobaruva, '
    Else --     If @Kred_Klub = 'K2'
        Set @SSQL = @SSQL + ' (Case When K.KlubDolzi <> 0 Then (K.Dolzi + K.KlubDolzi) Else K.Dolzi End) Dolzi, K.Pobaruva, '
    Set @SSQL = @SSQL + ' K.FraUpl, KK.Sifra_Kup, KUP.ImeKup
                  From KartProm K '
    IF @KorSoOE = 'D'
        Set @SSQL = @SSQL + 'Left outer Join KartKor KK On K.Sifra_Oe = KK.Sifra_Oe and K.Sifra_Kor = KK.Sifra_Kor'
    ELSE
        Set @SSQL = @SSQL + 'Left outer Join KartKor KK On K.Sifra_Kor = KK.Sifra_Kor'
    Set @SSQL = @SSQL + ' Inner Join Orged O On O.Sifra_Oe = K.Sifra_Oe
                    Left outer Join Komint KUP On KUP.Sifra_Kup = KK.Sifra_Kup
                        Left Outer Join Marketi M On M.Sifra_Mark = K.Sifra_Mark Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQL  = @SSQL + ' and K.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @KoiOe  +  ''') '
    If @Sifra_Kup Is Not Null
        Set @SSQL  = @SSQL + ' and K.Sifra_Kup = ''' + @Sifra_Kup + ''' '    -- 27.07.2009  Set @SSQL  = @SSQL + ' and KK.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' and K.Datum_Ska >= ''' + cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' and K.Datum_Ska <= ''' + cast(@Datum_Do as varchar(35)) + ''' '
    If @FraUpl Is Not Null
        Set @SSQL = @SSQL + ' and K.FraUpl = ''' + @FraUpl + ''' '
    If @Sifra_Nac Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Nac = ' + cast(@Sifra_Nac as varchar(6)) + ' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQL = @SSQL + ' and KK.Sifra_TipKartKor = ' + cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Sifra_Kor_Od Is Not Null
        Set @SSQL  = @SSQL + ' And K.Sifra_Kor >= ''' + @Sifra_Kor_Od + ''' '
    If @Sifra_Kor_Do Is Not Null
        Set @SSQL  = @SSQL + ' And K.Sifra_Kor <= ''' + @Sifra_Kor_Do + ''' '
    If @Aktiven Is Not Null
        Set @SSQL  = @SSQL + ' And KK.Aktiven = ''' + @Aktiven + ''' '
    If @Dat_Zacl_Od Is Not Null
        Set @SSQL  = @SSQL + ' And KK.DodadenNa >= ''' + Cast(@Dat_Zacl_Od as varchar(30)) + ''' '
    If @Dat_Zacl_Do Is Not Null
        Set @SSQL  = @SSQL + ' And KK.DodadenNa <= ''' + Cast(@Dat_Zacl_Do as varchar(30)) + ''' '
    If @Kred_Klub = 'KL'
        Set @SSQL = @SSQL + ' And K.KlubDolzi <> 0 '
    Else If @Kred_Klub = 'KR'
        Set @SSQL = @SSQL + ' And (K.Dolzi <> 0 Or K.Pobaruva <> 0) '
    Else
        Set @SSQL = @SSQL + ' And ((Case When K.KlubDolzi <> 0 Then (K.Dolzi + K.KlubDolzi) Else K.Dolzi End) <> 0 Or K.Pobaruva <> 0) '
    Exec (@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_specifikacii]'))
drop procedure [dbo].[sp_pregl_specifikacii]

Go


CREATE           PROCEDURE sp_Pregl_Specifikacii
    @Godina    smallint=NUll,
    @Mesec    smallint=Null,
    @Sifra_PodrSluzba    char(4)=Null,
    @Faktura_Br    char(6)=Null
AS
DECLARE @SSQL as varchar(2000)
DECLARE @SSQLUsl as varchar(1000)
SET @SSQLUsl=''
IF @Godina IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Godina_Fra='+Cast(@Godina as char(4))
IF @Mesec IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Mesec_Fra='+Cast(@Mesec as char(2))
IF @Sifra_PodrSluzba IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Sifra_PodrSluzba_Fakt='''+@Sifra_PodrSluzba+''' '
IF @Faktura_Br IS NOT NULL
    SET @SSQLUsl = @SSQLUsl + ' AND F.Faktura_Br='''+@Faktura_Br+''' '
CREATE TABLE #TmpRec
( Godina_Fra    smallint,
  Faktura_Br    char(6),
  Specif_Br    char(6),
  BrRecepti    int
)

SET @SSQL = 'SELECT R.Godina_Fra, R.Faktura_Br, R.Specif_Br, COUNT(R.Sifra_Art)
FROM Recepti R
INNER JOIN Faktura F ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br
WHERE 1=1 '+@SSQLUsl + ' GROUP BY R.Godina_Fra, R.Faktura_Br, R.Specif_Br'
INSERT INTO #TmpRec EXEC(@SSQL)
SET @SSQL= 'SELECT S.Godina_Fra, S.Faktura_Br, S.Rangiran, S.Specif_Br, S.Sifra_Apteka, F.Mesec_Fra, F.Datum_Fra, F.Sifra_PodrSluzba_Fakt, P.ImePodrSluzba, R.BrRecepti,
    Round(S.NabVr_BezDDV, 4) Iznos_Tender, Round(S.Iznos_Marza, 4) Iznos_Marza, Round(S.Osnovica_DDV, 4) Osnov_DDV,
    Round(S.Iznos_DDV, 4) Iznos_Na_DDV, Round(S.Vk_Iznos, 4) Iznos_So_DDV, Round(S.Vk_PresmParticip, 4) Iznos_Partic, Round(S.Vk_ZaNaplata, 4) Vk_ZaNaplata,
    S.Spc_Specif, S.Spc_Podr, S.BezPartic, S.Poc_Broj_Recept, S.Kr_Broj_Recept, S.Kolku_Recepti,
    round(S.Vk_Partic, 4) Napl_Partic
    FROM Specifikacii S
    INNER JOIN Faktura F ON S.Godina_Fra=F.Godina_Fra AND S.Faktura_Br=F.Faktura_Br
    INNER JOIN PodracniSluzbi P ON F.Sifra_PodrSluzba_Fakt=P.Sifra_PodrSluzba
    INNER JOIN #TmpRec R ON R.Godina_Fra=F.Godina_Fra AND R.Faktura_Br=F.Faktura_Br AND R.Specif_Br=S.Specif_Br WHERE 1=1 '
    + @SSQLUsl + ' ORDER BY S.Godina_Fra, Cast(S.Specif_Br as int) '
EXEC (@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_sprometadh_cela]'))
drop procedure [dbo].[sp_pregl_sprometadh_cela]

Go






create       PROCEDURE  [dbo].[sp_Pregl_SPrometADH_Cela]
    @Datum_Od    smalldatetime = null,   --promet
    @Datum_Do    smalldatetime = null,   --promet
    @Sifra_Oper    smallint = Null,
    @Sifra_Oe    smallint = Null,
    @BrKasa        smallint = Null,
    @KlucSodrz    varchar(1000) = Null,
    @Kto        char(6)= null,
    @Sifra_TipKartKor smallint= null,
    @Kom_KartKor   char(6)= null
  --  @Podr       char(1)='K'
AS

    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    ------------------------------------------------------------------- U S L O V ------------------------------------------------------------------------------------
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.BrKasa = ' + Cast(@BrKasa as varchar(10)) + ' '
    If @Kto is not null
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto =' + @Kto + ' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And KK.Sifra_TipKartKor = ' + Cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Kom_KartKor is not null
        Set @SSQLUsl = @SSQLUsl + ' And KK.Sifra_Kup =' + @Kom_KartKor + ' '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------

    CREATE TABLE #Tmp1
    (Sifra_OE    smallint,
    Grp_Kasa    smallint,
    BrKasa        smallint,
    Broj_Ska    int,
    OpisADH        varchar(20)
    )

    Set @SSQL = 'SELECT DISTINCT S.Sifra_oe, S.Grp_kasa, S.BrKasa, S.Broj_Ska, OpisADH
                FROM SprometAdh S
                INNER JOIN Promet P ON P.Sifra_Oe=S.Sifra_oe and P.Grp_Kasa=S.Grp_Kasa and P.BrKasa=S.BrKasa and P.Broj_ska=S.Broj_ska
                Where 1=1 '
    If @KlucSodrz Is Not Null
        Set @SSQL = @SSQL + ' And S.KlucSodrz ='''+@KlucSodrz+''' ' ---in ( ''' + @KlucSodrz + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_Evid >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_Evid <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Oper = ' + Cast(@Sifra_Oper as varchar(6)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And S.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQL = @SSQL + ' And S.BrKasa = ' + Cast(@BrKasa as varchar(10)) + ' '
    If @Kto is not null
        Set @SSQL = @SSQL + ' And K.Kto =' + @Kto + ' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQL = @SSQL + ' And KK.Sifra_TipKartKor = ' + Cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Kom_KartKor is not null
        Set @SSQL = @SSQL + ' And KK.Sifra_Kup =' + @Kom_KartKor + ' '

       INSERT INTO #Tmp1 EXEC (@SSQL)

    Set @SSQL = ' SELECT S.Sifra_Oe, S.Grp_Kasa, S.BrKasa, S.Broj_Ska, S.Rbr, S.KlucSodrz, S.Oznaka, S.Oznaka2, S.KrtOzn,
                  S.Vredn, S.Vredn2, T.OpisAdh, K.ImeArt, SA.Sifra_art, SA.Rbr SRbr, SA.Sifra_oe SSifra_oe, SA.Grp_kasa SGrp_Kasa, SA.BrKasa SBrKasa, SA.Broj_Ska SBroj_ska,
                  SA.Kolic , SA.Cena, KK.ImeKor
                  FROM SPromet SA
                  LEFT OUTER Join SprometAdh S On SA.Sifra_Oe=S.Sifra_oe and SA.Grp_Kasa=S.Grp_Kasa and SA.BrKasa=S.BrKasa and SA.Broj_ska=S.Broj_ska AND SA.Rbr=S.Rbr
                  INNER JOIN #Tmp1 T ON T.Sifra_Oe=SA.Sifra_oe and T.Grp_Kasa=SA.Grp_Kasa and T.BrKasa=SA.BrKasa and T.Broj_ska=SA.Broj_ska
                  Left Outer Join Katart K on SA.Sifra_Art=K.Sifra_Art
                  Left Outer Join KartKor KK on T.OpisAdh=KK.Sifra_Kor
                  Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And SA.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQL = @SSQL + ' And SA.BrKasa = ' + Cast(@BrKasa as varchar(10)) + ' '
    If @Kto is not null
        Set @SSQL = @SSQL + ' And K.Kto =' + @Kto + ' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQL = @SSQL + ' And KK.Sifra_TipKartKor = ' + Cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Kom_KartKor is not null
        Set @SSQL = @SSQL + ' And KK.Sifra_Kup =' + @Kom_KartKor + ' '
    Set @SSQL = @SSQL + ' Order by   SA.Sifra_Art, K.ImeArt '



    print @SSQL
    Exec(@SSQL)









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_sprometadh_smetka]'))
drop procedure [dbo].[sp_pregl_sprometadh_smetka]

Go


CREATE    PROCEDURE [dbo].[sp_Pregl_SPrometADH_Smetka]
    @Datum_Od    smalldatetime = null,
    @Datum_Do    smalldatetime = null,
    @Sifra_Oper    smallint = Null,
    @Sifra_Oe    smallint = Null,
    @BrKasa        smallint = Null,
    @KlucSodrz    varchar(1000) = Null
AS

    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)

    Set @SSQLUsl = ' '

    ------------------------------------------------------------------- U S L O V ------------------------------------------------------------------------------------
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Datum_Evid >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Datum_Evid <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Oper = ' + Cast(@Sifra_Oper as varchar(6)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.BrKasa = ' + Cast(@BrKasa as varchar(10)) + ' '
    If @KlucSodrz Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And SA.KlucSodrz in ( ' + @KlucSodrz + ') '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------

    Set @SSQL = ' SELECT P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska,
                P.Sifra_Oper, OP.Ime_Oper, P.Datum_Evid, P.DatumVreme,
                P.OpisAdr, SA.Rbr, SA.KlucSodrz, SA.Oznaka, SA.Oznaka2, SA.KrtOzn, Sum(SA.Vredn) Vredn, Sum(SA.Vredn2) Vredn2, SA.OpisAdh,
                Sum(S.Kolic) Kolic, Sum(S.Kolic*S.Cena*(1-S.Popust/100)) Vrednost, S.Sifra_Art, K.ImeArt,
                KL.Oznaka KOznaka,KL.Oznaka2 KOznaka2,KL.KrtOzn KKrtOzn,KL.Vredn KVredn,KL.Vredn2 KVredn2,KL.OpisAdh KOpisAdh
                    FROM Promet P
                    Inner Join SPromet S On S.Sifra_Oe=P.Sifra_Oe And S.Grp_Kasa=P.Grp_Kasa And S.BrKasa=P.BrKasa And S.Broj_Ska=P.Broj_Ska
                       Inner Join SPrometAdh SA On S.Sifra_Oe=SA.Sifra_Oe And S.Grp_Kasa=SA.Grp_Kasa And S.BrKasa=SA.BrKasa And S.Broj_Ska=SA.Broj_Ska And S.Rbr=SA.Rbr
                       Left Outer Join KlucSPrometAdh KL on SA.KlucSodrz=KL.KlucSodrz
                    Left Outer Join Katart K on S.Sifra_Art=K.Sifra_Art
                    Left Outer Join  Operatori OP On P.Sifra_Oper=OP.Sifra_Oper
                    Where 1=1 ' + @SSQLUsl + '
            Group By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska,
                P.Sifra_Oper, OP.Ime_Oper, P.Datum_Evid, P.DatumVreme,
                P.OpisAdr, SA.Rbr, SA.KlucSodrz, SA.Oznaka, SA.Oznaka2, SA.KrtOzn, SA.OpisAdh, S.Sifra_Art, K.ImeArt,
                KL.Oznaka, KL.Oznaka2, KL.KrtOzn, KL.OpisAdh, KL.Vredn,KL.Vredn2
            Order By P.Sifra_Oe, P.Grp_Kasa, P.BrKasa, P.Broj_Ska, SA.Rbr '
    print @SSQL
    Exec(@SSQL)















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_sprometadh_spromet]'))
drop procedure [dbo].[sp_pregl_sprometadh_spromet]

Go



CREATE       PROCEDURE  sp_Pregl_SPrometADH_SPromet
    @Datum_Od    smalldatetime = null,
    @Datum_Do    smalldatetime = null,
    @Sifra_Oper    smallint = Null,
    @Sifra_Oe    smallint = Null,
    @BrKasa        smallint = Null,
    @KlucSodrz    varchar(1000) = Null,
    @Kto        char(6)= null
  --  @Podr       char(1)='K'
AS

    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    ------------------------------------------------------------------- U S L O V ------------------------------------------------------------------------------------
    If @Datum_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Datum_Evid >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Datum_Evid <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Oper Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Oper = ' + Cast(@Sifra_Oper as varchar(6)) + ' '
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @BrKasa Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And P.BrKasa = ' + Cast(@BrKasa as varchar(10)) + ' '
--    If @KlucSodrz Is Not Null
--        Set @SSQLUsl = @SSQLUsl + ' And SA.KlucSodrz='''+@KlucSodrz+''' ' ---in ( ''' + @KlucSodrz + ''') '
    If @Kto is not null
        Set @SSQLUsl = @SSQLUsl + ' And K.Kto =' + @Kto + ' '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------

    Set @SSQL = ' SELECT S.Sifra_Art, K.ImeArt,
                  Sum(S.Kolic) Kolic, Sum(S.Kolic*S.Cena*(1-S.Popust/100)) Vrednost,
                  Sum(SA.Vredn) Vredn, Sum(SA.Vredn2) Vredn2, SUM(CASE When SA.Sifra_OE IS NOT NULL Then S.Kolic ELSE 0 END) KolicADH
                  FROM Spromet S
                  Inner Join Promet P On S.Sifra_Oe=P.Sifra_Oe And S.Grp_Kasa=P.Grp_Kasa And S.BrKasa=P.BrKasa And S.Broj_Ska=P.Broj_Ska
                  Left Outer Join SPrometAdh SA On S.Sifra_Oe=SA.Sifra_Oe And S.Grp_Kasa=SA.Grp_Kasa And S.BrKasa=SA.BrKasa And S.Broj_Ska=SA.Broj_Ska And S.Rbr=SA.Rbr AND SA.KlucSodrz='''+@KlucSodrz+'''
                  Left Outer Join Katart K on S.Sifra_Art=K.Sifra_Art
                  Where 1=1 ' + @SSQLUsl + '
                  Group By S.Sifra_Art, K.ImeArt
                  Order by   S.Sifra_Art, K.ImeArt '
--    If @Podr='K'
--              Set @SSQL = 'Order By KolicADH '
 --   If @Podr='V'
 --              Set @SSQL = 'Order By Vrednost '
  --  If @Podr='P'
   --            Set @SSQL = 'Order By Vredn2 '

    print @SSQL
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_sumar_spremac]'))
drop procedure [dbo].[sp_pregl_sumar_spremac]

Go



CREATE  PROCEDURE sp_Pregl_Sumar_Spremac
    @Sif_Spremac varchar(5)=null,
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sif_GrOrg    char(6) = null,
    @Podred char(1) = 'P'

AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(1000)
    SEt @SSQLUsl = ' '

        If @Sifra_Oe Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
        If @Sif_Spremac Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Spremil = ''' + Cast(@Sif_Spremac as varchar(5)) + ''' '
        If @Datum_Od Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        If @Sifra_Prev Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
        If @Sif_GrOrg Is Not Null
            Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Sif_GrOrg + ''') '

    If @Podred = 'S'
        begin
            Set @SSQL =  'SELECT  D.Spremil, SP.ImeSpremac, count (distinct D.DokrID) KolkuDok, Count(S.DokID) KolkuStavki, sum(S.Kolic * (Case When K.Tezina Is Not Null Then K.Tezina Else 0 End)) as NetoTezina
                FROM Dokr D
                Inner Join Stavr S On S.DokrID=D.DokrID
                Inner Join Katart K on K.Sifra_art = S.Sifra_art
                inner join TipDok TD on TD.Sifra_Dok = D.Sifra_Dok
                inner join OrgEd O on O.Sifra_Oe = D.Sifra_Oe
                left outer join Spremac SP on SP.Sif_Spremac = D.Spremil
                Where TD.Vl_Izl = ''I'' '

            set @SSQL = @SSQL + @SSQLUsl + ' Group BY  D.Spremil, SP.ImeSpremac '
            set @SSQL = @SSQL + ' Order BY D.Spremil '
        end
    Else If @Podred = 'P'
        begin
            Set @SSQL =  'SELECT  D.Sifra_Prev As Spremil, P.ImePrev as ImeSpremac, count (distinct D.DokrID) KolkuDok, Count(S.DokID) KolkuStavki, sum(S.Kolic * (Case When K.Tezina Is Not Null Then K.Tezina Else 0 End)) as NetoTezina
                    FROM Dokr D
                    Inner Join Stavr S On S.DokrID=D.DokrID
                    Inner Join Katart K on K.Sifra_art = S.Sifra_art
                    Inner Join TipDok TD on TD.Sifra_Dok = D.Sifra_Dok
                    Inner Join OrgEd O on O.Sifra_Oe = D.Sifra_Oe
                    left outer join Prevoznik P on P.Sifra_Prev = D.Sifra_Prev
                    Where TD.Vl_Izl = ''I'' '

            set @SSQL = @SSQL + @SSQLUsl + ' Group BY D.Sifra_Prev, P.ImePrev '
            set @SSQL = @SSQL + ' Order BY D.Sifra_Prev '

        end


    print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_sumaren_podok]'))
drop procedure [dbo].[sp_pregl_sumaren_podok]

Go


CREATE    PROCEDURE sp_Pregl_Sumaren_PoDok
    @Sifra_OE         Smallint = Null,
    @KoiOE         Varchar(500) = Null,
    @Datum_Dok_Od     Smalldatetime = Null,
    @Datum_Dok_Do     Smalldatetime = Null,
    @PoKojDatum        Char(1) = 'D',
    @Sifra_Oper        Varchar(20) = Null,
    @MaterDok        char(1) = 'D',
    @FinDok        char(1) = 'D'
AS
    If @PoKojDatum = 'V'
            If @Datum_Dok_Do Is Not Null
        Set @Datum_Dok_Do = @Datum_Dok_Do + 1
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Set @SSQLUsl = ' '

    Create Table #Dok
    (
     MatFin        char(1),
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Vlez_Dolzi    decimal(18,6),
     Izlez_Pobar    decimal(18,6),
     KolkuDokVlez integer,
     KolkuDokIzlez integer
    )

    If @Sifra_Oper IS NOT NULL
                  SET @SSQLUsl=@SSQLUSl+'AND D.Sifra_Oper=''' + @Sifra_Oper + ''' '
           If @Sifra_OE Is NOT Null
                  SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
           If @KoiOE Is NOT Null
                  SET @SSQLUsl = @SSQLUsl + 'AND D.Sifra_OE In (' + @KoiOE + ') '
        If @PoKojDatum = 'V'
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Vnes >= ''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
            If @Datum_Dok_Do Is NOT Null
                 SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Vnes < ''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End
        Else
        Begin
            If @Datum_Dok_Od Is NOT Null
                SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
               If @Datum_Dok_Do Is NOT Null
                 SET @SSQLUsl = @SSQLUsl + 'AND D.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
        End

---------------------------------------------------- M A T E R I J A L N I    D O K U M E N T I ----------------------------------------------------------
    If @MaterDok = 'D'
    Begin
        SET @SSQL = 'SELECT ''A'' MatFin, D.Sifra_OE, D.Sifra_Dok,
                    Sum(Case When D.VlIzl=''V'' Then D.Toc200 Else 0 End) Vlez_Dolzi, 0,
                    Count(*), 0
                    FROM DOKR D
                    Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
                    Inner Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                    WHERE  D.VlIzl = ''V''     '


        Set @SSQL = @SSQL + @SSQLUsl

        Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.VlIzl '

        Insert Into #Dok EXEC(@SSQL)

        SET @SSQL = 'SELECT ''A'' MatFin, D.Sifra_OE, D.Sifra_Dok,
                    0,Sum(Case When D.VlIzl=''I'' Then D.Toc200 Else 0 End) Izlez_Pobar,
                    0,Count(*)
                    FROM DOKR D
                    Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
                    Inner Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                    WHERE  D.VlIzl = ''I''     '

        Set @SSQL = @SSQL + @SSQLUsl

        Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.VlIzl '

        Insert Into #Dok EXEC(@SSQL)

    End
---------------------------------------------------- F I N A N S I S K I    D O K U M E N T I ----------------------------------------------------------
    If @FinDok = 'D'
    Begin
        SET @SSQL = ' SELECT ''B'', D.Sifra_OE, D.Sifra_Dok,
                    Sum(D.Dolzi) Vlez_Dolzi, Sum(D.Pobaruva) Izlez_Pobar,
                    Count(*), 0
                    FROM AnFinDok D
                    Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
                    INNER JOIN TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                    WHERE TD.DaliMater = ''N'' AND TD.Vl_Izl = ''V''
                    And (D.Sifra_Dok Not Between 801 and 808) '

        Set @SSQL = @SSQL + @SSQLUsl

        Set @SSQL = @SSQL + 'Group By D.Sifra_OE,  D.Sifra_Dok, TD.Vl_Izl '
        Insert Into #Dok EXEC(@SSQL)

        SET @SSQL = ' SELECT ''B'', D.Sifra_OE, D.Sifra_Dok,
                    Sum(D.Dolzi) Vlez_Dolzi, Sum(D.Pobaruva) Izlez_Pobar,
                    0, Count(*)
                    FROM AnFinDok D
                    Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
                    INNER JOIN TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
                    WHERE TD.DaliMater = ''N'' AND TD.Vl_Izl <> ''V''
                    And (D.Sifra_Dok Not Between 801 and 808) '

        Set @SSQL = @SSQL + @SSQLUsl

        Set @SSQL = @SSQL + 'Group By D.Sifra_OE,  D.Sifra_Dok, TD.Vl_Izl '
        Insert Into #Dok EXEC(@SSQL)

    End

    --print @SSQL
    --Exec (@SSQL)

    Select D.MatFin, D.Sifra_Oe, O.ImeOrg, D.Sifra_Dok, TD.ImeDok, sum(D.Vlez_Dolzi) as Vlez_Dolzi, sum(D.Izlez_Pobar) as Izlez_Pobar,
    sum(D.KolkuDokVlez) as KolkuDokVlez, sum(D.KolkuDokIzlez) as KolkuDokIzlez
    From #Dok D
    Inner Join Orged O On O.Sifra_Oe=D.Sifra_Oe
    Inner Join TipDok TD On TD.Sifra_Dok=D.Sifra_Dok
    group by D.MatFin, D.Sifra_Oe, O.ImeOrg, D.Sifra_Dok, TD.ImeDok
    Order By D.MatFin, D.Sifra_Oe, D.Sifra_dok




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_teknar]'))
drop procedure [dbo].[sp_pregl_teknar]

Go







CREATE      PROCEDURE sp_Pregl_TekNar
    @Sifra_OE Smallint = Null,
    @ListaTipNar    varchar (100)=Null,
       @Datum_Nar_Od Smalldatetime = Null,
       @Datum_Nar_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = null,
    @VlIzl Char(1) = 'V',
    @Sifra_Pat    smallint = Null,
    @SamoSoZatv char(1)='N'
AS
    IF @Datum_Nar_Od IS NULL
        SET @Datum_Nar_Od = GetDate() - 3
    If @Datum_Nar_Do IS NULL
        SET @Datum_Nar_Do = GetDate()

    Declare @SSQL Varchar(4000)

    SET @SSQL = 'SELECT Nar.NarID, Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Identif_Br,
            Nar.Sifra_Kup, Nar.Datum_Nar, Nar.Datum_Vnes Datum_Vnes, Nar.Datum_Izm,
            Nar.Uces, Nar.Rok, Nar.Sifra_Pat, Nar.Sifra_Oper, Nar.Sifra_OpIz, Nar.Toc200,
            Nar.DanDokCena, Nar.DanmagCena,    Nar.Kasa, Nar.Prenesen,
            Nar.Stat_Nar, Nar.Zaklucen, Nar.Stat_Dok_Nar, TN.ImeNar, K.ImeKup, KO.ImeObj, K.SMesto,
            O.ImeOrg As IORG, TN.VlIzl,    ''NAR'' as DokrNar, Nar.Realiziran, TN.NacinZatv
            FROM Naracki Nar
            INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
            LEFT OUTER JOIN Komint K ON Nar.Sifra_Kup=K.Sifra_Kup
            LEFT OUTER JOIN KObjekti KO ON Nar.Sifra_Kup = KO.Sifra_Kup And Nar.Sifra_Obj=KO.Sifra_Obj
            INNER JOIN Orged O ON Nar.Sifra_OE=O.Sifra_OE
            Where 1=1 '
    If @SamoSoZatv='D'
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Nar<100'        --bidejki so prevz.vo wMobMag se pravat nar.za zatv so tipnar+100
    If @ListaTipNar Is NOT NULL
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Nar in (' + @ListaTipNar + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + ' AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + ' AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQL = @SSQL + ' AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + ' AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '

    SET @SSQL = @SSQL + ' order by datum_nar desc, datum_vnes desc'
    EXEC (@SSQL)













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_whmlokacii]'))
drop procedure [dbo].[sp_pregl_whmlokacii]

Go


CREATE  PROCEDURE sp_Pregl_WhmLokacii

    @Sifra_Oe    smallint = NULL,
    @Sekc_ID    varchar(15)= null

AS

    Declare @SSQL as varchar(1000)
    Set @SSQL =  'SELECT W.*, O.ImeOrg, S.Sekc_Ime
              from WhmLokacija W
              inner join OrgEd O
                on O.Sifra_Oe = W.Sifra_Oe
              left outer join WhmSekcija S
                on S.Sifra_Oe = W.Sifra_Oe and S.Sekc_ID = W.Sekc_Id
              Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And W.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @Sekc_ID Is Not Null
        Set @SSQL = @SSQL + ' And W.Sekc_ID = ''' + Cast(@Sekc_ID as varchar(6)) + ''' '
print(@ssql)
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_whmsekcii]'))
drop procedure [dbo].[sp_pregl_whmsekcii]

Go

CREATE PROCEDURE sp_Pregl_WhmSekcii

    @Sifra_Oe    smallint = NULL

AS

    Declare @SSQL as varchar(1000)
    Set @SSQL =  'SELECT W.Sifra_Oe, O.ImeOrg, W.Sekc_ID,
            W.Sekc_Ime, W.Sekc_Opis, W.Sekc_BarKod,
            W.Sect_X_Min, W.sect_X_Max, W.Sect_Y_Min, W.Sect_Y_Max, W.Sect_Z_Min, W.Sect_Z_Max, W.Sekc_Aktiven
              from whmSekcija W
              inner join OrgEd O On O.Sifra_Oe = W.Sifra_Oe
              Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And W.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '

    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_zbdok]'))
drop procedure [dbo].[sp_pregl_zbdok]

Go




CREATE               PROCEDURE sp_Pregl_ZbDok
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sifra_Dok    varchar(100) = Null,
    @Broj_Dok_Od     int=null,
    @Broj_Dok_Do     int=null,
    @KojIzv    char(1)='S',              -- Z - Zbiren,    S - So Stavki
    @Markiran    char(1) = Null,        -- D - So Prevoznik,     N - Bez Prevoznik
    @OdDokr_ZbDokr char(1) = 'Z',    -- D - Od Dokr    Z - od ZbDokr
    @Sifra_Nal     smallint=null,
    @Broj_Nal     int=null,
    @Sifra_Grad    Smallint = Null,
    @Sifra_Pat    smallint = NULL,
    @Sifra_Kup    char(6) = Null
AS
    Declare @SSQL as varchar(8000)
    If @OdDokr_ZbDokr = 'D'
        Set @SSQL =  'SELECT D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, Null as DokrZbID, D.Datum_Vnes,
            Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Dok as varchar(6)) + ''/'' + Cast(D.Broj_Dok as varchar(10)) ZbirenDok,
            D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
            (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
            D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Sifra_Nal, D.Broj_Nal,
            (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End) KDrugo1, K1.Ime_1K Ime_KDrugo1, D.Opis, '
    Else -- If @OdDokr_ZbDokr <> 'D'
        Set @SSQL =  'SELECT D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.DokrZbID, D.Datum_Vnes,
            Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Dok as varchar(6)) + ''/'' + Cast(D.Broj_Dok as varchar(10)) ZbirenDok,
            D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
            (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
            D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Sifra_Nal, D.Broj_Nal,
            (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End) KDrugo1, K1.Ime_1K Ime_KDrugo1, D.Opis, '
    If @KojIzv = 'S' And @OdDokr_ZbDokr <> 'D'  -- Od Zbirni dokumenti
        Set @SSQL = @SSQL + ' Cast(Dok.Sifra_OE as varchar(6)) + ''-'' + Cast(Dok.Sifra_Dok as varchar(6)) + ''/'' + Cast(Dok.Broj_Dok as varchar(10)) Dokument,
                    Dok.Toc200 IznosDok, Sum(S.Kolic*A.Tezina) as Tezina, Count(S.DokID) Stavki '
    Else
        Set @SSQL = @SSQL + ' '' '' as  Dokument, D.Toc200 as IznosDok, Null as Tezina, Null Stavki '
    Set @SSQL = @SSQL + ', Sum(Case When A.BTezina <> 0 Then S.Kolic*A.BTezina Else 0 End) as BTezina, Sum(S.Kolic/(Case When A.ImaKomerc>0 Then A.ImaKomerc Else 1 End)) Paketi, D.Identif_Br '
    If @OdDokr_ZbDokr = 'D'
        Set @SSQL = @SSQL + ' From Dokr D '
    Else -- If @OdDokr_ZbDokr <> 'D'
        Set @SSQL = @SSQL + ' From DokrZb D '
    If @KojIzv = 'S' And @OdDokr_ZbDokr <>'D'
        Set @SSQL = @SSQL + ' Inner Join DokrZBSta DS On DS.DokrZBId=D.DokrZbId
                      Inner Join Dokr Dok On Dok.DokrID = DS.DokrID
                      Inner Join Stavr S On S.DokrID=Dok.DokrID
                      Inner Join Katart A On A.Sifra_Art = S.Sifra_Art '
    ELSE        --dod.30.09.09
        Set @SSQL = @SSQL + ' Inner Join Stavr S On S.DokrID=D.DokrID
                      Inner Join Katart A On A.Sifra_Art = S.Sifra_Art '
    Set @SSQL = @SSQL + ' Left Outer Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                  Left Outer Join KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
                  Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
                  Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End)
                  Left Outer Join Prevoznik P On P.Sifra_Prev = D.Sifra_Prev
                  Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @Sifra_Dok + ') '
    If @Broj_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Dok >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Dok <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
    If @Sifra_Nal Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Nal = ' + Cast(@Sifra_Nal as varchar(6)) + ' '
    If @Broj_Nal Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nal = ' + Cast(@Broj_Nal as varchar(10)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    If @Markiran = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    Else If @Markiran = 'N'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
    If @Sifra_Grad Is Not Null
            Set @SSQL = @SSQL + ' And ((OB.Sifra_Grad Is Not Null And OB.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
                OR ( OB.Sifra_Grad Is Null and K.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
    IF @Sifra_Pat IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @KojIzv = 'S' And @OdDokr_ZbDokr <>'D'
        Set @SSQL = @SSQL + ' Group By D.Datum_Dok, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.DokrZbID, D.Datum_Vnes,
                D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200, (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End),
                D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Sifra_Nal, D.Broj_Nal,
                G.ImeGrad, Dok.Sifra_OE, Dok.Sifra_Dok, Dok.Broj_Dok, Dok.Toc200,
                (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End), K1.Ime_1K, D.Opis, D.Identif_br '
    ELSE
        Set @SSQL = @SSQL + ' Group By D.Datum_Dok, D.Sifra_Oe, D.Sifra_Dok, D.Broj_Dok, D.Datum_Vnes,
            D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
            (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End), G.ImeGrad,
            D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, D.Sifra_Nal, D.Broj_Nal,
            (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End), K1.Ime_1K, D.Opis, D.Identif_br '
    Set @SSQL = @SSQL + ' Order By G.ImeGrad, K.ImeKup, D.Broj_Dok '
print @SSQL
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_zbnarac]'))
drop procedure [dbo].[sp_pregl_zbnarac]

Go





CREATE            PROCEDURE sp_Pregl_ZbNarac
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sifra_Dok    varchar(100) = Null,
    @Broj_Dok_Od     int=null,
    @Broj_Dok_Do     int=null,
    @KojIzv    char(1)='S',              -- Z - Zbiren,    S - So Stavki
    @Markiran    char(1) = Null,        -- D - So Prevoznik,     N - Bez Prevoznik
    @OdDokr_ZbDokr char(1) = 'Z',    -- D - Od Dokr    Z - od ZbDokr
    @Sifra_Nal     smallint=null,
    @Broj_Nal     int=null,
    @Sifra_Grad    Smallint = Null,
    @Sifra_Pat    smallint = NULL,
    @Sifra_Kup    char(6) = Null,
    @KojDatum char(1)= 'N' --D-Dat.dosp,N-dat.nar.,I-po datispor.(Orbico)
AS
    Declare @SSQL as varchar(8000)
    If @KojDatum = 'D'
         Set @SSQL =  'SELECT Dateadd(day, D.Rok, D.Datum_Nar) Datum_Dok, '
    ELSE IF @KojDatum = 'I'
        Set @SSQL =  'SELECT D.Dat_Isporaka Datum_Dok, '
    Else
        Set @SSQL =  'SELECT D.Datum_Nar Datum_Dok, '
    Set @SSQL=@SSQL+' D.Sifra_Oe, D.Sifra_Nar Sifra_Dok, D.Broj_Nar Broj_Dok, Null as DokrZbID, D.Datum_Vnes,
            Cast(D.Sifra_OE as varchar(6)) + ''-'' + Cast(D.Sifra_Nar as varchar(6)) + ''/'' + Cast(D.Broj_Nar as varchar(10)) ZbirenDok,
            D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
            (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End) Sifra_Grad, G.ImeGrad,
            D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat, 0 Sifra_Nal, 0 Broj_Nal,
            (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End) KDrugo1, K1.Ime_1K Ime_KDrugo1, '''' Opis,
            '' '' as  Dokument, D.Toc200 as IznosDok, Null as Tezina, Null Stavki, Sum(Case When A.BTezina <> 0 Then S.Kolic*A.BTezina Else 0 End) as BTezina,
            Sum(S.Kolic/(Case When A.ImaKomerc>0 Then A.ImaKomerc Else 1 End)) Paketi, D.Identif_Br , S.Sifra_Art,A.ImeArt, S.Kolic
            From Naracki D
            Inner Join StaNarac S On S.NarID=D.NarID
                  Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
                  Left Outer Join Komint K ON D.Sifra_Kup=K.Sifra_Kup
                  Left Outer Join KObjekti OB ON D.Sifra_Kup=OB.Sifra_Kup And D.Sifra_Obj=OB.Sifra_Obj
                  Left Outer Join Grad G On G.Sifra_Grad = (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End)
                  Left Outer Join KDrugo1 K1 On K1.Sifra_1K = (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End)
                  Left Outer Join Prevoznik P On P.Sifra_Prev = D.Sifra_Prev
                  Left Outer Join Patnici Pat On Pat.Sifra_Pat = D.Sifra_Pat '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Nar In (' + @Sifra_Dok + ') '
    If @Broj_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
If @KojDatum = 'D'
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
END
ELSE
BEGIN
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
END
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    If @Markiran = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    Else If @Markiran = 'N'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
    If @Sifra_Grad Is Not Null
            Set @SSQL = @SSQL + ' And ((OB.Sifra_Grad Is Not Null And OB.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')
                OR ( OB.Sifra_Grad Is Null and K.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ')) '
    IF @Sifra_Pat IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Set @SSQL = @SSQL + ' Group By D.Datum_Nar, D.Rok, D.Sifra_Oe, D.Sifra_Nar, D.Broj_Nar, D.Datum_Vnes,
            D.Sifra_Kup, K.ImeKup, D.Sifra_Obj, OB.ImeObj, D.Toc200,
            (Case When OB.Sifra_Grad Is Not Null Then OB.Sifra_Grad Else K.Sifra_Grad End), G.ImeGrad,
            D.Sifra_Prev, P.ImePrev, D.Sifra_Pat, Pat.ImePat,
            (Case When OB.KDrugo1 Is Not Null Then OB.KDrugo1 Else K.KDrugo1 End), K1.Ime_1K,  D.Identif_br,S.Sifra_Art,A.ImeArt, S.Kolic '
IF @KojDatum = 'I'
        Set @SSQL = @SSQL + ', D.Dat_Isporaka '
    Set @SSQL = @SSQL + ' Order By G.ImeGrad, K.ImeKup, D.Broj_Nar '
print @SSQL
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregl_zbnaractovlist]'))
drop procedure [dbo].[sp_pregl_zbnaractovlist]

Go

CREATE           PROCEDURE sp_Pregl_ZbNaracTovList
    @Sifra_Prev    char(6)=null,
    @Datum_Od    smalldatetime=null,
    @Datum_Do    smalldatetime=null,
    @Sifra_OE     smallint=null,
    @Sifra_Dok    varchar(100) = Null,
    @Broj_Dok_Od     int=null,
    @Broj_Dok_Do     int=null,
    @KojIzv    char(1)='S',              -- Z - Zbiren,    S - So Stavki
    @Markiran    char(1) = Null,        -- D - So Prevoznik,     N - Bez Prevoznik
    @OdDokr_ZbDokr char(1) = 'Z',    -- D - Od Dokr    Z - od ZbDokr
    @Sifra_Nal     smallint=null,
    @Broj_Nal     int=null,
    @Sifra_Grad    Smallint = Null,
    @Sifra_Pat    smallint = NULL,
    @Sifra_Kup    char(6) = Null,
    @KojDatum char(1)='N', --D-Dat.dosp,N-dat.nar.,I-po datispor.(Orbico)
    @Smena    char(1)= null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL =  '  Select S.Sifra_Art, A.ImeArt, A.Edmera, A.DogCena, A.Sifra_Tar, T.ProcOsn,
                    Sum(S.Kolic/(Case When A.ImaKomerc>0 Then A.ImaKomerc Else 1 End)) Paketi, SUM(S.Kolic) Kolic,
                    Sum(Case When A.BTezina <> 0 Then S.Kolic*A.BTezina Else 0 End) as BTezina,A.Kto,D.Sifra_Kup, K.ImeKup,
            Sum(Case When A.Tezina <> 0 Then S.Kolic*A.Tezina Else 0 End) as Tezina, Sum(Case When A.Volumen <> 0 Then S.Kolic*A.Volumen Else 0 End) as Volumen
                    From StaNarac S
                    Inner Join Naracki D On D.NarID=S.NarID
Inner Join Komint K on D.Sifra_kup=K.Sifra_kup
                    Inner Join Katart A On A.Sifra_Art = S.Sifra_Art
                    INNER JOIN Tarifi T ON A.Sifra_Tar=T.Sifra_Tar
                    Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Oe = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @Sifra_Dok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Nar In (' + @Sifra_Dok + ') '
    If @Broj_Dok_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar >= ' + Cast(@Broj_Dok_Od as varchar(10)) + ' '
    If @Broj_Dok_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Broj_Nar <= ' + Cast(@Broj_Dok_Do as varchar(10)) + ' '
    If @KojDatum = 'D'
        BEGIN
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And Dateadd(day, D.Rok, D.Datum_Nar) <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        END
    ELSE if @KojDatum='I'
        BEGIN
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And D.Dat_Isporaka >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And D.Dat_Isporaka <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        END
    else
        BEGIN
        If @Datum_Od Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Nar >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
        If @Datum_Do Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Nar <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
        END
    If @Sifra_Prev Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Prev = ''' + @Sifra_Prev + ''' '
    If @Markiran = 'D'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Not Null '
    Else If @Markiran = 'N'
        Set @SSQL = @SSQL + ' And D.Sifra_Prev Is Null '
    IF @Sifra_Pat IS NOT NULL
        Set @SSQL = @SSQL + ' And D.Sifra_Pat = '+cast(@Sifra_Pat as varchar(5)) +' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And A.Kto = ''' + cast(@Sifra_Kup as varchar(6)) + ''' '
    If @Smena is not null
        Set @SSQL = @SSQL + ' And D.Smena= '''+cast(@Smena as char(1))+''' '
    Set @SSQL = @SSQL + ' Group By S.Sifra_Art, A.ImeArt, A.Edmera, A.Kto,  A.DogCena, A.Sifra_Tar, T.ProcOsn,D.Sifra_Kup, K.ImeKup '
    Set @SSQL = @SSQL + ' Order By A.ImeArt  '
--print @SSQL
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglabarkod]'))
drop procedure [dbo].[sp_preglabarkod]

Go
create procedure sp_PreglABarKOd
@Sifra_Art varchar(20)= null
As
    select A.*, T.ImeKatPak from ABarPak A
    Left outer Join TipKAtPakuv T on A.Sifra_katPak= T.Sifra_katPak
    where A.Sifra_Art= @Sifra_Art





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglaktivnosti]'))
drop procedure [dbo].[sp_preglaktivnosti]

Go


CREATE        PROCEDURE sp_PreglAktivnosti
    @Sifra_OE    Smallint,
    @Datum_Od    Smalldatetime,
    @Datum_Do    Smalldatetime,
    @TipDokNapl varchar(200),            --ovde daj    (1, 16, 306) za MIA
    @TipDokProd varchar(200),
    @KoiOe    varchar(6) = Null,    -- ova go dodadovme za alma (wrigly) - inaku ne se koristi
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    Declare @SSQL Varchar(4000)
    Declare @Uslov Varchar(4000)
    Declare @ASifra_OE   smallint
    Declare @ASifra_Kup  varchar(12)
    Declare @ADatumVreme smalldatetime
    Declare @AAktivnost  char(1)
    Declare @SoBarKod char(1)
    Declare @Vreme  varchar(5)
    create        Table #tSiteAkt
    (Sifra_OE   smallint,
     Sifra_Kup  varchar(12),
     DatumVreme smalldatetime,
     Aktivnost  char(1),
     SoBarKod char(1)
    )
    CREATE      Table #tAkt
    (Sifra_Kup        varchar(12),
     Datum            smalldatetime,
     ImeKup           varchar(40),
     SMesto           varchar(30),
     Ime_2K           varchar(25),
     Vreme_Vlez       varchar(5),
     Vreme_Izlez      varchar(5),
     Prodazba         decimal(18,6),
     Naplata          decimal(18,6),
     Vreme_NeuspProd  varchar(5),
     Vreme_NeuspNapl  varchar(5),
     SoBarkod    char(1)
    )
    CREATE     Table #tFin
    (Sifra_Kup varchar(12),
     Datum     smalldatetime,
     Prodazba  decimal(18,6),
     Naplata   decimal(18,6)
    )
    Set @Uslov = ''
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Tabelata #PomtFin ja polnime so Naplatata od Finansiskite dokumenti
    CREATE     Table #PomtFin
    (Sifra_Kup varchar(12),
     Datum     smalldatetime,
     Prodazba  decimal(18,6),
     Naplata   decimal(18,6)
    )
    Set @SSQL =    'INSERT INTO #PomtFin
            SELECT Sifra_Kup, Datum_Dok Datum, 0 as Prodazba, Round(Sum(Pobaruva),4) Naplata
            FROM AnFinDok
            WHERE 1=1 '
    If @TipDokNapl Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_dok  IN (' + @TipDokNapl + ') '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' AND Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok >=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    SET @SSQL = @SSQL + ' GROUP BY Sifra_Kup, Datum_Dok '
    Exec(@SSQL)
-- Tabelata #PomtFin ja polnime so Prodazbata od Materijanite dokumenti
    Set @SSQL =    'INSERT INTO #PomtFin
            SELECT Sifra_Kup, Datum_Dok Datum, Round(Sum(Toc200),4) Prodazba, 0 as Naplata
            FROM Dokr
            WHERE 1=1 '
    If @TipDokProd Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_dok  IN (' + @TipDokProd + ') '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' AND Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok >=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    SET @SSQL = @SSQL + ' GROUP BY Sifra_Kup, Datum_Dok '
    Exec(@SSQL)
-- Vo Tabelata #tFin polnime podatoci od #PomtFin Grupirani po Sifra_Kup, Datum_Dok za da ima edna stavka za Kupuvac na datum za prodazba i naplata
    Insert Into #tFin
    Select Sifra_Kup, Datum, Sum(Prodazba), Sum(Naplata)
    From #PomtFin
    Group By Sifra_Kup, Datum
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set @SSQL = 'INSERT INTO #tAkt (Sifra_kup, Datum)
            SELECT DISTINCT Sifra_Kup, dbo.fn_VratiDatum(DatumVreme) Datum
            FROM Akcija WHERE 1=1 '
    If @Sifra_OE IS NOT NULL
        Set @Uslov = ' AND Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @Uslov = @Uslov + ' And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is NOT Null
        SET @Uslov = @Uslov + 'AND DatumVreme >=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @Uslov = @Uslov + 'AND DatumVreme <=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + @Uslov
PRINT @SSQL
    Exec(@SSQL)
    Set @SSQL = 'INSERT INTO #tSiteAkt SELECT Sifra_OE, Sifra_Kup, DatumVreme,  Aktivnost, SoBarKod FROM Akcija WHERE 1=1 '
    Set @SSQL = @SSQL + @Uslov
PRINT @SSQL
    Exec(@SSQL)
    UPDATE #tAkt  SET ImeKup = K.ImeKup, Smesto = K.SMesto, Ime_2K = KD.Ime_2K
    FROM Komint K, KDrugo2 KD
    WHERE #tAkt.Sifra_Kup = K.Sifra_kup AND K.KDrugo2 = KD.Sifra_2K
    UPDATE #tAkt  SET ImeKup = K.ImeKup, Smesto = K.SMesto
    FROM Komint K
    WHERE #tAkt.Sifra_Kup = K.Sifra_kup AND K.KDrugo2 IS NULL
    UPDATE #tAkt SET Prodazba = F.Prodazba, Naplata = F.Naplata
    FROM #tFin F
    WHERE #tAkt.Sifra_Kup = F.Sifra_kup AND #tAkt.Datum = F.Datum
    Set Nocount On
    Declare Akt Cursor Fast_Forward For Select * From #tSiteAkt
    Open Akt
    Fetch Next From Akt Into @ASifra_OE, @ASifra_Kup, @ADatumVreme, @AAktivnost, @SoBarKod
    While @@Fetch_Status=0
        Begin
            Set @Vreme  = ' '
             If @AAktivnost = 'V'
                Begin
                Set @Vreme  = dbo.fn_VratiVreme(@ADatumVreme)
                UPDATE #tAkt SET Vreme_Vlez = @Vreme, SoBarKod=@SoBarKod
                WHERE Sifra_Kup = @ASifra_Kup AND Datum = dbo.fn_VratiDatum(@ADatumVreme)
                End
            If @AAktivnost = 'I'
                Begin
                Set @Vreme  = dbo.fn_VratiVreme(@ADatumVreme)
                UPDATE #tAkt SET Vreme_Izlez = @Vreme, SoBarKod=@SoBarKod
                WHERE Sifra_Kup = @ASifra_Kup AND Datum = dbo.fn_VratiDatum(@ADatumVreme)
                End
            If @AAktivnost = 'R'
                Begin
                Set @Vreme  = dbo.fn_VratiVreme(@ADatumVreme)
                UPDATE #tAkt SET Vreme_NeuspProd = @Vreme, SoBarKod=@SoBarKod
                WHERE Sifra_Kup = @ASifra_Kup AND Datum = dbo.fn_VratiDatum(@ADatumVreme)
                End
            If @AAktivnost = 'A'
                Begin
                Set @Vreme  = dbo.fn_VratiVreme(@ADatumVreme)
                UPDATE #tAkt SET Vreme_NeuspNapl = @Vreme, SoBarKod=@SoBarKod
                WHERE Sifra_Kup = @ASifra_Kup AND Datum = dbo.fn_VratiDatum(@ADatumVreme)
                End
            Fetch Next From Akt Into @ASifra_OE, @ASifra_Kup, @ADatumVreme, @AAktivnost, @SoBarKod
        End --While
    Close Akt
    Deallocate Akt
    SELECT A.Sifra_Kup, A.Datum, A.ImeKup, A.SMesto, A.Ime_2K, A.Vreme_Vlez, A.Vreme_Izlez, A.Prodazba,
        A.Naplata, A.Vreme_NeuspProd, A.Vreme_NeuspNapl, A.SoBarkod, Kup.KDrugo1, K1.Ime_1K--, SA.ImeAkc
    FROM #tAkt A
    Left Outer Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
    Left Outer Join KDrugo1 K1 On K1.Sifra_1K=Kup.KDrugo1
   --Inner join Akcija AK on  AK.Sifra_Kup= A.Sifra_Kup
  --left outer join SifAkc SA on SA.Sifra_Akc=AK.Aktivnost
    Set Nocount Off





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglaktivnosti_poobj]'))
drop procedure [dbo].[sp_preglaktivnosti_poobj]

Go



CREATE     PROCEDURE [dbo].[sp_PreglAktivnosti_PoObj]
    @Sifra_Oe    smallint = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @KoiOe    varchar(6) = Null,    -- ova go dodadovme za alma (wrigly) - inaku ne se koristi
    @GrKup varchar(500)= null,
    @GrArt varchar(500)= null
AS
    Declare @SSQL as varchar(4000)
    CREATE     Table #Prodazba
    (
     Sifra_Kup varchar(12),
     Sifra_Obj smallint,
     Datum     smalldatetime,
     Prodazba  decimal(18,6)
    )
    Set @SSQL =    'INSERT INTO #Prodazba
            SELECT Sifra_Kup, Sifra_Obj, Datum_Dok, Round(Sum(Toc200),4) Prodazba
            FROM Dokr
            WHERE 1=1 And VlIzl=''I'' And Sifra_Za=''1'' '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' AND Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok >=''' + Cast(@Datum_Od As Varchar(35)) + ''' '
    If @Datum_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND Datum_Dok <=''' + Cast(@Datum_Do As Varchar(35)) + ''' '
    SET @SSQL = @SSQL + ' GROUP BY Sifra_Kup, Sifra_Obj, Datum_Dok '
    Exec(@SSQL)

    Set @SSQL= ' Select A.Sifra_Oe, O.ImeOrg, A.Sifra_Kup, Kup.ImeKup, A.DatumVreme, A.Aktivnost, A.Sifra_Obj, KO.ImeObj, A.SoBarKod, P.Prodazba,
                (Case When KO.Sifra_Obj Is Not Null Then KO.SMesto Else Kup.SMesto End) SMesto,
                (Case When KO.Sifra_Obj Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End) KDrugo1, K1.Ime_1K, K2.Ime_2K
            From Akcija A
            Inner Join Orged O On O.Sifra_Oe=A.Sifra_Oe
            Inner Join Komint Kup On Kup.Sifra_Kup=A.Sifra_Kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup=A.Sifra_Kup And KO.Sifra_Obj=A.Sifra_Obj
            Left Outer Join #Prodazba P On P.Sifra_Kup = A.Sifra_Kup
                                        And (Case When A.Sifra_Obj Is Not Null Then A.Sifra_Obj Else ''1234'' End) =  (Case When P.Sifra_Obj Is Not Null Then P.Sifra_Obj Else ''1234'' End)
                                        And P.Datum = Cast(Cast(Year(A.DatumVreme) as varchar(4))+''-''+Cast(Month(DatumVreme) as varchar(2))+''-''+Cast(Day(DatumVreme) as varchar(2)) as SmallDatetime)
            Left Outer Join KDrugo1 K1 On K1.Sifra_1K=(Case When KO.Sifra_Obj Is Not Null Then KO.KDrugo1 Else Kup.KDrugo1 End)
            Left Outer Join KDrugo2 K2 On K2.Sifra_2K=(Case When KO.Sifra_Obj Is Not Null Then KO.KDrugo2 Else Kup.KDrugo2 End)
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + 'And A.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not Null
        Set @SSQL = @SSQL + ' And Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + Cast(@KoiOE As Varchar(6)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And A.DatumVreme >= ''' + Cast(@Datum_Od as varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And A.DatumVreme < ''' + Cast(@Datum_Do as varchar(35)) + ''' '
    Set @SSQL = @SSQL + ' Order By A.DatumVreme '
    Exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglamorgrp]'))
drop procedure [dbo].[sp_preglamorgrp]

Go


CREATE   PROCEDURE sp_PreglAmorGrp
    @Sifra_AmorOd    char(3),
    @Sifra_AmorDo    char(3)
 AS
    Declare @SSQL as Varchar(2000)
    Set @SSQL = 'Select Sifra_Amor, Ime, Ime2, Ime3, Ime4, Ime5, Stapka, Stara_Grp, Kto_Anal
            From AmorGrp
            Where 1=1 '
    If @Sifra_AmorOd Is Not null
        Set @SSQL = @SSQL + ' And Sifra_Amor >= ' + @Sifra_AmorOd + ' '
    If @Sifra_AmorDo Is Not null
        Set @SSQL = @SSQL + ' And Sifra_Amor <= ' + @Sifra_AmorDo + ' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglanal]'))
drop procedure [dbo].[sp_preglanal]

Go
CREATE PROCEDURE sp_PreglAnal
    @Klasa        varchar(1),
    @DelSifKto  varchar(10) = null
AS
    Declare @SSQL Varchar(1000)
    Set @SSQL = 'SELECT A.*, S.ImeSint, K.Kto_Klas, K.ImeKlasa,
        '''' Sifra_Analitika1, '''' Sifra_Anal2, ''1'' VrstaKonta, '''' SifraNadredenogkonta,''1'' Tip, '''' SifraKluca
        From Anal A
        Inner Join Sint S On A.Kto_Sint=S.Kto_Sint
        Inner Join Klas K On Substring(A.Kto_Anal,1,1)=K.Kto_Klas '
    If @Klasa Is not Null
        Set @SSQL = @SSQL + 'Where K.Kto_Klas = ' + @Klasa + ' '
    If @DelSifKto IS NOT NULL
        If IsNumeric(@DelSifKto)=1
            Set @SSQL = @SSQL + ' And A.Kto_Anal Like ''' + @DelSifKto + '%'' '
        Else
            Set @SSQL = @SSQL + ' And A.ImeAnal Like ''' + @DelSifKto + '%'' '
        Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglarkakatlist]'))
drop procedure [dbo].[sp_preglarkakatlist]

Go



CREATE     PROCEDURE sp_PreglArkaKatList
    @Kluc_Sodrz    varChar(20) = Null
 AS
     Select C.Kluc_Sodrz, C.Sifra_art,
        case when K.ImeArt is null then '' else K.ImeArt end ImeArt,
                C.dParam1, C.dParam2, C.cParam3, C.cParam4, C.Markiraj
         From ArkaKatList C
         left outer Join ArkaKat K On K.Sifra_art = C.Sifra_art
     Where Kluc_Sodrz=@Kluc_Sodrz





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglarkakatlist_katart]'))
drop procedure [dbo].[sp_preglarkakatlist_katart]

Go

CREATE      PROCEDURE sp_PreglArkaKatList_KatArt
    @Kluc_Sodrz    varChar(20) = Null

 AS

     Select C.Kluc_Sodrz, C.Sifra_art,
        case when K.ImeArt is null then '' else K.ImeArt end ImeArt,
        C.dParam1, C.dParam2, C.cParam3, C.cParam4, C.Markiraj
     From ArkaKatList C
     left outer Join KatArt K On K.Sifra_art = C.Sifra_art
     Where Kluc_Sodrz=@Kluc_Sodrz






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglbanksmetki]'))
drop procedure [dbo].[sp_preglbanksmetki]

Go
CREATE PROCEDURE sp_PreglBankSmetki
AS
    SELECT * FROM BankSmetki




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcennabpoart]'))
drop procedure [dbo].[sp_preglcennabpoart]

Go

CREATE PROCEDURE [dbo].[sp_PreglCenNabPoArt]
    @Godina        smallint,
    @Mesec        smallint,
    @Sifra_Gr    smallint,
    @Sifra_Podg    char(6)

AS

    DECLARE @SSQL varchar(1000)
    SET @SSQL = '

    SELECT    C.*, K.ImeArt
    FROM    CenNabPoArt C
            INNER JOIN KatArt K ON K.Sifra_Art = C.Sifra_Art
            INNER JOIN Podgrupi P ON K.Sifra_Podg = P.Sifra_Podg
            INNER JOIN Grupi G ON P.Sifra_Gr = G.Sifra_Gr
    WHERE    1 = 1 '

    IF @Godina IS NOT NULL
        SET    @SSQL = @SSQL + ' AND C.Godina = ' + CAST(@Godina AS varchar(4))
    IF @Mesec IS NOT NULL
        SET    @SSQL = @SSQL + ' AND C.Mesec = ' + CAST(@Mesec AS varchar(2))
    IF @Sifra_Gr IS NOT NULL
        SET    @SSQL = @SSQL + ' AND G.Sifra_Gr = ' + CAST(@Sifra_Gr AS varchar(4))
    IF @Sifra_Podg IS NOT NULL
        SET    @SSQL = @SSQL + ' AND K.Sifra_Podg = ''' + @Sifra_Podg + ''' '

    SET @SSQL = @SSQL + ' ORDER BY C.Godina, C.Mesec, C.Sifra_Art '

    EXEC(@SSQL)

    RETURN @@ERROR

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenovnik]'))
drop procedure [dbo].[sp_preglcenovnik]

Go







CREATE         PROCEDURE [dbo].[sp_PreglCenovnik]
    @Sifra_kup    char(6) = Null,
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Kto        char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Tar    char(3) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null,
    @KojCenovnik    Char(1) = Null
 AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL= ' Select C.Sifra_Kup, KUP.ImeKup, C.Sifra_art, K.ImeArt, C.Cena, C.Popust, C.SpeCena, C.SpePopust, C.PocDatum, C.KrajDatum,
                K.Sifra_Podg, K.EdMera, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr, C.KojCenovnik, C.Aktiven, C.SImeVal, Val.ImeVal, K.Tezina,
                                C.PopustGot, K.Nom, K.ImaKomerc, K.ImaBroevi, K.ImaPaleta, K.BTezina, C.DanCeni, K.Edmera, K.Volumen
                From Cenovnik C
                Inner Join Katart K On K.Sifra_art = C.Sifra_art
                Left Outer Join Komint KUP On KUP.Sifra_Kup = C.Sifra_kup
                Left Outer Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
                Left Outer Join Grupi G On G.Sifra_Gr = P.Sifra_Gr
                Left Outer Join KrsLista Val On Val.SImeVal = C.SImeVal '
--       Set @SSQL=@SSQL+' INNER JOIN Tarifi T ON K.Sifra_Tar=T.Sifra_Tar '
    If @Sifra_ZBrand Is Not Null
           Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+ ' Where 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' and C.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' and C.Sifra_art >= ' + @Sifra_art_Od + ' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' and C.Sifra_art <= ' + @Sifra_art_Do + ' '
    If @KojCenovnik Is Not Null
        Set @SSQL = @SSQL + ' and C.KojCenovnik = ''' + @KojCenovnik + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' and K.Kto= ''' + @Kto + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' and G.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' and K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
       If @Sifra_Tar Is Not Null
              Set @SSQL=@SSQL+'AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
        Set @SSQL=@SSQL+' Order By C.Sifra_Art '
    Exec (@SSQL)









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenovnik1]'))
drop procedure [dbo].[sp_preglcenovnik1]

Go



CREATE         PROCEDURE sp_PreglCenovnik1
    @Sifra_Pat    smallint = NULL,
    @Sifra_Reg    smallint= NULL,
    @Sifra_Grad    smallint=NULL,
    @Sifra_Kup    char(6)=NULL,
    @SoPeriod    char(1)='N',
    @PatOdKomintPat    char(1)=''
AS
DECLARE @SSQL varchar(4000)
CREATE TABLE #TmpKup
(Sifra_Kup char(6))
IF @Sifra_Pat IS NULL
    SET @SSQL = 'SELECT Sifra_Kup FROM Komint WHERE 1=1 '
ELSE
Begin
    IF @PatOdKomintPat='D'
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM KomintPat WHERE Sifra_Pat=@Sifra_Pat
    Else
    Begin
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM Komint WHERE Sifra_Pat=@Sifra_Pat OR Sifra_Pat2=@Sifra_Pat
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM KObjekti WHERE (Sifra_Pat=@Sifra_Pat OR Sifra_Pat2=@Sifra_Pat) AND Sifra_Kup NOT IN
        (Select Sifra_Kup FROM #TmpKup)
    End
End

INSERT INTO #TmpKup EXEC (@SSQL)
IF @Sifra_Kup IS NOT NULL
Begin
    SELECT * FROM #TmpKup WHERE Sifra_Kup=@Sifra_Kup
    IF @@RowCount =0
        INSERT INTO #TmpKup VALUES (@Sifra_Kup)
End

CREATE TABLE #TmpCen
(Sifra_Kup char(6),
Sifra_art varchar(20),
Cena      decimal(18,4),
Popust   decimal(6,2),
KrajDatum smalldatetime,
PopustGot    decimal(6,2))
IF @SoPeriod='D'    --03.06.11 cermat
    INSERT INTO #TmpCen SELECT Sifra_Kup, Sifra_art, Cena, Popust, KrajDatum, PopustGot FROM Cenovnik WHERE Sifra_Kup IN
    (SELECT Sifra_Kup FROM #TmpKup) AND ((PocDatum = KrajDatum AND KrajDatum='2003-01-01') OR KrajDatum IS NULL OR KrajDatum < GetDate())
    UNION
    SELECT Sifra_Kup, Sifra_art, SpeCena, SpePopust, KrajDatum, PopustGot FROM Cenovnik WHERE Sifra_Kup IN
    (SELECT Sifra_Kup FROM #TmpKup) AND (KrajDatum IS NOT NULL AND PocDatum<KrajDatum AND PocDatum<GetDate() AND KrajDatum>GetDate())
ELSE
    INSERT INTO #TmpCen SELECT C.Sifra_Kup, C.Sifra_art, C.Cena, C.Popust, C.KrajDatum, C.PopustGot FROM Cenovnik C
    INNER JOIN #TmpKup K ON C.Sifra_Kup=K.Sifra_Kup
    WHERE (C.PocDatum = KrajDatum AND C.KrajDatum='2003-01-01') OR C.KrajDatum IS NULL OR C.KrajDatum >=GetDate()-1
--    INSERT INTO #TmpCen SELECT Sifra_Kup, Sifra_art, Cena, Popust, KrajDatum, PopustGot FROM Cenovnik WHERE Sifra_Kup IN
--    (SELECT Sifra_Kup FROM #TmpKup) AND ((PocDatum = KrajDatum AND KrajDatum='2003-01-01') OR KrajDatum IS NULL OR KrajDatum >=GetDate()-1)

SELECT * FROM #TmpCen ORDER BY Sifra_Kup, Sifra_Art






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenovnikicenpopodgr]'))
drop procedure [dbo].[sp_preglcenovnikicenpopodgr]

Go




CREATE         PROCEDURE [dbo].[sp_PreglCenovnikICenPoPodgr]
    @Sifra_Pat    smallint = NULL,
    @Sifra_Reg    smallint= NULL,
    @Sifra_Grad    smallint=NULL,
    @PatOdKomintPat    char(1)=''
AS
IF @Sifra_Pat IS NULL
    SELECT Sifra_Kup, Sifra_art, Cena, Popust, KrajDatum, PopustGot FROM Cenovnik
    WHERE  (PocDatum = KrajDatum AND KrajDatum='2003-01-01') AND Aktiven='D'
    UNION
    SELECT Sifra_Kup, Sifra_art, SpeCena Cena, Popust, KrajDatum, PopustGot FROM Cenovnik
    WHERE  (KrajDatum IS NULL OR KrajDatum >=GetDate()-1) AND Aktiven='D'
    UNION
    SELECT TipKup AS Sifra_Kup, Sifra_Podelba as Sifra_art, Cena, Uces as Popust, Null as KrajDat, 0 PopustGot FROM CenPoPodgr
ELSE
Begin
    CREATE TABLE #TmpKup
    (Sifra_Kup    char(6))

    IF @PatOdKomintPat='D'
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM KomintPat WHERE Sifra_Pat=@Sifra_Pat
    Else
    Begin
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM Komint WHERE Sifra_Pat=@Sifra_Pat OR Sifra_Pat2=@Sifra_Pat
        INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM KObjekti WHERE (Sifra_Pat=@Sifra_Pat OR Sifra_Pat2=@Sifra_Pat) AND Sifra_Kup NOT IN
        (Select Sifra_Kup FROM #TmpKup)
    End
    Declare @SSQL varchar(2000)
    create table #tmp1(Pole varchar(5))

    set @SSQL='SELECT CenPoPodgrTipKup FROM Konfig'
    INSERT INTO #tmp1 EXEC (@SSQL)

    Declare @CenESoKomint as varchar(5)
    SELECT @CenESoKomint=Pole FROM #tmp1

    IF @CenESoKomint='K'
        SELECT C.Sifra_Kup, C.Sifra_art, C.Cena, C.Popust, C.KrajDatum, C.PopustGot FROM Cenovnik C
        INNER JOIN #TmpKup T ON C.Sifra_Kup=T.Sifra_Kup
        WHERE  (C.PocDatum = KrajDatum AND C.KrajDatum='2003-01-01') AND C.Aktiven='D'
        UNION
        SELECT C.Sifra_Kup, C.Sifra_art, C.SpeCena Cena, C.Popust, C.KrajDatum, C.PopustGot FROM Cenovnik C
        INNER JOIN #TmpKup T ON C.Sifra_Kup=T.Sifra_Kup
        WHERE  (C.KrajDatum IS NULL OR C.KrajDatum >=GetDate()-1) AND C.Aktiven='D'
        UNION
        SELECT C.TipKup AS Sifra_Kup, C.Sifra_Podelba as Sifra_art, C.Cena, C.Uces as Popust, Null as KrajDat, 0 PopustGot FROM CenPoPodgr C
        INNER JOIN #TmpKup T ON C.TipKup=T.Sifra_Kup
    ELSE
        SELECT C.Sifra_Kup, C.Sifra_art, C.Cena, C.Popust, C.KrajDatum, C.PopustGot FROM Cenovnik C
        INNER JOIN #TmpKup K ON C.Sifra_Kup=T.Sifra_Kup
        WHERE  (C.PocDatum = KrajDatum AND C.KrajDatum='2003-01-01') AND C.Aktiven='D'
        UNION
        SELECT C.Sifra_Kup, C.Sifra_art, C.SpeCena Cena, C.Popust, C.KrajDatum, C.PopustGot FROM Cenovnik C
        INNER JOIN #TmpKup K ON C.Sifra_Kup=T.Sifra_Kup
        WHERE  (C.KrajDatum IS NULL OR C.KrajDatum >=GetDate()-1) AND C.Aktiven='D'
        UNION
        SELECT C.TipKup AS Sifra_Kup, C.Sifra_Podelba as Sifra_art, C.Cena, C.Uces as Popust, Null as KrajDat, 0 PopustGot FROM CenPoPodgr C
 End








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenovnikotkup]'))
drop procedure [dbo].[sp_preglcenovnikotkup]

Go

CREATE   procedure sp_PreglCenovnikOtkup
    @Vazi_Od smalldatetime,
    @Sifra_Art varchar(20)= null,
    @Tip char(1)='V'
As
    Declare @SSQL as varchar(2000)
If @Tip='N'
    Set @SSQL='Select distinct C.Vazi_Od, C.Sifra_Art, K.ImeArt'
else
    Set @SSQL='Select K.ImeArt,C.* '
    Set @SSQL =@SSQL + '  From CenovnikOtkup C
                       Inner Join Katart K on C.Sifra_Art=K.Sifra_Art
                       Where 1=1 '
If @Vazi_od is not null
    Set @SSQL=@SSQL +' and C.Vazi_Od>='''+ cast(@Vazi_Od as varchar(35))+''' '
If @Sifra_Art is not null
    Set @SSQL =@SSQL +'and C.Sifra_Art='+@Sifra_Art+' '
Set @SSQL=@SSQL + ' Order By C.Vazi_Od'
print @ssql
exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenpoart]'))
drop procedure [dbo].[sp_preglcenpoart]

Go
CREATE  PROCEDURE sp_PreglCenPoArt
    @Tip_Cena    Char(1) = Null,
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @Sifra_Podg    char(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Sifra_Tar    char(3) = Null,
    @Sifra_Brand    Smallint = Null,
    @Sifra_ZBrand    Smallint = Null
 AS
    Declare @SSQL as Varchar(4000)
    Set @SSQL= ' Select C.Tip_Cena, C.Sifra_art, K.ImeArt, C.Cena, C.Opis_Cena, C.Popust, C.SpeCena, C.SpePopust, C.PocDatum, C.KrajDatum,
                K.Sifra_Podg, K.EdMera, P.Ime_Podg, P.Sifra_Gr, G.Ime_Gr
                From CenPoArt C
                Inner Join Katart K On K.Sifra_art = C.Sifra_art
                Left Outer Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
                Left Outer Join Grupi G On G.Sifra_Gr = P.Sifra_Gr '
    If @Sifra_ZBrand Is Not Null
           Set @SSQL=@SSQL+' INNER JOIN DrgPodel B ON K.Sifra_Drg=B.Sifra_Drg '
    Set @SSQL=@SSQL+ ' Where 1=1 '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' and C.Sifra_art >= ' + @Sifra_art_Od + ' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' and C.Sifra_art <= ' + @Sifra_art_Do + ' '
    If @Tip_Cena Is Not Null
        Set @SSQL = @SSQL + ' and C.Tip_Cena = ''' + @Tip_Cena + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' and G.Sifra_Gr = ''' + @Sifra_Gr + ''' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' and K.Lokacija = ''' + @Lokacija + ''' '
    If @Sifra_Brand Is Not Null
        Set @SSQL=@SSQL+'AND (K.Sifra_Drg=' + Cast(@Sifra_Brand As Varchar(6)) + ') '
    If @Sifra_ZBrand Is Not Null
        Set @SSQL=@SSQL+'AND (B.Sifra_Drg1=' + Cast(@Sifra_ZBrand As Varchar(6)) + ') '
       If @Sifra_Tar Is Not Null
              Set @SSQL=@SSQL+'AND (K.Sifra_Tar='''+@Sifra_Tar+''') '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenpopodgr_kup]'))
drop procedure [dbo].[sp_preglcenpopodgr_kup]

Go
CREATE  PROCEDURE sp_PreglCenPoPodgr_Kup
    @Sifra_Kup    char(6),         -- TipKup
    @Drugo7    smallint,        -- Podelba7, Grupa, Podgrupa
    @Sifra_Podg    char(6),
    @Sifra_Gr    varchar(6)
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select C.TipKup Sifra_Kup, Kup.ImeKup, C.Uces,
                (Case When Tip_Podelba = ''A'' Then Sifra_Podelba Else Null End) RabGrupa,
                (Case When Tip_Podelba = ''B'' Then Sifra_Podelba Else Null End) Podgrupa,
                (Case When Tip_Podelba = ''C'' Then Sifra_Podelba Else Null End) Grupa,
                (Case Tip_Podelba When  ''A'' Then D7.Ime_7 When ''B'' Then P.Ime_Podg When ''C'' Then G.Ime_Gr Else Null End) Ime
            From CenPoPodgr C
            Left Outer Join Komint Kup On Kup.Sifra_Kup = C.TipKup
            Left Outer Join Drugo7 D7 On D7.Sifra_7 = Cast(C.Sifra_Podelba as int)
            Left Outer Join Podgrupi P On P.Sifra_Podg = C.Sifra_Podelba
            Left Outer Join Grupi G on G.Sifra_Gr = C.Sifra_Podelba
            WHERE 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And C.TipKup = ''' + @Sifra_Kup + ''' '
--    Set @SSQL = @SSQL + ' And (1=1 '
    If @Drugo7 Is Not Null
        Set @SSQL = @SSQL + ' And D7.Sifra_7 = ' + Cast(@Drugo7 as varchar(6)) + ' And C.Tip_Podelba = ''A'' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Podg = ''' + @Sifra_Podg + ''' And C.Tip_Podelba = ''B'' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' And G.Sifra_Gr = ''' + @Sifra_Gr + ''' And C.Tip_Podelba = ''C'' '
--    Set @SSQL = @SSQL + ') '
    Set @SSQL = @SSQL + ' Order by C.TipKup, C.Tip_Podelba, C.Sifra_Podelba '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcenpopodgr_tipkup]'))
drop procedure [dbo].[sp_preglcenpopodgr_tipkup]

Go

CREATE   PROCEDURE sp_PreglCenPoPodgr_TipKup
    @TipKup    varchar(11),         -- TipKup
    @Drugo1    smallint        -- Podelba1
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select C.TipKup, Kup.ImeTipKup, C.Uces, C.Cena, C.Uces2, C.Uces3, C.ParamN1, C.ParamN2, C.ParamN3,
                      C.Sifra_Podelba, D1.Ime_1
            From CenPoPodgr C
            Left Outer Join GTipKup Kup On Kup.TipKup = C.TipKup
            Left Outer Join Drugo1 D1 On D1.Sifra_1 = Cast(C.Sifra_Podelba as int)
            WHERE 1=1 '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And C.TipKup = ''' + @TipKup + ''' '
--    Set @SSQL = @SSQL + ' And (1=1 '
    If @Drugo1 Is Not Null
        Set @SSQL = @SSQL + ' And D1.Sifra_1 = ' + Cast(@Drugo1 as varchar(6))
    Set @SSQL = @SSQL + ' Order by C.TipKup, C.Tip_Podelba, C.Sifra_Podelba '
print @SSQL
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglcrrkodovi]'))
drop procedure [dbo].[sp_preglcrrkodovi]

Go


CREATE   procedure sp_PreglCrrKodovi
    @Sifra_Oe        smallint = Null,
    @Koi_Oe            varchar(10) = Null,
    @Datum_Dok_Od    smalldatetime = Null,
    @Datum_Dok_Do    smalldatetime = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @Sifra_Podg        char(6) = Null
As
    Declare @SSQL as Varchar(8000)
    Declare @SSQLUsl as Varchar(8000)
-------------------------------------------
Set @SSQLUsl=''
    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Koi_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Sifra_Oe In (Select Sifra_Oe From SGrOrg Where Sif_GrOrg = ''' + @Koi_Oe + ''') '
    If @Datum_Dok_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok >= ''' + cast(@Datum_Dok_Od as varchar(35)) + ''' '
    If @Datum_Dok_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And D.Datum_Dok <= ''' + cast(@Datum_Dok_Do as varchar(35)) + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And S.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And KA.Sifra_Podg = ''' + @Sifra_Podg + ''' '
-------------------------------------------------------------------------------------------
    Set @SSQL=' Select D.Sifra_Kup+'' ''+(Case WHEN D.Sifra_Obj IS NULL THEN '''' ELSE Cast(D.Sifra_Obj as varchar(3)) END) As Sif_PM,
            D.Sifra_Kup,  K.ImeKup,D.Sifra_Obj, KO.ImeObj, cast(S.Sifra_Crr as varchar(20))+''_''+CR.ImeCrr Sifra_Crr, CR.ImeCrr, SUM(S.Kolic) Kolic,
            SUM(S.Kolic*dbo.fn_VratiCenaOsnov(S.DokCena, S.DanDokCena, S.Posn, S.Uces, D.Kasa)) VredBezDDV From Stavr S
               Inner Join Dokr D On D.DokrID=S.DokrID
               Left Outer Join Komint K On K.Sifra_Kup=D.Sifra_Kup
               left outer join KObjekti KO on D.Sifra_Kup= KO.Sifra_Kup and D.Sifra_Obj=KO.Sifra_Obj
               Inner Join KatArt KA on S.Sifra_Art=KA.Sifra_Art
               Left Outer Join CrrKodovi CR on S.Sifra_Crr=CR.Sifra_Crr
               Where D.VlIzl=''I'' AND D.Sifra_Za=1 AND S.Sifra_Crr is not null '
    Set @SSQL= @SSQL+@SSQLUsl + ' GROUP BY D.Sifra_Kup, K.ImeKup,D.Sifra_Obj, KO.ImeObj, S.Sifra_Crr, CR.ImeCrr '
print(@ssql)
exec(@ssql)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregldivizii]'))
drop procedure [dbo].[sp_pregldivizii]

Go


create PROCEDURE sp_PreglDivizii
AS
    select * from Divizii
    order by sifra_div




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregldnevnik]'))
drop procedure [dbo].[sp_pregldnevnik]

Go




CREATE     PROCEDURE [dbo].[sp_PreglDnevnik]
    @Sifra_Kup        char(6) = Null,
    @Datum_AktOd    smalldatetime  = Null,
    @Datum_AktDo    smalldatetime  = Null,
    @Tip_Akt        char(5) = Null,
    @Datum_SlAktOd    smalldatetime  = Null,
    @Datum_SlAktDo    smalldatetime  = Null,
    @Tip_SlAkt        char(5) = Null,
    @Id_Od             Int = Null,
       @Id_Do             Int = Null,
    @Sifra_Pat        smallint = Null,
    @ParalelniBazi    varchar(2000) = NULL

 AS

    Create Table #Dnev
    (
        Sifra_Kup    char(6),
        ImeKup        varchar(40),
        Datum_Akt    smalldatetime,
        Opis_Akt    nvarchar(1000),
        Tip_Akt        char(5),
        Datum_SlAkt    smalldatetime,
        Opis_SlAkt    nvarchar(1000),
        Tip_SlAkt    char(5),
        DodadenNa    datetime,
        DodadenOd    varchar(20),
        IzmenetNa    datetime,
        IzmenetOd    varchar(20),
        IdDnevnik    int,
        ImeBaza        varchar(100)
    )

    Create Table #Bazi
    (
     ImeBaza    varchar(50)
    )
    Insert Into #Bazi Select db_Name()
    If @ParalelniBazi Is Not Null
    Begin
        Declare @Poz_Delim Smallint
        Declare @Poz_Start Smallint
        Declare @BazaIme varchar(50)
        If @ParalelniBazi Is Null
            Set @ParalelniBazi = ''
        Set @Poz_Start = 0
        While 1=1
        Begin
            Set @Poz_Delim = Charindex(',', @ParalelniBazi, @Poz_Start)
            If @Poz_Delim = 0
                Break
            Set @BazaIme = SubString(@ParalelniBazi, @Poz_Start, @Poz_Delim-@Poz_Start)
            --if SubString(@BazaIme,1,1) = ' '
            --    Set @BazaIme = SubString(@BazaIme, 2, len(@BazaIme) - 1)
            Set @Poz_Start = @Poz_Delim + 1
            Insert Into #Bazi Select @BazaIme
        End
    End

    Declare @SSQL as varchar(4000)
    Declare @ImeBaza as varchar(50)
    --Declare @Oznaka as char(1)    -- Ako e bazata vo koja rabotimr togass 1 za drugite bazi 2
    Declare Bazi Cursor
    Fast_Forward For Select ImeBaza From #Bazi
    Open Bazi
    Fetch Next From Bazi Into @ImeBaza
    While @@Fetch_Status = 0
    Begin

        Set @SSQL = ' Select D.Sifra_Kup, Kup.ImeKup, D.Datum_Akt, D.Opis_Akt, D.Tip_Akt, D.Datum_SlAkt,
                      D.Opis_SlAkt, D.Tip_SlAkt, D.DodadenNa, D.DodadenOd, D.IzmenetNa, D.IzmenetOd,
                      D.IdDnevnik, ''' + @ImeBaza + ''' AS ImeBaza
            From ' + @ImeBaza + '..Dnevnik D
            Left Outer Join ' + @ImeBaza + '..Komint Kup On Kup.Sifra_Kup = D.Sifra_Kup
            Where 1=1 '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And D.Sifra_Kup = ''' + @Sifra_kup + ''' '
        If @Datum_AktOd Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Akt >= ''' + cast(@Datum_AktOd as varchar(25)) + ''' '
        If @Datum_AktDo Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_Akt <= ''' + cast(@Datum_AktDo as varchar(25)) + ''' '
        If @Tip_Akt Is Not Null
            Set @SSQL = @SSQL + ' And D.Tip_Akt = ''' + @Tip_Akt + ''' '
        If @Datum_SlAktOd Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_SlAkt >= ''' + cast(@Datum_SlAktOd as varchar(25)) + ''' '
        If @Datum_SlAktDo Is Not Null
            Set @SSQL = @SSQL + ' And D.Datum_SlAkt <= ''' + cast(@Datum_SlAktDo as varchar(25)) + ''' '
        If @Tip_SlAkt Is Not Null
            Set @SSQL = @SSQL + ' And D.Tip_SlAkt = ''' + @Tip_SlAkt + ''' '
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND Kup.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
            If @Id_Od Is NOT Null
               SET @SSQL = @SSQL + 'AND D.IdDnevnik>=''' + Cast(@Id_Od As Varchar(35)) + ''' '
           If @Id_Do Is NOT Null
             SET @SSQL = @SSQL + 'AND D.IdDnevnik<=''' + Cast(@Id_Do As Varchar(35)) + ''' '

        INSERT INTO #Dnev
        Exec (@SSQL)

        Fetch Next From Bazi Into @ImeBaza
    End
    Close Bazi
    Deallocate Bazi

    select #Dnev.*, CASE WHEN #Dnev.ImeBaza = DB_NAME() THEN (select imepret from konfig)
                ELSE FirParal.ImeFirma
            end ImeFirma
    from #Dnev
        left outer join FirParal on FirParal.ImeBaza = #Dnev.ImeBaza
    ORDER BY #Dnev.Datum_Akt DESC









Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregldok_prenosnici]'))
drop procedure [dbo].[sp_pregldok_prenosnici]

Go


CREATE  PROCEDURE sp_PreglDok_Prenosnici
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
        @Sifra_Prim     Smallint
AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL='Select D.Datum_Dok, D.Broj_Dok, D.Sifra_Dok, Sum(S.Kolic*S.DokCena) PoDokCena,
        Sum(S.Kolic*K.DogCena) PoDogCena, Sum(S.Kolic*K.MalCena) PoMalCena,
        D.Sifra_kup, KUP.ImeKup, D.Sifra_OE, D.Identif_Br, D.Toc200, D.Sifra_Prim, count(*) as BrojStav
    From Dokr D
    Inner Join Stavr S On S.DokrID=D.DokrID
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Left Outer Join Komint KUP On KUP.Sifra_Kup=D.Sifra_Kup
    Where D.ImaDodatna = ''D'' and D.Sifra_Prim >= 900 '
    If @Sifra_OE Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as Varchar(6)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Dok = ''' + cast(@Sifra_Dok as Varchar(6)) + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok>= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok<= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    If @Sifra_Prim Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(6)) + ' '

        Set @SSQL=@SSQL + '    Group By D.Datum_Dok, D.Broj_Dok, D.Sifra_Dok, D.Sifra_kup, KUP.ImeKup, D.Sifra_OE, D.Identif_Br, d.Toc200, D.Sifra_Prim '

    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregldokkratok]'))
drop procedure [dbo].[sp_pregldokkratok]

Go


CREATE    PROCEDURE sp_PreglDokKratok
    @Sifra_OE    smallint=NULL,
    @Sifra_Dok        smallint=NULL
AS
    SELECT TOP 100 D.DokrID, D.Sifra_Kup, K.ImeKup, D.Broj_Dok, D.Datum_Dok, D.Toc200, D.Identif_Br
    FROM Dokr D
    LEFT OUTER JOIN Komint K ON K.Sifra_Kup=D.Sifra_Kup
    WHERE D.Sifra_Oe=@Sifra_Oe AND D.Sifra_Dok=@Sifra_Dok ORDER BY D.Datum_Dok DESC




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregldokzaotkup]'))
drop procedure [dbo].[sp_pregldokzaotkup]

Go

CREATE   PROCEDURE sp_PreglDokZaOtkup
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_OE    smallint=2,
    @Sifra_Dok    smallint=8,
    @KDrugo1    smallint
AS
CREATE TABLE #Tmp1
(DokrID        int,
Kolic        decimal(18,6),
IznBezDDV    decimal(18,2),
DDV            decimal(18,2))

INSERT INTO #Tmp1 (DokrID, Kolic, IznBezDDV, DDV)
SELECT DokrID, SUM(Kolic), Round(SUM(Kolic*dbo.fn_VratiCena(DokCena, Posn, DanDokCena,'N')),2),
Round(SUM(Kolic*dbo.fn_VratiCena(DokCena, Posn, DanDokCena,'N')*POsn/100),2) FROM Stavr
WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Datum_Dok>=@Datum_Od AND Datum_Dok<=@Datum_Do
GROUP BY DokrID

Declare @SSQL varchar(2000)

CREATE TABLE #TmpSmetki
(Sifra_Kup    char(6),
ZiroSka    varchar(40))
INSERT INTO #TmpSmetki (Sifra_Kup) SELECT Distinct Sifra_Kup FROM Dokr WHERE Sifra_OE=@Sifra_OE AND Sifra_Dok=@Sifra_Dok AND Datum_Dok>=@Datum_Od  AND Datum_Dok<=@Datum_Do
UPDATE #TmpSmetki SET ZiroSka=B.ZIroSka FROM KBanki B WHERE #TmpSmetki.Sifra_Kup=B.Sifra_Kup

SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Kup, D.Datum_Dok, K.ImeKup, K.Danocen, K.Garancija BrojResenie, Z.ZiroSka, K.KDrugo1, K1.Ime_1K, S.Kolic, S.IznBezDDV, S.DDV, D.Toc200
FROM Dokr D INNER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup LEFT OUTER JOIN KDrugo1 K1 ON K.KDrugo1=K1.Sifra_1K
INNER JOIN #Tmp1 S ON S.DokrID=D.DokrID
LEFT OUTER JOIN #TmpSmetki Z ON D.Sifra_Kup = Z.Sifra_Kup
WHERE D.Sifra_OE='+cast(@Sifra_OE as varchar(5))+' AND D.Sifra_Dok='+cast(@Sifra_Dok  as varchar(5))+' AND
D.Datum_Dok>='''+cast(@Datum_Od  as varchar(35))+ ''' AND D.Datum_Dok<='''+cast(@Datum_Do as varchar(35))+''' '

IF @KDrugo1 IS NOT NULL
    SET @SSQL = @SSQL + ' AND K.KDrugo1='+Cast(@KDrugo1 as varchar(5))+' '
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_arkakatprom]'))
drop procedure [dbo].[sp_pregled_arkakatprom]

Go






create  PROCEDURE sp_Pregled_ArkaKatProm
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null
AS
        Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select * From ArkaKatProm A where 1=1'
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' and A.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grart]'))
drop procedure [dbo].[sp_pregled_grart]

Go
CREATE        PROCEDURE sp_Pregled_GrArt
    @Sif_GrArt varchar(500)= null,
    @Sifra_Div varchar(500) = null,
    @Prikazi char(1)='N'
AS
    Declare @SSQL as varchar(5000)
--------------------------------naslovi-----------------------------------------------------------------------
    If @Prikazi ='N'
    Begin
    Set @SSQL=' SELECT S.SIF_GrArt, S.IME_GrArt
                FROM GrArt S '
    If @Sif_GrArt is not null
        Set @SSQL= @SSQL+ '  INNER JOIN SGrArt G ON S.SIF_GrArt=G.SIF_GrArt  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' INNER JOIN GrArtDiv D on S.Sif_GrArt=D.Sif_GrArt'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrArt is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GrArt in('+@Sif_GrArt+ ')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL= @SSQL+ ' Order By S.Sif_GrArt '
    End

-------------------------------------komintenti------------------------------------------------------------------
    If @Prikazi ='K'
    Begin
        Set @SSQL=' SELECT S.SIF_GrArt, G.IME_GrArt, S.SIFRA_Art, O.IMEArt
                    FROM SGrArt S
                    INNER JOIN GrArt G ON S.SIF_GrArt=G.SIF_GrArt
                    INNER JOIN KatArt O ON S.SIFRA_Art=O.SIFRA_Art'
    --If @Sif_GrArt is not null
      --  Set @SSQL= @SSQL+ '    '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' INNER JOIN GrArtDiv D on S.SIF_GrArt=D.SIF_GrArt'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrArt is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GrArt in('+@Sif_GrArt+')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL=@SSQL+' Group by S.SIFRA_Art,O.IMEArt,S.SIF_GrArt, G.IME_GrArt  '
    Set @SSQL= @SSQL+ ' Order By S.SIF_GrArt, S.SIFRA_Art '
    End

---------------------------------------------divizii----------------------------------------------------------------
    If @Prikazi ='D'
    Begin
     Set @SSQL='SELECT S.SIF_GrArt, G.IME_GrArt, S.Sifra_Div, D.ImeDiv
                FROM GrArtDiv S
                INNER JOIN GrArt G ON S.SIF_GrArt=G.SIF_GrArt
                INNER JOIN Divizii D ON S.SIFra_Div=D.SIFra_Div'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrArt is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GrArt in('+@Sif_GrArt+')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL=@SSQL+' Group by S.Sifra_Div, D.ImeDiv, S.SIF_GrArt, G.IME_GrArt'
    Set @SSQL= @SSQL+ ' Order By S.SIF_GrArt, S.Sifra_Div '
    End
print @ssql
exec (@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grart_odartikal]'))
drop procedure [dbo].[sp_pregled_grart_odartikal]

Go
CREATE   Procedure sp_Pregled_GrArt_OdArtikal
    @Sifra_Art as char(6)
As
    Select distinct G.Sif_GrArt, G.Ime_GrArt, S.Sifra_Art, 'D' Clen
    From GrArt G
    Left Outer Join SGrArt S on G.Sif_GrArt= S.Sif_GrArt
    Where S.Sifra_Art = @Sifra_Art
    Union
    Select distinct G.Sif_GrArt, G.Ime_GrArt, @Sifra_Art, 'N' Clen
    From GrArt G
    Where G.Sif_GrArt Not In (Select distinct G.Sif_GrArt
                From GrArt G
                Left Outer Join SGrArt S on G.Sif_GrArt= S.Sif_GrArt
                Where S.Sifra_Art = @Sifra_Art)
    Order By Clen






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grkonta]'))
drop procedure [dbo].[sp_pregled_grkonta]

Go
CREATE  Procedure sp_Pregled_GrKonta
    @Sif_GrAnalPlan    nvarchar(30)
AS
    IF @Sif_GrAnalPlan is null
        Select A.ImeAnal,GS.*, G.IMe_GrAnalPlan
        From GrAnalPLanSt GS
        Inner Join GrAnalPLan G on GS.Sif_GrAnalPLan=G.Sif_GrAnalPLan
        Left Outer Join Anal A on GS.Kto_anal=A.kto_Anal
        --Where GS.Sif_GrAnalPlan=@Sif_GrAnalPlan
    Else
        Select A.ImeAnal,GS.*, G.IMe_GrAnalPlan
        From GrAnalPLanSt GS
        Inner Join GrAnalPLan G on GS.Sif_GrAnalPLan=G.Sif_GrAnalPLan
        Left Outer Join Anal A on GS.Kto_anal=A.kto_Anal
        Where GS.Sif_GrAnalPlan=@Sif_GrAnalPlan


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grkup]'))
drop procedure [dbo].[sp_pregled_grkup]

Go



CREATE        PROCEDURE sp_Pregled_GrKup
    @Sif_GrKup varchar(500)= null,
    @Sifra_Div varchar(500) = null,
    @Prikazi char(1)='N'
AS
    Declare @SSQL as varchar(5000)
--------------------------------naslovi-----------------------------------------------------------------------
    If @Prikazi ='N'
    Begin
    Set @SSQL=' SELECT S.SIF_GRKup, S.IME_GRKup
                FROM GRKup S '
    If @Sif_GrKup is not null
        Set @SSQL= @SSQL+ '  INNER JOIN SGRKup G ON S.SIF_GRKup=G.SIF_GRKup  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' INNER JOIN GrKupDiv D on S.Sif_GrKup=D.Sif_GrKup'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrKup is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GRKup in('+@Sif_GrKup+ ')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL= @SSQL+ ' Order By S.Sif_GrKup '
    End

-------------------------------------komintenti------------------------------------------------------------------
    If @Prikazi ='K'
    Begin
        Set @SSQL=' SELECT S.SIF_GRKup, G.IME_GRKup, S.SIFRA_Kup, O.IMEKup
                    FROM SGRKup S
                    INNER JOIN GRKup G ON S.SIF_GRKup=G.SIF_GRKup
                    INNER JOIN KOmint O ON S.SIFRA_Kup=O.SIFRA_Kup'
    --If @Sif_GrKup is not null
      --  Set @SSQL= @SSQL+ '    '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' INNER JOIN GrKupDiv D on S.SIF_GRKup=D.SIF_GRKup'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrKup is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GRKup in('+@Sif_GrKup+')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL=@SSQL+' Group by S.Sifra_Kup,O.IMEKup,S.SIF_GRKup, G.IME_GRKup  '
    Set @SSQL= @SSQL+ ' Order By S.SIF_GRKup, S.Sifra_Kup '
    End

---------------------------------------------divizii----------------------------------------------------------------
/*
   If @Prikazi ='D'
    Begin
     Set @SSQL='SELECT S.SIF_GRKup, G.IME_GRKup, S.Sifra_Div, D.ImeDiv
                FROM GrKupDiv S
                INNER JOIN GRKup G ON S.SIF_GRKup=G.SIF_GRKup
                INNER JOIN Divizii D ON S.SIFra_Div=D.SIFra_Div'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrKup is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GRKup in('+@Sif_GrKup+')  '
    If @Sifra_Div is not null
        Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL=@SSQL+' Group by S.Sifra_Div, D.ImeDiv, S.SIF_GRKup, G.IME_GRKup'
    Set @SSQL= @SSQL+ ' Order By S.SIF_GRKup, S.Sifra_Div '
    End
*/
 If @Prikazi ='D'
    Begin
     Set @SSQL='SELECT S.SIF_GRKup, G.IME_GRKup, S.Sifra_Kup, O.ImeKup, S.Sifra_Obj, D.ImeObj
                FROM SGrKupObj S
                INNER JOIN GRKup G ON S.SIF_GRKup=G.SIF_GRKup
                INNER JOIN KOmint O ON S.SIFRA_Kup=O.SIFRA_Kup
                INNER JOIN KObjekti D ON S.SIFra_Kup=D.SIFra_Kup and S.Sifra_Obj=D.SIfra_Obj'
      Set @SSQL= @SSQL+ '  Where 1=1'
    If @Sif_GrKup is not null
        Set @SSQL= @SSQL+ ' And  S.SIF_GRKup in('+@Sif_GrKup+')  '
    --If @Sifra_Div is not null
      --  Set @SSQL= @SSQL+ ' And  D.Sifra_Div in('+ @Sifra_Div +')  '
    Set @SSQL=@SSQL+' Group by S.Sifra_Obj, D.ImeObj, S.SIF_GRKup, G.IME_GRKup, S.Sifra_Kup, O.ImeKup'
    Set @SSQL= @SSQL+ ' Order By S.SIF_GRKup, S.Sifra_Obj '
    End

print @ssql
exec (@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grkup_odkomint]'))
drop procedure [dbo].[sp_pregled_grkup_odkomint]

Go



CREATE    Procedure sp_Pregled_GrKup_OdKomint
    @Sifra_Kup as char(6)
As
    Select distinct G.Sif_GrKup, G.Ime_GrKup, S.Sifra_Kup, 'D' Clen
    From GrKup G
    Left Outer Join SGrKupObj S on G.Sif_GrKup= S.Sif_GrKup
    Where S.Sifra_Kup = @Sifra_Kup And S.Sifra_Obj Is Null
    Union
    Select distinct G.Sif_GrKup, G.Ime_GrKup, @Sifra_Kup, 'N' Clen
    From GrKup G
    Where G.Sif_GrKup Not In (Select distinct G.Sif_GrKup
                From GrKup G
                Left Outer Join SGrKupObj S on G.Sif_GrKup= S.Sif_GrKup
                Where S.Sifra_Kup = @Sifra_Kup And S.Sifra_Obj Is Null)
    Order By Clen






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grkup_odobj]'))
drop procedure [dbo].[sp_pregled_grkup_odobj]

Go
CREATE procedure  sp_Pregled_GrKup_OdObj
    @Sifra_Kup  char(6),
    @Sifra_Obj  smallint
As
    Select distinct G.Sif_GrKup, G.Ime_GrKup, S.Sifra_Kup, S.Sifra_Obj, 'D' Clen
    From GrKup G
    Left Outer Join SGrKupObj S on G.Sif_GrKup= S.Sif_GrKup
    Where S.Sifra_Kup = @Sifra_Kup and  S.Sifra_Obj = @Sifra_Obj
    Union
    Select distinct G.Sif_GrKup, G.Ime_GrKup, @Sifra_Kup, @Sifra_Obj, 'N' Clen
    From GrKup G
    Where G.Sif_GrKup Not In (Select distinct G.Sif_GrKup
                From GrKup G
                Left Outer Join SGrKupObj S on G.Sif_GrKup= S.Sif_GrKup
                Where S.Sifra_Kup = @Sifra_Kup and  S.Sifra_Obj = @Sifra_Obj)
    Order By Clen






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grorg]'))
drop procedure [dbo].[sp_pregled_grorg]

Go

CREATE PROCEDURE sp_Pregled_GrOrg AS
SELECT S.SIF_GRORG, G.IME_GRORG, S.SIFRA_OE, O.IMEORG
FROM SGRORG S
INNER JOIN GRORG G ON S.SIF_GRORG=G.SIF_GRORG
INNER JOIN ORGED O ON S.SIFRA_OE=O.SIFRA_OE




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_grpat]'))
drop procedure [dbo].[sp_pregled_grpat]

Go


CREATE  PROCEDURE sp_Pregled_GrPat AS
SELECT S.SIF_GRPAT, G.IME_GRPAT, S.SIFRA_PAT, O.IMEPAT
FROM SGRPAT S
INNER JOIN GRPAT G ON S.SIF_GRPAT=G.SIF_GRPAT
INNER JOIN PATNICI O ON S.SIFRA_PAT=O.SIFRA_PAT




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_istorijablokkom]'))
drop procedure [dbo].[sp_pregled_istorijablokkom]

Go
CREATE        PROCEDURE sp_Pregled_IstorijaBlokKom
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Kup_Od char(6) = Null,
    @Sifra_Kup_Do    char(6) = Null,
    @Sifra_Tip     Smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @KDrugo1     Smallint= Null,
    @KDrugo2     Smallint= Null,
    @KDrugo3     Smallint = Null,
    @KDrugo4     Smallint = Null,
    @KDrugo5     Smallint = Null,
    @Sifra_Grad     Smallint= Null,
    @Sifra_Reg    smallint = Null,
    @Sifra_Pat    Smallint = Null,
    @TipKup    Varchar(11)=Null,
    @Aktiven    Char(1) = Null,
    @MozeIsporaka    Char(1) = Null,
    @Podred     Char(1) = 'S'     -- S-Sifra_Kup    A-ImeKup     D-Datum
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = 'Select B.Sifra_Kup, Kup.ImeKup, B.Datum, B.MozeIsporaka, B.IzmenetNa, B.IzmenetOd
            From IstBlokKom B
            Inner Join Komint Kup On Kup.Sifra_Kup = B.Sifra_Kup
            Where 1=1 '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + 'And B.Datum>=''' + Cast(@Datum_Od As Varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + 'And B.Datum<=''' + Cast(@Datum_Do As Varchar(30)) + ''' '
    If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup>=''' + @Sifra_Kup_Od + ''' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup<=''' + @Sifra_Kup_Do + ''' '
    If @Sifra_Tip Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @MozeIsporaka Is Not Null
        Set @SSQL = @SSQL + 'And Kup.MozeIsporaka = ''' + @MozeIsporaka + ''' '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And Kup.TipKup=''' + @TipKup + ''' '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + 'And (Kup.Sifra_Pat=' + Cast(@Sifra_Pat As Varchar(10)) + ' Or Kup.Sifra_Pat2=' + Cast(@Sifra_Pat As Varchar(10)) + ') '
    If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + 'And KUP.Sifra_Grad =' + Cast(@Sifra_Grad As Varchar(10)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + 'And KUP.Sifra_Reg =' + Cast(@Sifra_Reg As Varchar(10)) + ' '
    If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (KUP.Aktiven <> ''N'' or KUP.Aktiven Is Null) '
    Else If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And KUP.Aktiven = ''N'' '
    If @KDrugo1 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@KDrugo1 As Varchar(10)) + ' '
    If @KDrugo2 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@KDrugo2 As Varchar(10)) + ' '
    If @KDrugo3 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@KDrugo3 As Varchar(10)) + ' '
    If @KDrugo4 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@KDrugo4 As Varchar(10)) + ' '
    If @KDrugo5 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@KDrugo5 As Varchar(10)) + ' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By B.Sifra_Kup, B.Datum '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By Kup.ImeKup, B.Datum '
    Else If @Podred = 'D'
        Set @SSQL = @SSQL + ' Order By B.Datum, B.Sifra_Kup '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_lpopis]'))
drop procedure [dbo].[sp_pregled_lpopis]

Go
CREATE      PROCEDURE sp_Pregled_LPopis
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @Datum_Do smalldatetime = Null
AS
    Declare @SSQL varchar(8000)
    CREATE TABLE #PomPopis
        (IDPopis int,
        Sifra_OE smallint,
        Datum smalldatetime
        )
    Set @SSQL =     'INSERT INTO #PomPopis
            SELECT IDPopis, Sifra_OE, Datum
            FROM Popis
            WHERE 1=1 '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + 'AND Sifra_OE = ' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @Datum  IS NOT NULL
        Set @SSQL = @SSQL + ' AND Datum >= ''' + Cast(@Datum As varchar(30)) + ''' '
    If @Datum_Do  IS NOT NULL
        Set @SSQL = @SSQL + ' AND Datum <= ''' + Cast(@Datum_Do As varchar(30)) + ''' '
    exec (@SSQL)
    Set @SSQL =     'SELECT P.*, L.Broj, COUNT(L.Sifra_Art) BrojArtikli,
            Sum(L.Popis) VkPopis, Sum(L.Popis*R.Cena) VkVrednost
            FROM LPopis L
            RIGHT OUTER JOIN #PomPopis P ON L.IDPopis = P.IDPopis
            Left Outer Join RPopis R On L.IDPopis=R.IDPopis And L.Sifra_Art=R.Sifra_Art
            GROUP BY P.IDPopis, P.Sifra_OE, P.Datum, L.Broj'
    exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_lpopis_os]'))
drop procedure [dbo].[sp_pregled_lpopis_os]

Go
CREATE      PROCEDURE sp_Pregled_LPopis_OS
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Broj_Lista     int = Null,
    @Broj_Lista_Do    int = Null,
    @Sifra_Rab    int = Null,
    @Sifra_Lok    char(3) = Null,
    @LokacOdPopLst char(1) = 'N',        -- dali filterot lokacija i rabotnik da se gleda od osnovnoto sredstvo ili od popisot
    @OS_SI    char(1) = 'O'        -- O - Osnovni Sredstva,     S - Siten Inventar
AS
    Declare @SSQL varchar(8000)
    CREATE TABLE #PomPopis
        (
         IDPopisOS int,
           Datum smalldatetime,
         Sifra_MikLok    char(10),
         Sifra_MakLok    char(10),
         Sifra_Rab    int
        )
    Set @SSQL =     'INSERT INTO #PomPopis
            SELECT IDPopisOS, Datum, Sifra_MikLok, Sifra_MakLok, Sifra_Rab
            FROM PopisOS
            WHERE 1=1 '
    If @Datum_Od  IS NOT NULL
        Set @SSQL = @SSQL + ' AND Datum >= ''' + Cast(@Datum_Od As varchar(30)) + ''' '
    If @Datum_Do  IS NOT NULL
        Set @SSQL = @SSQL + ' AND Datum <= ''' + Cast(@Datum_Do As varchar(30)) + ''' '
    Exec (@SSQL)
    Set @SSQL =     'SELECT P.IDPopisOS, P.Datum, P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab,
                L.Broj_Lista, COUNT(L.Inv_Broj) BrojOS, L.OdMobilenUred, L.OdBarKod,
                ML.Ime_MikLok, MA.Ime_MakLok, R.ImeRab
            FROM LPopisOS L
            Inner Join OsnSred O On O.Inv_Broj=L.Inv_Broj
            RIGHT OUTER JOIN #PomPopis P ON L.IDPopisOS = P.IDPopisOS
            Left Outer Join MikroLok ML On ML.Sifra_MikLok=P.Sifra_MikLok
            Left Outer Join MakroLok MA On MA.Sifra_MakLok=P.Sifra_MakLok
            Left Outer Join Rabotnik R On R.Sifra_Rab=P.Sifra_Rab '
    If @LokacOdPopLst =  'D'
        Set @SSQL = @SSQL + ' Left Outer Join MakroLok MLP On MLP.Sifra_MakLok=P.Sifra_MakLok '
--    If @Sifra_MakLok Is Not Null
--        Set @SSQL = @SSQL + ' Left Outer Join MikroLok ML On ML.Sifra_MikLok=O.Sifra_MikLok '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @LokacOdPopLst = 'D'
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_MakLok = ''' + @Sifra_MakLok + ''' Or ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''') '
        If @Sifra_MikLok Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_MikLok = ''' + @Sifra_MikLok + ''' Or O.Sifra_MikLok = ''' + @Sifra_MikLok + ''') '
        If @Sifra_Rab Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' Or O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''') '
        If @Sifra_Lok Is Not null
            Set @SSQL = @SSQL + ' And (MLP.Sifra_Lok = ''' + @Sifra_Lok + ''' Or MA.Sifra_Lok = ''' + @Sifra_Lok + ''') '
    End
    Else
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQL = @SSQL + ' And ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
        If @Sifra_MikLok Is Not null
            Set @SSQL = @SSQL + ' And O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
        If @Sifra_Rab Is Not null
            Set @SSQL = @SSQL + ' And O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' '
        If @Sifra_Lok Is Not null
            Set @SSQL = @SSQL + ' And MA.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    End
/*    If @Sifra_MakLok  IS NOT NULL
        Set @SSQL = @SSQL + ' AND ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_MikLok  IS NOT NULL
        Set @SSQL = @SSQL + ' AND O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' ' */
    IF @Broj_Lista IS NOT NULL
        Set @SSQL = @SSQL + ' AND L.Broj_Lista >= ' + cast(@Broj_Lista as varchar(8))+ ' '
    IF @Broj_Lista_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND L.Broj_Lista <= ' + cast(@Broj_Lista_Do as varchar(8))+ ' '
    If @OS_SI = 'O'
        Set @SSQL = @SSQL + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQL = @SSQL + ' And O.Tip = ''SI'' '
    Set @SSQL = @SSQL + ' GROUP BY P.IDPopisOS, P.Datum, P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab,
                    L.Broj_Lista, L.OdMobilenUred, L.OdBarKod, ML.Ime_MikLok, MA.Ime_MakLok, R.ImeRab '
print @SSQL
    exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_lpopisart]'))
drop procedure [dbo].[sp_pregled_lpopisart]

Go

CREATE         PROCEDURE [dbo].[sp_Pregled_LPopisArt]
    @Sifra_OE         smallint,
    @Datum             smalldatetime,
    @BrojLista         smallint,
    @SoCeni         char(1),
    @ZbirKolic        char(1)='N'            --Igor 10.02.12
AS
    Create Table #TmpPopisKoic
    (
        Sifra_Art        varchar(20),
        Cena            decimal(18,6)
    )


    Declare @ImaRPopis char(1)
    Declare @Izmenet char(1)
    Set @ImaRPopis = 'N'
    if @SoCeni = 'D'
        BEGIN
            SELECT @Izmenet=Izmenet FROM Popis
            WHERE Sifra_OE = @Sifra_OE AND Datum = @Datum
            If @Izmenet = 'N' Set @ImaRPopis = 'D'
        END

    IF @SoCeni = 'D' and @ImaRPopis='D'
        BEGIN
            Insert Into #TmpPopisKoic
            Select Distinct(Sifra_Art),Cena
            FROM RPopis
            Where IDPopis in (SELECT IDPopis FROM Popis WHERE Sifra_OE = @Sifra_OE  AND Datum =@Datum)
        END

    Declare @SSQL varchar(8000)
    Set @SSQL =     ''
    IF @ZbirKolic = 'D'
        Set @SSQL = @SSQL + 'SELECT min(L.IDLPopis) as  IDLPopis ,L.IDPopis, L.Broj, L.Sifra_Art, SUM(L.Popis) as Popis, '''' as KontrSer , 0 as Sifra_Boja, 0 as Sifra_Velic ,'
    ELSE
        Set @SSQL = @SSQL + 'SELECT IDLPopis,L.IDPopis, L.Broj, L.Sifra_Art, L.Popis, L.KontrSer , L.Sifra_Boja, L.Sifra_Velic ,'


    SET @SSQL = @SSQL + '  A.ImeArt, A.EdMera, A.Lokacija, A.ALt_Sifra, B.ImeBoja, A.ImaKomerc, A.ImaBroevi, A.Tezina, A.BTezina, '
    If @SoCeni = 'D'
        Set @SSQL = @SSQL + 'R.Cena Cena'
    Else
        Set @SSQL = @SSQL + '0 as Cena '
    Set @SSQL = @SSQL + ' FROM LPopis L
            INNER JOIN KatArt A ON L.Sifra_Art = A.Sifra_Art
            LEFT OUTER JOIN Boja B ON B.Sifra_Boja = L.Sifra_Boja'
    If @SoCeni = 'D'
         BEGIN
        If @ImaRPopis = 'D'
            Set @SSQL = @SSQL + ' LEFT OUTER JOIN #TmpPopisKoic R ON L.Sifra_Art=R.Sifra_Art'
        Else
            Set @SSQL = @SSQL + ' LEFT OUTER JOIN SoArt R
            ON R.Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) + ' AND R.Sifra_Art = L.Sifra_Art'
        END
    Set @SSQL = @SSQL + ' WHERE L.Broj = ' + Cast(@BrojLista as varchar(6)) +
            ' AND L.IDPopis IN (SELECT IDPopis FROM Popis
            WHERE Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) +
            ' AND Datum = ''' + Cast(@Datum as varchar(30)) + ''' )'
    IF @ZbirKolic = 'D'
        BEGIN
            Set @SSQL = @SSQL + ' GROUP BY L.IDPopis, L.Broj, L.Sifra_Art,
                         A.ImeArt, A.EdMera, A.Lokacija, A.ALt_Sifra, B.ImeBoja, A.ImaKomerc, A.ImaBroevi, A.Tezina, A.BTezina '
            If @SoCeni = 'D'
                SET @SSQL = @SSQL + ',R.Cena '
        END
    Exec (@SSQL)
--PRINT(@ssql)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_matnal]'))
drop procedure [dbo].[sp_pregled_matnal]

Go
CREATE                   PROCEDURE sp_Pregled_MatNal
   @Sifra_Nal Smallint,
    @Broj_Nal Int,
    @Sifra_OE Smallint,
    @Sifra_Prim Smallint,
    @VlIzl Char(1),
    @TipDok Varchar(300) = Null
AS
   Declare @SSQL Varchar(4000)            --MagVr dod.za ZitoLeb; pretpost. deka DanMagCena e segde isto
    SET @SSQL = 'SELECT D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br, D.Sifra_Kup, D.Datum_Dok, D.Kto, D.Toc200, D.MagVr DMagVr, D.MagVrDan, D.Marza,
             D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok,
             Round(Sum(S.Kolic*S.NabCena),4) NabVr, Round(Sum(S.Kolic*S.MagCena),4) MagVr,
             K.ImeKup, K.SMesto,
             O.ImeOrg As IORG, OP.ImeOrg As IORG_Prima,
             Round(Sum(S.Kolic*S.TrsCena),4) Trosoci
             FROM DOKR D
             Inner Join Stavr S On D.DokrID=S.DokrID
             INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
             LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
             INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
             LEFT OUTER JOIN Orged OP ON D.Sifra_Prim=OP.Sifra_OE
             WHERE TD.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(10)) + '
             AND D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Prim Is NOT Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(10)) + ' '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND D.VlIzl=''' + @VlIzl + ''' '
    If @TipDok Is Not Null
        SET @SSQL = @SSQL + 'AND D.Sifra_Dok In (' + @TipDok + ') '
    Set @SSQL = @SSQL + 'Group By D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Identif_Br, D.Sifra_Kup, D.Datum_Dok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza,
                 D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg  '
print @SSQL
/*                D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Sifra_Prim, D.ImaDodatna, D.VlIzl,
                D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br, D.Ispratnica, D.Opis, D.Sifra_Kup, D.Sifra_Obj,
                D.Datum_Dok, D.Datum_Vnes, D.Datum_Izm, D.Uces, D.Kasa, D.Rok, D.Sifra_Pat, D.Sifra_Oper,
                D.Sifra_OpIz, D.SerBr, D.Kto, D.Kurs, D.KojaVal, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1,
                D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena, D.DanMagCena, D.CenaIznos,
                D.ProcMarza, D.Kod_Danok, D.TekstPosle, D.VoRekap, D.VoGlk, D.VoAnal, D.Datum_Knz, D.VoTipNal_Glk,
                D.VoBrNal_Glk, D.Prenesen, D.Pec_Fisc, D.Pec_Dok, D.Sifra_Nivo, D.Blokiran, D.KojaSmetka, D.KasaPoDDV,
                K.ImeKup, K.SMesto, O.ImeOrg, OP.ImeOrg, D.Spremil, D.Sifra_OeNar, D.Broj_Nar, D.Sifra_Nar, D.Usluzna, D.TekstPred,
                D.Sifra_Mest, D.Izrab_Nar, Dat_Pec_Fisc
                Order By D.Datum_Dok, D.Sifra_Dok, D.Broj_Dok '
*/
   EXEC(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_matnal_potarifi]'))
drop procedure [dbo].[sp_pregled_matnal_potarifi]

Go
CREATE    PROCEDURE sp_Pregled_MatNal_PoTarifi
   @Sifra_Nal Smallint,
    @Broj_Nal Int,
    @Sifra_OE Smallint,
    @Sifra_Prim Smallint,
    @VlIzl Char(1),
    @TipDok Varchar(300) = Null
AS
   Declare @SSQL Varchar(4000)
    Declare @Uces As Decimal(6,2)
    Declare @Kasa as Decimal(6,2)
    Declare @POsnPren As decimal(6,2)
    Declare @POsn As Decimal(6,2)
    Declare @PTar As Char(3)
    Declare @DanDokCena As Char(1)
    Declare @DanMagCena As Char(1)
    Declare @Kolic As Decimal(18,6)
    Declare @DokCena As Decimal(18,6)
    Declare @MagCena As Decimal(18,6)
    Declare @dFaktorDDV As Decimal(6,4)
    Declare @dFaktorNeto As Decimal(6,4)
    Declare @mFaktorDDV As Decimal(6,4)
    Declare @mFaktorNeto As Decimal(6,4)
    Declare @Danok1 As Decimal(18,6)
    Declare @Danok2 As Decimal(18,6)
    Declare @PDanok1 As Decimal(18,6)
    Declare @PDanok2 As Decimal(18,6)
    Declare @NabIznos As Decimal(18,6)
    Declare @MagIznos As Decimal(18,6)
    Declare @MagIznosDan As Decimal(18,6)
    Declare @Rabat    as decimal(18,6)
-- Dodadeno na 01 Jul 2003
    Declare @NabCena As Decimal(18,6)
    Declare @NabVr As Decimal(18,6)
    Declare @TrsCena As Decimal(18,6)
    Declare @Trosoci As Decimal(18,6)
    CREATE      Table #tStavr
    (  Uces Decimal(6,2),
        POsnPren Decimal(6,2),
        POsn Decimal(6,2),
        PTar Char(3),
        DanDokCena Char(1),
        DanMagCena Char(1),
        Kolic Decimal(18,6),
        DokCena Decimal(18,6),
        MagCena Decimal(18,6),
        NabCena Decimal(18,6),
        Kasa    Decimal(6,2),
        TrsCena Decimal(18,6)
    )
    Create Table #tPromTar
    (  PTar Char(3),
        POsnPren Decimal(6,2),
        POsn Decimal(6,2),
        Danok1 Decimal(18,6),
        Danok2 Decimal(18,6),
        PDanok1 Decimal(18,6),
        PDanok2 Decimal(18,6),
        NabIznos Decimal(18,6),
        MagIznos Decimal(18,6),
        MagIznosDan Decimal(18,6),
        NabVr Decimal(18,6),
        Rabat    Decimal(18,6),
        Trosoci Decimal(18,6)
    )
    Set Nocount On
    Set @SSQL = 'Select S.Uces, S.POsnPren, S.POsn, S.PTar, S.DanDokCena, S.DanMagCena, S.Kolic, S.DokCena, S.MagCena, S.NabCena, D.Kasa, S.TrsCena
        From Stavr S
        Inner Join Dokr D On S.DokrID = D.DokrID
        Where D.VlIzl =''' + @VlIzl + '''
        And D.Sifra_Nal=' + Cast(@Sifra_Nal As Varchar(5)) + '
        And D.Broj_Nal=' + Cast(@Broj_Nal As Varchar(10)) + ' '
    If @Sifra_OE Is NOT Null
          SET @SSQL = @SSQL + 'AND D.Sifra_OE=' + Cast(@Sifra_OE As Varchar(10)) + ' '
    If @Sifra_Prim Is Not NULL
        Set @SSQL = @SSQL + 'And D.Sifra_Prim=' + Cast(@Sifra_Prim As Varchar(5)) + ' '
    If @TipDok Is Not Null
        Set @SSQL = @SSQL + ' And D.Sifra_Dok In (' + @TipDok + ') '
    Insert #tStavr Exec(@SSQL)
    Declare tStavr Cursor Fast_Forward For Select * From #tStavr
    Open tStavr
    Fetch Next From tStavr Into @Uces, @POsnPren, @POsn, @PTar, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena, @NabCena, @Kasa, @TrsCena
    While @@Fetch_Status=0
        Begin
            If @DanDokCena='D'
                Begin
                    Set @dFaktorDDV = 1
                    Set @dFaktorNeto = 1 + @POsnPren/100
                End
            Else
                Begin
                    Set @dFaktorDDV = 1 + @POsnPren/100
                    Set @dFaktorNeto = 1
                End
            If @DanMagCena='D'
                Begin
                    Set @mFaktorDDV = 1
                    Set @mFaktorNeto = 1 + @POsn/100
                End
            Else
                Begin
                    Set @mFaktorDDV = 1 + @POsn/100
                    Set @mFaktorNeto = 1
                End
            If @POsn > 15
                Begin
                    Set @Danok1  = @Kolic * @DokCena * (1 - @Uces/100) * (1 - @Kasa/100) / @dFaktorNeto * @POsnPren/100
                    Set @PDanok1 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                    Set @Danok2 = 0
                    Set @PDanok2 = 0
                End
            Else
                Begin
                    Set @Danok1  = 0
                    Set @PDanok1 = 0
                    Set @Danok2 = @Kolic * @DokCena * (1 - @Uces/100) * (1 - @Kasa/100) / @dFaktorNeto * @POsnPren/100
                    Set @PDanok2 = @Kolic * @MagCena / @mFaktorNeto * @POsn / 100
                End
            Set @NabIznos = @Kolic * @DokCena * @dFaktorDDV * (1 - @Uces/100) * (1 - @Kasa/100)
            Set @MagIznos = @Kolic * @MagCena / @mFaktorNeto
            Set @MagIznosDan = @Kolic * @MagCena * @mFaktorDDV
            Set @Rabat = (@Kolic*@DokCena)/@dFaktorNeto*(1-(1-@Uces/100) * (1-@kasa/100))
            Set @NabVr = @Kolic*@NabCena
            Set @Trosoci = @Kolic*@TrsCena
            Insert #tPromTar(PTar, POsnPren, POsn, Danok1, Danok2, PDanok1, PDanok2, NabIznos, MagIznos, MagIznosDan, NabVr, Rabat, Trosoci)
            Values (@PTar, @POsnPren, @POsn, @Danok1, @Danok2, @PDanok1, @PDanok2, @NabIznos, @MagIznos, @MagIznosDan, @NabVr, @Rabat, @Trosoci)
            Fetch Next From tStavr Into @Uces, @POsnPren, @POsn, @PTar, @DanDokCena, @DanMagCena, @Kolic, @DokCena, @MagCena, @NabCena,@Kasa, @TrsCena
        End --While
    Close tStavr
    Deallocate tStavr
    Select PTar, POsnPren, POsn,
        Round(Sum(Danok1),4) Danok1,
        Round(Sum(Danok2),4) Danok2,
        Round(Sum(PDanok1),4) PDanok1,
        Round(Sum(PDanok2),4) PDanok2,
        Round(Sum(NabIZnos),4) NabIznos,
        Round(Sum(MagIznos),4) MagIznos,
        Round(Sum(MagIznosDan),4) MagIznosDan,
        Round(Sum(NabVr),4) NabVr,
        Round(Sum(Rabat), 4) Rabat,
        Round(Sum(Trosoci), 4) Trosoci
    From #tpromtar
    Group By PTar, POsnPren, POsn
    Order By PTar
    Set Nocount Off



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_naplata]'))
drop procedure [dbo].[sp_pregled_naplata]

Go
CREATE PROCEDURE  sp_Pregled_Naplata
    @Sifra_DokUpl        varchar(50) = Null,
    @DatumUplOd        smalldatetime = Null,
    @DatumUplDo        smalldatetime = Null,
    @Sifra_DokFra        varchar(200) = Null,
    @Komercijalist        varchar(200) = '77'
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl=' '
    Create Table #Uplati
    (
     AnId        int,
     Sifra_Oe    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime,
     Sifra_Kup    char(6),
     IznosUpl    decimal(18,6),
     Tip_Fra        smallint,
     Iznos        decimal(18,6)
    )
    Set @SSQL = 'SELECT A.AnId, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Sifra_Kup, A.Pobaruva, F.Sifra_Dok,
            (Case When Sign(A.Pobaruva) = -1 Then (-1*Abs(Z.Iznos)) Else Abs(Z.Iznos) End) Iznos
        FROM AnFinDok A
        Inner Join AnZatv Z ON A.AnID = Z.AnID1
        Inner Join TipDok TD On TD.Sifra_Dok=A.Sifra_Dok And TD.TipDok=2
        Left Outer JOIN AnFinDok F ON Z.AnID2 = F.AnID
        Where 1=1 '
    If @Sifra_DokUpl Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Sifra_Dok In (' + @Sifra_DokUpl + ') '
    If @DatumUplOd Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Dok >= ''' + cast(@DatumUplOd as varchar(30)) + ''' '
    If @DatumUplDo Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And A.Datum_Dok <= ''' + cast(@DatumUplDo as varchar(30)) + ''' '
    If @Sifra_DokFra Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Sifra_Dok In (' + @Sifra_DokFra + ') '
    If @Komercijalist Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' And F.Sifra_Pat In (' + @Komercijalist + ') '
    Insert Into #Uplati Exec (@SSQL+@SSQLUsl)
    Set @SSQL = 'SELECT A.AnId, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Sifra_Kup, A.Pobaruva, F.Sifra_Dok,
            (Case When Sign(A.Pobaruva) = -1 Then (-1*Abs(Z.Iznos)) Else Abs(Z.Iznos) End) Iznos
        FROM AnFinDok A
        Inner Join AnZatv Z ON A.AnID = Z.AnID2
        Inner Join TipDok TD On TD.Sifra_Dok=A.Sifra_Dok And TD.TipDok=2
        Left Outer JOIN AnFinDok F ON Z.AnID1 = F.AnID
        Where 1=1 '
    Insert Into #Uplati Exec (@SSQL+@SSQLUsl)
    Set @SSQL = 'SELECT A.AnId, A.Sifra_Oe, A.Sifra_Dok, A.Broj_Dok, A.Datum_Dok, A.Sifra_Kup, A.Pobaruva, Null as Sifra_Dok, Null as Iznos
        FROM AnFinDok A
        Inner Join TipDok TD On TD.Sifra_Dok=A.Sifra_Dok And TD.TipDok=2
        Where AnId Not In (Select AnId From #Uplati) '
    If @Sifra_DokUpl Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Dok In (' + @Sifra_DokUpl + ') '
    If @DatumUplOd Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok >= ''' + cast(@DatumUplOd as varchar(30)) + ''' '
    If @DatumUplDo Is Not Null
        Set @SSQL = @SSQL + ' And A.Datum_Dok <= ''' + cast(@DatumUplDo as varchar(30)) + ''' '
    -- Neznam dali e najsrekno resenie zosto gore kade sto ima zatvaranja patnikot go gledame od fakturata
    -- a ovde go gledame od uplatite, zatoa sto nema zatvaranja
    If @Komercijalist Is Not Null
        Set @SSQL = @SSQL + ' And A.Sifra_Pat In (' + @Komercijalist + ') '
    Insert Into #Uplati Exec (@SSQL)
    Select U.AnId, U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok, U.Datum_Dok, U.IznosUpl, U.Tip_Fra,    U.Iznos, U.Sifra_Kup, Kup.ImeKup
    From #Uplati U
    Left Outer Join Komint Kup On Kup.Sifra_Kup=U.Sifra_Kup
    Order By U.Sifra_Oe, U.Sifra_Dok, U.Broj_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_narac]'))
drop procedure [dbo].[sp_pregled_narac]

Go








CREATE                               PROCEDURE [dbo].[sp_Pregled_Narac]
       @Sifra_Nar Varchar(200),
    @Sifra_OE Smallint,
    @KoiOE Varchar(200),
    @Broj_Nar_Od Int,
       @Broj_Nar_Do Int,
       @Datum_Nar_Od Smalldatetime,
       @Datum_Nar_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @VlIzl Char(1),
    @Sifra_Pat    smallint = Null,
    @GrPat        varchar(6) = Null,
    @Realiz    char(1)='S',      -- S - Site,   D - Realiz,   N - Nereal.,   X - Potpolno Nerealizirani,   P - Prepis
    @Prenesen    char(1)='S',       --Site,D-Preneseni, N-NePreneseni.
    @Koi_Gradovi    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Obj    smallint = NULL,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Datum_Vnes_Od    smalldatetime = NULL,
    @Datum_Vnes_Do    smalldatetime = NULL,
    @PoLokacii        char(1) = 'N',
    @Ispor            char(1) = 'S'
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    SET @SSQLUsl=' Where 1=1 '
    If @Sifra_Nar Is NOT NULL
        --SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar In (' + @Sifra_Nar + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar>=''' + Cast(@Broj_Nar_Od As Varchar(35)) + ''' '
    If @Broj_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar<=''' + Cast(@Broj_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) >=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) <=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Datum_Vnes_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Vnes>=''' + Cast(@Datum_Vnes_Od As Varchar(35)) + ''' '
    If @Datum_Vnes_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Vnes<=''' + Cast(@Datum_Vnes_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Obj Is Not Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @GrPat Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
    IF @Realiz='D'
        SET @SSQLUsl = @SSQLUsl + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'
        SET @SSQLUsl = @SSQLUsl + ' AND (Not (Nar.Realiziran = ''D'')  Or (Nar.Realiziran Is Null)) '
    Else IF @Realiz='X'
        SET @SSQLUsl = @SSQLUsl + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) Not In
                        (Select Cast(Sifra_OeNar as char(3)) + Cast(Sifra_Nar as char(3)) + Cast(Broj_Nar as varchar(10)) From Dokr Where Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or Nar.Realiziran Is Null) '
    Else IF @Realiz='P'
        SET @SSQLUsl = @SSQLUsl + ' AND (SN.Realiziran <> ''D'' Or SN.Realiziran Is Null)
                        AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) In
                        (Select Cast(Sifra_OeNar as char(3)) + Cast(Sifra_Nar as char(3)) + Cast(Broj_Nar as varchar(10)) From Dokr Where Broj_Nar > 0)  '

--        SET @SSQL = @SSQL + ' AND (NOT (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or (Nar.Realiziran Is Null Or SN.Realiziran Is Null)) '
    IF @Prenesen='D'
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Prenesen = ''D'' '
    Else IF @Prenesen='N'
        SET @SSQLUsl = @SSQLUsl + ' AND (Nar.Prenesen IS NULL OR Nar.Realiziran <> ''D'') '
    If @VlIzl Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and K.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
    IF @Ispor = 'D'
        SET @SSQLUsl = @SSQLUsl + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQLUsl = @SSQLUsl + ' AND NR.Realiziran Is Null AND NR.NarID IS NOT NULL '

If @PoLokacii='D'
Begin
    CREATE TABLE #TmpNarLok
    (NarID        int,
    Lokacija    varchar(10),
    Iznos        decimal(18,2))
    SET @SSQL = 'SELECT Nar.NarID, A.Lokacija, SUM(SN.Kolic * (Case Sn.DanDokCena When ''D'' Then SN.DokCena ELSE SN.DokCena *(1+SN.Posn/100) End) * (1-SN.Uces/100)*(1-Nar.Kasa/100))
                FROM Naracki Nar Inner Join StaNarac SN On Nar.NarID=SN.NarID
                INNER JOIN KatArt A ON SN.Sifra_Art=A.Sifra_Art '
    IF @Ispor <> 'S'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.NarID = Nar.NarID '
    SET @SSQL  = @SSQL + @SSQLUsl + 'GROUP BY Nar.NarID, A.Lokacija '
    INSERT INTO #TmpNarLok EXEC (@SSQL)
End

    SET @SSQL = 'SELECT Nar.NarID, Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Identif_Br,
            Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Datum_Nar, Nar.Datum_Vnes, Nar.Datum_Izm,
            Nar.Uces, Nar.Rok, Nar.Sifra_Pat, Nar.Sifra_Oper, Nar.Sifra_OpIz,
            Nar.KojaVal, Nar.Kurs, Nar.DanDokCena, Nar.DanmagCena, Nar.CenaIznos,
            Nar.TekstPosle, Nar.Realiziran, Nar.Realiz_Na, Nar.DokrID,
            Nar.Kasa, Nar.Sifra_Nivo, Nar.Prenesen, Nar.Spremil, Nar.SiteTros, Nar.Prevoz, Nar.Osiguruv, Nar.Carina,
            Nar.Spedicija, Nar.Smena, Nar.KojaSmetka, Nar.Ispecaten, Nar.IzmenetPoslePec,
            Nar.PlakOpis, Nar.Dat_Ocek, Nar.Dat_Pristig, Nar.Dat_Utov, Nar.Vet_Broj, Nar.Dat_Vet_Vazn, Nar.Vozilo_Kont,
            Nar.Stat_Nar, Nar.Zaklucen, Nar.Stat_Dok_Nar,
            TN.ImeNar, K.ImeKup, K.SMesto, KO.ImeObj, Pat.ImePat, TN.Obrazec,
            O.ImeOrg As IORG, TN.VlIzl, D.Datum_Dok, (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else K.Sifra_Pat End) Komercijalist, '
    IF @PoLOkacii='D'
        SET @SSQL = @SSQL +'TNar.Iznos Toc200, TNar.Lokacija '
    ELSE
        SET @SSQL = @SSQL +'Nar.Toc200, '''' Lokacija '
    SET @SSQL = @SSQL +' FROM Naracki Nar
            Inner Join StaNarac SN On Nar.NarID=SN.NarID
            INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
            LEFT OUTER JOIN Komint K ON Nar.Sifra_Kup=K.Sifra_Kup
            Left Outer Join KObjekti KO ON Nar.Sifra_obj=KO.Sifra_obj and Nar.Sifra_kup=KO.Sifra_kup
            INNER JOIN Orged O ON Nar.Sifra_OE=O.Sifra_OE
            Left Outer Join Dokr D On D.Sifra_OeNar=Nar.Sifra_Oe And D.Sifra_Nar=Nar.Sifra_Nar And D.Broj_Nar=Nar.Broj_Nar
            Left Outer Join Patnici Pat On Pat.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else K.Sifra_Pat End) '
    IF @PoLOkacii='D'
        SET @SSQL = @SSQL +' INNER JOIN #TmpNarLok TNar ON Nar.NarID=TNar.NarID '
    IF @Ispor <> 'S'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.NarID = Nar.NarID '
    SET @SSQL = @SSQL +@SSQLUsl
    Set @SSQL = @SSQL + 'Group By
        Nar.NarID, Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Identif_Br,
        Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Datum_Nar, Nar.Datum_Vnes, Nar.Datum_Izm,
        Nar.Uces, Nar.Rok, Nar.Sifra_Pat, Nar.Sifra_Oper, Nar.Sifra_OpIz,
        Nar.KojaVal, Nar.Kurs, Nar.DanDokCena, Nar.DanmagCena, Nar.CenaIznos,
        Nar.TekstPosle, Nar.Realiziran, Nar.Realiz_Na, Nar.DokrID,
        Nar.Kasa, Nar.Sifra_Nivo, Nar.Prenesen, Nar.Spremil, Nar.SiteTros,TN.ImeNar,
        K.ImeKup, K.SMesto, KO.ImeObj, O.ImeOrg, TN.VlIzl, Nar.Prevoz, Nar.Osiguruv, Nar.Carina,
        Nar.Spedicija, Nar.Smena, Nar.KojaSmetka, Nar.Ispecaten, Nar.IzmenetPoslePec,
        PlakOpis, Dat_Ocek, Dat_Pristig, Dat_Utov, Vet_Broj, Dat_Vet_Vazn, Vozilo_Kont, Nar.Stat_Nar, Nar.Zaklucen, Nar.Stat_Dok_Nar, D.Datum_Dok,
        (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else K.Sifra_Pat End), Pat.ImePat, TN.Obrazec, '
    IF @PoLokacii='D'
        SET @SSQL = @SSQL +'TNar.Iznos, TNar.Lokacija'
    ELSE
        SET @SSQL = @SSQL +'Nar.Toc200'
print @SSQL
EXEC(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_narac_art]'))
drop procedure [dbo].[sp_pregled_narac_art]

Go

CREATE                                            PROCEDURE [dbo].[sp_Pregled_Narac_Art]
    @Sifra_Nar Varchar(200),
    @Sifra_OE Smallint,
    @KoiOE Varchar(200),
    @Broj_Nar_Od Int,
    @Broj_Nar_Do Int,
    @Datum_Nar_Od Smalldatetime,
    @Datum_Nar_Do Smalldatetime,
    @Sifra_Kup Char(6),
    @VlIzl Char(1),
    @Sifra_Pat    smallint = Null,
    @GrPat        varchar(6) = Null,
    @Lokacija    varchar(10) = Null,
    @Realiz        char(1)='S',      --Site,D-Realiz, N-Nereal. X-Potpolno nerealizirani
    @Sifra_art_Od    varchar(20) = Null,
    @Sifra_art_Do    varchar(20) = Null,
    @Sifra_Podg    char(6) = Null,
    @Sifra_Gr    varchar(6) = Null,
    @MatUsl    char(1) = Null,
    @Prenesen    char(1) = 'S',    --Site,D-Preneseni, N-NePren.
    @Koi_Gradovi    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Obj    smallint = Null,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Podred     char(1) = Null,    -- R - Rbr
    @DajTekCena    char(1) = 'N',
    @Drugo1    smallint = Null,
    @Drugo2    smallint = Null,
    @Drugo3    smallint = Null,
    @Drugo4    smallint = Null,
     @Drugo5    smallint = Null,
    @Drugo6    smallint = Null,
     @Drugo7    smallint = Null,
    @Kto     char(6) = Null,
    @PoRealKolic    char(1) =Null,    --S= Realiz_Kolic <> Kolic,E=Realiz_Kolic = Kolic,P=Realiz_Kolic > Kolic,M=Realiz_Kolic < Kolic
    @Ispor        char(1) = 'S'
AS
    Declare @SSQL Varchar(8000)

    Create Table #Nar
    (
     Sifra_Oe    smallint,
     Sifra_Nar    smallint,
     Broj_Nar    int,
     Datum_Nar    smalldatetime,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Identif_Br    varchar(50),
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     Alt_Kolic    decimal(18,6),
     DokCena    decimal(18,6),
     MagCena     decimal(18,6),
     Uces        decimal(6,2),
     DanDokCena    char(1),
     DanMagCena    char(1),
     POsn        decimal(6,2),
     Realiziran    char(1),
     Realiz_Kolic    decimal(18,6),
     Datum_Dok    smalldatetime,
     Tezina        decimal(18,6),
     BTezina    decimal(18,6),
     ImaKomerc    integer,
     Rbr        int,
    CenaTekovna    decimal(18,6),
    DanCenaTek    char(1),
    Sifra_Pat    smallint,
    ImeMat            varchar(200),
    KontrSer     varchar(25),
    ImeKatStatus     varchar(30)
    )
    SET @SSQL = 'SELECT Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Datum_Nar,
            Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Identif_Br,
            SN.Sifra_Art, SN.Kolic, SN.Alt_Kolic, SN.DokCena, SN.MagCena,
            SN.Uces, SN.DanDokCena, SN.DanMagCena, SN.POsn, SN.Realiziran, SN.Realiz_Kolic, Null as Datum_Dok,
            K.Tezina, K.Btezina, K.ImaKomerc, SN.Rbr, '
    If @DajTekCena = 'D'
        Set @SSQL = @SSQL + ' S.Cena, S.DanCena '
    Else
        Set @SSQL = @SSQL + ' Null Cena, Null DanCena '

    Set @SSQL = @SSQL + ', Nar.Sifra_Pat, SN.ImeMat,  SN.KontrSer, KS.ImeKatStatus
            FROM Naracki Nar
            INNER JOIN StaNarac SN ON Nar.NarID=SN.NarID
            LEFT OUTER JOIN Katstatus KS ON SN.Sifra_KatStatus = KS.Sifra_KatStatus
            INNER JOIN Katart K ON SN.Sifra_Art=K.Sifra_Art '
    If @DajTekCena = 'D'
        Set @SSQL = @SSQL + ' INNER JOIN Soart S ON S.Sifra_Oe=SN.Sifra_Oe And S.Sifra_Art=SN.Sifra_Art '
    If @VlIzl Is Not Null
        Set @SSQL = @SSQL + ' INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar '
    If @Koi_Gradovi Is Not Null Or @Koi_Regioni Is Not Null
        Set @SSQL = @SSQL + ' Left Outer JOIN Komint Kup ON Nar.Sifra_Kup=Kup.Sifra_Kup
                      Left Outer Join KObjekti KO On KO.Sifra_Kup=Nar.Sifra_Kup And KO.Sifra_Obj=Nar.Sifra_Obj '
    IF @Ispor <> 'S'
        SET @SSQL = @SSQL + ' LEFT OUTER JOIN NarRealDok NR ON NR.NarID = Nar.NarID '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    SET @SSQL = @SSQL + ' WHERE 1=1 '
    If @Sifra_Nar Is NOT NULL
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Nar In (' + @Sifra_Nar + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Broj_Nar>=''' + Cast(@Broj_Nar_Od As Varchar(35)) + ''' '
    If @Broj_Nar_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND Nar.Broj_Nar<=''' + Cast(@Broj_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) >=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) <=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Obj Is Not Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @GrPat Is Not Null
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
    If @VlIzl Is NOT Null
        SET @SSQL = @SSQL + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    IF @Realiz='D'
        SET @SSQL = @SSQL + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'                                          --I         Dodadeno 19.04.2004 za PKB             I--
        SET @SSQL = @SSQL + ' AND (SN.Realiziran <> ''D'' Or SN.Realiziran Is Null) ' --(NOT (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or Nar.Realiziran = ''P'' Or SN.Realiziran = ''P'')
                        --                             OR (Nar.Realiziran Is Null Or SN.Realiziran Is Null))'
--    Else IF @Realiz='X'
--        SET @SSQL = @SSQL + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) Not In
--                        (Select Cast(Sifra_OeNar as char(3)) + Cast(Sifra_Nar as char(3)) + Cast(Broj_Nar as varchar(10)) From Dokr Where Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or Nar.Realiziran Is Null) '
    Else IF @Realiz='X'
        SET @SSQL = @SSQL + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) + SN.Sifra_Art Not In
                    (Select Cast(D.Sifra_OeNar as char(3)) + Cast(D.Sifra_Nar as char(3)) + Cast(D.Broj_Nar as varchar(10)) + S.Sifra_Art
                     From Dokr D
                     Inner Join Stavr S On S.DokrID=D.DokrID
                     Where D.Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or Nar.Realiziran Is Null) '

    IF @PoRealKolic='S'
        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is NULL OR SN.Realiz_Kolic <> SN.Kolic) '
    Else IF @PoRealKolic='E'
        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic =  SN.Kolic) '
    Else IF @PoRealKolic='P'
        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic >  SN.Kolic) '
    Else IF @PoRealKolic='M'
        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic <  SN.Kolic) '

    IF @Prenesen='D'
        SET @SSQL = @SSQL + ' AND Nar.Prenesen = ''D'' '
    Else IF @Prenesen='N'
        SET @SSQL = @SSQL + ' AND (Nar.Prenesen IS NULL OR Nar.Realiziran <> ''D'') '
    If @Lokacija Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Lokacija=''' + @Lokacija + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND SN.Sifra_Art >=''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND SN.Sifra_Art <=''' + @Sifra_art_Do + ''' '
    If @Sifra_Podg Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Sifra_Podg =''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is NOT Null
        SET @SSQL = @SSQL + 'AND P.Sifra_Gr =''' + @Sifra_Gr + ''' '
    If @MatUsl Is NOT Null
        SET @SSQL = @SSQL + 'AND K.SMatUsl=''' + @MatUsl + ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and Kup.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and Kup.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
     If @Drugo1 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
    If @Drugo2 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
    If @Drugo3 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
    If @Drugo4 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
    If @Drugo5 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
    If @Drugo6 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
    If @Drugo7 Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
    If @Kto IS NOT NULL
              Set @SSQL = @SSQL+'AND (K.Kto='''+@Kto+''') '

    IF @Ispor = 'D'
        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
    Else IF @Ispor = 'N'
        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.NarID IS NOT NULL '

    Set @SSQL = @SSQL    + 'ORDER BY Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar '
    Insert Into #Nar EXEC(@SSQL)

    Update #Nar
    Set #Nar.Datum_Dok = Dokr.Datum_Dok
    From Dokr
    Where Dokr.Sifra_OeNar=#Nar.Sifra_Oe And Dokr.Sifra_Nar=#Nar.Sifra_Nar And Dokr.Broj_Nar=#Nar.Broj_Nar

    Set @SSQL = ' SELECT Nar.Sifra_OE, O.ImeOrg, Nar.Sifra_Nar, TN.ImeNar, Nar.Broj_Nar, Nar.Datum_Nar,
            Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Identif_Br, Kup.ImeKup, Kup.Sifra_Reg, R.ImeRegion,
            Nar.Sifra_Art, K.ImeArt, K.Edmera, K.Lokacija, K.Nom, K.Nom Nomen, TN.VlIzl, Nar.Kolic, Nar.Alt_Kolic, Nar.DokCena, Nar.MagCena,
            Nar.Uces, Nar.DanDokCena, Nar.DanMagCena, Nar.POsn, Nar.Realiziran, Nar.Realiz_Kolic, Nar.Datum_Dok, K.ImeArt2, K.Sifra_Podg, K.Tezina, K.Btezina, K.ImaKomerc,
            Nar.CenaTekovna, Nar.DanCenaTek, Obj.ImeObj, Nar.Sifra_Pat, Pat.ImePat, Nar.ImeMat,
            (Case When Obj.Sifra_Pat Is Not Null Then Obj.Sifra_Pat Else Kup.Sifra_Pat End) Komercijalist,
            Pat2.ImePat ImePat2, TN.Obrazec, Nar.Kontrser, Nar.ImeKatStatus
        FROM #Nar Nar
        INNER JOIN Katart K ON Nar.Sifra_Art=K.Sifra_Art
        INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
        Left Outer JOIN Komint Kup ON Nar.Sifra_Kup=Kup.Sifra_Kup
        Left Outer Join GRegion R On Kup.Sifra_Reg=R.Sifra_Reg
        INNER JOIN Orged O ON Nar.Sifra_OE=O.Sifra_OE
        LEFT OUTER JOIN Patnici Pat ON Nar.Sifra_Pat=Pat.Sifra_Pat
        LEFT OUTER JOIN KObjekti Obj ON Nar.Sifra_Kup=Obj.Sifra_Kup and Nar.Sifra_Obj=Obj.Sifra_Obj
        Left Outer Join Patnici Pat2 On Pat2.Sifra_Pat = (Case When Obj.Sifra_Pat Is Not Null Then Obj.Sifra_Pat Else Kup.Sifra_Pat End) '
    If @Podred = 'R'
        Set @SSQL = @SSQL + ' Order By Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Rbr '
print (@SSQL)
    Exec(@SSQL)

Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_narac_art_prepis]'))
drop procedure [dbo].[sp_pregled_narac_art_prepis]

Go


CREATE      PROCEDURE [dbo].[sp_Pregled_Narac_Art_Prepis]
    @Sifra_Nar         Varchar(200),
    @Sifra_Oe         Smallint,
    @KoiOe        Varchar(200),
    @Datum_Nar_Od     Smalldatetime,
    @Datum_Nar_Do     Smalldatetime,
    @Sifra_Kup         Char(6),
    @Sifra_Obj        smallint = Null,
    @Sifra_Pat        smallint = Null,
    @GrPat            varchar(6) = Null,
    @Realiz        char(1)='S',      --Site,     D-Realiz     N-Nereal     X-Potpolno nerealizirani   P-Prepis
    @Sifra_art_Od        varchar(20) = Null,
    @Sifra_art_Do        varchar(20) = Null,
    @Sifra_Podg        char(6) = Null,
    @Sifra_Gr        varchar(6) = Null,
    @SoDDV        char(1) = 'D',
    @ZbirnoPoArt        char(1) = 'N'

--    @VlIzl             Char(1) = 'I'     -- Ovoj param ne mora da se stava vo maskata
--    @Broj_Nar_Od     Int,
--    @Broj_Nar_Do     Int,
--    @Lokacija    varchar(10) = Null,
--    @MatUsl    char(1) = Null,
--    @Prenesen    char(1) = 'S',    --Site,D-Preneseni, N-NePren.
--    @Koi_Gradovi    varchar(200) = Null,
--    @Koi_Regioni    varchar(200) = Null,
--    @DajTekCena    char(1) = 'N',
--    @Drugo1    smallint = Null,
--    @Drugo2    smallint = Null,
--    @Drugo3    smallint = Null,
--    @Drugo4    smallint = Null,
--    @Drugo5    smallint = Null,
--    @Drugo6    smallint = Null,
--     @Drugo7    smallint = Null,
--    @Kto     char(6) = Null,
--    @PoRealKolic    char(1) =Null,    --S= Realiz_Kolic <> Kolic,E=Realiz_Kolic = Kolic,P=Realiz_Kolic > Kolic,M=Realiz_Kolic < Kolic
--    @Ispor        char(1) = 'S'
AS
    Declare @SSQL Varchar(8000)

    Create Table #Nar
    (
     Sifra_Oe    smallint,
     Sifra_Nar    smallint,
     Broj_Nar    int,
     Datum_Nar    smalldatetime,
     Sifra_Kup    char(6),
     Sifra_Obj    smallint,
     Identif_Br    varchar(50),
     Sifra_Pat    smallint,
     Sifra_Art    varchar(20),
     Kolic        decimal(18,6),
     DokCena    decimal(18,6),
     Uces        decimal(6,2),
     DanDokCena    char(1),
     POsn        decimal(6,2),
     Realiziran    char(1),
     Realiz_Kolic    decimal(18,6),
     Rbr        int,
     Sifra_OeDok    smallint,
     Sifra_Dok    smallint,
     Broj_Dok    int,
     Datum_Dok    smalldatetime
    )
/*    If @ZbirnoPoArt = 'D'
        SET @SSQL = 'SELECT Null Sifra_Oe, Null Sifra_Nar, Null Broj_Nar, Null Datum_Nar, Null Sifra_Kup, Null Sifra_Obj, Null Identif_Br, Null Sifra_Pat,
                SN.Sifra_Art, Sum(SN.Kolic), '
        If @SoDDV = 'D'
            Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena*(1+SN.Posn/100) Else SN.DokCena End) * (1-Uses/100), '
        Else
            Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena Else SN.DokCena/(1+SN.Posn/100) End) * (1-Uses/100), '
        Set @SSQL = @SSQL + ' Null Uces, Null DanDokCena, Null POsn, Null Realiziran, Sum(SN.Realiz_Kolic), Null Rbr,
                Null Sifra_OeDok, Null Sifra_Dok, Null Broj_Dok, Null Datum_Dok
                FROM Naracki Nar
                INNER JOIN StaNarac SN ON Nar.NarID=SN.NarID
                INNER JOIN Katart K ON SN.Sifra_Art=K.Sifra_Art
                INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
                LEFT OUTER JOIN NarRealDok NR ON NR.NarID = Nar.NarID '
    Else
*/
    SET @SSQL = 'SELECT Nar.Sifra_Oe, Nar.Sifra_Nar, Nar.Broj_Nar, Nar.Datum_Nar, Nar.Sifra_Kup, Nar.Sifra_Obj, Nar.Identif_Br, Nar.Sifra_Pat,
                SN.Sifra_Art, SN.Kolic, '
            If @SoDDV = 'D'
                Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena*(1+SN.Posn/100) Else SN.DokCena End) * (1-SN.Uces/100), '
            Else
                Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena Else SN.DokCena/(1+SN.Posn/100) End) * (1-SN.Uces/100), '

            Set @SSQL = @SSQL + ' SN.Uces, SN.DanDokCena, SN.POsn, SN.Realiziran, SN.Realiz_Kolic, SN.Rbr,
            Null Sifra_OeDok, Null Sifra_Dok, Null Broj_Dok, Null Datum_Dok
            FROM Naracki Nar
            INNER JOIN StaNarac SN ON Nar.NarID=SN.NarID
            INNER JOIN Katart K ON SN.Sifra_Art=K.Sifra_Art
            INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
            LEFT OUTER JOIN NarRealDok NR ON NR.NarID = Nar.NarID '


--    If @Koi_Gradovi Is Not Null Or @Koi_Regioni Is Not Null
--        Set @SSQL = @SSQL + ' Left Outer JOIN Komint Kup ON Nar.Sifra_Kup=Kup.Sifra_Kup
--                      Left Outer Join KObjekti KO On KO.Sifra_Kup=Nar.Sifra_Kup And KO.Sifra_Obj=Nar.Sifra_Obj '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' INNER JOIN Podgrupi P On P.Sifra_Podg = K.Sifra_Podg '
    SET @SSQL = @SSQL + ' WHERE TN.VlIzl=''I'' '

    If @Sifra_Nar Is NOT NULL
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Nar In (' + @Sifra_Nar + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE In (' + @KoiOE + ') '
--    If @Broj_Nar_Od Is NOT Null
--        SET @SSQL = @SSQL + 'AND Nar.Broj_Nar>=''' + Cast(@Broj_Nar_Od As Varchar(35)) + ''' '
--    If @Broj_Nar_Do Is NOT Null
 --        SET @SSQL = @SSQL + 'AND Nar.Broj_Nar<=''' + Cast(@Broj_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
--    If @Datum_Dosp_Od Is NOT Null
--        SET @SSQL = @SSQL + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) >=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
--    If @Datum_Dosp_Do Is NOT Null
--        SET @SSQL = @SSQL + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) <=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Obj Is Not Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @GrPat Is Not Null
        SET @SSQL = @SSQL + ' AND Nar.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
--    If @VlIzl Is NOT Null
--        SET @SSQL = @SSQL + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    IF @Realiz='D'
        SET @SSQL = @SSQL + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'
        SET @SSQL = @SSQL + ' AND (SN.Realiziran Is Null Or SN.Realiziran <> ''D'') '
    Else IF @Realiz='X'
        SET @SSQL = @SSQL + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) + SN.Sifra_Art Not In
                        (Select Cast(D.Sifra_OeNar as char(3)) + Cast(D.Sifra_Nar as char(3)) + Cast(D.Broj_Nar as varchar(10)) + S.Sifra_Art
                         From Dokr D
                         Inner Join Stavr S On S.DokrID=D.DokrID
                         Where D.Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or (SN.Realiziran Is Null Or SN.Realiziran <> ''D'')) '
    Else IF @Realiz='P'
        SET @SSQL = @SSQL + ' AND SN.Realiz_Kolic < SN.Kolic And NR.Realiziran = ''D'' '


--    IF @PoRealKolic='S'
--        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is NULL OR SN.Realiz_Kolic <> SN.Kolic) '
--    Else IF @PoRealKolic='E'
--        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic =  SN.Kolic) '
--    Else IF @PoRealKolic='P'
--        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic >  SN.Kolic) '
--    Else IF @PoRealKolic='M'
--        SET @SSQL = @SSQL + ' AND (SN.Realiz_Kolic is not NULL AND  SN.Realiz_Kolic <  SN.Kolic) '

--    IF @Prenesen='D'
--        SET @SSQL = @SSQL + ' AND Nar.Prenesen = ''D'' '
--    Else IF @Prenesen='N'
--        SET @SSQL = @SSQL + ' AND (Nar.Prenesen IS NULL OR Nar.Realiziran <> ''D'') '
--    If @Lokacija Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Lokacija=''' + @Lokacija + ''' '
    If @Sifra_Art_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND SN.Sifra_Art >=''' + @Sifra_art_Od + ''' '
    If @Sifra_Art_Do Is NOT Null
        SET @SSQL = @SSQL + 'AND SN.Sifra_Art <=''' + @Sifra_art_Do + ''' '
    If @Sifra_Podg Is NOT Null
        SET @SSQL = @SSQL + 'AND K.Sifra_Podg =''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is NOT Null
        SET @SSQL = @SSQL + 'AND P.Sifra_Gr =''' + @Sifra_Gr + ''' '
--    If @MatUsl Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.SMatUsl=''' + @MatUsl + ''' '
--    If @Koi_Gradovi Is Not NULL
--        Begin
--            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
--            OR ( KO.Sifra_Grad Is Null and Kup.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
--        End
--    If @Koi_Regioni Is Not NULL
--        Begin
--            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
--            OR ( KO.Sifra_Reg Is Null and Kup.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
--        End
--    If @Drugo1 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo1 =''' + Cast(@Drugo1 As Varchar(6)) + ''' '
--    If @Drugo2 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo2 =''' + Cast(@Drugo2 As Varchar(6)) + ''' '
--    If @Drugo3 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo3 =''' + Cast(@Drugo3 As Varchar(6)) + ''' '
--    If @Drugo4 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo4 =''' + Cast(@Drugo4 As Varchar(6)) + ''' '
--    If @Drugo5 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo5 =''' + Cast(@Drugo5 As Varchar(6)) + ''' '
--    If @Drugo6 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo6 =''' + Cast(@Drugo6 As Varchar(6)) + ''' '
--    If @Drugo7 Is NOT Null
--        SET @SSQL = @SSQL + 'AND K.Drugo7 =''' + Cast(@Drugo7 As Varchar(6)) + ''' '
--    If @Kto IS NOT NULL
--             Set @SSQL = @SSQL+'AND (K.Kto='''+@Kto+''') '

--    IF @Ispor = 'D'
--        SET @SSQL = @SSQL + ' AND NR.Realiziran = ''D'' '
--    Else IF @Ispor = 'N'
--        SET @SSQL = @SSQL + ' AND NR.Realiziran Is Null AND NR.NarID IS NOT NULL '
/*    If @ZbirnoPoArt = 'D'
    Begin
        Set @SSQL = @SSQL + ' Group By SN.Sifra_Art, '
        If @SoDDV = 'D'
            Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena*(1+SN.Posn/100) Else SN.DokCena End) * (1-Uses/100), '
        Else
            Set @SSQL = @SSQL + ' (Case When SN.DanDokCena = ''N'' Then SN.DokCena Else SN.DokCena/(1+SN.Posn/100) End) * (1-Uses/100), '
        Set @SSQL = @SSQL + ' Order By SN.Sifra_Art '
    End
    Else
    Begin
*/
        Set @SSQL = @SSQL    + 'ORDER BY Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar '
print @SSQL
--    End

    Insert Into #Nar EXEC(@SSQL)


    If @ZbirnoPoArt <> 'D' Or @ZbirnoPoArt Is Null
        Update #Nar
        Set #Nar.Datum_Dok=Dokr.Datum_Dok, #Nar.Sifra_OeDok=Dokr.Sifra_Oe, #Nar.Sifra_Dok=Dokr.Sifra_Dok, #Nar.Broj_Dok=Dokr.Broj_Dok
        From Dokr
        Where Dokr.Sifra_OeNar=#Nar.Sifra_Oe And Dokr.Sifra_Nar=#Nar.Sifra_Nar And Dokr.Broj_Nar=#Nar.Broj_Nar

    If @ZbirnoPoArt = 'D'
        Select Null Sifra_Oe, Null ImeOrg, Null Sifra_Nar, Null ImeNar, Null Broj_Nar, Null Datum_Nar, Null Sifra_Kup, Null ImeKup, Null Sifra_Obj, Null ImeObj, Null Identif_Br,
             Null Sifra_Pat, Null ImePat, N.Sifra_Art, K.ImeArt, Sum(N.Kolic) Kolic, Null DokCena, Null Uces, Null DanDokCena,
             Null POsn, Null Realiziran, Sum(N.Realiz_Kolic) Realiz_Kolic, Null Rbr, Null Sifra_OeDok, Null Sifra_Dok, Null Broj_Dok, Null Datum_Dok,
             K.Edmera, K.Lokacija, K.Nom, K.Sifra_Podg, K.Tezina, K.Btezina, K.ImaKomerc, K.Alt_Ime, K.Alt_Ime2, Round(Sum((N.Kolic-N.Realiz_Kolic) * N.DokCena),4) Vrednost
        From #Nar N
        Inner Join Katart K ON N.Sifra_Art=K.Sifra_Art
        Inner Join TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
        Left Outer Join Komint Kup ON N.Sifra_Kup=Kup.Sifra_Kup
        Inner Join Orged O ON N.Sifra_Oe=O.Sifra_Oe
        Left Outer Join Patnici Pat ON N.Sifra_Pat=Pat.Sifra_Pat
        Left Outer Join KObjekti KO ON N.Sifra_Kup=KO.Sifra_Kup and N.Sifra_Obj=KO.Sifra_Obj
        Group By N.Sifra_Art, K.ImeArt,  K.Edmera, K.Lokacija, K.Nom, K.Sifra_Podg, K.Tezina, K.Btezina, K.ImaKomerc, K.Alt_Ime, K.Alt_Ime2
        Order By N.Sifra_Art, K.ImeArt
    Else
        Select N.Sifra_Oe, O.ImeOrg, N.Sifra_Nar, TN.ImeNar, N.Broj_Nar, N.Datum_Nar, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj, N.Identif_Br,
             N.Sifra_Pat, Pat.ImePat, N.Sifra_Art, K.ImeArt, N.Kolic, N.DokCena, N.Uces, N.DanDokCena,
             N.POsn, N.Realiziran, N.Realiz_Kolic, N.Rbr, N.Sifra_OeDok, N.Sifra_Dok, N.Broj_Dok, N.Datum_Dok,
             K.Edmera, K.Lokacija, K.Nom, K.Sifra_Podg, K.Tezina, K.Btezina, K.ImaKomerc, K.Alt_Ime, K.Alt_Ime2, Round(((N.Kolic-N.Realiz_Kolic) * N.DokCena),4) Vrednost
        From #Nar N
        Inner Join Katart K ON N.Sifra_Art=K.Sifra_Art
        Inner Join TipNarac TN ON N.Sifra_Nar=TN.Sifra_Nar
        Left Outer Join Komint Kup ON N.Sifra_Kup=Kup.Sifra_Kup
        Inner Join Orged O ON N.Sifra_Oe=O.Sifra_Oe
        Left Outer Join Patnici Pat ON N.Sifra_Pat=Pat.Sifra_Pat
        Left Outer Join KObjekti KO ON N.Sifra_Kup=KO.Sifra_Kup and N.Sifra_Obj=KO.Sifra_Obj
        Order By N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar
Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_narac_saldodiv]'))
drop procedure [dbo].[sp_pregled_narac_saldodiv]

Go




CREATE        PROCEDURE [dbo].[sp_Pregled_Narac_SaldoDiv]
       @Sifra_Nar Varchar(200) = Null,
    @Sifra_OE Smallint = Null,
    @KoiOE Varchar(200) = Null,
    @Broj_Nar_Od Int = Null,
       @Broj_Nar_Do Int = Null,
       @Datum_Nar_Od Smalldatetime = Null,
       @Datum_Nar_Do Smalldatetime = Null,
    @Sifra_Kup Char(6) = Null,
    @VlIzl Char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @GrPat        varchar(6) = Null,
    @Realiz    char(1)='S',      --Site,D-Realiz, N-Nereal., X-Potpolno Nerealizirani
    @Prenesen    char(1)='S',       --Site,D-Preneseni, N-NePreneseni.
    @Koi_Gradovi    varchar(200) = Null,
    @Koi_Regioni    varchar(200) = Null,
    @Sifra_Obj    smallint = NULL,
       @Datum_Dosp_Od Smalldatetime = Null,
       @Datum_Dosp_Do Smalldatetime = Null,
    @Datum_Vnes_Od    smalldatetime = NULL,
    @Datum_Vnes_Do    smalldatetime = NULL,
    @KoiNarLimit    char(1) = Null    -- N - Nadminat limit, D - Ima Limit
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Declare @SSQLKup Varchar(4000)
    SET @SSQLUsl=' '
    SET @SSQLKup=' '

    If @Sifra_Nar Is NOT NULL
        --SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar=''' + Cast(@Sifra_Nar As Varchar(10)) + ''' '
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Nar In (' + @Sifra_Nar + ') '
    If @Sifra_OE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE=' + Cast(@Sifra_OE As Varchar(6)) + ' '
    If @KoiOE Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_OE In (' + @KoiOE + ') '
    If @Broj_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar>=''' + Cast(@Broj_Nar_Od As Varchar(35)) + ''' '
    If @Broj_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Broj_Nar<=''' + Cast(@Broj_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
    If @Datum_Dosp_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) >=''' + Cast(@Datum_Dosp_Od As Varchar(35)) + ''' '
    If @Datum_Dosp_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND DateAdd(Day, Nar.Rok, Nar.Datum_Nar) <=''' + Cast(@Datum_Dosp_Do As Varchar(35)) + ''' '
    If @Datum_Vnes_Od Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Vnes>=''' + Cast(@Datum_Vnes_Od As Varchar(35)) + ''' '
    If @Datum_Vnes_Do Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Datum_Vnes<=''' + Cast(@Datum_Vnes_Do As Varchar(35)) + ''' '
    If @Sifra_Kup Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Sifra_Obj Is Not Null
        SET @SSQLUsl = @SSQLUsl + 'AND Nar.Sifra_Obj = ' + Cast(@Sifra_Obj as varchar(6)) + ' '
    If @Sifra_Pat IS NOT NULL
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ' '
    If @GrPat Is Not Null
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Sifra_Pat In (Select Sifra_Pat From SGrPat Where Sif_GrPat = ''' + @GrPat + ''') '
    IF @Realiz='D'
        SET @SSQLUsl = @SSQLUsl + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'
        SET @SSQLUsl = @SSQLUsl + ' AND (Not (Nar.Realiziran = ''D'')  Or (Nar.Realiziran Is Null)) '
    Else IF @Realiz='X'
        SET @SSQLUsl = @SSQLUsl + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) Not In
                        (Select Cast(Sifra_OeNar as char(3)) + Cast(Sifra_Nar as char(3)) + Cast(Broj_Nar as varchar(10)) From Dokr Where Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or Nar.Realiziran Is Null) '
    IF @Prenesen='D'
        SET @SSQLUsl = @SSQLUsl + ' AND Nar.Prenesen = ''D'' '
    Else IF @Prenesen='N'
        SET @SSQLUsl = @SSQLUsl + ' AND (Nar.Prenesen IS NULL OR Nar.Realiziran <> ''D'') '
    If @VlIzl Is NOT Null
        SET @SSQLUsl = @SSQLUsl + 'AND TN.VlIzl=''' + Cast(@VlIzl As Varchar(5))+ ''' '
    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQLUsl = @SSQLUsl + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and K.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End

    Create Table #Rez
    (
        NarID        int,
        Sifra_Oe    smallint,
        Sifra_Nar    smallint,
        Broj_Nar    int,
        Datum_Nar    smalldatetime,
        Rok        smallint,
        Sifra_Kup    char(6),
        Sifra_Obj    smallint,
        Sifra_Div    smallint,
        IznosNar    decimal(18,2),
        LimitDiv    decimal(18,2),
        LimitVk        decimal(18,2),
        SaldoDiv    decimal(18,2),
        SaldoVk        decimal(18,2),
        SaldoVkDosp    decimal(18,2),
        DaliPoDiv    char(1),
        DaliDocni    char(1),
        KolkuDenaDocni    smallint,
        KojaDivDocni    smallint
    )
    -- Koja divizija se narackite
    Create Table #NarDiv
    (
        NarID        int,
        Sifra_Div     smallint,
        Sifra_Kup    char(6)
    )
    Set @SSQL = ' Select Nar.NarID, A.Sifra_Div, Nar.Sifra_Kup
            From Naracki Nar
            Inner Join StaNarac SN On Nar.NarID=SN.NarID
            Inner Join Katart A On A.Sifra_Art = SN.Sifra_Art
            LEFT OUTER JOIN Komint K ON Nar.Sifra_Kup=K.Sifra_Kup
            Left Outer Join KObjekti KO ON Nar.Sifra_obj=KO.Sifra_obj and Nar.Sifra_kup=KO.Sifra_kup
            INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
            Where SN.Rbr=1 '
    Set @SSQL = @SSQL + @SSQLUsl
    Insert Into #NarDiv Exec(@SSQL)

    -- Saldo Po Divizii
    Create Table #SaldoKomDiv
    (
        Sifra_Kup    char(6),
        Sifra_Div    smallint,
        SaldoDiv    decimal(18,6)
    )
    Declare @Datum_Do as smalldatetime
    If @Datum_Nar_Do Is Not Null
        Set @Datum_Do=@Datum_Nar_Do
    Else
        Set @Datum_Do=dbo.fn_VratiDatum(GetDate())

    Set @SSQL = 'Insert Into #SaldoKomDiv
            Select Sifra_Kup, Sifra_Div, Sum(Dolzi-Plateno_Dolzi)
            From AnFinDok
            Where Sifra_Za = ''1'' '-- And Sifra_Kup In (Select Distinct Sifra_Kup From #NarDiv) '
    If @Sifra_Kup Is NOT Null
        SET @SSQLKup = @SSQLKup + ' AND Sifra_Kup=''' + Cast(@Sifra_Kup As Varchar(35))+ ''' '
    If @Koi_Gradovi Is NOT Null
        SET @SSQLKup = @SSQLKup + ' AND Sifra_Grad In (' + @Koi_Gradovi + ') '
    If @Koi_Regioni Is NOT Null
        SET @SSQLKup = @SSQLKup + ' AND Sifra_Reg In (' + @Koi_Regioni + ') '
    SET @SSQL = @SSQL + @SSQLKup + ' Group By Sifra_Kup, Sifra_Div '
    Exec(@SSQL)

    -- Saldo Vkupno
    Create Table #SaldoKom
    (
        Sifra_Kup    char(6),
        Dolzi        decimal(18,6),
        Pobaruva    decimal(18,6),
        DospDolzi    decimal(18,6)
    )
    Set @SSQL = 'Insert Into #SaldoKom
            Select Sifra_Kup, Sum(Dolzi), Sum(Pobaruva),
                Sum(Case When Datum_Dok+Rok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' Then Dolzi Else 0 End)
            From AnFinDok
            Where Sifra_Za = ''1'' '-- And Sifra_Kup In (Select Distinct Sifra_Kup From #NarDiv) '
    SET @SSQL = @SSQL + @SSQLKup + ' Group By Sifra_Kup '
    Exec(@SSQL)

    Update #SaldoKom Set Dolzi = 0 Where Dolzi Is Null
    Update #SaldoKom Set Pobaruva = 0 Where Pobaruva Is Null
    Update #SaldoKom Set DospDolzi = 0 Where DospDolzi Is Null

--dod.04.05.11
CREATE TABLE #TmpKup
(Sifra_Kup    char(6))
INSERT INTO #TmpKup SELECT DISTINCT Sifra_Kup FROM #NarDiv

CREATE TABLE #TmpDospSaldo
(Sifra_Kup    char(6),
Dosp_Saldo    decimal(18,4))

INSERT INTO #TmpDospSaldo SELECT A.Sifra_Kup, SUM(A.Dolzi) FROM AnFinDok A
INNER JOIN #TmpKup K ON A.Sifra_Kup=K.Sifra_Kup INNER JOIN Komint Kup ON K.Sifra_Kup=Kup.Sifra_Kup
WHERE A.Sifra_Za ='1' AND DateADD(day, A.Rok+Kup.TolerDena_Dosp, A.Datum_Dok)<=GETDATE() And A.Dolzi>0 GROUP BY A.Sifra_Kup

INSERT INTO #TmpDospSaldo SELECT A.Sifra_Kup, SUM(A.Pobaruva) * -1 FROM AnFinDok A
INNER JOIN #TmpKup K ON A.Sifra_Kup=K.Sifra_Kup
WHERE A.Sifra_Za ='1' GROUP BY A.Sifra_Kup

INSERT INTO #TmpDospSaldo SELECT A.Sifra_Kup, SUM(A.Dolzi) FROM AnFinDok A
INNER JOIN #TmpKup K ON A.Sifra_Kup=K.Sifra_Kup
WHERE A.Sifra_Za ='1' AND A.Dolzi<0 GROUP BY A.Sifra_Kup

CREATE TABLE #TmpDosp
(Sifra_Kup    char(6),
Dosp_Saldo    decimal(18,4))
INSERT INTO #TmpDosp SELECT Sifra_Kup, SUM(Dosp_Saldo) FROM #TmpDospSaldo GROUP BY Sifra_Kup
UPDATE #TmpDosp SET Dosp_Saldo=0 WHERE Dosp_Saldo<0
---

    SET @SSQL = 'SELECT Nar.NarID, Nar.Sifra_OE, Nar.Sifra_Nar, Nar.Broj_Nar,
            Nar.Datum_Nar, Nar.Rok, Nar.Sifra_Kup, Nar.Sifra_Obj, ND.Sifra_Div,
            Nar.Toc200, KLD.Iznos LimitDiv, K.Limit_Dolzi LimitVK, SKD.SaldoDiv,
            (SK.Dolzi-SK.Pobaruva) SaldoVk, (SK.DospDolzi-SK.Pobaruva) SaldoVkDosp
            FROM Naracki Nar
            INNER JOIN TipNarac TN ON Nar.Sifra_Nar=TN.Sifra_Nar
            LEFT OUTER JOIN Komint K ON Nar.Sifra_Kup=K.Sifra_Kup
            Left Outer Join KObjekti KO ON Nar.Sifra_obj=KO.Sifra_obj and Nar.Sifra_kup=KO.Sifra_kup
            INNER JOIN Orged O ON Nar.Sifra_OE=O.Sifra_OE
            Left Outer Join Patnici Pat On Pat.Sifra_Pat = (Case When KO.Sifra_Pat Is Not Null Then KO.Sifra_Pat Else K.Sifra_Pat End)
            Left Outer Join #NarDiv ND On ND.NarID=Nar.NarID
            Left Outer Join KomLimitDiv KLD On KLD.Sifra_Kup=Nar.Sifra_Kup And KLD.Sifra_Div=ND.Sifra_Div
            Left Outer Join #SaldoKom SK On SK.Sifra_Kup = Nar.Sifra_Kup
            Left Outer Join #SaldoKomDiv SKD On SKD.Sifra_Kup = Nar.Sifra_Kup And SKD.Sifra_Div=ND.Sifra_Div
            LEFT OUTER JOIN #TmpDosp S ON Nar.Sifra_Kup=S.Sifra_Kup
            Where 1=1 '
    If @KoiNarLimit = 'N'
        Set @SSQL = @SSQL + ' And (Nar.Toc200 > KLD.Iznos OR S.Dosp_Saldo>0) '
    Else If @KoiNarLimit = 'D'
        Set @SSQL = @SSQL + ' And (Nar.Toc200 <= KLD.Iznos AND S.Dosp_Saldo<=0) '
    SET @SSQL = @SSQL +@SSQLUsl

    Insert Into #Rez (NarID, Sifra_Oe, Sifra_Nar, Broj_Nar, Datum_Nar, Rok, Sifra_Kup, Sifra_Obj, Sifra_Div,
            IznosNar, LimitDiv, LimitVk, SaldoDiv, SaldoVk, SaldoVkDosp) --, DaliPoDiv, DaliDocni, KolkuDenaDocni, KojaDivDocni)
    EXEC(@SSQL)

    Update #Rez Set DaliPoDiv = 'D' Where Sifra_Kup In (Select Sifra_Kup From KomLimitDiv)

    Select N.NarID, N.Sifra_Oe, N.Sifra_Nar, N.Broj_Nar, N.Datum_Nar, N.Rok, N.Sifra_Kup, Kup.ImeKup, N.Sifra_Obj, KO.ImeObj,
        N.Sifra_Div, N.IznosNar, N.LimitDiv, N.LimitVk, N.SaldoDiv, N.SaldoVk, N.SaldoVkDosp, S.Dosp_Saldo
    From #Rez N
    Left Outer Join Komint Kup on Kup.Sifra_Kup = N.Sifra_Kup
    Left Outer Join KObjekti KO on KO.Sifra_Kup = N.Sifra_Kup And KO.Sifra_Obj=N.Sifra_Obj
    LEFT OUTER JOIN #TmpDosp S ON N.Sifra_Kup=S.Sifra_Kup








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_naracizal]'))
drop procedure [dbo].[sp_pregled_naracizal]

Go




CREATE       PROCEDURE sp_Pregled_NaracIZal
    @KoiSifNar Varchar(50),
    @KoiOE Varchar(50),
    @Datum_Nar_Od Smalldatetime,
    @Datum_Nar_Do Smalldatetime,
    @Realiz        char(1)='N',      --Site,D-Realiz, N-Nereal. X-Potpolno nerealizirani
    @Podred     char(1) = Null,    -- R - Rbr
    @Sifra_OEZal varchar(100)
AS
    Declare @SSQL Varchar(8000)

    Create Table #Nar
    (Sifra_Art    varchar(20),
    KolicNar    decimal(18,6),
    KolicZal    decimal(18,6),
    Sifra_KatStatus smallint )

    SET @SSQL = 'SELECT SN.Sifra_Art, SUM(SN.Kolic-SN.Realiz_Kolic) FROM StaNarac SN
                                  INNER JOIN Naracki Nar ON Nar.NarID=SN.NarID  WHERE SN.Kolic > SN.Realiz_Kolic '
    If @KoiSifNar Is NOT NULL
        SET @SSQL = @SSQL + 'AND Nar.Sifra_Nar IN (Select Sifra_nar From SgrDok where Sif_grDok =''' + @KoiSifNar +''') '
    If @KoiOE Is Not Null
        SET @SSQL = @SSQL + 'AND Nar.Sifra_OE In (Select Sifra_Oe from SgrOrg where Sif_grOrg=''' + @KoiOE + ''') '
    If @Datum_Nar_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND Nar.Datum_Nar>=''' + Cast(@Datum_Nar_Od As Varchar(35)) + ''' '
    If @Datum_Nar_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND Nar.Datum_Nar<=''' + Cast(@Datum_Nar_Do As Varchar(35)) + ''' '
/*    IF @Realiz='D'
        SET @SSQL = @SSQL + ' AND (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or SN.Realiziran = ''P'') '
    Else IF @Realiz='N'                                          --I         Dodadeno 19.04.2004 za PKB             I--
        SET @SSQL = @SSQL + ' AND (SN.Realiziran <> ''D'' Or Sn.Realiziran Is Null) ' --(NOT (Nar.Realiziran = ''D'' Or SN.Realiziran = ''D'' Or Nar.Realiziran = ''P'' Or SN.Realiziran = ''P'')
                        --                             OR (Nar.Realiziran Is Null Or SN.Realiziran Is Null))'
    Else IF @Realiz='X'
        SET @SSQL = @SSQL + ' AND Cast(Nar.Sifra_Oe as char(3)) + Cast(Nar.Sifra_Nar as char(3)) + Cast(Nar.Broj_Nar as varchar(10)) Not In
                        (Select Cast(Sifra_OeNar as char(3)) + Cast(Sifra_Nar as char(3)) + Cast(Broj_Nar as varchar(10)) From Dokr Where Broj_Nar > 0) And (Nar.Realiziran<>''D'' Or Nar.Realiziran Is Null) '
*/
    Set @SSQL = @SSQL    + 'GROUP BY SN.Sifra_Art '
    Insert Into #Nar (Sifra_Art, KOlicNar) EXEC(@SSQL)

     Create Table #Zal
    (Sifra_Art    varchar(20),
    KolicZal    decimal(18,6),
    Sifra_KatStatus smallint )

SET @SSQL='SELECT S.Sifra_Art, S.Sifra_KatStatus, SUM(S.Sostojba) FROM WHMSost S
INNER JOIN #Nar N ON N.Sifra_Art=S.Sifra_Art
WHERE S.Sifra_OE IN ('+@Sifra_OEZal+')
GROUP BY S.Sifra_Art, S.Sifra_KatStatus'
INSERT INTO #Zal (Sifra_Art, Sifra_KatStatus, KolicZal) EXEC(@SSQL)

UPDATE #Nar SET KolicZal=Z.KolicZal, Sifra_KatStatus=Z.Sifra_KatStatus FROM #Zal Z
WHERE #Nar.Sifra_Art=Z.Sifra_Art AND Z.Sifra_KatStatus=1

INSERT INTO #Nar (Sifra_Art, KolicNar, KolicZal, Sifra_KatStatus)
SELECT Sifra_Art, 0, KolicZal, Sifra_KatStatus FROM #Zal WHERE Sifra_KatStatus>1

SELECT N.Sifra_Art, A.ImeArt, A.EdMera, N.KolicNar, N.KolicZal, N.Sifra_KatStatus, S.ImeKatStatus
FROM #Nar N INNER JOIN KatArt A ON N.Sifra_Art=A.Sifra_Art
LEFT OUTER JOIN KatStatus S ON N.Sifra_KatStatus=S.Sifra_KatStatus
ORDER BY N.Sifra_Art
















Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_orc]'))
drop procedure [dbo].[sp_pregled_orc]

Go

CREATE    PROCEDURE sp_Pregled_ORC
   @Datum_Dok_Od Smalldatetime,
   @Datum_Dok_Do Smalldatetime,
    @Sifra_Dobav Varchar(10),
    @Sifra_Kupuv Varchar(10),
    @Prodazba1_KoiOE Varchar(200) = 'MAG',
    @Prodazba2_KoiOE Varchar(200) = 'AKTP'
AS
   Declare @SSQL Varchar(4000)
    CREATE     TABLE [#ORC] (
        [Sifra_Art] Varchar(20) ,
        [Kolicina] [decimal](18, 4) ,
        [ProdVr] [decimal](18, 4) ,
        [DanProdVr] [char](1) ,
        [POsn] [decimal](6, 2) ,
        [NabVr] [decimal](18, 4) ,
        [Kolona] [char] (1)
    )
    SET @SSQL = 'SELECT S.Sifra_Art,
                Sum(S.Kolic) Kolicina,
                Sum(S.Kolic*S.DokCena) ProdVr,
                S.DanDokCena DanProdVr,
                S.POsn,
                Sum(S.Kolic*S.NabCena) NabVr,
                ''1'' As Kolona
         FROM Stavr S
         Inner Join Dokr D On S.DokrID=D.DokrID
         Where S.VlIzl=''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''') '
    If @Sifra_Dobav Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art In (Select Distinct ss.Sifra_Art From Dokr dd
                    Inner Join Stavr ss On dd.DokrID=ss.DokrID
                    Where dd.VlIzl=''V''
                    And dd.Sifra_Za=''2''
                    And dd.Sifra_Kup=''' + @Sifra_Dobav +''') '
    If @Sifra_Kupuv Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Kup=''' + @Sifra_Kupuv + ''' '
   If @Prodazba1_KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Prodazba1_KoiOE + ''') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_Art, S.DanDokCena, S.POsn '
    Insert #ORC EXEC(@SSQL)
    SET @SSQL = 'SELECT S.Sifra_Art,
                Sum(S.Kolic) Kolicina,
                Sum(S.Kolic*S.DokCena) ProdVr,
                S.DanDokCena DanProdVr,
                S.POsn,
                Sum(S.Kolic*S.NabCena) NabVr,
                ''2'' As Kolona
         FROM Stavr S
         Inner Join Dokr D On S.DokrID=D.DokrID
         Where S.VlIzl=''I'' And (S.ImaDodatna Is Null Or S.ImaDodatna='''') '
    If @Sifra_Dobav Is Not Null
        Set @SSQL = @SSQL + 'And S.Sifra_Art In (Select Distinct ss.Sifra_Art From Dokr dd
                    Inner Join Stavr ss On dd.DokrID=ss.DokrID
                    Where dd.VlIzl=''V''
                    And dd.Sifra_Za=''2''
                    And dd.Sifra_Kup=''' + @Sifra_Dobav +''') '
    If @Sifra_Kupuv Is Not Null
        Set @SSQL = @SSQL + 'And D.Sifra_Kup=''' + @Sifra_Kupuv + ''' '
   If @Prodazba2_KoiOE Is NOT Null
      SET @SSQL = @SSQL + 'AND S.Sifra_OE In (Select Sifra_OE From SGrOrg Where Sif_GrOrg=''' + @Prodazba2_KoiOE + ''') '
    If @Datum_Dok_Od Is NOT Null
        SET @SSQL = @SSQL + 'AND S.Datum_Dok>=''' + Cast(@Datum_Dok_Od As Varchar(35)) + ''' '
   If @Datum_Dok_Do Is NOT Null
         SET @SSQL = @SSQL + 'AND S.Datum_Dok<=''' + Cast(@Datum_Dok_Do As Varchar(35)) + ''' '
    Set @SSQL = @SSQL + 'Group By S.Sifra_Art, S.DanDokCena, S.POsn '
    Insert #ORC EXEC(@SSQL)
    Select O.Sifra_Art, K.ImeArt, K.EdMera, O.Kolicina, O.NabVr, O.ProdVr, O.DanProdVr, O.POsn, O.Kolona
    From #ORC O
    Inner Join Katart K On O.Sifra_Art=K.Sifra_Art
    Order By O.Sifra_Art, O.Kolona




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_popis_inventar]'))
drop procedure [dbo].[sp_pregled_popis_inventar]

Go
CREATE PROCEDURE sp_Pregled_Popis_Inventar
    @Sifra_Oe    smallint,
    @Broj_InvP    int
 AS
    Select P.Sifra_Oe, O.ImeOrg, P.BrojInvP, P.Datum_InvP, P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj,  P.Sifra_Mest, P.Popis
    From InvPopis P
    Inner Join Orged O On O.Sifra_Oe = P.Sifra_Oe
    Left Outer Join Komint Kup On Kup.Sifra_Kup = P.Sifra_Kup
    Left Outer Join Kobjekti KO On KO.Sifra_Kup = P.Sifra_Kup and KO.Sifra_Obj = P.Sifra_Obj
    Where P.Sifra_Oe=@Sifra_Oe and P.BrojInvP=@Broj_InvP



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_popis_os]'))
drop procedure [dbo].[sp_pregled_popis_os]

Go

CREATE  PROCEDURE sp_Pregled_Popis_OS
    @Inv_BrojOd    char(10) = Null,
    @Inv_BrojDo    char(10) = Null,
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_Rab    int = Null,
    @KusokVisok varchar(2),        --K-Kusok,V-Visok,T-Tocno ili kombinaciite KV, KT, VT
    @LokacOdPopLst char(1) = 'N',        -- dali filterot lokacija i rabotnik da se gleda od osnovnoto sredstvo ili od popisot
    @OS_SI    char(1) = 'O'        -- O - Osnovni Sredstva,     S - Siten Inventar
AS
    Declare @SSQL as Varchar(8000)
    Declare @SSQLUsl as Varchar(8000)
    Set @SSQLUsl=' '
    Create Table #OsnSredPopis       -- Vo ovaa tabela kje gi zapiseme site Osn S-va
    (
     Inv_Broj    char(10),
     Popis        int,
     OdMobilenUred    char(1),
     OdBarKod    char(1)
    )
    Create Table #Popis        -- Vo ovaa tabela kje gi zapiseme samo popisanite Osn S-va
    (
     Inv_Broj    char(10),
     Popis        int,
     OdMobilenUred    char(1),
     OdBarKod    char(1),
     Sifra_MikLok    char(10),
     Sifra_MakLok    char(10),
     Sifra_Rab    int
    )
    Set @SSQL = ' Select  O.Inv_Broj, Count(LP.IDLPopisOS), LP.OdMobilenUred, LP.OdBarKod,
                P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab
            From PopisOS P
            Inner Join LPopisOS LP On LP.IDPopisOS=P.IDPopisOS
            Inner Join OsnSred O On O.Inv_Broj=Lp.Inv_Broj
            Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
            Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
            Left Outer Join Rabotnik R On R.Sifra_Rab=O.Sifra_Rab '
    If @LokacOdPopLst =  'D'
        Set @SSQL = @SSQL + ' Left Outer Join MakroLok MLP On MLP.Sifra_MakLok=P.Sifra_MakLok '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Datum_Od Is Not null
        Set @SSQL = @SSQL + ' And P.Datum >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not null
        Set @SSQL = @SSQL + ' And P.Datum <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @LokacOdPopLst = 'D'
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And (P.Sifra_MakLok = ''' + @Sifra_MakLok + ''' Or MAKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''') '
        If @Sifra_MikLok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And (P.Sifra_MikLok = ''' + @Sifra_MikLok + ''' Or MIKL.Sifra_MikLok = ''' + @Sifra_MikLok + ''') '
        If @Sifra_Rab Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And (P.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' Or O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''') '
        If @Sifra_Lok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And (MLP.Sifra_Lok = ''' + @Sifra_Lok + ''' Or L.Sifra_Lok = ''' + @Sifra_Lok + ''') '
    End
    Else
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And MAKL.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
        If @Sifra_MikLok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And MIKL.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
        If @Sifra_Rab Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' '
        If @Sifra_Lok Is Not null
            Set @SSQLUsl = @SSQLUsl + ' And L.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    End
    If @Inv_BrojOd Is Not null
        Set @SSQLUsl = @SSQLUsl + ' And O.Inv_Broj >= ''' + @Inv_BrojOd + ''' '
    If @Inv_BrojDo Is Not null
        Set @SSQLUsl = @SSQLUsl + ' And O.Inv_Broj <= ''' + @Inv_BrojDo + ''' '
    If @OS_SI = 'O'
        Set @SSQLUsl = @SSQLUsl + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQLUsl = @SSQLUsl + ' And O.Tip = ''SI'' '
    -- Ja polnime tabelata #Popis so popisanite osn. s-va
    Insert Into #Popis Exec(@SSQL+@SSQLUsl+' Group By O.Inv_Broj, LP.OdMobilenUred, LP.OdBarKod, P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab ')
Print @SSQL+@SSQLUsl+' Group By O.Inv_Broj, LP.OdMobilenUred, LP.OdBarKod, P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab '
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Ja polnime tabelata #OsnSredPopis so site osn. s-va zaradi posle pri filtrite Kusok, Visok, Tocno da ne se isklucuvaat onie S-va koi ne se popisani
    Set @SSQL = ' Select  O.Inv_Broj, P.Popis, P.OdMobilenUred, P.OdBarKod
            From OsnSred O
            Left Outer Join #Popis P On P.Inv_Broj=O.Inv_Broj
            Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
            Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
            Left Outer Join Rabotnik R On R.Sifra_Rab=O.Sifra_Rab '
    If @LokacOdPopLst =  'D'
        Set @SSQL = @SSQL + ' Left Outer Join MakroLok MLP On MLP.Sifra_MakLok=P.Sifra_MakLok '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And (O.DatPrest Is Null Or O.DatPrest>= ''' + Cast(@Datum_Do as varchar(30)) + ''') '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And O.DatNab<=''' + Cast(@Datum_Od as varchar(30)) + ''' '
    Insert Into #OsnSredPopis Exec(@SSQL+@SSQLUsl)
    Update #OsnSredPopis Set Popis=0 Where Popis Is Null
    -- Vo tabelata #OsnSredPopis go zapisuvame napraveniot popis osn.s-va
/*    Update #OsnSredPopis
    Set Popis=#Popis.Popis
    From #Popis
    Where #OsnSredPopis.Inv_Broj=#Popis.Inv_Broj
*/
Print @SSQL
    ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    -- Rezultati od popisot
    Set @SSQL = 'Select  O.Inv_Broj, O.Ime, O.Opis, O.Sifra_Rab, R.ImeRab, 1 as Sostojba, P.Popis, (P.Popis-1) KusokVisok, P.OdMobilenUred, P.OdBarKod
            From OsnSred O
            Inner Join #OsnSredPopis P On P.Inv_Broj=O.Inv_Broj
            Left Outer Join MikroLok MIKL On MIKL.Sifra_MikLok=O.Sifra_MikLok
            Left Outer Join MakroLok MAKL On MAKL.Sifra_MakLok=MIKL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MAKL.Sifra_Lok
            Left Outer Join Rabotnik R On R.Sifra_Rab=O.Sifra_Rab
            Where 1=1 '
    If @KusokVisok = 'K'
        Set @SSQL = @SSQL + ' AND P.Popis < 1 '
    If @KusokVisok = 'V'
        Set @SSQL = @SSQL + ' AND P.Popis > 1 '
    If @KusokVisok = 'T'
        Set @SSQL = @SSQL + ' AND P.Popis = 1 '
    If @KusokVisok = 'KV'
        Set @SSQL = @SSQL + ' AND P.Popis <> 1 '
    If @KusokVisok = 'KT'
        Set @SSQL = @SSQL + ' AND (P.Popis < 1 OR P.Popis = 1) '
    If @KusokVisok = 'VT'
        Set @SSQL = @SSQL + ' AND (P.Popis > 1 OR P.Popis = 1) '
Print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_poplst_os]'))
drop procedure [dbo].[sp_pregled_poplst_os]

Go
CREATE        PROCEDURE sp_Pregled_PopLst_OS
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @Sifra_MakLok    char(10) = Null,
    @Sifra_MikLok    char(10) = Null,
    @Broj_Lista    int = Null,
    @Broj_Lista_Do    int = Null,
    @Sifra_Lok    char(3) = Null,
    @Sifra_Rab    int = Null,
    @LokacOdPopLst char(1) = 'N',        -- dali filterot lokacija i rabotnik da se gleda od osnovnoto sredstvo ili od popisot
    @OS_SI    char(1) = 'O'        -- O - Osnovni Sredstva,     S - Siten Inventar
AS
    Declare @SSQL varchar(8000)
    Set @SSQL =     'SELECT P.Sifra_Oe, ORG.ImeOrg, L.IDPopisOS, L.Broj_Lista, L.Inv_Broj, O.Ime, P.Datum, L.OdMobilenUred, L.OdBarKod,
                P.Sifra_MikLok, P.Sifra_MakLok, P.Sifra_Rab, ML.Ime_MikLok, MA.Ime_MakLok, R.ImeRab, L.IDLPopisOS
            FROM PopisOS P
            Inner Join LPopisOS L On L.IDPopisOS=P.IDPopisOS
            Inner Join OsnSred O On O.Inv_Broj=L.Inv_Broj
            Left Outer Join MikroLok ML On ML.Sifra_MikLok=P.Sifra_MikLok
            Left Outer Join MakroLok MA On MA.Sifra_MakLok=P.Sifra_MakLok
            Left Outer Join Rabotnik R On R.Sifra_Rab=P.Sifra_Rab
            Inner Join Orged ORG On ORG.Sifra_Oe=P.Sifra_Oe '
    If @LokacOdPopLst =  'D'
        Set @SSQL = @SSQL + ' Left Outer Join MakroLok MLP On MLP.Sifra_MakLok=P.Sifra_MakLok '
--    If @Sifra_MakLok Is Not Null
--        Set @SSQL = @SSQL + ' Left Outer Join MikroLok ML On ML.Sifra_MikLok=O.Sifra_MikLok '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Datum_Od  IS NOT NULL
        Set @SSQL = @SSQL + ' AND P.Datum >= ''' + Cast(@Datum_Od As varchar(30)) + ''' '
    If @Datum_Do  IS NOT NULL
        Set @SSQL = @SSQL + ' AND P.Datum <= ''' + Cast(@Datum_Do As varchar(30)) + ''' '
    If @LokacOdPopLst = 'D'
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_MakLok = ''' + @Sifra_MakLok + ''' Or ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''') '
        If @Sifra_MikLok Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_MikLok = ''' + @Sifra_MikLok + ''' Or O.Sifra_MikLok = ''' + @Sifra_MikLok + ''') '
        If @Sifra_Rab Is Not null
            Set @SSQL = @SSQL + ' And (P.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' Or O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''') '
        If @Sifra_Lok Is Not null
            Set @SSQL = @SSQL + ' And (MLP.Sifra_Lok = ''' + @Sifra_Lok + ''' Or MA.Sifra_Lok = ''' + @Sifra_Lok + ''') '
    End
    Else
    Begin
        If @Sifra_MakLok Is Not null
            Set @SSQL = @SSQL + ' And ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
        If @Sifra_MikLok Is Not null
            Set @SSQL = @SSQL + ' And O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' '
        If @Sifra_Rab Is Not null
            Set @SSQL = @SSQL + ' And O.Sifra_Rab = ''' + cast(@Sifra_Rab as varchar(10)) + ''' '
        If @Sifra_Lok Is Not null
            Set @SSQL = @SSQL + ' And MA.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    End
/*    If @Sifra_MakLok  IS NOT NULL
        Set @SSQL = @SSQL + ' AND ML.Sifra_MakLok = ''' + @Sifra_MakLok + ''' '
    If @Sifra_MikLok  IS NOT NULL
        Set @SSQL = @SSQL + ' AND O.Sifra_MikLok = ''' + @Sifra_MikLok + ''' ' */
    IF @Broj_Lista IS NOT NULL
        Set @SSQL = @SSQL + ' AND L.Broj_Lista >= ' + cast(@Broj_Lista as varchar(8))+ ' '
    IF @Broj_Lista_Do IS NOT NULL
        Set @SSQL = @SSQL + ' AND L.Broj_Lista <= ' + cast(@Broj_Lista_Do as varchar(8))+ ' '
    If @OS_SI = 'O'
        Set @SSQL = @SSQL + ' And O.Tip = ''OS'' '
    Else If @OS_SI = 'S'
        Set @SSQL = @SSQL + ' And O.Tip = ''SI'' '
    Set @SSQL = @SSQL + ' ORDER BY L.IDPopisOS, L.Broj_Lista, L.Inv_Broj, O.Ime '
print @SSQL
    exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_rpopis]'))
drop procedure [dbo].[sp_pregled_rpopis]

Go





CREATE        PROCEDURE sp_Pregled_RPopis
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @KusokVisok varchar(2)    ,    --K-Kusok,V-Visok,T-Tocno ili kombinaciite KV, KT, VT
    @Grupa_OrgEd varchar(500) = NULL,
    @Datum_Do smalldatetime = NULL,
    @CenaSoDanok char(1) = NULL,              -- D/N
    @KojaCena char(1) = 'K',               -- K, N-NabCena, P-NNabCena
    @Sifra_art_Od Varchar(20)=Null,
    @Sifra_art_Do Varchar(20)=Null,
    @Sifra_Gr varchar(6) = Null,
    @Sifra_Podg char(6) = Null,
    @Sifra_Drg smallint = Null,
    @Lokacija Varchar(10) = Null,
    @KFLokacija Char(1) = 'N',
    @SoZbBrend Char(1) = 'N',
    @Dobav Varchar(200) = Null,
    @KFDobav char(1) = 'N',
    @BezKontr char(1)='N'
AS
    Declare @SSQL varchar(8000)
    Create Table #Popis
    (
    IDPopis        int,
    Sifra_Art    varchar(20),
    KontrSer    varchar(25),
    Sifra_Boja    smallint,
    Sifra_Velic smallint,
    Popis        decimal(18,6),
    KnigSost    decimal(18,6),
    Vrednost    decimal(18,6),
    VrednostKnig    decimal(18,6),
    Cena        decimal(18,6),
    DanCena    char(1),
    Posn        decimal(9,2),
    Sifra_Tar    char(3)
    )

    If @Grupa_OrgEd Is Not Null
    Begin
        Create Table #Ceni
        (
         Sifra_Art    varchar(20),
         Cena        decimal(18,6),
         Posn        decimal(9,2),
         DanCena    char(1)
        )
        Create Table #OE
        ( Sifra_Oe    smallint    )
        Set @SSQL=' Select Distinct Sifra_Oe From Popis Where Sifra_Oe In ( ' + @Grupa_OrgEd + ' )
                AND Datum >= ''' + Cast(@Datum as varchar(30)) + ''' ' + ' AND Datum <= '''+ Cast(@Datum_Do as varchar(30)) + '''  '
        Insert Into #OE Exec(@SSQL)
        Declare @SifArt varchar(20)
        Declare @Cena decimal(18,6)
        Declare @SifOe Smallint
        Declare @Posn    decimal(9,2)
        Declare @DanCena char(1)
        If @KojaCena = 'K'
        Begin
            Declare Ceni Cursor Fast_Forward For
                Select Distinct R.Sifra_Art, R.Cena, R.Posn, R.DanCena, P.Sifra_Oe
                From RPopis R Inner Join Popis P On P.IDPopis=R.IDPopis
                Where R.IDPopis IN (SELECT IDPopis FROM Popis WHERE Sifra_OE In (Select Sifra_Oe From #OE)  AND Datum >=@Datum  AND Datum <=@Datum_Do)
                Order by P.Sifra_Oe, R.Sifra_Art
            Open Ceni
            Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            While @@Fetch_Status=0
            Begin
                If @Cena <> 0 And @Cena Is Not Null
                    If Not Exists(Select Sifra_Art From #Ceni Where Sifra_Art = @SifArt)
                        Insert Into #Ceni(Sifra_Art, Cena, Posn, DanCena) Values(@SifArt, @Cena, @Posn, @DanCena)
                Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            End
            Close Ceni
            Deallocate Ceni
        End
        If @KojaCena = 'N'
        Begin
            Declare Ceni Cursor Fast_Forward For
                Select Distinct R.Sifra_Art, S.NabCena, S.Posn, 'N', S.Sifra_Oe
                From RPopis R Inner Join Popis P On P.IDPopis=R.IDPopis
                Inner Join Soart S On S.Sifra_Art=R.Sifra_Art And S.Sifra_Oe=P.Sifra_Oe
                Where R.IDPopis IN (SELECT IDPopis FROM Popis WHERE Sifra_OE In (Select Sifra_Oe From #OE)  AND Datum >=@Datum  AND Datum <=@Datum_Do)
                Order by S.Sifra_Oe, R.Sifra_Art
            Open Ceni
            Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            While @@Fetch_Status=0
            Begin
                If @Cena <> 0 And @Cena Is Not Null
                    If Not Exists(Select Sifra_Art From #Ceni Where Sifra_Art = @SifArt)
                        Insert Into #Ceni(Sifra_Art, Cena, Posn, DanCena) Values(@SifArt, @Cena, @Posn, @DanCena)
                Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            End
            Close Ceni
            Deallocate Ceni
        End
        If @KojaCena = 'P'
        Begin
            Declare Ceni Cursor Fast_Forward For
                Select Distinct R.Sifra_Art, S.NNabCena, S.Posn, 'N', S.Sifra_Oe
                From RPopis R Inner Join Popis P On P.IDPopis=R.IDPopis
                Inner Join Soart S On S.Sifra_Art=R.Sifra_Art And S.Sifra_Oe=P.Sifra_Oe
                Where R.IDPopis IN (SELECT IDPopis FROM Popis WHERE Sifra_OE In (Select Sifra_Oe From #OE)  AND Datum >=@Datum  AND Datum <=@Datum_Do)
                Order by S.Sifra_Oe, R.Sifra_Art
            Open Ceni
            Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            While @@Fetch_Status=0
            Begin
                If @Cena <> 0 And @Cena Is Not Null
                    If Not Exists(Select Sifra_Art From #Ceni Where Sifra_Art = @SifArt)
                        Insert Into #Ceni(Sifra_Art, Cena, Posn, DanCena) Values(@SifArt, @Cena, @Posn, @DanCena)
                Fetch Next From Ceni Into @SifArt, @Cena, @Posn, @DanCena, @SifOe
            End
            Close Ceni
            Deallocate Ceni
        End
        Set @SSQL =     'SELECT 0 as IDPopis, R.Sifra_art, R.KontrSer, R.Sifra_Boja, R.Sifra_Velic, sum(R.Popis) Popis, sum(R.KnigSost) KnigSost, '
--        If @KojaCena = 'K'
            Set @SSQL=@SSQL + ' sum(R.Popis*dbo.fn_VratiCena(C.Cena, C.Posn, C.DanCena,''' + @CenaSoDanok + ''' )) Vrednost,
                        sum(R.KnigSost*dbo.fn_VratiCena(C.Cena, C.Posn, C.DanCena,''' + @CenaSoDanok + ''' )) VrednostKnig, '
--        If @KojaCena = 'N'
--            Set @SSQL=@SSQL + ' sum(R.Popis*dbo.fn_VratiCena(S.NabCena, S.Posn, ' +'''N''' + ','''+ @CenaSoDanok + ''' )) Vrednost,
--                        sum(R.KnigSost*dbo.fn_VratiCena(S.NabCena, S.Posn,  ' +'''N'''+ ',''' + @CenaSoDanok + ''' )) VrednostKnig, '
--        If @KojaCena = 'P'
--            Set @SSQL=@SSQL + ' sum(R.Popis*dbo.fn_VratiCena(S.NNabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''' )) Vrednost,
--                        sum(R.KnigSost*dbo.fn_VratiCena(S.NNabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''' )) VrednostKnig, '
        Set @SSQL = @SSQL +' 0 as Cena, 0 as DanCena, R.Posn, R.Sifra_Tar
                 FROM RPopis R
                 LEFT OUTER JOIN #Ceni C On C.Sifra_Art=R.Sifra_Art '
        If @KojaCena = 'N' Or @KojaCena = 'P'
            Set @SSQL = @SSQL + ' Inner Join Popis P On P.IDPopis=R.IDPopis
                        Left Outer Join Soart S On S.Sifra_art=R.Sifra_art and S.Sifra_Oe=P.Sifra_Oe '
        -- If @Sifra_Podg Is Not Null Or @Sifra_Drg Is Not Null Or @Sifra_Gr Is Not Null Or @Lokacija Is Not Null
            Set @SSQL = @SSQL + ' Inner Join Katart K On K.Sifra_art = R.Sifra_art
                          Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg '
        Set @SSQL=@SSQL + '    WHERE R.IDPopis IN (SELECT IDPopis FROM Popis
                    WHERE Sifra_OE In (' + @Grupa_OrgEd + ')  AND Datum >= ''' + Cast(@Datum as varchar(30)) + ''' ' + ' AND Datum <= '''+ Cast(@Datum_Do as varchar(30)) + ''' ) '
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_art >= ''' + @Sifra_art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_art <= ''' + @Sifra_art_Do + ''' '
        If @Sifra_Podg Is Not Null
            Set @SSQL = @SSQL + ' And K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
        If @Sifra_Drg Is Not Null
            Set @SSQL = @SSQL + ' And K.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(6)) + ' '
        If @Lokacija Is Not Null
        Begin
            If @KFLokacija = 'D'
                Set @SSQL = @SSQL + ' And (K.Lokacija Is Null Or K.Lokacija<>'''+lTrim(rtrim(@Lokacija))+''') '
            Else
                  Set @SSQL = @SSQL + ' AND (K.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
        End
        If @Dobav Is Not Null
        Begin
            If @KFDobav = 'D'
                Set @SSQL = @SSQL + ' And (K.Kto Not In ( ' + @Dobav + ') Or K.Kto Is Null) '
            Else
                  Set @SSQL = @SSQL + ' And (K.Kto In ( ' + @Dobav + ')) '
        End
        --------  Komentirano 04.01.2006   gk
/*        if @KusokVisok = 'K'
            Set @SSQL = @SSQL + ' AND R.Popis < R.KnigSost '
        if @KusokVisok = 'V'
            Set @SSQL = @SSQL + ' AND R.Popis > R.KnigSost '
        if @KusokVisok = 'T'
            Set @SSQL = @SSQL + ' AND R.Popis = R.KnigSost '
        if @KusokVisok = 'KV'
            Set @SSQL = @SSQL + ' AND R.Popis <> R.KnigSost '
        if @KusokVisok = 'KT'
            Set @SSQL = @SSQL + ' AND (R.Popis < R.KnigSost OR R.Popis = R.KnigSost) '
        if @KusokVisok = 'VT'
            Set @SSQL = @SSQL + ' AND (R.Popis > R.KnigSost OR R.Popis = R.KnigSost) '
*/        Set @SSQL=@SSQL + ' Group By R.Sifra_art, R.KontrSer, R.Sifra_Boja, R.Sifra_Velic, R.Posn, R.Sifra_Tar '
        if @KusokVisok = 'K'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) < Sum(R.KnigSost) '
        if @KusokVisok = 'V'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) > Sum(R.KnigSost) '
        if @KusokVisok = 'T'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) = Sum(R.KnigSost) '
        if @KusokVisok = 'KV'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) <> Sum(R.KnigSost) '
        if @KusokVisok = 'KT'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) <= Sum(R.KnigSost) '
        if @KusokVisok = 'VT'
            Set @SSQL = @SSQL + ' Having Sum(R.Popis) >= Sum(R.KnigSost) '
        -- Print @SSQL
        Insert Into #Popis Exec (@SSQL)
        Update #Popis
            Set Cena=dbo.fn_VratiCenaPopis(Popis, Vrednost, KnigSost, VrednostKnig), DanCena=@CenaSoDanok
        Set @SSQL='Select P.*, A.Imeart, A.EdMera, A.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
        If @SoZbBrend  = 'D'
            Set @SSQL = @SSQL + ' B.Sifra_Drg1, BB.Ime_Drg1, A.ALt_Sifra '
        Else
            Set @SSQL = @SSQL + ' Null as Sifra_Drg1, Null as Ime_Drg1, A.Alt_Sifra '
        Set @SSQL = @SSQL + ' From #Popis P                Inner Join Katart A On A.Sifra_art = P.Sifra_art
                Inner Join Podgrupi PG On PG.Sifra_Podg = A.Sifra_Podg
                Inner Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr '
        If @SoZbBrend  = 'D'
            Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg = A.Sifra_Drg
                          Left Outer Join DrgPodel1 BB On BB.Sifra_Drg1 = B.Sifra_Drg1 '
    End
    Else
    Begin
        --Set @SSQL =     ' SELECT R.*, A.ImeArt, (R.Popis*R.Cena) as Vrednost, (R.KnigSost*R.Cena) as VrednostKnig FROM RPopis R
        Set @SSQL =     ' SELECT R.IdPopis, R.Sifra_art, R.KontrSer, R.Sifra_Boja, R.Sifra_Velic, Round((R.Popis), 4) Popis, Round((R.KnigSost), 4) KnigSost, A.EdMera, A.Sifra_Podg, PG.Ime_Podg, PG.Sifra_Gr, G.Ime_Gr, '
        If @KojaCena = 'K'
            If @cenaSoDanok IS NULL
                Set @SSQL = @SSQL + ' Round((R.Cena), 4) Cena, R.DanCena, R.Posn, R.Sifra_Tar,  A.ImeArt,
                            Round((R.Popis * R.Cena),4) as Vrednost, Round((R.KnigSost * R.Cena), 4) as VrednostKnig, '
            Else
            Set @SSQL = @SSQL + ' dbo.fn_VratiCena(R.Cena, R.Posn, R.DanCena, '''+ @CenaSoDanok + ''') Cena, R.DanCena, R.Posn, R.Sifra_Tar,
                         A.ImeArt, Round((R.Popis*dbo.fn_VratiCena(R.Cena, R.Posn, R.DanCena, '''+ @CenaSoDanok + ''') ), 4) as Vrednost,
                         Round((R.KnigSost*dbo.fn_VratiCena(R.Cena, R.Posn, R.DanCena, '''+ @CenaSoDanok + ''')), 4) as VrednostKnig, '
        If @KojaCena = 'N'
            Set @SSQL = @SSQL + ' dbo.fn_VratiCena(S.NabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''') Cena, R.DanCena, R.Posn, R.Sifra_Tar,
                         A.ImeArt, Round((R.Popis*dbo.fn_VratiCena(S.NabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''') ), 4) as Vrednost,
                         Round((R.KnigSost*dbo.fn_VratiCena(S.NabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''')), 4) as VrednostKnig, '
        If @KojaCena = 'P'
            Set @SSQL = @SSQL + ' dbo.fn_VratiCena(S.NNabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''') Cena, R.DanCena, R.Posn, R.Sifra_Tar,
                         A.ImeArt, Round((R.Popis*dbo.fn_VratiCena(S.NNabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''') ), 4) as Vrednost,
                         Round((R.KnigSost*dbo.fn_VratiCena(S.NNabCena, S.Posn, ' + '''N''' + ',''' + @CenaSoDanok + ''')), 4) as VrednostKnig, '
        If @SoZbBrend  = 'D'
            Set @SSQL = @SSQL + ' B.Sifra_Drg1, BB.Ime_Drg1, A.Alt_SIfra '
        Else
            Set @SSQL = @SSQL + ' Null as Sifra_Drg1, Null as Ime_Drg1, A.Alt_Sifra '
        Set @SSQL=@SSQL + '     FROM RPopis R
                    INNER JOIN KatArt A ON R.Sifra_Art = A.Sifra_Art
                    Left Outer Join Podgrupi PG On PG.Sifra_Podg=A.Sifra_Podg
                    Left Outer Join Grupi G On G.Sifra_Gr = PG.Sifra_Gr '
        If @KojaCena = 'N' Or @KojaCena = 'P'
            Set @SSQL = @SSQL + ' Inner Join Popis P On P.IDPopis=R.IDPopis
                        Left Outer Join Soart S On S.Sifra_art=R.Sifra_art and S.Sifra_Oe=P.Sifra_Oe '
--        If @Sifra_Gr Is Not Null
--        Set @SSQL = @SSQL + 'Left Outer Join Podgrupi PG On PG.Sifra_Podg=A.Sifra_Podg '
        If @SoZbBrend  = 'D'
            Set @SSQL = @SSQL + ' Left Outer Join DrgPodel B On B.Sifra_Drg = A.Sifra_Drg
                          Left Outer Join DrgPodel1 BB On BB.Sifra_Drg1 = B.Sifra_Drg1 '
        Set @SSQL = @SSQL + 'WHERE R.IDPopis IN (SELECT IDPopis FROM Popis
                                WHERE Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) +
                    ' AND Datum = ''' + Cast(@Datum as varchar(30)) + ''' )'
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_art >= ''' + @Sifra_art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And R.Sifra_art <= ''' + @Sifra_art_Do + ''' '
        If @Sifra_Podg Is Not Null
            Set @SSQL = @SSQL + ' And A.Sifra_Podg = ''' + @Sifra_Podg + ''' '
        If @Sifra_Gr Is Not Null
            Set @SSQL = @SSQL + ' And PG.Sifra_Gr = ''' + @Sifra_Gr + ''' '
        If @Sifra_Drg Is Not Null
            Set @SSQL = @SSQL + ' And A.Sifra_Drg=' + Cast(@Sifra_Drg As Varchar(6)) + ' '
        If @Lokacija Is Not Null
        Begin
            If @KFLokacija = 'D'
                Set @SSQL = @SSQL + ' And (A.Lokacija Is Null Or A.Lokacija<>'''+lTrim(rtrim(@Lokacija))+''') '
            Else
                  Set @SSQL = @SSQL + ' AND (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
        End
        If @Dobav Is Not Null
        Begin
            If @KFDobav = 'D'
                Set @SSQL = @SSQL + ' And (A.Kto Not In ( ' + @Dobav + ') Or A.Kto Is Null) '
            Else
                  Set @SSQL = @SSQL + ' And (A.Kto In ( ' + @Dobav + ')) '
        End

        if @KusokVisok = 'K'
            Set @SSQL = @SSQL + ' AND R.Popis < R.KnigSost '
        if @KusokVisok = 'V'
            Set @SSQL = @SSQL + ' AND R.Popis > R.KnigSost '
        if @KusokVisok = 'T'
            Set @SSQL = @SSQL + ' AND R.Popis = R.KnigSost '
        if @KusokVisok = 'KV'
            Set @SSQL = @SSQL + ' AND R.Popis <> R.KnigSost '
        if @KusokVisok = 'KT'
            Set @SSQL = @SSQL + ' AND (R.Popis < R.KnigSost OR R.Popis = R.KnigSost) '
        if @KusokVisok = 'VT'
            Set @SSQL = @SSQL + ' AND (R.Popis > R.KnigSost OR R.Popis = R.KnigSost) '
    End
--      print @SSQL

IF @BezKontr='D'
BEGIN
    CREATE TABLE #TmpPop
    (IdPopis    int,
    Sifra_art   varchar(20),
    KontrSer  varchar(40),
    Sifra_Boja    smallint,
    Sifra_Velic    smallint,
    Popis decimal(18,6),
    KnigSost decimal(18,6),
    EdMera varchar(6),
    Sifra_Podg char(6),
    Ime_Podg varchar(40),
    Sifra_Gr char(3),
    Ime_Gr varchar(40),
    Cena decimal(18,6),
    DanCena char(1),
    Posn   decimal(6,2),
    Sifra_Tar char(3),
    ImeArt  varchar(40),
    Vrednost decimal(18,6),
    VrednostKnig decimal(18,6),
    Sifra_Drg1  smallint,
    Ime_Drg1 varchar(40),
    Alt_Sifra varchar(30))

    INSERT INTO #TmpPop EXEC (@SSQL)

    set @SSQL = '
        SELECT IdPopis, Sifra_art, '''' KontrSer, '''' Sifra_Boja, '''' Sifra_Velic, EdMera, Sifra_Podg, Ime_Podg, Sifra_Gr, Ime_Gr, Cena, DanCena, Posn,
        Sifra_Tar, ImeArt, Sifra_Drg1, Ime_Drg1, SUM(Popis) Popis, SUM(KnigSost) KnigSost, SUM(Vrednost) Vrednost, SUM(VrednostKnig) VrednostKnig,
        Alt_Sifra
    FROM #TmpPop R
    GROUP BY IdPopis, Sifra_art, EdMera, Sifra_Podg, Ime_Podg, Sifra_Gr, Ime_Gr, Cena, DanCena, Posn, Sifra_Tar, ImeArt, Sifra_Drg1, Ime_Drg1, ALt_Sifra '

    if @KusokVisok = 'K'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) < Sum(R.KnigSost) '
    if @KusokVisok = 'V'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) > Sum(R.KnigSost) '
    if @KusokVisok = 'T'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) = Sum(R.KnigSost) '
    if @KusokVisok = 'KV'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) <> Sum(R.KnigSost) '
    if @KusokVisok = 'KT'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) <= Sum(R.KnigSost) '
    if @KusokVisok = 'VT'
        Set @SSQL = @SSQL + ' Having Sum(R.Popis) >= Sum(R.KnigSost) '

    set @SSQL = @SSQL +  ' ORDER BY IDPopis, Sifra_Art '

    Exec (@SSQL)

END
Else
    Exec (@SSQL)













Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_rpopis_sum]'))
drop procedure [dbo].[sp_pregled_rpopis_sum]

Go
CREATE        PROCEDURE sp_Pregled_RPopis_Sum
    @Sifra_OE smallint,
    @Datum smalldatetime,
    @KusokVisok varchar(2)    ,    --K-Kusok,V-Visok,T-Tocno ili kombinaciite KV, KT, VT
    @Lokacija Varchar(10) = Null,
    @KFLokacija Char(1) = 'N'
AS
    Declare @SSQL varchar(8000)
    Set @SSQL =     'SELECT R.IDPopis,
                Sum(R.Popis) PopisKol,
                Sum(R.KnigSost) KnigSostKol,
                Sum(R.Popis*R.Cena) PopisVr,
                Sum(R.KnigSost*R.Cena) KnigSostVr,
                R.Dancena, R.POsn
            FROM RPopis R
            INNER JOIN KatArt A ON R.Sifra_Art = A.Sifra_Art
            WHERE R.IDPopis IN (SELECT IDPopis FROM Popis
            WHERE Sifra_OE = ' + Cast(@Sifra_OE as varchar(6)) +
            ' AND Datum = ''' + Cast(@Datum as varchar(30)) + ''' )'
    If @Lokacija Is Not Null
    Begin
        If @KFLokacija = 'D'
            Set @SSQL = @SSQL + ' And (A.Lokacija Is Null Or A.Lokacija<>'''+lTrim(rtrim(@Lokacija))+''') '
        Else
              Set @SSQL = @SSQL + ' And (A.Lokacija='''+lTrim(rtrim(@Lokacija))+''') '
    End
    if @KusokVisok = 'K'
        Set @SSQL = @SSQL + ' AND R.Popis < R.KnigSost '
    if @KusokVisok = 'V'
        Set @SSQL = @SSQL + ' AND R.Popis > R.KnigSost '
    if @KusokVisok = 'T'
        Set @SSQL = @SSQL + ' AND R.Popis = R.KnigSost '
    if @KusokVisok = 'KV'
        Set @SSQL = @SSQL + ' AND R.Popis <> R.KnigSost '
    if @KusokVisok = 'KT'
        Set @SSQL = @SSQL + ' AND (R.Popis < R.KnigSost OR R.Popis = R.KnigSost) '
    if @KusokVisok = 'VT'
        Set @SSQL = @SSQL + ' AND (R.Popis > R.KnigSost OR R.Popis = R.KnigSost) '
    Set @SSQL = @SSQL + 'Group By R.IDPopis, R.Dancena, R.POsn '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_xfbaranje]'))
drop procedure [dbo].[sp_pregled_xfbaranje]

Go
CREATE PROCEDURE sp_Pregled_XFBaranje
    @Broj_Baranje_Od    int = Null,
    @Broj_Baranje_Do    int = Null,
    @Broj_Predmet        int = Null,
    @Broj_Baranje_Preth    int = Null,
    @Broj_Baranje_Orig    int = Null,
    @Sifra_VidBaranje    smallint = Null,
    @Datum_Baranje_Od    smalldatetime = Null,
    @Datum_Baranje_Do    smalldatetime = Null,
    @Datum_Ocek_Real_Od    smalldatetime = Null,
    @Datum_Ocek_Real_Do    smalldatetime = Null,
    @Sifra_StatusBaranje    smallint = Null,
    @OpisBaranje        nvarchar(50) = Null,
    @Datum_Zavrseno_Od    smalldatetime = Null,
    @Datum_Zavrseno_Do    smalldatetime = Null,
    @Zatvoreno        char(10) = Null,
    @Sifra_Kup        char(6) = Null,
    @ImeKontakt        nvarchar(50) = Null,
    @Sifra_TipPredmet    smallint = Null,
    @Sifra_Oblast        smallint = Null,
    @Sifra_Izvrs        int = Null,
    @Sifra_Izvrs_Od    int = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select B.Broj_Baranje, B.Broj_Predmet, B.Broj_Baranje_Preth, B.Broj_Baranje_Orig, B.Sifra_VidBaranje, VB.ImeVidBaranje, B.Datum_Baranje, B.Datum_Ocek_Real,
            B.Datum_Gledaj, B.Sifra_StatusBaranje, SB.ImeStatusBaranje, B.OpisBaranje, B.Datum_Zavrseno, B.Zatvoreno, B.Sifra_Kup, Kup.ImeKup, B.ImeKontakt,
            B.Sifra_TipPredmet, TP.ImeTipPredmet, B.Sifra_Oblast, B.Sifra_Izvrs, I.ImeIzvrs, B.Sifra_Oe, B.Sifra_Nar, B.Broj_Nar, B.Sifra_Izvrs_Od, IO.ImeIzvrs ImeIzvrsOd
        From XFBaranje B
        Left Outer Join XFVidBaranje VB On VB.Sifra_VidBaranje=B.Sifra_VidBaranje
        Left Outer Join XFStatusBaranje SB On SB.Sifra_StatusBaranje=B.Sifra_StatusBaranje
        Left Outer Join Komint Kup On Kup.Sifra_Kup=B.Sifra_Kup
        Left Outer Join XFTipPredmet TP On TP.Sifra_TipPredmet=B.Sifra_TipPredmet
        Left Outer Join XFIzvrsitel I On I.Sifra_Izvrs=B.Sifra_Izvrs
        Left Outer Join XFIzvrsitel IO On IO.Sifra_Izvrs=B.Sifra_Izvrs_Od
        Where 1=1 '
    If @Broj_Baranje_Od Is Not Null
        Set @SSQL = @SSQL + ' And B.Broj_Baranje >= ' + Cast(@Broj_Baranje_Od as varchar(10)) + ' '
    If @Broj_Baranje_Do Is Not Null
        Set @SSQL = @SSQL + ' And B.Broj_Baranje <= ' + Cast(@Broj_Baranje_Do as varchar(10)) + ' '
    If @Broj_Predmet Is Not Null
        Set @SSQL = @SSQL + ' And B.Broj_Predmet = ' + Cast(@Broj_Predmet as varchar(10)) + ' '
    If @Broj_Baranje_Preth Is Not Null
        Set @SSQL = @SSQL + ' And B.Broj_Baranje_Preth = ' + Cast(@Broj_Baranje_Preth as varchar(10)) + ' '
    If @Broj_Baranje_Orig Is Not Null
        Set @SSQL = @SSQL + ' And B.Broj_Baranje_Orig = ' + Cast(@Broj_Baranje_Orig as varchar(10)) + ' '
    If @Sifra_VidBaranje Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_VidBaranje = ' + Cast(@Sifra_VidBaranje as varchar(10)) + ' '
    If @Datum_Baranje_Od Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Baranje >= ''' + Cast(@Datum_Baranje_Od as varchar(30)) + ''' '
    If @Datum_Baranje_Do Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Baranje <= ''' + Cast(@Datum_Baranje_Do as varchar(30)) + ''' '
    If @Datum_Ocek_Real_Od Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Ocek_Real >= ''' + Cast(@Datum_Ocek_Real_Od as varchar(30)) + ''' '
    If @Datum_Ocek_Real_Do Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Ocek_Real <= ''' + Cast(@Datum_Ocek_Real_Do as varchar(30)) + ''' '
    If @Sifra_StatusBaranje Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_StatusBaranje = ' + Cast(@Sifra_StatusBaranje as varchar(10)) + ' '
    If @OpisBaranje Is Not Null
        Set @SSQL = @SSQL + ' And B.OpisBaranje Like ''%' + @OpisBaranje + '%'' '
    If @Datum_Zavrseno_Od Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Zavrseno >= ''' + Cast(@Datum_Zavrseno_Od as varchar(30)) + ''' '
    If @Datum_Zavrseno_Do Is Not Null
        Set @SSQL = @SSQL + ' And B.Datum_Zavrseno <= ''' + Cast(@Datum_Zavrseno_Do as varchar(30)) + ''' '
    If @Zatvoreno Is Not Null
        Set @SSQL = @SSQL + ' And B.Zatvoreno = ''' +  @Zatvoreno + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Kup = ''' +  @Sifra_Kup + ''' '
    If @ImeKontakt Is Not Null
        Set @SSQL = @SSQL + ' And B.ImeKontakt Like ''%' + @ImeKontakt + '%'' '
    If @Sifra_TipPredmet Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_TipPredmet = ' + Cast(@Sifra_TipPredmet as varchar(10)) + ' '
    If @Sifra_Oblast Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Oblast = ' + Cast(@Sifra_Oblast as varchar(10)) + ' '
    If @Sifra_Izvrs Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Izvrs = ' + Cast(@Sifra_Izvrs as varchar(10)) + ' '
    If @Sifra_Izvrs_Od Is Not Null
        Set @SSQL = @SSQL + ' And B.Sifra_Izvrs_Od = ' + Cast(@Sifra_Izvrs_Od as varchar(10)) + ' '
print @SSQL
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregled_zbiren100]'))
drop procedure [dbo].[sp_pregled_zbiren100]

Go


CREATE      PROCEDURE sp_Pregled_Zbiren100
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    select Sifra_Oe, Datum_Dok, sum (Toc200) as Iznos
        From Dokr
        Where Sifra_Dok in (100,101)
              and Datum_Dok >= @Datum_Od and Datum_Dok <= @Datum_Do
    Group By Sifra_Oe, Datum_Dok
    Order By Datum_Dok, Sifra_Oe




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledavtkont]'))
drop procedure [dbo].[sp_pregledavtkont]

Go
CREATE PROCEDURE sp_PregledAvtKont
AS
    Select * From Avtkont
    Order By Sif_GrOrg, Sif_GrDok, SIf_GrOrg_Prima



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledavtkont_tipdok]'))
drop procedure [dbo].[sp_pregledavtkont_tipdok]

Go
CREATE PROCEDURE sp_PregledAvtKont_TipDok
AS
    Select Distinct A.Sif_GrDok, TD.Sifra_Dok, TD.ImeDok
    From Avtkont A
    Inner Join TipDok TD On TD.Sif_GrDok=A.Sif_GrDok
    Order By A.Sif_GrDok, TD.Sifra_Dok



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledavtkontos]'))
drop procedure [dbo].[sp_pregledavtkontos]

Go

CREATE       PROCEDURE sp_PregledAvtKontOS
    @Kod_Kniz smallint
AS
    Declare @SSQL as varchar(4000)
    Set @SSQL= 'SELECT AV.*, A.ImeAnal, AA.ImeAnal ImeAnal2
    FROM AvtKontOSn AV
    left outer join anal A on AV. Kto_Anal_OS = A.Kto_Anal
    left outer join anal AA on AV. Kto_Anal_Knz = AA.Kto_Anal'
    If @Kod_Kniz is not null
    Set @SSQL= @SSQL+ '  Where AV.Kod_kniz='+ cast(@Kod_Kniz as varchar(5))+ '    '
    --Set @SSQL= @SSQL+'  Group By AV.Kod_kniz'
print @SSQL
exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledcenikartkor]'))
drop procedure [dbo].[sp_pregledcenikartkor]

Go
CREATE procedure sp_pregledCeniKartKor
    @Sifra_CeniKartKor smallint = null,
    @Sifra_Art_Od varchar(20)= null,
    @Sifra_Art_Do varchar(20)= null
As
    Declare @SSQL varchar(5000)
    Set @SSQL=' Select C.*, A.ImeArt
                From CenKartKor C
                Inner JOin KatArt A on C.Sifra_Art=A.Sifra_Art '
    If @Sifra_CeniKArtKor is not null
        Set @SSQL= @SSQL+ ' And C.Sifra_CeniKartKor= ' + cast(@Sifra_CeniKArtKor as varchar(15)) + ''
    If @Sifra_Art_Od is not null
        Set @SSQL= @SSQL+ ' And C.Sifra_Art>= ' + @Sifra_Art_Od + ''
    If @Sifra_Art_Do is not null
        Set @SSQL= @SSQL+ ' And C.Sifra_Art<= ' + @Sifra_Art_Do + ''
exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledcenkartkor]'))
drop procedure [dbo].[sp_pregledcenkartkor]

Go
CREATE PROCEDURE sp_PregledCenKartKor
AS
    Select C.Sifra_CeniKartKor, T.ImeKartKor, C.Sifra_Art, K.ImeArt, C.Cena, C.Popust
    From CenKartKor C
    Inner Join Katart K On K.Sifra_Art = C.Sifra_Art
    Inner Join TipKartKor T On T.Sifra_CeniKartKor = C.Sifra_CeniKartKor



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledcenpopodgr]'))
drop procedure [dbo].[sp_pregledcenpopodgr]

Go

CREATE  PROCEDURE sp_PregledCenPoPodgr
    @Sifra_Podg Char(6) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = 'select C.*,GT.ImeTipKup, P.Ime_Podg from cenpopodgr C
                     Inner Join Podgrupi P ON C.Sifra_podelba=P.Sifra_Podg
                     Inner Join GTipKup GT ON C.TipKup=GT.TipKup
             Where 1=1 and C.Tip_Podelba=''P'' '
    If @Sifra_Podg Is Not Null
                     Set @SSQL = @SSQL + ' And C.Sifra_Podelba=''' + @Sifra_Podg + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledcrrkodovi]'))
drop procedure [dbo].[sp_pregledcrrkodovi]

Go
CREATE procedure sp_PregledCrrKodovi
   -- @Sifra_Crr        tinyint= null,
    @Tip_Crr        char(20)= null,
    @Nivo_Crr        char(20)=null
AS
Declare @SSQL varchar(5000)
SET @SSQL='Select Sifra_Crr, ImeCrr, Tip_Crr, Nivo_Crr FROM CRRKodovi
           WHERE 1=1'
IF @Tip_Crr IS NOT NULL
    SET @SSQL = @SSQL + ' AND Tip_Crr='''+@Tip_Crr+ ''' '
IF @Nivo_Crr IS NOT NULL
    SET @SSQL= @SSQL + 'AND Nivo_Crr=' +@Nivo_Crr+' '
print @SSQL
EXEC (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledfazi]'))
drop procedure [dbo].[sp_pregledfazi]

Go

CREATE   procedure sp_PregledFazi
As
    Select F.*, O.ImeOrg
    From Fazi F
    Left Outer join OrgEd O on F.Sifra_Oe=O.Sifra_Oe







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledgsostav]'))
drop procedure [dbo].[sp_pregledgsostav]

Go
CREATE            PROCEDURE sp_PregledGSostav
    @Sif_GrOrg  varchar(6) = Null,
    @Sifra_Art_Od  varchar(20) = Null,
    @Sifra_Art_Do  varchar(20) = Null,
    @Sifra_Sur_Od  varchar(20) = Null,
    @Sifra_Sur_Do  varchar(20) = Null,
    @Sifra_Oe_Ceni    smallint = Null
AS
    Declare @SSQL varchar(8000)
    Create Table #Ceni
    (
     Sifra_Sur    varchar(20),
     Cena        decimal(18,4)
    )
    If @Sifra_Oe_Ceni Is Not Null
    Begin
        Declare @GrOrg_Ceni varchar(10)
        Select  @GrOrg_Ceni = S.Sif_GrOrg From SGrOrg S
        Inner Join GrOrg G On G.Sif_GrOrg=S.Sif_GrOrg
        Where G.Edinstvena = 'D'
        And Sifra_Oe=@Sifra_Oe_Ceni
        If @GrOrg_Ceni Is Not Null
        Begin
            Insert Into #Ceni Select Distinct GS.Sifra_Sur, Null
            From GSostav GS
            Inner Join GotovSurovOrg GSO On GSO.Reden=GS.Reden And GSO.Sifra_Oe_Got=@Sifra_Oe_Ceni
            Left Outer Join Soart SO On SO.Sifra_Art=GS.Sifra_Sur And SO.Sifra_Oe=GSO.Sifra_Oe_Sur
            Where GS.Sif_GrOrg=@GrOrg_Ceni
            Update #Ceni Set #Ceni.Cena = dbo.fn_VratiCena(Soart.Cena, Soart.Posn, Soart.DanCena, 'D')
            From GSostav
            Inner Join GotovSurovOrg On GotovSurovOrg.Reden=GSostav.Reden And GotovSurovOrg.Sifra_Oe_Got=@Sifra_Oe_Ceni
            Left Outer Join Soart On Soart.Sifra_Art=GSostav.Sifra_Sur And Soart.Sifra_Oe=GotovSurovOrg.Sifra_Oe_Sur
            Where GSostav.Sif_GrOrg=@GrOrg_Ceni And Soart.Sifra_Art=#Ceni.Sifra_Sur
        End
    End
    SET @SSQL = 'SELECT GS.*, GO.Ime_GrOrg, A.ImeArt, A.EdMera, S.ImeArt ImeSur, S.EdMera SEdM, C.Cena, '
    If @Sifra_Oe_Ceni Is Not Null
        Set @SSQL = @SSQL + ' CGO.Cena ProdCena '
    Else
        Set @SSQL = @SSQL + ' Null ProdCena '
    Set @SSQL = @SSQL + ' FROM GSostav GS INNER JOIN GrOrg GO ON GS.Sif_GrOrg = GO.Sif_GrOrg
            INNER JOIN KatArt A ON GS.Sifra_Art=A.Sifra_Art
            INNER JOIN KatArt S ON GS.Sifra_Sur=S.Sifra_Art
            Left Outer Join #Ceni C On C.Sifra_Sur=GS.Sifra_Sur '
    If @Sifra_Oe_Ceni Is Not Null
        Set @SSQL = @SSQL + ' Left Outer Join CenGrOrg CGO On CGO.Sifra_Art = GS.Sifra_Art And CGO.Sif_GrOrg = ''' + @GrOrg_Ceni + ''' '
    Set @SSQL = @SSQL + ' WHERE 1=1 '
    IF @Sif_GrOrg IS NOT NULL
        SET @SSQL = @SSQL + 'AND GS.Sif_GrOrg = ''' + @Sif_GrOrg + ''' '
    IF @Sifra_Art_Od IS NOT NULL
        SET @SSQL = @SSQL + 'AND GS.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    IF @Sifra_Art_Do IS NOT NULL
        SET @SSQL = @SSQL + 'AND GS.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    IF @Sifra_Sur_Od IS NOT NULL
        SET @SSQL = @SSQL + 'AND GS.Sifra_Sur >= ''' + @Sifra_Sur_Od + ''' '
    IF @Sifra_Sur_Do IS NOT NULL
        SET @SSQL = @SSQL + 'AND GS.Sifra_Sur <= ''' + @Sifra_Sur_Do + ''' '
    If @GrOrg_Ceni Is Not Null
        SET @SSQL = @SSQL + 'AND GS.Sif_GrOrg = ''' + @GrOrg_Ceni + ''' '
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkathier]'))
drop procedure [dbo].[sp_pregledkathier]

Go
CREATE PROCEDURE sp_PregledKatHier
    @Sifra_KHier    varchar(20) = Null
AS
    Declare @SSQL as varchar(8000)
    Create Table #Hier
    (
     Sifra_KHier    nvarchar(20),
     Ime_KHier    nvarchar(50),
     Alt_ImeKHier    nvarchar(50),
     Sifra_KHier2    nvarchar(20),
     Ime_KHier2    nvarchar(50),
     Alt_ImeKHier2    nvarchar(50),
     Sifra_KHier3    nvarchar(20),
     Ime_KHier3    nvarchar(50),
     Alt_ImeKHier3    nvarchar(50),
     Sifra_KHier4    nvarchar(20),
     Ime_KHier4    nvarchar(50),
     Alt_ImeKHier4    nvarchar(50)
    )
    Set @SSQL = ' Select H1.Sifra_KHier, H1.Ime_KHier, H1.Alt_ImeKHier,
        H2.Sifra_KHier Sifra_KHier2, H2.Ime_KHier Ime_KHier2, H2.Alt_ImeKHier Alt_ImeKHier2,
        H3.Sifra_KHier Sifra_KHier3, H3.Ime_KHier Ime_KHier3, H3.Alt_ImeKHier Alt_ImeKHier3,
        H4.Sifra_KHier Sifra_KHier4, H4.Ime_KHier Ime_KHier4, H4.Alt_ImeKHier Alt_ImeKHier4
    From KatHier H1
    Left Outer Join KatHier H2 On H2.Sifra_KHier=H1.Sifra_KHier_Hier
    Left Outer Join KatHier H3 On H3.Sifra_KHier=H2.Sifra_KHier_Hier
    Left Outer Join KatHier H4 On H4.Sifra_KHier=H3.Sifra_KHier_Hier '
    If @Sifra_KHier Is Not Null
        Set @SSQL = @SSQL + ' Where (H1.Sifra_KHier = ' + @Sifra_KHier + ' Or H2.Sifra_KHier = ' + @Sifra_KHier + '
                    Or H3.Sifra_KHier = ' + @Sifra_KHier + ' Or H4.Sifra_KHier = ' + @Sifra_KHier + ') '
    Insert Into #Hier Exec(@SSQL)
    Delete From #Hier Where Sifra_KHier2 Is Null
        and Sifra_KHier In (Select Sifra_KHier2 From #Hier)
        and Sifra_KHier Is Not Null
    Delete From #Hier Where Sifra_KHier3 Is Null
        and Sifra_KHier2 In (Select Sifra_KHier3 From #Hier)
        and Sifra_KHier2 Is Not Null
    Delete From #Hier Where Sifra_KHier4 Is Null
        and Sifra_KHier3 In (Select Sifra_KHier4 From #Hier)
        and Sifra_KHier3 Is Not Null
    Select * From #Hier



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkatpodsifra]'))
drop procedure [dbo].[sp_pregledkatpodsifra]

Go

CREATE procedure [dbo].[sp_PregledKatPodSifra]
As
    Select K.*, VE.ImeVelic, B.ImeBoja, VS.Ime_VelSkala, KA.ImeArt
    From KatPodSifra K
    Inner join Katart KA on K.Sifra_Art=KA.Sifra_art
    left OUTER JOIN Velicina  VE ON K.Sifra_Velic=VE.Sifra_Velic
    LEFT OUTER JOIN Boja  B ON K.Sifra_Boja=B.Sifra_Boja
    LEFT OUTER JOIN VelicSkala  VS ON K.Sifra_VelSkala=VS.Sifra_VelSkala






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkatprior_vidobj]'))
drop procedure [dbo].[sp_pregledkatprior_vidobj]

Go

CREATE  PROCEDURE sp_PregledKatPrior_VidObj
    @Sifra_VPJ    varchar(20) = Null,
    @Sifra_Div    smallint = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.Sifra_Art, K.ImeArt, P.Sifra_VPJ, V.Ime_VPJ
            From KatPrior_VidObj P
            Inner Join Katart K ON K.Sifra_Art=P.Sifra_Art
            Inner Join VidProdObj V On V.Sifra_VPJ=P.Sifra_VPJ
            Where 1=1 '
    If @Sifra_VPJ Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_VPJ = ' + @Sifra_VPJ + ' '
    If @Sifra_Div Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Div = ' + cast(@Sifra_Div as varchar(6)) + ' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    Set @SSQL = @SSQL + ' Order By P.Sifra_Art, P.Sifra_VPJ'
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkbanki]'))
drop procedure [dbo].[sp_pregledkbanki]

Go
CREATE PROCEDURE sp_PregledKBanki
    @Sifra_Kup  varchar(6)
AS
    Select K.Sifra_Kup, K.ImeKup, KB.*, B.ImeBanka
    From KBanki KB
    Inner Join Komint K On KB.Sifra_Kup=K.Sifra_Kup
    Inner Join Banki B On B.Sifra_Ban=KB.Sifra_Ban
    Where KB.Sifra_Kup = @Sifra_Kup
    Order By KB.Sifra_Kup, KB.Sifra_Ban




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledknigatrg]'))
drop procedure [dbo].[sp_pregledknigatrg]

Go
CREATE PROCEDURE sp_PregledKnigaTrg
    @Sifra_Oe    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime,
    @InterenBr_Od    int,
    @InterenBr_Do    int
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select K.InterenBr, K.Datum_Dok, K.Datum_Knz, K.Broj, K.Opis, K.ProdVredn, K.VkalkDan, K.ObvrskaDan, K.VrednProd, K.Sifra_OE, K.NabVred
        From KnigaTrg K
        Where 1=1'
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Dok >= ''' + cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Dok <= ''' + cast(@Datum_Do as varchar(30)) + ''' '
    If @InterenBr_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.InterenBr >= ' + cast(@InterenBr_Od as varchar(10)) + ' '
    If @InterenBr_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.InterenBr <= ' + cast(@InterenBr_Do as varchar(10)) + ' '
print @SSQL
    Exec (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkobjekti]'))
drop procedure [dbo].[sp_pregledkobjekti]

Go



CREATE   PROCEDURE sp_PregledKObjekti
    @Sifra_Kup  char(6)
AS
    Select K.Sifra_Kup, K.ImeKup, KO.*
    From KObjekti KO
    Inner Join Komint K On KO.Sifra_Kup=K.Sifra_Kup
    Where KO.Sifra_Kup = @Sifra_Kup
    Order By KO.Sifra_Kup, KO.Sifra_Obj




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkomint]'))
drop procedure [dbo].[sp_pregledkomint]

Go


CREATE                      PROCEDURE [dbo].[sp_PregledKomint]
    @Komint_Od Varchar(10),
    @Komint_Do Varchar(10),
    @Podelba1 Smallint= Null,
    @Podelba2 Smallint= Null,
    @Podelba3 Smallint = Null,
    @Podelba4 Smallint = Null,
    @Podelba5 Smallint = Null,
    @Podelba6 Smallint = Null,
    @Podelba7 Smallint = Null,
    @KFPod1 char(1) = Null,
    @KFPod2 char(1) = Null,
    @KFPod3 char(1) = Null,
    @KFPod4 char(1) = Null,
    @KFPod5 char(1) = Null,
    @KFPod6 char(1) = Null,
    @KFPod7 char(1) = Null,
    @Sifra_Tip Smallint = Null,
    @Grad Smallint= Null,
    @Podred Char(1),
    @SoPromet Char(1) = Null,            --D so promet
    @Promet_Datum_Od Smalldatetime = Null,
    @Patnik    Smallint = Null,
    @Patnik2    Smallint = Null,
    @TipKup    varchar(11)=Null,
    @KojaCena    char(1) = Null,
    @Sifra_reg    smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @Aktiven    Char(1) = Null,
    @MozeIsporaka    Char(1) = Null,
    @PoObjekti    char(1) = 'N',
    @Patnik_OdKomintPat char(1)='N',
    @Sifra_VPJ    smallint = Null,
    @PovekeBanki char(1) = Null,
    @DatumIzm_Od    smalldatetime = NULL,
    @DatumIzm_Do    smalldatetime = NULL
AS
    Declare @SSQL Varchar(4000)
    Declare @SSQLUsl Varchar(4000)
    Declare @SSQLAkt Varchar(4000)
    Set @SSQLUsl = ' '
    Set @SSQLAkt = ' '
    Create Table #Komint
    (
    Sifra_Kup    char(6),
    ImeKup        nvarchar(40),
    ImeKup2        nvarchar(60),
    Adresa        nvarchar(40),
    Adresa2        nvarchar(40),
    SMesto        nvarchar(20),
    Posta        nchar(10),
    Zemja        nvarchar(20),
    ImaObj        char(1),
    IspAdresa    varchar(40),
    IspAdresa2    varchar(40),
    IspMesto    varchar(20),
    IspPosta    char(5),
    IspZemja    varchar(20),
    Telefon        varchar(20),
    Tel1        varchar(20),
    Tel2        varchar(20),
    TelMobil    varchar(20),
    Fax        varchar(20),
    Telex        varchar(20),
    EMail        varchar(40),
    AdrWeb        varchar(30),
    Sopstvenik    varchar(30),
    LK        varchar(13),
    Sopst_Mat    varchar(13),
    Danocen    char(15),
    Ziro        varchar(35),
    Ziro2        varchar(35),
    Banka        varchar(30),
    Banka2        varchar(30),
    Sifra_Ban    char(6),
    Sifra_Ban2    char(6),
    BRIZJAVA    varchar(100),
    KONTAKT    varchar(30),
    SkrOznaka    varchar(10),
    Sifra_Pat    smallint,
    Sifra_Pat2    smallint,
    Sifra_Grad    smallint,
    TipKup        varchar(11),
    Sifra_reg    smallint,
    Sifra_Nivo    char(2),
    Sifra_Tip    smallint,
    KDrugo1    smallint,
    KDrugo2    smallint,
    KDrugo3    smallint,
    KDrugo4    smallint,
    KDrugo5    smallint,
    KDrugo6    smallint,
    KDrugo7    smallint,
    Uces        decimal(6,2),
    KojaSmetka    char(1),
    Rok_Dosp    smallint,
    Kasa        decimal(6,2),
    KojaCena    char(1),
    BrPoseti        smallint,
    DirDistr        char(1),
    ZemaOd    varchar(15),
    Zabeleska    varchar(30),
    Aktiven        char(1),
    BrProdMesta    smallint,
    BrAktProdMesta    smallint,
    DodadenNa    smalldatetime,
    DodadenOd    varchar(30),
    IzmenetNa    smalldatetime,
    IzmenetOd    varchar(30),
    ImaBanka    char(1),
    Alt_ImeKup    nvarchar(40),
    Alt_Adresa    nvarchar(40),
    DogovorBroj    varchar(40),
    MozeIsporaka    char(1),
    Garancija    varchar(30),
    Propagiraj    char(1),
    MatBr        varchar(20),
    Sopst_Adr    varchar(40),
    Sopst_Mesto    varchar(20),
    Sifra_Obj    smallint,
    ImeObj        char(40),
    AktivenObj    char(1),
    Sifra_PatObj    smallint,
    Limit_Dolzi    decimal(18,6),
    Aneks1        varchar(100),
    Aneks2        varchar(100),
    m2        smallint,
    Objm2        smallint,
    Priv_Lice    char(1),
    God_Rabat    decimal(6,2),
    Spec_Rabat    decimal(6,2),
    EMail2        varchar(40),
    EMail3        varchar(40),
    Sifra_VPJ    smallint,
    KEMail2        varchar(40),
    KEMail3        varchar(40),
    Datum_Kom_Poc    smalldatetime,
    Datum_Kom_Kr    smalldatetime,
    Sifra_Kom_Man    smallint,
    Sifra_Kom_Ref    smallint,
    TipCenaDatum    char(1),
    Sifra_Kup_Sablon    char(6)
    )
    If @PoObjekti = 'D'
    Begin
        Set @SSQL = 'Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, KO.Adresa, KO.Adresa2, KO.SMesto, KO.Posta, KO.Zemja, Null as ImaObj, Null as IspAdresa, Null as IspAdresa2,
            Null as IspMesto, Null as IspPosta, Null as IspZemja, KO.Telefon, KO.Tel1, KO.Tel2, KO.TelMobil, KO.Fax, KO.Telex, KO.EMail, Null as AdrWeb, Null as Sopstvenik,
            Kup.LK, Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, KO.KONTAKT, Kup.SkrOznaka, '
        IF @Patnik_OdKomintPat = 'D'
        Begin
            IF @Patnik IS NULL
                Set @SSQL = @SSQL + 'NULL Sifra_Pat, Null Sifra_Pat2, '
            ELSE
                Set @SSQL = @SSQL + 'KP.Sifra_Pat, Null Sifra_Pat2, '
        End
        ELSE
            Set @SSQL = @SSQL + 'KO.Sifra_Pat, KO.Sifra_Pat2, '
        Set @SSQL = @SSQL + 'KO.Sifra_Grad, KO.TipKup, KO.Sifra_reg, KO.Sifra_Nivo, KO.Sifra_Tip, KO.KDrugo1, KO.KDrugo2, KO.KDrugo3, KO.KDrugo4, KO.KDrugo5, KO.KDrugo6, KO.KDrugo7,
            Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, KO.Zabeleska, KO.Aktiven,
            KO.BrProdMesta, KO.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa,
            Kup.DogovorBroj, Kup.MozeIsporaka, Kup.Garancija, KO.Propagiraj, Kup.MatBr, Kup.Sopst_Adr, Kup.Sopst_Mesto,
            KO.Sifra_Obj, KO.ImeObj, KO.Aktiven, KO.Sifra_Pat, Null as Limit_Dolzi, Kup.Aneks1, Kup.Aneks2, Kup.m2, KO.m2 as Objm2, Kup.Priv_Lice, Kup.God_Rabat, Kup.Spec_Rabat, KO.EMail2, KO.EMail3,
            KO.Sifra_VPJ, Kup.EMail2, Kup.EMail3, KUP.Datum_Kom_Poc, KUP.Datum_Kom_Kr, KUP.Sifra_Kom_Man, KUP.Sifra_Kom_Ref, KUP.TipCenaDatum, KUP.Sifra_Kup_Sablon
        From Komint Kup
        Inner Join KObjekti KO On KO.Sifra_Kup=Kup.Sifra_Kup '
        IF @Patnik_OdKomintPat = 'D' AND @Patnik IS NOT NULL
            Set @SSQL = @SSQL + 'INNER Join KomintPat KP On KP.Sifra_Kup=KO.Sifra_Kup AND KP.Sifra_Obj=KO.Sifra_Obj AND KP.Sifra_Pat= '+cast(@Patnik as varchar(5))+' '
        SET @SSQL = @SSQL + ' Where KO.Sifra_Obj <> 0 '
    End
    Else
    Begin
        Set @SSQL = 'Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, KUP.Adresa, KUP.Adresa2, KUP.SMesto, KUP.Posta, Kup.Zemja, Kup.ImaObj, Kup.IspAdresa, Kup.IspAdresa2,
            Kup.IspMesto, Kup.IspPosta, Kup.IspZemja, Kup.Telefon, Kup.Tel1, Kup.Tel2, Kup.TelMobil, Kup.Fax, Kup.Telex, Kup.EMail, Kup.AdrWeb, Kup.Sopstvenik,
            Kup.LK, Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, Kup.KONTAKT, Kup.SkrOznaka, '
        IF @Patnik_OdKomintPat = 'D'
        Begin
            IF @Patnik IS NULL
                Set @SSQL = @SSQL + 'NULL Sifra_Pat, Null Sifra_Pat2, '
            ELSE
                Set @SSQL = @SSQL + 'KP.Sifra_Pat, Null Sifra_Pat2, '
        End
        ELSE
            Set @SSQL = @SSQL + 'Kup.Sifra_Pat, Kup.Sifra_Pat2, '
        Set @SSQL = @SSQL + 'Kup.Sifra_Grad, Kup.TipKup, Kup.Sifra_reg, Kup.Sifra_Nivo, Kup.Sifra_Tip, Kup.KDrugo1, Kup.KDrugo2, Kup.KDrugo3, Kup.KDrugo4, Kup.KDrugo5, Kup.KDrugo6, Kup.KDrugo7,
            Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, Kup.Zabeleska, Kup.Aktiven,
            Kup.BrProdMesta, Kup.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa,
            Kup.DogovorBroj, Kup.MozeIsporaka, Kup.Garancija, Kup.Propagiraj, Kup.MatBr, Kup.Sopst_Adr, Kup.Sopst_Mesto,
            Null as Sifra_Obj, Null as ImeObj, Null as Aktiven, Null as Sifra_Pat, Kup.Limit_Dolzi, Kup.Aneks1, Kup.Aneks2, Kup.m2, Null as Objm2, Kup.Priv_Lice, Kup.God_Rabat, Kup.Spec_Rabat, Kup.EMail2, Kup.EMail3,
            Kup.Sifra_VPJ, Kup.EMail2, Kup.EMail3, KUP.Datum_Kom_Poc, KUP.Datum_Kom_Kr, KUP.Sifra_Kom_Man, KUP.Sifra_Kom_Ref, KUP.TipCenaDatum, KUP.Sifra_Kup_Sablon
        From Komint Kup '
        IF @Patnik_OdKomintPat = 'D' AND @Patnik IS NOT NULL
            Set @SSQL = @SSQL + 'INNER Join KomintPat KP On KP.Sifra_Kup=Kup.Sifra_Kup AND KP.Sifra_Obj IS NULL  AND KP.Sifra_Pat= '+cast(@Patnik as varchar(5))+' '
        SET @SSQL = @SSQL+ ' Where 1=1 '
    End
    If @Komint_Od Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '
    If @Komint_Do Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup<=''' + @Komint_Do + ''' '
    If @MozeIsporaka = 'N'
        Set @SSQLUsl = @SSQLUsl + 'And Kup.MozeIsporaka = ''N'' '
    Else If @MozeIsporaka = 'D'
        Set @SSQLUsl = @SSQLUsl + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
    If @KojaCena Is Not Null
        Set @SSQLUsl = @SSQLUsl + 'And Kup.KojaCena =''' + @KojaCena + ''' '
    If @SoPromet = 'D'
        Begin
            Set @SSQLUsl = @SSQLUsl + 'And Kup.Sifra_Kup In
                (Select Distinct Sifra_Kup From Dokr'
            If @Promet_Datum_Od Is Not Null
                Set @SSQLUsl = @SSQLUsl + ' Where Datum_Dok>=''' + Cast(@Promet_Datum_Od As Varchar(30)) + ''') '
            Else
                Set @SSQLUsl = @SSQLUsl + ') '
        End
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
    If @PoObjekti = 'D'
    Begin
        If @Aktiven = 'D'
            Set @SSQLAkt = @SSQLAkt + ' And ((KO.Aktiven Is Not Null And (KO.Aktiven <> ''N'' or KO.Aktiven Is Null))
                            OR ( KO.Aktiven Is Null and (KUP.Aktiven <> ''N'' or KUP.Aktiven Is Null))) '
        Else If @Aktiven = 'N'
            Set @SSQLAkt = @SSQLAkt + ' And ((KO.Aktiven Is Not Null And KO.Aktiven = ''N'')
                            OR ( KO.Aktiven Is Null and KUP.Aktiven = ''N'')) '
        If @Grad Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad = ' + Cast(@Grad As Varchar(10)) + ')
                            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad =' + Cast(@Grad As Varchar(10)) + ')) '
        If @Sifra_Reg Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(10)) + ')
                            OR (KO.Sifra_Reg Is Null and KUP.Sifra_Reg =' + Cast(@Sifra_Reg As Varchar(10)) + ')) '
        IF @Patnik_OdKomintPat <> 'D'
        Begin
            If @Patnik Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat = ' + Cast(@Patnik As Varchar(10)) + ')
                            OR (KO.Sifra_Pat Is Null and KUP.Sifra_Pat =' + Cast(@Patnik As Varchar(10)) + ')) '
            If @Patnik2 Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And ((KO.Sifra_Pat2 Is Not Null And KO.Sifra_Pat2 = ' + Cast(@Patnik2 As Varchar(10)) + ')
                            OR (KO.Sifra_Pat2 Is Null and KUP.Sifra_Pat2 =' + Cast(@Patnik2 As Varchar(10)) + ')) '
        End
        If @Podelba1 Is Not NULL
            If @KFPod1 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 <> ' + Cast(@Podelba1 As Varchar(6)) + ')
                              Or (KO.KDrugo1 Is Null And Kup.KDrugo1 <> ' + Cast(@Podelba1 As Varchar(6)) + ') Or (KO.KDrugo1 Is Null And Kup.KDrugo1 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Podelba1 As Varchar(6)) + ')
                              Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Podelba1 As Varchar(6)) + ')) '
        If @Podelba2 Is Not NULL
            If @KFPod2 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 <> ' + Cast(@Podelba2 As Varchar(6)) + ')
                              Or (KO.KDrugo2 Is Null And Kup.KDrugo2 <> ' + Cast(@Podelba2 As Varchar(6)) + ') Or (KO.KDrugo2 Is Null And Kup.KDrugo2 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Podelba2 As Varchar(6)) + ')
                              Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Podelba2 As Varchar(6)) + ')) '
        If @Podelba3 Is Not NULL
            If @KFPod3 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 <> ' + Cast(@Podelba3 As Varchar(6)) + ')
                              Or (KO.KDrugo3 Is Null And Kup.KDrugo3 <> ' + Cast(@Podelba3 As Varchar(6)) + ') Or (KO.KDrugo3 Is Null And Kup.KDrugo3 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Podelba3 As Varchar(6)) + ')
                              Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Podelba3 As Varchar(6)) + ')) '
        If @Podelba4 Is Not NULL
            If @KFPod4 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 <> ' + Cast(@Podelba4 As Varchar(6)) + ')
                              Or (KO.KDrugo4 Is Null And Kup.KDrugo4 <> ' + Cast(@Podelba4 As Varchar(6)) + ') Or (KO.KDrugo4 Is Null And Kup.KDrugo4 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Podelba4 As Varchar(6)) + ')
                              Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Podelba4 As Varchar(6)) + ')) '
        If @Podelba5 Is Not NULL
            If @KFPod5 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 <> ' + Cast(@Podelba5 As Varchar(6)) + ')
                              Or (KO.KDrugo5 Is Null And Kup.KDrugo5 <> ' + Cast(@Podelba5 As Varchar(6)) + ') Or (KO.KDrugo5 Is Null And Kup.KDrugo5 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Podelba5 As Varchar(6)) + ')
                              Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Podelba5 As Varchar(6)) + ')) '
        If @Podelba6 Is Not NULL
            If @KFPod6 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 <> ' + Cast(@Podelba6 As Varchar(6)) + ')
                              Or (KO.KDrugo6 Is Null And Kup.KDrugo6 <> ' + Cast(@Podelba6 As Varchar(6)) + ') Or (KO.KDrugo6 Is Null And Kup.KDrugo6 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo6 Is Not Null And KO.KDrugo6 = ' + Cast(@Podelba6 As Varchar(6)) + ')
                              Or (KO.KDrugo6 Is Null And Kup.KDrugo6 = ' + Cast(@Podelba6 As Varchar(6)) + ')) '
        If @Podelba7 Is Not NULL
            If @KFPod7 = 'D'
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 <> ' + Cast(@Podelba7 As Varchar(6)) + ')
                              Or (KO.KDrugo7 Is Null And Kup.KDrugo7 <> ' + Cast(@Podelba7 As Varchar(6)) + ') Or (KO.KDrugo7 Is Null And Kup.KDrugo7 Is Null)) '
            Else
                Set @SSQLAkt = @SSQLAkt + ' And ((KO.KDrugo7 Is Not Null And KO.KDrugo7 = ' + Cast(@Podelba7 As Varchar(6)) + ')
                              Or (KO.KDrugo7 Is Null And Kup.KDrugo7 = ' + Cast(@Podelba7 As Varchar(6)) + ')) '
/*        If @Podelba1 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Podelba1 As Varchar(10)) + ')
                            OR ( KO.KDrugo1 Is Null and KUP.KDrugo1 =' + Cast(@Podelba1 As Varchar(10)) + ')) '
        If @Podelba2 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Podelba2 As Varchar(10)) + ')
                            OR ( KO.KDrugo2 Is Null and KUP.KDrugo2 =' + Cast(@Podelba2 As Varchar(10)) + ')) '
        If @Podelba3 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Podelba3 As Varchar(10)) + ')
                            OR ( KO.KDrugo3 Is Null and KUP.KDrugo3 =' + Cast(@Podelba3 As Varchar(10)) + ')) '
        If @Podelba4 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Podelba4 As Varchar(10)) + ')
                            OR ( KO.KDrugo4 Is Null and KUP.KDrugo4 =' + Cast(@Podelba4 As Varchar(10)) + ')) '
        If @Podelba5 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Podelba5 As Varchar(10)) + ')
                            OR ( KO.KDrugo5 Is Null and KUP.KDrugo5 =' + Cast(@Podelba5 As Varchar(10)) + ')) '
*/
        If @Sifra_Tip Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And ((KO.Sifra_Tip Is Not Null And KO.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(10)) + ')
                            OR ( KO.Sifra_Tip Is Null and KUP.Sifra_Tip =' + Cast(@Sifra_Tip As Varchar(10)) + ')) '
        If @Sifra_VPJ Is Not NULL
            Set @SSQLAkt = @SSQLAkt + ' And ((KO.Sifra_VPJ Is Not Null And KO.Sifra_VPJ = ' + Cast(@Sifra_VPJ As Varchar(10)) + ')
                            OR (KO.Sifra_VPJ Is Null And Kup.Sifra_VPJ = ' + Cast(@Sifra_VPJ As Varchar(10)) + ')) '
        If @Sifra_Nivo Is Not NULL
            Set @SSQLAkt = @SSQLAkt + ' And ((KO.Sifra_Nivo Is Not Null And KO.Sifra_Nivo = ' + Cast(@Sifra_Nivo As Varchar(10)) + ')
                            OR (KO.Sifra_Nivo Is Null And Kup.Sifra_Nivo = ' + Cast(@Sifra_Nivo As Varchar(10)) + ')) '
        If @TipKup Is Not NULL
            Set @SSQLAkt = @SSQLAkt + ' And ((KO.TipKup Is Not Null And KO.TipKup = ' + Cast(@TipKup As Varchar(10)) + ')
                            OR (KO.TipKup Is Null And Kup.TipKup = ' + Cast(@TipKup As Varchar(10)) + ')) '
    End
    Else
    Begin
        IF @Patnik_OdKomintPat <> 'D'
        Begin
            If @Patnik Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
            If @Patnik2 Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Pat2=' + Cast(@Patnik2 As Varchar(10)) + ' '
        End
        If @Grad Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And KUP.Sifra_Grad =' + Cast(@Grad As Varchar(10)) + ' '
        If @Sifra_Reg Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And KUP.Sifra_Reg =' + Cast(@Sifra_Reg As Varchar(10)) + ' '
        If @Aktiven = 'D'
            Set @SSQLAkt = @SSQLAkt + ' And (KUP.Aktiven <> ''N'' or KUP.Aktiven Is Null) '
        Else If @Aktiven = 'N'
            Set @SSQLAkt = @SSQLAkt + ' And KUP.Aktiven = ''N'' '
/*        If @Podelba1 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' ' */
        If @Podelba1 Is Not NULL
            If @KFPod1 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or Kup.KDrugo1 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not NULL
            If @KFPod2 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo2<>' + Cast(@Podelba2 As Varchar(10)) + ' Or Kup.KDrugo2 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not NULL
            If @KFPod3 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo3<>' + Cast(@Podelba3 As Varchar(10)) + ' Or Kup.KDrugo3 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not NULL
            If @KFPod4 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo4<>' + Cast(@Podelba4 As Varchar(10)) + ' Or Kup.KDrugo4 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not NULL
            If @KFPod5 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo5<>' + Cast(@Podelba5 As Varchar(10)) + ' Or Kup.KDrugo5 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
        If @Podelba6 Is Not NULL
            If @KFPod6 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo6<>' + Cast(@Podelba6 As Varchar(10)) + ' Or Kup.KDrugo6 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo6=' + Cast(@Podelba6 As Varchar(10)) + ' '
        If @Podelba7 Is Not NULL
            If @KFPod7 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo7<>' + Cast(@Podelba7 As Varchar(10)) + ' Or Kup.KDrugo7 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo7=' + Cast(@Podelba7 As Varchar(10)) + ' '
        If @Sifra_Tip Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
        If @Sifra_VPJ Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_VPJ=' + Cast(@Sifra_VPJ As Varchar(10)) + ' '
        If @Sifra_Nivo Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        If @TipKup Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.TipKup=''' + @TipKup + ''' '
    End
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
--print (@SSQL+@SSQLUsl+@SSQLAkt)
    Insert Into #Komint Exec(@SSQL+@SSQLUsl+@SSQLAkt)

    If @PoObjekti = 'D'
    Begin
        Set @SSQLAkt = ' '
        If @Aktiven = 'N'
            Set @SSQLAkt = @SSQLAkt + 'And (Kup.Aktiven = ''N'') '
        Else If @Aktiven = 'D'
            Set @SSQLAkt = @SSQLAkt + 'And (Kup.Aktiven <> ''N'' or Kup.Aktiven Is Null) '
        If @Grad Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Grad=' + Cast(@Grad As Varchar(10)) + ' '
        If @Sifra_Reg Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Reg=' + Cast(@Sifra_Reg As Varchar(10)) + ' '
        IF @Patnik_OdKomintPat <> 'D'
        Begin
            If @Patnik Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
            If @Patnik2 Is Not Null
                Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Pat2=' + Cast(@Patnik2 As Varchar(10)) + ' '
        End
/*        If @Podelba1 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' ' */
        If @Podelba1 Is Not NULL
            If @KFPod1 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo1<>' + Cast(@Podelba1 As Varchar(10)) + ' Or Kup.KDrugo1 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
        If @Podelba2 Is Not NULL
            If @KFPod2 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo2<>' + Cast(@Podelba2 As Varchar(10)) + ' Or Kup.KDrugo2 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
        If @Podelba3 Is Not NULL
            If @KFPod3 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo3<>' + Cast(@Podelba3 As Varchar(10)) + ' Or Kup.KDrugo3 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
        If @Podelba4 Is Not NULL
            If @KFPod4 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo4<>' + Cast(@Podelba4 As Varchar(10)) + ' Or Kup.KDrugo4 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
        If @Podelba5 Is Not NULL
            If @KFPod5 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo5<>' + Cast(@Podelba5 As Varchar(10)) + ' Or Kup.KDrugo5 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
        If @Podelba6 Is Not NULL
            If @KFPod6 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo6<>' + Cast(@Podelba6 As Varchar(10)) + ' Or Kup.KDrugo6 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo6=' + Cast(@Podelba6 As Varchar(10)) + ' '
        If @Podelba7 Is Not NULL
            If @KFPod7 = 'D'
                Set @SSQLAkt = @SSQLAkt + 'And (Kup.KDrugo7<>' + Cast(@Podelba7 As Varchar(10)) + ' Or Kup.KDrugo7 Is Null) '
            Else
                Set @SSQLAkt = @SSQLAkt + 'And Kup.KDrugo7=' + Cast(@Podelba7 As Varchar(10)) + ' '
        If @Sifra_Tip Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
        If @Sifra_VPJ Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_VPJ=' + Cast(@Sifra_VPJ As Varchar(10)) + ' '
        If @Sifra_Nivo Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
        If @TipKup Is Not Null
            Set @SSQLAkt = @SSQLAkt + 'And Kup.TipKup=''' + @TipKup + ''' '
        Set @SSQL = 'Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, Kup.Adresa, Kup.Adresa2, Kup.SMesto, Kup.Posta, Kup.Zemja, Kup.ImaObj, Kup.IspAdresa, Kup.IspAdresa2,
                Kup.IspMesto, Kup.IspPosta, Kup.IspZemja, Kup.Telefon, Kup.Tel1, Kup.Tel2, Kup.TelMobil, Kup.Fax, Kup.Telex, Kup.EMail, Kup.AdrWeb, Kup.Sopstvenik,
                Kup.LK, Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, Kup.KONTAKT, Kup.SkrOznaka, '
        IF @Patnik_OdKomintPat = 'D'
        Begin
            IF @Patnik IS NULL
                Set @SSQL = @SSQL + 'NULL Sifra_Pat, Null Sifra_Pat2, '
            ELSE
                Set @SSQL = @SSQL + 'KP.Sifra_Pat, Null Sifra_Pat2, '
        End
        ELSE
            Set @SSQL = @SSQL + 'Kup.Sifra_Pat, Kup.Sifra_Pat2, '
        Set @SSQL = @SSQL + 'Kup.Sifra_Grad, Kup.TipKup, Kup.Sifra_reg, Kup.Sifra_Nivo, Kup.Sifra_Tip, Kup.KDrugo1, Kup.KDrugo2, Kup.KDrugo3, Kup.KDrugo4, Kup.KDrugo5, Kup.KDrugo6, Kup.KDrugo7,
                Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, Kup.Zabeleska, KO.Aktiven,
                Kup.BrProdMesta, Kup.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa,
                Kup.DogovorBroj, Kup.MozeIsporaka, Kup.Garancija, Kup.Propagiraj, Kup.MatBr, Kup.Sopst_Adr, Kup.Sopst_Mesto,
                KO.Sifra_Obj, KO.ImeObj, KO.Aktiven, KO.Sifra_Pat, Kup.Limit_Dolzi, Kup.Aneks1, Kup.Aneks2, Kup.m2, KO.m2 as Objm2, Kup.Priv_Lice, Kup.God_Rabat, Kup.Spec_Rabat, KO.EMail2, KO.EMail3,
                KO.Sifra_VPJ, Kup.EMail2, Kup.EMail3, KUP.Datum_Kom_Poc, KUP.Datum_Kom_Kr, KUP.Sifra_Kom_Man, KUP.Sifra_Kom_Ref, KUP.TipCenaDatum, KUP.Sifra_Kup_Sablon
                From Komint Kup
                Inner Join KObjekti KO On KO.Sifra_Kup=Kup.Sifra_Kup '
        IF @Patnik_OdKomintPat = 'D' AND @Patnik IS NOT NULL
            Set @SSQL = @SSQL + 'INNER Join KomintPat KP On KP.Sifra_Kup=KO.Sifra_Kup AND KP.Sifra_Obj=NULL AND KP.Sifra_pat='+cast(@Patnik as varchar(5))+' '
        SET @SSQL = @SSQL + ' Where KO.Sifra_Obj = 0  And Kup.Sifra_Kup Not In (Select Sifra_Kup From #Komint) '
        Insert Into #Komint Exec(@SSQL+@SSQLUsl+@SSQLAkt)
        Set @SSQL = 'Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, Kup.Adresa, Kup.Adresa2, Kup.SMesto, Kup.Posta, Kup.Zemja, Kup.ImaObj, Kup.IspAdresa, Kup.IspAdresa2,
                Kup.IspMesto, Kup.IspPosta, Kup.IspZemja, Kup.Telefon, Kup.Tel1, Kup.Tel2, Kup.TelMobil, Kup.Fax, Kup.Telex, Kup.EMail, Kup.AdrWeb, Kup.Sopstvenik,
                Kup.LK, Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, Kup.KONTAKT, Kup.SkrOznaka,  '
        IF @Patnik_OdKomintPat = 'D'
        Begin
            IF @Patnik IS NULL
                Set @SSQL = @SSQL + 'NULL Sifra_Pat, Null Sifra_Pat2, '
            ELSE
                Set @SSQL = @SSQL + 'KP.Sifra_Pat, Null Sifra_Pat2, '
        End
        ELSE
            Set @SSQL = @SSQL + 'Kup.Sifra_Pat,Kup.Sifra_Pat2, '
        Set @SSQL = @SSQL + 'Kup.Sifra_Grad, Kup.TipKup, Kup.Sifra_reg, Kup.Sifra_Nivo, Kup.Sifra_Tip, Kup.KDrugo1, Kup.KDrugo2, Kup.KDrugo3, Kup.KDrugo4, Kup.KDrugo5, Kup.KDrugo6, Kup.KDrugo7,
                Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, Kup.Zabeleska, Kup.Aktiven,
                Kup.BrProdMesta, Kup.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa,
                Kup.DogovorBroj, Kup.MozeIsporaka, Kup.Garancija, Kup.Propagiraj, Kup.MatBr, Kup.Sopst_Adr, Kup.Sopst_Mesto,
                Null as Sifra_Obj, Null as ImeObj, Null as AktivenObj, Null as Sifra_PatObj, Kup.Limit_Dolzi, Kup.Aneks1, Kup.Aneks2, Kup.m2, Null as Objm2, Kup.Priv_Lice, Kup.God_Rabat, Kup.Spec_Rabat, Kup.EMail2, Kup.EMail3,
                Kup.Sifra_VPJ, Kup.EMail2, Kup.EMail3, KUP.Datum_Kom_Poc, KUP.Datum_Kom_Kr, KUP.Sifra_Kom_Man, KUP.Sifra_Kom_Ref, KUP.TipCenaDatum, KUP.Sifra_Kup_Sablon
            From Komint Kup '
        IF @Patnik_OdKomintPat = 'D' AND @Patnik IS NOT NULL
            Set @SSQL = @SSQL + 'inner Join KomintPat KP On KP.Sifra_Kup=Kup.Sifra_Kup AND KP.Sifra_Obj=NULL AND KP.Sifra_pat='+cast(@Patnik as varchar(5))+' '
        SET @SSQL = @SSQL + ' Where Kup.Sifra_Kup Not In (Select Sifra_Kup From KObjekti) and Kup.Sifra_Kup Not In (Select Sifra_Kup From #Komint) '
        Insert Into #Komint Exec(@SSQL+@SSQLUsl+@SSQLAkt)
    End
    If @PovekeBanki = 'D'
    Begin
        Create Table #KomintBank
        (
         Sifra_Kup    char(6),
         Sifra_Ban    char(6),
         ImeBanka    varchar(40),
         ZiroSka    varchar(20),
         RbrBan        smallint,
         RB        smallint
        )
        Insert Into #KomintBank (Sifra_Kup, RB)
        Select K.Sifra_Kup, Min(KB.RbrBan)
        From #Komint K
        Inner Join KBanki KB On KB.Sifra_Kup=K.Sifra_Kup
        Group By K.Sifra_Kup
        Update #KomintBank Set Sifra_Ban=KB.Sifra_Ban, ImeBanka=B.ImeBanka, ZiroSka=KB.ZiroSka, RbrBan=1
        From KBanki KB
        Inner Join Banki B On B.Sifra_Ban=KB.Sifra_Ban
        Where #KomintBank.Sifra_Kup=KB.Sifra_Kup And #KomintBank.RB=KB.RbrBan
        Insert Into #KomintBank (Sifra_Kup, RB)
        Select K.Sifra_Kup, Min(KB.RbrBan)
        From #Komint K
        Inner Join KBanki KB On KB.Sifra_Kup=K.Sifra_Kup
        Where Cast(K.Sifra_Kup as char(6)) + Cast(KB.RbrBan as char(6)) Not In (Select Cast(Sifra_Kup as char(6)) + Cast(RB as char(6)) From #KomintBank)
        Group By K.Sifra_Kup
        Update #KomintBank Set Sifra_Ban=KB.Sifra_Ban, ImeBanka=B.ImeBanka, ZiroSka=KB.ZiroSka, RbrBan=2
        From KBanki KB
        Inner Join Banki B On B.Sifra_Ban=KB.Sifra_Ban
        Where #KomintBank.Sifra_Kup=KB.Sifra_Kup And #KomintBank.RB=KB.RbrBan
        And #KomintBank.RbrBan Is Null
        Update #Komint
        Set Ziro=KB.ZiroSka, Banka=KB.ImeBanka, Sifra_Ban=KB.Sifra_Ban
        From #KomintBank KB
        Where #Komint.Sifra_Kup = KB.Sifra_Kup
        And KB.RbrBan=1
        Update #Komint
        Set Ziro2=KB.ZiroSka, Banka2=KB.ImeBanka, Sifra_Ban2=KB.Sifra_Ban
        From #KomintBank KB
        Where #Komint.Sifra_Kup = KB.Sifra_Kup
        And KB.RbrBan=2
    End
    IF @DatumIzm_Od IS NOT NULL OR @DatumIzm_Do IS NOT NULL        --dod.06.08.08
    Begin
        Set @SSQL = 'DELETE FROM #Komint WHERE Sifra_Kup NOT IN (SELECT Sifra_Kup FROM Komint WHERE 1=1 '
        IF @DatumIzm_Od IS NOT NULL
            Set @SSQL = @SSQL + ' AND (DodadenNa>=''' +cast(@DatumIzm_Od as varchar(35))+''' OR IzmenetNa>=''' +cast(@DatumIzm_Od as varchar(35))+ ''' )'
        IF @DatumIzm_Do IS NOT NULL
            Set @SSQL = @SSQL + ' AND (DodadenNa<=''' +cast(@DatumIzm_Do as varchar(35))+''' OR IzmenetNa<=''' +cast(@DatumIzm_Do as varchar(35))+ ''' )'
        Set @SSQL = @SSQL + ')'
        EXEC (@SSQL)
    End

    Set @SSQL = ' Select Kup.Sifra_Kup, Kup.ImeKup, Kup.ImeKup2, Kup.Adresa, Kup.Adresa2, Kup.SMesto, Kup.Posta, Kup.Zemja, Kup.ImaObj, Kup.IspAdresa, Kup.IspAdresa2,
            Kup.IspMesto, Kup.IspPosta, Kup.IspZemja, Kup.Telefon, Kup.Tel1, Kup.Tel2, Kup.TelMobil, Kup.Fax, Kup.Telex, Kup.EMail, Kup.EMail2, Kup.EMail3, Kup.AdrWeb, Kup.Sopstvenik,
            Kup.LK, Kup.Sopst_Mat, Kup.Danocen, Kup.Ziro, Kup.Ziro2, Kup.Banka, Kup.Banka2, Kup.Sifra_Ban, Kup.Sifra_Ban2, Kup.BRIZJAVA, Kup.KONTAKT, Kup.SkrOznaka,
            Kup.Sifra_Pat, Kup.Sifra_Grad, Kup.TipKup, Kup.Sifra_reg, Kup.Sifra_Nivo, Kup.Sifra_Tip, Kup.KDrugo1, Kup.KDrugo2, Kup.KDrugo3, Kup.KDrugo4, Kup.KDrugo5, Kup.KDrugo6, Kup.KDrugo7,
            Kup.Uces, Kup.KojaSmetka, Kup.Rok_Dosp, Kup.Kasa, Kup.KojaCena, Kup.BrPoseti, Kup.DirDistr, Kup.ZemaOd, Kup.Zabeleska, Kup.Aktiven,
            Kup.BrProdMesta, Kup.BrAktProdMesta, Kup.DodadenNa, Kup.DodadenOd, Kup.IzmenetNa, Kup.IzmenetOd, Kup.ImaBanka, Kup.Alt_ImeKup, Kup.Alt_Adresa,
            Kup.DogovorBroj, Kup.MozeIsporaka, Kup.Garancija, Kup.Propagiraj, Kup.MatBr, Kup.Sifra_Pat2, Kup.Sopst_Adr, Kup.Sopst_Mesto,
            P.ImePat, G.ImeGrad, R.ImeRegion, N.ImeNivo,
            KD1.Ime_1K, KD2.Ime_2K, KD3.Ime_3K, KD4.Ime_4K, KD5.Ime_5K, KD6.Ime_6K, KD7.Ime_7K,
                         TK.ImeTipKup, Kup.KojaCena, Kup.Sifra_Obj, Kup.ImeObj, Kup.Sifra_PatObj,
            Kup.Limit_Dolzi, P2.ImePat as ImePat2, Kup.Aneks1, Kup.Aneks2, Kup.m2, Kup.Objm2, Kup.Priv_Lice, Kup.God_Rabat, Kup.Spec_Rabat, Kup.Sifra_VPJ, VPJ.Ime_VPJ,
            Kup.Sifra_Kup+(Case When Kup.Sifra_Obj < 10 Then ''00''+Cast(Kup.Sifra_Obj as varchar(6))
                            When Kup.Sifra_Obj >9 And Kup.Sifra_Obj < 100 Then ''0''+Cast(Kup.Sifra_Obj as varchar(6))
                            When Kup.Sifra_Obj >99 And Kup.Sifra_Obj < 1000 Then Cast(Kup.Sifra_Obj as varchar(6)) Else ''000'' End) Sifra,
           Kup.KEMail2, Kup.KEMail3, KUP.Datum_Kom_Poc, KUP.Datum_Kom_Kr, KUP.Sifra_Kom_Man, KUP.Sifra_Kom_Ref, KUP.TipCenaDatum, KUP.Sifra_Kup_Sablon
     From #Komint Kup
    Left Outer Join Patnici P On Kup.Sifra_Pat=P.Sifra_Pat
    Left Outer Join Patnici P2 On Kup.Sifra_Pat2=P2.Sifra_Pat
    Left Outer Join Grad G On Kup.Sifra_Grad=G.Sifra_Grad
    Left Outer Join GRegion R On Kup.Sifra_Reg=R.Sifra_Reg
    Left Outer Join Nivo N On Kup.Sifra_Nivo=N.Sifra_Nivo
    Left Outer Join KDrugo1 KD1 On Kup.KDrugo1=KD1.Sifra_1K
    Left Outer Join KDrugo2 KD2 On Kup.KDrugo2=KD2.Sifra_2K
    Left Outer Join KDrugo3 KD3 On Kup.KDrugo3=KD3.Sifra_3K
    Left Outer Join KDrugo4 KD4 On Kup.KDrugo4=KD4.Sifra_4K
    Left Outer Join KDrugo5 KD5 On Kup.KDrugo5=KD5.Sifra_5K
    Left Outer Join KDrugo6 KD6 On Kup.KDrugo6=KD6.Sifra_6K
    Left Outer Join KDrugo7 KD7 On Kup.KDrugo7=KD7.Sifra_7K
    Left Outer Join GTipKup TK On Kup.TipKup=TK.TipKup
    Left Outer Join VidProdObj VPJ On VPJ.Sifra_VPJ=Kup.Sifra_VPJ '
    Set @SSQL = @SSQL + ' Where 1=1 '
    If @Podred Is Null Or @Podred='S'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.Sifra_Kup '
    Else If @Podred='I'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.ImeKup '
    Else If @Podred='G'
        Set @SSQLUsl = @SSQLUsl + 'Order By Kup.Sifra_Grad '
    Exec(@SSQL+@SSQLUSL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkomintobj]'))
drop procedure [dbo].[sp_pregledkomintobj]

Go


CREATE         PROCEDURE [dbo].[sp_PregledKomintObj]
    @Komint_Od Varchar(10),
    @Komint_Do Varchar(10),
    @Podelba1 Smallint= Null,
    @Podelba2 Smallint= Null,
    @Podelba3 Smallint = Null,
    @Podelba4 Smallint = Null,
    @Podelba5 Smallint = Null,
    @Sifra_Tip Smallint = Null,
    @Grad Smallint= Null,
    @Podred Char(1),
    @SoPromet Char(1) = Null,            --D so promet
    @Promet_Datum_Od Smalldatetime = Null,
    @Patnik    Smallint = Null,
    @TipKup    varchar(11)=Null,
    @KojaCena    char(1) = Null,
    @Sifra_reg    smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @Aktiven    Char(1) = Null,
    @MozeIsporaka    Char(1) = Null,
    @AktivenObj    Char(1) = Null
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = 'Select Kup.*, KO.Sifra_Obj, KO.ImeObj,
        P.ImePat, G.ImeGrad, R.ImeRegion, N.ImeNivo,
        KD1.Ime_1K, KD2.Ime_2K, KD3.Ime_3K, KD4.Ime_4K, KD5.Ime_5K,
        TK.ImeTipKup, Kup.KojaCena
    From Komint Kup
    Left Outer Join Kobjekti KO On KO.Sifra_Kup=Kup.Sifra_Kup
    Left Outer Join Patnici P On Kup.Sifra_Pat=P.Sifra_Pat
    Left Outer Join Grad G On Kup.Sifra_Grad=G.Sifra_Grad
    Left Outer Join GRegion R On Kup.Sifra_Reg=R.Sifra_Reg
    Left Outer Join Nivo N On Kup.Sifra_Nivo=N.Sifra_Nivo
    Left Outer Join KDrugo1 KD1 On Kup.KDrugo1=KD1.Sifra_1K
    Left Outer Join KDrugo2 KD2 On Kup.KDrugo2=KD2.Sifra_2K
    Left Outer Join KDrugo3 KD3 On Kup.KDrugo3=KD3.Sifra_3K
    Left Outer Join KDrugo4 KD4 On Kup.KDrugo4=KD4.Sifra_4K
    Left Outer Join KDrugo5 KD5 On Kup.KDrugo5=KD5.Sifra_5K
    Left Outer Join GTipKup TK On Kup.TipKup=TK.TipKup
    Where 1=1 '
    If @Komint_Od Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup>=''' + @Komint_Od + ''' '
    If @Komint_Do Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Kup<=''' + @Komint_Do + ''' '
    If @Podelba1 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo1 Is Not Null And KO.KDrugo1 = ' + Cast(@Podelba1 As Varchar(6)) + ')
                      Or (KO.KDrugo1 Is Null And Kup.KDrugo1 = ' + Cast(@Podelba1 As Varchar(6)) + ')) '
    If @Podelba2 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Podelba2 As Varchar(6)) + ')
                      Or (KO.KDrugo2 Is Null And Kup.KDrugo2 = ' + Cast(@Podelba2 As Varchar(6)) + ')) '
    If @Podelba3 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo3 Is Not Null And KO.KDrugo3 = ' + Cast(@Podelba3 As Varchar(6)) + ')
                      Or (KO.KDrugo3 Is Null And Kup.KDrugo3 = ' + Cast(@Podelba3 As Varchar(6)) + ')) '
    If @Podelba4 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo4 Is Not Null And KO.KDrugo4 = ' + Cast(@Podelba4 As Varchar(6)) + ')
                      Or (KO.KDrugo4 Is Null And Kup.KDrugo4 = ' + Cast(@Podelba4 As Varchar(6)) + ')) '
    If @Podelba5 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo5 Is Not Null And KO.KDrugo5 = ' + Cast(@Podelba5 As Varchar(6)) + ')
                      Or (KO.KDrugo5 Is Null And Kup.KDrugo5 = ' + Cast(@Podelba5 As Varchar(6)) + ')) '
    If @Sifra_Tip Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Tip Is Not Null And KO.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')
                      Or (KO.Sifra_Tip Is Null And Kup.Sifra_Tip = ' + Cast(@Sifra_Tip As Varchar(6)) + ')) '
    If @Grad Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad = ' + Cast(@Grad As Varchar(6)) + ')
                      Or (KO.Sifra_Grad Is Null And Kup.Sifra_Grad = ' + Cast(@Grad As Varchar(6)) + ')) '
    If @Sifra_Reg Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')
                      Or (KO.Sifra_Reg Is Null And Kup.Sifra_Reg = ' + Cast(@Sifra_Reg As Varchar(6)) + ')) '
    If @Sifra_Nivo Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Nivo Is Not Null And KO.Sifra_Nivo = ' + Cast(@Sifra_Nivo As Varchar(6)) + ')
                      Or (KO.Sifra_Nivo Is Null And Kup.Sifra_Nivo = ' + Cast(@Sifra_Nivo As Varchar(6)) + ')) '
    If @Patnik Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.Sifra_Pat Is Not Null And KO.Sifra_Pat = ' + Cast(@Patnik As Varchar(6)) + ')
                      Or (KO.Sifra_Pat Is Null And Kup.Sifra_Pat = ' + Cast(@Patnik As Varchar(6)) + ')) '
/*    If @Podelba1 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo1=' + Cast(@Podelba1 As Varchar(10)) + ' '
    If @Podelba2 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo2=' + Cast(@Podelba2 As Varchar(10)) + ' '
    If @Podelba3 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo3=' + Cast(@Podelba3 As Varchar(10)) + ' '
    If @Podelba4 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo4=' + Cast(@Podelba4 As Varchar(10)) + ' '
    If @Podelba5 Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KDrugo5=' + Cast(@Podelba5 As Varchar(10)) + ' '
    If @Sifra_Tip Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Tip=' + Cast(@Sifra_Tip As Varchar(10)) + ' '
    If @Grad Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Grad=' + Cast(@Grad As Varchar(10)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Reg=' + Cast(@Sifra_Reg As Varchar(10)) + ' '
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Nivo=''' + @Sifra_Nivo + ''' '
    If @Patnik Is Not Null
        Set @SSQL = @SSQL + 'And Kup.Sifra_Pat=' + Cast(@Patnik As Varchar(10)) + ' '
*/    If @Aktiven = 'N'
        Set @SSQL = @SSQL + 'And Kup.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + 'And (Kup.Aktiven <> ''N'' or Kup.Aktiven Is Null) '
    If @AktivenObj = 'N'
        Set @SSQL = @SSQL + 'And KO.Aktiven = ''N'' '
    Else If @AktivenObj = 'D'
        Set @SSQL = @SSQL + 'And (KO.Aktiven <> ''N'' or KO.Aktiven Is Null) '
    If @MozeIsporaka = 'N'
        Set @SSQL = @SSQL + 'And Kup.MozeIsporaka = ''N'' '
    Else If @MozeIsporaka = 'D'
        Set @SSQL = @SSQL + 'And (Kup.MozeIsporaka <> ''N'' or Kup.MozeIsporaka Is Null) '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + 'And TK.TipKup=''' + @TipKup + ''' '
    If @KojaCena Is Not Null
        Set @SSQL = @SSQL + 'And Kup.KojaCena =''' + @KojaCena + ''' '
    If @SoPromet = 'D'
        Begin
            Set @SSQL = @SSQL + 'And Kup.Sifra_Kup In
                (Select Distinct Sifra_Kup From Dokr'
            If @Promet_Datum_Od Is Not Null
                Set @SSQL = @SSQL + ' Where Datum_Dok>=''' + Cast(@Promet_Datum_Od As Varchar(30)) + ''') '
            Else
                Set @SSQL = @SSQL + ') '
        End
    If @Podred Is Null Or @Podred='S'
        Set @SSQL = @SSQL + 'Order By Kup.Sifra_Kup '
    Else If @Podred='I'
        Set @SSQL = @SSQL + 'Order By Kup.ImeKup '
    Else If @Podred='G'
        Set @SSQL = @SSQL + 'Order By Kup.Sifra_Grad '
print (@SSQL)
Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkomintpat]'))
drop procedure [dbo].[sp_pregledkomintpat]

Go



CREATE           PROCEDURE sp_PregledKomintPat
    @Komint_Od Varchar(10)=null,
    @Komint_Do Varchar(10)=null,
    @Patnik    Smallint = Null
AS
    Declare @SSQL Varchar(8000)
    Set @SSQL = 'Select KP.Sifra_Kup, KP.Sifra_Obj, KP.Sifra_Pat,
                     K.ImeKup, KO.ImeObj, P.ImePat
    From KomintPat KP
        Left Outer Join Komint K On K.Sifra_Kup=KP.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup=KP.Sifra_Kup and KO.Sifra_Obj=KP.Sifra_Obj
    Left Outer Join Patnici P On KP.Sifra_Pat=P.Sifra_Pat
    Where 1=1 '
    If @Komint_Od Is Not Null
        Set @SSQL = @SSQL + 'And KP.Sifra_Kup>=''' + @Komint_Od + ''' '
    If @Komint_Do Is Not Null
        Set @SSQL = @SSQL + 'And KP.Sifra_Kup<=''' + @Komint_Do + ''' '
    If @Patnik Is Not NULL
        Set @SSQL = @SSQL + ' And KP.Sifra_Pat = ' + Cast(@Patnik As Varchar(6)) + ' '
    Set @SSQL = @SSQL + 'Order By KP.Sifra_Kup, KP.Sifra_Obj '

print (@SSQL)
Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkorisnici]'))
drop procedure [dbo].[sp_pregledkorisnici]

Go


CREATE       PROCEDURE sp_PregledKorisnici
    @Sifra_Oe        smallint,
    @KoiOe        char(6)=NULL,
    @Sifra_Kup        char(6)=NULL,
    @Aktiven        char(1)=NULL,
    @Podred        char(1)='S',
    @Sifra_TipKartKor    smallint = Null,
    @Sifra_Kor_Od        varchar(20) = Null,
    @Sifra_Kor_Do        varchar(20) = Null,
    @Dat_Zacl_Od        smalldatetime = Null,
    @Dat_Zacl_Do        smalldatetime = Null,
    @KorSoPromet        char(1) = 'S',        -- S - Site,   P - So Promet,   N - Bez Promet
    @Dat_Promet_Od    smalldatetime = Null,
    @Dat_Promet_Do    smalldatetime = Null,
    @Den_Raganje_Od     smallint = Null,
    @Den_Raganje_Do     smallint = Null,
    @Mesec_Raganje_Od    smallint = Null,
    @Mesec_Raganje_Do    smallint = Null,
    @Promet_Od        decimal(18,6) = Null,
    @Promet_Do        decimal(18,6) = Null
AS
    Declare @SSQL as varchar(8000)
    Declare @SSQLUsl as varchar(8000)
    Set @SSQLUsl = ' '

    If @Sifra_Oe Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @KoiOE Is Not NULL
             Set @SSQLUsl  = @SSQLUsl + ' And K.Sifra_OE IN (Select G.Sifra_Oe from SGrOrg G where G.sif_GrOrg = ''' + @KoiOe  +  ''') '
--    If @Sifra_Kup Is Not Null                                    -- go smenavme sekogass da gleda od Prometot
--        Set @SSQLUsl  = @SSQLUsl + ' And K.Sifra_Kup = ''' + @Sifra_Kup + ''' '        -- ako korisnikot ja smeni firmata
--    If @Sifra_Kup Is Not Null
--        Set @SSQLUsl  = @SSQLUsl + ' And K.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Aktiven Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And K.Aktiven = ''' + @Aktiven + ''' '
    If @Sifra_TipKartKor Is Not Null
        Set @SSQLUsl = @SSQLUsl + ' and K.Sifra_TipKartKor = ' + cast(@Sifra_TipKartKor as varchar(6)) + ' '
    If @Sifra_Kor_Od Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And K.Sifra_Kor >= ''' + @Sifra_Kor_Od + ''' '
    If @Sifra_Kor_Do Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And K.Sifra_Kor <= ''' + @Sifra_Kor_Do + ''' '
    If @Dat_Zacl_Od Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And K.DodadenNa >= ''' + Cast(@Dat_Zacl_Od as varchar(30)) + ''' '
    If @Dat_Zacl_Do Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And K.DodadenNa < ''' + Cast(@Dat_Zacl_Do + 1 as varchar(30)) + ''' '
    If @Den_Raganje_Od Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And IsNumeric(Substring(K.LK,1,2))=1 And (Case When IsNumeric(Substring(K.LK,1,2))=1 Then Cast(Substring(K.LK,1,2) as smallint) Else 0 End) >= ' + Cast(@Den_Raganje_Od as varchar(2)) + ' '
    If @Den_Raganje_Do Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And IsNumeric(Substring(K.LK,1,2))=1 And (Case When IsNumeric(Substring(K.LK,1,2))=1 Then Cast(Substring(K.LK,1,2) as smallint) Else 32 End) <= ' + Cast(@Den_Raganje_Do as varchar(2)) + ' '
    If @Mesec_Raganje_Od Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And IsNumeric(Substring(K.LK,1,2))=1 And (Case When IsNumeric(Substring(K.LK,3,2))=1 Then Cast(Substring(K.LK,3,2) as smallint) Else 0 End) >= ' + Cast(@Mesec_Raganje_Od as varchar(2)) + ' '
    If @Mesec_Raganje_Do Is Not Null
        Set @SSQLUsl  = @SSQLUsl + ' And IsNumeric(Substring(K.LK,1,2))=1 And (Case When IsNumeric(Substring(K.LK,3,2))=1 Then Cast(Substring(K.LK,3,2) as smallint) Else 13 End) <= ' + Cast(@Mesec_Raganje_Do as varchar(2)) + ' '

    If @KorSoPromet In ('P', 'N') Or @Dat_Promet_Od Is Not Null Or @Dat_Promet_Do Is Not Null Or @Promet_Od Is Not Null Or @Promet_Do Is Not Null
    Begin
        Create Table #KorPromet
        (
         Sifra_Kor    varchar(20),
         Promet        decimal(18,6)
        )
        Set @SSQL = 'Select P.Sifra_Kor, Sum(Dolzi)
                From KartProm P
                Inner Join KartKor K On K.Sifra_Kor=P.Sifra_Kor
                Where 1=1 '
        If @Dat_Promet_Od Is Not Null
            Set @SSQL  = @SSQL + ' And P.Datum_Ska >= ''' + Cast(@Dat_Promet_Od as varchar(30)) + ''' '
        If @Dat_Promet_Do Is Not Null
            Set @SSQL  = @SSQL + ' And P.Datum_Ska <= ''' + Cast(@Dat_Promet_Do as varchar(30)) + ''' '
        If @Sifra_Kup Is Not Null
            Set @SSQL = @SSQL + ' And P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
        Set @SSQL = @SSQL + @SSQLUsl + ' Group By P.Sifra_Kor '

        If @KorSoPromet In ('P', 'N') Or @Promet_Od Is Not Null Or @Promet_Do Is Not Null
            Set @SSQL = @SSQL + ' Having 1=1 '
        If @Promet_Od Is Not Null
            Set @SSQL = @SSQL + ' And Sum(Dolzi) >= ' + Cast(@Promet_Od as varchar(20)) + ' '
        If @Promet_Do Is Not Null
            Set @SSQL = @SSQL + ' And Sum(Dolzi) <= ' + Cast(@Promet_Do as varchar(20)) + ' '
        If @KorSoPromet = 'P'
            Set @SSQL = @SSQL + ' And Sum(Dolzi) >= 0 '
        If @KorSoPromet = 'N'
            Set @SSQL = @SSQL + ' And Sum(Dolzi) = 0 '
        Insert Into #KorPromet Exec(@SSQL)
    End

    Set @SSQL = ' Select K.Sifra_Oe, O.ImeOrg, K.Sifra_Kor, K.ImeKor, K.SMesto, K.Adresa, K.Posta, K.Telefon, K.LK, K.Aktiven, K.Novi_Limi, K.Sifra_Kup, KUP.ImeKup,
                K.Sifra_TipKartKor, K.Poc_Popust, TK.Fix_Popust, K.DodadenNa, K.EMail, '
    If @KorSoPromet In ('P', 'N') Or @Dat_Promet_Od Is Not Null Or @Dat_Promet_Do Is Not Null Or @Promet_Od Is Not Null Or @Promet_Do Is Not Null
        Set @SSQL = @SSQL + ' KP.Promet '
    Else
        Set @SSQL = @SSQL + ' Null Promet '
    Set @SSQL = @SSQL + ' From KartKor K
                  Inner join Komint KUP on K.Sifra_Kup = Kup.Sifra_Kup
                  Inner join Orged O On O.Sifra_Oe = K.Sifra_Oe
                  Left Outer Join TipKartKor TK On TK.Sifra_TipKArtKor=K.Sifra_TipKartKor '
    If @KorSoPromet In ('P', 'N') Or @Dat_Promet_Od Is Not Null Or @Dat_Promet_Do Is Not Null Or @Promet_Od Is Not Null Or @Promet_Do Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KorPromet KP On KP.Sifra_Kor=K.Sifra_Kor '
    Set @SSQL = @SSQL + ' Where 1=1 ' + @SSQLUsl

    If @KorSoPromet Not In ('P','N') And @Sifra_Kup Is Not Null      -- dokolku barame izvesstaj so promet togass filterot go gledame od prometot  (pogore Inner Join)
        Set @SSQL = @SSQL + ' And K.Sifra_Kup = ''' + @Sifra_Kup + ''' '   -- ako barame samo pregled na korisnici bez promet togass filterot go gledame od KartKor

    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By K.Sifra_Kor, K.Sifra_Oe '
    Else If @Podred = 'A'
        Set @SSQL  = @SSQL +  ' Order By K.ImeKor, K.Sifra_Oe '
    Else If @Podred = 'K'
        Set @SSQL  = @SSQL +  ' Order By K.Sifra_Kup '
    Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkorisnici_beztipkor_limit]'))
drop procedure [dbo].[sp_pregledkorisnici_beztipkor_limit]

Go
CREATE PROCEDURE sp_PregledKorisnici_BezTipKor_Limit
    @Sifra_Kor_Od        varchar(20),
    @Sifra_Kor_Do        varchar(20),
    @Sifra_Kup        char(6)
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = 'Select K.Sifra_Kor, K.ImeKor, K.Novi_Limi, K.Sifra_TipKartKor, TK.ImeKartKor
            From KartKor K
            Left Outer Join TipKartKor TK On TK.Sifra_TipKartKor=K.Sifra_TipKartKor
            Where (K.Novi_Limi <=0 Or K.Sifra_TipKartKor Is Null) '
    If @Sifra_Kor_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor >= ''' + @Sifra_Kor_Od + ''' '
    If @Sifra_Kor_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor <= ''' + @Sifra_Kor_Do + ''' '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkrediti]'))
drop procedure [dbo].[sp_pregledkrediti]

Go


CREATE      Procedure sp_PregledKrediti
    @Sifra_oe smallint= null,
    @Sifra_Kor varchar(20)=null,
    @DatumOd smalldatetime =null,
    @DatumDo smalldatetime=null,
    @Nacin_Presm smallint=null,
    @Status_kredit nvarchar(30)=null,
    @Tip_posl_Opomena nvarchar(30)=null,
    @DatumOpomenaOd smalldatetime=null,
    @DatumOpomenaDo smalldatetime=null,
    @DatumSudOd smalldatetime=null,
    @DatumSudDo smalldatetime=null,
    @DatumOdzemenoOd smalldatetime=null,
    @DatumOdzemenoDo smalldatetime=null

As

    Declare @SSQL as varchar(6000)

    Set @SSQL= 'Select K.Sifra_Oe, K.Broj_Kredit, K.Datum_Kredit, K.DatumPoc_Kredit,
            K.Sifra_Kor, K.Broj_Rati, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            sum(KTRA.Dolzi) VkDolzi, sum(KTRA.Pobaruva) VkPobaruva
        From Kredit K
    Left Outer Join KreditTransakc KTRA
        on K.Sifra_Oe = KTRA.Sifra_Oe and K.Broj_Kredit = KTRA.Broj_Kredit
        Left Outer Join KartKor KK on K.Sifra_kor=KK.Sifra_Kor
        Left Outer Join KreditStatus S on K.Status_Kredit=S.Status_kredit
        Left Outer Join KreditTipOpomena T on K.Tip_posl_Opomena=T.Tip_Opomena
        Where 1 = 1    '
   If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
   If @Sifra_Kor Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor = ''' + Cast(@Sifra_Kor as varchar(10)) + ''' '
   If @DatumOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_kredit>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
   If @DatumDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_kredit<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
   If @Nacin_Presm Is Not Null
        Set @SSQL = @SSQL + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
   If @Status_kredit Is Not Null
        Set @SSQL = @SSQL + ' And case when K.Status_Kredit is null then 1 else K.Status_Kredit end In (' + Cast(@Status_kredit as varchar(10)) + ') '
   If @Tip_Posl_Opomena Is Not Null
        Set @SSQL = @SSQL + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
   If @DatumOpomenaOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Posl_Opomena>=''' + Cast(@DatumOpomenaOd As Varchar(35)) + ''' '
   If @DatumOpomenaDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_posl_Opomena<=''' + Cast(@DatumOpomenaDo As Varchar(35)) + ''' '
   If @DatumSudOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud >=''' + Cast(@DatumSudOd As Varchar(35)) + ''' '
   If @DatumSudDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud <=''' + Cast(@DatumSudDo As Varchar(35)) + ''' '
   If @DatumOdzemenoOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno >=''' + Cast(@DatumOdzemenoOd As Varchar(35)) + ''' '
   If @DatumOdzemenoDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno <=''' + Cast(@DatumOdzemenoDo As Varchar(35)) + ''' '

   Set @SSQL = @SSQL + ' group by K.Sifra_Oe, K.Broj_Kredit, K.Datum_Kredit, K.DatumPoc_Kredit,
            K.Sifra_Kor, K.Broj_Rati, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena '

   exec(@SSQL)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkrediti_opomena]'))
drop procedure [dbo].[sp_pregledkrediti_opomena]

Go
CREATE    Procedure [dbo].[sp_PregledKrediti_Opomena]
    @Sifra_Oe smallint= null,
    @Sifra_Kor varchar(20)=null,
    @DatumOd smalldatetime =null,
    @DatumDo smalldatetime=null,
    @Nacin_Presm smallint=null,
    @Status_Kredit nvarchar(30)=null,
    @Tip_posl_Opomena nvarchar(30)=null,
    @DatumOpomenaOd smalldatetime=null,
    @DatumOpomenaDo smalldatetime=null,
    @DatumSudOd smalldatetime=null,
    @DatumSudDo smalldatetime=null,
    @DatumOdzemenoOd smalldatetime=null,
    @DatumOdzemenoDo smalldatetime=null,
    @Broj_Kredit int=null,
    @DatumPresmetka smalldatetime = Null
As
    Declare @SSQL as varchar(6000)

    Set @SSQL= ' Select K.Sifra_oe, K.Broj_kredit, K.Sifra_kor, K.Datum_kredit, K.DatumPoc_Kredit, K.Broj_rati, K.VkupenProcKam, K.Nacin_Presm,
            K.VkupnaGlavnica, K.VkupnaKamata, K.PlatenoVednas, K.PlatenoRati, K.Kurs, K.OpisKredit, K.Status_kredit, K.Datum_sud,
            K.Datum_Posl_opomena, K.Tip_posl_Opomena, K.Datum_Odzemeno, K.ProcKam, K.Datum_Status,
            Sum(Case When KTRA.Datum_Dosp<= ''' + Cast(@DatumPresmetka as varchar(30)) + ''' Then KTRA.Dolzi Else 0 End) DospDolzi,
            Sum(Pobaruva) VkPobaruva,
            O.ImeOrg, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            KK.Sifra_Kup, KK.SMesto, KK.Adresa, KK.Posta, KK.Telefon, KK.LK, Kom.ImeKup
    From Kredit K
    Left Outer Join KreditTransakc KTRA on K.Sifra_Oe = KTRA.Sifra_Oe and K.Broj_Kredit = KTRA.Broj_Kredit
    Left Outer Join OrgEd O on K.Sifra_Oe=O.Sifra_Oe
    Left Outer Join KartKor KK on K.Sifra_kor=KK.Sifra_Kor
    Left Outer Join Komint Kom on KK.Sifra_Kup=Kom.Sifra_Kup
    Left Outer Join KreditStatus S on K.Status_Kredit=S.Status_Kredit
    Left Outer Join KreditTipOpomena T on K.Tip_posl_Opomena=T.Tip_Opomena
    Where 1=1 ' --(KTRA.Dolzi <> 0 or KTRA.Dolzi is null) '

    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Kor Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor = ''' + Cast(@Sifra_Kor as varchar(10)) + ''' '
    If @DatumOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Kredit>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
    If @DatumDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Kredit<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
    If @Nacin_Presm Is Not Null
        Set @SSQL = @SSQL + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
    If @Status_kredit Is Not Null
        Set @SSQL = @SSQL + ' And K.Status_Kredit In (' + Cast(@Status_kredit as varchar(10)) + ') '
    If @Tip_Posl_Opomena Is Not Null
        Set @SSQL = @SSQL + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
    If @DatumOpomenaOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Posl_Opomena>=''' + Cast(@DatumOpomenaOd As Varchar(35)) + ''' '
    If @DatumOpomenaDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_posl_Opomena<=''' + Cast(@DatumOpomenaDo As Varchar(35)) + ''' '
    If @DatumSudOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud >=''' + Cast(@DatumSudOd As Varchar(35)) + ''' '
    If @DatumSudDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud <=''' + Cast(@DatumSudDo As Varchar(35)) + ''' '
    If @DatumOdzemenoOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno >=''' + Cast(@DatumOdzemenoOd As Varchar(35)) + ''' '
    If @DatumOdzemenoDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno <=''' + Cast(@DatumOdzemenoDo As Varchar(35)) + ''' '
    If @Broj_Kredit Is Not Null
        Set @SSQL = @SSQL + ' And K.Broj_Kredit = ' + Cast(@Broj_Kredit as varchar(10)) + ' '
    Set @SSQL = @SSQL + ' Group By K.Sifra_oe, K.Broj_kredit, K.Sifra_kor, K.Datum_kredit, K.DatumPoc_Kredit, K.Broj_rati, K.VkupenProcKam, K.Nacin_Presm,
            K.VkupnaGlavnica, K.VkupnaKamata, K.PlatenoVednas, K.PlatenoRati, K.Kurs, K.OpisKredit, K.Status_kredit, K.Datum_sud,
            K.Datum_Posl_opomena, K.Tip_posl_Opomena, K.Datum_Odzemeno, K.ProcKam, K.Datum_Status,
            O.ImeOrg, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            KK.Sifra_Kup, KK.SMesto, KK.Adresa, KK.Posta, KK.Telefon, KK.LK, Kom.ImeKup
        Having Sum(Case When KTRA.Datum_Dosp<= ''' + Cast(@DatumPresmetka as varchar(30)) + ''' Then KTRA.Dolzi Else 0 End) - Sum(Pobaruva) > 0 '
print @SSQL
    Exec(@SSQL)


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkrediti_opsiren]'))
drop procedure [dbo].[sp_pregledkrediti_opsiren]

Go

CREATE  Procedure sp_PregledKrediti_Opsiren
    @Sifra_oe smallint= null,
    @Sifra_Kor varchar(20)=null,
    @DatumOd smalldatetime =null,
    @DatumDo smalldatetime=null,
    @Nacin_Presm smallint=null,
    @Status_kredit nvarchar(30)=null,
    @Tip_posl_Opomena nvarchar(30)=null,
    @DatumOpomenaOd smalldatetime=null,
    @DatumOpomenaDo smalldatetime=null,
    @DatumSudOd smalldatetime=null,
    @DatumSudDo smalldatetime=null,
    @DatumOdzemenoOd smalldatetime=null,
    @DatumOdzemenoDo smalldatetime=null

As

    Declare @SSQL as varchar(6000)

    Set @SSQL= 'Select K.Sifra_Oe, K.Broj_Kredit, K.Datum_Kredit, K.DatumPoc_Kredit,
            K.Sifra_Kor, K.Broj_Rati, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            sum(KTRA.Dolzi) VkDolzi, sum(KTRA.Pobaruva) VkPobaruva,
            K.VkupenProcKam, K.Nacin_Presm, K.VkupnaGlavnica, K.VkupnaKamata,
            K.PlatenoVednas, K.PlatenoRati, K.Kurs, K.OpisKredit, K.Status_Kredit,
            K.Datum_Sud, K.Datum_Posl_Opomena, K.Datum_Odzemeno, K.ProcKam, K.Datum_Status
        From Kredit K
    Left Outer Join KreditTransakc KTRA
        on K.Sifra_Oe = KTRA.Sifra_Oe and K.Broj_Kredit = KTRA.Broj_Kredit
        Left Outer Join KartKor KK on K.Sifra_kor=KK.Sifra_Kor
        Left Outer Join KreditStatus S on K.Status_Kredit=S.Status_kredit
        Left Outer Join KreditTipOpomena T on K.Tip_posl_Opomena=T.Tip_Opomena
        Where 1 = 1    '
   If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
   If @Sifra_Kor Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor = ''' + Cast(@Sifra_Kor as varchar(10)) + ''' '
   If @DatumOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_kredit>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
   If @DatumDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_kredit<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
   If @Nacin_Presm Is Not Null
        Set @SSQL = @SSQL + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
   If @Status_kredit Is Not Null
        Set @SSQL = @SSQL + ' And case when K.Status_Kredit is null then 1 else K.Status_Kredit end In (' + Cast(@Status_kredit as varchar(10)) + ') '
   If @Tip_Posl_Opomena Is Not Null
        Set @SSQL = @SSQL + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
   If @DatumOpomenaOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Posl_Opomena>=''' + Cast(@DatumOpomenaOd As Varchar(35)) + ''' '
   If @DatumOpomenaDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_posl_Opomena<=''' + Cast(@DatumOpomenaDo As Varchar(35)) + ''' '
   If @DatumSudOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud >=''' + Cast(@DatumSudOd As Varchar(35)) + ''' '
   If @DatumSudDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud <=''' + Cast(@DatumSudDo As Varchar(35)) + ''' '
   If @DatumOdzemenoOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno >=''' + Cast(@DatumOdzemenoOd As Varchar(35)) + ''' '
   If @DatumOdzemenoDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno <=''' + Cast(@DatumOdzemenoDo As Varchar(35)) + ''' '

   Set @SSQL = @SSQL + ' group by K.Sifra_Oe, K.Broj_Kredit, K.Datum_Kredit, K.DatumPoc_Kredit,
            K.Sifra_Kor, K.Broj_Rati, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            K.VkupenProcKam, K.Nacin_Presm, K.VkupnaGlavnica, K.VkupnaKamata,
            K.PlatenoVednas, K.PlatenoRati, K.Kurs, K.OpisKredit, K.Status_Kredit,
            K.Datum_Sud, K.Datum_Posl_Opomena, K.Datum_Odzemeno, K.ProcKam, K.Datum_Status '

   exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledkrediti_rati]'))
drop procedure [dbo].[sp_pregledkrediti_rati]

Go

CREATE     Procedure [dbo].[sp_PregledKrediti_Rati]
    @Sifra_oe smallint= null,
    @Sifra_Kor varchar(20)=null,
    @DatumOd smalldatetime =null,
    @DatumDo smalldatetime=null,
    @Nacin_Presm smallint=null,
    @Status_kredit nvarchar(30)=null,
    @Tip_posl_Opomena nvarchar(30)=null,
    @DatumOpomenaOd smalldatetime=null,
    @DatumOpomenaDo smalldatetime=null,
    @DatumSudOd smalldatetime=null,
    @DatumSudDo smalldatetime=null,
    @DatumOdzemenoOd smalldatetime=null,
    @DatumOdzemenoDo smalldatetime=null,
    @Broj_Kredit int=null
As
    Declare @SSQL as varchar(6000)
    Set @SSQL= 'Select K.*, O.ImeOrg, KK.ImeKor, S.ImeStatusKredit, T.ImeTipOpomena,
            KTRA.Rbr_KreditTrans, KTRA.Dolzi, KTRA.Pobaruva, KTRA.Datum_Dosp, KTRA.Kurs KursTra,
            KTRA.Plateno_Dolzi, KTRA.Plateno_Pobaruva, KTra.Datum_Kontra,
            KK.Sifra_Kup, KK.SMesto, KK.Adresa, KK.Posta, KK.Telefon, KK.LK, Kom.ImeKup
    From Kredit K
    Left Outer Join KreditTransakc KTRA on K.Sifra_Oe = KTRA.Sifra_Oe and K.Broj_Kredit = KTRA.Broj_Kredit
    Left Outer Join OrgEd O on K.Sifra_Oe=O.Sifra_Oe
    Left Outer Join KartKor KK on K.Sifra_kor=KK.Sifra_Kor
    Left Outer Join Komint Kom on KK.Sifra_Kup=Kom.Sifra_Kup
    Left Outer Join KreditStatus S on K.Status_Kredit=S.Status_Kredit
    Left Outer Join KreditTipOpomena T on K.Tip_posl_Opomena=T.Tip_Opomena
    Where (KTRA.Dolzi <> 0 or KTRA.Dolzi is null) '

    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Oe = ' + Cast(@Sifra_Oe as varchar(10)) + ' '
    If @Sifra_Kor Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Kor = ''' + Cast(@Sifra_Kor as varchar(10)) + ''' '
    If @DatumOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Kredit>=''' + Cast(@DatumOd As Varchar(35)) + ''' '
    If @DatumDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Kredit<=''' + Cast(@DatumDo As Varchar(35)) + ''' '
    If @Nacin_Presm Is Not Null
        Set @SSQL = @SSQL + ' And K.Nacin_Presm = ' + Cast(@Nacin_Presm as varchar(10)) + ' '
    If @Status_kredit Is Not Null
        Set @SSQL = @SSQL + ' And case when K.Status_Kredit is null then 1 else K.Status_Kredit end In (' + Cast(@Status_kredit as varchar(10)) + ') '
    If @Tip_Posl_Opomena Is Not Null
        Set @SSQL = @SSQL + ' And K.Tip_Posl_Opomena in ( ' + Cast(@Tip_Posl_Opomena as varchar(10)) + ') '
    If @DatumOpomenaOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Posl_Opomena>=''' + Cast(@DatumOpomenaOd As Varchar(35)) + ''' '
    If @DatumOpomenaDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_posl_Opomena<=''' + Cast(@DatumOpomenaDo As Varchar(35)) + ''' '
    If @DatumSudOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud >=''' + Cast(@DatumSudOd As Varchar(35)) + ''' '
    If @DatumSudDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Sud <=''' + Cast(@DatumSudDo As Varchar(35)) + ''' '
    If @DatumOdzemenoOd Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno >=''' + Cast(@DatumOdzemenoOd As Varchar(35)) + ''' '
    If @DatumOdzemenoDo Is Not Null
        Set @SSQL = @SSQL + ' And K.Datum_Odzemeno <=''' + Cast(@DatumOdzemenoDo As Varchar(35)) + ''' '
    If @Broj_Kredit Is Not Null
        Set @SSQL = @SSQL + ' And K.Broj_Kredit = ' + Cast(@Broj_Kredit as varchar(10)) + ' '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledmikrolok]'))
drop procedure [dbo].[sp_pregledmikrolok]

Go


CREATE   PROCEDURE sp_PregledMikroLok
    @Sifra_Lok        varchar(3)= null,
    @Sifra_MakroLok    varchar(10)=  null
 AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select MikL.*, MakL.Ime_MakLok, L.ImeLok
            From MikroLok MikL
            Left Outer Join MakroLok MakL On MakL.Sifra_MakLok=MikL.Sifra_MakLok
            Left Outer Join Lokacija L On L.Sifra_Lok=MakL.Sifra_Lok
            left outer Join OrgEd O on O.Sifra_Oe=MikL.Sifra_oe_kniz
            Where 1=1 '
    If @Sifra_Lok Is Not Null
        Set @SSQL = @SSQL + ' And MakL.Sifra_Lok = ''' + @Sifra_Lok + ''' '
    If @Sifra_MakroLok Is Not Null
        Set @SSQL = @SSQL + ' And MikL.Sifra_MakLok = ''' + @Sifra_MakroLok + ''' '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglednadokumenti]'))
drop procedure [dbo].[sp_preglednadokumenti]

Go

CREATE  PROCEDURE sp_PregledNaDokumenti
    @Sifra_OE    smallint,
    @Sifra_Dok    smallint,
    @Datum_Od    smalldatetime,
    @Datum_Do    smalldatetime
AS
    Declare @SSQL As Varchar(2000)
    Set @SSQL='Select D.Datum_Dok, S.Broj_Dok, S.Sifra_Dok, Sum(S.Kolic*S.DokCena) PoDokCena,
        Sum(S.Kolic*K.DogCena) PoDogCena, Sum(S.Kolic*K.MalCena) PoMalCena,
        D.Sifra_kup, KUP.ImeKup, D.Sifra_OE, D.Identif_Br
    From Dokr D
    Inner Join Stavr S On S.DokrID=D.DokrID
    Inner Join Katart K On K.Sifra_Art=S.Sifra_Art
    Left Outer Join Komint KUP On KUP.Sifra_Kup=D.Sifra_Kup
    Where 1=1 '
    If @Sifra_OE Is Not Null
        Set @SSQL=@SSQL + ' And D.Sifra_Oe = ''' + cast(@Sifra_Oe as Varchar(6)) + ''' '
    If @Sifra_Dok Is Not Null
        Set @SSQL=@SSQL + ' And S.Sifra_Dok = ''' + cast(@Sifra_Dok as Varchar(6)) + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok>= ''' + cast(@Datum_Od as Varchar(35)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL=@SSQL + ' And D.Datum_Dok<= ''' + cast(@Datum_Do as Varchar(35)) + ''' '
    Set @SSQL=@SSQL + '    Group By D.Datum_Dok, S.Broj_Dok, S.Sifra_Dok, D.Sifra_kup, KUP.ImeKup, D.Sifra_OE, D.Identif_Br '
    Exec(@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglednaobjekti]'))
drop procedure [dbo].[sp_preglednaobjekti]

Go

CREATE       PROCEDURE sp_PregledNaObjekti
    @Sifra_Kup_Od    char(6) = Null,
    @Sifra_Kup_Do    char(6) = Null,
    @Sifra_Obj_Od    smallint = Null,
    @Sifra_Obj_Do    smallint = Null,
    @Sifra_Grad    smallint = Null,
    @Sifra_Reg    smallint = Null,
    @KDrugo1    smallint = Null,
    @KDrugo2    smallint = Null,
    @KDrugo3    smallint = Null,
    @KDrugo4    smallint = Null,
    @KDrugo5    smallint = Null,
    @Aktiven    char(1) = Null,
    @Sifra_Pat    smallint = Null,
    @Sifra_Nivo    Char(2) = Null,
    @TipKup    varchar(11)=Null,
        @SlikaPrik    char(1) = 'N'

AS

    Declare @SSQL As Varchar(8000)
    if @SlikaPrik = 'D'
        Set @SSQL = ' Select Kup.ImeKup,Slik.SlikaKObj, KO.*
            From KObjekti KO
            Inner Join Komint Kup On KO.Sifra_Kup=Kup.Sifra_Kup
                   Inner Join KObjSliki Slik on KO.SifrA_Kup=Slik.Sifra_Kup
            Where KO.Sifra_Obj <> 0 '
    else
        Set @SSQL = ' Select Kup.ImeKup, KO.*,
            P.ImePat, G.ImeGrad, R.ImeRegion,
            KD1.Ime_1K, KD2.Ime_2K, KD3.Ime_3K, KD4.Ime_4K, KD5.Ime_5K, KD6.Ime_6K, KD7.Ime_7K,
                  TK.ImeTipKup, P2.ImePat as ImePat2
            From KObjekti KO
            Inner Join Komint Kup On KO.Sifra_Kup=Kup.Sifra_Kup
            Left Outer Join Patnici P On KO.Sifra_Pat=P.Sifra_Pat
            Left Outer Join Patnici P2 On KO.Sifra_Pat2=P2.Sifra_Pat
            Left Outer Join Grad G On KO.Sifra_Grad=G.Sifra_Grad
            Left Outer Join GRegion R On KO.Sifra_Reg=R.Sifra_Reg
            Left Outer Join KDrugo1 KD1 On KO.KDrugo1=KD1.Sifra_1K
            Left Outer Join KDrugo2 KD2 On KO.KDrugo2=KD2.Sifra_2K
            Left Outer Join KDrugo3 KD3 On KO.KDrugo3=KD3.Sifra_3K
            Left Outer Join KDrugo4 KD4 On KO.KDrugo4=KD4.Sifra_4K
            Left Outer Join KDrugo5 KD5 On KO.KDrugo5=KD5.Sifra_5K
            Left Outer Join KDrugo6 KD6 On KO.KDrugo6=KD6.Sifra_6K
            Left Outer Join KDrugo7 KD7 On KO.KDrugo7=KD7.Sifra_7K
            Left Outer Join GTipKup TK On KO.TipKup=TK.TipKup
               Where KO.Sifra_Obj <> 0 '

        If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Kup >= ' + @Sifra_Kup_Od + ' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Kup <= ' + @Sifra_Kup_Do + ' '
    If @Sifra_Obj_Od Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Obj >= ' + Cast(@Sifra_Obj_Od as varchar(6)) + ' '
    If @Sifra_Obj_Do Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Obj <= ' + Cast(@Sifra_Obj_Do as varchar(6)) + ' '
    If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Grad = ' + Cast(@Sifra_Grad as varchar(6)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Reg = ' + Cast(@Sifra_Reg as varchar(6)) + ' '
    If @KDrugo1 Is Not Null
        Set @SSQL = @SSQL + ' And KO.KDrugo1 = ' + Cast(@KDrugo1 as varchar(6)) + ' '
    If @KDrugo2 Is Not Null
        Set @SSQL = @SSQL + ' And KO.KDrugo2 = ' + Cast(@KDrugo2 as varchar(6)) + ' '
    If @KDrugo3 Is Not Null
        Set @SSQL = @SSQL + ' And KO.KDrugo3 = ' + Cast(@KDrugo3 as varchar(6)) + ' '
    If @KDrugo4 Is Not Null
        Set @SSQL = @SSQL + ' And KO.KDrugo4 = ' + Cast(@KDrugo4 as varchar(6)) + ' '
    If @KDrugo5 Is Not Null
        Set @SSQL = @SSQL + ' And KO.KDrugo5 = ' + Cast(@KDrugo5 as varchar(6)) + ' '
    If @Aktiven = 'N'
        Set @SSQL = @SSQL + ' And KO.Aktiven = ''N'' '
    Else If @Aktiven = 'D'
        Set @SSQL = @SSQL + ' And (KO.Aktiven <> ''N'' Or KO.Aktiven Is Null) '
    If @Sifra_Pat Is Not Null
        Set @SSQL = @SSQL + ' And (KO.Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(6)) + ' Or  KO.Sifra_Pat2 = ' + Cast(@Sifra_Pat as varchar(6)) + ')'
    If @Sifra_Nivo Is Not Null
        Set @SSQL = @SSQL + ' And KO.Sifra_Nivo = ' + Cast(@Sifra_Nivo as varchar(6)) + ' '
    If @TipKup Is Not Null
        Set @SSQL = @SSQL + ' And KO.TipKup = ''' + @TipKup + ''' '
    Exec(@SSQL)







Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_preglednavozila]'))
drop procedure [dbo].[sp_preglednavozila]

Go

CREATE     procedure sp_PregledNaVozila
    @DatumOd smalldatetime,
    @DatumDo smalldatetime,
    @Sifra_Art_Od varchar(20)= null,
    @Sifra_Art_Do varchar(20)= null,
    @Drugo1 smallint= null,
    @Drugo2 smallint= null,
    @Drugo3 smallint= null,
    @Drugo4 smallint= null,
    @Sifra_drg smallint= null,
    @Sifra_Drg1 smallint= null,
    @Kto char(6)= null,
    @Sifra_Podg char(6)= null,
    @Sifra_gr varchar(6)= null,
    @ZapocnuvaSo varchar(200)= null,
    @GodProiz smallint= null,
    @ModGod smallint = null,
    @BrSasija  varchar(30)= null,
    @BrMotor varchar(30)= null

As

    Declare @SSQL as varchar(8000)
    Set @SSQL= 'Select V.*, K.ImeArt, D1.Ime_1, D2.Ime_2, D3.Ime_3, D4.Ime_4, DR.Ime, DR1.Ime_Drg1,
                KO.ImeKup, PG.Ime_podg, G.Ime_Gr, K.DogCena, K.MalCena, K.GotCena
                From Vozila V
                Inner Join KatArt K on V.Sifra_Art= K.Sifra_Art
                Left Outer Join Drugo1 D1 on K.Drugo1= D1.Sifra_1
                Left Outer Join Drugo2 D2 on K.Drugo2= D2.Sifra_2
                Left Outer Join Drugo3 D3 on K.Drugo3= D3.Sifra_3
                Left Outer Join Drugo4 D4 on K.Drugo4= D4.Sifra_4
                Left Outer Join DrgPodel DR on K.Sifra_Drg= DR.Sifra_Drg
                Left Outer Join DrgPodel1 DR1 on DR.Sifra_Drg1= DR1.Sifra_Drg1
                Left Outer Join Komint KO on K.Kto= KO.Sifra_Kup
                Left Outer Join Podgrupi PG on K.Sifra_Podg= PG.Sifra_Podg
                Left Outer Join Grupi G on PG.Sifra_Gr= G.Sifra_Gr
                Where 1=1 '

      If @DatumOd Is Not Null
        Set @SSQL = @SSQL +  ' And K.DodadenNa >= ''' + cast(@DatumOd as Varchar(35)) +  ''' '
      If @DatumDo Is Not Null
        Set @SSQL = @SSQL +  ' And K.DodadenNa <= ''' + cast(@DatumDo as Varchar(35)) +  ''' '
      If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL +  ' And K.Sifra_Art >= ' + @Sifra_Art_Od +  ' '
      If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL +  ' And K.Sifra_Art <= ' + @Sifra_Art_Do +  ' '
      If @Drugo1 Is Not Null
        Set @SSQL = @SSQL +  ' And K.Drugo1 = ' + cast(@Drugo1 as Varchar(10)) +  ' '
      If @Drugo2 Is Not Null
        Set @SSQL = @SSQL +  ' And K.Drugo2 = ' + cast(@Drugo2 as Varchar(10)) +  ' '
      If @Drugo3 Is Not Null
        Set @SSQL = @SSQL +  ' And K.Drugo3 = ' + cast(@Drugo3 as Varchar(10)) +  ' '
      If @Drugo4 Is Not Null
        Set @SSQL = @SSQL +  ' And K.Drugo4 = ' + cast(@Drugo4 as Varchar(10)) +  ' '
      If @Sifra_Drg Is Not Null
        Set @SSQL = @SSQL +  ' And K.Sifra_Drg = ' + cast(@Sifra_Drg as Varchar(10)) +  ' '
      If @Sifra_Drg1 Is Not Null
        Set @SSQL = @SSQL +  ' And DR.Sifra_Drg1 = ' + cast(@Sifra_Drg1 as Varchar(10)) +  ' '
      If @Kto Is Not Null
        Set @SSQL = @SSQL +  ' And K.Kto = ' + @Kto +  ' '
      If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL +  ' And K.Sifra_Podg = ' + cast(@Sifra_Podg as Varchar(10)) +  ' '
      If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL +  ' And PG.Sifra_Gr = ' + cast(@Sifra_Gr as Varchar(6)) +  ' '
       If @ZapocnuvaSo IS NOT NULL
        Set @SSQL = @SSQL + ' And K.Sifra_Art Like ''' + @ZapocnuvaSo + '%'' '
    If @GodProiz Is Not Null
        Set @SSQL = @SSQL +  ' And V.GodProiz = ' + cast(@GodProiz as Varchar(6)) +  ' '
    If @ModGod Is Not Null
        Set @SSQL = @SSQL +  ' And V.GodModel = ' + cast(@ModGod as Varchar(6)) +  ' '
    If @BrSasija Is Not Null
        Set @SSQL = @SSQL +  ' And V.BrSasija = ''' + cast(@BrSasija as Varchar(30)) +  ''' '
    If @BrMotor Is Not Null
        Set @SSQL = @SSQL +  ' And V.BrMotor = ''' + cast(@BrMotor as Varchar(30)) +  ''' '

print @ssql
exec(@ssql)








Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledoperatori]'))
drop procedure [dbo].[sp_pregledoperatori]

Go



CREATE    procedure sp_PregledOperatori
    @Sifra_Oe smallint = null,
    @Sifra_GrOper char(20)= null,
    @Aktiven    char(1)= null
As
    Declare @SSQL varchar(5000)
    Set @SSQL=' Select O.*, G.ImeGrOper, OE.ImeOrg
                From Operatori O
                left outer JOin GrupiOper G on O.Sifra_GrOper=G.Sifra_GrOper
                left outer JOin Orged OE on O.Sifra_Oe=OE.Sifra_Oe
                where 1=1 '
    If @Sifra_Oe is not null
        Set @SSQL= @SSQL+ ' And O.Sifra_Oe= ' + cast(@Sifra_Oe as varchar(6)) + ''
    If @Sifra_GrOper is not null
        Set @SSQL= @SSQL+ ' And O.Sifra_GrOper= ' + @Sifra_GrOper + ''
    --If @Aktiven is not null
    --    Set @SSQL= @SSQL+ ' And O.Aktiven= ' + @Aktiven + ''
    If @Aktiven = 'D'
    Set @SSQL = @SSQL + ' And (O.Aktiven <> ''N'' or O.Aktiven Is Null) '
    Else If @Aktiven = 'N'
    Set @SSQL = @SSQL + ' And O.Aktiven = ''N'' '
print(@ssql)
exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledoptzalpooe]'))
drop procedure [dbo].[sp_pregledoptzalpooe]

Go
CREATE  PROCEDURE sp_PregledOptZalPoOe
    @Sifra_Oe    smallint = Null,
    @Sif_GrOrg    char(6) = Null,
    @Sifra_Art_Od    varchar(20) = Null,
    @Sifra_Art_Do    varchar(20) = Null,
    @SamoDozv    char(1) = 'N',
    @Podred    char(1) = 'S',
    @OdKojaTab    char(1) = 'O',     -- K - od katart       O - od OptZalPoOe
    @Kto        char(6) = Null,
    @SamoNeDozv    char(1) = 'N',    -- D - Samo nedozvoleni
    @VkluciArtZal    char(1) = 'N'      -- Koga gledame od OptZalPoOe da se vklucat artiklite sso gi ima na zaliha od katart
AS
    Declare @SSQL Varchar(8000)

If @OdKojaTab = 'O'
Begin
    Set @SSQL = ' Select Z.Sifra_Oe, O.ImeOrg, Z.Sifra_Art, K.ImeArt, Z.MinZal, Z.MaxZal, Z.OptZal, Z.Dozvoleno, K.Sifra_Podg, P.Ime_Podg
            From OptZalPoOe Z
            Inner Join Orged O On O.Sifra_Oe=Z.Sifra_Oe
            Inner Join Katart K On K.Sifra_Art = Z.Sifra_Art
            Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
            Where 1=1 '
    If @Sifra_Oe Is Not Null
        Set @SSQL = @SSQL + ' And Z.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + ' '
    If @Sif_GrOrg Is Not Null
        Set @SSQL = @SSQL + ' And Z.Sifra_Oe IN (SELECT Sifra_OE FROM SGrOrg WHERE Sif_GrOrg=''' + @Sif_GrOrg + ''') '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And Z.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And Z.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @SamoDozv='D'
        Set @SSQL = @SSQL + ' And Z.Dozvoleno IS NOT NULL And Z.Dozvoleno IN (''D'',''N'') '
    If @SamoNeDozv='D'
        Set @SSQL = @SSQL + ' And Z.Dozvoleno = ''N'' '

    If @VkluciArtZal = 'D' And @SamoDozv='D'  -- ova za gigo. da se prikazat samo dozvolenite artikli. moze da se najde i podobro resenie (nama filter samo dozvoleni artikli)
        Set @SSQL = @SSQL + ' And Z.Dozvoleno = ''D'' '     -- 13.05.2010

    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @VkluciArtZal = 'D' And @Sifra_Oe Is Not Null And (@SamoNeDozv <> 'D' Or @SamoNeDozv Is null)
    Begin
        Set @SSQL = @SSQL + ' Union Select Z.Sifra_Oe, O.ImeOrg, Z.Sifra_Art, K.ImeArt, Null MinZal, Null MaxZal, Null OptZal, ''D'' as Dozvoleno, K.Sifra_Podg, P.Ime_Podg
                        From Soart Z
                        Inner Join Orged O On O.Sifra_Oe=Z.Sifra_Oe
                        Inner Join Katart K On K.Sifra_Art = Z.Sifra_Art
                        Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
                        Where Z.Sifra_Oe = ' + cast(@Sifra_Oe as varchar(6)) + '
                        And Z.Sifra_Art Not In (Select Sifra_Art From OptZalPoOe Where Sifra_Oe = '+ cast(@Sifra_Oe as varchar(6)) + ' And Dozvoleno Is Not Null) '
        If @Sifra_Art_Od Is Not Null
            Set @SSQL = @SSQL + ' And Z.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
        If @Sifra_Art_Do Is Not Null
            Set @SSQL = @SSQL + ' And Z.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
        If @Kto Is Not Null
            Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    End

    If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
    Else
        Set @SSQL = @SSQL + ' Order By Z.Sifra_Art '
print (@ssql)
    Exec(@SSQL)
End
Else
Begin
    Set @SSQL = ' Select Null as Sifra_Oe, Null as ImeOrg, K.Sifra_Art, K.ImeArt, K.SMin_Sost as MinZal, K.SMax_Sost as MaxZal, K.SOpt_Sost as OptZal, K.Sifra_Podg, P.Ime_Podg
            From Katart K
            Inner Join Podgrupi P On P.Sifra_Podg=K.Sifra_Podg
            Where 1=1 '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Kto Is Not Null
        Set @SSQL = @SSQL + ' And K.Kto = ''' + @Kto + ''' '
    If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By K.ImeArt '
    Else
        Set @SSQL = @SSQL + ' Order By K.Sifra_Art '
    Exec(@SSQL)
print (@ssql)
End


Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpacienti]'))
drop procedure [dbo].[sp_pregledpacienti]

Go

create  PROCEDURE sp_PregledPacienti

    @EMBG        char(13),
    @Sifra_Kompanija    char(10),
    @Sifra_lekar        char(6),
    @Sifra_OsnovOsig    char(2),
    @Podred        char(1) = 'S'

AS

    Declare @SSQL as varchar(8000)
    Set @SSQL = ' Select P.EMBG, P.ImePacient, P.Broj_Kniska, P.Sifra_Kompanija, P.Sifra_Lekar, L.ImeLekar, P.Sifra_OsnovOsig, O.ImeOsnovOsig
            From Pacienti P
            Left Outer Join Lekari L On L.Sifra_Lekar = P.Sifra_Lekar
            Left Outer Join OsnovOsig O On O.Sifra_OsnovOsig = P.Sifra_OsnovOsig
            Where 1=1 '

    If @EMBG Is Not Null
        Set @SSQL = @SSQL + ' And P.EMBG = ''' + @EMBG + ''' '
    If @Sifra_Kompanija Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_Kompanija = ''' + @Sifra_Kompanija + ''' '
    If @Sifra_lekar Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_lekar = ''' + @Sifra_lekar + ''' '
    If @Sifra_OsnovOsig Is Not Null
        Set @SSQL = @SSQL + ' And P.Sifra_OsnovOsig = ''' + @Sifra_OsnovOsig + ''' '
    If @Podred = 'S'
        Set @SSQL = @SSQL + ' Order By P.EMBG '
    Else If @Podred = 'A'
        Set @SSQL = @SSQL + ' Order By P.ImePacient '

    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpakuvart]'))
drop procedure [dbo].[sp_pregledpakuvart]

Go
CREATE PROCEDURE sp_PregledPakuvArt
    @Datum_Od    smalldatetime = Null,
    @Datum_Do    smalldatetime = Null,
    @KontrSer_Pak    Varchar(35) = Null,
    @KontrSer_Ed    Varchar(35) = Null,
    @Broj_DokPak    int = Null
AS
    Declare @SSQL as varchar(8000)
    Set @SSQL = ' SELECT P.Broj_DokPak, P.Datum_DokPak, P.Sifra_Art_Pak, P.KontrSer_Pak,
            P.Sifra_Art_Ed, SU.ImeArt ImeArt_Ed, P.KontrSer_Ed, P.Rbr, P.Kolic_Ed, P.Kolic_Pak, P.Kolic_Dara
        FROM PakuvArt P
        Left outer JOIN KatArt SU ON P.Sifra_Art_Ed = SU.Sifra_Art
        WHERE 1=1 '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_DokPak >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And P.Datum_DokPak <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @KontrSer_Pak Is Not Null
        Set @SSQL = @SSQL + ' And P.KontrSer_Pak = ''' + @KontrSer_Pak + ''' '
    If @KontrSer_Ed Is Not Null
        Set @SSQL = @SSQL + ' And P.KontrSer_Ed = ''' + @KontrSer_Ed + ''' '
    If @Broj_DokPak Is Not Null
        Set @SSQL = @SSQL + ' And P.Broj_DokPak = ''' + Cast(@Broj_DokPak as varchar(10)) + ''' '
    Set @SSQL = @SSQL + ' Order By P.Broj_DokPak, P.Rbr '
    Exec(@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpercenceni]'))
drop procedure [dbo].[sp_pregledpercenceni]

Go
CREATE PROCEDURE sp_PregledPerCenCeni
    @Datum_Od    smalldatetime,
    @Sifra_TipC     smallint
AS
    Declare @SSQL varchar(600)
    SET @SSQL = 'SELECT C.*, K.ImeArt, T.ImeTipC FROM PerCenCeni C
    INNER JOIN KatArt K ON C.Sifra_Art = K.Sifra_Art
    INNER JOIN TipPerCenovnik T ON C.Sifra_TipC = T.Sifra_TipC
    WHERE 1=1'
    If @Datum_Od IS NOT NULL
        SET @SSQL = @SSQL + ' AND C.Datum_Od = ''' + Cast(@Datum_Od as varchar(35)) + ''' '
    If @Sifra_TipC IS NOT NULL
        SET @SSQL = @SSQL + ' AND C.Sifra_TipC = ''' + Cast(@Sifra_TipC as varchar(15)) + ''' '
    SET @SSQL = @SSQL + ' ORDER BY C.Datum_Od, C.Sifra_TipC, C.Sifra_Art'
    EXEC(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledplannarac]'))
drop procedure [dbo].[sp_pregledplannarac]

Go
CREATE PROCEDURE sp_PregledPlanNarac
    @Sifra_Kup    char(6),
    @Sifra_Art_Od    varchar(20),
    @Sifra_Art_Do    varchar(20),
    @Sifra_Gr    varchar(6),
    @Sifra_Podg    char(6),
    @Sifra_Obj    smallint,
    @Lokacija    char(10)
 AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = ' Select P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, P.Sifra_Art, K.ImeArt,
                P.Den1, P.Den2, P.Den3, P.Den4, P.Den5, P.Den6, P.Den7, P.Den8, P.Den9, P.Den10
            From PlanPer P
            Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
            Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
            Left Outer Join Komint Kup On Kup.Sifra_Kup = P.Sifra_kup
            Left Outer Join KObjekti KO On KO.Sifra_Kup = P.Sifra_kup and KO.Sifra_Obj=P.Sifra_Obj
            Where 1=1 '
    If @Sifra_Kup Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Kup = ''' + @Sifra_Kup + ''' '
    If @Sifra_Art_Od Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Art >= ''' + @Sifra_Art_Od + ''' '
    If @Sifra_Art_Do Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Art <= ''' + @Sifra_Art_Do + ''' '
    If @Sifra_Podg Is Not Null
        Set @SSQL = @SSQL + ' and K.Sifra_Podg = ''' + @Sifra_Podg + ''' '
    If @Sifra_Gr Is Not Null
        Set @SSQL = @SSQL + ' and PG.Sifra_GR = ''' + @Sifra_Gr + ''' '
    If @Sifra_Obj Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Obj = ' + cast(@Sifra_Obj as varchar(6)) + ' '
    If @Lokacija Is Not Null
        Set @SSQL = @SSQL + ' and Rtrim(Ltrim(K.Lokacija)) = ''' + Ltrim(Rtrim(@Lokacija)) + ''' '
print @SSQL
Exec (@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledplannaraczaden]'))
drop procedure [dbo].[sp_pregledplannaraczaden]

Go

CREATE PROCEDURE [dbo].[sp_PregledPlanNaracZaDen]
    @Sifra_Oe    smallint = 1,
    @Sifra_Kup_Od    char(6) = Null,
    @Sifra_Kup_Do    char(6) = Null,
    @Den        smallint,
    @Sifra_Reg_Od    smallint = Null,
    @Sifra_Reg_Do    smallint = Null,
    @BezRelacija     char(1) =  'N',
    @Sifra_Obj    smallint = Null
AS
    Declare @SSQL Varchar(4000)
    Set @SSQL = ' Select P.Sifra_Kup, Kup.ImeKup, P.Sifra_Obj, KO.ImeObj, P.Sifra_Art, K.ImeArt, K.DogCena, K.EdMera, T.ProcOsn, K.Sifra_Tar, '
    If @Den = 1
        Set @SSQL = @SSQL + ' P.Den1 Kolic,'
    Else If @Den = 2
        Set @SSQL = @SSQL + ' P.Den2 Kolic,'
    Else If @Den = 3
        Set @SSQL = @SSQL + ' P.Den3 Kolic,'
    Else If @Den = 4
        Set @SSQL = @SSQL + ' P.Den4 Kolic,'
    Else If @Den = 5
        Set @SSQL = @SSQL + ' P.Den5 Kolic,'
    Else If @Den = 6
        Set @SSQL = @SSQL + ' P.Den6 Kolic,'
    Else If @Den = 7
        Set @SSQL = @SSQL + ' P.Den7 Kolic,'
    Else If @Den = 8
        Set @SSQL = @SSQL + ' P.Den8 Kolic,'
    Else If @Den = 9
        Set @SSQL = @SSQL + ' P.Den9 Kolic,'
    Else If @Den = 10        Set @SSQL = @SSQL + ' P.Den10 Kolic,'
    If @Sifra_Oe = 1
        Set @SSQL = @SSQL + ' KO.KDrugo4 Sifra_RegObj,  DR4.Ime_4K ImeRegionObj, Kup.KDrugo4 Sifra_regKup, D4.Ime_4K ImeRegionKup '
    Else
        Set @SSQL = @SSQL + ' KO.Sifra_reg Sifra_RegObj, GR.ImeRegion ImeRegionObj, Kup.Sifra_Reg Sifra_regKup, R.ImeRegion ImeRegionKup '
    Set @SSQL = @SSQL + ' From PlanPer P
                Inner Join Katart K On K.Sifra_Art = P.Sifra_Art
                Inner Join Podgrupi PG On PG.Sifra_Podg = K.Sifra_Podg
                Left Outer Join Komint Kup On Kup.Sifra_Kup = P.Sifra_kup
                Left Outer Join KObjekti KO On KO.Sifra_Kup = P.Sifra_kup and KO.Sifra_Obj=P.Sifra_Obj
                Inner Join Tarifi T On T.Sifra_Tar = K.Sifra_Tar '
    If @Sifra_Oe = 1
        Set @SSQL = @SSQL + ' Left Outer Join KDrugo4 D4 On D4.Sifra_4k = Kup.KDrugo4
                      Left Outer Join KDrugo4 DR4 On DR4.Sifra_4k = KO.KDrugo4 '
    Else
        Set @SSQL = @SSQL + ' Left Outer Join Gregion R On R.Sifra_reg = Kup.Sifra_reg
                       Left Outer Join Gregion GR On GR.Sifra_reg = KO.Sifra_reg '
    Set @SSQL  = @SSQL + ' Where 1=1 '
    If @Sifra_Oe Is Not Null
         Begin
        If @Sifra_oe = 1
            Set @SSQL = @SSQL + ' And ltrim(rtrim(K.Lokacija)) = ''1'' '
        Else
            Set @SSQL = @SSQL + ' And (ltrim(rtrim(K.Lokacija)) <> ''1'' Or K.Lokacija is Null) '
         End
    If @Sifra_Kup_Od Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Kup >= ''' + @Sifra_Kup_Od + ''' '
    If @Sifra_Kup_Do Is Not Null
        Set @SSQL = @SSQL + ' and P.Sifra_Kup <= ''' + @Sifra_Kup_Do + ''' '
    If @Sifra_Obj Is NOT Null
          SET @SSQL = @SSQL + 'AND P.Sifra_Obj=' + Cast(@Sifra_Obj As Varchar(6)) + ' '
    If @Sifra_Reg_Od Is Not Null
         Begin
        If @Sifra_Oe = 1
            Set @SSQL = @SSQL + ' And ((KO.Kdrugo4 Is Not Null And KO.KDrugo4 >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')
                        OR ( KO.KDrugo4 Is Null and KUP.KDrugo4 >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')) '
           Else
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')
                        OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg >= ''' + cast(@Sifra_Reg_Od as varchar(6)) + ''')) '
               End
    If @Sifra_Reg_Do Is Not Null
         Begin
        If @Sifra_Oe = 1
            Set @SSQL = @SSQL + ' And ((KO.Kdrugo4 Is Not Null And KO.KDrugo4 <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')
                        OR ( KO.KDrugo4 Is Null and KUP.KDrugo4 <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')) '
           Else
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')
                        OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg <= ''' + cast(@Sifra_Reg_Do as varchar(6)) + ''')) '
               End
    If @BezRelacija = 'D'
         Begin
        If @Sifra_Oe = 1
            Set @SSQL = @SSQL + ' And (KO.Kdrugo4 Is Null And KUP.KDrugo4 is Null) '
           Else
            Set @SSQL = @SSQL + ' And (KO.Sifra_Reg Is Null And KUP.Sifra_Reg Is Null) '
               End
    Set @SSQL = @SSQL + ' Order By P.Sifra_art '
Exec (@SSQL)





Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpobrojnapotvrda]'))
drop procedure [dbo].[sp_pregledpobrojnapotvrda]

Go

CREATE  PROCEDURE [dbo].[sp_PregledPoBrojNaPotvrda]

    @PotvrdaBr_Od    varchar(20) = Null,
    @PotvrdaBr_Do    varchar(20) = Null,
    @Sifra_Art        varchar(20) = Null,
    @Datum_Od        smalldatetime = Null,
    @Datum_Do        smalldatetime = Null,
    @GarancBr        varchar(30) = Null

AS

    Declare @SSQL as varchar(8000)

    Create Table #Rez
    (
        PotvrdaBr    varchar(20),
        DokrID        int
    )

    Set @SSQL = ' Select Distinct K.PotvrdaBr
            From KatSerKlas K
            Inner Join MagStavr M On M.Sifra_Art=K.Sifra_Art And M.SpecOzn=K.KontrSer
            Inner Join Dokr D On D.DokrID=M.DokrID
            Where K.PotvrdaBr is not null and K.PotvrdaBr <> '''' '

    if @PotvrdaBr_Od is not null and @PotvrdaBr_Do is not null
        set @SSQL = @SSQL + ' and K.PotvrdaBr >=''' + @PotvrdaBr_Od + ''' '
    else if @PotvrdaBr_Od is not null
        set @SSQL = @SSQL + ' and K.PotvrdaBr =''' + @PotvrdaBr_Od + ''' '

    if @PotvrdaBr_Do is not null
        set @SSQL = @SSQL + ' And K.PotvrdaBr <=''' + @PotvrdaBr_Do + ''' '

    if @GarancBr is not null
        set @SSQL = @SSQL + ' and K.GarancBr =''' + @GarancBr + ''' '

    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art = ''' + @Sifra_Art + ''' '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    Insert Into #Rez(PotvrdaBr) Exec(@SSQL)

    Set @SSQL = ' Update #Rez Set DokrID = D.DokrID
            From Dokr D
            Inner Join MagStavr M On M.DokrID=D.DokrID
            Inner Join KatSerKlas K On K.Sifra_Art=M.Sifra_Art And K.KontrSer=M.SpecOzn
            Where #Rez.PotvrdaBr=K.PotvrdaBr
            And D.Sifra_Dok=18 And (D.SPCK_STAT Is Null Or D.SPCK_STAT <> ''S'')
            And #Rez.DokrID Is Null '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art = ''' + @Sifra_Art + ''' '
    Exec(@SSQL)

    Set @SSQL = ' Update #Rez Set DokrID = D.DokrID
            From Dokr D
            Inner Join MagStavr M On M.DokrID=D.DokrID
            Inner Join KatSerKlas K On K.Sifra_Art=M.Sifra_Art And K.KontrSer=M.SpecOzn
            Where #Rez.PotvrdaBr=K.PotvrdaBr
            And D.Sifra_Dok=100
            And #Rez.DokrID Is Null '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art = ''' + @Sifra_Art + ''' '
    Exec(@SSQL)

    Set @SSQL = ' Update #Rez Set DokrID = D.DokrID
            From Dokr D
            Inner Join MagStavr M On M.DokrID=D.DokrID
            Inner Join KatSerKlas K On K.Sifra_Art=M.Sifra_Art And K.KontrSer=M.SpecOzn
            Where #Rez.PotvrdaBr=K.PotvrdaBr
            And D.Sifra_Dok=1
            And #Rez.DokrID Is Null '
    If @Datum_Od Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok >= ''' + Cast(@Datum_Od as varchar(30)) + ''' '
    If @Datum_Do Is Not Null
        Set @SSQL = @SSQL + ' And D.Datum_Dok <= ''' + Cast(@Datum_Do as varchar(30)) + ''' '
    If @Sifra_Art Is Not Null
        Set @SSQL = @SSQL + ' And K.Sifra_Art = ''' + @Sifra_Art + ''' '
    Exec(@SSQL)

    Select D.DokrID, D.Sifra_OE, D.Sifra_Dok, D.Broj_Dok, D.Datum_Dok,
                dbo.fn_VratiDatum(D.Datum_Vnes) Datum_Vnes, dbo.fn_VratiVreme(D.Datum_Vnes) Vreme_Vnes,
                D.VlIzl, D.Sifra_Za, D.Sifra_Nal, D.Broj_Nal, D.Identif_Br,
                D.Sifra_Kup, K.ImeKup, K.Smesto, D.Sifra_Obj, KO.ImeObj, KO.Smesto as ObjSmesto,
                D.Rok, D.Kto, D.Toc200, D.MagVr, D.MagVrDan, D.Marza, D.Danok1, D.Danok2, D.PDanok1, D.PDanok2, D.PTrosok, D.DanDokCena,
                TD.ImeDok, O.ImeOrg, D.Sifra_Oper, D.Sifra_OpIz, D.Datum_Izm , D.Datum_Vnes as Datum_Vnes_Cel,
                TD.DaliFisc, D.Pec_Fisc, D.Dat_Pec_Fisc,
                MS.SpecOzn SerBr, KS.KontrSerExt, KS.AltKontrSer, KS.GOdProiz, KS.Opis, KS.Sifra_3, D3.Ime_3, D2.Sifra_2, D2.Ime_2,
                MS.Sifra_Art, Art.ImeArt, D.Sifra_Kor, Kor.ImeKor, TD.Plus_Minus, R.PotvrdaBr, KS.GarancBr
                FROM DOKR D
                INNER JOIN TipDok TD ON D.Sifra_Dok=TD.Sifra_Dok
                INNER JOIN Orged O ON D.Sifra_OE=O.Sifra_OE
                LEFT OUTER JOIN Komint K ON D.Sifra_Kup=K.Sifra_Kup
                LEFT OUTER JOIN KObjekti KO ON KO.Sifra_Kup=D.Sifra_Kup and KO.Sifra_Obj=D.Sifra_Obj
                LEFT OUTER JOIN KartKor Kor on Kor.Sifra_oe = 1 and Kor.Sifra_Kor = D.SifrA_Kor
                Inner Join MagStavr MS on MS.DokrId = D.DokrId
                Inner Join Katart Art on Art.Sifra_Art = MS.Sifra_Art
                Left Outer Join KatSerKlas KS  on MS.Sifra_Art = KS.SifrA_Art and MS.SpecOzn = KS.KontrSer
                Left Outer Join Drugo3 D3 on D3.SifrA_3 = KS.Sifra_3
                Left Outer Join Drugo2 D2 on D2.Sifra_2 = Art.Drugo2
                --Inner Join #Rez R On R.PotvrdaBr=KS.PotvrdaBR
                Inner Join #Rez R On R.DokrId = D.DokrId






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpodelosnsred]'))
drop procedure [dbo].[sp_pregledpodelosnsred]

Go

create  procedure sp_PregledPodelOsnSred
    @Inv_broj_Od char(10)= null,
    @Inv_broj_Do char(10)= null,
    @Sifra_OsnGrPodel smallint= null,
    @Sifra_OsnPodel smallint= null
As
    Declare @SSQL as varchar(8000)
    Set @SSQL= 'Select OPS.*, OP.Vrednost, OGP.ImeOsnGrPodel, OS.Ime
                From OsnPodelSta OPS
                Inner Join OsnPodelbi OP on OPS.Sifra_OsnPOdel= OP.Sifra_OsnPOdel and OPS.Sifra_OsnGRPodel = OP.Sifra_OsnGrPodel
                Inner Join OsnGrPodel OGP ON OPS.Sifra_OsnGRPodel = OGP.Sifra_OsnGrPodel
                Inner Join OsnSred OS on Ops.Inv_Broj=OS.Inv_broj
                Where 1=1'
    If @Inv_broj_Od Is NOT Null
              SET @SSQL = @SSQL + ' AND OPS.Inv_broj>=''' + @Inv_Broj_Od + ''' '
    If @Inv_broj_Do Is NOT Null
              SET @SSQL = @SSQL + 'AND OPS.Inv_broj<=''' + @Inv_Broj_Do + ''' '
    If @Sifra_OsnGrPodel Is NOT Null
              SET @SSQL = @SSQL + 'AND OPS.Sifra_OsnGrPodel= ' +cast (@Sifra_OsnGrPodel as varchar(12)) + ' '
    If @Sifra_OsnPodel Is NOT Null
              SET @SSQL = @SSQL + 'AND OPS.Sifra_OsnPodel= ' + cast (@Sifra_OsnPodel as varchar(12)) + ' '
Print @SSQL
Exec(@SSQL)






Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpodracnisluzbi]'))
drop procedure [dbo].[sp_pregledpodracnisluzbi]

Go

create  PROCEDURE sp_PregledPodracniSluzbi

    @Sifra_PodrSluzba_Od    char(4),
    @Sifra_PodrSluzba_Do    char(4),
    @PocCifriKniska        char(3),
    @Sifra_PodrSluzba_Fakt    char(4)
AS
    Declare @SSQL as varchar(8000)

    Set @SSQL = ' Select P.Sifra_PodrSluzba, P.ImePodrSluzba, P.PocCifriKniska, P.Sifra_PodrSluzba_Fakt, PF.ImePodrSluzba ImePodrSluzbaFakt
            From PodracniSluzbi P
            Left Outer Join PodracniSluzbi PF On PF.Sifra_PodrSluzba=P.Sifra_PodrSluzba_Fakt
            Where 1=1 '
    If @Sifra_PodrSluzba_Od Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_PodrSluzba >= ''' + @Sifra_PodrSluzba_Od + ''' '
    If @Sifra_PodrSluzba_Do Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_PodrSluzba <= ''' + @Sifra_PodrSluzba_Do + ''' '
    If @PocCifriKniska Is Not Null
        Set @SSQL=@SSQL + ' And P.PocCifriKniska = ''' + @PocCifriKniska + ''' '
    If @Sifra_PodrSluzba_Fakt Is Not Null
        Set @SSQL=@SSQL + ' And P.Sifra_PodrSluzba_Fakt = ''' + @Sifra_PodrSluzba_Fakt + ''' '
    Exec(@SSQL)




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledpopis]'))
drop procedure [dbo].[sp_pregledpopis]

Go
CREATE   PROCEDURE sp_PregledPopis
    @Sifra_OE smallint,
    @Datum smalldatetime
AS
    Declare @SSQL varchar(8000)
    Set @SSQL = 'SELECT P.Sifra_OE, P.Datum,  P.Opis, P.Celosen, P.Zatvoren, P.Sifra_DokK, P.Sifra_DokV, P.Broj_dok_k, P.Broj_dok_v, P.Izmenet, P.Sifra_Kup, O.ImeOrg,
                dbo.fn_PopisObraboten(IdPopis) Obraboten
        FROM Popis P
        LEFT OUTER JOIN OrgEd O ON P.Sifra_OE = O.Sifra_OE
        WHERE 1=1 '
    If @Sifra_OE IS NOT NULL
        Set @SSQL = @SSQL + ' AND P.Sifra_OE = ' + Cast(@Sifra_OE As varchar(5))
    If @Datum IS NOT NULL
        Set @SSQL = @SSQL + ' AND P.Datum = ''' + Cast(@Datum As varchar(30)) + ''' '
    Set @SSQL = @SSQL + ' ORDER BY P.IDPopis'
Print @SSQL
EXEC (@SSQL)



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledprivilegii]'))
drop procedure [dbo].[sp_pregledprivilegii]

Go


CREATE   procedure sp_PregledPrivilegii
As
    select Sifra_GrKor,Operacija, Gener_Moze, Vnes, Izmena, Brisenje, Pregled, '' as Opis from privilegii
    order by Sifra_GrKor, operacija




Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledprivilegiiorgtip]'))
drop procedure [dbo].[sp_pregledprivilegiiorgtip]

Go
Create procedure sp_PregledPrivilegiiOrgTip
As
    select *, O.ImeOrg,T.ImeDok From PrivilOrgTip P
    left outer join OrgEd O on P.Sifra_OE=O.Sifra_OE
    left outer join TipDok T on P.Sifra_Dok= T.Sifra_Dok
    Order by sifra_grkor



Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledprodmest]'))
drop procedure [dbo].[sp_pregledprodmest]

Go


CREATE           PROCEDURE [dbo].[sp_PregledProdMest]
    @Sifra_Kup    varchar(6),
    @Sifra_Mest    int,
    @DaliAktiven    char(1) = Null,           --  A - 'Aktivni   N - 'Ne Aktivni'     Null - 'Site'
    @KoiProdMest    char(1) = Null,            --  S - 'Site'       L - 'Na Lager'       U - 'Vo Upotreba'
    @Sifra_reg    smallint = Null,
    @Posrednik    char(6) = NULL,
    @Sifra_Grad    smallint = Null,
    @DaliSporen    char(1) = NULL,
    @Sif_TipProdM smallint = NULL,
    @Pod2 Smallint = Null,
    @GrKup     varchar(500) = Null,
    @TipKup VarChar(300) = Null,
    @Sifra_Pat     smallint= null,
    @PatOdKomintPat    char(1) = 'N'
--    @Koi_Gradovi    varchar(2000 = Null,
--    @Koi_Regioni    varchar(2000 = Null                     sifra_reg treba da se Izbrise
AS
    Declare @SSQL as Varchar(2000)
        Declare @SSQLGr as Varchar(2000)
        If @GrKup Is Not Null
    Begin
            CREATE   Table #KupObj
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        CREATE   Table #KupObj1
        (
            Sifra_Kup    char(6),
            Sifra_Obj    smallint
        )
        Set @SSQLGr = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj) Select Distinct Sifra_Kup, Sifra_Obj From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Not Null '
        Exec(@SSQLGr)

        Set @SSQLGr = ' Insert Into #KupObj1 (Sifra_Kup, Sifra_Obj)
                Select Distinct GK.Sifra_Kup, KOB.Sifra_Obj
                From SGrKupObj GK
                Inner Join Kobjekti KOB On GK.Sifra_Kup = KOB.Sifra_Kup
                Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Obj Is Null '
                --Where GK.Sif_GrKup In (' + @GrKup + ') And GK.Sifra_Kup+Cast(KO.Sifra_Obj as char(4)) Not In (Select Sifra_Kup+Cast(Sifra_Obj as char(6)) From #KupObj) And GK.Sifra_Obj Is Null '
        Exec(@SSQLGr)

        Set @SSQLGr = ' Insert Into #KupObj1 (Sifra_Kup) Select Distinct Sifra_Kup From SGrKupObj Where Sif_GrKup In (' + @GrKup + ') And Sifra_Obj Is Null '
        Exec(@SSQLGr)
        INSERT INTO #KupObj SELECT DISTINCT Sifra_Kup, Sifra_Obj FROM #KupObj1
    End

                            -- , K.Adresa, KO.Adresa
    Set @SSQL= ' Select K.ImeKup, PM.*, KO.ImeObj, K.Sifra_Reg, R.ImeRegion, K.DogovorBroj,
    K.Adresa AdresaKup, K.SMesto MestoKup, K.Telefon TelefonKup,
    KO.Adresa AdresaObj, KO.SMesto MestoObj, KO.Telefon TelefonObj,
    KO.Sifra_Reg Sifra_RegObj, GR.ImeRegion ImeRegionObj,
        PR.ImeKup ImeProizv, PR.Adresa ProizvAdresa, Posr.ImeKup ImePosr, Posr.Adresa PosrAdresa,
        TPM.ImeTipProdM
    From ProdMest PM
    Left Outer Join Komint K On PM.Sifra_Kup=K.Sifra_Kup
    Left Outer Join KObjekti KO On KO.Sifra_Kup = PM.Sifra_Kup and KO.Sifra_Obj = PM.Sifra_Obj
    Left Outer Join GRegion R On R.Sifra_Reg = K.Sifra_Reg
    Left Outer Join GRegion GR On GR.Sifra_Reg = KO.Sifra_Reg
        Left Outer Join Komint PR On PM.Proizv=PR.Sifra_Kup
        Left Outer Join Komint Posr On PM.Posrednik=Posr.Sifra_Kup
        LEFT OUTER JOIN TipProdMesto TPM On TPM.Sif_TipProdM = PM.Sif_TipProdM '
    If @GrKup Is Not Null
        Set @SSQL = @SSQL + ' Inner Join #KupObj GK On GK.Sifra_Kup=PM.Sifra_Kup
                      And (Case When PM.Sifra_Obj Is Not Null Then PM.Sifra_Obj Else 1234 End) = (Case When GK.Sifra_Obj Is Not Null Then GK.Sifra_Obj Else 1234 End)  '
    Set @SSQL = @SSQL + ' Where 1=1 '
        If @Sifra_Kup Is Not Null
        Set @SSQl = @SSQL + ' and PM.Sifra_Kup = ' + @Sifra_Kup  + ' '
    If @Sifra_Mest Is Not Null
        Set @SSQL = @SSQL + ' and PM.Sifra_Mest= ' + cast(@Sifra_Mest as varchar(6)) + ' '
    If @Sifra_Reg Is Not Null
        Set @SSQL = @SSQL + ' and ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(6)) + ')
            OR ( KO.Sifra_Reg Is Null and K.Sifra_Reg = ' + cast(@Sifra_Reg as varchar(6)) + ')) '
    If @Sifra_Grad Is Not Null
        Set @SSQL = @SSQL + ' and ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad = ' + cast(@Sifra_Grad as varchar(6)) + ')
            OR ( KO.Sifra_Grad Is Null and K.Sifra_Grad = ' + cast(@Sifra_Grad as varchar(6)) + ')) '
    If @Posrednik Is Not Null
        Set @SSQL = @SSQL + ' and PM.Posrednik = ''' + @Posrednik + ''' '
/*    If @Koi_Gradovi Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Grad Is Not Null And KO.Sifra_Grad In (' + @Koi_Gradovi + '))
            OR ( KO.Sifra_Grad Is Null and KUP.Sifra_Grad In ( ' + @Koi_Gradovi + '))) '
        End
    If @Koi_Regioni Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.Sifra_Reg Is Not Null And KO.Sifra_Reg In (' + @Koi_Regioni + '))
            OR ( KO.Sifra_Reg Is Null and KUP.Sifra_Reg In ( ' + @Koi_Regioni + '))) '
        End
*/    If @KoiProdMest = 'S'
          Begin
        If @DaliAktiven Is Not Null
            Begin
            If @DaliAktiven = 'N'
                Set @SSQL = @SSQL + ' And PM.DaliAktiven = ''N'' '
            Else
                Set @SSQL = @SSQL + '  And (PM.DaliAktiven <> ''N'' or PM.DaliAktiven Is Null) '
            End
          End
    If @KoiProdMest = 'L'
         Begin
         Set @SSQL = @SSQL + ' And  PM.Sifra_Kup Is Null '
        If @DaliAktiven Is Not Null
            Begin
            If @DaliAktiven = 'N'
                Set @SSQL = @SSQL + ' And PM.DaliAktiven = ''N'' '
            Else
                Set @SSQL = @SSQL + ' And (PM.DaliAktiven <> ''N'' or PM.DaliAktiven Is Null) '
            End
         End
    If @KoiProdMest = 'U'
         Begin
         Set @SSQL = @SSQL + ' And  PM.Sifra_Kup Is Not Null '
        If @DaliAktiven Is Not Null
            Begin
            If @DaliAktiven = 'N'
                Set @SSQL = @SSQL + ' And PM.DaliAktiven = ''N'' '
            Else
                Set @SSQL = @SSQL + '  And (PM.DaliAktiven <> ''N'' or PM.DaliAktiven Is Null) '
            End
         End
    IF @DaliSporen = 'D'
        Set @SSQL = @SSQL + ' And PM.DaliSporen = ''D'' '
    Else IF @DaliSporen = 'N'
        Set @SSQL = @SSQL + ' And (PM.DaliSporen IS NULL OR PM.DaliSporen <> ''D'') '
    If @Sif_TipProdM Is Not Null
        Set @SSQL = @SSQL + ' and PM.Sif_TipProdM= ' + cast(@Sif_TipProdM as varchar(6)) + ' '
    If @Pod2 Is Not NULL
        Set @SSQL = @SSQL + ' And ((KO.KDrugo2 Is Not Null And KO.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')
                        Or (KO.KDrugo2 Is Null And K.KDrugo2 = ' + Cast(@Pod2 As Varchar(6)) + ')) '
    If @TipKup Is Not NULL
        Begin
            Set @SSQL = @SSQL + ' And ((KO.TipKup Is Not Null And KO.TipKup In (' + @TipKup + '))
                               OR ( KO.TipKup Is Null and K.TipKup In ( ' + @TipKup + '))) '
        End
    If @PatOdKomintPat = 'D'
      Begin
        If @Sifra_Pat IS NOT NULL
            SET @SSQL = @SSQL + ' AND PM.Sifra_Kup In (Select Sifra_Kup From KomintPat Where Sifra_Pat = ' + Cast(@Sifra_Pat as varchar(5)) + ') '

      End
    Else
      Begin
        If @Sifra_Pat Is Not Null
           Set @SSQL = @SSQL + ' and PM.Sifra_Pat= ' + cast(@Sifra_Pat as varchar(6)) + ' '
      End

    Set @SSQL = @SSQL + ' Order By PM.Sifra_mest '
    Exec (@SSQL)












Go
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pregledrecepti]'))
drop procedure [dbo].[sp_pregledrecepti]

Go




CREATE  PROCEDURE [dbo].[sp_PregledRecepti]
    @Broj_Recept        int=null,
    @Broj_Recept_Do    int=null,
    @Sifra_Apteka        char(2)=null,
    @Sifra_Apteka_Do    char(2)=null,
    @Datum_Recept_Od    smalldatetime = Null,
    @Datum_Recept_Do    smalldatetime = Null,
    @Datum_Izdav_Od        smalldatetime = Null,
    @Datum_Izdav_Do        smalldatetime = Null,
    @Sifra_Lekar        char(6) = Null,
    @Sifra_Lekar_Spec    char(6) = Null,
    @Sifra_Dijagn        char(5) = Null,
    @Sifra_Farmacevt    char(6) = Null,
    @Sifra_Lek        varchar(20) = Null,
    @Godina_Fra        smallint = Null,
    @Specif_Br        char(6) = Null,
    @Faktura_Br        char(6) = Null,
    @LekoviBezPriem    char(1) = Null,
        @PodracnaSluzba    char(4) = Null,
    @PrazenEMBG char(1)    = Null,
    @DaliSpecifiki char(1)    = Null,
    @SamoNeg       char(1) = 'N',
    @SamoNekomp       char(1) = 'N'
AS

       Declare @SSQL as Varchar(8000)
       Set @SSQL = ' Select  R.*, Lek1.ImeLekar as ImeLekarMatic, Lek2.ImeLekar as ImeLekarSpec,
                       L.ImeArt, A.ImeATC, F.ImeFarmacevt, D.ImeDijagn, Os.ImeOsnovOSig, P.ImePacient, Ap.ImeApteka,
                   Month(R.Datum_Izdav) MesIzdav, Year(R.Datum_Izdav) GodIzdav, L.Alt_Ime,
                substring(R.sifra_Kompanija, 1, 4) Kompanija
                        From Recepti R
                        Left Outer Join Lekari Lek1 on R.Sifra_Lekar = Lek1.Sifra_Lekar
                        Left Outer Join Lekari Lek2 on R.Sifra_Lekar_Spec = Lek2.Sifra_Lekar
                        Left Outer Join KatArt L on R.Sifra_Art = L.Sifra_Art
                        Left Outer Join ATCKodovi A on R.Sifra_ATC = A.Sifra_ATC
                        Left Outer Join Farmacevt F on R.Sifra_Farmacevt = F.Sifra_Farmacevt
                        Left Outer Join Dijagnozi D on R.Sifra_Dijagn = D.Sifra_Dijagn
                        Left Outer Join OsnovOsig Os on R.Sifra_OSnovOsig = Os.Sifra_OsnovOSig
                        Left Outer Join Apteka Ap on R.Sifra_Apteka = Ap.Sifra_Apteka
                        Left Outer Join Pacienti P ON R.EMBG=P.EMBG
                left outer join PodracniSluzbi PS
                    on substring(R.sifra_Kompanija, 1, 4) = PS.Sifra_PodrSLuzba
                        Where 1=1 '
    If @Sifra_Apteka Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Apteka >= ''' + @Sifra_Apteka + ''' '
    If @Sifra_Apteka_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Apteka <= ''' + @Sifra_Apteka_Do + ''' '
    If @Broj_Recept Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_Recept >= ' + Cast(@Broj_Recept as varchar(6)) + ' '
    If @Broj_Recept_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Broj_Recept <= ' + Cast(@Broj_Recept_Do as varchar(6)) + ' '
    If @Datum_Recept_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Recept >= ''' + Cast(@Datum_Recept_Od as varchar(30)) + ''' '
    If @Datum_Recept_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Recept <= ''' + Cast(@Datum_Recept_Do as varchar(30)) + ''' '
    If @Datum_Izdav_Od Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Izdav >= ''' + Cast(@Datum_Izdav_Od as varchar(30)) + ''' '
    If @Datum_Izdav_Do Is Not Null
        Set @SSQL = @SSQL + ' And R.Datum_Izdav <= ''' + Cast(@Datum_Izdav_Do as varchar(30)) + ''' '
    If @Sifra_Lekar Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Lekar = ''' + @Sifra_Lekar + ''' '
    If @Sifra_Lekar_Spec Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Lekar_Spec = ''' + @Sifra_Lekar_Spec + ''' '
    If @Sifra_Dijagn Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Dijagn = ''' + @Sifra_Dijagn + ''' '
    If @Sifra_Farmacevt Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifra_Farmacevt = ''' + @Sifra_Farmacevt + ''' '
    If @Sifra_Lek Is Not Null
        Set @SSQL = @SSQL + ' And R.Sifr