cT130 ;Overschrijvingen ;%T63 ; [ 11/03/98  5:25 PM ]
 G 1
 ;
T0 ;Overschrijvingen ;
T1 ;Overschrijving via\"[] = formulieren   1[] = bestand";
T2 ;Soort overschrijving\S2;
T3 ;Bedrukking\S2;
T4 ;Betalingswijze\S2;
T5 ;Aantal milimeter\"de afstand tussen de linker rand en de rode kader (min. 10 mm)";
T6 ;;1 document met doorslag;2 documenten naast elkaar in enkelvoud;1 document (nieuw)     ;2 documenten naast elkaar (nieuw);
T7 ;voorbedrukt;blanco;
T8 ;1 document per overschrijving;meerdere doc. per overschrijving;
T9 ;Plaats de overschrijvingen op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T10 ;Uitvoeringsdatum\"mag max. 1 maand in de toekomst liggen   [] = ";
T11 ;Inschr.nr. bestand;
T12 ;Identificatienr.\"Uw BTW-nummer of een nummer toegekend door de bank";
T13 ;Overschrijvingen\".[] = ok   ,[] = hernemen";
T15 ; Betalingsopdracht ; fact.: ; onbekend bij leverancier !!! [] = ok ;
T16 ;Formulieren;Bestand;
 ;
T0F ;Ordres de paiement ;
T1F ;Virement par\"[] = documents   1[] = fichier";
T2F ;Le virement consiste\S2;
T3F ;Le virement est\S2;
T4F ;Paiement de\S2;
T5F ;Nombre de mm\"le nombre de mm entre le bord gauche et le cadre rouge (min. 10 mm)";
T6F ;;d'un document avec carbon;de deux documents côté à côté;d'un document (nouveau)  ;de deux documents (nouveau)  ;
T7F ;préimprimé;vierge;
T8F ;1 document par virement;plusieurs documents par virement;
T9F ;Mettez les virements dans l'imprimante et mettez-la en marche\"[] = ok   ,[] = reprendre";
T10F ;Date d'exécution\"max. 1 mois dans le futur   [] = ";
T11F ;N° du fichier;
T12F ;N° d'identification\"Votre n° de TVA ou le numéro vous accordé par la banque";
T13F ;Virements\".[] = ok   ,[] = reprendre";
T15F ; Ordre de paiement ; doc. : ; inconnu chez le fournisseur !!! [] = ok ;
T16F ;Documents;Fichier;
 ;
T0E ;Overschrijvingen ;
T1E ;Overschrijving via\"[] = formulieren   1[] = bestand";
T2E ;Soort overschrijving\S2;
T3E ;Bedrukking\S2;
T4E ;Betalingswijze\S2;
T5E ;Aantal milimeter\"de afstand tussen de linker rand en de rode kader (min. 10 mm)";
T6E ;;1 document met doorslag;2 documenten naast elkaar in enkelvoud;1 document (nieuw)     ;2 documenten naast elkaar (nieuw);
T7E ;voorbedrukt;blanco;
T8E ;1 document per overschrijving;meerdere doc. per overschrijving;
T9E ;Plaats de overschrijvingen op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T10E ;Uitvoeringsdatum\"mag max. 1 maand in de toekomst liggen   [] = ";
T11E ;Inschr.nr. bestand;
T12E ;Identificatienr.\"Uw BTW-nummer of een nummer toegekend door de bank";
T13E ;Overschrijvingen\".[] = ok   ,[] = hernemen";
T15E ; Betalingsopdracht ; fact.: ; onbekend bij leverancier !!! [] = ok ;
T16E ;Formulieren;Bestand;
 ;
