#if __DESIGNER_DATA
#error Do not define __DESIGNER_DATA.
#endif // __DESIGNER_DATA
[Microsoft.XLANGs.BaseTypes.BPELExportable(false)]
module TM.Bosman.Orchestrations
{
internal messagetype Mail
{
body TM.Shared.Components.RawString MailBody;
TM.Shared.Schemas.Order SharedOrderAttachment;
};
internal porttype IFCSUM_ReceivePort
{
oneway Receive
{
TM.Bosman.Schemas.EFACT_D96A_IFCSUM_BOSMAN
};
};
internal porttype Shared_Order_SendPort
{
oneway Send
{
TM.Shared.Schemas.Order
};
};
internal porttype Shared_Order_SMTPPort
{
oneway Mail
{
Mail
};
};
internal porttype Mail_Send_Type
{
oneway Send
{
Mail
};
};
[Microsoft.XLANGs.BaseTypes.BPELExportable(false)]
internal service TM_Bosman_Orchestrations_IFCSUM
{
[Microsoft.XLANGs.BaseTypes.LogicalBinding()]
port implements IFCSUM_ReceivePort IFCSUM_Receive;
[Microsoft.XLANGs.BaseTypes.LogicalBinding()]
port uses Shared_Order_SendPort Shared_Order_Send;
[Microsoft.XLANGs.BaseTypes.PhysicalBinding(typeof(Microsoft.BizTalk.DefaultPipelines.PassThruTransmit))]
port uses dynamic Mail_Send_Type Mail_Send;
[Microsoft.XLANGs.BaseTypes.LogicalBinding()]
port uses Shared_Order_SendPort Shared_Order_Consolidation_Todo_Send;
message TM.Bosman.Schemas.EFACT_D96A_IFCSUM_BOSMAN Bosman_IFCSUM;
message TM.Shared.Schemas.Order Shared_Order;
message Mail Email;
TM.Shared.Tracking.TrackingProps TrackingProps;
TM.Shared.Tracking.TrackingParams TrackingParams;
body ()
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("838a78ff-ddef-4640-82b1-a36dec9f644a")]
activate receive (IFCSUM_Receive.Receive, Bosman_IFCSUM);
TrackingProps = new TM.Shared.Tracking.TrackingProps();
TrackingParams = new TM.Shared.Tracking.TrackingParams();
[Microsoft.XLANGs.BaseTypes.DesignerPosition("1a5b1958-93d7-4aad-9813-5dfec1aaeb89")]
TrackingProps = TM.Shared.Tracking.TrackingService.GetTrackingProps(Bosman_IFCSUM);
TrackingParams.Solution = "TM.Bosman";
TrackingParams.Phase = "IFCSUM";
TrackingParams.Trackinglevel = TM.Shared.Tracking.TrackingLevel.TRACE;
TrackingParams.isMessageInDatabase = true;
TM.Shared.Tracking.TrackingService.TrackProcessingMessage(Bosman_IFCSUM, TrackingParams);
[Microsoft.XLANGs.BaseTypes.DesignerPosition("4393856b-b891-4f39-89d4-24bb4cc35dbd")]
construct Shared_Order
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("0181aaf4-dde9-42da-b034-f80ca2368399")]
transform (Shared_Order) = TM.Bosman.Transforms.TM_Bosman_IFCSUM_to_TM_Shared_Order (Bosman_IFCSUM);
[Microsoft.XLANGs.BaseTypes.DesignerPosition("6aa8d3fe-8985-4e03-87dd-1935ab9d1ecf")]
Shared_Order(TM.Shared.Tracking.Schemas.TrackingID) = TrackingProps.TrackingID;
Shared_Order(TM.Shared.Tracking.Schemas.TrackingBranch) = TrackingProps.TrackingBranch;
}
[Microsoft.XLANGs.BaseTypes.DesignerPosition("5b895899-b542-4bf0-bd6c-389a40823927")]
if (Shared_Order(TM.Shared.Schemas.PropertySchema.Receiver) == "KLGEUVENLO01")
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("a8fff63d-7bce-420a-9569-63704b69c9ae")]
construct Email
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("376d2e08-1a27-4baf-87a5-e47598fc2ff9")]
Email.MailBody = new TM.Shared.Components.RawString("Bosman EDI");
Email.MailBody(Microsoft.XLANGs.BaseTypes.ContentType) = "text/html";
Email.SharedOrderAttachment = Shared_Order;
Email.SharedOrderAttachment(Microsoft.XLANGs.BaseTypes.ContentType) = "text/xml";
Email.SharedOrderAttachment(MIME.FileName) = "Shared.Order.xml";
Mail_Send(Microsoft.XLANGs.BaseTypes.Address) = TM.Shared.Components.SSOFunctions.GetValue("TM.Bosman", "TM.Bosman: mailto: Venlo");
Email(SMTP.Subject) = System.Convert.ToString(xpath(Email.SharedOrderAttachment, "string(/*[local-name()='Order' and namespace-uri()='http://TM.KLG.com/KLG/Order']/*[local-name()='Reference' and namespace-uri()=''])"));
Email(SMTP.CC) = TM.Shared.Components.SSOFunctions.GetValue("TM.Bosman", "TM.Bosman: CC: IT Department");
Email(SMTP.EmailBodyFileCharset) = "UTF-8";
Email(SMTP.MessagePartsAttachments) = 2;
Email(TM.Shared.Tracking.Schemas.TrackingID) = TrackingProps.TrackingID;
Email(TM.Shared.Tracking.Schemas.TrackingBranch) = TrackingProps.TrackingBranch;
}
[Microsoft.XLANGs.BaseTypes.DesignerPosition("e6bf96e6-a6e2-44b3-ac74-5897eff14d36")]
send (Mail_Send.Send, Email);
}
else if (Shared_Order(TM.Shared.Schemas.PropertySchema.Receiver) == "KLGEUEERSE01")
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("d16ba0d4-6f35-4f6e-a6ba-4297c1107060")]
construct Email
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("08b68c31-0d7d-4492-897c-9b9ebd0f09f1")]
Email.MailBody = new TM.Shared.Components.RawString("Bosman IFCSUM
Zojuist is een Edifakt bestand ontvangen van Bosman. In de bijlage de vertaling van dit bericht naar het KLG Order formaat. Deze gegevens worden aangeboden aan het transport management systeem.
");
Email.MailBody(Microsoft.XLANGs.BaseTypes.ContentType) = "text/html";
Email.SharedOrderAttachment = Shared_Order;
Email.SharedOrderAttachment(Microsoft.XLANGs.BaseTypes.ContentType) = "text/xml";
Email.SharedOrderAttachment(MIME.FileName) = "Shared.Order.xml";
Mail_Send(Microsoft.XLANGs.BaseTypes.Address) = TM.Shared.Components.SSOFunctions.GetValue("TM.Bosman", "TM.Bosman: mailto: Eersel");
Email(SMTP.Subject) = System.Convert.ToString(xpath(Email.SharedOrderAttachment, "string(/*[local-name()='Order' and namespace-uri()='http://TM.KLG.com/KLG/Order']/*[local-name()='Reference' and namespace-uri()=''])"));
Email(SMTP.CC) = TM.Shared.Components.SSOFunctions.GetValue("TM.Bosman", "TM.Bosman: CC: IT Department");
Email(SMTP.EmailBodyFileCharset) = "UTF-8";
Email(SMTP.MessagePartsAttachments) = 2;
Email(TM.Shared.Tracking.Schemas.TrackingID) = TrackingProps.TrackingID;
Email(TM.Shared.Tracking.Schemas.TrackingBranch) = TrackingProps.TrackingBranch;
}
[Microsoft.XLANGs.BaseTypes.DesignerPosition("39d20012-4ea7-4f08-98a3-04896d8fcde9")]
send (Mail_Send.Send, Email);
}
else
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("bb51293d-9170-4f66-a9de-e166d4946fb6")]
construct Email
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("f4740781-2a39-4c8e-95e6-ee48a16fe754")]
Email.MailBody = new TM.Shared.Components.RawString("Bosman IFCSUM
Zojuist is een Edifakt bestand ontvangen van Bosman. In de bijlage de vertaling van dit bericht naar het KLG Order formaat. Deze gegevens worden aangeboden aan het transport management systeem.
");
Email.MailBody(Microsoft.XLANGs.BaseTypes.ContentType) = "text/html";
Email.SharedOrderAttachment = Shared_Order;
Email.SharedOrderAttachment(Microsoft.XLANGs.BaseTypes.ContentType) = "text/xml";
Email.SharedOrderAttachment(MIME.FileName) = "Shared.Order.xml";
Mail_Send(Microsoft.XLANGs.BaseTypes.Address) = "mailto:ITsupport@venlo.klgeurope.com";
Email(SMTP.Subject) = "RECEIVER UNKNOWN - " + System.Convert.ToString(xpath(Email.SharedOrderAttachment, "string(/*[local-name()='Order' and namespace-uri()='http://TM.KLG.com/KLG/Order']/*[local-name()='Reference' and namespace-uri()=''])"));
Email(SMTP.CC) = TM.Shared.Components.SSOFunctions.GetValue("TM.Bosman", "TM.Bosman: CC: IT Department");
Email(SMTP.EmailBodyFileCharset) = "UTF-8";
Email(SMTP.MessagePartsAttachments) = 2;
Email(TM.Shared.Tracking.Schemas.TrackingID) = TrackingProps.TrackingID;
Email(TM.Shared.Tracking.Schemas.TrackingBranch) = TrackingProps.TrackingBranch;
}
[Microsoft.XLANGs.BaseTypes.DesignerPosition("89eae990-7b97-44bd-9b6d-d00aa46558d3")]
send (Mail_Send.Send, Email);
}
[Microsoft.XLANGs.BaseTypes.DesignerPosition("ce2a7e14-354a-4896-b310-373bedbfdc53")]
if (Shared_Order(TM.Shared.Schemas.PropertySchema.Consolidation) == "YES")
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("cc9721e1-fd2b-42bd-a98f-087516d94e10")]
send (Shared_Order_Consolidation_Todo_Send.Send, Shared_Order);
}
else
{
[Microsoft.XLANGs.BaseTypes.DesignerPosition("14ca036c-52be-4acc-a29c-2d942d9e5aa6")]
send (Shared_Order_Send.Send, Shared_Order);
}
}
}
}