From 42072151989102c5d5379a023d67301261da78c4 Mon Sep 17 00:00:00 2001
From: "m.heisig" <m.heisig@heisig-gmbh.de>
Date: Mon, 16 Feb 2026 13:04:11 +0100
Subject: [PATCH] Added OneShot Method to FB_AlarmMessage

---
 BaseComponents.tsproj                         |  2 +-
 BasicComponents/BasicComponents.plcproj       | 24 +++++++++----------
 .../Utilities/FB_AlarmMessage.TcPOU           | 12 ++++++++++
 3 files changed, 25 insertions(+), 13 deletions(-)

diff --git a/BaseComponents.tsproj b/BaseComponents.tsproj
index 9938e25..9d35098 100644
--- a/BaseComponents.tsproj
+++ b/BaseComponents.tsproj
@@ -136,7 +136,7 @@
 		</System>
 		<Plc>
 			<Project GUID="{4E62D9E7-436C-457D-8DC4-82D2FEF91C96}" Name="BasicComponents" PrjFilePath="BasicComponents\BasicComponents.plcproj" TmcFilePath="BasicComponents\BasicComponents.tmc" ReloadTmc="true" AmsPort="851" FileArchiveSettings="#x000e" CopyTmcToTarget="true" CopyTpyToTarget="false" SymbolicMapping="true">
-				<Instance Id="#x08502000" TcSmClass="TComPlcObjDef" KeepUnrestoredLinks="2" TmcHash="{B7757519-28FA-424D-AB4A-AF3716E16F4E}" TmcPath="BasicComponents\BasicComponents.tmc">
+				<Instance Id="#x08502000" TcSmClass="TComPlcObjDef" KeepUnrestoredLinks="2" TmcHash="{2E36E833-E01D-0D57-5C06-57C34D27F5F4}" TmcPath="BasicComponents\BasicComponents.tmc">
 					<Name>BasicComponents Instance</Name>
 					<CLSID ClassFactory="TcPlc30">{08500001-0000-0000-F000-000000000064}</CLSID>
 					<Vars VarGrpType="2" AreaNo="1">
diff --git a/BasicComponents/BasicComponents.plcproj b/BasicComponents/BasicComponents.plcproj
index a719c3e..869ab0a 100644
--- a/BasicComponents/BasicComponents.plcproj
+++ b/BasicComponents/BasicComponents.plcproj
@@ -302,8 +302,8 @@
   <ProjectExtensions>
     <PlcProjectOptions>
       <XmlArchive>
-  <Data>
-    <o xml:space="preserve" t="OptionKey">
+        <Data>
+          <o xml:space="preserve" t="OptionKey">
       <v n="Name">"&lt;ProjectRoot&gt;"</v>
       <d n="SubKeys" t="Hashtable" ckt="String" cvt="OptionKey">
         <v>{192FAD59-8248-4824-A8DE-9177C94C195A}</v>
@@ -2684,16 +2684,16 @@
       </d>
       <d n="Values" t="Hashtable" />
     </o>
-  </Data>
-  <TypeList>
-    <Type n="Boolean">System.Boolean</Type>
-    <Type n="Hashtable">System.Collections.Hashtable</Type>
-    <Type n="Int32">System.Int32</Type>
-    <Type n="OptionKey">{54dd0eac-a6d8-46f2-8c27-2f43c7e49861}</Type>
-    <Type n="String">System.String</Type>
-    <Type n="UInt32">System.UInt32</Type>
-  </TypeList>
-</XmlArchive>
+        </Data>
+        <TypeList>
+          <Type n="Boolean">System.Boolean</Type>
+          <Type n="Hashtable">System.Collections.Hashtable</Type>
+          <Type n="Int32">System.Int32</Type>
+          <Type n="OptionKey">{54dd0eac-a6d8-46f2-8c27-2f43c7e49861}</Type>
+          <Type n="String">System.String</Type>
+          <Type n="UInt32">System.UInt32</Type>
+        </TypeList>
+      </XmlArchive>
     </PlcProjectOptions>
   </ProjectExtensions>
 </Project>
\ No newline at end of file
diff --git a/BasicComponents/POUs/Components/Utilities/FB_AlarmMessage.TcPOU b/BasicComponents/POUs/Components/Utilities/FB_AlarmMessage.TcPOU
index 7f16b18..a24802c 100644
--- a/BasicComponents/POUs/Components/Utilities/FB_AlarmMessage.TcPOU
+++ b/BasicComponents/POUs/Components/Utilities/FB_AlarmMessage.TcPOU
@@ -103,6 +103,18 @@ _fbSourceInfo.sName := _sLeft;
 _fbAlarmMessage.CreateEx(stEventEntry := stEventEntry, bWithConfirmation := xWithConfirmation);]]></ST>
       </Implementation>
     </Method>
+    <Method Name="M_OneShot" Id="{c9a496b6-62af-4667-8e90-61cb03facef6}">
+      <Declaration><![CDATA[METHOD M_OneShot
+VAR_INPUT
+END_VAR
+]]></Declaration>
+      <Implementation>
+        <ST><![CDATA[// Raise alarm
+IF xRelease AND (NOT xInUnitTestMode) AND (NOT _fbAlarmMessage.bRaised) THEN
+	_fbAlarmMessage.Raise(0);
+END_IF]]></ST>
+      </Implementation>
+    </Method>
     <Property Name="Raised" Id="{2254f7ab-28c0-02ea-0e65-a373d9d5b007}">
       <Declaration><![CDATA[PROPERTY Raised : BOOL]]></Declaration>
       <Get Name="Get" Id="{402fa563-3cdd-092f-24cf-a227bf8b3ef3}">