Не проводится отчет о розничных продажах Рознца 3.0 (УНФ)

Форум Учет и отчетность Торговый учет, опт и розница (Торговля)

1С:Розница 3.0 1С:Управление нашей фирмой 3.0

1. Serega-artem 16 23.03.23 13:13 Сейчас в теме

Доброго дня, коллеги! Переходим с УТ 10.3 на Розницу 3.0. Продажи ведутся не через РМК, а через документ чек ККМ. Столкнулись с проблемой, если в течении дня были продажи в рассрочку (т.е. без оплаты) не проводится отчет о розничных продажах.

Запись не верна, не заполнен счет дебита (Регистр бухгалтерии, журнал проводок)

Понимаю, что где-то не заполнен счет учета, но вот где - непонятно. Проблема только при кредитных продажах, в остальном всё ок. Причем именно при отпуске в кредит, а не при его оплате (всяко экспериментировали). Если кто-то сталкивался - поделитесь опытом, пожалуйста.

Найденные решения

2. Serega-artem 16 05.04.23 16:31 Сейчас в теме

Разобрался, но вдруг кому-то понадобится. Проблема была в справочнике контрагенты. Данные загружали программно и не заполнили часть реквизитов, а где они заполняются интерактивно вообще непонятно. При этом в контрагентах созданных интерактивно нет такой проблемы. В моем случае помог вот такой простой код.

	Спр = справочники.Контрагенты.Выбрать();
	Пока спр.Следующий() цикл
		Если НЕ Спр.ЭтоГруппа тогда 
		Если НЕ ЗначениеЗаполнено(Спр.ВалютаРасчетовПоУмолчанию) тогда 
		обспр = спр.ПолучитьОбъект(); 
		обспр.ВалютаРасчетовПоУмолчанию = Справочники.Валюты.ОсновнаяВалютаНачальногоЗаполнения();
		обспр.СчетУчетаАвансовПокупателя = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты по авансам полученным");  
		обспр.СчетУчетаАвансовПоставщику = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты по авансам выданным");
		обспр.СчетУчетаРасчетовСПокупателем = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты с покупателями");
		обспр.СчетУчетаРасчетовСПоставщиком = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты с поставщиками");  
		обспр.СпособЗачетаПредоплатыПоУмолчанию = Перечисления.СпособыЗачетаИРаспределенияПлатежей.Вручную;
		обспр.СпособРазнесенияОплатыПоУмолчанию = Перечисления.СпособыЗачетаИРаспределенияПлатежей.Вручную;
		обспр.СтранаРегистрации = Справочники.СтраныМира.Россия;   
		обспр.Записать();        
	КонецЕсли;    
	КонецЕсли; 
КонецЦикла;

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Serega-artem 16 05.04.23 16:31 Сейчас в теме

	Спр = справочники.Контрагенты.Выбрать();
	Пока спр.Следующий() цикл
		Если НЕ Спр.ЭтоГруппа тогда 
		Если НЕ ЗначениеЗаполнено(Спр.ВалютаРасчетовПоУмолчанию) тогда 
		обспр = спр.ПолучитьОбъект(); 
		обспр.ВалютаРасчетовПоУмолчанию = Справочники.Валюты.ОсновнаяВалютаНачальногоЗаполнения();
		обспр.СчетУчетаАвансовПокупателя = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты по авансам полученным");  
		обспр.СчетУчетаАвансовПоставщику = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты по авансам выданным");
		обспр.СчетУчетаРасчетовСПокупателем = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты с покупателями");
		обспр.СчетУчетаРасчетовСПоставщиком = ПланыСчетов.Управленческий.НайтиПоНаименованию("Расчеты с поставщиками");  
		обспр.СпособЗачетаПредоплатыПоУмолчанию = Перечисления.СпособыЗачетаИРаспределенияПлатежей.Вручную;
		обспр.СпособРазнесенияОплатыПоУмолчанию = Перечисления.СпособыЗачетаИРаспределенияПлатежей.Вручную;
		обспр.СтранаРегистрации = Справочники.СтраныМира.Россия;   
		обспр.Записать();        
	КонецЕсли;    
	КонецЕсли; 
КонецЦикла;

Показать

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

E-mail: