Как выбрать счет 76.1 в проводке, если у него есть субсч 76.1.1?

Форум Учет и отчетность Производственный учет (MRP)

1С:Производство+Услуги+Бухгалтерия Бухгалтерский учет 7.7 Оперативный учет 7.7

1. Pilot741 23.11.12 08:52 Сейчас в теме

День добрый.

Возникла необходимость в проводке, где по ДТ нужен 76.1. Но у этого счета есть субСч 76.1.1. Удалить субСч не могу - были движения по нему.

Может кто-то подскажет где в модуле принудительно можно отправить на 76.1?

Ответы

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

Свернуть все

3. Timesoft 271 23.11.12 13:15 Сейчас в теме

(1) Pilot741, Ваша задачка противоречит логике работы программы и логике бухгалтерского учёта, увы. Этого делать нельзя. :)
Если вы объясните - зачем это нужно - возможно, здесь подскажут решение.

2. G.P. 11 23.11.12 11:43 Сейчас в теме

Если есть субсчет 76.1.1, значит счет 76.1 является группой.
Группы не могут использоваться в проводках!

Добавьте еще субсчет (76.1.2), если использование 76.1.1 не подходит

6. Pilot741 23.11.12 14:11 Сейчас в теме

(2) нет, такое решение не подходит.
(3)задачка такая:
в 2009 лохматом году был один себе счет 76.1. По нему были движения. Позже, где-то через год понадобился 76.1.1.
Недавно заметили что у нас все еще болтается сумма на 76.1. Ее нужно убрать.
вот и хотела сделать ручную проводку.

7. Timesoft 271 23.11.12 14:30 Сейчас в теме

(6) Pilot741,
Это точно ?
При добавлении счёта 76.1.1 к счёту 76.1, насколько я помню, должен был автоматичсеки появится счёт 76.1.0 и сальдо упасть на него.... либо программа не должна была допустить появление 76.1.1.
ТиИ делали ? Пересчёт итогов и т.д. ?

10. Pilot741 26.11.12 08:01 Сейчас в теме

(7) точно не могу сказать как все так получилось. Бухгалтера молчат.

(9) вот скриншот отчета

9. G.P. 11 23.11.12 15:01 Сейчас в теме

(6) Pilot741, пришлите скриншот отчета, на основании которого Вы думаете, что сальдо висит на счете 76.1
Тогда расскажем, какова ситуация на самом деле и как ее исправить

4. Diose 23.11.12 13:23 Сейчас в теме

Если очень хочется можно снять галочку "Счет является группой и не выбирается в проводках"...

5. Diose 23.11.12 13:28 Сейчас в теме

сори за флуд не потеме ... не заметил что это 7.7

8. Timesoft 271 23.11.12 14:36 Сейчас в теме

+7 Ну то есть СТАНДАРТНЫМИ методами такую ситуацию создать нельзя, где-то что-то сбойнуло

11. G.P. 11 26.11.12 12:40 Сейчас в теме

По этому скриншоту ни разу не видно, что счет 76.1.1 вообще есть в плане счетов
Было бы показательно сделать временное движение с ненулевой суммой по счету 76.1.1 в сентябре и сформировать ОСВ по счету 76 за сентябрь.

12. Pilot741 26.11.12 13:24 Сейчас в теме

(11) прошу прощения, не доглядела

13. kiser 26.11.12 13:40 Сейчас в теме

Недавно заметили что у нас все еще болтается сумма на 76.1.

Ничего себе прозрели, такую мелочь раньше не замечали)
Ну при желании просто пишете обработку в пару строк, которая сама создаст операцию запишет в нее что нужно и проведет без вопросов, а вручную врятле.

14. Pilot741 26.11.12 14:40 Сейчас в теме

