1 %RegisteredObject 0 D ##class(BL.Derde.Klant.OrgaluxShowRoom).XMLFile() 1 Dir,FileName 1 Dir,FileNm,DataSet 0 EindDtm)&($h'<$$CALCDATE^vhDTyp(BeginDtm,"M","-1")) Do ... set BeginDtm=$$EXTDATE^vhDTyp(BeginDtm,"DK4") ... set EindDtm=$$EXTDATE^vhDTyp(EindDtm,"DK4") .. Else Do ... set BeginDtm="" ... set EindDtm="" . set TelNr=$P(rec,D,8) . set KLNm=$P(rec,D,1) . set rec=^KKL(KLId,0) . Set:KLNm="" KLNm=$P(rec,D,2) . Set:'TelNr TelNr=$S($P(^KKL(KLId,8),D,8)'="":$P(^KKL(KLId,8),D,8),1:$P(rec,D,13)) . Set URL=$P(^KKL(KLId,7),D,2) . Set Straat=$P(rec,D,5) . If ($$UPTRIMAN^vhRtn1(Straat)["POSTBUS") Do .. Set tKey=$O(^KKL(KLId,"L")) .. Set:$E(tKey)="L" rec=^KKL(KLId,tKey) . Set Straat=$$INITCAP^vhRtn1($P(rec,D,5)) . Set PostNr=$P(rec,D,6) . Set Gemeente=$$INITCAP^vhRtn1($P(rec,D,7)) . Set Land=$P(rec,D,8) . Set Land=$S(Land=1019:1,Land=1147:2,1:3) . Set Data(Land_PostNr_KLNm)=KLNm_L_PostNr_L_Gemeente_L_Straat_L_TelNr_L_URL_L_Land_L_OpenDeur_L_BeginDtm_L_EindDtm Quit ]]> %Query 1 %Status 1 ShowRoomsExecute 0 %Status 1 ShowRoomsExecute %Status