перемещениетоваров » Поиск

Результаты по ключевому слову: перемещениетоваров

Программное создание, заполнение документа и открытие формы (УП, тонкий клиент)

Чтобы программно заполнить документ по кнопке, делаем примерно следующее:

1. на форму, в нашем случае документа, добавляем кнопку (Команда и у нее процедура СоздатьПеремещение(Команда))

2. в ее обработчике пишем код создания документа перемещение товаров и заполняем его

Код 1C v 8.3

 &НаСервере

Функция СоздатьПеремещениеНаСервере(ДанныеФормы)

	ДанныеФормы.Дата=ТекущаяДата();

	// ДанныеФормы.Номер="1";

	ДанныеФормы.СкладОтправитель =  Справочники.Склады.НайтиПоНаименованию("Склад гарантийного обслуживания");

	ДанныеФормы.СкладПолучатель = Справочники.Склады.НайтиПоНаименованию("Склад гарантийных");

	

	новСП=Новый СписокЗначений;	н=0;

	Для Каждого стр из Объект.ДанныеПоГН Цикл 

		Если стр.ДанныеПроверки=Перечисления.СтатусПроверкиГарантии.зн0 тогда //!В документ перемещение только записи статус=зн0

		новСП.Добавить(Строка(стр.НомерЗаводской));  н=н+1;

		КонецЕсли;

	КонецЦикла;

	

	Если н>0 Тогда

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

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	РеализацияТоваровУслугСерии.Серия КАК Серия,

	|	РеализацияТоваровУслугСерии.Ссылка.Дата КАК ДатаОтгрузки,

	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,

	|	РеализацияТоваровУслугСерии.Ссылка КАК Возврат,

	|	РеализацияТоваровУслугСерии.Номенклатура,

	|	ПРЕДСТАВЛЕНИЕ(РеализацияТоваровУслугСерии.Серия) КАК СерияСТР

	|ИЗ

	|	Документ.ВозвратТоваровОтКлиента.Серии КАК РеализацияТоваровУслугСерии

	|ГДЕ

	|	РеализацияТоваровУслугСерии.Серия В

	|			(ВЫБРАТЬ

	|				СерииНоменклатуры.Ссылка КАК Ссылка

	|			ИЗ

	|				Справочник.СерииНоменклатуры КАК СерииНоменклатуры

	|			ГДЕ

	|				СерииНоменклатуры.Наименование В (&Наименование))

	|

	|УПОРЯДОЧИТЬ ПО

	|	Серия

	|АВТОУПОРЯДОЧИВАНИЕ"; 	

	Запрос.УстановитьПараметр("Наименование", новСП);	

	ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();	

	Для каждого стр из новСП Цикл

		

			НайденнаяСтрока=ТаблицаЗапроса.Найти(стр.Значение,"СерияСТР");

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

				//нет такого

			Иначе

				нстр=ДанныеФормы.Товары.Добавить();

				нстр.Номенклатура = НайденнаяСтрока.Номенклатура;

				нстр.Серия=НайденнаяСтрока.Серия; 

				нстр.КоличествоУпаковок=1;

				нстр.Количество=1;

				нстр.СтатусУказанияСерий=2;

				нстр.СтатусУказанияСерийОтправитель=2;

				нстр.СтатусУказанияСерийПолучатель=2;

				

				нстр=ДанныеФормы.Серии.Добавить();

				нстр.Номенклатура = НайденнаяСтрока.Номенклатура;

				нстр.Серия=НайденнаяСтрока.Серия; 

				нстр.Количество=1;    

			КонецЕсли;	

	КонецЦикла;

	КонецЕсли;

	Возврат ДанныеФормы;

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





&НаКлиенте

Процедура СоздатьПеремещение(Команда)

	Форма=ПолучитьФорму("Документ.ПеремещениеТоваров.ФормаОбъекта"); 

	ДанныеФормы=Форма.Объект;

	ДанныеФормы=СоздатьПеремещениеНаСервере(ДанныеФормы);

	КопироватьДанныеФормы(ДанныеФормы,Форма.Объект);

	Форма.Открыть();

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

Категория: Документы

Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML"

Автоматизация обмена между базами используя обработку "Универсальный обмен данными в формате XML"
В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием обработки "Универсальный обмен данными в формате XML" . Но предлагается вариант автоматизации решения задачи которая позволяет выполнять обмен неквалифицированным пользователям, либо по регламенту. Скажем такой обмен применим если вы не можите по ряду причин использовать РБД, либо совсем разные конфигурации баз (случаи бывают разные, а хочется максимально настраиваемой гибкости).

Вначале безусловно воспользуемся конфигурацией "Конвертация данных" чтобы создать необходимые нам правила обмена (как - это отдельная тема).
Итак Собственно сама ВЫГРУЗКА:

Код 1C v 8.х

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

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

 Обработка.ВыводВОкноСообщенийИнформационныхСообщений = Истина;

При необходимости можно задать период выгрузки (как пример):

 Обработка.ДатаНачала  = ТекущаяДата();

 Обработка.ДатаОкончания   = ТекущаяДата();



 Обработка.ИмяФайлаПравилОбмена = "D:\ПравилаОбменаДанными.xml";

 Источник = ЭтотОбъект.Ссылка;

 ИмяФайла = Строка(ТипЗнч(Источник)) + " " + Строка(Источник.Номер);

 Обработка.ИмяФайлаОбмена = "D:\E\"+ Источник +".xml"; 

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

Основные параметры мы определили, теперь надо настроить отбор, если в этом нет необходимости то просто запускаете выгрузку:

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

Настройка ОТБОРА:
Тут надо обратить внимание на массив "ВременнаяТаблицаПравил.Строки[1]" и в частности на индекс массива строк,
1 - это ветка "Справочники". Ну и так далее по аналогии

Код 1C v 8.х

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

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[1].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[2].Строки Цикл

     Наименование = СтрокаУровня2.Имя;

     Если Наименование <> "ПеремещениеТоваров00001" Тогда

         СтрокаУровня2.Включить = 0;

     КонецЕсли;

 КонецЦикла;

Сдесь вы определяете искомое правило выгрузки которое нужно оставить включенным на определенной ветке (сами можите варьировать чего и сколько)

Код 1C v 8.х

  Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

    Наименование = СтрокаУровня2.Имя;

    Если Наименование = "ПеремещениеТоваров00001" Тогда

        СтрокаУровня2.Включить = 1;

    Иначе

        СтрокаУровня2.Включить = 0;

    КонецЕсли;

 КонецЦикла;

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

Теперь настраиваем ОТБОР смысл которого передать в нашу выгрузку ссылку на документ(ты) который(е) хотим выгрузить:

Код 1C v 8.х

 Для Каждого СтрокаУровня2 Из ВременнаяТаблицаПравил.Строки[0].Строки Цикл

  Наименование = СтрокаУровня2.Имя;

  Если Наименование = "ПеремещениеТоваров00001" Тогда

  ТекущееПВД = СтрокаУровня2;



     Построитель = Новый ПостроительОтчета;

     Если ТекущееПВД.ИмяОбъектаДляЗапроса <> Неопределено Тогда



         Построитель.Текст =

         "ВЫБРАТЬ Разрешенные _.* ИЗ " + ТекущееПВД.ИмяОбъектаДляЗапроса + " КАК _

          |

          |

          |{ГДЕ _.Ссылка.* КАК " + СтрЗаменить(ТекущееПВД.ИмяОбъектаДляЗапроса, ".", "_") + "}";

     КонецЕсли;



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



     Если Отбор.Найти("Документ_ПеремещениеТоваров") = Неопределено Тогда

        Отбор.Добавить("Документ_ПеремещениеТоваров");

     КонецЕсли;



     Массив = Новый Массив;

     Массив.Добавить(Тип("ДокументСсылка.ПеремещениеТоваров"));

     ОписаниеТиповС = Новый ОписаниеТипов(Массив, , );



     Отбор["Документ_ПеремещениеТоваров"].Использование = Истина;

     Отбор["Документ_ПеремещениеТоваров"].Значение = ЭтотОбъект.Ссылка;

     Отбор["Документ_ПеремещениеТоваров"].ВидСравнения = ВидСравнения.Равно;



     ДоступностьПостроителя = Истина;

     Если Построитель.Отбор.Количество() > 0 Тогда

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

         ТекущееПВД.ИспользоватьОтбор    = ИСТИНА;

     КонецЕсли;

  КонецЕсли;

КонецЦикла;

Обработка.ТаблицаПравилВыгрузки = ВременнаяТаблицаПравил.Скопировать();
Ну и собственно запускаем саму выгрузку и получаем файл для загрузки:

Код 1C v 8.х

    Обработка.АрхивироватьФайл = Истина;

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

Далее процесс загрузки:
Он довольно прост

Код 1C v 8.х

  МассивФайлов = НайтиФайлы("D:\E\", "*.zip");

Для Каждого Стм Из МассивФайлов Цикл

ТекстВопроса = "Загрузить - " + Стм.ПолноеИмя;

Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет,, КодВозвратаДиалога.Да);

    Если Ответ = КодВозвратаДиалога.Да Тогда

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

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

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

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

        Обработка.ЗаписыватьВИнформационнуюБазуТолькоИзмененныеОбъекты = Истина;

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

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

        УдалитьФайлы(Стм.ПолноеИмя);

    КонецЕсли;

КонецЦикла;

Расширение .zip для файлов обмена пусть вас не смущает, обработка самостоятельно упакует .xml файл в архив:

Код 1C v 8.х

  Обработка.АрхивироватьФайл = Истина;

И также самостоятельно уже без дополнительных указаний распакует и загрузит. Это существенно уменьшает размеры файла обмена.

Категория: Конвертация данных, Обмен, Перенос

Создание нового документа

Для 8.2:
Открыть форму нового документа и предоставить пользователю самому интерактивно записать данные объекта в базу данных:
проще всего использовать метод глобального контекста ОткрытьФорму(). Это можно сделать на клиенте.

Код 1C v 8.2 УП

 ОткрытьФорму("Документ.ПриходнаяНакладная.ФормаОбъекта");

