cT62 ;Voorbereiden betalingen ;%T61 ;go uit %T61 ; [ 12/24/98  3:22 PM ]
 G 1
 ;
T0 ;Voorbereiden betalingen ;
T1 ;A[] = betaling alle documenten      Nr.[] = gedeeltelijke betaling;D[] = detail der geboekte lijnen    Nr,[] = openstaand saldo-kort.contant;E[] = einde voor deze bank          Nr-[] = annulatie ingegeven lijn;
T2 ;E[] = einde   ?[] = mogelijkheden;
T3 ;Vervolg overzicht\"-[] = einde detail   [] = ok";
T4 ;Lijnnummer van het volgend te betalen document\;Nr[] = betaling openstaande bedrag\;
T5 ;Betaalde bedrag in ;
T6 ;U mag enkel buitenlandse betalingen ingeven ;
T7 ;U mag enkel binnenlandse betalingen ingeven ;
T11 ;Bankcode ontbreekt voor leverancier ;
T12 ;ISO-landcode verschilt voor leverancier ;
 ;
T0F ;Préparation des paiements ;
T1F ;A[] = paiement de tous les docum.    N°.[] = paiement partiel;D[] = détail lignes enregistrées     N°,[] = solde ouvert-escompte;E[] = fin pour cette banque          N°-[] = annulation de la ligne;
T2F ;E[] = fin     ?[] = possibilités;
T3F ;Suite détail\"-[] = fin du détail   [] = ok";
T4F ;Numéro de ligne du document suivant à payer\;N°[] = paiement du montant ouvert\;
T5F ;Montant à payer en ;
T6F ;Vous ne pouvez enregistrer que des paiements internat. ;
T7F ;Vous ne pouvez enregistrer que des paiements nationaux ;
T11F ;Code bancair manque pour fournisseur ;
T12F ;Code pays ISO différent pour fournisseur ;
 ;
T0E ;Voorbereiden betalingen ;
T1E ;A[] = betaling alle documenten      Nr.[] = gedeeltelijke betaling;D[] = detail der geboekte lijnen    Nr,[] = openstaand saldo-kort.contant;E[] = einde voor deze bank          Nr-[] = annulatie ingegeven lijn;
T2E ;E[] = einde   ?[] = mogelijkheden;
T3E ;Vervolg overzicht\"-[] = einde detail   [] = ok";
T4E ;Lijnnummer van het volgend te betalen document\;Nr[] = betaling openstaande bedrag\;
T5E ;Betaalde bedrag in ;
T6E ;U mag enkel buitenlandse betalingen ingeven ;
T7E ;U mag enkel binnenlandse betalingen ingeven ;
T11E ;Bankcode ontbreekt voor leverancier ;
T12E ;ISO-landcode verschilt 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
 ;
 ; commentaar tonen
S1 W !,?2,$P($T(@("T1"_QT)),U,2),!,?2,$P($T(@("T1"_QT)),U,3),!,?2,$P($T(@("T1"_QT)),U,4) Q
S2 W !,?2,$P($T(@("T2"_QT)),U,2) Q
 ;
 ; hoofdvraag
