Организационная структура участка технологической автоматизации цеха металлизации

 

Обслуживание оборудования технологической автоматизации (ТА) цеха металлизации ведется участком ТА цеха металлизации входящим в состав Управления Автоматизации и Метрологии (УАМ). Структурная схема участка приведена на рисунке 41. Участок предназначен для оперативного обслуживания оборудования ТА, профилактических и плановых ремонтов, небольших электромонтажных работ.

 

Начальником участка осуществляется:

-   руководство всеми видами деятельности участка;

-   организация работы и эффективного взаимодействия сотрудников подразделения;

-   обеспечение выполнения участком установленных количественных и качественных показателей.

Старшим мастером и инженером электроникам осуществляется:

-   организация работ по выполнению плановых заданий в установленные сроки;

-   контроль за проведением ремонтных работ и испытанию оборудования;

- участие в расследовании причин аварий оборудования;

- обеспечение выполнения требований и правил эксплуатации электроустановок.

Складом осуществляется:

-   организация обеспечения участка всеми необходимыми для его производственной деятельности материальными ресурсами;

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

-   организация работы складского хозяйства, составление всей необходимой отчетности.

Оперативным и оперативно-ремонтным персоналом осуществляется:

- обеспечение надежной и безопасной работы обслуживаемого оборудования;

- сохранность и аккуратное ведение оперативно-технической документации;

- обслуживание и ремонт оборудования

- надзор за сохранностью и исправностью приборов и инструмента.

Непосредственное обслуживание внедряемой подсистемы будет осуществляться группой по обслуживанию весового хозяйства цеха. Она состоит из двух человек. Расчет фонда оплаты труда группы приведен в таблице 7.

 

Таблица 7

Расчет фонда оплаты труда

Должность	Разряд	Тариф (руб/ч)	Среднемесячный фонд времени	Премия (%)	Оплата (руб)
					за месяц	за год
Слесарь КИП и А	6	8,47	166,25	110	2957,08	35484,96
Слесарь КИП и А	5	7,29	166,25	110	2545,12	30541,44
Фонд оплаты труда:                 66026,4

 

Оценка экономической эффективности

 

Внедрение подсистемы повышает надежность конвейерных весов, что в свою очередь позволяет снизить количество поверок и повторных настроек весов с еженедельных до ежемесячных. Это особенно актуально для конвейерных весов по выгрузке металлизованного окатыша из печи металлизации, так как для настройки приходится приостанавливать технологический цикл по производству окатыша. Если приурочить настройку весов к планово-предупредительным ремонтам, проводимым на печи металлизации ежемесячно, можно вообще исключить вынужденные простои печи по настройке весов.

Продолжительность настройки весов составляет в среднем t=2,7 часа. С учетом капитального и планово-предупредительных ремонтов вынужденные простои составляют:

 

T_п = t • n = 2,7 • (52 - 11 - 4) = 96,2 часов в год. (11)

 

По показателям работы цеха металлизации за 1999 год средняя производительность печей составила Q_с=228,6 т/ч и было произведено V_c=1787000 тон металлизованного окатыша. Следовательно, потери на вынужденных простоях по весам составляют около

 

V_п = 96,2 • 228,6 = 21991,32 тон за год. (12)

 

Внедрение подсистемы позволило бы произвести около

 

V_н = V_с + V_п = 1787000 + 21991,32 = 1808991,32 тон (13)

 

металлизованных окатышей.

Калькуляция себестоимости 1 т металлизованных окатышей до и после внедрения приведена в таблице 8.

 

Таблица 8

Калькуляция себестоимости 1 т металлизованных окатышей

Статьи затрат	до внедрения			после внедрения
	Цена руб.	Кол-во, т	Сумма руб.	кол-во, т	сумма руб.
1. Сырье и основные материалы:
- окисленные окатыши	200,04	1,382	276,46	1,382	276,46
- металлосодержащие отходы	67,0	0,012	0,8	0,012	0,8
- подготовка отходов	6,71	-	-	-	-
ИТОГО	-	1,394	277,26	1,394	277,26
2. Отходы (минус)	-	0,394	-1,84	0,394	-1,84
3. Вспомогательные материалы	-	-	2,41	-	2,39
4. Топливо технологическое: - газ природный 1000 куб. м	-	-	71,9	-	71,9
5. Расходы по переделу:	-	-	87,84	-	87,2
Цеховая себестоимость	-	-	437,6	-	436,91
Общезаводские расходы	-	-	18,45	-	18,23
Производственная себестоимость	-	-	456,02	-	455,14

 

Стоимость выбранного в разделе (1.7.1.) оборудования равна 6203 $, что при текущем курсе рубля составляет:

 

К = 6203 • 28,34 = 175793,02 рубя. (14)

 

Производственные затраты:

 

П_з =С_н +Е •К / V_н =455,14 +0,15 •175793,02 /1808991,32 =455,15 руб/т(15)

 

где: С_н – производственная себестоимость.

Эффективность внедрения:

 

Э = С_с – П_з = 456,02 - 455,15 = 0,87 руб/т (16)

 

где: С_с – производственная себестоимость до внедрения.

Годовой экономический эффект:

 

Э_г = Э • V_н = 0,87 • 1808991,32 = 1573822,45 руб (17)

 

Вывод

В приведенном выше расчете показано, что подсистема позволит увеличить среднегодовую производительность печей металлизации на 1,2 %, сэкономить более полутора миллионов рублей в год и в течение месяца окупить затраты на приобретение технических средств подсистемы.

На основе проведенных расчетов можно сделать вывод, что внедрение подсистемы учета готовой продукции экономически выгодно.

ЗАКЛЮЧЕНИЕ

 

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

Разработана трехуровневая структура подсистемы, в которой нижний и средний уровни представлены микропроцессорным контроллером и панелями оператора, а верхний системой визуализации.

Разработано алгоритмическое и математическое обеспечение, реализующее алгоритмы тарирования, юстирования, калибровки скорости, учетных счетчиков.

Произведен выбор комплекса технических средств подсистемы, в который вошли контроллер ЭК-2000 фирмы ЭМИКОН, панели оператора UniOP фирмы EXOR ELECTRONIC.

Произведен выбор системных программных средств и прикладного программного обеспечения.

Написана программа учета готовой продукции на языке Turbo-CONT для контроллера ЭК-2000.

Разработаны и сконфигурированы программы визуализации и управления для панелей оператора UniOP.

Разработаны экраны визуализации для оператора-технолога в SCADA системе TRACE MODE.

В разделе охраны труда рассмотрены мероприятия по охране труда, требования к оборудованию и персоналу обслуживающему его. Произведен расчет освещенности помещения.

В организационно-экономической части проекта произведен расчет экономического эффекта внедряемой подсистемы. Экономия составила более полутора миллионов рублей за счет сокращения времени вынужденных простоев печи металлизации.

Представленная в дипломном проекте подсистема автоматизирует только часть весового хозяйства цеха металлизации. Но она построена так, что позволяет легко расширить ее. Однотипность конвейерных весов позволяет с небольшой доработкой применить разработанное алгоритмическое и программное обеспечение. Применение контроллера ЭК-2000 в качестве электронной базы весов позволит подключить их к сети подсистемы, а через ее и к системе визуализации с дальнейшим выходом в глобальную сеть комбината.

Данная подсистема может быть с успехом использована в цехах и на предприятиях как металлургической, так и других отраслях промышленности.

 

Список используемой литературы

1. Еременко Ю.И. “Методические указания по дипломному проектированию для студентов дневной и вечерней форм обучения специальности «Автоматизация технологических процессов и производств»” Ст. Оскол МИСиС 1999г.

2. Тиц Ю.В. Лившиц В.И. Плахтин В.Д. “Конвейерный транспорт металлургических заводов” МОСКВА «Металлургия» 1975г.

3. Зенков Р.Л. Ивашков И.И. Колобов Л.Н “Машины непрерывного транспорта” МОСКВА «Машиностроение» 1987г.

4. “Техническая документация на конвейерные весы 4-НММ-20951” фирмы CARL SCHENCK AG

5. “Техническая документация на конвейерные весы 0-НММ-16106” фирмы CARL SCHENCK AG

6. “Техническая документация на конвейерные весы 1-НММ-12013” фирмы CARL SCHENCK AG

7. Коновалов Л.И. Петелин Д.П. “Элементы и системы автоматики” МОСКВА «Высшая школа» 1985г.

8. Мясников В.А. Вальков В.М. Омельченко И.С. “Автоматизированные и автоматические системы управления технологическими процессами” МОСКВА «Машиностроение» 1978г.

9. Клюев А.С. Глазов Б.В. Дубровский А.Х. “Проектирование систем автоматизации технологических процессов” Справочное пособие МОСКВА «Энергия» 1980г.

10. ГОСТ 29329-92 “Весы для статического взвешивания. Общие технические требования” Госстандарт РОССИЯ 1992г.

11. ГОСТ 8.005-82 “Весы непрерывного действия. Методы и средства поверки” Гос. Ком. СССР по стандартам МОСКВА 1982г.

12. ГОСТ 15077-78 “Датчики силоизмерительные тензорезисторные. Общие технические условия” Гос. Ком. СССР по стандартам МОСКВА 1978г.

13. ГОСТ 16217-83 “Датчики силы тензорезисторные. Термины и определения” Гос. Ком. СССР по стандартам МОСКВА 1983г.

14. “Правила технической эксплуатации ленточных конвейеров на предприятиях черной металлургии” МОСКВА «Металлургия» 1987г.

15. “Должностная инструкция для слесаря КИП и А участка ТА цеха металлизации” УАМ ОЭМК 1999г.

16. Иванов И.М. Бельгольский Б.П. Соломахин И.С. “Технико-экономические расчеты по организации, планированию и управлению металлургическими предприятиями” МОСКВА «Металлургия» 1993г.

17. ГОСТ 7.32-91 “Отчет о научно-исследовательской работе. Общие требования и правила оформления” Госстандарт РОССИЯ 1991г.

 

Приложение

“”””””””””””” ПРОГРАММА ПОДСИСТЕМЫ УЧЕТА ГОТОВОЙ ПРОДУКЦИ ”””””””””””””

БИБЛИОТЕКА (LIB\VES.LIB);

БИБЛИОТЕКА (LIB\VESMATH.LIB);

"Инициализация"

ВЫЧИСЛИТЬ (CR) (+) (1) (CR);

"""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ СЕТEВОГО МОДУЛЯ""""""""""""""""""""""""

ДРАЙВЕР (D3C02);

РАЗРЕШИТЬ (0);

""""""""""""""""ИНИЦИАЛИЗАЦИЯ МОДУЛЯ СЧЕТЧИКОВ ТАХОГЕНЕРАТОРОВ""""""""""""""

ФУНКЦИЯ (FINIQC01), входные параметры (2);

""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ МОДУЛЯ СЧЕТЧИКОВ ВЕСА"""""""""""""""""""""

ДРАЙВЕР (DQC01_A) (3,0,30);

РАЗРЕШИТЬ (3);

""""""""""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ЧАСОВ"""""""""""""""""""""""""""

ДРАЙВЕР (D3RTC), (220);

ФУНКЦИЯ (FINTRTC), входные параметры (1);

"""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ВРЕМЕНИ ФИЛЬТРОВ"""""""""""""""""""""""""

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_ФИЛ);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_1);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_2);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_3);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12090_4);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12543);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12544);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12_1);

ПЕРЕСЛАТЬ значение (10) в (ВРЕМ_12_2);

ПЕРЕСЛАТЬ значение (10) в (ФЛ_СЧ_ЧТ);

ПЕРЕСЛАТЬ значение (1) в (Q);

СБРОСИТЬ флаг (ДИН_ТАР);

СБРОСИТЬ флаг (ДИН_ЮСТ);

ПЕРЕСЛАТЬ значение (0) в (ФЛАГИ_ТАР);

ПЕРЕСЛАТЬ значение (0) в (ФЛАГИ_ЮСТ);

ПЕРЕСЛАТЬ значение (255) в (КОНЕЦ_ТАР);

"""""""""""""""""""""""""ИНИЦИАЛИЗАЦИЯ ФИЛЬТРА""""""""""""""""""""""""""""""

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12090_1, СОСТ_12090_1 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12090_2, СОСТ_12090_2 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12090_3, СОСТ_12090_3 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12090_4, СОСТ_12090_4 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12543, СОСТ_12543 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12544, СОСТ_12544 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12_1, СОСТ_12_1 );

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_12_2, СОСТ_12_2 );

"""""""""""""""ИНИЦИАЛИЗАЦИЯ БУФЕРА ДИНАМИЧЕСКОГО ТАРИРОВАНИЯ""""""""""""""""

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_ТАР, СОСТ_ТАР );

"""""""""""""""ИНИЦИАЛИЗАЦИЯ БУФЕРА ДИНАМИЧЕСКОЙ ЮСТИРОВКИ"""""""""""""""""""

ФУНКЦИЯ (INIT_FTR),

входные параметры (100),

выходные параметры ( НАЧ_БУФ_ЮСТ, СОСТ_ЮСТ );

"""""""""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ФИЛЬТРА МЕСДОЗ""""""""""""""

ЗАГРУЗИТЬ таймер (ТАЙМ_ФИЛ) уставкой (ВРЕМ_ФИЛ), режим (0);

СТАРТ таймер (ТАЙМ_ФИЛ);

ПРЕРЫВАНИЕ с номером (23) подпрограммой (ФИЛ_МЕСДОЗ),

если (ТАЙМ_ФИЛ@) (=) (0);

РАЗРЕШИТЬ (23);

"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ДИНАМИЧЕСКОГО ТАРИРОВАНИЯ""""""""

ПРЕРЫВАНИЕ с номером (22) подпрограммой (ДИНАМ_ТАР),

если (@ТАЙМ_ТАР@) (=) (1);

"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ДИНАМИЧЕСКОЙ ЮСТИРОВКИ"""""""""""

ПРЕРЫВАНИЕ с номером (21) подпрограммой (ДИНАМ_ЮСТ),

если (@ТАЙМ_ЮСТ@) (=) (1);

"""""""ИНИЦИАЛИЗАЦИЯ ПРЕРЫВАНИЯ ПО ТАЙМЕРУ ЧТЕНИЯ ТАХОГЕНИРАТОРОВ"""""""""""

ЗАГРУЗИТЬ таймер (ТАЙМ_ТАХ) уставкой (100), режим (0);

СТАРТ таймер (ТАЙМ_ТАХ);

ПРЕРЫВАНИЕ с номером (16) подпрограммой (ЧТ_ТАХ),

если (@ТАЙМ_ТАХ@) (=) (1);

РАЗРЕШИТЬ (16);

"""""""ИНИЦИАЛИЗАЦИЯ ТАЙМЕРОВ ДИСКРЕТНЫХ ВЫХОДОВ""""""""""""""""""""""""""""

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_1) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_2) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_3) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12090_4) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543) уставкой (40), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543_1) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12543_2) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544) уставкой (40), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544_1) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12544_2) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12_1) уставкой (20), режим (0);

ЗАГРУЗИТЬ таймер (ТАЙМ_ИМП_12_2) уставкой (20), режим (0);

СТАРТ таймер (ТАЙМ_ИМП_12090_1);

СТАРТ таймер (ТАЙМ_ИМП_12090_2);

СТАРТ таймер (ТАЙМ_ИМП_12090_3);

СТАРТ таймер (ТАЙМ_ИМП_12090_4);

СТАРТ таймер (ТАЙМ_ИМП_12543);

СТАРТ таймер (ТАЙМ_ИМП_12543_1);

СТАРТ таймер (ТАЙМ_ИМП_12543_2);

СТАРТ таймер (ТАЙМ_ИМП_12544);

СТАРТ таймер (ТАЙМ_ИМП_12544_1);

СТАРТ таймер (ТАЙМ_ИМП_12544_2);

СТАРТ таймер (ТАЙМ_ИМП_12_1);

СТАРТ таймер (ТАЙМ_ИМП_12_2);

ОЖИДАТЬ (300) интервалов;

"""""""""""""""""""""""""""""""НАЧАЛО ПРОГРАММЫ"""""""""""""""""""""""""""""

[НАЧАЛО]

ДЕБЛОКИРОВАТЬ;

ПЕРЕСЛАТЬ (0) в (ЗАЩИТА);

ЗАГРУЗИТЬ таймер (ТАЙМЕР) уставкой (100), режим (0);

СТАРТ таймер (ТАЙМЕР);

"""""""""""""""""""""""""""""""" УСТАНОВКА ЧАСОВ """"""""""""""""""""""""""""

ЕСЛИ (Q) (=) (1), то {

ЕСЛИ (F1) (=) (1), то {

СБРОСИТЬ флаг (F2);

ИДТИ на метку (A1);

} ИНАЧЕ {ВЗВЕСТИ флаг (F1);

СБРОСИТЬ флаг (F2);

ФУНКЦИЯ (FSETRTC), входные параметры (СЕК,МИН,ЧАС,

ЧИСЛ,МЕС,ГОД);

ФУНКЦИЯ (FINTRTC), входные параметры (Q);}}

ИНАЧЕ { ЕСЛИ (F2) (=) (1), то {

СБРОСИТЬ флаг (F1);

ИДТИ на метку (A1);

} ИНАЧЕ {ВЗВЕСТИ флаг (F2);

СБРОСИТЬ флаг (F1);

ФУНКЦИЯ (FINTRTC), входные параметры (Q);}}

[A1]

""""""""""""""""""""""" ЧТЕНИЕ ЗНАЧЕНИЙ МЕСДОЗ """""""""""""""""""""""""""""

ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_1) в (МЕСДОЗА_12090_1);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_2) в (МЕСДОЗА_12090_2);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_3) в (МЕСДОЗА_12090_3);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12090_4) в (МЕСДОЗА_12090_4);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12543) в (МЕСДОЗА_12543);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12544) в (МЕСДОЗА_12544);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12_1) в (МЕСДОЗА_12_1);

ПЕРЕСЛАТЬ значение (ДАТЧИК_12_2) в (МЕСДОЗА_12_2);

""""""""""""""""""""""""""""""УПРАВЛЕНИЕ ФИЛЬТРАМИ""""""""""""""""""""""""""

ЕСЛИ (ВКЛ_ФИЛ_12090_1) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12090_1) в (БРУТТО_12090_1);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_1) в (БРУТТО_12090_1);

}

ЕСЛИ (ВКЛ_ФИЛ_12090_2) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12090_2) в (БРУТТО_12090_2);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_2) в (БРУТТО_12090_2);

}

ЕСЛИ (ВКЛ_ФИЛ_12090_3) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12090_3) в (БРУТТО_12090_3);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_3) в (БРУТТО_12090_3);

}

ЕСЛИ (ВКЛ_ФИЛ_12090_4) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12090_4) в (БРУТТО_12090_4);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12090_4) в (БРУТТО_12090_4);

}

ЕСЛИ (ВКЛ_ФИЛ_12543) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12543) в (БРУТТО_12543);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12543) в (БРУТТО_12543);

}

ЕСЛИ (ВКЛ_ФИЛ_12544) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12544) в (БРУТТО_12544);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12544) в (БРУТТО_12544);

}

ЕСЛИ (ВКЛ_ФИЛ_12_1) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12_1) в (БРУТТО_12_1);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12_1) в (БРУТТО_12_1);

}

ЕСЛИ (ВКЛ_ФИЛ_12_2) (=) (1), то {

ПЕРЕСЛАТЬ значение (ФИЛ_12_2) в (БРУТТО_12_2);

}

ИНАЧЕ {

ПЕРЕСЛАТЬ значение (МЕСДОЗА_12_2) в (БРУТТО_12_2);

}

"""""""""""""""""""""""""ТАРИРОВАНИЕ"""""""""""""""""""""""""""

ЕСЛИ (ФЛАГИ_ТАР) (#) (0), то {

ВЫЗВАТЬ процедуру (ТАРИРОВАНИЕ);

}

"""""""""""""""""""""""""ЮСТИРОВАНИЕ"""""""""""""""""""""""""""

ЕСЛИ (ФЛАГИ_ЮСТ) (#) (0), то {

ВЫЗВАТЬ процедуру (ЮСТИРОВКА);

}

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА """"""""""""""""""""""""""""""

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_1"""""""""""""""""""""""

ВЫЧИСЛИТЬ (БРУТТО_12090_1) (-) (ТАРА_СТАТ_12090_1) (НЕТТО_СТАТ_12090_1);

ФУНКЦИЯ (FZOOM), вх (НЕТТО_СТАТ_12090_1,ЮСТ_ВЕС_12090_1,ЮСТ_СТАТ_12090_1),

вых (ВЕС_СТАТ_12090_1);

ВЫЧИСЛИТЬ (БРУТТО_12090_1) (-) (ТАРА_ДИН_12090_1) (НЕТТО_ДИН_12090_1);

ЕСЛИ (НЕТТО_ДИН_12090_1) (<) (0), то {

ВЫЧИСЛИТЬ (0) (-) (НЕТТО_ДИН_12090_1) (НЕТТО_ДИН_12090_1);

ВЗВЕСТИ флаг (ФЛ_МИН_12090_1);

}ИНАЧЕ {

СБРОСИТЬ флаг (ФЛ_МИН_12090_1);

}

ФУНКЦИЯ (FZOOM), вх (НЕТТО_ДИН_12090_1,ЮСТ_ВЕС_12090_1,ЮСТ_ДИН_12090_1),

вых (ВЕС_ДИН_12090_1);

 

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_2""""""""""""""""""""""""""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_3"""""""""""""""""""""""

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12090_4"""""""""""""""""""""""

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12543"""""""""""""""""""""""

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12544"""""""""""""""""""""""

"""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12_1""""""""""""""""""""""""""""""""""""""""""""""""""""""""РАСЧЕТ ВЕСА 12_2""""""""""""""""""""""""""""""""""""""""""""""""""КОНЕЦ РАСЧЕТА ВЕСА""""""""""""""""""""""""""""""""""""""""""""ПРОВЕРКА НАЛИЧИЯ МАТЕРИАЛА НА ЛЕНТЕ""""""""""""""""""""""""""

ЕСЛИ (ВЕС_ДИН_12090_1) (<) (МИН_ВЕС_12090_1), то {

ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_1);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_1);

}

ЕСЛИ (ВЕС_ДИН_12090_2) (<) (МИН_ВЕС_12090_2), то {

ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_2);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_2);

}

ЕСЛИ (ВЕС_ДИН_12090_3) (<) (МИН_ВЕС_12090_3), то {

ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_3);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_3);

}

ЕСЛИ (ВЕС_ДИН_12090_4) (<) (МИН_ВЕС_12090_4), то {

ВКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_4);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ПРЗ_МИН_12090_4);

}

 

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_1""""""

""""""""""""""""""""РАСЧЕТ СКОРОСТИ 12090_1""""""""""""""""""""""""""""""""

ФУНКЦИЯ (MULU), вх (ДЛИН_12090_1,ДЛ_ТАХ_12090_1), вых (Х_С,Х_М);

ФУНКЦИЯ (DIVU), вх (КАЛ_С_12090_1,КАЛ_М_12090_1,10),

вых (Y_С,Y_М,ОСТ); "импульсов за 1/10 оборота

ЕСЛИ (Y_С) (=) (0), то {

ЕСЛИ (ОСТ) (>) (4), то {

ВЫЧИСЛИТЬ (Y_М) (+) (1) (Y_М);

}

ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,Y_М),

вых (СКОР_С_12090_1,СКОР_М_12090_1,ОСТ); " в мм/сек

ВЫЧИСЛИТЬ (Y_М) (/) (2) (Y_М);

ЕСЛИ (ОСТ) (>=) (Y_М), то {

ВЫЧИСЛИТЬ (СКОР_М_12090_1) (+) (1) (СКОР_М_12090_1);

}

}

""""""""""""""РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ 12090_1"""""""""""""""""""""""""""

ФУНКЦИЯ (MULU), вх (ДЛИН_12090_1,ВЕС_ДИН_12090_1), вых (Х_С,Х_М);

ФУНКЦИЯ (DIVU), вх (КАЛ_С_12090_1,КАЛ_М_12090_1,10),

вых (Y_С,Y_М,ОСТ); "импульсов за 1/10 оборота

ЕСЛИ (Y_С) (=) (0), то {

ЕСЛИ (ОСТ) (>) (4), то {

ВЫЧИСЛИТЬ (Y_М) (+) (1) (Y_М);

}

ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,Y_М), вых (Z_С,Z_М,ОСТ);

ВЫЧИСЛИТЬ (Y_М) (/) (2) (Y_М);

ЕСЛИ (ОСТ) (>=) (Y_М), то {

ВЫЧИСЛИТЬ (Z_М) (+) (1) (Z_М);

}

}

ФУНКЦИЯ (MULU), вх (ДЛ_ТАХ_12090_1,3600), вых (Х_С,Х_М);

ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,МОСТ_12090_1), вых (Х_С,Х_М,ОСТ);

ВЫЧИСЛИТЬ (МОСТ_12090_1) (/) (2) (Y_М);

ЕСЛИ (ОСТ) (>=) (Y_М), то {

ВЫЧИСЛИТЬ (Х_М) (+) (1) (Х_М);

}

ФУНКЦИЯ (MULU), вх (Z_М,Х_М),

вых (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1); " г. в час"

ФУНКЦИЯ (CMP32), вх (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1, 22,0),

вых (ERR);

ЕСЛИ (ERR) (=) (-1), то {

ПЕРЕСЛАТЬ значение (0) в (ПРОИЗВ_С_12090_1);

ПЕРЕСЛАТЬ значение (0) в (ПРОИЗВ_М_12090_1);

}

ФУНКЦИЯ (DIVU), вх (ПРОИЗВ_С_12090_1,ПРОИЗВ_М_12090_1,10000),

вых (Х_С,Х_М,ОСТ);

ФУНКЦИЯ (FZOOM), вх (Х_М,3276,10000), вых (ПРЗ_12090_1);

ВЫЧИСЛИТЬ (ПРЗ_12090_1) (+) (819) (ПРЗ_12090_1);

ФУНКЦИЯ (FAO01), вх (0,1,ПРЗ_12090_1), вых (ERR);

ЕСЛИ (КОНВ_12090_1) (=) (1), то {

""""""""ИНИЦИАЛИЗАЦИЯ РУЧНОГО СЧЕТЧИКА КОЛИЧЕСТВА МАТЕРИАЛА 12090_1"""""""""

ЕСЛИ (ФЛ_СЧЕТ_12090_1) (=) (0), то {

ЕСЛИ (ВР_СЧ_12090_1) (>) (0), то {

ВЗВЕСТИ флаг (ФЛ_СЧЕТ_12090_1);

СБРОСИТЬ флаг (ФЛ_ЧТ_12090_1);

ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_КОЛ_С_12090_1);

ПЕРЕСЛАТЬ значение (0) в (СЧЕТ_КОЛ_М_12090_1);

ВЫЧИСЛИТЬ (ВР_СЧ_12090_1) (*) (1) (КОЛ_ИЗМ_12090_1);

}

}

""""""""""""""РАСЧЕТ КОЛИЧЕСТВА МАТЕРИАЛА 12090_1"""""""""""""""""""""""""""

ЕСЛИ (ФЛ_ЧТ_12090_1) (=) (1), то {

ФУНКЦИЯ (MULU), вх (ДЛ_ТАХ_12090_1,5000), вых (Х_С,Х_М);

ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,МОСТ_12090_1),

вых (Х_С,Х_М,ОСТ);

ВЫЧИСЛИТЬ (МОСТ_12090_1) (/) (2) (Y_М);

ЕСЛИ (ОСТ) (>=) (Y_М), то {

ВЫЧИСЛИТЬ (Х_М) (+) (1) (Х_М);

}

ФУНКЦИЯ (MULU), вх (Z_М,Х_М), вых (Х_С,Х_М);

ФУНКЦИЯ (DIVU), вх (Х_С,Х_М,5000),

вых (Х_С,Х_М,ОСТ); "г. в сек"

"""""""""""""""""РУЧНОЙ СЧЕТЧИК 12090_1"""""""""""""""""""""""""""""""""""""

ЕСЛИ (ФЛ_СЧЕТ_12090_1) (=) (1), то {

ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_КОЛ_С_12090_1,

СЧЕТ_КОЛ_М_12090_1,

Х_С,Х_М),

вых (СЧЕТ_КОЛ_С_12090_1,

СЧЕТ_КОЛ_М_12090_1,ERR);

}ИНАЧЕ{

ФУНКЦИЯ (SUBU32), вх (СЧЕТ_КОЛ_С_12090_1,

СЧЕТ_КОЛ_М_12090_1,

Х_С,Х_М),

вых (СЧЕТ_КОЛ_С_12090_1,

СЧЕТ_КОЛ_М_12090_1,ERR);

}

ВЫЧИСЛИТЬ (КОЛ_ИЗМ_12090_1) (-) (1) (КОЛ_ИЗМ_12090_1);

ЕСЛИ (КОЛ_ИЗМ_12090_1) (=) (0), то {

СБРОСИТЬ флаг (ФЛ_СЧЕТ_12090_1);

ПЕРЕСЛАТЬ (0) в (ВР_СЧ_12090_1);

}

}

""""""""""""""""""""""""""СЧЕТЧИК МАТЕРИАЛА 12090_1"""""""""""""""""""""""""

ЕСЛИ (RDA9) (#) (10), то {

ЕСЛИ (ФЛ_СБР_12090_1) (=) (1), то {

ПЕРЕСЛАТЬ (0) в (ТЕХ_СЧ_М_12090_1);

ПЕРЕСЛАТЬ (0) в (ТЕХ_СЧ_С_12090_1);

СБРОСИТЬ флаг (ФЛ_СБР_12090_1);

}ИНАЧЕ{

ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1, Х_С,Х_М),

вых (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1,ERR);

}ИНАЧЕ{

ФУНКЦИЯ (SUBU32), вх (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1, Х_С,Х_М),

вых (ТЕХ_СЧ_С_12090_1, ТЕХ_СЧ_М_12090_1,ERR);

}

}

ЕСЛИ (ФЛ_МИН_12090_1) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (КОЛ_С_12090_1, КОЛ_М_12090_1, Х_С,Х_М),

вых (КОЛ_С_12090_1, КОЛ_М_12090_1,ERR);

ФУНКЦИЯ (ADDU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, Х_С,Х_М),

вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);

}ИНАЧЕ{

ФУНКЦИЯ (SUBU32), вх (КОЛ_С_12090_1, КОЛ_М_12090_1, Х_С,Х_М),

вых (КОЛ_С_12090_1, КОЛ_М_12090_1,ERR);

ФУНКЦИЯ (SUBU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, Х_С,Х_М),

вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);

}

}

СБРОСИТЬ флаг (ФЛ_ЧТ_12090_1);

}

ЕСЛИ (ТАЙМ_ИМП_12090_1@) (=) (0), то {

ФУНКЦИЯ (CMP32), вх (ИМП_С_12090_1, ИМП_М_12090_1, 0,10000),

вых (ERR);

ЕСЛИ (ERR) (#) (-1), то {

ФУНКЦИЯ (SUBU32), вх (ИМП_С_12090_1, ИМП_М_12090_1, 0,10000),

вых (ИМП_С_12090_1, ИМП_М_12090_1,ERR);

СТАРТ таймер (ТАЙМ_ИМП_12090_1);

}

}

}

 

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_2""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_3""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12090_4""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12543""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12544""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12_1""""""

""""РАСЧЕТ СКОРОСТИ, ПРОИЗВОДИТЕЛЬНОСТИ, КОЛИЧЕСТВА МАТЕРИАЛА 12_2""""""

 

"""""""""""""""""""""""ИМПУЛЬСНЫЕ СЧЕТЧИКИ""""""""""""""""""""""""""""""""

ЕСЛИ (ТАЙМ_ИМП_12090_1) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12090_1);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_1);

}

ЕСЛИ (ТАЙМ_ИМП_12090_2) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12090_2);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_2);

}

ЕСЛИ (ТАЙМ_ИМП_12090_3) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12090_3);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_3);

}

ЕСЛИ (ТАЙМ_ИМП_12090_4) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12090_4);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12090_4);

}

ЕСЛИ (ТАЙМ_ИМП_12543) (>) (20), то {

ВКЛЮЧИТЬ выход (ИМП_12543);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12543);

}

ЕСЛИ (ТАЙМ_ИМП_12543_1) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12543_1);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12543_1);

}

ЕСЛИ (ТАЙМ_ИМП_12543_2) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12543_2);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12543_2);

}

ЕСЛИ (ТАЙМ_ИМП_12544) (>) (20), то {

ВКЛЮЧИТЬ выход (ИМП_12544);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12544);

}

ЕСЛИ (ТАЙМ_ИМП_12544_1) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12544_1);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12544_1);

}

ЕСЛИ (ТАЙМ_ИМП_12544_2) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12544_2);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12544_2);

}

ЕСЛИ (ТАЙМ_ИМП_12_1) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12_1);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12_1);

}

ЕСЛИ (ТАЙМ_ИМП_12_2) (>) (10), то {

ВКЛЮЧИТЬ выход (ИМП_12_2);

} ИНАЧЕ {

ВЫКЛЮЧИТЬ дискретный выход (ИМП_12_2);

}

""""""""""""""""""""""МАТЕРИАЛ ЗА ПРЕДЫДУЩИЙ ЧАС""""""""""""""""""""""""""

ЕСЛИ (МИН) (=) (0), то {

ЕСЛИ (ФЛ_ЧАС) (=) (0), то {

ПЕРЕСЛАТЬ значение (КОЛ_С_12090_1) в (ЧАС_С_12090_1);

ПЕРЕСЛАТЬ значение (КОЛ_М_12090_1) в (ЧАС_М_12090_1);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12090_1,КОЛ_М_12090_1,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12090_1) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12090_1, СЧЕТ_СМ_М_12090_1, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12090_1, СЧЕТ_СМ_М_12090_1,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12090_1, СЧЕТ_СУТ_М_12090_1, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12090_1, СЧЕТ_СУТ_М_12090_1,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12090_1, СЧЕТ_МЕС_М_12090_1, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12090_1, СЧЕТ_МЕС_М_12090_1,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12090_1);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12090_1);

 

ПЕРЕСЛАТЬ значение (КОЛ_С_12090_2) в (ЧАС_С_12090_2);

ПЕРЕСЛАТЬ значение (КОЛ_М_12090_2) в (ЧАС_М_12090_2);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12090_2,КОЛ_М_12090_2,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12090_2) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12090_2, СЧЕТ_СМ_М_12090_2, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12090_2, СЧЕТ_СМ_М_12090_2,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12090_2, СЧЕТ_СУТ_М_12090_2, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12090_2, СЧЕТ_СУТ_М_12090_2,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12090_2, СЧЕТ_МЕС_М_12090_2, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12090_2, СЧЕТ_МЕС_М_12090_2,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12090_2);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12090_2);

 

ПЕРЕСЛАТЬ значение (КОЛ_С_12090_3) в (ЧАС_С_12090_3);

ПЕРЕСЛАТЬ значение (КОЛ_М_12090_3) в (ЧАС_М_12090_3);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12090_3,КОЛ_М_12090_3,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12090_3) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12090_3, СЧЕТ_СМ_М_12090_3, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12090_3, СЧЕТ_СМ_М_12090_3,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12090_3, СЧЕТ_СУТ_М_12090_3, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12090_3, СЧЕТ_СУТ_М_12090_3,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12090_3, СЧЕТ_МЕС_М_12090_3, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12090_3, СЧЕТ_МЕС_М_12090_3,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12090_3);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12090_3);

 

ПЕРЕСЛАТЬ значение (КОЛ_С_12090_4) в (ЧАС_С_12090_4);

ПЕРЕСЛАТЬ значение (КОЛ_М_12090_4) в (ЧАС_М_12090_4);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12090_4,КОЛ_М_12090_4,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12090_4) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12090_4, СЧЕТ_СМ_М_12090_4, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12090_4, СЧЕТ_СМ_М_12090_4,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12090_4, СЧЕТ_СУТ_М_12090_4, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12090_4, СЧЕТ_СУТ_М_12090_4,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12090_4, СЧЕТ_МЕС_М_12090_4, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12090_4, СЧЕТ_МЕС_М_12090_4,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12090_4);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12090_4);

 

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12543);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12543);

ПЕРЕСЛАТЬ значение (КОЛ_С_12543_1) в (ЧАС_С_12543_1);

ПЕРЕСЛАТЬ значение (КОЛ_М_12543_1) в (ЧАС_М_12543_1);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12543_1,КОЛ_М_12543_1,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12543_1) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12543_1, СЧЕТ_СМ_М_12543_1, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12543_1, СЧЕТ_СМ_М_12543_1,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12543_1, СЧЕТ_СУТ_М_12543_1, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12543_1, СЧЕТ_СУТ_М_12543_1,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12543_1, СЧЕТ_МЕС_М_12543_1, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12543_1, СЧЕТ_МЕС_М_12543_1,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12543_1);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12543_1);

ПЕРЕСЛАТЬ значение (КОЛ_С_12543_2) в (ЧАС_С_12543_2);

ПЕРЕСЛАТЬ значение (КОЛ_М_12543_2) в (ЧАС_М_12543_2);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12543_2,КОЛ_М_12543_2,1000),

вых (Х_С,Х_М,ОСТ); "кг."

ЕСЛИ (ОСТ) (>) (499), то {

ФУНКЦИЯ (ADDU32), вх (Х_С,Х_М,0,1), вых (Х_С,Х_М,ERR);

}

ЕСЛИ (МИН_12543_2) (=) (0), то {

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СМ_С_12543_2, СЧЕТ_СМ_М_12543_2, Х_С,Х_М),

вых (СЧЕТ_СМ_С_12543_2, СЧЕТ_СМ_М_12543_2,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_СУТ_С_12543_2, СЧЕТ_СУТ_М_12543_2, Х_С,Х_М),

вых (СЧЕТ_СУТ_С_12543_2, СЧЕТ_СУТ_М_12543_2,ERR);

ФУНКЦИЯ (ADDU32), вх (СЧЕТ_МЕС_С_12543_2, СЧЕТ_МЕС_М_12543_2, Х_С,Х_М),

вых (СЧЕТ_МЕС_С_12543_2, СЧЕТ_МЕС_М_12543_2,ERR);

}

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12543_2);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12543_2);

 

ПЕРЕСЛАТЬ значение (0) в (КОЛ_С_12544);

ПЕРЕСЛАТЬ значение (0) в (КОЛ_М_12544);

ПЕРЕСЛАТЬ значение (КОЛ_С_12544_1) в (ЧАС_С_12544_1);

ПЕРЕСЛАТЬ значение (КОЛ_М_12544_1) в (ЧАС_М_12544_1);

ФУНКЦИЯ (DIVU), вх (КОЛ_С_12544_1,КОЛ_М_12544_1