Index: cT661L.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT661L.mac.rou	(.../cT661L.mac.rou)	(revision 29059)
+++ cT661L.mac.rou	(.../cT661L.mac.rou)	(revision 43422)
@@ -1,83 +1,82 @@
-cT661L ;Betalingsvoorstel leveranciers ;%T66 ; [ 02/23/00  9:25 AM ]
- G 1
- ;
-T0 ;Totaal per leverancier ;
-T1 ;Omschrijving;
-T2 ;Journaal;allemaal;
-T3 ;Muntcode;allemaal;
-T4 ;Subtotaal;
-T5 ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
-T6 ;Bevestiging\"+[] = enkel leveranciers met positief saldo";
- ;
-T0F ;Total par fournisseur ;
-T1F ;Description;
-T2F ;Journal;tous;
-T3F ;Code mon.;tous;
-T4F ;Sous-total;
-T5F ;N� de facture; existe d�j� pour ce proposition; d�j� pay�;
-T6F ;Confirmation\"+[] = seulement fournisseurs avec un solde positif";
- ;
-T0E ;Totaal per leverancier ;
-T1E ;Omschrijving;
-T2E ;Journaal;allemaal;
-T3E ;Muntcode;allemaal;
-T4E ;Subtotaal;
-T5E ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
-T6E ;Bevestiging\"+[] = enkel leveranciers met positief saldo";
- ;
- ; opbouw BVS.LE via module L[] bij BVS.DET
- ; UREF = BVS.DET
-1 D EG^cAFA1
-11 K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
-13 S BF=$$BF^cAFA1 D VM(BF)
- ;
- ; detaillijnen BVS.DET groeperen per leverancier_muntcode
-2 S UI1=0,VNR=0
-21 S UI1=$O(@UREF) I UI1="" G 4
-23 S OF=^(UI1),KC=$P(OF,D),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF
-25 S I4=$G(^HULP(boot,$J,KC,VM(MF)))
-27 I 'I4 S VNR=VNR+1,I4=VNR,^(VM(MF))=I4
- ;
- ; totaal per leverancier_muntcode
-3 S R=$G(^DATA(Q,"BVS.LE",BVS,I4))
-31 S $P(R,D)=KC                                 ; leverancier
-32 S $P(R,D,2)=$P(R,D,2)+1                      ; aantal doc.
-33 S $P(R,D,3)=$P(R,D,3)+$P(OF,D,3)             ; totaal bedrag
-34 S $P(R,D,4)=MF                               ; muntcode
-35 S $P(R,D,5)=$P(OF,D,5)                       ; vvvvvv
-39 S ^DATA(Q,"BVS.LE",BVS,I4)=R G 21
- ;
- ; scroll tonen
-4 D C^cA612
-41 D BS^cAN210("BVS.LE",1,1,1,0)
- ;
- ; einde
-Y K KC,VM,VNR,I4,TOT
-YA K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
-YZ Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
- ; Delete : kill combinatie leverancier_muntcode in BVS.LE
- ; UREF = BVS.LE
-DEL S R=@UREF K @UREF
-DELA N UQC,USC,UREF,UI1
-DELB D DMS^cAN000("UQC","USC","BVS.DET") S UREF=^DMC(UQC,USC,"DATA","REF")
-DELC N BEGIN,EINDE S BEGIN=$P(R,D,5)*1E6+1E12,EINDE=BEGIN+999999
-DELD S UI1=BEGIN F  S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE)  D
- . S OF=^(UI1) I $P(OF,D)=$P(R,D),$P(OF,D,6)=$P(R,D,4) K ^(UI1)
-DELZ D CUM^cT661 Q
- ;
- ; positief saldo : module +[] in BVS.LE
- ; UREF = BVS.LE
-POS S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\K=""+""!(K=""-"")" D R0 G POSZ:K="-"
-POSA S UI1=0 F  S UI1=$O(@UREF) Q:UI1=""  I $P(^(UI1),D,3)<0 D DEL
-POSZ Q
- ;
- ; offici�le muntcode
-VM(K) I K="" S K=BF
- I '$D(VM(K)) S VM(K)=K I $D(@("^"_Q_"BA(11,K)")) S VM(K)=$P(^(K),D)
-VMZ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
-
+cT661L	;Betalingsvoorstel leveranciers ;%T66 ; [ 02/23/00  9:25 AM ]
+	G 1
+	;
+T0	;Totaal per leverancier ;
+T1	;Omschrijving;
+T2	;Journaal;allemaal;
+T3	;Muntcode;allemaal;
+T4	;Subtotaal;
+T5	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
+T6	;Bevestiging\"+[] = enkel leveranciers met positief saldo";
+	;
+T0F	;Total par fournisseur ;
+T1F	;Description;
+T2F	;Journal;tous;
+T3F	;Code mon.;tous;
+T4F	;Sous-total;
+T5F	;N� de facture; existe d�j� pour ce proposition; d�j� pay�;
+T6F	;Confirmation\"+[] = seulement fournisseurs avec un solde positif";
+	;
+T0E	;Totaal per leverancier ;
+T1E	;Omschrijving;
+T2E	;Journaal;allemaal;
+T3E	;Muntcode;allemaal;
+T4E	;Subtotaal;
+T5E	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
+T6E	;Bevestiging\"+[] = enkel leveranciers met positief saldo";
+	;
+	; opbouw BVS.LE via module L[] bij BVS.DET
+	; UREF = BVS.DET
+1	D EG^cAFA1
+11	K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
+13	S BF=$$BF^cAFA1 D VM(BF)
+	;
+	; detaillijnen BVS.DET groeperen per leverancier_muntcode
+2	S UI1=0,VNR=0
+21	S UI1=$O(@UREF) I UI1="" G 4
+23	S OF=^(UI1),KC=$P(OF,D),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF
+25	S I4=$G(^HULP(boot,$J,KC,VM(MF)))
+27	I 'I4 S VNR=VNR+1,I4=VNR,^(VM(MF))=I4
+	;
+	; totaal per leverancier_muntcode
+3	S R=$G(^DATA(Q,"BVS.LE",BVS,I4))
+31	S $P(R,D)=KC                                 ; leverancier
+32	S $P(R,D,2)=$P(R,D,2)+1                      ; aantal doc.
+33	S $P(R,D,3)=$P(R,D,3)+$P(OF,D,3)             ; totaal bedrag
+34	S $P(R,D,4)=MF                               ; muntcode
+35	S $P(R,D,5)=$P(OF,D,5)                       ; vvvvvv
+39	S ^DATA(Q,"BVS.LE",BVS,I4)=R G 21
+	;
+	; scroll tonen
+4	D C^cA612
+41	D BS^cAN210("BVS.LE",1,1,1,0)
+	;
+	; einde
+Y	K KC,VM,VNR,I4,TOT
+YA	K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
+YZ	Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+	; Delete : kill combinatie leverancier_muntcode in BVS.LE
+	; UREF = BVS.LE
+DEL	S R=@UREF K @UREF
+DELA	N UQC,USC,UREF,UI1
+DELB	D DMS^cAN000("UQC","USC","BVS.DET") S UREF=^DMC(UQC,USC,"DATA","REF")
+DELC	N BEGIN,EINDE S BEGIN=$P(R,D,5)*1E6+1E12,EINDE=BEGIN+999999
+DELD	S UI1=BEGIN F  S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE)  D
+	. S OF=^(UI1) I $P(OF,D)=$P(R,D),$P(OF,D,6)=$P(R,D,4) K ^(UI1)
+DELZ	D CUM^cT661 Q
+	;
+	; positief saldo : module +[] in BVS.LE
+	; UREF = BVS.LE
+POS	S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\K=""+""!(K=""-"")" D R0 G POSZ:K="-"
+POSA	S UI1=0 F  S UI1=$O(@UREF) Q:UI1=""  I $P(^(UI1),D,3)<0 D DEL
+POSZ	Q
+	;
+	; offici�le muntcode
+VM(K)	I K="" S K=BF
+	I '$D(VM(K)) S VM(K)=K I $D(@("^"_Q_"BA(11,K)")) S VM(K)=$P(^(K),D)
+VMZ	Q
+	;
+ZZ	; 05.02.01 - 16 u 23 * V7.84