Index: WS/TAPI/Router.cls.xml
===================================================================
diff -u -r35416 -r37152
--- WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 35416)
+++ WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 37152)
@@ -282,6 +282,8 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+ 
+	If (KLNr=4682) || (KLNr=9544) Quit "" ; geen verantwoordelijke voor VAN HOECKE NV en VAN HOECKE BV
 	Set D="\"
 	Quit $$INTVW^KLOPV(KLNr)
 ]]></Implementation>
Index: PVTAORFakturatie.mac.rou
===================================================================
diff -u
--- PVTAORFakturatie.mac.rou	(revision 0)
+++ PVTAORFakturatie.mac.rou	(revision 37152)
@@ -0,0 +1,53 @@
+#include vhLib.Macro
+#include Prod.Product
+#include BL.Derde.KlantSpecifiek
+#include BL.Derde.LevSpecifiek
+
+Export
+	Set Device=$$OPEN^vhDEV(,"TAOR FakturatieAantallen2.txt","W","T")
+	Use Device
+	Write "KLNr	FAKNr	Datum	PRNr	KortTekst	Telbaar	Aantal	Omzet	AankoopKost	ZonderStock",!
+	Do WriteFacturatie
+	Do CLOSE^vhDEV(Device)
+	Quit
+WriteFacturatie
+	Set KLNr=0
+	Set BeginDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ","FD",-1)
+	Set EindDatum=$$CALCDATE^vhLib.DataTypes($H,"M","LD",-1)
+	For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
+	. Set KlKey=^KK1(KLNr)
+	. Set Regio=$P(^KKL(KlKey,0),"\",20)
+	. Set Datum="" ; beginnen vanaf vandaag omdat orders van vorige maand ook in facturen van vandaag kunnen zitten
+	. For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Do
+	. . Quit:-Datum>EindDatum
+	. . Quit:-Datum<BeginDatum
+	. . Set BKJaar=$$CALCDATE^vhLib.DataTypes(-Datum,"BJ","LD")
+	. . Set FAKNr=""
+ 	. . For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
+	. . . Set BONNr="U"
+	. . . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
+	. . . . Set BonRec=^KFA("F",FAKNr,BONNr,1)
+	. . . . Set Vzw=$E($P(BonRec,"\",7),1,3)
+	. . . . Set LNr=99
+	. . . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr'?3.4N  Do
+	. . . . . Set LRec=^KFA("F",FAKNr,BONNr,LNr)
+	. . . . . Quit:$P(LRec,"\",17)="KF5"
+	. . . . . SEt ZonderStock=($P(LRec,"\",14)["Z")||($P(LRec,"\",14)["S") ;zonder stockaanpassing
+	. . . . . Set PRNr=$P(LRec,"\",2)
+	. . . . . Quit:'PRNr
+ 	. . . . . Set GenTyp=$$GENTYP^HAD(PRNr,1)
+ 	. . . . . Quit:($P(GenTyp,"\")'="TAO")
+	. . . . . Set Telbaar=$$$PRGet($$$Telbaar) ; nodig voor TA'OR Bulk in onderdelen
+	. . . . . Set Qty=$P(LRec,"\",3)
+	. . . . . Set Omzet=$P(LRec,"\",34)
+	. . . . . Set Kost=$P(LRec,"\",33)
+	. . . . . ;Quit:Qty<1
+ 	. . . . . Write KLNr,*9,FAKNr,*9,$$$ExcelDat(-Datum)
+ 	. . . . . Write *9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Telbaar,*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Kost),*9,ZonderStock
+ 	. . . . . Write !
+
+	Quit
+	
+
+
+
Index: PVULTOER.mac.rou
===================================================================
diff -u
--- PVULTOER.mac.rou	(revision 0)
+++ PVULTOER.mac.rou	(revision 37152)
@@ -0,0 +1,33 @@
+ZoekEnOpTransport
+ Quit:'$$INITMOD^ULTOER()
+ 
+ If $$ZoekInLijst(ULNr) {
+ 	Do ##Class(BL.Flow.Cons.TransportFlow).AddLevering(ULNr)
+	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
+ }
+ Else { 
+ 	Set KlantInd=^KK1(KLNr),Taal=$P(^KKL(KlantInd,0),D,9) If Taal="" Set Taal="N"
+ 	Do EDIT^vhScherm("ULTOERED")
+ 	Set Refetch=0
+ 	If $D(^HULP(%J,"D",ULTOER(6))) Set Refetch=ULNr'=$P(^HULP(%J,"D",ULTOER(6)),D)
+	Do REMOVE^vhLock("^KUL(KLNr,""F"",ULNr)")
+ 	If %SC Do
+ 	.If Refetch Do REFETCH^ULTOER Quit
+ 	.Set ^HULP(%J,"D",ULTOER(6))=$$FETCHL^ULTOER(KLNr,ULNr) Do EL^PROC
+ 	Set DL(2)=ULTOER(3),DL(3)=ULTOER(4)+9-($D(Field)*5)
+ 	Do PL^PROC
+ 	Kill DL(2),DL(3)
+ 	Do:'Refetch!'%SC RESET^vhScherm
+ }
+ 
+ Quit
+ 
+ZoekInLijst(BONNr)
+ Set VolgNr=""
+ Set Found=0
+ For  Set VolgNr=$O(^HULP(%J,"D",VolgNr)) Quit:VolgNr=""  Do  Quit:Found
+ . Set BONNrInLijst=$P(^HULP(%J,"D",VolgNr),"\")
+ . Quit:$P($G(^HULP(%J,"D",VolgNr)),"\",2)="W"
+ . Set Found=BONNrInLijst=BONNr
+ Quit Found
+