Форум казахстанского налогоплательщика

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

|УПОРЯДОЧИТЬ ПО
| НомерСтроки
|ИТОГИ
| СУММА(СуммаНДС),
| СУММА(СуммаСНДС)
|ПО
| ОБЩИЕ";

shurik_kz писал(а):1. Журнал операций - Действия - Вывести список.
2. Консоль отчетов можно самому поиграться.

Senator_I писал(а):чтобы отображались табличные части.

shurik_kz писал(а):2. Консоль отчетов можно самому поиграться.

shurik_kz писал(а):2. Консоль отчетов можно самому поиграться.

Код: Выделить всё

Функция ДокументПодходит(выбДок) // эта функция не заработала, я её отключил.
   //докПодх = (выбДок.Организация = ПолеВвода1) ИЛИ ПолеВвода1.Пустая();
   //Если Флажок1 Тогда докПодх = докПодх И выбДок.Проведен;
   //   КонецЕсли;
   //Если Флажок2 Тогда докПодх = докПодх И Не выбДок.Проведен;
   //   КонецЕсли;
   //Если Флажок3 Тогда докПодх = докПодх И выбДок.ПометкаУдаления;
   //   КонецЕсли;
   //Возврат докПодх;
КонецФункции

Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   Если ПолеВыбора11 = Неопределено Тогда
      Сообщить("не выбран тип документа");
      Возврат;
   КонецЕсли;
   Если Переключатель1 = 4 Тогда
      Ответ = Вопрос("действительно удалять документы насовсем?", РежимДиалогаВопрос.ДаНет);
      Если Ответ = КодВозвратаДиалога.Нет Тогда Возврат; КонецЕсли;
   КонецЕсли;
   докт = Документы[ПолеВыбора11];
   КонПериода = КонецДня(КонПериода);
   докВыборка = докт.Выбрать(НачПериода, КонПериода);
   счтч = 0;
   Пока докВыборка.Следующий() Цикл
      //Если ДокументПодходит(докВыборка) Тогда
         Сообщить(докВыборка);
         докОбъект = докВыборка.ПолучитьОбъект();
         Если Переключатель1 = 2 Тогда
            докОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);
         ИначеЕсли Переключатель1 = 1 Тогда
            докОбъект.Записать(РежимЗаписиДокумента.Проведение);
         ИначеЕсли Переключатель1 = 3 Тогда
            докОбъект.УстановитьПометкуУдаления(Истина);
         ИначеЕсли Переключатель1 = 5 Тогда
            докОбъект.УстановитьПометкуУдаления(Ложь);
         ИначеЕсли Переключатель1 = 4 Тогда
            докОбъект.Удалить();
         КонецЕсли;
         счтч = счтч + 1;
      //КонецЕсли;
   КонецЦикла;
   Сообщить("обработано документов: " + счтч);
КонецПроцедуры

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

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

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   // Вставить содержимое обработчика.
   Для каждого спр Из Метаданные.Документы Цикл
       ЭлементыФормы.ПолеВыбора1.СписокВыбора.Добавить(спр.Имя); // я так думаю проблема в этом месте (!).      
   КонецЦикла;
КонецПроцедуры


Код: Выделить всё

        для каждого Док из метаданные.Документы цикл
      Доки=Документы[Док.Имя].Выбрать();
      пока Доки.Следующий() цикл
         ОбработкаПрерыванияПользователя();
         сообщить(Доки);
         ДокОб=Доки.ПолучитьОбъект();
         //ДокОб - доступен для изменения
      конеццикла;
   конеццикла

Код: Выделить всё

для каждого Док из метаданные.Документы цикл
      Доки=Документы[Док.Имя].Выбрать([b]НачПериода, КонПериода[/b]);
    
      пока Доки.Следующий() цикл
         ОбработкаПрерыванияПользователя();
         сообщить(Доки);
         ДокОб=Доки.ПолучитьОбъект();
         //ДокОб - доступен для изменения
      конеццикла;
   конеццикла