Index: cT66N.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT66N.mac.rou	(.../cT66N.mac.rou)	(revision 29059)
+++ cT66N.mac.rou	(.../cT66N.mac.rou)	(revision 43422)
@@ -1,158 +1,162 @@
-cT66N ;Leveranciersbetalingen V6 ;%T66 ; [ 03/13/01  4:37 PM ]
- G 1
- ;
-T0 ; Via ingave nummers ;
-T1 ;Voorstel;
-T2 ;Journaal;allemaal;
-T3 ;Muntcode;allemaal;
-T4 ;Subtotaal;
-T5 ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
-T6 ;Nummer\"xx[] = volgnr. xx op brede lijst   xx.[] = wijz. te betalen bedrag lijn xx       E[] = einde ingave                xx-[] = annulatie lijn xx";
-T7 ;Nr.;Leverancier;Document; Te betalen;Munt;
-T8 ;Betalingscumul.;
-T9 ;Te betalen;bedrag in ;
- ;
-T0F ; Via entr�e num�ros ;
-T1F ;Proposition;
-T2F ;Journal;tous;
-T3F ;Code mon.;tous;
-T4F ;Sous-total;
-T5F ;N� de facture; existe d�j� pour ce proposition; d�j� pay�;
-T6F ;Num�ro\"xx[] = n� xx sur liste large   xx.[] = modific. montant � payer ligne xx         E[] = exit                    xx-[] = annulation ligne xx";
-T7F ;No.;Fournisseur;Document;    A payer;Mon.;
-T8F ;Cumul de paiem.;
-T9F ;A payer;montant en ;
- ;
-T0E ; Via ingave nummers ;
-T1E ;Voorstel;
-T2E ;Journaal;allemaal;
-T3E ;Muntcode;allemaal;
-T4E ;Subtotaal;
-T5E ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
-T6E ;Nummer\"xx[] = volgnr. xx op brede lijst   xx.[] = wijz. te betalen bedrag lijn xx       E[] = einde ingave                xx-[] = annulatie lijn xx";
-T7E ;Nr.;Leverancier;Document; Te betalen;Munt;
-T8E ;Betalingscumul.;
-T9E ;Te betalen;bedrag in ;
- ;
- ; window + titel
-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 module N[] vanuit BVB.LE
-2 S BVS=$$^cANSYN("BVS") G YZ:K="-" S R=$$SIGN^cAFA1("BVS",BVS,0)
-21 W /CUP(2,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(2,16),": ",$P(R,D,2)
-23 W /CUP(3,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,/CUP(3,16),": ",$P(R,D,5) I $P(R,D,5)="" W $P($T(@("T2"_QT)),U,3)
-25 W /CUP(4,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,/CUP(4,16),": ",$P(R,D,4) I $P(R,D,4)="" W $P($T(@("T3"_QT)),U,3)
-27 W /CUP(5,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(5,16),": ",$$IP^cAFA1($P(R,D,7),QD,0),BF
- ;
- ; schermopbouw
-3 S R=$T(@("T7"_QT)),H=0 K ^HULP(boot,$J)
-31 W /CUP(7,2),@F4 F I=2:1:6 S J=$P(";7;38;11;14;5",U,I) W $E($P(R,U,I)_$J("",J),1,J)
-33 W @F7 F I=8,43,47,56,71 W /CUP(7,I),@$P(FG,D,10)
-35 W !,@F8,@F5 D S4
- ;
- ; ingave nummer
-4 S R="N\22\3\"_$P($T(@("T6"_QT)),U,2)_"\5\\K?1.N.1"".""!(K?1.N1""-"")&K!(K=""-"")!(K=""E"")\\\1\\\1" D R0 I RK=28 G 9:K="-"!(K="E")
-401 I RK=25 D  G 63                                   ; PgUp
- . S N=H F I=1:1:5 Q:N=""  S N=$O(^HULP(boot,$J,N),-1)
-402 I RK=26 D  G 63                                   ; PgDn
- . S N=H F I=1:1:5 Q:H=""  S H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H
-403 I RK=31 D  G 63                                   ; Pijl omhoog
- . S N=H,N=$O(^HULP(boot,$J,N),-1)
-404 I RK=32 D  G 63                                   ; Pijl omlaag
- . S N=H,H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H
-405 I RK'=28 G 4
-41 S BVSNR=+K I '$D(^DATA(Q,"BVS.NR",BVS,BVSNR)) G 4
-43 S I4=^(BVSNR),BVSDET=$G(^DATA(Q,"BVS",BVS,I4)) I BVSDET="" G 4
-45 S KC=$P(BVSDET,D),FNR=$P(BVSDET,D,2)
-47 S I1=$$UI1^cAFA1("LE",101,KC) D S2
-49 S MF=$P(OF,D,9),DEC=$$DEC^cAFA1(MF) D VM(MF) I MF="" S MF=BF
- ;
- ; diverse testen
-5 S R=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S R=-R ;-$P(OF,D,6)
-51 S K=$P(BVSDET,D,3) I $P(OF,D)="F",K>R S K=R       ; bedrag
-53 I OF=""!'R S K=$T(@("T5"_QT)),K=$P(K,U,2)_" "_FNR_$P(K,U,4) D TXT^cAFA1(250) G 4
-55 I $E(N,$L(N))="." G 7                   ; gedeeltelijke betaling
-57 I $E(N,$L(N))="-" G 8                   ; annulatie
-59 S R=$$OMREK^cAFA1(K,MF,HBF,"A",1) D S1 S ^HULP(boot,$J,+N)=I4 D S3
- ;
- ; tonen op scherm
-6 F I=1:1:3 S J=$O(^HULP(boot,$J,+N)) Q:J=""  S N=J
-61 F I=1:1:6 Q:N=""  S N=$O(^(+N),-1)
-63 S H=+N D S4 S L=8 F I=1:1:6 S N=$O(^HULP(boot,$J,N)) D  S L=L+1
- . I N="" S I=9 Q
- . S R=^(N),R=^DATA(Q,"BVB",BVB,R)
- . W /CUP(L,3),$J(N,4)
- . W /CUP(L,10),$E($P(R,D)_" "_$$SG^cAFA1("LE",$P(R,D),102)_$J("",32),1,32)
- . W /CUP(L,45),$P(R,D,7)
- . W /CUP(L,48),$J($P(R,D,2),8)
- . W /CUP(L,57),$$IP^cAFA1($P(R,D,3),$$DEC^cAFA1($P(R,D,6)),14)
- . W /CUP(L,73),$P(R,D,6)
-65 G 4
- ;
- ; gedeeltelijke betaling
-7 D O^cA612(22,1,1,80,0,0,0,0)  ; tonen openstaande factuur
-70 W /CUP(1,4),$J(N,5),/CUP(1,11),$E($$SIG^cAFA1("LE",I1,102)_$J("",32),1,32)
-71 W $J($P(OF,D),4),$J(FNR,10),$$IP^cAFA1(K,DEC,15),"  ",MF
-72 S B2=$P(OF,D,5)-$P(OF,D,12),B1=B2-$P(OF,D,6) I $P(OF,D)="C" S B1=-B1,B2=-B2
-73 I $D(^HULP(boot,$J,+N)) S B1=$P(^DATA(Q,"BVB",BVB,^(+N)),D,3)
-74 S R="K\23\3\"_$P($T(@("T9"_QT)),U,2)_"\C1\10\\$$W^cAFI2(K,DEC,$P(OF,D)=""C"")!(""-""[K)!(K=""."")" D R0 I K="-" D YZ G 4
-75 I K="" S K=B1 G 79
-76 I K="." G 74:B1=B2 S K=B2 G 79
-77 I $E(K,$L(K))="-" S K=-K
-78 I B2>0&(K>B2!(K<0))!(B2<0&(K<B2!(K>0))) G 74
-780 I K>B2&(B2>0)!(K<B2&(B2<0)) G 74
-79 D C^cA612 G 59
- ;
- ; annulatie
-8 I '$D(^HULP(boot,$J,+N)) G 4
-81 S I4=^(+N) K ^(+N),^DATA(Q,"BVB",BVB,I4) D S3 G 6
- ;
- ; verwijderen betalingsvoorstel voor geselecteerde lijnen
-9 S BVSNR=""
-91 S BVSNR=$O(^HULP(boot,$J,BVSNR)) I BVSNR="" G YZ:K="E",2
-93 S I4=^DATA(Q,"BVS.NR",BVS,BVSNR) K ^DATA(Q,"BVS",BVS,I4) I $O(^(0))="" D X^cAN220("BVS",0,BVS)
-95 G 91
- ;
-YZ D C^cA612 Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
- ; commentaar
-C1 W !?2,$P($T(@("T9"_QT)),U,3),MF,"   [] = ",$TR($FN(B1,",T",DEC),".,",",")
-C1A I B1'=B2 W "   .[] = ",$TR($FN(B2,",T",DEC),".,",",")
-C1Z Q
- ;
- ; openstaande factuur
-S2 S OF=$G(@("^"_Q_"LE(I1,FNR)"))
-S2Z Q
- ;
- ; kopi�ren
-S1 N UQC,USC,UREF,UI1
-S1A D DMS^cAN000("UQC","USC","BVB.DET")
-S1B S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0,VNR=0
-S1C F  Q:VNR  S UI1=$O(@UREF) Q:UI1=""  D
- . I $P(^(UI1),D)=KC S VNR=$P(^(UI1),D,5)
-S1D I 'VNR S UI1=0,VNR=$P(@UREF,D,8)+1,$P(@UREF,D,8)=VNR
-S1E S UI1=VNR*1E6+FNR+1E12,@UREF=KC_D_FNR_D_K_D_R_D_VNR_D_$P(OF,D,9)_D_$P(OF,D)
-S1Z S I4=UI1 Q
- ;
- ; cumul bijwerken
-S3 N UQC,USC,UREF,UI1
-S3A D DMS^cAN000("UQC","USC","BVB.DET")
-S3B S UREF=^DMC(UQC,USC,"DATA","REF") D CUM^cT66
-S3C W /CUP(5,42),@F6,$P($T(@("T8"_QT)),U,2),@F9,/CUP(5,59),": ",$$IP^cAFA1(K,HQD,14),HBF
-S3Z Q
- ;
- ; lijntjes trekken
-S4 W /CUP(8,1),@F1
-S4A S R="",RH="",RV="808#1308\843#1343\847#1347\856#1356\871#1371" D ^cA319
-S4Z 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 ; 30.03.01 - 13 u 39 * V7.85
-
+cT66N	;Leveranciersbetalingen V6 ;%T66 ; [ 03/13/01  4:37 PM ]
+	G 1
+	;
+T0	; Via ingave nummers ;
+T1	;Voorstel;
+T2	;Journaal;allemaal;
+T3	;Muntcode;allemaal;
+T4	;Subtotaal;
+T5	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
+T6	;Nummer\"xx[] = volgnr. xx op brede lijst   xx.[] = wijz. te betalen bedrag lijn xx       E[] = einde ingave                xx-[] = annulatie lijn xx";
+T7	;Nr.;Leverancier;Document; Te betalen;Munt;
+T8	;Betalingscumul.;
+T9	;Te betalen;bedrag in ;
+	;
+T0F	; Via entr�e num�ros ;
+T1F	;Proposition;
+T2F	;Journal;tous;
+T3F	;Code mon.;tous;
+T4F	;Sous-total;
+T5F	;N� de facture; existe d�j� pour ce proposition; d�j� pay�;
+T6F	;Num�ro\"xx[] = n� xx sur liste large   xx.[] = modific. montant � payer ligne xx         E[] = exit                    xx-[] = annulation ligne xx";
+T7F	;No.;Fournisseur;Document;    A payer;Mon.;
+T8F	;Cumul de paiem.;
+T9F	;A payer;montant en ;
+	;
+T0E	; Via ingave nummers ;
+T1E	;Voorstel;
+T2E	;Journaal;allemaal;
+T3E	;Muntcode;allemaal;
+T4E	;Subtotaal;
+T5E	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
+T6E	;Nummer\"xx[] = volgnr. xx op brede lijst   xx.[] = wijz. te betalen bedrag lijn xx       E[] = einde ingave                xx-[] = annulatie lijn xx";
+T7E	;Nr.;Leverancier;Document; Te betalen;Munt;
+T8E	;Betalingscumul.;
+T9E	;Te betalen;bedrag in ;
+	;
+	; window + titel
+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 module N[] vanuit BVB.LE
+2	S BVS=$$^cANSYN("BVS") G YZ:K="-" S R=$$SIGN^cAFA1("BVS",BVS,0)
+21	W /CUP(2,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(2,16),": ",$P(R,D,2)
+23	W /CUP(3,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,/CUP(3,16),": ",$P(R,D,5) I $P(R,D,5)="" W $P($T(@("T2"_QT)),U,3)
+25	W /CUP(4,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,/CUP(4,16),": ",$P(R,D,4) I $P(R,D,4)="" W $P($T(@("T3"_QT)),U,3)
+27	W /CUP(5,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(5,16),": ",$$IP^cAFA1($P(R,D,7),QD,0),BF
+	;
+	; schermopbouw
+3	S R=$T(@("T7"_QT)),H=0 K ^HULP(boot,$J)
+31	W /CUP(7,2),@F4 F I=2:1:6 S J=$P(";7;38;11;14;5",U,I) W $E($P(R,U,I)_$J("",J),1,J)
+33	W @F7 F I=8,43,47,56,71 W /CUP(7,I),@$P(FG,D,10)
+35	W !,@F8,@F5 D S4
+	;
+	; ingave nummer
+4	S R="N\22\3\"_$P($T(@("T6"_QT)),U,2)_"\5\\K?1.N.1"".""!(K?1.N1""-"")&K!(K=""-"")!(K=""E"")\\\1\\\1" D R0 I RK=28 G 9:K="-"!(K="E")
+401	I RK=25 D  G 63                                   ; PgUp
+	. S N=H F I=1:1:5 Q:N=""  S N=$O(^HULP(boot,$J,N),-1)
+402	I RK=26 D  G 63                                   ; PgDn
+	. S N=H F I=1:1:5 Q:H=""  S H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H
+403	I RK=31 D  G 63                                   ; Pijl omhoog
+	. S N=H,N=$O(^HULP(boot,$J,N),-1)
+404	I RK=32 D  G 63                                   ; Pijl omlaag
+	. S N=H,H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H
+405	I RK'=28 G 4
+41	S BVSNR=+K I '$D(^DATA(Q,"BVS.NR",BVS,BVSNR)) G 4
+43	S I4=^(BVSNR),BVSDET=$G(^DATA(Q,"BVS",BVS,I4)) I BVSDET="" G 4
+45	S KC=$P(BVSDET,D),FNR=$P(BVSDET,D,2)
+47	S I1=$$UI1^cAFA1("LE",101,KC) D S2
+49	S MF=$P(OF,D,9),DEC=$$DEC^cAFA1(MF) D VM(MF) I MF="" S MF=BF
+	;
+	; diverse testen
+5	S R=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S R=-R ;-$P(OF,D,6)
+51	S K=$P(BVSDET,D,3) I $P(OF,D)="F",K>R S K=R       ; bedrag
+53	I OF=""!'R S K=$T(@("T5"_QT)),K=$P(K,U,2)_" "_FNR_$P(K,U,4) D TXT^cAFA1(250) G 4
+55	I $E(N,$L(N))="." G 7                   ; gedeeltelijke betaling
+57	I $E(N,$L(N))="-" G 8                   ; annulatie
+59	S R=$$OMREK^cAFA1(K,MF,HBF,"A",1)
+	;
+	S OKDET=$$CHKDET^cT66SE(BVB,^DATA(Q,"BVB",BVB,0),KC,OF) 
+	I 'OKDET S K=$P(OKDET,D,2) D TXT^cAFA1(250) G 4
+	;
+	D S1 S ^HULP(boot,$J,+N)=I4 D S3
+	;
+	; tonen op scherm
+6	F I=1:1:3 S J=$O(^HULP(boot,$J,+N)) Q:J=""  S N=J
+61	F I=1:1:6 Q:N=""  S N=$O(^(+N),-1)
+63	S H=+N D S4 S L=8 F I=1:1:6 S N=$O(^HULP(boot,$J,N)) D  S L=L+1
+	. I N="" S I=9 Q
+	. S R=^(N),R=^DATA(Q,"BVB",BVB,R)
+	. W /CUP(L,3),$J(N,4)
+	. W /CUP(L,10),$E($P(R,D)_" "_$$SG^cAFA1("LE",$P(R,D),102)_$J("",32),1,32)
+	. W /CUP(L,45),$P(R,D,7)
+	. W /CUP(L,48),$J($P(R,D,2),8)
+	. W /CUP(L,57),$$IP^cAFA1($P(R,D,3),$$DEC^cAFA1($P(R,D,6)),14)
+	. W /CUP(L,73),$P(R,D,6)
+65	G 4
+	;
+	; gedeeltelijke betaling
+7	D O^cA612(22,1,1,80,0,0,0,0)  ; tonen openstaande factuur
+70	W /CUP(1,4),$J(N,5),/CUP(1,11),$E($$SIG^cAFA1("LE",I1,102)_$J("",32),1,32)
+71	W $J($P(OF,D),4),$J(FNR,10),$$IP^cAFA1(K,DEC,15),"  ",MF
+72	S B2=$P(OF,D,5)-$P(OF,D,12),B1=B2-$P(OF,D,6) I $P(OF,D)="C" S B1=-B1,B2=-B2
+73	I $D(^HULP(boot,$J,+N)) S B1=$P(^DATA(Q,"BVB",BVB,^(+N)),D,3)
+74	S R="K\23\3\"_$P($T(@("T9"_QT)),U,2)_"\C1\10\\$$W^cAFI2(K,DEC,$P(OF,D)=""C"")!(""-""[K)!(K=""."")" D R0 I K="-" D YZ G 4
+75	I K="" S K=B1 G 79
+76	I K="." G 74:B1=B2 S K=B2 G 79
+77	I $E(K,$L(K))="-" S K=-K
+78	I B2>0&(K>B2!(K<0))!(B2<0&(K<B2!(K>0))) G 74
+780	I K>B2&(B2>0)!(K<B2&(B2<0)) G 74
+79	D C^cA612 G 59
+	;
+	; annulatie
+8	I '$D(^HULP(boot,$J,+N)) G 4
+81	S I4=^(+N) K ^(+N),^DATA(Q,"BVB",BVB,I4) D S3 G 6
+	;
+	; verwijderen betalingsvoorstel voor geselecteerde lijnen
+9	S BVSNR=""
+91	S BVSNR=$O(^HULP(boot,$J,BVSNR)) I BVSNR="" G YZ:K="E",2
+93	S I4=^DATA(Q,"BVS.NR",BVS,BVSNR) K ^DATA(Q,"BVS",BVS,I4) I $O(^(0))="" D X^cAN220("BVS",0,BVS)
+95	G 91
+	;
+YZ	D C^cA612 Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+	; commentaar
+C1	W !?2,$P($T(@("T9"_QT)),U,3),MF,"   [] = ",$TR($FN(B1,",T",DEC),".,",",")
+C1A	I B1'=B2 W "   .[] = ",$TR($FN(B2,",T",DEC),".,",",")
+C1Z	Q
+	;
+	; openstaande factuur
+S2	S OF=$G(@("^"_Q_"LE(I1,FNR)"))
+S2Z	Q
+	;
+	; kopi�ren
+S1	N UQC,USC,UREF,UI1
+S1A	D DMS^cAN000("UQC","USC","BVB.DET")
+S1B	S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0,VNR=0
+S1C	F  Q:VNR  S UI1=$O(@UREF) Q:UI1=""  D
+	. I $P(^(UI1),D)=KC S VNR=$P(^(UI1),D,5)
+S1D	I 'VNR S UI1=0,VNR=$P(@UREF,D,8)+1,$P(@UREF,D,8)=VNR
+S1E	S UI1=VNR*1E6+FNR+1E12,@UREF=KC_D_FNR_D_K_D_R_D_VNR_D_$P(OF,D,9)_D_$P(OF,D)
+S1Z	S I4=UI1 Q
+	;
+	; cumul bijwerken
+S3	N UQC,USC,UREF,UI1
+S3A	D DMS^cAN000("UQC","USC","BVB.DET")
+S3B	S UREF=^DMC(UQC,USC,"DATA","REF") D CUM^cT66
+S3C	W /CUP(5,42),@F6,$P($T(@("T8"_QT)),U,2),@F9,/CUP(5,59),": ",$$IP^cAFA1(K,HQD,14),HBF
+S3Z	Q
+	;
+	; lijntjes trekken
+S4	W /CUP(8,1),@F1
+S4A	S R="",RH="",RV="808#1308\843#1343\847#1347\856#1356\871#1371" D ^cA319
+S4Z	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	; 30.03.01 - 13 u 39 * V7.85