Index: EWRCPF.mac.rou
===================================================================
diff -u -r58337 -r66310
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 58337)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 66310)
@@ -29,6 +29,7 @@
  Else  If C("ACTIE")="D" Do ACTIED ; Receptie wissen=1 slavelijn
  
  Set:SubRec'="" ^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)=SubRec
+ Do:(SubRec'="") ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).MarkeerOntvangst(RCPNr,BONNr,LUNr,SubLNr) ;OBJT
  If $G(^EWLOG("DEBUG"))=2 Write !,SubRec
  Do QTYSTAT(RCPNr,BONNr,LUNr)
  Lock -^RCP("D",RCPNr)
@@ -337,8 +338,8 @@
  .Lock -^RCP("URG",RCPNr)
  .Do:$D(^RCP("AUTO",RCPNr)) CHKAUTO(RCPNr)
  Quit
- 
 
+
 CHKAUTO(RCPNr) 
  New R,LRec,WaitTime,LEVNr,TOENr,TLUNr,SetTime,Mail,KlantId,KLNr,ORDNr,OneRCP,%TC
  If $G(^RCP("AUTO")) Do
Index: EWMS/Inventory.cls.xml
===================================================================
diff -u -r62846 -r66310
--- EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 62846)
+++ EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 66310)
@@ -105,6 +105,8 @@
 <Property name="ExtraInt8">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
+<SqlColumnNumber>22</SqlColumnNumber>
+<SqlFieldName>extra_int_8</SqlFieldName>
 <Parameter name="EXTERNALSQLNAME" value="extra_int_8"/>
 </Property>
 
@@ -1678,13 +1680,21 @@
 <Parameter name="ROWSPEC" value="ProductNr:%String,QtyPcs:%Integer,QtyRes:%Integer,Sectie,Batch,Quality,Owner,ExtraInt10,ExtraInt7:%String,IsFull:%Library.Boolean"/>
 </Query>
 
+<UDLText name="T">
+<Content><![CDATA[
+//;OBJT qty_pcs - toegevoegd
+
+]]></Content>
+</UDLText>
+
 <Query name="GetProductsOnPalletViaProd">
 <Type>%Library.SQLQuery</Type>
 <FormalSpec>paProductNr:%Library.String</FormalSpec>
-<SqlQuery><![CDATA[SELECT M.product,M.loc_id FROM EWMS.Inventory AS M, (SELECT loc_id FROM EWMS.Inventory WHERE (product=:paProductNr) AND (loc_m<5)) AS P
+<SqlQuery><![CDATA[	
+SELECT M.product,M.loc_id,qty_pcs FROM EWMS.Inventory AS M, (SELECT loc_id FROM EWMS.Inventory WHERE (product=:paProductNr) AND (loc_m<5)) AS P
 WHERE M.loc_id=P.loc_id]]></SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
-<Parameter name="ROWSPEC" value="ProductNr:%String,LocID:%String"/>
+<Parameter name="ROWSPEC" value="ProductNr:%String,LocID:%String,QtyPcs:%Integer"/>
 </Query>
 
 <Query name="GetExtraInt7MaxViaPal">
Index: OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml
===================================================================
diff -u -r66284 -r66310
--- OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml	(.../ZendOpslagOntvangst.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml	(.../ZendOpslagOntvangst.cls.xml)	(revision 66310)
@@ -19,7 +19,8 @@
 <Method name="test">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set ^RCP("AUTO_OBJT",16261041,222984,230,100)=$H-1
+	;Set ^RCP("AUTO_OBJT",16261041,222984,230,100)=$H-1
+	zw ^RCP("AUTO_OBJT")
 	Do ..VerzendNaVertraging()
 ]]></Implementation>
 </Method>
@@ -31,7 +32,7 @@
 	Set PRNr=$P($G(^RCP("D",RCPNr,"D",TOENr,TLUNr,SubTLNr)),"\")
 	Quit:'##class(OBJTimpl.CheckObjectiveFase).ReceptieNaarOBJT(PRNr)
 	
-	Set ^RCP("AUTO_OBJT",RCPNr,TOENr,TLUNr,SubTLNr)=$H
+	Set ^RCP("AUTO_OBJT",RCPNr,TOENr,TLUNr,SubTLNr)=$H-1
 ]]></Implementation>
 </Method>
 
@@ -91,7 +92,7 @@
 	Set Ontvangst=##class(dtoOntvangst).%New()
 	Do Ontvangst.VulInVanuitEWMSControle(.C)
 	Do Ontvangsten.Voegtoe(Ontvangst)
-	Do ##class(OBJTimpl.BestandVerwerker).%New().MaakBestandVoorOBJT(Ontvangsten,"AanmakenVoorraad")
+	Do ##class(OBJTimpl.BestandVerwerker).%New().MaakBestandVoorOBJT(Ontvangsten,"Creatie Voorraad")
 ]]></Implementation>
 </Method>
 </Class>
Index: EWCORR.mac.rou
===================================================================
diff -u -r29059 -r66310
--- EWCORR.mac.rou	(.../EWCORR.mac.rou)	(revision 29059)
+++ EWCORR.mac.rou	(.../EWCORR.mac.rou)	(revision 66310)
@@ -67,6 +67,7 @@
  .Set $P(RcpRec,D,2)=RCPStat
  .Set $P(RcpRec,D,3)=AantVerw,$P(RcpRec,D,4)=AantWMSC
  .Set ^RCP("D",RCPNr,"D",TOENr,TLUNr,STLUNr)=RcpRec
+ .Do:RCPStat="C" ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).MarkeerOntvangst(RCPNr, TOENr, TLUNr, STLUNr) ;OBJT
  Else  If TLUNr,TOENr,RCPNr Do
  .Do RCPMAN(RCPNr,TOENr,TLUNr)
  .Q
Index: vhDeploy/D20211201OBJTFase1.cls.xml
===================================================================
diff -u
--- vhDeploy/D20211201OBJTFase1.cls.xml	(revision 0)
+++ vhDeploy/D20211201OBJTFase1.cls.xml	(revision 66310)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20211201OBJTFase1">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Instellen van de Ax Gateway connection config items</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit ; weghalen als we live gaan met fase 1 en dan uitvoeren
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("OBJTimpl.Fase", 1)
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("OBJTimpl.WipInLocatie", "0109")
+	
+	S ^MN("D","EWORDSTL","F","7")="&S``B`````"
+	S ^MN("D","EWORDSTL","F","8")="Zend picking als voorraad naar OBJT``D`##class(OBJTimpl.WMSOrder.ZendInitieleVoorraad).TransferVoorraad()`$$CHKMENU^EWORDST(""L"",""P"")```"
+	
+	S ^RES("PRODUKT","PI","OPSLAGZONE","D",3)="3`Vert.liften`VLM"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/dtoOntvangst.cls.xml
===================================================================
diff -u -r66284 -r66310
--- OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/dtoOntvangst.cls.xml	(.../dtoOntvangst.cls.xml)	(revision 66310)
@@ -68,7 +68,7 @@
 	Set ..ItemNm=$$$ProductGet(C("PRNR"),$$$KortTekst)
 	Set ..Aantal=C("DELTAIN")
 	Set ..PalletId=C("PALETID")
-	Set ..Locatie=..#DefaultLocatie
+	Set ..Locatie=##class(TECH.Config.ConfigMgr).Instance().GetString("OBJTimpl.WipInLocatie",..#DefaultLocatie)
 	;
 	Set ..ControleTijdstip=$zdt(C("DATUM"),3)
 	Set ..ControleMagazijnier=C("USERID")
@@ -84,7 +84,7 @@
 	Set ..ItemNm=$$$ProductGet(PRNr,$$$KortTekst)
 	Set ..Aantal=Aantal
 	Set ..PalletId=PaletId
