8.х Отчет с нуля!

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем ls600, 4 июн 2012.

0/5, Голосов: 0
Страница 1 из 2
  1. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Доброго времени суток!!!! Подскажите делаю отчет, выводит пустую таблицу!!! Может где че не дописал или ошибка. Заранее благодарю!!!
    Код:
    Процедура ДействиеФормыОтчетВагоныСформировать (Кнопка)
Макет = ОтчетОбъект.ПолучитьМакет("ОтчетВагоны");
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
запрос = Новый Запрос;
запрос.Текст = "ВЫБРАТЬ
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент,
| РЦ_РеализацияЦемента.СпособОтправки
|ИЗ
| РегистрНакопления.РЦ_РеализацияЦемента КАК РЦ_РеализацияЦемента
|
|СГРУППИРОВАТЬ ПО
| РЦ_РеализацияЦемента.СпособОтправки,
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент";

ОбластьЗаголовок  = Макет.ПолучитьОбласть("Пояснение");
ОбластьДетали	 = Макет.ПолучитьОбласть("Детали");
Результат = запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Строка = Макет.ПолучитьОбласть("Детали");
ТабДок.Вывести(ОбластьДетали);
КонецЦикла;
ТабДок.Показать();
КонецПроцедуры
    ls600, 4 июн 2012
    #1
  2. x_under
    Offline

    x_under Модераторы Команда форума Модератор

    Регистрация:
    25 апр 2007
    Сообщения:
    2.576
    Симпатии:
    13
    Баллы:
    29
    А заполнять параметры кто будет? вы получаете параметры, а потом выводите сразу область без заполнения.
    x_under, 4 июн 2012
    #2
  3. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Подскажи как заполнить, только учусь, в этом деле новичок
    ls600, 4 июн 2012
    #3
  4. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    Вот так заполняются параметры в макете:
    Код:
    ОбластьДетали.Параметры.ИмяПараметраВЭтойОбласти = Значение;
    alexburn, 4 июн 2012
    #4
  5. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    ОбластьДетали.Параметры.СпособОтправки = Значение;
    ОбластьДетали.Параметры.ДокументОтгрузки = Значение;
    ОбластьДетали.Параметры.Контрагент = Значение;

    так? или нет
    ls600, 4 июн 2012
    #5
  6. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    Так, только вместо Значение нужно подставлять какие-то данные, например, из выборки.

    Сечете фишку :)))))))) ?
    alexburn, 4 июн 2012
    #6
  7. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Неа))) впервые делаю отчет)))!!!
    ls600, 4 июн 2012
    #7
  8. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.340
    Симпатии:
    104
    Баллы:
    104
    Код:
    Макет = ОтчетОбъект.ПолучитьМакет("ОтчетВагоны");
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
запрос = Новый Запрос;
запрос.Текст = "ВЫБРАТЬ
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент,
| РЦ_РеализацияЦемента.СпособОтправки
|ИЗ
| РегистрНакопления.РЦ_РеализацияЦемента КАК РЦ_РеализацияЦемента
|
|СГРУППИРОВАТЬ ПО
| РЦ_РеализацияЦемента.СпособОтправки,
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент";
ОбластьЗаголовок  = Макет.ПолучитьОбласть("Пояснение");
ОбластьДетали  = Макет.ПолучитьОбласть("Детали");
Результат = запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
//Строка = Макет.ПолучитьОбласть("Детали"); а вот это зачем
//добавить
ОбластьДетали.Параметры.СпособОтправки = ВыборкаДетальныеЗаписи.СпособОтправки;
ОбластьДетали.Параметры.ДокументОтгрузки = ВыборкаДетальныеЗаписи.ДокументОтгрузки;
ОбластьДетали.Параметры.Контрагент = ВыборкаДетальныеЗаписи.Контрагент;
//
ТабДок.Вывести(ОбластьДетали);
КонецЦикла;
ТабДок.Показать();
КонецПроцедуры
    Tiger86, 4 июн 2012
    #8
  9. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    В каждом документе может быть по два или три вагона. Если в каком либо документе будет два или три Вагона отчет не формировал один и тот же документ три раза подряд с разными вагонами. а просто Документ Вагонная отгрузка.

    вот код какой сейчас есть.

    Код:
    Процедура ДействиеФормыОтчетВагоныСформировать (Кнопка)
