/****** Object:  StoredProcedure [dbo].[vevo_szla_pu]    Script Date: 06/23/2008 15:20:07 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[vevo_szla_pu]
	@vkod kulcs,
	@tdat datum, 
	@szdat datum, 
	@fmod char(1), 
	@fhat datum,
	@pn penznem,
	@kurz kurzus,
	@kedv kedvezmeny,
	@tipus kulcs,
	@uzletkoto kulcs,
	@megj megjegyzes,
	@kics kicsoda

WITH RECOMPILE
 AS
begin

	SET XACT_ABORT  ON
	declare @tranznev char(32)
	declare @sorsz bizonylat_szam
	declare @ev char(4)
	declare @vnev nev
	declare @cn nev
	declare @tet bizonylat_tetel
	declare @csz cikk_szam
	declare @me menny_egyseg
	declare @szorz szorzo
	declare @ear egyseg_ar
	declare @db mennyiseg
	declare @afak afa_kulcs
	declare @tkedv kedvezmeny
	declare @tmegj megjegyzes
	declare @kulcs varchar(20)

	set @tranznev='t_vevo_puj_uj'+@kics
	set @ev=left(@szdat,4)
	set @kulcs = @ev + 'vevo_szla'
	set @vnev=(select vevo_nev from vevok where vevo_kod=@vkod)

	BEGIN TRANSACTION @tranznev

		exec bizsorsz_no @kulcs, @sorsz output

		insert into vevo_szlaf
		values( @sorsz,
				@vkod,
				@vnev,
				@tdat,
				@szdat,
				@fmod,
				@fhat,
				@pn,
				@kurz,
				0,
				@kedv,
				@tipus,
				@uzletkoto,
				@megj,
				'',
				'',
				'',
				'',
				'1', 0,
				@kics,
				dbo.myGetDateTime(),0)


		DECLARE kvevo_szla_pu SCROLL CURSOR
		FOR   
		select cikk_szam,
				cikk_nev,
				menny_egys,
				szorzo,
				afa_kulcs,
				darab,
				egyseg_ar,
				kedvezmeny,
				megjegyzes
		from wvevo_szlat
		where kicsoda=@kics
		order by cikk_nev

		OPEN kvevo_szla_pu

		FETCH NEXT FROM kvevo_szla_pu INTO @csz, @cn, @me, @szorz, @afak, @db, @ear, @tkedv, @tmegj
		set @tet=1
		WHILE (@@FETCH_STATUS <> -1)
		BEGIN
			IF (@@FETCH_STATUS <> -2)
			BEGIN 
				insert into vevo_szlat
				values( @sorsz,
						@tet, 
						@csz,
						@cn,
						@afak,
						@me,
						@szorz,
						@db,
						@db,
						@ear,
						@tkedv,
						@tmegj, '')
				set @tet=@tet+1  
			END
			FETCH NEXT FROM kvevo_szla_pu INTO @csz, @cn, @me, @szorz, @afak, @db, @ear, @tkedv, @tmegj
		END
		CLOSE kvevo_szla_pu
		DEALLOCATE kvevo_szla_pu

		delete from wvevo_szlat where kicsoda=@kics
		
	COMMIT TRANSACTION @tranznev

end