-	Set ..Locatie=..#DefaultLocatie
+	Set ..Locatie=##class(TECH.Config.ConfigMgr).Instance().GetString("OBJTimpl.WipInLocatie",..#DefaultLocatie)
 	;
 	Set ..ControleTijdstip=$zdt($H,3)
 	Set ..ControleMagazijnier=""
Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r66170 -r66310
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 66170)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 66310)
@@ -45,6 +45,9 @@
 <ReturnType>APPS.MAG.enu.Magazijn</ReturnType>
 <Implementation><![CDATA[
  // lbProductTypesInConsolidatie As %List<BL.Legacy.enu.ProductBevatType> : lijst van soorten producten die in de consolidatie zitten. Dit dient om bvb ORGALUX en TA'OR Cubics kindproducten in de juiste Ugly-rubriek te krijgen.
+ 
+ Quit:##class(OBJTimpl.CheckObjectiveFase).PickingDoorOBJT(PRNr) "V" ;OBJT
+ 
  #dim Mag,MagList,PALNr,Rec2 As %String
  #dim Magazijn As APPS.MAG.enu.Magazijn = ##class(APPS.MAG.enu.Magazijn).EWMS()
  If '$G(Force),'$G(^EWREC("P","UPSEND")) Quit Magazijn ; UglyPicking niet actief
Index: PRHIST.mac.rou
===================================================================
diff -u -r62525 -r66310
--- PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 62525)
+++ PRHIST.mac.rou	(.../PRHIST.mac.rou)	(revision 66310)
@@ -21,12 +21,12 @@
 		set $piece(HoutCertificaatInfo,";",2)=HoutCertificaatGewicht
 	}
  }
- Set AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New()
+ Set AxReferentieBepaler = ##class(Prod.VoorraadBeweging.AxReferentieBepaler).%New() ;In OBJT Fase 5 is er in Admin geen afhankelijkheid van AX. Deze code moet dan aangepast worden
  Do AxReferentieBepaler.ZetIds(BTNr,BTLUNr)
  Set AxInventTransId = AxReferentieBepaler.GeefAxInventTransId()
  Set AxConfigId = AxReferentieBepaler.GeefAxConfigId()
  Set AxItemId = AxReferentieBepaler.GeefAxItemId(PRNr)
- 
+
  If Magazijn="W" Set R=$G(^PRSTOCK("D",PRNr)),Stock=$P(R,D,5)
  Else  Set R=^KPR(PRNr,0),Stock=$P(R,D,14)
  Set Waarde=$J($$CifPPL^KPRIJS(PRNr)*Aantal,0,2) ; omgezet van CIFPPLPR naar PRIJSGEG
@@ -40,7 +40,6 @@
 	 	set $piece(R,D,18)=HoutCertificaatService.BepaalCertificaatCode(MPRNr)
 	 }
  }
- 
  Set HistNr=$O(^PRHIST(PRNr,""),-1)+1,^PRHIST(PRNr,HistNr)=R
  Set ^PRHIST.IndexDate(+$P(R,D,1),PRNr,HistNr)=""
  If $D(WMS) For I=1:1 Quit:'$D(WMS(I))  Do
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r62511 -r66310
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 62511)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 66310)
@@ -10,15 +10,18 @@
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 </Property>
 
-<Property name="AlternateItem">
-<Type>AXimpl.Admin.STAT.Invoice.AlternateItem</Type>
-</Property>
+<UDLText name="T">
+<Content><![CDATA[
+//Property AlternateItem As AXimpl.Admin.STAT.Invoice.AlternateItem;
 
+]]></Content>
+</UDLText>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
-	Set ..AlternateItem=##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New()
+	;Set ..AlternateItem=##class(AXimpl.Admin.STAT.Invoice.AlternateItem).%New() ;OBJT NIET meer nodig
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: OBJTimpl/BestandVerwerker.cls.xml
===================================================================
diff -u -r66284 -r66310
--- OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 66284)
+++ OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 66310)
@@ -79,7 +79,6 @@
 <Implementation><![CDATA[
 	Set reader = ##class(%XML.Reader).%New()
 	Set sc=reader.OpenFile(PathAndFile)
-	w PathAndFile,!
 	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc)  Quit  
 	Do reader.Correlate("VoorraadNiveau","OBJTimpl.WMSOrder.dtoCorrelateVoorraadNiveau")
 	Do reader.Correlate("VoorraadWijzing","OBJTimpl.WMSOrder.dtoCorrelateVoorraadWijziging")
Index: EWRECR.mac.rou
===================================================================
diff -u -r47929 -r66310
--- EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 47929)
+++ EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 66310)
@@ -37,9 +37,11 @@
 	. If FastMode,FastMode<$P($H,",",2) Set FastMode="" ;FastMode is verstrekenen
 	. Do CHECK
 	. Do WMSALIVE
