Omar El Moussaid
Webservice Serialize/Deserialize October 29, 2012 06:28PM |
tableVisite is array of object CVisite vis is object CVisite bufxml is Buffer FOR ALL Req_Get_Visite_Non_Valide ReadSeek(Visite,CodeVisite,Req_Get_Visite_Non_Valide.CodeVisite) FileToMemory(vis,Visite) Add(tableVisite,vis) END FOR ALL vis OF tableVisite Info(vis.CodeVisite) END b is string Serialize(tableVisite,bufxml,psdXML) b=Import_Export2.Export_Visites(bufxml) Info(b) Info("done")
PROCEDURE Export_Visites(bufferxml is Buffer) nIdFich is int=fOpen("C:\Documents and Settings\omar\Bureau\yyy\log.txt",foReadWrite) tableVisite is array of object CVisite refCodeVisite is object CVisite Deserialize(tableVisite,bufferxml,psdXML) fWrite(nIdFich,bufferxml+"/////////////////"+tableVisite..Occurrence) fClose(nIdFich) FOR ALL refCodeVisite OF tableVisite Visite.CodeCompagne=refCodeVisite.refCodeCompagne.CodeCompagne Visite.CodeOperateur=refCodeVisite.refCodeOperateur.CodeOperateur Visite.CodeVerger=refCodeVisite.refCodeVerger.CodeVerger Visite.CodeVisite=refCodeVisite.CodeVisite Visite.Date_Visite=refCodeVisite.Date_Visite..Date Visite.Fonction=refCodeVisite.Fonction Visite.Objectife=refCodeVisite.Objectife Visite.Presence_De=refCodeVisite.Presence_De Visite.Visite_Valide=refCodeVisite.Visite_Valide HAdd(Visite) END RESULT tableVisite..Occurrence
<?xml version="1.0"?> <DOCUMENT xmlnsOAP_ENC="[schemas.xmlsoap.org]; <tableVisite SOAP_ENC:arrayType="tableVisite[1]"> <item> <ns1:CVisite xmlns:ns1="urn:Import_Export2"><ns1:refCodeCompagne xmlns:ns1="urn:Import_Export2"><CodeCompagne>2</CodeCompagne><Libelle>Compagne11/12</Libelle><Active>1</Active><Debut>2011-01-01T00:00:00.000</Debut><Fin_Compagne>2012-01-01T00:00:00.000</Fin_Compagne></ns1:refCodeCompagne><ns1:refCodeOperateur xmlns:ns1="urn:Import_Export2"><CodeOperateur>1</CodeOperateur><Nom>ahmed soussi</Nom><Pass>123</Pass><Tel>0661659530</Tel><Adresse>N°18 rue 500 les roses les amicales Casablanca</Adresse><Email> omar.el@gmail.com</Email><Actif>1</Actif></ns1:refCodeOperateur><ns1:refCodeVerger xmlns:ns1="urn:Import_Export2"><CodeVerger>221</CodeVerger><Ref>Y</Ref><Nom>Nahda</Nom><Superficie>53</Superficie><Certifier>1</Certifier><Actif>1</Actif></ns1:refCodeVerger><CodeVisite>12102011</CodeVisite><Date_Visite>2012-10-20T00:00:00.000</Date_Visite><Fonction>ttttttt</Fonction><Objectife>1</Objectife><Presence_De>tttt</Presence_De><Visite_Valide>true</Visite_Valide></ns1:CVisite> </item> </tableVisite> </DOCUMENT>