KlantLijstExport
 
 Set KlantKey=0
 Set Dev=0
 
 ;CALCDATE voor 1 jaar terug 
 Set VB=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-24),"DM4")_" "
 Set VE=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-13),"DM4")_" "
 Set HB=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-12),"DM4")_" "
 Set HE=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-1),"DM4")_" "
 
 Set Regios="A"
 Do DISPLAY^vhScherm("RAPJODM"),FIELD^vhScherm("RAPJODM","REGIOS"),DISPLAY^vhScherm("RAPJODM",,,,"REGIOS")
 Quit:'$L(Regios)
 
 Set Formaat(1)="TXT`Text"
 Set Formaat(2)="PDFG`PDF globaal"
 Set Formaat(3)="PDFI`PDF individueel"
 Set Formaat=$$WILD^vhPOPUP("C;C","O1-","Formaat",.Formaat)
 
 If $E($G(Formaat),1,3)="PDF" {
	 Do ##class(CHUI.Derde.Klant.FicheDoc).Regio(Regios,$E(Formaat,4))
 }Else {
	 Set DevName=$E(HE_$S($L(Regios,";")=1:"Regio",1:"R")_$TR(Regios,";","&"),1,26)
 	 Set DevName=DevName_".txt",Dev=$$OPEN^vhDEV(,DevName,"W","A")
 	 Quit:0[Dev
 	
 	 #dim RegioLijst As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(Regios,";")
 
 	 Write !,"Saving..."
 	 Use:0'[Dev Dev
 	 Do ##class(Stat.Klant.KlantLijst).Do(RegioLijst)
 	 close:0'[Dev Dev
 	 Write !,"Bestand is opgeslaan."
 	 Read Klaar
 }
 Quit