Rechercher le dossier du premier salarié

Owned by Khouloud Achouri (Unlicensed)
23/07/2021

; si c'est la seule information à chercher, il est inutile de lire tout le XML
; on limite la lecture à la première balise <salarié>
ListeXmlId = ListGetid("XML_liste")
retLectureXml = A5_Xml_toList(ListeXmlId, xml, 1, 'rep/salarie')
if retLectureXml <> " "
; gestion erreur lecture
messagebox(retLectureXml, "Erreur XML")
endif
; Récupération de la balise salarie
if A5_Xml_FirstNode(ListeXmlId, xml_node_salarie, 'rep/salarie') = 0
; lecture de l'attribut "dossier"
dos = A5_Xml_Node_Attr(ListeXmlId, xml_node_salarie, 'dossier')
messagebox("Dossier trouvé dans la première balise salarié| dos = "& dos, "Lecture XML")

else
; gestion Balise salarié non trouvée
messagebox("Aucune balise '/'rep/salarie' trouvée", "Erreur XML")
endif
ListDestroy(ListeXmlId)