ActionField1035

Beschrijving: Create a new (Equipment/ProcessFunction)MeasurementPointValue with value 0 for this DomainObject (EquipmentMeasurementPoint or ProcessFunctionMeasurementPoint). Create a default MeasurementPoint if it doesn't exist. Custom: Nee

Propertiesbewerken

XMLbewerken

<Workflow Name="ActionField1035" Version="2025.07.28" WorkflowType="Standard" AllowUserInteraction="False" xmlns="urn:Ultimo.Framework.Workflow-mapping">
	<Security EditLevel="10" ViewLevel="20" UserContentLevel="30" />
	<Description>Create a new (Equipment/ProcessFunction)MeasurementPointValue with value 0 for this DomainObject (EquipmentMeasurementPoint or ProcessFunctionMeasurementPoint). Create a default MeasurementPoint if it doesn't exist.</Description>
	<Properties>
		<Property	Name="DomainObject"					Type="DomainObject"						Accessor="Root"		Direction="In" />

		<Property	Name="Backup_AllowDescendingValues"	Type="Boolean"							Accessor="Internal" />
		<Property	Name="DefaultEqmMeasurementPoint"	Type="EquipmentMeasurementPoint"		Accessor="Internal" />
		<Property	Name="DefaultPrfMeasurementPoint"	Type="ProcessFunctionMeasurementPoint"	Accessor="Internal" />
		<Property	Name="Equipment"					Type="Equipment"						Accessor="Internal" />
		<Property	Name="MessageText"					Type="String"							Accessor="Internal"						Comment="Has to be shown when database transaction has been ended." />
		<Property	Name="ProcessFunction"				Type="ProcessFunction"					Accessor="Internal" />
	</Properties>
	<Execution>
		<UserContent Name="Pre" />

		<Assign Name="Reset MessageText" Property="${MessageText}" Value="Empty" />

		<WithUserInteraction>
			<ContinuationQuestion Name="Create a MeasurementPointValue with value 0" MessageCode="2022" />
		</WithUserInteraction>

		<When Name="IsDomainObjectAnEquipment" Condition="${DomainObject.EntityName} == Equipment">
			<Assign Name="Set Equipment" Property="${Equipment}" Value="${DomainObject}" />

			<Transaction>
				<Command Name="Get Default MeasurementPoint" CommandName="Equipment_GetDefaultMeasurementPoint">
					<Parameter	Name="Equipment"					Direction="In"		Value="${Equipment}" />
					<Parameter	Name="EquipmentMeasurementPoint"	Direction="Out"								OutputProperty="${DefaultEqmMeasurementPoint}" />
				</Command>

				<Assign Name="Set AllowDescendingValues" Property="${Backup_AllowDescendingValues}" Value="${DefaultEqmMeasurementPoint.AllowDescendingValues}" />
				<Assign Name="Set AllowDescendingValues" Property="${DefaultEqmMeasurementPoint.AllowDescendingValues}" Value="True" />

				<Command Name="Add Value" CommandName="EquipmentMeasurementPoint_AddValue">
					<Parameter	Name="Date"							Direction="In"		Value="#{Environment.CurrentDateTime}" />
					<Parameter	Name="EquipmentMeasurementPoint"	Direction="In"		Value="${DefaultEqmMeasurementPoint}" />
					<Parameter	Name="IndicatorValue"				Direction="In"		Value="0" />
				</Command>

				<WorkflowCall Name="Process Values" WorkflowName="EquipmentMeasurementPoint_ProcessValues">
					<Parameter	Name="EquipmentMeasurementPoint"	Direction="In"		Value="${DefaultEqmMeasurementPoint}" />
					<Parameter	Name="MessageText"					Direction="Out"												OutputProperty="${MessageText}" />
				</WorkflowCall>

				<Assign Name="Set AllowDescendingValues Back" Property="${DefaultEqmMeasurementPoint.AllowDescendingValues}" Value="${Backup_AllowDescendingValues}" />
			</Transaction>

			<WithUserInteraction>
				<When Name="When MessageText available" Condition="${MessageText} != Empty">
					<Message Name="Message 2060" MessageCode="2060">
						<Parameter	Name="Message"	Direction="In"		Value="${MessageText}" />
					</Message>
				</When>
			</WithUserInteraction>
		</When>

		<When Name="IsDomainObjectAnProcessFunction" Condition="${DomainObject.EntityName} == ProcessFunction">
			<Assign Name="Set ProcessFunction" Property="${ProcessFunction}" Value="${DomainObject}" />

			<Transaction>
				<Command Name="Get Default MeasurementPoint" CommandName="ProcessFunction_GetDefaultMeasurementPoint">
					<Parameter	Name="ProcessFunction"					Direction="In"		Value="${ProcessFunction}" />
					<Parameter	Name="ProcessFunctionMeasurementPoint"	Direction="Out"									OutputProperty="${DefaultPrfMeasurementPoint}" />
				</Command>

				<Assign Name="Set AllowDescendingValues" Property="${Backup_AllowDescendingValues}" Value="${DefaultPrfMeasurementPoint.AllowDescendingValues}" />
				<Assign Name="Set AllowDescendingValues" Property="${DefaultPrfMeasurementPoint.AllowDescendingValues}" Value="True" />

				<Command Name="Add Value" CommandName="ProcessFunctionMeasurementPoint_AddValue">
					<Parameter	Name="Date"								Direction="In"		Value="#{Environment.CurrentDateTime}" />
					<Parameter	Name="IndicatorValue"					Direction="In"		Value="0" />
					<Parameter	Name="ProcessFunctionMeasurementPoint"	Direction="In"		Value="${DefaultPrfMeasurementPoint}" />
				</Command>

				<WorkflowCall Name="Process Values" WorkflowName="ProcessFunctionMeasurementPoint_ProcessValues">
					<Parameter	Name="ProcessFunctionMeasurementPoint"	Direction="In"		Value="${DefaultPrfMeasurementPoint}" />
					<Parameter	Name="MessageText"						Direction="Out"												OutputProperty="${MessageText}" />
				</WorkflowCall>

				<Assign Name="Set AllowDescendingValues Back" Property="${DefaultPrfMeasurementPoint.AllowDescendingValues}" Value="${Backup_AllowDescendingValues}" />
			</Transaction>

			<WithUserInteraction>
				<When Name="When MessageText available" Condition="${MessageText} != Empty">
					<Message Name="Message 2060" MessageCode="2060">
						<Parameter	Name="Message"	Direction="In"		Value="${MessageText}" />
					</Message>
				</When>
			</WithUserInteraction>
		</When>

		<UserContent Name="Post" />
	</Execution>
</Workflow>