Input_Box.spTETELEK.Parameters.ParamValues['@MUV']:='DELALL';
Input_Box.spTETELEK.Parameters.ParamValues['@FEJID']:=SzamlakID.Value;
Input_Box.spTETELEK.ExecProc;
Input_Box.spFORGALOM.Parameters.ParamValues['@MUV']:='DEL';
Input_Box.spFORGALOM.Parameters.ParamValues['@ID']:=SzamlakID.Value;
Input_Box.spFORGALOM.ExecProc;
CREATE procedure dbo.spForgalom_TETELEK
(@MUV varchar(3),
@ID int,
@FEJID int,
@CIKKID int,
@cikknev varchar(255),
@ar float,
@darab int,
@tipus varchar(255)
)
AS
BEGIN
IF @MUV='INS'
BEGIN
INSERT INTO [Accounting].[dbo].[Forgalom_TETELEK]([FEJID], [CIKKID], [cikknev], [ar],[darab],[tipus])
VALUES(@FEJID,@CIKKID,@cikknev,@ar,@darab,@tipus)
END
IF @MUV='UPD'
BEGIN
UPDATE [Accounting].[dbo].[Forgalom_TETELEK] SET CIKKID=@CIKKID,
cikknev=@cikknev,
ar=@ar,
darab=@darab,
tipus=@tipus
where ID=@ID
END
IF @MUV='DEL'
BEGIN
DELETE [Accounting].[dbo].[Forgalom_TETELEK]
where ID=@ID
END
IF @MUV='DELALL'
BEGIN
DELETE [Accounting].[dbo].[Forgalom_TETELEK]
where FEJID=@FEJID
END
END
GO