Index: APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml (revision 0) +++ APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml (revision 57446) @@ -0,0 +1,72 @@ + + + +persistent +1 +TECH.Persistent + + +%Date + + + +%TimeStamp + + + +%TimeStamp + + + +APPS.Halux.Planning.enu.Resource + + + +%Decimal + + + +%Decimal + + + +Datum,Resource + + + +%Library.CacheStorage +^APPS.HaluxCB43.GeplandeCap83EFD +GeplandeCapaciteitDefaultData +^APPS.HaluxCB43.GeplandeCap83EFD +^APPS.HaluxCB43.GeplandeCap83EFI +^APPS.HaluxCB43.GeplandeCap83EFS + +listnode + + +%%CLASSNAME + + +Datum + + +TijdstipVan + + +TijdstipTot + + +Resource + + +BaseFactor + + +CorrectieFactor + + + + + + + Index: APPS/Halux/Planning/impl/ResourceCalcMutex.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/impl/ResourceCalcMutex.cls.xml (revision 0) +++ APPS/Halux/Planning/impl/ResourceCalcMutex.cls.xml (revision 57446) @@ -0,0 +1,113 @@ + + + + +Tabel om externe systemen kennis te geven van de herrekening van de gegevens +Er is de Last tijdstip van de laatste berekening. +De Calculatie is bezig als de CalcGestartTijdstip is ingevuld +Er is ook de Next tijdstip voor de volgende berekening zal starten +Dus de data is stabiel als GestartCalcTijdstip is leeg en voor NextCalcTijdstip +persistent +1 +TECH.Persistent + + +%TimeStamp + + + +%TimeStamp + + + +%TimeStamp + + + +%TimeStamp + + + +1 +GestartCalcTijdstip + + + + +1 +LastCalcTijdstip:%TimeStamp,NextCalcTijdstip:%TimeStamp + + + + +1 +Tijdstip:%TimeStamp + + + + +1 +%TimeStamp + + + + +%Library.CacheStorage +^APPS.HaluxAD8B.ResourceCalcED9D +ResourceCalcMutexDefaultData +^APPS.HaluxAD8B.ResourceCalcED9D +^APPS.HaluxAD8B.ResourceCalcED9I +^APPS.HaluxAD8B.ResourceCalcED9S + + +%%CLASSNAME + + +LastCalcTijdstip + + +NextCalcTijdstip + + +Bezig + + +GestartCalcTijdstip + + +ActiviteitPerBatchTijdstip + + + + + + + + Index: APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml (revision 0) +++ APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml (revision 57446) @@ -0,0 +1,43 @@ + + + +TECH.RegisteredObject + + +1 +ResourceLijn:APPS.Halux.Planning.Resource.dto.ResourceLijn + + + + + + Index: APPS/Halux/Planning/enu/Productgroep.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/Productgroep.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/Productgroep.cls.xml (revision 57446) @@ -0,0 +1,63 @@ + + + +datatype +1 +%String + + +,TBX,LBX,TAX,DIV,MAT,KAD,ASM,VILT + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + +1 +APPS.Halux.Planning.enu.Productgroep + + + + + + Index: APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml (revision 0) +++ APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml (revision 57446) @@ -0,0 +1,159 @@ + + + +persistent +1 +TECH.Persistent + + +APPS.Halux.common.impl.BatchImpl + + + +APPS.Halux.Planning.enu.Resourcegroep + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +APPS.Halux.Planning.enu.Productgroep + + + +%String + + + + +Indien IsLeading=0 dan moet de activiteit aanleveren aan de hoofdlijn (IsLeading=1) +APPS.Halux.Planning.enu.Resource + + + +%Decimal + + + +%Decimal + + + +%Boolean + + + +%TimeStamp + + + +%TimeStamp + + + +%TimeStamp + + + +%TimeStamp + + + +%TimeStamp + + + + +S=Start, F=Finished, P=Paused/Partieel +%String + + + +%String + + + +Batch,Resource,Activiteit,RecalcTijdstip +1 + + + + + + + +%Library.CacheStorage +^APPS.Halux618D.ActiviteitPE116D +ActiviteitPerBatchDefaultData +^APPS.Halux618D.ActiviteitPE116D +^APPS.Halux618D.ActiviteitPE116I +^APPS.Halux618D.ActiviteitPE116S + + +%%CLASSNAME + + +Batch + + +Resourcegroep + + +Resource + + +Activiteit + + +Productgroep + + +Opmerking + + +LeverenAanResource + + +DuurTijd + + +Aantal + + +IsLeading + + +StartVoorafTijdstip + + +StartBijnaTijdstip + + +StartTijdstip + + +EindTijdstip + + +RecalcTijdstip + + +Status + + +Gebruiker + + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml (.../ConvertTAX.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml (.../ConvertTAX.cls.xml) (revision 57446) @@ -9,30 +9,35 @@ 600:2,1:1) - Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1) - Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) + Set ..AXKenmerken.Internebreedte=..AXKenmerken.CorpusBreedte-(2*..AXKenmerken.CorpusWandDikte) - Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE" - Set ..MatCode=..IngegevenKenmerken.MatMateriaal - Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType + Set ..BreedteCode=$S(..AXKenmerken.Internebreedte>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) + + Set ..FrontCode=$zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE" + Set ..MatCode=..AXKenmerken.MatMateriaal + Set ..VerpakCode=..AXKenmerken.VerpakkingType Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3) ; - Set ..LogoCode=..IngegevenKenmerken.Zijkantlogoid'="" + Set ..LogoCode=..AXKenmerken.Zijkantlogoid'="" ]]> 50) + If $isObject(..AXKenmerken)&&(..AXKenmerken.Internebreedte>50) { Do ..CreateResourceHoofdlijn() Do ..CreateResourceMat() Do ..CreateResourceLaserLogo() Do ..CreateResourceSpoelbak() Do ..CreateInkorten() + Do ..CreateResourcePickingOnderdelen() } Else { @@ -49,57 +54,67 @@ Set KPRNr=$P(^PRBS("BS",..PRNr,"TOBSYS.001"),"\") If KPRNr=1297240 ; T60.1125W Syncro stang om in te korten { - Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON") + Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TAX","INK:TIPON") } } If $D(^PRBS("BS",..PRNr,"PRTOSTANG.001")) ; OLD TIPON syncstang { - Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn ALU","INK:TIPON ALU") + Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TAX","INK:TIPON ALU") } If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001")) { - Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB") + Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TAX","INK:ZIJSTAB") } ]]> - + + + + Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml (revision 57446) @@ -0,0 +1,171 @@ + + + +BerekenTijdenAbstract + + +%Date +1 + + + +%String +1 + + + + +d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenAfhankelijke).%New().Bereken() + + + + +rsToelev:%ResultSet + + + + +rsToelev:%ResultSet,rsLijn:%ResultSet + ",ResourcePitched.EindTijdstip,! + + Do ResourcePitched.Save() + Quit ResourcePitched +]]> + + + +ToeleveringNr:%String +TECH.Iterator + + + + +TECH.Iterator + + + + +BatchID:%String + + + + +BatchID:%String,Resource:%String + + + + +BatchID:%String + + + + +Resource:%String + + + + + + Index: APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml (revision 0) +++ APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml (revision 57446) @@ -0,0 +1,165 @@ + + + +TECH.RegisteredObject + + +%Boolean + + + +APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator + + + +%TimeStamp + + + +Batch:%String,Resource:%String,Activiteit:%String,Status:%String,Gebruiker:%String,AppNaam:%String,ComputerNaam:%String + + + + + +Vanuit de aansturing Status feedback van de PERS en ZAAG wordt de hoofdlijn gestart van TBX en LBX +Batch:%String,Resource:%String,Activiteit:%String,AppNaam:%String + + + + +Batch:%String,Resource:%String,Activiteit:%String,Status:%String,Gebruiker:%String,AppNaam:%String,ComputerNaam:%String + + + + +1 +Batch:%String,Resource:%String,Activiteit:%String +APPS.Halux.Planning.Activiteit.dto.ActiviteitStartStop + + + + + +Na de registratie van de actie de status van de Activiteit aanpassen +Batch:%String,Resource:%String,Activiteit:%String + + + + +AppNaam:%String,ComputerNaam:%String + + + + +Batch,Resource,Activiteit + + + + + +De TAOR opvolging van de verschillende machines zorgt voor elk onderdeel hoever het geraakt is op de verschillende machines. +Stapnummer 8 betekend dat het tot op de laatste machine voor dat onderdeel is geraakt. +Batch,Resource,Activiteit +7 and BatchID=? " + _" group by BatchID, ToeleveringId,ProductID" + _" ) " + _" group by BatchId" + Do rs.Prepare(SQL) + + Set sc=rs.Execute(Batch) + If rs.Next() ; alleen de eerste nemen + { + If (rs.Data("MinStapNr")<8) && (rs.Data("MaxStapNr")'<8) + { + Do ..RegistreerActieAlsGewijzigd(Batch, Resource, Activiteit, "S", "SYSTEM", "SYS", "SYS") + } + ElseIf (rs.Data("MinStapNr")=8) && (rs.Data("MaxStapNr")'<8) + { + Do ..RegistreerActieAlsGewijzigd(Batch, Resource, Activiteit, "F", "SYSTEM", "SYS", "SYS") + } + } +]]> + + + + + Index: APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml (revision 0) +++ APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml (revision 57446) @@ -0,0 +1,237 @@ + + + +persistent +1 +TECH.Persistent + + +%String + + + +%String + + + +%String + + + +Derde.Klant.Klant + + + +%String + + + +%String + + + +Prod.Product + + + +APPS.Halux.Planning.enu.Resourcegroep + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +APPS.Halux.Planning.enu.Productgroep + + + +%String + + + + + + + +%Boolean + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +%TimeStamp + + + +%Decimal + + + +%Integer + + + +ToeleveringNr,UniekLijnNr + + + +Product + + + +%Library.CacheStorage +^APPS.Halux.Pl41A1.ResourceLijnD +ResourceLijnDefaultData +^APPS.Halux.Pl41A1.ResourceLijnD +^APPS.Halux.Pl41A1.ResourceLijnI +^APPS.Halux.Pl41A1.ResourceLijnS + +listnode + + +%%CLASSNAME + + +AxInventTransId + + +AxConfigId + + +AxMaatwerkGenerischItemId + + +Klant + + +ToeleveringNr + + +UniekLijnNr + + +Product + + +Resourcegroep + + +Resource + + +Activiteit + + +Productgroep + + +Selector + + +IsLeading + + +CreatieTijdstip + + +TijdPerStuk + + +TijdIsDefaulted + + + + + + + Index: APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml (revision 0) +++ APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml (revision 57446) @@ -0,0 +1,72 @@ + + + +persistent +1 +TECH.Persistent + + +APPS.Halux.Planning.enu.Resourcegroep + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +APPS.Halux.Planning.enu.Productgroep + + + +%String + + + +%Decimal + + + +Resource,Activiteit,Selector + + + +%Library.CacheStorage +^APPS.Halux.Pl41A1.ResourceTijdD +ResourceTijdDefaultData +^APPS.Halux.Pl41A1.ResourceTijdD +^APPS.Halux.Pl41A1.ResourceTijdI +^APPS.Halux.Pl41A1.ResourceTijdS + +listnode + + +%%CLASSNAME + + +Resourcegroep + + +Resource + + +Activiteit + + +Productgroep + + +Selector + + +Tijd + + + + + + + Index: APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml (revision 0) +++ APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml (revision 57446) @@ -0,0 +1,112 @@ + + + +persistent +1 +TECH.Persistent + + +%String + + + +%String + + + +%String + + + +Prod.Product + + + +APPS.Halux.Planning.enu.Resourcegroep + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +APPS.Halux.Planning.enu.Productgroep + + + +%String + + + +%TimeStamp + + + +%Decimal + + + +%Integer + + + +ToeleveringNr,UniekLijnNr,Product + + + +%Library.CacheStorage +^APPS.Halux41A1.ResourceGebC6D9D +ResourceGebruikLoggingDefaultData +^APPS.Halux41A1.ResourceGebC6D9D +^APPS.Halux41A1.ResourceGebC6D9I +^APPS.Halux41A1.ResourceGebC6D9S + + +%%CLASSNAME + + +AxInventTransId + + +ToeleveringNr + + +UniekLijnNr + + +Product + + +Resourcegroep + + +Resource + + +Activiteit + + +Productgroep + + +Selector + + +CreatieTijdstip + + +TijdPerStuk + + +TijdIsDefaulted + + + + + + + Index: APPS/Halux/Planning/Pitching/impl/ImportBatchPitchedFromXLS.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/impl/ImportBatchPitchedFromXLS.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/impl/ImportBatchPitchedFromXLS.cls.xml (revision 57446) @@ -0,0 +1,117 @@ + + + +TECH.RegisteredObject + + +TECH.FileReader +1 + + + +%TimeStamp +1 + + + + +d ##class(APPS.Halux.Planning.Pitching.impl.ImportFromXLS).%New().ImportXLS() +1 +1 +%Status +1 + + + + + + + + + + + + +Lijn:%Integer,Pitchorde:%Integer,BatchId:%String,Opmerking:%String + + + + + +overbodig, er wordt geen verkorte ingave gedaan van de batch id +BatchLastKar:%String + + + + + + + + + + + + + + + + + + Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml (revision 57446) @@ -0,0 +1,146 @@ + + + +BerekenTijdenAbstract + + +%String + + + +%Date +1 + + + +%String +1 + + + + +d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingNotPitched).%New().Bereken() + + + + +rsToelev:%ResultSet + + + + +rsToelev:%ResultSet,rsLijn:%ResultSet + ",ResourcePitched.EindTijdstip,! + + Do ResourcePitched.Save() + Quit ResourcePitched +]]> + + + +ToeleveringNr:%String +TECH.Iterator + + + + +TECH.Iterator +DueOutTijdstip,BatchImpl->GeplandOp,BatchImpl->Categorie" + _" from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT" + _" where BatchImpl->categorie not in ('Tandembox','Legrabox','Kaderdeur')" + + Do rs.Prepare(SQL) + + Set sc=rs.Execute() + Set it=##class(TECH.ResultSetIterator).%New(rs) + Quit it +]]> + + + +BatchID:%String + + + + +rsToelev:%ResultSet + + + + +Resource:%String + + + + + + Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenAbstract.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/impl/BerekenTijdenAbstract.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenAbstract.cls.xml (revision 57446) @@ -0,0 +1,147 @@ + + + +1 +BL.Derde.LevSpecifiek +TECH.RegisteredObject + + +%Boolean + + + +APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator + + + +%String + + + +%TimeStamp + + + +1 +1 +%Status +1 + + + + + + + + + +d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenAfhankelijke).%New().Bereken() + + + + +rsToelev:%ResultSet +%Boolean +0 ; snelle test of de toelevering nog bestaat +]]> + + + +rsToelev:%ResultSet + + + + +rsToelev:%ResultSet,rsLijn:%ResultSet + ",ResourcePitched.StartTijdstip,! + + Do ResourcePitched.Save() + Quit ResourcePitched +]]> + + + +ToeleveringNr:%String +TECH.Iterator + + + + +TECH.Iterator + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml (.../ConvertASM.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml (.../ConvertASM.cls.xml) (revision 57446) @@ -5,6 +5,10 @@ Index: APPS/Halux/Planning/Pitching/dto/BatchPitched.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/dto/BatchPitched.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/dto/BatchPitched.cls.xml (revision 57446) @@ -0,0 +1,89 @@ + + + +persistent +1 +TECH.Persistent + + +APPS.Halux.common.impl.BatchImpl + + + +%Integer + + + +APPS.Halux.Planning.enu.Resource + + + +%Integer + + + + +Als de nieuwe ingelezen wordt deze per default op non actief gezet de oude staan actief. +Daarna wordt de actief status geinverteerd waarna de oude, non-actieve verwijderd wordt. +%Boolean + + + +%String + + + +%Decimal + + + +%Decimal + + + +Batch + + + +%Library.CacheStorage +^APPS.Halux.Pl4590.BatchPitchedD +BatchPitchedDefaultData +^APPS.Halux.Pl4590.BatchPitchedD +^APPS.Halux.Pl4590.BatchPitchedI +^APPS.Halux.Pl4590.BatchPitchedS + +listnode + + +%%CLASSNAME + + +Batch + + +LijnNr + + +Resource + + +Pitchorde + + +Actief + + +Opmerking + + +DuurTijd + + +StartTijdstip + + + + + + + Index: APPS/Halux/Planning/Activiteit/dto/ActiviteitStartStop.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Activiteit/dto/ActiviteitStartStop.cls.xml (revision 0) +++ APPS/Halux/Planning/Activiteit/dto/ActiviteitStartStop.cls.xml (revision 57446) @@ -0,0 +1,88 @@ + + + +persistent +1 +TECH.Persistent + + +APPS.Halux.common.impl.BatchImpl + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +%TimeStamp + + + + +S=Start, F=Finished, P=Paused/Partieel +%String + + + +%String + + + +%String + + + +%String + + + +Batch,Resource,Activiteit + + + +%Library.CacheStorage +^APPS.Halux618D.ActiviteitS6827D +ActiviteitStartStopDefaultData +^APPS.Halux618D.ActiviteitS6827D +^APPS.Halux618D.ActiviteitS6827I +^APPS.Halux618D.ActiviteitS6827S + +listnode + + +%%CLASSNAME + + +Batch + + +Resource + + +Activiteit + + +RegistratieTijdstip + + +Status + + +Gebruiker + + +AppNaam + + +ComputerNaam + + + + + + + Index: APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml (revision 0) +++ APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml (revision 57446) @@ -0,0 +1,214 @@ + + + +TECH.RegisteredObject + + +%Boolean + + + +APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator + + + +%TimeStamp + + + +RegistratieStartStop + + + + +d ##class(APPS.Halux.Planning.Activiteit.impl.BerekenActiviteitPerBatch).%New().Bereken() +1 +1 +%Status +1 + + + + +1 + :VorigCalcTijdstip) + } + + /* TIJDELIJK PV*/ + Do ##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitStartStop).%DeleteExtent() +]]> + + + +1 + + + + + + + + +Batch:%String,Resource:%String,Activiteit:%String + + + + +1 +Batch:%String,Resource:%String,Activiteit:%String + + + + +1 +Batch:%String,Resource:%String,Activiteit:%String +%ResultSet + + + + +rs:%ResultSet +1 + + + + +ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch +1 +95 ; pauze + { + Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"P","PV","WP","PC") + } + elseIf Rnd>85 + { + Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"F","PV","WP","PC") + } + elseIf Rnd>70 + { + Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S","PV","WP","PC") + } +]]> + + + +ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch + + + + +ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch +1 + + + + +ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch +1 + + + + +1 +TECH.Iterator + + + + + + Index: APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml (revision 0) +++ APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml (revision 57446) @@ -0,0 +1,62 @@ + + + +TECH.RegisteredObject + + +Batch:%String,Resource:%String,Activiteit:%String,Status:%String,Gebruiker:%String,AppNaam:%String,ComputerNaam:%String + + + + +BatchResActKey:%String,Status:%String,Gebruiker:%String,AppNaam:%String,ComputerNaam:%String + + + + +Resource:%String,Activiteit:%String +%XML.DataSet + + + + + + Index: APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml (.../WerktijdCalculator.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml (.../WerktijdCalculator.cls.xml) (revision 57446) @@ -19,7 +19,7 @@ %Decimal - + %String @@ -32,7 +32,7 @@ -APPS.Halux.Planning.Pitching.impl.ResourcePitched +APPS.Halux.Planning.Pitching.dto.ResourcePitched @@ -48,15 +48,15 @@ %Status 1 -ResourceId +Resource %Date -ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched +ResourcePitched:APPS.Halux.Planning.Pitching.dto.ResourcePitched -ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched +ResourcePitched:APPS.Halux.Planning.Pitching.dto.ResourcePitched ..RefTijd) ; valt in een pauze of na einde werkdag + Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..RefTijd),+1) ;eerst latere + If (..CapEindTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..CapEindTijd),1)>..RefTijd) ; valt in een pauze of na einde werkdag { ; niet binnen een tijdslot - Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,..RefTijd),-1) ; eerst vroegere tijdslot + Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..RefTijd),-1) ; eerst vroegere tijdslot If (..CapEindTijd="") ; er zijn geen latere { w:..Debug 4,"volgende datum",! - Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum),-1) ; eerst vorige datum - Set:..RefDatum ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,""),-1) + Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum),-1) ; eerst vorige datum + Set:..RefDatum ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,""),-1) Set ..RefTijd=..CapEindTijd } Else @@ -195,22 +195,22 @@ Set ..CapStartTijd="" Set ..CapEindTijd="" - If $D(^Halux.GeplandeCapaciteit(..ResourceId,..RefDatum,..RefTijd)) + If $D(^Halux.GeplandeCapaciteit(..Resource,..RefDatum,..RefTijd)) { w:..Debug 1,"bingo",! Set ..CapStartTijd=..RefTijd } Else { - Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..RefTijd),-1) ;eerst vroegere - If (..CapStartTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..CapStartTijd),1)<..RefTijd) ; valt in een pauze of na einde werkdag + Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..RefTijd),-1) ;eerst vroegere + If (..CapStartTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..CapStartTijd),1)<..RefTijd) ; valt in een pauze of na einde werkdag { ; niet binnen een tijdslot - Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..RefTijd)) ; eerst latere tijdslot + Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..RefTijd)) ; eerst latere tijdslot If (..CapStartTijd="") ; er zijn geen latere { w:..Debug 4,"vorige datum",! - Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum)) ; eerst volgende datum - Set:..RefDatum ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,"")) + Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum)) ; eerst volgende datum + Set:..RefDatum ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,"")) Set ..RefTijd=..CapStartTijd } Else @@ -235,8 +235,8 @@ 1 %Decimal @@ -259,7 +259,7 @@ Datum,Tijd Index: APPS/Halux/Planning/enu/Activiteit.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/Activiteit.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/Activiteit.cls.xml (revision 57446) @@ -0,0 +1,105 @@ + + + +datatype +1 +%String + + +,Front,Syncro,ZijStab,DwarsVerd,Intern,Klantorder,OL,Finaal prod,Lade,Zijkant,X,Ompak,Inkorten,Set,V1,ProBox,Huls + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + +1 +APPS.Halux.Planning.enu.Activiteit + + + + + + Index: APPS/Halux/Planning/ResourcePitchingService.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/ResourcePitchingService.cls.xml (.../ResourcePitchingService.cls.xml) (revision 57301) +++ APPS/Halux/Planning/ResourcePitchingService.cls.xml (.../ResourcePitchingService.cls.xml) (revision 57446) @@ -9,20 +9,29 @@ 1 TECH.RegisteredObject - + D ##class(APPS.Halux.Planning.ResourcePitchingService).%New().VerwerkAll() %Boolean + +%Date + + + +540 + + Halux_Planning_ResourcePitchingService %Status @@ -44,51 +53,54 @@ Do ..BuildProductieOrderToResource() Do ..BuildPitchingFromResourcesAndBatch() - + Do ..BuildPitchingGroupedByActiviteitAndBatch() + Do ..UnLock() ]]> +1 + + +SQL Select * from APPS_Halux_Planning_Pitching_impl.ActiviteitPitched +1 + + + SQL Select * from APPS_Halux_Planning_Resource_impl.ResourceLijn +1 @@ -97,8 +109,9 @@ SQL Select * from APPS_Halux_Planning_Capaciteit_impl.GeplandeCapaciteit +1 @@ -107,8 +120,9 @@ SQL Select * from APPS_Halux_Planning_Resource_impl.ResourceTijd +1 @@ -117,25 +131,45 @@ SQL Select * from APPS_Halux_Planning_Pitching_impl.BatchPitched +1 +1 -1 + + + +86399 + { + Set RefDatum=RefDatum+1 + Set RefTijd=RefTijd-86399 + } + Quit $zdt(RefDatum_","_RefTijd,3) +]]> + Index: APPS/Halux/Planning/enu/Resourcegroep.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/Resourcegroep.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/Resourcegroep.cls.xml (revision 57446) @@ -0,0 +1,49 @@ + + + +datatype +1 +%String + + + + + + +1 +APPS.Halux.Planning.enu.Resourcegroep + + + + +1 +APPS.Halux.Planning.enu.Resourcegroep + + + + +1 +APPS.Halux.Planning.enu.Resourcegroep + + + + +1 +APPS.Halux.Planning.enu.Resourcegroep + + + + +1 +APPS.Halux.Planning.enu.Resourcegroep + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml (.../ConvertLBX.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml (.../ConvertLBX.cls.xml) (revision 57446) @@ -5,24 +5,26 @@ 600:2,1:1) - Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1) - Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) - Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U") - Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"") - Set ..MatCode=..IngegevenKenmerken.MatMateriaal - Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType + + + Set ..AXKenmerken.Internebreedte=..AXKenmerken.CorpusBreedte-(2*..AXKenmerken.CorpusWandDikte) + Set ..BreedteCode=$S(..AXKenmerken.Internebreedte>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 gorte breedte, afgerond front voor klant Dibo - Set ..SpeciaalCode=..IngegevenKenmerken.ProductieWijze + Set ..SpeciaalCode=..AXKenmerken.ProductieWijze Set:..SpeciaalCode="V" ..SpeciaalCode="" - If ((..IngegevenKenmerken.Internebreedte<79)||(..IngegevenKenmerken.Internebreedte>1600)) && (..IngegevenKenmerken.VerpakkingType="V1") + If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1") { Set ..SpeciaalCode="BREEDTE" } - If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1") + If ((..AXKenmerken.Internebreedte<165)||(..AXKenmerken.Internebreedte>1500)) && (..AXKenmerken.VerpakkingType'="V1") { Set ..SpeciaalCode="BREEDTE" } @@ -31,14 +33,17 @@ 50) + If $isObject(..AXKenmerken)&&(..AXKenmerken.Internebreedte>50) { Do ..CreateResourceHoofdlijn() Do ..CreateResourceMat() Do ..CreateResourceVoormontage() Do ..CreateResourceSpoelbak() Do ..CreateResourceSpeciaal() Do ..CreateInkorten() + Do ..CreateResourcePickingOnderdelen() + Do ..CreateResourcePickingZijkanten() + Do ..CreateResourceSnijdenHuls() } Else { Set ..SpeciaalCode="ZNDR KENMERK" @@ -55,18 +60,18 @@ Set KPRNr=$P(^PRBS("BS",..PRNr,"TOBSYS.001"),"\") If KPRNr=1297240 ; T60.1125W Syncro stang om in te korten { - Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON") + Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","LBX","INK:TIPON") } } If $D(^PRBS("BS",..PRNr,"DWARSV.001")) { - Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV") + Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","LBX","INK:DWARSV") } If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001")) { - Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB") + Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","LBX","INK:ZIJSTAB") } ]]> @@ -76,8 +81,9 @@ Quit:..SpoelbakCode&&(..AantalCode>5) Quit:..SpeciaalCode'="" - Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3") - Do ..CreateOneResource("LBX&TBX",Lijn,"LBX","F:LBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1) + Set Lijn=$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","LBX",Selector,,1) ]]> @@ -89,31 +95,72 @@ Set SnijCode=..GeefMatAantalKeerSnijden() Set:SnijCode="" SnijCode="STD" Set:..SpoelbakCode SnijCode="SPOEL" - - Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern") + Set Selector="SN:"_SnijCode + Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector) ]]> 5)) + Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","LBX","S:"_..SpoelbakCode,,(..ProductieOrderLijn.Aantal>5)) ]]> + + + + + + + + + + + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml (.../ConvertProductAbstract.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml (.../ConvertProductAbstract.cls.xml) (revision 57446) @@ -56,12 +56,24 @@ Flow.Toelev.Lijn - + AXimpl.PM.Kenmerk.Kenmerken + +DOM.PM.MaatwerkProduct + + + +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom + + + +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + -APPS.Halux.Planning.Resource.impl.ResourceLijn +APPS.Halux.Planning.Resource.dto.ResourceLijn @@ -70,24 +82,24 @@ - + @@ -118,45 +130,64 @@ -Hoofdgroep:%String,Groep:%String,Subgroep:%String,Selector:%String,DefaultTijd:%Decimal=66,IsLeading:%Boolean=0 +Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String="",DefaultTijd:%Decimal=66,IsLeading:%Boolean=0 ToepassingCode:%String - DefaultTijd Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml (.../ConvertAll.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml (.../ConvertAll.cls.xml) (revision 57446) @@ -27,7 +27,7 @@ D ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).%New().Verwerk() D ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).VerwijderAlles() 1 - @@ -73,7 +73,7 @@ Set TOENr=..ProductieOrderLijn.ToeleveringNr Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100 Set ResourceID="" - &SQL(select top 1 ID into :ResourceID from APPS_Halux_Planning_Resource_impl.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr) + &SQL(select top 1 ID into :ResourceID from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr) Quit $L(ResourceID) ]]> @@ -85,11 +85,11 @@ Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100 Set ResourceID="" &sql(DECLARE DELRES CURSOR FOR - select ID into :ResourceID from APPS_Halux_Planning_Resource_impl.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr) + select ID into :ResourceID from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr) &sql(OPEN DELRES) For &sql(FETCH DELRES) Quit:SQLCODE Do - . Do ##class(APPS.Halux.Planning.Resource.impl.ResourceLijn).%DeleteId(ResourceID) + . Do ##class(APPS.Halux.Planning.Resource.dto.ResourceLijn).%DeleteId(ResourceID) &sql(CLOSE DELRES) ]]> Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml (revision 57446) @@ -0,0 +1,138 @@ + + + +BL.Derde.LevSpecifiek +BerekenTijdenAbstract + + +%Boolean + + + +APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator + + + +%String + + + +%TimeStamp + + + + +d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingPitched).%New().Bereken() +1 +1 +%Status +1 + + + + + + + + +rsToelev:%ResultSet + + + + +rsToelev:%ResultSet,rsLijn:%ResultSet + ",ResourcePitched.StartTijdstip,! + + Do ResourcePitched.Save() + Quit ResourcePitched +]]> + + + +ToeleveringNr:%String +TECH.Iterator + + + + +TECH.Iterator + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml (.../ConvertKAD.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml (.../ConvertKAD.cls.xml) (revision 57446) @@ -20,7 +20,7 @@ - Index: APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml (revision 0) +++ APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml (revision 57446) @@ -0,0 +1,161 @@ + + + +persistent +1 +TECH.Persistent + + +APPS.Halux.common.impl.BatchImpl + + + +APPS.Halux.Planning.Resource.dto.ResourceLijn + + + +APPS.Halux.Planning.enu.Resourcegroep + + + +APPS.Halux.Planning.enu.Resource + + + +APPS.Halux.Planning.enu.Activiteit + + + +APPS.Halux.Planning.enu.Productgroep + + + +APPS.Halux.Planning.enu.Resource + + + +%Boolean + + + +%Integer + + + +%String + + + +%String + + + +%Decimal + + + +%Decimal + + + +%Decimal + + + +%Decimal + + + +%TimeStamp + + + +%TimeStamp + + + +Batch + + + +ResourceLijn + + + +ToeleveringNr,UniekLijnNr + + + +Resource + + + +%Library.CacheStorage +^APPS.Halux4590.ResourcePit22A7D +ResourcePitchedDefaultData +^APPS.Halux4590.ResourcePit22A7D +^APPS.Halux4590.ResourcePit22A7I +^APPS.Halux4590.ResourcePit22A7S + +listnode + + +%%CLASSNAME + + +Batch + + +ResourceLijn + + +Resourcegroep + + +Resource + + +Activiteit + + +Productgroep + + +LeverenAanResource + + +IsLeading + + +Pitchorde + + +ToeleveringNr + + +UniekLijnNr + + +DuurTijd + + +StretchFactor + + +CapaciteitStartTijd + + +Aantal + + +StartTijdstip + + +EindTijdstip + + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml (.../ConvertDIV.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml (.../ConvertDIV.cls.xml) (revision 57446) @@ -7,21 +7,25 @@ %String + +%String + + @@ -34,7 +38,7 @@ Index: APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml (.../ImportFromXLS.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml (.../ImportFromXLS.cls.xml) (revision 57446) @@ -34,7 +34,7 @@ @@ -52,37 +52,43 @@ #dim CorrectieFactor as %Decimal While ..Reader.Next() { - Set Datum=$ZDH(..Reader.Column(1),4) - Set TijdstipVan=$ZTH(..Reader.Column(2)) - Set TijdstipTot=$ZTH(..Reader.Column(3)) - For KolomNr=4:2:..Reader.GetColumnCount() + If (..Reader.Column(1)?1.2N1"/"2N1"/"2.4N) && (..Reader.Column(2)?1.2N1":"2N) && (..Reader.Column(3)?1.2N1":"2N) { - Set BaseFactor=$TR(..Reader.Column(KolomNr),",",".") - Set CorrectieFactor=$TR($G(..Reader.Column(KolomNr+1)),",",".") - Set ResourceNaam=$tr(..Reader.GetColumnHeader(KolomNr),"""") - Set:ResourceNaam?1N ResourceNaam="Lijn "_ResourceNaam - Do ..OpslaanRecord(Datum, TijdstipVan, TijdstipTot, ResourceNaam, BaseFactor, CorrectieFactor) + Set Datum=$ZDH(..Reader.Column(1),4) + Set TijdstipVan=$ZTH(..Reader.Column(2)) + Set TijdstipTot=$ZTH(..Reader.Column(3)) + For KolomNr=4:2:..Reader.GetColumnCount() + { + Set BaseFactor=$TR(..Reader.Column(KolomNr),",",".") + Set CorrectieFactor=$TR($G(..Reader.Column(KolomNr+1)),",",".") + Set ResourceNaam=$tr(..Reader.GetColumnHeader(KolomNr),"""") + If ResourceNaam'="" + { + Set:ResourceNaam?1N ResourceNaam="Lijn "_ResourceNaam + Do ..OpslaanRecord(Datum, TijdstipVan, TijdstipTot, ResourceNaam, BaseFactor, CorrectieFactor) + } + } } } ]]> -Datum:%Date,TijdstipVan:%Integer,TijdstipTot:%Integer,ResourceId:%String,BaseFactor:%Decimal,CorrectieFactor:%Decimal +Datum:%Date,TijdstipVan:%Integer,TijdstipTot:%Integer,Resource:%String,BaseFactor:%Decimal,CorrectieFactor:%Decimal 0 { - Set ^Halux.GeplandeCapaciteit(1,$zcvt(ResourceId,"U"),Datum,TijdstipVan)=$LB(TijdstipTot,(BaseFactor+CorrectieFactor)) - Set ^Halux.GeplandeCapaciteit(-1,$zcvt(ResourceId,"U"),Datum,TijdstipTot)=$LB(TijdstipVan,(BaseFactor+CorrectieFactor)) + Set ^Halux.GeplandeCapaciteit(1,$zcvt(Resource,"U"),Datum,TijdstipVan)=$LB(TijdstipTot,(BaseFactor+CorrectieFactor)) + Set ^Halux.GeplandeCapaciteit(-1,$zcvt(Resource,"U"),Datum,TijdstipTot)=$LB(TijdstipVan,(BaseFactor+CorrectieFactor)) } ]]> Index: WS/Halux/Planning/ActiviteitPerBatchService.cls.xml =================================================================== diff -u --- WS/Halux/Planning/ActiviteitPerBatchService.cls.xml (revision 0) +++ WS/Halux/Planning/ActiviteitPerBatchService.cls.xml (revision 57446) @@ -0,0 +1,74 @@ + + + +De method RegistreerViaQueueID wordt opgeroepen vanaf Halux ladepers (.NET application welke draait op de Beckoff PLC van de ladepers)]]> + +BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error +1 +WS.OngeauthenticeerdeWebService + + + +URL for invoking the WebService. +Name of the WebService. +ActiviteitPerBatchServer + + + +http://vhintra.vanhoecke.be + + + +APPS.Halux.Planning.Activiteit.impl.ActiviteitPerBatchService +1 + + + + +In de APP wordt er gebruik gemaakt van de app +BatchResActKey:%String,Status:%String,Gebruiker:%String,AppNaam:%String,ComputerNaam:%String +%String +1 + + + + +Werkpost:%String +%XML.DataSet +1 + + + + +1 + + + + +1 +Werkpost:APPS.Halux.common.enu.Werkpost +APPS.Halux.common.enu.ProductieLijn + + + + + + Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml (.../ConvertTBX.cls.xml) (revision 57446) @@ -5,22 +5,22 @@ 600:2,1:1) - Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1) - Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1) - Set ..FrontCode=$s($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"RELING",1:"BASIS"),1:"") - Set ..MatCode=..IngegevenKenmerken.MatMateriaal - Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType + Set ..BreedteCode=$S(..AXKenmerken.Internebreedte>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) + Set ..FrontCode=$s($zcvt(..AXKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"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 gorte breedte, afgerond front voor klant Dibo Set ..SpeciaalCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP")) Set:..SpeciaalCode="V" ..SpeciaalCode="" - If ((..IngegevenKenmerken.Internebreedte<79)||(..IngegevenKenmerken.Internebreedte>1600)) && (..IngegevenKenmerken.VerpakkingType="V1") + If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1") { Set ..SpeciaalCode="BREEDTE" } - If ((..IngegevenKenmerken.Internebreedte<165)||(..IngegevenKenmerken.Internebreedte>1500)) && (..IngegevenKenmerken.VerpakkingType'="V1") + If ((..AXKenmerken.Internebreedte<165)||(..AXKenmerken.Internebreedte>1500)) && (..AXKenmerken.VerpakkingType'="V1") { Set ..SpeciaalCode="BREEDTE" } @@ -35,14 +35,17 @@ 50) + If $isObject(..AXKenmerken)&&(..AXKenmerken.Internebreedte>50) { Do ..CreateResourceHoofdlijn() Do ..CreateResourceMat() Do ..CreateResourceVoormontage() Do ..CreateResourceSpoelbak() Do ..CreateResourceSpeciaal() - Do ..CreateInkorten() + Do ..CreateResourceInkorten() + Do ..CreateResourcePickingOnderdelen() + Do ..CreateResourcePickingZijkanten() + Do ..CreateResourceSnijdenHuls() } Else { Set ..SpeciaalCode="ZNDR KENMERK" @@ -51,22 +54,22 @@ ]]> - + @@ -75,8 +78,9 @@ 5) Quit:..SpeciaalCode'="" - Set Lijn=$S(..VerpakCode="V1":"L1",1:"L4") - Do ..CreateOneResource("LBX&TBX",Lijn,"TBX","F:TBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1) + Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 4") + Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode + Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,1) ]]> @@ -88,31 +92,58 @@ Set SnijCode=..GeefMatAantalKeerSnijden() Set:SnijCode="" SnijCode="STD" Set:..SpoelbakCode SnijCode="SPOEL" - - Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern") + Set Selector="SN:"_SnijCode + Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector) ]]> 5)) + Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","TBX","S:"_..SpoelbakCode, ,(..ProductieOrderLijn.Aantal>5)) ]]> + + + + + + + + + + + + Index: APPS/Halux/Planning/enu/Resource.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/Resource.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/Resource.cls.xml (revision 57446) @@ -0,0 +1,138 @@ + + + +datatype +1 +%String + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + +1 +APPS.Halux.Planning.enu.Resource + + + + + + Index: APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml =================================================================== diff -u -r57301 -r57446 --- APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml (.../ImportTijdenFromXLS.cls.xml) (revision 57301) +++ APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml (.../ImportTijdenFromXLS.cls.xml) (revision 57446) @@ -30,7 +30,7 @@ -Hoofdgroep:%String,Groep:%String,Selector:%String,Tijd:%Decimal +Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String,Tijd:%Decimal - Index: APPS/Halux/Planning/enu/StartStop.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/StartStop.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/StartStop.cls.xml (revision 57446) @@ -0,0 +1,42 @@ + + + +datatype +1 +%String + + +,S,F,H,P + + + +1 +APPS.Halux.Planning.enu.StartStop + + + + +1 +APPS.Halux.Planning.enu.StartStop + + + + +1 +APPS.Halux.Planning.enu.StartStop + + + + +1 +APPS.Halux.Planning.enu.StartStop + + + + + +