Index: vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml =================================================================== diff -u -r75040 -r75048 --- vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml (.../Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml) (revision 75040) +++ vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml (.../Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml) (revision 75048) @@ -17,7 +17,7 @@ ;popup definities set ^RES("EWORDS","TP","DUEOUTVRD")="```````3" - set ^RES("EWORDS","TP","DUEOUTVRD","B",1)="Annuleren&0`Datum vervroegen&1`Datum behouden&*2" + set ^RES("EWORDS","TP","DUEOUTVRD","B",1)="Annuleren&0`Datum wijzigen&1`Datum behouden&*2" set ^RES("EWORDS","TP","DUEOUTVRD","T",1)="Bij voorwerken productie en stockage bij VRD datum behouden" set ^RES("EWORDS","TP","DUEOUTVRD","T",2)=" " set ^RES("EWORDS","TP","DUEOUTVRD","T",3)="Pickdatum order bij VRD behouden = ยบ1" @@ -35,6 +35,12 @@ set ^TECH("PRINT","TRANSP_DI1","MAG-WS038","BartenderPrinter","Device")="LBL004" set ^TECH("PRINT","TRANSP_DI1","MAG-WS011")="BartenderPrinter" set ^TECH("PRINT","TRANSP_DI1","MAG-WS011","BartenderPrinter","Device")="LABEL_GLS2" + + set ^TECH("PRINT","TRANSP_VRDDUEOUTA4","TERMSERV01-ACP")="BartenderPrinter" + set ^TECH("PRINT","TRANSP_VRDDUEOUTA4","TERMSERV01-ACP","BartenderPrinter","Device")="VHIP2" + + set ^TECH("PRINT","TRANSP_DI1","TERMSERV01-ACP")="BartenderPrinter" + set ^TECH("PRINT","TRANSP_DI1","TERMSERVO1-ACP","BartenderPrinter","Device")="LBL001" ]]> Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml =================================================================== diff -u -r75040 -r75048 --- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 75040) +++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 75048) @@ -192,12 +192,12 @@ ///$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",..VerzendWijzeID)),"`",7) ; Zou een optie zijn, maar niet gebruiken aangezien transportduur is niet werkdagen. /// Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd. //Quit:(..GeefVerzendwijze(KLNr, ORDNr)="GL4") 3 //deze weer in commentaar sinds backport van Cache05 - Quit:$G(KLNr)=26329 1 ; Klant OIC - Quit:$G(KLNr)=2913 1 ; Klant MadeByDas-Tristar - Quit:$G(KLNr)=4038 1 ; Klant H.M.P.C If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()){ Quit ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1AantaldagenVooruitkijken() } Else { + Quit:$G(KLNr)=26329 1 ; Klant OIC + Quit:$G(KLNr)=2913 1 ; Klant MadeByDas-Tristar + Quit:$G(KLNr)=4038 1 ; Klant H.M.P.C Quit 2 ; standaard werking } ]]> Index: EWORDS5.mac.rou =================================================================== diff -u -r75040 -r75048 --- EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 75040) +++ EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 75048) @@ -111,12 +111,12 @@ Set DoorsturenOrderPickingService = ##class(APPS.OrderUitvoering.DoorsturenOrderPickingService).%New() #dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderLijnDoorsturen(OrderID, OrderLijnID) If Bezwaren.Count() > 0 { - Set BezwarenBericht = "" + Set BezwarenBericht = "" For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10) Set GaVerder = $$^vhTXTPOP("EWORDS","DUEOUTVRD",0,$ZDT(+$$GetPickDatum^EWORDS6(OrderID,$G(OrderLijnID)),4),$ZDT(+$Piece(^HULP(%J,"V","V"),"\",2),4)) Set LijnLeverdatumControleren = $$$Not(GaVerder) ; Als er verdergegaan word, volgende keer niet meer vragen } - Quit GaVerder ; kan nu 3 waarden bevatten Vervroegen = 1 , Behouden = 2 Annuleren = 0 + Quit GaVerder ; kan nu 3 waarden bevatten Wijzigen = 1 , Behouden = 2 Annuleren = 0 MARKORD(Ref) New R,ORDNr,OLNr,Quit,Marked,OLUNr,StartRef,VerzW,AskLink