cT172 ;Stap 3: definitieve dom.lijst ;%T172 ;do %T117 ; [ 01/12/01  2:53 PM ]
 G 1
 ;
T0 ;Remiseborderel gedomicilieerde facturen ;
T2 ;Blz :;
T3 ;Rekeningnummer : ;
T4 ;: Naam             : Domiciliëringsnr: Invorderingen: Terugbetaling: Mededeling:;
T5 ;Samenvoegen facturen per klant\"[] = neen   1[] = ja";
T6 ;: Overdrachttotaal;: Eindtotaal;Handtekening van de schuldeiser;
T7 ;Bevestiging\".[] = lijst goed geprint   ,[] = opnieuw printen";
T8 ;Keuze\"[] = lijst op papier   1[] = lijst op diskette";
T9 ;: Totaal bankgroep : ;
T10 ;Uitvoeringsdatum;
 ;
T0F ;Bordereau de remise fact. domiciliées ;
T2F ;Page:;
T3F ;N° compte en banque : ;
T4F ;: Nom              : N° de domicil.  : Recouvrements: Remboursement: Communic. :;
T5F ;Rassembler plusieurs factures par client\"[] = non   1[] = oui";
T6F ;: Total transfert;:Total final;Signature de l'ordonnateur;
T7F ;Confirmation\".[] = la liste est bien imprimée   ,[] = réimprimer";
T8F ;Choix\"[] = liste sur papier   1[] = liste sur disquette";
T9F ;: Total banque     : ;
T10F ;Date d'exécution;
 ;
T0E ;Remiseborderel gedomicilieerde facturen ;
T2E ;Blz :;
T3E ;Rekeningnummer : ;
T4E ;: Naam             : Domiciliëringsnr: Invorderingen: Terugbetaling: Mededeling:;
T5E ;Samenvoegen facturen per klant\"[] = neen   1[] = ja";
T6E ;: Overdrachttotaal;: Eindtotaal;Handtekening van de schuldeiser;
T7E ;Bevestiging\".[] = lijst goed geprint   ,[] = opnieuw printen";
T8E ;Keuze\"[] = lijst op papier   1[] = lijst op diskette";
T9E ;: Totaal bankgroep : ;
T10E ;Uitvoeringsdatum;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
 ; start
1 ;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11 S BA39=@("^"_Q_"BA(39)"),K=$P(BA39,D,3) I K'="BE" G YZ
12 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),NM6=^(6),KC="",I="",Q1="^"_Q_"K3(0,0,KC)",Q2="^"_Q_"K3(0,0,KC,I)"
13 L @("^"_Q_"K3"):2 E  D TXT^cAFA1(14) G YZ
15 I '$D(@("^"_Q_"K3(0,0)")) D TXT^cAFA1(225) G YZ
17 S K=^(0),QA=$P(K,D,8),MNT=$P(K,D,7),UIT=$P(K,D,6),ZSP=$P(K,D,5) W /CUP(2,3),$P(K,D,2),/CUP(2,60),MNT," - ",UIT
18 S K=$D(@("^"_Q_"AR(ZSP_"" "",0)")) G YZ:'K
19 S K=^(0),BNM=$P(K,D,2),BNR=$P(K,D,9),BNR=$$BANK^cAFO1(BNR),PRO=$P(K,D,12),AFK=$P(K,D,10)
 ;
2 S R="SAM\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-1""[K" D R0 G YZ:K="-" W /CUP(4,3),@F1 W:K $P($P($T(@("T5"_QT)),U,2),D)
21 S R="DV\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-1""[K" D R0 G 2:K="-"
23 D ^cT117 G 21:K="-" S UIT=DAT G 5:DV
25 S BLZ=0,T1=0 D ^cAN3223(1,"1","",0) G 23:K="-"
29 X F70 W @F80 K ^HULP(boot,$J) S LNMAX=LNMAX-5
 ;
 ; sorteren vlgs dom.nr.
3 S KC=$O(@Q1) G 4:KC="" S K=@("^"_Q_"KL(^"_Q_"K1(KC),0)"),KNM=$E($P(K,D,2),1,18),DOM=$P(K,D,23),A1=0
31 S I=$O(@Q2) I $L(I) S K=^(I) S:A1 $P(K,D,14)="" S A1=$P(K,D,9)="F"*2-1*$P(K,D,16)+A1 D 35:'SAM G 31
33 D 35:A1 G 3
35 I DOM'["-" S DOM=$$BANK^cAFO1(DOM)
37 S R=$G(^HULP(boot,$J,DOM,0),1),^(0)=R+1,^(R)=KNM_D_A1_D_$P(K,D,14),A1=0 Q
 ;
 ; printen
