Проблемы учёта по счёту ГТД в Бухгалтерии Предприятия 3.0

18.01.16

Разработка - Механизмы типовых конфигураций

После перехода с БП 2.0 на БП 3.0 я столкнулся с весьма неприятной проблемой. Программа перестала сообщать о незаполненных номерах ГТД в Реализации товаров и услуг. Проводка просто не формировалась по счёту ГТД без какого-либо сообщения. О методике решения я расскажу в этой публикации.

Задав вопросы на форумах и не получив ни одного ответа, опросил бухгалтеров, и была поставлена следующая задача. 

1. При проведении отображать информационное сообщение о том, что не заполнен номер ГТД, хотя должен.

2. При проведении отображать информационное сообщение о том, что не хватает остатка по текущему номеру ГТД.

Разумеется, можно использовать  //infostart.ru/public/140232/ , но это спасёт, если не менять документы задним числом.

При перепроведении документов хотелось бы видеть такие ошибки.


Я открыл код БП 2.0, и вот что получилось.

1. Для БП 3.0 создаём общий модуль (на сервере).

Листинг:

Процедура ПроведениеДокументаСписанияПоСчетуГТД(Документ, ТаблицаПоТоварам, СодержаниеПроводки = "Списаны МПЗ") Экспорт
	
	ТоварыПоНомерамГТД = Новый ТаблицаЗначений;
	ТоварыПоНомерамГТД.Колонки.Добавить("Номенклатура");
	ТоварыПоНомерамГТД.Колонки.Добавить("НомерГТД");
	ТоварыПоНомерамГТД.Колонки.Добавить("СтранаПроисхождения");
	ТоварыПоНомерамГТД.Колонки.Добавить("Количество");
	
	ДатаДок = Документ.Дата;
	Организация = Документ.Организация;
	Проводки = Документ.Движения.Хозрасчетный;
	
	// Формирование параметров отбора для запроса.
	СписокНоменклатуры = Новый Массив;
	СписокНомеровГТД = Новый Массив;
	СписокСтранПроисхождения = Новый Массив;
	
	Для каждого СтрокаТЧ из ТаблицаПоТоварам Цикл
		
			 Если НеУказанНомерГТД(СтрокаТЧ.НомерГТД,СтрокаТЧ.СтранаПроисхождения) Тогда
	             ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Неверно заполнены данные по ГТД в строке "+СтрокаТЧ.НомерСтроки+"");
			 КонецЕсли;

		
		
		Если ЭтоИмпортныйТовар(СтрокаТЧ.СчетУчета, СтрокаТЧ.НомерГТД, СтрокаТЧ.СтранаПроисхождения) Тогда
	
			
			
			
			СписокНоменклатуры.Добавить(СтрокаТЧ.Номенклатура);
			СписокНомеровГТД.Добавить(СтрокаТЧ.НомерГТД);
			СписокСтранПроисхождения.Добавить(СтрокаТЧ.СтранаПроисхождения);
			
			ТоварПоНомеруГТД = ТоварыПоНомерамГТД.Добавить();
			ТоварПоНомеруГТД.Номенклатура = СтрокаТЧ.Номенклатура;
			ТоварПоНомеруГТД.НомерГТД = СтрокаТЧ.НомерГТД;
			ТоварПоНомеруГТД.СтранаПроисхождения = СтрокаТЧ.СтранаПроисхождения;
			ТоварПоНомеруГТД.Количество = СтрокаТЧ.Количество;
			
		КонецЕсли;
		
	КонецЦикла;
	
	Если СписокНоменклатуры.Количество() = 0 Тогда
		Возврат;
	КонецЕсли;

	Запрос = Новый Запрос(
	"ВЫБРАТЬ
	|	ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
	|	ХозрасчетныйОстатки.Субконто2 КАК НомерГТД,
	|	ХозрасчетныйОстатки.Субконто3 КАК СтранаПроисхождения,
	|	ХозрасчетныйОстатки.КоличествоОстатокДт КАК Количество
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки(
	|		&Период,
	|		Счет = &СчетУчетаНомеровГТД,
	|		&Видысубконто,
	|			Субконто1 В (&СписокНоменклатуры)
	|			И Субконто2 В (&СписокНомеровГТД)
	|			И Субконто3 В (&СписокСтранПроисхождения)
	|			И Организация = &Организация) КАК ХозрасчетныйОстатки");

	Запрос.УстановитьПараметр("Период", Документ.МоментВремени());
	Запрос.УстановитьПараметр("Организация", Организация);
	Запрос.УстановитьПараметр("СчетУчетаНомеровГТД", ПланыСчетов.Хозрасчетный.ГТД);
	Запрос.УстановитьПараметр("СписокНоменклатуры", СписокНоменклатуры);
	Запрос.УстановитьПараметр("СписокНомеровГТД", СписокНомеровГТД);
    //ОбщегоНазначения.УдалитьПовторяющиесяЭлементы(СписокСтранПроисхождения);
	ОбщегоНазначенияБПВызовСервера.УдалитьПовторяющиесяЭлементыМассива(СписокСтранПроисхождения);
	
	Запрос.УстановитьПараметр("СписокСтранПроисхождения", СписокСтранПроисхождения);
	ВидыСубконто = ПланыСчетов.Хозрасчетный.ГТД.ВидыСубконто.ВыгрузитьКолонку("ВидСубконто");
	Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто);
	
	Остатки = Запрос.Выполнить();
	ВыборкаОстатков = Остатки.Выбрать();
	
	ТоварыПоНомерамГТД.Свернуть("Номенклатура,НомерГТД,СтранаПроисхождения", "Количество");
	СтруктураПоиска = Новый Структура("Номенклатура,НомерГТД,СтранаПроисхождения");
	
	ОтключитьКонтрольОстатков = Константы.ОтключитьКонтрольОтрицательныхОстатков.Получить();
	
	Для каждого ТоварПоНомеруГТД из ТоварыПоНомерамГТД Цикл
		
		СтруктураПоиска.Номенклатура = ТоварПоНомеруГТД.Номенклатура;
		СтруктураПоиска.НомерГТД = ТоварПоНомеруГТД.НомерГТД;
		СтруктураПоиска.СтранаПроисхождения = ТоварПоНомеруГТД.СтранаПроисхождения;
		
		УчетноеКоличество = 0;
		ВыборкаОстатков.Сбросить();
		Пока ВыборкаОстатков.НайтиСледующий(СтруктураПоиска) Цикл
			УчетноеКоличество = УчетноеКоличество + ВыборкаОстатков.Количество;
		КонецЦикла;
		
		КоличествоВПроводке = Мин(УчетноеКоличество, ТоварПоНомеруГТД.Количество);
		
		Если КоличествоВПроводке < ТоварПоНомеруГТД.Количество Тогда
			СтрокаНачалаСообщенияОбОшибке = "Для номенклатуры """+ СокрЛП(ТоварПоНомеруГТД.Номенклатура) + """ в табличной части ""Товары"" ";
			СтрокаСообщения = "по счету ГТД определен остаток "+УчетноеКоличество+" ед. "+ТоварПоНомеруГТД.Номенклатура+" из необходимых "+ТоварПоНомеруГТД.Количество+" ед.";
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаНачалаСообщенияОбОшибке + СтрокаСообщения);
		КонецЕсли;
		
		КоличествоСписать = ?(ОтключитьКонтрольОстатков, ТоварПоНомеруГТД.Количество, КоличествоВПроводке);
		
		
		
	КонецЦикла;
	
КонецПроцедуры // ПолучитьОстаткиПоНомерамГТД()


Функция ЭтоИмпортныйТовар(СчетУчета, НомерГТД, СтранаПроисхождения) Экспорт

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

		Результат = Истина;

	Иначе
		Результат = Ложь;
	КонецЕсли;
	
	Возврат Результат;

КонецФункции


Функция НеУказанНомерГТД(НомерГТД, СтранаПроисхождения) Экспорт

	Если НЕ ЗначениеЗаполнено(СтранаПроисхождения) или
		 СтранаПроисхождения = Справочники.СтраныМира.РОССИЯ Тогда
		 
		Результат = Ложь;
		
	ИначеЕсли НЕ ЗначениеЗаполнено(НомерГТД) Тогда
		Результат = Истина;
		
	Иначе
		Результат = Ложь;
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

2. В конец обработки проведения добавляем вызов:

ОбщийМодуль.ПроведениеДокументаСписанияПоСчетуГТД(ЭтотОбъект,ЭтотОбъект.Товары, "Реализация услуг");

Разберем на примере:

В первой строке я умышленно указал ГТД с остатком 5 вместо 10

Во второй строке не указывал совсем.

После проведения результат отображается на рисунке.

 

 Вот таким образом мы решили проблему списания остатков по счёту ГТД.

Спасибо за внимание. Моя первая публикация, прошу прощения, если отнял ваше время :)

ГТД Списание остатков по ГТД

См. также

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

БСП (Библиотека стандартных подсистем) Механизмы типовых конфигураций Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Уже не одна веб-страница исписана знаниями о дополнительных обработках, как создать, как подключить. Есть масса вариантов, как их можно отладить. Я разобрался в кишках работы библиотеки и покажу, как можно расширить возможности дополнительных отчетов, а также покажу удобный способ отладки.

07.02.2024    2351    YA_418728146    11    

40

Регистры накопления в 1С:КА2 и 1С:ERP для расчета НДФЛ, страховых взносов и взаиморасчетов с сотрудниками на январь 2024 года. Краткое описание

Зарплата Механизмы типовых конфигураций Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет НДФЛ Абонемент ($m)

Для расчета зарплаты и соответствующих налогов в конфигурациях 1С:КА2 и 1С:ERP используется 22 регистра накопления, 7 регистров сведений, 1 регистр расчета и бухгалтерские проводки. В таблице приведены названия этих регистров, указаны основные регистраторы и виды движений приход/расход. В описании приводится краткое функциональное назначение регистров в основных зарплатных процессах. Описание регистров родилось из черновиков при написании различных отчетов и обработок при эксплуатации 1С-овских конфигураций и исправлении ошибок по НДФЛ, взаиморасчетов с сотрудниками и прочих. Информация не претендует на полноценное описание работы регистров, скорее это дискуссионный материал. Но, возможно, кому-то пригодится и сократит время при подготовке отчетности за непростой (в плане учета зарплаты) 2023 год. А возможно, кто-то поделится своим опытом.

1 стартмани

10.01.2024    1016    6    2ncom    3    

8

Шаблоны новых объектов 1С для 1С:Бухгалтерии предприятия

Инструментарий разработчика БСП (Библиотека стандартных подсистем) Механизмы типовых конфигураций Платформа 1С v8.3 1С:Бухгалтерия 3.0 Бесплатно (free)

Используются для создания новых объектов в конфигурации, чтобы не забыть, что нужно сделать. Сделано на примере 1С:Бухгалтерия предприятия, в других конфигурациях могут быть другие, а могут быть и похожие объекты.

28.12.2023    4832    mrXoxot    11    

99

Ключи аналитик учета в ЕРП, КА, УТ

Механизмы типовых конфигураций Платформа 1С v8.3 1С:ERP Управление предприятием 2 Россия Управленческий учет Бесплатно (free)

Разбираемся, зачем в системе ЕРП созданы справочники: ключи аналитик учета, зачем созданы аналогичные по набору измерений регистры сведений. Какие проблемы они решают, какие создают новые и что с этим делать.

08.11.2023    7047    ids79    25    

74

Распределение по базе среднего в ЗИКГУ 3.1

Зарплата Механизмы типовых конфигураций Платформа 1С v8.3 1С:Зарплата и кадры государственного учреждения 3 Россия Бюджетный учет Абонемент ($m)

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

1 стартмани

14.09.2023    445    2    Vlx    0    

1

Расширение типового механизма настройки заполнения бухгалтерской отчетности (на примере конфигурации 1С:ERP. Управление холдингом 3.1.8.15)

Механизмы типовых конфигураций Платформа 1С v8.3 1С:Управление холдингом 1С:Франчайзи, автоматизация бизнеса Россия Бесплатно (free)

В статье приведен алгоритм доработок типового механизма настройки заполнения бухгалтерской отчетности на примере конфигурации 1С:ERP. Управление холдингом (3.1.8.15). Цель доработок - сделать процесс настроек более гибким и удобным для пользователей

11.09.2023    1928    ICL-Soft    3    

12

Разбор механизма "Настройки полей формы" в 1С:ERP. Управление холдингом

Механизмы типовых конфигураций Платформа 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

В данной статье я постараюсь разобрать механизм, который Вам может встретиться на просторах типовой конфигурации 1С:ERP. Управление холдингом. Я не могу гарантировать, что этот механизм не исключат из следующих версий конфигурации (как, собственно, и любой другой). К сожалению, мне не удалось найти его ни в одном модуле конфигурации "Библиотеки стандартных подсистем". Мне он показался интересным, и захотелось более детально во всем этом разобраться.

18.07.2023    2156    it_box    1    

7

Работа с контактной информацией. Часть 2

Механизмы типовых конфигураций Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Во второй части статьи рассмотрим вопрос преобразования адреса из старого формата в новый. Рассмотрим реальные задачи, связанные с контактной информацией.

05.06.2023    6954    biimmap    4    

41
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. paybaseme 14 19.01.16 12:43 Сейчас в теме
Приветствую, коллега! Подход отличный при условии что ради этого конфигурация снимается с поддержки, со всеми вытекающими. У моих клиентов ни у одного такой аргумент как говорится "не покатил". Поэтому на свет появился вот такой отчет. Публикую не рекламы ради, а в свете всяческий лучей поддержки коллеге, столкнувшейся с такой особенностью!
2. dkonakov 10 19.01.16 14:13 Сейчас в теме
(1) paybaseme, почему сразу "Снимается с поддержки"? Несколько сложнее обновлять, нужно хранить заметки о своих "внедрениях" =)
3. Alex_E 2353 19.01.16 14:25 Сейчас в теме
(2) и нет возможности обновлять программу автоматом - т.е. буху нужно или звать кого-то или содержать "карманного" программиста или самому(-ой) научиться грамотно обновлять изменённую конфигурацию - для 80% клиентов это не айс - ибо мало заплатить за настройку, нужно ещё платить за обновления - а у нас кризис на дворе.....
Вообще решение этой задачи правильно включить в расширение - с обновлениями проблем уже будет меньше, но....мы же не ищем лёгких путей? :-)
paybaseme; +1 Ответить
4. dkonakov 10 19.01.16 15:30 Сейчас в теме
(3) Alex_E, я штатный программист, я лишь поделился "быстрым решением" после перехода с 2.0 на 3.0. Раздел "Практика программирования" да и первый раз опубликовался :) не судите строго)
5. slauter77 20 19.01.16 21:03 Сейчас в теме
(4) "Подписки на события ?" - не ! не слышал! :)
6. Alex_E 2353 19.01.16 21:26 Сейчас в теме
(4) это Вы не судите меня строго - просто Ваше решение - это показатель...)))))
7. Mx00 247 20.01.16 11:57 Сейчас в теме
Сейчас появилась возможность использовать Расширения конфигурации - важно что при этом конфигурация остаётся неизменной, а логику проверки она вполне позволяет сделать, думаю на текущий момент решение с помощью Расширения самый оптимальный вариант :-)
8. dkonakov 10 21.01.16 08:57 Сейчас в теме
(7) Mx00, спасибо за мнение. Я обязательно рассмотрю этот вариант и, если получится, опубликую :)
9. AKV77 259 24.03.19 16:55 Сейчас в теме
Коллеги, приветствую ! Про ваши замечания по поводу расширения абсолютно согласен.
Хочу сказать, что в начале 2016г. не многие из нас активно использовали расширения в своей работе.
Но благодаря автору, решил подобную задачу за 5 минут, только создав расширение и добавив в него вышеприведенный код.
Дмитрий спасибо.
kondi55; alsion2; +2 Ответить
10. dkonakov 10 24.03.19 21:01 Сейчас в теме
(9) Рад, что не зря публиковался. Спасибо за отзыв!
11. alsion2 124 14.10.20 10:50 Сейчас в теме
Оставьте свое сообщение