Проблемы с сортировкой
21.05.2010
14:00
#1
"Как в этой обработке можно сделать общую сортировку по наименованию товара а не по документу?
сп=СоздатьОбъект("Справочник.Товары");
к=0;
в=0;
Док=СоздатьОбъект("Документ.РасходнаяНакл");
табл.ВывестиСекцию("заг");
ДатаД1=Дата1-50;
Док.ВыбратьДокументы(Дата1,Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Если (Док.ВидДоставки=Перечисление.ВидыДоставки.ПлановаяДоставка) ИЛИ (Док.ВидДоставки=Перечисление.ВидыДоставки.СрочнаяДоставка) Тогда
Если Док.Проведен()=1 Тогда
Если (ПустоеЗначение(Док.ДатаДоставки)=0) Тогда
Если (Док.ДатаДоставки>=Дата1) И (Док.ДатаДоставки<= Дата2) Тогда
Если ВыбСклады.НайтиЗначение(Док.Склад)<>0 Тогда
// табл.ВывестиСекцию("док");
Док.ВыбратьСтроки();
// Док.СортироватьСтроки("Товар");
Пока Док.ПолучитьСтроку()=1 Цикл
товар=Док.Товар;
сп.НайтиЭлемент(товар);
сп2=сп.ТекущийЭлемент();
вес1=сп2.Вес;
ед=Док.Ед;
кво=Док.Количество;
к=к+кво;
вес=вес1*кво;
в=в+вес;
табл.ВывестиСекцию("док3");
КонецЦикла;
Док.СортироватьСтроки("Товар");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла; "
сп=СоздатьОбъект("Справочник.Товары");
к=0;
в=0;
Док=СоздатьОбъект("Документ.РасходнаяНакл");
табл.ВывестиСекцию("заг");
ДатаД1=Дата1-50;
Док.ВыбратьДокументы(Дата1,Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Если (Док.ВидДоставки=Перечисление.ВидыДоставки.ПлановаяДоставка) ИЛИ (Док.ВидДоставки=Перечисление.ВидыДоставки.СрочнаяДоставка) Тогда
Если Док.Проведен()=1 Тогда
Если (ПустоеЗначение(Док.ДатаДоставки)=0) Тогда
Если (Док.ДатаДоставки>=Дата1) И (Док.ДатаДоставки<= Дата2) Тогда
Если ВыбСклады.НайтиЗначение(Док.Склад)<>0 Тогда
// табл.ВывестиСекцию("док");
Док.ВыбратьСтроки();
// Док.СортироватьСтроки("Товар");
Пока Док.ПолучитьСтроку()=1 Цикл
товар=Док.Товар;
сп.НайтиЭлемент(товар);
сп2=сп.ТекущийЭлемент();
вес1=сп2.Вес;
ед=Док.Ед;
кво=Док.Количество;
к=к+кво;
вес=вес1*кво;
в=в+вес;
табл.ВывестиСекцию("док3");
КонецЦикла;
Док.СортироватьСтроки("Товар");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла; "
Читают тему
(гостей: 1)