Index: APPS/Halux/Planning/enu/Productgroep.cls.xml
===================================================================
diff -u -r62525 -r73202
--- APPS/Halux/Planning/enu/Productgroep.cls.xml (.../Productgroep.cls.xml) (revision 62525)
+++ APPS/Halux/Planning/enu/Productgroep.cls.xml (.../Productgroep.cls.xml) (revision 73202)
@@ -6,7 +6,7 @@
%String
-,TBX,LBX,TAX,DIV,MAT,KAD,ASM,VILT,REST,SD,FRONTPLAAT,RELING,FRONT,CABLOX,HANGMAP,LBX FREE,AVENTOS,DWARSVERD,SERVODRIVE,DEKPLAAT,OMPAK
+,TBX,LBX,MVX,TAX,DIV,MAT,KAD,ASM,VILT,REST,SD,FRONTPLAAT,RELING,FRONT,CABLOX,HANGMAP,LBX FREE,AVENTOS,DWARSVERD,SERVODRIVE,DEKPLAAT,OMPAK
@@ -16,6 +16,13 @@
]]>
+
+1
+APPS.Halux.Planning.enu.Productgroep
+
+
+
1
APPS.Halux.Planning.enu.Productgroep
Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r65692 -r73202
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml (.../ConvertAll.cls.xml) (revision 65692)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml (.../ConvertAll.cls.xml) (revision 73202)
@@ -119,6 +119,7 @@
Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r62511 -r73202
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml (.../ConvertProductAbstract.cls.xml) (revision 62511)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml (.../ConvertProductAbstract.cls.xml) (revision 73202)
@@ -76,6 +76,11 @@
APPS.Halux.Planning.Resource.dto.ResourceLijn
+
+vhLib.Logger
+1
+
+
ProductieOrderLijn:Flow.Toelev.Lijn
%Status
@@ -99,7 +104,7 @@
Set Status=""
}
}
-
+ Set ..Logger = ##class(vhLib.Logger).%New("HLX.Planning.Resource")
Quit Status
]]>
@@ -170,7 +175,21 @@
Do ..ResourceLijn.Save()
}
-
+ If (Productgroep = "MVX") {
+ Try {
+ #dim LoggingTekst as %String = $$ObjToText^vhLib(..ResourceLijn)
+ Do ..Logger.Debug("ConvertOneResource", LoggingTekst)
+ } Catch {
+ Do ..Logger.Debug("ConvertOneResource", "ResourceLijn gemaakt voor MVX met ToelevNr '" _ ..ResourceLijn.ToeleveringNr _ "', Resourcegroep '" _ ..ResourceLijn.Resourcegroep _ "', Resource '" _ ..ResourceLijn.Resource _ "'")
+ }
+ }
+ If (..ResourceLijn.Resourcegroep = "MAT") {
+ Try {
+ #dim LoggingMatTekst as %String = $$ObjToText^vhLib(..ResourceLijn)
+ Do ..Logger.Debug("ConvertOneResourceMat", LoggingMatTekst)
+ } Catch {
+ }
+ }
Do ##class(APPS.Halux.Planning.Resource.impl.GebruikLogger).LogGebruik(..ResourceLijn)
]]>
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r63276 -r73202
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 63276)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 73202)
@@ -5,6 +5,8 @@
600:2,1:1)
Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1)
Set ..SpoelbakCode=$S("L"[..AXKenmerken.Toepassing:"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
Index: APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml
===================================================================
diff -u -r71510 -r73202
--- APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml (.../ImportTijdenFromXLS.cls.xml) (revision 71510)
+++ APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml (.../ImportTijdenFromXLS.cls.xml) (revision 73202)
@@ -98,7 +98,7 @@
Set ResourceTijd.KortTekstMatch=KortTekstMatch
Set ResourceTijd.MinAantal=MinAantal
set sc=ResourceTijd.%Save()
- w $$ParseStatus^vhLib(sc)
+ ;w $$ParseStatus^vhLib(sc)
]]>
Index: APPS/Halux/Planning/Resource/impl/ConvertMVX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ConvertMVX.cls.xml (revision 0)
+++ APPS/Halux/Planning/Resource/impl/ConvertMVX.cls.xml (revision 73202)
@@ -0,0 +1,177 @@
+
+
+
+ConvertProductAbstract
+
+
+600:2,1:1)
+ Set ..DiepteCode=$S(..AXKenmerken.LadeDiepte>550:2,1:1)
+ Set ..SpoelbakCode=$S(..AXKenmerken.Toepassing="L":"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+ Set VoorWandType=$zcvt(..AXKenmerken.VoorWandTypeVanCBinnenlade_..AXKenmerken.VoorWandTypeVanKBinnenlade_..AXKenmerken.VoorWandTypeVanMBinnenlade,"U")
+ Set ..FrontCode=$S($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"")
+ Set ..MatCode=..AXKenmerken.MatMateriaal
+ Set ..VerpakCode=..AXKenmerken.VerpakkingType
+ Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+
+ /// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo
+ Set ..SpeciaalCode=..AXKenmerken.ProductieWijze
+ Set:..SpeciaalCode="V" ..SpeciaalCode=""
+ If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1")
+ {
+ Set ..SpeciaalCode="BREEDTE"
+ }
+ If ((..AXKenmerken.Internebreedte<165)||(..AXKenmerken.Internebreedte>1500)) && (..AXKenmerken.VerpakkingType'="V1")
+ {
+ Set ..SpeciaalCode="BREEDTE"
+ }
+]]>
+
+
+
+50)
+ {
+ Do ..CreateResourceHoofdlijn()
+ Do ..CreateResourceMat()
+ Do ..CreateResourceVoormontage()
+ Do ..CreateResourceSpoelbak()
+ Do ..CreateResourceSpeciaal()
+ Do ..CreateInkorten()
+ Do ..CreateResourcePickingOnderdelen()
+ Do ..CreateResourcePickingZijkanten()
+ Do ..CreateResourceSnijdenHuls()
+ }
+ Else
+ { Set ..SpeciaalCode="ZNDR KENMERK"
+ Do ..CreateResourceSpeciaal()
+ }
+]]>
+
+
+
+
+
+
+
+5)
+ Quit:..SpeciaalCode'=""
+
+ Set Lijn="Lijn 4" //$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 2&3")
+ Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode
+ Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","MVX",Selector,,2) ; leading and pitched
+]]>
+
+
+
+
+
+
+
+
+
+
+
+7))
+]]>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+