APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis 1 Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters APPS.Halux.PPS.dto.UitvoeringResultaat 0 { #dim WillekeurigeUitvoeringInfo As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = Lijst.GetAt(1) set DocsV1 = ##class(BL.PPS.TBX.DocsProPlus).%New() Do DocsV1.Init(WillekeurigeUitvoeringInfo.BatchID) do DocsV1.ZetPrinter(..ActiviteitParameters.Printer) #dim KLNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(WillekeurigeUitvoeringInfo.PartijID) #dim pxDoc As BL.PPS.TBX.sub.pxVHossUnits = ..GeefVHossUnits(Lijst) #dim Teller As %Integer = 0 For Teller=0:1:..GeefAantalExemplarenTePrinten() { Do DocsV1.VHossDocs(pxDoc,KLNr) } Do DocsV1.VHossDocsToFile(pxDoc,KLNr) } Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes() Do ..VerwittigListenersVoorUitvoeringInfoLijst(Lijst,UitvoeringStatus) quit ##class(APPS.Halux.PPS.dto.UitvoeringResultaat).%New(UitvoeringStatus) ]]> 1 Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst 1 BL.PPS.TBX.sub.pxVHossUnits 1 1 %Integer