Макет = ОтчетОбъект.ПолучитьМакет("ОтчетВагоны");
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
запрос = Новый Запрос;
запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент,
| РЦ_РеализацияЦемента.СпособОтправки
|ИЗ
| РегистрНакопления.РЦ_РеализацияЦемента КАК РЦ_РеализацияЦемента
|ГДЕ
| РЦ_РеализацияЦемента.СпособОтправки = &Способ
|
|СГРУППИРОВАТЬ ПО
| РЦ_РеализацияЦемента.СпособОтправки,
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент";
//запрос.УстановитьПараметр("ДатаКон", КонецДня(ДатаКон));
//запрос.УстановитьПараметр("ДатаНач", НачалоДня(ДатаНач));
запрос.УстановитьПараметр("Способ", Перечисления.СпособыОтправкиГрузов.ВагоннаяОтгрузка);
//Если Перечисления.

ОбластьЗаголовок  = Макет.ПолучитьОбласть("Шапка");
ОбластьДетали  = Макет.ПолучитьОбласть("Детали");
Результат = запрос.Выполнить();
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);

ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьДетали.Параметры.СпособОтправки = ВыборкаДетальныеЗаписи.СпособОтправки;
ОбластьДетали.Параметры.ДокументОтгрузки = ВыборкаДетальныеЗаписи.ДокументОтгрузки;
ОбластьДетали.Параметры.Контрагент = ВыборкаДетальныеЗаписи.Контрагент;
ТабДок.Вывести(ОбластьДетали);
КонецЦикла;
ТабДок.Показать();
КонецПроцедуры
    ls600, 5 июн 2012
    #9
  10. mialord
    Offline

    mialord Модераторы Команда форума Модератор

    Регистрация:
    31 июл 2009
    Сообщения:
    5.367
    Симпатии:
    34
    Баллы:
    54
    Здраствуйте!
    Последняя фраза лишена всякого смысла
    Пожалуйста высказывайте свои мысли полностью, а не обрывистыми сообщениями.
    Насколько я могу понять, Вас не устраивает тот факт, что отчет несколько раз выводит в таблицу документ отгрузки, разделяя аналитику еще и по вагонам. Если так, то Вам нужно просто из запроса убрать выборку по вагонам. Покажите результат выполнения вашего отчета.
    mialord, 5 июн 2012
    #10
  11. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Сейчас вроде нормально выводит!!!
    Вот только с датой проблема не все выводит?!

    Код:
    Процедура Кнопка1Нажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.УстановитьПериод(ДатаНач, ?(ДатаКон='0001-01-01', ДатаКон, КонецДня(ДатаКон)));
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
НастройкаПериода.Редактировать();
ДатаНач = НастройкаПериода.ПолучитьДатуНачала();
ДатаКон = НастройкаПериода.ПолучитьДатуОкончания();
//ПериодПриИзменении(ДатаНач); 
КонецПроцедуры

    Вложения:

    • 1.JPG
      1.JPG
      Размер файла:
      59,3 КБ
      Просмотров:
      51
    ls600, 5 июн 2012
    #11
  12. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    А где вы дату в макет выводите ?
    alexburn, 5 июн 2012
    #12
  13. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    в столбце. Дата | Документ Отгрузки|
    ls600, 5 июн 2012
    #13
  14. mialord
    Offline

    mialord Модераторы Команда форума Модератор

    Регистрация:
    31 июл 2009
    Сообщения:
    5.367
    Симпатии:
    34
    Баллы:
    54
    Я не вижу в коде заполнения реквизита ДАТА, используйте похожую конструкцию
    Код:
    ОбластьДетали.Параметры.Дата= ВыборкаДетальныеЗаписи.ДокументОтгрузки.Дата;
    mialord, 5 июн 2012
    #14
  15. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    Я вижу два столбца, Дата и Документ отгрузки. Покажите в коде, где вы заполняете колонку Дата.
    alexburn, 5 июн 2012
    #15
  16. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Алекс Дата сейчас заполняется!!! mialord подсказал!!! только полностью за год выводит))) допустим что бы выбрать за месяц. Код скину

    Код:
    Процедура ДействиеФормыОтчетВагоныСформировать (Кнопка)
Макет = ОтчетОбъект.ПолучитьМакет("ОтчетВагоны");
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
запрос = Новый Запрос;
запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| РЦ_РеализацияЦемента.ДокументОтгрузки КАК ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент,
| РЦ_РеализацияЦемента.СпособОтправки,
| РЦ_РеализацияЦемента.ДокументОтгрузки.Дата КАК ДокументОтгрузкиДата
|ИЗ
| РегистрНакопления.РЦ_РеализацияЦемента КАК РЦ_РеализацияЦемента
|ГДЕ
| РЦ_РеализацияЦемента.СпособОтправки = &Способ
|
|СГРУППИРОВАТЬ ПО
| РЦ_РеализацияЦемента.СпособОтправки,
| РЦ_РеализацияЦемента.ДокументОтгрузки,
| РЦ_РеализацияЦемента.Контрагент,
| РЦ_РеализацияЦемента.ДокументОтгрузки.Дата
|
|УПОРЯДОЧИТЬ ПО
| ДокументОтгрузкиДата УБЫВ";