При этом создается новый документ и открывается для редактирования основная форма этого документа.

Если нужно какое-то предварительное заполнение документа начальными данными, то это можно сделать либо с помощью свойств реквизитов документа ЗначениеЗаполнения, ЗаполнятьИзДанныхЗаполнения либо в обработчике события документа ОбработкаЗаполнения.

Создать новый документ программно, программно заполнить его данными и программно записать. Затем, если нужно, показать его пользователю:
можно программно создать документ на сервере, заполнить данными, если это нужно в обработчике события ОбработкаЗаполнения, записать, и передать ссылку на новый документ в метод глобального контекста ОткрытьЗначение(), который откроет форму этого документа. Например:

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПриходнаяНакладная(Команда)



    СсылкаНаДокумент = СоздатьНовыйДокумент();

    ОткрытьЗначение(СсылкаНаДокумент);



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



&НаСервере

Функция СоздатьНовыйДокумент()



   НовыйДокумент = Документы.ПриходнаяНакладная.СоздатьДокумент();

   НовыйДокумент.Номер = "111";

   НовыйДокумент.Дата = ТекущаяДата();

   НовыйДокумент.Записать();



   Возврат НовыйДокумент.Ссылка;



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

Подробнее об использовании методов ОткрытьЗначение() и ОткрытьФорму() можно прочитать в синтакс-помощнике: Глобальный контекст - Процедуры и функции для интерактивной работы

Код 1C v 8.2 УП

 // ЕЩЕ ПРИМЕР:

&НаКлиенте

Процедура СоздатьНовыйДокумент(Команда)

   

        // Вставить содержимое обработчика.

        Если СоздатьНовыйДокументНаСервере() = 0 Тогда

                Сообщить("Не удалось создать новый документ");

        КонецЕсли;



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



&НаСервере

Функция СоздатьНовыйДокументНаСервере()

   

        Перем НоваяРасходнаяНакладная;

        Перем СтрокаТЧ;

   

        НоваяРасходнаяНакладная=ДокРасходнаяНакладная.СоздатьДокумент();

   

        //Заполняем реквизиты шапки

        НоваяРасходнаяНакладная.Дата=  ТекущаяДата();

        НоваяРасходнаяНакладная.Фирма =Справочники.Фирмы.ОсновнаяФирма;

        НоваяРасходнаяНакладная.Контрагент=Справочники.Контрагенты.НайтиПоКоду("000000001");

        НоваяРасходнаяНакладная.Склад=Справочники.Склады.ОсновнойСклад;

   

        //Заполняем табличную часть

        СтрокаТЧ=НоваяРасходнаяНакладная.ТЧТовары.Добавить();

        СтрокаТЧ.Товар=Справочники.Номенклатура.НайтиПоКоду("000000002");

        СтрокаТЧ.Цена=СтрокаТЧ.Товар.РозничнаяЦена;

        СтрокаТЧ.Количество= 2;

        СтрокаТЧ.Сумма=СтрокаТЧ.Цена*СтрокаТЧ.Количество;

   

        Попытка

                НоваяРасходнаяНакладная.Записать();

                Возврат 1;

        Исключение

                Возврат 0;

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

                                          

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

Для 8.1:

Код 1C v 8.х

 

//Создаем документ Выплата, Документ будет создан и показан пользователю, Но НЕ ЗАПИСАН

НовДок = Документы.ЗарплатаКВыплатеОрганизаций.ПолучитьФормуНовогоДокумента(); 

НовДок.Дата=ТекущаяДата();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Открыть(); 



//Для создания и записи документа используется следующий код:

НовДок = Документы.РасходнаяНакладная.СоздатьДокумент();

НовДок.Дата=ТекущаяДата();

НовыйДок.УстановитьНовыйНомер();

НовДок.Организация=Организация;

НовДок.ПериодРегистрации=ПериодРегистрации;

НовДок.ответственный= глЗначениеПеременной("глТекущийПользователь");

НовДок.Комментарий="Выплата за "+МесяцСтрока;

НовДок.ЭлементыФормы.Комментарий.Доступность=Ложь; 

Для Каждого ТекущаяСтрока Из ТаблицыЗначений Цикл  // заполним табличную часть документа, из ТаблицыЗначений

НС=НовДок.зарплата.добавить();	

нс.Авторасчет=истина;

нс.Физлицо = ТекущаяСтрока.Физлицо;

нс.ВыплаченностьЗарплаты=Перечисления.ВыплаченностьЗарплаты.НеВыплачено;

нс.сумма=ТекущаяСтрока.Результат; 

КонецЦикла;

НовДок.Записать();



//Или так:

НовыйДок = Документы.ПеремещениеТоваров.СоздатьДокумент();

НовыйДок.Дата = ПолеВводаДаты;

НовыйДок.УстановитьВремя();

НовыйДок.УстановитьНовыйНомер();

// Формирование табличной части

Для Н=1 По N Цикл

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

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

    // формируются другие реквизиты табличной части

КонецЦикла;

НовыйДок.Записать();

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

Категория: Документы