Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r47973 -r48613
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 47973)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 48613)
@@ -355,15 +355,16 @@
  ;
  ; Wijzigen van de tandembox en legrabox productiedagen
 ModTBXProdDagen
- New R,sFL,ModFrom,ModTo,From,To,Subject,Body,Bulk,Probox,Karton,VHOSS,K,DisplayOnly
- New BulkVan,ProboxVan,KartonVan,VHOSSVan, AlleVoor
+ New R,sFL,ModFrom,ModTo,From,To,Subject,Body,Bulk,Probox,Karton,VHOSS,K,DisplayOnly,TAX
+ New BulkVan,ProboxVan,KartonVan,VHOSSVan, AlleVoor,TAXVan
  Set Bulk = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Bulk")
  Set Probox = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Probox")
  Set Karton = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("Karton")
  Set VHOSS = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("VHOSS")
- Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault
+  Set TAX = ##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX")
+ Set AlleVoor = Bulk.GlobaleDefault_D_Probox.GlobaleDefault_D_Karton.GlobaleDefault_D_VHOSS.GlobaleDefault_D_TAX.GlobaleDefault
  Set sFL(1) = AlleVoor
- Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4)
+ Set BulkVan=$P(sFL(1),D,1), ProboxVan=$P(sFL(1),D,2), KartonVan=$P(sFL(1),D,3) ,VHOSSVan=$P(sFL(1),D,4) ,TAXVan=$P(sFL(1),D,5)
  Set DisplayOnly=0
  Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
  
@@ -384,20 +385,23 @@
 	 	Set Probox.GlobaleDefault=$P(sFL(1),D,2)
 	 	Set Karton.GlobaleDefault=$P(sFL(1),D,3)
 	 	Set VHOSS.GlobaleDefault=$P(sFL(1),D,4)
+	 	Set TAX.GlobaleDefault=$P(sFL(1),D,5)
  	
 	 	Do Bulk.Save()
 	 	Do Probox.Save()
 	 	Do Karton.Save()
 	 	Do VHOSS.Save()
+	 	Do TAX.Save()
  	
 	 	Set From=$$$SystemMail("Productie")
 	 	Set To=$LB(##class(TECH.Config.ConfigMgr).Instance().GetString("FLOWHALUX_ModTBXProdDagen_MailTo"))
-		Set Subject="TBX/LBX productiedagen"
-	 	Set Body="De TBX/LBX productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
+		Set Subject="TBX/LBX/TA'OR productiedagen"
+	 	Set Body="De TBX/LBX/TA'OR productiedagen zijn door "_$$USERNAME^vhUSER(,2)_" gewijzigd.<br/>"
 	 	Set Body=Body_"<br/>Karton: D+"_KartonVan_$S(KartonVan'=Karton.GlobaleDefault:" naar D+"_Karton.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Bulk: D+"_BulkVan_$S(BulkVan'=Bulk.GlobaleDefault:" naar D+"_Bulk.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>Probox: D+"_ProboxVan_$S(ProboxVan'=Probox.GlobaleDefault:" naar D+"_Probox.GlobaleDefault_".",1:"")
 	 	Set Body=Body_"<br/>VHOSS: D+"_VHOSSVan_$S(VHOSSVan'=VHOSS.GlobaleDefault:" naar D+"_VHOSS.GlobaleDefault_".",1:"")
+	 	Set Body=Body_"<br/>TA'OR: D+"_TAXVan_$S(TAXVan'=TAX.GlobaleDefault:" naar D+"_TAX.GlobaleDefault_".",1:"")
 	 	Set R=$$SendMiniMail^vhLib(From,To,Subject,Body,,1)
 	 }
  }
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml
===================================================================
diff -u -r47230 -r48613
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 47230)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 48613)
@@ -161,10 +161,14 @@
 <Method name="VerplaatstOutputNaarWeb">
 <Private>1</Private>
 <Implementation><![CDATA[
-	;Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigProduction()
-	;Do ..VerplaatsBestand(FtpConfig)
-	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigTest()
+	Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigProduction()
 	Do ..VerplaatsBestandNaarWeb(FtpConfig)
+	Try {
+		Set FtpConfig=##Class(AX.Uitgaand.EC.impl.VerplaatsBestanden).GeefConfigTest()
+		Do ..VerplaatsBestandNaarWeb(FtpConfig)
+	} Catch {
+		Do ##class(TECH.ExceptionHandler).Catch()	
+	}
 ]]></Implementation>
 </Method>
 
@@ -175,6 +179,11 @@
 	Set FtpConfig.ServerBestandsLocatie="dropbox"
 	Set FtpServer=##class(TECH.Ftp.impl.FtpAPI).%New()
 	Do FtpServer.Connecteer(FtpConfig)
+	Try {
+		Do FtpServer.VerwijderBestand(..FileName)
+	} Catch	{
+		Do ##class(TECH.ExceptionHandler).Catch()	
+	}
 	Do FtpServer.VerzendBestand($$FULLPAD^vhDEV(..LocalPad,..FileName), ..FileName)
 	Do FtpServer.VerbreekVerbinding()
 ]]></Implementation>