cT66E6	;Overschrijvingen ;%T66 ;Go uit %T66E4 ; [ 04/28/00  11:29 AM ]
	G 1
	;
T0	;Overschrijvingen ;
	;
T0F	;Virements ;
	;
T0E	;Overschrijvingen ;
	;
	; opbouw HULP + globalisatie igv creditnota's
1	S LNR=""
11	S LNR=$O(@Q50)      ; volgende leverancier
13	I LNR="" G Y
15	S I1=$$UI1^cAFA1("LE",101,LNR)
	;
	; alle facturen per leverancier
2	S J1="",VM="",TB=0,GLOB=BWZ
21	S J1=$O(@Q52)       ; volgende factuur
23	I J1="" G 4
25	S B=^(J1) I VM="" S VM=$P(B,D,16)
27	I $P(B,D,16)'=VM G 4
	;
	; combinatie leverancier_muntcode
3	S ^HULP(boot,$J,I1,VM,J1)=B,BE=$P(B,D,11)
31	I $P(B,D,9)="C" S GLOB=1,BE=-BE
33	S TB=TB+BE G 21
	;
	; einde leverancier_muntcode
4	I TB<0 X "STOP"     ; geen negatief bedrag toegelaten
41	I GLOB D            ; globaal bedrag + omschrijving
	. S (A,J2)="" F  S J2=$O(^HULP(boot,$J,I1,VM,J2)) Q:J2=""  D
	.. S K=^(J2) I A="" S A=K,$P(A,D,11)=TB,$P(A,D,13)=""
	.. S K=$P(K,D,13,14) I $P(K,D)="" S K="("_$P(K,D,2)_")"
	.. I $L($P(A,D,13)) S K="/"_K
	.. S K=$P(A,D,13)_$P(K,D),$P(A,D,13)=K K ^(J2)
	. S ^(GLOB)=A
43	I $P(B,D,16)'=VM S TB=0,GLOB=BWZ,VM=$P(B,D,16) G 3
45	G 11
	;
Y	;I BNR'?12N,$D(@("^"_Q_"BA")@("%T",11,BR)) G @^(BR)          ; IBOS
	I $D(@("^"_Q_"BA")@("%T",11,BR)) G @^(BR)  ; Ibos / Navis ; DQ777
YZ	G ^cT66E7
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84