cT120 ;BOEKHOUDKUNDIGE VERWERKING FAKTUUR ;;Do %T121 [ 01/03/01  4:38 PM ]
 ;
T0 ;Boekhoudkundige verwerking factuur ;
 ;
T0F ;Imputation du document ;
 ;
T0E ;Accounting processing invoice ;
 G 1
 ;
 ;VAR.: BP, FDT, FC, FNR, I1 van de lev., KKB, KC, KN, NET, TTB, VM, VVD, AFBTW, ONBTW, NLBTW, NABTW, ^HULP(boot,$J,0,), COM, VGBTW, BPE
 ;
 ; routine boeking per verrichting
7 S BR=BR_" ",X=@("^"_Q_"AR(BR,0)")
S0 L @("^"_Q_"AR(BR)")
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="A"_FNR_D G S1D
S1C S S1=BH_"A"_SRT,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=FNR_D_FDT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z K S1,S2 S (BC(0),BC(1))=0 Q
 ;
1 S:'$D(BPE) BPE="" S:'$D(OM1) OM1="" S:'$D(SRT) SRT="" S:'$D(MPAR) MPAR=1 I $D(BX),$D(BJ) G 13
11 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 S="#",(BC(0),BC(1),S1)=0,BH=1_(BP*100),FT=FC="C"
19 D ^cT121
 ;
2 S NET=$J(NET*MPAR,0,QD),AFBTW=$J(AFBTW*MPAR,0,QD),ONBTW=$J(ONBTW*MPAR,0,QD),NLBTW=$J(NLBTW*MPAR,0,QD)
21 S NABTW=$J(NABTW*MPAR,0,QD),INV=$J(INV*MPAR,0,QD),KKBX=$J(KKB*MPAR,0,QD),FAK=NET+INV+AFBTW-NLBTW-ONBTW+NABTW
23 S @("^"_Q_"BA(BP,111)")=$H,K=@("^"_Q_"BA(15,0)") F K=0:1:9 S CE(K)=$P(^(K),D)
 ;
3 L @("^"_Q_"LE(I1)") S X=$D(@("^"_Q_"LE(I1,0)")),BC('FT)=FAK,HIS=1 D S1
31 S X=BP\1+.01 F K=X-.01,X,X+.01 I '$D(^(K)) S ^(K)="\\\\\\\\\\\\\\\\\\\\"
33 S K=^(X),Y=1-(FT*2),^(X)=$P(K,D)_D_(NET+INV+NABTW*Y+$P(K,D,2))_D_(AFBTW*Y+$P(K,D,3))_D_$P(K,D,4,99)
35 S K=BP\1+.11 S:'$D(^(K)) ^(K)="\\\\\\\\\\\\\" S X=BP#1*100+1,$P(^(K),D,X)=NET+INV+NABTW+KKBX*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_D_D,@("^"_Q_"AF(FNR)")=KC_D_BP
 ;
4 S K=FC_D_FDT_D_VVD_D_KC_D_KN_D_FAK_D_NET_D_AFBTW_D_NABTW_D_KKBX_D_ONBTW_D_NLBTW_D_INV_D
41 S @("^"_Q_"AA(BP,FNR)")=K_D_D_D_$J(VGBTW*MPAR,0,QD)_D_COM_D_OM1_D_BPE_D_SRT_D_D_BPE_D
43 S R1=0,FNX=FNR+.01,R2=-NET-INV-NABTW
 ;
5 S R1=$O(^HULPE(HULPE,R1)) I R1'="" S K=$P(^(R1),D),S2=$J($P(K,S,4)*MPAR,0,QD),$P(K,S,4)=S2,R2=R2+S2,^(R1)=K G 5
55 S R1=$O(^HULPE(HULPE,R1)) G 6:R1="" S K=^(R1),BR=$P(K,S),HIS=$P(K,S,7),X=$D(@("^"_Q_"AR(BR,0)"))
57 S:R2 $P(K,S,4)=$P(K,S,4)-R2,R2=0 S BC(FT)=$P(K,S,4) D S0
58 S:'$D(@("^"_Q_"AA(BP,FNX)")) ^(FNX)="" I $L(^(FNX))+$L(K)<250 S ^(FNX)=^(FNX)_K_D G 55
59 S FNX=FNX+.01 S:FNX\1'=FNR FNX=FNX-.999 G 58
 ;
6 S HIS="",BC('FT)=FAK,BR=CE(FT) D 7:FAK
61 S BC(FT)=AFBTW,BR=CE(FT+2) D 7:AFBTW S BC('FT)=NLBTW,BR=CE(FT+4) D 7:NLBTW
63 S BC('FT)=ONBTW,BR=CE(FT+6) D 7:ONBTW
 ;
9 K ^HULPE(HULPE) L ^HULPE(0) S:$O(^(HULPE))="" ^(0)=HULPE S:$O(^(0))="" ^(0)=1 L
 ;
YZ K R1,R2,S,BPB,BC,BH,X,FAK,^HULP(boot,$J,0),HULPE,FNX,HIS,NET,AFBTW,ONBTW,NLBTW,NABTW,INV,KKBX,FT,BR,CE,Y Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84