cT59 ;Betalingsvoorstel leveranciers ;%T59 ;%T59* ; [ 11/20/96  2:35 PM ]
 G 1
 ;
T0 ;Betalingsvoorstel leveranciers ;
T1 ;Er zijn overschrijvingen ingegeven die nog niet werden geprint\".[] = gegevens behouden   V[] = overschrijvingen verwijderen";
T2 ;"U krijgt een lijst van alle documenten die vandaag vervallen zijn.";"";
T3 ;"Ook worden de documenten afgedrukt die vervallen binnen een periode";"van ",ATL," dagen vanaf vandaag.";
T4 ;Aantal dagen\"-[] = einde programma   nn[] = aantal dagen";
T5 ;Leveranciersadres\"[] = niet vermelden   .[] = wel vermelden";zonder ;met ;
 ;
T0F ;Edition proposition de paiement ;
T1F ;Il y a des virements qui ne sont pas encore imprimés\".[] = garder les données   V[] = radier les virements";
T2F ;"Le programme vous imprimera une liste des documents échus";"";
T3F ;"ainsi que des documents qui echoivent dans";"les ",ATL," jours à partir d'aujourd'hui.";
T4F ;Nombre de jours\"-[] = fin du programme   nn[] = nombre de jours";
T5F ;Adresse du fournisseur\"[] = ne pas mentionner   .[] = mentionner";sans ;avec ;
 ;
T0E ;Betalingsvoorstel leveranciers ;
T1E ;Er zijn overschrijvingen ingegeven die nog niet werden geprint\".[] = gegevens behouden   V[] = overschrijvingen verwijderen";
T2E ;"U krijgt een lijst van alle documenten die vandaag vervallen zijn.";"";
T3E ;"Ook worden de documenten afgedrukt die vervallen binnen een periode";"van ",ATL," dagen vanaf vandaag.";
T4E ;Aantal dagen\"-[] = einde programma   nn[] = aantal dagen";
T5E ;Leveranciersadres\"[] = niet vermelden   .[] = wel vermelden";zonder ;met ;
 ;
1 I QP 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 L @("^"_Q_"L2"):2 E  D F1:QP G YZ
13 S ATL=0,I1="",BF=$$BF^cAFA1
 ;
2 S I1=$O(@("^"_Q_"L3(I1)")),I2="" G 27:I1=""
21 S I2=$O(@("^"_Q_"L3(I1,I2)")) G 2:I2="" S L=^(I2) G 21:$P(L,D,4),21:$O(^(I2,0))="",YZ:'QP
23 D S1 W $P(L,D,2) S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.V""[K&$L(K)\\\1" D R0 G YZ:K'="V"
25 K @("^"_Q_"L3(I1,I2)") D S1 G 21
27 I 'QP S KEU("LE")=PP(1),LIM1("LE")=PP(2),LIM2("LE")=PP(3),ATL=PP(4),ADR=PP(5) K PP G 4
29 D S2
 ;
3 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\K=""-""!(K?.N)" D R0 G YZ:K="-" S ATL=+K D S2
31 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K" D R0 G 3:K="-" S ADR=$L(K)
33 S K=$P($T(@("T5"_QT)),U,3+ADR)_$$LC^cAFA1($P($P($T(@("T5"_QT)),U,2),D)) W /CUP(10,3),$$UC^cAFA1($E(K)),$E(K,2,99),@F2
35 D ^cAN003(12,"LE") G 31:K="-"
37 S R=1_D_(KEU("LE")="") D ^cA345 G 35:K="-",1:K=","
39 I K="." S PP(1)=KEU("LE"),PP(2)=LIM1("LE"),PP(3)=LIM2("LE"),PP(4)=ATL,PP(5)=ADR,QPT=$T(+0) D ^cA109 G YZ
 ;
4 G ^cT590
 ;
YZ Q
 ;
S1 S FP=2003 W @F,@F1 Q
 ;
S2 S FP=301 W @F F K=2,3 S L=$T(@("T"_K_QT)) F R=2:1 Q:$P(L,U,R)=""  W !?2,@$P(L,U,R),@F2
S2Z Q
 ;
F1 D TXT^cAFA1(14) 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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84