Index: vhDeploy/Deploy20250807FLOWTOERUglyReceptie.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20250807FLOWTOERUglyReceptie.cls.xml	(revision 0)
+++ vhDeploy/Deploy20250807FLOWTOERUglyReceptie.cls.xml	(revision 75089)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20250807FLOWTOERUglyReceptie">
+<Description>
+Do ##class(vhDeploy.D20180730xBidiRegioWijzigingen).ExecCode()</Description>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Apart tonen van aantallen Euro/Wegwerp palletten in toerlijst voor huidig transport</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;menu item
+	Set ^KBA("MENU",112,7)="UGLY receptie\10\3\VERWERKviaUPRCP^FLOWTOER\D\VERWERKviaUPRCP^FLOWTOER\\\\\\\\\\\"
+	;txtpop
+	Set ^RES("FLOWTOER","TP","MESPROD")="```````1"
+	Set ^RES("FLOWTOER","TP","MESPROD","B",1)="Annuleer&*"
+	Set ^RES("FLOWTOER","TP","MESPROD","T",1)="Produkt : º1"
+	Set ^RES("FLOWTOER","TP","MESPROD","T",2)="Product dient door OBJT MES verwerkt te worden!`&S`&B"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: FLOWTOER.mac.rou
===================================================================
diff -u -r58879 -r75089
--- FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 58879)
+++ FLOWTOER.mac.rou	(.../FLOWTOER.mac.rou)	(revision 75089)
@@ -1,8 +1,13 @@
 #include BL.Derde.LevSpecifiek
  
 FLOWTOER ;Inboeken toelevering [ 10/03/2003  11:21 AM ]
- ;
+ Goto VERWERK
+ 
+VERWERKviaUPRCP
+ Set ViaUPRCP=1
+ 
 VERWERK 
+ Set ViaUPRCP=$G(ViaUPRCP)
  New R,TOENr,LEVNr,Input,Detail,AD,Lines,Selected
  New ORDNr,KLNr,RecLoc
  Do INIT Quit:'LEVNr
@@ -62,9 +67,14 @@
  ..Set R=^KTO(LEVNr,TOENr,TLLNr),UniekLNr=$P(R,D,15)
  .If $D(^RCP("IT",TOENr,UniekLNr)) Write:Select *7 Quit
  .If 'PRNr,'Select Quit
- .If Input'="W",Input'="B",'$D(Receive(UniekLNr)),'$$OPSLMAN^PRODUKT2(PRNr) Do  Quit:'Quit
+ .If 'ViaUPRCP,Input'="W",Input'="B",'$D(Receive(UniekLNr)),'$$OPSLMAN^PRODUKT2(PRNr) Do  Quit:'Quit
  ..Set Quit=$$^vhTXTPOP("FLOWTOER","NOMANPROD","",$P(^KPR(PRNr,0),D))="V"
  ..Quit:'Quit
+ ..Set Quit=$$ASK^vhWACHTW("MANAGER")
+ .If ViaUPRCP,Input'="W",Input'="B",'$D(Receive(UniekLNr)),##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) Do  Quit:'Quit
+ ..w "CHECK"
+ ..Set Quit=$$^vhTXTPOP("FLOWTOER","MESPROD","",$P(^KPR(PRNr,0),D))="V"
+ ..Quit:'Quit
  ..Set Quit=1 ;$$ASK^vhWACHTW("MANAGER")
  .If Input'="W",'$D(Receive(UniekLNr)) Set Receive(UniekLNr)="",Selected=Selected+1
  .If Input="W" Quit:'$D(Receive(UniekLNr))  Kill Receive(UniekLNr)
@@ -165,10 +175,13 @@
 INIT 
  Do INIT^vhLIST("FLOWTOER","LIST",.AD)
  Set RecDate=+$H,(LEVNr,TOENr,ABNr,Refer)=""
+ If 'ViaUPRCP Do
+ . Do ADD^vhScherm(1,24),REFRESH
+ . Do RECDATE Quit:'%SC
+ Set:ViaUPRCP LEVNr=6332 ;Steeds HALUX 
+ Set:'ViaUPRCP LEVNr=$$SELECT^LEVER(1) 
+ Quit:'LEVNr 
  Do ADD^vhScherm(1,24),REFRESH
- Do RECDATE Quit:'%SC
- Set LEVNr=$$SELECT^LEVER(1) Quit:'LEVNr
- Do ADD^vhScherm(1,24),REFRESH
  Do TOENR("O")
  Set:'TOENr LEVNr=""
  Quit
@@ -179,7 +192,38 @@
  Do DISPLAY^vhScherm("FLOWTOER","","","",1) ;,RESET^vhScherm
  Quit
  ;
