Ввод остатков по 76.ВА в 1С ПУБ

29.04.12

Задачи пользователя - Адаптация типовых решений

Статья посвящена найденному мной недостатку в конфигурации 1С 7.7 "Производство-услуги-бухгалтерия", связанному с вводом начальных остатков по 76.ВА.

При попытке настроить соответствующий документ ввода остатков должным образом и провести, программа выдает ошибку и в общем итоге ввести остатки не получается.Итак, что нужно сделать.

Во-первых, если по контрагенту есть остаток по 76.ВА, то по нему же должен быть остаток по 60.2
Находим, как мы ввели остаток по 60.2. Для этого мы использовали документ "Ввод остатков по расчетам с поставщиками" с видом остатка
"Ввод остатка выданных авансов". В строке этого документа, по которой вводится остаток также указывается документ списания денежных средств,
которым, собственно аванс и был порожден. Запомним, что это за документ (выпишем на листок).
Далее: для ввода остатков по 76.ВА используем  документ "Ввод остатков НДС" (Ввод остатков НДС по приобретенным ценностям).
В каждой строке т.ч. документа вводим Контрагента, Ставку НДС, Тип НДС (тут предусмотрен специальный тип="НДС по выплаченным авансам"),
База НДС (она должна соответствовать сумме долга по 60.2 по одной строке т.ч. документа ввода остатков по авансу поставщика), НДС рассчитается
автоматически, при необходимости сумму НДС можно откорректировать вручную.
Заметим, что с/ф мы не заполняли.
Ставим галочку "Формировать проводки...", записываем (не проводим!) документ
Теперь вносим изменения в модуль проведения документа.
Меняем целиком приведенную ниже процедуру (правки обозначены блоками //яяя //яяя!)
Правился изначально 329 релиз, возможно в более поздних релизах было все исправлено.
В 

	Процедура ОбработкаПроведения() // Предопределенная процедура

	    Если СоздаватьОперацию = 1 Тогда

	        глИнициализацияТаблицыПроводок();

	    КонецЕсли;

	    

	    Сч68_2 = СчетПоКоду("68.2");



	    ТаблицаАвтоДокументов = СоздатьОбъект("ТаблицаЗначений");

	    ТаблицаАвтоДокументов.НоваяКолонка("Контрагент", "Справочник");

	    ТаблицаАвтоДокументов.НоваяКолонка("СчетФактура", "Документ");



	    ВыбратьСтроки();

	    Пока Получитьстроку() = 1 Цикл

	        Если ПустоеЗначение(Контрагент) = 1 Тогда

	            глНеПроводить(Контекст,"Строка:" + СокрЛП(НомерСтроки) + ", необходимо указать контрагента. Строка НЕ обработана!");

	        КонецЕсли;

	        Если ПустоеЗначение(СтавкаНДС) = 1 Тогда

	            глНеПроводить(Контекст,"Строка:" + СокрЛП(НомерСтроки) + ", необходимо указать ставку НДС. Строка НЕ обработана!");

	        КонецЕсли;

	        Если ПустоеЗначение(ТипНДС) = 1 Тогда

	            глНеПроводить(Контекст,"Строка:" + СокрЛП(НомерСтроки) + ", необходимо указать тип НДС. Строка НЕ обработана!");

	        КонецЕсли;

	        Если (ПустоеЗначение(СчетФактура) = 1) и (ТипХозОперации = 1) Тогда

	            глНеПроводить(Контекст,"Строка:" + СокрЛП(НомерСтроки) + ", необходимо указать счет-фактуру. Строка НЕ обработана!");

	        КонецЕсли;

	        Если СтатусВозврата() = 0 Тогда

	            Продолжить;

	        КонецЕсли;

	        ПривязыватьСтроку(НомерСтроки);



	        Если ПустоеЗначение(СчетФактура) = 1 Тогда

	            Стр = 0;

	            Если ТаблицаАвтоДокументов.НайтиЗначение(Контрагент, Стр, "Контрагент") = 0 Тогда

	                АвтоДокумент = СоздатьОбъект("Документ.СчетФактураПолученный");

	                АвтоДокумент.Новый();

	                АвтоДокумент.ДатаДок = ДатаДок;

	                АвтоДокумент.УстановитьНовыйНомер();

	                АвтоДокумент.Контрагент = Контрагент;

	                АвтоДокумент.Комментарий = "Фиктивный документ для ввода начальных остатков";

	                АвтоДокумент.Записать();



	                ТаблицаАвтоДокументов.НоваяСтрока();

	                ТаблицаАвтоДокументов.Контрагент = Контрагент;

	                ТаблицаАвтоДокументов.СчетФактура = АвтоДокумент.ТекущийДокумент();

	                глСообщениеПроведения("Создан фиктивный документ для ввода начальных остатков - " + глПредставлениеДокумента(АвтоДокумент), ТекущийДокумент());

	            Иначе

	                ТаблицаАвтоДокументов.ПолучитьСтрокуПоНомеру(Стр);

	            КонецЕсли;

	            СчетФактура = ТаблицаАвтоДокументов.СчетФактура;

	            глСообщениеПроведения("Строка:" + СокрЛП(НомерСтроки) + ", не указан счет-фактура. Автоматически подставлен документ - " + глПредставлениеДокумента(СчетФактура), ТекущийДокумент());

	        КонецЕсли;

	        

	        Регистр.НДСпоПриобретеннымЦенностям.Контрагент = Контрагент;

	        Регистр.НДСпоПриобретеннымЦенностям.СчетФактура = СчетФактура;

	        Регистр.НДСпоПриобретеннымЦенностям.СтавкаНДС = СтавкаНДС;

	        Регистр.НДСпоПриобретеннымЦенностям.ТипНДС = ТипНДС;

	        Регистр.НДСпоПриобретеннымЦенностям.БазаНДС = БазаНДС;

	        Регистр.НДСпоПриобретеннымЦенностям.НДС = НДС;

	        Регистр.НДСпоПриобретеннымЦенностям.КодОперации = "";

	        Регистр.НДСпоПриобретеннымЦенностям.ЗаписьДопЛиста = "";

	        Регистр.НДСпоПриобретеннымЦенностям.ДатаДопЛиста = "";

	        //яяя

	        Если ТипНДС<>Перечисление.ТипыНДС.Аванс Тогда

	            Если ТипХозОперации = 0 Тогда

	                Регистр.НДСпоПриобретеннымЦенностям.ВключатьВКнигуПокупок = 0;

	                Регистр.НДСпоПриобретеннымЦенностям.ДвижениеПриходВыполнить();

	            Иначе

	                Регистр.НДСпоПриобретеннымЦенностям.ВключатьВКнигуПокупок = 1;

	                Регистр.НДСпоПриобретеннымЦенностям.ДвижениеРасходВыполнить();

	            КонецЕсли;

	        Иначе

	            Регистр.НДСпоПриобретеннымЦенностям.ВключатьВКнигуПокупок = 1;

	            Регистр.НДСпоПриобретеннымЦенностям.ДвижениеПриходВыполнить();

	        КонецЕсли;

	        //яяя!

	        Если (СоздаватьОперацию = 1) или (ТипХозОперации = 1) Тогда

	            

	            Если ТипНДС = Перечисление.ТипыНДС.ОС Тогда

	                СчетНДС = СчетПоКоду("19.1");

	            ИначеЕсли ТипНДС = Перечисление.ТипыНДС.НМА Тогда

	                СчетНДС = СчетПоКоду("19.2");

	            ИначеЕсли ТипНДС = Перечисление.ТипыНДС.МПЗ Тогда

	                СчетНДС = СчетПоКоду("19.3");

	            ИначеЕсли ТипНДС = Перечисление.ТипыНДС.Таможня Тогда

	                СчетНДС = СчетПоКоду("19.4");   

	                //яяя

	            ИначеЕсли ТипНДС=Перечисление.ТипыНДС.Аванс Тогда

	                СчетНДС=СчетПоКоду("76.ВА");

	                //яяя!

	            КонецЕсли;

	            



	            Если ТипХозОперации = 0 Тогда   

	                //яяя  

	                Если   ТипНДС<>Перечисление.ТипыНДС.Аванс Тогда

	                    глПроводка(СчетНДС, Контрагент, , ,

	                    СчетПоКоду("00"), , , ,

	                    НДС, "Ввод ост. НДС", "ВО");  

	                Иначе   

	                    глПроводка(СчетПоКоду("00"), , , ,

	                    СчетНДС,Контрагент , , ,

	                    НДС, "Ввод ост. НДС аванса", "ВО");  

	                КонецЕсли;

	                //яяя!

	            Иначе

	                Если СчетФактура.Вид() = "ПоступлениеМПЗИмпорт" Тогда

	                    Контрагент = СчетФактура.Таможня;

	                Иначе

	                    Контрагент = СчетФактура.Контрагент;

	                КонецЕсли;

	                

	                глПроводка(Сч68_2, Перечисление.ВидыПлатежейВБюджет.Налог, , ,

	                           СчетНДС, Контрагент, , ,

	                           НДС, "Вычет НДС, предъявлен. до 2006г.", "ПС");

	            КонецЕсли;

	        КонецЕсли;

	    КонецЦикла;



	        Если (СоздаватьОперацию = 1) и (СтатусВозврата() = 1) Тогда

	        глСформироватьПроводки(Операция, 2);

	        Операция.Записать();

	    КонецЕсли;

	    

	    глПриПроведении(Контекст);



	КонецПроцедуры // ОбработкаПроведения()


Теперь, сохранив конфигурацию, можно вернуться в документ и провести его.
В т.ч. будут созданы фиктивные счета-фактуры.
Нужно зайти в каждого из них (прямо из документа ввода остатков) и в качестве документа-основания выбрать тот самый документ списания, породивший аванс поставщика (мы должны были выписать информацию по нему на листок :))
Также лучше указать договор (не проверял, насколько это принципиально)
После этого запишите с/ф без проведения. Заметим также, что с/ф примет новый вид "на аванс".В принципе все.
Ну на всякий случай можно еще раз перепровести документ ввода остатков по НДС.

