Klantfiches afdrukken, tonen en mailen 1 %RegisteredObject 1 afdruk selectie klantnummers 1 KLNr Afdrukken klantfiche van één of meer klanten 1 lbKLNrs 0 Tranfert klantfiche van één of meer klanten naar schared 1 lbKLNrs,Groepering 0 mailen van klantfiche KLNr:%Integer 0 toont de klantinfo via een PDF-file KLNr:%Integer 0 afdruk Regios d ##class(CHUI.Derde.Klant.FicheDoc).Regio(29) 1 Regios,Groepering Regios controleert of een printer ook met nietjes kan afdrukken PrinterNaam Zoekt de klantnaam KC D ##class(CHUI.Derde.Klant.FicheDoc).PrintRegio(1) 1 SelRegio 100 . Set Sort(Kwanti,+Omzet,KLNr)=KLID Set Kwanti="" Set Cnt="" For Set Kwanti=$O(Sort(Kwanti)) Quit:Kwanti="" Do Quit:Cnt'