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

Собственный очтет

Автор goonia91, 13 окт 2011, 12:37

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

goonia91

Здраствуйте.

Я в 1с немогу никак вывести остаток. У меня есть макет и есть немного кода.

Процедура КоманднаяПанель1Сформировать(Кнопка)

   ОбновитьОтчет();

КонецПроцедуры // КоманднаяПанель1Сформировать()


Процедура ОбновитьОтчет()
   Если НЕ ЗначениеЗаполнено(ДатаНач) Или НЕ ЗначениеЗаполнено(ДатаКон) Тогда
      Предупреждение("Не выбран период!");
      Возврат;
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(Склад) Тогда
      Предупреждение("Не выбран склад!");
      Возврат;
   КонецЕсли;

   Если НЕ ЗначениеЗаполнено(ТипЦены) Тогда
      Предупреждение("Не выбрано тип цены!");
      Возврат;
   КонецЕсли;
   
    ТабДок = ЭлементыФормы.ТабДок;
    ТабДок.Очистить();
   
     Макет=ПолучитьМакет("Макет");
     Область=Макет.ПолучитьОбласть("Заголовок");
    Область.Параметры.организация=Организация;
    Область.Параметры.склад=склад;
    Область.Параметры.ДатаНачала=ДатаНач;
    Область.Параметры.ДатаКонца=ДатаКон;
    ТабДок.Вывести(область);
   
   
    Область=Макет.ПолучитьОбласть("Шапка");
    ТабДок.Вывести(область);
   
    Область=Макет.ПолучитьОбласть("ОстатокНачала");
    Область.Параметры.ДатаНачала=ДатаНач;
    ТабДок.Вывести(область);
   
    Область=Макет.ПолучитьОбласть("Строка");
   

   
    ТабДок.Показать();
   
КонецПроцедуры

Помогите с кодом, как вывести остатки. Я выложил картинки, какой должен быть отчет. Но мне не надо выводить кассу и продажа за безнал. Мне надо только остатки, так как сделано на макете. ПОМОГИТЕ ПОЖАЛУЙСТА.
Заранее благодарен

has

Запросом получаешь остатки, затем заполняешь строки таблицы вывода. Информации в инете куча.

goonia91

ща у меня другая проблема.

Не могу установить параметры. Помогите.

КОД:

Процедура КоманднаяПанель1Сформировать(Кнопка)

   ОбновитьОтчет();

КонецПроцедуры // КоманднаяПанель1Сформировать()


Процедура ОбновитьОтчет()
   Если НЕ ЗначениеЗаполнено(ДатаНач) Или НЕ ЗначениеЗаполнено(ДатаКон) Тогда
      Предупреждение("Не выбран период!");
      Возврат;
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(Склад) Тогда
      Предупреждение("Не выбран склад!");
      Возврат;
   КонецЕсли;

   Если НЕ ЗначениеЗаполнено(ТипЦены) Тогда
      Предупреждение("Не выбрано тип цены!");
      Возврат;
   КонецЕсли;
   
    ТабДок = ЭлементыФормы.ТабДок;
    ТабДок.Очистить();
   
     Макет=ПолучитьМакет("Макет");
     Область=Макет.ПолучитьОбласть("Заголовок");
    Область.Параметры.организация=Организация;
    Область.Параметры.склад=склад;
    Область.Параметры.ДатаНачала=ДатаНач;
    Область.Параметры.ДатаКонца=ДатаКон;
    ТабДок.Вывести(область);
   
   
    Область=Макет.ПолучитьОбласть("Шапка");
    ТабДок.Вывести(область);
   
    Область=Макет.ПолучитьОбласть("ОстатокНачала");
    Область.Параметры.ДатаНачала="Остаток на " + ДатаНач;
    ТабДок.Вывести(область);
   
   
     Запрос=новый запрос;
     запрос.установитьПараметр(!!!!!!!!!!!!);
    Запрос.Текст="ВЫБРАТЬ
                 |   ХозрасчетныйОстаткиИОбороты.Регистратор КАК Документ,
                 |   ХозрасчетныйОстаткиИОбороты.Регистратор.Контрагент КАК Поставщик_покупатель,
                 |   СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстаток) КАК Товар,
                 |   СУММА(ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстаток * ХозрасчетныйОстаткиИОбороты.КоличествоНачальныйОстаток) КАК ТоварСНаценкой
                 |ИЗ
                 |   РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(, , Регистратор, , , , ) КАК ХозрасчетныйОстаткиИОбороты
                 |
                 |СГРУППИРОВАТЬ ПО
                 |   ХозрасчетныйОстаткиИОбороты.Регистратор,
                 |   ХозрасчетныйОстаткиИОбороты.Регистратор.Контрагент";
   результат=запрос.Выполнить();
   Область=макет.ПолучитьОбласть("Строка");
   
   
    ТабДок.Показать();
   
КонецПроцедуры

Теги:
Рейтинг@Mail.ru

Поиск