Имя: Пароль:
1C
1C 7.7
v7: 7.7 операция
0 DeeK
 
06.07.12
00:14
ребята извиняюсь за тупой вопрос но подскажите как перебрать все проводки документов "Операция" в 7.7

оп = создатьобъект("операция");
   
       оп.ВыбратьОперацииСПроводками(нач,кон,,,,,,);
      Пока оп.Получитьпроводку()=1 Цикл
                 
           ТЗ.НоваяСтрока();
           ТЗ.дата = оп.датаоперации;
           попытка
           ТЗ.содержание = оп.содержание;
           исключение
           конецпопытки;
           ТЗ.сумма = оп.сумма;
           ТЗ.дт = оп.дебет.счет;
           ТЗ.субконто1 = оп.дебет.субконто(1,);
           ТЗ.субконто2 = оп.дебет.субконто(2,);
           ТЗ.субконто3 = оп.дебет.субконто(3,);
           ТЗ.кт = оп.кредит.счет;
           ТЗ.субконто1кт = оп.кредит.субконто(1,);
           ТЗ.субконто2кт = оп.кредит.субконто(2,);
           ТЗ.субконто3кт = оп.кредит.субконто(3,);
       
       КонецЦикла;

пытасю так, но похоже что выбирает вообще все проводки за период
1 DeeK
 
06.07.12
01:13
разобрался

   Док=СоздатьОбъект("Документ.Операция");
     
   нач = дата("01.01.2012");
   кон = дата("31.12.2012");
   Док.ВыбратьДокументы(нач,кон);
     
   Пока Док.ПолучитьДокумент()=1 Цикл
       
       оп = создатьобъект("операция");
     

       Оп.НайтиОперацию(док);

       Оп.ВыбратьПроводки();

       Пока Оп.ПолучитьПроводку() = 1 Цикл

            ТЗ.НоваяСтрока();
            ТЗ.дата = оп.датаоперации;
   
              ТЗ.содержание = оп.содержание;
       
           ТЗ.сумма = оп.сумма;
           ТЗ.дт = оп.дебет.счет;
           ТЗ.субконто1 = оп.дебет.субконто(1,);
           ТЗ.субконто2 = оп.дебет.субконто(2,);
           ТЗ.субконто3 = оп.дебет.субконто(3,);
           ТЗ.кт = оп.кредит.счет;
           ТЗ.субконто1кт = оп.кредит.субконто(1,);
           ТЗ.субконто2кт = оп.кредит.субконто(2,);
           ТЗ.субконто3кт = оп.кредит.субконто(3,);

       КонецЦикла;
   конеццикла;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший