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á', @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á', @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
|