persistent BL.Sys.FOP.Common %Persistent 0 PL:TEKST: Open de actuele prijslijst van een klant 1 KlantRef Mail de actuele prijslijst van een klant 1 KlantRef Open de actuele prijslijst van een klant voor Exel 1 KlantRef Archiveer de actuele prijslijst van een klant 1 KlantRef Actuele prijslijst van een klant toevoegen aan de printqueue 1 KlantRef Open een prijslijst van een klant vanuit het archief 1 KlantRef Mail een prijslijst van een klant vanuit het archief 1 KlantRef Open een prijslijst van een klant voor Exel vanuit het archief 1 KlantRef From Archive KLNr 1 Do ; Meerdere archieven . New zb,I,XmlFiles . For I=1:1:$LL(lbFiles) Set XmlFiles(I)=I_"`"_##Class(%File).GetFilename($LI(lbFiles,I)) . Set I=$$WILD^vhPOPUP("C;C","O1-","Selecteer een prijslijst",.XmlFiles) . If zb="CANC" Set XmlPath="" . Else Set XmlPath=$LI(lbFiles,I) Else Do ; Geen archief . Set XmlPath="",KlNaam=$P(^KKL(^KK1(KLNr),0),D,2) . Do FIELD^vhScherm("PRIJSLIJST","NOARCHIVE") Quit XmlPath ]]> Prijslijst voor alle klanten 1 Prijslijst voor een selectie van klanten 1 DataRef Prijslijst voor een selectie van klanten 1 DataRef Instellen van de prijslijstsettings KlantRef,Refresh BL.Flow.Proxy.pxPrijsLijstSettings Ingave van de klssificatiebeperking FromKKey Opvragen welke teksten voor en na de prijslijst moeten afgedrukt worden sFR,OldValue Init bestandsnaam FileName 1 Init bestandsnaam FilePath 1 %Library.CacheStorage ^CHUI.Flow.PrijsLijstD PrijsLijstDefaultData ^CHUI.Flow.PrijsLijstD ^CHUI.Flow.PrijsLijstI ^CHUI.Flow.PrijsLijstS listnode %%CLASSNAME