cT17 ;WIJZIGEN AGING-PERIODES LEVERANCIERS ;%T17; [ 01/10/01  2:34 PM ]
 G 1
 ;
T0 ;Aging-periodes leveranciers ;
T1 ;Periode 1 : Vervallen     facturen ouder dan  ...  dagen;
T2 ;Vervallen     facturen van ;Te verwachten facturen van ;
T3 ;Periode ; tot ; dagen;
T4 ;Periode 5 : Te verwachten facturen verder dan  ... dagen;
T5 ;Periode 1: Vervallen facturen ouder dan ... dagen\"-[] = einde programma";
T6 ;Periode ;: Facturen van ... tot ... dagen\"Vxxx-xxx voor vervallen facturen   Nxxx-xxx voor niet vervallen facturen";
T7 ;Periode 5:Te verwachten facturen verder dan ... dagen;
T8 ;Wijzigingen ok\"[] = ok   ,[] = hernemen";
T9 ;Opmerking : De jongste vervallen periode moet eindigen op 0 dagen.;De eerste te verwachten periode moet beginnen op 1 dag.;De periodes lopen van ... dagen tot en met ... dagen.;
T10 ;Periodes 2 tot en met 4 :;voor vervallen facturen moet het 1e cijfer groter zijn dan het 2e;en voor te verwachten facturen omgekeerd.;
 ;
T0F ;Périodes d'ancienneté fournisseurs ;
T1F ;Période 1 : Factures échues plus de           ...  jours;
T2F ;Factures échues entre     ;Factures en attente entre ;
T3F ;Période ;  et  ; jours;
T4F ;Période 5 : Factures en attente plus de        ... jours;
T5F ;Période 1: Factures échues plus de ... jours\"-[] = fin du programme";
T6F ;Période ;: Période entre ... et ... jours\"Vxxx-xxx pour des factures échues  Nxxx-xxx pour des factures non échues";
T7F ;Période 5: Factures en attente plus de       ... jours;
T8F ;Modifications ok\"[] = ok   ,[] = reprendre";
T9F ;Remarque  : La dernière période d'échéance doit se terminer à 0 jours.;La première période à exptecter doit commencer à 1 jour.;Les périodes s'étendent de ... jours à ... jours inclus.;
T10F ;Périodes 2 à 4 inclus :;pour les fact. échues, le 1ier chiffre doit être oblig.;supérieur au 2e et pour les fact. en attente l'inverse.;
 ;
T0E ;Aging periods suppliers ;
T1E ;Period 1 : Overdue       invoices older than ...  days;
T2E ;Overdue        invoices of ;Invoices to expect from ;
T3E ;Period ; until ; days;
T4E ;Period 5 : Invoices to expect older than  ... days;
T5E ;Period 1: Overdue invoices older than ... days\"-[] = end program";
T6E ;Period ;: Invoices from ... until ... days\"Vxxx-xxx for overdue invoices     Nxxx-xxx for not overdue invoices";
T7E ;Period 5:Invoices to be expected further than ... days;
T8E ;Modifications ok\"[] = ok   ,[] = retry";
T9E ;Remark : The youngest overdue period must end on 0 days.;The first expected period must start on 1 day.;The periods go from ... days until ... days.;
T10E ;Periods 2 until 4 :;The first cipher must be greater than the second for overdue;invoices and the opposite for expected invoices.;
 ;
1 B 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
2 S A=@("^"_Q_"BA(17)"),FP=403 W @F,$P($T(@("T1"_QT)),U,2) S FP=449 W @F,$J($P(A,D,1),4)
21 S K=$T(@("T3"_QT)) F X=2:1:4 S R=$P(A,D,X),FP=X*100+303 W @F,$P(K,U,2),X," : ",$P($T(@("T2"_QT)),U,$E(R,1)="N"+2),$J($E($P(R,"-",1),2,6),3),$P(K,U,3),$J($P(R,"-",2),3),$P(K,U,4)
22 S K=$P(A,D,5) S:+$P(A,D,6) K=$E(K,2,99)-1 S FP=803 W @F,$P($T(@("T4"_QT)),U,2) S FP=849 W @F,$J(K,4)
23 S FP=1003,K=$T(@("T9"_QT)) W @F,$P(K,U,2) S FP=1115 W @F,$P(K,U,3) S FP=1215 W @F,$P(K,U,4)
24 S FP=1415,K=$T(@("T10"_QT)) W @F,$P(K,U,2) S FP=1515 W @F,$P(K,U,3) S FP=1615 W @F,$P(K,U,4)
3 S X=2,R="A(1)\22\3\"_$P($T(@("T5"_QT)),U,2)_"\3\\K?1N.N!(K=""-"")" D R0 G YZ:K="-" S FP=449 W @F,$J(K,4)
31 S K=$T(@("T6"_QT)),R="A(X)\22\3\"_$P(K,U,2)_X_$P(K,U,3)_"\7\\""VN-""[$E(K,1)&((K=""-"")!(K?1U1N.N1""-""1N.N&(K'?.E4N.E)))\\\1" D R0,L S X=X+1 G 3:X<2,31:X<5
4 S X=4,R="A(5)\22\3\"_$P($T(@("T7"_QT)),U,2)_"\\3\\K?1N.N!(K=""-"")" D R0 G 31:K="-" S:A(5)<5 A(5)=0 S FP=849 W @F,$J(A(5),4)
5 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\"",-""[K" D R0 G 3:K=",",4:K="-"
50 S I=1,R1=A(1)+1,R2=$P($E(A(2),2,99),"-",1),R3="V",R4=$E(A(2),1),R5=-999,SW=0 D TEST G FOUT:SW
51 F I=2,3 S R1=$P(A(I),"-",2),R2=$P($E(A(I+1),2,6),"-",1),R3=R4,R4=$E(A(I+1),1) D TEST
52 G FOUT:SW S I=4,R1=$P(A(4),"-",2),R2=A(5)+1,R3=R4,R4="N" D TEST G FOUT:SW
55 B 0 S @%Q1=0,@("^"_Q_"BA(17)")=A(1)_D_A(2)_D_A(3)_D_A(4)_D_A(5)
 ;
YZ Q
 ;
FOUT D TXT^cAFA1(18) G 5
TEST S:R3'=R4&'((R1=0)&(R2=1)) SW=1 S:R3="V" R1=-R1 S:R4="V" R2=-R2 I R1'=(R2-1) S:R3=R4 SW=1
 S:R1'>R5 SW=1 S R5=R1 Q
L I K'="-" S FP=X*100+315 W @F,$P($T(@("T2"_QT)),U,K["N"+2),$J($E($P(K,"-",1),2,6),3),$P($T(@("T3"_QT)),U,3),$J($P(K,"-",2),3) Q
LZ S X=X-2 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84