Index: EWORDS.mac.rou
===================================================================
diff -u -r74962 -r75040
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 74962)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 75040)
@@ -142,6 +142,7 @@
  If Optie'["A",Optie'["T" Kill ^HULP(%J)
  Quit
  ;
+ 
 FETCH(KLNr,ORDNr,Optie) 
  New R,Count,OLNr,MarkOrd,OLUNr,EwmsVerw,VerzW,Lock,VerzZ,GewGemWv,PRNr,Beloofd,IsTBX,StockNiveauService,VkpKinderen
  New LevTerm,BufferW,Week,DynTheoS,KomOrd,StockUpd,FysStock,PraStock,TeoStock,Aantal,ResWMS,Order,OrderStaatVolledigBijVanHoecke
@@ -190,7 +191,7 @@
  ...If $$GeenMaatWerkCheck(PRNr) Do ;het maatwerk is gemaakt, niet meer op de kinderen controleren
  ....Set VkpKinderen = "0\0\0"
  ...else  Do
- ....Set VkpKinderen = $$VerkoopKinderen^PRODUKT4(PRNr,WeekDat)
+ ....Set VkpKinderen = "0\0\0" ;$$VerkoopKinderen^PRODUKT4(PRNr,WeekDat) ;reeds door AX gedaan.
  ...Set WVRes=$$CV2MAG^MRP(PRNr,$P(VkpKinderen,"\",2))
  ...Set WVTekort=$S(KLNr=$$$KlantHalux:"",WVStock<WVRes:WVRes-WVStock,1:"")
  ...Set Week=$$EXTDATE^vhLib.DataTypes(WeekDat,"DW"),DynTheoS=$$DYNSTOCK^PRODUKT4(PRNr,"T",Week)-WVTekort Set:DynTheoS<0 DynTheoS=0
@@ -886,6 +887,7 @@
  If $L($G(VerzendWijze)) Do
  . Do SETVERZW(KLNr,,VerzW)
  . Set GewenstePickDatum = $piece(sdVerzendWijze,D,2)
+ . ; onderstaande lijn niet meer gebruiken zie [ict-5848]
  . ;If VerzendWijze?1(1"DD1",1"DI1") Set GewenstePickDatum=$$GetPickDatum^EWORDS6(ORDNr) ; aangepast PV 18/01/2022 - voortrekken toelaten met het behouden van de gewenste verzenddatum. In comment 04/04/23 vanwege PV
  . Do VulInVerzendWijzeInHoedjeHulp(KLNr,ORDNr, GewenstePickDatum,VerzW)
  . Do DISPLAY^vhScherm("EWORDSH",,,,"VERZWIJZE;GERAAPT;VERZZONE;VERZDATUM")