SCADA 2016 11 10 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| (не показана одна промежуточная версия этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[SCADA_2016_11_10]] - это программа из справочника [[R266]] | [[SCADA_2016_11_10]] - это программа из справочника [[R266]] | ||
| − | + | Заполнить документ [[TPS]] | |
| − | Заполнить документ [[TPS]] | + | [[SCADA_2016_11_10]]() |
| − | + | ||
| − | + | ||
| − | + | ||
= Текст = | = Текст = | ||
| − | |||
local ip, my, end_data | local ip, my, end_data | ||
ip := [[InputPeriod]]( true ) | ip := [[InputPeriod]]( true ) | ||
| Строка 15: | Строка 11: | ||
end_data := [[StoD]]( ip[2] ) + 1 | end_data := [[StoD]]( ip[2] ) + 1 | ||
while my <> end_data | while my <> end_data | ||
| − | // SCADA_2016_11_10_1( my ) | + | // [[SCADA_2016_11_10_1]]( my ) |
// Заполнить документ TPS ( вариант 2 ) | // Заполнить документ TPS ( вариант 2 ) | ||
| Строка 22: | Строка 18: | ||
my := my + 1 | my := my + 1 | ||
end | end | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции 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