+	. Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()
 	. Do:$D(^ORDW("BON")) CHKBON^EWORDF2 ; Verder op bon zetten en afdrukken
 	. Do:$D(^RCP("URG")) CHKURG^EWRCPF ; Urgentie door mailen naar user
 	. Do:$G(^RCP("AUTO")) CHKAUTO^EWRCPF() ; Automatisch inboeken Halux
+	. Do:$D(^RCP("AUTO_OBJT")) ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).VerzendNaVertraging() ;OBJT : Fase 1 Automatisch stockage voor producten in de Vertikale liften
 	. Lock +^cLOG(cs,"CTK0","JOB"):0 ; Controle of caretaker nog draait
 	. If $T Do  ; Indien gelocked dan caretaker gestopt
 	. . Lock -^cLOG(cs,"CTK0","JOB")
@@ -240,7 +242,6 @@
  Do ERROR^EWLOG($T(NOSTART))
  Set Tekst="De link met het EWMS is verbroken!!!~Routine ^EWRECR draait niet meer~Gelieve dit dringend op te lossen!!!"
  Set MailId=$$SYSTEM^vhMAIL("","",$ZN,"EWMS",Tekst,"EWMS\\R","U","A")
- Do ##class(vhLib.Logger).%New($$$EWRECRLoggerGroep).Error("CTK",Tekst)
  ; Om de 10 sec een beep geven indien START^EWRECR niet loopt
  For Count=1:1 Set Job=$G(^EWREC("P","CHKJOB")) Quit:'Job  Set Routine=$$ROUTINE^cS(Job) Quit:Routine=$ZN  Zu 1 Write *7 Hang 10
  Quit
@@ -317,7 +318,6 @@
  Do ERROR^EWLOG($T(NOTALIVE))
  Set Tekst="De link met het EWMS is verbroken!!!~Het WMS-Alive bericht wordt niet meer ontvangen~Gelieve dit dringend op te lossen!!!"
  Set MailId=$$SYSTEM^vhMAIL("","",$ZN,"EWMS",Tekst,"EWMS\\R","U","A")
- Do ##class(vhLib.Logger).%New($$$EWRECRLoggerGroep).Error("WMSALIVE",Tekst)
  Set $P(WMSAlive,",",2)=999999 ; Bericht kan maar een keer voorkomen na mekaar eenmaal per dag voorkomen  Quit
  Quit
    
Index: EWRECA.mac.rou
===================================================================
diff -u -r66222 -r66310
--- EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 66222)
+++ EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 66310)
@@ -82,7 +82,7 @@
  Do CLNDIR(10,"DIRSARCHIVE") ; Send
  Do CLNREC("R",30)
  Do CLNREC("S",30)
- Do CLNORDW(60)
+ Do CLNORDW(30)
  Do CLNRCP(90)
  Quit
  
Index: EWORDSW.mac.rou
===================================================================
diff -u -r59978 -r66310
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59978)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 66310)
@@ -72,7 +72,7 @@
  ;
 SEND(CONSNr) ; Opbouw van Consolidatie en doorsturen naar E'WMS
  ; Locals gekend tussen de verschillende routines ; DH,ORDCache
- New R,DH,ORDNr,OLNr,OLUNr,OLCnt,TerugCnt,OLRec,Qty,BOQty,ORDCache,Sort,VerzW,DOut,IsOrgal,IsTxtOrga,IsTxtTAORIndeling,IsTAORIndeling,IsComm,SoftV,IsKaderD,KenAnk
+ New R,DH,ORDNr,OLNr,OLUNr,OLCnt,TerugCnt,OLRec,Qty,BOQty,ORDCache,Sort,VerzW,DOut,IsOrgal,IsTxtOrga,IsTxtTAORIndeling,IsTAORIndeling,IsComm,SoftV,IsKaderD,KenAnk,OBJTSender
  Quit:$G(^EWREC("P","NOSEND"))
  Lock +^ORDW("D",CONSNr)
  Set CONSRec=^ORDW("D",CONSNr),VerzW=$P(CONSRec,D,2),DOut=$P(CONSRec,D,3)
@@ -90,6 +90,7 @@
  . Do SORT(CONSNr,.Sort)
  Do AanpassenDueOut(CONSNr,lbBevat)
  Set KenAnk=1
+ Set OBJTSender=##class(OBJTimpl.WMSOrder.ZendPicklijst).%New() ;OBJT
  For  Set ORDNr=$O(Sort(ORDNr)) Quit:ORDNr=""  Do
  . For  Set OLUNr=$O(Sort(ORDNr,OLUNr)) Quit:OLUNr=""  Do
  .. If 'DH Do
@@ -102,6 +103,7 @@
  . Set KenAnk=0
  If DH Do  ; Er zijn er doorgestuurd
  . Do CLOSE^EWRECS(DH)
+ Do OBJTSender.VerstuurPicklijnen() ;OBJT
  Set CONSRec=^ORDW("D",CONSNr)
  Set:$P(CONSRec,D,20)="" $P(CONSRec,D,20)="W" ; Alleen als nog niet is doorgestuurd, dit voor Terugnames en zonder WMS
  Set $P(CONSRec,D,22)=$H
@@ -129,8 +131,7 @@
  If Verzendwijze?1"AF"1E
  {
 	 Set $P(DOut,",",2)=1200
- }
- ElseIf (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
+ } ElseIf (Verzendwijze?1"OD"1N)&&(SubMagazijnen["E")
 {
 	If Verzendwijze="OD1" Set $P(DOut,",",2)=21600 ; 6 uur
 	If Verzendwijze="OD2" Set $P(DOut,",",2)=25200 ; 7 uur
@@ -150,7 +151,7 @@
 		}
 	} 
 }
- 
+
  Set:OmzFakt>1 $P(DOut,",",2)=$P(DOut,",",2)-(4*60) ; Grote klanten worden voorgetrokken met 4 min.
  Set:$LF(lbBevat,"ORGALUX") $P(DOut,",",2)=$P(DOut,",",2)-(10*60) ; Orgalux orders voortrekken met 10 min.
  Set:$L(SubMagazijnen)=1 $P(DOut,",",2)=$P(DOut,",",2)-(5*60) ; picking uit slechts 1 submagazijn wordt voorgetrokken met 5 min
@@ -305,6 +306,7 @@
  
  
 BLDOL(KLNr,CONSNr,ORDNr,OLUNr,lbBevat,SoftV) 
+
  ; SoftV : via .Local
  ; Verwerken van een orderlijn met eventuele opslitsing in verschillende kindproducten
  New OLNr,OLRec,SubOLNr,SubRec,PRNr,KPRNr,OLCache,Txt,SOLSoftV,OLSoftV
@@ -316,8 +318,9 @@
  . Quit:$P(SubRec,D,2)'=""  ; Reeds verwerkt (doorgestuurd), terugname, manueel of zonder WMS
  . Set SOLSoftV=$P($G(Sort(ORDNr,OLUNr,$P(SubRec,D,1))),D,2)
  . Set:SOLSoftV="" SOLSoftV=$$SOFTV($P(SubRec,D,1),$P(^ORDW("D",CONSNr),D,1),$P(SubRec,D,3),lbBevat)
- . If (SOLSoftV="E")!(SOLSoftV?1N) Do  ; voor EWMS
+ . If (SOLSoftV?1(1"E",1N,1"V")) Do  ; voor EWMS ;OBJT
  .. Do SOLCACHE(CONSNr,ORDNr,OLUNr,SubOLNr,.C)
+ .. Set C("SOFTV")=SOLSoftV ;OBJT
  .. Set $P(SubRec,D,11)=$G(C("SORTKODE"))
  . Set:OLSoftV'[SOLSoftV OLSoftV=OLSoftV_SOLSoftV ; Lijn
  . Set:SoftV'[SOLSoftV SoftV=SoftV_SOLSoftV ; Consolidatie
@@ -328,7 +331,7 @@
  . Merge Txt=C("OLTEKST")
  . Set Txt=$O(Txt(""),-1)
  . Kill C("OLTEKST")
- . Do:(SOLSoftV="E")!(SOLSoftV?1N) PUT(.C,"OLTEKST",.Txt) ; voor EWMS
+ . Do:(SOLSoftV?1(1"E",1N,1"V")) PUT(.C,"OLTEKST",.Txt) ; voor EWMS ;OBJT
  Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
  Set $P(OLRec,D,2)="W"
  Set $P(OLRec,D,8)=OLSoftV
