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

31
_custom/INCOSystems/sql/ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi.sql Normal file
View File

@ -0,0 +1,31 @@
-- dbo.ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi
CREATE FUNCTION dbo.ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi (@IDPrikaz INT, @Doklad INT, @Alt NCHAR(1) )
RETURNS BIT
AS
BEGIN
DECLARE
@retVal BIT=0,
@sCisOper NVARCHAR(4),
@iCisOper INT
DECLARE @idPredOperaci TABLE (ID INT NOT NULL)
SET @sCisOper=(SELECT TOP(1) TRIM(Operace) FROM dbo.TabPrPostup WITH(NOLOCK) WHERE IDPrikaz=@IDPrikaz AND Doklad=@Doklad AND Alt=@Alt AND IDOdchylkyDo IS NULL)
SET @iCisOper=TRY_PARSE(@sCisOper AS INT)
IF (@iCisOper IS NOT NULL)
BEGIN
-- zjisti IDcka operaci prede mnou (dle cisla operace)
INSERT @idPredOperaci (ID)
SELECT ID FROM dbo.TabPrPostup WITH(NOLOCK) WHERE IDPrikaz=@IDPrikaz AND IDOdchylkyDo IS NULL AND ISNULL(TRY_PARSE(TRIM(Operace) AS INT),0)<@iCisOper
-- jsou operace prede mnou ?
IF EXISTS(SELECT 1 FROM @idPredOperaci)
-- je nejaka co mam rozjetou v Evid.rozprac.operaci ?
IF EXISTS (SELECT 1 FROM dbo.TabEvidRozpracOperR r WITH(NOLOCK) JOIN dbo.TabEvidRozpracOper h WITH(NOLOCK) ON (h.ID=r.IDEvidRozpracOper)
JOIN dbo.TabPrPostup p WITH(NOLOCK) ON (p.IDPrikaz=@IDPrikaz AND p.IDOdchylkyDo IS NULL)
WHERE p.ID IN (SELECT ID FROM @idPredOperaci) AND h.Stav IN (10,20)
)
SET @retVal=1
END
RETURN @retVal
END

12
_custom/INCOSystems/sql/ep_HDCDZApi_ZpracujPrijataData.sql
View File

@ -204,11 +204,11 @@ IF (@idPrednaOpOdv IS NOT NULL)
IF (@idJson IS NOT NULL)
DECLARE j CURSOR LOCAL FOR
SELECT ID, JsonData, Objekt, Akce FROM dbo._hdc_ph_PrijataJsonData WHERE ID=@idJson
SELECT ID, JsonData, Objekt, Akce FROM dbo._hdc_ph_PrijataJsonData WITH(NOLOCK) WHERE ID=@idJson
ELSE
DECLARE j CURSOR LOCAL FOR
SELECT ID, JsonData, Objekt, Akce
FROM dbo._hdc_ph_PrijataJsonData
FROM dbo._hdc_ph_PrijataJsonData WITH(NOLOCK)
WHERE Blokovano=0
AND DatZpracovani IS NULL
AND ISNULL(JSONData,N'')<>N''
@ -273,6 +273,8 @@ WHILE (1=1)
CROSS APPLY OPENJSON(d3.operace, N'$')
WITH ([prikazy] NVARCHAR(max) AS JSON) AS d4
IF (@idVPr IS NOT NULL)
UPDATE dbo._hdc_ph_PrijataJsonData SET IDPrikaz=@idVPr WHERE ID=@idJson
IF (@idDatazoneOper IS NOT NULL)
UPDATE dbo._hdc_ph_PrijataJsonData SET IdPHIdent=@idDatazoneOper WHERE ID=@idJson
@ -338,7 +340,7 @@ WHILE (1=1)
IF (@@FETCH_STATUS<>0) BREAK
SELECT @idDilec=p.IDTabKmen, @sklProVydejRP=rp.VydejMatPol_SkladProGenHlavDZ
FROM dbo.TabPrikaz p INNER JOIN dbo.TabRadyPrikazu rp ON (rp.Rada=p.Rada) WHERE p.ID=@idVPr
FROM dbo.TabPrikaz p WITH(NOLOCK) JOIN dbo.TabRadyPrikazu rp WITH(NOLOCK) ON (rp.Rada=p.Rada) WHERE p.ID=@idVPr
-- SET @operPredna=dbo.hf_ZarovnejOperaciTechPos(@operPredna)
/*
@ -375,7 +377,7 @@ WHILE (1=1)
IF (@idPrP IS NOT NULL)
BEGIN
-- korekce cisla dokladu, pred odvadeci opeaci
SELECT @dokl=ISNULL(MAX(Doklad),0)+1 FROM dbo.TabPrPostup WITH (TABLOCKX) WHERE IDPrikaz=@idVPr AND Doklad<9990
SELECT @dokl=ISNULL(MAX(Doklad),0)+1 FROM dbo.TabPrPostup WHERE IDPrikaz=@idVPr AND Doklad<9990
UPDATE dbo.TabPrPostup SET Doklad=@dokl, Odvadeci=0 WHERE ID=@idPrP
END
END
@ -492,6 +494,8 @@ WHILE (1=1)
IF (CHARINDEX('skupina', @materialJson)>0)
UPDATE dbo._hdc_ph_PrijataJsonData SET MamMaterial=1 WHERE ID=@idJson
IF (@idVPr IS NOT NULL)
UPDATE dbo._hdc_ph_PrijataJsonData SET IDPrikaz=@idVPr WHERE ID=@idJson
IF (@idDatazoneOper IS NOT NULL)
UPDATE dbo._hdc_ph_PrijataJsonData SET IdPHIdent=@idDatazoneOper WHERE ID=@idJson

12
_custom/INCOSystems/sql/tbl_hdc_ph_PrijataJsonData_rozsireni.sql Normal file
View File

@ -0,0 +1,12 @@
IF OBJECT_ID(N'dbo._hdc_ph_PrijataJsonData', N'U') IS NOT NULL
BEGIN
/* 18.8.2025 */
IF COL_LENGTH(N'dbo._hdc_ph_PrijataJsonData', N'IDPrikaz') IS NULL ALTER TABLE dbo._hdc_ph_PrijataJsonData ADD IDPrikaz INT NULL
DROP INDEX IF EXISTS EI_hdc_ph_PrijataJsonData_IDPrikaz ON dbo._hdc_ph_PrijataJsonData
CREATE NONCLUSTERED INDEX EI_hdc_ph_PrijataJsonData_IDPrikaz ON dbo._hdc_ph_PrijataJsonData (IDPrikaz)
WITH ( PAD_INDEX = OFF, DROP_EXISTING = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON)
/* 21.8.2025 */
IF COL_LENGTH(N'dbo._hdc_ph_PrijataJsonData', N'MamMaterial') IS NULL ALTER TABLE dbo._hdc_ph_PrijataJsonData ADD MamMaterial BIT NOT NULL DEFAULT 0
END

