CWBLDCST ; ;[ 02/21/2001  2:34 PM ]
 ;
 Quit
 ;
 Kill
 Do INIT^vhTERMINA
 Set %J=$$%J^vhRtn1(),Count=0
 Kill ^HULP(%J)
 Do IMPORT^cwimpexp($NA(^HULP(%J,"L")))
 Set Count=""
 For Count=1:1 Quit:'$D(^HULP(%J,"L",Count))  Do
 .Set Rec=^HULP(%J,"L",Count)
 .Quit:$P(Rec,D)="NR"
 .Set Naam=$P(Rec,D,2)
 .Set Aanspr=$P(Rec,D,3)
 .Set Adres=$P(Rec,D,4)
 .Do
 ..Set:$L($P(Rec,D,5)) Adres=Adres_" "_$P(Rec,D,5)
 ..Set:$L($P(Rec,D,6)) Adres=Adres_" Bus "_$P(Rec,D,6)
 ..Set $E(Adres)=$$UPCASE^vhRtn1($E(Adres))
 .Set PostNr=$P(Rec,D,7)
 .Do  Quit:Quit
 ..Set Quit=0
 ..If PostNr="" Do
 ...Write *7,!,"PostNr --> ",Rec
 ...Set ^HULP(%J,"GEENPOSTNR",Count)=Rec,Quit=1
 ..Quit:$D(^BA(2,"B",PostNr))
 ..Write *7,!,"PostNr --> ",Rec
 ..Set ^HULP(%J,"POSTNRONB",Count)=Rec,Quit=1
 .Set Woonpl=$P(Rec,D,8)
 .Do  Quit:Quit
 ..Set Quit=0
 ..If Woonpl="" Do
 ....Write *7,!,"Woonpl --> ",Rec
 ....Set ^HULP(%J,"GEENWOONPL",Count)=RecQuit=1
 .Set Land=$P(Rec,D,9)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set:Land="BELGIE" Land="BE"
 ..Quit:Land="BE"
 ..Write *7,!,"Land --> ",Rec
 ..Set ^HULP(%J,"LANDONB",Count)=Rec,Quit=1
 .Set Taal=$P(Rec,D,10),Taal=$S(Taal="NED":"N",Taal="FR":"F",1:"")
 .Do  Quit:Quit
 ..Set Quit=0
 ..Quit:$L(Taal)
 ..Write *7,!,"Taal --> ",Rec
 ..Set ^HULP(%J,"TAALONB",Count)=Rec,Quit=1
 .Set Tel1=$P(Rec,D,11)
 .Set Fax=$P(Rec,D,12)
 .Set ComAkt=$P(Rec,D,13)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set ComAkt=$S(ComAkt="AKT":"",1:ComAkt)
 ..Quit:1[ComAkt
 ..Write *7,!,"Com. akt. --> ",Rec
 ..Set ^HULP(%J,"COMAKTONB",Count)=Rec,Quit=1
 .Set KlTyp=$P(Rec,D,14)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set KlTyp=$S($P(KlTyp,"-")="HAN":$P(KlTyp,"-",2),1:KlTyp)
 ..If $L(KlTyp),123[KlTyp Quit
 ..Write *7,!,"Type --> ",Rec
 ..Set ^HULP(%J,"TYPETONB",Count)=Rec,Quit=1
 .Set PrijsKl=$P(Rec,D,15)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set PrijsKl=$S(PrijsKl="LIJST":"L",PrijsKl="SPIL":"S",PrijsKl="GROOT":"G",PrijsKl="PRIJSLIJST":"P",1:PrijsKl)
 ..If $L(PrijsKl),"LSGP"[PrijsKl Quit
 ..Write *7,!,"Prijsklasse --> ",Rec
 ..Set ^HULP(%J,"PRIJSKLONB",Count)=Rec,Quit=1
 .Set Aktivit=$P(Rec,D,16)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set Next=""
 ..For  Do  Quit:Next=""  Quit:$P(^RES("KLANT","PI","AKTIVITEIT","D",Next),"`",2)=Aktivit
 ...Set Next=$O(^RES("KLANT","PI","AKTIVITEIT","D",Next))
 ..Quit:Next'=""
 ..Write *7,!,"Aktiviteit --> ",Rec
 ..Set ^HULP(%J,"AKTIVITONB",Count)=Rec,Quit=1
 .Set Regio=$P(Rec,D,17)
 .Do  Quit:Quit
 ..Set Quit=0
 ..Set Regio=$TR(Regio,"R0","")
 ..Quit:$D(^RES("KLANT","PI","REGIO","D",Regio))
 ..Write *7,!,"Regio --> ",Rec
 ..Set ^HULP(%J,"REGIOONB",Count)=Rec,Quit=1
 .Set PersAnsp=$P(Rec,D,18)
 .Set PersNaam=$P(Rec,D,19)
 .Set PersVNm=$P(Rec,D,20)
 .Do  Quit:Quit
 ..If PersAnsp="",PersNaam="",PersVNm="" Quit
 ..Set PersAnsp=$S(PersAnsp="M.":"DHR",PersAnsp="Dhr.":"DHR",PersAnsp="Herrn":"DHR",1:PersAnsp)
 ..Set PersAnsp=$S(PersAnsp="Mevr":"MVR",PersAnsp="Mme":"MVR",PersAnsp="Frau":"MVR",1:PersAnsp)
 ..Quit:$D(^RES("PERS","PI","AANSPR","D",PersAnsp))
 ..Write *7,!,"Persoon aanspr. --> ",Rec
 ..Set ^HULP(%J,"PERSANSPONB",Count)=Rec,Quit=1
 .Set KlantInd=$$UPTRIMAN^vhRtn1(Naam)
 .If KlantInd="" Do  Quit
 ..Write *7,!,"Naam --> ",Rec
 ..Set ^HULP(%J,"NAAM",Count)=Rec
 .Set KLNr=$$NEXTID^KLANT()
 .;Set KLNr=9999
 .Set KlantInd=KlantInd_" "_KLNr
 .Kill B
 .Set R="",$P(R,D,26)="",$P(R,D)=KLNr,$P(R,D,2)=Naam,$P(R,D,4)=Aanspr,$P(R,D,5)=Adres
 .Set $P(R,D,6)=PostNr,$P(R,D,7)=Woonpl,$P(R,D,8)=Land,$P(R,D,9)=Taal,$P(R,D,11)="BF"
 .Set $P(R,D,13)=Tel1,$P(R,D,15)=1,$P(R,D,17)=2,$P(R,D,18)="30D",$P(R,D,20)=Regio
 .Set B(0)=R
 .Set R="",$P(R,D,26)="",$P(R,D,11)=Aktivit,$P(R,D,24)=Fax,$P(R,D,25)=KlTyp
 .Set B(1)=R
 .Set R="",$P(R,D,26)="",$P(R,D,2)="8D",$P(R,D,3)=PrijsKl,$P(R,D,10)=ComAkt,$P(R,D,15,16)="A\OD"
 .Set B(2)=R
 .Set R="",$P(R,D,26)="",$P(R,D,3)=10
 .Set B(3)=R
 .For I=4:1:8 Do
 ..Set R="",$P(R,D,26)="" Set:I=7 $P(R,D,7)=$$EXTDATE^vhDTyp($H)
 ..Set B(I)=R
 .Do
 ..Quit
 ..Write !!,KlantInd,!
 ..Zw B
 ..If $D(^KKL(KlantInd)) Write ! Zw A Write ! For I=0:1:8 W A(I)=$G(B(I))
 ..Write !,"Ok --> ",Rec r r
 .Do
 ..;Quit
 ..For I=0:1:8 Set ^KKL(KlantInd,I)=B(I)
 ..Set ^KK1(KLNr)=KlantInd
 .If $L(PersNaam) Do
 ..;Quit
 ..Set PersNr=$$NEXTID^PERS()
 ..Set R="",$P(R,D,10)="",$P(R,D)=PersNr,$P(R,D,2)=PersNaam
 ..Set $P(R,D,3)=PersVNm,$P(R,D,4)=PersAnsp,$P(R,D,5)="AK"
 ..Set ^PERS("K",KLNr,1)=R
 .Do BLDINDEX^PERS("K",KLNr)
 Kill ^HULP(%J,"L")
 Quit
 ;