cT66A	;Leveranciersbetalingen V6 ;%T66 ; [ 02/23/00  1:53 PM ]
	G 1
	;
T0	;Annuleren betaling;
T1	;Bevestiging\".[] = ok";
T2	;Deze betaling kan niet worden geannuleerd;
T3	;Factuur ; reeds afgeboekt bij leverancier ;
T4	;Totaal bedrag;
	;
T0F	;Annulation paiement;
T1F	;Confirmation\".[] = ok";
T2F	;Cette paiement ne peut pas être annulé;
T3F	;Facture ; déjà payée pour fournisseur ;
T4F	;Montant total;
	;
T0E	;Annuleren betaling;
T1E	;Bevestiging\".[] = ok";
T2E	;Deze betaling kan niet worden geannuleerd;
T3E	;Factuur ; reeds afgeboekt bij leverancier ;
T4E	;Totaal bedrag;
	;
	; via module A[] vanuit BVB.LE
	; B(1) = BVB
	; UREF = BVB.LE
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)
	;
	; opzoeken ^_Q_L3
2	S DATUM=$$DC^cAFA1($P(B(1),D,6))_"."_BVB,TREC=$G(@("^"_Q_"L3(PRO,DATUM)"))
21	I '$P(TREC,D,4) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ
23	W /CUP(2,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,": ",$$IP^cAFA1($P(TREC,D),$P(TREC,D,8),0),$P(TREC,D,7)
25	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.,""[K&$L(K)" D R0 I K'="." G YZ
	;
	; aflopen ^_Q_L3: betaling onderweg bij openstaande factuur wegdoen
3	S KC="" F  S KC=$O(@("^"_Q_"L3(PRO,DATUM,KC)")) Q:KC=""  D
	. S I1=$$UI1^cAFA1("LE",101,KC),LNM=$$SIG^cAFA1("LE",I1,102)
	. S I4="" F  S I4=$O(@("^"_Q_"L3(PRO,DATUM,KC,I4)")) Q:I4=""  D
	.. S J=^(I4),FNR=$P(J,D,14),OF=$G(@("^"_Q_"LE(I1,FNR)"))
	.. I OF="" S K=$E($P($T(@("T3"_QT)),U,2)_FNR_$P($T(@("T3"_QT)),U,3)_KC_" "_LNM,1,64) D TXT^cAFA1(250) Q
	.. S $P(OF,D,12)=$P(OF,D,12)-$P(J,D,11) I '$P(OF,D,12) S $P(OF,D,11)=0
	.. S $P(OF,D,13)=$P(OF,D,13)-$P(J,D,19)
	.. S @("^"_Q_"LE(I1,FNR)")=OF K @("^"_Q_"L3(PRO,DATUM,KC,I4)")
31	K @("^"_Q_"L3(PRO,DATUM)")
	;
	; datum wissen
4	D W^cAN220("BVB",0,BVB,106,"")
41	D W^cAN220("BVB",0,BVB,130,"")
	;
	; einde
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84