SCADA — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Смотрите также) |
||
| (не показано 12 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | SCADA - это программа из справочника [[R266]] | + | [[SCADA]] - это программа из справочника [[R266]] |
| − | + | Добавить документ [[PD3]] | |
| − | Добавить документ [[PD3]] | + | [[SCADA]]( data ) |
| − | + | = Текст = | |
| − | = Текст | + | |
| − | + | ||
parameters data | parameters data | ||
local pd31, month, year, _date, aa | local pd31, month, year, _date, aa | ||
| − | if Empty( data ) | + | if [[Empty]]( data ) |
| − | data := Date() | + | data := [[Date]]() |
endif | endif | ||
| − | month := Month( data ) | + | month := [[Month]]( data ) |
| − | year := Year( data ) | + | year := [[Year]]( data ) |
| − | _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 | ||
( pd31 )->( Refresh() ) | ( pd31 )->( Refresh() ) | ||
| − | aa := SCADA_1( data ) | + | aa := [[SCADA_1]]( data ) |
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() )) )
