cAT13 ;OPENSTAANDE KLANTENFAKTUUR + OMZET ;%AT13 ; [ 12/29/00  4:53 PM ]
 ;
T0 ;Openstaande klantenfactuur + omzet ;
 ;
T0F ;Facture de client non soldée + chiffre d'affaires ;
 ;
T0E ;Outstanding invoice + turnover ;
 G 1
 ;
 ;VAR.: BP, FDT, FC, FNR, I1 van de klant, KKB, KC, KN, LXT, MST, NET, TTB, VM, VVD
 ;
S2 I $D(LOCK) S:$L(X) X=X_"," S X=X_LOCK
S2A I X="" L  Q
S2Z L @("("_X_")") Q
 ;
1 S COM=$G(COM)
11 S:'$D(MPAR) MPAR=1 I $D(BX),$D(BJ) G 13
12 S BPB=@("^"_Q_"BA(2)"),BJ=$P(BPB,D,2) S:BP>BJ BPB=BJ\1*12+(BJ#1*100),BJ=BJ+1 S BJ=BJ\1,BX=BP\1*12+(BP#1*100)-BPB+1
13 S FT=FC'="C"
 ;
2 S NET=$J(NET*MPAR,0,QD),BTW=$J(BTW*MPAR,0,QD),LXT=$J(LXT*MPAR,0,QD)
21 S FAK=NET+BTW+LXT
 ;
3 S X="^"_Q_"KL(I1)" D S2 S X=$D(@("^"_Q_"KL(I1,0)"))
33 S Y=FT*2-1
35 S K=BP\1+.11 S:'$D(^(K)) ^(K)="\\\\\\\\\\\\\" S X=BP#1*100+1,$P(^(K),D,X)=NET*Y+$P(^(K),D,X)
39 S ^(FNR)=FC_D_FDT_D_VVD_D_TTB_D_TTB_D_KKB_D_COM_D_D_VM_D_FAK_D_$G(DOMVVD)_D,@("^"_Q_"VF(FNR)")=KC
 ;
91 S X="" D S2
 ;
YZ K BPB,FT,FAK,NET,BTW,LXT,X,Y Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84