Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml =================================================================== diff -u -r32006 -r35513 --- vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml (.../TestBase.cls.xml) (revision 32006) +++ vhTest/Integratie/Productie/Planning/ActieveBatches/Taorbox/Aansturing/TestBase.cls.xml (.../TestBase.cls.xml) (revision 35513) @@ -53,8 +53,34 @@ do ..InitialiseBodemSlicingDataBewaarder() do ##class(APPS.Halux.Machine.ZijkantFrees.data.ZijkantFreesDataLocal).%KillExtent() - do ##class(TECH.File.IoCContainer).Instance().Register("FileExtension",##class(vhTest.Fake.TECH.File.FileExtension).%New()) + + #dim Sleutel As %String = "APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator" + #dim AfhandelingIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).ValueListIterator() + + While (AfhandelingIterator.HasNext()) { + #dim Afhandeling As APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling = AfhandelingIterator.Next() + #dim ClientIterator As TECH.Iterator = ##class(APPS.Halux.Machine.OpdeelZaag.enu.Client).ValueListIterator() + + While (ClientIterator.HasNext()) { + #dim Client As APPS.Halux.Machine.OpdeelZaag.enu.Client = ClientIterator.Next() + #dim BestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..BestandLocatie, Client) + #dim ImportBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(BestandLocatie, "Import" _ Afhandeling) + + Do ##class(Tools.Wlip).%New(42).String("Bestandlocatie::::" _ BestandLocatie _ " ||| " _ ..BestandLocatie) + + Do ##class(TECH.Config.ConfigMgr).Instance().ZetString(Sleutel _ "_FileLocation_" _ Afhandeling _ "_" _ Client, ImportBestandLocatie, ..#Applicatie) + } + } + + + #dim WatchFolderBestandLocatie As TECH.String = ##class(TECH.Files).AppendSubPath(..BestandLocatie, "Biesse") + Set WatchFolderBestandLocatie = ##class(TECH.Files).AppendSubPath(WatchFolderBestandLocatie, "WatchFolder") + + Do ##class(TECH.Config.ConfigMgr).Instance().ZetString(Sleutel _ "_BatchFileLocation", WatchFolderBestandLocatie, ..#Applicatie) + + + /* #dim BiesseBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(..BestandLocatie,"Biesse") #dim BiesseImportBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(BiesseBestandLocatie,"Import") @@ -66,7 +92,7 @@ #dim BiesseWatchFolderBestandLocatie As TECH.String = ##class(TECH.Files).AppendFile(BiesseBestandLocatie,"WatchFolder") do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator_BatchFileLocation",BiesseWatchFolderBestandLocatie,..#Applicatie) - + */ set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New() do AssemblageKarRepository.VerwijderViaBatchID(..#BatchID) ]]> Index: APPS/Halux/Machine/Opdeelzaag.cls.xml =================================================================== diff -u -r29059 -r35513 --- APPS/Halux/Machine/Opdeelzaag.cls.xml (.../Opdeelzaag.cls.xml) (revision 29059) +++ APPS/Halux/Machine/Opdeelzaag.cls.xml (.../Opdeelzaag.cls.xml) (revision 35513) @@ -5,9 +5,9 @@ 1 -AansturingsWijze:%String="" +AansturingsWijze:%String="",Client:%String="" %String - Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml =================================================================== diff -u -r29059 -r35513 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml (.../OptimalisatieBestandenGenerator.cls.xml) (revision 29059) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml (.../OptimalisatieBestandenGenerator.cls.xml) (revision 35513) @@ -3,6 +3,16 @@ APPS.Halux.PPS.impl.UitvoeringInfoDeelVerwerker + +APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling.AutoComplete +1 + + + +APPS.Halux.Machine.OpdeelZaag.enu.Client.AutoComplete +1 + + TECH.File.FileWriter 1 @@ -13,6 +23,11 @@ 1 + +APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandPadGenerator +1 + + TECH.File.FileExtension 1 @@ -47,6 +62,7 @@ -Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Tijdstip:%TimeStamp +Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Client:APPS.Halux.Machine.OpdeelZaag.enu.Client,Tijdstip:%TimeStamp 1 -TeOptimaliserenBestanden:%ListOfDataTypes,TimeStamp:%TimeStamp,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling +TeOptimaliserenBestanden:%ListOfDataTypes,ImportListBestandNaam:%String,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Client:APPS.Halux.Machine.OpdeelZaag.enu.Client 1 -%String -OptimalisatieNaam:TECH.String +ImportListBestandNaam:TECH.String 1 TECH.String nul") Index: APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml =================================================================== diff -u -r34281 -r35513 --- APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml (.../OptimalisatieBestandGenerator.cls.xml) (revision 34281) +++ APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator.cls.xml (.../OptimalisatieBestandGenerator.cls.xml) (revision 35513) @@ -8,49 +8,38 @@ 1 - -TECH.File.FileNameGenerator + +APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandPadGenerator 1 -RapportGenerator:APPS.common.Rapport.BestandGenerator,FilenameGenerator:TECH.File.FileNameGenerator +RapportGenerator:APPS.common.Rapport.BestandGenerator,PadGenerator:APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandPadGenerator 1 1 %Status 1 -BatchID:%String,OptimalisatieDataLijst:APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieDataLijst,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,IsRework:%Boolean=0 +BatchID:%String,OptimalisatieDataLijst:APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieDataLijst,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,Client:APPS.Halux.Machine.OpdeelZaag.enu.Client,IsRework:%Boolean=0 %String - -BatchID:%String,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,IsRework:%Boolean=0 -1 - - - 1 TECH.KeyValue.List Index: vhUnitTest/APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator/Genereer/Test.cls.xml =================================================================== diff -u -r34281 -r35513 --- vhUnitTest/APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator/Genereer/Test.cls.xml (.../Test.cls.xml) (revision 34281) +++ vhUnitTest/APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandGenerator/Genereer/Test.cls.xml (.../Test.cls.xml) (revision 35513) @@ -8,6 +8,16 @@ DummyBatchID + +APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling.AutoComplete +1 + + + +APPS.Halux.Machine.OpdeelZaag.enu.Client.AutoComplete +1 + + APPS.Halux.Machine.OpdeelZaag.impl.OptimalisatieBestandGenerator 1 @@ -37,7 +47,7 @@ do ..InitClassUnderTest() #dim BatchID As %String = ..#BatchID - do ..BestandGeneratorImpl.Genereer(BatchID,..GeefDummyOptimalisatieDataLijst(),##class(APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling).Automatisch()) + do ..BestandGeneratorImpl.Genereer(BatchID, ..GeefDummyOptimalisatieDataLijst(), ..Afhandeling.Automatisch, ..Client.Biesse) #dim BestandNaam As %String = FakeRapportGenerator.GeefBestandNaam() Index: vhDeploy/Deploy20160622xConfigItemOpdeelzaagBestanden.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20160622xConfigItemOpdeelzaagBestanden.cls.xml (revision 0) +++ vhDeploy/Deploy20160622xConfigItemOpdeelzaagBestanden.cls.xml (revision 35513) @@ -0,0 +1,56 @@ + + + +vhDeploy.Deploy + + +%String +Instellen config item - Optimalisatie Opdeelzaag voor Biesse en Ardis Client + + + +1 + + + + +1 +SleutelSuffix:%String,Folder:%String +1 + + + + +1 +SleutelSuffix:%String +1 + + + + + + Index: APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml =================================================================== diff -u --- APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml (revision 0) +++ APPS/Halux/Machine/OpdeelZaag/impl/OptimalisatieBestandPadGenerator.cls.xml (revision 35513) @@ -0,0 +1,104 @@ + + + +APPS.Halux.Machine.OpdeelZaag.enu.Client.Verwerker,TECH.RegisteredObject + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +TECH.File.FileNameGenerator +1 + + + +%Boolean +1 + + + +FilenameGenerator:TECH.File.FileNameGenerator +1 +1 +%Status +1 + + + + +Client:APPS.Halux.Machine.OpdeelZaag.enu.Client,Afhandeling:APPS.Halux.Machine.OpdeelZaag.enu.Afhandeling,BestandNaamPrefix:%String,BatchID:%String,IsRework:%Boolean +%String + + + + +1 + + + + +1 + + + + +1 +%String + + + + +1 +%String + + + + + +