&НаКлиенте

Процедура ЗапуститьСканирование()

	

	#Если МобильноеПриложениеКлиент  Тогда

		 Если НЕ СредстваМультимедиа.ПоддерживаетсяСканированиеШтрихКодов() Тогда

    		ВызватьИсключение НСтр("ru='Сканирование штрихкодов не поддерживается';en='Barcode scanning is not supported'");

			Возврат;

  		КонецЕсли;

		ОбработчикСканирования = Новый ОписаниеОповещения("ОбработкаСканирования", ЭтаФорма);

  		ОбработчикЗакрытия = Новый ОписаниеОповещения("ОбработкаЗакрытияИнтерфейса", ЭтаФорма);

  		СредстваМультимедиа.ПоказатьСканированиеШтрихКодов(НСтр("ru='Наведите камеру на штрихкод';en='Aim the camera at an barcode'"), ОбработчикСканирования, ОбработчикЗакрытия, ТипШтрихКода.Линейный);

	#конецесли



КонецПроцедуры	





&НаКлиенте

Процедура ОбработкаСканирования(Штрихкод, Результат, Сообщение, ДополнительныеПараметры) Экспорт

	

	пТовар    = "";

	

	Если Результат Тогда

		

		Структура = ОбщегоНазначенияСервер.ПоискПоШтрихкодуОбъекта(ШтрихКод);			     			

		Если Структура = Неопределено Тогда

			пТовар = Неопределено;

			//#Если МобильноеПриложениеКлиент  Тогда

			//	СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();

			//#конецесли

			Сообщение = "Не найден объект по штрихкоду " + Штрихкод;

		Иначе

			пТовар    = Структура.Наименование;

			

			Сообщение = сокрЛП(пТовар) + Символы.ПС + Штрихкод;

						

			ДобавитьТоварВТаблицу(пТовар);

			

		КонецЕсли;

		

	КонецЕсли;

	

КонецПроцедуры



&НаКлиенте

Процедура ОбработкаЗакрытияИнтерфейса(ДополнительныеПараметры) Экспорт

	

	//Если ЗначениеЗаполнено(пТовар) Тогда

	//	можем встроить код открытия формы ввода количества

	//КонецЕсли;	



КонецПроцедуры   

 USE [test]

GO



SET ANSI_NULLS ON

GO



SET QUOTED_IDENTIFIER ON

GO



CREATE TABLE [dbo].[tovar](

 [id] [int] IDENTITY(1,1) NOT NULL,

 [name] [nvarchar](max) NOT NULL,

 [price] [numeric](18, 2) NULL,

 CONSTRAINT [PK_tovar] PRIMARY KEY CLUSTERED

(

 [id] ASC

)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]

) ON [PRIMARY]



GO    

 SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO



CREATE PROCEDURE insert_tovar



 @name nvarchar(max),

 @price numeric(18, 2)



AS

BEGIN



 SET NOCOUNT ON;



 INSERT INTO test.dbo.tovar

    ([name] ,[price])

    VALUES (@name, @price)



END

GO    

 SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO



CREATE PROCEDURE update_tovar



 @id int,

 @name nvarchar(max),

 @price numeric(18, 2)



AS

BEGIN



 SET NOCOUNT ON;



 UPDATE test.dbo.tovar

    SET [name] = @name

    ,[price] = @price

 WHERE id = @id 

 

END

GO   

 &НаКлиенте

Процедура ДобавитьТовар(Команда)

 

 ОткрытьФорму("ВнешнийИсточникДанных.test.Таблица.dbo_tovar.ФормаОбъекта", , ЭтаФорма);

 

КонецПроцедуры





&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

 

 Если ИмяСобытия = "ОбновитьВнешнийИсточникДанных_dbo_tovar" Тогда

  Элементы.Список.Обновить();

 КонецЕсли; 

 

КонецПроцедуры   

 &НаКлиенте

Процедура ЗаписатьТовар(Команда)

 

 ЗаписатьТоварНаСервере();

 Оповестить("ОбновитьВнешнийИсточникДанных_dbo_tovar");

 

КонецПроцедуры





&НаСервере

Процедура ЗаписатьТоварНаСервере()

 

 Если Объект.Ссылка.Пустая() Тогда

  ВнешниеИсточникиДанных.test.dbo_insert_tovar(Объект.name, Объект.price);

 Иначе

  ВнешниеИсточникиДанных.test.dbo_update_tovar(Объект.id, Объект.name, Объект.price);

 КонецЕсли;

 

КонецПроцедуры