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);

 КонецЕсли;

 

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

   

 НаборЗаписей = Последовательности.ПартионныйУчет.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Регистратор = ДокументСсылка;

НоваяЗапись.Период = ДокументСсылка.Дата;

НаборЗаписей.Записать();   

 НаборЗаписей = Последовательности.ПартионныйУчет.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Организация = ДокументСсылка.Организация;

 НоваяЗапись.Регистратор = ДокументСсылка;

НоваяЗапись.Период = ДокументСсылка.Дата;

НаборЗаписей.Записать();   

 Процедура ПриОткрытии()



Путь = КаталогИБ() + "DialMail.dll";

Если ЗагрузитьВнешнююКомпоненту(Путь) = 0 Тогда Сообщить("Неудачная попытка загрузить DialMail.dll"); КонецЕсли;



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

 Процедура ОтправитьПочту()

ОтправкаПочты = СоздатьОбъект("AddIn.SMTP");

ОтправкаПочты.РабочийКаталог=СокрЛП(КаталогИБ());

ОтправкаПочты.УстановитьКодировкуИСпособКодирования(14, 1);

ОтправкаПочты.MakeContentDescriptionTag = 0;

ОтправкаПочты.ПочтоваяПрограмма = "Имя почтовой программы";

//В моем случае ошибки пишутся в отдельный каталог в текстовые файлы, имена которых соответствуют дате.

ВыбФайл = СокрЛП(КаталогОшибок) +"\"+ СокрЛП(ДатаЧисло(ТекущаяДата())) + СокрЛП(ДатаМесяц(ТекущаяДата()))+ СокрЛП(ДатаГод(ТекущаяДата())) + ".txt";

//имя файла - вложения должно быть в кавычках.

ВыбФайл = """" + ВыбФайл + """";

// От кого, Кому, Копии - это адреса почты.

ОтправкаПочты.СоздатьПисьмо(ОтКого,Кому,СокрЛП(СпрПочта.Копии),"Ошибки обмена в " + СокрЛП(Константа.Магазин.Наименование),,"Данное письмо сформировано автоматически. Смотри вложение",СокрЛП(ВыбФайл));

Если ОтправкаПочты.Подключиться("smtp.mail.ru","25",ИмяПользователя,Пароль)=0 тогда

Сообщить("Не смогли подключиться к SMTP-серверу");

КонецЕсли;

Если ОтправкаПочты.ОтправитьВсеПисьма(0,1,0) = -100 Тогда

Сообщить("Успешно отправлено");

КонецЕсли;

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

 Получ=СоздатьОбъект("AddIn.POP3");

Отпр=СоздатьОбъект("AddIn.SMTP");

Получ.РабочийКаталог="c:\Export\";

Отпр.РабочийКаталог="c:\Import\";

  //Глобальный модуль

========================================

Перем КонтекстНашейФормы Экспорт;

...

Процедура ВзятьКонтекст(Конт) Экспорт

   КонтекстНашейФормы=Конт;

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



Процедура ОсвободитьКонтекст() Экспорт

   КонтекстНашейФормы=-1;

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

...

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)

   ...

   Если КонтекстНашейФормы<>-1 тогда

     КонтекстНашейФормы.КоличествоСобытий=КоличествоСобытий+1;   

     КонтекстНашейФормы.Форма.Обновить(0);

   КонецЕсли;

   ...

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

...

КонтекстНашейФормы=-1;

========================================



Модуль нашей формы

========================================

Перем Дозвон;



Процедура ПриОткрытии()

   ...

   ЗагрузитьВнешнююКомпоненту("DialMail.dll");

   Дозвон=СоздатьОбъект("AddIn.RasDial");



   ВзятьКонтекст(Конт);

   ...

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



Процедура ПриЗакрытии()

   ...

   ОсвободитьКонтекст(Конт)

   ...

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



Процедура НашДозвон()

   Дозвон.Дозвониться("Мое соединение",

	"логин","пароль","p1055555",1);

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

        pop3.ПолучитьВсеПисьма(0,1,1);

       pop3.Отключиться();

   Договор = ПолучитьМакет("Договор");

// Получить объект из макета.

MSWord = Договор.Получить();



