ActionField733

Beschrijving: Create a sub-SafetyDossier based on an existing SafetyDossier. Custom: Nee

Propertiesbewerken

XMLbewerken

<Workflow Name="ActionField733" Version="2025.07.28" WorkflowType="Standard" xmlns="urn:Ultimo.Framework.Workflow-mapping">
	<Security EditLevel="10" ViewLevel="20" UserContentLevel="30" />
	<Description>Create a sub-SafetyDossier based on an existing SafetyDossier.</Description>
	<Properties>
		<Property	Name="SafetyDossier"						Type="SafetyDossier"			Accessor="Root"		Direction="In" />

		<Property	Name="OpenSubSafetyDossierIntoANewWindow"	Type="Boolean"					Accessor="Optional"	Direction="In"		Default="True"	Comment="Open created SafetyDossier in a new window" />

		<Property	Name="CreatedEquipmentSafetyDossier"		Type="EquipmentSafetyDossier"	Accessor="Internal" />
		<Property	Name="CreatedObjectDocument"				Type="ObjectDocument"			Accessor="Internal" />
		<Property	Name="EquipmentSafetyDossiersCopy"			Type="Boolean"					Accessor="Internal" />
		<Property	Name="ObjectDocumentsCopy"					Type="Boolean"					Accessor="Internal" />
		<Property	Name="SubSafetyDossier"						Type="SafetyDossier"			Accessor="Internal" />
	</Properties>
	<Execution>
		<UserContent Name="Pre" />

		<Comment><![CDATA[ Ask the user if a sub dossier must be created. ]]></Comment>

		<Dialog Name="CreateSubDossierDialog" TitleCode="CREATE_SUBDOSSIER">
			<Container>
				<CheckBox Name="EquipmentSafetyDossiersCopy" OutputProperty="${EquipmentSafetyDossiersCopy}" LabelCode="EQMSDCOPY" />

				<CheckBox Name="ObjectDocumentsCopy" OutputProperty="${ObjectDocumentsCopy}" LabelCode="OBJDOCCOPY" />
			</Container>
		</Dialog>

		<Transaction>
			<Insert Name="Create SubSafetyDossier" ObjectType="SafetyDossier" OutputProperty="${SubSafetyDossier}">
				<Parameter	Name="Status"				Direction="In"		Value="SafetyDossierStatus.Created" />
				<Parameter	Name="PartOfSafetyDossier"	Direction="In"		Value="${SafetyDossier}" />
			</Insert>

			<Copy Name="Copy Columns" Source="${SafetyDossier}" Target="${SubSafetyDossier}" CopyType="OnlySetIfEmpty" CustomOnly="False" />

			<Assign Name="Clear StatusInPreparationDate" Property="${SubSafetyDossier.StatusInPreparationDate}" Value="Empty" />
			<Assign Name="Clear StatusPreparedDate" Property="${SubSafetyDossier.StatusPreparedDate}" Value="Empty" />
			<Assign Name="Clear StatusForReviewDate" Property="${SubSafetyDossier.StatusForReviewDate}" Value="Empty" />
			<Assign Name="Clear StatusReleasedDate" Property="${SubSafetyDossier.StatusReleasedDate}" Value="Empty" />
			<Assign Name="Clear StatusReleasedWithRestrictionsDate" Property="${SubSafetyDossier.StatusReleasedWithRestrictionsDate}" Value="Empty" />
			<Assign Name="Clear StatusRetainedDate" Property="${SubSafetyDossier.StatusRetainedDate}" Value="Empty" />
			<Assign Name="Clear StatusExpiredDate" Property="${SubSafetyDossier.StatusExpiredDate}" Value="Empty" />
			<Assign Name="Clear StatusInPreparationEmployee" Property="${SubSafetyDossier.StatusInPreparationEmployee}" Value="Empty" />
			<Assign Name="Clear StatusPreparedEmployee" Property="${SubSafetyDossier.StatusPreparedEmployee}" Value="Empty" />
			<Assign Name="Clear StatusForReviewEmployee" Property="${SubSafetyDossier.StatusForReviewEmployee}" Value="Empty" />
			<Assign Name="Clear StatusReleasedEmployee" Property="${SubSafetyDossier.StatusReleasedEmployee}" Value="Empty" />
			<Assign Name="Clear StatusReleasedWithRestrictionsEmployee" Property="${SubSafetyDossier.StatusReleasedWithRestrictionsEmployee}" Value="Empty" />
			<Assign Name="Clear StatusRetainedEmployee" Property="${SubSafetyDossier.StatusRetainedEmployee}" Value="Empty" />
			<Assign Name="Clear StatusExpiredEmployee" Property="${SubSafetyDossier.StatusExpiredEmployee}" Value="Empty" />

			<When Name="EquipmentSafetyDossiersIsTrue" Condition="${EquipmentSafetyDossiersCopy} == True">
				<ForEach Name="LoopThroughEquipmentSafetyDossiers" In="${SafetyDossier.EquipmentSafetyDossiers}" As="EquipmentSafetyDossier">
					<Insert Name="CreateEquipmentSafetyDossier" ObjectType="EquipmentSafetyDossier" OutputProperty="${CreatedEquipmentSafetyDossier}">
						<Parameter	Name="Id.Equipment"		Direction="In"		Value="${EquipmentSafetyDossier.Id.Equipment}" />
						<Parameter	Name="Id.SafetyDossier"	Direction="In"		Value="${SubSafetyDossier}" />
					</Insert>
				</ForEach>
			</When>

			<When Name="ObjectDocumentsIsTrue" Condition="${ObjectDocumentsCopy} == True">
				<ForEach Name="LoopThroughObjectDocuments" In="${SafetyDossier.ObjectDocuments}" As="ObjectDocument">
					<Insert Name="CreateObjectDocument" ObjectType="ObjectDocument" OutputProperty="${CreatedObjectDocument}">
						<Parameter	Name="Document"			Direction="In"		Value="${ObjectDocument.Document}" />
						<Parameter	Name="SafetyDossier"	Direction="In"		Value="${SubSafetyDossier}" />
					</Insert>
				</ForEach>
			</When>

			<When Name="ExistImageFile1" Condition="${SafetyDossier.ImageFile1} != Empty">
				<Assign Name="AssignImageFile1" Property="${SubSafetyDossier.ImageFile1}" Value="=#replace(${SafetyDossier.ImageFile1}, ${SafetyDossier.Id}, ${SubSafetyDossier.Id})" />
			</When>

			<When Name="ExistImageFile2" Condition="${SafetyDossier.ImageFile2} != Empty">
				<Assign Name="AssignImageFile2" Property="${SubSafetyDossier.ImageFile2}" Value="=#replace(${SafetyDossier.ImageFile2}, ${SafetyDossier.Id}, ${SubSafetyDossier.Id})" />
			</When>

			<When Name="ExistImageFile3" Condition="${SafetyDossier.ImageFile3} != Empty">
				<Assign Name="AssignImageFile3" Property="${SubSafetyDossier.ImageFile3}" Value="=#replace(${SafetyDossier.ImageFile3}, ${SafetyDossier.Id}, ${SubSafetyDossier.Id})" />
			</When>

			<When Name="ExistImageFile4" Condition="${SafetyDossier.ImageFile4} != Empty">
				<Assign Name="AssignImageFile4" Property="${SubSafetyDossier.ImageFile4}" Value="=#replace(${SafetyDossier.ImageFile4}, ${SafetyDossier.Id}, ${SubSafetyDossier.Id})" />
			</When>
		</Transaction>

		<When Name="ExistImageFile1" Condition="${SafetyDossier.ImageFile1} != Empty">
			<CopyFile Name="CopyImageFile1" SourceFile="${SafetyDossier.ImageFile1}" TargetFile="${SubSafetyDossier.ImageFile1}" />
		</When>

		<When Name="ExistImageFile2" Condition="${SafetyDossier.ImageFile2} != Empty">
			<CopyFile Name="CopyImageFile2" SourceFile="${SafetyDossier.ImageFile2}" TargetFile="${SubSafetyDossier.ImageFile2}" />
		</When>

		<When Name="ExistImageFile3" Condition="${SafetyDossier.ImageFile3} != Empty">
			<CopyFile Name="CopyImageFile3" SourceFile="${SafetyDossier.ImageFile3}" TargetFile="${SubSafetyDossier.ImageFile3}" />
		</When>

		<When Name="ExistImageFile4" Condition="${SafetyDossier.ImageFile4} != Empty">
			<CopyFile Name="CopyImageFile4" SourceFile="${SafetyDossier.ImageFile4}" TargetFile="${SubSafetyDossier.ImageFile4}" />
		</When>

		<UserContent Name="Post" />

		<When Name="OpenSubSafetyDossierIntoANewWindowIsTrue" Condition="${OpenSubSafetyDossierIntoANewWindow} == True">
			<View Name="Reopen screen to clear and enter data" ViewName="DataEntryScreen">
				<Parameter	Name="DomainObject"	Direction="In"		Value="${SubSafetyDossier}" />
			</View>
		</When>
	</Execution>
</Workflow>