Discussion :

[Whaouu]

Bonjour,

Je dois fabriquer un JSON reprenant cette structure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{
  "Ventes": [
    {
      "NCommande": "12345",
      "Tracking": "AAABBB12345",
      "records": [
        {
          "Article": "BG45789",
          "Qt": "1"
        },
        {
          "Article": "BG78912",
          "Qtcsvlcv": "2"
        }
      ]
    },
    {
      "NCommande": "12346",
      "Tracking": "AAABBB78912",
      "records": [
        {
          "Article": "BG45789",
          "Qt": "3"
        },
        {
          "Article": "BG63478",
          "Qtcsvlcv": "2"
        }
      ]
    }
  ]
}

Je ne sais pas qu'elle est la bonne méthode. Je suppose qu'il faudrait définir une structure, mais je ne suis pas très familiarisé avec ce type et je sais encore moins comment la remplir.

Pourriez-vous m’aider ?

[tatayo]

Bonjour,
Tu peux utiliser de classes/structure qui reprennent la structure de ton fichier:

• Une première qui correspond à record, avec article et quantité
• une seconde Commande, avec une liste de Records
• Une dernière Vente avec une liste de Commandes

Une fois tes données renseignées, tu peux utiliser la fonction Sérialise pour en faire un JSON.

Tatayo.

[frenchsting]

Bonjour,

+1 à tatayo.

Tu es en WD24 : tu peux également utiliser une variable de type JSON pour le manipuler (https://doc.pcsoft.fr/fr-FR/?1000023..._type_variable).

Tu as un exemple de chaîneVersJSON (https://doc.pcsoft.fr/fr-FR/?1000024531).

Tu peux également regarder du côté de JSONVersVariant.

[Whaouu]

Merci pour vos conseils.

Pour le moment, j'ai ces structures :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
stRecord est une Structure
	Article est une chaîne
	Qt      est une chaîne
FIN
 
stCommande est une Structure
	NCommande est une chaîne
	Tracking est une chaîne
	Records est un stRecord
FIN
 
stVentes est une Structure
	Commandes est un stCommande
FIN
 
stJSON_Ventes est un stVentes

Mais comment je fais pour ajouter plusieurs lignes (records) à une commande et plusieurs commandes à une vente ?

Je suppose que je dois passer par un tableau et sérialiser le tableau pour obtenir le JSON. Mais je coince sur la partie remplissage...

[tatayo]

Pour avoir plusieurs Records dans une commande, il faut utiliser un tableau dynamique de Records, tout simplement.
Idem pour toutes les autres structures, et aussi pour JSON_Ventes.
Ensuite pour ajouter un Records (par exemple), un simple TableauAjoute fera l'affaire.

En dernier tu sérialises ton tableau de Ventes, et le tour est joué.

Tatayo.

[philouZ]

Mais comment je fais pour ajouter plusieurs lignes (records) à une commande et plusieurs commandes à une vente ?

Il faut que tu modifies tes structures comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
stRecord est une Structure
	Article est une chaîne
	Qt      est une chaîne
FIN
 
stCommande est une Structure
	NCommande est une chaîne
	Tracking est une chaîne
	Records est un tableau de stRecord
FIN
 
stVentes est une Structure
	Commandes est un tableau de stCommande
FIN
 
stJSON_Ventes est un stVentes

A partir de là tu peux remplir tes données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
POUR nNbCommande = 1 À 2
	stMaCommande est stCommande
 
	stMaCommande.NCommande = "12456789"
	stMaCommande.Tracking = "00000"
 
	POUR i = 1 À 10
		stMonRecord est stRecord
		stMonRecord.Article	= "toto"+i
		stMonRecord.Qt		= i
		stMaCommande.Records.Ajoute(stMonRecord)
	FIN
	...
FIN
...

[laurent30s]

Il y a pleins de manières de faire perso j'aime bien les variants
Bien entendu tu remplis avec des boucles...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
sMonJson 	est une chaîne
 
vJsonVentes	est un Variant
vVentes	 	est un Variant
vRecords 	est un Variant
 
vVentes[1].NCommande	= "12345"
vVentes[1].Tracking	= "AAABBB12345"
 
vRecords[1].Article	= "BG45789"
vRecords[1].Qt		= "1"
vRecords[2].Article	= "BG78912"
vRecords[2].Qt		= "2"
 
vVentes[1].Records	= vRecords
vRecords		= Null
 
//------------------------------
 
vVentes[2].NCommande	= "12346"
vVentes[2].Tracking	= "AAABBB78912"
 
vRecords[1].Article	= "BG45789"
vRecords[1].Qt		= "3"
vRecords[2].Article	= "BG63478"
vRecords[2].Qt		= "2"
 
vVentes[2].Records	= vRecords
vRecords		= Null
 
//------------------------------
 
vJsonVentes.Ventes = vVentes
 
sMonJson = VariantVersJSON(vJsonVentes,psdMiseEnForme)

[Whaouu]

Bonjour,

Désolé pour cette réponse tardive. J'ai utilisé les structures et le code préconisé par PhilouZ.

Cela fonctionne parfaitement.

Encore merci pour vos précieux conseils !

[Voroltinquo]

Bonjour,
Une solution qui pourrait être intéressante si tes données sont issues d'une requête est HExporteJSON