Prod.Product TECH.Mockable 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 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 1 1 BasisDir:%String Batch:APPS.Halux.common.Batch BatchID:%String Toelevering:DOM.AKP.Toelevering,BestandNaam:%String,Categorie:%String 0) { Set BoxBarcode = ToeleveringID 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 1 %String ToeleveringID:%String,BatchID:%String 1 ToeleveringID:%String,BatchID:%String 1 ProductId:%Decimal %Boolean ProductId:%Decimal %Boolean