cT644 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  3:04 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
 ;
T0F ;Fact/n.c. achats ;
 ;
T0E ;Registration of incoming documents ;
 ;
 ; Omzetten ventilaties naar muntcode boekhouding
 ; + samennemen deelboekingen
 ;
1 S R1="",R2=-NETG-NETD-NETI-NETA-NABTW,(R3,R4)=0
12 S R1=$O(^HULP(boot,$J,0,R1))
14 I R1'="" S K=$P(^(R1),D),R5=$J($P(K,S,4)*MPAR,0,QD),$P(K,S,4)=R5,R2=R2+R5,^(R1)=K S:R5<0 R5=-R5 S:R5>R3 R3=R5,R4=R1 G 12
16 I R2 S $P(^(R4),S,4)=$P(^(R4),S,4)-R2
19 K R1,R2,R3,R4,R5
 ;
2 S R="HULPE" D ^cA348 I SWAN S R="HULPEA" D ^cA348
21 S ^(HULPE)=Q_FNR_"A",S1="" I SWAN S ^(HULPEA)=Q_FNR_"A"
22 S S1=$O(^HULP(boot,$J,0,S1)) G 3:S1="" S S2=$P(^(S1),D),K=$P(S2,S)_$P(S2,S,6)_$P(S2,S,8)_$P(S2,S,9)
23 I '$D(^HULPE(HULPE,K)) S ^(K)=S2 G 25
24 S S3=^(K),$P(S3,S,4)=$P(S3,S,4)+$P(S2,S,4),$P(S3,S,5)=$P(S3,S,5)+$P(S2,S,5),$P(S3,S,7)=$P(S3,S,7)!$P(S2,S,7),^(K)=S3
25 G 22:'SWAN S K=$P(S2,S,9) I '$L(K) G 22
26 I '$D(^HULPE(HULPEA,K)) S ^(K)=S2 G 22
27 S S3=^(K),$P(S3,S,4)=$P(S3,S,4)+$P(S2,S,4),$P(S3,S,5)=$P(S3,S,5)+$P(S2,S,5),$P(S3,S,7)=$P(S3,S,7)!$P(S2,S,7),^(K)=S3
28 G 22
 ;
 ; MAATSTAVEN : UITSPLITSEN VOLGENS NETTO BEDRAGEN
 ;
3 S (R0,R4)=0,R3=NETG+NETD+NETI,(MSTD,MSTI,MSTA)=0,MSTG=MST
31 I R3 F R1=1:1 S R2=$P("G\D\I",D,R1) Q:R2=""  S R5="MST"_R2,@R5=$J(@("NET"_R2)/R3*MST,0,QD) I @R5>R4 S R4=@R5,R0=R1
33 S R1=MST-MSTG-MSTD-MSTI I R1'=0 S R2="MST"_$P("G\D\I",D,R0),@R2=@R2+R1
35 K R0,R1,R2,R3,R4,R5
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84