cwimpexp ;Importeren van klanten [ 11/22/2003   1:21 PM ]
 ;
 Quit
 ;
IMPORT() 
 New Count
 Set Ref=$G(Ref)
 If Ref="" New %J Set %J=$$%J^vhRtn1(),Ref="^HULP(%J)"
 Set Count=0
 Kill @Ref
 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,@Ref@(Count)=Rec
 Quit
 ;