Альтернативный перенос остатков между 7.7 и 8.1 (обработкой с ИТС ЗагрузкаДанныхИзТаблДокум) 2 Нашел альтернативный, практически моментальный способ переноса остатков между семерой и восьмерой (так и между восмерками). Не требуется никаких дополнительных усилий, программирования, писания обработок и т.д. и т.п.
На ИТС есть обработка под назВосстановление партионного учета в УТ 1 Проблема следующая:
при выполнении стандартной обработки " проведение по партиям" , непонятно почему, но граница актуальности партионного учета не сдвигается, хотя при перепроведении документов никаких ошибок не возникает.
Оказывается:
дата грВыбрать все движения регистра по датам в заданном интервале дат 0 Выбрать все движения регистра по датам в заданном интервале дат
рег=создатьобъект(" Регистр.Обороты" );
рег.ВыбратьДвижения(НачМесяца(ТекущаяДата()));
Пока рег.ПолучитьДвижение()=1 Цикл
Сообщить(" Товар=" +строка(рег.Товар)+
" склад=" +строка(Выбрать Остатки и Обороты по указанным счетам, отбор по субконто и выгрузка результата в EXCEL 0 Запрос=Новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
| ХозрасчетныйОстаткиИОбороты.Счет,
| ХозрасчетныйОстаткиИОбороты.Субконто1,
| ХозрасчетныйОстаткиИОбороты.Субконто2,
| ХозрасчетныйОстаткиИОбороты.Субконто3,
| ХозрасчетныйОстаткиИОбороты.ОрганиВывести все виды субконто, прикрепленные к заданному счету? 0 Для ведения аналитического учета в 1С используется термин “субконто”. Субконто в системе 1С:Предприятие называется объект аналитического учета.
Термином «субконто» могут быть обозначены любые объекты аналитического учета: основные средства, нематериПосмотреть все результаты поиска похожих
Формирование проводок в регистре бухгалтерии 7
// Задать выбираемые значения.
ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию(" Иванцова" );
ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду(" 00027" );
ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайКак установить значение Субконто 6 Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто) Экспорт
Если Счет = Неопределено ИЛИ Счет.Пустая() Тогда
Возврат;
КонецЕсли;
Если ТипЗнч(ИмяСубконто) = Тип(" Число" ) Тогда
Если ИмяСубконто Счет.ВидыСубконто.КоличеКак программно изменить проводку в Регистре Бухгалтерии? 5 //Необходимо изменить существующие проводки и добавить значение Субконто
Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Установить(Объект.Ссылка);
Набор.Прочитать();
Для каждого Запись из Набор Цикл
ЕслиПрограммная проверка счета на "групповой" 5 Как известно делать проводки по счетам-группам нельзя. Однако жизнь течет и после введения бухгалтером очередного нового счета какой либо старый, который ранее не являлся счетом-группы, теперь становится групповым. И соответственно все проводки на эКак получить остаток по счету? 3 Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| ХозрасчетныйОстатки.Субконто1,
| ХозрасчетныйОстатки.Организация,
| ХозрасчетныйОстатки.СуммаОстаток,
| ХозрасчетныйОстатки.КоличествоОстаток
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОПосмотреть все в категории Регистры бухгалтерии
Регистры бухгалтерии