4 S DOM=0,B1=0
41 S DOM=$O(^HULP(boot,$J,DOM)),I=0 G 49:DOM="" D:'BLZ 8
43 S I=$O(^HULP(boot,$J,DOM,I)) G 41:'I S K=^(I) D:LN>LNMAX 9,8 S A1=$P(K,D,2)
45 W !,":",$P(K,D,1),?19,": ",DOM,?37,":" W:A1<0 ?52,":" S R=A1_D_13_D_D_QA D R3 W ":" W:A1'<0 ?67,":" W " ",$P(K,D,3),?79,":"
47 S K=$E(DOM,1,2)_" " S:'$D(^HULP(boot,$J,0,K)) ^HULP(boot,$J,0,K)=0 S ^(K)=^(K)+A1,T1=T1+A1,LN=LN+1 G 43
49 D:BLZ 9 X F71 K ^HULP(boot,$J) G YZ:'BLZ
 ;
 ; goedkeuren
5 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"".-,""[K&$L(K)" D R0 G 11:K'="."
51 S @%Q1=0,DAT=$$DC^cAFD1(UIT),@("^"_Q_"BA(4,ZSP,$E(INS,1,4),""DOM"")")=+$E(INS,5,10)
52 I $D(@("^"_Q_"K3(PRO,DAT)")) S DAT=DAT+.01 G 52
53 S @("^"_Q_"K3(PRO,DAT)")=T1+B1_D_BNM_D_PRO_D_1_D_D_D_MNT_D_QA_D,(KC,I)=0
55 S KC=$O(@Q1) G 59:KC=""
56 S I=$O(@Q2) G 55:I="" S K=^(I),@("^"_Q_"K3(PRO,DAT,KC,I)")=K,A1=$P(K,D,14),X1="I",X2=1,X=$P(K,D,11)+$P(K,D,12)
57 I $D(@("^"_Q_"KL(^"_Q_"K1(KC),A1)")) S K=^(A1),X=X+$P($P(K,D,11),U,2) S:$P(K,D,5)-X X1="",X2=X2_U_X_U_$P(K,D,11) S:$L($P(X2,U,5)) X2=1_U_X_U_$P(X2,U,5) S ^(A1)=$P(K,D,1,7)_D_X1_D_$P(K,D,9,10)_D_X2_D_$P(K,D,12,99)
58 G 56
59 K @("^"_Q_"K3(0,0)") G YZ
 ;
 ; hoofding
8 S BLZ=BLZ+1,LN=0 W !,$P($T(@("T0"_QT)),U,2),?72,DT,!,BNM,!!,QN,?72,$P($T(@("T2"_QT)),U,2),$J(BLZ,3),!,NM6
81 W !!,$P($T(@("T3"_QT)),U,2),BNR,?40,$TR("AB-CDE-FGH-IJK","ABCDEFGHIJK",BTW)
83 W !,$P($T(@("T10"_QT)),U,2)," : ",UIT,?40,$TR("ABCD.EFGHIJ","ABCDEFGHIJ",INS) D 85 W !,$P($T(@("T4"_QT)),U,2)
85 W !,":------------------:-----------------:--------------:--------------:-----------:" Q
 ;
9 G 95:$L(DOM) D 85
91 S DOM=$O(^HULP(boot,$J,0,DOM)) G 95:DOM=""
93 W !,$P($T(@("T9"_QT)),U,2),DOM,?37,":" S R=^(DOM)_D_13_D_D_QD W:R<0 ?52,":" D R3 W ":" W:R'<0 ?67,":" W ?79,":" G 91
95 D 85 W !,$P($T(@("T6"_QT)),U,DOM=""+2),?19,":",?37,":" W:T1<0 ?52,":" S R=T1_D_13_D_D_QA D R3 W ":" W:T1'<0 ?67,":"
97 W ?79,":" D 85 W:'$L(DOM) !!,$P($T(@("T6"_QT)),U,4)
99 W $$FF^cA334 Q
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84