Dalsi zmeny

_custom/INCOSystems/sql/ef_Vyroba_EvidROpR_MamNeuzavrenouPredchozi.sql

@@ -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

_custom/INCOSystems/sql/ep_HDCDZApi_ZpracujPrijataData.sql

@@ -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
 

_custom/INCOSystems/sql/tbl_hdc_ph_PrijataJsonData_rozsireni.sql

@@ -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