BIN
_custom/INCOSystems/zdroje.RES
View File

Binary file not shown.

20
_custom/INCOSystems/zdroje.rc
View File

@ -1,9 +1,11 @@
col_TabPredna_EXT RCDATA .\sql\col_TabPredna_EXT.sql
col_TabKmenZbozi_EXT RCDATA .\sql\col_TabKmenZbozi_EXT.sql
col_TabEvidRozpracOper_EXT RCDATA .\sql\col_TabEvidRozpracOper_EXT.sql
col_TabPrPostup_EXT RCDATA .\sql\col_TabPrPostup_EXT.sql
ep_Vyroba_GenVydejZeMzdy RCDATA .\sql\ep_Vyroba_GenVydejZeMzdy.sql
ep_Vyroba_GenOdvodZeMzdy RCDATA .\sql\ep_Vyroba_GenOdvodZeMzdy.sql
ep_Vyroba_InsertEvidRozpracOper RCDATA .\sql\ep_Vyroba_InsertEvidRozpracOper.sql
ep_Vyroba_InsertEvidRozpracOperPol RCDATA .\sql\ep_Vyroba_InsertEvidRozpracOperPol.sql
ep_HDCDZApi_ZpracujPrijataData RCDATA .\sql\ep_HDCDZApi_ZpracujPrijataData.sql
ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi RCDATA .\sql\ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi.sql
tbl_hdc_ph_PrijataJsonData_rozsireni RCDATA .\sql\tbl_hdc_ph_PrijataJsonData_rozsireni.sql
col_TabPredna_EXT RCDATA .\sql\col_TabPredna_EXT.sql
col_TabKmenZbozi_EXT RCDATA .\sql\col_TabKmenZbozi_EXT.sql
col_TabEvidRozpracOper_EXT RCDATA .\sql\col_TabEvidRozpracOper_EXT.sql
col_TabPrPostup_EXT RCDATA .\sql\col_TabPrPostup_EXT.sql
ep_Vyroba_GenVydejZeMzdy RCDATA .\sql\ep_Vyroba_GenVydejZeMzdy.sql
ep_Vyroba_GenOdvodZeMzdy RCDATA .\sql\ep_Vyroba_GenOdvodZeMzdy.sql
ep_Vyroba_InsertEvidRozpracOper RCDATA .\sql\ep_Vyroba_InsertEvidRozpracOper.sql
ep_Vyroba_InsertEvidRozpracOperPol RCDATA .\sql\ep_Vyroba_InsertEvidRozpracOperPol.sql
ep_HDCDZApi_ZpracujPrijataData RCDATA .\sql\ep_HDCDZApi_ZpracujPrijataData.sql