Содержание:
1. Конфигурация ERP Управление Холдингом 2.5
2. Внешний вид обработки и назначения
1. Конфигурация ERP Управление Холдингом 2.5
Требуется разработать обработку загрузки данных (документы Заказ поставщику) из эксель листа. Поле «СтатьяБюджетаБДР» выбираем по умолчанию «CAPEX_PPA». При нажатии кнопки «Загрузить данные» табличная часть обработки «Данные загрузки» заполняется данными с типом строка, потом нажимаем кнопку «Загрузить ссылки» и в ссылочные поля сопоставляются ссылки объектов. Потом проверяем загруженные в табличную часть «Данные загрузки», данные по кнопке «Проверить данные». Если предупреждений нет, то создаем документы по кнопке «Создать документы». Созданные документы можно смотреть в табличной части «Созданные документы».
2. Внешний вид обработки и назначения
Загрузка заказ поставщику
Процедуры и функции обработки:
&НаКлиенте
Асинх Процедура ЗагрузитьДанные(Команда)
ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов;
ПараметрыДиалога.Заголовок = "Выберите файл";
ПараметрыДиалога.Фильтр = "Таблица Excel | *.xls; *xlsx";
ОписаниеФайла = Ждать ПоместитьФайлНаСерверАсинх(,,, ПараметрыДиалога);
Если ОписаниеФайла <> Неопределено Тогда
ЗагрузитьДанныеНаСервере(ОписаниеФайла.Адрес, ОписаниеФайла.СсылкаНаФайл.Расширение);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьДанныеНаСервере(АдресДанных, РасширениеФайла)
ПутьКФайлу = ПолучитьИмяВременногоФайла(РасширениеФайла);
Данные = ПолучитьИзВременногоХранилища(АдресДанных);
Данные.Записать(ПутьКФайлу);
ТабДок = Новый ТабличныйДокумент;
Попытка
ТабДок.Прочитать(ПутьКФайлу);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось прочитать файл по причине: " + ОписаниеОшибки();
Сообщение.Сообщить();
Возврат;
КонецПопытки;
Объект.ДанныеЗагрузки.Очистить();
ВысотаТаблицы = ТабДок.ВысотаТаблицы;
Для стр = 7 По ВысотаТаблицы Цикл
Организация = ТабДок.Область(стр, 2).Текст;
СтатусЗаказа = ТабДок.Область(стр, 3).Текст;
Операция = ТабДок.Область(стр, 4).Текст;
НомерЗаказа = ТабДок.Область(стр, 5).Текст;
ДатаЗаказа = ТабДок.Область(стр, 6).Текст;
SAP_КодПоставщика = ТабДок.Область(стр, 7).Текст;
Поставщик = ТабДок.Область(стр, 8).Текст;
Договор = ТабДок.Область(стр, 9).Текст;
Соглашение = ТабДок.Область(стр, 10).Текст;
Склад = ТабДок.Область(стр, 11).Текст;
Комментарий = ТабДок.Область(стр, 12).Текст;
АртикулНоменклатуры = ТабДок.Область(стр, 13).Текст;
ХарактеристикаНоменклатуры = ТабДок.Область(стр, 14).Текст;
СерияНоменклатуры = ТабДок.Область(стр, 15).Текст;
Номенклатура = ТабДок.Область(стр, 16).Текст;
Назначение = ТабДок.Область(стр, 17).Текст;
Количество = ТабДок.Область(стр, 18).Текст;
ЕдИзм = ТабДок.Область(стр, 19).Текст;
ВидЦены = ТабДок.Область(стр, 20).Текст;
Цена = ТабДок.Область(стр, 21).Текст;
Сумма = ТабДок.Область(стр, 22).Текст;
СтатьиИАналитики = ТабДок.Область(стр, 23).Текст;
СтавкаНДС = ТабДок.Область(стр, 24).Текст;
СуммаСНДС = ТабДок.Область(стр, 25).Текст;
ДатаОтгрузки = ТабДок.Область(стр, 26).Текст;
ДатаПоступления = ТабДок.Область(стр, 27).Текст;
ПодразделениеПолучатель = ТабДок.Область(стр, 28).Текст;
СписатьНаРасходы = ТабДок.Область(стр, 29).Текст;
АналитикаРасходов = ТабДок.Область(стр, 30).Текст;
Отменено = ТабДок.Область(стр, 31).Текст;
Валюта = ТабДок.Область(стр, 32).Текст;
ПодразделениеЦФО = ТабДок.Область(стр, 33).Текст;
Налогообложение = ТабДок.Область(стр, 34).Текст;
СпособДоставки = ТабДок.Область(стр, 35).Текст;
АдресДоставки = ТабДок.Область(стр, 36).Текст;
НомерЗаказаПоДаннымПоставщика = ТабДок.Область(стр, 37).Текст;
ДатаПоДаннымПоставщика = ТабДок.Область(стр, 38).Текст;
ДатаСогласования = ТабДок.Область(стр, 39).Текст;
БанковскийСчетКонтрагента = ТабДок.Область(стр, 40).Текст;
ИнформацияДляПечати = ТабДок.Область(стр, 41).Текст;
НомерСерии = ТабДок.Область(стр, 42).Текст;
ДокументОснованиеЗаказПоставщика = ТабДок.Область(стр, 43).Текст;
ДокументОснованиеСпецификация = ТабДок.Область(стр, 44).Текст;
ВидДоставки = ТабДок.Область(стр, 45).Текст;
ВидЗаказа = ТабДок.Область(стр, 46).Текст;
Если Организация = "" Тогда
Прервать;
КонецЕсли;
НоваяСтрока = Объект.ДанныеЗагрузки.Добавить();
НоваяСтрока.Организация = Организация;
НоваяСтрока.СтатусЗаказа = СтатусЗаказа;
НоваяСтрока.НомерЗаказа = НомерЗаказа;
НоваяСтрока.ДатаЗаказа = СтроковыеФункцииКлиентСервер.СтрокаВДату(ДатаЗаказа, ЧастиДаты.Дата);
НоваяСтрока.Операция = Операция;
НоваяСтрока.SAP_КодПоставщика = SAP_КодПоставщика;
НоваяСтрока.Поставщик = Поставщик;
НоваяСтрока.Договор = Договор;
НоваяСтрока.Соглашение = Соглашение;
НоваяСтрока.Склад = Склад;
НоваяСтрока.Комментарий = Комментарий;
НоваяСтрока.АртикулНоменклатуры = АртикулНоменклатуры;
НоваяСтрока.ХарактеристикаНоменклатуры = ХарактеристикаНоменклатуры;
НоваяСтрока.СерияНоменклатуры = СерияНоменклатуры;
НоваяСтрока.Номенклатура = Номенклатура;
НоваяСтрока.Назначение = Назначение;
НоваяСтрока.Количество = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(Количество);
НоваяСтрока.ЕдИзм = ЕдИзм;
НоваяСтрока.ВидЦены = ВидЦены;
НоваяСтрока.Цена = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(Цена);
НоваяСтрока.Сумма = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(Сумма);
НоваяСтрока.СтатьиИАналитики = СтатьиИАналитики;
НоваяСтрока.СтавкаНДС = СтавкаНДС;
НоваяСтрока.СуммаСНДС = СтроковыеФункцииКлиентСервер.СтрокаВЧисло(СуммаСНДС);
НоваяСтрока.ДатаОтгрузки = СтроковыеФункцииКлиентСервер.СтрокаВДату(ДатаОтгрузки);
НоваяСтрока.ДатаПоступления = СтроковыеФункцииКлиентСервер.СтрокаВДату(ДатаПоступления);
НоваяСтрока.ПодразделениеПолучатель = ПодразделениеПолучатель;
НоваяСтрока.СписатьНаРасходы = СписатьНаРасходы;
НоваяСтрока.АналитикаРасходов = АналитикаРасходов;
НоваяСтрока.Отменено = Отменено;
НоваяСтрока.Валюта = Валюта;
НоваяСтрока.ПодразделениеЦФО = ПодразделениеЦФО;
НоваяСтрока.Налогообложение = Налогообложение;
НоваяСтрока.СпособДоставки = СпособДоставки;
НоваяСтрока.АдресДоставки = АдресДоставки;
НоваяСтрока.НомерЗаказаПоДаннымПоставщика = НомерЗаказаПоДаннымПоставщика;
НоваяСтрока.ДатаПоДаннымПоставщика = СтроковыеФункцииКлиентСервер.СтрокаВДату(ДатаПоДаннымПоставщика);
НоваяСтрока.ДатаСогласования = СтроковыеФункцииКлиентСервер.СтрокаВДату(ДатаСогласования);
НоваяСтрока.БанковскийСчетКонтрагента = БанковскийСчетКонтрагента;
НоваяСтрока.ИнформацияДляПечати = ИнформацияДляПечати;
НоваяСтрока.НомерСерии = НомерСерии;
// НоваяСтрока.ДокументОснованиеЗаказПоставщика = ДокументОснованиеЗаказПоставщика;
НоваяСтрока.ДокументОснованиеСпецификация = ДокументОснованиеСпецификация;
НоваяСтрока.ВидДоставки = ВидДоставки;
НоваяСтрока.ВидЗаказа = ВидЗаказа;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьСсылки(Команда)
ЗагрузитьСсылкиНаСервере();
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьСсылкиНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДанныеЗагрузки.НомерСтроки КАК НомерСтроки,
| ДанныеЗагрузки.Организация КАК Организация,
| ДанныеЗагрузки.СтатусЗаказа КАК СтатусЗаказа,
| ДанныеЗагрузки.НомерЗаказа КАК НомерЗаказа,
| ДанныеЗагрузки.ДатаЗаказа КАК ДатаЗаказа,
| ДанныеЗагрузки.Операция КАК Операция,
| ДанныеЗагрузки.SAP_КодПоставщика КАК SAP_КодПоставщика,
| ДанныеЗагрузки.Поставщик КАК Поставщик,
| ДанныеЗагрузки.Договор КАК Договор,
| ДанныеЗагрузки.Соглашение КАК Соглашение,
| ДанныеЗагрузки.Склад КАК Склад,
| ДанныеЗагрузки.Комментарий КАК Комментарий,
| ДанныеЗагрузки.АртикулНоменклатуры КАК АртикулНоменклатуры,
| ДанныеЗагрузки.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
| ДанныеЗагрузки.СерияНоменклатуры КАК СерияНоменклатуры,
| ДанныеЗагрузки.Номенклатура КАК Номенклатура,
| ДанныеЗагрузки.Назначение КАК Назначение,
| ДанныеЗагрузки.Количество КАК Количество,
| ДанныеЗагрузки.ЕдИзм КАК ЕдИзм,
| ДанныеЗагрузки.ВидЦены КАК ВидЦены,
| ДанныеЗагрузки.Цена КАК Цена,
| ДанныеЗагрузки.Сумма КАК Сумма,
| ДанныеЗагрузки.СтатьиИАналитики КАК СтатьиИАналитики,
| ДанныеЗагрузки.СтавкаНДС КАК СтавкаНДС,
| ДанныеЗагрузки.СуммаСНДС КАК СуммаСНДС,
| ДанныеЗагрузки.ДатаОтгрузки КАК ДатаОтгрузки,
| ДанныеЗагрузки.ДатаПоступления КАК ДатаПоступления,
| ДанныеЗагрузки.ПодразделениеПолучатель КАК ПодразделениеПолучатель,
| ДанныеЗагрузки.СписатьНаРасходы КАК СписатьНаРасходы,
| ДанныеЗагрузки.АналитикаРасходов КАК АналитикаРасходов,
| ДанныеЗагрузки.Отменено КАК Отменено,
| ДанныеЗагрузки.Валюта КАК Валюта,
| ДанныеЗагрузки.ПодразделениеЦФО КАК ПодразделениеЦФО,
| ДанныеЗагрузки.Налогообложение КАК Налогообложение,
| ДанныеЗагрузки.СпособДоставки КАК СпособДоставки,
| ДанныеЗагрузки.АдресДоставки КАК АдресДоставки,
| ДанныеЗагрузки.НомерЗаказаПоДаннымПоставщика КАК НомерЗаказаПоДаннымПоставщика,
| ДанныеЗагрузки.ДатаПоДаннымПоставщика КАК ДатаПоДаннымПоставщика,
| ДанныеЗагрузки.ДатаСогласования КАК ДатаСогласования,
| ДанныеЗагрузки.БанковскийСчетКонтрагента КАК БанковскийСчетКонтрагента,
| ДанныеЗагрузки.ИнформацияДляПечати КАК ИнформацияДляПечати,
| ДанныеЗагрузки.НомерСерии КАК НомерСерии,
| ДанныеЗагрузки.ДокументОснованиеЗаказПоставщику КАК ДокументОснованиеЗаказПоставщику,
| ДанныеЗагрузки.ДокументОснованиеСпецификация КАК ДокументОснованиеСпецификация,
| ДанныеЗагрузки.ВидДоставки КАК ВидДоставки,
| ДанныеЗагрузки.ВидЗаказа КАК ВидЗаказа
|ПОМЕСТИТЬ втДанныеЗагрузки
|ИЗ
| &ДанныеЗагрузки КАК ДанныеЗагрузки
|;
|
|///////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанныеЗагрузки.НомерСтроки КАК НомерСтроки,
| втДанныеЗагрузки.Организация КАК Организация,
| спрОрганизации.Ссылка КАК ОрганизацияСсылка,
| втДанныеЗагрузки.СтатусЗаказа КАК СтатусЗаказа,
| ВЫБОР
| КОГДА втДанныеЗагрузки.СтатусЗаказа = ""Подтвержден""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовПоставщикам.Подтвержден)
| КОГДА втДанныеЗагрузки.СтатусЗаказа = ""Не согласован""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовПоставщикам.НеСогласован)
| КОГДА втДанныеЗагрузки.СтатусЗаказа = ""Согласован""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовПоставщикам.Согласован)
| КОГДА втДанныеЗагрузки.СтатусЗаказа = ""Закрыт""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовПоставщикам.Закрыт)
| КОНЕЦ КАК СтатусЗаказаСсылка,
| втДанныеЗагрузки.НомерЗаказа КАК НомерЗаказа,
| втДанныеЗагрузки.ДатаЗаказа КАК ДатаЗаказа,
| втДанныеЗагрузки.Операция КАК Операция,
| втДанныеЗагрузки.SAP_КодПоставщика КАК SAP_КодПоставщика,
| ВЫБОР
| КОГДА втДанныеЗагрузки.Операция = ""Закупка у поставщика""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ЗакупкаУПоставщика)
| КОГДА втДанныеЗагрузки.Операция = ""Импорт""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ХозяйственныеОперации.ЗакупкаПоИмпорту)
| КОНЕЦ КАК ОперацияСсылка,
| втДанныеЗагрузки.Поставщик КАК Поставщик,
| спрПартнеры.Ссылка КАК ПоставщикСсылка,
| втДанныеЗагрузки.Договор КАК Договор,
| втДанныеЗагрузки.Соглашение КАК Соглашение,
| втДанныеЗагрузки.Склад КАК Склад,
| спрСклады.Ссылка КАК СкладСсылка,
| втДанныеЗагрузки.Комментарий КАК Комментарий,
| втДанныеЗагрузки.АртикулНоменклатуры КАК АртикулНоменклатуры,
| втДанныеЗагрузки.Номенклатура КАК Номенклатура,
| спрНоменклатура.Ссылка КАК НоменклатураСсылка,
| втДанныеЗагрузки.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
| втДанныеЗагрузки.ПодразделениеПолучатель КАК ПодразделениеПолучатель,
| втДанныеЗагрузки.ДатаОтгрузки КАК ДатаОтгрузки,
| втДанныеЗагрузки.ДатаПоступления КАК ДатаПоступления,
| втДанныеЗагрузки.Количество КАК Количество,
| втДанныеЗагрузки.ЕдИзм КАК ЕдИзм,
| втДанныеЗагрузки.ВидЦены КАК ВидЦены,
| спрВидыЦен.Ссылка КАК ВидЦеныСсылка,
| втДанныеЗагрузки.Цена КАК Цена,
| втДанныеЗагрузки.Сумма КАК Сумма,
| втДанныеЗагрузки.СтавкаНДС КАК СтавкаНДС,
| спрСтавкиНДС.Ссылка КАК СтавкаНДССсылка,
| втДанныеЗагрузки.СуммаСНДС КАК СуммаСНДС,
| втДанныеЗагрузки.Отменено КАК Отменено,
| втДанныеЗагрузки.СпособДоставки КАК СпособДоставки,
| ВЫБОР
| КОГДА втДанныеЗагрузки.СпособДоставки = ""Поставщик (на наш склад)""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.СпособыДоставки.СиламиПоставщикаДоНашегоСклада)
| КОНЕЦ КАК СпособДоставкиСсылка,
| втДанныеЗагрузки.АдресДоставки КАК АдресДоставки,
| втДанныеЗагрузки.Валюта КАК Валюта,
| спрВалюты.Ссылка КАК ВалютаСсылка,
| втДанныеЗагрузки.ПодразделениеЦФО КАК ПодразделениеЦФО,
| втДанныеЗагрузки.Налогообложение КАК Налогообложение,
| ВЫБОР
| КОГДА втДанныеЗагрузки.Налогообложение = ""Закупка облагается НДС""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ТипыНалогообложенияНДС.ПродажаОблагаетсяНДС)
| КОГДА втДанныеЗагрузки.Налогообложение = ""Закупка не облагается НДС""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ТипыНалогообложенияНДС.ПродажаНеОблагаетсяНДС)
| КОГДА втДанныеЗагрузки.Налогообложение = ""Закупка облагается ЕНВД""
| ТОГДА ЗНАЧЕНИЕ(Перечисление.ТипыНалогообложенияНДС.ПродажаОблагаетсяЕНВД)
| КОНЕЦ КАК НалогообложениеСсылка,
| втДанныеЗагрузки.ИнформацияДляПечати КАК ИнформацияДляПечати,
| втДанныеЗагрузки.НомерЗаказаПоДаннымПоставщика КАК НомерЗаказаПоДаннымПоставщика,
| втДанныеЗагрузки.ДатаПоДаннымПоставщика КАК ДатаПоДаннымПоставщика,
| втДанныеЗагрузки.ДатаСогласования КАК ДатаСогласования,
| втДанныеЗагрузки.БанковскийСчетКонтрагента КАК БанковскийСчетКонтрагента,
| втДанныеЗагрузки.НомерСерии КАК НомерСерии,
| втДанныеЗагрузки.ДокументОснованиеЗаказПоставщику КАК ДокументОснованиеЗаказПоставщику,
| втДанныеЗагрузки.ДокументОснованиеСпецификация КАК ДокументОснованиеСпецификация,
| втДанныеЗагрузки.ВидДоставки КАК ВидДоставки,
| спрcls_ВидДоставки.Ссылка КАК ВидДоставкиСсылка,
| втДанныеЗагрузки.ВидЗаказа КАК ВидЗаказа,
| спрcls_ВидыЗаказов.Ссылка КАК ВидЗаказаСсылка
|ПОМЕСТИТЬ втДанные
|ИЗ
| втДанныеЗагрузки КАК втДанныеЗагрузки
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации КАК спрОрганизации
| ПО втДанныеЗагрузки.Организация = спрОрганизации.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Партнеры КАК спрПартнеры
| ПО втДанныеЗагрузки.SAP_КодПоставщика = спрПартнеры.cls_КодSAP
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК спрНоменклатура
| ПО втДанныеЗагрузки.АртикулНоменклатуры = спрНоменклатура.Артикул
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Валюты КАК спрВалюты
| ПО втДанныеЗагрузки.Валюта = спрВалюты.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Склады КАК спрСклады
| ПО втДанныеЗагрузки.Склад = спрСклады.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыЦенПоставщиков КАК спрВидыЦен
| ПО втДанныеЗагрузки.ВидЦены = спрВидыЦен.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СтавкиНДС КАК спрСтавкиНДС
| ПО втДанныеЗагрузки.СтавкаНДС = спрСтавкиНДС.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.cls_ВидыЗаказов КАК спрcls_ВидыЗаказов
| ПО втДанныеЗагрузки.ВидЗаказа = спрcls_ВидыЗаказов.Наименование
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.cls_ВидДоставки КАК спрcls_ВидДоставки
| ПО втДанныеЗагрузки.ВидДоставки = спрcls_ВидДоставки.Наименование
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанные.ОрганизацияСсылка КАК ОрганизацияСсылка,
| втДанные.ПоставщикСсылка КАК ПоставщикСсылка,
| МАКСИМУМ(спрДоговорыКонтрагентов.Ссылка) КАК ДоговорСсылка
|ПОМЕСТИТЬ втДоговоры
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ДоговорыКонтрагентов КАК спрДоговорыКонтрагентов
| ПО втДанные.Договор = спрДоговорыКонтрагентов.Наименование
| И втДанные.ОрганизацияСсылка = спрДоговорыКонтрагентов.Организация
| И втДанные.ПоставщикСсылка = спрДоговорыКонтрагентов.Партнер
|
|СГРУППИРОВАТЬ ПО
| втДанные.ОрганизацияСсылка,
| втДанные.ПоставщикСсылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанные.ОрганизацияСсылка КАК ОрганизацияСсылка,
| втДанные.ПоставщикСсылка КАК ПоставщикСсылка,
| втДанные.ОперацияСсылка КАК ОперацияСсылка,
| МАКСИМУМ(спрСоглашенияСПоставщиками.Ссылка) КАК СоглашениеСсылка
|ПОМЕСТИТЬ втСоглашения
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СоглашенияСПоставщиками КАК спрСоглашенияСПоставщиками
| ПО втДанные.Соглашение = спрСоглашенияСПоставщиками.Наименование
| И втДанные.ОперацияСсылка = спрСоглашенияСПоставщиками.ХозяйственнаяОперация
| И втДанные.ОрганизацияСсылка = спрСоглашенияСПоставщиками.Организация
| И втДанные.ПоставщикСсылка = спрСоглашенияСПоставщиками.Партнер
|
|СГРУППИРОВАТЬ ПО
| втДанные.ОрганизацияСсылка,
| втДанные.ПоставщикСсылка,
| втДанные.ОперацияСсылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанные.НоменклатураСсылка КАК НоменклатураСсылка,
| спрХарактеристикиНоменклатуры.Ссылка КАК ХарактеристикаНоменклатурыСсылка
|ПОМЕСТИТЬ втХарактеристикиНоменклатуры
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ХарактеристикиНоменклатуры КАК спрХарактеристикиНоменклатуры
| ПО втДанные.ХарактеристикаНоменклатуры = спрХарактеристикиНоменклатуры.Наименование
| И втДанные.НоменклатураСсылка = спрХарактеристикиНоменклатуры.Владелец
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанные.ЕдИзм КАК ЕдИзм,
| втДанные.НоменклатураСсылка КАК НоменклатураСсылка,
| втДанные.НоменклатураСсылка.ИспользоватьУпаковки КАК ИспользоватьУпаковки,
| втДанные.НоменклатураСсылка.НаборУпаковок КАК НаборУпаковок,
| спрУпаковкиЕдиницыИзмерения.Ссылка КАК ЕдИзмСсылка,
| спрУпаковкиЕдиницыИзмерения.Владелец КАК Владелец,
| спрУпаковкиЕдиницыИзмерения.ТипИзмеряемойВеличины КАК ТипИзмеряемойВеличины
|ПОМЕСТИТЬ втУпаковкиВсе
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.УпаковкиЕдиницыИзмерения КАК спрУпаковкиЕдиницыИзмерения
| ПО втДанные.ЕдИзм = спрУпаковкиЕдиницыИзмерения.Наименование
| И втДанные.НоменклатураСсылка = спрУпаковкиЕдиницыИзмерения.Владелец
|ГДЕ
| втДанные.НоменклатураСсылка.ИспользоватьУпаковки
| И спрУпаковкиЕдиницыИзмерения.ТипИзмеряемойВеличины = ЗНАЧЕНИЕ(Перечисление.ТипыИзмеряемыхВеличин.Упаковка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| втДанные.ЕдИзм,
| втДанные.НоменклатураСсылка,
| втДанные.НоменклатураСсылка.ИспользоватьУпаковки,
| втДанные.НоменклатураСсылка.НаборУпаковок,
| спрУпаковкиЕдиницыИзмерения.Ссылка,
| спрУпаковкиЕдиницыИзмерения.ЕдиницаИзмерения,
| спрУпаковкиЕдиницыИзмерения.ТипИзмеряемойВеличины
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.УпаковкиЕдиницыИзмерения КАК спрУпаковкиЕдиницыИзмерения
| ПО втДанные.ЕдИзм = спрУпаковкиЕдиницыИзмерения.Наименование
|ГДЕ
| спрУпаковкиЕдиницыИзмерения.ТипИзмеряемойВеличины <> ЗНАЧЕНИЕ(Перечисление.ТипыИзмеряемыхВеличин.Упаковка)
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втУпаковкиВсе.НоменклатураСсылка КАК НоменклатураСсылка,
| МАКСИМУМ(втУпаковкиВсе.ЕдИзмСсылка) КАК ЕдИзмСсылка
|ПОМЕСТИТЬ втУпаковки
|ИЗ
| втУпаковкиВсе КАК втУпаковкиВсе
|
|СГРУППИРОВАТЬ ПО
| втУпаковкиВсе.НоменклатураСсылка
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанные.НомерСтроки КАК НомерСтроки,
| втДанные.Организация КАК Организация,
| втДанные.ОрганизацияСсылка КАК ОрганизацияСсылка,
| втДанные.СтатусЗаказа КАК СтатусЗаказа,
| втДанные.СтатусЗаказаСсылка КАК СтатусЗаказаСсылка,
| втДанные.НомерЗаказа КАК НомерЗаказа,
| втДанные.ДатаЗаказа КАК ДатаЗаказа,
| втДанные.Операция КАК Операция,
| втДанные.SAP_КодПоставщика КАК SAP_КодПоставщика,
| втДанные.ОперацияСсылка КАК ОперацияСсылка,
| втДанные.Поставщик КАК Поставщик,
| втДанные.ПоставщикСсылка КАК ПоставщикСсылка,
| спрКонтрагенты.Ссылка КАК КонтрагентСсылка,
| втДанные.Договор КАК Договор,
| втДоговоры.ДоговорСсылка КАК ДоговорСсылка,
| втДанные.Соглашение КАК Соглашение,
| втСоглашения.СоглашениеСсылка КАК СоглашениеСсылка,
| втДанные.Склад КАК Склад,
| втДанные.СкладСсылка КАК СкладСсылка,
| втДанные.Комментарий КАК Комментарий,
| втДанные.АртикулНоменклатуры КАК АртикулНоменклатуры,
| втДанные.Номенклатура КАК Номенклатура,
| втДанные.НоменклатураСсылка КАК НоменклатураСсылка,
| втДанные.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
| втХарактеристикиНоменклатуры.ХарактеристикаНоменклатурыСсылка КАК ХарактеристикаНоменклатурыСсылка,
| спрСерииНоменклатуры.Ссылка КАК СерияНоменклатурыСсылка,
| втДанные.ПодразделениеПолучатель КАК ПодразделениеПолучатель,
| спрСтруктураПредприятияПолучатель.Ссылка КАК ПодразделениеПолучательСсылка,
| втДанные.ДатаОтгрузки КАК ДатаОтгрузки,
| втДанные.Количество КАК Количество,
| втДанные.ЕдИзм КАК ЕдИзм,
| втУпаковки.ЕдИзмСсылка КАК ЕдИзмСсылка,
| втДанные.ВидЦены КАК ВидЦены,
| втДанные.ВидЦеныСсылка КАК ВидЦеныСсылка,
| втДанные.Цена КАК Цена,
| втДанные.Сумма КАК Сумма,
| втДанные.СтавкаНДС КАК СтавкаНДС,
| втДанные.СтавкаНДССсылка КАК СтавкаНДССсылка,
| втДанные.СуммаСНДС КАК СуммаСНДС,
| втДанные.Отменено КАК Отменено,
| втДанные.СпособДоставки КАК СпособДоставки,
| втДанные.СпособДоставкиСсылка КАК СпособДоставкиСсылка,
| втДанные.АдресДоставки КАК АдресДоставки,
| втДанные.Валюта КАК Валюта,
| втДанные.ВалютаСсылка КАК ВалютаСсылка,
| втДанные.ПодразделениеЦФО КАК ПодразделениеЦФО,
| спрСтруктураПредприятияЦФО.Ссылка КАК ПодразделениеЦФОСсылка,
| втДанные.Налогообложение КАК Налогообложение,
| втДанные.НалогообложениеСсылка КАК НалогообложениеСсылка,
| втДанные.ИнформацияДляПечати КАК ИнформацияДляПечати,
| втДанные.БанковскийСчетКонтрагента КАК БанковскийСчетКонтрагента,
| спрБанковскиеСчетаКонтрагентов.Ссылка КАК БанковскийСчетКонтрагентаСсылка,
| втДанные.НомерЗаказаПоДаннымПоставщика КАК НомерЗаказаПоДаннымПоставщика,
| втДанные.ДатаПоДаннымПоставщика КАК ДатаПоДаннымПоставщика,
| втДанные.НомерСерии КАК НомерСерии,
| втДанные.ДокументОснованиеЗаказПоставщику КАК ДокументОснованиеЗаказПоставщику,
| втДанные.ДокументОснованиеСпецификация КАК ДокументОснованиеСпецификация,
| втДанные.ВидДоставки КАК ВидДоставки,
| втДанные.ВидДоставкиСсылка КАК ВидДоставкиСсылка,
| втДанные.ВидЗаказа КАК ВидЗаказа,
| втДанные.ВидЗаказаСсылка КАК ВидЗаказаСсылка
|ИЗ
| втДанные КАК втДанные
| ЛЕВОЕ СОЕДИНЕНИЕ втСоглашения КАК втСоглашения
| ПО втДанные.ПоставщикСсылка = втСоглашения.ПоставщикСсылка
| И втДанные.ОрганизацияСсылка = втСоглашения.ОрганизацияСсылка
| И втДанные.ОперацияСсылка = втСоглашения.ОперацияСсылка
| ЛЕВОЕ СОЕДИНЕНИЕ втДоговоры КАК втДоговоры
| ПО втДанные.ОрганизацияСсылка = втДоговоры.ОрганизацияСсылка
| И втДанные.ПоставщикСсылка = втДоговоры.ПоставщикСсылка
| ЛЕВОЕ СОЕДИНЕНИЕ втХарактеристикиНоменклатуры КАК втХарактеристикиНоменклатуры
| ПО втДанные.НоменклатураСсылка = втХарактеристикиНоменклатуры.НоменклатураСсылка
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК спрКонтрагенты
| ПО втДанные.ПоставщикСсылка = спрКонтрагенты.Партнер
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СтруктураПредприятия КАК спрСтруктураПредприятияПолучатель
| ПО втДанные.ПодразделениеПолучатель = спрСтруктураПредприятияПолучатель.Наименование
| И втДанные.ОрганизацияСсылка = спрСтруктураПредприятияПолучатель.Организация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СтруктураПредприятия КАК спрСтруктураПредприятияЦФО
| ПО втДанные.ПодразделениеЦФО = спрСтруктураПредприятияЦФО.Наименование
| И втДанные.ОрганизацияСсылка = спрСтруктураПредприятияЦФО.Организация
| ЛЕВОЕ СОЕДИНЕНИЕ втУпаковки КАК втУпаковки
| ПО втДанные.НоменклатураСсылка = втУпаковки.НоменклатураСсылка
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.СерииНоменклатуры КАК спрСерииНоменклатуры
| ПО втДанные.НоменклатураСсылка = спрСерииНоменклатуры.cls_Владелец
| И втДанные.НоменклатураСсылка.ВидНоменклатуры = спрСерииНоменклатуры.ВидНоменклатуры
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.БанковскиеСчетаКонтрагентов КАК спрБанковскиеСчетаКонтрагентов
| ПО втДанные.ПоставщикСсылка = спрБанковскиеСчетаКонтрагентов.Владелец
| И втДанные.БанковскийСчетКонтрагента = спрБанковскиеСчетаКонтрагентов.Наименование
|
|УПОРЯДОЧИТЬ ПО
| НомерСтроки";
ДанныеЗагрузки = Объект.ДанныеЗагрузки.Выгрузить();
Запрос.УстановитьПараметр("ДанныеЗагрузки", ДанныеЗагрузки);
РезультатЗапроса = Запрос.Выполнить();
мРезультатыЗапроса = Запрос.ВыполнитьПакет();
СтруктураПоиска = Новый Структура;
СписокСвойств = "ОрганизацияСсылка, СтатусЗаказаСсылка, ОперацияСсылка, ПоставщикСсылка, БанковскийСчетКонтрагентаСсылка,
|ДоговорСсылка, СоглашениеСсылка, СкладСсылка, НоменклатураСсылка, ХарактеристикаНоменклатурыСсылка,
|СерияНоменклатурыСсылка, ВидЦеныСсылка, СтавкаНДССсылка, ЕдИзмСсылка, ВалютаСсылка, ДатаОтгрузки, СпособДоставкиСсылка,
|ПодразделениеПолучательСсылка, ПодразделениеЦФОСсылка, НалогообложениеСсылка, КонтрагентСсылка, ВидЗаказаСсылка, ВидДоставкиСсылка";
Выборка = РезультатЗапроса.Выбрать();
Для каждого стр Из Объект.ДанныеЗагрузки Цикл
СтруктураПоиска.Вставить("НомерСтроки", стр.НомерСтроки);
Выборка.НайтиСледующий(СтруктураПоиска);
ЗаполнитьЗначенияСвойств(стр, Выборка, СписокСвойств);
Если ЗначениеЗаполнено(Выборка.НоменклатураСсылка) Тогда
ИспользованиеХарактеристик = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Выборка.НоменклатураСсылка, "ИспользованиеХарактеристик");
Если ИспользованиеХарактеристик = Перечисления.ВариантыИспользованияХарактеристикНоменклатуры.НеИспользовать Тогда
стр.ИспользованиеХарактеристик = Ложь;
Иначе
стр.ИспользованиеХарактеристик = Истина;
КонецЕсли;
КонецЕсли;
Выборка.Сбросить();
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура СоздатьДокументы(Команда)
СоздатьДокументыНаСервере();
КонецПроцедуры
&НаСервере
Процедура СоздатьДокументыНаСервере()
Перем НовыйДок;
Если Не ЗначениеЗаполнено(Объект.СтатьяБюджетаБДР) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не заполнен поле СтатьяБюджетаБДР";
Сообщение.Сообщить();
Возврат;
КонецЕсли;
к = 0;
ДокЗП = Документы.ЗаказПоставщику;
ПервыйНомерЗаказа = 0;
Для каждого стр Из Объект.ДанныеЗагрузки Цикл
НомерЗаказа = стр.НомерЗаказа;
Если НомерЗаказа <> ПервыйНомерЗаказа Тогда
Если ПервыйНомерЗаказа <> 0 Тогда
НовыйДок.Записать();
КонецЕсли;
НовыйДок = ДокЗП.СоздатьДокумент();
ЗаполнитьШапку(НовыйДок, стр);
ЗаполнитьТабЧасть(НовыйДок, стр);
ПервыйНомерЗаказа = НомерЗаказа;
Попытка
НовыйДок.Записать();
СсылкаНаДокумент = НовыйДок.Ссылка;
ДобавитьДокументВТаблицуСозданных(СсылкаНаДокумент);
к = к + 1;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Иначе
ЗаполнитьТабЧасть(НовыйДок, стр);
КонецЕсли;
Если к >= 1 Тогда
//Прервать;
КонецЕсли;
КонецЦикла;
НовыйДок.Записать();
Сообщить("Созданы документов в количестве " + к + " штук");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьШапку(НовыйДок, стр)
ПриоритетСредний = Справочники.Приоритеты.НайтиПоНаименованию("Средний", Истина);
ОплатаВВалюте = ?(Строка(стр.ВалютаСсылка) = "руб.", Истина, Ложь);
НовыйДок.Дата = стр.ДатаЗаказа;
НовыйДок.Организация = стр.ОрганизацияСсылка;
НовыйДок.Приоритет = ПриоритетСредний;
НовыйДок.Контрагент = стр.КонтрагентСсылка;
НовыйДок.Партнер = стр.ПоставщикСсылка;
НовыйДок.Соглашение = стр.СоглашениеСсылка;
НовыйДок.Валюта = стр.ВалютаСсылка;
НовыйДок.ОплатаВВалюте = ОплатаВВалюте;
НовыйДок.Статус = стр.СтатусЗаказаСсылка;
НовыйДок.ДатаСогласования = стр.ДатаСогласования;
НовыйДок.Склад = стр.СкладСсылка;
НовыйДок.ХозяйственнаяОперация = стр.ОперацияСсылка;
НовыйДок.Комментарий = стр.Комментарий;
НовыйДок.Договор = стр.ДоговорСсылка;
НовыйДок.Подразделение = стр.ПодразделениеЦФОСсылка;
НовыйДок.СпособДоставки = стр.СпособДоставкиСсылка;
НовыйДок.АдресДоставки = стр.АдресДоставки;
НовыйДок.cls_ВидЗаказа = стр.ВидЗаказаСсылка;
НовыйДок.cls_ВидДоставки = стр.ВидДоставкиСсылка;
НовыйДок.НалогообложениеНДС = стр.НалогообложениеСсылка;
НовыйДок.ДополнительнаяИнформация = "№ " + стр.НомерЗаказа + " от " + Формат(стр.ДатаЗаказа, "ДФ=dd.MM.yyyy");
НовыйДок.ВариантПриемкиТоваров = Перечисления.ВариантыПриемкиТоваров.ПоДоговорамПослеНакладных;
НовыйДок.ЗакупкаПодДеятельность = стр.НалогообложениеСсылка;
НовыйДок.ЦенаВключаетНДС = Истина;
НовыйДок.ФормаОплаты = Перечисления.ФормыОплаты.Безналичная;
НовыйДок.ПорядокРасчетов = Перечисления.ПорядокРасчетов.ПоДоговорамНакладным;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьТабЧасть(НовыйДок, стр)
НоваяСтрока = НовыйДок.Товары.Добавить();
НоваяСтрока.Номенклатура = стр.НоменклатураСсылка;
НоваяСтрока.Характеристика = стр.ХарактеристикаНоменклатурыСсылка;
НоваяСтрока.Упаковка = стр.ЕдИзмСсылка;
НоваяСтрока.Количество = стр.Количество;
НоваяСтрока.КоличествоУпаковок = стр.Количество;
НоваяСтрока.ВидЦеныПоставщика = стр.ВидЦеныСсылка;
НоваяСтрока.Цена = стр.Цена;
НоваяСтрока.СтавкаНДС = стр.СтавкаНДССсылка;
НоваяСтрока.Сумма = стр.Сумма;
НоваяСтрока.СуммаСНДС = стр.СуммаСНДС;
// НоваяСтрока.ПроцентРучнойСкидки = стр.ПроцентРучнойСкидки;
// НоваяСтрока.СуммаРучнойСкидки = стр.СуммаРучнойСкидки;
// НоваяСтрока.ПроцентАвтоматическойСкидки = стр.ПроцентАвтоматическойСкидки;
// НоваяСтрока.СуммаАвтоматическойСкидки = стр.СуммаАвтоматическойСкидки;
// НоваяСтрока.Отменено = стр.ПричинаОтмены;
// НоваяСтрока.Содержание = стр.Содержание;
// НоваяСтрока.ВариантОбеспечения = стр.ВариантОбеспеченияНоменклатурыСсылка;
// НоваяСтрока.Обособленно = стр.Обособленно;
// НоваяСтрока.Подразделение = стр.ПодразделениеЦФОСсылка;
НоваяСтрока.ДатаОтгрузки = стр.ДатаОтгрузки;
НоваяСтрока.Подразделение = стр.ПодразделениеПолучательСсылка;
НоваяСтрока.СтатьяБюджетаБДР = Объект.СтатьяБюджетаБДР;
КонецПроцедуры
&НаСервере
Процедура ДобавитьДокументВТаблицуСозданных(СсылкаНаДокумент, ЭтоНовый = Истина)
НоваяСтрока = Объект.СозданныеДокументы.Добавить();
НоваяСтрока.Документ = СсылкаНаДокумент;
НоваяСтрока.Новый = ЭтоНовый;
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьДанные(Команда)
Для каждого стр Из Объект.ДанныеЗагрузки Цикл
Если Не ЗначениеЗаполнено(стр.ОрганизацияСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Организация", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.СтатусЗаказаСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден СтатусЗаказа", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ОперацияСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Операция", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ПоставщикСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Поставщик", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ДоговорСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Договор", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.СоглашениеСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Соглашение", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.СкладСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Склад", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.НоменклатураСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Номенклатура", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ХарактеристикаНоменклатурыСсылка) Тогда
Если стр.ИспользованиеХарактеристик Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ХарактеристикаНоменклатуры", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ПодразделениеПолучательСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ПодразделениеПолучатель", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ЕдИзмСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ЕдИзм", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ВидЦеныСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ВидЦены", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ВалютаСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Валюта", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ПодразделениеЦФОСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ПодразделениеЦФО", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.НалогообложениеСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден Налогообложение", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ВидЗаказаСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ВидЗаказа", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(стр.ВидДоставкиСсылка) Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = СтрШаблон("В строке %1 не найден ВидДоставки", стр.НомерСтроки);
Сообщение.Сообщить();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Специалист компании ООО "Кодерлайн"
Марс Айзатуллов
