MBORGA ;NEW PROGRAM [ 04/03/2003  1:21 PM ]
 New KLNr,rec,Data         
 Set KLNr=0 
 For  Set KLNr=$O(^KKL(KLNr)) Quit:KLNr=""  Do 
 . Quit:$P($G(^KKL(KLNr,8)),D,3)="" ;Orgalux inside moet ingevuld zijn 
 . set rec=^KKL(KLNr,0)
 . ;Set KLNr=$P(rec,D,1) 
 . Set KLNm=$P(rec,D,2) 
 . Set TelNr=$S($P(^KKL(KLNr,8),D,8)'="":$P(^KKL(KLNr,8),D,8),1:$P(rec,D,13))
 . Set URL=$P(^KKL(KLNr,7),D,2)
 . Set:$L(URL) KLNm="<a href="""_URL_""" target=""_blank"">"_KLNm_"</a>"
 . Set Straat=$$INITCAP^vhRtn1($P(rec,D,5))
 . If ($$UPTRIMAN^vhRtn1(Straat)["POSTBUS")  Do
 .. Set tKey=$O(^KKL(KLNr,"L"))
 .. Set:$E(tKey)="L" rec=^KKL(KLNr,tKey)
 . 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)="<TR>"_$c(13,10,9)_"<TD width=""300"" align=""left""><b>"_KLNm_"</b><br>"_$c(13,10,9)_PostNr_" "_Gemeente_" - "_Straat_" <br>"_$c(13,10,9)_"Tel.: "_TelNr_"</TD>"_$c(13,10,9)_"<TD width=""10""></TD>"_$c(13,10,9)_"<TD align=""left""></TD>"_$c(13,10)_"</TR>"_$c(13,10,13,10) 
 Set NotYet=1
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"OrgaluxInside.txt","W","A")
 Use:0'[Dev Dev
 set index=""
 Write "<b><table border=""0"" cellpadding=""5"" cellspacing=""0"" width=""455"">"_$c(13,10)
 Do WRITEH(1)
 For  Set index=$O(Data(index)) Quit:index=""  Do 
 . If NotYet&($E(index)=2)  Do 
 .. Do WRITEH($E(index)) 
 .. Set NotYet=0
 . Write Data(index) 
 Write "<tr>"_$c(13,10,9)_"<td width=""300"" align=""left""></td>"_$c(13,10,9) 
 Write "<td width=""10""></td><td align=""left""></td>"_$c(13,10)
 Write "</tr></table></b>"_$c(13,10)
 Close:0'[Dev Dev
 Quit
WRITEH(Land) 
 w "<tr height=""15"">"_$c(13,10)
 w "<td width=""300"" align=""left"" height=""15"" valign=""middle"">"_$c(13,10,9)
 w "<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""300"">"_$c(13,10,9)
 w "<tr>"_$c(13,10,9,9)
 w "<td valign=""middle"" width=""45""><img src="""
 w $S(Land=1:"Media/Vlag_B.gif",Land=2:"Media/Vlag_NL.gif",1:"?")
 w """ width=""44"" height=""35"" border=""0""></td>"_$c(13,10,9,9)
 w "<td valign=""middle"" width=""5""></td>"_$c(13,10,9,9)
 w "<td valign=""middle""><b><font color=""black"">Showrooms/Verkooppunten in "
 w $S(Land=1:"Belgi&euml;",Land=2:"Nederland",1:"?")
 w "</font></b></td>"_$c(13,10,9,9)
 w "</tr>"_$c(13,10,9)
 w "</table>"_$c(13,10)
 w "</td>"_$c(13,10)
 w "<td width=""10"" height=""15"" valign=""middle""></td>"_$c(13,10)
 w "<td align=""left"" height=""15"" valign=""middle""></td>"_$c(13,10)
 w "</tr>"_$c(13,10)
 Quit
Help W !,"Prog voor TVB, export Orgalux inside klanten in HTML",!
 Quit