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 confirmé
    Inscrit en
    Janvier 2006
    Messages
    147
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 147
    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 946
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Juin 2017
    Messages : 2 946
    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.

  3. #3
    Membre confirmé
    Inscrit en
    Janvier 2006
    Messages
    147
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 147
    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

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

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Juin 2017
    Messages : 2 946
    Billets dans le blog
    1
    Par défaut
    De la même manière que la structure "principale" ;
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    stItemWarehouseInfoCollection est structure
         WarehouseCode est une chaîne
        InStock est un numérique
        WasCounted est une chaîne
        UserSignature est un numérique
        ItemCode est une chaîne
        ItemCycleCounts est un tableau de chaines // Tableau vide, type indéfini
    FIN

  5. #5
    Membre confirmé
    Inscrit en
    Janvier 2006
    Messages
    147
    Détails du profil
    Informations forums :
    Inscription : Janvier 2006
    Messages : 147
    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 encore une fois.

    Voila mon nouveau code par rapport a ce que vous venez de me rajouter :

    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
    stItemWarehouseInfoCollection est Structure
    	WarehouseCode est une chaîne
    	ItemCode est une chaîne
    FIN
    
    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 stItemWarehouseInfoCollection
    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
    			Trace(MonTableauItem.value[i].ItemCode) // 
    			Trace(MonTableauItem.value[i].ItemWarehouseInfoCollection.WarehouseCode) ne s'affichent pas
    		FIN	
    
    	SINON
    		Erreur(myResponse_CAM..Contenu)
    	FIN
    SINON
    	Erreur("Vous n'êtes pas connecté.")
    FIN
    mon résultat après le test est :

    Tout les enregistrements de l 'objet: Value s'affichent
    Tout les enregistrements de l 'objet: ItemWarehouseInfoCollection ne s'affichent pas

    Voilà

    Je ne sais pas ou est mon erreur

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

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Juin 2017
    Messages : 2 946
    Billets dans le blog
    1
    Par défaut
    Déjà,
    La première occurrence de ton tableau :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    {
    "WarehouseCode" : "MG/CQ01",
    "InStock" : 0.0,
    "WasCounted" : "tNO",
    "UserSignature" : 55,
    "ItemCode" : "MP000001",
    }
    N'est pas correcte en JSON la "," est en trop.

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