Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 ноя 2024, 04:33

Печатная форма

Автор red14_88, 22 янв 2011, 17:07

0 Пользователей и 1 гость просматривают эту тему.

red14_88

Ваша обработка находит всё как надо. Сейчас поковыряю её алгоритм. Сам написал так:
№№№№№№№№№№№№№№№№№№№№№№№№№
   НПП = 0;               
   Рег=СоздатьОбъект("Регистр.ПартииНаличие");
   Если Рег.ВыбратьДвиженияДокумента(ТекущийДокумент())=1 Тогда
      Пока Рег.ПолучитьДвижение()=1 Цикл
         Партия = Рег.Партия;
         УНоменклатура = Рег.Номенклатура;
         Если ПустоеЗначение(Партия.ПриходныйДокумент)=0 Тогда
            ПриходныйДокумент = (Партия.ПриходныйДокумент);
            ПриходныйДокумент.ВыбратьСтроки();
            Пока ПриходныйДокумент.ПолучитьСтроку() = 1 Цикл
               НПП = НПП +1;
               Сертификат = ПриходныйДокумент.Сертификат;
               //Номенклатура = ПриходныйДокумент.Номенклатура;
               ПечТабл.ВывестиСекцию("Строка"); 
               Сообщить(ПриходныйДокумент);
            КонецЦикла;
         КонецЕсли;
      КонецЦикла;
   КонецЕсли;
###############################################
Мой алгорит почему-то вытаскивает лишние две строки (было два прихода, в одном товары А и В по 10 штук, во втором 10 штук товара А, потом перемещение всего на другой склад, а потом уже реализация, видимо цепляетто, что связано с перемещением ((

red14_88

Всем сапасибо за ответы. Вопрос решён:
№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№
НПП = 0;               
   Рег=СоздатьОбъект("Регистр.ПартииНаличие");
   Если Рег.ВыбратьДвиженияДокумента(ТекущийДокумент())=1 Тогда
      Пока Рег.ПолучитьДвижение()=1 Цикл
         УПартия = Рег.Партия;
         УНоменклатура = Рег.Номенклатура;
         ПриходныйДокумент = (Рег.Партия.ПриходныйДокумент);
         ПриходныйДокумент.ВыбратьСтроки();
         Пока ПриходныйДокумент.ПолучитьСтроку() = 1 Цикл
            Если ПриходныйДокумент.Номенклатура = УНоменклатура Тогда
               НПП = НПП +1;
               Сертификат = ПриходныйДокумент.Сертификат;
               ПечТабл.ВывестиСекцию("Строка");                         
            КонецЕсли;
         КонецЦикла;//Получить строку приходного документа
      КонецЦикла;//Движения расходного документа
   КонецЕсли;
№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№№

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск