Index: EWORDS6.mac.rou =================================================================== diff -u -r55454 -r56733 --- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 55454) +++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 56733) @@ -104,7 +104,7 @@ Do BLDCONS^EWORDS2(KlantNummer, $Name(^HULP(%J, KlantNummer, "M")), ConsolidatieNummer, $Piece(VerzW, ";"), VerzDat, DOutDateTime, VerzZone, LevAdr, .ChkBeletDone) ; Creatie suborderlijnen - Do ##class(vhLib.Logger).%New().Info("Klaarzetten voor picking", "Bon '" _ ConsolidatieNummer _ "' is automatisch aangemaakt.") + Do ##class(vhLib.Logger).%New().Info("Klaarzetten voor picking", "Bon '" _ ConsolidatieNummer _ "' is automatisch aangemaakt, WMSActief:"_$$WMSIsActief()_", IsVoorVandaag:"_IsVoorVandaag ) If ($$WMSIsActief() && IsVoorVandaag) { Do SEND^EWORDSW(ConsolidatieNummer) Index: FLOWORD9.mac.rou =================================================================== diff -u -r55344 -r56733 --- FLOWORD9.mac.rou (.../FLOWORD9.mac.rou) (revision 55344) +++ FLOWORD9.mac.rou (.../FLOWORD9.mac.rou) (revision 56733) @@ -12,12 +12,12 @@ Set Status ="" If $P(LijnRec,"\",27)'="" ; kom link { - Set Status="1;Productie : Onbekend" + Set Status="1;In productie" Set FabKey=$$FABKEYO^HADOPV(KLNr,ORDNr,OLUNr) Set TOENr=$P(FabKey,";") If $L(FabKey) && ($P($G(^HADPR("F",FabKey,"K")),"\",3)="A") { - Set Status="2;Productie : klaargezet" + Set Status="2;In productie" } try { @@ -30,27 +30,27 @@ } If $isObject(pxZoek) { - Set Status="3;Productie : in batch;"_$$FormatVanafNu($ZDTH(pxZoek.ToeleveringGeplandTijdstip,3,,2)) + Set Status="3;In productie;"_$$FormatVanafNu($ZDTH(pxZoek.ToeleveringGeplandTijdstip,3,,2)) } } Set CONSNr=$G(^ORDW("IO",ORDNr,OLUNr)) If Status="" && 'CONSNr &&($$GETSTOCK^PRODUKT4(PRNr,"F")<$P(LijnRec,"\",3)) { - Set Status="4;Onvoldoende stock;"_$$GETSTOCK^PRODUKT4(PRNr,"F") + Set Status="4;Zonder stock;"_$$GETSTOCK^PRODUKT4(PRNr,"F") } If Status="" && ($P(LijnRec,"\",28)'="") && 'CONSNr { If $$GoederenBijHalux(ORDNr) { - Set Status="5;Geproduceerd, nog in Halux;"_$$FormatVanafNu($$ZoekLaatsteReceptie(PRNr)) + Set Status="5;Nog in Halux;"_$$FormatVanafNuHalux($$ZoekLaatsteReceptie(PRNr)) } Else { - Set Status="6;Wachten op doorsturen" + Set Status="6;Doorsturen" } } If Status="" ; status picking @@ -72,19 +72,32 @@ } If (Status="") && ((PickStatus="W")||(PickStatus="P")) { - Set Status="77;Wachtend op picking;"_$$TranslateMag($P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8)) + Set Status="77;Te picken;"_$$TranslateMag($P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8)) } If (Status="") && (PickStatus="") { - Set Status="8;Wachtend op picking activatie" + Set Status="8;Te activeren" } } Else { - Set Status="6;Wachten op doorsturen" + Set Status="6;Doorsturen" } } + ; ophalen verzendwijze + If Status'="" + { + If CONSNr { + Set VerzendWijze=$P($G(^ORDW("D",CONSNr)),"\",2) + } + Else + { + Set VerzendWijze=$P($G(^KOD(KLNr,"F",ORDNr,1)),"\",7) + Set VerzendWijze=$P($P(VerzendWijze,"`"),";") ;alleen eerste code zonder de dag + } + Set $P(Status,";",4)=VerzendWijze + } Quit Status TranslateMag(MagCode) Quit:MagCode="U" "Ugly" @@ -106,6 +119,24 @@ Set Diff=$$DIFFTIME^vhLib.DataTypes(DatumEnTijd,$H) Set Uur=Diff\3600 Quit Uur_" u" + +FormatVanafNuHalux(DatumEnTijd) + New Dag,Uur,Werkdagen + Set Werkdagen=0 + If +DatumEnTijd<+$H ; Verschillende dagen + { + For Dag=+DatumEnTijd:1:($H-1) + { + Set Werkdagen=Werkdagen+($$CALCDATE^vhLib.DataTypes(Dag,"A","+0")=Dag) + } + } + Set Diff=$$DIFFTIME^vhLib.DataTypes(DatumEnTijd,$H)\3600 + Set Result=(Diff)_" u" + ;w Werkdagen, " ", Result,! + Set:(Werkdagen=1)&&(Diff>10) Result=(Diff-10)_" u" + Set:(Werkdagen>1) Result=Werkdagen_" D" + Quit Result + ZoekLaatsteReceptie(PRNr) New VolgNr Set VolgNr=$O(^PRHIST(PRNr,""),-1) Index: Flow/Toelev/LijnProductieStatus.cls.xml =================================================================== diff -u --- Flow/Toelev/LijnProductieStatus.cls.xml (revision 0) +++ Flow/Toelev/LijnProductieStatus.cls.xml (revision 56733) @@ -0,0 +1,56 @@ + + + +%RegisteredObject + + +1 +LEVNr,TOENr,TLNr,TLUNr,PRNr,AXInventTransID + + + + +1 +TOENr,TLUNr,*Tijdstip + + + + +1 +TOENr,TLUNr,PRNr,AXInventTransID,*AantalStuks,*Tijdstip + + + + + + Index: RPLKL2.mac.rou =================================================================== diff -u -r56427 -r56733 --- RPLKL2.mac.rou (.../RPLKL2.mac.rou) (revision 56427) +++ RPLKL2.mac.rou (.../RPLKL2.mac.rou) (revision 56733) @@ -322,7 +322,7 @@ D:$P(U2,D,1)="" . Set:'$D(OrderStaatVolledigBijVanHoecke(UR)) OrderStaatVolledigBijVanHoecke(UR)=##class(BL.Legacy.EWTOE).OrderStaatVolledigBijVanHoecke(UR) . Quit:OrderStaatVolledigBijVanHoecke(UR) - . Set $P(U2,D,11)=" HALUX" + . Set:$G(tr)="" $P(U2,D,11)=" HALUX" S ^HULP($J,"K"_KC,"O",VNR)=U2 G ORD2 ORD4 S ORD(9)=VNR K STUPD Q ; Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml =================================================================== diff -u -r55526 -r56733 --- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 55526) +++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 56733) @@ -149,7 +149,7 @@ Set ..Registratie.CommissieRef=$P(ORDRec,"\",19) Set OLRec=$G(^KOD(KLNr,"F",ORDNr,OLNr)) Set:..Registratie.AxInventTransId="" ..Registratie.AxInventTransId=$P(OLRec,"\",55) - Set:..Registratie.AxItemId="" ..Registratie.AxMaatwerkGenerischItemId=$P(OLRec,"\",57) + Set:..Registratie.AxItemId="" ..Registratie.AxItemId=$P(OLRec,"\",57) Set:..Registratie.AxConfigId="" ..Registratie.AxConfigId=$P(OLRec,"\",56) }