Добрый день. Так как в работе с регистрами накопления опыта работы у меня минимум, прошу помочь и подсказать. Конфигурация пишется для учебного заведения. Идет оплата по курсам. В литературе которую читаю есть примеры и описание только такого принципа - запись в регистр накопления (минус) т.е. задолженность, и потом поступление (плюс), ну и разница если есть - остаток. Тут же нужно так. Есть к примеру 5 курсов, и за каждый курс при формировании договора идет начисление (минус), потом студент оплачивает, за каждый курс по отдельности или может сразу за три курса заплатить. И вот незнаю как правильно реализовать это в регистре, чтобы потом соответственно выводить задолженности за определенный курс в отчете. Буду очень благодарен за помощь.

В принципе можно добавить реквизит "Курс" и делать отбор по нему.

А если потребуется отчет об общей задолженности за все курсы?
Тогла таким макаром - ОстатокКурс1+ОстатокКурс2+ОстатокКурс3+ОстатокКурс4 ?

Зачем? без указания отбора по реквизиту а не по измерению все будет отлично работать.

Поясню. Есть, допустим РегистрНакопления.
Измерение - Студент
Ресурс - Сумма
Реквизит - Курс.

Измерения служат для обеспечения уникальности (+ всегда присутствует регистратор и пр.стандартные вещи)
а реквизит - как информация к дополнению (сведению?).

Можете подробней рассказать, ато путанина получается у меня.
Добавил регистр накопления - ОплатыСтудентов
Измерения:
1. Студент - Справочник.Студенты
2. Курс - Перечисления.НомерКурса
Ресурсы:
СуммаОплаты - Число 10, точность 2, неотрицательное

Теперь формирую документ ДоговорСтудента
Идет проведение по регистру

    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
//           Движение.Курс = 1 
//    Движение.СуммаОплаты = Объект.ОплатаКурс1;  -  так соответственно для 2,3,4 курсов?

Ок, пусть так. Тогда как принимать оплату
Есть документ ПриемОплаты

Теперь при проведении, проверять остатки за каждый курс? И который не оплачен проплачивать, и ещё учитывать, если сумма больше суммы за задолженность к примеру за 1-й курс, то ещё и добавлять к второму, короч я запутался.

Пусть руками распределяют сумму по курсам


Также создать отдельный документ которым можно перераспределять переплаченные/недоплаченные деньги между курсами.

А вообще танцевать нужно с конца.
Что как выглядит техпроцесс когда слушателя пускают/не пускают на курсы?

Не ну руками то уже очень нелогически как-то. Можно канеш елементарно, формировать общую сумму задолженности, и потом погашать её, а при выводе отчета, создать процедуру которая осуществляет:
Общая сумма задолженности - ОстатокЗадолженности.
и

Если ОтчетКурс1=Истина Тогда //Где ОтчетКурс1 параметр вывода отчета
а= Общая сумма задолженности - ОстатокЗадолженности;
б= а - ЦенаКурс1;
Возврат б;

Но все же, может как-то получьше можно это реализовать. У кого будут ещё идеи?

Нужно измерение в регистре Курс. Вот и всё. И руками разносить оплату по курсам. Другого не дано.

А общую сумму как выводить? И ещё, есть такое что студент переводится с одного факультета на другой, и там сумма за обучение другая, тогда он получится в переплате, как в регистре перенести тогда? Отдельно ещё один документ для переноса создавать?

Што-та мне кажется надо воскурить мантру "написание технического задания".

Варианты ответов будут?


Да, аля "Перемещение товаров студентов". При проведении выводите регистр по студенту и курсу в 0 и записываете потом новую сумму. Ну это мне так кажется, а я ж хз как оно должно в итоге получиться и какие есть нюансы данного процесса.

Зачем вводить руками? При оплате разносить сумму автоматом по курсам (типа как идет списание товаров по ФИФО, так же и разносить оплату).

А кто сказал что курс после 100% предоплаты посещается?
Может человек 2 курсов будет ходить и платить постепенно.

Все таки решил делать по такому принципу. Создается договор, регистр - ОплатыСтудентов - расход на общую сумму.
Документ - ПриемОплаты - Приход соответственно.
Но щас появилась новая проблема.
Имею Остаток задолженности. Имею общую сумму. Именю цены за каждый курс. Но никак не получается вывести ни в отчете, ни допустим в форме задолженность.
Суммы получаются непонятные.

Может кто-то более силён в математике и логике, прошу помочь:

пример:

A=22500 - общая сумма
B=8580 - остаток задолженности
x1 = 4000 - цена за 1-й курс
x2 = 4200 - цена за 2-й курс
x3 = 4500 - цена за 3-й курс
x4 = 4800 - цена за 4-й курс
x5 = 5000 - цена за 5-й курс

