t.molina/HundM_Fortna
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restliche hinzugefügt

Browse Source
This commit is contained in:
Thomas Alexander Molina Cespedes
2026-06-23 10:21:32 +02:00
parent f384644167
commit 216f930e9a
1170 changed files with 583567 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
=A01+UH05-KF00/Programmbausteine/Programming error.scl
+32
View File
@@ -0,0 +1,32 @@
ORGANIZATION_BLOCK "Programming error"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
BEGIN
"DB_Error".BlockNr := #BlockNr;
"DB_Error".Reaction := #Reaction;
"DB_Error".Fault_ID := #Fault_ID;
"DB_Error".BlockType := #BlockType;
"DB_Error".Area := #Area;
"DB_Error".DBNr := #DBNr;
"DB_Error".Csg_OBNr := #Csg_OBNr;
"DB_Error".Csg_Prio := #Csg_Prio;
"DB_Error".Width := #Width;
"DB_Error".xErrorActive := TRUE; //Wird am Anfang von OB1 wieder auf FALSE gesetzt
CASE #BlockType OF
16#01:
//Fehler in OB
"DB_Error".sErrorText := CONCAT_STRING(IN1 := 'Programming Error in OB ', IN2 := UINT_TO_STRING(#BlockNr));
16#02:
//Fehler in FC
"DB_Error".sErrorText := CONCAT_STRING(IN1 := 'Programming Error in FC ', IN2 := UINT_TO_STRING(#BlockNr));
16#03:
//Fehler in FB
"DB_Error".sErrorText := CONCAT_STRING(IN1 := 'Programming Error in FB ', IN2 := UINT_TO_STRING(#BlockNr));
16#06:
//Fehler in DB
"DB_Error".sErrorText := CONCAT_STRING(IN1 := 'Programming Error in DB ', IN2 := UINT_TO_STRING(#BlockNr));
END_CASE;
END_ORGANIZATION_BLOCK