1 %RegisteredObject 0 %Integer 1 %Integer 1 %Integer 1 BatchID:%Integer 1 1 %Status FreesUitsparingen:%Boolean=1,Tipon:%Boolean=1 PRNr:%Integer,SequenceNr:%Integer,DossierNr:%String,FreesUitsparingen:%Boolean=1,Tipon:%Boolean=1 = Breedte) { Set Variabelen("Hoek") = 90 Set FileSuffix = FileSuffix_"Breed" } // smal Else { Set FileSuffix = FileSuffix_"Smal" } If (TandemBox.BevatSynchro()) { Set FileSuffix = FileSuffix_"Synchro" Set Variabelen("HasSync") = 1 } } If (FileSuffix '= "") { Set MRGFile = ##class(APPS.PM.Maatwerk.TBX.Frees.MRG.MRGFile).%New(..BatchID, SequenceNr, DossierNr, FileSuffix, .Variabelen, "DUBBELE_SIFON.mpr") } Set FileSuffix = "" If (0 && (TandemBox.GeefAantalHangmappen() > 0)) // Staat uitgeschakeld wegens nog niet gebruikt { Set $Ztrap = "BoringNietOndersteund" Kill Variabelen Set Variabelen("l") = TandemBox.GeefRugBreedte() Set Variabelen("b") = ##class(DOM.PM.enu.TBXRugHoogte).LogicalToDisplay(TandemBox.GeefRugHoogte()) Set Variabelen("d") = Dikte Set Variabelen("AantBor") = TandemBox.GeefAantalHangmappen()*2 Set PositiesIterator = ##class(TECH.ListIterator).%New(TandemBox.GeefHangmapBoringPosities()) Set i = 1 While(PositiesIterator.HasNext()) { Set Variabelen("Boring"_i) = PositiesIterator.Next() Set i = i + 1 } Set FileSuffix = FileSuffix_"-Hangmap" Set MRGFile = ##class(APPS.PM.Maatwerk.TBX.Frees.MRG.MRGFile).%New(..BatchID, SequenceNr, DossierNr, FileSuffix, .Variabelen, "HANGMAP.mpr") BoringNietOndersteund } ]]>