11. maj 2023 - 13:43Der er
17 kommentarer og 2 løsninger
Webservice
Hej jeg er ved at lave webservice hvor jeg skal modtage order men det volder mig lidt problemmer..
Min webs WebService
<WebMethod(Description:="Modtage order")> Public Function PostOrder(ByVal NewOrder As Debitor_Order) As String If Not IsNothing(NewOrder) Then Dim MyOrder As Debitor_Order = NewOrder Return "Done " & MyOrder.DebitorID & " " & MyOrder.Orderline.Count Else Return "No Order" End If End Function
Debitor_Order ser sådan ud
Public Class Debitor_Order Public Property DebitorID As Integer Public Property DebitorCreate As Date Public Property Orderline As New List(Of Debitor_Orderline) End Class
Public Class Debitor_Orderline Public Property OrderlineNr As String Public Property OrderlineText As String Public Property OrderlinePrice As Decimal Public Property OrderlineCount As Long End Class
jeg kan ikke få lov at sende orderline commandon add findes ikke og jeg er usikker på hvad det så gør.
Mit kald
Dim Neworder As New HostService.Debitor_Order Neworder.DebitorID = 1 Neworder.DebitorCreate = Now.Date Me.Label3.Text = MyService.PostOrder(Neworder)
Jeg er ikke sikker på jeg forsår men jeg har upload en kopi af hele script som måske kan kase lys over hvor fejl er for jeg kan simple hen ikke finde den..
Partial Public Class Debitor_Order ... Private OrderlineField() As HostService.Debitor_Orderline ... Public Property Orderline() As HostService.Debitor_Orderline() Get Return Me.OrderlineField End Get Set If (Object.ReferenceEquals(Me.OrderlineField, value) <> true) Then Me.OrderlineField = value Me.RaisePropertyChanged("Orderline") End If End Set End Property ... End Class
så langt så godt jeg kan ikke få lov at sende data med har prøve sådan her.. Neworder.Orderline = New HostService.Debitor_Orderline(0) {} Neworder.Orderline = New HostService.Debitor_Orderline(1) {} Neworder.Orderline = New HostService.Debitor_Orderline(2) {} Neworder.Orderline = New HostService.Debitor_Orderline(3) {}
jeg have en ide til at jeg skulle skrive dem inden i sådan her Neworder.Orderline = New HostService.Debitor_Orderline(0) {.OrderlineNr="1001",.OrderlineText="test",.OrderlinePrice=100,.OrderlineCount=1}
men det vil den så heller ikke.. har du en ide til hvad jeg så skal gøre. ?
Dim NewOrderline As New List(Of HostService.Debitor_Orderline) NewOrderline.Add(New HostService.Debitor_Orderline With {.OrderlineNr = "1001", .OrderlineText = "test", .OrderlineCount = 1, .OrderlinePrice = CDec(99)}) NewOrderline.Add(New HostService.Debitor_Orderline With {.OrderlineNr = "1003", .OrderlineText = "test", .OrderlineCount = 2, .OrderlinePrice = CDec(99)}) Neworder.Orderline = NewOrderline.ToArray
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.