cT685 ;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:55 PM ]
 G 1
 ;
T0 ;Uitgaande fact/creditn ;
 ;
T0F ;Documents de sortie ;
 ;
T0E ;Registration of outgoing documents ;
 ;
 ; Omzetten ventilaties naar muntcode boekhouding
 ; + samennemen deelboekingen
 ;
1 S R1="",R2=-NET,(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_"V",S1="" I SWAN S ^(HULPEA)=Q_FNR_"V"
22 S S1=$O(^HULP(boot,$J,0,S1)) G YZ: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
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84