%RegisteredObject DOM.PARTIJ.Partij KlantID:DOM.VKP.VanHoeckeKlantID 1 1 %Status 1 RitID:%String %String 0 { Do ##class(TECH.ListUtils).CopyListOfDataTypes(Transport.GeefFactuurIDs(),FactuurIDs) } } Quit ..GenereerPDFFacturenVoorTransport(RitID,FactuurIDs) ]]> RitID:%String,FactuurIDs:%ListOfDataTypes 1 %String RitID:%String %ListOfDataTypes 0 { Do ##class(TECH.ListUtils).CopyListOfDataTypes(Transport.GeefProformaIDs(),ProformaIDs) } } Set BestandNamen = ##class(%ListOfDataTypes).%New() Set ProformaIDIt = ##class(TECH.ListIterator).%New(ProformaIDs) While ProformaIDIt.HasNext(){ #dim BestandNaam As %String = ..GenereerPDFProformaVoorTransport(RitID,ProformaIDIt.Next()) Do BestandNamen.Insert(BestandNaam) } Quit BestandNamen ]]> RitID:%String,ProformaID:%String 1 %String RitID:%String %ListOfDataTypes RitID:%String 1 %String