Форум

* ПРИМЕР 1 * Распределение оплат в страховой организации
* Постановка задачи.
* В конце месяца агент одним платежом пересылает в Страховую компанию
* сумму взносов. Приходуется в банке одной проводкой.
* Затем он присылает по факсу отчет за прошлый месяц, в котором расписывается
* кто заплатил, какой вид страхования, сумма платежа.
*
* Операция разноски по платежам проводилась в АРМ главного бухгалтера. Там три проводки.
* Дт77-8-партнер-вид страх.Кр77-1-не жизнь-вид страх-я-партнер-договор страх-я
* Дт77-1-не жизнь-вид страхов-я.-партнер-договор страх-я.Кр92-1-не жизнь-вид страх-я.
* Дт92-1-нежизнь-вид страх.Кр79-2-000092 Каз. филиал.
*
* Вначале была настроена Типовая операция.
* Но минус этого решения очень много видов страхования, поэтому в
* каждой проводке приходилось пробегать по полям и менять аналитику. Поступило предложение
* дать возможность скопировать связку уже набранных типовых операций. Так как в основном
* суммы одинаковые - 5 или 10 рублей. Зная, что это в БЭСТ 5 невозможно, я предложил это
* описать Групповой операцией. Что позволит им ввести только один раз аналитику счета,
* а все остальное будет проделано автоматически.
* Еще один момент автоматизации, дата вступления в силу договора, она бывает разной,
* поэтому при вводе она видна.
* При работе цикла "ПОКА" - не обнуляются данные,
* поскольку - виды страхования повторяются и могут быть одинаковые суммы.
* На предложение бухгалтерам обнулить сумму в форме, получил предложение -оставить от предыдущей
* проводки.
* Итак начинаем. Наш практический урок.
* Используем структуру групповой операции "распределение затрат.
* Вначале идут параметры М - это поле Содержание хозяйственной операции, так как
* проводок три, то и "М" определим для каждой свою.
* Пусть будет примерно так:


М = "Распределение платежей"
М1 = "Распределение платежей1"
М2 = "Распределение платежей2"


* Мышкой выделяем М = "Распределение платежей", Сnrl+C - копируем.
* становимся на строку ниже Shift+Insert или Сtrl+V - вставить.
* Добавляем значения к М 1, 2 - что определяет их использование в проводках 2 и 3.
* Так как в реальной задаче проводки имеют счета и аналитики сложные, применяем в
* нашем уроке аналитические счета из демобазы ХОЗРАСЧЕТНОЙ,
*
* Главная книга \Ведение системы счетов \Сегменты аналитики на счетах.
* счет 6231- не имет уровней аналитики
* Добавляем ему 4 уровня
* Код измерения разделитель Обязат. Длина
* Бренд - Да 6
* Вид деятельности - Да 10
* Партнеры - Да 6
* ДоговорыПродаж - Да 19

* счет 6241 2 уровня
*
* Код измерения разделитель Обязат. Длина
* Партнеры - Да 6
* Вид деятельности - Да 10
*
* счет 6243 - 2 уровня.
*
* Код измерения разделитель Обязат. Длина
* Бренд - Да 6
* Вид деятельности - Да 10
*
* счет 6245 - 1 уровень
* Код измерения разделитель Обязат. Длина
* Подразделения - Да 6
*
* Дополням аналитику измерения
* Настройка\ Общие данные\ Аналитические измерения\ виды измерений\
* выбираем Бренд \Закладка Значения
* добавляем к MILANO, 000002 НЕЖИЗНЬ (т.е. страхование любых случаев, кроме ЖИЗНИ)
* Вид деятельности \Закладка Значения F4 0000000001 - 1
* что бы урок хоть как то приблизился к действительности. Добавим "реальную" аналитику
* на счет 6245
* Настройка\ Общие данные\ Персонал предприятия\ Структурные подразделения\
* добавим 000092 - Казанский филиал.
* Вроде бы все. Демоверсия готова к тренажу.

* Применяемые переменные:
* А4 - дата документа
* А5 - аналитика страхования


* Раньше в БЭСТ4 я определял длину счета и аналитики
* а с многосегментной аналитикой не знал как указывать.
* Благо теперь можно писать просто "СЧЕТ" и "ШАУ"
* проблема снята.

