cT35 ;WIJZIGEN VERVALDATUM ;%T35 ;overlay %T350 ; [ 01/11/01  3:06 PM ]
 ;
T0 ;Wijzigen vervaldatum ;
T1 ;Nr. document;Factuur/C.N.;Datum document;Vervaldatum;Totaal bedrag;Openstaand;Kort.contant;Referte;Bet. voorstel;
T2 ; Nummer Dat.doc. Vervald.   Tot.doc. Openstaand Kort.cont. Referte            ;Lev.  :;
T3 ;Nummer document\"[] = via leverancier   -[] = einde programma";
T4 ;De leverancier; werd verwijderd ;
 ;
T0F ;Modification de l'échéance ;
T1F ;N° document;Facture/N.C.;Date document;Echéance;Montant total;Solde;Esc. comptant;Référence;Prop.paiement;
T2F ; Numéro Date doc Echéance   Tot.doc.      Solde Esc.compt. Référence          ;Fourn.:;
T3F ;N° du document\"[] = par fournisseur   -[] = fin du programme";
T4F ;Fournisseur; a été annulé ;
 ;
T0E ;Modification of due date ; 
T1E ;Document nr;Invoice/C.N.;Document date;Due date;Total amount;Outstand.;In cash disc.;Ref.;Payment prop.;
T2E ; Number Doc.date Due date   Doc.tot. Outstand.  I.c. disc. Ref.               ;suppl.:;
T3E ;Document number\"[] = via supplier   -[] = end program";
T4E ;The supplier; has been removed ;
 ;
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
10 S SWX=$P(@("^"_Q_"BA(""%T"",2)"),D,5)
11 S FP=301 W @F,@F1 F K=2:1:9+SWX S FP=K*100+202 W @F,@F6,$P($T(@("T1"_QT)),U,K),@F9 S FP=FP+16 W @F,":"
13 S R="440\879",RH="640#648",RV="648#848" D ^cA319 S FP=542 W @F,$P($T(@("T2"_QT)),U,3) S FP=1301 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F1
 ;
2 L  S FP=1401,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\6\\""-""[K!(K?6N&K)" W @F,@F1 D R0 G YZ:K="-",3:K?6N
21 S HFNR=0,R="I1\1500\"_$P($T(@("T4"_QT)),U,2)_"\LE\L1",SR="^cA101" S:$D(@("^"_Q_"LE(0,5)")) SR=^(5) D @SR G 2:K="-"
23 S FP=742 W @F,$J($P(^(I1,0),D),5) S FP=550 W @F,$J("",28),@F,$P(^(0),D,2) S FP=650 W @F,$J("",28),@F,$P(^(0),D,5)
25 S K=$P(^(0),D,6) S:$L(K) K=K_" " S K=$E(K_$P(^(0),D,7),1,28),FP=750 W @F,$J("",28),@F,K
27 L @("^"_Q_"LE(I1)"):2 E  S R=14 D F2 G 2
29 G ^cT350
 ;
3 I '$D(@("^"_Q_"AF(K)")) S R=86 D F2 G 2
31 S HFNR=K,K=$P(^(K),D) S:K[" " K=$P(K," ",2) I '$D(@("^"_Q_"L1(K)")) D E1 G 2
33 S I1=^(K) I '$D(@("^"_Q_"LE(I1)")) D E1 G 2
35 G 23
 ;
YZ Q
 ;
E1 S K=$P($T(@("T4"_QT)),U,2)_" "_K_$P($T(@("T4"_QT)),U,3) D F1 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
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84