sfsservices.biz 1 AbstractParserXML 0 Welke XSLT er voor een DeCeuninck-Order moet gebruikt worden om te converteren naar een XML geschikt voor de proxyklasse EDI-SFS %String 0 { Set DatumFormaat=$S($L(..pxOfferte.DocDate):..pxOfferte.DocDate, 1:"YYYYMMDD") Set ..pxOfferte.OrderDatum=$$FormatDateTime^vhLib(DatumFormaat,$H) } If $IsObject(..pxOfferte.LevAdres) { Set LevAdres=..pxOfferte.LevAdres If (LevAdres.Land="CH")&&(LevAdres.PostNummer?4.7N) { Set LevAdres.PostNummer="CH-"_LevAdres.PostNummer } } If ..pxOfferte.Lijnen.Count()>0 { Set LijnenIterator=##class(TECH.ListIterator).%New(..pxOfferte.Lijnen) While LijnenIterator.HasNext() { Set pxLijn=LijnenIterator.Next() Set pxLijn.KlantProdRef=$$$TrimVoorloopnullen(pxLijn.KlantProdRef) ; de voorloopnullen uit de 'pakketref' weghalen } } } Quit $$$OK ]]>