LaCastet
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
axpol
Цитата:| значит просто не записали ТЧ |
У внешней обработки нет метода Записать()
Цитата:| опубликуйте хотя бы цикл полностью в котором делаете таблицу |
Код:
&НаКлиенте
Процедура ЗагрузитьОтчетКомиссионера(Excel, ВыбФайл, ФайлСтрок)
номСтроки = НачальнаяСтрока;
ЗагружТовар = Новый Массив;
Пока ПрочитатьЗначениеИзФайла(Excel, номСтроки, 2) <> "ИТОГО :" Цикл
//Читаю строки файла Excel
СтрДобТовар = Новый Структура("Наименование, АртикулМаг, АртикулПост, Количество, Цена, Сумма, ЦенаКомит, СуммаКомит");
СтрДобТовар.Наименование = наименованиеНоменклатуры;
СтрДобТовар.АртикулМаг = АртикулМаг;
СтрДобТовар.АртикулПост = АртикулПост;
СтрДобТовар.Количество = строкаКоличество;
СтрДобТовар.Цена = строкаЦена;
СтрДобТовар.Сумма = строкаСумма;
СтрДобТовар.ЦенаКомит = строкаЦенаКомит;
СтрДобТовар.СуммаКомит = строкаСуммаКомит;
ЗагружТовар.Добавить(СтрДобТовар);
номСтроки = номСтроки + 1;
КонецЦикла;
ДобавитьСтрокиТовара(ЗагружТовар);
ОткрытьФорму("ВнешняяОбработка.ЗагрузкаОтчетКомиссионера.Форма.ФормаДобавляемойНоменклатуры");
ЗаписатьДокумент(ДокОтчКомис, РежимЗаписи);
КонецПроцедуры
&НаСервере
Процедура ДобавитьСтрокиТовара(ЗагружТовар)
обОбработка = РеквизитФормыВЗначение("Объект");
Для Каждого СтрокаТовара Из ЗагружТовар Цикл
ссНоменклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", СтрокаТовара.АртикулМаг); // исправлено из нижней
Если ссНоменклатура.Пустая() Тогда //
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка КАК Ссылка,
| МАКСИМУМ(Номенклатура.Артикул) КАК Артикул,
| МАКСИМУМ(ВЫБОР
| КОГДА НоменклатураДополнительныеРеквизиты.Свойство.Наименование = ""Артикул2 (Номенклатура)""
| ТОГДА НоменклатураДополнительныеРеквизиты.Значение
| КОНЕЦ) КАК Артикул2,
| МАКСИМУМ(ВЫБОР
| КОГДА НоменклатураДополнительныеРеквизиты.Свойство.Наименование = ""Артикул3 (Номенклатура)""
| ТОГДА НоменклатураДополнительныеРеквизиты.Значение
| КОНЕЦ) КАК Артикул3
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура.ДополнительныеРеквизиты КАК НоменклатураДополнительныеРеквизиты
| ПО (НоменклатураДополнительныеРеквизиты.Ссылка = Номенклатура.Ссылка)
|ГДЕ
| (НоменклатураДополнительныеРеквизиты.Свойство.Наименование = ""Артикул2 (Номенклатура)""
| ИЛИ НоменклатураДополнительныеРеквизиты.Свойство.Наименование = ""Артикул3 (Номенклатура)"")
|
|СГРУППИРОВАТЬ ПО
| Номенклатура.Ссылка";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если СтрокаТовара.АртикулПост = ВыборкаДетальныеЗаписи.Артикул2 Или СтрокаТовара.АртикулПост = ВыборкаДетальныеЗаписи.Артикул3 Тогда
ссНоменклатура = ВыборкаДетальныеЗаписи.Ссылка;
Прервать;
КонецЕсли;
КонецЦикла;
//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
Если ссНоменклатура.Пустая() Тогда
СтрДобНоменклатуры = обОбработка.ДобавляемаяНоменклатура.Добавить();
СтрДобНоменклатуры.Наименование = СтрокаТовара.Наименование;
СтрДобНоменклатуры.АртикулМаг = СтрокаТовара.АртикулМаг;
СтрДобНоменклатуры.АртикулПост = СтрокаТовара.АртикулПост;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
----------
Пиво — это еще одно доказательство того, что Господь любит нас и хочет, чтоб мы были счастливы! |
|
Всего записей: 4637 | Зарегистр. 27-07-2005 | Отправлено: 23:31 11-09-2017 | Исправлено: LaCastet, 23:36 11-09-2017 |
|
Программы » 
Варезник » 