Попытка

	Документ = MSWord.Application.Documents(1);

	Документ.Activate();

	//Определим имена

	Заказчик = "Петр Иванович КакВасТам";

	Исполнитель = "helpf.pro - Помощник по 1С"

	

	// Получить объект, который будем использовать для поиска и замены.

	Замена = Документ.Content.Find;



	// Заменить заранее определенные ключевые конструкции на требуемый текст.

	Замена.Execute("[Заказчик]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик);

	Замена.Execute("[Исполнитель]", Ложь, Истина, Ложь, , , Истина, , Ложь, Исполнитель);

	// Далее аналогично для остальных ключевых конструкций.

	//	...

	// Делаем видимым приложение и активизируем его.

	MSWord.Application.Visible = Истина;

	MSWord.Activate();

Исключение

	// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.

	Сообщить(ОписаниеОшибки());

	MSWord.Application.Quit();

КонецПопытки;     

 Функция InputData(User, Command)



    обДанные = Справочники.Данные.СоздатьЭлемент();



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



КонецФункции   

 &НаКлиенте

Процедура ОткрытьОбработку(Команда)

	ОткрытьФорму("Обработка.ОбработкаВводБланкЗаказа.Форма");

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

 ПараметрыФормы = Новый Структура;

ПараметрыФормы.Вставить("ДокСсылка", НужнаяСсылка);



ОткрытьФорму("Обработка.ПечатьНаправления.Форма", ПараметрыФормы);   

 Параметры.ДокСсылка   

 Если Параметры.Свойство("ЛюбойПараметр") Тогда

    // ваш код

КонецЕсли   

 СсылкаНаДокумент = Параметры.ДокСсылка;   

 Строка(Цел(День(Дата('20020820153309')) / 10) + 1)+" декада"   

 НеобходимыйТовар = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор("3accfd60-3247-4862-ab79-e9aced2515")));   

  // Автор кода Puk2

КлючНастройки = "";

КлючОбъекта = "Общее/НастройкиПечатиТабличногоДокумента/ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_М4";

Пользователь = "Админ Администратович Администраторов";

ХранилищеСистемныхНастроек.Удалить(КлючОбъекта, КлючНастройки, Пользователь);   

 Процедура ДействияФормыВыгрузка(Кнопка)



    ДиалогФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

    ДиалогФайла.Фильтр = "Файл данных (*.xml)|*.xml";

    ДиалогФайла.ПолноеИмяФайла = "Retail_"+СтрЗаменить(Формат(Дата,"ДФ=dd.MM.yyyy"),".","-");

    Если ДиалогФайла.Выбрать() Тогда

        ИмяФайла = ДиалогФайла.ПолноеИмяФайла;

        Попытка

            ВыгрузитьДанные(ИмяФайла);

            ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);

            ДвоичныеДанные.Записать(ИмяФайла);

        Исключение

            Предупреждение("Внешний файл не сохранен

            |"+ОписаниеОшибки());

        КонецПопытки;

    КонецЕсли;



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



// процедура выгрузки 

Процедура ВыгрузитьДанные(ИмяФайлаОбмена)



    Обработка=Обработки.УниверсальныйОбменДаннымиXML.Создать();

    Обработка.РежимОбмена="Выгрузка";

    ВремФайл = ПолучитьИмяВременногоФайла("xml");

    МакетПравилОбмена = ПолучитьМакет("ПравилаВыгрузки");

    МакетПравилОбмена.Записать(ВремФайл);

    Обработка.ИмяФайлаПравилОбмена = ВремФайл;//ФайлПравилОбмена;

    Обработка.ЗагружатьДанныеВРежимеОбмена = Истина;

    Обработка.ЗаписыватьРегистрыНаборамиЗаписей = Истина;

    Обработка.ЗапоминатьЗагруженныеОбъекты = Истина;

    Обработка.ИспользоватьОтборПоДатеДляВсехОбъектов = Истина;

    СписокДок = Новый Массив;

    Для каждого Стр Из Документы Цикл

        Если НЕ Стр.Флаг Тогда

            Продолжить;

        КонецЕсли;

        СписокДок.Добавить(Стр.Реализация);

    КонецЦикла;

    Обработка.ДатаНачала = Дата;

    Обработка.ДатаОкончания = КонецДня(Дата);

    Обработка.ВыгружатьТолькоРазрешенные = Истина;

    Обработка.ИмяФайлаОбмена = ИмяФайлаОбмена;

    Обработка.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки = 0; // 0 - не снимать регистрацию, 1 - снимать регистрацию

    Обработка.ЗагрузитьПравилаОбмена();

    Обработка.Параметры.Вставить("Документы",СписокДок);

    Обработка.ВыполнитьВыгрузку();



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

  ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать();

    ОбработкаОбмена.ИмяФайлаОбмена = ФайлЗагрузки;

    ОбработкаОбмена.РежимОбмена = "Загрузка";

    ОбработкаОбмена.ОткрытьФайлЗагрузки(Истина);

    ОбработкаОбмена.АрхивироватьФайл = Ложь;;

    ОбработкаОбмена.ВыполнитьЗагрузку();

    ОбработкаОбмена = Неопределено;   

 Процедура КнопкаВыполнитьНажатие(Кнопка)

	

	ОбработкаОбмен = Обработки.ВыгрузкаЗагрузкаДанныхXML.Создать();

	ОбработкаОбмен.Инициализация();

	ОбработкаОбмен.ОбработанныхКонстант = 0;

	ОбработкаОбмен.ОбработанныхНаборовЗаписей = 0;

	

	//отметки выгрузки Документов

	СписокОбъектовВыгрузки = Новый СписокЗначений;

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.РеализацияТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ПоступлениеТоваровУслуг);

	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.ТребованиеНакладная);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

		//отбор

		Построитель = ОбработкаОбмен.ПодготовитьПостроительДляВыгрузки(СтрокаВыгрузки);

		СписокСсылокВыгрузки = Новый СписокЗначений;

		Для Каждого СтрокаТабДокументы Из ТабДокументы Цикл

			Если (СтрокаТабДокументы.Документ.Метаданные() = СписокОбъектовВыгрузки[й].Значение) И (СтрокаТабДокументы.ФлагВыгружать) Тогда

				СписокСсылокВыгрузки.Добавить(СтрокаТабДокументы.Документ.Ссылка);

			КонецЕсли;

		КонецЦикла;

		Отбор = Построитель.Отбор;

		Отбор.Добавить("Ссылка","Ссылка");

		Отбор[0].Использование 	= Истина;

		Отбор[0].ВидСравнения  	= ВидСравнения.ВСписке;

		Отбор[0].Значение		= СписокСсылокВыгрузки;

		

		СтрокаВыгрузки.НастройкиПостроителя = Построитель.ПолучитьНастройки();

		СтрокаВыгрузки.ИспользоватьОтбор = Истина;

	

	КонецЦикла;

	

	//отметки ОТМЕНЫ выгрузки Документов

	СписокОбъектовВыгрузки.Очистить();         

//	СписокОбъектовВыгрузки.Добавить(Метаданные.Документы.Заявка);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.ВыгружатьПриНеобходимости = 0;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	//отметки выгрузки Справочников

	СписокОбъектовВыгрузки.Очистить();         

	СписокОбъектовВыгрузки.Добавить(Метаданные.Справочники.Номенклатура);

	

	Для й=0 По СписокОбъектовВыгрузки.Количество()-1 Цикл

		СтрокаВыгрузки = ОбработкаОбмен.ДеревоМетаданных.Строки.Найти(СписокОбъектовВыгрузки[й].Значение,"ОбъектМД",Истина);

		СтрокаВыгрузки.Выгружать=1;

		ОбработкаОбмен.ОбработкаИзмененияСостоянияВыгружать(СтрокаВыгрузки);		

	КонецЦикла;

	

	

	ИмяФайлаЗагрузки = "D:\А-Б.xml";

	ОбработкаОбмен.ВыполнитьЗагрузку(ИмяФайлаЗагрузки);

	

	ИмяФайлаВыгрузки = "D:\Б-А.xml";

	ОбработкаОбмен.ВыполнитьВыгрузку(ИмяФайлаВыгрузки);

	

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



Процедура ВыбПериодНажатие(Элемент)

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	Если НастройкаПериода.Редактировать() Тогда

		НачПериода = НастройкаПериода.ПолучитьДатуНачала();

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

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



Процедура ПриОткрытии()

	

	НачПериода = ТекущаяДата();	

	КонПериода = ТекущаяДата();

	

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





Процедура ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ)

	Запрос.Текст = "ВЫБРАТЬ

	               |	ОбъектЗапроса.Ссылка

	               |ИЗ

	               |	Документ."+ОбъектЗапроса+" КАК ОбъектЗапроса

	               |ГДЕ

	               |	ОбъектЗапроса.ПометкаУдаления = ЛОЖЬ И 

				   | 	ОбъектЗапроса.Дата МЕЖДУ &ДатаНач И &ДатаКон";

				   

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(НачПериода));

	Запрос.УстановитьПараметр("ДатаКон",КонецДня(КонПериода));

	Выборка = Запрос.Выполнить().Выбрать();

	Пока Выборка.Следующий() Цикл

		НоваяСтрока 			= ТЗ.Добавить();

		НоваяСтрока.Дата 		= Выборка.Ссылка.Дата;

		НоваяСтрока.Документ	= Выборка.Ссылка;

	КонецЦикла;			   

	

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



Процедура ЗаполнитьНажатие(Элемент)

	

	ТабДокументы.Очистить();

		

	ТЗ = Новый ТаблицаЗначений;

	ТЗ.Колонки.Добавить("Дата");

	ТЗ.Колонки.Добавить("Документ");

	

	Запрос = Новый Запрос;

	

	Если флРеализация Тогда

		ОбъектЗапроса = "РеализацияТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

				   

	Если флПоступление Тогда

		ОбъектЗапроса = "ПоступлениеТоваровУслуг";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	Если флТребованиеНакладная Тогда

		ОбъектЗапроса = "ТребованиеНакладная";

		ЗаполнитьТабЧастьОбъектом(Запрос,ОбъектЗапроса,ТЗ);

	КонецЕсли;

	

	ТЗ.Сортировать("Дата");

	Для Каждого Стр Из ТЗ Цикл

		НоваяСтрока = ТабДокументы.Добавить();

		НоваяСтрока.Документ = Стр.Документ;

		НоваяСтрока.ФлагВыгружать = Истина;

	КонецЦикла;

	

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