Как обчислить остаток задолженности за каждый из курсов?

Не расстраивайтесь, за годик всё получится.

Та я не расстраиваюсь, конфа пишется на добровольных началах, без какой либо оплаты. Просто подкрепление теоретических знаний на практике. Но вот как в любом языке программирования, в книге описанны только сами функции, операторы и т.д., а вот сама логика и приемы программирования, это дело наживное, поэтому и приходится просить помощи, у старшых братьев, которые эту школу уже прошли

Храните данные в регистре (регистр Остатков) в разрезе курсов, и так же разносите по курсам оплату. В таком случае получение разных данных (отчеты, движения) будет простым.

Это что бы понять логику (к приемам программирования не имеет отношения):

A=22500;
B=8580;
x1 = 4000;
x2 = 4200;
x3 = 4500;
x4 = 4800;
x5 = 5000;
Оплачено = А-В;

Если Оплачено > (х1+х2+х3+х4+х5) Тогда
 сообщить("Оплачено больше чем необходимо");
ИначеЕсли Оплачено = (х1+х2+х3+х4+х5) Тогда
 сообщить("Оплачено 5 курсов");
ИначеЕсли Оплачено > (х1+х2+х3+х4) Тогда
 сообщить("Оплачено 4 курса и часть 5го");
ИначеЕсли Оплачено = (х1+х2+х3+х4) Тогда
 сообщить("Оплачено 4 курса");
ИначеЕсли Оплачено > (х1+х2+х3) Тогда
 сообщить("Оплачено 3 курса и часть 4го");
ИначеЕсли Оплачено = (х1+х2+х3) Тогда
 сообщить("Оплачено 3 курса");
ИначеЕсли Оплачено > (х1+х2) Тогда
 сообщить("Оплачено 2 курса и часть 3го");
ИначеЕсли Оплачено = (х1+х2) Тогда
 сообщить("Оплачено 2 курса");
ИначеЕсли Оплачено > х1 Тогда
 сообщить("Оплачено 1 курс и часть 2го");
ИначеЕсли Оплачено = х1 Тогда
 сообщить("Оплачено 1 курс");
ИначеЕсли Оплачено < х1 и А > 0 Тогда
 сообщить("Оплачено меньше одного курса");
Иначе
 сообщить("Оплат нет");
КонецЕсли;

Так лекче всего, и мне проще, но, тогда методисту прийдется учитывать задолженность, т.е. если студент должен за 1-й курс ещё 1300 грн, а проплатил 2500, тогда 1300 она вносит по реквизиту 1-й курс, а 1200 грн по реквизиту 2-й курс, но тут присутствует человеческий фактор, и возможны ошибки и т.д.

Реализуйте заполнение документа Оплаты по курсам (по принципу ФИФО), ну или без ручного заполнения, при проведении автоматом раскидывайте по курсам, это самое логичное решение.

Хотя при проплате, можно учитывать остаток задолженности, и если сумма проплаты больше - выдавать ошибку.



Спасибо большое , Вы и вправду logist

На здоровье, только не понятно почему проигнорировали сообщение необходимо зарегистрироваться для просмотра ссылки

Не проигнорировал, не совсем понял, молодой ещё, неопытный

И опять же, хочется автоматом расскидывать по курсам, а получается ступор.

Вот тут все гут: Документ - Создание договора студента

    //Цена за первый курс
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.ВидУслуги = Перечисления.ВидыУслуг.Образование;
    Движение.Курс=Перечисления.НомерКурса.Первый;
    Движение.СуммаОплаты = Студент.Цена1курс;
    
    //Цена за второй курс
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.ВидУслуги = Перечисления.ВидыУслуг.Образование;
    Движение.Курс=Перечисления.НомерКурса.Второй;
    Движение.СуммаОплаты = Студент.Цена2курс;
    
    //Цена за третий курс
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.ВидУслуги = Перечисления.ВидыУслуг.Образование;
    Движение.Курс=Перечисления.НомерКурса.Третий;
    Движение.СуммаОплаты = Студент.Цена3курс;
    
    //Цена за четвертый курс
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.ВидУслуги = Перечисления.ВидыУслуг.Образование;
    Движение.Курс=Перечисления.НомерКурса.Червертый;
    Движение.СуммаОплаты = Студент.Цена4курс;
    
    //Цена за пятый курс
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.ВидУслуги = Перечисления.ВидыУслуг.Образование;
    Движение.Курс=Перечисления.НомерКурса.Пятый;
    Движение.СуммаОплаты = Студент.Цена5курс;