запрос.УстановитьПараметр("Организация",Организация);
запрос.УстановитьПараметр("НачалоПериода",НачалоДня(ДатаНач));
запрос.УстановитьПараметр("КонецПериода",КонецДня(ДатаКон));
запрос.УстановитьПараметр("Способ", Перечисления.СпособыОтправкиГрузов.ВагоннаяОтгрузка);
//Если ВыборкаДетальныеЗаписи.ДокментОтгрузки."Вагоны".Количество()=0 Тогда
//Если Перечисления.СпособыОтправкиГрузов.ВагоннаяОтгрузка.Количество()=0 Тогда
// ОбластьДетали.Параметры.Ссылка= "Нет";
//Иначе
// ОбластьДетали.Параметры.Ссылка = "Да";
// КонецЕсли;

ОбластьЗаголовок  = Макет.ПолучитьОбласть("Шапка");
ОбластьДетали  = Макет.ПолучитьОбласть("Детали");
Результат = запрос.Выполнить();
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьДетали.Параметры.Дата= ВыборкаДетальныеЗаписи.ДокументОтгрузки.Дата;
ОбластьДетали.Параметры.СпособОтправки = ВыборкаДетальныеЗаписи.СпособОтправки;
ОбластьДетали.Параметры.ДокументОтгрузки = ВыборкаДетальныеЗаписи.ДокументОтгрузки;
ОбластьДетали.Параметры.Контрагент = ВыборкаДетальныеЗаписи.Контрагент;
ТабДок.Вывести(ОбластьДетали);
КонецЦикла;
ТабДок.Показать();
КонецПроцедуры

Процедура Кнопка1Нажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.УстановитьПериод(ДатаНач, ?(ДатаКон='0001-01-01', ДатаКон, КонецДня(ДатаКон)));
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
НастройкаПериода.Редактировать();
ДатаНач = НастройкаПериода.ПолучитьДатуНачала();
ДатаКон = НастройкаПериода.ПолучитьДатуОкончания();
//ПериодПриИзменении(ДатаНач); 
КонецПроцедуры
    ls600, 5 июн 2012
    #16
  17. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    Вот эту строчку:
    Код:
    ОбластьДетали.Параметры.Дата= ВыборкаДетальныеЗаписи.ДокументОтгрузки.Дата;
    Замените на
    Код:
    ОбластьДетали.Параметры.Дата= ВыборкаДетальныеЗаписи.ДокументОтгрузкиДата;
    Это видно из вашего запроса. Хотя, по идее должна и первая строка отрабатывать.
    alexburn, 5 июн 2012
    #17
  18. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    Тоже самое, за весь период выводит! за месяц ни как!!! не хочет
    ls600, 5 июн 2012
    #18
  19. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    11.840
    Симпатии:
    320
    Баллы:
    104
    Так вы же выводите дату документа, какой нафиг месяц????????? Вам за определенный период нужно выводить ?
    alexburn, 5 июн 2012
    #19
  20. TopicStarter Overlay
    ls600
    Offline

    ls600 Опытный в 1С

    Регистрация:
    14 май 2012
    Сообщения:
    126
    Симпатии:
    0
    Баллы:
    26
    За определенный

    Допустим выставляешь за май, тебе за май вывел документы захотел за апрель и т.д. если надо за год то за год!!! в таком формате
    ls600, 5 июн 2012
    #20
Страница 1 из 2
Похожие темы
  1. 0r1on

    8.х 1С с нуля - кто поможет

    0r1on, 11 окт 2007, в разделе: Отчеты и обработки для "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    1.470
    0r1on
    16 окт 2007
  2. Lex09

    8.х Конфигурация "с нуля"

    Lex09, 2 фев 2009, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    18
    Просмотров:
    1.580
    BabySG
    14 фев 2009
  3. unit

    8.х УТ учет с нуля

    unit, 7 апр 2011, в разделе: "1С:Управление торговлей УТ"
    Ответов:
    1
    Просмотров:
    479
    1cUserAndrew
    7 апр 2011
  4. MyNameNoName

    8.х Писать с нуля отчет или использовать за основу стандартный?

    MyNameNoName, 10 июн 2013, в разделе: Отчеты и обработки для "1С:Предприятие 8"
    Ответов:
    5
    Просмотров:
    286
    Draco
    14 июн 2013
  5. scorpion

    8.х УНФ Начать с "нуля"

    scorpion, 12 фев 2014, в разделе: "1С:Управление небольшой фирмой УНФ"
    Ответов:
    55
    Просмотров:
    1.920
    meskalin
    29 дек 2014
Загрузка...

Поделиться этой страницей