CREATE PROCEDURE JournalServiceNewService
	@UIDConsumer int = NULL,
	@UIDPayer int = NULL,
	@UIDService int = NULL,
	@Quantity float = NULL,
	@Lag int = NULL,
	@Discount float = NULL,
	@Caption varchar( 255 ) = NULL,
	@Charge bit = NULL,
	@Taxrate money  = NULL,
	@UIDOperation int = NULL,
	@UIDJournalService int = NULL OUTPUT,
	@UIDSub01 int = NULL,
	@UIDSub02 int = NULL,
	@UIDSub03 int = NULL,
	@UIDSub04 int = NULL,
	@UIDSub05 int = NULL,
	@UIDSub06 int = NULL,
	@UIDSub07 int = NULL,
	@UIDSub08 int = NULL,
	@UIDSub09 int = NULL,
	@UIDSub10 int = NULL

AS

	DECLARE @Summ money
	DECLARE @FSumm money

	BEGIN TRANSACTION  TRA_SERV_NEW

	EXEC JournalServiceInsert @UIDConsumer, NULL, @UIDService, @Quantity, @Lag, NULL, @Discount, @Caption,  1 , @Taxrate, @UIDJournalService OUT
	IF (@UIDJournalService IS NULL) BEGIN
		RAISERROR ('Ошибка добавления записи в таблицу услуг', 16 , 1 )
		ROLLBACK TRANSACTION TRA_SERV_NEW
		RETURN
	END

	EXEC JournalServiceCharge @UIDJournalService, @UIDPayer,  1 , @Discount, @Summ OUT, @UIDSub01, @UIDSub02, @UIDSub03, @UIDSub04, @UIDSub05, @UIDSub06, @UIDSub07, @UIDSub08, @UIDSub09, @UIDSub10
	IF (@Summ IS NULL) BEGIN
		RAISERROR ('Ошибка проводки', 16 , 1 )
		ROLLBACK TRANSACTION TRA_SERV_NEW

 -- Менно этот роллбэк не срабатывает.
 

		RETURN
	END

	IF ((@UIDOperation IS NOT NULL) and (@UIDOperation<> 0 )) BEGIN
		IF NOT EXISTS (SELECT UID FROM list_operation WHERE UID=@UIDOperation) BEGIN
			RAISERROR ('Операция задана неверно', 16 , 1 )
			ROLLBACK TRANSACTION TRA_SERV_NEW
			RETURN
		END

		EXEC JournalServicePay @UIDJournalService, @UIDOperation,  1 , @FSumm OUT
		IF (@FSumm IS NULL) BEGIN
			RAISERROR ('Ошибка оплаты', 16 , 1 )
			ROLLBACK TRANSACTION TRA_SERV_NEW
			RETURN
		END
	END

	COMMIT TRANSACTION TRA_SERV_NEW
GO