Теперь Документ - Прием Оплаты

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

    Запрос.УстановитьПараметр("ВидУслуги", ВидУслуги);
    Запрос.УстановитьПараметр("Студент", Студент);

    Результат = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = Результат.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        
        Если ВыборкаДетальныеЗаписи.Курс=Перечисления.НомерКурса.Первый Тогда
            х1=ВыборкаДетальныеЗаписи.СуммаОплатыОстаток;
        ИначеЕсли ВыборкаДетальныеЗаписи.Курс=Перечисления.НомерКурса.Второй Тогда
            х2=ВыборкаДетальныеЗаписи.СуммаОплатыОстаток;
        ИначеЕсли ВыборкаДетальныеЗаписи.Курс=Перечисления.НомерКурса.Третий Тогда
            х3=ВыборкаДетальныеЗаписи.СуммаОплатыОстаток; 
        ИначеЕсли ВыборкаДетальныеЗаписи.Курс=Перечисления.НомерКурса.Червертый Тогда
            х4=ВыборкаДетальныеЗаписи.СуммаОплатыОстаток;
        ИначеЕсли ВыборкаДетальныеЗаписи.Курс=Перечисления.НомерКурса.Пятый Тогда
            х5=ВыборкаДетальныеЗаписи.СуммаОплатыОстаток;
        КонецЕсли;

    КонецЦикла;

    // регистр ОплатыСтудентов Приход
    Движения.ОплатыСтудентов.Записывать = Истина;
    Движение = Движения.ОплатыСтудентов.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
    Движение.Период = Дата;
    Движение.Студент = Студент;
    Движение.СуммаОплаты = Сумма;
    Движение.ВидУслуги=ВидУслуги;

КонецПроцедуры

Вот тут не знаю как правильно прописать условие, так как сумма оплаты может быть больше х1 и х2, а может быть больще х1 но меньше х2 и т.д.

Или все таки лучьше добавить в документе реквизит курс, и пусть руками разносят по курсам? Единственное прописать проверку:

Если Сумма>х1 Тогда 
Сообщить("Сумма проплаты превышает задолженность, введите сумма не больше " + x1$
КонецЕсли;

Ступор получился потому что слишком много кода, некоторые вещи можно сделать на уровне запроса, некоторые оптимизировать.

p.s. "как это сделать" у меня сегодня нет времени расписывать

Ну может как будет время, то помогите, буду очень благодарен.

Я чуток изменил запрос, так как суммы которы = 0 или больше 0 нас не интересуют, но все равно как дальше, непойму

Ноль=0;    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |    ОплатыСтудентовОстатки.Студент,
        |    ОплатыСтудентовОстатки.ВидУслуги,
        |    ОплатыСтудентовОстатки.Курс,
        |    ОплатыСтудентовОстатки.СуммаОплатыОстаток
        |ИЗ
        |    РегистрНакопления.ОплатыСтудентов.Остатки КАК ОплатыСтудентовОстатки
        |ГДЕ
        |    ОплатыСтудентовОстатки.Студент = &Студент
        |    И ОплатыСтудентовОстатки.ВидУслуги = &ВидУслуги
        |    И ОплатыСтудентовОстатки.СуммаОплатыОстаток < &Ноль";

    Запрос.УстановитьПараметр("ВидУслуги", ВидУслуги);
    Запрос.УстановитьПараметр("Студент", Студент);

Что мешает сделать так, без использования параметра:

<...>
        |    И ОплатыСтудентовОстатки.СуммаОплатыОстаток < 0";

Если "конструктор ругается", то прочтите основы работы с ним, это поможет в будущем избегать написания всякой фигни.


какие размеры и форма благодарности?

какие размеры и форма благодарности?

Бутылка вкусного домашнего закарпатского вина, новой почтой на ваш адрес

Решил я не автоматом разносить по курсам, а ручками пусть разносят.
Но для удобства в документ ПриемОплаты, добавил ДинамическийСписок, в который выводится задолженность по курсам.
Произвольный запрос, текст запроса:

ВЫБРАТЬ
    ОплатыСтудентовОстатки.Студент,
    ОплатыСтудентовОстатки.ВидУслуги,
    ОплатыСтудентовОстатки.Курс,
    ОплатыСтудентовОстатки.СуммаОплатыОстаток
ИЗ
    РегистрНакопления.ОплатыСтудентов.Остатки КАК ОплатыСтудентовОстатки

Помогите написать условие отбора:

ГДЕ ОплатыСтудентовОстатки.Студент = Обьект.Студент 
И ОплатыСтудентовОстатки.ВидУслуги = Обьект.ВидУслуги

Заранее спасибо.

При открытии документа сделать:

    ЭлементФормыДинамическийСписок.Параметры.УстановитьЗначениеПараметра("Студент",    Объект.Студент);
    ЭлементФормыДинамическийСписок.Параметры.УстановитьЗначениеПараметра("ВидУслуги",    Объект.ВидУслуги);

Хотя идея динамического списка не очень как по мне.