Zacatek uprav Ramcovy plan
This commit is contained in:
@ -18,6 +18,7 @@ DECLARE
|
||||
@errMsg NVARCHAR(500),
|
||||
@bChyba BIT,
|
||||
@iChyba INT,
|
||||
@iTemp INT,
|
||||
@debugXml XML,
|
||||
@gKV XML,
|
||||
@kv XML,
|
||||
@ -38,7 +39,7 @@ DECLARE
|
||||
|
||||
DECLARE
|
||||
@cOrg INT,
|
||||
@sklMat NVARCHAR(30),
|
||||
@sklMat NVARCHAR(30)=N'311',
|
||||
@sklTechnicky NVARCHAR(30),
|
||||
@sklPek NVARCHAR(30),
|
||||
@sklProFin NVARCHAR(30)=N'312',
|
||||
@ -46,6 +47,7 @@ DECLARE
|
||||
@radaTechVydej NVARCHAR(30)=N'223',
|
||||
@radaTechPrijem NVARCHAR(30)=N'',
|
||||
@sklVydejMat NVARCHAR(30),
|
||||
@sklProVydej NVARCHAR(30),
|
||||
@radaDZVydejka NVARCHAR(3)=NULL,
|
||||
@radaDZPrevodV NVARCHAR(3)=NULL,
|
||||
@prevodka BIT=0,
|
||||
@ -124,7 +126,9 @@ DECLARE
|
||||
@idVCS INT,
|
||||
@idVCP INT,
|
||||
@sz NVARCHAR(3),
|
||||
@sz2 NVARCHAR(3),
|
||||
@rc NVARCHAR(30),
|
||||
@rc2 NVARCHAR(30),
|
||||
@idUmist INT,
|
||||
@sarze NVARCHAR(30),
|
||||
@paletList NVARCHAR(30),
|
||||
@ -137,7 +141,8 @@ DECLARE
|
||||
@mnozEvid NUMERIC(19,6),
|
||||
@idVazVP INT,
|
||||
@mnozVyssiReq NUMERIC(19,6),
|
||||
@mnozVyssiOdv NUMERIC(19,6)
|
||||
@mnozVyssiOdv NUMERIC(19,6),
|
||||
@mnozVyssiOdvSum NUMERIC(19,6)
|
||||
|
||||
DECLARE
|
||||
@idStartStopOp INT,
|
||||
@ -162,6 +167,7 @@ DECLARE
|
||||
DECLARE
|
||||
@idKZv INT,
|
||||
@idKZn INT,
|
||||
@idKZn2 INT,
|
||||
@idPrKVazbyPolot INT,
|
||||
@idPrKVazbyNova INT,
|
||||
@novaPriorita INT,
|
||||
@ -187,10 +193,11 @@ DECLARE
|
||||
|
||||
|
||||
|
||||
DECLARE @TabPHObj TABLE (ID INT NOT NULL, IDPHIdent BIGINT )
|
||||
DECLARE @TabPHObj TABLE (ID INT NOT NULL, IDPHIdent BIGINT, IDSklad NVARCHAR(30) )
|
||||
DECLARE @PrKVazby TABLE (ID INT NOT NULL, Sklad NVARCHAR(30), IDKmenZbozi INT, Mnozstvi NUMERIC(19,6) DEFAULT 0.0 )
|
||||
DECLARE @TabPolozky TABLE (ID INT IDENTITY(1,1) NOT NULL, IDKmen INT, Sarze NVARCHAR(100), PaletList NVARCHAR(100) )
|
||||
DECLARE @TabIDMzdy TABLE (ID INT NOT NULL)
|
||||
DECLARE @TabNocniPrevodky TABLE (IDSklad NVARCHAR(30), IDDoklad INT)
|
||||
|
||||
|
||||
-- tabulky pro generovani vydejky a odvodu
|
||||
@ -338,15 +345,24 @@ DROP TABLE IF EXISTS #HDCTabDefiniceProZapisJSON
|
||||
|
||||
IF (@sklMat IS NULL)
|
||||
SELECT @sklMat=Cislo FROM dbo.TabStrom WHERE Nazev=N'Hlavn<EFBFBD> sklad - Materi<72>l'
|
||||
IF (@sklMat IS NULL)
|
||||
SET @sklMat=N'311'
|
||||
SET @sklProPolo = @sklMat
|
||||
IF (@sklTechnicky IS NULL)
|
||||
SELECT @sklTechnicky=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%ne<6E><65>%' AND CisloStr LIKE N'2%'
|
||||
IF (@sklTechnicky IS NULL)
|
||||
SET @sklTechnicky=N'261'
|
||||
IF (@sklPek IS NULL)
|
||||
SELECT @sklPek=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'V<EFBFBD>roba - Pek<65>rna'
|
||||
IF (@sklPek IS NULL)
|
||||
SET @sklPek=N'211'
|
||||
IF (@sklTechnicky IS NULL) AND (@sklPek IS NOT NULL)
|
||||
SET @sklTechnicky=@sklPek
|
||||
IF (@sklProFin IS NULL)
|
||||
SELECT @sklProFin=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Hlavn<EFBFBD> sklad - V<>robky / Zbo<62><6F>'
|
||||
IF (@sklProFin IS NULL)
|
||||
SET @sklProFin = N'312'
|
||||
|
||||
|
||||
IF (@radaTechVydej IS NOT NULL)
|
||||
SET @radaDZVydejka = @radaTechVydej
|
||||
@ -529,12 +545,17 @@ WHILE (1=1)
|
||||
|
||||
IF (@sz=N'921') AND (@rc=N'001000')
|
||||
SET @vodaLitry = @mnoz
|
||||
IF (@sz=N'101') AND (@nazev1 LIKE N'%mouka%')
|
||||
IF (@sz=N'101') AND (@nazev1 LIKE N'%mouka%') and (@rc IN (N'111000',N'112000'))
|
||||
BEGIN
|
||||
SET @moukaKgFin = @mnoz
|
||||
SET @moukaKgNorma = @mnoz2
|
||||
END
|
||||
|
||||
IF EXISTS(SELECT 1 FROM dbo.TabPrKVazby WHERE IDPrikaz=@idVPr AND vyssi=@dilec AND nizsi=@idKZ AND IDOdchylkyDo IS NULL AND Priorita=0 AND Mnozstvi<>@mnoz)
|
||||
UPDATE dbo.TabPrKVazby SET Mnozstvi=@mnoz, mnozstviSeZtratou=@mnoz
|
||||
WHERE IDPrikaz=@idVPr AND vyssi=@dilec AND nizsi=@idKZ AND IDOdchylkyDo IS NULL AND Priorita=0
|
||||
|
||||
|
||||
SET @idKZ = (SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo<>N'921' AND SkupZbo=@sz AND RegCis=@rc AND (Material=1 OR Dilec=1) AND Sluzba=0)
|
||||
IF (@idKZ IS NOT NULL)
|
||||
BEGIN
|
||||
@ -563,7 +584,7 @@ WHILE (1=1)
|
||||
SET @kv = (SELECT * FROM @PrKVazby FOR XML AUTO)
|
||||
|
||||
|
||||
IF (@subtypDokum='michani') OR (@subtypDokum=N'')
|
||||
IF (@subtypDokum=N'michani') OR (@subtypDokum=N'')
|
||||
BEGIN
|
||||
SET @mnozEvid = ISNULL(@mnozEvid, 1)
|
||||
-- UPDATE #tabOdved SET mnozstvi=CASE WHEN @NekontrolMnozOdvedFinal=0 AND mnozstvi+@mnoz>maxMnozstvi THEN maxMnozstvi ELSE mnozstvi+@mnoz END WHERE IDPrikaz=@idVPr
|
||||
@ -688,7 +709,7 @@ WHILE (1=1)
|
||||
SET @gKV = (SELECT * FROM #TabPrKVazbyGen FOR XML AUTO)
|
||||
|
||||
-- u michani odmaz vodu
|
||||
IF (@subtypDokum='michani') OR (@subtypDokum=N'')
|
||||
IF (@subtypDokum=N'michani') OR (@subtypDokum=N'')
|
||||
BEGIN
|
||||
DELETE FROM #TabPrKVazbyGen WHERE nizsi=(SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo=N'921' AND RegCis=N'001000')
|
||||
MERGE #TabPrKVazbyGen AS T USING @PrKVazby AS S ON (T.IDPrKV=T.ID) WHEN MATCHED THEN UPDATE SET T.Mnozstvi=S.Mnozstvi, T.MnozstviPoz=S.Mnozstvi;
|
||||
@ -722,7 +743,7 @@ WHILE (1=1)
|
||||
FROM dbo.TabPohybyZbozi p
|
||||
INNER JOIN dbo.TabStavSkladu s ON (s.ID=p.IDZboSklad)
|
||||
INNER JOIN dbo.TabKmenZbozi k ON (k.ID=s.IDKmenZbozi)
|
||||
WHERE p.IDDoklad=@idDZ AND k.Sluzba=0 AND k.SkupZbo<>'921'
|
||||
WHERE p.IDDoklad=@idDZ AND k.Sluzba=0 AND k.SkupZbo<>N'921'
|
||||
OPEN vyPol
|
||||
WHILE (1=1)
|
||||
BEGIN
|
||||
@ -739,9 +760,10 @@ WHILE (1=1)
|
||||
UPDATE dbo.TabPohybyZbozi_EXT SET _Vyroba_Sarze=IIF(@sarze=N'', NULL, @sarze), _Vyroba_PaletList=IIF(@paletList=N'', NULL, @paletList) WHERE ID=@idPZ
|
||||
|
||||
-- u michani a mouky zadat i silo
|
||||
IF (@subtypDokum='michani') OR (@subtypDokum=N'')
|
||||
IF (@subtypDokum=N'michani') OR (@subtypDokum=N'')
|
||||
BEGIN
|
||||
SELECT @jsemMouka = CONVERT(bit, CASE WHEN Nazev1 LIKE N'%mouka%' AND SkupZbo=N'101' THEN 1 ELSE 0 END) FROM dbo.TabKmenZbozi WHERE ID=@idKZ
|
||||
SELECT @jsemMouka = CONVERT(bit, CASE WHEN Nazev1 LIKE N'%mouka%' AND SkupZbo=N'101' AND RegCis IN (N'111000', N'112000') THEN 1 ELSE 0 END)
|
||||
FROM dbo.TabKmenZbozi WHERE ID=@idKZ
|
||||
IF (@jsemMouka=1)
|
||||
UPDATE dbo.TabPohybyZbozi_EXT SET _Mouka_Silo=@moukaSilo WHERE ID=@idPZ
|
||||
END
|
||||
@ -753,50 +775,7 @@ WHILE (1=1)
|
||||
|
||||
|
||||
-- begin: pomocna prijemka nedostatecneho materialu (jen materialu !!!)
|
||||
SET @idDZPomocPrij=NULL
|
||||
DECLARE pomPrij CURSOR LOCAL FOR
|
||||
SELECT p.IDZboSklad, p.Mnozstvi
|
||||
FROM dbo.TabPohybyZbozi p
|
||||
INNER JOIN dbo.TabStavSkladu s ON (s.ID=p.IDZboSklad)
|
||||
INNER JOIN dbo.TabKmenZbozi k ON (k.ID=s.IDKmenZbozi)
|
||||
WHERE p.IDDoklad=@idDZ -- doklad vydejky
|
||||
AND k.Material=1 AND k.Sluzba=0
|
||||
OPEN pomPrij
|
||||
WHILE (1=1)
|
||||
BEGIN
|
||||
FETCH NEXT FROM pomPrij INTO @idSSPomocPrij, @mnozVydej
|
||||
IF (@@FETCH_STATUS<>0) BREAK
|
||||
|
||||
-- spocitej jestli mam skladem mnozstvi na realizaci vydejky
|
||||
SET @mnozSklad = ISNULL( (SELECT Mnozstvi+MnozstviKPrijmu-MnozstviKVydeji FROM dbo.TabStavSkladu WHERE ID=@idSSPomocPrij), 0)
|
||||
IF (@mnozVydej>@mnozSklad)
|
||||
BEGIN
|
||||
SET @mnozPrij = @mnozVydej - @mnozSklad
|
||||
IF (@idDZPomocPrij IS NULL) -- uz existuje doklad pomocne prijemky na sklade 261 (technologicky) ?
|
||||
BEGIN
|
||||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idDZPomocPrij OUT, @Sklad=@sklTechnicky, @DruhPohybu=0, @RadaDokladu=@radaPrijem, @CisloOrg=0
|
||||
SELECT @menaPrij=Mena, @kurzPrij=Kurz, @kurzPrijE=KurzEuro, @jednMPrij=JednotkaMeny, @vstCPrij=VstupniCena
|
||||
FROM dbo.TabDokladyZbozi WHERE ID=@idDZPomocPrij
|
||||
END
|
||||
IF (@idDZPomocPrij IS NOT NULL)
|
||||
BEGIN
|
||||
EXEC dbo.hp_InsertPolozkyOZ @Ident=@idPZPomocPrij OUT, @IDDoklad=@idDZPomocPrij, @DruhPohybu=0, @CisloOrg=0, @IDZboSklad=@idSSPomocPrij,
|
||||
@Mena=@menaPrij, @Kurz=@kurzPrij, @KurzEuro=@kurzPrijE, @JednotkaMeny=@jednMPrij, @SazbaSD=NULL, @SazbaDPH=NULL,
|
||||
@ZakazanoDPH=NULL, @VstupniCena=@vstCPrij, @Mnozstvi=@mnozPrij, @PovolitDuplicitu=1
|
||||
END
|
||||
END
|
||||
END
|
||||
CLOSE pomPrij
|
||||
DEALLOCATE pomPrij
|
||||
IF (@idDZPomocPrij IS NOT NULL) -- pokud mam pomocnou prijemku, zkus ji realizovat nez budes realizovat vydejku
|
||||
BEGIN
|
||||
BEGIN TRY
|
||||
EXEC dbo.hp_Realizuj_Prijem @ID=@idDZPomocPrij, @DatumRealizace=NULL, @Uzivatel=@idUziv, @BylaChyba=@bChyba OUT, @VypnoutUpozorneniPriZajistovani=1
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
SET @errMsg = ERROR_MESSAGE()
|
||||
END CATCH
|
||||
END
|
||||
EXEC dbo.ep_Vyroba_Doklady_PomocPrijemka @idVydej=@idDZ
|
||||
-- end: pomocna prijemka nedostatecneho materialu
|
||||
|
||||
|
||||
@ -919,67 +898,95 @@ WHILE (1=1)
|
||||
IF (@subtypDokum=N'michani') OR (@subtypDokum=N'')
|
||||
BEGIN
|
||||
|
||||
DECLARE vazP CURSOR LOCAL FOR
|
||||
SELECT vp.ID, vp.IDPrikazVyssi, vp.Mnozstvi, ISNULL(vpe._MnozstviOdv, 0)
|
||||
FROM dbo.TabVazbyPrikazu vp
|
||||
LEFT JOIN dbo.TabVazbyPrikazu_EXT vpe ON (vpe.ID=vp.ID)
|
||||
WHERE vp.IDPrikaz=@idVPr
|
||||
AND (1=0) -- !!! VYPNUTO !!!
|
||||
OPEN vazP
|
||||
WHILE (1=1)
|
||||
IF ISNULL( (SELECT COUNT(ID) FROM dbo.TabVazbyPrikazu WHERE IDPrikaz=@idVPr), 0)>1
|
||||
BEGIN
|
||||
FETCH FROM vazP INTO @idVazVP, @idVPrVyssi, @mnozVyssiReq, @mnozVyssiOdv
|
||||
IF (@@FETCH_STATUS<>0) BREAK
|
||||
|
||||
SELECT @dilecVyssi=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPrVyssi
|
||||
SELECT @dilec=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPr
|
||||
-- pokud jsem testo, odved me na vyssi prikaz
|
||||
IF EXISTS (SELECT 1 FROM dbo.TabKmenZbozi WHERE SkupZbo=N'701' AND ID=@dilec)
|
||||
SET @idVPrVyssi = NULL
|
||||
IF ISNULL( (SELECT COUNT(*) FROM (SELECT DISTINCT(IDPrikazCil) FROM dbo.TabPrikazPrevodPolotov WHERE IDPrikazZdroj=@idVPr GROUP BY IDPrikazCil) x), 0)=1
|
||||
SET @idVPrVyssi = (SELECT TOP(1) IDPrikazCil FROM dbo.TabPrikazPrevodPolotov WHERE IDPrikazZdroj=@idVPr)
|
||||
|
||||
IF (@idVPrVyssi IS NULL)
|
||||
DECLARE vazP CURSOR LOCAL FOR
|
||||
SELECT TOP(1) vp.ID, vp.IDPrikazVyssi, vp.Mnozstvi, ISNULL(vpe._MnozstviOdv, 0)
|
||||
FROM dbo.TabVazbyPrikazu vp
|
||||
LEFT JOIN dbo.TabVazbyPrikazu_EXT vpe ON (vpe.ID=vp.ID)
|
||||
WHERE vp.IDPrikaz=@idVPr
|
||||
-- AND (1=0) -- !!! VYPNUTO !!!
|
||||
ORDER BY vp.IDPrikazVyssi
|
||||
ELSE
|
||||
DECLARE vazP CURSOR LOCAL FOR
|
||||
SELECT TOP(1) vp.ID, vp.IDPrikazVyssi, vp.Mnozstvi, ISNULL(vpe._MnozstviOdv, 0)
|
||||
FROM dbo.TabVazbyPrikazu vp
|
||||
LEFT JOIN dbo.TabVazbyPrikazu_EXT vpe ON (vpe.ID=vp.ID)
|
||||
WHERE vp.IDPrikaz=@idVPr
|
||||
AND vp.IDPrikazVyssi=@idVPrVyssi
|
||||
OPEN vazP
|
||||
WHILE (1=1)
|
||||
BEGIN
|
||||
SELECT TOP(1) @doklKV=Doklad FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0
|
||||
FETCH FROM vazP INTO @idVazVP, @idVPrVyssi, @mnozVyssiReq, @mnozVyssiOdv
|
||||
IF (@@FETCH_STATUS<>0) BREAK
|
||||
|
||||
SET @mnozVyssiOdvSum = ISNULL( (SELECT SUM(mnozstvi) FROM dbo.TabPrikazPrevodPolotov WHERE IDPrikazZdroj=@idVPr AND IDPrikazCil=@idVPrVyssi), 0)
|
||||
IF (@mnozVyssiOdvSum=0) AND EXISTS (SELECT 1 FROM dbo.TabPrikazPrevodPolotov WHERE IDPrikazZdroj=@idVPr AND IDPrikazCil<>@idVPrVyssi)
|
||||
CONTINUE
|
||||
|
||||
IF NOT EXISTS (SELECT 1 FROM dbo.TabVazbyPrikazu_EXT WHERE ID=@idVazVP)
|
||||
INSERT dbo.TabVazbyPrikazu_EXT (ID) VALUES (@idVazVP)
|
||||
UPDATE dbo.TabVazbyPrikazu_EXT SET _MnozstviOdv=@mnozVyssiOdvSum WHERE ID=@idVazVP
|
||||
SET @mnozVyssiReq = @mnozVyssiReq - @mnozVyssiOdvSum
|
||||
IF (@mnozVyssiReq<=0)
|
||||
CONTINUE
|
||||
|
||||
SELECT @dilecVyssi=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPrVyssi
|
||||
SELECT @dilec=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPr
|
||||
-- pokud jsem testo, odved me na vyssi prikaz
|
||||
IF EXISTS (SELECT 1 FROM dbo.TabKmenZbozi WHERE SkupZbo=N'701' AND ID=@dilec)
|
||||
BEGIN
|
||||
SELECT TOP(1) @doklKV=Doklad FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0
|
||||
|
||||
-- v pripade necelociselneho mnozstvi davky testa to na vyssim prikazu zaokrouhli vcetne vypoctu ztrat
|
||||
IF (@doklKV IS NOT NULL)
|
||||
AND EXISTS (SELECT 1 FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad))
|
||||
BEGIN
|
||||
SELECT TOP(1) @mnDavkaPred=mnoz_zad, @mnDavkaPo=CEILING(mnoz_zad), @mnBezZtrat=mnozstvi, @mnSeZtrat=mnozstviSeZtratou
|
||||
FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad)
|
||||
SET @mnSeZtrat = ROUND(@mnSeZtrat * (@mnDavkaPo/@mnDavkaPred), 6)
|
||||
UPDATE dbo.TabPrKVazby SET mnoz_zad=CEILING(mnoz_zad), mnozstviSeZtratou=@mnSeZtrat, ProcZtrat= ROUND(100*((@mnSeZtrat/@mnBezZtrat)-1), 2)
|
||||
WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad)
|
||||
IF (@doklKV IS NOT NULL)
|
||||
AND EXISTS (SELECT 1 FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad))
|
||||
BEGIN
|
||||
SELECT TOP(1) @mnDavkaPred=mnoz_zad, @mnDavkaPo=CEILING(mnoz_zad), @mnBezZtrat=mnozstvi, @mnSeZtrat=mnozstviSeZtratou
|
||||
FROM dbo.TabPrKVazby WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad)
|
||||
SET @mnSeZtrat = ROUND(@mnSeZtrat * (@mnDavkaPo/@mnDavkaPred), 6)
|
||||
UPDATE dbo.TabPrKVazby SET mnoz_zad=CEILING(mnoz_zad), mnozstviSeZtratou=@mnSeZtrat, ProcZtrat= ROUND(100*((@mnSeZtrat/@mnBezZtrat)-1), 2)
|
||||
WHERE IDOdchylkyDo IS NULL AND IDPrikaz=@IDVPrVyssi AND nizsi=@dilec AND Splneno=0 AND mnoz_zad<>CEILING(mnoz_zad)
|
||||
|
||||
-- uprav i vazbu prikazu testa na vyssi
|
||||
UPDATE dbo.TabVazbyPrikazu SET Mnozstvi=CEILING(Mnozstvi) WHERE ID=@idVazVP AND Mnozstvi<>CEILING(Mnozstvi)
|
||||
END
|
||||
UPDATE dbo.TabVazbyPrikazu SET Mnozstvi=CEILING(Mnozstvi) WHERE ID=@idVazVP AND Mnozstvi<>CEILING(Mnozstvi)
|
||||
END
|
||||
|
||||
-- pripoj to k evidenci operace
|
||||
IF (@idMzda IS NOT NULL)
|
||||
BEGIN
|
||||
IF (@idMzda IS NOT NULL)
|
||||
BEGIN
|
||||
DELETE FROM #TabOdved_IDMzdy
|
||||
INSERT #TabOdved_IDMzdy (IDPrikaz, IDMzdy) SELECT @idVPr, @idMzda
|
||||
END
|
||||
|
||||
EXEC @idPZ=dbo.hp_OdvedeniPrikazuPrevodem @DatPripadu=@aktDatum, @KonecneOdvedeniNatvrdo=0, @IDPrikazZdroj=@idVPr, @IDPrikazCil=@IDVPrVyssi,
|
||||
@Doklad=@doklKV, @IDDilec=@dilec, @mnozstvi=1, @IDOdvedeniVC=0, @IDZakazModif=@idZakazModif
|
||||
IF (@idPZ>0)
|
||||
BEGIN
|
||||
IF NOT EXISTS (SELECT 1 FROM dbo.TabVazbyPrikazu_EXT WHERE ID=@idVazVP)
|
||||
INSERT dbo.TabVazbyPrikazu_EXT (ID) VALUES (@idVazVP)
|
||||
UPDATE dbo.TabVazbyPrikazu_EXT SET _MnozstviOdv = 1 + ISNULL(_MnozstviOdv,0) WHERE ID=@idVazVP
|
||||
END
|
||||
DELETE FROM #TabOdved_IDMzdy
|
||||
INSERT #TabOdved_IDMzdy (IDPrikaz, IDMzdy) SELECT @idVPr, @idMzda
|
||||
END
|
||||
/*
|
||||
EXEC @idPZ=dbo.hp_OdvedeniPrikazuPrevodem @DatPripadu=@aktDatum, @KonecneOdvedeniNatvrdo=0, @IDPrikazZdroj=@idVPr, @IDPrikazCil=@IDVPrVyssi,
|
||||
@Doklad=@doklKV, @IDDilec=@dilec, @mnozstvi=1, @IDOdvedeniVC=0, @IDZakazModif=@idZakazModif
|
||||
IF (@idPZ>0)
|
||||
BEGIN
|
||||
IF NOT EXISTS (SELECT 1 FROM dbo.TabVazbyPrikazu_EXT WHERE ID=@idVazVP)
|
||||
INSERT dbo.TabVazbyPrikazu_EXT (ID) VALUES (@idVazVP)
|
||||
UPDATE dbo.TabVazbyPrikazu_EXT SET _MnozstviOdv = 1 + ISNULL(_MnozstviOdv,0) WHERE ID=@idVazVP
|
||||
END
|
||||
DELETE FROM #TabOdved_IDMzdy
|
||||
*/
|
||||
END -- jsem SZ 701
|
||||
|
||||
END -- jsem SZ 701
|
||||
END
|
||||
CLOSE vazP
|
||||
DEALLOCATE vazP
|
||||
END
|
||||
CLOSE vazP
|
||||
DEALLOCATE vazP
|
||||
|
||||
|
||||
|
||||
|
||||
IF 1=ISNULL( (SELECT COUNT(ID) FROM dbo.TabVazbyPrikazu WHERE IDPrikaz=@idVPr), 0)
|
||||
IF ISNULL( (SELECT COUNT(ID) FROM dbo.TabVazbyPrikazu WHERE IDPrikaz=@idVPr), 0)=1
|
||||
BEGIN
|
||||
SELECT @idVazVP=ID, @idVPrVyssi=IDPrikazVyssi FROM dbo.TabVazbyPrikazu WHERE IDPrikaz=@idVPr
|
||||
SET @mnozVyssiOdvSum = ISNULL( (SELECT SUM(mnozstvi) FROM dbo.TabPrikazPrevodPolotov WHERE IDPrikazZdroj=@idVPr AND IDPrikazCil=@idVPrVyssi), 0)
|
||||
|
||||
SELECT @dilecVyssi=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPrVyssi
|
||||
SELECT @dilec=IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPr
|
||||
-- pokud jsem testo, odved me na vyssi prikaz
|
||||
@ -1033,8 +1040,8 @@ WHILE (1=1)
|
||||
|
||||
IF (@subtypDokum IN (N'maceni', N'baleni')) AND (@jeOdvOperace=1) AND (@idMzda IS NOT NULL)
|
||||
BEGIN
|
||||
SELECT @nazevDilce=k.Nazev1 FROM dbo.TabPrikazMzdyAZmetky pmz INNER JOIN dbo.TabKmenZbozi k ON (k.ID=pmz.IDTabKmen) WHERE pmz.ID=@idMzda
|
||||
IF (@nazevDilce LIKE N'%polotovar%')
|
||||
SELECT @nazevDilce=k.Nazev1, @dilec=k.ID FROM dbo.TabPrikazMzdyAZmetky pmz INNER JOIN dbo.TabKmenZbozi k ON (k.ID=pmz.IDTabKmen) WHERE pmz.ID=@idMzda
|
||||
IF (@nazevDilce LIKE N'%polotovar%') OR EXISTS (SELECT 1 FROM dbo.TabParKmZ WHERE IDKmenZbozi=@dilec AND TypDilce=1)
|
||||
EXEC dbo.ep_Vyroba_GenOdvodZeMzdy @IDMzdy=@idMzda, @bezVyrCis=0, @radaOdvod=N'283', @skladOdvod=@sklProPolo, @realizujPrijem=1, @errMsg=@errMsg OUT
|
||||
ELSE
|
||||
EXEC dbo.ep_Vyroba_GenOdvodZeMzdy @IDMzdy=@idMzda, @bezVyrCis=0, @radaOdvod=N'273', @skladOdvod=@sklProFin, @realizujPrijem=1, @errMsg=@errMsg OUT
|
||||
@ -1202,7 +1209,9 @@ WHILE (1=1)
|
||||
INSERT dbo._TabVyroba_Objednavky (IDPrijataDataJson, IdPHIdent, IdPHIdent2, SkupZbo, RegCis, PaletovyList, Sarze, Mnozstvi, DatPorizeni)
|
||||
SELECT @idJson, @idPHIdent, @idPHIdent2, @sz, @rc, @paletList, @sarze, @mnoz, @datPorizeni
|
||||
SET @idPHObj = SCOPE_IDENTITY()
|
||||
INSERT @TabPHObj (ID, IDPHIdent) VALUES (@idPHObj, @idPHIdent)
|
||||
INSERT @TabPHObj (ID, IDPHIdent, IDSklad)
|
||||
SELECT @idPHObj, @idPHIdent, CASE WHEN k.Material=1 THEN @sklMat ELSE CASE WHEN ISNULL(p.TypDilce,0)=1 THEN @sklProPolo ELSE @sklProFin END END
|
||||
FROM dbo.TabKmenZbozi k LEFT JOIN dbo.TabParKmZ p ON (p.IDKmenZbozi=k.ID) WHERE k.SkupZbo=@sz AND k.RegCis=@rc
|
||||
IF (@typDokum='micharna') AND (@subtypDokum='nocni')
|
||||
UPDATE dbo._TabVyroba_Objednavky SET NocniObjednavka=1 WHERE ID=@idPHObj
|
||||
END
|
||||
@ -1217,20 +1226,23 @@ WHILE (1=1)
|
||||
SET @dpz = 4
|
||||
|
||||
DECLARE p CURSOR LOCAL FOR
|
||||
SELECT ID, IDPHIdent FROM @TabPHObj
|
||||
SELECT ID, IDPHIdent, IDSklad FROM @TabPHObj
|
||||
OPEN p
|
||||
WHILE (1=1)
|
||||
BEGIN
|
||||
FETCH NEXT FROM p INTO @idPHObj, @idPHIdent
|
||||
FETCH NEXT FROM p INTO @idPHObj, @idPHIdent, @sklProVydej
|
||||
IF (@@FETCH_STATUS<>0) BREAK
|
||||
|
||||
SET @idDZ = (SELECT IDDoklad FROM @TabNocniPrevodky WHERE IDSklad=@sklProVydej)
|
||||
IF (@idDZ IS NULL)
|
||||
BEGIN
|
||||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idDZ OUT, @Sklad=@sklMat, @DruhPohybu=@dpz, @RadaDokladu=@radaDZPrevodV, @CisloOrg=0
|
||||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idDZ OUT, @Sklad=@sklProVydej, @DruhPohybu=@dpz, @RadaDokladu=@radaDZPrevodV, @CisloOrg=0
|
||||
UPDATE dbo.TabDokladyZbozi SET DruhPohybuPrevod=0, TypPrevodky=N'281', IdSkladPrevodu=@sklPek, PrevodRealizovat=1 WHERE ID=@idDZ
|
||||
SELECT @menaDZ=Mena, @kurzDZ=Kurz, @kurzEDZ=KurzEuro, @jednM=JednotkaMeny, @vstC=VstupniCena, @parZnak=ParovaciZnak FROM dbo.TabDokladyZbozi WHERE ID=@idDZ
|
||||
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=0, Poznamka=N'No<EFBFBD>n<EFBFBD> v<>dej' WHERE ID=@idDZ
|
||||
UPDATE dbo._TabVyroba_Objednavky SET IDDokladOZ=@idDZ WHERE ID=@idPHObj
|
||||
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=NULL, Poznamka=N'No<EFBFBD>n<EFBFBD> v<>dej' WHERE ID=@idDZ
|
||||
-- UPDATE dbo._TabVyroba_Objednavky SET IDDokladOZ=@idDZ WHERE ID=@idPHObj
|
||||
IF NOT EXISTS (SELECT 1 FROM @TabNocniPrevodky WHERE IDSKlad=@sklProVydej)
|
||||
INSERT @TabNocniPrevodky (IDSklad, IDDoklad) SELECT @sklProVydej, @idDZ
|
||||
END
|
||||
|
||||
IF (@idDZ IS NOT NULL)
|
||||
@ -1240,9 +1252,9 @@ WHILE (1=1)
|
||||
SET @idKZ = (SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo=@sz AND RegCis=@rc)
|
||||
IF (@idKZ IS NOT NULL)
|
||||
BEGIN
|
||||
SET @idSS = (SELECT ID FROM dbo.TabStavSkladu WHERE IDKmenZbozi=@idKZ AND IDSklad=@sklMat)
|
||||
SET @idSS = (SELECT ID FROM dbo.TabStavSkladu WHERE IDKmenZbozi=@idKZ AND IDSklad=@sklProVydej)
|
||||
IF (@idSS IS NULL)
|
||||
EXEC dbo.hp_InsertStavSkladu @IDKmen=@idKZ, @IDSklad=@sklMat, @IDZboSklad=@idSS OUT
|
||||
EXEC dbo.hp_InsertStavSkladu @IDKmen=@idKZ, @IDSklad=@sklProVydej, @IDZboSklad=@idSS OUT
|
||||
IF (@idSS IS NOT NULL)
|
||||
BEGIN
|
||||
EXEC dbo.hp_InsertPolozkyOZ @ident=@idPZ OUT, @IDDoklad=@idDZ, @DruhPohybu=@dpz, @CisloOrg=0, @IDZboSklad=@idSS, @Mena=@menaDZ, @Kurz=@kurzDZ,
|
||||
@ -1261,7 +1273,7 @@ WHILE (1=1)
|
||||
END
|
||||
|
||||
SET @idVCP = NULL
|
||||
IF (@paletList<>N'')
|
||||
IF (@paletList<>N'') -- Helios VyrCis
|
||||
BEGIN
|
||||
SET @idVCK = (SELECT ID FROM dbo.TabVyrCK WHERE IDKmenZbozi=@idKZ AND Nazev1=@paletList)
|
||||
IF (@idVCK IS NULL)
|
||||
@ -1286,51 +1298,73 @@ WHILE (1=1)
|
||||
CLOSE p
|
||||
DEALLOCATE p
|
||||
|
||||
IF (@idDZ IS NOT NULL)
|
||||
DECLARE dok CURSOR LOCAL FOR
|
||||
SELECT IDDoklad FROM @TabNocniPrevodky
|
||||
OPEN dok
|
||||
WHILE (1=1)
|
||||
BEGIN
|
||||
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=NULL WHERE ID=@idDZ
|
||||
SET @logTyp=3
|
||||
SET @logInt=@idDZ
|
||||
SET @logStr = @parZnak
|
||||
SET @log4Mail = 1
|
||||
SET @logText = N'Nelze realizovat v<>dejka no<6E>n<EFBFBD> p<>evodky'
|
||||
FETCH NEXT FROM dok INTO @idDZ
|
||||
IF (@@FETCH_STATUS<>0) BREAK
|
||||
|
||||
SET @aktDatum = GETDATE()
|
||||
EXEC dbo.hp_Realizuj_Vydej @ID=@idDZ, @DatumRealizace=@aktDatum, @Uzivatel=0, @Hlidat=0, @BylaChyba=@bChyba OUT
|
||||
IF (@bChyba=0)
|
||||
IF (@idDZ IS NOT NULL)
|
||||
BEGIN
|
||||
-- je vygenerovana prijemka na druhe strane ? pokud ne, vygeneruj ji
|
||||
IF NOT EXISTS (SELECT 1 FROM dbo.TabPohybyZbozi WHERE IDOldPolozka IN (SELECT ID FROM dbo.TabPohybyZbozi WHERE IDDoklad=@idDZ))
|
||||
BEGIN
|
||||
SET @aktDatum = GETDATE()
|
||||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idDZDst OUT, @Sklad=@sklPek, @DruhPohybu=0, @RadaDokladu='281',
|
||||
@Mena=@menaDZ, @CisloOrg=0, @DatumPorizeni=@aktDatum
|
||||
IF (@idDZDst IS NOT NULL)
|
||||
BEGIN
|
||||
IF NOT EXISTS(SELECT 1 FROM dbo.TabDokladyZbozi_EXT WHERE ID=@idDZDst)
|
||||
INSERT dbo.TabDokladyZbozi_EXT (ID) VALUES (@idDZDst)
|
||||
UPDATE dbo.TabDokladyZbozi_EXT SET _Vyroba_IDPuvodniDoklad=@idDZ WHERE ID=@idDZDst
|
||||
SELECT @datReal=DatRealizace FROM dbo.TabDokladyZbozi WHERE ID=@idDZ
|
||||
EXEC dbo.hp_generuj_navazny_doklad @IDDokladDst=@idDZDst, @IDDokladSrc=@idDZ, @CisloOrgCil=0, @MUCil=NULL, @MenaCil=@menaDZ,
|
||||
@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=1, @VytvaretPolozkovouVazbu=1, @ChybaSkladana=@errMsg OUT,
|
||||
@KopirovaniDokladu=1
|
||||
IF EXISTS(SELECT 1 FROM dbo.TabPohybyZbozi WHERE IDDoklad=@idDZDst)
|
||||
AND EXISTS (SELECT 1 FROM dbo.TabDokladyZbozi WHERE Realizovano=1 AND ID=@idDZ)
|
||||
EXEC dbo.hp_Realizuj_Prijem @ID=@idDZDst, @DatumRealizace=@datReal, @Uzivatel=0, @BylaChyba=@bChyba OUT, @RealMnoz=1, @RealFin=1, @VypnoutUpozorneniPriZajistovani=1
|
||||
END
|
||||
END
|
||||
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=NULL WHERE ID=@idDZ
|
||||
SET @logTyp=3
|
||||
SET @logInt=@idDZ
|
||||
SET @logStr = @parZnak
|
||||
SET @log4Mail = 1
|
||||
SET @logText = N'Nelze realizovat v<>dejka no<6E>n<EFBFBD> p<>evodky'
|
||||
|
||||
SET @logTyp=0
|
||||
SET @logInt=0
|
||||
SET @logStr = N''
|
||||
SET @log4Mail = 0
|
||||
SET @logText = N''
|
||||
END
|
||||
SET @aktDatum = GETDATE()
|
||||
|
||||
-- odchytni chybu pri realizaci, chceme aby tam doklad zustal a vyresili to rucne
|
||||
BEGIN TRY
|
||||
EXEC dbo.hp_Realizuj_Vydej @ID=@idDZ, @DatumRealizace=@aktDatum, @Uzivatel=0, @Hlidat=0, @BylaChyba=@bChyba OUT
|
||||
END TRY
|
||||
BEGIN CATCH
|
||||
SET @bChyba=1 -- chyba, vetsinou kvuli nedostatku na skladu
|
||||
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=NULL WHERE ID=@idDZ -- zrus priznak, ktery se nastavuje pri pokusu o realizaci
|
||||
END CATCH
|
||||
|
||||
IF (@bChyba=0)
|
||||
BEGIN
|
||||
-- je vygenerovana prijemka na druhe strane ? pokud ne, vygeneruj ji
|
||||
IF NOT EXISTS (SELECT 1 FROM dbo.TabPohybyZbozi WHERE IDOldPolozka IN (SELECT ID FROM dbo.TabPohybyZbozi WHERE IDDoklad=@idDZ))
|
||||
BEGIN
|
||||
SET @aktDatum = GETDATE()
|
||||
EXEC dbo.hp_InsertHlavickyOZ @ident=@idDZDst OUT, @Sklad=@sklPek, @DruhPohybu=0, @RadaDokladu='281',
|
||||
@Mena=@menaDZ, @CisloOrg=0, @DatumPorizeni=@aktDatum
|
||||
IF (@idDZDst IS NOT NULL)
|
||||
BEGIN
|
||||
IF NOT EXISTS(SELECT 1 FROM dbo.TabDokladyZbozi_EXT WHERE ID=@idDZDst)
|
||||
INSERT dbo.TabDokladyZbozi_EXT (ID) VALUES (@idDZDst)
|
||||
UPDATE dbo.TabDokladyZbozi_EXT SET _Vyroba_IDPuvodniDoklad=@idDZ WHERE ID=@idDZDst
|
||||
SELECT @datReal=DatRealizace FROM dbo.TabDokladyZbozi WHERE ID=@idDZ
|
||||
EXEC dbo.hp_generuj_navazny_doklad @IDDokladDst=@idDZDst, @IDDokladSrc=@idDZ, @CisloOrgCil=0, @MUCil=NULL, @MenaCil=@menaDZ,
|
||||
@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=1, @VytvaretPolozkovouVazbu=1, @ChybaSkladana=@errMsg OUT,
|
||||
@KopirovaniDokladu=1
|
||||
IF EXISTS(SELECT 1 FROM dbo.TabPohybyZbozi WHERE IDDoklad=@idDZDst)
|
||||
AND EXISTS (SELECT 1 FROM dbo.TabDokladyZbozi WHERE Realizovano=1 AND ID=@idDZ)
|
||||
EXEC dbo.hp_Realizuj_Prijem @ID=@idDZDst, @DatumRealizace=@datReal, @Uzivatel=0, @BylaChyba=@bChyba OUT, @RealMnoz=1, @RealFin=1, @VypnoutUpozorneniPriZajistovani=1
|
||||
END
|
||||
END
|
||||
|
||||
SET @logTyp=0
|
||||
SET @logInt=0
|
||||
SET @logStr = N''
|
||||
SET @log4Mail = 0
|
||||
SET @logText = N''
|
||||
END -- @bChyba=0
|
||||
END -- @idDZ IS NOT NULL
|
||||
|
||||
|
||||
END
|
||||
END -- @subtypDokum='nocni'
|
||||
CLOSE dok
|
||||
DEALLOCATE dok
|
||||
END -- @typDokum='micharna' AND @subtypDokum='nocni'
|
||||
|
||||
|
||||
UPDATE dbo._hdc_ph_PrijataJsonData SET DatZpracovani=GETDATE(), Blokovano=0, IDDoklad=@idDZ WHERE ID=@idJson
|
||||
@ -1464,17 +1498,22 @@ WHILE (1=1)
|
||||
-- BEGIN: ZAHAJENI OPERACE
|
||||
IF (@akce=N'prikaz_zamena_material')
|
||||
BEGIN
|
||||
SELECT @idVPr=u2.Id, @sz=u3.skupzbo, @rc=u3.regcis
|
||||
SELECT @idVPr=u2.Id, @sz=u3.skupzbo, @rc=u3.regcis, @sz2=u4.skupzbo, @rc2=u4.regcis
|
||||
FROM #TabJSONData d
|
||||
CROSS APPLY OPENJSON (d.doc, '$')
|
||||
WITH ([prikaz] NVARCHAR(MAX) AS JSON, [material] NVARCHAR(max) AS JSON) AS u
|
||||
CROSS APPLY OPENJSON (prikaz)
|
||||
WITH (id INT) AS u2
|
||||
CROSS APPLY OPENJSON (material)
|
||||
WITH (skupzbo NVARCHAR(3), regcis NVARCHAR(30), nazev NVARCHAR(100)) AS u3;
|
||||
WITH (skupzbo NVARCHAR(3), regcis NVARCHAR(30), nazev NVARCHAR(100)) AS u3
|
||||
CROSS APPLY OPENJSON (removeMaterial)
|
||||
WITH (skupzbo NVARCHAR(3), regcis NVARCHAR(30), nazev NVARCHAR(100)) AS u4;
|
||||
|
||||
SET @idKZn = (SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo=@sz AND RegCis=@rc)
|
||||
SET @idKZn2 = (SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo=@sz2 AND RegCis=@rc2)
|
||||
|
||||
IF EXISTS (SELECT 1 FROM dbo.TabPrikaz WHERE ID=@idVPr AND StavPrikazu=30)
|
||||
BEGIN
|
||||
SET @idKZn = (SELECT ID FROM dbo.TabKmenZbozi WHERE SkupZbo=@sz AND RegCis=@rc)
|
||||
SELECT @idKZv = (SELECT IDTabKmen FROM dbo.TabPrikaz WHERE ID=@idVPr)
|
||||
IF (@idVPr IS NOT NULL) AND (@idKZn IS NOT NULL) AND (@idKZn<>@idKZv)
|
||||
BEGIN
|
||||
@ -1501,6 +1540,7 @@ WHILE (1=1)
|
||||
END -- (@idPrKVazbyNova IS NOT NULL)
|
||||
END -- (@idVPr IS NOT NULL) AND (@idKZn IS NOT NULL)
|
||||
END -- prikaz ve stavu 30
|
||||
|
||||
END -- akce:
|
||||
-- END: ZAHAJENI OPERACE
|
||||
|
||||
@ -1513,6 +1553,40 @@ WHILE (1=1)
|
||||
ROLLBACK TRAN
|
||||
SET @errMsg = ERROR_PROCEDURE() + N'/r.' + CONVERT(nvarchar, ERROR_LINE()) + N' >> ' + ERROR_MESSAGE()
|
||||
|
||||
|
||||
-- begin: pouzavirej mozne cursory
|
||||
IF (CURSOR_STATUS('local','dok')>=-1)
|
||||
BEGIN
|
||||
CLOSE dok
|
||||
DEALLOCATE dok
|
||||
END
|
||||
|
||||
IF (CURSOR_STATUS('local','vy')>=-1)
|
||||
BEGIN
|
||||
CLOSE vy
|
||||
DEALLOCATE vy
|
||||
END
|
||||
|
||||
IF (CURSOR_STATUS('local','vyPol')>=-1)
|
||||
BEGIN
|
||||
CLOSE vyPol
|
||||
DEALLOCATE vyPol
|
||||
END
|
||||
|
||||
IF (CURSOR_STATUS('local','p')>=-1)
|
||||
BEGIN
|
||||
CLOSE p
|
||||
DEALLOCATE p
|
||||
END
|
||||
|
||||
IF (CURSOR_STATUS('local','vazP')>=-1)
|
||||
BEGIN
|
||||
CLOSE vazP
|
||||
DEALLOCATE vazP
|
||||
END
|
||||
-- end: pouzavirej mozne cursory
|
||||
|
||||
|
||||
UPDATE dbo._hdc_ph_PrijataJsonData SET PosledniChyba=@errMsg WHERE ID=@idJson
|
||||
|
||||
IF (@logTyp>0)
|
||||
@ -1547,5 +1621,3 @@ DROP TABLE IF EXISTS #TabPrKVazbyGenVC
|
||||
-- pro jistotu
|
||||
IF OBJECT_ID(N'tempdb..#TabJSONData', N'U') IS NOT NULL
|
||||
DROP TABLE #TabJSONData
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user