[Solved] ASP.Net Error: Json Value of type cannot be converted to System.Collections.Generic.List

Muddassar

I have error while generate Json. The error is

"Json Value of type 'ValueAddedService' cannot be converted to System.Collections.Generic.List(Of ValueAddedService)"

Also date and time is "messageDateTime

="\/Date(1674459281468)\/" is not date time format like "2023-01-19T11:20:27+08:00"

pls advice me regarding above both issue

Thank you

Maideen

My Class file

 Public Class Bd
     Public Property pickupAccountId As String
     Public Property soldToAccountId As String
     Public Property pickupDateTime As DateTime
     Public Property handoverMethod As Integer
     Public Property pickupAddress As PickupAddress
     Public Property shipperAddress As ShipperAddress
     Public Property shipmentItems As List(Of ShipmentItem)
 End Class
 
 Public Class ConsigneeAddress
     Public Property name As String
     Public Property address1 As String
     Public Property address2 As String
     Public Property city As String
     Public Property state As String
     Public Property district As String
     Public Property country As String
     Public Property postCode As String
     Public Property phone As String
     Public Property email As String
 End Class
 
 Public Class Hdr
     Public Property messageType As String
     Public Property messageDateTime As DateTime
     Public Property accessToken As String
     Public Property messageVersion As String
     Public Property messageLanguage As String
 End Class
 
 Public Class ManifestRequest
     Public Property hdr As Hdr
     Public Property bd As Bd
 End Class
 
 Public Class PickupAddress
     Public Property name As String
     Public Property address1 As String
     Public Property address2 As String
     Public Property city As String
     Public Property state As String
     Public Property district As String
     Public Property country As String
     Public Property postCode As String
     Public Property phone As String
     Public Property email As String
 End Class
 
 Public Class Root
     Public Property manifestRequest As ManifestRequest
 End Class
 
 Public Class ShipmentItem
     Public Property consigneeAddress As ConsigneeAddress
     Public Property shipmentID As String
     Public Property packageDesc As String
     Public Property totalWeight As Integer
     Public Property totalWeightUOM As String
     Public Property dimensionUOM As String
     Public Property productCode As String
     Public Property currency As String
     Public Property remarks As String
     Public Property isMult As String
     Public Property deliveryOption As String
     Public Property shipmentPieces As List(Of ShipmentPiece)
     Public Property valueAddedServices As ValueAddedServices
 
 End Class
 Public Class ValueAddedService
     Public Property vasCode As String
 End Class
 
 Public Class ValueAddedServices
     Public Property valueAddedService As List(Of ValueAddedService)
 End Class
 Public Class ShipmentPiece
     Public Property pieceID As Integer
 End Class
 
 Public Class ShipperAddress
     Public Property name As String
     Public Property address1 As String
     Public Property address2 As String
     Public Property city As String
     Public Property state As String
     Public Property district As String
     Public Property country As String
     Public Property postCode As String
     Public Property phone As String
     Public Property email As String
 End Class

Code behind aspx

Dim root As List(Of Root) = New List(Of Root)()
 
Dim PickupAddress As PickupAddress = New PickupAddress With {
        .name = "xxy Company LTD",
        .address1 = "1, 11,13, Jalan Rajawali",
        .address2 = "Bandar Puchong Jaya",
        .city = "Puchong",
        .country = "MY",
        .district = "Puchong",
        .state = "Selangor",
        .postCode ="47000",
        .email = "sales@xxy.com",
        .phone = "069076 1651"
    }
Dim shipperAddress As ShipperAddress = New ShipperAddress With {
        .name = "xxy Company LTD",
        .address1 = "1, 11,13, Jalan Rajawali",
        .address2 = "Bandar Puchong Jaya",
        .city = "Puchong",
        .country = "MY",
        .district = "Puchong",
        .state = "Selangor",
        .postCode ="47000",
        .email = "sales@xxy.com",
        .phone = "069076 1651"
    }
Dim consignement As ConsigneeAddress = New ConsigneeAddress With {
        .name = "Poliklinik Gunwant",
        .address1 =  "Lot 9797, Jalan Menteri",
        .address2 = "Sungai Besar Selangor",
        .city = "Sungai Besar",
        .state = "Selangor",
        .district = "Sungai Besar",
        .country = "MY",
        .postCode = "46000",
        .email = "",
        .phone = "092548 3257"
}
 
