SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

IF EXISTS (SELECT * FROM sysobjects WHERE name = 'my_ImpDM_Src' AND user_name(uid) = 'CDN')
	DROP PROCEDURE [CDN].my_ImpDM_Src
GO
/*
----  2019.03.11 - KC: zmiana w treści opisy pozycji noty oraz treści noty: dla zakupu i sprzedaży: kontrahent + opis z pozycji dekretu,
                       dla wewnętrznych - opis z pozycji dekretu. Z opisu pozycji dekretu źródłowego wyciąć numer dokumentu, gdy jest poza nim jakiś opis.
*/
CREATE PROCEDURE [CDN].[my_ImpDM_Src]
(
  @SP int,        -- 1 - uwzględniać WZ, WZE i ich korekty oraz KK
  @ZAK int,       -- 1 - uwzględniać PZ, PZI i ich korekty
  @WEW int,       -- 1 - uwzględniać RW, PW i ich korekty
  @RM int,        -- TrN_RokMiesiac
  @Rok int,       -- Rok 
  @Miesiac int,    -- Miesiąc
  @Konto varchar(200), -- numer konta
  @Import int        --flaga importu: 0 - niezaimportowane, 1 - zaimportowane, 2 - wszystkie
)
AS
  SET NOCOUNT ON;

set @Konto = @Konto + '%'

  declare @TN table(Dokument varchar(255), RokMiesiac int, TrN_GIDTyp int, TrN_GIDNumer int, TrN_Zaksiegowano int, DataDok int, Magazyn varchar(30), Kontrahent varchar(50), NagOpis varchar(80), DokKoryg varchar(40))
  insert into @TN
    select CDN.NazwaObiektu(TrN_GIDTyp, TrN_GIDNumer, 0, 2) as Dokument, TrN_RokMiesiac as RokMiesiac, TrN_GIDTyp, TrN_GIDNumer, TrN_Zaksiegowano, TrN_Data3, isnull(MAG_Kod, ''), isnull(Kontrahent, ''), isnull(Opis, ''), dokkor
    from (select TrN_GIDTyp, TrN_GIDNumer, TrN_RokMiesiac, TrN_Zaksiegowano, TrN_Data3, MAG_Kod, Kontrahent = Knt_Akronim, Opis = SUBSTRING(TnO_Opis, 1, 80),
                 case when TrN_GIDTyp in (1624, 1625, 1497, 1498, 2009, 2013) or TrN_VatKorekta > 0 then cdn.NazwaObiektu(TrN_ZwrTyp, TrN_ZwrNumer, 0, 2) else '' end as dokkor
          from CDN.TraNag with (nolock) left outer join CDN.Magazyny on TrN_MagDNumer = MAG_GIDNumer and TrN_MagDTyp = MAG_GIDTyp
                                        left outer join CDN.KntKarty on TrN_KntNumer = Knt_GIDNumer and TrN_KntTyp = Knt_GIDTyp
                                        left outer join CDN.TrNOpisy on TrN_GIDNumer = TnO_TrnNumer
          where TrN_Zaksiegowano > 0 and TrN_RokMiesiac = @RM and 
                ( case when @WEW > 0 then case TrN_GIDTyp when 1616 then 1 when 1624 then 1 when 1617 then 1 when 1625 then 1 else 0 end else 0 end > 0 or 
                  case when @ZAK > 0 then case TrN_GIDTyp when 1489 then 1 when 1497 then 1 when 1490 then 1 when 1498 then 1 else 0 end else 0 end > 0 or 
                  case when @SP  > 0 then case TrN_GIDTyp when 2001 then 1 when 2005 then 1 when 2009 then 1 when 2013 then 1 when 2003 then 1 else 0 end else 0 end > 0)) TTT

  declare @DZV table(DZK_Opis varchar(200), DZK_Rok int, DZK_Miesiac int, DZK_Dzien int, DZK_DokumentZrodlowy varchar(60), DZK_GIDNumer int, DZK_Dziennik varchar(5), CT_Kwota decimal(21,2), DT_Kwota decimal(21,2), DT_DataCentrali int)
  insert into @DZV
    select distinct DEL_Opis, DZK_Rok, DZK_Miesiac, DZK_Dzien, DZK_DokumentZrodlowy, DZK_GIDNumer, DZK_Dziennik, CT_Kwota = DZK_SumaCT, DT_Kwota = DZK_SumaDT, DT.DT_DataCentrali
    FROM  CDN.Dziennik inner join CDN.DziennikElem on DZK_GIDNumer = DEL_GIDNumer
                       inner join CDN.Dekrety DT on DZK_GIDNumer=DT.DT_GIDNumer AND DT.DT_DC=1
                       INNER JOIN CDN.Dekrety AS CT ON DZK_GIDNumer=CT.DT_GIDNumer AND CT.DT_DC=2
    where DZK_Rok = @Rok and DZK_Miesiac = @Miesiac 
     and (DT.DT_Konto like case when @Konto > '' then @Konto else DT.DT_Konto end or CT.DT_Konto like case when @Konto > '' then @Konto else CT.DT_Konto end)
     and (case when isNull(DT.DT_DataCentrali, 0) > 0  then 1 else 0 end  = case @Import when 0 then 0 when 1 then 1 end or @Import = 2)

  SELECT  Lp = ROW_NUMBER() OVER(ORDER BY Dokument), 
          Dokument, 
--          DZK_Opis = case when TrN_GIDTyp in (1616, 1624, 1617, 1625) then NagOpis else     -- PW/RW
--                     case when TrN_GIDTyp = 2003 then Dokument + '; ' + NagOpis             -- KK
--                                                 else Kontrahent + '; ' + Dokument end end, -- reszta
          DZK_Opis = LTrim(case when TrN_GIDTyp in (1616, 1624, 1617, 1625) then case when Replace(DZK_Opis, Dokument, '') = '' then Dokument else Replace(DZK_Opis, Dokument, '') end      -- PW/RW
                                                                      else Kontrahent + '; ' + case when Replace(DZK_Opis, Dokument, '') = '' then Dokument else Replace(DZK_Opis, Dokument, '') end end), -- reszta
          RokMiesiac, 
          DataWyst = CDN.TsToDate(CDN.Data(DZK_Rok, DZK_Miesiac, DZK_Dzien), 0), 
          DataOper = CDN.TsToDate(DataDok, 0), 
          DokZr = DZK_DokumentZrodlowy, 
          Dekret = DZK_GIDNumer, 
          DZK_Dziennik, 
          SumaCT = CT_Kwota,
          SumaDT = DT_Kwota,
          DataImportu = CDN.TsToDate(coalesce(DT_DataCentrali, 0), 1),
          Magazyn,
          Kontrahent,
--          Opis = NagOpis,
          Opis = LTrim(case when Replace(DZK_Opis, Dokument, '') = '' then Dokument else Replace(DZK_Opis, Dokument, '') end),
          DokKoryg
  FROM  @TN inner join @DZV on substring(DZK_Opis, 1, len(Dokument)) = Dokument
  order by 1