Voor de TAX assemblage werkpost moet er voor de binnenlade, koppelstukken, bodemsteunen en frontblokken gemonteerd worden Deze liggen momenteel in de doorrolstelling maar moeten naar de assemblage werkpost gebracht worden. Om verschillende kleine pickings te vermijden word bij het klaarzetten het nog bestaande bestand weggenomen uit de pickstar map (Data\Private\ToScan) en uitgelezen De nieuwe pickings worden er aan toegevoegd, waarna het bestand terug geschreven wordt in de Data\FromHost Prod.Product TECH.Mockable 999999 APPS.Halux.common.Batch 1 TECH.File.impl.FileUtils 1 TECH.File.FileWriter 1 vhLib.Logger 1 DOM.PM.impl.ProductAPI 1 TECH.Query.QueryAPI 1 %String 1 APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository 1 FileUtils:TECH.File.impl.FileUtils="",FileWriter:TECH.File.FileWriter="",OnderdelenPickingUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository="",ProductAPI:DOM.PM.impl.ProductAPI="",QueryAPI:TECH.Query.QueryAPI="" 1 1 %Status 1 CRef:%String BestandNaam:%String CRef:%String BestandNaam:%String 0) { Set BoxBarcode = "99999" Set OBJTIdentNr = "ZONDERLOC" Set HLXLocatie = "" Set KortTekst = "Zonder vaste locatie" Set PackAmount = 0 Set PickedAmount = 0 Set PCDataLocatie = ..GeefZonderLocatie() Set Aantal = AantalVerschillendeProductenZonderLocatie Set UserField2 = "" Set UserField3 = "" Set UserField4 = "" Set UserField5 = "" Set UserField6 = "" Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6) }*/ Do ..FileWriter.Close() Do ##class(%File).Rename(TijdelijkeBestandNaam, BestandNaam) } catch { Do ..FileWriter.Close() #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do Exceptie.Throw() } ]]> Product:Prod.Product 1 %String 1 %String 1 %String 1 %String