cA343 ;GELEIBORDEREL DOMICILIERINGEN ;%A343 ; [ 08/30/94  1:34 PM ]
 G 1
 ;
 ; input : PRO,BNM,IDE,INS,BNR,UIT,TEL,TOT,TDO,TNR
 ;
T0 ;Geleiborderel domiciliëringen ;
T1 ;Geleiborderel;
T2 ;Datum + uur;ontvangst;
T3 ;Code fin. inst.;naam fin. inst.;
T4 ;Toepassingscode;
T5 ;Afgever;adres;woonplaats;identificatie;
T6 ;Type drager;inschr. nummer;schrijfcode;
T7 ;Schuldeiser;identificatie;rekeningnummer;uitvoeringsdatum;
T8 ;Bestand;aard;aantal opnamen;totaal bedrag;totaal dom. nrs.;
T9 ;Diskette;ascii;
T10 ;Handtekening;afgever;;financiele;instelling;
 ;
T0F ;Bordereau des domiciliations ;
T1F ;Bordereau;
T2F ;Date + heure;reception;
T3F ;Code inst. fin.;nom inst. fin.;
T4F ;Code application;
T5F ;Source;adresse;localité;identification;
T6F ;Type porteur;numéro d'inscr.;code écriture;
T7F ;Destination;identification;numéro compte;date d'execution;
T8F ;Fichier;genre;nombre d'enreg.;montant total;total des n°s dom.;
T9F ;Disquette;ascii;
T10F ;Siganture;source;;institution;financiere;
 ;
T0E ;Geleiborderel domiciliëringen ;
T1E ;Geleiborderel;
T2E ;Datum + uur;ontvangst;
T3E ;Code fin. inst.;naam fin. inst.;
T4E ;Toepassingscode;
T5E ;Afgever;adres;woonplaats;identificatie;
T6E ;Type drager;inschr. nummer;schrijfcode;
T7E ;Schuldeiser;identificatie;rekeningnummer;uitvoeringsdatum;
T8E ;Bestand;aard;aantal opnamen;totaal bedrag;totaal dom. nrs.;
T9E ;Diskette;ascii;
T10E ;Handtekening;afgever;;financiele;instelling;
 ;
1 S HD(1)=D,HD(2)=D_$P($T(@("T1"_QT)),U,2)_";C;F82",HD(3)=D,TAB="20\79"
 ;
2 S TXT(1)=$P($T(@("T2"_QT)),U,2)_"\\1",TXT(2)=D D ^cA334
21 S TXT(1)=$P($T(@("T2"_QT)),U,3)_"\\1",TXT(2)=D D ^cA334
23 S END=3 D ^cA334
 ;
3 S TXT(1)=$P($T(@("T3"_QT)),U,2)_"\\1",TXT(2)=PRO_"\\1" D ^cA334
31 S TXT(1)=$P($T(@("T3"_QT)),U,3)_"\\1",TXT(2)=BNM_"\\1" D ^cA334
33 S END=3 D ^cA334
35 S TXT(1)=$P($T(@("T4"_QT)),U,2)_"\\1",TXT(2)="02\\1" D ^cA334
37 S END=3 D ^cA334
 ;
4 S TXT(1)=$P($T(@("T5"_QT)),U,2)_"\\1",TXT(2)=QN_"\\1" D ^cA334
41 S TXT(1)=$P($T(@("T5"_QT)),U,3)_"\\1",TXT(2)=@("^"_Q_"BA(99,2)")_"\\1" D ^cA334
43 S TXT(1)=$P($T(@("T5"_QT)),U,4)_"\\1",TXT(2)=@("^"_Q_"BA(99,3)")_"\\1" D ^cA334
45 S TXT(1)=$P($T(@("T5"_QT)),U,5)_"\\1",TXT(2)=IDE_"\\1" D ^cA334
47 S END=3 D ^cA334
 ;
5 S TXT(1)=$P($T(@("T6"_QT)),U,2)_"\\1",TXT(2)=$P($T(@("T9"_QT)),U,2)_"\\1" D ^cA334
51 S TXT(1)=$P($T(@("T6"_QT)),U,3)_"\\1",TXT(2)=INS_"\\1" D ^cA334
53 S TXT(1)=$P($T(@("T6"_QT)),U,4)_"\\1",TXT(2)=$P($T(@("T9"_QT)),U,3)_"\\1" D ^cA334
55 S END=3 D ^cA334
 ;
6 S TXT(1)=$P($T(@("T7"_QT)),U,2)_"\\1",TXT(2)=QN_"\\1" D ^cA334
61 S TXT(1)=$P($T(@("T7"_QT)),U,3)_"\\1",TXT(2)=IDE_"\\1" D ^cA334
63 S TXT(1)=$P($T(@("T7"_QT)),U,4)_"\\1",TXT(2)=BNR_"\\1\\\\"_^BA(6,"B",2) D ^cA334
65 S TXT(1)=$P($T(@("T7"_QT)),U,5)_"\\1",TXT(2)=UIT_"\\1" D ^cA334
67 S END=3 D ^cA334
 ;
7 S TXT(1)=$P($T(@("T8"_QT)),U,2)_"\\1",TXT(2)=$P(^HULP("TR",Q,TNR,0),D,6)_"\\1\\\\$TR(K,"";"",$C(92))" D ^cA334
71 S TXT(1)=$P($T(@("T8"_QT)),U,3)_"\\1",TXT(2)="0\\1" D ^cA334
73 S TXT(1)=$P($T(@("T8"_QT)),U,4)_"\\1",TXT(2)=TEL_"\\1\\\\$TR($FN(K,"",""),"","",""."")" D ^cA334
75 S TXT(1)=$P($T(@("T8"_QT)),U,5)_"\\1",TXT(2)=TOT_"\\1\\\\$TR($FN(K,"",""),"","",""."")" D ^cA334
77 S TXT(1)=$P($T(@("T8"_QT)),U,6)_"\\1",TXT(2)=TDO_"\\1\\\\$TR($FN(K,"",""),"","",""."")" D ^cA334
79 S END=3 D ^cA334
 ;
8 S TXT(1)=$P($T(@("T10"_QT)),U,2)_"\\1",TXT(2)=D D ^cA334
81 S TXT(1)=$P($T(@("T10"_QT)),U,3)_"\\1",TXT(2)=D D ^cA334
83 S TXT(1)=$P($T(@("T10"_QT)),U,4)_"\\1",TXT(2)=D D ^cA334
85 S END=3 D ^cA334
 ;
9 S TXT(1)=$P($T(@("T10"_QT)),U,2)_"\\1",TXT(2)=D D ^cA334
91 S TXT(1)=$P($T(@("T10"_QT)),U,5)_"\\1",TXT(2)=D D ^cA334
93 S TXT(1)=$P($T(@("T10"_QT)),U,6)_"\\1",TXT(2)=D D ^cA334
95 S END=1 D ^cA334
 ;
YZ K HD,TAB,TXT Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84