sdk/samples/WCFSamples/TechnologySamples/Scenario/WorkflowServices/Conversations/VB/Customer/Contracts.vb

   1 ' Copyright (c) Microsoft Corporation. All rights reserved.
   2
   3 Imports System
   4 Imports System.Collections.Generic
   5 Imports System.Runtime.Serialization
   6 Imports System.ServiceModel
   7 Imports System.Text
   8 Imports System.Xml
   9
  10 Namespace Microsoft.WorkflowServices.Samples
  11         <ServiceContract()> _
  12         Public Interface IOrder
  13         <OperationContract(IsInitiating:=True)> _
  14         Function SubmitOrder(ByVal po As PurchaseOrder, ByVal context As IDictionary(Of String, String)) As String
  15         End Interface
  16
  17         <ServiceContract()> _
  18         Public Interface IOrderDetails
  19                 <OperationContract()> _
  20                 Function OrderDetails(ByVal po As PurchaseOrder, ByVal quote As ShippingQuote) As String
  21         End Interface
  22
  23         <ServiceContract()> _
  24         Public Interface IShippingRequest
  25         <OperationContract(IsInitiating:=True)> _
  26         Function RequestShippingQuote(ByVal po As PurchaseOrder, ByVal context As IDictionary(Of String, String)) As String
  27         End Interface
  28
  29         <ServiceContract()> _
  30         Public Interface IShippingQuote
  31                 <OperationContract(IsOneWay := True)> _
  32                 Sub ShippingQuote(ByVal quote As ShippingQuote)
  33         End Interface
  34
  35         <DataContract()> _
  36         Public Class PurchaseOrder
  37                 <DataMember()> _
  38                 Public OrderId As Integer
  39                 <DataMember()> _
  40                 Public Amount As Integer
  41                 <DataMember()> _
  42                 Public CustomerName As String
  43         End Class
  44
  45         <DataContract()> _
  46         Public Class ShippingQuote
  47                 <DataMember()> _
  48                 Public ShippingCost As Integer
  49                 <DataMember()> _
  50                 Public EstimatedShippingDate As DateTime
  51         End Class
  52 End Namespace