S1 S R="K\22\3\"_$P($T(@("T"_X_QT)),U,2)_"\1\\K=""-""!("".""[K&(X>2))!(K&(K<5)&(X=2))" D R0
S1A S FP=X*200+827,@B=$S(X=2:K,1:$L(K)) W @F,@F2 W:K'="-" $P($T(@("T"_(X+4)_QT)),U,@B+2)
S1Z Q
 ;
S2 S K=$T(@("T"_(X+4)_QT)) I X>2 W !?2,"[] = ",$P(K,U,2),"   .[] = ",$P(K,U,3)
S2A I X=2 W !?2,"1[] = ",$P(K,U,3),"   2[] = ",$P(K,U,4),!?2,"3[] = ",$P(K,U,5),"   4[] = ",$P(K,U,6)
S2Z Q
 ;
1 S DV=0,R="DV\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1-""[K" D R0:$D(@("^"_Q_"BA(49)"))&(BNR?12N) G 3^cT63:K="-"
11 S X=$P("2\3\4\5;10\11\4\12",U,DV+1),FP=1003 W @F,$P($T(@("T16"_QT)),U,DV+2),@F1
13 F K=1:1:4 S R=$P($P($T(@("T"_$P(X,D,K)_QT)),U,2),D),FP=K*200+1024 I $L(R) W @F,@F9,":" S FP=FP-22 W @F,@F6,R,@F9
15 G 3:DV
 ;
 ; printen
2 S X=2,B="KE" D S1 G 1:K="-"
21 S X=3,B="KU" D S1 I K="-" G 2
23 S X=4,B="BWZ" D S1 I K="-" G 21
25 S R="X\22\3\"_$P($T(@("T5"_QT)),U,2)_"\2\\K=""-""!(K?2N&(K>9))" D R0 G 23:K="-" S V=$J(X-12/2.6,0,0),FP=1827 W @F,X
27 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,""[K" D R0 G 1:K=",",25:K="-"
28 I $P(BA39,D,3)="DE" D ^cT142 G 6
29 D ^cT131 G 6
 ;
 ; file
3 S R="DAT\22\3\"_$P($T(@("T10"_QT)),U,2)_"_DT\8\DCTR" D R0 G 1:K="-"!(K=",") S:'K DAT=DT
31 S K=$E(DAT,4,8),X=$E(DT,4,8) I K'=X S X=$E(X+101,2,3)_$E(X,3,5) S:X\1>12 X="01."_$E(X#1*100+101,2,3) G 3:X'=K,3:DAT\1>(DT\1)
33 S FP=1227 W @F,DAT
35 S X=$E(DAT,1,2)_$E(DAT,4,5)_$E(DAT,7,8)_"0001",R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\""[] = "_X_"""\10\\$L(K)=10!(""-""[K)" D R0
37 G 3:K="-" S INS=K,BTW=@("^"_Q_"BA(49)"),FP=1427 S:INS="" INS=X W @F,INS
39 S X=4,B="BWZ" D S1 G 35:K="-" S K=BTW G 41:K?11N
4 S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_"\11\\K?.N!(""-""[K)" D R0 G 39:K="-" S:K (K,BTW)=$E(1E11+K,2,99)
41 G 4:97-($E(K,1,9)#97)'=+$E(K,10,11) S @("^"_Q_"BA(49)")=BTW,FP=1827 W @F,$E(K,1,2),"-",$E(K,3,5),"-",$E(K,6,8),"-",$E(K,9,11)
45 S FORM=1,S4=$P($T(@("T0"_QT)),U,2)_AFK D B^cA612,^cA701,C^cA612 G 4:K="-"
47 S R=1_D_1 D ^cA345 I $L(K) S FP=2002 W @F,@F1 G 1:K=",",45:K="-"
49 D ^cT132,B^cA612,^cA702,C^cA612
 ;
 ; goedkeuring
6 S R="K\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." G 47:DV,27
 ;
 ; betaling onderweg
7 S @%Q1=0,K=@Q4,$P(K,D,8)=$P(K,D,8)+1,$P(K,D,4)=1,@Q4=K,LNR="",J1=""
71 S LNR=$O(@Q50) G YZ:LNR=""
72 S J1=$O(@Q52) G 71:J1="" S A=^(J1),K=$P(A,D,14) G 76:'$D(@Q2) S I1=^(LNR) G 76:'$D(@Q3),76:'$D(^(K))
75 S R=^(K),$P(R,D,11)=1,$P(R,D,12)=$P(R,D,12)+$P(A,D,11),$P(R,D,13)=$P(R,D,13)+$P(A,D,17),^(K)=R G 72
76 S K=$T(@("T15"_QT)) W !!,$P(K,U,2),$P(A,D,1,2),!,$P(K,U,3),$P(A,D,14),$P(K,U,4),@F0 R K G 72
 ;
YZ 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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84