pxDerdeInfo 0 Format: Char: 2 zie ^KKLAK Sys.pxCodeAttrOmsVal geformateerde afdruk %String in 1000 BF Format: Numeric: 6 %Library.String %String %Library.String Format: Char: 1 Waare: 0,1,3,4,8,9 Sys.pxCodeAttrOmsVal %Library.String %String BL.FOP.Basis.pxTekstHTML Format: Char: 1 Waarde: 0,1,2,3,A,B,C,D of Z %Library.String Default verzendwijze voor deze klant zie ^KBA(155,) %Library.String Type Kwantitatief (vroegere klanttype) Sys.pxCodeAttrOmsVal Type Kwalitatief Sys.pxCodeAttrOmsVal Interne verantwoordelijke %String Externe verantwoordelijke %String pxKlantInfoAdres array pxKlantUitzondering array pxKlantPotentieel array pxKlantECUser array In welke volgorde de blocks moeten getoond worden en of een block ook leeg moet getoond worden pxKlantInfoSeqBlock array Klant,Options Kredietlimiet "_..KredietLimiet_$S(..KredietStatus="":"",1:"/ "_..KredietStatus_"")_"" . . Set RInfoFmt="Kredietlimiet "_..KredietLimiet_$S(..KredietStatus="":"",1:"/ "_..KredietStatus_"")_"" . . Set ..RichInfoFOP=##class(BL.FOP.Basis.pxTekstHTML).Create("RichInfoFOP",RInfoFmt,,,1) Set lbToegangID=##class(BL.EC.Toegang).KlantHasToegang(..Nummer,,1) For Loop=1:1:$LL(lbToegangID) Do . Set ..vHisieUserName=$S(Loop=1:"",1:..vHisieUserName_", ")_$LI(lbToegangID,Loop) Set ..DatumAfdruk=$$FormatDateTime^vhLib("dd-mm-jjjj",+$H) ]]>