Prvni verze

_sql/ep_V01.sql

@@ -0,0 +1,68 @@
+/* HELIOS iNuvio | NTB-T.Rootvin | 2024-09-18 09:28:15 */
+
+DECLARE @GUID BINARY(16),@Id INT,@Popis NVARCHAR(255),@UP NVARCHAR(255),@Parametry NVARCHAR(255),@IdBrowse INT,@Poznamka NVARCHAR(MAX),@Autor NVARCHAR(255),@DatPorizeni DATETIME,@Zmenil NVARCHAR(255),@DatZmeny DATETIME,@ParamHe INT,@Typ INT,@BidNavBrowse INT,@TextNavBrowse INT,@ZobrUkonceni BIT,@VerejnaAkce BIT,@ObnovitPoUkonceni BIT,@eServer BIT, @ZobrazitEditorPar BIT, @ObsluznyPlugin NVARCHAR(255),
+@BlokovaniEditoru SMALLINT,@TextBrowse INT,@CyklickyEditor BIT,@SelectoTvurceVlastnikId BIT,@VstupneID NVARCHAR(255),@PosunPoZaznamech INT,@TechnickyPopis NVARCHAR(MAX),@Napoveda NVARCHAR(255),@Hotkey INT,@NavaznaAkce INT,@NavaznaAkceGUID BINARY(16),@Skupina NVARCHAR(255),@NazevPodmenu NVARCHAR(255),@PoradiVPodmenu INT,@err NVARCHAR(2047),@IdExtKom INT,@GUIDFiltr BINARY(16),@IDFiltr INT,@ErrStr NVARCHAR(2047),@SkriptPredSpustenim NVARCHAR(MAX),@Automatizace BIT
+
+SELECT @Id=6,@Popis=N'Spec - realizace v<>dejky (po)',@UP=N'dbo.ep_V01',@Parametry=N'',@IdBrowse=990990,@Poznamka=N'CREATE PROCEDURE dbo.ep_V01
+   @IDDoklad INT
+AS
+
+SET NOCOUNT ON
+
+-- dopln<6C>k realizace skladov<6F>ch v<>dej<65>. Vol<6F> se na konci procesu realizace v<>dej<65>. Vstupn<70> parametr ID dokladu, v<>stup nen<65>.
+
+
+
+DECLARE
+ @rada NVARCHAR(3),
+ @idSklad NVARCHAR(30)
+
+
+SELECT @rada=RadaDokladu, @idSklad=IDSklad
+ FROM dbo.TabDokladyZbozi WHERE ID=@IDDoklad
+
+
+
+-- pro reseni HDC Strakonice, moznost dalsi slepe procedury
+IF OBJECT_ID(N''dbo.ep_V01_HDC1'', N''P'') IS NOT NULL
+ EXEC sp_executesql N''EXEC dbo.ep_V01_HDC1 @IDDoklad'', N''@IDDoklad INT'', @IDDoklad
+
+',@Autor=N'Import HDC',@DatPorizeni='20240918 09:23:37.193',@Zmenil=NULL,@DatZmeny=NULL,@ParamHe=0,@Typ=0,@BidNavBrowse=NULL,@TextNavBrowse=NULL,@ZobrUkonceni=0,@VerejnaAkce=0,@NavaznaAkceGUID=CAST(NULL AS UNIQUEIDENTIFIER),@BlokovaniEditoru=NULL,@TextBrowse=990990,@CyklickyEditor=0,@SelectoTvurceVlastnikId=0,@VstupneID=NULL,@TechnickyPopis=NULL,@Napoveda=NULL,@Hotkey=0,@GUID=CAST(N'5C642FF2-6E25-4FD8-AB32-F27EC5B249A3' AS UNIQUEIDENTIFIER),@Skupina=N'',@NazevPodmenu=N'',@PoradiVPodmenu=0,@GUIDFiltr=CAST(NULL AS UNIQUEIDENTIFIER),@eServer=0,@ZobrazitEditorPar=1,@ObsluznyPlugin=N'',@PosunPoZaznamech=0,@ObnovitPoUkonceni=0,@SkriptPredSpustenim=NULL,@Automatizace=0
+IF @NavaznaAkceGUID IS NULL 
+SET @NavaznaAkce = NULL 
+ELSE 
+BEGIN 
+SET @NavaznaAkce=(SELECT Id FROM dbo.TabExtKom WHERE GUID=@NavaznaAkceGUID) 
+IF @NavaznaAkce IS NULL 
+BEGIN 
+SET @err=CAST(CAST(@NavaznaAkceGUID AS UNIQUEIDENTIFIER)AS NVARCHAR(36))
+SET @ErrStr = dbo.hf_FormatError(75037, @err)
+RAISERROR(@ErrStr, 16, 1)
+RETURN 
+END 
+END
+IF @GUIDFiltr IS NULL
+SET @IDFiltr = NULL
+ELSE
+SELECT @IDFiltr = ID FROM TabFiltr WHERE GUID = @GUIDFiltr
+
+IF NOT EXISTS(SELECT * FROM dbo.TabExtKom WHERE [UP]=N'dbo.ep_V01')
+INSERT dbo.TabExtKom (GUID,Popis,UP,Parametry,IdBrowse,Poznamka,Autor,
+DatPorizeni,Zmenil,DatZmeny,ParamHe,Typ,BidNavBrowse,TextNavBrowse,
+ZobrUkonceni,VerejnaAkce,BlokovaniEditoru,TextBrowse,CyklickyEditor,
+SelectoTvurceVlastnikId,VstupneID,TechnickyPopis,Napoveda,Hotkey,
+NavaznaAkce,Skupina,NazevPodmenu,PoradiVPodmenu,IDFiltr,
+eServer, ZobrazitEditorPar, ObsluznyPlugin, PosunPoZaznamech,
+ObnovitPoUkonceni,SkriptPredSpustenim,Automatizace)
+VALUES (@GUID,@Popis,@UP,@Parametry,@IdBrowse,@Poznamka,@Autor,@DatPorizeni,
+@Zmenil,@DatZmeny,@ParamHe,@Typ,@BidNavBrowse,@TextNavBrowse,@ZobrUkonceni,
+@VerejnaAkce,@BlokovaniEditoru,@TextBrowse,@CyklickyEditor,@SelectoTvurceVlastnikId,
+@VstupneID,@TechnickyPopis,@Napoveda,@Hotkey,@NavaznaAkce,@Skupina,@NazevPodmenu,
+@PoradiVPodmenu,@IDFiltr,@eServer,@ZobrazitEditorPar,@ObsluznyPlugin,@PosunPoZaznamech,
+@ObnovitPoUkonceni,@SkriptPredSpustenim,@Automatizace)
+
+SET @IdExtKom=(SELECT Id FROM dbo.TabExtKom WHERE GUID=@GUID) 
+DELETE dbo.TabExtKomPar WHERE IdExtKom=@IdExtKom
+
+IF OBJECT_ID(N'dbo.ep_V01', N'P') IS NULL
+ EXEC sp_executesql @Poznamka