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 50 51 52
| xsdBIC est un xmlDocument , description = "3_BCEAO 25-05-2015"
bRes est un booléen
bRes = XMLDocument("Contracts",xsdBIC)
SI bRes = Faux ALORS
Erreur("Le problème suivant a été détecté : " + ErreurInfo())
SINON
Info("Le document a bien été créé. Il est prêt à être utilisé.")
FIN
//Reconstruction de la chaine XML
sXmlversion est une chaîne
//xsdBIC.Batch.BatchIdentifier = "DSIBNDA_201506_M_DEF_1_XML"
//Balise principale
XMLAjouteAttribut(xsdBIC, sXmlversion,"1.0")
XMLAjouteAttribut(xsdBIC,xsdBIC.Batch.BatchIdentifier,"DSIBNDA_201506_M_DEF_1_XML")
XMLAjouteAttribut(xsdBIC,xsdBIC.Batch.Contract)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralCode)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralDescription)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralType)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralValue)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralValue.Currency)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.CollateralValue.Value)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Collateral.ValuationDate)
XMLAjouteAttribut(xsdBIC,xsdBIC.Batch.Contract.Company)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.BusinessStatus)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.CompanyName)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.Contacts)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.CustomerCode)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.EstablishmentDate)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.IdentificationNumbers)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.IndustrySector)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.LegalForm)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.MainAddress)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.NumberOfEmployees)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.SecondaryAddress)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.Company.TradeName)
XMLAjouteAttribut(xsdBIC,xsdBIC.Batch.Contract.ContractCode)
XMLAjouteAttribut(xsdBIC,xsdBIC.Batch.Contract.ContractData)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.ContractData.Branch)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.ContractData.ConsentCode)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.ContractData.ContractStatus)
XMLAjouteFils(xsdBIC,xsdBIC.Batch.Contract.ContractData.CurrencyOfContract) |
Partager