Вступайте в мою группу помощник программиста.
В ней мы обсуждаем программирование в 1С.
/// Как прочитать бухгалтерские проводки без значений /// субконто в 1с 8.3, 8.2 &НаСервере Процедура КакПрочитатьПроводкиБезСубконтоНаСервере() // За журнал проводок отвечает таблица РегистрБухгалтерии.Хозрасчетный. // Обратите внимание, что в ней нет информации о субконто - аналитике // счетов, участвующих в проводках. // получим все бухгалтерские проводки Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Хозрасчетный.Период КАК Период, | Хозрасчетный.Организация, | Хозрасчетный.СчетДт, | Хозрасчетный.СчетКт, | Хозрасчетный.КоличествоДт, | Хозрасчетный.КоличествоКт, | Хозрасчетный.Сумма |ИЗ | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный |ГДЕ | Хозрасчетный.Активность = Истина |УПОРЯДОЧИТЬ ПО | Период"; РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Пока Записи.Следующий() Цикл Сообщить( "[" + Формат(Записи.Период, "ДФ=dd.MM.yy") + "] " + "Дт " + Записи.СчетДт + " " + "Кт " + Записи.СчетКт + " " + Записи.Сумма + " руб."); КонецЦикла; КонецПроцедуры /// Как прочитать бухгалтерские проводки вместе со /// значениями субконто в 1с 8.3, 8.2 &НаСервере Процедура КакПрочитатьПроводкиВместеССубконтоНаСервере() // За получение бухгалтерских проводок вместе с их аналитикой (субконто) // отвечает виртуальная таблица ДвиженияССубконто, // у неё есть параметры: // 1. Начало периода // 2. Конец периода // 3. Условие // 4. Порядок (влияет только на отбор первых) // 5. Первые (отбор перых N записей) // Получим проводки за 1 квартал 2014 года, где счёт 41.01 в // дебете или кредите, вместе с их аналитикой (субконто). Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйДвиженияССубконто.Период КАК Период, | ХозрасчетныйДвиженияССубконто.Организация, | ХозрасчетныйДвиженияССубконто.Регистратор, | ХозрасчетныйДвиженияССубконто.Активность, | ХозрасчетныйДвиженияССубконто.СчетДт, | ХозрасчетныйДвиженияССубконто.СубконтоДт1, | ХозрасчетныйДвиженияССубконто.СубконтоДт2, | ХозрасчетныйДвиженияССубконто.СубконтоДт3, | ХозрасчетныйДвиженияССубконто.СчетКт, | ХозрасчетныйДвиженияССубконто.СубконтоКт1, | ХозрасчетныйДвиженияССубконто.СубконтоКт2, | ХозрасчетныйДвиженияССубконто.СубконтоКт3, | ХозрасчетныйДвиженияССубконто.Сумма, | ХозрасчетныйДвиженияССубконто.КоличествоДт, | ХозрасчетныйДвиженияССубконто.КоличествоКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто( | ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00), | ДАТАВРЕМЯ(2014, 03, 31, 23, 59, 59), | Активность = Истина И ( | СчетДт = &ВыбСчет ИЛИ СчетКт = &ВыбСчет) | ) | КАК ХозрасчетныйДвиженияССубконто |УПОРЯДОЧИТЬ ПО | Период Возр"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01")); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Пока Записи.Следующий() Цикл Сообщить( "[" + Формат(Записи.Период, "ДФ=dd.MM.yy") + "] " + "Дт " + Записи.СчетДт + " " + "(" + Записи.СубконтоДт1 + ", " + Записи.СубконтоДт2 + ")" + " " + "Кт " + Записи.СчетКт + " " + "(" + Записи.СубконтоКт1 + ", " + Записи.СубконтоКт2 + ")" + " " + Записи.Сумма + " руб."); КонецЦикла; КонецПроцедуры /// Как получить обороты между бухгалтерскими счетами в 1с 8.3, 8.2 &НаСервере Процедура КакПолучитьОборотыМеждуСчетамиНаСервере() // Пример №1 Сообщить("Пример №1"); // За получение оборотов между счётом и корреспондирующим счётом // за произвольный период с заданной периодичностью в различных // разрезах аналитики отвечает виртуальная таблица Обороты, // у неё есть следующие параметры: // 1. Начало периода // 2. Конец периода // 3. Периодичность (например, Период, Запись, Год, Месяц...) // 4. Условие счета (например, Счет = &ВыбСчет) // 5. Субконто (список видов субконто, влияет на доступность // и смысл Субконто1, Субконто2.., которыми можно оперировать // в запросе). // 6. Условие (например, Субконто1 = &ВыбСклад) // 7. Условие корсчета (аналогично условию счёта) // 8. КорСубконто (аналогично субконто) // Узнаем сколько пришло и сколько ушло товара на основной склад // за январь 2014 года. То есть получим дебетовые и кредитовые // обороты по счёту 41.01, субконто Склады (значение "Основной склад") Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОбороты.Счет, | ХозрасчетныйОбороты.Субконто1 КАК Склад, | ХозрасчетныйОбороты.Организация, | ХозрасчетныйОбороты.СуммаОборотДт КАК ПришёлТовар, | ХозрасчетныйОбороты.СуммаОборотКт КАК УшёлТовар, | ХозрасчетныйОбороты.СуммаОборот КАК Разница |ИЗ | РегистрБухгалтерии.Хозрасчетный.Обороты( | ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00), | ДАТАВРЕМЯ(2014, 01, 31, 23, 59, 59), | Период, | Счет = &ВыбСчет, | &ВидыСубконто, | Субконто1 = &ВыбСклад | ) |КАК ХозрасчетныйОбороты"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01") ); ВидыСубконто = Новый Массив; ВидыСубконто.Добавить( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады ); Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто); Запрос.УстановитьПараметр("ВыбСклад", Справочники.Склады.НайтиПоНаименованию("Основной") ); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Если Записи.Следующий() Тогда Сообщить("Счёт " + Записи.Счет + " (" + Записи.Склад + ")"); Сообщить("Пришёл товар на " + Записи.ПришёлТовар + " руб."); Сообщить("Ушёл товар на " +Записи.УшёлТовар + " руб."); Сообщить("Разница между поступление и списанием " + Записи.Разница + " руб." ); КонецЕсли; // =========================================================== // Пример №2 Сообщить("Пример №2"); // Узнаем сколько пришло товара на основной склад // за каждый месяц 2014 года. Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОбороты.Период, | ХозрасчетныйОбороты.Счет, | ХозрасчетныйОбороты.Субконто1 КАК Склад, | ХозрасчетныйОбороты.Организация, | ХозрасчетныйОбороты.СуммаОборотДт КАК ПришёлТовар |ИЗ | РегистрБухгалтерии.Хозрасчетный.Обороты( | ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00), | ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59), | Месяц, | Счет = &ВыбСчет, | &ВидыСубконто, | Субконто1 = &ВыбСклад | ) КАК ХозрасчетныйОбороты |УПОРЯДОЧИТЬ ПО | Период Возр"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01") ); ВидыСубконто = Новый Массив; ВидыСубконто.Добавить( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады ); Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто); Запрос.УстановитьПараметр("ВыбСклад", Справочники.Склады.НайтиПоНаименованию("Основной") ); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Пока Записи.Следующий() Цикл Сообщить( Формат(Записи.Период, "ДФ=ММММ") + ": " + Записи.ПришёлТовар + " руб." ); КонецЦикла; // =========================================================== // Пример №3 Сообщить("Пример №3"); // Узнаем сколько денег поступило в кассу от покупателей за 2014 год. // То есть проанализируем дебетовые обороты между 50.01 и 62.01 Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОбороты.Счет, | ХозрасчетныйОбороты.КорСчет, | ХозрасчетныйОбороты.СуммаОборотДт |ИЗ | РегистрБухгалтерии.Хозрасчетный.Обороты( | ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00), | ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59), | Период, | Счет = &ВыбСчет, | , | , | КорСчет = &ВыбКорСчет | ) КАК ХозрасчетныйОбороты"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("50.01") ); Запрос.УстановитьПараметр("ВыбКорСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01") ); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Пока Записи.Следующий() Цикл Сообщить( "За 2014 год на " + Записи.Счет + " с " + Записи.КорСчет + " пришло " + Записи.СуммаОборотДт + " руб." ); КонецЦикла; КонецПроцедуры /// Как получить остатки по бухгалтерскому счету в 1с 8.3, 8.2 &НаСервере Процедура КакПолучитьОстаткиПоСчетуНаСервере() // За получение остатков по бухгалтерским счетам // в разрезе аналитики отвечает виртуальная // таблица Остатки, у неё есть следующие параметры: // 1. Период (на который считаем остатки) // 2. Условие счета (например, Счет = &ВыбСчет) // 3. Субконто (список видов субконто, влияет на доступность // и смысл Субконто1, Субконто2.., которыми можно оперировать // в запросе // 4. Условие (например, Субконто1 = &ВыбСклад) // Найдём остатки товаров на всех складах на конец 2014 года. // То есть запросим дебетовые остатки по всем счетам, // входящих в группу 41 счёта в разрезе субконто Номенклатура. Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОстатки.Счет, | ХозрасчетныйОстатки.Субконто1 КАК Товар, | ХозрасчетныйОстатки.КоличествоОстатокДт, | ХозрасчетныйОстатки.СуммаОстатокДт |ИЗ | РегистрБухгалтерии.Хозрасчетный.Остатки( | ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59), | Счет В ИЕРАРХИИ (&ВыбСчет), &ВидыСубконто | ) КАК ХозрасчетныйОстатки"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("41") ); ВидыСубконто = Новый Массив; ВидыСубконто.Добавить( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура ); Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Сообщить("Остатки товаров по всем складам на конец 2014 года."); Пока Записи.Следующий() Цикл Сообщить( Записи.Товар.Наименование + " Количество [" + Записи.КоличествоОстатокДт + " шт.]" + " Сумма [" + Записи.СуммаОстатокДт + " руб.]" ); КонецЦикла; КонецПроцедуры /// Как получить сразу остатки и обороты по бухгалтерскому счету /// в 1с 8.3, 8.2 &НаСервере Процедура КакПолучитьСразуОстаткиИОборотыПоСчетуНаСервере() // За получение остатков и обротов за произвольный период // с заданной периодичностью в разрезе аналитики отвечает // виртуальная таблица ОстаткиИОбороты, у неё есть параметры: // 1. Начало периода // 2. Конец периода // 3. Периодичность (например, Период, Год, Месяц...) // 4. Метод дополнения периодов (Движение или ДвиженияИГраницыПериода) // 5. Условие счета (например, Счет = &ВыбСчет) // 6. Субконто (список видов субконто, влияет на доступность // и смысл Субконто1, Субконто2.., которыми можно оперировать // в запросе // 7. Условие (например, Субконто1 = &ВыбТовар) // Для примера получим начальный остаток, приход, расход, и // конечный остаток банана на всех складах за каждый месяц // 2014 года. Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ХозрасчетныйОстаткиИОбороты.Период, | ХозрасчетныйОстаткиИОбороты.Счет, | ХозрасчетныйОстаткиИОбороты.Субконто1, | ХозрасчетныйОстаткиИОбороты.КоличествоНачальныйОстатокДт, | ХозрасчетныйОстаткиИОбороты.КоличествоОборотДт, | ХозрасчетныйОстаткиИОбороты.КоличествоОборотКт, | ХозрасчетныйОстаткиИОбороты.КоличествоКонечныйОстатокДт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты( | ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00), | ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59), | Месяц, ДвиженияИГраницыПериода, | Счет В ИЕРАРХИИ (&ВыбСчет), &ВидыСубконто, | Субконто1 = &ВыбТовар | ) КАК ХозрасчетныйОстаткиИОбороты"; Запрос.УстановитьПараметр("ВыбСчет", ПланыСчетов.Хозрасчетный.НайтиПоКоду("41") ); ВидыСубконто = Новый Массив; ВидыСубконто.Добавить( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура ); Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто); Запрос.УстановитьПараметр("ВыбТовар", Справочники.Номенклатура.НайтиПоНаименованию("Банан") ); РезультатЗапроса = Запрос.Выполнить(); Записи = РезультатЗапроса.Выбрать(); Пока Записи.Следующий() Цикл Сообщить(Формат(Записи.Период, "ДФ=ММММ") + ": "); Сообщить( Строка(Записи.Счет) + " " + Записи.Субконто1 + " " + "Нач. остаток " + Записи.КоличествоНачальныйОстатокДт + " приход " + Записи.КоличествоОборотДт + ", расход " + Записи.КоличествоОборотКт + " Кон. остаток " + Записи.КоличествоКонечныйОстатокДт ); КонецЦикла; КонецПроцедуры /// Как найти и изменить программно бухгалтерские проводки /// документа в 1с 8.3, 8.2 &НаСервере Процедура КакНайтиИИзменитьПроводкиДокументаНаСервере() // предположим у нас есть ссылка на проведенный // документ поступления еды № ВМБП-000002 ПоступлениеСсылка = Документы.ПоступлениеЕды.НайтиПоНомеру( "ВМБП-000002", '20141231'); // мы знаем, что этот документ делает следующие // проводки по регистру бухгалтерии "Хозрасчетный": // - Дт 41.01 Кт 60.01 // - Дт 60.01 Кт 50.01 // наша задача: найти эти проводки бухгалтерские проводки // и изменить их (например, удвоим количество по дебету 41.01) // и записать вместо старых // используем объектную технику получения проводок, // ведь мы будем их изменять Поступление = ПоступлениеСсылка.ПолучитьОбъект(); // получим набор проводок этого документа в регистр "Хозрасчетный" НаборПроводок = Поступление.Движения.Хозрасчетный; // прочитаем проводки из базы данных НаборПроводок.Прочитать(); Для Каждого Проводка Из НаборПроводок Цикл // выведем старые значения Сообщить( "Дт " + Проводка.СчетДт + " (" + Проводка.КоличествоДт + " шт.) " + "Кт " + Проводка.СчетКт + " (" + Проводка.КоличествоКт + " шт.) " + Проводка.Сумма + " руб." ); Если Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01") Тогда // эта проводка в дебет 41 счёта // изменим её, удвоив количество по дебету Проводка.КоличествоДт = Проводка.КоличествоДт * 2; КонецЕсли; КонецЦикла; // добавим новую проводку НоваяПроводка = НаборПроводок.Добавить(); // дт НоваяПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); НоваяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Справочники.Склады.НайтиПоНаименованию("Основной"); НоваяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Справочники.Номенклатура.НайтиПоНаименованию("Банан"); НоваяПроводка.КоличествоДт = 333; // кт НоваяПроводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); НоваяПроводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] = Справочники.Контрагенты.НайтиПоНаименованию("ООО ""Африка"""); // общая часть НоваяПроводка.Период = ТекущаяДата(); НоваяПроводка.Организация = Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка"""); НоваяПроводка.Сумма = 5000; НоваяПроводка.Содержание = "Проводка добавлена программно."; // разом запишем набор проводок НаборПроводок.Записать( Истина // удалим старые проводки и запишем вместо них новые ); // теперь бухгалтерские проводки документа № ВМБП-000002, // отличаются от тех, что были записаны документом при проведении // чтобы вернуть их к начальному виду - нужно // перепровести документ КонецПроцедуры /// Как прочитать бухгалтерские проводки документа запросом в 1с 8.3, 8.2 &НаСервере Процедура КакПрочитатьПроводкиДокументаЗапросомНаСервере() // этот приём используется, если не требуется изменять // найденные проводки // предположим у нас есть ссылка на проведенный // документ поступления еды № ВМБП-000002 ПоступлениеСсылка = Документы.ПоступлениеЕды.НайтиПоНомеру( "ВМБП-000002", '20141231'); // мы знаем, что этот документ делает проводки по // регистру бухгалтерии "Хозрасчетный" // прочитаем проводкипо регистру "Хозрасчетный" запросом Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Хозрасчетный.СчетДт, | Хозрасчетный.СчетКт, | Хозрасчетный.Сумма |ИЗ | РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный |ГДЕ | Хозрасчетный.Регистратор = &ВыбРегистратор | |УПОРЯДОЧИТЬ ПО | Хозрасчетный.НомерСтроки"; Запрос.УстановитьПараметр("ВыбРегистратор", ПоступлениеСсылка); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Сообщить( "Дт " + ВыборкаДетальныеЗаписи.СчетДт + " Кт " + ВыборкаДетальныеЗаписи.СчетКт + " " + ВыборкаДетальныеЗаписи.Сумма + " руб." ); КонецЦикла; КонецПроцедуры /// Как создать бухгалтерские проводки без привязки /// к документу в 1с 8.3, 8.2 &НаСервере Процедура КакСоздатьПроводкиБезДокументаНаСервере() // в нашей тестовой конфигурации нет документа // "ОперацияБух", который присутствует во всех // типовых Сообщить("Этот пример нельзя выполнить в этой базе."); Возврат; // бухгалтерские проводки обязательно должны быть к // привязаны к документу, в данном случае этим документом // будет документ "ОперацияБух", задуманный как раз для // ручных бухгалтерских операций // создаём и записываем пустой документ // пока без бухгалтерских проводок Операция = Документы.ОперацияБух.СоздатьДокумент(); Операция.Дата = ТекущаяДата(); Операция.Организация = Справочники.Организации.НайтиПоНаименованию("Ромашка"); Операция.СуммаОперации = 1000; Операция.Содержание = "Ручная операция по 41 счёту"; Операция.Записать(РежимЗаписиДокумента.Запись); // затем получаем его набор проводок (пустой) // заполняем его и записываем НаборПроводок = Операция.Движения.Хозрасчетный; Проводка = НаборПроводок.Добавить(); Проводка.Период = Операция.Дата; Проводка.Организация = Операция.Организация; // дт Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); Проводка.СубконтоДт[ ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура ] = Справочники.Номенклатура.НайтиПоНаименованию("Банан"); На41ВедетсяУчетПоСкладам = Проводка.СчетДт.ВидыСубконто.Найти( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады ) <> Неопределено; Если На41ВедетсяУчетПоСкладам Тогда Проводка.СубконтоДт[ ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады ] = Справочники.Склады.НайтиПоНаименованию("Основной"); КонецЕсли; Проводка.КоличествоДт = 3; // кт Проводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); Проводка.СубконтоКт[ ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты ] = Справочники.Контрагенты.НайтиПоНаименованию("Беркут"); // общее Проводка.Сумма = 500; НаборПроводок.Записать(Истина); КонецПроцедуры /// Как получить информацию о бухгалтерском счёте /// из плана счетов в 1с 8.3, 8.2 &НаСервере Процедура КакПолучитьИнформациюОСчетеНаСервере() // читаем информацию о счёте из плана счетов // находим счёт по коду Счёт41_1 = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"); // смотрим состав субконто Для Каждого Субконто Из Счёт41_1.ВидыСубконто Цикл Сообщить("Субконто " + Субконто.ВидСубконто.Наименование); Сообщить(" Валютный " + Субконто.Валютный); Сообщить(" Количественный " + Субконто.Количественный); Сообщить(" Суммовой " + Субконто.Суммовой); КонецЦикла; // узнаем, ведётся ли на 41.01 учёт по складам // (другими словами есть ли у этого счёта субконто // склады) Если Счёт41_1.ВидыСубконто.Найти( ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады ) <> Неопределено Тогда Сообщить("На 41.01 ведётся учёт по складам."); Иначе Сообщить("На 41.01 ведётся учёт по складам не ведётся."); КонецЕсли; // узнаем является ли один счёт родителем другого Счёт41 = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41"); Если Счёт41_1.ПринадлежитЭлементу(Счёт41) Тогда Сообщить(Счёт41.Код + " является родителем для " + Счёт41_1.Код); КонецЕсли; КонецПроцедуры /// Скачать и выполнить эти примеры на компьютере
Регистры бухгалтерии — это такие объекты в программе, которые позволяют хранить бухгалтерские данные по счетам учета, вести учет аналитик и пр. После проведения документов в системе, они формируют проводки, которые являются частью рассматриваемого регистра. Также необходимо отметить, что не все документы в программе делают записи в регистрах бухгалтерии. К примеру, акт сверки расчетов с контрагентами не будет делать никаких записей в регистре бухгалтерии.
Рассматривать регистр бухгалтерии мы соответственно будем на примере конфигурации Бухгалтерия 3. Если запустить конфигуратор, то в ветке объектов конфигурации регистр без проблем можно будет найти регистр бухгалтерии, который будет иметь название “Хозрасчетный”.
Данный регистр имеет измерения – это организация, валюта и подразделение, ресурсы – сумма, сумма в валюте, количество, суммаНУ, суммаПР и суммаВР (налоговый учет, постоянные разницы и временные разницы соответственно). И также два реквизита, которые предназначены для хранения справочной информации.
Кликнув два раза мышкой на строке “Хозрасчетный” в дереве конфигурации, вы откроете карточку регистра. На закладке “Основные” можно увидеть как называется регистр в режиме Предприятия (пользовательском режиме), в графе “Синоним”. Также обратите внимание на данной закладке есть галочка “Корреспонденция”. Установленная галочка означает, что регистр будет работать по принципу двойной записи – счет дебета и счет кредита. Если же данная галочка не стоит, то будет одно поле – счет. В типовой поставке программы данная галочка установлена по умолчанию.
Исходя из вышесказанного можно понять, что данный регистр напрямую связан со счетами учета бухгалтерии.
На закладке “Регистраторы” можно посмотреть какие документы будут делать движения по данному регистру. Т.е. регистраторы – это те документы, которые “двигают” записи по данному регистру. По сути механизм записи движений схож с записью движений в регистры накопления.
Данный регистр поддерживает уникальность записей. Что это означает? А то, что в регистре не может храниться двух одинаковых записей от одного регистратора по одной и той же строке табличной части этого регистратора.
Далее давайте перейдем в режим Предприятия и откроем данный регистр. И так, мы посмотрели, что в режиме Предприятия регистр имеет название “ Журнал проводок (бухгалтерский и налоговый учет)”. Открыть его можно через раздел “Операции” и далее выбрать пункт “Журнал проводок”.
Также данный регистр можно открыть через меню “Сервис и настройки” и далее пункт “Функции технического специалиста”.
Если данного пункта не видно в списке, то его необходимо включить. Для этого в меню “Сервис и настройки” необходимо выбрать пункт “Настройки” и далее пункт “Параметры”. В открывшейся форме необходимо установить галочку “Режим технического специалиста”.
В функциях технического специалиста остается найти и открыть рассматриваемый регистр.
Также в программе можно устанавливать настройки, которые будут влиять на аналитику, а соответственно и на записи в регистре бухгалтерии. К примеру, если открыть карточку счета 10 и далее перейти по гиперссылке “Учет запасов”, то можно отметить галочки субконто, от которых будет зависеть аналитика.
Далее необходимо установить нужные галочки по чему будет вестись учет запасов. Ниже будет подсказка в видео текстового описания.
Посмотреть какие записи сделал документ по регистру бухгалтерии можно по кнопке “Дт/Кт” в шапке документа.
При необходимости данные записи можно скорректировать, установив галочку “Ручная корректировка (разрешает редактирование движений документа)”.
Также в программе есть несколько специализированных документов, которые позволяют делать корректировки записей регистра и формировать новые записи Самый распространенный – документ “Операция”. Документ находится в разделе программы “Операции” – пункт “Операции введенные вручную”. Для чего можно использовать данный документ? Он позволяет записывать произвольные проводки в регистр, которые нам нужны.
Помимо этого, в программе имеется документ “Сторно документа”, который сделает по регистру обратные движения, т.е. сторнирует движения нужного документа. И еще один документ — это “Типовая операция”, которая позволяет создавать определенные шаблоны записей.
Скорректировать записи по регистру бухгалтерии по документам поступлений, реализаций можно используя документы “Корректировка поступления”, “Корректировка реализации” и “Корректировка долга”.
Разберем
на примерах, как извлекать из регистра
бухгалтерии требуемую информацию.
Реализуем некоторые стандартные
бухгалтерские отчеты с помощью
запросов.
Структура регистра бухгалтерии
Ниже
в примерах будет использован регистр
бухгалтерии Основной,
поддерживающий корреспонденцию и
имеющий следующую структуру:
|
Измерения |
||
|
Организация |
балансовый |
Тип: |
|
Валюта |
Небалансовый |
Тип: |
|
Ресурсы |
||
|
Сумма |
балансовый |
Тип: |
|
Количество |
Небалансовый |
Тип: |
|
ВалютнаяСумма |
небалансовый |
Тип: |
|
Реквизиты |
||
|
ЖО |
Тип: |
Движения без субконто
Самой
простой тип запросов – получение детальных
записей регистра. Для этого используется
основная таблица-источник регистра
бухгалтерии.
Обратите
внимание, что для небалансовых
измерений и ресурсов, а также для счета
существуют поля с добавлением «Дт» и
«Кт», например, ВалютаДт:
Пример
1. (запрос
расположен в модуле объекта
Документ.АвансовывйОтчет)
ЗапросПоПроводкам
= Новый Запрос();
ЗапросПоПроводкам.УстановитьПараметр(“Ссылка”,
Ссылка);
ЗапросПоПроводкам.Текст
=
“ВЫБРАТЬ
|Хозрасчетный.СчетДт,
|Хозрасчетный.СчетКт,
|СУММА(Хозрасчетный.Сумма)
КАК Сумма,
|МИНИМУМ(Хозрасчетный.НомерСтроки)
КАК НомерСтроки
|ИЗ
|РегистрБухгалтерии.Основной
КАК Хозрасчетный
|ГДЕ
|Хозрасчетный.Регистратор
= &Ссылка
|И
(НЕ(Хозрасчетный.СчетДт.Забалансовый
|ИЛИ
Хозрасчетный.СчетКт.Забалансовый))
|
|СГРУППИРОВАТЬ
ПО
|Хозрасчетный.СчетДт,
|Хозрасчетный.СчетКт
|
|УПОРЯДОЧИТЬ
ПО
| НомерСтроки”;
ВыборкаПроводок
= ЗапросПоПроводкам.Выполнить().Выбрать();
Заметьте,
что эта таблица не предоставляет
информацию о субконто. Для этого
предназначена следующая таблица.
Движения с указанием субконто
Теперь
получим список движений регистра с
субконто. Для этого нужно воспользоваться
таблицей ДвиженияССубконто.
Для демонстрации мы включим в результат
поле ВидСубконтоДт1
и
другие поля, содержащие информацию о
субконто по дебету и кредиту проводки.
Это
реализуется в следующем запросе:
Пример
2a.
|ВЫБРАТЬ
|Период,
//дата
и время записи
|Организация,
//балансовое
измерение Организация
|СчетДт,
СчетКт, //счета
дебета и кредита
|Сумма,
//балансовый ресурс Сумма
|ВидСубконтоДт1,
СубконтоДт1, //вид
и значение субконто 1 по дебету
|СубконтоДт2,
//субконто
2 по дебету
|СубконтоКт1,
СубконтоКт2, //субконто
1 и 2 по кредиту
|КоличествоДт
КолДт, КоличествоКт КолКт, //небалансовый
ресурс
|ЖО
//реквизит
записи ЖО
|ИЗ
РегистрБухгалтерии.Основной.ДвиженияССубконто
Пример
2б.
ЗапросПоПроводкам =
Новый Запрос();
ЗапросПоПроводкам.УстановитьПараметр(“Ссылка”,
Ссылка);
ЗапросПоПроводкам.УстановитьПараметр(“КурсоваяРазница”,
Справочники.ПрочиеДоходыИРасходы.КурсовыеРазницы);
ЗапросПоПроводкам.Текст
=
“ВЫБРАТЬ
|СУММА(ВЫБОР
|КОГДА
ХозрасчетныйДвиженияССубконто.СубконтоДт1
= &КурсоваяРазница
|ТОГДА
ХозрасчетныйДвиженияССубконто.Сумма
|ИНАЧЕ
0
|КОНЕЦ)
КАК СуммаДт,
|СУММА(ВЫБОР
|КОГДА
ХозрасчетныйДвиженияССубконто.СубконтоКт1
= &КурсоваяРазница
|ТОГДА
ХозрасчетныйДвиженияССубконто.Сумма
|ИНАЧЕ 0
|КОНЕЦ) КАК СуммаКт
|ИЗ
|РегистрБухгалтерии.Основной.ДвиженияССубконто(,
, Регистратор =
|&Ссылка) КАК
ХозрасчетныйДвиженияССубконто
|”;
ВыборкаКР =
ЗапросПоПроводкам.Выполнить().Выгрузить();
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
- #
Содержание:
1. Где в конфигурации системы 1С находятся регистры?
2. Действия над регистрами и их представление в 1С: Бухгалтерия 8
3. Запрос сведений в конфигурации 1С: Бухгалтерия 3.0
1. Где в конфигурации системы 1С находятся регистры?
Регистр — упорядоченный набор данных построчно представленной информации, и каждая строка отвечает за какое-либо изменение состояния для некоторого множества субъектов (или измерений).
Именно в регистрах хранятся все сведения о действиях/изменениях в системе. Запись данных в регистр производится по факту проведения документов. Важно, чтобы сохраненную информацию было легко получить и проанализировать. Эти две характеристики нужно учитывать при проектировании новых регистров.
Выделяют 4 типа регистров 1С:
• Регистры сведений — аналог exel-таблиц, применяется для хранения какой-либо информации в упорядоченном виде.
• Регистры накопления программно — информация по остаткам и доступности товаров, оборотам, общим итогам, представленная в табличной форме. Регистры бухгалтерии 1С — таблицы, созданные на основе бухгалтерских планов счетов в 1С. В таких таблицах содержатся сведения о бухгалтерских проводках.
• Регистры расчетов 1С — таблицы, основанные на планах видов расчетов. Применяются для отслеживания начислений заработной платы в 1С.
Рассмотрим, как найти регистры, на примере 1С на управляемых формах. Возьмем конфигурацию – 1С Бухгалтерия 3.0.
Откроем Главное меню – Настройки – Параметры.
Настройки
А затем отметим чек-боксом «Режим технического специалиста».
Режим технического специалиста
Если повторно открыть выпадающий список, открывающийся по кнопке «Главное меню», то самой последней строкой списка добавится вариант «Функции для технического специалиста».
Функции для технического специалиста
Выберем «Функции для технического специалиста» и в появившемся окне для использования доступны все четыре варианта регистров.
Константы
2. Действия над регистрами и их представление в 1С: Бухгалтерия 8
Рассмотрим на примере регистра сведений таблицы. Для каждой такой таблицы доступен один из следующих вариантов взаимодействия с имеющейся информацией: добавление, изменение, чтение, удаление или очистка регистра. Далее будем рассматривать операции в контексте регистра сведений.
В отдельную группу выделяют периодические регистры 1С. В процессе создания каждого регистра важно определить, потребуется ли применять в дальнейшем использовании хранение данных относительно времени и минимальную периодичность, с которой записи будут храниться. Если периодичность задана, регистр называют периодическим.
Регистр сведений представляется как таблица со следующими полями:
• измерения — характеризуют области содержащие информацию;
• период — атрибут, применяемый для структурирования сведений в соответствии с временным параметром. Если значение для параметра «Периодичность» будет отличным от «Не периодичный», поле добавиться по умолчанию;
• регистратор — если для режима записи 1С будет указано, что необходимо подчинение регистратору, поле добавится по умолчанию. Нужен для хранения документа связанного с записью;
• ресурсы — сохраняют данные для комбинации измерений;
• реквизиты — произвольные данные, относящиеся к определенному объекту регистра сведений.
В регистрах сведений все записи уникальны, т.е. недопустимо наличие 2 идентичных строк информации. Идентичными называются записи с совпадающими значениями измерений, периодом и регистратором (когда эти характеристики прописаны).
Для примера, рассмотрим выполнение операции «Чтение».
3. Запрос сведений в конфигурации 1С: Бухгалтерия 3.0
Поиск данных в регистрах лучше выполнять с применением запросов. Так система позволяет выполнять поиск нужных объектов сразу в нескольких таблицах, пользоваться различными отборами.
Возьмем регистр «курс валют».
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| КурсВалют.Период,
| КурсВалют.Валюта,
| КурсВалют.Курс
|ИЗ
| РегистрСведений.КурсВалют КАК КурсВалют»;
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий()
// прохождение итогов от срабатывания запроса
Цикл
КонецЦикла;
// Найдем объект с параметром «валюта» совпадающим с прописанным в «НашаВалюта» и периодом<= значению переменной «НашаДата»
Запрос = Новый Запрос;
Запрос.Текст =
«ВЫБРАТЬ
| КурсВалютСрезПоследних.Период,
| КурсВалютСрезПоследних.Валюта,
| КурсВалютСрезПоследних.Курс
|ИЗ
| РегистрСведений.КурсВалют.СрезПоследних(&Период, Валюта = &Валюта) КАК КурсВалютСрезПоследних»;
Запрос.УстановитьПараметр(«Валюта», НашаВалюта);
Запрос.УстановитьПараметр(«Период», НашаДата);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий()
Цикл
// прохождение итогов от срабатывания запроса
КонецЦикла;
Используются такие методы и совместно с методами объектной модели.
Ниже приведем образцы записи запросов с указанием и без указания периодичности:
• Выбрать(<Отбор>,<Порядок>) — отберет записи в соответствии с параметром, указанным в отборе и в указанном порядке и выведет их;
• ВыбратьПоРегистратору(<Регистратор>) — выведет все записи, регистратор которых совпадет с прописанным в условии отбора;
• Выбрать(<Отбор>,<Порядок>) — отберет записи в соответствии с параметром, указанным в отборе и в необходимом порядке и выведет их;
• ВыбратьПоРегистратору(<Регистратор>) — выведет все записи, где регистратор совпадет тем, что установлен в условии отбора;
• Выбрать(<НачалоИнтервала>,<КонецИнтервала>,<Отбор>,<Порядок>) — отбирает объекты, удовлетворяющие критериям, прописанным в параметре «отбор» и дата которых попадает между началом и концом необходимого интервала;
• ВыбратьПоРегистратору(<Регистратор>) — ищет все записи обозначенного регистратора;
• Получить(<Период>,<Отбор>) — получает ресурсы записи с отбором по всем измерениям и периоду;
Все запросы ниже выполняют действия в соответствующих обозначенным периоду и отбору:
• ПолучитьПервое(<НачалоПериода>,<Отбор>) — получает ресурсы самой ранней записи;
• СрезПервых(<НачалоПериода>,<Отбор>) — получает таблицу самых ранних записей.
Специалист компании “Кодерлайн”
Марина Анапольская
«1С:Бухгалтерия 8» (ред. 3.0). Где найти и просмотреть регистры накопления и регистры сведений? Как их можно скорректировать?
Видеоролик выполнен в программе «1С:Бухгалтерия 8» релиз 3.0.43.137.
Регистры сведений и накоплений «1С:Бухгалтерии 8» (ред. 3.0)
Регистр сведений предназначен для хранения информации в виде наборов записей (для регистрации некоторых сведений, значений). Регистр сведений позволяет получить срез информации (текущее значение показателей) на любой момент времени. Для регистров сведений связь с регистрирующими документами учетной системы не всегда обязательна.
Примерами регистров сведений могут служить следующие регистры:
- Лимит остатка кассы;
- Счета учета номенклатуры;
- Учетная политика и т. д.
Как правило, для ввода записей в регистры сведений служат специальные формы или документы, доступ к которым осуществляется из определенных разделов программы. Так, например, запись в регистр:
- Ставки налога на имущество по отдельным основным средствам выполняется из раздела Справочники по гиперссылкам Налог на имущество – Объекты с особым порядком налогообложения по кнопке Создать;
- Цены номенклатуры выполняется с помощью документа Установка цен номенклатуры (раздел Склад);
- Настройки учета зарплаты выполняется в одноименной форме по одноименной гиперссылке из раздела Зарплата и кадры и т. д.
Регистры накоплений служат для хранения изменений данных (прихода и расхода значений определенных показателей). Регистр накопления позволяет получить информацию об остатках или оборотах этих показателей за указанный пользователем период. Происхождение данных обязательно подтверждается регистрирующими документами учетной системы (иначе говоря, запись в регистр накопления не может появиться «ниоткуда».)
Примерами регистров накопления могут служить следующие регистры:
- НДС по приобретенным ценностям;
- Расходы при УСН;
- Расчеты налогоплательщиков с бюджетом по НДФЛ и т. д.
Подробнее об организации налогового учета расчетов по НДС в «1С:Бухгалтерия 8» (ред. 3.0) с помощью регистров накопления см. в справочнике «Учет по налогу на добавленную стоимость» раздела «Бухгалтерский и налоговый учет» ИС 1С:ИТС.
Об использовании регистров накопления для учета хозяйственных операций в целях УСН в «1С:Бухгалтерия 8» (ред. 3.0) см. в справочнике «Учет при применении УСН» раздела «Бухгалтерский и налоговый учет» ИС 1С:ИТС.
Если при проведении документа вводится запись в какой-либо регистр, то движения по регистру можно просмотреть так же, как и записи регистра бухгалтерии, по кнопке ДтКт (Показать проводки и другие движения документа), перейдя на соответствующую закладку.
Просмотр записей регистров сведений и регистров накоплений
В программе доступ ко всем регистрам осуществляется из Главного меню (кнопка входа в Главное меню доступна в левом верхнем углу основного окна программы) при вызове команды Все функции (команда доступна, если установлена соответствующая настройка в параметрах системы, и у пользователя есть право вызова данного режима). В режиме Все функции можно выбрать нужный регистр, просмотреть записи, открыть регистрирующий документ или форму ввода для данного регистра.
Если команда Все функции не доступна, ее надо добавить – меню Сервис – Параметры – устанавливаем флаг Отображать команду «Все функции».
Чтобы сформировать отчет по записям какого-либо регистра можно воспользоваться Универсальным отчетом (раздел Отчеты).
Универсальный отчет позволяет отображать не только данные справочников, документов и их табличных частей, но также регистров сведений, регистров накопления и их виртуальных таблиц.
В верхней части отчета находится командная панель. С помощью настроек панели нужно установить требуемый период. В поле Тип данных надо выбрать значение из списка (например, Регистр сведений или Регистр накопления), а в поле Объект из представленного списка объектов надо выбрать требуемый регистр.
Панель настройки открывается (скрывается) по кнопке Показать настройки/Скрыть настройки. В отчете можно задать группировку по аналитическим объектам, по группам объектов. Для этого предназначена панель настройки Группировка. Порядок группировки аналитических объектов изменяется по кнопке Вверх или Вниз.
На панели Отбор можно выбрать параметр или реквизит, по которому будет произведен отбор в отчете, а также задать вид сравнения (равно, в списке и т. д.). В колонке Поле следует выбрать параметр или реквизит, доступный для настройки отчета. В последней колонке указывается конкретное значение выбранного параметра или реквизита параметра.
На панели сортировки можно упорядочить значения по графам (полям) отчета. Допускается задавать сразу несколько настроек для сортировки.
Подробнее об использовании универсального отчета «1С:Бухгалтерии 8» (ред. 3.0) для отображения записей регистра сведений и регистров накопления читайте ответы на вопросы экспертов 1С и смотрите видео:
1. Как сформировать отчет по основным средствам и материально ответственным лицам (реквизит «МОЛ»)?
2. Как сформировать отчет по приобретенным товарам (работам, услугам) в разрезе ставок НДС и документов-оснований?
3. Как сформировать отчет по начисленному НДС в разрезе ставок НДС и документов-оснований?
Корректировка записей регистров сведений и регистров накоплений
В общем случае для внесения изменений в регистры сведений или в регистры накопления служат стандартные средства программы. Так, например:
- для изменения материально ответственного лица, ответственного за сохранность основных средств (ОС), необходимо с определенной даты изменить значение реквизита МОЛ в регистре сведений Местонахождение ОС (Бухгалтерский учет). Для этого предназначен документ Перемещение ОС из раздела ОС и НМА;
- для внесения записей в регистры накопления Расчеты налоговых агентов с бюджетом по НДФЛ, Расчеты налогоплательщиков с бюджетом по НДФЛ, Учет доходов для исчисления НДФЛ (например, по полученным дивидендам) предназначен документ учетной системы Операция учета НДФЛ (раздел Зарплата и кадры – Все документы НДФЛ) и т. д.
В некоторых случаях все же требуется скорректировать регистры ручным способом, для этого необходимо воспользоваться документом Операция (раздел Операции – Операции, введенные вручную).
Для внесения изменений в регистры необходимо в командной панели документа Операция нажать на кнопку Еще, выбрать опцию Выбор регистров, перейти на закладку Регистры накопления или Регистры сведений и выбрать для корректировки требуемые регистры. В табличной части документа Операция, помимо закладки Бухгалтерский и налоговый учет, появляются дополнительные закладки с наименованием корректируемых регистров сведений.
О внесении ручной корректировки в регистры сведений см. здесь.
Иногда ручная корректировка регистров накопления может понадобиться, если меняется информационная база для ведения учета или меняется учетная политика (например, организация начинает вести раздельный учет НДС). В этом случае можно воспользоваться документом Ввод остатков, доступ к которому осуществляется по гиперссылке Помощник ввода остатков из раздела Главное.
Подробнее о корректировке специальных регистров при вводе остатков по партиям НДС см. здесь.
