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

Помогите с кодом отчета

Автор Яна93, 26 янв 2012, 11:32

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

Яна93

Добрый день! Возникла необходимость в создании нового внешнего отчета..у меня получилось составить диалоговую форму в которой буду вибирать дату начала и дату конца периода и выбор экспедитора..ну так вот..необходимо по выбранному экспедитору составить процедуру при которой будут выводится сумма реализации. В общем должна происходить проверка по маршрутным листам данного экспедитора..у которых в трабличной части в Реализации будет цифра 1 колонке НФ (НалФакт) она находится в шапке Реализации..конфигурация 1с 7.7 торговля и склад..

Яна93

вот немного набросала..может подскажет кто...правильно ли я делаю...
Процедура Сформировать()
   ОбщСумма=0;
   Таб=СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
    Док=СоздатьОбъект("Документ.МаршрутныйЛиста");
   Док.ВыбратьДокументы(ДатаНачала,ДатаКонца);
    Таб.ВывестиСекцию("Заголовок");
    Таб.ВывестиСекцию("Шапка");
   Пока Док.ПолучитьДокумент()=1 Цикл
      Если Док.Экспедитор=Экспедитор Тогда 

sergejK74

До этого места все почти правильно. Но конструктором запроса будет быстрее
Кнопочка Спасибо - слева!

Яна93

Цитата: sergejK74 от 26 янв 2012, 14:20
До этого места все почти правильно. Но конструктором запроса будет быстрее


Конструктором я не умею.. а вот в коде не совсем еще понимаю..по обрывкам в интернете ищу...и собираю свой код..только пока в ступоре..не знаю как дальше...

sergejK74

Сумма = Док.Итог("Сумма"); ?????????????
ОбщСумма = ОбщСумма+сумма;
Таб.ВывестиСекцию("строка");
конецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.Показать();
Кнопочка Спасибо - слева!

Яна93

Цитата: sergejK74 от 26 янв 2012, 14:41
Сумма = Док.Итог("Сумма"); ?????????????
ОбщСумма = ОбщСумма+сумма;
Таб.ВывестиСекцию("строка");
конецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.Показать();
Сергей, стисняюсь спросить..что означают знаки вопросов?

Яна93

Спасибо Сергей за помощь! Вот мой окончательный вариант..я убрала сортировку по Экспедиторам..
Процедура Сформировать()
   ОбщСумма=0;
   Таб=СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
    Док=СоздатьОбъект("Документ.МаршрутныйЛист");
   Док.ВыбратьДокументы(ДатаНачала,ДатаКонца);
    Таб.ВывестиСекцию("Заголовок");
   Таб.ВывестиСекцию("Шапка");
   Пока Док.ПолучитьДокумент()=1 Цикл
   
      
         Док.ВыбратьСтроки();
         Пока Док.ПолучитьСтроку()=1 Цикл
            Если Док.ДокОтгрузки.Нф=1 Тогда
               Сумма = Док.ДокОтгрузки.Итог("Сумма");
               ОбщСумма = ОбщСумма+сумма;   
               Эксп=Док.ЭкспедиторСТР;
               Таб.ВывестиСекцию("строка");
            КонецЕСли;
         КонецЦикла;

   
   КонецЦикла;
   Таб.ВывестиСекцию("Итого");   
   ТАб.ТолькоПросмотр(1);
   Таб.Показать();
   

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

Теги:

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

Рейтинг@Mail.ru

Поиск