SCADA 2016 11 10 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Функции Delphi Полезные функции») |
Hisava (обсуждение | вклад) м |
||
| (не показаны 3 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
| + | [[SCADA_2016_11_10]] - это программа из справочника [[R266]] | ||
| + | Заполнить документ [[TPS]] | ||
| + | [[SCADA_2016_11_10]]() | ||
| + | = Текст = | ||
| + | local ip, my, end_data | ||
| + | ip := [[InputPeriod]]( true ) | ||
| + | if [[Empty]]( ip ) | ||
| + | return | ||
| + | endif | ||
| + | my := [[StoD]]( ip[1] ) | ||
| + | end_data := [[StoD]]( ip[2] ) + 1 | ||
| + | while my <> end_data | ||
| + | // [[SCADA_2016_11_10_1]]( my ) | ||
| + | |||
| + | // Заполнить документ TPS ( вариант 2 ) | ||
| + | SCADA_2016_12_30_1( my ) | ||
| + | |||
| + | my := my + 1 | ||
| + | end | ||
= Смотрите также = | = Смотрите также = | ||
| − | |||
| − | |||
[[Полезные функции]] | [[Полезные функции]] | ||
| + | |||
| + | [[Функции Delphi]] | ||
Текущая версия на 09:35, 21 июля 2017
SCADA_2016_11_10 - это программа из справочника R266
Заполнить документ TPS
SCADA_2016_11_10()
Текст
local ip, my, end_data ip := InputPeriod( true ) if Empty( ip ) return endif my := StoD( ip[1] ) end_data := StoD( ip[2] ) + 1 while my <> end_data // SCADA_2016_11_10_1( my ) // Заполнить документ TPS ( вариант 2 ) SCADA_2016_12_30_1( my ) my := my + 1 end