Dim valADDService As ValueAddedService = New ValueAddedService With {
                       .vasCode = "PPOD"}
 
Dim valueAddedServices As List(Of ValueAddedServices) = New List(Of ValueAddedServices)()
valueAddedServices.Add(New ValueAddedServices With {.valueAddedService = valADDService})
 
Dim shipmentPieces As List(Of ShipmentPiece) = New List(Of ShipmentPiece)()
shipmentPieces.Add(New ShipmentPiece With {
          .pieceID = "1"})
 
Dim shipItem As List(Of ShipmentItem) = New List(Of ShipmentItem)()
shipItem.Add(New ShipmentItem With {
    .consigneeAddress = consignement,
    .shipmentID = "123456789",
    .packageDesc = "abc",
    .totalWeight = "1",
    .totalWeightUOM = "KG",
    .dimensionUOM = "CM",
    .productCode = "PDO",
    .currency = "USD",
    .remarks = "",
    .isMult = "true",
    .deliveryOption = "C",
    .shipmentPieces = shipmentPieces
})
 
Dim hdr As Hdr = New Hdr With {
.accessToken ="123456789",
.messageDateTime ="\/Date(1674459281468)\/",
.messageLanguage = "en",
.messageType = "SHIPMENT",
.messageVersion = "1.4"
}
Dim bd As Bd = New Bd With {
    .pickupAccountId = "123587",
    .soldToAccountId = "325784",
    .pickupDateTime = "\/Date(1674459281468)\/",
    .handoverMethod = "1",
    .pickupAddress = PickupAddress,
    .shipperAddress = shipperAddress,
    .shipmentItems = shipItem
    }
 
Dim manifesto As ManifestRequest = New ManifestRequest With {
   .bd = bd,
   .hdr = hdr
}
root.Add(New Root With {
.manifestRequest = manifesto
})
 
Dim serializer As JavaScriptSerializer = New JavaScriptSerializer()
v_jsonData = ""
v_jsonData = serializer.Serialize(root)
Me.txtJsonData.Text = serializer.Serialize(root)

Generated Json result

[{
    "manifestRequest": {
        "hdr": {
            "messageType": "SHIPMENT",
            "messageDateTime": "\/Date(1674459281468)\/",
            "accessToken": "123456789",
            "messageVersion": "1.4",
            "messageLanguage": "en"
        },
        "bd": {
            "pickupAccountId": "123587",
            "soldToAccountId": "325784",
            "pickupDateTime": "\/Date(1674459281468)\/",
            "handoverMethod": 1,
            "pickupAddress": {
                "name": "xxy Company LTD",
                "address1": "1, 11,13, Jalan Rajawali",
                "address2": "Bandar Puchong Jaya",
                "city": "Puchong",
                "state": "Selangor",
                "district": "Puchong",
                "country": "MY",
                "postCode": "47000",
                "phone": "069076 1651",
                "email": "sales@xxy.com"
            },
            "shipperAddress": {
                "name": "xxy Company LTD",
                "address1": "1, 11,13, Jalan Rajawali",
                "address2": "Bandar Puchong Jaya",
                "city": "Puchong",
                "state": "Selangor",
                "district": "Puchong",
                "country": "MY",
                "postCode": "47000",
                "phone": "069076 1651",
                "email": "sales@xxy.com"
            },
            "shipmentItems": [{
                "consigneeAddress": {
                    "name": "Poliklinik Gunwant",
                    "address1": "Lot 9797, Jalan Menteri",
                    "address2": "Sungai Besar Selangor",
                    "city": "Sungai Besar",
                    "state": "Selangor",
                    "district": "Sungai Besar",
                    "country": "MY",
                    "postCode": "46000",
                    "phone": "1",
                    "email": "092548 3257"
                },
                "shipmentID": "123456789",
                "packageDesc": "abc",
                "totalWeight": 1,
                "totalWeightUOM": "G",
                "dimensionUOM": "CM",
                "productCode": "PDO",
                "currency": "USD",
                "remarks": "",
                "isMult": "true",
                "deliveryOption": "C",
                "shipmentPieces": [{
                    "pieceID": 1
                }],
                "valueAddedServices": null
            }]
        }
    }
}]

But json could not generate like below blog

"valueAddedServices": {
   "valueAddedService": [
       { "vasCode": "PPOD" }
      ]
   }