SCADA — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «SCADA - это программа из справочника R266 Добавить документ PD3 = Текст программы =») |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 4: | Строка 4: | ||
= Текст программы = | = Текст программы = | ||
| + | |||
| + | 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() )) ) | ||
Версия 12:40, 2 августа 2016
SCADA - это программа из справочника R266
Добавить документ PD3
Текст программы
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() )) )
