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