Документ

[Юрийzer]

Здравствуйте,подскажите кто нибудь! Делаю документ в котором отображается таблица с расходными кассовыми документами, что нужно написать чтоб при нажатии кнопки заполнить в таблице выходили все расходно кассовые .Я не програмист пробую  научится,а нигде найти не могу ответ

[Mitay_D]

а зачем вам документ, в которм будут документы? что вы будете делать с одним документом в которм будут все остальные документы? для чего?

[Юрийzer]

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

[Юрийzer]

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

   Для Ном =1 По ТЗном.КоличествоСтрок() Цикл
      ТЗном.ПолучитьСтрокуПоНомеру(Ном);
      НоваяСтрока();
       Номенклатура = ТЗном.Номенклатура;
      Сумма        = ТЗном.Сумма;
      Признак      = Перечисление.Признак.Пополам;
   КонецЦикла;
   
КонецПроцедуры   // Заполнить

[Юрийzer]

Я поменял
Док = СоздатьОбъект("Документ.РасходныйКассовый");
и еще кое чего но ничего не заполняется сижу синтаксис смортю  не понимаю еще что и зачем!

[Doksa]

Перед :
Пока Док.ПолучитьСтроку() = 1 Цикл ...  ,
ты забыл поставить Док.ВыбратьСтроки();