cT66Y	;Leveranciersbetalingen V6 ;%T66 ; [ 02/23/00  1:55 PM ]
	G 1
	;
T0	; Kopiëren voorstel ;
	;
T0F	; Copier proposition ;
	;
T0E	; Kopiëren voorstel ;
	;
1	;D O^cA612(7,1,15,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,1,1,0,0) ;10.03.00
	D P^cA612(7,1,15,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
	;
	; via SWY & module Y[] vanuit BVB.LE
2	N B,SWY
21	S BVS=$$^cANSYN("BVS") G YZ:K="-"
23	S B(1)=$$SIGN^cAFA1("BVS",BVS,0)
	;
	; Bevestiging via 2' Y[]
3	S SWY=1
31	D R^cAN210("BVS.DET",1,1,1) I '$G(NUI1) G 21
	;
YZ	D C^cA612 Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84