USE [irs]
GO
/****** Object: StoredProcedure [dbo].[sayimkaydet] Script Date: 02.10.2014 15:15:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <KonukA>
-- Create date: <8.03.2010>
-- Description: <sayım sonuçları - kirli kayıt>
-- =============================================
ALTER PROCEDURE [dbo].[sayimkaydet]
-- Add the parameters for the stored procedure here
@kirno INT ,
@tarihx CHAR(10) ,
@teksid INT ,
@beyan SMALLINT ,
@gelen SMALLINT ,
@iade SMALLINT ,
@sayimid TINYINT , -- operatör id
@paketnot VARCHAR(100) ,
@ant1hen2 TINYINT
AS
BEGIN
SET NOCOUNT ON; -- SET NOCOUNT ON added to prevent extra result sets from interfering with SELECT statements.
-- komutlar
DECLARE @tarih DATE
SET @tarih = CONVERT(DATE,@tarihx,4)
DECLARE @lteksid SMALLINT
SET @lteksid = ABS(@teksid)%100000
DECLARE @müşterid SMALLINT
SET @müşterid = ABS(@teksid)/100000
DECLARE @kirliadeneden VARCHAR(50)
SET @kirliadeneden ='iade stoktan düşüldü'+STR(@kirno)+' - '+CONVERT(CHAR(10),@tarih,4)
DECLARE @yenid INT
SET @paketnot = ltrim(str(@kirno%100000000))+' - '+LEFT(@paketnot,85) --STR(@kirno,10)+' - '+LEFT(@paketnot,85)
INSERT INTO [irs].[dbo].[af]
([afno],[teksid],[beyan], [adet], devir)
VALUES ( @kirno, @teksid, @beyan, @gelen, @gelen)
UPDATE [irs].[dbo].[tekstil]
SET [gelen] = [gelen]+ @gelen ,
[iadgelen] = [iadgelen]+ @iade
WHERE [teksid] = @teksid
IF @iade > 0
BEGIN
IF @teksid < 0
BEGIN
SET @yenid= ISNULL((SELECT MIN(paketid) FROM irs..paket),0)-1
END
ELSE
BEGIN
SET @yenid= ISNULL((SELECT MAX(paketid) FROM irs..paket),0)+1
END
INSERT INTO [irs].[dbo].[paket]
([paketid] ,[paketarih] ,[paketnot] ,[kkid] , [st])
VALUES
(@yenid, @tarih, @paketnot, @sayimid, @ant1hen2*10+8)
INSERT INTO [irs].[dbo].[paket_]
([paketid] ,[teksid] ,[adet])
VALUES
(@yenid, @teksid, @iade)
END
IF @teksid < 0
BEGIN
UPDATE [irs].[dbo].[ltekstil_]
SET [lgelen] = [lgelen]+ @gelen ,
[liadgelen] = [liadgelen]+ @iade
WHERE [lteksid] = @lteksid
END
IF @iade > 0 AND @teksid < 0
BEGIN
INSERT INTO [irs].[dbo].[ltekaydet]
([lteksid],[ladet],[lnot],[lfiyat],[lgram],[tarih],[opid],[müşterid],[ant1hen2])
VALUES (@lteksid,@iade,@kirliadeneden,
(SELECT [lmaliyet] FROM [irs].[dbo].[ltekstil] WHERE [lteksid] = @lteksid) ,
(SELECT [lgram] FROM [irs].[dbo].[ltekstil] WHERE [lteksid] = @lteksid) ,
@tarih, @sayimid, @müşterid, @ant1hen2)
END
END
