69 lines
3.8 KiB
Transact-SQL
69 lines
3.8 KiB
Transact-SQL
/* 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ìk realizace skladových výdejù. Volá se na konci procesu realizace výdejù. Vstupní parametr ID dokladu, výstup není.
|
|
|
|
|
|
|
|
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
|