(*////////////!!!!!!!!!!!!!!!!!!! SPRAWDZANIE CZUJNIKOW !!!!!!!!!!!!!!!/////////////////////////////*)
xAwaria:=xCzf_ok OR xTermik_ok OR xPrzeciazenie_ok OR xPrzekroczonoCzasPotwierdzenia ;

(*//////////////Uruchamianie Pompy ///////////////////////////*)
xStartPompa :=   NOT xAwaria AND NOT xEnable AND ( ( NOT xTrybManual  AND xZalacz )  OR ( xTrybManual AND xPracaManual) );

(*////////////////////////SPRAWDZANIE DOSTEPNOSCI POMPY//////////////////////////////////////////////////////*)
xPompaDostepna:=NOT xAwaria AND NOT xEnable AND NOT xPrzekroczonoCzasPotwierdzenia;

(*//////////////Obsluga procedury POTWIERDZENIA ZALACZENIA //////////////////////*)
TIMER1.IN := xStartPompa XOR xPotwierdzenieZalczenia;
TIMER1( PT:=t#5s  );
RSinst1(SET:=TIMER1.Q , RESET1:=  xEnable , Q1=>xPrzekroczonoCzasPotwierdzenia );

(*//////////////////LICZNIK URUCHOMIEN///////////////////////*)
RtrigInst1(CLK:= xStartPompa );
LicznikUruchomien(
    CU:=RtrigInst1.Q ,
    RESET:=xResetCzasuPracyIUruchomien ,
    CV=>stCzasPracyZalaczenia.dwLiczbaUruchomien,
     );

(*//////////////////////////////odswiezanie czasu co 15 sekund////////////////////////////*)
Odswiezanie(IN:=NOT Odswiezanie.Q , PT:=t#1s );
FTrigOdswiezanie(CLK:= Odswiezanie.Q );

(*///////////////////////////ZLICZANIE GODZIN PRACY POMPY////////////////////////////*)
IF  xStartPompa AND FTrigOdswiezanie.Q AND NOT xResetCzasuPracyIUruchomien
THEN
stCzasPracyZalaczenia.rGodzinyPracy := stCzasPracyZalaczenia.rGodzinyPracy + (15/3600);
END_IF;

(*//////////////////////////////Kasowanie czasu pracy i licznika uruchomien//////////////////////////////*)
IF xResetCzasuPracyIUruchomien
THEN
    stCzasPracyZalaczenia.rGodzinyPracy := 0;
END_IF;