ILSLib hinzugefügt

This commit is contained in:
2026-06-29 16:29:41 +02:00
parent 14a1c5172d
commit cd281dc8b2
249 changed files with 26501 additions and 0 deletions
@@ -0,0 +1,10 @@
LibraryType:
Guid: 330e3c73-0c6f-428c-bd04-06e779578b19
Comment:
de-DE: 'CHNAGED: optimierung sk'
LibraryVersion:
VersionNumber: 2.0.0
Author: t.molina
IsDefault: true
Comment:
de-DE: 'CHANGED: übersetzt'
@@ -0,0 +1,13 @@
DocumentHash:
- FileName: FB_EventLog_Booking.scl
Hash: GAon6neSeTmiehUphFkhTmaLaBHrrxX3sBljzfsju0Y=
LibraryMetaFileHash: z7G26GfUmp5lBsYs6w3/RCCs3hdtM3iVof8oJMgmOl4=
LibraryVersion:
Guid: 6e61feb0-b755-46ad-858d-a6af74114a38
DependsOn:
- TypeName: stEventBookingInfo
VersionNumber: 2.0.0
- TypeName: FC_DateAsString
VersionNumber: 0.0.14
- TypeName: FC_TimeAsString
VersionNumber: 0.0.14
+68
View File
@@ -0,0 +1,68 @@
FUNCTION_BLOCK "FB_EventLog_Booking"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
xInTrigger : Bool;
stInEventBookingInfo : "stEventBookingInfo";
END_VAR
VAR
fbPaEventLogBooking {InstructionName := 'Program_Alarm'; LibVersion := '1.0'} : Program_Alarm;
wStatus : Word;
sLogMessage : String;
sDelimiter : String[1] := ',';
sFunction : String[10];
xTriggerFlag : Bool;
END_VAR
VAR_TEMP
xError : Bool;
tRunProgramAlarm : Bool;
END_VAR
BEGIN
REGION Call: Program Alarm
IF #xTriggerFlag XOR #xInTrigger THEN
REGION Meldetext
#sDelimiter := ';';
#sFunction := 'Umbuchung';
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventBookingInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventBookingInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventBookingInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventBookingInfo.sDest,
IN19 := ')',
IN20 := ' von ',
IN21 := #stInEventBookingInfo.sJamSrc,
IN22 := ' zu ',
IN23 := #stInEventBookingInfo.sJamDest,
IN24 := ' gebucht');
END_REGION
#fbPaEventLogBooking(SIG := #xInTrigger,
SD_1 := #sLogMessage,
Status => #wStatus,
Error => #xError);
END_IF;
END_REGION
REGION Flanken
#xTriggerFlag := #xInTrigger;
END_REGION
END_FUNCTION_BLOCK
@@ -0,0 +1,10 @@
LibraryType:
Guid: 873575bd-45c1-4e5d-ad81-32da723bf561
Comment:
de-DE: Teststand vom 18.04.2025 aus der Testanlage ILS LL
LibraryVersion:
VersionNumber: 2.0.0
Author: e.yueksel
IsDefault: true
Comment:
de-DE: Teststand vom 18.04.2025 aus der Testanlage ILS LL
@@ -0,0 +1,13 @@
DocumentHash:
- FileName: FB_EventLog_Correction.scl
Hash: 2MCjddGTpTlcpniYQ4ikq6Gu8vJ5Ca/+sZPRS2h5Us8=
LibraryMetaFileHash: gW+x1UWxB3WvyA9zs9xWcrTzUK0gswtXPnPxI1ojOYk=
LibraryVersion:
Guid: ef6d16a4-e489-47fe-ac26-6e1120abf3dc
DependsOn:
- TypeName: stEventCorrectionInfo
VersionNumber: 2.0.0
- TypeName: FC_DateAsString
VersionNumber: 0.0.14
- TypeName: FC_TimeAsString
VersionNumber: 0.0.14
@@ -0,0 +1,141 @@
FUNCTION_BLOCK "FB_EventLog_Correction"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
xInTrigger : Bool;
stInEventCorrectionInfo : "stEventCorrectionInfo";
END_VAR
VAR
fbPaEventLogCorrection {InstructionName := 'Program_Alarm'; LibVersion := '1.0'} : Program_Alarm;
wStatus : Word;
sLogMessage : String;
sDelimiter : String[1] := ',';
sFunction : String[10];
xTriggerFlag : Bool;
END_VAR
VAR_TEMP
xError : Bool;
tRunProgramAlarm : Bool;
END_VAR
BEGIN
REGION Call Logging Program Alarm
IF #xTriggerFlag XOR #xInTrigger THEN
REGION Build Message
#sDelimiter := ';';
#sFunction := 'Korrektur';
CASE #stInEventCorrectionInfo.nCorrectionType OF
0:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventCorrectionInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventCorrectionInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventCorrectionInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventCorrectionInfo.sDest,
IN19 := ')',
IN20 := ' aus HJ entfernt');
1:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventCorrectionInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventCorrectionInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventCorrectionInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventCorrectionInfo.sDest,
IN19 := ')',
IN20 := ' in ',
IN21 := #stInEventCorrectionInfo.sLoc,
IN22 := ' Pos ',
IN23 := #stInEventCorrectionInfo.sPos,
IN24 := ' entfernt und Rest nachgeschoben');
2:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventCorrectionInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventCorrectionInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventCorrectionInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventCorrectionInfo.sDest,
IN19 := ')',
IN20 := ' in ',
IN21 := #stInEventCorrectionInfo.sLoc,
IN22 := ' Pos ',
IN23 := #stInEventCorrectionInfo.sPos,
IN24 := ' durch Dummy ersetzt');
3:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventCorrectionInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventCorrectionInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventCorrectionInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventCorrectionInfo.sDest,
IN19 := ')',
IN20 := #sDelimiter,
IN21 := ' in Hyper-Jam eingefuegt');
END_CASE;
END_REGION
#fbPaEventLogCorrection(SIG := #xInTrigger,
SD_1 := #sLogMessage,
Status => #wStatus,
Error => #xError);
END_IF;
END_REGION
REGION Flags
#xTriggerFlag := #xInTrigger;
END_REGION
END_FUNCTION_BLOCK
@@ -0,0 +1,10 @@
LibraryType:
Guid: 7b2f674e-09cf-4295-8f62-286c90fb1e37
Comment:
de-DE: Teststand vom 18.04.2025 aus der Testanlage ILS LL
LibraryVersion:
VersionNumber: 2.0.0
Author: t.molina
IsDefault: true
Comment:
de-DE: 'CHANGED: übersetzt'
+13
View File
@@ -0,0 +1,13 @@
DocumentHash:
- FileName: FB_EventLog_Scan.scl
Hash: lDZF2kT/iz7kyoDW4KkkP2kXs5UKAZhYt/nubJlWK0M=
LibraryMetaFileHash: WZh1tYScxyawfVngye9trL+/OlZLmUGH7rfPBpwMhzA=
LibraryVersion:
Guid: 0c32dfac-9456-4f09-94aa-e0c5522ed860
DependsOn:
- TypeName: stEventScanInfo
VersionNumber: 2.0.0
- TypeName: FC_DateAsString
VersionNumber: 0.0.14
- TypeName: FC_TimeAsString
VersionNumber: 0.0.14
+167
View File
@@ -0,0 +1,167 @@
FUNCTION_BLOCK "FB_EventLog_Scan"
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_INPUT
xInTrigger : Bool;
stInEventScanInfo : "stEventScanInfo";
END_VAR
VAR
fbPaEventLogScan {InstructionName := 'Program_Alarm'; LibVersion := '1.0'} : Program_Alarm;
wStatus : Word;
sLogMessage : String;
sDelimiter : String[1] := ',';
sFunction : String[10];
xTriggerFlag : Bool;
END_VAR
VAR_TEMP
xError : Bool;
tRunProgramAlarm : Bool;
END_VAR
BEGIN
REGION Call: Program Alarm
IF #xTriggerFlag XOR #xInTrigger THEN
REGION Meldetext
#sDelimiter := ';';
#sFunction := 'Scan';
CASE #stInEventScanInfo.nScanType OF
0:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventScanInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventScanInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventScanInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventScanInfo.sDest,
IN19 := ')',
IN20 := ' bei SC',
IN21 := #stInEventScanInfo.sReaderId,
IN22 := ' Mat.Nr. nicht lesbar');
1:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventScanInfo.sBarcode,
IN10 := '(erwartet)',
IN11 := #sDelimiter,
IN12 := 'JobNo:',
IN13 := #stInEventScanInfo.sJobNo,
IN14 := #sDelimiter,
IN15 := 'ProdNo:',
IN16 := #stInEventScanInfo.sProductNo,
IN17 := #sDelimiter,
IN18 := 'Dest:',
IN19 := #stInEventScanInfo.sDest,
IN20 := ')',
IN21 := ' bei SC',
IN22 := #stInEventScanInfo.sReaderId,
IN23 := ' nicht lesbar');
2:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventScanInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventScanInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventScanInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventScanInfo.sDest,
IN19 := ')',
IN20 := ' bei SC',
IN21 := #stInEventScanInfo.sReaderId,
IN22 := ' neu hinzugefuegt');
3:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventScanInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventScanInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventScanInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventScanInfo.sDest,
IN19 := ')',
IN20 := ' bei SC',
IN21 := #stInEventScanInfo.sReaderId,
IN22 := ' unbekannter Carrier hinzugefuegt');
// Good Reads
4:
#sLogMessage := CONCAT_STRING(IN1 := "FC_DateAsString"(),
IN2 := #sDelimiter,
IN3 := "FC_TimeAsString"(),
IN4 := #sDelimiter,
IN5 := #sFunction,
IN6 := #sDelimiter,
IN7 := 'Carrier(',
IN8 := 'Barcode:',
IN9 := #stInEventScanInfo.sBarcode,
IN10 := #sDelimiter,
IN11 := 'JobNo:',
IN12 := #stInEventScanInfo.sJobNo,
IN13 := #sDelimiter,
IN14 := 'ProdNo:',
IN15 := #stInEventScanInfo.sProductNo,
IN16 := #sDelimiter,
IN17 := 'Dest:',
IN18 := #stInEventScanInfo.sDest,
IN19 := ')',
IN20 := ' bei SC',
IN21 := #stInEventScanInfo.sReaderId,
IN22 := ' gelesen');
END_CASE;
END_REGION
#fbPaEventLogScan(SIG := #xInTrigger,
SD_1 := #sLogMessage,
Status => #wStatus,
Error => #xError);
END_IF;
END_REGION
REGION Flanken
#xTriggerFlag := #xInTrigger;
END_REGION
END_FUNCTION_BLOCK