cA321 ;OVERSCHRIJVINGSORDER ;%A321 ; [ 04/12/00   9:06 AM ]
 G 1
 ;
 ; R="atl keer drukken\protokolnr\naam bank\switch niet-lonen\kode toepassing\btw nr\nr diskette\"
 ; R1="reknr og\uitv dat\afk bank\atl opnamen\atl opdrachten\totaal bedragen\totaal reknrs\"
 ;
T0 ;Overschrijvingsorder ;
T1 ;Blz :;
T2 ;Datum ontvangst;code/naam financiele instelling;niet-;lonen;
T3 ;Code toepassing;naam opdrachtgever;plaats opdrachtgever;identificatienr.;volgnr.;
T4 ;Nummer diskette;type diskette;schrijfcode;soepele schijf;ascii;
T5 ;Te debiteren rek.;gevr. uitvoeringsdatum;bestandsnaam;opnamen;opdrachten;totaal bedragen;totaal rek.nrs.;
T6 ;Handtekening opdrachtgever;handtekening geadresseerde;
 ;
T0F ;Ordre de virement ;
T1F ;Page:;
T2F ;Date reception;code/ nom organisme financier;non-;salaires;
T3F ;Code application;nom donneur d'ordre;lieu donneur d'ordre;no. identification;no. seq;
T4F ;No DISQUETTE;TYPE PORTEUR;CODE ECRITURE;FLOPPY DISK;ASCII;
T5F ;Compte a debiter;date d'execution desire;nom fichier;inscriptions;virements;montant total;total n°s compte;
T6F ;Signature donneur d'ordre;signature organisme financier;
 ;
T0E ;Overschrijvingsorder ;
T1E ;Blz :;
T2E ;Datum ontvangst;code/naam financiele instelling;niet-;lonen;
T3E ;Code toepassing;naam opdrachtgever;plaats opdrachtgever;identificatienr.;volgnr.;
T4E ;Nummer diskette;type diskette;schrijfcode;soepele schijf;ascii;
T5E ;Te debiteren rek.;gevr. uitvoeringsdatum;bestandsnaam;opnamen;opdrachten;totaal bedragen;totaal rek.nrs.;
T6E ;Handtekening opdrachtgever;handtekening geadresseerde;
 ;
S1 W !,":------" F R2=1:1:12 W "----------"
S1Z W ":" K R2 Q
 ;
S2 W !,":",?20,":",?127,":" Q
 ;
S3 D S2 W $$CR^cA334,?117,":" Q
 ;
S4 D S2 W $$CR^cA334,?45,":",?60,":",?75,":",?90,":",?108,":" Q
 ;
S5 W !,":",?60,":",?127,":" Q
 ;
1 S:'$D(BLZ) BLZ=0 G YZ:BLZ'<$P(R,D) S BLZ=BLZ+1
11 W !,QN,?120,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?40,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334,?120,DT,!,NM3,?121,TD,!!
13 D S1,S2 S R2=$T(@("T2"_QT)) W $$CR^cA334,?2,$P(R2,U,2),?22,$P(R2,U,3) S R2=$P(R2,U,$S($P(R,D,4):4,1:9))_$P(R2,U,5) W ?125-$L(R2),R2
15 D S2,S2 W $$CR^cA334,?6,"../../..",?22,$J($P(R,D,2),6),?32,$P(R,D,3) D S2
 ;
2 D S1,S3 S R2=$T(@("T3"_QT)) W $$CR^cA334,?2,$P(R2,U,2),?22,$P(R2,U,3),?60,$P(R2,U,4),?98,$P(R2,U,5),?119,$P(R2,U,6)
21 D S3,S3 W $$CR^cA334,$J($P(R,D,5),12),?22,QN,?60,NM2,?98,$P(R,D,6)
23 D S3 W $$CR^cA334,?60,NM3
 ;
3 D S1,S2 S R2=$T(@("T4"_QT)) W $$CR^cA334,?2,$P(R2,U,2),?22,$P(R2,U,3),?92,$P(R2,U,4)
31 D S2,S2 S R2=$T(@("T4"_QT)) W $$CR^cA334,?2,$P(R,D,7),?22,$P(R2,U,5),?92,$P(R2,U,6) D S2
 ;
4 D S1,S4 S R2=$T(@("T5"_QT)) W $$CR^cA334 F K=1:1:7 W ?$P("2\22\47\62\77\92\110",D,K),$P(R2,U,K+1)
41 D S4,S4 W $$CR^cA334 F K=1:1:7 W ?$P("2\22\47\62\77\92\110",D,K),$P(R1,D,K)
43 D S4
 ;
5 D S1,S5 S R2=$T(@("T6"_QT)) W $$CR^cA334,?2,$P(R2,U,2),?62,$P(R2,U,3)
51 F K=1:1:10 D S5
53 D S1 W $$FF^cA334 G 1
 ;
YZ K R,R1,R2 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84