cT214 ;OPZETTEN 0-FAKTUREN ;%T214 ; [ 01/24/96  4:26 PM ]
 ;
T0 ;Opzetten 0-facturen ;
T1 ;Factuur;fact. datum __.__.__;vervaldatum __.__.__;klant :;
T2 ;Boekingsmaand\"-[] = einde programma";boekingsperiode : ;eerstvolgend factuurnummer ;de klant;
T3 ;Factuurnummer\"xxxxxx[] = geldig factuurnummer";
T4 ;Dit factuurnummer bestaat reeds ;dit is geen geldig factuurnummer ;
T5 ;Factuur / Creditnota\"[] = factuur   .[] = creditnota";factuur;cr.nota;
T6 ;Factuurdatum\"dd.mm.jj[] = bepaalde datum";
T7 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum   [] = ;
T8 ;Opmerking\;
T9 ;Bevestiging\".[] = registratie factuur   ,[] = hernemen";
T10 ;Correctie 0-factuur;
 ;
T0F ;Introduire factures-0 ;
T1F ;Facture; date fact. __.__.__; date d'éch __.__.__;client:;
T2F ;Période comptable\"-[] = fin du programme";période comptable : ;numéro de facture suivant;client;
T3F ;Numéro de facture\"xxxxxx[] = numéro valable";
T4F ;Ce numéro de facture existe déjà ;ce numéro de facture n'est pas valable ;
T5F ;Facture / Note de crédit\"[] = facture   .[] = note de crédit";facture;n.créd.;
T6F ;Date de la facture\"jj.mm.aa[] = date spécifique";
T7F ;Date d'échéance\"jj.mm.aa[] = date spécifique   [] = ;
T8F ;Remarque\;
T9F ;Confirmation\".[] = enregistrer la facture   ,[] = reprendre";
T10F ;Correction 0-facture;
 ;
T0E ;Opzetten 0-facturen ;
T1E ;Factuur;fact. datum __.__.__;vervaldatum __.__.__;klant :;
T2E ;Boekingsmaand\"-[] = einde programma";boekingsperiode : ;eerstvolgend factuurnummer ;de klant;
T3E ;Factuurnummer\"xxxxxx[] = geldig factuurnummer";
T4E ;Dit factuurnummer bestaat reeds ;dit is geen geldig factuurnummer ;
T5E ;Factuur / Creditnota\"[] = factuur   .[] = creditnota";factuur;cr.nota;
T6E ;Factuurdatum\"dd.mm.jj[] = bepaalde datum";
T7E ;Vervaldatum\"dd.mm.jj[] = bepaalde datum   [] = ;
T8E ;Opmerking\;
T9E ;Bevestiging\".[] = registratie factuur   ,[] = hernemen";
T10E ;Correctie 0-factuur;
 ;
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
11 S R="302\735" D ^cA319 S R="336\780",RH="536#544",RV="544#744" D ^cA319
13 D ^cT164 G YZ:'OK S R=$T(@("T1"_QT)),R0="\504\514\614\438" F K=2:1:5 S FP=$P(R0,D,K) W @F,$P(R,U,K)
15 S R="SRT\V\900" D ^cA336 G YZ:K="-" S FP=403 W @F,$J("",30) I SRT W @F,@F92,$P(^("V"_$E(1000+SRT,2,4)),D),@F93
 ;
2 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K=""-""!(K?1.2N&K&(K<13))" D R0 G YZ:K="-" S R=+K D M^cT163 G 2:'OK
21 S MAX=$S($D(@("^"_Q_"BA(BJ,""VFNR""_SRT)")):^("VFNR"_SRT),1:0) I 'MAX S R=256 D F2 G 2
23 S K=$P($T(@("T2"_QT)),U,3)_BP,FP=178-$L(K) W @F,@F4,K," ",@F5 S FP=903 W @F,$P($T(@("T2"_QT)),U,4),BJ," : ",MAX
 ;
