4
Arh01
23.06.14
✎
09:08
|
Например для бух.справки
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.Номенклатура, ,1,0);
БухИт.ВыполнитьЗапрос(Докум.ДатаДок,Докум.ДатаДок, "41.1");
БухИт.ВыбратьСубконто();
Пока БухИт.ПолучитьСубконто() = 1 Цикл
Если БухИт.СКД("К")<0 Тогда
Докум.НоваяСтрока();
Докум.СчетДт = СчетПоКоду("41.1");
Докум.НазначитьТип("СубконтоДт1", Докум.СчетДт.ВидСубконто(1));
Докум.СубконтоДт1 = БухИт.Субконто();
Докум.СчетКт = СчетПоКоду("91.1");
Докум.НазначитьТип("СубконтоКт1", Докум.СчетКт.ВидСубконто(1));
Докум.СубконтоКт1 = ЭлементСправочникаПрочиеДоходыИРасходы;
Докум.Сумма = -БухИт.СКД("С");
Докум.Количество = -БухИт.СКД("К");
КонецЕсли;
КонецЦикла;
|
|