@@ -352,17 +355,23 @@
  Quit
  
 PUT(C,Ref,Txt) 
- Do GETWRAP^vhBIGEDIT("Txt",40,.Txt,"G","~","")
- For Txt=1:1:Txt Set Txt(Txt)=$P(Txt(Txt),"`",5),Txt(Txt)=Txt(Txt)_$J("",40-$L(Txt(Txt)))
- For Txt=1:1:Txt Do
- .If Txt#4=1 Do
- ..If Txt>1 Do
- ...Do PUT^EWRECS(DH,"C")
- ...Set:$D(C("PRNR")) C("PRNR")="" Set:$D(C("MOEDERPRNR")) C("MOEDERPRNR")=""
- ...Set:$D(C("AANTAL")) C("AANTAL")=""
- ..Set C(Ref)=""
- .Set C(Ref)=C(Ref)_Txt(Txt)
- Do:Txt PUT^EWRECS(DH,"C")
+ If $G(C("SOFTV"))="V" ;OBJT
+ {	
+ 	Set C(Ref)=Txt
+	Do OBJTSender.VoegtoePicklijn(.C)
+ } Else {
+	 Do GETWRAP^vhBIGEDIT("Txt",40,.Txt,"G","~","")
+	 For Txt=1:1:Txt Set Txt(Txt)=$P(Txt(Txt),"`",5),Txt(Txt)=Txt(Txt)_$J("",40-$L(Txt(Txt)))
+	 For Txt=1:1:Txt Do
+	 .If Txt#4=1 Do
+	 ..If Txt>1 Do
+	 ...Do PUT^EWRECS(DH,"C")
+	 ...Set:$D(C("PRNR")) C("PRNR")="" Set:$D(C("MOEDERPRNR")) C("MOEDERPRNR")=""
+	 ...Set:$D(C("AANTAL")) C("AANTAL")=""
+	 ..Set C(Ref)=""
+	 .Set C(Ref)=C(Ref)_Txt(Txt)
+	 Do:Txt PUT^EWRECS(DH,"C")
+ }
  Quit
  
 ORDCACHE(KLNr,CONSNr,ORDNr,IsAndereControleWijze,C) ; Opbouw van de cache voor de orderhoofding
Index: EWORDF.mac.rou
===================================================================
diff -u -r29059 -r66310
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 29059)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 66310)
@@ -9,12 +9,15 @@
  If 'IsUgly Do   ;Ugly versie wordt verderop ingevuld
  . Set SoftV="E" ; EWMS
  . Set:$L(CONSNr)=7 SoftV=$E(CONSNr,7),CONSNr=$E(CONSNr,1,6) ;indien komend van EWMS : Groepering splitsen
+ Set:$G(C("SOFTV"))="V" SoftV="V" ;OBJT
  Set ORDNr=C("ORDNR")    
  Set OLUNr=C("OLNR")\100
  Set SOLNr=C("OLNR")#100*100+C("OLSPLITSNR")
+ ;w !,$name(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)),!
+ ;w !,$name(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)),!
+ 
  If CONSNr,ORDNr,OLUNr,SOLNr,$D(^ORDW("D",CONSNr,"D",ORDNr,OLUNr))
  Else  Do ERROR^EWLOG($T(NOSUBOL)) Quit
- 
  If $P(^ORDW("D",CONSNr),D,20)="B" Do  Quit
  .Do ERROR^EWLOG($T(OPBONL)) Quit
  .Set $P(^ORDW("D",CONSNr),D,21)="e"
@@ -39,7 +42,6 @@
  .If $P(SOLRec2,D,3)<1 Do ERROR^EWLOG($T(QTYNEG)) Set $P(SOLRec2,D,2)="E"
  .Set AddSOL=1
  .Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr2)=SOLRec2 ; wordt de nieuwe hoofdlijn
- 
  If C("STATUS")="PNOK" Do  ; Orderlijn NOK: geen goederen voor dit orderlijn
  . If 'IsUgly,##class(EWMS.Inventory).GetQty($P(SOLRec,D,1),$LB(2,3,4))>0 Do ; WMS heeft een NOK gestuurd maar er voorraad in UGLY -> Lijn converteren naar UGLY picking
  . . Set SoftV="U"
