Klantfiches afdrukken, tonen en mailen 1 %RegisteredObject 0 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(2) 1 SelRegio 40 . Set lbKLNrs=lbKLNrs_$LB(AlfaSort(KLID)) . Set Cnt=Cnt+1 w $$ListToPieces^vhLib(lbKLNrs,";") Set Opties="PERS;ADR;EC;POT;PERSBLANK" Set Geniet=1 Set Printer="LEVBON_ORGALUX" Set bl=##class(BL.Derde.KlantInfoDoc).%New() Set sc=bl.RenderAndFileDoc(lbKLNrs,0,Opties,"\\notes01\shared\p v e\KlantFicheTest.pdf") ;Set sc= bl.RenderAndPrintDocMulti(lbKLNrs,0, Opties,0, Printer, Geniet) If ($system.Status.IsError(sc)) Do . Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(sc),": ",2,99),"Afdruk is mislukt") Quit ]]>