Index: PV.mac.rou =================================================================== diff -u -r74848 -r75087 --- PV.mac.rou (.../PV.mac.rou) (revision 74848) +++ PV.mac.rou (.../PV.mac.rou) (revision 75087) @@ -8,7 +8,8 @@ s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMC")="5`Objt MES component" s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMS")="6`Objt MES samengesteld" ; Aanpassen stockagegroep in Admin - Set PRNr=5000000 + Set PRNr=80000 + Write $H,! For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do . Set KT=$$$PRGet($$$KortTekst) . Set LEVNr=$$$PRGet($$$LeveranciersNr) @@ -21,11 +22,11 @@ . ;If (";SLE.;SLME;SME.;SPE.;"[(";"_$E(KT,1,4)_";")) && (LEVNr=7802) Do ;spaanplaat egger . . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),! . . D $$$PRSet($$$ProductGroepWMS,"OMC") - . If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do + . If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;SST;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do . . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P($$GENTYP^HAD(PRNr,,1),"\")," OMS",$$$PRGet($$$ProductGroepWMS),! . . D $$$PRSet($$$ProductGroepWMS,"OMS") - - + . Quit:(PRNr > 2658415) ;Geen relevante generische producten meer + Write $H,!,PRNr q HFL Index: DOM/PM/enu/Classificatie/Verwerker.cls.xml =================================================================== diff -u -r74436 -r75087 --- DOM/PM/enu/Classificatie/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 74436) +++ DOM/PM/enu/Classificatie/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 75087) @@ -24,6 +24,8 @@ Do ..VerwerkLBXVoorstuk() } ElseIf Classificatie = "1730" { Do ..VerwerkMVXVoorstuk() + } ElseIf Classificatie = "425" { + Do ..VerwerkMatHalux() } ElseIf Classificatie = "769" { Do ..VerwerkOrgalineOnderdelen() } ElseIf Classificatie = "837" { @@ -56,6 +58,8 @@ Do ..VerwerkTaorBoxHoutDecorV10() } ElseIf Classificatie = "1440" { Do ..VerwerkTaorDrukwerk() + } ElseIf Classificatie = "1113" { + Do ..VerwerkVerpakkingHalux() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Classificatie,"DOM.PM.enu.Classificatie",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -99,6 +103,12 @@ + +1 +1 + + + 1 1 @@ -194,6 +204,12 @@ 1 + + +1 +1 + + Index: PRHF.mac.rou =================================================================== diff -u -r74848 -r75087 --- PRHF.mac.rou (.../PRHF.mac.rou) (revision 74848) +++ PRHF.mac.rou (.../PRHF.mac.rou) (revision 75087) @@ -1,3 +1,5 @@ +#include Prod.Product + PRHF ;Produkten halffabrikaten [ 11/21/2003 2:08 PM ] ; HADPR(TOENr,TLUNr,PRNr,AantWMS,RCPODate) @@ -12,6 +14,8 @@ . Do Log("PRBS",HFPRNr,PRNr_"\"_R) . Quit:$P(R,D,3)'="H" ; Geen halffabrikaat . Quit:$P(R,D,27) ; Geen stockaanpassingen voor dit product + . Quit:($$$ProductGet(HFPRNr,$$$KlassificatieKey)=##class(DOM.PM.enu.Classificatie).MatHalux()) ; + . Quit:($$$ProductGet(HFPRNr,$$$KlassificatieKey)=##class(DOM.PM.enu.Classificatie).VerpakkingHalux()) . Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr) . Set ResRec=$G(^HADPR("F",FabKey,"AR",HFCode)) . Do Log("HADPR",HFPRNr,PRNr_"\"_ResRec) Index: MRPRES.mac.rou =================================================================== diff -u -r74848 -r75087 --- MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 74848) +++ MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 75087) @@ -26,19 +26,23 @@ BLDTORD(CRef,FabKey,PRNr,ForeCastDagen) ; Controle welke halffabrikaten moeten opgenomen worden in een transferorder - New HFCode,HFPRNr,DimBrut,HFQty,ARRec,HFRec,HFRecD + New HFCode,HFPRNr,DimBrut,HFQty,ARRec,HFRec,HFRecD,MesFaseActief,IsClassificatieMatHalux,IsClassificatieVerpakkingHalux Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A" ; Reeds productie klaar - + Set MesFaseActief=##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") Set (HFCode)="" 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) + . Set IsClassificatieMatHalux = ($$$ProductGet(HFPRNr,$$$KlassificatieKey) = ##class(DOM.PM.enu.Classificatie).MatHalux()) + . Set IsClassificatieVerpakkingHalux = ($$$ProductGet(HFPRNr,$$$KlassificatieKey) = ##class(DOM.PM.enu.Classificatie).VerpakkingHalux()) . 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 + . Quit:(IsClassificatieMatHalux && (MesFaseActief>1)) ; Dit is enkel voor tlm, zie routine hierboven waar wordt gecheckt of het prnr moet een transferorder aanmaken + . Quit:(IsClassificatieVerpakkingHalux && (MesFaseActief>1)) ; Dit is enkel voor tlm, zie routine hierboven waar wordt gecheckt of het prnr moet een transferorder aanmaken . If HFCode?1(1"PRBOONDE.",1"PRKOPLI.",1"PRKOPRE.",1"PRFRONTB.",1"PRFB.")3N,($$PRODGRP^PRODUKT(PRNr)="TA.B"),$$IsGemonteerdeBinnenlade(PRNr) Do ;TA'OR onderdelen te monteren bij binnenlade . . Set @CRef@("TAX ASSEMBLAGE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2) . If $L($P($G(^KPR(HFPRNr,15)),D,5)) Do ; Er is een herbestelpunt ingevuld daarom overlaten aan de SCAN^MRPSTOCK Index: OBJTimpl/CheckObjectiveFase.cls.xml =================================================================== diff -u -r74939 -r75087 --- OBJTimpl/CheckObjectiveFase.cls.xml (.../CheckObjectiveFase.cls.xml) (revision 74939) +++ OBJTimpl/CheckObjectiveFase.cls.xml (.../CheckObjectiveFase.cls.xml) (revision 75087) @@ -123,7 +123,11 @@ 1 - 1: 3, 1 : 2) + + Quit Fase //##class(TECH.Config.ConfigMgr).Instance().GetString("OBJTimpl.Fase", ..#OBJTFaseDefault) ]]> Index: DOM/PM/enu/Classificatie/AutoComplete.cls.xml =================================================================== diff -u -r74436 -r75087 --- DOM/PM/enu/Classificatie/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 74436) +++ DOM/PM/enu/Classificatie/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 75087) @@ -51,6 +51,13 @@ 1 + +%String +"425" +1 +1 + + %String "769" @@ -162,6 +169,13 @@ 1 1 + + +%String +"1113" +1 +1 + Index: DOM/PM/enu/Classificatie.cls.xml =================================================================== diff -u -r74436 -r75087 --- DOM/PM/enu/Classificatie.cls.xml (.../Classificatie.cls.xml) (revision 74436) +++ DOM/PM/enu/Classificatie.cls.xml (.../Classificatie.cls.xml) (revision 75087) @@ -5,7 +5,7 @@ TECH.Enumeration -;425;837;1327;1328;1730;1371;1108;1406;769;1459;1645;1603;542;543;863;1440;1628;1629;1630;1694;1784;1806 +;425;837;1327;1328;1730;1371;1108;1406;769;1459;1645;1603;542;543;863;1440;1628;1629;1630;1694;1784;1806;1113;425 @@ -169,6 +169,20 @@ + + +1 +DOM.PM.enu.Classificatie + + + + +1 +DOM.PM.enu.Classificatie + +