См. также

Улучшенная обработка "Внешние печатные формы" для типовых конфигураций на базе 1С 7.7

Печатные формы Адаптация типовых решений Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Приятное улучшение обработки "Внешние печатные формы" для типовых конфигураций на базе 1С 7.7 для более комфортной работы с "любимой семерочкой".

1 стартмани

04.02.2022    3200    1    igor7777    0    

3

Расчет страховых взносов в 1С 7.7 "Учет и отчетность предпринимателя, ред. 1.2" с апреля 2020

Адаптация типовых решений Платформа 1С v7.7 Конфигурации 1cv7 Россия Бухгалтерский учет ФОМС, ЕФС Бесплатно (free)

В этой статье описано, какие небольшие изменения можно внести в модуль документа Начисление налогов с ФОТ, чтобы правильно рассчитывались страховые взносы с 1 апреля 2020 г.

09.04.2020    19669    Юджин58    39    

5

Дистрибьюция 7.7. Часть 1. Жизненный цикл заявки покупателя. Одна заявка покупателя, много адресов доставки.

Адаптация типовых решений Платформа 1С v7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Управленческий учет Бесплатно (free)

Описан способ работы с учетом расписания с приоритетными покупателями - торговыми сетями (основными покупателями) в торговой или комплексной учетной системе на 1С 7.7. Множественная заявка покупателя на несколько торговых точек.

14.10.2019    6009    ksnik    14    

3

Как в торговле 7.7 печатать код ТНВЭД в счет-фактуре

Операции по ВЭД Адаптация типовых решений Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Бухгалтерский учет НДС Бесплатно (free)

В данной статье хотел поделиться опытом, как в Торговле 7.7 ( релиз 994) сделать возможность выводить код ТНВЭД в печатную форму счета-фактуры. Сразу скажу, что нужно это только тем, кто осуществляет экспорт в страны таможенного союза. Остальные могут не волноваться.

15.11.2017    11816    AndKovalchuk    0    

1

Предельные базы взносов в ПФР, ФСС, ФФОМС 2015 в 1С: Бухгалтерия 7.7

Зарплата Адаптация типовых решений Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Абонемент ($m)

Реализация Постановления Правительства РФ 1316 от 04.12.14 для типовой конфигурации "Бухгалтерский учет 7.7" рел. 7.70.590

1 стартмани

31.12.2014    23928    9    Sergey1CSpb    2    

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