1 S K="S2",R=$P($T(@("T4"_QT)),U,2)
11 S R="NR\21\2\"_R_K_"\5\\""ADE?""[K&($L(K)=1)!(K?1N.N&K)!(K?1N.N1P&("".,-""[$E(K,$L(K))))\\\1"
13 S CD=1,X1="" D R0 S:K="?" K="S1",R=$P($T(@("T4"_QT)),U,3) G Y:K="E",11:K="S1" I K="A"!(K="D") S:K="A" NR=0 D S7:K="A",S5:K="D" G 1
15 S:".,-"[$E(NR,$L(NR)) CD=3,X1=$E(NR,$L(NR)),NR=+NR S K=$D(@Q1) D @$S(K:2,1:"E3") G 1
 ;
 ; uitvoeren
2 S A=^(NR),FC=$P(A,D,2),NRX=NR S:FC="F" NRX=NR*1000 I $P(A,D,12)&(X1'="-") G E2:X1'="."!($P(A,D,12)'=2)
21 S LNR=$P(A,D),I1=@Q2,LEV=@Q3,FAC=+$P(^(1),D,10),TL=$P(LEV,D,9),BNK=$P(^(1),D)
23 I FAC S FAK=$P(^(1),D,11,17),BNK=$P(FAK,D,7)
25 G E1:BNK="" I BNK'?12N D  I BNK="" Q
 . S SWIFT=$P(^(2),D,5)
 . I 'SWIFT S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P(LEV,D,1,2),D," "),1,64) D F1 S BNK="" Q
 . S IL=$$SIG^cAFA1("SWIFT",SWIFT,105)             ; intern nummer
 . S IL=$$SIG^cAFA1("ISO.LAND",K,101)              ; letters landcode
 . I $E(BNK,1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P(LEV,D,1,2),D," "),1,64) D F1 S BNK="" Q
 ;
 ; adresgegevens
3 I FAC S REC=LNR_D_FAK G 4
31 S REC=LNR_D_$S($L($P(LEV,D,4)):$P(LEV,D,4)_" ",1:"")_$P(LEV,D,2)_D_$P(LEV,D,5,9)_D_BNK
 ;
 ; bedrag bepalen
4 S BE=$P(A,D,6)-$P(A,D,13) I X1="-" G S4:$D(@Q1),E3
 ;
 ; BF=muntcode boekh.  / HBF=muntcode bank
 ; VM=muntcode factuur / VM2=muntcode betaling
7 S KKB=0,KKX=$P(A,D,7),VM=$P(A,D,10) S:VM="" VM=BF ; I 'SWB,VM'=BF S R=227 D F2 Q
70 S SWEUR=VM=BF,VM2=VM I 'SWB,'SWEUR,VM=$P(BA39,D,7)!(VM=$P(BA39,D,9))!($P(BA39,D,7)=""&(VM="EUR")) S SWEUR=1,VM2=BF
71 I 'SWB,VNR<1001 S SWBB=$S(BNK?12N&SWEUR:0,1:1),$P(TREC,D,9)=SWBB
73 I SWBB,BNK?12N,SWEUR!(VM="EUR") S K=$P($T(@("T6"_QT)),U,2) D F1 Q
75 I 'SWBB,BNK'?12N!'SWEUR S K=$P($T(@("T7"_QT)),U,2) D F1 Q
77 S QA=$S($D(@("^"_Q_"BA(11,VM)")):+$P(^(VM),D,7),1:QD) G 8:X1="" I X1="," S BE=BE-KKX,KKB=KKX G 8
79 S R="K\21\2\"_$P($T(@("T5"_QT)),U,2)_VM_"\\8\\K?1N.N!(K?.N1"".""2N&QA)!(K=""-"")" D R0 Q:K="-"  G S6:K>BE S BE=K,CD=2
 ;
 ; lijn op scherm
 ; BE=bedrag in VM / BE2=bedrag in VM2
8 S BE2=BE I SWEUR S BE2=$$OMREK^cAFE1(Q,BE,VM,VM2,"F","")
80 S VNR=+VNR_D_(BE+$P(A,D,13)),LN=LN+1 I LN>19 S FP=501 W @F,@F1 K L S LN=4 G 80
81 S FP=LN*100+3,L(NR)=LN_D_LNR_D_VM2_" "_(+VNR) W @F,@F2,$J(NR,4)
83 S R=FC="C"*-2+1*BE_D_16_D_D_QA D R3 W " ",VM S FP=FP+30 W @F,$J(+REC,6)," ",$P(REC,D,2)
 ; lijn in bestand
9 S I1=VM2_" "_(+VNR),@%Q1=0,@Q51=REC_D_FC_D_NR_D_BE_D_KKB_D_$P(A,D,8)_D_$P(A,D,3)_D_$P(LEV,D,10)_D_VM_D_BE2_D_$P(A,D,9)_D
91 S:FC="C" BE2=-BE2,KKB=-KKB G 97:VM2=HBF I $P(A,D,6)=BE2 S BE2=$P(A,D,11),VM=BF
93 S BE2=$$OMREK^cAFE1(Q,BE,VM,HBF,"F",""),QA=HQD
95 S $P(@Q51,D,17)=BE2
97 S SOM=$P(@Q4,D)+BE2,$P(TREC,D)=SOM,$P(TREC,D,5)=VNR+1,^(DATUM)=TREC,R=SOM_D_14_D_D_HQD,FP=354 W @F D R3
99 S @Q1=$P(A,D,1,11)_D_CD_D_$P(VNR,D,2),VNR=VNR+1,@%Q1=1 Q
 ;
 ; eindcontrole
Y S LNR=0 I $O(@Q50)="" K @Q4
Y0 S LNR=$O(@Q50) G YZ:'LNR S I1=$O(^(LNR,0)),VM=$P(I1," "),(I1,X1)=0
Y1 S I1=$O(^(I1))
Y2 I $P(I1," ")=VM S K=^(I1),A=$P(K,D,11) S:$P(K,D,9)="C" A=-A S X1=X1+A G Y1
Y3 I X1'>0 S R=224 D F2 G 1
Y4 G Y0:I1="" S X1=0,VM=$P(I1," ") G Y2
YZ Q
 ;
 ; boodschappen
E1 S R=215 D F2 Q
E2 S R=218 D F2 Q
E3 S R=216 D F2 Q
 ;
 ; verwijderen
S4 I '$D(L(NR)) S R=219 D F2 Q
S4A S @Q1=$P(A,D,1,11)_D,LNR=$P(L(NR),D,2),I1=$P(L(NR),D,3),REC=@Q51 S FP=$P(L(NR),D)*100+3 W @F,@F2 K ^(I1)
S4B S Z=$P(REC,D,17) S:$P(REC,D,9)="C" Z=-Z S SOM=$P(@Q4,D)-Z,R=SOM_D_14_D_D_HQD,FP=354 W @F D R3 K L(NR) S ^(DATUM)=SOM_D_$P(TREC,D,2,99)
S4D S Z=$P(REC,D,11),Z=$P(A,D,13)-Z Q:Z'>0
S4E S @Q1=@Q1_D_Z_D_Z
 ; detail
S5 S I1=0,LN=4,LNR=0,FP=501 K L W @F,@F1
S5A S LNR=$O(@Q50) Q:'LNR
S5B S I1=$O(@Q51) G S5A:I1="" S REC=^(I1),LN=LN+1,QA=2,VM=$P(REC,D,16) S:VM="" VM=BF S:VM=BF QA=QD
S5C I LN>19 S R="K\21\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-""[K" D R0 Q:K="-"  S FP=501 W @F,@F1 K L S LN=5
S5D S FP=LN*100+3,Z1=$P(REC,D,10),Z=$P(REC,D,11) W @F,$J(Z1,4) S R=$P(REC,D,9)="C"*-2+1*Z_D_16_D_D_QA D R3 W " ",VM S FP=FP+30 W @F,$J(+REC,6)," ",$P(REC,D,2)
S5E S L(Z1)=LN_D_$P(REC,D)_D_I1
S5Z G S5B
S7 S NR=$O(@Q1),CD=3,X1="," Q:'NR  D 2:20[$P(^(NR),D,12) G S7  ; A[]=alles
S6 S R=217 D F2 G 79
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84