Added multi string handling and balancing

PLC/POUs/FB_String.TcPOU

@@ -140,6 +140,9 @@ VAR
 	// Isolatio alarm
 	_fbIsolationAlarm : FB_TcAlarm;
 	
+	// Safety interlock reset timeout
+	_fbSafetyIntlkTimeoutAlarm : FB_TcAlarm;
+	
 	// Shutdown discharge stopped messages
 	_fbSDDCLevel : FB_TcMessage;
 	_fbSDUnitThreshold : FB_TcMessage;
@@ -598,6 +601,9 @@ CASE _iState OF
 			xCloseDCCB := TRUE;
 			xError := TRUE;
 			xReady := FALSE;
+			IF (NOT _fbSafetyIntlkTimeoutAlarm.bRaised) THEN
+				_fbSafetyIntlkTimeoutAlarm.Raise(0);
+			END_IF
 			_iState := 1000;
 		END_IF
 	
@@ -688,6 +694,14 @@ CASE _iState OF
 			_rPowerInverterInternal := rPowerInverter;
 		END_IF
 		
+		IF _rPowerInverterInternal > 0.0 THEN
+			eStatus := E_COMPONENT_STATUS.DISCHARGING;
+		ELSIF _rPowerInverterInternal < 0.0 THEN
+			eStatus := E_COMPONENT_STATUS.CHARGING;
+		ELSE
+			eStatus := E_COMPONENT_STATUS.ON;
+		END_IF
+		
 		// Shutdown
 		IF (NOT xEnable) THEN
 			_xEnable := FALSE;
@@ -815,7 +829,7 @@ END_CASE
 // Copy inverter data to SCADA interface
 stHMIInterface.stInverterData := stInverterData;
 
-IF _xAllModulesReady AND _xBalanceOk AND (_iState = 30) THEN
+IF _xAllModulesReady AND _xBalanceOk AND ((_iState = 30) OR (_iState = 29)) THEN
 	xReady := TRUE;
 ELSE
 	xReady := FALSE;
@@ -824,7 +838,15 @@ END_IF
 // Reset inverter startup timeout alarm
 IF _fbInverterStartupTimeoutAlarm.bRaised AND xConfirmAlarms THEN
 	_fbInverterStartupTimeoutAlarm.Clear(0, TRUE);
-END_IF]]></ST>
+END_IF
+
+// Reset safetyinterlock timeout alarm
+IF _fbSafetyIntlkTimeoutAlarm.bRaised AND xConfirmAlarms THEN
+	_fbInverterStartupTimeoutAlarm.Clear(0, TRUE);
+END_IF
+
+// Copy status to hmi interface
+stHMIInterface.eStatus := eStatus;]]></ST>
     </Implementation>
     <Method Name="FB_init" Id="{9e8494eb-1b40-4be9-91c8-810ecbdf7f0c}">
       <Declaration><![CDATA[METHOD FB_init : BOOL
@@ -867,6 +889,10 @@ _fbSCSConnLost.CreateEx(stEventEntry := TC_EVENTS.General.CommError, bWithConfir
 _sTemp := CONCAT(_sName, ' SCS');
 _fbSCSConnLost.ipArguments.Clear().AddString(_sTemp);
 
+// Safety interlock reset timeout alarm
+_fbSafetyIntlkTimeoutAlarm.CreateEx(stEventEntry := TC_EVENTS.BMSEvents.SafetyIntlkTimeout, bWithConfirmation := TRUE, 0);
+_fbSafetyIntlkTimeoutAlarm.ipArguments.Clear().AddString(_sName);
+
 // Shutdown discharge messages
 _fbSDDCLevel.CreateEx(TC_EVENTS.BMSEvents.SDDCVoltage, 0);
 _fbSDDCLevel.ipArguments.Clear().AddString(_sName);
@@ -906,7 +932,8 @@ _fbInverter.Name := _sName;
 
 // Create alarm messages
 _fbModulesOutOfBalanceAlarm.ipArguments.Clear().AddString(_sName);
-_fbSafetyInterlocksNotOkAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
+_fbSafetyInterlocksNotOkAlarm.ipArguments.Clear().AddString(_sName);
+_fbSafetyIntlkTimeoutAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
         </Implementation>
       </Set>
     </Property>