(13) да вот как-то раньше эта сумма не мешалась видимо)
да, наверное, нужно писать обработку (

17. Pilot741 29.11.12 13:21 Сейчас в теме

(13) а примерчик такой обработки можно?

18. kiser 29.11.12 13:44 Сейчас в теме

(17) Pilot741, Ну вот есть у меня процедура, которая заполняет операцию из ТЗ

Сама ТЗ вида:
Табл1.НоваяКолонка("Дата","Дата",,,,5); //таблица загрузки
Табл1.НоваяКолонка("Об","Строка",,,,5);
Табл1.НоваяКолонка("Суб1Н",,,,"С1",10);
Табл1.НоваяКолонка("Суб2Н",,,,"С2",10);
Табл1.НоваяКолонка("Суб3Н",,,,"С3",10);
Табл1.НоваяКолонка("Суб4Н",,,,"С4",10);
Табл1.НоваяКолонка("КорСчет",,,,,5);
Табл1.НоваяКолонка("КСуб1Н",,,,"КорС1",10);
Табл1.НоваяКолонка("КСуб2Н",,,,"КорС2",10);
Табл1.НоваяКолонка("КСуб3Н",,,,"КорС3",10);
Табл1.НоваяКолонка("КСуб4Н",,,,"КорС4",10);
Табл1.НоваяКолонка("ВСумма","Число",,,"Вал. сумма",10);
Табл1.НоваяКолонка("Вал","Справочник.Валюты",,,,3);
Табл1.НоваяКолонка("Количество","Число",,,"Кол-во",5);
Табл1.НоваяКолонка("Сумма","Число",,,,10);

Процедура СоздатьОперацию()
	
	Опер = СоздатьОбъект("Операция");
	
	Если ВыбСчет.Выбран() = 0 Тогда
		
		Предупреждение("Не выбран счет!");
		Возврат;
		
	ИначеЕсли Табл1.КоличествоСтрок() = 0 Тогда
		
		Предупреждение("Нет загруженных данных!");
		Возврат;
		
	ИначеЕсли ВыбОперация.Выбран() = 1 Тогда
				
		Если Вопрос("Будет полностью переписана выбранная операция! Продолжить?","Да+Нет") = "Нет" Тогда
			Возврат;
		КонецЕсли;

		Опер.НайтиОперацию(ВыбОперация);
		Если ВыбОперация.Проведен() = 1 Тогда
			Опер.СделатьНеПроведенным();
		КонецЕсли;
		Если ВыбОперация.ПометкаУдаления() = 1 Тогда
			ВыбОперация.СнятьПометкуУдаления();
		КонецЕсли;
		Пока 1 = 1 Цикл			
			Если Опер.КоличествоПроводок() = 0 Тогда
				Прервать;
			КонецЕсли;
			Опер.ПолучитьПроводкуПоНомеру(1);
			Опер.УдалитьПроводку();
		КонецЦикла;
		
	Иначе
		
		Опер.Новая();
		
	КонецЕсли;
	
	Табл1.ПолучитьСтрокуПоНомеру(1);
	Об = СокрЛП(Табл1.Об);
	Опер.Содержание = "Перенос "+?(Лев(Об,1) = "С", "сальдо на " + ?(Сред(Об,2,1) = "Н","начало ","конец ") + " по " + ?(Прав(Об,1) = "Д","дебету ","кредиту "), ?(Лев(Об,1) = "Д","дебетового ","кредитового ")+ "оборота ")+ " по счету "+СокрЛП(ВыбСчет);
	Опер.ДатаОперации = Табл1.Дата;
	Табл1.ВыбратьСтроки();
	Пока Табл1.ПолучитьСтроку() = 1 Цикл
		
		Опер.НоваяПроводка();
		
		Если (Об = "СНД") или (Об = "ДО") или (Об = "СКД") Тогда
		
			Опер.Дебет.Счет = ВыбСчет;
			Если ВыбСчет.КоличествоСубконто() >= 1 тогда
				Опер.Дебет.Субконто(ВыбСчет.ВидСубконто(1), Табл1.Суб1Н);
			КонецЕсли;
			Если ВыбСчет.КоличествоСубконто() >= 2 тогда
				Опер.Дебет.Субконто(ВыбСчет.ВидСубконто(2), Табл1.Суб2Н);
			КонецЕсли;
			Если ВыбСчет.КоличествоСубконто() >= 3 тогда
				Опер.Дебет.Субконто(ВыбСчет.ВидСубконто(3), Табл1.Суб3Н);
			КонецЕсли;
			Если ВыбСчет.КоличествоСубконто() >= 4 тогда
				Опер.Дебет.Субконто(ВыбСчет.ВидСубконто(4), Табл1.Суб4Н);
			КонецЕсли;
			
			Если ВыбСчет.Забалансовый = 0 Тогда
				Если ПустоеЗначение(Табл1.КорСчет) = 1 Тогда
					Опер.Кредит.Счет = СчетПоКоду("00");
				Иначе
					Опер.Кредит.Счет = Табл1.КорСчет;				
					Если Табл1.КорСчет.КоличествоСубконто() >= 1 тогда
						Опер.Кредит.Субконто(Табл1.КорСчет.ВидСубконто(1), Табл1.КСуб1Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 2 тогда
						Опер.Кредит.Субконто(Табл1.КорСчет.ВидСубконто(2), Табл1.КСуб2Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 3 тогда
						Опер.Кредит.Субконто(Табл1.КорСчет.ВидСубконто(3), Табл1.КСуб3Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 4 тогда
						Опер.Кредит.Субконто(Табл1.КорСчет.ВидСубконто(4), Табл1.КСуб4Н);
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
			
		ИначеЕсли (Об = "СНК") или (Об = "КО") или (Об = "СКК") Тогда
			
			Опер.Кредит.Счет = ВыбСчет;
			Если ВыбСчет.КоличествоСубконто() >= 1 тогда
				Опер.Кредит.Субконто(ВыбСчет.ВидСубконто(1), Табл1.Суб1Н);
			КонецЕсли;
			Если ВыбСчет.КоличествоСубконто() >= 2 тогда
				Опер.Кредит.Субконто(ВыбСчет.ВидСубконто(2), Табл1.Суб2Н);
			КонецЕсли;
			Если ВыбСчет.КоличествоСубконто() >= 3 тогда
				Опер.Кредит.Субконто(ВыбСчет.ВидСубконто(3), Табл1.Суб3Н);
			КонецЕсли;
			Если ВыбСчет.	КоличествоСубконто() >= 4 тогда
				Опер.Кредит.Субконто(ВыбСчет.ВидСубконто(4), Табл1.Суб4Н);
			КонецЕсли;
			
			Если ВыбСчет.Забалансовый = 0 Тогда
				Если ПустоеЗначение(Табл1.КорСчет) = 1 Тогда
					Опер.Дебет.Счет = СчетПоКоду("00");
				Иначе
					Опер.Дебет.Счет = Табл1.КорСчет;
					Если Табл1.КорСчет.КоличествоСубконто() >= 1 тогда
						Опер.Дебет.Субконто(Табл1.КорСчет.ВидСубконто(1), Табл1.КСуб1Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 2 тогда
						Опер.Дебет.Субконто(Табл1.КорСчет.ВидСубконто(2), Табл1.КСуб2Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 3 тогда
						Опер.Дебет.Субконто(Табл1.КорСчет.ВидСубконто(3), Табл1.КСуб3Н);
					КонецЕсли;
					Если Табл1.КорСчет.КоличествоСубконто() >= 4 тогда
						Опер.Дебет.Субконто(Табл1.КорСчет.ВидСубконто(4), Табл1.КСуб4Н);
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;			
		Иначе
			Предупреждение("Неверный вид сальдо/оборота");
			Возврат;
		КонецЕсли;
		
		Если флСписание = 0 Тогда
			Опер.Сумма = Табл1.Сумма;
			Опер.Количество = Табл1.Количество;	
		Иначе
			Опер.Сумма = -Табл1.Сумма;
			Опер.Количество = -Табл1.Количество;	
		КонецЕсли;
		
		Если ВыбСчет.Валютный = 1 Тогда	
			Опер.Валюта = Табл1.Вал;
			Если флСписание = 0 Тогда				
				Опер.ВалСумма = Табл1.ВСумма;
			Иначе				
				Опер.ВалСумма = -Табл1.ВСумма;
			КонецЕсли;
		КонецЕсли;
			
		Опер.СодержаниеПроводки = "Перенос "+?(Лев(Об,1) = "С", "сальдо на " + ?(Сред(Об,2,1) = "Н","начало ","конец ") + " по " + ?(Прав(Об,1) = "Д","дебету ","кредиту "), ?(Лев(Об,1) = "Д","дебетового ","кредитового ")+ "оборота ")+ " по счету "+СокрЛП(ВыбСчет);
		
	КонецЦикла;
	Опер.Записать();
	ВыбОперация = Опер;
	
КонецПроцедуры

Показать

19. Pilot741 29.11.12 14:17 Сейчас в теме

(18) спасибо, посмотрю

15. G.P. 11 26.11.12 16:10 Сейчас в теме

вообще абсурдная картина
неужели в режмие тестирования и исправления базы программа не находит ошибок?

16. Pilot741 29.11.12 11:08 Сейчас в теме

(15) нет, ничего серьезного не находится.

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

E-mail: