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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Смотрите также)
 
(не показано 7 промежуточных версий этого же участника)
Строка 1: Строка 1:
SCADA - это программа из справочника [[R266]]
+
[[SCADA]] - это программа из справочника [[R266]]
 
+
Добавить документ [[PD3]]
Добавить документ [[PD3]]
+
[[SCADA]]( data )
 
+
= Текст =
= Текст программы =
+
 
+
 
  parameters data
 
  parameters data
 
   
 
   
Строка 17: Строка 15:
 
  _date := [[DtoS]]( data )
 
  _date := [[DtoS]]( data )
 
   
 
   
  pd31 := OpenChildDoc( 'PD3', '1', ~ParentForm := "", ~Month := month, ~Year := year )
+
  pd31 := [[OpenChildDoc]]( 'PD3', '1', ~ParentForm := "", ~Month := month, ~Year := year )
  ( pd31 )->( SetFilter( [ KINDDOC = 'PD3' and LVLNUM = '1' and DtoS( DATDOC ) = '] + _date + [' ]))
+
  ( pd31 )->( [[SetFilter]]( [ KINDDOC = 'PD3' and LVLNUM = '1' and DtoS( DATDOC ) = '] + _date + [' ]))
 
   
 
   
 
  if Empty( ( pd31 )->AUTOID )
 
  if Empty( ( pd31 )->AUTOID )
   AddAll( 'PD3', '1', "",, { 'DATDOC' }, { { data } }, ~Month := month, ~Year := year )
+
   [[AddAll]]( 'PD3', '1', "",, { 'DATDOC' }, { { data } }, ~Month := month, ~Year := year )
 
  endif
 
  endif
 
   
 
   
Строка 29: Строка 27:
 
   
 
   
 
  if !IsEmpty( aa )
 
  if !IsEmpty( aa )
   AddAll( 'PD3', '2', ( pd31 )->RGNUM,, { 'NATTR1', 'K1NAME', 'AMNT', 'K2NAME' }, aa,, ( pd31 )->( GetForm( GetArea() )) )
+
   [[AddAll]]( 'PD3', '2', ( pd31 )->RGNUM,, { 'NATTR1', 'K1NAME', 'AMNT', 'K2NAME' }, aa,, ( pd31 )->( [[GetForm]]( [[GetArea]]() )) )
 
  endif
 
  endif
 
   
 
   
Строка 35: Строка 33:
 
  aa := { { 0 }, { 1 }, { 2 }, { 3 }, { 4 }, { 5 }, { 6 }, { 7 }, { 8 }, { 9 }, { 10 }, ;
 
  aa := { { 0 }, { 1 }, { 2 }, { 3 }, { 4 }, { 5 }, { 6 }, { 7 }, { 8 }, { 9 }, { 10 }, ;
 
   { 11 }, { 12 }, { 13 }, { 14 }, { 15 }, { 16 }, { 17 }, { 18 }, { 19 }, { 20 }, { 21 }, { 22 }, { 23 } }
 
   { 11 }, { 12 }, { 13 }, { 14 }, { 15 }, { 16 }, { 17 }, { 18 }, { 19 }, { 20 }, { 21 }, { 22 }, { 23 } }
  AddAll( 'PD3', '3', ( pd31 )->RGNUM,, { 'NATTR1' }, aa,, ( pd31 )->( GetForm( GetArea() )) )
+
  [[AddAll]]( 'PD3', '3', ( pd31 )->RGNUM,, { 'NATTR1' }, aa,, ( pd31 )->( GetForm( GetArea() )) )
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
[[Полезные функции]]
+
[[Функции Delphi]]

Текущая версия на 07:58, 27 июля 2017

SCADA - это программа из справочника R266

Добавить документ PD3

SCADA( data )

Текст

parameters data

local pd31, month, year, _date, aa

if Empty( data )
  data := Date()
endif

month := Month( data )
year  := Year( data )
_date := DtoS( data )

pd31 := OpenChildDoc( 'PD3', '1', ~ParentForm := "", ~Month := month, ~Year := year )
( pd31 )->( SetFilter( [ KINDDOC = 'PD3' and LVLNUM = '1' and DtoS( DATDOC ) = '] + _date + [' ]))

if Empty( ( pd31 )->AUTOID )
  AddAll( 'PD3', '1', "",, { 'DATDOC' }, { { data } }, ~Month := month, ~Year := year )
endif

( pd31 )->( Refresh() )

aa := SCADA_1( data )

if !IsEmpty( aa )
  AddAll( 'PD3', '2', ( pd31 )->RGNUM,, { 'NATTR1', 'K1NAME', 'AMNT', 'K2NAME' }, aa,, ( pd31 )->( GetForm( GetArea() )) )
endif

// часы
aa := { { 0 }, { 1 }, { 2 }, { 3 }, { 4 }, { 5 }, { 6 }, { 7 }, { 8 }, { 9 }, { 10 }, ;
  { 11 }, { 12 }, { 13 }, { 14 }, { 15 }, { 16 }, { 17 }, { 18 }, { 19 }, { 20 }, { 21 }, { 22 }, { 23 } }
AddAll( 'PD3', '3', ( pd31 )->RGNUM,, { 'NATTR1' }, aa,, ( pd31 )->( GetForm( GetArea() )) )

Смотрите также

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

Функции Delphi