Index: Flow/Had/OrderHfd.cls.xml
===================================================================
diff -u -r2588 -r17620
--- Flow/Had/OrderHfd.cls.xml	(.../OrderHfd.cls.xml)	(revision 2588)
+++ Flow/Had/OrderHfd.cls.xml	(.../OrderHfd.cls.xml)	(revision 17620)
@@ -255,7 +255,7 @@
  For  Set LijnRef=$O(@Global@(LijnRef)) Quit:(LijnRef="")  Do
  . Set LijnRec=@Global@(LijnRef)
  . Set PRNr=$P(LijnRec,D,2)
- . Quit:(PRNr'?4.6N)
+ . Quit:(PRNr'?4.7N)
  . Quit:('$D(^KPR(PRNr,"J6332")))
  . Quit:('$D(^KPR(PRNr,"G")))
  . Quit:(TOENr)&&($P(LijnRec,D,27)'=TOENr)
@@ -269,10 +269,6 @@
  . Set LijnRec=arOrd(LijnRef)
  . Set PRNr=$P(LijnRec,D,2)
  . Quit:(PRNr="")   ; extra check op PRNr, andere checks reeds in Prefetch gedaan
- . ;Quit:(PRNr'?4.6N)
- . ;Quit:('$D(^KPR(PRNr,"J6332")))
- . ;Quit:('$D(^KPR(PRNr,"G")))
- . ;Quit:(TOENr)&&($P(LijnRec,D,27)'=TOENr)
  . Set objProduct=##class(Prod.Product).%OpenId(PRNr)
  . Set LijnNr=LijnNr+1
  . Set Qty=$P(LijnRec,D,3)
@@ -283,9 +279,6 @@
  . Do TAGWRITE^XMLWRITE(DevObj,"LIJNREF", LijnNr)
  . Do TAGWRITE^XMLWRITE(DevObj,"KLANTPRODREF", $P($G(^KPR(PRNr,"G")),D,13))      ; 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
  . If (Opties'[";PROM;PRKR;PRQTY") Do  Set Opties=Opties_";PROM;PRKR;PRQTY"	
  . If (Opties'["ORDSORT") Do  Set Opties=Opties_";ORDSORT"	
@@ -307,7 +300,6 @@
 xmlwPrepBarcodeIMGs
 #define bcDossier   1
  ; Call WebService once for the concatenated Values.
-   ;d WL^vhDBG(""_$$$ArrayTT("arBarCode"))
  New i,BCValue,BCValues,ws,sc   ; lbBCData
  Set ws=##class(WS.BarCode.BarcodeSoap).%New()
  Do ws.SetTimeOut(30)