3 S SR="^cA101" I $D(@("^"_Q_"KL(0,5)")),$L(^(5)) S SR=^(5)
31 S R="I1\1500\"_$P($T(@("T2"_QT)),U,5)_"\KL\K1" D @SR G 2:K="-" S L=^(I1,0),FP=638 W @F,$J("",5),@F,$P(L,D)
33 S FP=446 W @F,$J("",33),@F,$P(L,D,2) S FP=546 W @F,$J("",33),@F,$P(L,D,5)
35 S FP=646 W @F,$J("",33),@F,$E($S($L($P(L,D,6)):$P(L,D,6)_" ",1:"")_$P(L,D,7),1,33)
 ;
4 S R="FNR\22\3\"_$P($T(@("T3"_QT)),U,2)_"\6\\K=""-""!(K?6N&K)" D R0 G 3:K="-"
41 S K="",OK=$D(@("^"_Q_"KL(I1,FNR)")) F R=1:1 S K=$O(@("^"_Q_"VE(K)")) Q:K=""!OK  I $D(^(K,FNR)) S OK=1
43 S:'OK OK=$D(@("^"_Q_"VF(FNR)")) I OK S K=$P($T(@("T4"_QT)),U,2) D F1 G 4
45 I FNR'<MAX!($E(FNR,1,2)'=$E(MAX,1,2)) S K=$P($T(@("T4"_QT)),U,3) D F1 G 4
47 S FP=604 W @F,FNR
 ;
5 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K" D R0 G 4:K="-" S FT=$L(K),FC=$E("FC",FT+1),FP=504 W @F,$P($T(@("T5"_QT)),U,3+FT)
51 S R="FDT\22\3\"_$P($T(@("T6"_QT)),U,2)_"\8\DCTR" D R0 G 5:K="-",51:K="" S FP=526 W @F,FDT
53 I $P(FDT,".",2)'=BM!($P(FDT,".",3)'=$E(DJ,3,4)) S R=57 D F2 G 51:K="-"!(K=","),53:$L(K)
55 S R=FDT_D_$P(L,D,18) D ^cA104 S VVD=R,R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_VVD_"""\8\DCTR" D R0 G 51:K="-" S:$L(K) VVD=K
57 S FP=626 W @F,VVD S R=VVD_D_FDT D ^cA326 I R<0 G 55
59 S R="OM1\22\3\"_$P($T(@("T8"_QT)),U,2)_"\50\\" D R0 G 55:K="-"!(K=",") S FP=1203 W @F,$P($P($T(@("T8"_QT)),U,2),D)," : ",OM1,@F1
 ;
6 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 59:K="-",1:K=","
61 L @("^"_Q_"KL(I1)"):2 E  S R=14 D F2 G 61
63 S @%Q1=0,K=$O(@("^"_Q_"KL(I1,0)")),K=D,$P(K,D,23)=D F R=BJ:.01:BJ+.02 I '$D(^(R)) S ^(R)=K
65 S K="V"_FNR_D
67 S BH=BH+.01 G 7:BH#1=0,67:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
69 I ^(BH)'[K G 67:$L(^(BH))+$L(K)>255 S ^(BH)=^(BH)_K
 ;
7 L  S @("^"_Q_"VE(BP,FNR)")=FC_D_FDT_D_VVD_D_$P(L,D,1,2),$P(^(FNR),D,19)=OM1_D_D_SRT_D
71 S US="",US=$O(@("^"_Q_"FA(US)")) G 79:US=""
73 S @("^"_Q_"FA(US,FNR,0,0)")=$P(I1," ",2)_D_FC_D_VVD_D_D_D_FDT_D,^(1)="\\\\\",^(2)=^(1)
75 S @("^"_Q_"FA(US,FNR,""U""_FNR,0)")=D,^(1)=D_FDT_D_$P($T(@("T10"_QT)),U,2)_D_1_D_D_$P(I1," ",2)_D,^(2)="\\\\\",^(3)=^(2)
77 S ^(101)="\\\\"_$P($T(@("T10"_QT)),U,2)_D,$P(^(101),D,17)="T"_D
79 S @%Q1=1 G 1
 ;
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
 ;
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