Index: EWORDS6.mac.rou
===================================================================
diff -u -r67866 -r69296
--- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 67866)
+++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 69296)
@@ -276,6 +276,7 @@
Set:Check Check=##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
;w:$G(io)=1015 1,Check," "
Set:Check Check=$$OrderGesloten(ORDNr)
+ Set:Check Check=$$OrderNotNOSEND(ORDNr)
;w:$G(io)=1015 2,Check," "
Set:Check Check='$$IsContractOfAfroep(ORDNr)
;w:$G(io)=1015 3,Check," "
@@ -316,7 +317,7 @@
VerzendwDD1(ORDNr)
New R,KLNr
Set R=^KO1(ORDNr,"F"),KLNr=$P(R,"\",1)
- Quit $$DEFAULT^KLVERZW(,KLNr,ORDNr)'="DD1"
+ Quit $$DEFAULT^KLVERZW(,KLNr,ORDNr)="DD1"
; Do orders moeten gesloten zijn
OrderGesloten(ORDNr)
@@ -325,6 +326,9 @@
Set OrderGesloten=$P(^KOD(KLNr,"F",ORDNr,1),"\",22)
Quit OrderGesloten
+OrderNotNOSEND(ORDNr)
+ Quit '($D(^ORDW("NOSEND",ORDNr))&&($$DIFFTIME^vhLib.DataTypes(^ORDW("NOSEND",ORDNr),$H)<1800)) ;Orders die door het terugtrekken uit ORDW op NOSEND gekomen zijn moeten 30min. wachten
+
; Contract- en afroeporders niet toegestaan
IsContractOfAfroep(ORDNr)
New R,KLNr,ORDNrs,IsContractOfAfroep,OrderType
Index: MRPRES.mac.rou
===================================================================
diff -u -r67549 -r69296
--- MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 67549)
+++ MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 69296)
@@ -29,13 +29,14 @@
Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A" ; Reeds productie klaar
Set (HFCode)=""
- For Set HFCode=$O(^HADPR("F",FabKey,"AR",HFCode)) Quit:HFCode="" Do
+ For Set HFCode=$O(^HADPR("F",FabKey,"AR",HFCode)) Quit:HFCode="" Do
. Set ARRec=^HADPR("F",FabKey,"AR",HFCode)
. Set HFRec=$G(^PRBS("BS",PRNr,HFCode)) ; als de bouwstenen gewijzigd werden nadat het product geactiveerd was.
. Quit:$P(HFRec,D,3)'="H" ; Geen halffabrikaat
. Set HFRecD=$G(^PRBS("BS",PRNr,HFCode,"D"))
. Set HFPRNr=$P(HFRec,D,1)
- . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1) ; Werkvloer product zonder voorraad in magazijn
+ . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1) ; Werkvloer product zonder voorraad in magazijn
+ . Quit:($$$ProductGet(HFPRNr,$$$WerkvloerSubMag)?1"KANBAN".E) ; Kanban niet opnemen in transferorder
. If $L($P($G(^KPR(HFPRNr,15)),D,5)) Do ; Er is een herbestelpunt ingevuld daarom overlaten aan de SCAN^MRPSTOCK
. . Set @CRef@("SCANONE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2) ; deze moeten absoluut opgenomen worden in de SCANONE^MRPSTOCK omdat deze klaargezet is (ook al is deze meerdere dagen verder)
. Else If ($P(ARRec,D,6)="W")||($P(ARRec,D,6)="P")||($P(ARRec,D,6)="F") Do ; Te kort op werkvloer wordt bepaald door ACTIVERING
@@ -148,6 +149,7 @@
. Do SplitSubMag(CRef)
. Kill @CRef@("TO")
. Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT")=@CRef@("STO")
+ . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"SPLIT TOELEV")=@CRef@("STT")
. Do BLD^MRPTORD($NAME(@CRef@("STO")))
. Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"ORDER")=@CRef@("STO")
. Do ControleProductenNietInOrder^MRPTORD($NAME(@CRef@("STO")),$NAME(@CRef@("MISSING")))
@@ -290,8 +292,12 @@
... Set SubMag=$P(@CRef@("TO",PRNr,FabKey,HFCode),D,2)
... Set:SubMag="" SubMag=$$GetVerzendCode(PRNr,FabKey)
... Set:SubMag="" SubMag="~"
- ... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
- ... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty
+ ... If SubMag="Y" Do ; MyLegrabox
+ .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr)=$G(@CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr))+Qty
+ .... Set @CRef@("STO",SubMag_";"_$P(FabKey,";"),PRNr,FabKey,HFCode)=Qty
+ ... Else Do
+ .... Set @CRef@("STO",SubMag,PRNr)=$G(@CRef@("STO",SubMag,PRNr))+Qty
+ .... Set @CRef@("STO",SubMag,PRNr,FabKey,HFCode)=Qty
. ; Afronden naar boven van de aantallen
. Set SubMag=""
. For Set SubMag=$O(@CRef@("STO",SubMag)) Quit:SubMag="" Do:$D(@CRef@("STO",SubMag,PRNr))
Index: EWSTAT.mac.rou
===================================================================
diff -u -r68334 -r69296
--- EWSTAT.mac.rou (.../EWSTAT.mac.rou) (revision 68334)
+++ EWSTAT.mac.rou (.../EWSTAT.mac.rou) (revision 69296)
@@ -414,6 +414,7 @@
....Set PRNr=$P(R,D,1)
....Set SoftV=$P(R,D,13)
....Set:SoftV?1N SoftV="E" ; Groepering van automatisch mag.
+ ....Set:SoftV="V" SoftV="E" ; OBJT
....Quit:'$L(SoftV)
....Quit:'$L($P(R,D,10))&'$L($P(R,D,5)) ; Bronpallet
....Set:IsOrgal DatRec("ORGAOL")=$G(DatRec("ORGAOL"))+1
@@ -532,22 +533,22 @@
LORD11 ;WOLK ; Orderlijnen (incl. kind);OLKind
LORD12 ;WOLP ; Zelfde produkt;OLIdemProd
LORD13 ;SOL ; Suborderlijnen;SubOL
-LORD14 ;SOLE ; EWMS;
-LORD15 ;SOLEP ; Pickpost;SubOLEPick
-LORD16 ;SOLEP1; PP1 ;SubOLEPick1
-LORD17 ;SOLEP2; PP2 ;SubOLEPick2
-LORD18 ;SOLED ; Directe uitvoer;SubOLDirUitv
-LORD19 ;SOLEU ; Ugly pick;SubOLEUglyPick
-LORD20 ;SOLEO ; Orgalux dubbeltelling;SubOLEOrgalux dubtel
-LORD21 ;SOLU ; UGLY;
-LORD22 ;SOLUH ; Halux ;SubOLHalux
-LORD23 ;SOLUL ; Langgoed;SubOLLanggoed
-LORD24 ;SOLUO ; Orgalux ;SubOLOrgalux
-LORD25 ;SOLUU ; Ugly ;SubOLUgly
-LORD26 ;SOLUA ; Tandem ;SubOLTandem
-LORD27 ;SOLUK ; Aventos ;SubOLAventos
-LORD28 ;MBON ;Manueel leveringsbons;Bons Manueel
-LORD29 ;MOL ; Orderlijnen;OL Manueel
+LORD14 ;SOLE ; OBJT;
+LORD15x ;SOLEP ; Pickpost;SubOLEPick
+LORD16x ;SOLEP1; PP1 ;SubOLEPick1
+LORD17x ;SOLEP2; PP2 ;SubOLEPick2
+LORD15 ;SOLED ; Objective;SubOLDirUitv
+LORD19x ;SOLEU ; Ugly pick;SubOLEUglyPick
+LORD20x ;SOLEO ; Orgalux dubbeltelling;SubOLEOrgalux dubtel
+LORD16 ;SOLU ; UGLY;
+LORD17 ;SOLUH ; Halux ;SubOLHalux
+LORD18 ;SOLUL ; Langgoed;SubOLLanggoed
+LORD19 ;SOLUO ; Orgalux ;SubOLOrgalux
+LORD20 ;SOLUU ; Ugly ;SubOLUgly
+LORD21 ;SOLUA ; Tandem ;SubOLTandem
+LORD22 ;SOLUK ; Aventos ;SubOLAventos
+LORD23 ;MBON ;Manueel leveringsbons;Bons Manueel
+LORD24 ;MOL ; Orderlijnen;OL Manueel
Lijst
New R,CONSNr,DatBon,PRNr,DatRec,KLNr,PRNr
Index: FLOWORD7.mac.rou
===================================================================
diff -u -r69156 -r69296
--- FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 69156)
+++ FLOWORD7.mac.rou (.../FLOWORD7.mac.rou) (revision 69296)
@@ -260,7 +260,7 @@
GetVerzWFromSubMag(WVSubMag)
New VerzendW
- Set VerzendW="TH"_$S(WVSubMag?1N:WVSubMag,WVSubMag?1(1"A",1"B",1"C",1"D",1"E",1"F",1"G"):WVSubMag,1:"")
+ Set VerzendW="TH"_$S(WVSubMag?1N:WVSubMag,WVSubMag?1(1"A",1"B",1"C",1"D",1"E",1"F",1"G",1"Y"):WVSubMag,1:"")
Quit VerzendW
; Maximum lijnen per order (default 99)
Index: OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml
===================================================================
diff -u -r67315 -r69296
--- OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml (.../VerdeelSOPRVoorraad.cls.xml) (revision 67315)
+++ OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml (.../VerdeelSOPRVoorraad.cls.xml) (revision 69296)
@@ -105,12 +105,19 @@
TeVerdelenVoorraad:%Decimal,Actie:%String,Omschrijving:%String
0
{
- Set ..ResultSet = ..itAdminItemIDs.Next()
- Set TeVerdelenVoorraadPerProduct=..GeefTeVerdelenVoorraadPerProduct()
+ While ..itAdminItemIDs.HasNext()
+ {
+ Set ..ResultSet = ..itAdminItemIDs.Next()
+ If ..ResultSet.Data("Product")?4.10N
+ {
+ Set TeVerdelenVoorraadPerProduct=..GeefTeVerdelenVoorraadPerProduct()
- Do ..WijzigVoorraad(..ResultSet.Data("Product"),TeVerdelenVoorraadPerProduct,Actie,Omschrijving)
+ Do ..WijzigVoorraad(..ResultSet.Data("Product"),TeVerdelenVoorraadPerProduct,Actie,Omschrijving)
+ }
+ }
+
}
]]>
@@ -196,11 +203,14 @@
While ..itAdminItemIDs.HasNext()
{
#dim rs as %ResultSet = ..itAdminItemIDs.Next()
- Set ..TotaalAantalProducten=..TotaalAantalProducten+1
- Set Verkoop=rs.Data("GewogenGemiddeldeWeekVerkoop")
- Set ..TotaalVerkoop=..TotaalVerkoop+$S(Verkoop>0:Verkoop,1:0)
- Set ..TotaalVHBEVoorraad=..TotaalVHBEVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",1)
- Set ..TotaalHLXVoorraad=..TotaalHLXVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",5)
+ If rs.Data("Product")?4.10N
+ {
+ Set ..TotaalAantalProducten=..TotaalAantalProducten+1
+ Set Verkoop=rs.Data("GewogenGemiddeldeWeekVerkoop")
+ Set ..TotaalVerkoop=..TotaalVerkoop+$S(Verkoop>0:Verkoop,1:0)
+ Set ..TotaalVHBEVoorraad=..TotaalVHBEVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",1)
+ Set ..TotaalHLXVoorraad=..TotaalHLXVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",5)
+ }
}
]]>
Index: EWORDST.mac.rou
===================================================================
diff -u -r67289 -r69296
--- EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 67289)
+++ EWORDST.mac.rou (.../EWORDST.mac.rou) (revision 69296)
@@ -506,7 +506,7 @@
If Delete Do
. Set (ORDNr,ORDNrs)=""
- . For Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr="" Set ORDNrs=ORDNrs_";"_ORDNr
+ . For Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr="" Set ORDNrs=ORDNrs_";"_ORDNr,^ORDW("NOSEND",ORDNr)=$H // Na het terugtreekken mag het order de eerste x min. niet terugdoorgestuurd worden
. Set $E(ORDNrs)=""
. Do STORE^LOG("ORDW",CONSNr,"V",ORDNrs)
. if $G(blnTerugTrekkenVanuitWMS) Do
Index: MRPTORD.mac.rou
===================================================================
diff -u -r29059 -r69296
--- MRPTORD.mac.rou (.../MRPTORD.mac.rou) (revision 29059)
+++ MRPTORD.mac.rou (.../MRPTORD.mac.rou) (revision 69296)
@@ -1,17 +1,17 @@
MRPTORD ; Transfertorders [ 03/10/2003 5:14 PM ]
Quit
;
-BLD(CRef,KLNr)
- New R,SubMag,PRNr,Aantal,LevWk,Count
- Set KLNr=$G(KLNr,$$GETALG^DEFAULTS("MRP","KLNR")),SubMag=""
- For Set SubMag=$O(@CRef@(SubMag)) Quit:SubMag="" Do
+BLD(CRef,IsPerToelev)
+ New R,SubMagEnToeNr,PRNr,Aantal,LevWk,Count,KLNr
+ Set KLNr=$G(KLNr,$$GETALG^DEFAULTS("MRP","KLNR")),SubMagEnToeNr=""
+ For Set SubMagEnToeNr=$O(@CRef@(SubMagEnToeNr)) Quit:SubMagEnToeNr="" Do ; SubMagEnToeNr kan ook de toelevering bevatten met ";" gescheiden
.Kill PRNr
- .Set Count=0,PRNr="",@CRef@(SubMag)=SubMag
- .For Set PRNr=$O(@CRef@(SubMag,PRNr)) Quit:PRNr="" Do
- ..Set Aantal=@CRef@(SubMag,PRNr),LevWk=$$LEVWK^PRODUKT4(PRNr,KLNr,1)
+ .Set Count=0,PRNr="",@CRef@(SubMagEnToeNr)=$P(SubMagEnToeNr,";")
+ .For Set PRNr=$O(@CRef@(SubMagEnToeNr,PRNr)) Quit:PRNr="" Do
+ ..Set Aantal=@CRef@(SubMagEnToeNr,PRNr),LevWk=$$LEVWK^PRODUKT4(PRNr,KLNr,1)
..Set Count=Count+1,PRNr(Count)=PRNr_D_Aantal_";*"_D_LevWk ; * na het aantal geeft aan dat het aantal zo moet geacepteerd worden
- .Set PRNr=SubMag
- .Do:$O(PRNr("")) BLDORD($NA(@CRef@(SubMag)),KLNr,.PRNr,SubMag)
+ .Set PRNr=$P(SubMagEnToeNr,";")
+ .Do:$O(PRNr("")) BLDORD($NA(@CRef@(SubMagEnToeNr)),KLNr,.PRNr,SubMagEnToeNr)
Do MARKSTAT(CRef)
Quit
@@ -27,10 +27,12 @@
. . . Set @OntbrekendCRef@(SubMag,PRNr)=Aantal
Quit
;
-BLDORD(CRef,KLNr,PRNr,SubMag)
+BLDORD(CRef,KLNr,PRNr,SubMagEnToeNr)
New OrdRef,Locals
- If SubMag?1"T;"6N Do
- . Set OrdRef="ONDERDELEN "_$P(SubMag,";",2)
+ If SubMagEnToeNr?1"T;"6N Do
+ . Set OrdRef="ONDERDELEN "_$P(SubMagEnToeNr,";",2)
+ Else If SubMagEnToeNr?1"Y;"6N Do
+ . Set OrdRef="MyLegra "_$P(SubMagEnToeNr,";",2)
Else Do
. Set OrdRef=DT_" TRANSFERTORDER"
Set Locals("KLNr")=KLNr,Locals("OrdRef")=OrdRef,Locals("CRef")=CRef