WRITE(GlobType,GlobRef,KLNr,TOENr,DevObj,Taal,Opties,XSLURL)
 ;Do XMLORDER^XMLWRITETST(%this,DevObj,Taal,$G(Opties),XSLURL)
 ;Quit
 
 
 New OrderNr,objGADef,LijnNr,KlantNr,NL,param1,D
 Set D="\"
 Set NL=$C(13)_$C(10)
 
 If $L(XSLURL) Do
 . Do WRITE^XMLWRITE(DevObj,"<?xml version=""1.0""?>")
 . Do WRITE^XMLWRITE(DevObj,"<?xml-stylesheet type=""text/xsl"" href="""_XSLURL_"""?>")
 . Do WRITE^XMLWRITE(DevObj,NL)
 Do:(Opties["F") BEGINTAG^XMLWRITE(DevObj,"ORDER")
 Do WRITE^XMLWRITE(DevObj,NL)
 
 If GlobType="ORD" Do  ;Order
 . Set Rec=^KOD(KLNr,"F",GlobRef,1)
 . Set Ref=$P(Rec,D,3)
 . Set OrdDat=$P(Rec,D,2)
 . Set TOERef=TOENr
 . ;Set:'TOERef TOERef=$P(Rec,D,4)
 . Set KLNm=$P(^DKL("K","KL.A",KLNr,0),D,2)
 . Set Gemeente=$P(^DKL("K","KL.A",KLNr,0),D,7)
 . Set Global=$NA(^KOD(KLNr,"F",GlobRef))
 If GlobType="OFF" Do  ; Offerte
 . Set Rec=^KOD(KLNr,"F",GlobRef,1)
 . Set Ref=$P(Rec,D,3)
 . Set OrdDat=$P(Rec,D,2)
 . Set TOERef="",TOENr=""
 . Set KLNm=$P(^DKL("K","KL.A",KLNr,0),D,2)
 . Set Gemeente=$P(^DKL("K","KL.A",KLNr,0),D,7)
 . Set Global=$NA(^KOFKL(KLNr,"F",GlobRef))
 If GlobType="TOE" Do  ; Offerte
 . Set LEVNr=$P($G(^KTO1(GlobRef)),D)
 . Set Rec=^KTO(LEVNr,GlobRef,1)
 . Set Ref=$P(Rec,D,3)
 . Set OrdDat=$P(Rec,D,2)
 . Set TOERef=GlobRef
 . Set TOENr=""
 . Set KLNm=$S(KLNr:$P(^DKL("K","KL.A",KLNr,0),D,2),1:"")
 . Set Gemeente=$S(KLNr:$P(^DKL("K","KL.A",KLNr,0),D,7),1:"")
 . Set Global=$NA(^KTO(LEVNr,GlobRef))
 Do TAGWRITE^XMLWRITE(DevObj,"KLANTORDERREF", $$REPLACE^vhRtn1(Ref, "&","&amp;"))
 Do TAGWRITE^XMLWRITE(DevObj,"PRODUCTIENR", TOERef)
 
 ;Do TAGWRITE^XMLWRITE(DevObj,"KLANTORDERNR", "")
 Do TAGWRITE^XMLWRITE(DevObj,"BESTELDATUM", OrdDat)
 Do WRITE^XMLWRITE(DevObj,NL)
 
 ; Klant gegevens
 Do BEGINTAG^XMLWRITE(DevObj,"KLANT")
 Do TAGWRITE^XMLWRITE(DevObj,"NAAM",$$REPLACE^vhRtn1(KLNr_" - "_KLNm,"&","&amp;"))
 Do TAGWRITE^XMLWRITE(DevObj,"GEMEENTE",$$REPLACE^vhRtn1(Gemeente, "&","&amp;"))
 ; more to come ...
 Do ENDTAG^XMLWRITE(DevObj,"KLANT")
 Do WRITE^XMLWRITE(DevObj,NL)
 
 ; Orderlijn(en) 
 Set LijnNr=0
 Set LijnRef=99
 For  Set LijnRef=$O(@Global@(LijnRef)) Quit:LijnRef=""  Do
 . Set LijnNr=LijnNr+1
 . Set LijnRec=@Global@(LijnRef)
 . Write LijnNr,LijnRec,!
 . Set PRNr=$P(LijnRec,D,2)
 . Quit:PRNr'?4.6N
 . Quit:'$D(^KPR(PRNr,"J6332"))
 . Write PRNr," is halux",!
 . If TOENr Quit:$P($P(LijnRec,D,27),"#")=TOENr
 . Write TOENr," ok",!
 . Set ProdID=$P($G(^KPR(PRNr,"G")),D,13)
 . Write ProdID," is halux product",!
 . Quit:'ProdID
 . Set objGADef=##class(Prod.GADef.KaderDeur).%OpenId(ProdID)
 . Quit:objGADef=""
 . Set Qty=$P(LijnRec,D,3)
 . Do WRITE^XMLWRITE(DevObj,NL)
 . Do BEGINTAG^XMLWRITE(DevObj,"ORDERLIJN")
 . Do WRITE^XMLWRITE(DevObj,NL)
 . Do TAGWRITE^XMLWRITE(DevObj,"LIJNREF", LijnNr)
 . Do TAGWRITE^XMLWRITE(DevObj,"KLANTPRODREF", ProdID)      ; ProductID
 . Do TAGWRITE^XMLWRITE(DevObj,"QTY", Qty)               ; Aantal
 . ;Do TAGWRITE^XMLWRITE(DevObj,"PRIJS", Reslt.GetData(6), "MUNT="""_Reslt.GetData(7)_"""")             ; NettoPrijs + attr. Munt
 . ;Do TAGWRITE^XMLWRITE(DevObj,"LEVERWEEK", "")
 . ;Do TAGWRITE^XMLWRITE(DevObj,"LEVERDATUM", "")
 . ; GADefObject Open+XMLWrite
 . Do:(objGADef) objGADef.XMLWrite(DevObj,Taal,"VO","")
 . Do:(objGADef) objGADef.%Close()
 . Do ENDTAG^XMLWRITE(DevObj,"ORDERLIJN")
 . Do WRITE^XMLWRITE(DevObj,NL)
 
 
 Do:(Opties["F") ENDTAG^XMLWRITE(DevObj,"ORDER")
 Do WRITE^XMLWRITE(DevObj,NL)
 Quit