TomBuzin/HDCApi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dalsi zmeny

Browse Source
This commit is contained in:
TomBuz
2026-03-03 16:18:27 +01:00
parent 03ff9ebc84
commit a62b608cfd
97 changed files with 4635 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
_custom/Rootvin/sql/ep_Vyroba_DoplnSkladProVydejDleDokladu.sql
View File

@ -1,7 +1,8 @@
-- dbo.ep_Vyroba_DoplnSkladProVydejDleDokladu
CREATE PROCEDURE dbo.ep_Vyroba_DoplnSkladProVydejDleDokladu
@IDDoklad INT,
@errMsg NVARCHAR(500)=N'' OUT
@errMsg NVARCHAR(500)=N'' OUT,
@IDDokladPrijem INT=NULL OUT
AS
-- HD Consulting Strakonice, T. Buzin
@ -10,7 +11,7 @@ AS
SET NOCOUNT ON
IF EXISTS(SELECT 1 FROM dbo.TabDokladyZbozi WHERE Realizovano=1)
IF EXISTS(SELECT 1 FROM dbo.TabDokladyZbozi WHERE ID=@IDDoklad AND Realizovano=1)
RETURN
@ -37,6 +38,7 @@ DECLARE
DECLARE
@sklMatHlavni NVARCHAR(30),
@sklTechnolog NVARCHAR(30),
@sklTechnologPolo NVARCHAR(30),
@sklPekarna NVARCHAR(30),
@poslSarze NVARCHAR(100),
@poslPalList NVARCHAR(100)
@ -61,13 +63,15 @@ DELETE FROM @pol
SET @uziv = 0
IF (@sklMatHlavni IS NULL)
SELECT @sklMatHlavni=Cislo FROM dbo.TabStrom WHERE Nazev=N'Hlavní sklad - Materiál'
SELECT @sklMatHlavni=Cislo FROM dbo.TabStrom WHERE Nazev=N'Hlavn<EFBFBD> sklad - Materi<EFBFBD>l' AND CisloStr LIKE N'3%'
IF (@sklTechnolog IS NULL)
SELECT @sklTechnolog=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NOVÝ% sklad%výdej%'
SELECT @sklTechnolog=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NE<EFBFBD><EFBFBD>%' AND Nazev NOT LIKE N'%polotov%' AND CisloStr LIKE N'2%'
IF (@sklTechnolog IS NULL)
SELECT @sklTechnolog=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%sklad%výdej%'
SELECT @sklTechnolog=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%sklad%v<EFBFBD>dej%' AND CisloStr LIKE N'2%'
IF (@sklTechnologPolo IS NULL)
SELECT @sklTechnologPolo=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Technolog%NE<4E><45>%pol%' AND CisloStr LIKE N'2%'
IF (@sklPekarna IS NULL)
SELECT @sklPekarna=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'Výroba - Pekárna'
SELECT @sklPekarna=Cislo FROM dbo.TabStrom WHERE Nazev LIKE N'V<EFBFBD>roba - Pek<EFBFBD>rna' AND CisloStr LIKE N'2%'
@ -92,10 +96,10 @@ WHILE (1=1)
AND p.Mnozstvi>0
AND d.DruhPohybuZbo IN (2,4)
AND d.Realizovano=0
AND d.DatPorizeni<@datPorizeni)
AND DATEDIFF(day, d.DatPorizeni, @datPorizeni)<2)
, 0)
SET @mnozSkl = ISNULL( (SELECT Mnozstvi FROM dbo.TabStavSkladu WHERE ID=@idSS), 0)
SET @mnozChybi = @mnozSkl - @mnozPZ - @mnozNevyd
SET @mnozChybi = -1.0 * (@mnozSkl - @mnozPZ - @mnozNevyd)
IF (@mnozChybi>0)
BEGIN
SET @idSSPek = NULL
@ -159,7 +163,7 @@ IF EXISTS(SELECT 1 FROM @pol)
DEALLOCATE c
UPDATE dbo.TabDokladyZbozi SET BlokovaniEditoru=NULL WHERE ID=@idDZNew
EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=@idDZ, @AktualizaceSlev=0
EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=@idDZNew, @AktualizaceSlev=0
-- realizace
EXEC dbo.hp_Realizuj_Prijem @ID=@idDZNew, @DatumRealizace=@datNasklad, @Uzivatel=@uziv, @BylaChyba=@bChyba OUT
@ -171,8 +175,12 @@ IF EXISTS(SELECT 1 FROM @pol)
SET @errMsg = ERROR_MESSAGE()
IF (@tranPred=0) AND (@@TRANCOUNT>0)
ROLLBACK TRAN
INSERT dbo._hdc_ph_Log (Typ, LogText, IntValue) SELECT 10, N'Chyba (3) p<><70>jemky korekce (ID ' + CONVERT(nvarchar, @idDZNew) + N') naskladn<64>n<EFBFBD> pro v<>dejku: ' + @errMsg, @IDDoklad
END CATCH
END
SET @IDDokladPrijem=@idDZNew