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)) +]]> + + + + + + + + + + + + + + + + + + + + + + + + +