Простая бухгалтерия. Глава 6
План счетов
создан, операции и проводки готовы, теперь можно и заняться документами.
Давайте определим общие реквизиты документов и нумераторы.
Идентификатор
Тип значения
Дополнительно
ФирмаДокумента
С.Фирмы
О
Пояснение
Строка 100
Валюта
С.Валюты
ДатаКурса
Дата
Курс
Число 6.2
АвторДокумента
Строка 50
О
"О" - отбор
Первый и самый
простой документ будет Учет НДС. Проводка по нему самая простая
(Д 68.1 – К 19.3). Этим документом мы будем переводить сумму НДС
за приобретенные комплектующие в зачет налогов. Документ будет относиться
к специальному журналу "УчетНДС". Журнал обычный. В журнале заведем
графу "Сумма", значение для нее будем брать Документ.УчетНДС.Сумма.
Идентификатор: УчетНДС
Проводить: да
Бухгалтерский
учет: да
Создавать операцию: Всегда
Редактировать операцию: нет
Является
основанием для
Вводится
на основании
Шапка
Реквизит
Описание
ТипЗначения
Доп.
Сумма
Число 10.2
3, +
Таблица
Реквизит
Описание
ТипЗначения
Доп.
Создаем форму документа.
Поля АвторДокумента и Курс сделаем недоступными. В полях валюта и
ДатаКурса в формуле укажем процедуру Валюта() .
Перем СтВалюта; //Переменные для пересчета суммы при изменении валюты документа //========================================================== Процедура ВводНового() // Заполняем значения по умолчанию СтВалюта=Валюта;//========================================================== Процедура ПриОткрытии() // При записи изменений перепроводить обязательно КонецПроцедуры//========================================================== Процедура Валюта() // Переводим в валюту документа Курс=КурсН; // Пересчитываем сумму СтВалюта=Валюта; Процедура ОбработкаПроведения() // Пересчитали сумму документа в сумму операции
в базовую валюту ПривязыватьСтроку(0); // Следующая за этой командой новая проводка
к строке документа не Операция.НоваяПроводка(); // Создаем проводку (простую) по операции Операция.Дебет.Счет = СчетПоКоду("68.1",ПланыСчетов.Наш); // Указали корреспонденцию проводки Операция.Сумма = СуммаО; // Сумма проводки Операция.Фирма = ФирмаДокумента; // Дополнительные сведения по проводке Операция.Содержание = "Учет НДС"; // Дополнительные сведения по операции Операция.Записать();
Документ создан.
Давайте его проверим. Входим в 1С:Предприятие и создаем новый документ
"Учет НДС" на сумму 1000 тугриков (для примера), затем меняем валюту
на рубли и получаем 22.77 рубля (при курсе 22.77 руб. за 1000 тугриков)
все сходится, вернем тугрики. Сохраним и проведем документ. Смотрим
журнал операций (Меню Действия команда "Перейти в журнал операций").
Сумма операции 22.77 (при сумме документа 1000) – верно. Проверяем
проводку – тоже все верно. Документ написан правильно. Удалим этот
документ, чтобы не мешал.
По приходной
накладной мы будем получать комплектующие от поставщиков. Проводка
по этому документу сложнее (Д 10.2 – К 60, Д 19.3 – К 60). В данном
документе нас интересует следующее: кто поставил нам комплектующие,
на какой склад мы их приняли, что конкретно пришло, в каком количестве,
по какой цене без НДС, на какую сумму. Сведем все в таблицу:
Идентификатор: ПриходнаяНакладная
Проводить: да
Бухгалтерский
учет: да
Создавать операцию: Всегда
Редактировать операцию: нет
Является
основанием для
Вводится
на основании
Шапка
Реквизит
Описание
ТипЗначения
Доп.
Поставщик
С.Контрагенты
Склад
С.Склады
Таблица
Реквизит
Описание
ТипЗначения
Доп.
Товар
С.Комплектующие
Кол
Число 5.0
+, И
ЦенаБНДС
Цена без НДС
Число 7.2
+
ЦенаСНДС
Цена с НДС
Число 7.2
+
СуммаБНДС
Сумма без НДС
Число 13.2
+, И
СуммаНДС
Сумма НДС
Число 13.2
+, И
СуммаСНДС
Сумма с НДС
Число 13.2
+, И
Отредактируем журнал
ПриходныеНакладные. Добавим в него две графы – Кол из реквизита таблицы
Кол, и Сумма из реквизита СуммаСНДС. Настроим форму журнала.Валюта() Товар() Кол() ЦенаБНДС() ЦенаСНДС() Итог("Кол") Итог("СуммаБНДС") Итог("СуммаБНДС") Перем СтВалюта; //========================================================== Процедура ВводНового() //========================================================== Процедура ПриОткрытии() //========================================================== Процедура Валюта() // При смене валюты, либо даты курса КурсС=СтКурс; // Обходим строки ЦенаБНДС=Окр(ЦенаБНДС*Коэфф,2,1); //========================================================== Процедура Товар() // Изменили товар, пересчитаем цену с НДС ЦенаСНДС=Окр(ЦенаБНДС*(1+(Товар.НДС.Значение/100)),2,1); //========================================================== Процедура Кол() //========================================================== Процедура ЦенаБНДС() // Определим цену с НДС по цене без НДС СуммаБНДС=Окр(ЦенаБНДС*Кол,2,1); //========================================================== Процедура ЦенаСНДС() // Определим цену без НДС по цене с НДС СуммаБНДС=Окр(ЦенаБНДС*Кол,2,1); Процедура ОбработкаПроведения() // Если склад не указан Сообщить("Документ Приходная накладная
№"+НомерДок+" от "+ДатаДок+" // Делаем сообщение НеПроводитьДокумент(); // Указываем, что документ проводить не надо Возврат; // Выходим из процедуры КонецЕсли; // Переводим в валюту документа ВыбратьСтроки(); // Обходим строки ПривязыватьСтроку(НомерСтроки); // Здесь мы хотим указать какая строка документа
вызвала эту проводку Операция.НоваяПроводка(); // Эта проводка по всему документу вцелом Операция.НоваяПроводка();
Документ
"Приходная накладная" создан, в интерфейс внесен сам документ и
его журнал. Давайте попробуем поработать с этим документом. Войдем
в 1С:Предприятие и создадим Приходную накладную №1 от 02.01.2001.
Документ
"Расходный ордер" на первый взгляд совершенно простой, всего одна
проводка (Д 60 – К 50.1). Но мы должны этим документом погасить
задолженность конкретному контрагенту по конкретной накладной (если
она указана), а если что останется – другие накладные, начиная с
более ранних. В ином случае мы будем погашать наиболее раннюю непогашенную
приходную накладную. А если накладная указана, но она уже погашена,
будем действовать по второму варианту.
В журнале "Кассовые" заведем
графу таблицы – Сумма из реквизита документа "РасходныйОрдер" Сумма.
Создадим форму журнала.Валюта() , в поле Получатель формула Получатель() , добавляем две кнопки, первая [...] с формулой Основание() ,
вторая [Х] с формулой Основание="" .Перем СтВалюта; //========================================================== Процедура ВводНового() // Здесь ничего интересного //========================================================== Процедура ПриОткрытии() // И здесь ничего интересного //========================================================== Процедура Валюта() // Это уже было //========================================================== Процедура Получатель() // Если мы изменили Получателя Основание=""; // поле с Основанием очищаем, документ-то
к другому пока относится СтПолучатель=Получатель; //========================================================== Процедура Основание() // Создаем динамическую 2-х мерную таблицу ТабЗн.НоваяКолонка("Док","Документ.ПриходнаяНакладная",,,"ПрихНакл",18); // Определяем набор колонок ТабЗн.ВидимостьКолонки("1",0); // Колонка №1 невидима БухИтоги=СоздатьОбъект("БухгалтерскиеИтоги"); // Создаем динамическую выборку по содержимому
счетов БухИтоги.ИспользоватьПланСчетов(ПланыСчетов.Наш); // Указываем конкретный план счетов БухИтоги.ИспользоватьРазделительУчета(Константа.ОснФирма); // Указываем конкретную фирму БухИтоги.ИспользоватьСубконто(ВидыСубконто.Контрагент,Получатель,2); // Нам нужны итоги по конкретному контрагенту БухИтоги.ИспользоватьСубконто(ВидыСубконто.ПриходнаяНакладная,,1); // По всем его Приходным накладным БухИтоги.ВыполнитьЗапрос(,ДатаДок,"60"); // Сальдо нужно на конкретную дату по 60-му
счету БухИтоги.ВыбратьСубконто(1); // Выбираем контрагентов Пока БухИтоги.ПолучитьСубконто(1)=1 Цикл // Получаем очередного контрагента, в нашем
случае единственного БухИтоги.ВыбратьСубконто(2); // Выбираем документы (недооплаченные) Пока БухИтоги.ПолучитьСубконто(2)=1
Цикл // Получаем очередной документ ТДок=БухИтоги.Субконто(2); // Нас интересует второе по упоминанию в
перечне Субконто КреС=БухИтоги.СКК(1); // Нам нужно сальдо кредитовое (счет пассивный) ТабЗн.НоваяСтрока(); // Создаем в динамической таблице пустую строку ТабЗн.Док=ТДок; // Заполняем ее КонецЦикла; // Сортируем строки в динамической таблице
по дате документа Стр=0; // Инициализируем переменную Рез=ТабЗн.ВыбратьСтроку(Стр,"Выберите приходную накладную"); // Предлагаем выбрать документ из списка Если Рез=1 Тогда // Если документ выбран Основание=ТабЗн.ПолучитьЗначение(Стр,"Док"); // Определяем, что выбрано и ставим его
как Основание КонецЕсли; // Все Процедура ОбработкаПроведения() // переводим в валюту документа СуммаОст=Окр(Сумма*Коэфф,2,1); // Указано за какую поставку платить БухИтоги.ИспользоватьСубконто(ВидыСубконто.Контрагент,Получатель,2); // Нас интересует конкретная накладная БухИтоги.ВыполнитьЗапрос(,ДатаДок,"60"); // Смотрим, сколько недоплачено по этому
документу Если КреС>0 Тогда // Недоплачено ПривязыватьСтроку(0); // Создаем проводку Операция.Дебет.Счет
= СчетПоКоду("60",ПланыСчетов.Наш); // Если оплачено больше чем недоплачено Операция.Сумма
= КреС; // недоплачено больше чем оплачено этим
документом Операция.Сумма
= СуммаОст; // Сколько осталось нераспределенной оплаты КонецЕсли; // Есть что распределять ТабЗн=СоздатьОбъект("ТаблицаЗначений"); // Нас интересуют все накладные БухИтоги.ВыполнитьЗапрос(,ДатаДок,"60"); // Документ Основание мы уже оплатили один
раз КреС=БухИтоги.СКК(1); // Нераспределенная оплата пока больше недоплаченной
суммы ПривязыватьСтроку(0); // Уменьшаем остаток на сумму документа Иначе // Недоплаченная сумма текущего документа меньше нераспределенной оплаты ПривязыватьСтроку(0); // Больше денег нет! КонецЕсли;
А теперь
давайте состряпаем простенький отчетик по 60-ому счету. Нас будет
интересовать начальное сальдо по этому счету, конечное сальдо за
период, по контрагентам и по накладным. Можно воспользоваться конструктором,
но создание отчета вручную несколько проще (меньше придется переделывать).
Создаем
новый отчет "Счет60"; Добавляем
поле ввода ВыбНачПериода типа Дата; Добавляем
поле ввода ВыбКонПериода типа Дата; Добавляем
кнопку [...] с Формулой: ВвестиПериод(ВыбНачПериода,ВыбКонПериода);
Добавляем
текст с формулой: ПериодСтр(ВыбНачПериода,ВыбКонПериода); В модуле
формы пишем:
Процедура
ПриОткрытии() // Установим начальные значения диапазона
дат ВыбНачПериода = НачалоПериодаБИ(); //========================================================== Процедура Сформировать() // Здесь ничего нового Таб.ВывестиСекцию("Подвал"); // Ориентация Ландшафт Таб.Показать("Сформировать","");
Соорудим
шаблон таблицы
Попробуем в
1С:Предприятии наш новый отчет. <<
Предыдущая глава Содержание
Следующая
глава>>
НОВОСТИ ФОРУМА Рыцари теории эфира 10.11.2021 - 12:37: ПЕРСОНАЛИИ - Personalias -> WHO IS WHO - КТО ЕСТЬ КТО - Карим_Хайдаров.СОВЕСТЬ - Conscience -> РАСЧЕЛОВЕЧИВАНИЕ ЧЕЛОВЕКА. КОМУ ЭТО НАДО? - Карим_Хайдаров.ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от д.м.н. Александра Алексеевича Редько - Карим_Хайдаров.ЭКОЛОГИЯ - Ecology -> Биологическая безопасность населения - Карим_Хайдаров.ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> Проблема государственного терроризма - Карим_Хайдаров.ВОЙНА, ПОЛИТИКА И НАУКА - War, Politics and Science -> ПРАВОСУДИЯ.НЕТ - Карим_Хайдаров.ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вадима Глогера, США - Карим_Хайдаров.НОВЫЕ ТЕХНОЛОГИИ - New Technologies -> Волновая генетика Петра Гаряева, 5G-контроль и управление - Карим_Хайдаров.ЭКОЛОГИЯ - Ecology -> ЭКОЛОГИЯ ДЛЯ ВСЕХ - Карим_Хайдаров.ЭКОЛОГИЯ - Ecology -> ПРОБЛЕМЫ МЕДИЦИНЫ - Карим_Хайдаров.ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Екатерины Коваленко - Карим_Хайдаров.ВОСПИТАНИЕ, ПРОСВЕЩЕНИЕ, ОБРАЗОВАНИЕ - Upbringing, Inlightening, Education -> Просвещение от Вильгельма Варкентина - Карим_Хайдаров.
