Index: EWPR.mac.rou =================================================================== diff -u -r73346 -r73355 --- EWPR.mac.rou (.../EWPR.mac.rou) (revision 73346) +++ EWPR.mac.rou (.../EWPR.mac.rou) (revision 73355) @@ -28,8 +28,8 @@ ;Q ; Tijdelijk geen produkt info doorsturen If ($$CHKSEND(PRNr)&&("1D"[$$CHKAFGL(PRNr)))||$G(Forced) Do . Do BUILD(PRNr) - . Do:(EWMSProductSyncViaEWMS2003) ZEND^EWRECS("C") - . Do:(EWMSProductSyncViaSQL) ##class(BL.Legacy.EWPR).ZendSQL("C") + . Do:(EWMSViaEWMS2003) ZEND^EWRECS("C") + . Do:(EWMSViaSQL) ##class(BL.Legacy.EWPR).ZendSQL("C") . Set $P(^KPR(PRNr,2),D,17)="A;"_$H Quit