Click here to Skip to main content
15,881,027 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
Hi.

I have error while generation Json. Error is 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

What I have tried:

VB
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)

Result should be below.



{
	"manifestRequest": {
		"hdr": {
			"messageType": "SHIPMENT",
			"messageDateTime": "2023-01-19T11:20:27+08:00",
			"accessToken": "f0108fb771fa4d269e10d8702f487b93",
			"messageVersion": "1.4",
			"messageLanguage": "en"
		},
		"bd": {
			"pickupAccountId": "5264574522",
			"soldToAccountId": "5264574522",
			"pickupDateTime": "2023-01-19T11:20:27+08:00",
			"handoverMethod": 1,
			"pickupAddress": {
				"name": "Jet Pharam",
				"address1": "adddress1",
				"address2": "address2 .",
				"city": "puchong",
				"state": "selangor",
				"district": "puchong",
				"country": "MY",
				"postCode": "46000",
				"phone": "123456789",
				"email": "abc@jetpharma.com"
			},
			"shipperAddress": {
				"name": "Jet Pharam",
				"address1": "Address1",
				"address2": "Address2",
				"city": "Puchong",
				"state": "Selangor",
				"district": "Puchong",
				"country": "MY",
				"postCode": "46000",
				"phone": "123456789",
				"email": "abc@jetpharma.com"
			},
			"shipmentItems": [
				{
					"consigneeAddress": {
						"name": "Poliklinik Gunwant",
						"address1": "Lot 9797, Jalan Menteri",
						"address2": "Lot 9797, Jalan Menteri",
						"city": "Sungai Besar",
						"state": "Selangor",
						"district": "Sungai Besar",
						"country": "MY",
						"postCode": "45300",
						"phone": "123456789",
						"email": "abc@xxx.com"
					},
					"shipmentID": "MYJMS346524660",
					"packageDesc": "asdasad",
                    "totalWeight": 1,
					"totalWeightUOM": "G",
					"dimensionUOM": "CM",
					"productCode": "PDO",
					"currency": "MYR",
					"remarks": "JETPharma",
					"isMult": "true",
					"valueAddedServices": {
						"valueAddedService": [
							{
								"vasCode": "PPOD"
							}
						]
					},
					"deliveryOption": "C",
					"shipmentPieces": [
						{
							"pieceID": 11
						}
					]
				}
			]
		}
	}
}
Posted
Updated 23-Jan-23 20:21pm

Run your code through a JSON class converter and it'll produce the following structures:
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 valueAddedServices As ValueAddedServices
    Public Property deliveryOption As String
    Public Property shipmentPieces As List(Of ShipmentPiece)
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

Public Class ValueAddedService
    Public Property vasCode As String
End Class

Public Class ValueAddedServices
    Public Property valueAddedService As List(Of ValueAddedService)
End Class
So the JSON deserialization expects to return an instance of Root which contains a ManifestRequest, not a collection - that is contained in a sub class.

When you deserialize JSON, you get the whole data - not just the bit you might be interested in!
 
Share this answer
 
Comments
Maideen Abdul Kader 25-Jan-23 2:30am    
Thank you for your reply OriginalGriff.
I have done as per your advice. Now can generate json. But once the post to API url,
It will throw error
"$error": "[ISS.0086.9249] Missing Parameter: document",
"$pipeline": [
because the json start with '[' but API accept without '[' ,
how to solve this, pls advice me.
===================
Code start with
Dim root As List(Of Root) = New List(Of Root)()
========================
code end with
root.Add(New Root With {
.manifestRequest = manifesto
})

Where did I wrong.? Pls let advice me.
Thank you OriginalGriff.
You are trying to deserialize a single instance of the ValueAddedService and pass this into the API. That would be fine if you were working with a single instance, but you actually deserialize into a list, which you are sending to the API.
 
Share this answer
 
Comments
Richard Deeming 18-Mar-24 9:52am    
NB: The question is from January 2023; it was dragged back up the "active" list by the code-dumper in solution 2. :)
Pete O'Hanlon 18-Mar-24 10:04am    
Thanks Richard. I hadn't noticed that this was a resurrected question.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900