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