Index: cT66A.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT66A.mac.rou	(.../cT66A.mac.rou)	(revision 29059)
+++ cT66A.mac.rou	(.../cT66A.mac.rou)	(revision 43422)
@@ -1,55 +1,54 @@
-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
-
+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