Тема: предыдущий репрокод

Тема: предыдущий репрокод

Многие пользователи DairyComp305 задают вопрос: как мне узнать предыдущий репрокод животного?
Сегодняшний пост как раз посвящён этой теме.

Для решения задачи нам потребуется 3 дополнительных пункта:
PRC - 1 тип - предыдущий репрокод
CRC - 1 тип - вспомогательная переменная для расчёта  PRC
PRPRO - 65 тип, 9 таблица - описание каждой переменной PRC, аналогичное описанию репродуктивных кодов животных:
0 - ERROR
1 -  БРАК
2 - НОВОТЕЛ
3 - ЯЛОВАЯ
4 - ОСЕМЕН
5 - СТЕЛН
6 - СУХОСТ
7 - ВЫБЫЛО
8 - БЫК

После создания пунктов необходимо создать команду PRCCAL в меню alter\3, определив её следующим образом:
PRC=CRC FOR PRC<>CRC RC<>CRC\L!CRC=RC FOR RC<>CRC

Команда готова. Осталось вставить её в планировщик DairyComp (меню alter\6) с интервалом выполнения каждые 3 часа. Таким образом, мы обеспечим обновление параметра PRC каждые 3 часа.

Последний шаг - добавить в определение событий (alter\9) во все события, которые вы используете для выбытия животных (sold, died, emcull), конструкцию PRC=RC в начало команды,чтобы получилось следующее
ENTER PRC=RC EC=14 EDAY CAR

Рассмотрим пример.
1. Вводим корове отел. Коды определятся следующим образом: RC=2 CRC=2 PRC=6
2. Вводим осеменение. RC=4 CRC=4 PRC=2
3. Вводим событие БРАК. RC=1 CRC=1 PRC=4
4. Вводим осеменение. RC=4 CRC=4 PRC=1
5. Вводим событие Яловая. RC=3 CRC=3 PRC=4