+ ;d ^cA604,INIT^vhTERMINA,VERWERKviaUPRCP^FLOWTOER
+ ;d VerwerkHangendeBuffers^vhCARETAKER
+RCVTOEViaUPRCP(TOENr,RecDate,Receive)
+ New R,LEVNr,TLLNr,PRNr,TLUNr,BackOrd
+ Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
+ Set TLUNr=""
+ Set UserID=QU
+ Set bfrRGID ="TB", bfrVolgNr=##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(bfrRGID,UserID)
+ Set Locatie="04020101"
+ do STORE^vhTERMINA()
+ Set Input=$$ASK^vhINP("Pallet ID: ",8,"","Buffer "_bfrRGID_":"_bfrVolgNr) 
+ Do REFRESH^vhTERMINA()
+ Quit:Input=""
+ Set PalletID=Input
+ Set Cnt=0
+ For  Set TLUNr=$O(Receive(TLUNr)) Quit:TLUNr=""  Do
+ .Set TLLNr=^TO("IU",TOENr,TLUNr)
+ .Set R=Receive(TLUNr),Receive=$P(R,D),BackOrd=$P(R,D,2)
+ .Do RCVLINEviaUPRCP(bfrRGID,bfrVolgNr,TOENr,TLLNr,Receive,Locatie,PalletID,UserID)
+ .Set Cnt=Cnt+1
+ 
+ Do:Cnt ##class(BL.MB.UGLYPicking.Receptie).CloseAndHandleBuffer(bfrRGID,bfrVolgNr)
+ Quit
+ ;
+RCVLINEviaUPRCP(bfrRGID,bfrVolgNr,TOENr,TLLNr,ReceiveAantal,Locatie,PalletID,UserID) 
+ Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
+ Set Rec=^KTO(LEVNr,TOENr,TLLNr),(PRNr,PR)=$P(Rec,D,2) Quit:'PRNr
+ Set Status=##class(BL.MB.UGLYPicking.Receptie).AddToBuffer(.bfrRGID, bfrVolgNr, PRNr, "", Locatie, PalletID, UserID,.ProdIsKOM, TOENr, ReceiveAantal, , TOENr)
+ Quit
+ 
 RCVTOE(TOENr,RecDate,Receive) 
+ If ViaUPRCP Do RCVTOEViaUPRCP(TOENr,RecDate,.Receive) Quit
  New R,LEVNr,TLLNr,PRNr,TLUNr,BackOrd
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
  Set TLUNr=""
@@ -242,9 +286,9 @@
  .Set Rec=^KOD(KLNr,"F",ORDNr,OLNr),OldAantal=$P(Rec,D,3)
  .Quit:'OldAantal
  .Set ASAP=$P(^KOD(KLNr,"F",ORDNr,1),D,28)
- .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*Receive),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*Receive),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*Receive),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
+ .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*Receive),0,2)
+ .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*Receive),0,2)
+ .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*Receive),0,2)
  .Set $P(Rec,D,3)=Receive,$P(Rec,D,27,28)="\KOM"
  .new OrderLijn set OrderLijn = ##class(DOM.VKP.impl.DataM.DataMOrderlijnFactory).CreateInMemory(,,Rec,OLNr)
  .do OrderLijn.BerekenEnZetHoutCertificaat()
@@ -261,9 +305,9 @@
  .Do KILL(TOENr,TLLNr)
  If BackOrd Do
  .Set Rec=^KTO(LEVNr,TOENr,TLLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
- .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
+ .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,2)
+ .Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*BackOrd),0,2)
+ .Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*BackOrd),0,2)
  .Set $P(Rec,D,3)=BackOrd,$P(Rec,D,15)=$P(Rec,D,15)+1
  .Set ^KTO(LEVNr,TOENr,TLLNr)=Rec
  .Do SWNODE^FLOWTOE(LEVNr,TOENr,TLLNr)
@@ -274,9 +318,9 @@
  ..Set Rec=^KOD(KLNr,"F",ORDNr,OLNr)
  ..Quit:'$P(Rec,D,3)
  ..Set OLNr=^KOD(KLNr,"F",ORDNr,0),^KOD(KLNr,"F",ORDNr,0)=OLNr+1
- ..Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- ..Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
- ..Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*BackOrd),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
+ ..Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*BackOrd),0,2)
+ ..Set $P(Rec,D,10)=$J(($P(Rec,D,10)/$P(Rec,D,3)*BackOrd),0,2)
+ ..Set $P(Rec,D,16)=$J(($P(Rec,D,16)/$P(Rec,D,3)*BackOrd),0,2)
  ..Set $P(Rec,D,3)=BackOrd,$P(Rec,D,15)="",$P(Rec,D,27,28)=TOENr_D_TLLNr
  ..Set ^KOD(KLNr,"F",ORDNr,OLNr)=Rec
  ..Do SWNODE^FLOWORD(KLNr,ORDNr,OLNr)
@@ -303,6 +347,7 @@
  ;
  ; Opkuis bestanden
 KILL(TOENr,TLLNr) 
+ q
  New R,LEVNr,ABNr,ABLNr
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
  Set R=^KTO(LEVNr,TOENr,TLLNr),ABLNr=$P(R,D,13,14)