cAT180 ;BETALING FAKTUREN ;%AT18 ;overlay %AT18,%AT181 [ 01/02/01  2:21 PM ]
 G 1
 ;
T0 ;Betaling facturen ;
T1 ;Factuurnummer\SC1;D[] = detail   V[] = voorschot;   [] = vervolg;E[] = einde    F[] = factuur terug openstellen;
T2 ;Betaalde bedrag\SC2;
T3 ;Openstaand saldo\".[] = verschil blijft   K[] = korting contant";
 ;
T0F ;Paiement des factures ;
T1F ;Numéro de facture\SC1;D[] = détail   V[] = acompte;   [] = suite;E[] = fin      F[] = réouvrir une facture;
T2F ;Montant payé\SC2;
T3F ;Solde impayé\".[] = différence reste   K[] = escompte comptant";
 ;
T0E ;Payment of invoices ;
T1E ;Invoice number\SC1;D[] = detail   V[] = advance;   [] = next;E[] = end    F[] = open invoice again;
T2E ;Payed amount\SC2;
T3E ;Outstanding balance\".[] = difference stays   K[] = in cash discount";
 ;
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
 ;
S1 S FP=1401 W @F,@F1 K A F C=14:1:20 S C(C)=""
S1Z S C=14 Q
 ;
S2 S FP=420 W @F,FNR F K=1:1:3 S FP=FP+100 W @F,$P(L,D,K)
S2A F K=4:1:6 S FP=FP+100 W @F S R=$P(L,D,K)_"\12\\"_QD D R3
S2B S FP=FP+100 W @F,@F2,$P(L,D,7) F FP=959,1059 W @F,@F2
S2Z Q
 ;
S3 F FP=420:100:1120,959,1059 W @F,$J("",15)
S3Z Q
 ;
1 S I2=99999 D S1,S3
11 S I2=$O(@("^"_Q_"KL(I1,I2)")),SW=0 G 2:I2'?6N S C(C)=I2,A(I2)=C,L=^(I2)
13 S FP=C*100+1 W @F,$$CR^cA334 W $P(L,D),?2,I2,?9,$P(L,D,2),?18,$P(L,D,3)
15 F K=4:1:6 S R=$P(L,D,K)_"\10\"_$P("\\\27\38\49",D,K)_D_QD D R3
17 W ?60,$E($P(L,D,7),1,15) I C<20 S C=C+1 G 11
19 S SW=$O(^(I2))?6N I SW,HFNR,'$D(A(HFNR)) S K="" G 21
 ;
2 I HFNR,$D(A(HFNR)) S K=HFNR,HFNR=0 G 23
20 S R="X\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\""-,DVEF""[K&($L(K)!SW)!(K?6N&K)\\\1" D R0 G 2^cAT18:K="-"!(K=","),YZ:K="E",4:K="V"!(K="F")
21 I "D"[K S:K="D" I2=99999 D S1 G 11
23 S FNR=+K I '$D(A(FNR)) D TXT^cAFA1(219) G 2
25 S FP=A(FNR)*100+2 W @F,"*" S L=@("^"_Q_"KL(I1,FNR)") D S2
 ;
3 S OPE=$P(L,D,5),R="B\22\3\"_$P($T(@("T2"_QT)),U,2)_"\10\INCTR" D R0 I K="-"!(K=",") S FP=A(FNR)*100+2 W @F," " G 2
31 S:K="" B=OPE S FP=959,R=B_"\12\\"_QD W @F D R3 S OPE=OPE-B,FP=1059,R=OPE_"\12\\"_QD W @F D R3
33 I 'OPE S @%Q1=0 K @("^"_Q_"VF(FNR)"),@("^"_Q_"KL(I1,FNR)") G 39
35 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.K""[K&$L(K)\\\1" D R0 G 3:K="-",2:K="," I K="K" S OPE=0 G 33
37 S @%Q1=0,$P(@("^"_Q_"KL(I1,FNR)"),D,5)=OPE,$P(^(FNR),D,10)=OPE
39 S @%Q1=1 G 1
 ;
4 D S3 S K=$S(X="V":17,1:1)_"^cAT181" G @K
 ;
YZ Q
 ;
SC1 W !?2,$P($T(@("T1"_QT)),U,3) W:SW $P($T(@("T1"_QT)),U,4) W !?2,$P($T(@("T1"_QT)),U,5) Q
SC2 W !?2,"[] = ",$J(OPE,0,QD) Q
 ;
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
 ;
INCTR ;"-,"[K!(K?.N)!(K?.N1".".N&QD&($L($P(K,".",2))'>QD))
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84