Index: EWPR.mac.rou
===================================================================
diff -u -r73189 -r73346
--- EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 73189)
+++ EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 73346)
@@ -1,5 +1,6 @@
 #include Prod.Product
 #include BL.Derde.LevSpecifiek
+#include vhLib.Macro
 EWPR ;E'WMS Produkten [ 12/04/2003  4:37 PM ]
  
  Set PRNr=0
@@ -16,11 +17,19 @@
     Set $P(^KPR(PRNr,2),D,17)="A;"_$H
 	Q "Send"
  
+ 
+ ; ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("EWMSProductSyncViaSQL",$$$false)
+ ; ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("EWMSProductSyncViaEWMS2003",$$$false)
+ 
 ZEND(PRNr,Forced) 
- New C
+ New C, EWMSProductSyncViaSQL,EWMSViaEWMS2003
+ Set EWMSViaSQL = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMSProductSyncViaSQL",$$$false)
+ Set EWMSViaEWMS2003 = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMSProductSyncViaEWMS2003",$$$True)
  ;Q ; Tijdelijk geen produkt info doorsturen
  If ($$CHKSEND(PRNr)&&("1D"[$$CHKAFGL(PRNr)))||$G(Forced) Do
- . Do BUILD(PRNr),ZEND^EWRECS("C")
+ . Do BUILD(PRNr)
+ . Do:(EWMSProductSyncViaEWMS2003) ZEND^EWRECS("C")
+ . Do:(EWMSProductSyncViaSQL) ##class(BL.Legacy.EWPR).ZendSQL("C")
  . Set $P(^KPR(PRNr,2),D,17)="A;"_$H
  Quit