@@ -79,7 +81,7 @@
  .Set $P(SOLRec,D,6)=C("DATUM")
  .Set $P(SOLRec,D,10)=C("SOURCEPALID")
  .Set $P(SOLRec,D,12)=C("USER")
- .Set $P(SOLRec,D,14)=$S(IsUgly:C("LOCMSTR"),1:$$FYSMAG($P(SOLRec,D,1),C("SOURCEPALID"),C("PALKLID")))
+ .Set $P(SOLRec,D,14)=$S(SoftV="V":"V",IsUgly:C("LOCMSTR"),1:$$FYSMAG($P(SOLRec,D,1),C("SOURCEPALID"),C("PALKLID"))) ;OBJT
  .Set $P(SOLRec,D,6)=C("DATUM")
  Set:SOLRec'="" ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)=SOLRec
  If $G(^EWLOG("DEBUG"))=2 Write !,SOLRec
@@ -131,8 +133,8 @@
  .Set SOLCnt=SOLCnt+1
  .Set SOLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)
  .Set KPRNr=$P(SOLRec,D,1)
- .Set KQty(KPRNr)=$G(KQty(KPRNr))+$P(SOLRec,D,4)
- .;Set KReqQty(KPRNr)=$G(KReqQty(KPRNr))+$P(SOLRec,D,3)
+ .Set KQty(KPRNr)=$G(KQty(KPRNr))+$P(SOLRec,D,4 )
+ .;Set KReqQty(KPRNr)=$G(KReqQty(KPRNr))+$P(SOLRec,D,3) ; probleem met Moeder -> Kind -> SingleKind oplossen, aangepast PV 14/02/2012; 
  .Set:$S(IsUgly:"U",1:"W")'[$P(SOLRec,D,2) StatCnt($P(SOLRec,D,2))=$G(StatCnt($P(SOLRec,D,2)))+1
  Set $P(OLRec,D,2)=$S($G(StatCnt("A"))+$G(StatCnt("Q"))+$G(StatCnt("E"))=SOLCnt:"A",$D(StatCnt):"P",1:"W")
  Set $P(OLRec,D,3)=$S($G(StatCnt("E")):"E",$G(StatCnt("Q")):"Q",1:"")
@@ -168,7 +170,7 @@
  
  ; Propageren van de lijnstatus naar SOFTV en hoofdrecord
 PROPLIJN(CONSNr,SoftV,OLFStat,OLEStat) 
- New SoftVRec,CONSRec,FStat,EStat,Eprio,OLEprio,HerZend
+ New SoftVRec,CONSRec,FStat,EStat,Eprio,OLEprio,HerZend,tempSoftV,Vzw
  ; propageren naar SoftV status
  Set SoftVRec=$G(^ORDW("D",CONSNr,"S",SoftV))
  Set FStat=$P(SoftVRec,D,1)
@@ -192,11 +194,13 @@
  Set:Eprio<OLEprio EStat=OLEStat
  If FStat="W" Do 
  . Set FStat="P"
