Index: FLOWORD5.mac.rou
===================================================================
diff -u -r1024 -r1269
--- FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 1024)
+++ FLOWORD5.mac.rou	(.../FLOWORD5.mac.rou)	(revision 1269)
@@ -102,6 +102,12 @@
  .If $P($P(R,D,17),"#")="KF1925",$P($P(R,D,17),"#",2)'="CK" Set IsTerugn=$P(R,D,3)<0 Set:'IsTerugn IsTerugn=$P(R,D,9)<0
  Quit IsTerugn
  ;
+ ; Controle terugname, eventueel mail naar...
+CheckTerugname(ORDNr)
+ Do CheckMaatWerkTerug(ORDNr)
+ Do CheckNietStockTerug(ORDNr)
+ Quit
+ ;
  ; Is dit een terugname van maatwerk?
 ISTERUGNMaatWerk(ORDNr) 
  New R,KLNr,IsTerugn,IsMaatWerk,OLNr,PRNr
@@ -156,6 +162,64 @@
  . Else  Set Result=$$SendMiniMail^vhLib(From,To,Subject,Body)
  Quit
  ;
+ ; Is dit een terugname van NIET-STOCK producten?
+ISTERUGNNietStock(ORDNr) 
+ New R,KLNr,IsTerugn,IsNietStock,OLNr,PRNr
+ Set (IsTerugn,IsNietStock)=0,KLNr=$P(^KO1(ORDNr,"F"),D),OLNr=100
+ For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do  If IsTerugn,IsNietStock Quit
+ . Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2)
+ . Quit:'PRNr
+ . Set IsTerugn=$P(R,D,3)<0
+ . Quit:'IsTerugn
+ . If $$ISHALUX^PRODUKT2(PRNr),$$IsMaatWerk^PRODUKT2(PRNr) Quit
+ . Set IsNietStock='$P(^KPR(PRNr,1),D,20)
+ Quit IsTerugn&IsNietStock
+ ;
+ ; Controle op terugname Niet-stock en indien wel mail naar VDR;NBR
+CheckNietStockTerug(ORDNr)
+ New R,KLNr,GetOrd,UserName,From,To,Subject,Body,Result,KlachtId,Incident,sFL,Type,Groep,Verantw,SubType,ProdGroep,Element,Elementen,Dir,File,FilePath,Result
+ Do:$$ISTERUGNNietStock(ORDNr)
+ . Set KLNr=$P(^KO1(ORDNr,"F"),D)
+ . Set GetOrd=$$GETORD^FLOWKLAS(ORDNr),UserName=$$USERNAME^vhUSER($P(GetOrd,"#"),1) Set:UserName="" UserName=$P(GetOrd,"#")
+ . Set From=$ZUTIL(110)_"@VANHOECKE.BE"
+ . Set To=$$USERNAME^vhUSER($$MailTo^vhUSER("VDR;NBR;CW"),"@",1)
+ . Set Subject="Terugname niet-stock"
+ . Set Body="Order : "_$$EXTNUM^vhDTyp(ORDNr,0,".",0)_" - "_$P(^KKL(^KK1(KLNr),0),D,2)_$C(13)_$C(10)
+ . Set Body=Body_"Ingave: "_UserName_" "_$$FMTDT^vhDTyp($P(GetOrd,"#",2))_$C(13)_$C(10)
+ . Do:$D(^KlachtI("O",ORDNr))
+ . . Set (KlachtId,Incident)=""
+ . . For  Set KlachtId=$O(^KlachtI("O",ORDNr,KlachtId)) Quit:KlachtId=""  Do  Quit:$L(Incident)
+ . . . Quit:^KlachtI("O",ORDNr,KlachtId)'="R"
+ . . . Kill sFL
+ . . . Set sFL(1)=$G(^KlachtD(KlachtId))
+ . . . Set sFL("O",1)=$G(^KlachtD(KlachtId,"O",1))
+ . . . Merge sFL("O")=^KlachtD(KlachtId,"O")
+ . . . Merge sFL("B")=^KlachtD(KlachtId,"B")
+ . . . Set Type=$P(sFL(1),D,4),Groep=$P(sFL(1),D,5),ProdGroep=$P(sFL(1),D,6),Verantw=$P(sFL(1),D,7),SubType=$P(sFL(1),D,11)
+ . . . Set R=$$ONOM^KLACHT(KlachtId,,1) Set:$L(R) Incident=$C(13)_$C(10)_"Onderwerp   : "_R
+ . . . Set Incident=Incident_$C(13)_$C(10)_"Type        : "_$$FETCHPOP^vhScherm("KLACHT","TYPE",Type,"O")
+ . . . Set Incident=Incident_$C(13)_$C(10)_"Groep       : "_$$FETCHPOP^vhScherm("KLACHT","GROEP",Groep,"O")_$S(Groep="AND":" "_"("_$P(sFL(1),D,12)_")",1:"")
+ . . . Set Incident=Incident_$C(13)_$C(10)_"Verantw     : "_$$VERANTW^KLACHT2(.sFL,1)
+ . . . Set Incident=Incident_$C(13)_$C(10)_"Subtype     : "_$$FETCHPOP^vhScherm("KLACHT","SUBTYPE",SubType,"O")
+ . . . Set Incident=Incident_$C(13)_$C(10)_"Productgroep: "_$$FETCHPOP^vhScherm("PRODUKT","PRODUKTGROEP",ProdGroep,"O")
+ . . . If $O(sFL("B","")) Do
+ . . . . Set Elementen=$C(13)_$C(10)_"Elementen   : "
+ . . . . For I=1:1 Set Element=$G(sFL("B",I)) Quit:Element=""  Do
+ . . . . . Set R=$$CONVELEM^KLACHT2(Element)
+ . . . . . Set Incident=Incident_Elementen_R,Elementen=$C(13)_$C(10)_$J("",14)
+ . . . Set R=$$ONOM^KLACHT(KlachtId,,2) Set:$L(R) Incident=Incident_$C(13)_$C(10)_"Omschrijving: "_R
+ . . Set:$L(Incident) Body=Body_$C(13)_$C(10)_"Incident"_Incident
+ . Set Dir=$$DIRUSER^vhDEV(),FilePath=""
+ . Do:$L(Dir)
+ . . Set File="Ord"_ORDNr_".pdf",FilePath=Dir_File
+ . . Set Result=##Class(BL.Flow.Order.Doc).RenderAndFileDoc(ORDNr,FilePath)
+ . . Set:'Result FilePath=""
+ . If $L(FilePath) Do
+ . . Set Result=$$SendMiniMail^vhLib(From,To,Subject,Body,,,,,$LB($LB(FilePath,0)))
+ . . Set Result=$$DELFILE^vhDEV(FilePath)
+ . Else  Set Result=$$SendMiniMail^vhLib(From,To,Subject,Body)
+ Quit
+ ;
  ; Verzamel alle leverdagen van een order
 GetLeverDagen(KLNr,ORDNr)
  New R,LeverDag,LeverDagen,OLNr,PRNr