KLANTIMP ;Importeren van klanten [ 11/22/2003   1:21 PM ]
 ;
 Quit
 ;
VERWERK Set GlobRef="^KlantImp"
 ; Import bestand zonder HEADER !!!!!!!
 Do IMPORT(GlobRef)
 Do TRAVERSE(GlobRef)
 Quit 
 
TRAVERSE(GlobRef,DefKLNr) 
 Set:'$G(DefKLNr) DefKLNr=$$SELECT^KLANT6()
 Quit:'$G(DefKLNr)
 Set VolgNr=""
 For  Set VolgNr=$O(@GlobRef@(VolgNr)) Quit:VolgNr=""  Do
 .Set Rec=@GlobRef@(VolgNr)
 .Do ONE(DefKLNr,Rec)
 .Kill @GlobRef@(VolgNr)
 Quit
 
ONE(DefKLNr,Rec) 
 New KLId,I,KLRec
 Do EXTRACT
 Quit:KLNm=""
 Do GETDEF
 Do SETFLDS
 Do SAVE
 Quit
 
SETFLDS Set $P(KLRec(0),D,2)=KLNm
 Set $P(KLRec(0),D,3)=ToeNm
 Set $P(KLRec(0),D,4)=Aansp
 Set $P(KLRec(0),D,5)=Straat
 Set $P(KLRec(0),D,6)=PostNr
 Set $P(KLRec(0),D,7)=Gemeente
 Set $P(KLRec(0),D,8)=Land
 Set $P(KLRec(0),D,9)=Taal
 Set $P(KLRec(0),D,13)=Telefoon
 Set $P(KLRec(1),D,24)=Telefax
 Set $P(KLRec(1),D,11)=Aktivi
 Set $P(KLRec(0),D,20)=Regio
 Set $P(KLRec(0),D,21)=Regio ; oude
 Set $P(KLRec(2),D,3)=Codex
 Set $P(KLRec(0),D,11)=MuntKode
 Set $P(KLRec(0),D,16)=BTWNr
 Set $P(KLRec(4),D,7)=Opm7
 Set $P(KLRec(5),D,1)=Opm8
 Set $P(KLRec(5),D,2)=Opm9
 Set $P(KLRec(2),D,21)="" ; Eerste faktuur
 Quit
 
SAVE 
 Set KLNr=$$NEXTID^KLANT()
 Set $P(KLRec(0),D,1)=KLNr
 Set ComprId=$$COMPRES^KLANT(KLNm,KLNr)
 zw KLRec r K
 Merge ^KKL(ComprId)=KLRec
 Set ^KK1(KLNr)=ComprId
 Quit
 
 
EXTRACT 
 Set Regio=20
 Set Codex="P"
 Set Taal="N"
 Set Land=$$LAND^vhRtn1("NL","I")
 Set MuntKode=$$MUNTKODE^vhRtn1("NLG")
 Set BTWNr=""
 ;
 Set KLNm=$P(Rec,D,1)
 Set ToeNm=$P(Rec,D,2)
 Set Aansp=$P(Rec,D,3)
 Set Straat=$P(Rec,D,4)
 Set PostNr=$P(Rec,D,5)
 Set Gemeente=$P(Rec,D,6)
 Set Telefoon=$P(Rec,D,7)
 Set Telefax=$P(Rec,D,8)
 Set Aktivi=$P(Rec,D,9)
 Set Opm7=$P(Rec,D,10)
 Set Opm8=$P(Rec,D,11)
 Set Opm9=$P(Rec,D,12)
 Quit
 
GETDEF Set KLId=^KK1(DefKLNr)
 For I=0:1:6 Set KLRec(I)=^KKL(KLId,I)
 Quit
 
 
IMPORT(GlobRef)  
 New Count
 Set:$G(GlobRef)="" GlobRef="^KlantImp"
 Set Count=0
 Kill @GlobRef
 Set FileNm=$$READ^vhDEV("\\NOTES01\SHARED\P V\","*.txt","D`IMPCB^"_$P($T(+1)," ",1),"DT","P") 
 Quit
 ;
IMPCB(Rec) ; Callback voor het inlezen van EEN record
 Set Count=Count+1,@GlobRef@(Count)=Rec
 Quit
 ;