APPS.Halux.PPS.Document.impl.BulkTekstDocumentAfdrukker UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst 1 %ListOfObjects ELEMENTTYPE="APPS.common.Print.Kolommen.Document" 0) { Do Document.VoegLijnToe("\\\\\\\\","\") Do Document.VoegLijnToe("\\\\\\\\LEGENDE","\") Do Document.VoegLijnToe("\\\\\\\\","\") Do Document.VoegLijnToe("\\\\\\\\ M = Montage ","\") Do Document.VoegLijnToe("\\\\\\\\ P = Picking onderdelen","\") Do Document.VoegLijnToe("\\\\\\\\ B = Extra bewerken ","\") Do Document.VoegLijnToe("\\\\\\\\ V = Voormontage ","\") }Else{ Do Document.ClearContent() } Quit ##class(TECH.ListUtils).CreateListOfObjects(Document) ]]> Document:APPS.common.Print.Kolommen.Document,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.InschuifelementenSnijdenUitvoeringInfo 1 0{ Set Kleur = $ListGet(Kenmerk,1) } Set InfoHFVisitor = ##class(APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor).%New() Do InschuifElementVoor.Accept(InfoHFVisitor) #dim ToeleveringDossierCode As %String = DocumentService.GeefToeleveringDossierCode(UitvoeringInfo.ToeleveringID,UitvoeringInfo.DossierCode) #dim Korttekst As %String = InschuifElementVoorProduct.GeefKorttekst() #dim Afmetingen As %ListOfDataTypes = InfoHFVisitor.GeefAfmetingen() Set AfmetingenIt = ##class(TECH.ListIterator).%New(Afmetingen) If 'AfmetingenIt.HasNext(){ #dim Afmeting As %String = "" Do ..VoegToeRij(Document,Halffab,InfoHFVisitor,ToeleveringDossierCode,Kleur,Afmeting,Korttekst, Lade.GeefIngegevenKenmerken()) }Else{ While AfmetingenIt.HasNext(){ Set Afmeting = AfmetingenIt.Next() Do ..VoegToeRij(Document,Halffab,InfoHFVisitor,ToeleveringDossierCode,Kleur,Afmeting,Korttekst, Lade.GeefIngegevenKenmerken()) } } ]]> Document:APPS.common.Print.Kolommen.Document,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab,InfoHFVisitor:APPS.Halux.PPS.Activiteit.impl.common.InschuifelementenSnijden.InfoHalffabItemVisitor,ToeleveringDossierCode:%String,Kleur:%String,Afmeting:%String,Korttekst:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken