Есть вопросик для специалистов
Добрый день. Обычная база, всегда обновляю, НО после штатного обновления программист 1с, что то добавляет, так как организация не совсем обычная.
Сейчас программист не доступен. Может кто подскажет как он это делает?
Есть файлик "Общий модуль УчетНДФЛ_ Модуль.txt"
в файлике вот такое (первые 2 странички) как это добавить в базу
#Область ПрограммныйИнтерфейс
// Процедура переопределяет свойства объекта, с которыми он будет отображен в форме Отчетность.
// Параметры:
// СвойстваОбъектов - ТаблицаЗначений - (см. РегламентированнаяОтчетностьПереопределяемый.Опред елитьСвойстваОбъектовДляОтображенииВФормеОтчетност ь)
Процедура ОпределитьСвойстваОбъектовДляОтображенииВФормеОтче тность(СвойстваОбъектов) Экспорт
Документ2НДФЛ = Новый Массив;
ДокументыЗаявленияНаЗачетАвансов = Новый Массив;
СоответствиеСсылокСвойствам = Новый Соответствие;
Для Каждого ЗапрашиваемыеДанные Из СвойстваОбъектов Цикл
Если ТипЗнч(ЗапрашиваемыеДанные.Ссылка) = Тип("ДокументСсылка.СправкиНДФЛДляПередачиВНалогов ыйОрган") Тогда
Документ2НДФЛ.Добавить(ЗапрашиваемыеДанные.Ссылка) ;
СоответствиеСсылокСвойствам.Вставить(Запрашиваемые Данные.Ссылка, ЗапрашиваемыеДанные);
ИначеЕсли ТипЗнч(ЗапрашиваемыеДанные.Ссылка) = Тип("ДокументСсылка.ЗаявлениеОПодтвержденииПраваНа ЗачетАвансовПоНДФЛ") Тогда
ДокументыЗаявленияНаЗачетАвансов.Добавить(Запрашив аемыеДанные.Ссылка);
СоответствиеСсылокСвойствам.Вставить(Запрашиваемые Данные.Ссылка, ЗапрашиваемыеДанные);
КонецЕсли;
КонецЦикла;
Если Документ2НДФЛ.Количество() = 0
И ДокументыЗаявленияНаЗачетАвансов.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Документ2НДФЛ", Документ2НДФЛ);
Запрос.УстановитьПараметр("ДокументыЗаявленияНаЗач етАвансов", ДокументыЗаявленияНаЗачетАвансов);
Запрос.Текст =
"ВЫБРАТЬ
| СправкиНДФЛДляПередачиВНалоговыйОрган.Ссылка КАК Ссылка,
| СправкиНДФЛДляПередачиВНалоговыйОрган.Дата КАК ДатаСоздания,
| СправкиНДФЛДляПередачиВНалоговыйОрган.Организация КАК Организация,
| СправкиНДФЛДляПередачиВНалоговыйОрган.РегистрацияВ НалоговомОргане.Код КАК КодКонтролирующегоОргана,
| СправкиНДФЛДляПередачиВНалоговыйОрган.ПометкаУдале ния КАК ПометкаУдаления,
| НАЧАЛОПЕРИОДА(СправкиНДФЛДляПередачиВНалоговыйОрга н.НалоговыйПериодДата, ГОД) КАК ДатаНачала,
| КОНЕЦПЕРИОДА(СправкиНДФЛДляПередачиВНалоговыйОрган .НалоговыйПериодДата, ГОД) КАК ДатаОкончания,
| СправкиНДФЛДляПередачиВНалоговыйОрган.Комментарий КАК Комментарий,
| СправкиНДФЛДляПередачиВНалоговыйОрган.НомерКоррект ировки КАК ВариантОтчета
|ИЗ
| Документ.СправкиНДФЛДляПередачиВНалоговыйОрган КАК СправкиНДФЛДляПередачиВНалоговыйОрган
|ГДЕ
| СправкиНДФЛДляПередачиВНалоговыйОрган.Ссылка В(&Документ2НДФЛ)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.С сылка,
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.Д ата,
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.О рганизация,
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.К одИФНС,
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.П ометкаУдаления,
| НАЧАЛОПЕРИОДА(ЗаявлениеОПодтвержденииПраваНаЗачетА вансовПоНДФЛ.НалоговыйПериодДата, ГОД),
| КОНЕЦПЕРИОДА(ЗаявлениеОПодтвержденииПраваНаЗачетАв ансовПоНДФЛ.НалоговыйПериодДата, ГОД),
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.К омментарий,
| ""-""
|ИЗ
| Документ.ЗаявлениеОПодтвержденииПраваНаЗачетАвансо вПоНДФЛ КАК ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ
|ГДЕ
| ЗаявлениеОПодтвержденииПраваНаЗачетАвансовПоНДФЛ.С сылка В(&ДокументыЗаявленияНаЗачетАвансов)";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ЗапрашиваемыеДанные = СоответствиеСсылокСвойствам[Выборка.Ссылка];
ЗаполнитьЗначенияСвойств(ЗапрашиваемыеДанные, Выборка);
КонецЦикла;
КонецПроцедуры
// Определяет свойства, касающиеся общих свойств объектов конфигураций-потребителей для отображения в форме Отчетность
// и возможности создания новый объектов из формы Отчетность.
//
// Параметры:
// ТаблицаОписания - ТаблицаЗначений - (см. РегламентированнаяОтчетностьПереопределяемый.Опред елитьТаблицуОписанияОбъектовРегламентированнойОтче тности)
//
Процедура ОпределитьТаблицуОписанияОбъектовРегламентированно йОтчетности(ТаблицаОписания) Экспорт
ОписаниеДокументаОтчетности = ТаблицаОписания.Добавить();
ОписаниеДокументаОтчетности.ТипОбъекта = Тип("ДокументСсылка.СправкиНДФЛДляПередачиВНалогов ыйОрган");
ОписаниеДокументаОтчетности.ВидКонтролирующегоОрга на = Перечисления.ТипыКонтролирующихОрганов.ФНС;
ОписаниеДокументаОтчетности.ГруппаВДереве = НСтр("ru = 'Отчетность по физлицам'");
ОписаниеДокументаОтчетности.ВидДокумента = Перечисления.СтраницыЖурналаОтчетность.Отчеты;
ОписаниеДокументаОтчетности.НеОтправляетсяВКонтрол ирующийОрган = Ложь;
ОписаниеДокументаОтчетности.ЯвляетсяАктуальным = Истина;
ОписаниеДокументаОтчетности.ИмяОсновногоМакетаДляП ечати = "Форма2НДФЛ";
ОписаниеДокументаОтчетности.ВидЭлектронногоПредста вления = Справочники.ВидыОтправляемыхДокументов.СправкаПоНД ФЛВНалоговыйОрган;
ОписаниеДокументаОтчетности = ТаблицаОписания.Добавить();
ОписаниеДокументаОтчетности.ТипОбъекта = Тип("ДокументСсылка.ЗаявлениеОПодтвержденииПраваНа ЗачетАвансовПоНДФЛ");
ОписаниеДокументаОтчетности.ВидКонтролирующегоОрга на = Перечисления.ТипыКонтролирующихОрганов.ФНС;
ОписаниеДокументаОтчетности.ГруппаВДереве = НСтр("ru = 'Отчетность по физлицам'");
ОписаниеДокументаОтчетности.ВидДокумента = Перечисления.СтраницыЖурналаОтчетность.Отчеты;
ОписаниеДокументаОтчетности.НеОтправляетсяВКонтрол ирующийОрган = Ложь;
ОписаниеДокументаОтчетности.ЯвляетсяАктуальным = Истина;
ОписаниеДокументаОтчетности.ИмяОсновногоМакетаДляП ечати = "Заявление";
ОписаниеДокументаОтчетности.ВидЭлектронногоПредста вления = Справочники.ВидыОтправляемыхДокументов.ЗаявлениеОП одтвержденииПраваНаЗачетАвансовПоНДФЛ;
|
