SCADA 2016 11 10 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
Строка 15: Строка 15:
 
  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 )

Версия 11:43, 30 декабря 2016

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

Полезные функции