Получить остатки по 20-ому счету

Форум Программирование Общие вопросы программирования (Dev)

1С:Бухгалтерия 7.7

1. r24al 12 03.12.17 20:19 Сейчас в теме

Доброго времени суток, коллеги

Будете смеяться, но потребовалось быстренько дописать проводки в документе - надо что бы все что не закрыли в процессе учета по производственному процессу, закрывалось документом в конце месяца.
Накидал код, а фокус не выходит - забыл я видно что-то нужное...

	Остаток = 0;
	
	БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
	БухИт.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство,, 1);
	БухИт.ВыполнитьЗапрос(,ТекущийДокумент(),СчетПоКоду("20"),,,,,"С");

	БухИт.ВыбратьСубконто(1);
	Пока БухИт.ПолучитьСубконто(1) = 1 Цикл
		Остаток = БухИт.СКД();
		Сообщить("Остаток "+БухИт.Субконто(1)+ " сумма "+Остаток);
	КонецЦикла;

Показать

Вот помню, что он оборотный... а как вот решить - не помню.

По теме из базы знаний

Азы учета производства и услуг в проводках для программистов

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. pirat123457 90 04.12.17 05:04 Сейчас в теме

БухИт  = СоздатьОбъект("БухгалтерскиеИтоги");  
	//ИспользоватьСубконто(<ВидСубконто>,<Субконто>,<ТипФильтра>,<ПоГруппам>)
	БухИт.ИспользоватьРазделительУчета(ВыбЮрЛицоНашаОрганизация);
	БухИт.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводство,,,);
	БухИт.ИспользоватьСубконто(ВидыСубконто.Подразделения,,,);
	БухИт.ИспользоватьСубконто(ВидыСубконто.ВидыПродукции,,,);

	//ВыполнитьЗапрос(<НачалоПериода>,<КонецПериода>,<Счет>,<КоррСчет>,<Валюта>,<ТипИтогов>,<Периодичность>,<ТипСуммы>)
	БухИт.ВыполнитьЗапрос(ДатаНач, ДатаКон, СчетПоКоду("20"),,,,,"С");
	
	БухИт.ВыбратьСубконто(1);
	Пока БухИт.ПолучитьСубконто(1) = 1 Цикл
		Состояние(БухИт.Субконто(1).Наименование);
		БухИт.ВыбратьСубконто(2);
		Пока БухИт.ПолучитьСубконто(2) = 1 Цикл			
			БухИт.ВыбратьСубконто(3);
			Пока БухИт.ПолучитьСубконто(3) = 1 Цикл	                             
				
				Сообщить(БИ.Субконто(1));
				Сообщить(БИ.Субконто(2));
				Сообщить(БИ.Субконто(3));
				Сообщить(БИ.ДО());
				Сообщить(БИ.КО());	  
				
			КонецЦикла; 
		КонецЦикла;
	КонецЦикла;

Показать

Оставьте свое сообщение

E-mail: