Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Балансовый счет не может корреспондировать с пустым счетом!

Ant_S
читатель
офлайн
Дата регистрации: 29.03.2010
Сообщений: 2
Пост №1
 
29.03.2010 12:35

"Здраствуйте всем!!! Подскажите пожалуйста ни как не могу допетрить!!! <br>В авансовомОтчете делаем проводку на 26 счет , два субконто: Общехоз. затраты и Подразделения выбираем значение из этих справочеиков жмем провести и вылазиет ошибка ( Балансовый счет не может корреспондировать с пустым счетом!) а если не вводить первое субконто (Общехоз. затраты)документ проводится без проблем!!! Подскажите как выйти из ситуации и решить эту проблему хотябу подскажите где копать????<br><br>а могут ли это быть проблемы с забалансовыми счетами???<br><br> может модуль проведения поможет дать мне ответ Заранее спасибо!!!!<br><br>Процедура УСН() <br> ВыбратьСтроки();<br> Пока ПолучитьСтроку()=1 Цикл<br>       <br>       Если ДокументПоставки.Выбран()=1 Тогда<br>            Если ДокументПоставки.Вид()="ПоступлениеМатериалов" Тогда<br>             ДокументПоставки.ВыбратьСтроки();<br>             Пока ДокументПоставки.ПолучитьСтроку()=1 Цикл<br>                   Операция.НоваяПроводка();<br>                   Операция.Дебет.Счет = СчетПоКоду("У.05");<br>                   Операция.Дебет.Контрагенты = ДокументПоставки.Контрагент;<br>                   Операция.Дебет.Материалы= ДокументПоставки.Материал;<br>                   Операция.Кредит.Счет = СчетПоКоду("У.01");<br>                   Операция.Кредит.Контрагенты = ДокументПоставки.Контрагент;<br>                   Операция.Кредит.Материалы= ДокументПоставки.Материал;<br>                   Операция.Количество = ДокументПоставки.Количество;<br>                   Операция.Сумма = ДокументПоставки.Сумма;<br>                   Операция.СодержаниеПроводки = "Оплачено сырье";<br>                   Операция.НомерЖурнала = "УСН";<br>                   <br>                   Если ДокументПоставки.НДС>0 Тогда<br>                        Операция.НоваяПроводка();<br>                        Операция.Дебет.Счет = СчетПоКоду("У.03");<br>                        Операция.Кредит.Счет = СчетПоКоду("У.02");<br>                        Операция.Сумма = ДокументПоставки.НДС;<br>                        Операция.СодержаниеПроводки = "Списываем НДС";<br>                        Операция.НомерЖурнала = "УСН"; <br>                        Операция.ПервичныйДокумент =Формат(ДокументПоставки.ДатаДокВходящий, "Д ДДММГГГГ")+", №"+ДокументПоставки.НомерДокВходящий;<br>                   КонецЕсли;<br>                   <br>             КонецЦикла;<br>             Операция.Записать();<br>            КонецЕсли;<br>            Док=СоздатьОбъект("Документ");<br>            Док.НайтиДокумент(ДокументПоставки);<br>            Док.ОплатаДок=1;<br>            Док.Записать();<br>            Если ДокументПоставки.Вид()="ПоступлениеМатериалов" Тогда<br>             //Если ДокументПоставки.Итог("НДС")>0 Тогда<br> <br>                   Операция.НоваяПроводка();<br>                   Операция.Дебет.Счет=СчетПоКоду("У04");<br>                   Операция.СодержаниеПроводки="Отражен факт расхода";<br>                   Операция.НомерЖурнала="НУ";       <br>                   Операция.Сумма=Сумма;                   <br>            // КонецЕсли; <br> <br>            ИначеЕсли КоррСчет<>СчетПоКоду("51") Тогда<br>             Операция.НоваяПроводка();<br>             Операция.Дебет.Счет=СчетПоКоду("У04");<br>             Операция.СодержаниеПроводки="Отражен факт расхода";<br>             Операция.НомерЖурнала="НУ";       <br>             Операция.Сумма=Сумма; <br>            КонецЕсли;<br>            Если ДокументПоставки.Вид()="УслугиСтороннихОрганизаций" Тогда<br>             Если ДокументПоставки.Итог("НДС")>0 Тогда<br>                   Операция.НоваяПроводка();<br>                   Операция.Дебет.Счет=СчетПоКоду("НДС"); <br>                   Операция.Дебет.Контрагенты=Субконто1;<br>                   Операция.Дебет.Договоры=Субконто2;<br>                   Операция.СодержаниеПроводки="НДС";<br>                   Операция.НомерЖурнала="НУ";       <br>                   Операция.Сумма=ДокументПоставки.Итог("НДС"); <br>             КонецЕсли;<br>            КонецЕсли;<br>       ИначеЕсли (КоррСчет<>СчетПоКоду("51")) И (КоррСчет<>СчетПоКоду("66.3")) И (КоррСчет<>СчетПоКоду("71.1")) Тогда<br>            Операция.НоваяПроводка();<br>            Операция.Дебет.Счет=СчетПоКоду("У04");<br>            Операция.СодержаниеПроводки="Отражен факт расхода";<br>            Операция.НомерЖурнала="НУ";       <br>            Операция.Сумма=Сумма;                   <br>       КонецЕсли;       <br>       Если УчитыватьДляНУ=1 Тогда<br>            //Если ДвижениеДенежныхСредств.Наименование="Оплата за основные средства" Тогда<br> <br>            // Если КоррСчет=СчетПоКоду("60.1") Тогда<br> <br>            //       Если ДокументПоставки.Выбран()=0 Тогда<br> <br>            //            Предупреждение("Не выбран документ поставки");<br> <br>            //            СтатусВозврата(0);<br> <br>            //            Возврат;<br> <br>            //       КонецЕсли; <br> <br>            //       Если ДокументПоставки.КоличествоСтрок()>1 Тогда<br> <br>            //            Предупреждение("В документе поставки должно быть поступление одного ОС");<br> <br>            //            СтатусВозврата(0);<br> <br>            //            Возврат;<br> <br>            //       КонецЕсли;<br> <br>            //       ОснСр=СоздатьОбъект("Справочник.ОсновныеСредства");<br> <br>            //       ДокументПоставки.ВыбратьСтроки();<br> <br>            //       ДокументПоставки.ПолучитьСтроку();             <br> <br>            //       ОснСр.НайтиЭлемент(ДокументПоставки.ОбъектВнеоборотныхАктивов);<br> <br>            //       ОснСр.Оплата.Установить(ДатаДок,Сумма);<br> <br>            //       ОснСр.Записать();<br> <br>            //       Операция.НоваяПроводка();<br> <br>            //       Операция.Дебет.Счет=СчетПоКоду("У02.1");<br> <br>            //       <br> <br>            //       Операция.Дебет.ОсновныеСредства=ДокументПоставки.ОбъектВнеоборотныхАктивов;<br> <br>            //       Операция.Дебет.ДатыОплаты=ДатаДок;<br> <br>            //       Операция.СодержаниеПроводки="Учтена оплата основных средств";<br> <br>            //       Операция.НомерЖурнала="НУ";       <br> <br>            //       Операция.Сумма=Сумма;<br> <br>            // КонецЕсли;<br> <br>            //Иначе<br> <br>             Если (КоррСчет=СчетПоКоду("60.1")) И (ДокументПоставки.Выбран()=1) Тогда<br>                   Если ДокументПоставки.Вид()="ПоступлениеМатериалов" Тогда<br>                        Если ДокументПоставки.Итог("НДС")>0 Тогда<br>                         Операция.НоваяПроводка();<br>                         Операция.Дебет.Счет=СчетПоКоду("У02.2");<br>                         Операция.СодержаниеПроводки="Учтен расход: НДС по поступившему сырью";<br>                         Операция.НомерЖурнала="НУ";       <br>                         Операция.Сумма=ДокументПоставки.Итог("НДС");                   <br>                        КонецЕсли; <br>                   Иначе<br>                        Операция.НоваяПроводка();<br>                        Операция.Дебет.Счет=СчетПоКоду("У02.2");<br>                        Операция.СодержаниеПроводки="Учтен расход";<br>                        Операция.НомерЖурнала="НУ";       <br>                        Операция.Сумма=Сумма;<br>                   КонецЕсли; <br>             Иначе<br>                   Операция.НоваяПроводка();<br>                   Операция.Дебет.Счет=СчетПоКоду("У02.2");<br>                   Операция.СодержаниеПроводки="Учтен расход";<br>                   Операция.НомерЖурнала="НУ";       <br>                   Операция.Сумма=Сумма; <br>             КонецЕсли;<br>            //КонецЕсли;<br> <br>       КонецЕсли; <br> КонецЦикла;<br> Операция.Записать();<br>КонецПроцедуры<br>//____________________________________­_________________________________________<br> <br>Процедура ОбработкаПроведения() <br> УСН();<br> ТипОтчета = Валюта.Выбран() + 1;<br> Сч19 = СчетПоКоду("19.3"); <br> <br> Если ДокументПоставки.Выбран()=1 Тогда<br>       Если ДокументПоставки.Вид()="ПоступлениеМатериалов" Тогда<br>            ДокументПоставки.ВыбратьСтроки();<br>            Пока ДокументПоставки.ПолучитьСтроку()=1 Цикл<br>             Операция.НоваяПроводка();<br>             Операция.Дебет.Счет = СчетПоКоду("У.05");<br>             Операция.Дебет.Контрагенты = ДокументПоставки.Контрагент;<br>             Операция.Дебет.Материалы= ДокументПоставки.Материал;<br>             Операция.Кредит.Счет = СчетПоКоду("У.01");<br>             Операция.Кредит.Контрагенты = ДокументПоставки.Контрагент;<br>             Операция.Кредит.Материалы= ДокументПоставки.Материал;<br>             Операция.Количество = ДокументПоставки.Количество;<br>             Операция.Сумма = ДокументПоставки.Сумма;<br>             Операция.СодержаниеПроводки = "Оплачено сырье";<br>             Операция.НомерЖурнала = "УСН";<br>             <br>             Если ДокументПоставки.НДС>0 Тогда<br>                   Операция.НоваяПроводка();<br>                   Операция.Дебет.Счет = СчетПоКоду("У.03");<br>                   Операция.Кредит.Счет = СчетПоКоду("У.02");<br>                   Операция.Сумма = ДокументПоставки.НДС;<br>                   Операция.СодержаниеПроводки = "Списываем НДС";<br>                   Операция.НомерЖурнала = "УСН"; <br>                   Операция.ПервичныйДокумент =Формат(ДокументПоставки.ДатаДокВходящий, "Д ДДММГГГГ")+", №"+ДокументПоставки.НомерДокВходящий;<br>             КонецЕсли;<br>             <br>            КонецЦикла;<br>            Операция.Записать();<br>       КонецЕсли;<br> КонецЕсли; <br> Если ТипОтчета = 2 Тогда<br>            Сч71 = СчетПоКоду("71.11");<br><br>       КурсВал = Валюта.Курс.Получить(ДатаДок);<br>       Кратность = Валюта.Кратность.Получить(ДатаДок);<br>       Кратность = ?(Кратность=0,1,Кратность);<br><br>       глТаблицаСчетов.УдалитьСтроки();<br>       глТаблицаСчетов.НоваяСтрока();<br>       глТаблицаСчетов.Счет = Сч71;<br>       глТаблицаСчетов.Субконто1 = Сотрудник;<br>       глТаблицаСчетов.Субконто2 = """";<br>       глТаблицаСчетов.Субконто3 = """";<br>       глТаблицаСчетов.Валюта = Валюта;<br>       глПереоценкаСчетов(Контекст, глТаблицаСчетов);<br><br> Иначе<br>       Сч71 = СчетПоКоду("71.1");<br> КонецЕсли;<br><br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br>       Если ПустоеЗначение(КоррСчет) = 1 Тогда<br>            ТекстСообщения = "В строке №" + НомерСтроки + " не указан корреспондирующий счет.";<br>            глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 1);<br>            глНеПроводить(ТекущийДокумент());<br>            Возврат;<br>            <br>       ИначеЕсли КоррСчет.Валютный = 1 Тогда<br>            ТекстСообщения = "В строке №" + НомерСтроки + " корреспондирующий счет не может быть валютным.";<br>            глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 1);<br>            глНеПроводить(ТекущийДокумент());<br>            Возврат;<br>       КонецЕсли;<br><br>       Операция.НоваяПроводка();<br>       Операция.НомерЖурнала = "БК";<br>       Операция.СодержаниеПроводки = КомуЗаЧто;<br>       Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br>       Операция.Дебет.Счет = КоррСчет; <br>       Сообщить ("КоррСчет это: "+ КоррСчет);<br>       Операция.Дебет.Субконто(1,Субконто1);<br>       Операция.Дебет.Субконто(2,Субконто2);<br>       Операция.Дебет.Субконто(3,Субконто3);<br>       Операция.Кредит.Счет = Сч71;<br>       Операция.Кредит.Сотрудники = Сотрудник;<br><br>       Если НДС > 0 Тогда<br>            Если ТипОтчета = 1 Тогда<br>             Операция.Сумма = Сумма - НДС;<br>            Иначе<br>             Операция.Сумма = Окр(Сумма*КурсВал/Кратность,2,1) - Окр(НДС*КурсВал/Кратность,2,1);<br>            КонецЕсли;<br>       Иначе<br>            Если ТипОтчета = 1 Тогда<br>             Операция.Сумма = Сумма;<br>            Иначе<br>             Операция.Сумма = Окр(Сумма*КурсВал/Кратность,2,1);<br>            КонецЕсли;<br>       КонецЕсли;<br><br>       Если КоррСчет.Количественный = 1 Тогда<br>            Операция.Количество = Количество;<br>       КонецЕсли;<br><br>       Если ТипОтчета = 2 Тогда<br>            Операция.Валюта = Валюта;<br>            Операция.ВалСумма = Сумма - НДС;<br>       КонецЕсли;<br>       <br>       // Отражение операций в налоговом учете.<br> <br>       ОбъектыАналитикиНУ = глСчетИАналитикаРасходовНУ(Контекст, КоррСчет, Субконто1, Субконто2, Субконто3);<br>       <br>       // Если опредлен налоговый счет, то необходимо<br> <br>       // сформировать проводку для целей налогового учета.<br> <br>       СчетНУ = ОбъектыАналитикиНУ.Получить("Счет");<br>       Если ПустоеЗначение(СчетНУ) = 0 Тогда<br>            СуммаРасходов = Операция.Сумма;<br>            <br>            Операция.НоваяПроводка();<br>            Операция.НомерЖурнала = "НУ";<br>            Операция.СодержаниеПроводки = КомуЗаЧто;<br>            Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);<br>            Операция.Дебет.Счет = СчетНУ;<br>            Для СчетчикЦикла = 1 По СчетНУ.КоличествоСубконто() Цикл<br>             ИдентификаторСубконто = СчетНУ.ВидСубконто(СчетчикЦикла,,).Идентификатор();<br>             Операция.Дебет.Субконто(СчетчикЦикла, ОбъектыАналитикиНУ.Получить(ИдентификаторСубконто));<br>            КонецЦикла;<br>            <br>            Операция.Дебет.Субконто(ВидыСубконто.УсловияПоступленияИВыбытия, Перечисление.УсловияПоступленияИВыбытия.Другие);<br>            <br>            Операция.Сумма = СуммаРасходов;<br>            Если СчетНУ.Количественный = 1 Тогда<br>             Операция.Количество = Количество;<br>            КонецЕсли;<br>       КонецЕсли;<br> КонецЦикла;<br><br> Операция.Записать();<br> <br> ТекстСообщения = "Сотруднику "+Сотрудник+" зачтена сумма, выданная под отчет.";<br> глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 0);<br> <br> ТекстСообщения = "Документ проведен.";<br> глСообщениеПроведения(ТекстСообщения, ТекущийДокумент(), 0);<br> глПриПроведении(ТекущийДокумент());<br> <br>КонецПроцедуры"

