diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/AccumulationRegisters/ПС_ВзаиморасчетыПоРодительскойПлате/ПС_ВзаиморасчетыПоРодительскойПлате.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/AccumulationRegisters/ПС_ВзаиморасчетыПоРодительскойПлате/ПС_ВзаиморасчетыПоРодительскойПлате.mdo index 4aa9238..b4f85b3 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/AccumulationRegisters/ПС_ВзаиморасчетыПоРодительскойПлате/ПС_ВзаиморасчетыПоРодительскойПлате.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/AccumulationRegisters/ПС_ВзаиморасчетыПоРодительскойПлате/ПС_ВзаиморасчетыПоРодительскойПлате.mdo @@ -69,7 +69,7 @@ Документ передачи - DocumentRef.ПС_ПередачаЗадолженностиВЦБ + DocumentRef.ПС_ПринятиеПоступившихПлатежейИзЦБ diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/CommonModules/ПС_УчетРодительскойПлаты/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/CommonModules/ПС_УчетРодительскойПлаты/Module.bsl index 46b786d..e7f7f16 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/CommonModules/ПС_УчетРодительскойПлаты/Module.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/CommonModules/ПС_УчетРодительскойПлаты/Module.bsl @@ -1,62 +1,9 @@ // ПС_УчетРодительскойПлаты: общая логика учёта родительской платы -// для документов ПС_ПередачаЗадолженностиВЦБ и ПС_ПринятиеЗадолженностиОтУчреждения. +// для документов ПС_ПередачаПоступившихПлатежейВУчреждения (ЦБ) и ПС_ПринятиеПоступившихПлатежейИзЦБ (учреждение). #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс -// Заполняет КФО документа и КПС строк табличной части "Задолженность" реквизитами учёта, -// определёнными по проводкам документа-источника. -// -// КПС берётся со стороны счёта расчётов по доходам (205.31) - он переносится вместе -// с задолженностью, поэтому одинаков для дебета и кредита проводки передачи. -// -// Параметры: -// ДокументОбъект - ДокументОбъект.ПС_ПередачаЗадолженностиВЦБ, ДокументОбъект.ПС_ПринятиеЗадолженностиОтУчреждения - документ, реквизиты учёта которого заполняются. -// ДокументИсточник - ДокументСсылка.НачислениеРодительскойПлаты, ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ - проведённый документ, проводки которого используются как источник данных. -// -// Возвращаемое значение: -// Булево - Истина, если реквизиты заполнены; Ложь, если у документа-источника нет проводок по счёту расчётов по доходам. -// -Функция ЗаполнитьРеквизитыУчетаПоПроводкам(ДокументОбъект, ДокументИсточник) Экспорт - - Если НЕ ЗначениеЗаполнено(ДокументИсточник) Тогда - Возврат Ложь; - КонецЕсли; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ ПЕРВЫЕ 1 - | Проводки.КФО КАК КФО, - | ВЫБОР - | КОГДА Проводки.СчетДт.Код = ""205.31"" - | ТОГДА Проводки.КПСДт - | ИНАЧЕ Проводки.КПСКт - | КОНЕЦ КАК КПС - |ИЗ - | РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ДвиженияССубконто КАК Проводки - |ГДЕ - | Проводки.Регистратор = &ДокументИсточник - | И (Проводки.СчетДт.Код = ""205.31"" - | ИЛИ Проводки.СчетКт.Код = ""205.31"") - | - |УПОРЯДОЧИТЬ ПО - | Проводки.НомерСтроки"; - Запрос.УстановитьПараметр("ДокументИсточник", ДокументИсточник); - - Выборка = Запрос.Выполнить().Выбрать(); - Если НЕ Выборка.Следующий() Тогда - Возврат Ложь; - КонецЕсли; - - ДокументОбъект.КФО = Выборка.КФО; - Для Каждого СтрокаЗадолженности Из ДокументОбъект.Задолженность Цикл - СтрокаЗадолженности.КПС = Выборка.КПС; - КонецЦикла; - - Возврат Истина; - -КонецФункции - // Возвращает счёт, корреспондирующий со счётом расчётов по доходам (205.31), // по умолчанию: 304.04 (внутриведомственные расчёты). // @@ -94,15 +41,20 @@ // Формирует печатную форму извещения (ф. 0504805, ред. 103н) по документу подсистемы. // // Вёрстка и набор областей повторяют типовую печатную форму документа ИзвещениеИсходящее. -// Заполняется та сторона, от которой печатается извещение: для передачи задолженности - -// отправитель (учреждение), для принятия - получатель (централизованная бухгалтерия). +// Заполняется та сторона, от которой печатается извещение: для передачи поступивших платежей - +// отправитель (централизованная бухгалтерия), для принятия платежей - получатель (учреждение). // Суммы и счета берутся из проводок документа, поэтому печатается только проведённый документ. // +// Документ передачи платежей ЦБ охватывает несколько учреждений, поэтому из него формируется +// отдельное извещение на каждое учреждение, присутствующее в табличной части "Задолженность". +// // Параметры: -// ДокументСсылка - ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ, ДокументСсылка.ПС_ПринятиеЗадолженностиОтУчреждения - печатаемый документ. +// ДокументСсылка - ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения, +// ДокументСсылка.ПС_ПринятиеПоступившихПлатежейИзЦБ - печатаемый документ. // // Возвращаемое значение: -// ТабличныйДокумент - печатная форма; пустой табличный документ, если документ не записан, не проведён, нет проводок или не найден макет. +// ТабличныйДокумент - печатная форма; пустой табличный документ, если документ не записан, +// не проведён, нет проводок или не найден макет. // Функция ПечатьИзвещения0504805(ДокументСсылка) Экспорт @@ -122,32 +74,6 @@ Возврат ТабличныйДокумент; КонецЕсли; - Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ") Тогда - ТабличныйДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПС_ПередачаЗадолженностиВЦБ_Извещение0504805"; - Макет = Документы.ПС_ПередачаЗадолженностиВЦБ.ПолучитьМакет("ПФ_MXL_Извещение0504805_103н_ПС_РП"); - СторонаПечати = "Отправитель"; - Отправитель = ДокументОбъект.Организация; - Получатель = ДокументОбъект.ЦБ; - Пояснение = "Передача задолженности по родительской плате за " - + Формат(ДокументОбъект.Период, "ДФ=MMMM yyyy") - + ". Основание: " + Строка(ДокументОбъект.ДокументНачисления) + "."; - Иначе - ТабличныйДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПС_ПринятиеЗадолженности_Извещение0504805"; - Макет = Документы.ПС_ПринятиеЗадолженностиОтУчреждения.ПолучитьМакет("ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель"); - СторонаПечати = "Получатель"; - Отправитель = ДокументОбъект.Учреждение; - Получатель = ДокументОбъект.Организация; - Пояснение = "Принятие задолженности по родительской плате за " - + Формат(ДокументОбъект.Период, "ДФ=MMMM yyyy") - + ". Основание: " + Строка(ДокументОбъект.ДокументПередачи) + "."; - КонецЕсли; - - Если Макет = Неопределено Тогда - ОбщегоНазначения.СообщитьПользователю( - "Печатная форма извещения не сформирована: в документе не найден макет печатной формы."); - Возврат ТабличныйДокумент; - КонецЕсли; - Если НЕ ДокументОбъект.Проведен Тогда ОбщегоНазначения.СообщитьПользователю( "Печатная форма извещения формируется по проводкам документа, поэтому печатается" @@ -163,16 +89,124 @@ Возврат ТабличныйДокумент; КонецЕсли; + Если ТипЗнч(ДокументСсылка) = Тип("ДокументСсылка.ПС_ПринятиеПоступившихПлатежейИзЦБ") Тогда + + // Учреждение принимает поступившие платежи из ЦБ: печатается сторона получателя. + ТабличныйДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПС_ПринятиеПоступившихПлатежейИзЦБ_Извещение0504805"; + Макет = Документы.ПС_ПринятиеПоступившихПлатежейИзЦБ.ПолучитьМакет("ПФ_MXL_Извещение0504805_103н_ПС_РП"); + Если Макет = Неопределено Тогда + ОбщегоНазначения.СообщитьПользователю( + "Печатная форма извещения не сформирована: в документе не найден макет печатной формы."); + Возврат ТабличныйДокумент; + КонецЕсли; + + ДокументПередачи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ДокументСсылка, "ДокументПередачи").ДокументПередачи; + Отправитель = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ДокументПередачи, "Организация").Организация; + + ПараметрыИзвещения = НоваяСтруктураИзвещения("Получатель", Отправитель, + ДокументОбъект.Организация, + "Принятие поступивших платежей по родительской плате за " + + Формат(ДокументОбъект.Период, "ДФ=MMMM yyyy") + + ". Основание: " + Строка(ДокументПередачи) + "."); + + ВывестиИзвещение(ТабличныйДокумент, Макет, ДокументСсылка, ДокументОбъект, ПараметрыИзвещения, Проводки); + + Иначе + + // ЦБ передаёт поступившие платежи: печатается сторона отправителя, + // отдельное извещение на каждое учреждение документа. + ТабличныйДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПС_ПередачаПоступившихПлатежейВУчреждения_Извещение0504805"; + Макет = Документы.ПС_ПередачаПоступившихПлатежейВУчреждения.ПолучитьМакет("ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель"); + Если Макет = Неопределено Тогда + ОбщегоНазначения.СообщитьПользователю( + "Печатная форма извещения не сформирована: в документе не найден макет печатной формы."); + Возврат ТабличныйДокумент; + КонецЕсли; + + Учреждения = УчрежденияДокументаПередачи(ДокументОбъект); + Если Учреждения.Количество() = 0 Тогда + ОбщегоНазначения.СообщитьПользователю( + "Печатная форма извещения не сформирована: в табличной части ""Задолженность""" + + " не заполнены учреждения."); + Возврат ТабличныйДокумент; + КонецЕсли; + + Для Каждого Учреждение Из Учреждения Цикл + + ПроводкиУчреждения = ПроводкиПоУчреждению(Проводки, Учреждение); + Если ПроводкиУчреждения.Количество() = 0 Тогда + Продолжить; + КонецЕсли; + + ПараметрыИзвещения = НоваяСтруктураИзвещения("Отправитель", ДокументОбъект.Организация, + Учреждение, + "Передача поступивших платежей по родительской плате за " + + Формат(ДокументОбъект.Период, "ДФ=MMMM yyyy") + + ". Основание: " + Строка(ДокументСсылка) + "."); + + ВывестиИзвещение(ТабличныйДокумент, Макет, ДокументСсылка, ДокументОбъект, ПараметрыИзвещения, ПроводкиУчреждения); + + КонецЦикла; + + КонецЕсли; + + УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, 1, Новый СписокЗначений, ДокументСсылка); + + Возврат ТабличныйДокумент; + +КонецФункции + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +// Формирует структуру параметров одного извещения для вывода. +// +// Параметры: +// СторонаПечати - Строка - "Отправитель" или "Получатель". +// Отправитель - СправочникСсылка.Организации, СправочникСсылка.Контрагенты - отправитель извещения. +// Получатель - СправочникСсылка.Организации, СправочникСсылка.Контрагенты - получатель извещения. +// Пояснение - Строка - пояснение к извещению. +// +// Возвращаемое значение: +// Структура - параметры извещения. +// +Функция НоваяСтруктураИзвещения(СторонаПечати, Отправитель, Получатель, Пояснение) + + ПараметрыИзвещения = Новый Структура; + ПараметрыИзвещения.Вставить("СторонаПечати", СторонаПечати); + ПараметрыИзвещения.Вставить("Отправитель", Отправитель); + ПараметрыИзвещения.Вставить("Получатель", Получатель); + ПараметрыИзвещения.Вставить("Пояснение", Пояснение); + + Возврат ПараметрыИзвещения; + +КонецФункции + +// Выводит в табличный документ одно извещение по переданным проводкам. +// +// Параметры: +// ТабличныйДокумент - ТабличныйДокумент - печатная форма, в которую выводится извещение. +// Макет - ТабличныйДокумент - макет печатной формы извещения. +// ДокументСсылка - ДокументСсылка - печатаемый документ. +// ДокументОбъект - ДокументОбъект - печатаемый документ. +// ПараметрыИзвещения - Структура - параметры извещения, см. НоваяСтруктураИзвещения. +// Проводки - ТаблицаЗначений - проводки извещения, см. ПроводкиИзвещения. +// +Процедура ВывестиИзвещение(ТабличныйДокумент, Макет, ДокументСсылка, ДокументОбъект, ПараметрыИзвещения, Проводки) + + СторонаПечати = ПараметрыИзвещения.СторонаПечати; + ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОбластьЗаголовок.Параметры.Номер = РегистрыСведений.НастройкиПечатиПрефиксаНомера .ПолучитьНомерДляПечатиПоСсылкеИдентификаторуДокумента(ДокументСсылка, ДокументОбъект.Номер); ОбластьЗаголовок.Параметры.Дата = ДокументОбъект.Дата; - ЗаполнитьРеквизитыСтороны(ОбластьЗаголовок.Параметры, "Отправитель", Отправитель); - ЗаполнитьРеквизитыСтороны(ОбластьЗаголовок.Параметры, "Получатель", Получатель); + ЗаполнитьРеквизитыСтороны(ОбластьЗаголовок.Параметры, "Отправитель", ПараметрыИзвещения.Отправитель); + ЗаполнитьРеквизитыСтороны(ОбластьЗаголовок.Параметры, "Получатель", ПараметрыИзвещения.Получатель); ТабличныйДокумент.Вывести(ОбластьЗаголовок); ОбластьПояснение = Макет.ПолучитьОбласть("ПояснениеМБТ"); - ОбластьПояснение.Параметры.ПояснениеМБТ = Пояснение; + ОбластьПояснение.Параметры.ПояснениеМБТ = ПараметрыИзвещения.Пояснение; ТабличныйДокумент.Вывести(ОбластьПояснение); ТабличныйДокумент.Вывести(Макет.ПолучитьОбласть("Шапка")); @@ -203,15 +237,65 @@ ЗаполнитьПодписиСтороны(ОбластьПодвал.Параметры, СторонаПечати, ДокументОбъект); ТабличныйДокумент.Вывести(ОбластьПодвал); - УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, 1, Новый СписокЗначений, ДокументСсылка); +КонецПроцедуры - Возврат ТабличныйДокумент; +// Возвращает список учреждений, присутствующих в табличной части "Задолженность" документа передачи. +// +// Параметры: +// ДокументОбъект - ДокументОбъект.ПС_ПередачаПоступившихПлатежейВУчреждения - документ передачи платежей. +// +// Возвращаемое значение: +// Массив из СправочникСсылка.Контрагенты - уникальные учреждения в порядке появления в табличной части. +// +Функция УчрежденияДокументаПередачи(ДокументОбъект) + + Учреждения = Новый Массив; + Для Каждого СтрокаЗадолженности Из ДокументОбъект.Задолженность Цикл + Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.Учреждение) Тогда + Продолжить; + КонецЕсли; + Если Учреждения.Найти(СтрокаЗадолженности.Учреждение) = Неопределено Тогда + Учреждения.Добавить(СтрокаЗадолженности.Учреждение); + КонецЕсли; + КонецЦикла; + + Возврат Учреждения; КонецФункции -#КонецОбласти +// Возвращает проводки документа, относящиеся к указанному учреждению. +// +// Учреждение определяется по субконто кредита счёта расчётов (304.04), поэтому проверяются +// все позиции субконто. +// +// Параметры: +// Проводки - ТаблицаЗначений - проводки документа, см. ПроводкиИзвещения. +// Учреждение - СправочникСсылка.Контрагенты - учреждение, по которому отбираются проводки. +// +// Возвращаемое значение: +// ТаблицаЗначений - проводки указанного учреждения, колонки как у Проводки. +// +Функция ПроводкиПоУчреждению(Проводки, Учреждение) -#Область СлужебныеПроцедурыИФункции + Результат = Проводки.Скопировать(); + СтрокиДляУдаления = Новый Массив; + + Для Каждого Проводка Из Результат Цикл + Если Проводка.СубконтоКт1 = Учреждение + ИЛИ Проводка.СубконтоКт2 = Учреждение + ИЛИ Проводка.СубконтоКт3 = Учреждение Тогда + Продолжить; + КонецЕсли; + СтрокиДляУдаления.Добавить(Проводка); + КонецЦикла; + + Для Каждого Проводка Из СтрокиДляУдаления Цикл + Результат.Удалить(Проводка); + КонецЦикла; + + Возврат Результат; + +КонецФункции // Заполняет реквизиты стороны извещения (отправителя или получателя) для области "Заголовок". // @@ -393,7 +477,8 @@ // ДокументСсылка - ДокументСсылка - печатаемый документ. // // Возвращаемое значение: -// ТаблицаЗначений - колонки: СчетДт, КПСДт, КЭКДт, СчетКт, КПСКт, КЭККт, КФО, Сумма, Содержание. +// ТаблицаЗначений - колонки: СчетДт, КПСДт, КЭКДт, СчетКт, КПСКт, КЭККт, КФО, Сумма, Содержание, +// СубконтоКт1, СубконтоКт2, СубконтоКт3. // Функция ПроводкиИзвещения(ДокументСсылка) @@ -408,7 +493,10 @@ | Проводки.КЭККт КАК КЭККт, | Проводки.КФО КАК КФО, | Проводки.Сумма КАК Сумма, - | Проводки.Содержание КАК Содержание + | Проводки.Содержание КАК Содержание, + | Проводки.СубконтоКт1 КАК СубконтоКт1, + | Проводки.СубконтоКт2 КАК СубконтоКт2, + | Проводки.СубконтоКт3 КАК СубконтоКт3 |ИЗ | РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ДвиженияССубконто(, , Регистратор = &ДокументСсылка) КАК Проводки | diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Configuration/Configuration.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Configuration/Configuration.mdo index 4e79839..8b55e71 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Configuration/Configuration.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Configuration/Configuration.mdo @@ -72,8 +72,8 @@ Catalog.Пользователи Catalog.КОСГУ Document.НачислениеРодительскойПлаты - Document.ПС_ПередачаЗадолженностиВЦБ - Document.ПС_ПринятиеЗадолженностиОтУчреждения + Document.ПС_ПринятиеПоступившихПлатежейИзЦБ + Document.ПС_ПередачаПоступившихПлатежейВУчреждения Document.КассовоеПоступление Enum.КВД Enum.ПС_ВидыОперацийПоВзаиморасчетам diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Form.form b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Form.form index bbfeaf5..5e2da5a 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Form.form +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Form.form @@ -282,9 +282,523 @@ СтраницаДокументы 5 + + ТаблицаДокументыПередачи + 61 + + <key>ru</key> + <value>Передачи поступивших платежей в учреждения</value> + + + Style.FieldSelectionBackColor + + + Style.NormalTextFont + true + + true + true + + true + + + ДокументыПередачи + + Top + + ТаблицаДокументыПередачиСсылка + 367 + true + true + + true + + + ДокументыПередачи.Ссылка + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиСсылкаРасширеннаяПодсказка + 369 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиСсылкаКонтекстноеМеню + 368 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиДата + 370 + true + true + + true + + + ДокументыПередачи.Дата + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиДатаРасширеннаяПодсказка + 372 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиДатаКонтекстноеМеню + 371 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиНомер + 373 + true + true + + true + + + ДокументыПередачи.Номер + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиНомерРасширеннаяПодсказка + 375 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиНомерКонтекстноеМеню + 374 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиОрганизация + 376 + + <key>ru</key> + <value>ЦБ</value> + + true + true + + true + + + ДокументыПередачи.Организация + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиОрганизацияРасширеннаяПодсказка + 378 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиОрганизацияКонтекстноеМеню + 377 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиСуммаДокумента + 379 + true + true + + true + + + ДокументыПередачи.СуммаДокумента + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиСуммаДокументаРасширеннаяПодсказка + 381 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиСуммаДокументаКонтекстноеМеню + 380 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиИФО + 382 + true + true + + true + + + ДокументыПередачи.ИФО + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиИФОРасширеннаяПодсказка + 384 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиИФОКонтекстноеМеню + 383 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиПериод + 385 + true + true + + true + + + ДокументыПередачи.Период + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПериодРасширеннаяПодсказка + 387 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПериодКонтекстноеМеню + 386 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПередачиПроведен + 388 + true + true + + true + + + ДокументыПередачи.Проведен + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПроведенРасширеннаяПодсказка + 390 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПроведенКонтекстноеМеню + 389 + true + + CheckBoxField + Auto + true + Left + true + + + + ТаблицаДокументыПередачиПометкаУдаления + 391 + true + true + + true + + + ДокументыПередачи.ПометкаУдаления + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПометкаУдаленияРасширеннаяПодсказка + 393 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиТаблицаДокументыПередачиПометкаУдаленияКонтекстноеМеню + 392 + true + + CheckBoxField + Auto + true + Left + true + + + + ТаблицаДокументыПередачиКоманднаяПанель + 62 + Left + true + + + OnActivateRow + ТаблицаДокументыПередачиПриАктивизацииСтроки + + + ТаблицаДокументыПередачиСтрокаПоиска + 65 + + ТаблицаДокументыПередачиСтрокаПоискаРасширеннаяПодсказка + 67 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиСтрокаПоискаКонтекстноеМеню + 66 + true + + ТаблицаДокументыПередачи + + true + + + + ТаблицаДокументыПередачиСостояниеПросмотра + 71 + + ТаблицаДокументыПередачиСостояниеПросмотраРасширеннаяПодсказка + 73 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиСостояниеПросмотраКонтекстноеМеню + 72 + true + + ViewStatusAddition + ТаблицаДокументыПередачи + + true + + + + ТаблицаДокументыПередачиУправлениеПоиском + 68 + + ТаблицаДокументыПередачиУправлениеПоискомРасширеннаяПодсказка + 70 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиУправлениеПоискомКонтекстноеМеню + 69 + true + + SearchControlAddition + ТаблицаДокументыПередачи + + true + + + + ТаблицаДокументыПередачиРасширеннаяПодсказка + 64 + Label + true + true + + Left + + + + ТаблицаДокументыПередачиКонтекстноеМеню + 63 + true + + true + true + true + true + true + MultiRow + Auto +
true
+ 1 + 1 + AutoUse + AutoUse + true + true + true + true + Auto + Auto + true + true + true + true + AsFileRef + true + + true + ТаблицаДокументыПринятия 104 + + <key>ru</key> + <value>Принятия поступивших платежей из ЦБ</value> + + + Style.FieldSelectionBackColor + + + Style.NormalTextFont + true + true true @@ -293,10 +807,10 @@ ДокументыПринятия - None + Top - ТаблицаДокументыПринятияТаблицаДокументыПринятия - 117 + ТаблицаДокументыПринятияСсылка + 394 true true @@ -306,8 +820,8 @@ ДокументыПринятия.Ссылка - ТаблицаДокументыПринятияТаблицаДокументыПринятияРасширеннаяПодсказка - 119 + ТаблицаДокументыПринятияТаблицаДокументыПринятияСсылкаРасширеннаяПодсказка + 396 Label true true @@ -316,8 +830,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятияКонтекстноеМеню - 118 + ТаблицаДокументыПринятияТаблицаДокументыПринятияСсылкаКонтекстноеМеню + 395 true InputField @@ -336,8 +850,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия1 - 120 + ТаблицаДокументыПринятияДата + 397 true true @@ -347,8 +861,8 @@ ДокументыПринятия.Дата - ТаблицаДокументыПринятияТаблицаДокументыПринятия1РасширеннаяПодсказка - 122 + ТаблицаДокументыПринятияТаблицаДокументыПринятияДатаРасширеннаяПодсказка + 399 Label true true @@ -357,8 +871,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия1КонтекстноеМеню - 121 + ТаблицаДокументыПринятияТаблицаДокументыПринятияДатаКонтекстноеМеню + 398 true InputField @@ -377,8 +891,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия2 - 123 + ТаблицаДокументыПринятияНомер + 400 true true @@ -388,8 +902,8 @@ ДокументыПринятия.Номер - ТаблицаДокументыПринятияТаблицаДокументыПринятия2РасширеннаяПодсказка - 125 + ТаблицаДокументыПринятияТаблицаДокументыПринятияНомерРасширеннаяПодсказка + 402 Label true true @@ -398,8 +912,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия2КонтекстноеМеню - 124 + ТаблицаДокументыПринятияТаблицаДокументыПринятияНомерКонтекстноеМеню + 401 true InputField @@ -418,8 +932,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия3 - 126 + ТаблицаДокументыПринятияОрганизация + 403 true true @@ -429,8 +943,8 @@ ДокументыПринятия.Организация - ТаблицаДокументыПринятияТаблицаДокументыПринятия3РасширеннаяПодсказка - 128 + ТаблицаДокументыПринятияТаблицаДокументыПринятияОрганизацияРасширеннаяПодсказка + 405 Label true true @@ -439,8 +953,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия3КонтекстноеМеню - 127 + ТаблицаДокументыПринятияТаблицаДокументыПринятияОрганизацияКонтекстноеМеню + 404 true InputField @@ -459,197 +973,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия4 - 129 - true - true - - true - - - ДокументыПринятия.Учреждение - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия4РасширеннаяПодсказка - 131 - Label - true - true - - Left - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия4КонтекстноеМеню - 130 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия5 - 132 - true - true - - true - - - ДокументыПринятия.ИФО - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия5РасширеннаяПодсказка - 134 - Label - true - true - - Left - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия5КонтекстноеМеню - 133 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия6 - 135 - true - true - - true - - - ДокументыПринятия.Период - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия6РасширеннаяПодсказка - 137 - Label - true - true - - Left - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия6КонтекстноеМеню - 136 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия7 - 138 - true - true - - true - - - ДокументыПринятия.Проведен - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия7РасширеннаяПодсказка - 140 - Label - true - true - - Left - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия7КонтекстноеМеню - 139 - true - - CheckBoxField - Auto - true - Left - true - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия8 - 141 - true - true - - true - - - ДокументыПринятия.ПометкаУдаления - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия8РасширеннаяПодсказка - 143 - Label - true - true - - Left - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия8КонтекстноеМеню - 142 - true - - CheckBoxField - Auto - true - Left - true - - - - ТаблицаДокументыПринятияТаблицаДокументыПринятия9 - 144 + ТаблицаДокументыПринятияСуммаДокумента + 406 true true @@ -659,8 +984,8 @@ ДокументыПринятия.СуммаДокумента - ТаблицаДокументыПринятияТаблицаДокументыПринятия9РасширеннаяПодсказка - 146 + ТаблицаДокументыПринятияТаблицаДокументыПринятияСуммаДокументаРасширеннаяПодсказка + 408 Label true true @@ -669,8 +994,8 @@ - ТаблицаДокументыПринятияТаблицаДокументыПринятия9КонтекстноеМеню - 145 + ТаблицаДокументыПринятияТаблицаДокументыПринятияСуммаДокументаКонтекстноеМеню + 407 true InputField @@ -689,23 +1014,19 @@ - ДокументыПринятияПередачаСальдо - 313 - - <key>ru</key> - <value>Начальное сальдо</value> - + ТаблицаДокументыПринятияИФО + 409 true true true - ДокументыПринятия.ПередачаСальдо + ДокументыПринятия.ИФО - ТаблицаДокументыПринятияДокументыПринятияПередачаСальдоРасширеннаяПодсказка - 315 + ТаблицаДокументыПринятияТаблицаДокументыПринятияИФОРасширеннаяПодсказка + 411 Label true true @@ -714,8 +1035,90 @@ - ТаблицаДокументыПринятияДокументыПринятияПередачаСальдоКонтекстноеМеню - 314 + ТаблицаДокументыПринятияТаблицаДокументыПринятияИФОКонтекстноеМеню + 410 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПринятияПериод + 412 + true + true + + true + + + ДокументыПринятия.Период + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПериодРасширеннаяПодсказка + 414 + Label + true + true + + Left + + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПериодКонтекстноеМеню + 413 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПринятияПроведен + 415 + true + true + + true + + + ДокументыПринятия.Проведен + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПроведенРасширеннаяПодсказка + 417 + Label + true + true + + Left + + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПроведенКонтекстноеМеню + 416 true CheckBoxField @@ -725,6 +1128,121 @@ true + + ТаблицаДокументыПринятияПометкаУдаления + 418 + true + true + + true + + + ДокументыПринятия.ПометкаУдаления + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПометкаУдаленияРасширеннаяПодсказка + 420 + Label + true + true + + Left + + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияПометкаУдаленияКонтекстноеМеню + 419 + true + + CheckBoxField + Auto + true + Left + true + + + + ТаблицаДокументыПринятияЦБ + 421 + true + true + + true + + + ДокументыПринятия.ЦБ + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияЦБРасширеннаяПодсказка + 423 + Label + true + true + + Left + + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияЦБКонтекстноеМеню + 422 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ТаблицаДокументыПринятияДокументПередачи + 424 + true + true + + true + + + ДокументыПринятия.ДокументПередачи + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияДокументПередачиРасширеннаяПодсказка + 426 + Label + true + true + + Left + + + + ТаблицаДокументыПринятияТаблицаДокументыПринятияДокументПередачиКонтекстноеМеню + 425 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + ТаблицаДокументыПринятияКоманднаяПанель 105 @@ -844,568 +1362,6 @@ true - - ТаблицаДокументыПередачи - 61 - true - true - - true - - - ДокументыПередачи - - None - - ТаблицаДокументыПередачиТаблицаДокументыПередачи - 74 - true - true - - true - - - ДокументыПередачи.Ссылка - - - ТаблицаДокументыПередачиТаблицаДокументыПередачиРасширеннаяПодсказка - 76 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачиКонтекстноеМеню - 75 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи1 - 77 - true - true - - true - - - ДокументыПередачи.Дата - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи1РасширеннаяПодсказка - 79 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи1КонтекстноеМеню - 78 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи2 - 80 - true - true - - true - - - ДокументыПередачи.Номер - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи2РасширеннаяПодсказка - 82 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи2КонтекстноеМеню - 81 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи3 - 83 - true - true - - true - - - ДокументыПередачи.Организация - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи3РасширеннаяПодсказка - 85 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи3КонтекстноеМеню - 84 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи4 - 86 - true - true - - true - - - ДокументыПередачи.ЦБ - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи4РасширеннаяПодсказка - 88 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи4КонтекстноеМеню - 87 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи5 - 89 - true - true - - true - - - ДокументыПередачи.ИФО - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи5РасширеннаяПодсказка - 91 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи5КонтекстноеМеню - 90 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи6 - 92 - true - true - - true - - - ДокументыПередачи.Период - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи6РасширеннаяПодсказка - 94 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи6КонтекстноеМеню - 93 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи7 - 95 - true - true - - true - - - ДокументыПередачи.СуммаДокумента - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи7РасширеннаяПодсказка - 97 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи7КонтекстноеМеню - 96 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи8 - 98 - true - true - - true - - - ДокументыПередачи.Проведен - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи8РасширеннаяПодсказка - 100 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи8КонтекстноеМеню - 99 - true - - CheckBoxField - Auto - true - Left - true - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи9 - 101 - true - true - - true - - - ДокументыПередачи.ПометкаУдаления - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи9РасширеннаяПодсказка - 103 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиТаблицаДокументыПередачи9КонтекстноеМеню - 102 - true - - CheckBoxField - Auto - true - Left - true - - - - ДокументыПередачиПередачаСальдо - 310 - - <key>ru</key> - <value>Начальное сальдо</value> - - true - true - - true - - - ДокументыПередачи.ПередачаСальдо - - - ТаблицаДокументыПередачиДокументыПередачиПередачаСальдоРасширеннаяПодсказка - 312 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиДокументыПередачиПередачаСальдоКонтекстноеМеню - 311 - true - - CheckBoxField - Auto - true - Left - true - - - - ТаблицаДокументыПередачиКоманднаяПанель - 62 - Left - true - - - ТаблицаДокументыПередачиСтрокаПоиска - 65 - - ТаблицаДокументыПередачиСтрокаПоискаРасширеннаяПодсказка - 67 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиСтрокаПоискаКонтекстноеМеню - 66 - true - - ТаблицаДокументыПередачи - - true - - - - ТаблицаДокументыПередачиСостояниеПросмотра - 71 - - ТаблицаДокументыПередачиСостояниеПросмотраРасширеннаяПодсказка - 73 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиСостояниеПросмотраКонтекстноеМеню - 72 - true - - ViewStatusAddition - ТаблицаДокументыПередачи - - true - - - - ТаблицаДокументыПередачиУправлениеПоиском - 68 - - ТаблицаДокументыПередачиУправлениеПоискомРасширеннаяПодсказка - 70 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиУправлениеПоискомКонтекстноеМеню - 69 - true - - SearchControlAddition - ТаблицаДокументыПередачи - - true - - - - ТаблицаДокументыПередачиРасширеннаяПодсказка - 64 - Label - true - true - - Left - - - - ТаблицаДокументыПередачиКонтекстноеМеню - 63 - true - - true - true - true - true - true - MultiRow - Auto -
true
- 1 - 1 - AutoUse - AutoUse - true - true - true - true - Auto - Auto - true - true - true - true - AsFileRef - true - - true - true true @@ -1447,8 +1403,8 @@ None - ТаблицаНачисленияТаблицаНачисления - 241 + ТаблицаНачисленияСсылка + 427 true true @@ -1458,8 +1414,8 @@ Начисления.Ссылка - ТаблицаНачисленияТаблицаНачисленияРасширеннаяПодсказка - 243 + ТаблицаНачисленияТаблицаНачисленияСсылкаРасширеннаяПодсказка + 429 Label true true @@ -1468,8 +1424,8 @@ - ТаблицаНачисленияТаблицаНачисленияКонтекстноеМеню - 242 + ТаблицаНачисленияТаблицаНачисленияСсылкаКонтекстноеМеню + 428 true InputField @@ -1488,8 +1444,8 @@ - ТаблицаНачисленияТаблицаНачисления1 - 244 + ТаблицаНачисленияДата + 430 true true @@ -1499,8 +1455,8 @@ Начисления.Дата - ТаблицаНачисленияТаблицаНачисления1РасширеннаяПодсказка - 246 + ТаблицаНачисленияТаблицаНачисленияДатаРасширеннаяПодсказка + 432 Label true true @@ -1509,8 +1465,8 @@ - ТаблицаНачисленияТаблицаНачисления1КонтекстноеМеню - 245 + ТаблицаНачисленияТаблицаНачисленияДатаКонтекстноеМеню + 431 true InputField @@ -1529,8 +1485,8 @@ - ТаблицаНачисленияТаблицаНачисления2 - 247 + ТаблицаНачисленияНомер + 433 true true @@ -1540,8 +1496,8 @@ Начисления.Номер - ТаблицаНачисленияТаблицаНачисления2РасширеннаяПодсказка - 249 + ТаблицаНачисленияТаблицаНачисленияНомерРасширеннаяПодсказка + 435 Label true true @@ -1550,8 +1506,8 @@ - ТаблицаНачисленияТаблицаНачисления2КонтекстноеМеню - 248 + ТаблицаНачисленияТаблицаНачисленияНомерКонтекстноеМеню + 434 true InputField @@ -1570,8 +1526,8 @@ - ТаблицаНачисленияТаблицаНачисления3 - 250 + ТаблицаНачисленияОрганизация + 436 true true @@ -1581,8 +1537,8 @@ Начисления.Организация - ТаблицаНачисленияТаблицаНачисления3РасширеннаяПодсказка - 252 + ТаблицаНачисленияТаблицаНачисленияОрганизацияРасширеннаяПодсказка + 438 Label true true @@ -1591,8 +1547,8 @@ - ТаблицаНачисленияТаблицаНачисления3КонтекстноеМеню - 251 + ТаблицаНачисленияТаблицаНачисленияОрганизацияКонтекстноеМеню + 437 true InputField @@ -1611,8 +1567,8 @@ - ТаблицаНачисленияТаблицаНачисления4 - 253 + ТаблицаНачисленияИФО + 463 true true @@ -1622,8 +1578,8 @@ Начисления.ИФО - ТаблицаНачисленияТаблицаНачисления4РасширеннаяПодсказка - 255 + ТаблицаНачисленияТаблицаНачисленияИФОРасширеннаяПодсказка + 465 Label true true @@ -1632,8 +1588,8 @@ - ТаблицаНачисленияТаблицаНачисления4КонтекстноеМеню - 254 + ТаблицаНачисленияТаблицаНачисленияИФОКонтекстноеМеню + 464 true InputField @@ -1652,8 +1608,8 @@ - ТаблицаНачисленияТаблицаНачисления5 - 256 + ТаблицаНачисленияПериод + 466 true true @@ -1663,8 +1619,8 @@ Начисления.Период - ТаблицаНачисленияТаблицаНачисления5РасширеннаяПодсказка - 258 + ТаблицаНачисленияТаблицаНачисленияПериодРасширеннаяПодсказка + 468 Label true true @@ -1673,8 +1629,8 @@ - ТаблицаНачисленияТаблицаНачисления5КонтекстноеМеню - 257 + ТаблицаНачисленияТаблицаНачисленияПериодКонтекстноеМеню + 467 true InputField @@ -1693,8 +1649,8 @@ - ТаблицаНачисленияТаблицаНачисления6 - 259 + ТаблицаНачисленияСуммаДокумента + 469 true true @@ -1704,8 +1660,8 @@ Начисления.СуммаДокумента - ТаблицаНачисленияТаблицаНачисления6РасширеннаяПодсказка - 261 + ТаблицаНачисленияТаблицаНачисленияСуммаДокументаРасширеннаяПодсказка + 471 Label true true @@ -1714,8 +1670,8 @@ - ТаблицаНачисленияТаблицаНачисления6КонтекстноеМеню - 260 + ТаблицаНачисленияТаблицаНачисленияСуммаДокументаКонтекстноеМеню + 470 true InputField @@ -1734,8 +1690,8 @@ - ТаблицаНачисленияТаблицаНачисления7 - 262 + ТаблицаНачисленияПроведен + 472 true true @@ -1745,8 +1701,8 @@ Начисления.Проведен - ТаблицаНачисленияТаблицаНачисления7РасширеннаяПодсказка - 264 + ТаблицаНачисленияТаблицаНачисленияПроведенРасширеннаяПодсказка + 474 Label true true @@ -1755,8 +1711,8 @@ - ТаблицаНачисленияТаблицаНачисления7КонтекстноеМеню - 263 + ТаблицаНачисленияТаблицаНачисленияПроведенКонтекстноеМеню + 473 true CheckBoxField @@ -1767,8 +1723,8 @@ - ТаблицаНачисленияТаблицаНачисления8 - 265 + ТаблицаНачисленияПометкаУдаления + 475 true true @@ -1778,8 +1734,8 @@ Начисления.ПометкаУдаления - ТаблицаНачисленияТаблицаНачисления8РасширеннаяПодсказка - 267 + ТаблицаНачисленияТаблицаНачисленияПометкаУдаленияРасширеннаяПодсказка + 477 Label true true @@ -1788,8 +1744,8 @@ - ТаблицаНачисленияТаблицаНачисления8КонтекстноеМеню - 266 + ТаблицаНачисленияТаблицаНачисленияПометкаУдаленияКонтекстноеМеню + 476 true CheckBoxField @@ -1959,8 +1915,8 @@ None - ТаблицаСверкаТаблицаСверка - 281 + ТаблицаСверкаДокументПередачи + 439 true true @@ -1970,8 +1926,8 @@ Сверка.ДокументПередачи - ТаблицаСверкаТаблицаСверкаРасширеннаяПодсказка - 283 + ТаблицаСверкаТаблицаСверкаДокументПередачиРасширеннаяПодсказка + 441 Label true true @@ -1980,8 +1936,8 @@ - ТаблицаСверкаТаблицаСверкаКонтекстноеМеню - 282 + ТаблицаСверкаТаблицаСверкаДокументПередачиКонтекстноеМеню + 440 true InputField @@ -1994,14 +1950,13 @@ true true true - true true Normal - ТаблицаСверкаТаблицаСверка1 - 284 + ТаблицаСверкаПериод + 442 true true @@ -2011,8 +1966,8 @@ Сверка.Период - ТаблицаСверкаТаблицаСверка1РасширеннаяПодсказка - 286 + ТаблицаСверкаТаблицаСверкаПериодРасширеннаяПодсказка + 444 Label true true @@ -2021,8 +1976,8 @@ - ТаблицаСверкаТаблицаСверка1КонтекстноеМеню - 285 + ТаблицаСверкаТаблицаСверкаПериодКонтекстноеМеню + 443 true InputField @@ -2041,8 +1996,8 @@ - ТаблицаСверкаТаблицаСверка2 - 287 + ТаблицаСверкаСад + 445 true true @@ -2052,8 +2007,8 @@ Сверка.Сад - ТаблицаСверкаТаблицаСверка2РасширеннаяПодсказка - 289 + ТаблицаСверкаТаблицаСверкаСадРасширеннаяПодсказка + 447 Label true true @@ -2062,8 +2017,8 @@ - ТаблицаСверкаТаблицаСверка2КонтекстноеМеню - 288 + ТаблицаСверкаТаблицаСверкаСадКонтекстноеМеню + 446 true InputField @@ -2076,14 +2031,13 @@ true true true - true true Normal - ТаблицаСверкаТаблицаСверка3 - 290 + ТаблицаСверкаЦБ + 448 true true @@ -2093,8 +2047,8 @@ Сверка.ЦБ - ТаблицаСверкаТаблицаСверка3РасширеннаяПодсказка - 292 + ТаблицаСверкаТаблицаСверкаЦБРасширеннаяПодсказка + 450 Label true true @@ -2103,8 +2057,8 @@ - ТаблицаСверкаТаблицаСверка3КонтекстноеМеню - 291 + ТаблицаСверкаТаблицаСверкаЦБКонтекстноеМеню + 449 true InputField @@ -2117,14 +2071,13 @@ true true true - true true Normal - ТаблицаСверкаТаблицаСверка4 - 293 + ТаблицаСверкаСуммаПередано + 451 true true @@ -2134,8 +2087,8 @@ Сверка.СуммаПередано - ТаблицаСверкаТаблицаСверка4РасширеннаяПодсказка - 295 + ТаблицаСверкаТаблицаСверкаСуммаПереданоРасширеннаяПодсказка + 453 Label true true @@ -2144,8 +2097,8 @@ - ТаблицаСверкаТаблицаСверка4КонтекстноеМеню - 294 + ТаблицаСверкаТаблицаСверкаСуммаПереданоКонтекстноеМеню + 452 true InputField @@ -2164,8 +2117,8 @@ - ТаблицаСверкаТаблицаСверка5 - 296 + ТаблицаСверкаСуммаПринято + 454 true true @@ -2175,8 +2128,8 @@ Сверка.СуммаПринято - ТаблицаСверкаТаблицаСверка5РасширеннаяПодсказка - 298 + ТаблицаСверкаТаблицаСверкаСуммаПринятоРасширеннаяПодсказка + 456 Label true true @@ -2185,8 +2138,8 @@ - ТаблицаСверкаТаблицаСверка5КонтекстноеМеню - 297 + ТаблицаСверкаТаблицаСверкаСуммаПринятоКонтекстноеМеню + 455 true InputField @@ -2205,8 +2158,8 @@ - ТаблицаСверкаТаблицаСверка6 - 299 + ТаблицаСверкаРасхождение + 457 true true @@ -2216,8 +2169,8 @@ Сверка.Расхождение - ТаблицаСверкаТаблицаСверка6РасширеннаяПодсказка - 301 + ТаблицаСверкаТаблицаСверкаРасхождениеРасширеннаяПодсказка + 459 Label true true @@ -2226,8 +2179,8 @@ - ТаблицаСверкаТаблицаСверка6КонтекстноеМеню - 300 + ТаблицаСверкаТаблицаСверкаРасхождениеКонтекстноеМеню + 458 true InputField @@ -2246,8 +2199,8 @@ - ТаблицаСверкаТаблицаСверка7 - 302 + ТаблицаСверкаПередачаПроведена + 460 true true @@ -2257,8 +2210,8 @@ Сверка.ПередачаПроведена - ТаблицаСверкаТаблицаСверка7РасширеннаяПодсказка - 304 + ТаблицаСверкаТаблицаСверкаПередачаПроведенаРасширеннаяПодсказка + 462 Label true true @@ -2267,8 +2220,8 @@ - ТаблицаСверкаТаблицаСверка7КонтекстноеМеню - 303 + ТаблицаСверкаТаблицаСверкаПередачаПроведенаКонтекстноеМеню + 461 true CheckBoxField @@ -2438,8 +2391,8 @@ None - ТаблицаОстатковВыводТаблицаОстатковВывод - 40 + ТаблицаОстатковВыводИФО + 478 true true @@ -2449,8 +2402,8 @@ ТаблицаОстатков.ИФО - ТаблицаОстатковВыводТаблицаОстатковВыводРасширеннаяПодсказка - 42 + ТаблицаОстатковВыводТаблицаОстатковВыводИФОРасширеннаяПодсказка + 480 Label true true @@ -2459,8 +2412,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВыводКонтекстноеМеню - 41 + ТаблицаОстатковВыводТаблицаОстатковВыводИФОКонтекстноеМеню + 479 true InputField @@ -2479,8 +2432,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод1 - 43 + ТаблицаОстатковВыводОрганизация + 481 true true @@ -2490,8 +2443,8 @@ ТаблицаОстатков.Организация - ТаблицаОстатковВыводТаблицаОстатковВывод1РасширеннаяПодсказка - 45 + ТаблицаОстатковВыводТаблицаОстатковВыводОрганизацияРасширеннаяПодсказка + 483 Label true true @@ -2500,8 +2453,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод1КонтекстноеМеню - 44 + ТаблицаОстатковВыводТаблицаОстатковВыводОрганизацияКонтекстноеМеню + 482 true InputField @@ -2520,8 +2473,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод6 - 58 + ТаблицаОстатковВыводСчет + 484 true true @@ -2531,8 +2484,8 @@ ТаблицаОстатков.Счет - ТаблицаОстатковВыводТаблицаОстатковВывод6РасширеннаяПодсказка - 60 + ТаблицаОстатковВыводТаблицаОстатковВыводСчетРасширеннаяПодсказка + 486 Label true true @@ -2541,8 +2494,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод6КонтекстноеМеню - 59 + ТаблицаОстатковВыводТаблицаОстатковВыводСчетКонтекстноеМеню + 485 true InputField @@ -2561,8 +2514,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод2 - 46 + ТаблицаОстатковВыводСуммаНачальныйОстаток + 487 true true @@ -2572,8 +2525,8 @@ ТаблицаОстатков.СуммаНачальныйОстаток - ТаблицаОстатковВыводТаблицаОстатковВывод2РасширеннаяПодсказка - 48 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаНачальныйОстатокРасширеннаяПодсказка + 489 Label true true @@ -2582,8 +2535,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод2КонтекстноеМеню - 47 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаНачальныйОстатокКонтекстноеМеню + 488 true InputField @@ -2602,8 +2555,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод3 - 49 + ТаблицаОстатковВыводСуммаОборотДт + 490 true true @@ -2613,8 +2566,8 @@ ТаблицаОстатков.СуммаОборотДт - ТаблицаОстатковВыводТаблицаОстатковВывод3РасширеннаяПодсказка - 51 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаОборотДтРасширеннаяПодсказка + 492 Label true true @@ -2623,8 +2576,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод3КонтекстноеМеню - 50 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаОборотДтКонтекстноеМеню + 491 true InputField @@ -2643,8 +2596,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод4 - 52 + ТаблицаОстатковВыводСуммаОборотКт + 493 true true @@ -2654,8 +2607,8 @@ ТаблицаОстатков.СуммаОборотКт - ТаблицаОстатковВыводТаблицаОстатковВывод4РасширеннаяПодсказка - 54 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаОборотКтРасширеннаяПодсказка + 495 Label true true @@ -2664,8 +2617,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод4КонтекстноеМеню - 53 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаОборотКтКонтекстноеМеню + 494 true InputField @@ -2684,8 +2637,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод5 - 55 + ТаблицаОстатковВыводСуммаКонечныйОстаток + 496 true true @@ -2695,8 +2648,8 @@ ТаблицаОстатков.СуммаКонечныйОстаток - ТаблицаОстатковВыводТаблицаОстатковВывод5РасширеннаяПодсказка - 57 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаКонечныйОстатокРасширеннаяПодсказка + 498 Label true true @@ -2705,8 +2658,8 @@ - ТаблицаОстатковВыводТаблицаОстатковВывод5КонтекстноеМеню - 56 + ТаблицаОстатковВыводТаблицаОстатковВыводСуммаКонечныйОстатокКонтекстноеМеню + 497 true InputField @@ -2884,8 +2837,8 @@ None - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления - 331 + ТаблицаКассовыеПоступленияСсылка + 499 true true @@ -2895,8 +2848,8 @@ КассовыеПоступления.Ссылка - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияРасширеннаяПодсказка - 333 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСсылкаРасширеннаяПодсказка + 501 Label true true @@ -2905,8 +2858,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияКонтекстноеМеню - 332 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСсылкаКонтекстноеМеню + 500 true InputField @@ -2925,8 +2878,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления1 - 334 + ТаблицаКассовыеПоступленияДата + 502 true true @@ -2936,8 +2889,8 @@ КассовыеПоступления.Дата - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления1РасширеннаяПодсказка - 336 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияДатаРасширеннаяПодсказка + 504 Label true true @@ -2946,8 +2899,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления1КонтекстноеМеню - 335 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияДатаКонтекстноеМеню + 503 true InputField @@ -2966,8 +2919,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления2 - 337 + ТаблицаКассовыеПоступленияНомер + 505 true true @@ -2977,8 +2930,8 @@ КассовыеПоступления.Номер - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления2РасширеннаяПодсказка - 339 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияНомерРасширеннаяПодсказка + 507 Label true true @@ -2987,8 +2940,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления2КонтекстноеМеню - 338 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияНомерКонтекстноеМеню + 506 true InputField @@ -3007,8 +2960,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления3 - 340 + ТаблицаКассовыеПоступленияОрганизация + 508 true true @@ -3018,8 +2971,8 @@ КассовыеПоступления.Организация - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления3РасширеннаяПодсказка - 342 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияОрганизацияРасширеннаяПодсказка + 510 Label true true @@ -3028,8 +2981,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления3КонтекстноеМеню - 341 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияОрганизацияКонтекстноеМеню + 509 true InputField @@ -3048,8 +3001,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления4 - 343 + ТаблицаКассовыеПоступленияСуммаДокумента + 511 true true @@ -3059,8 +3012,8 @@ КассовыеПоступления.СуммаДокумента - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления4РасширеннаяПодсказка - 345 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСуммаДокументаРасширеннаяПодсказка + 513 Label true true @@ -3069,8 +3022,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления4КонтекстноеМеню - 344 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСуммаДокументаКонтекстноеМеню + 512 true InputField @@ -3089,8 +3042,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления5 - 346 + ТаблицаКассовыеПоступленияПроведен + 514 true true @@ -3100,8 +3053,8 @@ КассовыеПоступления.Проведен - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления5РасширеннаяПодсказка - 348 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияПроведенРасширеннаяПодсказка + 516 Label true true @@ -3110,8 +3063,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления5КонтекстноеМеню - 347 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияПроведенКонтекстноеМеню + 515 true CheckBoxField @@ -3122,8 +3075,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления6 - 349 + ТаблицаКассовыеПоступленияПометкаУдаления + 517 true true @@ -3133,8 +3086,8 @@ КассовыеПоступления.ПометкаУдаления - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления6РасширеннаяПодсказка - 351 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияПометкаУдаленияРасширеннаяПодсказка + 519 Label true true @@ -3143,8 +3096,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления6КонтекстноеМеню - 350 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияПометкаУдаленияКонтекстноеМеню + 518 true CheckBoxField @@ -3155,8 +3108,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления7 - 352 + ТаблицаКассовыеПоступленияСтрокВсего + 520 true true @@ -3166,8 +3119,8 @@ КассовыеПоступления.СтрокВсего - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления7РасширеннаяПодсказка - 354 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСтрокВсегоРасширеннаяПодсказка + 522 Label true true @@ -3176,8 +3129,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления7КонтекстноеМеню - 353 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСтрокВсегоКонтекстноеМеню + 521 true InputField @@ -3196,8 +3149,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления8 - 355 + ТаблицаКассовыеПоступленияСтрокНеРаспознано + 523 true true @@ -3207,8 +3160,8 @@ КассовыеПоступления.СтрокНеРаспознано - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления8РасширеннаяПодсказка - 357 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСтрокНеРаспознаноРасширеннаяПодсказка + 525 Label true true @@ -3217,8 +3170,8 @@ - ТаблицаКассовыеПоступленияТаблицаКассовыеПоступления8КонтекстноеМеню - 356 + ТаблицаКассовыеПоступленияТаблицаКассовыеПоступленияСтрокНеРаспознаноКонтекстноеМеню + 524 true InputField @@ -3607,7 +3560,7 @@ 14 - DocumentRef.ПС_ПередачаЗадолженностиВЦБ + DocumentRef.ПС_ПередачаПоступившихПлатежейВУчреждения true @@ -3673,23 +3626,6 @@ true - - ЦБ - - <key>ru</key> - <value>ЦБ</value> - - 18 - - CatalogRef.Контрагенты - - - true - - - true - - ИФО @@ -3824,7 +3760,7 @@ 24 - DocumentRef.ПС_ПринятиеЗадолженностиОтУчреждения + DocumentRef.ПС_ПринятиеПоступившихПлатежейИзЦБ true @@ -3877,7 +3813,7 @@ Организация <key>ru</key> - <value>Организация (ЦБ)</value> + <value>Получатель (учреждение)</value> 27 @@ -4016,6 +3952,40 @@ true + + ЦБ + + <key>ru</key> + <value>ЦБ</value> + + 65 + + CatalogRef.Контрагенты + + + true + + + true + + + + ДокументПередачи + + <key>ru</key> + <value>Документ передачи</value> + + 66 + + DocumentRef.ПС_ПередачаПоступившихПлатежейВУчреждения + + + true + + + true + + Начисления @@ -4220,7 +4190,7 @@ 45 - DocumentRef.ПС_ПередачаЗадолженностиВЦБ + DocumentRef.ПС_ПередачаПоступившихПлатежейВУчреждения true @@ -4255,7 +4225,7 @@ 47 - CatalogRef.Организации + CatalogRef.Контрагенты true @@ -4272,7 +4242,7 @@ 48 - CatalogRef.Контрагенты + CatalogRef.Организации true diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Module.bsl index 4f8c366..ec1bef8 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Module.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/DataProcessors/ПС_УправлениеРасчетамиПоРодительскойПлате/Forms/Форма/Module.bsl @@ -22,6 +22,26 @@ #КонецОбласти +#Область ОбработчикиСобытийЭлементовТаблицыФормыТаблицаДокументыПередачи + +// Сужает таблицу принятий до принятий по выбранному документу передачи. +// Документ передачи берётся из текущей строки таблицы "Документы передачи": +// у одного документа передачи может быть несколько документов принятия (по одному на сад). +// +&НаКлиенте +Процедура ТаблицаДокументыПередачиПриАктивизацииСтроки(Элемент) + + ТекущиеДанные = Элемент.ТекущиеДанные; + Если ТекущиеДанные = Неопределено Тогда + Возврат; + КонецЕсли; + + ЗаполнитьПринятияПоПередачеНаСервере(ТекущиеДанные.Ссылка); + +КонецПроцедуры + +#КонецОбласти + #Область ОбработчикиКомандФормы // Обновляет данные таблиц формы по установленным фильтрам. @@ -80,37 +100,64 @@ Возврат; КонецЕсли; - // Отборы формы заданы в терминах ЦБ: Организация - это ЦБ (справочник Организации), - // Учреждение - сад (справочник Контрагенты). Документы начисления и передачи хранят - // сад как Организацию, а ЦБ в документе передачи - как Контрагента. Приводим значения - // отбора к типам, которые есть в документах, сопоставлением по ИНН. - ЦБКонтрагент = Неопределено; - Если ЗначениеЗаполнено(Объект.Организация) Тогда - ЦБКонтрагент = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(Объект.Организация, "Организация (ЦБ)"); - Если НЕ ЗначениеЗаполнено(ЦБКонтрагент) Тогда - ОчиститьТаблицы(); - Возврат; - КонецЕсли; + Отборы = ОтборыДокументовНаСервере(); + Если Отборы = Неопределено Тогда + ОчиститьТаблицы(); + Возврат; КонецЕсли; - СадОрганизация = Неопределено; - Если ЗначениеЗаполнено(Объект.Учреждение) Тогда - СадОрганизация = ПС_РаботаСКонтрагентами.ОрганизацияПоКонтрагенту(Объект.Учреждение, "Учреждение (сад)"); - Если НЕ ЗначениеЗаполнено(СадОрганизация) Тогда - ОчиститьТаблицы(); - Возврат; - КонецЕсли; - КонецЕсли; - - ЗаполнитьНачисления(СадОрганизация); - ЗаполнитьДокументыПередачи(ЦБКонтрагент, СадОрганизация); - ЗаполнитьДокументыПринятия(); - ЗаполнитьСверку(ЦБКонтрагент, СадОрганизация); + ЗаполнитьНачисления(Отборы.СадОрганизация); + ЗаполнитьДокументыПередачи(Отборы.ЦБОрганизация, Отборы.СадКонтрагент); + ЗаполнитьДокументыПринятия(Отборы.ЦБКонтрагент, Отборы.СадОрганизация); + ЗаполнитьСверку(Отборы.ЦБОрганизация, Отборы.СадКонтрагент); ЗаполнитьТаблицуОстатков(); ЗаполнитьКассовыеПоступления(); КонецПроцедуры +// Приводит отборы формы (ЦБ и учреждение) к значениям, в терминах которых они хранятся +// в документах. +// +// Отборы формы заданы в терминах ЦБ: Организация - это ЦБ (справочник Организации), +// Учреждение - сад (справочник Контрагенты). В документах те же стороны хранятся +// по-разному: документ передачи платежей хранит ЦБ как Организацию, а сад - как +// Контрагента в табличной части "Задолженность"; документ принятия - наоборот. +// Приводим значения отбора к типам, которые есть в документах, сопоставлением по ИНН. +// +// Возвращаемое значение: +// Структура - отборы документов: ЦБОрганизация, ЦБКонтрагент, СадОрганизация, +// СадКонтрагент. Неопределено - отбор не удалось сопоставить с данными +// документов (причина уже выведена пользователю). +// +&НаСервере +Функция ОтборыДокументовНаСервере() + + Отборы = Новый Структура; + Отборы.Вставить("ЦБОрганизация"); + Отборы.Вставить("ЦБКонтрагент"); + Отборы.Вставить("СадОрганизация"); + Отборы.Вставить("СадКонтрагент"); + + Если ЗначениеЗаполнено(Объект.Организация) Тогда + Отборы.ЦБОрганизация = Объект.Организация; + Отборы.ЦБКонтрагент = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(Объект.Организация, "Организация (ЦБ)"); + Если НЕ ЗначениеЗаполнено(Отборы.ЦБКонтрагент) Тогда + Возврат Неопределено; + КонецЕсли; + КонецЕсли; + + Если ЗначениеЗаполнено(Объект.Учреждение) Тогда + Отборы.СадКонтрагент = Объект.Учреждение; + Отборы.СадОрганизация = ПС_РаботаСКонтрагентами.ОрганизацияПоКонтрагенту(Объект.Учреждение, "Учреждение (сад)"); + Если НЕ ЗначениеЗаполнено(Отборы.СадОрганизация) Тогда + Возврат Неопределено; + КонецЕсли; + КонецЕсли; + + Возврат Отборы; + +КонецФункции + // Очищает таблицы формы. Вызывается, когда значения отборов не удалось сопоставить // с данными документов; причина уже выведена пользователю. // @@ -174,18 +221,77 @@ КонецПроцедуры // Заполняет таблицу формы ДокументыПередачи по установленным фильтрам. +// Таблица показывает документы передачи поступивших платежей в учреждения (документ ЦБ). // // Параметры: -// ЦБКонтрагент - CatalogRef.Контрагенты, Неопределено - ЦБ в виде контрагента -// (документ передачи хранит ЦБ именно так); Неопределено - отбор не задан. -// СадОрганизация - CatalogRef.Организации, Неопределено - учреждение (сад) в виде -// организации; Неопределено - отбор по учреждению не задан. +// ЦБОрганизация - CatalogRef.Организации - ЦБ в виде организации (документ передачи +// хранит ЦБ в реквизите "Организация"); Неопределено - отбор не задан. +// СадКонтрагент - CatalogRef.Контрагенты - учреждение (сад) в табличной части +// "Задолженность"; Неопределено - отбор по учреждению не задан. // &НаСервере -Процедура ЗаполнитьДокументыПередачи(ЦБКонтрагент, СадОрганизация) +Процедура ЗаполнитьДокументыПередачи(ЦБОрганизация, СадКонтрагент) ДокументыПередачи.Очистить(); + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ РАЗЛИЧНЫЕ + | Документы.Ссылка КАК Ссылка, + | Документы.Дата КАК Дата, + | Документы.Номер КАК Номер, + | Документы.Организация КАК Организация, + | Документы.ИФО КАК ИФО, + | Документы.Период КАК Период, + | Документы.СуммаДокумента КАК СуммаДокумента, + | Документы.Проведен КАК Проведен, + | Документы.ПометкаУдаления КАК ПометкаУдаления + |ИЗ + | Документ.ПС_ПередачаПоступившихПлатежейВУчреждения КАК Документы + | ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПС_ПередачаПоступившихПлатежейВУчреждения.Задолженность КАК Строки + | ПО Документы.Ссылка = Строки.Ссылка + |ГДЕ + | Документы.Период >= &НачалоПериода + | И Документы.Период <= &КонецПериода + | И (&ЦБОрганизация = НЕОПРЕДЕЛЕНО + | ИЛИ Документы.Организация = &ЦБОрганизация) + | И (&СадКонтрагент = НЕОПРЕДЕЛЕНО + | ИЛИ Строки.Учреждение = &СадКонтрагент) + | И (&ИФО = НЕОПРЕДЕЛЕНО + | ИЛИ Документы.ИФО = &ИФО) + |УПОРЯДОЧИТЬ ПО + | Документы.Дата УБЫВ"; + + Запрос.УстановитьПараметр("НачалоПериода", Объект.Период.ДатаНачала); + Запрос.УстановитьПараметр("КонецПериода", Объект.Период.ДатаОкончания); + Запрос.УстановитьПараметр("ЦБОрганизация", ЦБОрганизация); + Запрос.УстановитьПараметр("СадКонтрагент", СадКонтрагент); + Запрос.УстановитьПараметр("ИФО", ?(ЗначениеЗаполнено(Объект.ИФО), Объект.ИФО, Неопределено)); + + Выборка = Запрос.Выполнить().Выбрать(); + Пока Выборка.Следующий() Цикл + ЗаполнитьЗначенияСвойств(ДокументыПередачи.Добавить(), Выборка); + КонецЦикла; + +КонецПроцедуры + +// Заполняет таблицу формы ДокументыПринятия по установленным фильтрам. +// Таблица показывает документы принятия поступивших платежей из ЦБ (документ учреждения). +// +// Параметры: +// ЦБКонтрагент - CatalogRef.Контрагенты - ЦБ в виде контрагента (документ принятия +// хранит ЦБ в реквизите "ЦБ"); Неопределено - отбор не задан. +// СадОрганизация - CatalogRef.Организации - учреждение (сад) в виде организации +// (документ принятия хранит сад в реквизите "Организация"); +// Неопределено - отбор по учреждению не задан. +// ДокументПередачи - ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения - документ +// передачи, по которому отбираются принятия; Неопределено - отбор не задан. +// +&НаСервере +Процедура ЗаполнитьДокументыПринятия(ЦБКонтрагент, СадОрганизация, ДокументПередачи = Неопределено) + + ДокументыПринятия.Очистить(); + Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ @@ -197,76 +303,31 @@ | Документы.ИФО КАК ИФО, | Документы.Период КАК Период, | Документы.СуммаДокумента КАК СуммаДокумента, - | Документы.ПередачаСальдо КАК ПередачаСальдо, + | Документы.ДокументПередачи КАК ДокументПередачи, | Документы.Проведен КАК Проведен, | Документы.ПометкаУдаления КАК ПометкаУдаления |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ КАК Документы - |ГДЕ - | Документы.Период >= &НачалоПериода - | И Документы.Период <= &КонецПериода - | И (&ЦБ = НЕОПРЕДЕЛЕНО - | ИЛИ Документы.ЦБ = &ЦБ) - | И (&Сад = НЕОПРЕДЕЛЕНО - | ИЛИ Документы.Организация = &Сад) - | И (&ИФО = НЕОПРЕДЕЛЕНО - | ИЛИ Документы.ИФО = &ИФО) - |УПОРЯДОЧИТЬ ПО - | Документы.Дата УБЫВ"; - - Запрос.УстановитьПараметр("НачалоПериода", Объект.Период.ДатаНачала); - Запрос.УстановитьПараметр("КонецПериода", Объект.Период.ДатаОкончания); - Запрос.УстановитьПараметр("ЦБ", ЦБКонтрагент); - Запрос.УстановитьПараметр("Сад", СадОрганизация); - Запрос.УстановитьПараметр("ИФО", ?(ЗначениеЗаполнено(Объект.ИФО), Объект.ИФО, Неопределено)); - - Выборка = Запрос.Выполнить().Выбрать(); - Пока Выборка.Следующий() Цикл - ЗаполнитьЗначенияСвойств(ДокументыПередачи.Добавить(), Выборка); - КонецЦикла; - -КонецПроцедуры - -// Заполняет таблицу формы ДокументыПринятия по установленным фильтрам. -// -&НаСервере -Процедура ЗаполнитьДокументыПринятия() - - ДокументыПринятия.Очистить(); - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | Документы.Ссылка КАК Ссылка, - | Документы.Дата КАК Дата, - | Документы.Номер КАК Номер, - | Документы.Организация КАК Организация, - | Документы.Учреждение КАК Учреждение, - | Документы.ИФО КАК ИФО, - | Документы.Период КАК Период, - | Документы.СуммаДокумента КАК СуммаДокумента, - | Документы.ПередачаСальдо КАК ПередачаСальдо, - | Документы.Проведен КАК Проведен, - | Документы.ПометкаУдаления КАК ПометкаУдаления - |ИЗ - | Документ.ПС_ПринятиеЗадолженностиОтУчреждения КАК Документы + | Документ.ПС_ПринятиеПоступившихПлатежейИзЦБ КАК Документы |ГДЕ | Документы.Период >= &НачалоПериода | И Документы.Период <= &КонецПериода | И (&Организация = НЕОПРЕДЕЛЕНО | ИЛИ Документы.Организация = &Организация) - | И (&Учреждение = НЕОПРЕДЕЛЕНО - | ИЛИ Документы.Учреждение = &Учреждение) + | И (&ЦБ = НЕОПРЕДЕЛЕНО + | ИЛИ Документы.ЦБ = &ЦБ) | И (&ИФО = НЕОПРЕДЕЛЕНО | ИЛИ Документы.ИФО = &ИФО) + | И (&ДокументПередачи = НЕОПРЕДЕЛЕНО + | ИЛИ Документы.ДокументПередачи = &ДокументПередачи) |УПОРЯДОЧИТЬ ПО | Документы.Дата УБЫВ"; Запрос.УстановитьПараметр("НачалоПериода", Объект.Период.ДатаНачала); Запрос.УстановитьПараметр("КонецПериода", Объект.Период.ДатаОкончания); - Запрос.УстановитьПараметр("Организация", ?(ЗначениеЗаполнено(Объект.Организация), Объект.Организация, Неопределено)); - Запрос.УстановитьПараметр("Учреждение", ?(ЗначениеЗаполнено(Объект.Учреждение), Объект.Учреждение, Неопределено)); + Запрос.УстановитьПараметр("Организация", СадОрганизация); + Запрос.УстановитьПараметр("ЦБ", ЦБКонтрагент); Запрос.УстановитьПараметр("ИФО", ?(ЗначениеЗаполнено(Объект.ИФО), Объект.ИФО, Неопределено)); + Запрос.УстановитьПараметр("ДокументПередачи", ДокументПередачи); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл @@ -275,17 +336,37 @@ КонецПроцедуры -// Заполняет таблицу формы Сверка: сопоставляет суммы наших документов передачи -// и принятия. Приёмка связана с передачей через реквизит ДокументПередачи. +// Заполняет таблицу принятий по документу передачи, выбранному в таблице "Документы передачи". // // Параметры: -// ЦБКонтрагент - CatalogRef.Контрагенты, Неопределено - ЦБ в виде контрагента -// (документ передачи хранит ЦБ именно так); Неопределено - отбор не задан. -// СадОрганизация - CatalogRef.Организации, Неопределено - учреждение (сад) в виде -// организации; Неопределено - отбор по учреждению не задан. +// ДокументПередачи - ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения - документ +// передачи, по которому отбираются принятия. // &НаСервере -Процедура ЗаполнитьСверку(ЦБКонтрагент, СадОрганизация) +Процедура ЗаполнитьПринятияПоПередачеНаСервере(ДокументПередачи) + + Отборы = ОтборыДокументовНаСервере(); + Если Отборы = Неопределено Тогда + ДокументыПринятия.Очистить(); + Возврат; + КонецЕсли; + + ЗаполнитьДокументыПринятия(Отборы.ЦБКонтрагент, Отборы.СадОрганизация, ДокументПередачи); + +КонецПроцедуры + +// Заполняет таблицу формы Сверка: сопоставляет суммы переданных платежей (документ ЦБ) +// и принятых учреждениями (документы принятия). Приёмка связана с передачей через +// реквизит ДокументПередачи документа принятия. +// +// Параметры: +// ЦБОрганизация - CatalogRef.Организации - ЦБ в виде организации (документ передачи +// хранит ЦБ в реквизите "Организация"); Неопределено - отбор не задан. +// СадКонтрагент - CatalogRef.Контрагенты - учреждение (сад) в табличной части +// "Задолженность"; Неопределено - отбор по учреждению не задан. +// +&НаСервере +Процедура ЗаполнитьСверку(ЦБОрганизация, СадКонтрагент) Сверка.Очистить(); @@ -296,7 +377,7 @@ | СУММА(Принятие.СуммаДокумента) КАК СуммаПринято |ПОМЕСТИТЬ ВТПринято |ИЗ - | Документ.ПС_ПринятиеЗадолженностиОтУчреждения КАК Принятие + | Документ.ПС_ПринятиеПоступившихПлатежейИзЦБ КАК Принятие |ГДЕ | НЕ Принятие.ПометкаУдаления |СГРУППИРОВАТЬ ПО @@ -305,27 +386,28 @@ | ДокументПередачи |; | - |ВЫБРАТЬ + |ВЫБРАТЬ РАЗЛИЧНЫЕ | Передача.Ссылка КАК ДокументПередачи, | Передача.Период КАК Период, - | Передача.Организация КАК Сад, - | Передача.ЦБ КАК ЦБ, + | Передача.Организация КАК ЦБ, | Передача.СуммаДокумента КАК СуммаПередано, | ЕСТЬNULL(ВТПринято.СуммаПринято, 0) КАК СуммаПринято, | Передача.СуммаДокумента - ЕСТЬNULL(ВТПринято.СуммаПринято, 0) КАК Расхождение, | Передача.Проведен КАК ПередачаПроведена |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ КАК Передача + | Документ.ПС_ПередачаПоступившихПлатежейВУчреждения КАК Передача | ЛЕВОЕ СОЕДИНЕНИЕ ВТПринято КАК ВТПринято | ПО Передача.Ссылка = ВТПринято.ДокументПередачи + | ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПС_ПередачаПоступившихПлатежейВУчреждения.Задолженность КАК Строки + | ПО Передача.Ссылка = Строки.Ссылка |ГДЕ | НЕ Передача.ПометкаУдаления | И Передача.Период >= &НачалоПериода | И Передача.Период <= &КонецПериода | И (&ЦБ = НЕОПРЕДЕЛЕНО - | ИЛИ Передача.ЦБ = &ЦБ) + | ИЛИ Передача.Организация = &ЦБ) | И (&Сад = НЕОПРЕДЕЛЕНО - | ИЛИ Передача.Организация = &Сад) + | ИЛИ Строки.Учреждение = &Сад) | И (&ИФО = НЕОПРЕДЕЛЕНО | ИЛИ Передача.ИФО = &ИФО) |УПОРЯДОЧИТЬ ПО @@ -334,8 +416,8 @@ Запрос.УстановитьПараметр("НачалоПериода", Объект.Период.ДатаНачала); Запрос.УстановитьПараметр("КонецПериода", Объект.Период.ДатаОкончания); - Запрос.УстановитьПараметр("ЦБ", ЦБКонтрагент); - Запрос.УстановитьПараметр("Сад", СадОрганизация); + Запрос.УстановитьПараметр("ЦБ", ЦБОрганизация); + Запрос.УстановитьПараметр("Сад", СадКонтрагент); Запрос.УстановитьПараметр("ИФО", ?(ЗначениеЗаполнено(Объект.ИФО), Объект.ИФО, Неопределено)); Выборка = Запрос.Выполнить().Выбрать(); diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/КассовоеПоступление/ObjectModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/КассовоеПоступление/ObjectModule.bsl index c9aae48..124c63b 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/КассовоеПоступление/ObjectModule.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/КассовоеПоступление/ObjectModule.bsl @@ -25,9 +25,10 @@ Возврат; КонецЕсли; - // Оплата закрывает задолженность, принятую от учреждения. Переплата допускается - - // она даёт отрицательный (кредитовый) остаток по ребёнку. Строки без определённого - // ребёнка или договора пропускаются: это не оплата родительской платы. + // Поступившие платежи копятся у ЦБ: приход по регистру взаиморасчётов. + // Передача платежей в сады списывает их расходом, поэтому остаток регистра + // показывает, сколько поступило и ещё не передано в учреждения. Строки без + // определённого ребёнка или договора пропускаются: это не плата за детский сад. Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Очистить(); Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Записывать = Истина; @@ -65,7 +66,7 @@ КонтрагентыСадов.Вставить(ОрганизацияСада, КонтрагентСада); КонецЕсли; - Движение = Движения.ПС_ВзаиморасчетыПоРодительскойПлате.ДобавитьРасход(); + Движение = Движения.ПС_ВзаиморасчетыПоРодительскойПлате.ДобавитьПриход(); Движение.Период = Дата; Движение.Организация = Организация; Движение.Учреждение = КонтрагентСада; @@ -76,7 +77,7 @@ Движение.КФО = СтрокаРасшифровки.КФО; Движение.КПС = СтрокаРасшифровки.КБКНазначениеПлатежа; Движение.Сумма = СтрокаРасшифровки.Сумма; - Движение.ВидОперации = Перечисления.ПС_ВидыОперацийПоВзаиморасчетам.Оплата; + Движение.ВидОперации = Перечисления.ПС_ВидыОперацийПоВзаиморасчетам.ПоступлениеПлатежа; КонецЦикла; diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/Forms/ФормаДокумента/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/Forms/ФормаДокумента/Module.bsl index 54c114e..bf5033e 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/Forms/ФормаДокумента/Module.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/Forms/ФормаДокумента/Module.bsl @@ -112,7 +112,7 @@ КонецЕсли; ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка); - ОткрытьФорму("Документ.ПС_ПередачаЗадолженностиВЦБ.Форма.ФормаДокумента", + ОткрытьФорму("Документ.ПС_ПринятиеПоступившихПлатежейИзЦБ.Форма.ФормаДокумента", ПараметрыФормы, ЭтотОбъект); diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/НачислениеРодительскойПлаты.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/НачислениеРодительскойПлаты.mdo index 650385c..a1e2a22 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/НачислениеРодительскойПлаты.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/НачислениеРодительскойПлаты/НачислениеРодительскойПлаты.mdo @@ -12,7 +12,6 @@ Checked - Document.ПС_ПередачаЗадолженностиВЦБ ФормаДокумента Adopted diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Module.bsl deleted file mode 100644 index 23b1ffb..0000000 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Module.bsl +++ /dev/null @@ -1,438 +0,0 @@ -// ПС_ПередачаЗадолженностиВЦБ: модуль формы документа. - -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - - БухгалтерскиеОперацииСервер.ПриСозданииНаСервере(Отказ, СтандартнаяОбработка, Элементы.БухгалтерскаяОперация); - - // ИФО показывается только при включённом учёте по ИФО (как в типовых документах). - Элементы.ИФО.Видимость = ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО"); - // КПС определяется автоматически по настройкам учётной политики. - Элементы.ЗадолженностьКПС.ТолькоПросмотр = Истина; - - // Счёт, корреспондирующий со счётом 205.31, и его КЭК: значения по умолчанию. - // В режиме передачи начального сальдо скрывается документ начисления и появляется - // команда заполнения по остаткам счёта 205.31. - ЗаполнитьКорреспондирующийСчетПоУмолчанию(); - ОбновитьВидимостьРеквизитовРежимаСальдо(); - - Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда - Основание = Неопределено; - Если Параметры.Свойство("Основание", Основание) - И ТипЗнч(Основание) = Тип("ДокументСсылка.НачислениеРодительскойПлаты") Тогда - Объект.ДокументНачисления = Основание; - ЗаполнитьПоДокументуНачисленияНаСервере(Основание); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(Объект.ЦБ) Тогда - Объект.ЦБ = ПС_РаботаСКонтрагентами.КонтрагентЦБПоУмолчанию(); - КонецЕсли; - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ПриЧтенииНаСервере(ТекущийОбъект) - - БухгалтерскиеОперацииСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект, Элементы.БухгалтерскаяОперация); - -КонецПроцедуры - -&НаКлиенте -Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) - - БухгалтерскиеОперацииКлиент.ПередЗаписью(Отказ, ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаСервере -Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) - - БухгалтерскиеОперацииСервер.ПередЗаписью(Отказ, ТекущийОбъект, ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаКлиенте -Процедура ПослеЗаписи(ПараметрыЗаписи) - - БухгалтерскиеОперацииКлиент.ПослеЗаписи(ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаСервере -Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) - - БухгалтерскиеОперацииСервер.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи); - -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура ПечатьИзвещения(Команда) - - ТабличныйДокумент = ПечатьИзвещенияНаСервере(Объект.Ссылка); - ТабличныйДокумент.Показать("Извещение (ф. 0504805, ред. 103н)"); - -КонецПроцедуры - -&НаКлиенте -Процедура ПросмотрБухгалтерскихЗаписей(Команда) - - ОткрытьБухгалтерскиеЗаписиДокумента(Объект.Ссылка); - -КонецПроцедуры - -&НаКлиенте -Процедура ПС_СоздатьПринятиеЗадолженностиНаОсновании(Команда) - - Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда - СообщениеПользователю = Новый СообщениеПользователю; - СообщениеПользователю.Текст = "Сначала запишите и проведите документ передачи."; - СообщениеПользователю.Сообщить(); - Возврат; - КонецЕсли; - - Если НЕ Объект.Проведен Тогда - СообщениеПользователю = Новый СообщениеПользователю; - СообщениеПользователю.Текст = "Перед созданием принятия документ передачи должен быть проведён."; - СообщениеПользователю.Сообщить(); - Возврат; - КонецЕсли; - - ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка); - ОткрытьФорму("Документ.ПС_ПринятиеЗадолженностиОтУчреждения.Форма.ФормаДокумента", - ПараметрыФормы, - ЭтотОбъект); - -КонецПроцедуры - -&НаКлиенте -Процедура ЗаполнитьПоОстаткам20531(Команда) - - ЗаполнитьПоОстаткам20531НаСервере(); - -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовФормы - -&НаКлиенте -Процедура ПередачаСальдоПриИзменении(Элемент) - - // В режиме сальдо поле документа начисления скрывается, команда заполнения по остаткам - показывается. - РежимСальдо = (Объект.ПередачаСальдо = Истина); - Элементы.ЗаполнитьПоОстаткам20531.Видимость = РежимСальдо; - Элементы.ДокументНачисления.Видимость = НЕ РежимСальдо; - -КонецПроцедуры - -&НаКлиенте -Процедура ДокументНачисленияПриИзменении(Элемент) - - Если ЗначениеЗаполнено(Объект.ДокументНачисления) Тогда - ЗаполнитьПоДокументуНачисленияНаСервере(Объект.ДокументНачисления); - Иначе - Объект.Задолженность.Очистить(); - Объект.СуммаДокумента = 0; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ЗадолженностьПриИзменении(Элемент) - - Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); - -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -&НаСервере -Функция ПечатьИзвещенияНаСервере(ДокументСсылка) - - Возврат Документы.ПС_ПередачаЗадолженностиВЦБ.СформироватьПечатныеФормыИзвещений(ДокументСсылка); - -КонецФункции - -&НаСервере -Процедура ЗаполнитьКорреспондирующийСчетПоУмолчанию() - - Если НЕ ЗначениеЗаполнено(Объект.СчетКорреспондент) Тогда - Объект.СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(Объект.КЭККорреспондент) Тогда - Объект.КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ОбновитьВидимостьРеквизитовРежимаСальдо() - - // В режиме начального сальдо документ начисления не используется: его поле скрывается, - // а вместо него доступна команда заполнения по остаткам счёта 205.31. - РежимСальдо = (Объект.ПередачаСальдо = Истина); - Элементы.ЗаполнитьПоОстаткам20531.Видимость = РежимСальдо; - Элементы.ДокументНачисления.Видимость = НЕ РежимСальдо; - -КонецПроцедуры - -// Заполняет табличную часть "Задолженность" остатками счёта 205.31 на дату документа -// по организации (учреждению-саду). Строки доступны для ручной правки. -// -&НаСервере -Процедура ЗаполнитьПоОстаткам20531НаСервере() - - Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда - ОбщегоНазначения.СообщитьПользователю( - "Заполнение по остаткам невозможно: не заполнена организация (учреждение-сад)."); - Возврат; - КонецЕсли; - - Счет20531 = ПланыСчетов.ЕПСБУ.НайтиПоКоду("205.31"); - Если Счет20531 = Неопределено Тогда - ОбщегоНазначения.СообщитьПользователю( - "Заполнение по остаткам невозможно: в плане счетов ЕПСБУ не найден счет 205.31."); - Возврат; - КонецЕсли; - - // Порядок субконто берём из настройки самого счёта: субконто1 - первое субконто счёта. - ВидыСубконто = Новый Массив; - Для Каждого СтрокаСубконто Из Счет20531.ВидыСубконто Цикл - ВидыСубконто.Добавить(СтрокаСубконто.ВидСубконто); - КонецЦикла; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | Остатки.Субконто1 КАК Контрагент, - | Остатки.Субконто2 КАК Договор, - | Дети.Ссылка КАК Ребенок, - | Остатки.КПС КАК КПС, - | Остатки.ИФО КАК ИФО, - | Остатки.КФО КАК КФО, - | Остатки.СуммаОстаток КАК Сумма - |ИЗ - | РегистрБухгалтерии.ЖурналПроводокЕПСБУ.Остатки( - | &Дата, - | Счет В ИЕРАРХИИ (&Счет20531), - | &ВидыСубконто, - | Организация = &Организация) КАК Остатки - | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Дети КАК Дети - | ПО Дети.Контрагент = Остатки.Субконто1 - |ГДЕ - | Остатки.СуммаОстаток <> 0 - | - |УПОРЯДОЧИТЬ ПО - | Остатки.Субконто1, - | Остатки.Субконто2"; - Запрос.УстановитьПараметр("Дата", Объект.Дата); - Запрос.УстановитьПараметр("Счет20531", Счет20531); - Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто); - Запрос.УстановитьПараметр("Организация", Объект.Организация); - - Выборка = Запрос.Выполнить().Выбрать(); - - Объект.Задолженность.Очистить(); - - ЗначенияИФО = Новый Соответствие; - ЗначенияКФО = Новый Соответствие; - - Пока Выборка.Следующий() Цикл - - ЗначенияИФО.Вставить(Выборка.ИФО, Истина); - ЗначенияКФО.Вставить(Выборка.КФО, Истина); - - НоваяСтрока = Объект.Задолженность.Добавить(); - НоваяСтрока.Контрагент = Выборка.Контрагент; - НоваяСтрока.Договор = Выборка.Договор; - НоваяСтрока.Ребенок = Выборка.Ребенок; - НоваяСтрока.КПС = Выборка.КПС; - НоваяСтрока.Сумма = Выборка.Сумма; - - КонецЦикла; - - Если Объект.Задолженность.Количество() = 0 Тогда - ВывестиДиагностикуЗаполненияПоОстаткам(Счет20531); - Возврат; - КонецЕсли; - - Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); - - // Разрезов ИФО и КФО в табличной части нет - они задаются на весь документ, - // поэтому переносим их в шапку, если в остатках они единственные. - ЗаполнитьИФОиКФОПоОстаткам(ЗначенияИФО, ЗначенияКФО); - - Если ЗначенияИФО.Количество() > 1 ИЛИ ЗначенияКФО.Количество() > 1 Тогда - ОбщегоНазначения.СообщитьПользователю( - "Остатки найдены в разрезе нескольких ИФО и/или КФО, а в документе ИФО и КФО задаются" - + " на весь документ. Проверьте их заполнение и при необходимости перенесите" - + " сальдо отдельными документами."); - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ЗаполнитьИФОиКФОПоОстаткам(ЗначенияИФО, ЗначенияКФО) - - Если ЗначенияКФО.Количество() = 1 И НЕ ЗначениеЗаполнено(Объект.КФО) Тогда - Для Каждого КлючИЗначение Из ЗначенияКФО Цикл - Объект.КФО = КлючИЗначение.Ключ; - КонецЦикла; - КонецЕсли; - - Если ЗначенияИФО.Количество() = 1 И НЕ ЗначениеЗаполнено(Объект.ИФО) Тогда - Для Каждого КлючИЗначение Из ЗначенияИФО Цикл - Объект.ИФО = КлючИЗначение.Ключ; - КонецЦикла; - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ВывестиДиагностикуЗаполненияПоОстаткам(Счет20531) - - // Проверяем, есть ли вообще остатки по счёту на дату документа - без отборов - // по организации и субконто. Это позволяет понять, что именно не совпало. - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | КОЛИЧЕСТВО(*) КАК ВсегоСтрок - |ИЗ - | РегистрБухгалтерии.ЖурналПроводокЕПСБУ.Остатки( - | &Дата, - | Счет В ИЕРАРХИИ (&Счет20531), , ) КАК Остатки"; - Запрос.УстановитьПараметр("Дата", Объект.Дата); - Запрос.УстановитьПараметр("Счет20531", Счет20531); - - Выборка = Запрос.Выполнить().Выбрать(); - ВсегоСтрок = 0; - Если Выборка.Следующий() Тогда - ВсегоСтрок = Выборка.ВсегоСтрок; - КонецЕсли; - - ДатаДокумента = Формат(Объект.Дата, "ДЛФ=DD"); - - Если ВсегоСтрок = 0 Тогда - ОбщегоНазначения.СообщитьПользователю( - "Остатков по счёту " + Счет20531.Код + " на " + ДатаДокумента - + " нет ни по одной организации. Проверьте дату документа."); - Иначе - ОбщегоНазначения.СообщитьПользователю( - "Остатки по счёту " + Счет20531.Код + " на " + ДатаДокумента + " есть (" - + ВсегоСтрок + " стр.), но не отобраны по организации " + Строка(Объект.Организация) - + " и/или по субконто счёта. Проверьте организацию в документе."); - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ЗаполнитьПоДокументуНачисленияНаСервере(ДокументНачисленияСсылка) - - Если НЕ ЗначениеЗаполнено(ДокументНачисленияСсылка) Тогда - Возврат; - КонецЕсли; - - // Заполнение возможно только на основании проведённого документа начисления. - Если НЕ ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДокументНачисленияСсылка, "Проведен") Тогда - ОбщегоНазначения.СообщитьПользователю( - "Заполнение документа возможно только на основании проведённого документа начисления родительской платы."); - Возврат; - КонецЕсли; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | НачислениеРодительскойПлаты.Организация КАК Организация, - | НачислениеРодительскойПлаты.ИФО КАК ИФО, - | НачислениеРодительскойПлаты.Ответственный КАК Ответственный, - | НачислениеРодительскойПлаты.НачалоПериода КАК НачалоПериода, - | НачислениеРодительскойПлаты.Дата КАК ДатаДокумента - |ИЗ - | Документ.НачислениеРодительскойПлаты КАК НачислениеРодительскойПлаты - |ГДЕ - | НачислениеРодительскойПлаты.Ссылка = &Ссылка - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ - | НачислениеРодительскойПлатыНачисления.Контрагент КАК Контрагент, - | НачислениеРодительскойПлатыНачисления.ДоговорКонтрагента КАК Договор, - | НачислениеРодительскойПлатыНачисления.Ребенок КАК Ребенок, - | НачислениеРодительскойПлатыНачисления.ИДСтроки КАК ИДСтроки, - | НачислениеРодительскойПлатыНачисления.Сумма КАК Сумма - |ИЗ - | Документ.НачислениеРодительскойПлаты.Начисления КАК НачислениеРодительскойПлатыНачисления - |ГДЕ - | НачислениеРодительскойПлатыНачисления.Ссылка = &Ссылка"; - Запрос.УстановитьПараметр("Ссылка", ДокументНачисленияСсылка); - - Результаты = Запрос.ВыполнитьПакет(); - - ВыборкаШапка = Результаты[0].Выбрать(); - Если НЕ ВыборкаШапка.Следующий() Тогда - Возврат; - КонецЕсли; - - Объект.Организация = ВыборкаШапка.Организация; - Объект.Ответственный = ВыборкаШапка.Ответственный; - Объект.ДокументНачисления = ДокументНачисленияСсылка; - Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда - Объект.ИФО = ВыборкаШапка.ИФО; - КонецЕсли; - - Если ЗначениеЗаполнено(ВыборкаШапка.НачалоПериода) Тогда - Объект.Период = ВыборкаШапка.НачалоПериода; - Иначе - Объект.Период = НачалоМесяца(ВыборкаШапка.ДатаДокумента); - КонецЕсли; - - Объект.ЦБ = ПС_РаботаСКонтрагентами.КонтрагентЦБПоУмолчанию(); - - Объект.Задолженность.Очистить(); - Объект.СуммаДокумента = 0; - - ВыборкаСтроки = Результаты[1].Выбрать(); - Пока ВыборкаСтроки.Следующий() Цикл - - НоваяСтрока = Объект.Задолженность.Добавить(); - НоваяСтрока.Контрагент = ВыборкаСтроки.Контрагент; - НоваяСтрока.Договор = ВыборкаСтроки.Договор; - НоваяСтрока.Ребенок = ВыборкаСтроки.Ребенок; - НоваяСтрока.ИДСтроки = ВыборкаСтроки.ИДСтроки; - НоваяСтрока.Сумма = ВыборкаСтроки.Сумма; - - Объект.СуммаДокумента = Объект.СуммаДокумента + ВыборкаСтроки.Сумма; - - КонецЦикла; - - // КФО документа и КПС строк - из проводок документа начисления. - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(Объект, ДокументНачисленияСсылка); - -КонецПроцедуры - -&НаКлиенте -Процедура ОткрытьБухгалтерскиеЗаписиДокумента(ДокументСсылка) - - ПараметрыФормы = Новый Структура; - Отбор = Новый Структура("Регистратор", ДокументСсылка); - ПараметрыФормы.Вставить("Отбор", Отбор); - - ОткрытьФорму("РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ФормаСписка", - ПараметрыФормы, - ЭтотОбъект, - УникальныйИдентификатор); - -КонецПроцедуры - -#КонецОбласти - diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Form.form b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Form.form similarity index 89% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Form.form rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Form.form index 3e49597..da0cc52 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Form.form +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Form.form @@ -51,52 +51,6 @@ Normal - - ДокументПередачи - 22 - true - true - - true - - - Объект.ДокументПередачи - - - OnChange - ДокументПередачиПриИзменении - - - ДокументПередачиРасширеннаяПодсказка - 24 - Label - true - true - - Left - - - - ДокументПередачиКонтекстноеМеню - 23 - true - - InputField - EnterOnInput - true - Left - true - - true - true - true - true - true - true - true - Normal - - Период 16 @@ -255,48 +209,6 @@ Normal - - Учреждение - 13 - true - true - - true - - - Объект.Учреждение - - - УчреждениеРасширеннаяПодсказка - 15 - Label - true - true - - Left - - - - УчреждениеКонтекстноеМеню - 14 - true - - InputField - EnterOnInput - true - Left - true - - true - true - true - true - true - true - true - Normal - - true true @@ -452,6 +364,47 @@ true + + ЗадолженностьУчреждение + 103 + true + true + + true + + + Объект.Задолженность.Учреждение + + + ЗадолженностьЗадолженностьУчреждениеРасширеннаяПодсказка + 105 + Label + true + true + + Left + + + + ЗадолженностьЗадолженностьУчреждениеКонтекстноеМеню + 104 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + ЗадолженностьГруппаКонтрагента 92 @@ -1014,43 +967,6 @@ Normal - - ПередачаСальдо - 94 - - <key>ru</key> - <value>Передача начального сальдо</value> - - true - true - - true - - - Объект.ПередачаСальдо - - - ПередачаСальдоРасширеннаяПодсказка - 96 - Label - true - true - - Left - - - - ПередачаСальдоКонтекстноеМеню - 95 - true - - CheckBoxField - Enter - true - Left - true - - СчетКорреспондент 97 @@ -1323,6 +1239,58 @@ UserCmds Auto + + ЗаполнитьПоПоступившимПлатежам + 106 + true + true + + true + + + ФормаЗаполнитьПоПоступившимПлатежамРасширеннаяПодсказка + 107 + Label + true + true + + Left + + + Form.Command.ЗаполнитьПоПоступившимПлатежам + Normal + Auto + true + true + UserCmds + Auto + + + СоздатьПринятиеПлатежей + 108 + true + true + + true + + + ФормаСоздатьПринятиеПлатежейРасширеннаяПодсказка + 109 + Label + true + true + + Left + + + Form.Command.СоздатьПринятиеПлатежей + Normal + Auto + true + true + UserCmds + Auto + Left true @@ -1343,7 +1311,7 @@ Объект 1 - DocumentObject.ПС_ПринятиеЗадолженностиОтУчреждения + DocumentObject.ПС_ПередачаПоступившихПлатежейВУчреждения true @@ -1392,11 +1360,63 @@ + + ЗаполнитьПоПоступившимПлатежам + + <key>ru</key> + <value>Заполнить по поступившим платежам</value> + + 3 + + true + + + + ЗаполнитьПоПоступившимПлатежам + + + + + СоздатьПринятиеПлатежей + + <key>ru</key> + <value>Создать приём платежей</value> + + 4 + + true + + + + СоздатьПринятиеПлатежей + + + + + BeforeWrite + ПередЗаписью + + + BeforeWriteAtServer + ПередЗаписьюНаСервере + + + AfterWriteAtServer + ПослеЗаписиНаСервере + + + OnReadAtServer + ПриЧтенииНаСервере + + + AfterWrite + ПослеЗаписи + true diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Module.bsl new file mode 100644 index 0000000..466c0e9 --- /dev/null +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Forms/ФормаДокумента/Module.bsl @@ -0,0 +1,309 @@ +// ПС_ПередачаПоступившихПлатежейВУчреждения: модуль формы документа. + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + БухгалтерскиеОперацииСервер.ПриСозданииНаСервере(Отказ, СтандартнаяОбработка, Элементы.БухгалтерскаяОперация); + + // ИФО показывается только при включённом учёте по ИФО (как в типовых документах). + Элементы.ИФО.Видимость = ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО"); + // КПС определяется автоматически по настройкам учётной политики. + Элементы.ЗадолженностьКПС.ТолькоПросмотр = Истина; + + // Счёт, корреспондирующий со счётом 205.31, и его КЭК: значения по умолчанию. + ЗаполнитьКорреспондирующийСчетПоУмолчанию(); + + Если НЕ ЗначениеЗаполнено(Объект.Ссылка) + И НЕ ЗначениеЗаполнено(Объект.Организация) Тогда + Объект.Организация = Константы.ОрганизацияЦентрализованнаяБухгалтерия.Получить(); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ПриЧтенииНаСервере(ТекущийОбъект) + + БухгалтерскиеОперацииСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект, Элементы.БухгалтерскаяОперация); + +КонецПроцедуры + +&НаКлиенте +Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) + + БухгалтерскиеОперацииКлиент.ПередЗаписью(Отказ, ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + + БухгалтерскиеОперацииСервер.ПередЗаписью(Отказ, ТекущийОбъект, ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеЗаписи(ПараметрыЗаписи) + + БухгалтерскиеОперацииКлиент.ПослеЗаписи(ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаСервере +Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) + + БухгалтерскиеОперацииСервер.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовТаблицыФормыЗадолженность + +&НаКлиенте +Процедура ЗадолженностьПриИзменении(Элемент) + + Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ПечатьИзвещения(Команда) + + ТабличныйДокумент = ПечатьИзвещенияНаСервере(Объект.Ссылка); + ТабличныйДокумент.Показать("Извещение (ф. 0504805, ред. 103н) - отправитель"); + +КонецПроцедуры + +&НаКлиенте +Процедура ПросмотрБухгалтерскихЗаписей(Команда) + + ОткрытьБухгалтерскиеЗаписиДокумента(Объект.Ссылка); + +КонецПроцедуры + +&НаКлиенте +Процедура ЗаполнитьПоПоступившимПлатежам(Команда) + + ЗаполнитьПоПоступившимПлатежамНаСервере(); + +КонецПроцедуры + +&НаКлиенте +Процедура СоздатьПринятиеПлатежей(Команда) + + Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда + СообщениеПользователю = Новый СообщениеПользователю; + СообщениеПользователю.Текст = "Сначала запишите документ передачи платежей."; + СообщениеПользователю.Сообщить(); + Возврат; + КонецЕсли; + + Если НЕ Объект.Проведен Тогда + СообщениеПользователю = Новый СообщениеПользователю; + СообщениеПользователю.Текст = "Перед созданием приёма платежей документ передачи должен быть проведён."; + СообщениеПользователю.Сообщить(); + Возврат; + КонецЕсли; + + // По каждому учреждению табличной части открывается форма нового документа принятия: + // строки подбираются по саду документа, записывает документы пользователь. + ОрганизацииСадов = ОрганизацииСадовНаСервере(); + Если ОрганизацииСадов.Количество() = 0 Тогда + СообщениеПользователю = Новый СообщениеПользователю; + СообщениеПользователю.Текст = "В табличной части ""Задолженность"" не заполнены учреждения (получатели)."; + СообщениеПользователю.Сообщить(); + Возврат; + КонецЕсли; + + Для Каждого ОрганизацияСада Из ОрганизацииСадов Цикл + + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("ДокументПередачи", Объект.Ссылка); + ПараметрыФормы.Вставить("ОрганизацияСада", ОрганизацияСада); + + ОткрытьФорму("Документ.ПС_ПринятиеПоступившихПлатежейИзЦБ.Форма.ФормаДокумента", + ПараметрыФормы, + ЭтотОбъект, + Строка(Объект.Ссылка) + ":" + Строка(ОрганизацияСада)); + + КонецЦикла; + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Функция ПечатьИзвещенияНаСервере(ДокументСсылка) + + Возврат Документы.ПС_ПередачаПоступившихПлатежейВУчреждения.СформироватьПечатныеФормыИзвещений(ДокументСсылка); + +КонецФункции + +&НаСервере +Процедура ЗаполнитьКорреспондирующийСчетПоУмолчанию() + + Если НЕ ЗначениеЗаполнено(Объект.СчетКорреспондент) Тогда + Объект.СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(Объект.КЭККорреспондент) Тогда + Объект.КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); + КонецЕсли; + +КонецПроцедуры + +// Подбирает в табличную часть "Задолженность" поступившие платежи, ещё не переданные +// в учреждения: остатки регистра накопления ПС_ВзаиморасчетыПоРодительскойПлате. +// Предыдущая передача выбирает остатки, поэтому следующая их уже не видит. +// +&НаСервере +Процедура ЗаполнитьПоПоступившимПлатежамНаСервере() + + Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда + ОбщегоНазначения.СообщитьПользователю( + "Заполнение невозможно: не заполнена организация (ЦБ)."); + Возврат; + КонецЕсли; + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | Остатки.Учреждение КАК Учреждение, + | Остатки.Плательщик КАК Контрагент, + | Остатки.Договор КАК Договор, + | Остатки.Ребенок КАК Ребенок, + | Остатки.КПС КАК КПС, + | Остатки.ИФО КАК ИФО, + | Остатки.КФО КАК КФО, + | Остатки.СуммаОстаток КАК Сумма + |ИЗ + | РегистрНакопления.ПС_ВзаиморасчетыПоРодительскойПлате.Остатки( + | &МоментВремени, + | Организация = &Организация) КАК Остатки + |ГДЕ + | Остатки.СуммаОстаток <> 0 + | + |УПОРЯДОЧИТЬ ПО + | Остатки.Учреждение, + | Остатки.Плательщик, + | Остатки.Договор"; + // Поступившие платежи собираются на границу конца дня документа: кассовые поступления + // по умолчанию датируются 23:59:59 и при моменте времени, равном началу дня документа, + // в остатки не попадали. + Запрос.УстановитьПараметр("МоментВремени", КонецДня(Объект.Дата) + 1); + Запрос.УстановитьПараметр("Организация", Объект.Организация); + + Выборка = Запрос.Выполнить().Выбрать(); + + Объект.Задолженность.Очистить(); + Объект.СуммаДокумента = 0; + + ЗначенияИФО = Новый Соответствие; + ЗначенияКФО = Новый Соответствие; + + Пока Выборка.Следующий() Цикл + + ЗначенияИФО.Вставить(Выборка.ИФО, Истина); + ЗначенияКФО.Вставить(Выборка.КФО, Истина); + + НоваяСтрока = Объект.Задолженность.Добавить(); + НоваяСтрока.Учреждение = Выборка.Учреждение; + НоваяСтрока.Контрагент = Выборка.Контрагент; + НоваяСтрока.Договор = Выборка.Договор; + НоваяСтрока.Ребенок = Выборка.Ребенок; + НоваяСтрока.КПС = Выборка.КПС; + НоваяСтрока.Сумма = Выборка.Сумма; + + КонецЦикла; + + Если Объект.Задолженность.Количество() = 0 Тогда + ОбщегоНазначения.СообщитьПользователю( + "Поступивших платежей, ещё не переданных в учреждения, не найдено."); + Возврат; + КонецЕсли; + + Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); + + // Разрезов ИФО и КФО в табличной части нет - они задаются на весь документ, + // поэтому переносим их в шапку, если в остатках они единственные. + ЗаполнитьИФОиКФОПоОстаткам(ЗначенияИФО, ЗначенияКФО); + + Если ЗначенияИФО.Количество() > 1 ИЛИ ЗначенияКФО.Количество() > 1 Тогда + ОбщегоНазначения.СообщитьПользователю( + "Поступившие платежи найдены в разрезе нескольких ИФО и/или КФО, а в документе ИФО и КФО" + + " задаются на весь документ. Передайте их отдельными документами."); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ЗаполнитьИФОиКФОПоОстаткам(ЗначенияИФО, ЗначенияКФО) + + Если ЗначенияКФО.Количество() = 1 И НЕ ЗначениеЗаполнено(Объект.КФО) Тогда + Для Каждого КлючИЗначение Из ЗначенияКФО Цикл + Объект.КФО = КлючИЗначение.Ключ; + КонецЦикла; + КонецЕсли; + + Если ЗначенияИФО.Количество() = 1 И НЕ ЗначениеЗаполнено(Объект.ИФО) Тогда + Для Каждого КлючИЗначение Из ЗначенияИФО Цикл + Объект.ИФО = КлючИЗначение.Ключ; + КонецЦикла; + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ОткрытьБухгалтерскиеЗаписиДокумента(ДокументСсылка) + + ПараметрыФормы = Новый Структура; + Отбор = Новый Структура("Регистратор", ДокументСсылка); + ПараметрыФормы.Вставить("Отбор", Отбор); + + ОткрытьФорму("РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ФормаСписка", + ПараметрыФормы, + ЭтотОбъект, + УникальныйИдентификатор); + +КонецПроцедуры + +// Возвращает организации садов (учреждений), представленных в табличной части "Задолженность". +// Учреждение хранится в документе контрагентом, поэтому организация ищется по ИНН. +// +// Возвращаемое значение: +// Массив из СправочникСсылка.Организации - организации получателей в порядке появления в табличной части. +// +&НаСервере +Функция ОрганизацииСадовНаСервере() + + Учреждения = Новый Массив; + Для Каждого СтрокаЗадолженности Из Объект.Задолженность Цикл + Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.Учреждение) Тогда + Продолжить; + КонецЕсли; + Если Учреждения.Найти(СтрокаЗадолженности.Учреждение) = Неопределено Тогда + Учреждения.Добавить(СтрокаЗадолженности.Учреждение); + КонецЕсли; + КонецЦикла; + + Организации = Новый Массив; + Для Каждого Учреждение Из Учреждения Цикл + Организация = ПС_РаботаСКонтрагентами.ОрганизацияПоКонтрагенту(Учреждение, "Получатель (учреждение)"); + Если ЗначениеЗаполнено(Организация) Тогда + Организации.Добавить(Организация); + КонецЕсли; + КонецЦикла; + + Возврат Организации; + +КонецФункции + +#КонецОбласти diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ManagerModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ManagerModule.bsl similarity index 84% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ManagerModule.bsl rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ManagerModule.bsl index 8d79c13..79f8095 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ManagerModule.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ManagerModule.bsl @@ -1,4 +1,4 @@ -// ПС_ПринятиеЗадолженностиОтУчреждения: модуль менеджера. +// ПС_ПередачаПоступившихПлатежейВУчреждения: модуль менеджера. // Печатная форма извещения (ф. 0504805, ред. 103н) - сторона получателя (централизованная бухгалтерия). // Заполнение макета выполняет общая логика подсистемы: ПС_УчетРодительскойПлаты.ПечатьИзвещения0504805. @@ -10,7 +10,7 @@ // Вызывается из модуля формы документа кнопкой "Печать". // // Параметры: -// ДокументСсылка - ДокументСсылка.ПС_ПринятиеЗадолженностиОтУчреждения - печатаемый документ. +// ДокументСсылка - ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения - печатаемый документ. // // Возвращаемое значение: // ТабличныйДокумент diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ObjectModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ObjectModule.bsl new file mode 100644 index 0000000..ead9bd1 --- /dev/null +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ObjectModule.bsl @@ -0,0 +1,193 @@ +// ПС_ПередачаПоступившихПлатежейВУчреждения: модуль объекта. +// Сторона ЦБ: Дт 205.31.56X — Кт 304.04.130. +// Проводки формируются в процедуре ОбработкаПроведения прямым заполнением +// набора записей регистра бухгалтерии ЖурналПроводокЕПСБУ. +// Документ собирает поступившие платежи (приход в регистре накопления +// ПС_ВзаиморасчетыПоРодительскойПлате, сделанный кассовыми поступлениями) +// и передаёт их учреждениям — расход по тому же регистру. Пока передано не всё, +// остаток регистра ненулевой; он и служит контролем полноты передачи. + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область ОбработчикиСобытий + +Процедура ОбработкаПроведения(Отказ, РежимПроведения) + + Движения.ЖурналПроводокЕПСБУ.Очистить(); + Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; + Движения.ЖурналПроводокЕПСБУ.ДополнительныеСвойства.Вставить("НеФормироватьУчетныеДанныеИзПроводок"); + + Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Очистить(); + Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Записывать = Истина; + + СчетДт = БухгалтерскийУчет.СчетПоКоду("205.31", Дата, Организация); + + // Счёт, корреспондирующий со счётом расчётов по доходам, и его КЭК задаются + // реквизитами документа (по умолчанию 304.04 и 131) и могут быть изменены пользователем. + СчетКт = СчетКорреспондент; + Если НЕ ЗначениеЗаполнено(СчетКт) Тогда + ОбщегоНазначения.СообщитьПользователю( + "Не заполнен счёт, корреспондирующий со счётом 205.31. Проведение невозможно.", + , "СчетКорреспондент", "Объект", Отказ); + Возврат; + КонецЕсли; + + ЖурналОпераций = БухгалтерскийУчетПовтИсп.НомерЖурнала(СчетДт, СчетКт); + + // КПС строк заполняется при подборе поступивших платежей (см. модуль формы), + // КЭК счёта 205.31 определяется по настройкам счёта и типу контрагента (подстатья КОСГУ). + Для Каждого СтрокаЗадолженности Из Задолженность Цикл + + Движение = Движения.ЖурналПроводокЕПСБУ.Добавить(); + Движение.Период = Дата; + Движение.Организация = Организация; + Движение.ИФО = ИФО; + Движение.КФО = КФО; + Движение.СчетДт = СчетДт; + Движение.СчетКт = СчетКт; + Движение.КПСДт = СтрокаЗадолженности.КПС; + Движение.КПСКт = СтрокаЗадолженности.КПС; + Движение.КЭКДт = КЭКПроводки(СчетДт, "Дт", СтрокаЗадолженности.Контрагент, СтрокаЗадолженности.Договор); + Движение.КЭККт = КЭККорреспондент; + Движение.Сумма = СтрокаЗадолженности.Сумма; + Движение.ЖурналОпераций = ЖурналОпераций; + Движение.Содержание = "Передача поступивших платежей по родительской плате в учреждение"; + + Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = СтрокаЗадолженности.Контрагент; + Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Договоры] = СтрокаЗадолженности.Договор; + Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.КорреспондентыПоВнутреннимРасчетам] = СтрокаЗадолженности.Учреждение; + + // Взаиморасчёты: переданные в учреждение поступившие платежи списываются расходом. + ДвижениеПС = Движения.ПС_ВзаиморасчетыПоРодительскойПлате.ДобавитьРасход(); + ДвижениеПС.Период = Дата; + ДвижениеПС.Организация = Организация; + ДвижениеПС.Учреждение = СтрокаЗадолженности.Учреждение; + ДвижениеПС.Плательщик = СтрокаЗадолженности.Контрагент; + ДвижениеПС.Ребенок = СтрокаЗадолженности.Ребенок; + ДвижениеПС.Договор = СтрокаЗадолженности.Договор; + ДвижениеПС.ИФО = ИФО; + ДвижениеПС.КФО = КФО; + ДвижениеПС.КПС = СтрокаЗадолженности.КПС; + ДвижениеПС.Сумма = СтрокаЗадолженности.Сумма; + ДвижениеПС.ВидОперации = Перечисления.ПС_ВидыОперацийПоВзаиморасчетам.ПередачаВУчреждение; + ДвижениеПС.ИДСтроки = СтрокаЗадолженности.ИДСтроки; + + КонецЦикла; + + // В конфигурации есть подписка на событие "ОбработкаПроведения" (ЗаписатьТаблицуПроводок), + // которая выполняется после модуля объекта и перезаписывает проводки документа: если таблица + // проводок не передана, набор записей регистра очищается. Поэтому передаём сформированную + // таблицу через ДополнительныеСвойства.ДанныеАвтоПроведения.ТаблицаПроводок. + БухгалтерскиеОперацииСервер.ИнициализироватьБухгалтерскиеОперации(ЭтотОбъект); + ДополнительныеСвойства.ДанныеАвтоПроведения.ТаблицаПроводок = Движения.ЖурналПроводокЕПСБУ.Выгрузить(); + +КонецПроцедуры + +Процедура ОбработкаУдаленияПроведения(Отказ) + + Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; + Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Записывать = Истина; + +КонецПроцедуры + +Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) + + Если ОбменДанными.Загрузка Тогда + Возврат; + КонецЕсли; + + ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(ЭтотОбъект); + + ЗаполнитьРеквизитыПоУмолчанию(); + + СуммаДокумента = Задолженность.Итог("Сумма"); + +КонецПроцедуры + +Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) + + Если НЕ ЗначениеЗаполнено(Организация) Тогда + ОбщегоНазначения.СообщитьПользователю("Не заполнена организация (ЦБ)", , "Организация", "Объект", Отказ); + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(КФО) Тогда + ОбщегоНазначения.СообщитьПользователю("Не заполнен КФО", , "КФО", "Объект", Отказ); + КонецЕсли; + + Если Задолженность.Количество() = 0 Тогда + ОбщегоНазначения.СообщитьПользователю("Не заполнена табличная часть ""Задолженность""", , "Задолженность", "Объект", Отказ); + Иначе + Для Каждого СтрокаЗадолженности Из Задолженность Цикл + Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.Учреждение) Тогда + ОбщегоНазначения.СообщитьПользователю( + "Не заполнено учреждение в строке табличной части ""Задолженность"".", + , "Задолженность", "Объект", Отказ); + Прервать; + КонецЕсли; + Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.КПС) Тогда + ОбщегоНазначения.СообщитьПользователю( + "Не заполнен КПС строки табличной части ""Задолженность""." + + " Заполните строки по поступившим платежам.", + , "Задолженность", "Объект", Отказ); + Прервать; + КонецЕсли; + КонецЦикла; + КонецЕсли; + + СуммаПоТаблице = Задолженность.Итог("Сумма"); + Если СуммаДокумента <> СуммаПоТаблице Тогда + ОбщегоНазначения.СообщитьПользователю("Сумма документа не совпадает с итогом по табличной части", , "СуммаДокумента", "Объект", Отказ); + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +// Заполняет счёт, корреспондирующий со счётом расчётов по доходам (205.31), и его КЭК +// значениями по умолчанию, если они не заданы пользователем. +// +Процедура ЗаполнитьРеквизитыПоУмолчанию() + + Если НЕ ЗначениеЗаполнено(СчетКорреспондент) Тогда + СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(КЭККорреспондент) Тогда + КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); + КонецЕсли; + +КонецПроцедуры + +// Возвращает КЭК проводки, определённый по настройкам счёта +// и типу контрагента (подстатья КОСГУ). +// +// Параметры: +// Счет - ПланСчетовСсылка.ЕПСБУ - счёт проводки. +// ДтКт - Строка - сторона проводки: "Дт" или "Кт". +// Субконто1 - Произвольный - значение первого субконто проводки. +// Субконто2 - Произвольный - значение второго субконто проводки. +// +// Возвращаемое значение: +// СправочникСсылка.КОСГУ - КЭК проводки. +// +Функция КЭКПроводки(Счет, ДтКт, Субконто1 = Неопределено, Субконто2 = Неопределено) + + ПараметрыКЭК = БухгалтерскийУчетКлиентСервер.ПараметрыРасчетаКЭКПроводки(); + ПараметрыКЭК.Организация = Организация; + ПараметрыКЭК.ИФО = ИФО; + ПараметрыКЭК.КФО = КФО; + ПараметрыКЭК.Дата = Дата; + ПараметрыКЭК.Счет = Счет; + ПараметрыКЭК.ДтКт = ДтКт; + ПараметрыКЭК.Субконто1 = Субконто1; + ПараметрыКЭК.Субконто2 = Субконто2; + + Возврат БухгалтерскийУчет.КЭКПроводки(ПараметрыКЭК); + +КонецФункции + +#КонецОбласти + +#КонецЕсли diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx similarity index 99% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx index 8d17fed..b80a0c7 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx @@ -1186,12 +1186,7 @@ 2 59 - - - ru - - - + @@ -2360,12 +2355,7 @@ 2 59 - - - ru - - - + @@ -3992,6 +3982,8 @@ -1 + #000080 + #000080 Solid diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ПС_ПринятиеЗадолженностиОтУчреждения.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ПС_ПередачаПоступившихПлатежейВУчреждения.mdo similarity index 82% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ПС_ПринятиеЗадолженностиОтУчреждения.mdo rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ПС_ПередачаПоступившихПлатежейВУчреждения.mdo index 5e14160..5995bb3 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ПС_ПринятиеЗадолженностиОтУчреждения.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаПоступившихПлатежейВУчреждения/ПС_ПередачаПоступившихПлатежейВУчреждения.mdo @@ -7,10 +7,10 @@ - ПС_ПринятиеЗадолженностиОтУчреждения + ПС_ПередачаПоступившихПлатежейВУчреждения ru - Принятие в ЦБ начислений от учреждения + Передача поступивших платежей в учреждения true DontUse @@ -18,18 +18,18 @@ Use ru - Принятие задолженности от учреждения + Передача поступивших платежей в учреждение ru - Принятия в ЦБ начислений от учреждения + Передачи поступивших платежей в учреждения String 9 Variable true true - Document.ПС_ПринятиеЗадолженностиОтУчреждения.Form.ФормаДокумента + Document.ПС_ПередачаПоступившихПлатежейВУчреждения.Form.ФормаДокумента AccountingRegister.ЖурналПроводокЕПСБУ AccumulationRegister.ПС_ВзаиморасчетыПоРодительскойПлате true @@ -38,7 +38,7 @@ Организация ru - Организация (ЦБ) + Отправитель (ЦБ) CatalogRef.Организации @@ -64,21 +64,6 @@ Use Use - - Учреждение - - ru - Учреждение-отправитель - - - CatalogRef.Контрагенты - - - - - Use - Use - Период @@ -116,21 +101,6 @@ Use Use - - ДокументПередачи - - ru - Документ передачи - - - DocumentRef.ПС_ПередачаЗадолженностиВЦБ - - - - - Use - Use - Ответственный @@ -178,21 +148,6 @@ Use Use - - ПередачаСальдо - - ru - Передача начального сальдо - - - Boolean - - - - - Use - Use - КЭККорреспондент @@ -327,6 +282,20 @@ Use Use + + Учреждение + + ru + Получатель (учреждение) + + + CatalogRef.Контрагенты + + + + Use + Use + ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Module.bsl deleted file mode 100644 index 1246c2e..0000000 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Forms/ФормаДокумента/Module.bsl +++ /dev/null @@ -1,232 +0,0 @@ -// ПС_ПринятиеЗадолженностиОтУчреждения: модуль формы документа. - -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - - БухгалтерскиеОперацииСервер.ПриСозданииНаСервере(Отказ, СтандартнаяОбработка, Элементы.БухгалтерскаяОперация); - - // ИФО показывается только при включённом учёте по ИФО (как в типовых документах). - Элементы.ИФО.Видимость = ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО"); - // КПС определяется автоматически по настройкам учётной политики. - Элементы.ЗадолженностьКПС.ТолькоПросмотр = Истина; - - // Счёт, корреспондирующий со счётом 205.31, и его КЭК: значения по умолчанию - // (в режиме начального сальдо наследуются из документа передачи). - ЗаполнитьКорреспондирующийСчетПоУмолчанию(); - - Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда - Основание = Неопределено; - Если Параметры.Свойство("Основание", Основание) - И ТипЗнч(Основание) = Тип("ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ") Тогда - Объект.ДокументПередачи = Основание; - ЗаполнитьПоДокументуПередачиНаСервере(Основание); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда - Объект.Организация = Константы.ОрганизацияЦентрализованнаяБухгалтерия.Получить(); - КонецЕсли; - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ПриЧтенииНаСервере(ТекущийОбъект) - - БухгалтерскиеОперацииСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект, Элементы.БухгалтерскаяОперация); - -КонецПроцедуры - -&НаКлиенте -Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) - - БухгалтерскиеОперацииКлиент.ПередЗаписью(Отказ, ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаСервере -Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) - - БухгалтерскиеОперацииСервер.ПередЗаписью(Отказ, ТекущийОбъект, ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаКлиенте -Процедура ПослеЗаписи(ПараметрыЗаписи) - - БухгалтерскиеОперацииКлиент.ПослеЗаписи(ПараметрыЗаписи, ЭтотОбъект); - -КонецПроцедуры - -&НаСервере -Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) - - БухгалтерскиеОперацииСервер.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи); - -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура ПечатьИзвещения(Команда) - - ТабличныйДокумент = ПечатьИзвещенияНаСервере(Объект.Ссылка); - ТабличныйДокумент.Показать("Извещение (ф. 0504805, ред. 103н) - получатель"); - -КонецПроцедуры - -&НаКлиенте -Процедура ПросмотрБухгалтерскихЗаписей(Команда) - - ОткрытьБухгалтерскиеЗаписиДокумента(Объект.Ссылка); - -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовФормы - -&НаКлиенте -Процедура ДокументПередачиПриИзменении(Элемент) - - Если ЗначениеЗаполнено(Объект.ДокументПередачи) Тогда - ЗаполнитьПоДокументуПередачиНаСервере(Объект.ДокументПередачи); - Иначе - Объект.Задолженность.Очистить(); - Объект.СуммаДокумента = 0; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ЗадолженностьПриИзменении(Элемент) - - Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); - -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -&НаСервере -Функция ПечатьИзвещенияНаСервере(ДокументСсылка) - - Возврат Документы.ПС_ПринятиеЗадолженностиОтУчреждения.СформироватьПечатныеФормыИзвещений(ДокументСсылка); - -КонецФункции - -&НаСервере -Процедура ЗаполнитьКорреспондирующийСчетПоУмолчанию() - - Если НЕ ЗначениеЗаполнено(Объект.СчетКорреспондент) Тогда - Объект.СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(Объект.КЭККорреспондент) Тогда - Объект.КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ЗаполнитьПоДокументуПередачиНаСервере(ДокументПередачиСсылка) - - Если НЕ ЗначениеЗаполнено(ДокументПередачиСсылка) Тогда - Возврат; - КонецЕсли; - - // Заполнение возможно только на основании проведённого документа передачи. - Если НЕ ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДокументПередачиСсылка, "Проведен") Тогда - ОбщегоНазначения.СообщитьПользователю( - "Заполнение документа возможно только на основании проведённого документа передачи задолженности."); - Возврат; - КонецЕсли; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | ПередачаЗадолженности.ЦБ КАК Организация, - | ПередачаЗадолженности.Организация КАК Учреждение, - | ПередачаЗадолженности.ИФО КАК ИФО, - | ПередачаЗадолженности.Ответственный КАК Ответственный, - | ПередачаЗадолженности.Период КАК Период - |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ КАК ПередачаЗадолженности - |ГДЕ - | ПередачаЗадолженности.Ссылка = &Ссылка - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ - | ПередачаЗадолженностиЗадолженность.Контрагент КАК Контрагент, - | ПередачаЗадолженностиЗадолженность.Договор КАК Договор, - | ПередачаЗадолженностиЗадолженность.Ребенок КАК Ребенок, - | ПередачаЗадолженностиЗадолженность.ИДСтроки КАК ИДСтроки, - | ПередачаЗадолженностиЗадолженность.Сумма КАК Сумма - |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ.Задолженность КАК ПередачаЗадолженностиЗадолженность - |ГДЕ - | ПередачаЗадолженностиЗадолженность.Ссылка = &Ссылка"; - Запрос.УстановитьПараметр("Ссылка", ДокументПередачиСсылка); - - Результаты = Запрос.ВыполнитьПакет(); - - ВыборкаШапка = Результаты[0].Выбрать(); - Если НЕ ВыборкаШапка.Следующий() Тогда - Возврат; - КонецЕсли; - - Объект.Организация = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(ВыборкаШапка.Организация, "Организация (ЦБ)"); - Объект.Учреждение = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(ВыборкаШапка.Учреждение, "Учреждение-отправитель"); - Объект.Ответственный = ВыборкаШапка.Ответственный; - Объект.Период = ВыборкаШапка.Период; - Объект.ДокументПередачи = ДокументПередачиСсылка; - - // Режим начального сальдо и корреспондирующий счёт с КЭК наследуются от документа передачи. - РеквизитыПередачи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ДокументПередачиСсылка, - "ПередачаСальдо, СчетКорреспондент, КЭККорреспондент"); - Объект.ПередачаСальдо = РеквизитыПередачи.ПередачаСальдо; - Объект.СчетКорреспондент = РеквизитыПередачи.СчетКорреспондент; - Объект.КЭККорреспондент = РеквизитыПередачи.КЭККорреспондент; - - Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда - Объект.ИФО = ВыборкаШапка.ИФО; - КонецЕсли; - - Объект.Задолженность.Очистить(); - Объект.СуммаДокумента = 0; - - ВыборкаСтроки = Результаты[1].Выбрать(); - Пока ВыборкаСтроки.Следующий() Цикл - - НоваяСтрока = Объект.Задолженность.Добавить(); - ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыборкаСтроки); - Объект.СуммаДокумента = Объект.СуммаДокумента + ВыборкаСтроки.Сумма; - - КонецЦикла; - - // КФО документа и КПС строк - из проводок документа передачи. - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(Объект, ДокументПередачиСсылка); - -КонецПроцедуры - -&НаКлиенте -Процедура ОткрытьБухгалтерскиеЗаписиДокумента(ДокументСсылка) - - ПараметрыФормы = Новый Структура; - Отбор = Новый Структура("Регистратор", ДокументСсылка); - ПараметрыФормы.Вставить("Отбор", Отбор); - - ОткрытьФорму("РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ФормаСписка", - ПараметрыФормы, - ЭтотОбъект, - УникальныйИдентификатор); - -КонецПроцедуры - -#КонецОбласти - diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ObjectModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ObjectModule.bsl deleted file mode 100644 index 81d6d1a..0000000 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/ObjectModule.bsl +++ /dev/null @@ -1,290 +0,0 @@ -// ПС_ПринятиеЗадолженностиОтУчреждения: модуль объекта. -// Сторона ЦБ: Дт 205.31.56X — Кт 304.04.130. -// Проводки формируются в процедуре ОбработкаПроведения прямым заполнением -// набора записей регистра бухгалтерии ЖурналПроводокЕПСБУ. -// Кроме проводок документ формирует приход в регистре накопления -// ПС_ВзаиморасчетыПоРодительскойПлате (принятая от учреждения задолженность). - -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - -#Область ОбработчикиСобытий - -Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка) - - Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ") Тогда - - // Заполнение возможно только на основании проведённого документа передачи. - Если НЕ ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДанныеЗаполнения, "Проведен") Тогда - ОбщегоНазначения.СообщитьПользователю( - "Заполнение документа возможно только на основании проведённого документа передачи задолженности."); - Возврат; - КонецЕсли; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | ПередачаЗадолженности.ЦБ КАК Организация, - | ПередачаЗадолженности.Организация КАК Учреждение, - | ПередачаЗадолженности.ИФО КАК ИФО, - | ПередачаЗадолженности.Ответственный КАК Ответственный, - | ПередачаЗадолженности.Период КАК Период, - | ПередачаЗадолженности.КФО КАК КФО, - | ПередачаЗадолженности.ПередачаСальдо КАК ПередачаСальдо, - | ПередачаЗадолженности.СчетКорреспондент КАК СчетКорреспондент, - | ПередачаЗадолженности.КЭККорреспондент КАК КЭККорреспондент - |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ КАК ПередачаЗадолженности - |ГДЕ - | ПередачаЗадолженности.Ссылка = &Ссылка"; - Запрос.УстановитьПараметр("Ссылка", ДанныеЗаполнения); - ВыборкаШапка = Запрос.Выполнить().Выбрать(); - Если ВыборкаШапка.Следующий() Тогда - // Организация на стороне ЦБ — берём организацию-получатель из передачи (это и есть ЦБ). - ОрганизацияЦБ = ВыборкаШапка.Организация; - Если ЗначениеЗаполнено(ОрганизацияЦБ) Тогда - Организация = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(ОрганизацияЦБ, "Организация (ЦБ)"); - КонецЕсли; - // Учреждение-отправитель (ПБС) — берём организацию-отправитель из передачи - // (там тип CatalogRef.Организации), а в нашем документе нужен CatalogRef.Контрагенты. - УчреждениеОрганизация = ВыборкаШапка.Учреждение; - Если ЗначениеЗаполнено(УчреждениеОрганизация) Тогда - Учреждение = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(УчреждениеОрганизация, "Учреждение-отправитель"); - КонецЕсли; - Ответственный = ВыборкаШапка.Ответственный; - Период = ВыборкаШапка.Период; - КФО = ВыборкаШапка.КФО; - ДокументПередачи = ДанныеЗаполнения; - // Режим начального сальдо и корреспондирующий счёт с КЭК наследуются от передачи. - ПередачаСальдо = ВыборкаШапка.ПередачаСальдо; - СчетКорреспондент = ВыборкаШапка.СчетКорреспондент; - КЭККорреспондент = ВыборкаШапка.КЭККорреспондент; - // Учёт по ИФО ведётся только при включённой функциональной опции. - Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда - ИФО = ВыборкаШапка.ИФО; - КонецЕсли; - КонецЕсли; - - ЗапросСтроки = Новый Запрос; - ЗапросСтроки.Текст = - "ВЫБРАТЬ - | ПередачаЗадолженностиЗадолженность.Контрагент КАК Контрагент, - | ПередачаЗадолженностиЗадолженность.Договор КАК Договор, - | ПередачаЗадолженностиЗадолженность.Ребенок КАК Ребенок, - | ПередачаЗадолженностиЗадолженность.ИДСтроки КАК ИДСтроки, - | ПередачаЗадолженностиЗадолженность.Сумма КАК Сумма - |ИЗ - | Документ.ПС_ПередачаЗадолженностиВЦБ.Задолженность КАК ПередачаЗадолженностиЗадолженность - |ГДЕ - | ПередачаЗадолженностиЗадолженность.Ссылка = &Ссылка"; - ЗапросСтроки.УстановитьПараметр("Ссылка", ДанныеЗаполнения); - ВыборкаСтроки = ЗапросСтроки.Выполнить().Выбрать(); - Пока ВыборкаСтроки.Следующий() Цикл - НоваяСтрока = Задолженность.Добавить(); - ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыборкаСтроки); - СуммаДокумента = СуммаДокумента + ВыборкаСтроки.Сумма; - КонецЦикла; - - // КФО документа и КПС строк - из проводок документа передачи. - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(ЭтотОбъект, ДанныеЗаполнения); - - КонецЕсли; - -КонецПроцедуры - -Процедура ОбработкаПроведения(Отказ, РежимПроведения) - - Движения.ЖурналПроводокЕПСБУ.Очистить(); - Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; - Движения.ЖурналПроводокЕПСБУ.ДополнительныеСвойства.Вставить("НеФормироватьУчетныеДанныеИзПроводок"); - - Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Очистить(); - Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Записывать = Истина; - - СчетДт = БухгалтерскийУчет.СчетПоКоду("205.31", Дата, Организация); - - // Счёт, корреспондирующий со счётом расчётов по доходам, и его КЭК наследуются - // из документа передачи (заполняются при вводе на основании). - СчетКт = СчетКорреспондент; - Если НЕ ЗначениеЗаполнено(СчетКт) Тогда - ОбщегоНазначения.СообщитьПользователю( - "Не заполнен счёт, корреспондирующий со счётом 205.31. Проведение невозможно.", - , "СчетКорреспондент", "Объект", Отказ); - Возврат; - КонецЕсли; - - ЖурналОпераций = БухгалтерскийУчетПовтИсп.НомерЖурнала(СчетДт, СчетКт); - - // КПС строк наследуется из проводок документа передачи (см. ЗаполнитьКПССтрок), - // КЭК счёта 205.31 определяется по настройкам счёта и типу контрагента (подстатья КОСГУ). - Для Каждого СтрокаЗадолженности Из Задолженность Цикл - - Движение = Движения.ЖурналПроводокЕПСБУ.Добавить(); - Движение.Период = Дата; - Движение.Организация = Организация; - Движение.ИФО = ИФО; - Движение.КФО = КФО; - Движение.СчетДт = СчетДт; - Движение.СчетКт = СчетКт; - Движение.КПСДт = СтрокаЗадолженности.КПС; - Движение.КПСКт = СтрокаЗадолженности.КПС; - Движение.КЭКДт = КЭКПроводки(СчетДт, "Дт", СтрокаЗадолженности.Контрагент, СтрокаЗадолженности.Договор); - Движение.КЭККт = КЭККорреспондент; - Движение.Сумма = СтрокаЗадолженности.Сумма; - Движение.ЖурналОпераций = ЖурналОпераций; - Движение.Содержание = "Принятие задолженности по родительской плате от учреждения"; - - Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = СтрокаЗадолженности.Контрагент; - Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Договоры] = СтрокаЗадолженности.Договор; - Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.КорреспондентыПоВнутреннимРасчетам] = Учреждение; - - // Взаиморасчеты по родительской плате: принятая от учреждения задолженность. - ДвижениеПС = Движения.ПС_ВзаиморасчетыПоРодительскойПлате.ДобавитьПриход(); - ДвижениеПС.Период = Дата; - ДвижениеПС.Организация = Организация; - ДвижениеПС.Учреждение = Учреждение; - ДвижениеПС.Плательщик = СтрокаЗадолженности.Контрагент; - ДвижениеПС.Ребенок = СтрокаЗадолженности.Ребенок; - ДвижениеПС.Договор = СтрокаЗадолженности.Договор; - ДвижениеПС.ИФО = ИФО; - ДвижениеПС.КФО = КФО; - ДвижениеПС.КПС = СтрокаЗадолженности.КПС; - ДвижениеПС.Сумма = СтрокаЗадолженности.Сумма; - ДвижениеПС.ВидОперации = ?(ПередачаСальдо, - Перечисления.ПС_ВидыОперацийПоВзаиморасчетам.НачальноеСальдо, - Перечисления.ПС_ВидыОперацийПоВзаиморасчетам.ПринятоОтУчреждения); - ДвижениеПС.ИДСтроки = СтрокаЗадолженности.ИДСтроки; - ДвижениеПС.ДокументПередачи = ДокументПередачи; - - КонецЦикла; - - // В конфигурации есть подписка на событие "ОбработкаПроведения" (ЗаписатьТаблицуПроводок), - // которая выполняется после модуля объекта и перезаписывает проводки документа: если таблица - // проводок не передана, набор записей регистра очищается. Поэтому передаём сформированную - // таблицу через ДополнительныеСвойства.ДанныеАвтоПроведения.ТаблицаПроводок. - БухгалтерскиеОперацииСервер.ИнициализироватьБухгалтерскиеОперации(ЭтотОбъект); - ДополнительныеСвойства.ДанныеАвтоПроведения.ТаблицаПроводок = Движения.ЖурналПроводокЕПСБУ.Выгрузить(); - -КонецПроцедуры - -Процедура ОбработкаУдаленияПроведения(Отказ) - - Движения.ЖурналПроводокЕПСБУ.Записывать = Истина; - Движения.ПС_ВзаиморасчетыПоРодительскойПлате.Записывать = Истина; - -КонецПроцедуры - -Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) - - Если ОбменДанными.Загрузка Тогда - Возврат; - КонецЕсли; - - ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(ЭтотОбъект); - - ЗаполнитьРеквизитыПоУмолчанию(); - - СуммаДокумента = Задолженность.Итог("Сумма"); - ЗаполнитьКПССтрок(); - -КонецПроцедуры - -Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) - - Если НЕ ЗначениеЗаполнено(Организация) Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнена организация (ЦБ)", , "Организация", "Объект", Отказ); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(Учреждение) Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнено учреждение (сад-отправитель)", , "Учреждение", "Объект", Отказ); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(ДокументПередачи) Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнен документ передачи задолженности", , "ДокументПередачи", "Объект", Отказ); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(КФО) Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнен КФО", , "КФО", "Объект", Отказ); - КонецЕсли; - - Если Задолженность.Количество() = 0 Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнена табличная часть ""Задолженность""", , "Задолженность", "Объект", Отказ); - Иначе - Для Каждого СтрокаЗадолженности Из Задолженность Цикл - Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.КПС) Тогда - ТекстСообщения = "Не заполнен КПС строки табличной части ""Задолженность""."; - Если НЕ ПередачаСальдо Тогда - ТекстСообщения = ТекстСообщения - + " Заполнение возможно только на основании проведённого документа передачи задолженности."; - КонецЕсли; - ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Задолженность", "Объект", Отказ); - Прервать; - КонецЕсли; - КонецЦикла; - КонецЕсли; - - СуммаПоТаблице = Задолженность.Итог("Сумма"); - Если СуммаДокумента <> СуммаПоТаблице Тогда - ОбщегоНазначения.СообщитьПользователю("Сумма документа не совпадает с итогом по табличной части", , "СуммаДокумента", "Объект", Отказ); - КонецЕсли; - -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -// Заполняет счёт, корреспондирующий со счётом расчётов по доходам (205.31), и его КЭК -// значениями по умолчанию, если они не заданы пользователем. -// -Процедура ЗаполнитьРеквизитыПоУмолчанию() - - Если НЕ ЗначениеЗаполнено(СчетКорреспондент) Тогда - СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); - КонецЕсли; - - Если НЕ ЗначениеЗаполнено(КЭККорреспондент) Тогда - КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); - КонецЕсли; - -КонецПроцедуры - -// Заполняет строки табличной части "Задолженность" КПС, унаследованным -// из проводок документа передачи задолженности. -// -Процедура ЗаполнитьКПССтрок() - - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(ЭтотОбъект, ДокументПередачи); - -КонецПроцедуры - -// Возвращает КЭК проводки, определённый по настройкам счёта -// и типу контрагента (подстатья КОСГУ). -// -// Параметры: -// Счет - ПланСчетовСсылка.ЕПСБУ - счёт проводки. -// ДтКт - Строка - сторона проводки: "Дт" или "Кт". -// Субконто1 - Произвольный - значение первого субконто проводки. -// Субконто2 - Произвольный - значение второго субконто проводки. -// -// Возвращаемое значение: -// СправочникСсылка.КОСГУ - КЭК проводки. -// -Функция КЭКПроводки(Счет, ДтКт, Субконто1 = Неопределено, Субконто2 = Неопределено) - - ПараметрыКЭК = БухгалтерскийУчетКлиентСервер.ПараметрыРасчетаКЭКПроводки(); - ПараметрыКЭК.Организация = Организация; - ПараметрыКЭК.ИФО = ИФО; - ПараметрыКЭК.КФО = КФО; - ПараметрыКЭК.Дата = Дата; - ПараметрыКЭК.Счет = Счет; - ПараметрыКЭК.ДтКт = ДтКт; - ПараметрыКЭК.Субконто1 = Субконто1; - ПараметрыКЭК.Субконто2 = Субконто2; - - Возврат БухгалтерскийУчет.КЭКПроводки(ПараметрыКЭК); - -КонецФункции - -#КонецОбласти - -#КонецЕсли diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Form.form b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Form.form similarity index 92% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Form.form rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Form.form index f452bac..ed4f03d 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/Forms/ФормаДокумента/Form.form +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Form.form @@ -873,27 +873,23 @@ ГруппаСтраницыОперации 94 - ПередачаСальдо - 98 - - <key>ru</key> - <value>Передача начального сальдо</value> - + ДокументПередачи + 111 true true true - Объект.ПередачаСальдо + Объект.ДокументПередачи OnChange - ПередачаСальдоПриИзменении + ДокументПередачиПриИзменении - ПередачаСальдоРасширеннаяПодсказка - 100 + ДокументПередачиРасширеннаяПодсказка + 113 Label true true @@ -902,49 +898,12 @@ - ПередачаСальдоКонтекстноеМеню - 99 - true - - CheckBoxField - Enter - true - Left - true - - - - ДокументНачисления - 19 - true - true - - true - - - Объект.ДокументНачисления - - - OnChange - ДокументНачисленияПриИзменении - - - ДокументНачисленияРасширеннаяПодсказка - 21 - Label - true - true - - Left - - - - ДокументНачисленияКонтекстноеМеню - 20 + ДокументПередачиКонтекстноеМеню + 112 true InputField - EnterOnInput + Enter true Left true @@ -952,7 +911,6 @@ true true true - true true true true @@ -1398,16 +1356,16 @@ Auto - СоздатьПринятиеЗадолженностиНаОсновании - 77 + ЗаполнитьПоДокументуПередачи + 114 true true true - ФормаСоздатьПринятиеЗадолженностиНаОснованииРасширеннаяПодсказка - 78 + ФормаЗаполнитьПоДокументуПередачиРасширеннаяПодсказка + 115 Label true true @@ -1415,33 +1373,7 @@ Left - Form.Command.СоздатьПринятиеЗадолженностиНаОсновании - Normal - Auto - true - true - UserCmds - Auto - - - ЗаполнитьПоОстаткам20531 - 107 - true - true - - true - - - ФормаЗаполнитьПоОстаткам20531РасширеннаяПодсказка - 108 - Label - true - true - - Left - - - Form.Command.ЗаполнитьПоОстаткам20531 + Form.Command.ЗаполнитьПоДокументуПередачи Normal Auto true @@ -1469,7 +1401,7 @@ Объект 1 - DocumentObject.ПС_ПередачаЗадолженностиВЦБ + DocumentObject.ПС_ПринятиеПоступившихПлатежейИзЦБ true @@ -1519,10 +1451,10 @@ - СоздатьПринятиеЗадолженностиНаОсновании + ЗаполнитьПоДокументуПередачи <key>ru</key> - <value>Создать принятие на основании</value> + <value>Заполнить по документу передачи</value> 3 @@ -1530,23 +1462,7 @@ - ПС_СоздатьПринятиеЗадолженностиНаОсновании - - - - - ЗаполнитьПоОстаткам20531 - - <key>ru</key> - <value>Заполнить по остаткам счета 205.31</value> - - 4 - - true - - - - ЗаполнитьПоОстаткам20531 + ЗаполнитьПоДокументуПередачи diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Module.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Module.bsl new file mode 100644 index 0000000..0fc5819 --- /dev/null +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Forms/ФормаДокумента/Module.bsl @@ -0,0 +1,200 @@ +// ПС_ПринятиеПоступившихПлатежейИзЦБ: модуль формы документа. + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + БухгалтерскиеОперацииСервер.ПриСозданииНаСервере(Отказ, СтандартнаяОбработка, Элементы.БухгалтерскаяОперация); + + // ИФО показывается только при включённом учёте по ИФО (как в типовых документах). + Элементы.ИФО.Видимость = ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО"); + // КПС определяется автоматически по настройкам учётной политики. + Элементы.ЗадолженностьКПС.ТолькоПросмотр = Истина; + + // Счёт, корреспондирующий со счётом 205.31, и его КЭК: значения по умолчанию. + ЗаполнитьКорреспондирующийСчетПоУмолчанию(); + + Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда + + // Сад (получатель) задаётся при открытии формы из документа передачи платежей: + // до заполнения он должен быть известен, иначе строки не подберутся. + ОрганизацияСада = Неопределено; + Если Параметры.Свойство("ОрганизацияСада", ОрганизацияСада) + И ЗначениеЗаполнено(ОрганизацияСада) Тогда + Объект.Организация = ОрганизацияСада; + КонецЕсли; + + // Форма открывается командой "Создать приём платежей" документа передачи: + // из него переносятся реквизиты учёта, а строки подбираются по саду документа. + ДокументПередачи = Неопределено; + Если Параметры.Свойство("ДокументПередачи", ДокументПередачи) + И ТипЗнч(ДокументПередачи) = Тип("ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения") Тогда + ДокументОбъект = РеквизитФормыВЗначение("Объект"); + ДокументОбъект.Заполнить(ДокументПередачи); + ЗначениеВРеквизитФормы(ДокументОбъект, "Объект"); + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(Объект.ЦБ) Тогда + Объект.ЦБ = ПС_РаботаСКонтрагентами.КонтрагентЦБПоУмолчанию(); + КонецЕсли; + + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ПриЧтенииНаСервере(ТекущийОбъект) + + БухгалтерскиеОперацииСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект, Элементы.БухгалтерскаяОперация); + +КонецПроцедуры + +&НаКлиенте +Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) + + БухгалтерскиеОперацииКлиент.ПередЗаписью(Отказ, ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + + БухгалтерскиеОперацииСервер.ПередЗаписью(Отказ, ТекущийОбъект, ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеЗаписи(ПараметрыЗаписи) + + БухгалтерскиеОперацииКлиент.ПослеЗаписи(ПараметрыЗаписи, ЭтотОбъект); + +КонецПроцедуры + +&НаСервере +Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) + + БухгалтерскиеОперацииСервер.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура ДокументПередачиПриИзменении(Элемент) + + // При смене документа передачи строки подбираются заново по саду документа. + Если ЗначениеЗаполнено(Объект.ДокументПередачи) + И ЗначениеЗаполнено(Объект.Организация) Тогда + ЗаполнитьПоДокументуПередачиНаСервере(); + Иначе + Объект.Задолженность.Очистить(); + Объект.СуммаДокумента = 0; + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовТаблицыФормыЗадолженность + +&НаКлиенте +Процедура ЗадолженностьПриИзменении(Элемент) + + Объект.СуммаДокумента = Объект.Задолженность.Итог("Сумма"); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ПечатьИзвещения(Команда) + + ТабличныйДокумент = ПечатьИзвещенияНаСервере(Объект.Ссылка); + ТабличныйДокумент.Показать("Извещение (ф. 0504805, ред. 103н) - получатель"); + +КонецПроцедуры + +&НаКлиенте +Процедура ПросмотрБухгалтерскихЗаписей(Команда) + + ОткрытьБухгалтерскиеЗаписиДокумента(Объект.Ссылка); + +КонецПроцедуры + +&НаКлиенте +Процедура ЗаполнитьПоДокументуПередачи(Команда) + + Если НЕ ЗначениеЗаполнено(Объект.ДокументПередачи) Тогда + СообщениеПользователю = Новый СообщениеПользователю; + СообщениеПользователю.Текст = "Не заполнен документ передачи платежей."; + СообщениеПользователю.Сообщить(); + Возврат; + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(Объект.Организация) Тогда + СообщениеПользователю = Новый СообщениеПользователю; + СообщениеПользователю.Текст = "Укажите организацию (учреждение-сад), чтобы подобрать строки."; + СообщениеПользователю.Сообщить(); + Возврат; + КонецЕсли; + + ЗаполнитьПоДокументуПередачиНаСервере(); + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Функция ПечатьИзвещенияНаСервере(ДокументСсылка) + + Возврат Документы.ПС_ПринятиеПоступившихПлатежейИзЦБ.СформироватьПечатныеФормыИзвещений(ДокументСсылка); + +КонецФункции + +&НаСервере +Процедура ЗаполнитьКорреспондирующийСчетПоУмолчанию() + + Если НЕ ЗначениеЗаполнено(Объект.СчетКорреспондент) Тогда + Объект.СчетКорреспондент = ПС_УчетРодительскойПлаты.СчетКорреспондентПоУмолчанию(); + КонецЕсли; + + Если НЕ ЗначениеЗаполнено(Объект.КЭККорреспондент) Тогда + Объект.КЭККорреспондент = ПС_УчетРодительскойПлаты.КЭККорреспондентПоУмолчанию(); + КонецЕсли; + +КонецПроцедуры + +// Подбирает строки табличной части "Задолженность" из документа передачи по саду +// документа (реквизит "Организация"). +// +&НаСервере +Процедура ЗаполнитьПоДокументуПередачиНаСервере() + + ДокументОбъект = РеквизитФормыВЗначение("Объект"); + ДокументОбъект.Заполнить(Объект.ДокументПередачи); + ЗначениеВРеквизитФормы(ДокументОбъект, "Объект"); + +КонецПроцедуры + +&НаКлиенте +Процедура ОткрытьБухгалтерскиеЗаписиДокумента(ДокументСсылка) + + ПараметрыФормы = Новый Структура; + Отбор = Новый Структура("Регистратор", ДокументСсылка); + ПараметрыФормы.Вставить("Отбор", Отбор); + + ОткрытьФорму("РегистрБухгалтерии.ЖурналПроводокЕПСБУ.ФормаСписка", + ПараметрыФормы, + ЭтотОбъект, + УникальныйИдентификатор); + +КонецПроцедуры + +#КонецОбласти diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ManagerModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ManagerModule.bsl similarity index 85% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ManagerModule.bsl rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ManagerModule.bsl index 6e8988f..774f7df 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ManagerModule.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ManagerModule.bsl @@ -1,4 +1,4 @@ -// ПС_ПередачаЗадолженностиВЦБ: модуль менеджера. +// ПС_ПринятиеПоступившихПлатежейИзЦБ: модуль менеджера. // Печатная форма извещения (ф. 0504805, ред. 103н) - сторона отправителя (учреждение). // Заполнение макета выполняет общая логика подсистемы: ПС_УчетРодительскойПлаты.ПечатьИзвещения0504805. @@ -10,7 +10,7 @@ // Вызывается из модуля формы документа кнопкой "Печать". // // Параметры: -// ДокументСсылка - ДокументСсылка.ПС_ПередачаЗадолженностиВЦБ - печатаемый документ. +// ДокументСсылка - ДокументСсылка.ПС_ПринятиеПоступившихПлатежейИзЦБ - печатаемый документ. // // Возвращаемое значение: // ТабличныйДокумент diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ObjectModule.bsl b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ObjectModule.bsl similarity index 62% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ObjectModule.bsl rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ObjectModule.bsl index cf187a4..8cfe99a 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ObjectModule.bsl +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ObjectModule.bsl @@ -1,7 +1,10 @@ -// ПС_ПередачаЗадолженностиВЦБ: модуль объекта. +// ПС_ПринятиеПоступившихПлатежейИзЦБ: модуль объекта. // Сторона детского сада: Дт 304.04.130 — Кт 205.31.66X. // Проводки формируются в процедуре ОбработкаПроведения прямым заполнением // набора записей регистра бухгалтерии ЖурналПроводокЕПСБУ. +// Документ вводится на основании документа передачи платежей ЦБ и принимает +// в саду поступившие платежи этого сада. В регистр взаиморасчётов не пишет: +// его ведёт только ЦБ. #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -9,68 +12,40 @@ Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка) - Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.НачислениеРодительскойПлаты") Тогда + Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения") Тогда - // Заполнение возможно только на основании проведённого документа начисления. + // Заполнение возможно только на основании проведённого документа передачи. Если НЕ ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДанныеЗаполнения, "Проведен") Тогда ОбщегоНазначения.СообщитьПользователю( - "Заполнение документа возможно только на основании проведённого документа начисления родительской платы."); + "Заполнение документа возможно только на основании проведённого документа передачи платежей."); Возврат; КонецЕсли; - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | НачислениеРодительскойПлаты.Организация КАК Организация, - | НачислениеРодительскойПлаты.ИФО КАК ИФО, - | НачислениеРодительскойПлаты.Ответственный КАК Ответственный, - | НачислениеРодительскойПлаты.НачалоПериода КАК НачалоПериода, - | НачислениеРодительскойПлаты.Дата КАК ДатаДокумента - |ИЗ - | Документ.НачислениеРодительскойПлаты КАК НачислениеРодительскойПлаты - |ГДЕ - | НачислениеРодительскойПлаты.Ссылка = &Ссылка"; - Запрос.УстановитьПараметр("Ссылка", ДанныеЗаполнения); - ВыборкаШапка = Запрос.Выполнить().Выбрать(); - Если ВыборкаШапка.Следующий() Тогда - Организация = ВыборкаШапка.Организация; - Ответственный = ВыборкаШапка.Ответственный; - ДокументНачисления = ДанныеЗаполнения; - // Учёт по ИФО ведётся только при включённой функциональной опции. - Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда - ИФО = ВыборкаШапка.ИФО; - КонецЕсли; - Если ЗначениеЗаполнено(ВыборкаШапка.НачалоПериода) Тогда - Период = ВыборкаШапка.НачалоПериода; - Иначе - Период = НачалоМесяца(ВыборкаШапка.ДатаДокумента); - КонецЕсли; + РеквизитыПередачи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ДанныеЗаполнения, + "Дата, Период, ИФО, КФО, Ответственный, СчетКорреспондент, КЭККорреспондент, Организация"); + + ДокументПередачи = ДанныеЗаполнения; + Дата = РеквизитыПередачи.Дата; + Период = РеквизитыПередачи.Период; + КФО = РеквизитыПередачи.КФО; + Ответственный = РеквизитыПередачи.Ответственный; + СчетКорреспондент = РеквизитыПередачи.СчетКорреспондент; + КЭККорреспондент = РеквизитыПередачи.КЭККорреспондент; + Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда + ИФО = РеквизитыПередачи.ИФО; КонецЕсли; - ЦБ = ПС_РаботаСКонтрагентами.КонтрагентЦБПоУмолчанию(); + // Отправитель (ЦБ) определяется по организации документа передачи: в документе передачи + // ЦБ хранится организацией, а в документе сада - контрагентом, сопоставляем по ИНН. + ЦБ = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(РеквизитыПередачи.Организация, "Отправитель (ЦБ)"); - ЗапросСтроки = Новый Запрос; - ЗапросСтроки.Текст = - "ВЫБРАТЬ - | НачислениеРодительскойПлатыНачисления.Контрагент КАК Контрагент, - | НачислениеРодительскойПлатыНачисления.ДоговорКонтрагента КАК Договор, - | НачислениеРодительскойПлатыНачисления.Ребенок КАК Ребенок, - | НачислениеРодительскойПлатыНачисления.ИДСтроки КАК ИДСтроки, - | НачислениеРодительскойПлатыНачисления.Сумма КАК Сумма - |ИЗ - | Документ.НачислениеРодительскойПлаты.Начисления КАК НачислениеРодительскойПлатыНачисления - |ГДЕ - | НачислениеРодительскойПлатыНачисления.Ссылка = &Ссылка"; - ЗапросСтроки.УстановитьПараметр("Ссылка", ДанныеЗаполнения); - ВыборкаСтроки = ЗапросСтроки.Выполнить().Выбрать(); - Пока ВыборкаСтроки.Следующий() Цикл - НоваяСтрока = Задолженность.Добавить(); - ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыборкаСтроки); - СуммаДокумента = СуммаДокумента + ВыборкаСтроки.Сумма; - КонецЦикла; + // Строки подбираются по саду документа: сад задаётся реквизитом "Организация". + // Если сад ещё не указан, строки заполняются командой формы после его выбора. + ЗаполнитьСтрокиПоДокументуПередачи(ДанныеЗаполнения); - // КФО документа и КПС строк - из проводок документа начисления. - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(ЭтотОбъект, ДанныеЗаполнения); + // Реквизиты и табличная часть заполнены вручную, стандартное заполнение не требуется: + // оно скопировало бы строки всех садов и организацию централизованной бухгалтерии. + СтандартнаяОбработка = Ложь; КонецЕсли; @@ -96,7 +71,7 @@ ЖурналОпераций = БухгалтерскийУчетПовтИсп.НомерЖурнала(СчетДт, СчетКт); - // КПС строк наследуется из проводок документа начисления (см. ЗаполнитьКПССтрок), + // КПС строк наследуется из строк документа передачи (см. ЗаполнитьСтрокиПоДокументуПередачи), // КЭК счёта 205.31 определяется по настройкам счёта и типу контрагента (подстатья КОСГУ). Для Каждого СтрокаЗадолженности Из Задолженность Цикл @@ -113,7 +88,7 @@ Движение.КЭККт = КЭКПроводки(СчетКт, "Кт", СтрокаЗадолженности.Контрагент, СтрокаЗадолженности.Договор); Движение.Сумма = СтрокаЗадолженности.Сумма; Движение.ЖурналОпераций = ЖурналОпераций; - Движение.Содержание = "Передача задолженности по родительской плате в ЦБ"; + Движение.Содержание = "Принятие поступивших платежей по родительской плате из ЦБ"; Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.КорреспондентыПоВнутреннимРасчетам] = ЦБ; Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = СтрокаЗадолженности.Контрагент; @@ -147,7 +122,6 @@ ЗаполнитьРеквизитыПоУмолчанию(); СуммаДокумента = Задолженность.Итог("Сумма"); - ЗаполнитьКПССтрок(); КонецПроцедуры @@ -161,8 +135,8 @@ ОбщегоНазначения.СообщитьПользователю("Не заполнен получатель - ЦБ (администратор доходов)", , "ЦБ", "Объект", Отказ); КонецЕсли; - Если НЕ ПередачаСальдо И НЕ ЗначениеЗаполнено(ДокументНачисления) Тогда - ОбщегоНазначения.СообщитьПользователю("Не заполнен документ начисления родительской платы", , "ДокументНачисления", "Объект", Отказ); + Если НЕ ЗначениеЗаполнено(ДокументПередачи) Тогда + ОбщегоНазначения.СообщитьПользователю("Не заполнен документ передачи платежей", , "ДокументПередачи", "Объект", Отказ); КонецЕсли; Если НЕ ЗначениеЗаполнено(КФО) Тогда @@ -174,12 +148,10 @@ Иначе Для Каждого СтрокаЗадолженности Из Задолженность Цикл Если НЕ ЗначениеЗаполнено(СтрокаЗадолженности.КПС) Тогда - ТекстСообщения = "Не заполнен КПС строки табличной части ""Задолженность""."; - Если НЕ ПередачаСальдо Тогда - ТекстСообщения = ТекстСообщения - + " Заполнение возможно только на основании проведённого документа начисления родительской платы."; - КонецЕсли; - ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Задолженность", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю( + "Не заполнен КПС строки табличной части ""Задолженность""." + + " Заполните строки по документу передачи.", + , "Задолженность", "Объект", Отказ); Прервать; КонецЕсли; КонецЦикла; @@ -211,18 +183,53 @@ КонецПроцедуры -// Заполняет строки табличной части "Задолженность" КПС, унаследованным -// из проводок документа начисления родительской платы. +// Подбирает строки табличной части "Задолженность" из документа передачи по саду +// документа (реквизит "Организация"). Если сад не указан, табличная часть очищается. // -Процедура ЗаполнитьКПССтрок() +// Параметры: +// ДокументПередачиСсылка - ДокументСсылка.ПС_ПередачаПоступившихПлатежейВУчреждения - документ-основание. +// +Процедура ЗаполнитьСтрокиПоДокументуПередачи(ДокументПередачиСсылка) - // В режиме передачи начального сальдо КПС строк заполняется по остаткам счёта 205.31, - // а не по проводкам документа начисления. - Если ПередачаСальдо Тогда + Задолженность.Очистить(); + СуммаДокумента = 0; + + Если НЕ ЗначениеЗаполнено(ДокументПередачиСсылка) ИЛИ НЕ ЗначениеЗаполнено(Организация) Тогда Возврат; КонецЕсли; - ПС_УчетРодительскойПлаты.ЗаполнитьРеквизитыУчетаПоПроводкам(ЭтотОбъект, ДокументНачисления); + // В документе передачи сад хранится контрагентом (как в регистре взаиморасчётов), + // а в документе сада - организацией, поэтому сопоставляем по ИНН. + КонтрагентСада = ПС_РаботаСКонтрагентами.КонтрагентПоОрганизации(Организация, "Учреждение"); + Если НЕ ЗначениеЗаполнено(КонтрагентСада) Тогда + Возврат; + КонецЕсли; + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | СтрокиПередачи.Контрагент КАК Контрагент, + | СтрокиПередачи.Договор КАК Договор, + | СтрокиПередачи.Ребенок КАК Ребенок, + | СтрокиПередачи.ИДСтроки КАК ИДСтроки, + | СтрокиПередачи.Сумма КАК Сумма, + | СтрокиПередачи.КПС КАК КПС + |ИЗ + | Документ.ПС_ПередачаПоступившихПлатежейВУчреждения.Задолженность КАК СтрокиПередачи + |ГДЕ + | СтрокиПередачи.Ссылка = &ДокументПередачи + | И СтрокиПередачи.Учреждение = &Учреждение"; + Запрос.УстановитьПараметр("ДокументПередачи", ДокументПередачиСсылка); + Запрос.УстановитьПараметр("Учреждение", КонтрагентСада); + + Выборка = Запрос.Выполнить().Выбрать(); + Пока Выборка.Следующий() Цикл + + НоваяСтрока = Задолженность.Добавить(); + ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка); + СуммаДокумента = СуммаДокумента + Выборка.Сумма; + + КонецЦикла; КонецПроцедуры diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx similarity index 99% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx index 946b071..5b2391b 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеЗадолженностиОтУчреждения/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП_Получатель/Template.mxlx +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/Templates/ПФ_MXL_Извещение0504805_103н_ПС_РП/Template.mxlx @@ -1186,12 +1186,7 @@ 2 59 - - - ru - - - + @@ -2360,12 +2355,7 @@ 2 59 - - - ru - - - + @@ -3992,8 +3982,6 @@ -1 - #000080 - #000080 Solid diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ПС_ПередачаЗадолженностиВЦБ.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ПС_ПринятиеПоступившихПлатежейИзЦБ.mdo similarity index 89% rename from 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ПС_ПередачаЗадолженностиВЦБ.mdo rename to 153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ПС_ПринятиеПоступившихПлатежейИзЦБ.mdo index bb5da20..ace4a31 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПередачаЗадолженностиВЦБ/ПС_ПередачаЗадолженностиВЦБ.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Documents/ПС_ПринятиеПоступившихПлатежейИзЦБ/ПС_ПринятиеПоступившихПлатежейИзЦБ.mdo @@ -7,10 +7,10 @@ - ПС_ПередачаЗадолженностиВЦБ + ПС_ПринятиеПоступившихПлатежейИзЦБ ru - Передача начислений в ЦБ + Принятие поступивших платежей из ЦБ true DontUse @@ -18,18 +18,18 @@ Use ru - Передача задолженности в ЦБ + Принятие поступивших платежей из ЦБ ru - Передача начислений в ЦБ + Принятия поступивших платежей из ЦБ String 9 Variable true true - Document.ПС_ПередачаЗадолженностиВЦБ.Form.ФормаДокумента + Document.ПС_ПринятиеПоступившихПлатежейИзЦБ.Form.ФормаДокумента AccountingRegister.ЖурналПроводокЕПСБУ true true @@ -37,7 +37,7 @@ Организация ru - Организация + Получатель (учреждение) CatalogRef.Организации @@ -52,7 +52,7 @@ ЦБ ru - ЦБ (получатель) + Отправитель (ЦБ) CatalogRef.Контрагенты @@ -100,21 +100,6 @@ Use Use - - ДокументНачисления - - ru - Документ начисления - - - DocumentRef.НачислениеРодительскойПлаты - - - - - Use - Use - ИФО @@ -177,21 +162,6 @@ Use Use - - ПередачаСальдо - - ru - Передача начального сальдо - - - Boolean - - - - - Use - Use - КЭККорреспондент @@ -222,6 +192,21 @@ Use Use + + ДокументПередачи + + ru + Документ передачи платежей + + + DocumentRef.ПС_ПередачаПоступившихПлатежейВУчреждения + + + + + Use + Use + ФормаДокумента diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Enums/ПС_ВидыОперацийПоВзаиморасчетам/ПС_ВидыОперацийПоВзаиморасчетам.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Enums/ПС_ВидыОперацийПоВзаиморасчетам/ПС_ВидыОперацийПоВзаиморасчетам.mdo index 08364cd..434f469 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Enums/ПС_ВидыОперацийПоВзаиморасчетам/ПС_ВидыОперацийПоВзаиморасчетам.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Enums/ПС_ВидыОперацийПоВзаиморасчетам/ПС_ВидыОперацийПоВзаиморасчетам.mdo @@ -13,24 +13,17 @@ true BothWays - ПринятоОтУчреждения + ПередачаВУчреждение ru - Принято от учреждения + Передача в учреждение - Оплата + ПоступлениеПлатежа ru - Оплата родительской платы - - - - НачальноеСальдо - - ru - Начальное сальдо + Поступление родительской платы diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Roles/ПС_ОсновнаяРоль/Rights.rights b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Roles/ПС_ОсновнаяРоль/Rights.rights index eb67030..f1d6baf 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Roles/ПС_ОсновнаяРоль/Rights.rights +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Roles/ПС_ОсновнаяРоль/Rights.rights @@ -4,7 +4,7 @@ false false - Document.ПС_ПередачаЗадолженностиВЦБ + Document.ПС_ПринятиеПоступившихПлатежейИзЦБ Read true @@ -27,7 +27,7 @@ - Document.ПС_ПринятиеЗадолженностиОтУчреждения + Document.ПС_ПередачаПоступившихПлатежейВУчреждения Read true diff --git a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Subsystems/ТаксиПлатноеОбразование/Subsystems/РодительскаяПлата/РодительскаяПлата.mdo b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Subsystems/ТаксиПлатноеОбразование/Subsystems/РодительскаяПлата/РодительскаяПлата.mdo index 54e2369..1475459 100644 --- a/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Subsystems/ТаксиПлатноеОбразование/Subsystems/РодительскаяПлата/РодительскаяПлата.mdo +++ b/153_ЦБ_ОУО_БГУ.ПрофиСофт/src/Subsystems/ТаксиПлатноеОбразование/Subsystems/РодительскаяПлата/РодительскаяПлата.mdo @@ -8,8 +8,8 @@ Extended true - Document.ПС_ПередачаЗадолженностиВЦБ - Document.ПС_ПринятиеЗадолженностиОтУчреждения + Document.ПС_ПринятиеПоступившихПлатежейИзЦБ + Document.ПС_ПередачаПоступившихПлатежейВУчреждения DataProcessor.ПС_УправлениеРасчетамиПоРодительскойПлате Subsystem.ТаксиПлатноеОбразование