Index: cT63.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT63.mac.rou (.../cT63.mac.rou) (revision 29059) +++ cT63.mac.rou (.../cT63.mac.rou) (revision 43422) @@ -1,100 +1,99 @@ -cT63 ;Uitvoeren betalingen ;%T63 ;Go naar %T130 ; [ 11/04/98 4:18 PM ] - G 1 - ; -T0 ;Uitvoeren betalingen ; -T1 ;De financi�le rekening; -T2 ;Actueel saldo :; -T3 ;Betalingscumul.:; -T4 ;Betaling via\"[] = overschrijvingen .[] = cheques"; -T10 ;Kostencode ontbreekt voor leverancier ; -T11 ;Bankcode ontbreekt voor leverancier ; -T12 ;ISO-landcode verschilt voor leverancier ; -T13 ;Meerdere banknummers voor leverancier ; - ; -T0F ;Ex�cution des paiements ; -T1F ;Compte financier; -T2F ;Solde actuel :; -T3F ;Cumul de paiem.:; -T4F ;Paiement par\"[] = virements .[] = ch�ques"; -T10F ;Code frais manque pour fournisseur ; -T11F ;Code bancair manque pour fournisseur ; -T12F ;Code pays ISO diff�rent pour fournisseur ; -T13F ;Plusieurs n� de banque pour fournisseur ; - ; -T0E ;Uitvoeren betalingen ; -T1E ;De financi�le rekening; -T2E ;Actueel saldo :; -T3E ;Betalingscumul.:; -T4E ;Betaling via\"[] = overschrijvingen .[] = cheques"; -T10E ;Kostencode ontbreekt voor leverancier ; -T11E ;Bankcode ontbreekt voor leverancier ; -T12E ;ISO-landcode verschilt voor leverancier ; -T13E ;Meerdere banknummers voor leverancier ; - ; -R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 -R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) -R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 -R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 - ; -R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) -R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 -R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 - ; - ; saldoberekening -S1 S (S1,S2)=D S:$D(^(S3)) S1=^(S3),S2=^(S3+.02) S X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) -S1A I 'SWB S X=$$BEDR^cAFE1(Q,X,$P($$MNTC^cAFE1(Q,S3),D),BF,"F") -S1B I $D(^(S3+1)) S S1=^(S3+1),S2=^(S3+1.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) -S1Z K S1,S2,S3 Q - ; - ; schermopbouw -1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 -11 S R=301_D_673 D ^cA319 - ; - ; initialisatie -2 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BA39=^(39),BF=$P(BA39,D) -21 S Q41="^"_Q_"AR(BR,0)",Q5="^"_Q_"R1(R2)",Q1="^"_Q_"L2(NR)",Q2="^"_Q_"L1(LNR)",Q3="^"_Q_"LE(I1,0)",Q4="^"_Q_"L3(PRO,DATUM)" -23 S Q51="^"_Q_"L3(PRO,DATUM,LNR,I1)",Q50="^"_Q_"L3(PRO,DATUM,LNR)",Q52="^"_Q_"L3(PRO,DATUM,LNR,J1)",NR=0 I '$D(@Q1) D TXT^cAFA1(257) G YZ -25 S K=0,FP=440 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=540 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5 - ; - ; keuze bank -3 S R="BR\1000\1\1\1\1\1\1\" D ^cT278 G YZ:K="-" -31 S A=^(K,0),BNK=$P(A,D,2),BNR=$P(A,D,9),AFK=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12) -33 S:HBF="" HBF=BF S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,SWB=1 S HQD=$S(HBF=BF:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0),A=@Q41 D S1 -35 S FP=403 W @F,$E(BNK_$J("",35),1,35) S FP=461 W @F S R=X_D_11_D_D_HQD D R3 - ; - ; opzoeken betaling -4 S DATUM="" -41 S DATUM=$O(@Q4) I DATUM="" S FP=530 W @F,$J("",8) S FP=561 W @F,$J("",11) D TXT^cAFA1(56) G 3 -43 G 41:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=561,R=SOM_D_11_D_D_HQD,VNR=$P(TREC,D,5) W @F D R3 -45 S FP=530 W @F,$$DCO^cAFA1(DATUM\1) - ; - ; uitvoeren betaling -5 I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="NL" G YZ -51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.""[K" D R0:$D(@("^"_Q_"BA(""AR"")")) G 11:K="-" I K="." D ^cT630 G 51:K="-",YZ -53 S (SW,SWBB)=0 I 'SWB K ^HULP(boot,$J) D - . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D - .. S J1="" F S J1=$O(@Q52) Q:J1="" D - ... S K=^(J1) - ... I $P(K,D,8)'?12N S SWBB=1 D ; buitenlands banknummer - .... S IL=$E($P(K,D,8),1,2) I '$D(^HULP(boot,$J,LNR)) S ^(LNR)=IL Q - .... I ^(LNR)'=IL S K=$E($P($T(@("T13"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - ... I $P(J1," ")'=HBF S SWBB=1 D ; andere muntcode - .... S K=$P(K,D,16) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=$P(^(K),D),$P(@Q52,D,16)=K -55 I 'SW,SWBB D - . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D - .. S K=$$SGN^cAFA1("LE",LNR,2) - .. I '$P(K,D,3) S K=$E($P($T(@("T10"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - .. I '$D(^HULP(boot,$J,LNR)) Q ; geen SWIFT voor Belg.nr/VM - .. I '$P(K,D,5) S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - .. S K=$$SIG^cAFA1("SWIFT",$P(K,D,5),105) ; intern nummer - .. S IL=$$SIG^cAFA1("ISO.LAND",K,101) ; letters landcode - .. S J1="" F Q:SW S J1=$O(@Q52) Q:J1="" D - ... S K=^(J1) - ... I $E($P(K,D,8),1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q -57 I 'SW G ^cT130 - ; -YZ Q - ; - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT63 ;Uitvoeren betalingen ;%T63 ;Go naar %T130 ; [ 04/12/01 9:57 AM ] + G 1 + ; +T0 ;Uitvoeren betalingen ; +T1 ;De financi�le rekening; +T2 ;Actueel saldo :; +T3 ;Betalingscumul.:; +T4 ;Betaling via\"[] = overschrijvingen .[] = cheques"; +T10 ;Kostencode ontbreekt voor leverancier ; +T11 ;Bankcode ontbreekt voor leverancier ; +T12 ;ISO-landcode verschilt voor leverancier ; +T13 ;Meerdere banknummers voor leverancier ; + ; +T0F ;Ex�cution des paiements ; +T1F ;Compte financier; +T2F ;Solde actuel :; +T3F ;Cumul de paiem.:; +T4F ;Paiement par\"[] = virements .[] = ch�ques"; +T10F ;Code frais manque pour fournisseur ; +T11F ;Code bancair manque pour fournisseur ; +T12F ;Code pays ISO diff�rent pour fournisseur ; +T13F ;Plusieurs n� de banque pour fournisseur ; + ; +T0E ;Uitvoeren betalingen ; +T1E ;De financi�le rekening; +T2E ;Actueel saldo :; +T3E ;Betalingscumul.:; +T4E ;Betaling via\"[] = overschrijvingen .[] = cheques"; +T10E ;Kostencode ontbreekt voor leverancier ; +T11E ;Bankcode ontbreekt voor leverancier ; +T12E ;ISO-landcode verschilt voor leverancier ; +T13E ;Meerdere banknummers voor leverancier ; + ; +R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 +R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) +R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 +R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 + ; +R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) +R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 +R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 + ; + ; saldoberekening +S1 S (S1,S2)=D S:$D(^(S3)) S1=^(S3),S2=^(S3+.02) S X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) +S1A I 'SWB S X=$$BEDR^cAFE1(Q,X,$P($$MNTC^cAFE1(Q,S3),D),BF,"F") +S1B I $D(^(S3+1)) S S1=^(S3+1),S2=^(S3+1.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) +S1Z K S1,S2,S3 Q + ; + ; schermopbouw +1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 +11 S R=301_D_673 D ^cA319 + ; + ; initialisatie +2 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BA39=^(39),BF=$P(BA39,D) +21 S Q41="^"_Q_"AR(BR,0)",Q5="^"_Q_"R1(R2)",Q1="^"_Q_"L2(NR)",Q2="^"_Q_"L1(LNR)",Q3="^"_Q_"LE(I1,0)",Q4="^"_Q_"L3(PRO,DATUM)" +23 S Q51="^"_Q_"L3(PRO,DATUM,LNR,I1)",Q50="^"_Q_"L3(PRO,DATUM,LNR)",Q52="^"_Q_"L3(PRO,DATUM,LNR,J1)",NR=0 I '$D(@Q1) D TXT^cAFA1(257) G YZ +25 S K=0,FP=440 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=540 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5 + ; + ; keuze bank +3 S R="BR\1000\1\1\1\1\1\1\" D ^cT278 G YZ:K="-" +31 S A=^(K,0),BNK=$P(A,D,2),BNR=$P(A,D,9),AFK=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12) +33 S:HBF="" HBF=BF S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,SWB=1 S HQD=$S(HBF=BF:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0),A=@Q41 D S1 +35 S FP=403 W @F,$E(BNK_$J("",35),1,35) S FP=461 W @F S R=X_D_11_D_D_HQD D R3 + ; + ; opzoeken betaling +4 S DATUM="" +41 S DATUM=$O(@Q4) I DATUM="" S FP=530 W @F,$J("",8) S FP=561 W @F,$J("",11) D TXT^cAFA1(56) G 3 +43 G 41:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=561,R=SOM_D_11_D_D_HQD,VNR=$P(TREC,D,5) W @F D R3 +45 S FP=530 W @F,$$DCO^cAFA1(DATUM\1) + ; + ; uitvoeren betaling +5 I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="NL" G YZ +51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.""[K" D R0:$D(@("^"_Q_"BA(""AR"")")) G 11:K="-" I K="." D ^cT630 G 51:K="-",YZ +53 S (SW,SWBB)=0 I 'SWB K ^HULP(boot,$J) D + . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D + .. S J1="" F S J1=$O(@Q52) Q:J1="" D + ... S K=^(J1) + ... I $P(K,D,8)'?12N S SWBB=1 D ; buitenlands banknummer + .... S IL=$E($P(K,D,8),1,2) I '$D(^HULP(boot,$J,LNR)) S ^(LNR)=IL Q + .... I ^(LNR)'=IL S K=$E($P($T(@("T13"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + ... I $P(J1," ")'=HBF S SWBB=1 D ; andere muntcode + .... S K=$P(K,D,16) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=$P(^(K),D),$P(@Q52,D,16)=K +55 I 'SW,SWBB D + . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D + .. S K=$$SGN^cAFA1("LE",LNR,2) + .. I '$P(K,D,3) S K=$E($P($T(@("T10"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + .. I '$D(^HULP(boot,$J,LNR)) Q ; geen SWIFT voor Belg.nr/VM + .. I '$L($P(K,D,5)) S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + .. S K=$$SIG^cAFA1("SWIFT",$P(K,D,5),105) ; intern nummer + .. S IL=$$SIG^cAFA1("ISO.LAND",K,101) ; letters landcode + .. S J1="" F Q:SW S J1=$O(@Q52) Q:J1="" D + ... S K=^(J1) + ... I $E($P(K,D,8),1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q +57 I 'SW G ^cT130 + ; +YZ Q + ; + ; +ZZ ; 05.12.07 - 15 u 46 * V9.00