KT643 ;INKOMENDE FAKT/CREDITN ;%T64 ;%T64* ; [ 11/06/2001  9:51 AM ]
 G 1
 ; ophalen faktuurnummer aankoopfaktuur
 ;
1 S R="FNR\A\"_SRT_D_BJ_D_1 D ^cA337 I 'FNR G 2^cT642
11 S @%Q1=0
13 I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
15 I $D(@("^"_Q_"BA(83)")),$L(^(83)) D @("S1"_^(83))
17 I $D(FDT) S $P(@("^"_Q_"LE(I1,2)"),D,15)=FDT
19 I $L(LREF) K @("^"_Q_"TOA(KC,LREF)")
 ;
2 D ^cT645 S @%Q1=1
 ;
3 G YZ:'$D(@("^"_Q_"BA(50)")),33:^(50)'[1 S K=$P(@("^"_Q_"LE(I1,0)"),D,16) D S1^%TI0
31 I OK S R=U_BP_U_FNR_U_U_12_U_13 D ^%TI0
33 ;
 ;
YZ Q
 ;