Index: csp/PRGAProduct/tmpDev.mac.rou
===================================================================
diff -u
--- csp/PRGAProduct/tmpDev.mac.rou	(revision 0)
+++ csp/PRGAProduct/tmpDev.mac.rou	(revision 1151)
@@ -0,0 +1,89 @@
+#include %VHMacro
+OnPage
+   s ClientIP="192.168.1.97"
+   ;d CLS^vhDBG
+ New ProdID,PRNr,Key,CheckDigit,Taal,GenTyp,blnKAD,blnTBX
+ Set ProdID=$G(%request.Data("PRID",1))
+ Set PRNr=$G(%request.Data("PRNR",1))
+ Set Key=$G(%request.Data("KEY",1))
+ Set CheckDigit=$G(%request.Data("CHK",1))
+ Set Taal=$G(%request.Data("TAAL",1))
+ Set:(Taal="") Taal=##class(Res.PI.Taal).BasisTaalID()   ; Default Taal
+ 
+ If PRNr?4.7N Do
+ . Set ProdID=$P(^KPR(PRNr,"G"),"\",13)
+ . Set GenTyp=$$GENTYP^HAD(PRNr)
+ . Set blnKAD=($P(GenTyp,"\",1,2)?1(1"GLA\",1"KAD\",1"PRF\"))
+ . Set blnTBX=(GenTyp?1"TBX\".E)    ; ... 
+ . ;d WL^vhDBG("PRNr: "_PRNr_"   - ProdID: "_ProdID_"   GenTyp:"_GenTyp)
+ Else  Do
+ . Set blnKAD=0
+ . Set blnTBX=1
+ 
+ If $L(ProdID)&&(blnKAD) Do 
+ . Do opgXMLKaderdeurViaID(ProdID)
+ Else  If $L(ProdID)&&(blnTBX) Do
+ . Do opgXMLViaID(ProdID)
+ Else  If $L(Key) Do
+ . Do opgXMLFromGlobal
+ Else  Do 
+ . Write "<ERROR>Invalid data.</ERROR>"
+ Quit
+opgXMLFromGlobal
+ If $L(CheckDigit) Quit:(CheckDigit'=$P($G(^Hulp(Key,"I")),"\",1))
+ Write:($D(^Hulp(Key,"S"))#10) ^Hulp(Key,"S")
+ Quit
+opgXMLKaderdeurViaID(ProdID)
+ New PR
+ Set PR=##class(Prod.GADef.KaderDeur).%OpenId(ProdID)
+ Quit:('$IsObject(PR))
+ Do PR.XMLWrite(0,"N","GAO;GAF;GAV",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GADefKader.xsl"))
+ Set PR=""
+ Quit
+opgXMLViaID(ProdID)
+ New arValidPR,PR
+ Set PR=##class(Prod.GAData.Product).OpenWithCalc(ProdID)
+ Quit:('$IsObject(PR))
+ If 'PR.ValidatePR(.arValidPR) Do opgInvalidPR
+ Do PR.XMLWrite(0,"N","GAF;GAO",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GAProduct.xsl"))
+ Do:($G(%request.Data("TOGLOB",1))=1) opgXMLtoGlobal
+ Do PR.%Close()
+ Quit
+opgInvalidPR
+#define CRLF   $C(13,10)
+ New tmpRqCGI,msg,Key,DItem,tmpLB
+ Merge tmpRqCGI=%request.CgiEnvs
+ Set msg="Fouten bij de validatie van de producten (IP:"_tmpRqCGI("REMOTE_ADDR")_") :"
+ Set Key=""
+ For  Set Key=$O(arValidPR(0,Key)) Quit:(Key="")  Do
+ . Set DItem=PR.DataItems.GetAt(Key)
+ . Do opgBuildColumnData
+ . Set msg=msg_$$$CRLF_"> "_DItem.Get("Oms")_" ("_DItem.Code_") : "_$S(DItem.MetaItem.Code="KST":"MatKost="_$$$LCVT(DItem.CalcMat()), 1:"PRNr="""_DItem.Get("PRNr")_""""_$S(0:" Kenm="_$$$LCVT(DItem.Get("Kenm")),1:""))
+ . Set msg=msg_$$$CRLF_">    "_$$LCVT^vhLib(tmpLB)
+   d WL^vhDBG(msg)
+ Quit
+opgBuildColumnData
+#define LBDeleteAt(%lb,%i)  $LI(%lb,1,%i-1)_$LI(%lb,%i+1,-1)
+ New MParam,MetaI,i
+ Set MetaI=DItem.MetaItem
+ Set tmpLB=""
+ Set PKey=""
+ For  Set MParam=MetaI.Parameters.GetNext(.PKey) Quit:(PKey="")  Do:(MParam.KolomNr>0)
+ . Set $LI(tmpLB,MParam.KolomNr)=DItem.Get(PKey)
+ For i=$LL(tmpLB):-1:1 Set:('$LD(tmpLB,i)) tmpLB=$$$LBDeleteAt(tmpLB,i)   ; Lege ListItems verwijderen
+ Quit
+opgXMLtoGlobal
+ New Key,CStream
+ Set Key=$$%J^vhRtn1_"TBX"
+ Set CStream=##class(%GlobalCharacterStream).%New()
+ Do PR.XMLWrite(CStream,"N","GAF;GAO","Format GAProduct.xsl")
+ d WL^vhDBG("WBrKey :"_Key_"  "_"  op "_$G(ComputerName,$ZUTIL(110))_" / "_$G(NameSpace,$ZUTIL(67,6,$J)))
+ Do txoXMLToGlobal(Key,0)
+ Do CStream.%Close()
+ Quit
+txoXMLToGlobal(Key,CheckDigits)
+ Quit:(Key="")
+ Kill ^wvXML("GA.PR",Key)
+ Set ^wvXML("GA.PR",Key,"I")=CheckDigits_"\"_"\"_$J
+ Set ^wvXML("GA.PR",Key,"S")=CStream.Read(CStream.Size)
+ Quit
\ No newline at end of file
Index: csp/PRGAOrder/tmpDev.mac.rou
===================================================================
diff -u
--- csp/PRGAOrder/tmpDev.mac.rou	(revision 0)
+++ csp/PRGAOrder/tmpDev.mac.rou	(revision 1151)
@@ -0,0 +1,45 @@
+OnPage
+   s ClientIP="192.168.1.97"
+   ;d CLS^vhDBG
+   ;d WL^vhDBG("Print Order - OnPage started")
+ New Input,Key,CheckDigit,Taal
+ Set Input=$G(%request.Data("INPUT",1))
+ ;Set Key=$G(%request.Data("KEY",1))
+ ;Set CheckDigit=$G(%request.Data("CHK",1))
+ Set Taal=$G(%request.Data("TAAL",1))
+ Set:(Taal="") Taal=##class(Res.PI.Taal).BasisTaalID()   ; Default Taal
+ If $L(Input) Do opgXMLViaID
+ Else  ;If $L(Key) Do opgXMLFromGlobal
+   ;d WL^vhDBG("Print Order - OnPage finished.")
+ Quit
+opgXMLViaID
+ New Ord
+ Set Ord=##class(Flow.Had.OrderHfd).%New()       
+ If $G(%request.Data("DBG",1))="WV" Do opgXMLDebug
+ Else  Do
+ . Do Ord.XMLOudWrite(Input,0,"N","ORDF;GAV",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GAOrder.xsl"))
+   ;d WL^vhDBG("Tijd voor XMLWrite : "_$$RestartTimer^vhLib)      
+ Do Ord.%Close()
+ Quit
+ 
+opgXMLFromGlobal
+   q
+ If $L(CheckDigit) Quit:(CheckDigit'=$P($G(^Hulp(Key,"I")),"\",1))
+ Write:($D(^Hulp(Key,"S"))#10) ^Hulp(Key,"S")
+ Quit
+ 
+opgXMLDebug
+ Write "<HTML><BODY>Zie ^Hulp(""AAATest"",""S"")</BODY></HTML>"
+ ;Quit
+ New CStream,rSize,i
+ Set CStream=##class(%GlobalCharacterStream).%New()
+ Do Ord.XMLOudWrite(Input,CStream,"N","ORDF;GAV","Format GAOrder.xsl")
+ Set rSize=20000
+ Kill ^Hulp("AAATest","S")
+ Set ^Hulp("AAATest","S")=CStream.Read(.rSize)
+ Set i=0
+ For  Do  Quit:(rSize<0)
+ . Set tmpR=CStream.Read(.rSize)
+ . Quit:(rSize<0)
+ . Set ^Hulp("AAATest","S",$INCREMENT(i))=tmpR
+ Quit
\ No newline at end of file