* Правила заполнения.
* Если дата не изменилась спускаемся курсором вниз.
* На поле номер счета. Хоть он и заполнен. ОБЯЗАТЕЛЬНО ПРОЙТИСЬ ЭНТЕРОМ,
* ЧТОБЫ ПРОГРАММА СВЯЗАЛАСЬ С ПАРАМЕТРАМИ ЭТОГО СЧЕТА. ОДИН ЭНТЕР - ОБЪЯВЛЯЕТСЯ СЧЕТ,
* ВТОРОЙ ЭНТЕР - ОКОНЧАНИЕ РЕДАКТИРОВАНИЯ. СПУСКАЕМСЯ КУРСОРОМ НА "АНАЛИТИКА СЧЕТА"
* 2 РАЗА ЭНТЕР - ОТКРЫВАЮТСЯ СЕГМЕНТЫ АНАЛИТИКИ. ТАК КАК ПОЛЯ АНАЛИТИКИ ОБЯЗАТЕЛЬНЫ
* К ЗАПОЛНЕНИЮ ТО ПОСЛЕ НАЖАТИЯ ЭНТЕР БУДУТ ОТКРЫВАТЬСЯ СПРАВОЧНИКИ СЕГМЕНТОВ.
* На первом уровне выбираем НЕЖИЗНЬ, на втором первую, на третьем 000005 АОЗТ "МИР",
* поскольку у него есть договор продаж. И на четвертом - этот договор.
* Энтер.
* Справочник аналитики свернулся. И мы опять в окне ввода.
* Небольшой глюк, все сегменты аналитики свернулись в один. Видно значение только
* первого сегмента. Ничего страшного.Все сегменты появятся в следующем ЦИКЛЕ.
* Курсором спускаемся на сумму. Можно сразу набирать значение, или после нажатия ЭНТЕР.
* Заполнили сумму, F10 - запустить обработку.
* Программа выдает следующий экран ввода.
* И о чудо, все сегменты аналитики предыдущего ввода ПРИСУТСТВУЮТ!
* Но это обманчивое впечатление, если вы энтером не подтвердите НОМЕР СЧЕТА "6231"
* вся аналитика исчезнет. Поскольку соединение с параметрами счета во втором цикле
* не произошло. Только 2 раза ЭНТЕР и вся аналитика открывается. Будьте внимательны1
* Поправляем в аналитике нужные сегменты. Сумму.F10.- продолжить.
* Эскейпом завершаем ввод новых данных.
* Вся группа проводок появляется в буфере.
* F10 - заносим проводки в Книгу хозяйственных операций.


А3="6231"
А4 = ДАТА()

ПОКА (1=1)

* Цикл ПОКА в данном случае работает до срабатывания клавиши Эскейп.
* Могут быть и другие условия.

* Внимательно будьте при добавлении строк ввода. Следите за пунктуацией.
* Строки кончаются запятая - затем, точка с запятой.
* Последнее поле кончается только ТОЧКОЙ с запятой.

ВВОД(("Дата окончания расчета......","А4","Д"),;
("Номер счета....","А3","СЧЕТ"),;
("Аналитика счета..........","А5","ШАУ"),;
("СУММА ..........","Z","Ч","99999.99");
)
* Определям алгоритмы
* В демозадаче меняем счет 77-1 на 6231
* 77-8 на 6241
* 92-1 на 6243
* 79-2 на 6245
* Надо вычленить из аналитики кусок нужных значений.
* Вызываем помощь F1. Листая страницы в разделе ОБЩЕСИСТЕМНЫЕ ФУНКЦИИ.
* ПОД_СТР. Это нам подходит.
* Вычленяем из аналитики 6231 значение "Партнер" он было третьим
* и "Вид" был вторым. Состав 6-10-6-19 надо переформировать в 6-10.
* Сначала выделяем параметр "ВИД" он стоит вторым после 6-ти значного жизни/нежизнь.
* Итак 6 знаков нежизни плюс знак разделитель черта. Итого 7, значит будем выделять с
* с восьмого. Длина 10.
* Команда ВЫВОД помогает при отладке приложения, позволяет смотреть какое значение
* переменная принимает.
* Например,Аналитика разделяется "-", этот знак надо игнорировать.
* Можете попробовать заменив А6=ПОД_СТР(А5,8,10) на А6=ПОД_СТР(А5,7,10)
* ВЫВОД значения покажет -000000000. Что есть ошибочно.

А6=ПОД_СТР(А5,8,10)
* ВЫВОД А6

* Вычленяем из аналитики 6231 значение партнер был третьим
* и вид был вторым. состав 6-10-6-19 надо переформировать в 6-10.
* сначало выделяем параметр "ПАРТНЕР" он стоит третьим после 16-ти значного жизни/нежизнь
* и ВИД
* итак 16 знаков плюс 2 знака разделитель "черта". Итого 18, значит будем выделять с
* с 19-го. Длина 6.

А7=ПОД_СТР(А5,19,6)
* ВЫВОД А7

* вычленяем из аналитики 6231 параметр "НЕ/ЖИЗНЬ" он стоит первым.
* Значит будем выделять с 1 по 6

А8=ПОД_СТР(А5,1,6)
* ВЫВОД А8

* Итак получили А6 -ВИД
* А7 - ПАРТНЕР
* А8 - НЕ/ЖИЗНЬ



* Начинаем склеивать значения аналитики для первой проводки. Это ПАРТНЕР и ВИД
* Так как разделитель черта включать ее в общий кусок не надо, НО ПРОБЕЛ СТАВИТЬ ОБЯЗА-
* ТЕЛЬНО. (ЧАС ПОТРАТИЛ НА ПОИСК ЭТОГО ПРОБЕЛА) БЭСТ сама поставит разделитель.

А9=А7+" "+А6
ВЫВОД А9
* Начинаем склеивать значения для второй проводки. Это НЕ/ЖИЗНЬ и ВИД

А10=А8+" "+А6
ВЫВОД А7

* Итак имеем А9 - ПАРТНЕР+ВИД
* А10 -НЕ/ЖИЗНЬ + ВИД
*



* Формируем проводки. Счета можно объявлять явно -заключив в кавычки.
* Итак 77-8 (6241) с аналитикой ПАРТНЕР + ВИД

А11="6241"+"."+А9

* Кредитовая ей сторона складывается из счета и аналитики запроса ВВОДА
А12=А3+"."+А5

* Вторая проводка. Дебет равен кредиту первой проводки. Значит А12
* А Кредитовая сторона 92-1 (6243) с аналитикой НЕ/ЖИЗНЬ+ВИД

А13="6243"+"."+А10

* Третья проводка. Дебет равен кредиту второй проводки. Значит А13
* А Кредитовая сторона 79-2 (6245) с аналитикой всегда равной подразделению
* 000092 - Казанский филиал.

А14="6245"+"."+"000092"

* ПАРАМЕТРЫ ПРОВОДКИ.
* первый параметр А4 - ДАТА - берется из формы ввода.
* второй параметр "" - номер документа. Бухгалтера его не заполняют.
* третий параметр -Дебетовая сторона.
* четвертый параметр - Кредитовая сторона.
* пятый параметр - Содержание операции.
* шестой параметр - Сумма проводки.

П( А4, "", А11, А12, М, Z)
П( А4, "", А12, А13, М1, Z)
П( А4, "", А13, А14, М2, Z)

ВСЕ_ПОКА

* Вот и конец первому уроку.
* Замеченные недостатки.
* 1. При вызова помощи нет курсора, показателя рядов.
* Трудно ориентироваться в каком месте ты находишься.
* 2. Невозможно выделить и скопировать из помощи текст.
* 3. Программа не запоминает положение счета, при следующем вводе.
* Приходится его объявлять двумя Энтерами.
* Основная находка этого урока, Это то, что при выделении куска аналитики
* разделитель "-" не включается в вырезаемый блок.
* Но при склеивании в новую аналитику разделитель не указывается,но на его
* месте должен быть пробел!!
* С уважением, Валерий Иванович Бондарчук.
* Удачи всем в написании групповых операций.
* P.S. В рабочем варианте поставте ремарки звездочки "*" в начале строк
* 182 и 186, чтобы не отображались рабочие моменты отладки групповой операции.