Jetta
читатель
офлайн
Дата регистрации: 02.04.2010
Сообщений: 16
Пост №2
 
03.04.2010 23:09

Речь, как я понимаю, про 1С:УСН? У меня этой конфы под рукой нет (да и не приходилось мне с ней разбираться), но я бы искала так: поскольку текста "Балансовый счет не может корреспондировать с пустым счетом" в модуле проведения не видать, я бы запустила глобальный поиск этого текста. Скорее всего, он отыщется в глоб.модуле. Почитать найденный кусок, а если не станет ясно, попробовать в отладчике поставить туда точку останова и посмотреть, из-за чего срабатывает эта ветка.

Dissar
читатель
офлайн
Дата регистрации: 21.01.2010
Сообщений: 58
Пост №3
 
09.04.2010 09:05

У меня такая же ошибка в общехозяйственной бухгалтерии 7.7, релиз 514.<br><br>Что делать?

Jetta
читатель
офлайн
Дата регистрации: 02.04.2010
Сообщений: 16
Пост №4
 
09.04.2010 10:32

Не знаю, как это может быть! Поискала указанную строку в последних конфигурациях УСН и Бухгалтерии - отыскалось в совершенно посторонних обработках переноса операций и загрузки данных. Вроде никакой связи с аванс.отчетом не просматривается. В этой ситуации ничего, кроме пошаговой проверки в отладчике, посоветовать не могу.

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация