Subversion Repositories Brabant Water.eindhoven

CP_VRS AI: 17.2.1 DBGEN: 16.0 Conv expand INI:0 DATE: Tue Mar 27 10:54:33 2007 CONCEPT_2.6 SR1    
CP_APP
CP_PRG "AW_WPR" AREA: 86016 "03/26/07 15:25:19" TEXT:
CP_STR local CRC: 3329215377 "03/20/07 12:14:13"
CP_STR global CRC: 3270316126 "03/12/07 09:37:01"
CP_GVS "sctPrimair_ATM" SECT_CTRL INIT: FALSE 0 EXP: FALSE RET: TRUE READONLY: FALSE MAS: FALSE TEXT:
CP_GV2 "PrimAlmCountAanwezig" IEC_INT_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "t" IEC_INT_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: Hulpvar tbv FOR/END_FOR loops
CP_GV4 "cMaxObj" IEC_INT_ID INIT: TRUE 92 EXP: FALSE RET: TRUE READONLY: FALSE TEXT: 
CP_GV1 "PriWrd" 4:2000 WordArr200 INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "PriWrdVorig" WordArr200 INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "PrimAlmCountErbij" IEC_INT_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "_PrimAlmCountAanwezig" IEC_BOOL_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "PrimAlmCountVorig" IEC_INT_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_GV2 "_PrimAlmCountVorig" IEC_BOOL_ID INIT: FALSE 0 EXP: FALSE RET: FALSE READONLY: FALSE MAS: FALSE TEXT: 
CP_SEC "sctPrimair_ATM" SECTK_F_SECTION LANG_ST SVB: FALSE ID: 68 EXEC: 21 TEXT:
CP__ST (*Vanuit deze sectie wordt bepaald of er een primair alarm bijgekomen is : zo ja :
CP__ST    activeer ATM
CP__ST    Lamp primair alarm knipperen
CP__ST    Na acceptatie dient deze lamp continue te branden*)
CP__ST  
CP__ST PrimAlmCountAanwezig :=0;  (*Reset tellers*)
CP__ST  
CP__ST FOR t:= 0 TO cMaxObj DO
CP__ST    (*Telt aantal aanwezige primaire alarmen*)
CP__ST  IF (PriWrd[t] <> 0)  THEN PrimAlmCountAanwezig := PrimAlmCountAanwezig + 1; END_IF;
CP__ST  
CP__ST    (* Telt aantal primaire alarmen welke erbij GEKOMEN zijn *)
CP__ST  IF (PriWrd[t]  AND (NOT PriWrdVorig[t] )) <> 0 THEN
CP__ST    PrimAlmCountErbij := PrimAlmCountErbij + 1; (*Er is(zijn) primair(e) alarmen bijgekomen*)
CP__ST   END_IF;
CP__ST     PriWrdVorig[t] :=  PriWrd[t];   
CP__ST END_FOR;
CP__ST  
CP__ST _PrimAlmCountAanwezig :=  PrimAlmCountAanwezig <> 0 ;
CP__ST _PrimAlmCountVorig := PrimAlmCountVorig <>0;
CR_END *