- . Set SoftV=$O(^ORDW("D",CONSNr,"S",""))
- . Quit:SoftV=""
- . Quit:$O(^ORDW("D",CONSNr,"S",SoftV))="" ; slechts 1 SOFTV groep
+ . Set tempSoftV=$O(^ORDW("D",CONSNr,"S",""))
+ . Quit:tempSoftV=""
+ . Quit:$O(^ORDW("D",CONSNr,"S",tempSoftV))="" ; slechts 1 SOFTV groep
+ . Set Vzw=$P(^ORDW("D",CONSNr),"\",2)
+ . Quit:Vzw'?1(1"DI1",1"OD1",1"OD2",1"OD3",1"OD4") ; alleen voor GLS en ODx
  . Set DueOut=$P(CONSRec,D,3)
- . Set $P(DueOut,",",2)=$P(DueOut,",",2)-300 ; 5 min vroeger
+ . Set $P(DueOut,",",2)=$S(Vzw="OD1":6,Vzw="OD2":7,Vzw="OD3":8,Vzw="OD4":9,1:4)*60*60
  . Set:$P(DueOut,",",2)<0 $P(DueOut,",",2)=120 ; correctie negatieve tijd PV 12-03-2012
  . Set $P(CONSRec,D,3)=DueOut
  . Set HerZend=1 ; herzenden van dueout naar EWMS
@@ -318,7 +322,7 @@
 ORDSTAT ;"De status in het order is foutief moet ""P"" zijn :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_SoftV_";"_C("STATUS")_";"_ORDStat
 OLSTAT2 ;"De status van sommige orderlijnen zijn nog niet afgesloten :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_OLStat
 NOCONS ;"Consolidatie bestaat niet :"_C("VOLGNR")_";"_C("CONSNR")
-VOORTREK ;"Consolidatie wordt vervroegd omdat een deel reeds gepickt wordt :"_C("VOLGNR")_";"_C("CONSNR")
+VOORTREK ;"Consolidatie wordt vervroegd omdat een deel reeds gepickt wordt :"_C("VOLGNR")_";"_C("CONSNR")_";"_SoftV
 
 
 
Index: OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml
===================================================================
diff -u -r66284 -r66310
--- OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml	(.../ZendInitieleVoorraad.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml	(.../ZendInitieleVoorraad.cls.xml)	(revision 66310)
@@ -28,15 +28,21 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
  New %SC,OrdRec,CONSNr,ORDNr,OLUNr,SOLUNr,Aantal,PaletId
- New CONSStat,CONSProb,MPRNr,KPRNr,KindFactor
+ New CONSStat,CONSProb,PRNr,KPRNr,KindFactor
  Set OrdRec=^HULP(%J,"L",LD("SELECT"))
- Set CONSNr=$P(OrdRec,D,2),ORDNr=$P(OrdRec,D,3),OLUNr=$P(OrdRec,D,4)
- If ##class(OBJTimpl.CheckObjectiveFase).GeefFase()'>0 Do WARN^vhTXTPOP("Niet gekoppeld aan OBJT","") Quit   ;OBJT
+ Set CONSNr=$P(OrdRec,"\",2),ORDNr=$P(OrdRec,"\",3),OLUNr=$P(OrdRec,"\",4)
+ Set PRNr=$P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",1)
+ Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,"")) Set:SOLNr KPRNr=$P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr),"\",1)
+ If ##class(OBJTimpl.CheckObjectiveFase).GeefFase()'=1 Do WARN^vhTXTPOP("Alleen voor OBJT Fase 1","") Quit   ;OBJT
+ If ##class(OBJTimpl.CheckObjectiveFase).ReceptieNaarOBJT(PRNr) Do WARN^vhTXTPOP("Product "_$$$PRGet($$$KortTekst)_" reeds naar OBJT","") Quit   ;OBJT
  If $P(^ORDW("D",CONSNr),D)'=7587 Do WARN^vhTXTPOP("Klant is niet Halux, nl. "_$P(^ORDW("D",CONSNr),D),"") Quit   ; Transferorder
+ If PRNr'=KPRNr Do WARN^vhTXTPOP("Moeder "_$$$PRGet($$$KortTekst)_" verschillend~van kind "_$$$ProductGet(KPRNr,$$$KortTekst),"") Quit
  If $$CONSSTAT^EWCORR(CONSNr)'="B" Do WARN^vhTXTPOP("Deze bon is nog niet geboekt!","") Quit
  If OLUNr,ORDNr,CONSNr,$P(OrdRec,D,9) Do
  . Set Aantal=$P(OrdRec,D,9)
+ . Do STORE^vhTERMINA()
  . Set PaletId=$$ASK^vhINP("Geef Paletid voor OBJT: ",10,"",$$$PRGet($$$IdentNummer)_" "_$$$PRGet($$$KortTekst)_" Aantal:"_Aantal)
+ . Do REFRESH^vhTERMINA(21,24)
  . Quit:PaletId=""  Quit:$E(PaletId)="-"
  . Do ##class(OBJTimpl.WMSOrder.ZendInitieleVoorraad).ZendProductEnPallet(PRNr ,PaletId, Aantal)
  . ; Voorraad terug verplaatsen van werkvloer naar voorraad