IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

WinDev Discussion :

Désérialiser un tableau dans un tableau


Sujet :

WinDev

  1. #1
    Membre à l'essai
    Inscrit en
    Janvier 2006
    Messages
    146
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 146
    Points : 16
    Points
    16
    Par défaut Désérialiser un tableau dans un tableau
    Bonjour voila ce que je récupéré d'un webdervice de SAP

    {
    "value" :
    [
    {
    "odata.etag" : "W/"12C6FC06C99A462375EEB3F43DFD832B08CA9E17"",
    "ItemCode" : "MP000001",
    "ItemName" : "Blé DUR Sale",
    "ForeignName" : null,
    "ItemsGroupCode" : 101,
    "QuantityOnStock" : 2157920.0,
    "ItemWarehouseInfoCollection" :
    [
    {
    "WarehouseCode" : "MG/CQ01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 55,
    "ItemCode" : "MP000001",
    },
    {
    "WarehouseCode" : "MG/LPS01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 1,
    "ItemCode" : "MP000001",
    },
    {
    "WarehouseCode" : "MG/NC01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 55,
    "ItemCode" : "MP000001",
    }
    ],
    },
    {
    "odata.etag" : "W/"C1DFD96EEA8CC2B62785275BCA38AC261256E278"",
    "ItemCode" : "CLICH02",
    "ItemName" : "CLICHET COUSCOUS MOYEN 500G ROUGE",
    "ForeignName" : null,
    "ItemsGroupCode" : 113,
    "QuantityOnStock" : 0.0,
    "ItemWarehouseInfoCollection" :
    [
    {
    "WarehouseCode" : "MG/CQ01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 8,
    "ItemCode" : "CLICH02",
    },
    {
    "WarehouseCode" : "MG/EMB01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 8,
    "ItemCode" : "CLICH02",
    "ItemCycleCounts" : []
    }
    ],
    }
    }
    ]
    }

    Ceci est le code que j'ai écrit :

    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
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    UneLigneItem est une Structure
    	ItemCode est une chaîne ANSI
    	ItemName est une chaîne ANSI
    	ItemsGroupCode est un entier
    	TreeType est une chaîne ANSI
    	Valid est un booléen
    	InventoryUoMEntry est un entier
    	ItemWarehouseInfoCollection est un tableau de UneLigneItemWarehouseInfoCollection
    FIN
     
    notreObjetItem est une Structure
    	value est un tableau de UneLigneItem
    FIN
     
    MonTableauItem est un notreObjetItem
     
    	myResponse_CAM = RESTEnvoie(myRequest_CAM)
     
    	SI myResponse_CAM.CodeEtat = 200 ALORS
    		Désérialise(MonTableauItem,myResponse_CAM..Contenu,psdJSON)
     
    		POUR i = 1 À MonTableauItem.value..Occurrence
     			HLitRecherchePremier(Produit,code_prod,MonTableauItem.value[i].ItemCode)
    			SI HTrouve(Produit) = Faux ALORS
    				Produit.code_prod = MonTableauItem.value[i].ItemCode
    				Produit.produit = MonTableauItem.value[i].ItemName
    				Produit.Code_Famille = MonTableauItem.value[i].ItemsGroupCode
    				Produit.Type = MonTableauItem.value[i].TreeType
    				Produit.Valid = MonTableauItem.value[i].Valid
    				Produit.AbsEntry = MonTableauItem.value[i].InventoryUoMEntry
    				Produit.Tolérance = 0.00
    				HAjoute(Produit)
    			SINON
    				Produit.produit = MonTableauItem.value[i].ItemName
    				Produit.Code_Famille = MonTableauItem.value[i].ItemsGroupCode
    				Produit.Type = MonTableauItem.value[i].TreeType
    				Produit.Valid = MonTableauItem.value[i].Valid
    				Produit.AbsEntry = MonTableauItem.value[i].InventoryUoMEntry
    				HModifie(Produit)
    			FIN
     
     
    		FIN	
    	SINON
    		Erreur(myResponse_CAM..Contenu)
    	FIN
    SINON
    	Erreur("Vous n'êtes pas connecté.")
    FIN

    Je parvient à avoir tout les enregistrements qui sont dans l'objet value. Par contre je veux aussi récupérer les enregistrement qui sont dans l'objet ItemWarehouseInfoCollection est je ne parvient pas à le faire.

    Si quelqu'un parmi vous pourrait m'aider SVP à résodre cela

    Merci d'avance

  2. #2
    Expert confirmé
    Avatar de Voroltinquo
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Juin 2017
    Messages
    2 868
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Juin 2017
    Messages : 2 868
    Points : 5 422
    Points
    5 422
    Billets dans le blog
    1
    Par défaut
    Bonjour,
    Tu ne définis pas UneLigneItemWarehouseInfoCollection, c'est logique que tu ne puisses pas désérialiser cette partie. Il est d'ailleurs étonnant qu'aucune erreur ne soit levée.
    Il y a peut-être plus simple, mais ça tourne.
    Quand tout a échoué utilisez l'option RTFM

  3. #3
    Membre à l'essai
    Inscrit en
    Janvier 2006
    Messages
    146
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 146
    Points : 16
    Points
    16
    Par défaut
    Citation Envoyé par Voroltinquo Voir le message
    Bonjour,
    Tu ne définis pas UneLigneItemWarehouseInfoCollection, c'est logique que tu ne puisses pas désérialiser cette partie. Il est d'ailleurs étonnant qu'aucune erreur ne soit levée.
    Merci de votre réponse Voroltinquo.

    j’ai pas su comment la déclarer dans mon code. pouvez-vous m'orienter SVP

    merci de votre aide

Discussions similaires

  1. alterner les couleurs dans un tableau avec xsl
    Par Eithelgul dans le forum XSL/XSLT/XPATH
    Réponses: 14
    Dernier message: 03/05/2015, 23h29
  2. [Kylix] stockage d'un tableau d'octets dans interbase
    Par georges1001 dans le forum EDI
    Réponses: 1
    Dernier message: 16/09/2003, 14h14
  3. [VB6]Passage d'un tableau dans une DLL écrite en delphi
    Par flash dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 20/09/2002, 10h15
  4. Réponses: 2
    Dernier message: 27/05/2002, 19h46
  5. verification de doublons dans un tableau
    Par bohemianvirtual dans le forum C
    Réponses: 11
    Dernier message: 25/05/2002, 12h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo