cAT17 ;Betalingsherinneringen ;%AT17 ;Go naar %AT170 ; [ 01/10/01 2:29 PM ] G 1 ; T0 ;Printen betalingsherinneringen ; T1 ;Gelieve de parameters boekhouding te verifiëren ; T2 ;De klant\klanten\alfabetische\alfabetische\KL\K1\1; T3 ;Referentie factuurdatum; T4 ;Referentie vervaldatum; T5 ;dd.mm.jj[] = bepaalde datum [] = ; T6 ;Vervaldatum kleiner dan factuurdatum ; T7 ;Selectie volgnummer; T8 ;[] = alle herinneringen t.e.m. ; x[] = enkel herinneringen met volgnummer x; T9 ;.[] = enkel herinneringen met volgnummer groter dan ; T10 ;Alle herinneringen t.e.m. ;groter dan ; T11 ;Wat afdrukken; T12 ;1[] = herinneringen 2[] = overzicht ;3[] = afzonderlijke overschrijvingen; T13 ;1,2[] = herinneringen + overzicht;x,.,x[] = combinatie van deze mogelijkheden; T14 ; + ;herinneringen;overzicht;afzonderlijke overschrijvingen; T15 ;Overzicht; T16 ;1[] = naam + totaal per klant 2[] = met adres per klant; T17 ;3[] = met detail per document; T18 ;Naam + totaal per klant;met adres per klant;met detail per document; T19 ;Herinneringen;- plaats smal papier op de printer en schakel hem aan; T20 ;Bevestiging; T21 ;[] = ok ,[] = hernemen; T22 ;Documenten na deze datum worden niet ;afgedrukt;als vervallen beschouwd; ; T0F ;Edition des rappels ; T1F ;Veuillez vérifier les paramètres comptables ; T2F ;Client\clients\alphabétique\alphabétique\KL\K1\1; T3F ;Référence date de facture; T4F ;Référence date d'échéance; T5F ;jj.mm.aa[] = date spécifique [] = ; T6F ;Date d'échéance précède la date de facture ; T7F ;Sélection du numéro; T8F ;[] = rappels entre 1 et ; (compris) x[] = seulement rappels avec numéro x; T9F ;.[] = seulement rappels avec numéro supérieur à ; T10F ;Rappels de 1 à ;supérieur à ; T11F ;Imprimer quoi; T12F ;1[] = rappels 2[] = aperçu ;3[] = form. de virements sépares; T13F ;1,2[] = rappels + aperçu;x,.,x[] = combinaison de ces possibilités; T14F ; + ;rappels;aperçu;form. virements séparés; T15F ;L'apercu; T16F ;1[] = nom + total par client 2[] = avec adresse du client; T17F ;3[] = avec détail par document; T18F ;Nom + total par client;avec adresse du client;avec détail par document; T19F ;Rappels;- mettez du papier A4 dans l'imprimante et mettez-la en marche; T20F ;Confirmation; T21F ;[] = ok ,[] = reprendre; T22F ;Documents après cette date ne seront pas ;imprimés;considérés échus; ; T0E ;Print reminder of payment ; T1E ;Please verify the settings accounting ; T2E ;The customer\customers\alphabetic\alphabetic\KL\K1\1; T3E ;Reference of invoice date; T4E ;Reference of due date; T5E ;dd.mm.yy[] = particular date [] = ; T6E ;Due date smaller than invoice date ; T7E ;Selection number; T8E ;[] = all reminders until ; x[] = only reminders with number x; T9E ;.[] = only reminders with number larger than ; T10E ;Only reminders until ;greater than ; T11E ;What to print; T12E ;1[] = reminders 2[] = survey ;3[] = transfer documents; T13E ;1,2[] = reminders + survey;x,.,x[] = combination of these possibilities; T14E ; + ;reminders;survey;transfer documents; T15E ;Survey; T16E ;1[] = name + total per customer 2[] = with address per customer; T17E ;3[] = with detail per document; T18E ;Nme + total per customer;with address per customer; with detail per document; T19E ;Reminders;- prepare for printing once more; T20E ;Confirmation; T21E ;[] = ok ,[] = retry; T22E ;Documents after this date are not ;printed;considered as overdue; ; 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 (P33,P39,P74)="" S:$D(@("^"_Q_"BA(33)")) P33=^(33) G 19:'$P(P33,D,12) I $P(P33,D,6),'$P(P33,D,7),'$L($P(P33,D,17)) G 19 13 S:'$L($P(P33,D,3)) $P(P33,D,3)=3 S:'$P(P33,D,5) $P(P33,D,5)=1 14 S:$D(^(39)) P39=^(39) F I=1:1:3 I $P(P39,D,I)="" S $P(P39,D,I)=$P("BEF\N\BE",D,I) 15 S:$D(^(74)) P74=^(74) S:'$P(P74,D,2) $P(P74,D,2)=25 F I=1,4 I '$P(P74,D,I) S $P(P74,D,I)=9 17 G 2 19 S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ ; 2 S TXT=$P($T(@("T2"_QT)),U,2) D ^cA306 G YZ:K="-" 21 I LIM2'="",LIM2'=" " S $P(KEU("KL"),D,2)=1,LIM1("KL")=LIM1,LIM2("KL")=LIM2 ; 3 S R="RFD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C4\8\DCTR" D R0 G 2:K="-"!(K=",") S:K="" RFD=DT 31 S FP=1403 W @F,@F1,$P($P($T(@("T3"_QT)),U,2)," ",2,99) S FP=1416 W @F,": ",RFD ; 4 S R="RVD\22\3\"_$P($T(@("T4"_QT)),U,2)_"\C4\8\DCTR" D R0 S:K="" RVD=DT I K="-"!(K=",") S FP=1403 W @F,@F1 G 3 41 S R=RVD_D_RFD D ^cA326 I R<0 S K=$P($T(@("T6"_QT)),U,2) D TXT^cAFA1(250) G 4 43 S FP=1503 W @F,@F1,$P($P($T(@("T4"_QT)),U,2)," ",2,99) S FP=1516 W @F,": ",RVD ; 5 S R="VNR\22\3\"_$P($T(@("T7"_QT)),U,2)_"\C1\1\\K?.N&K&(K'>$P(P33,D,12))!(""-,.""[K)" D R0 G 2:K="," I K="-" S FP=1503 W @F,@F1 G 4 51 S:"."[K K=$S($L(K):$P($T(@("T10"_QT)),U,3),1:$P($T(@("T10"_QT)),U,2))_$P(P33,D,12) S FP=1703 W @F,@F1,$P($P($T(@("T7"_QT)),U,2)," ",2,99) S FP=1716 W @F,": ",K ; 6 S R="WAD\22\3\"_$P($T(@("T11"_QT)),U,2)_"\C2\"_$S($P(P33,D,6)=2:5,1:3)_"\K1" D R0 G 2:K="," I K="-" S FP=1703 W @F,@F1 G 5 61 S FP=1803 W @F,@F1,$P($P($T(@("T11"_QT)),U,2)," ",2,99) S FP=1816 W @F,": " 63 F I=1:1:3 I K[I W $P($T(@("T14"_QT)),U,I+2) W:$L($P(K,",",I+1))!(K[(I+1)) $P($T(@("T14"_QT)),U,2) 65 G 8:K'[2 ; 7 S R="OVZ\22\3\"_$P($T(@("T15"_QT)),U,2)_"\C3\1\\""-,123""[K&$L(K)" D R0 G 2:K="," I K="-" S FP=1803 W @F,@F1 G 6 71 S FP=1903 W @F,@F1,$P($T(@("T15"_QT)),U,2) S FP=1916 W @F,": ",$P($T(@("T18"_QT)),U,K+1) ; ; S R="K\22\3\"_$P($T(@("T"_$S(WAD[1:19,1:20)_QT)),U,2)_"\"""_$P($T(@("T21"_QT)),U,2)_"""\1\\""-,""[K" D R0 G 2:K="," 8 I WAD[1 D ^cAN3223($P($T(@("T19"_QT)),U,2),"1") I WAD'[1 S R="K\22\3\"_$P($T(@("T20"_QT)),U,2)_"\"""_$P($T(@("T21"_QT)),U,2)_"""\1\\""-,""[K" D R0 G 2:K="," 81 I K="-" S FP=$S(WAD[2:1903,1:1803) W @F,@F1 G 7:WAD[2,6 83 G ^cAT170 ; YZ K ^HULP(boot,$J),^($J+.01),^($J+.02) 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 ; C1 W:$G(QW) /WWR(1) W !?3,$P($T(@("T8"_QT)),U,2),$P(P33,D,12),$P($T(@("T8"_QT)),U,3),!?2,$P($T(@("T9"_QT)),U,2),$P(P33,D,12) W:$G(QW) /WWR(0) Q C2 W !?2,$P($T(@("T12"_QT)),U,2) W:$P(P33,D,6)=2 $P($T(@("T12"_QT)),U,3) W !?2,$P($T(@("T13"_QT)),U,($P(P33,D,6)=2)+2) Q C3 W !?2,$P($T(@("T16"_QT)),U,2),!?2,$P($T(@("T17"_QT)),U,2) Q C4 W !?2,$P($T(@("T5"_QT)),U,2),DT,!?2,$P($T(@("T22"_QT)),U,2),$P($T(@("T22"_QT)),U,$P(R,D)="RVD"+3) Q ; K1 ;";1;1,2;1,3;1,2,3;1,3,2;2;2,1;2,3;2,1,3;2,3,1;3;3,1;3,2;3,1,2;3,2,1;"[(U_K_U)&($P(P33,D,6)=2)!(";1;1,2;2;2,1;"[(U_K_U))!("-,"[K&($L(K)=1)) ; ZZ ; 15.12.05 - 12 u 16 * V8.05