Prod.Product,BL.Derde.LevSpecifiek TECH.RegisteredObject %String %String %String %String %String %String 1 1 1 AdresMax Set AdresMem=AdresRec . Set Postcode=$P(AdresMem,"\",6) . Set:Postcode?1.2A1"-"1.E Postcode=$P(Postcode,"-",2,3) . Set Gemeente=$P(AdresMem,"\",7) . Set Land=$$LAND^vhRtn1($P(AdresMem,"\",8),1,1) . Write KLNr,*9,Klant.Naam,*9,Postcode,*9,Gemeente,*9,Land,*9,Klant.Sektor,*9,Klant.Divisie ;,*9,Klant.Aktiviteit . Write ! Do CLOSE^vhDEV(Dev) ]]> 1 KLNr:%String,AdresRec:%String,px:AX.Uitgaand.MAG.dto.TransportOutLijn