FUNCTION "LTest" : Void
TITLE = Störungsanzeigen am HSS / Lampentest
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : AE
VERSION : 0.1

BEGIN
NETWORK
TITLE = Anzeigen Anlage ausschalten ?
      U "DAMR_Bereich".A01_UH06.AnlageEin;
      SPB Nw02;

   //Anzeigen ausschalten:
      SET;
      R "PF0000";
      R "PF0001";
      R "PF0002";
      R "PF0003";
      R "PF0004";
      R "PF0005";
//      R     "PF0006"  //Feueralarm
//      R     "PF0030" //Not-Aus
      R "PF0031";
      R "PF0032";
      R "PF0033";
      R "PF0040";
      R "PF0041";
      R "PF0042";
      R "PF0043";
      R "PF0044";
      R "PF0045";
      R "PF0046";
      R "PF0047";
      R "PF0050";
      R "PF0051";
      R "PF0052";
      R "PF0053";
      R "PF0054";
      R "PF0055";
      R "PF0056";
      R "PF0057";
      R "PF0120";
      R "PF0121";
      R "PF0122";
      R "PF0123";
      R "PF0124";
      R "PF0125";
      R "PF0160";
      R "PF0161";
      R "PF0162";
      R "PF0177";
      R "PF0182";
      R "PF0183";
      R "PF0184";
      R "PF0185";
      R "PF0186";
      R "PF0187";
      R "PF3240";
      R "PF3270";
      R "PF3300";
      R "PF3324";
      R "PF3360";
      R "PF3384";
      R "PF3420";
      R "PF3444";
      R "PF3462";
      R "PF3463";

NETWORK
TITLE = Taste "Lampentest" gedrückt ?
//
//

//Einschalten:
Nw02:      U "SF0003";
      UN "SGes".Lampentest_aktiv;
      UN "SGes".I_Lampentest_aktiv;//Tastensperre
      S "SGes".I_Lampentest_aktiv;
      S "SGes".Lampentest_aktiv;

      UN "SF0003";
      R "SGes".I_Lampentest_aktiv;//Tastensperre

//Ausschalten:
      U "SF0003";
      UN "SGes".I_Lampentest_aktiv;//Tastensperre
      U "SGes".Lampentest_aktiv;
      S "SGes".I_Lampentest_aktiv;
      R "SGes".Lampentest_aktiv;

//Lampentest zeitlang aktiv:
      U "SGes".Lampentest_aktiv;//Automatisch ausschalten
      L S5T#5M             ;//5min
      SE "T16";
      U "T16"              ;//Nach 5min automatisch ausschalten
      R "SGes".Lampentest_aktiv;

      UN "SGes".Lampentest_aktiv;
      BEB;

//Anzeigen einschalten:
      U "SF0003";
      = "PF0033";//Horn

      SET;
      S "PF0000";
      S "PF0001";
      S "PF0002";
      S "PF0003";
      S "PF0004";
      S "PF0005";
      S "PF0006";
      S "PF0030";
      S "PF0031";
      S "PF0032";
      S "PF0040";
      S "PF0041";
      S "PF0042";
      S "PF0043";
      S "PF0044";
      S "PF0045";
      S "PF0046";
      S "PF0047";
      S "PF0050";
      S "PF0051";
      S "PF0052";
      S "PF0053";
      S "PF0054";
      S "PF0055";
      S "PF0056";
      S "PF0057";
      S "PF0120";
      S "PF0121";
      S "PF0122";
      S "PF0123";
      S "PF0124";
      S "PF0125";
      S "PF0160";
      S "PF0161";
      S "PF0162";
      S "PF0177";
      S "PF0182";
      S "PF0183";
      S "PF0184";
      S "PF0185";
      S "PF0186";
      S "PF0187";
      S "PF3240";
      S "PF3270";
      S "PF3300";
      S "PF3324";
      S "PF3360";
      S "PF3384";
      S "PF3420";
      S "PF3444";
      S "PF3462";
      S "PF3463";

NETWORK
TITLE = Ende
      BE;

END_FUNCTION

