530 lines
20 KiB
Transact-SQL
530 lines
20 KiB
Transact-SQL
-- dbo.ep_Vyroba_GenOdvodZeMzdy
|
||
CREATE PROCEDURE dbo.ep_Vyroba_GenOdvodZeMzdy
|
||
@IDMzdy INT=NULL,
|
||
@bezVyrCis BIT=1,
|
||
@radaOdvod NVARCHAR(3)=NULL,
|
||
@skladOdvod NVARCHAR(30)=NULL,
|
||
@realizujPrijem BIT=0,
|
||
@prevodDoVyssiho BIT=0,
|
||
@kopiiNaTechSklad BIT=1,
|
||
@errMsg NVARCHAR(500)=N'' OUT
|
||
AS
|
||
|
||
-- HD Consulting Strakonice, T. Buzin
|
||
-- !! proceduru neupravujte, bude stejne pregenerovana pri startu Windows sluzby HDCDZApi !!
|
||
-- konfiguraci lze ovlivnit pres tabulku #HDCTabGenOdvodZeMzdyKonfig
|
||
-- pozor, v tom pripade musi byt na rade prikazu sklad pro generovani odvodu roven NULL
|
||
|
||
|
||
SET NOCOUNT ON
|
||
|
||
IF EXISTS(SELECT 1 FROM dbo.TabPrikazMzdyAZmetky WHERE GenerovanoOdvadeni=1 AND ID=@IDMzdy)
|
||
RETURN
|
||
|
||
|
||
DECLARE
|
||
@iTemp INT,
|
||
@aktDatum DATETIME=GETDATE(),
|
||
@datPrijem DATETIME,
|
||
@bChyba BIT,
|
||
@ret INT,
|
||
@cnt INT,
|
||
@jeOdvOper BIT=0,
|
||
@idUziv INT,
|
||
@IDPrikaz INT,
|
||
@IDZakazModif INT,
|
||
@IDPrikazVyssi INT,
|
||
@doklPrPostup INT,
|
||
@altPrPostup NCHAR(1),
|
||
@doklKV INT,
|
||
@IDKmen INT,
|
||
@mjEvid NVARCHAR(10),
|
||
@jeFinal BIT=0,
|
||
@idPZ INT,
|
||
@idPZOld INT,
|
||
@idPZOld2 INT,
|
||
@idPZSberna INT,
|
||
@idSS INT,
|
||
@idVCS INT,
|
||
@idVCP INT,
|
||
@idVPrVC INT,
|
||
@vc NVARCHAR(100),
|
||
@NekontrolMnozOdvedFinal BIT=0,
|
||
@mnozstvi NUMERIC(19,6)=0,
|
||
@mnozstviKA NUMERIC(19,6)=0,
|
||
@radaOdvNaSklad NVARCHAR(3)=N'273',
|
||
@sklProOdvod NVARCHAR(30)=N'261',
|
||
@sklProOdvodHV NVARCHAR(30)=N'262',
|
||
@sklProPolo NVARCHAR(30)=N'311',
|
||
@sklProFinal NVARCHAR(30)=N'312',
|
||
@sklPrijem NVARCHAR(30),
|
||
@radaVPr NVARCHAR(10),
|
||
@idPrij INT,
|
||
@idPrijOld INT,
|
||
@idPrijSberna INT,
|
||
@uklidPomocTab BIT,
|
||
@idPrijKopie INT,
|
||
@sklTechnicky NVARCHAR(30),
|
||
@sklTechnolog NVARCHAR(30),
|
||
@sklTechnologHV NVARCHAR(30),
|
||
@dpz TINYINT,
|
||
@cOrg INT,
|
||
@dzDatum DATETIME,
|
||
@dzMena NVARCHAR(3),
|
||
@dzKurz NUMERIC(19,6),
|
||
@dzKurzE NUMERIC(19,6),
|
||
@vstC TINYINT,
|
||
@jednM INT
|
||
DECLARE
|
||
@idDZPomocPrijem INT,
|
||
@idPZPomocPrijem INT,
|
||
@idSSPomocPrijem INT,
|
||
@mnozPrijem NUMERIC(19,6),
|
||
@idPalety INT,
|
||
@paletList NVARCHAR(100),
|
||
@sarze NVARCHAR(30)
|
||
DECLARE
|
||
@ksOdv NUMERIC(19,6),
|
||
@ksOdv_ks NUMERIC(19,6),
|
||
@idDavkaPomoc INT,
|
||
@mnozDavkaPomoc NUMERIC(19,6)
|
||
|
||
|
||
|
||
|
||
|
||
SET @uklidPomocTab = 0
|
||
|
||
SELECT @jeOdvOper=pp.Odvadeci
|
||
FROM dbo.TabPrikazMzdyAZmetky pmz
|
||
INNER JOIN dbo.TabPrPostup pp ON (pp.IDPrikaz=pmz.IDPrikaz AND pp.Doklad=pmz.DokladPrPostup AND pp.Alt=pmz.AltPrPostup AND pp.IDOdchylkyDo IS NULL)
|
||
WHERE pmz.ID=@IDMzdy
|
||
IF (@jeOdvOper=0)
|
||
RETURN
|
||
|
||
|
||
|
||
|
||
IF OBJECT_ID(N'dbo.TabUserCfg', 'U') IS NOT NULL
|
||
SET @idUziv = (SELECT ID FROM dbo.TabUserCfg WHERE LoginName=SUSER_SNAME())
|
||
SET @idUziv = ISNULL(@idUziv, 0)
|
||
|
||
|
||
-- CREATE TABLE #HDCTabGenOdvodZeMzdyKonfig (RadaOdvodNaSklad NVARCHAR(3), SkladProOdvod NVARCHAR(30), BezVyrobnichCisel BIT=0, IDUziv INT)
|
||
IF OBJECT_ID(N'tempdb..#HDCTabGenOdvodZeMzdyKonfig', 'U') IS NOT NULL
|
||
SELECT TOP(1) @radaOdvNaSklad=ISNULL(RadaOdvodNaSklad, @radaOdvNaSklad), @sklProOdvod=ISNULL(SkladProOdvod, @sklProOdvod),
|
||
@bezVyrCis=ISNULL(BezVyrobnichCisel, @bezVyrCis), @idUziv=ISNULL(IDUziv, @idUziv)
|
||
FROM #HDCTabGenOdvodZeMzdyKonfig
|
||
|
||
|
||
IF (@sklTechnicky IS NULL)
|
||
SELECT @sklTechnicky=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NE%' AND Nazev NOT LIKE N'%polotov%' AND Nazev NOT LIKE N'%HV%' AND CisloStr LIKE N'2%'
|
||
IF (@sklTechnicky IS NULL)
|
||
SELECT @sklTechnicky=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%sklad%v<>dej%'
|
||
|
||
|
||
IF (@sklTechnolog IS NULL)
|
||
SELECT @sklTechnolog=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NE%' AND Nazev NOT LIKE N'%polotov%' AND Nazev NOT LIKE N'%HV%' AND CisloStr LIKE N'2%'
|
||
IF (@sklTechnolog IS NULL)
|
||
SET @sklTechnolog = N'261'
|
||
IF (@sklTechnologHV IS NULL)
|
||
SELECT @sklTechnologHV=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NE%' AND Nazev LIKE N'%HV%' AND CisloStr LIKE N'2%'
|
||
IF (@sklTechnologHV IS NULL)
|
||
SET @sklTechnologHV = N'262'
|
||
|
||
|
||
|
||
|
||
|
||
|
||
DROP TABLE IF EXISTS #TabOdved
|
||
CREATE TABLE #TabOdved (
|
||
ID INT IDENTITY NOT NULL,
|
||
IDPrikaz INT NOT NULL,
|
||
IDDilec INT NOT NULL,
|
||
IDZakazModif INT NULL,
|
||
IDZakazka INT NULL,
|
||
maxMnozstvi NUMERIC(19,6) NULL,
|
||
mnozstvi NUMERIC(19,6) NOT NULL,
|
||
EvidJednotka NUMERIC(19,6) NOT NULL,
|
||
Sklad NVARCHAR(30) NULL,
|
||
KodUmisteni NVARCHAR(15) NULL,
|
||
IDPohZbo INT NULL,
|
||
PomVnoreni INT NULL,
|
||
StavPrikazu TINYINT NULL,
|
||
PRIMARY KEY(ID)
|
||
)
|
||
|
||
|
||
DROP TABLE IF EXISTS #TabOdved_IDMzdy
|
||
CREATE TABLE #TabOdved_IDMzdy (IDPrikaz int, IDMzdy int)
|
||
|
||
|
||
|
||
|
||
DROP TABLE IF EXISTS #TabVyrCisProGenOdv
|
||
CREATE TABLE #TabVyrCisProGenOdv (
|
||
ID INT IDENTITY NOT NULL,
|
||
IDOdvedeni INT NOT NULL,
|
||
IDPrikaz INT NOT NULL,
|
||
VyrCislo NVARCHAR(100) NOT NULL,
|
||
Mnozstvi NUMERIC(19,6) NOT NULL DEFAULT 0,
|
||
MaxMnozstvi NUMERIC(19,6) NULL,
|
||
IDVyrCP INT NULL,
|
||
PRIMARY KEY(ID)
|
||
)
|
||
|
||
|
||
|
||
DROP TABLE IF EXISTS #TabPolotovProGenOdv
|
||
CREATE TABLE #TabPolotovProGenOdv (
|
||
ID INT IDENTITY NOT NULL,
|
||
IDOdvedeni INT NOT NULL,
|
||
IDPrikaz INT NOT NULL,
|
||
Doklad INT NOT NULL,
|
||
IDDilec INT NOT NULL,
|
||
Mnozstvi NUMERIC(19,6) NOT NULL,
|
||
MaxMnozstvi NUMERIC(19,6) NULL,
|
||
PRIMARY KEY(ID)
|
||
)
|
||
|
||
|
||
DROP TABLE IF EXISTS #TabGenPrijem
|
||
CREATE TABLE #TabGenPrijem (ID INT NOT NULL, PRIMARY KEY(ID))
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
SELECT @mnozstvi=kusy_odv, @doklPrPostup=DokladPrPostup, @altPrPostup=AltPrPostup FROM dbo.TabPrikazMzdyAZmetky WHERE ID=@IDMzdy
|
||
SET @mnozstviKA = 0
|
||
|
||
UPDATE dbo.TabPrikazMzdyAZmetky SET GenerovanoOdvadeni=1 WHERE ID=@IDMzdy
|
||
IF (@@ROWCOUNT=0) RETURN
|
||
IF @mnozstvi<=0.0 RETURN
|
||
|
||
|
||
|
||
|
||
SELECT @IDPrikaz=IDPrikaz FROM dbo.TabPrikazMzdyAZmetky WHERE ID=@IDMzdy
|
||
SELECT @radaVPr=Rada, @IDKmen=IDTabKmen, @IDZakazModif=IDZakazModif, @IDPrikazVyssi=IDPrikazVyssi
|
||
FROM dbo.TabPrikaz WHERE ID=@IDPrikaz
|
||
|
||
|
||
SELECT @mjEvid=MJEvidence FROM dbo.TabKmenZbozi WHERE ID=@IDKmen
|
||
IF (@mjEvid=N'KA')
|
||
SET @mnozstviKA = @mnozstvi
|
||
|
||
|
||
SET @jeFinal = 0
|
||
IF EXISTS (SELECT 1 FROM dbo.TabParKmZ WHERE IDKmenZbozi=@IDKmen AND TypDilce=0)
|
||
SET @jeFinal = 1
|
||
|
||
|
||
|
||
|
||
-- nastav sklad pro odvod podle karty
|
||
IF (@sklProOdvod IS NULL)
|
||
SELECT @sklProOdvod=VychoziSklad FROM dbo.TabParKmZ WHERE IDKmenZbozi=@IDKmen
|
||
|
||
-- pripadne zkus podle rady prikazu
|
||
SELECT @radaOdvNaSklad=CASE WHEN RadaDokl_OdvedeniPrikazu IS NULL THEN @radaOdvNaSklad ELSE RadaDokl_OdvedeniPrikazu END,
|
||
@sklProOdvod=CASE WHEN PrijemVyrDil_SkladProGenHlavDZ IS NULL THEN @sklProOdvod ELSE PrijemVyrDil_SkladProGenHlavDZ END
|
||
FROM dbo.TabRadyPrikazu WHERE Rada=@radaVPr
|
||
|
||
|
||
IF (@radaOdvod IS NOT NULL)
|
||
SET @radaOdvNaSklad=@radaOdvod
|
||
|
||
/*
|
||
IF (@skladOdvod IS NULL)
|
||
BEGIN
|
||
SET @sklProOdvod = @sklProPolo
|
||
IF (@jeFinal=1)
|
||
SET @sklProOdvod = @sklProFinal
|
||
END
|
||
ELSE
|
||
SET @sklProOdvod = @skladOdvod
|
||
*/
|
||
|
||
IF (@jeFinal=1)
|
||
SET @sklProOdvod = @sklTechnologHV
|
||
ELSE
|
||
SET @sklProOdvod = @sklTechnolog
|
||
|
||
|
||
|
||
|
||
UPDATE #tabOdved SET mnozstvi=CASE WHEN @NekontrolMnozOdvedFinal=0 AND mnozstvi+@mnozstvi>maxMnozstvi THEN maxMnozstvi ELSE mnozstvi+@mnozstvi END WHERE IDPrikaz=@IDPrikaz
|
||
IF (@@ROWCOUNT=0)
|
||
INSERT INTO #tabOdved (IDPrikaz, IDDilec, IDZakazModif, IDZakazka, maxMnozstvi, EvidJednotka, mnozstvi, sklad, StavPrikazu)
|
||
SELECT P.ID,
|
||
CASE WHEN ISNULL(ParKZ.OdvadetNaZaklVari,0)=0 THEN P.IDTabKmen ELSE KZ.IDKusovnik END,
|
||
ZMD.IDZakazModif,
|
||
P.IDZakazka,
|
||
CASE WHEN @NekontrolMnozOdvedFinal=1 THEN NULL ELSE P.kusy_zive END,
|
||
P.EvidJednotka,
|
||
CASE WHEN @NekontrolMnozOdvedFinal=0 AND @mnozstvi>P.kusy_zive THEN P.kusy_zive ELSE @mnozstvi END,
|
||
P.sklad,
|
||
P.StavPrikazu
|
||
FROM dbo.TabPrikaz P
|
||
INNER JOIN dbo.TabKmenZbozi KZ ON (KZ.ID=P.IDTabKmen)
|
||
LEFT OUTER JOIN dbo.TabZakazModifDilce ZMD ON (ZMD.IDZakazModif=P.IDZakazModif AND ZMD.IDKmenZbozi=KZ.ID)
|
||
LEFT OUTER JOIN dbo.TabParKmZ ParKZ ON (ParKZ.IDKmenZbozi=P.IDTabKmen)
|
||
WHERE P.ID=@IDPrikaz AND
|
||
(CASE WHEN @NekontrolMnozOdvedFinal=0 AND @mnozstvi>P.kusy_zive THEN P.kusy_zive ELSE @mnozstvi END)>0
|
||
INSERT INTO #TabOdved_IDMzdy (IDPrikaz, IDMzdy) VALUES (@IDPrikaz, @IDMzdy)
|
||
|
||
|
||
|
||
UPDATE O SET maxMnozstvi=CASE WHEN RP.NekontrolMnozOdvedFinal=1 THEN NULL ELSE P.kusy_zive END
|
||
FROM #tabOdved O
|
||
INNER JOIN dbo.TabPrikaz P ON (P.ID=O.IDPrikaz)
|
||
INNER JOIN dbo.TabRadyPrikazu RP ON (RP.rada=P.rada)
|
||
|
||
UPDATE #tabOdved SET mnozstvi=maxMnozstvi WHERE maxMnozstvi IS NOT NULL AND mnozstvi>maxMnozstvi
|
||
DELETE #TabVyrCisProGenOdv WHERE IDOdvedeni IN (SELECT O2.ID FROM #tabOdved O2 WHERE O2.Mnozstvi<=0.0)
|
||
DELETE #TabPolotovProGenOdv WHERE IDOdvedeni IN (SELECT O2.ID FROM #tabOdved O2 WHERE O2.Mnozstvi<=0.0)
|
||
DELETE #tabOdved WHERE Mnozstvi<=0.0
|
||
|
||
SELECT @iTemp = 1 + ISNULL( (SELECT MAX(ID) FROM dbo.TabVyrCP), 0)
|
||
DBCC CHECKIDENT (TabVyrCP, RESEED, @iTemp)
|
||
|
||
IF (@sklProOdvod IS NOT NULL)
|
||
UPDATE #tabOdved SET Sklad=@sklProOdvod
|
||
|
||
|
||
|
||
EXEC dbo.hp_PrednabidniTabVyrCisProGenOdv @ProIDPrikaz=NULL
|
||
IF (@bezVyrCis=1)
|
||
DELETE #TabVyrCisProGenOdv
|
||
|
||
|
||
IF (@prevodDoVyssiho=0)
|
||
BEGIN
|
||
BEGIN TRY
|
||
-- pozor, nelze predem zadat do jake prijemky polozky odvodu generovat, vzdy se generuje nova, o prevedeni polozek se postarame nize
|
||
EXEC @ret=dbo.hp_OdvedeniPrikazu @RadaDokladu=@radaOdvNaSklad, @IDObdobi=NULL, @KonecneOdvedeni=0, @DatPorizeni=NULL, @SekejZakazky=1, @SekejPrikazy=1
|
||
END TRY
|
||
BEGIN CATCH
|
||
SET @errMsg = 'Chyba pri odvadeni: ' + ERROR_MESSAGE()
|
||
END CATCH
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (@IDPrikazVyssi IS NOT NULL)
|
||
BEGIN
|
||
IF OBJECT_ID(N'tempdb..#TabOdved_IDMzdy', 'U') IS NOT NULL
|
||
DELETE FROM #TabOdved_IDMzdy
|
||
INSERT #TabOdved_IDMzdy (IDPrikaz, IDMzdy) SELECT @idPrikaz, @idMzdy
|
||
|
||
SET @doklKV = (SELECT ID FROM dbo.TabPrKVazby WHERE IDPrikaz=@IDPrikazVyssi AND nizsi=@IDKmen AND IDOdchylkyDo IS NULL)
|
||
|
||
-- @idPZ je TabPrikazPrevodPolotov.ID
|
||
EXEC @idPZ=dbo.hp_OdvedeniPrikazuPrevodem @DatPripadu=@aktDatum, @KonecneOdvedeniNatvrdo=0, @IDPrikazZdroj=@idPrikaz, @IDPrikazCil=@IDPrikazVyssi,
|
||
@Doklad=@doklKV, @IDDilec=@IDKmen, @mnozstvi=@mnozstvi, @IDOdvedeniVC=0, @IDZakazModif=@IDZakazModif
|
||
IF OBJECT_ID(N'tempdb..#TabGenPrijem', 'U') IS NOT NULL
|
||
DELETE FROM #TabGenPrijem
|
||
END -- @IDPrikazVyssi IS NOT NULL
|
||
END
|
||
|
||
|
||
|
||
|
||
|
||
IF (@jeFinal=0)
|
||
SET @sklPrijem=@sklProPolo
|
||
ELSE
|
||
SET @sklPrijem=@sklProFinal
|
||
|
||
|
||
IF (@sklPrijem<>N'')
|
||
BEGIN
|
||
DECLARE prij CURSOR LOCAL FOR
|
||
SELECT ID FROM #TabGenPrijem
|
||
OPEN prij
|
||
WHILE (1=1)
|
||
BEGIN
|
||
FETCH NEXT FROM prij INTO @idPrij
|
||
IF (@@FETCH_STATUS<>0) BREAK
|
||
|
||
SELECT @datPrijem=DatPorizeni FROM dbo.TabDokladyZbozi WHERE ID=@idPrij
|
||
|
||
|
||
|
||
|
||
IF (@realizujPrijem=1)
|
||
BEGIN
|
||
BEGIN TRY
|
||
EXEC dbo.hp_Realizuj_Prijem @ID=@idPrij, @DatumRealizace=NULL, @Uzivatel=@idUziv, @BylaChyba=@bChyba OUT, @VypnoutUpozorneniPriZajistovani=1
|
||
IF (@bChyba=1)
|
||
INSERT dbo.Tabx_Vyroba_Log (Kategorie, Typ, LogText, iHodnota) SELECT 1, 1, 'Chyba realizace neidentifikovan<61>', @idPrij
|
||
ELSE
|
||
BEGIN
|
||
SET @idPrijOld = NULL
|
||
SET @idPrijSberna = NULL
|
||
|
||
-- zjisti jestli na cilovem skladu mame nejakou otevrenou prijemku z dnesniho dne
|
||
SET @cnt = ISNULL( (SELECT COUNT(ID) FROM dbo.TabDokladyZbozi WHERE ID<>@idPrij AND PoradoveCislo>0 AND DruhPohybuZbo=0 AND RadaDokladu=@radaOdvNaSklad
|
||
AND CisloOrg=0 AND IDSklad=@sklPrijem AND Realizovano=0 AND BlokovaniEditoru IS NULL AND dbo.hf_TruncDate(DatPorizeni)=dbo.hf_TruncDate(@datPrijem))
|
||
, 0)
|
||
IF (@cnt=0) -- nemame, vygeneruj ji
|
||
BEGIN
|
||
SELECT @dpz=DruhPohybuZbo, @dzDatum=DatPorizeni, @dzMena=Mena FROM dbo.TabDokladyZbozi WHERE ID=@idPrij
|
||
SET @datPrijem = @dzDatum
|
||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idPrijSberna OUT, @Sklad=@sklPrijem, @DruhPohybu=@dpz, @RadaDokladu=@radaOdvNaSklad,
|
||
@Mena=@dzMena, @CisloOrg=0, @DatumPorizeni=@datPrijem
|
||
END
|
||
IF (@cnt=1) -- ma jen jednu
|
||
BEGIN
|
||
SELECT TOP(1) @idPrijSberna=ID FROM dbo.TabDokladyZbozi WHERE ID<>@idPrij AND PoradoveCislo>0 AND DruhPohybuZbo=0 AND RadaDokladu=@radaOdvNaSklad
|
||
AND CisloOrg=0 AND IDSklad=@sklPrijem AND Realizovano=0 AND BlokovaniEditoru IS NULL AND dbo.hf_TruncDate(DatPorizeni)=dbo.hf_TruncDate(@datPrijem)
|
||
END
|
||
IF (@cnt>1) -- mam jich vic, vezmi tu posledni (nejnovejsi)
|
||
BEGIN
|
||
SET @idPrijSberna = (SELECT TOP(1) ID FROM dbo.TabDokladyZbozi WHERE ID<>@idPrij AND PoradoveCislo>0 AND DruhPohybuZbo=0 AND RadaDokladu=@radaOdvNaSklad
|
||
AND CisloOrg=0 AND IDSklad=@sklPrijem AND Realizovano=0 AND BlokovaniEditoru IS NULL
|
||
AND dbo.hf_TruncDate(DatPorizeni)=dbo.hf_TruncDate(@datPrijem)
|
||
ORDER BY DatPorizeni DESC)
|
||
END
|
||
|
||
-- pokud ji mam, nakopiruj do ni novou polozku
|
||
IF (@idPrijSberna IS NOT NULL)
|
||
BEGIN
|
||
EXEC dbo.hp_generuj_navazny_doklad @IDDokladDst=@idPrijSberna, @IDDokladSrc=@idPrij, @CisloOrgCil=0, @MUCil=NULL, @MenaCil=NULL,
|
||
@KurzCil=NULL, @JednotkaMenyCil=NULL, @KurzEuroCil=NULL, @CisloZakCil=NULL, @NOkruhCil=NULL,
|
||
@StredNakladCil=NULL, @StredVynosCil=NULL, @FormaDopravyCil=NULL, @VozidloCil=NULL, @ObjednavkaCil=NULL,
|
||
@PopisDodavkyCil=NULL, @NavaznyDobropisCil=NULL, @ZamestnanecCil=NULL, @DodFakCil=NULL, @Nasobek=1,
|
||
@SlevaCil=NULL, @VytvaretDokladovouVazbu=0, @VytvaretPolozkovouVazbu=0, @ChybaSkladana=@errMsg OUT,
|
||
@KopirovaniDokladu=0
|
||
|
||
SET @vc = NULL
|
||
SET @idVPrVC = (SELECT IDVyrCis FROM dbo.TabPrikazMzdyAZmetky WHERE ID=@IDMzdy)
|
||
IF (@idVPrVC IS NOT NULL)
|
||
SET @vc = (SELECT VyrCislo FROM dbo.TabVyrCisPrikaz WHERE ID=@idVPrVC)
|
||
IF (@vc IS NULL)
|
||
SELECT TOP(1) @idPalety=ID, @vc=CisloPalety FROM dbo._TabVyroba_Palety WHERE IDMzda=@IDMzdy AND IDPrikaz=@idPrikaz
|
||
|
||
SET @paletList = N''
|
||
IF (@vc IS NOT NULL)
|
||
SET @paletList = @vc
|
||
|
||
SET @idPZSberna = NULL
|
||
SET @idVCP = (SELECT TOP(1) vcp.ID FROM dbo.TabPohybyZbozi p WITH(NOLOCK) JOIN dbo.TabDokladyZbozi d WITH(NOLOCK) ON (d.ID=p.IDDoklad)
|
||
JOIN dbo.TabStavSkladu s WITH(NOLOCK) ON (s.ID=p.IDZboSklad) JOIN dbo.TabVyrCP vcp WITH(NOLOCK) ON (vcp.IDPolozkaDokladu=p.ID)
|
||
JOIN dbo.TabVyrCS vcs ON (vcs.ID=vcp.IDVyrCis)
|
||
WHERE d.ID=@idPrij AND d.DruhPohybuZbo=0 AND p.TypVyrobnihoDokladu IN (0) AND s.IDKmenZbozi=@IDKmen AND vcs.Nazev1=@vc)
|
||
IF (@vc IS NOT NULL)
|
||
SET @idPZSberna = (SELECT TOP(1) p.ID FROM dbo.TabPohybyZbozi p WITH(NOLOCK) JOIN dbo.TabDokladyZbozi d WITH(NOLOCK) ON (d.ID=p.IDDoklad)
|
||
JOIN dbo.TabStavSkladu s WITH(NOLOCK) ON (s.ID=p.IDZboSklad) JOIN dbo.TabVyrCP vcp WITH(NOLOCK) ON (vcp.IDPolozkaDokladu=p.ID)
|
||
JOIN dbo.TabVyrCS vcs ON (vcs.ID=vcp.IDVyrCis)
|
||
WHERE p.IDDoklad=@idPrijSberna AND d.DruhPohybuZbo=0 AND p.TypVyrobnihoDokladu IN (0) AND s.IDKmenZbozi=@IDKmen AND vcs.Nazev1=@vc)
|
||
/*
|
||
ELSE -- tato situace nesmi nastat, na sklad se vzdy prijima polotovar nebo final vcetne VC/paletovelo listu
|
||
SET @idPZSberna = (SELECT TOP(1) p.ID FROM dbo.TabPohybyZbozi p WITH(NOLOCK) JOIN dbo.TabStavSkladu s WITH(NOLOCK) ON (s.ID=p.IDZboSklad)
|
||
WHERE p.IDDoklad=@idPrijOld AND s.IDKmenZbozi=@IDKmen ORDER BY p.ID DESC)
|
||
*/
|
||
IF (@idPZSberna IS NOT NULL)
|
||
BEGIN
|
||
SET @idPalety = (SELECT ID FROM dbo._TabVyroba_Palety WHERE CisloPalety=@paletList AND IDPrikaz=@idPrikaz)
|
||
UPDATE dbo._TabVyroba_Palety SET IDPohybPrijem=@idPZSberna WHERE ID=@idPalety
|
||
SELECT @sarze=Sarze FROM dbo._TabVyroba_Palety WHERE ID=@idPalety
|
||
|
||
-- udelej pomocnou vazbu polozky prijmu na skladu 311/312 na polozku prijmu na technologickem sklade 261/262
|
||
SET @idPZOld = NULL -- id pohybu zbozi na prijemce 261/262
|
||
IF (@vc IS NOT NULL)
|
||
SET @idPZOld = (SELECT TOP(1) p.ID FROM dbo.TabPohybyZbozi p WITH(NOLOCK) JOIN dbo.TabDokladyZbozi d WITH(NOLOCK) ON (d.ID=p.IDDoklad)
|
||
JOIN dbo.TabStavSkladu s WITH(NOLOCK) ON (s.ID=p.IDZboSklad) JOIN dbo.TabVyrCP vcp WITH(NOLOCK) ON (vcp.IDPolozkaDokladu=p.ID)
|
||
JOIN dbo.TabVyrCS vcs ON (vcs.ID=vcp.IDVyrCis)
|
||
WHERE p.IDDoklad=@idPrij AND d.DruhPohybuZbo=0 AND p.TypVyrobnihoDokladu IN (0) AND s.IDKmenZbozi=@IDKmen AND vcs.Nazev1=@vc)
|
||
ELSE
|
||
SET @idPZOld = (SELECT TOP(1) p.ID FROM dbo.TabPohybyZbozi p WITH(NOLOCK) JOIN dbo.TabStavSkladu s WITH(NOLOCK) ON (s.ID=p.IDZboSklad)
|
||
WHERE p.IDDoklad=@idPrij AND s.IDKmenZbozi=@IDKmen ORDER BY p.ID DESC)
|
||
|
||
IF NOT EXISTS (SELECT 1 FROM dbo.TabPohybyZbozi_EXT WHERE ID=@idPZSberna) AND (@idPZSberna IS NOT NULL)
|
||
INSERT dbo.TabPohybyZbozi_EXT (ID) VALUES (@idPZSberna)
|
||
IF (@idPZOld IS NULL)
|
||
SET @idPZOld = (SELECT TOP(1) IDPohybOZPuvodni FROM dbo._TabVyroba_PaletyPohybOZ WHERE IDPalety=@idPalety)
|
||
IF (@idPZOld IS NULL)
|
||
SET @idPZOld = (SELECT TOP(1) ID FROM dbo.TabPohybyZbozi WHERE IDDoklad=@idPrij) -- id pohybu zbozi na prijemce 261/262
|
||
IF (@idPZOld IS NOT NULL)
|
||
UPDATE dbo.TabPohybyZbozi_EXT SET _Prijem_IDPZPuvodni=@idPZOld WHERE ID=@idPZSberna
|
||
|
||
IF (@idPalety IS NOT NULL)
|
||
IF NOT EXISTS (SELECT 1 FROM dbo._TabVyroba_PaletyPohybOZ WHERE IDPalety=@idPalety)
|
||
INSERT dbo._TabVyroba_PaletyPohybOZ (IDPalety, IDPohybOZ, Sarze, Mnozstvi, MnozstviKA, IDPohybOZPuvodni)
|
||
SELECT @idPalety, @idPZSberna, @sarze, @mnozstvi, @mnozstviKA, @idPZOld
|
||
|
||
|
||
-- smaz vazbu nove polozky (prijem na sklade 311/312) na vyrobni prikaz
|
||
UPDATE dbo.TabPohybyZbozi SET IDPrikaz=NULL, TypVyrobnihoDokladu=NULL, DokladPrikazu=NULL WHERE ID=@idPZSberna
|
||
DELETE FROM dbo.TabPrikazMzdyAZmetkyGenPZ WHERE IDMzdy=@IDMzdy AND TypGen=2 AND IDPohybu=@idPZSberna
|
||
|
||
END -- @idPZSberna IS NOT NULL
|
||
|
||
END -- @idPrijOld IS NOT NULL
|
||
END -- else @bChyba=1
|
||
END TRY
|
||
BEGIN CATCH
|
||
SET @errMsg = ERROR_MESSAGE()
|
||
INSERT dbo.Tabx_Vyroba_Log (Kategorie, Typ, LogText, iHodnota) SELECT 1, 1, 'Chyba realizace neidentifikovan<61>', @idPrij
|
||
END CATCH
|
||
END
|
||
|
||
|
||
-- vycisti seed
|
||
SELECT @iTemp = 1 + ISNULL( (SELECT MAX(ID) FROM dbo.TabDokladyZbozi), 0)
|
||
DBCC CHECKIDENT (TabDokladyZbozi, RESEED, @iTemp)
|
||
SELECT @iTemp = 1 + ISNULL( (SELECT MAX(ID) FROM dbo.TabPohybyZbozi), 0)
|
||
DBCC CHECKIDENT (TabPohybyZbozi, RESEED, @iTemp)
|
||
|
||
END
|
||
CLOSE prij
|
||
DEALLOCATE prij
|
||
END
|
||
|
||
|
||
|
||
|
||
-- napocti odvedeni davek Kapacitniho planu vedenych v pomocne Tabx_Vyroba_DavkyPlanu
|
||
IF OBJECT_ID(N'Tabx_Vyroba_DavkyPlanu', 'U') IS NOT NULL
|
||
BEGIN
|
||
SET @ksOdv = ISNULL( (SELECT SUM(kusy_odv) FROM dbo.TabPrikazMzdyAZmetky WHERE IDPrikaz=@IDPrikaz AND DokladPrPostup=@doklPrPostup), 0)
|
||
IF (@ksOdv>0)
|
||
BEGIN
|
||
SET @ksOdv_ks = @ksOdv
|
||
IF (@mjEvid=N'KA')
|
||
SET @ksOdv_ks = @ksOdv_ks * dbo.ef_Kmen_VratPocetKsVKartonu (@IDKmen)
|
||
|
||
DECLARE d CURSOR LOCAL FAST_FORWARD FOR
|
||
SELECT ID, Mnozstvi
|
||
FROM Tabx_Vyroba_DavkyPlanu
|
||
WHERE IDPrikaz=@IDPrikaz
|
||
AND DokladPrPostup=@doklPrPostup
|
||
AND Dilec=@IDKmen
|
||
OPEN d
|
||
WHILE (1=1)
|
||
BEGIN
|
||
FETCH NEXT FROM d INTO @idDavkaPomoc, @mnozDavkaPomoc
|
||
IF (@@FETCH_STATUS<>0) BREAK
|
||
END
|
||
CLOSE d
|
||
DEALLOCATE d
|
||
END -- @ksOdv_ks
|
||
END -- Tabx_Vyroba_DavkyPlanu IS NOT NULL
|
||
|
||
|
||
|
||
|
||
|
||
-- cisteni
|
||
DROP TABLE IF EXISTS #TabGenPrijem
|
||
DROP TABLE IF EXISTS #TabPolotovProGenOdv
|
||
DROP TABLE IF EXISTS #TabVyrCisProGenOdv
|
||
DROP TABLE IF EXISTS #TabOdved_IDMzdy
|
||
DROP TABLE IF EXISTS #TabOdved
|
||
|
||
DROP TABLE IF EXISTS #HDCTabGenOdvodZeMzdyKonfig
|