ActionField1189

Beschrijving: Call command for Bomas-Interface. Custom: Nee

XMLbewerken

<Workflow Name="ActionField1189" Version="2025.07.28" WorkflowType="Standard" xmlns="urn:Ultimo.Framework.Workflow-mapping">
	<Security EditLevel="10" ViewLevel="20" UserContentLevel="30" />
	<Description>Call command for Bomas-Interface.</Description>
	<Properties>
		<Property	Name="_BomasSettings"	Type="List[DomainObject]"	Accessor="Internal" />
		<Property	Name="LogLines"			Type="List[String]"			Accessor="Internal"						Default="Empty" />
		<Property	Name="LogText"			Type="UltimoString"			Accessor="Internal" />
		<Property	Name="MessageText"		Type="List[String]"			Accessor="Internal"						Default="Empty" />
		<Property	Name="StartInterface"	Type="RequestResult"		Accessor="Internal"						Default="Yes" />
	</Properties>
	<Execution>
		<UserContent Name="Pre" />

		<Transaction>
			<GetList Name="Search _BomasSettings" Type="_BomasSettings" OutputProperty="${_BomasSettings}" OrderBy="Id" OrderDirection="Ascending" Top="1" />
		</Transaction>

		<Question Name="StartInterface" Type="YesNo" MessageCode="9100" Default="Yes" OutputProperty="${StartInterface}">
			<Parameter	Name="LastDate"			Direction="In"		Value="=#getpropertyvalue(#elementat(${_BomasSettings}, 0), '_LastExportDate')" />
			<Parameter	Name="LastRunnumber"	Direction="In"		Value="=#getpropertyvalue(#elementat(${_BomasSettings}, 0), '_LastExportRun')" />
		</Question>

		<When Name="Stop Interface" Condition="${StartInterface} != Yes">
			<Stop Name="Stop" Mode="Abort" />
		</When>

		<When Name="StartInterface" Condition="${StartInterface} == Yes">
			<Transaction>
				<Command Name="Bomas Export" CommandName="BomasExport">
					<Parameter	Name="LogList"		Direction="Out"		OutputProperty="${LogLines}" />
					<Parameter	Name="MessageText"	Direction="Out"		OutputProperty="${MessageText}" />
				</Command>
			</Transaction>

			<When Name="Loglines Is Empty" Condition="${LogLines} == Empty">
				<Assign Name="Set LogLines" Property="${LogLines}" Value="Geen data geëxporteerd." />
			</When>

			<ForEach Name="Concat log lines" In="${LogLines}" As="LogLine">
				<Assign Name="Set logtext" Property="${LogText}" Value="=#concat(${LogText}, ${LogLine}, #{SpecialCharacters.NewLine})" />
			</ForEach>

			<Log Name="Ultimo.Interfaces.Bomas" Description="${LogText}" LogName="Ultimo.Interfaces.Bomas" Type="Information" />

			<Message Name="Export finished" MessageCode="9102">
				<Parameter	Name="LogLines"	Direction="In"		Value="${MessageText}" />
			</Message>
		</When>

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