All pastes #367361 Raw Edit

Unnamed

public text v1 · immutable
#367361 ·published 2007-02-22 09:12 UTC
rendered paste body
              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