cT680 ;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:27 PM ]
 G 1
 ;
T0 ;Ingave uitgaande documenten ;
T1 ;De klant;BTW-nr : ;
T3 ;Muntcode ;
T4 ;Factuur of creditnota\"[] = factuur   1[] = creditnota   ,[] = naar klantkeuze";
T5 ;Datum document\"dd.mm.jj[] = bepaalde datum";
T6 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum";
T7 ;   Factuur;Creditnota;
T8 ;Omschrijving\;omschrijv. : ;
T9 ;Boekhoudkundige ventilaties ;
 ;
T0F ;Encodage des documents de sortie ;
T1F ;Client;N° TVA : ;
T3F ;Code monétaire ;
T4F ;Type de document\"[] = facture   1[] = note de crédit   ,[] = retour à la sélection du client";
T5F ;Date du document\"jj.mm.aa[] = date spécifique";
T6F ;Date d'échéance\"jj.mm.aa[] = date spécifique";
T7F ;   Facture;N.de crédit;
T8F ;Description\;descr. : ;
T9F ;Imputations ;
 ;
T0E ;Registration of outgoing documents ;
T1E ;The customer;VAT nr : ;
T3E ;Currency ;
T4E ;Invoice or credit note\"[] = invoice   1[] = credit note   ,[] = to customer choice";
T5E ;Document date\"dd.mm.yy[] = particular date";
T6E ;Due date\"dd.mm.yy[] = particular date";
T7E ;   Invoice;Credit note;
T8E ;Description\;descr. : ;
T9E ;Accounting ventilations ;
 ;
1 F I=0:1:9 S FP=I#5+8*100+24+(I\5*40) W @F,$E(PNT,1,15)
11 S FP=1402 W @F,@F4,$J($P($T(@("T9"_QT)),U,2),77),@F5,@F1
 ;
 ; klant
2 K FNR L  S I1=$$^cANSYN("KL") G YZ:K="-" S B(1)=^(I1,0)
21 S K="../../..",FP=504 W @F,$J("",17) S FP=526 W @F,K S FP=626 W @F,K
23 S CBTW=$P(B(1),D,15),KC=+B(1),KN=$P(B(1),D,2),VM=$P(B(1),D,11),CBT=$P(B(1),D,18) S:VM="" VM=BF
25 S FP=446 W @F,KN,$J("",28-$L(KN)) S FP=546,K=$P(B(1),D,5) W @F,K,$J("",28-$L(K)) S FP=637 W @F,$J(KC,6)
27 S FP=646,K=$P(B(1),D,6) S:$L(K) K=K_"  " S K=$E(K_$P(B(1),D,7),1,28) W @F,K,$J("",28-$L(K))
29 S (K,U3)=$P(B(1),D,16) D S1^cA248 S FP=1502 W @F,@F1,$P($T(@("T1"_QT)),U,3),U3
 ;
3 S SL=0,TUS="",MPAR=1,(IT,MST(10),MST(11))="" F I=0:1:9 I $D(PBTW(I)) S MST(I)=""
31 I '$D(VM(VM)) S VM(VM)=VM I $D(@("^"_Q_"BA(11,VM)")) S VM(VM)=$P(^(VM),D)
33 L @("^"_Q_"KL(I1)"):2 E  S R=14 D F2 G 2
35 I '$D(@("^"_Q_"BA(11,VM)")) S K=$P($T(@("T3"_QT)),U,2)_VM,R=76 D F2 G 2
 ;
 ; muntcode
4 S QA=QD,FP=1302 W @F,@F92,$J("",13) G 5:VM(VM)=VM(BF) W @F,VM
41 S K=^(VM),QA=+$P(K,D,7),MPAR=$$CNVC^cAFE1(Q,BJ,1,VM,"V",99),FP=1306 W @F,":",$E($J($$S1^cA3331(VM,MPAR,"V"),8),1,8)
42 I BP<1999,VM="EUR" D E1^cT68 G 49
43 S FP=1315 W @F,@F93
45 D VM^cA3331(VM) G 49:K="-",2:K=",",5:K=""
47 S MPAR=+K,FP=1305 W @F,@F92,":",$E($J($$S1^cA3331(VM,MPAR,"V"),8),1,8) G 5
49 S R="VM\2000" D ^cA329 G 2:K="-"!(K=","),3
 ;
5 S FP=1315 W @F,@F93 F I=0,1 F J=8:1:12 S FP=J*100+18+(I*40) W @F,VM,$J("",3-$L(VM))
51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""1-,""[K" D R0 G 49:K="-",2:K="," S FC=$E("FC",K+1),FP=504 W @F,$P($T(@("T7"_QT)),U,K+2)
53 S KR=FDT,R="KR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\8\DCTR\$L(K)\\\\\1" D R0 G 51:K="-"!(K=",") S:K FDT=K S FP=526 W @F,FDT
54 I $L($P(EXBA,D,5)) D @$P(EXBA,D,5) I K="-" G 53
55 I $P(FDT,".",2)'=BM!($P(FDT,".",3)'=$E(BP,3,4)) S R=57 D F2 G 53:K="-",53:K=",",55:$L(K)
57 S R=FDT_D_CBT D ^cA104 S VVD=R
 ;
6 S KR=VVD,R="KR\22\3\"_$P($T(@("T6"_QT)),U,2)_"\8\DCTR\$L(K)\\\\\1" D R0 G 53:K="-",51:K="," S:K VVD=K S FP=626 W @F,VVD
61 S R=VVD_D_FDT D ^cA326
63 I R<0 S R=136 D F2 G 6
65 S R="OM1\22\3\"_$P($T(@("T8"_QT)),U,2)_"\50\\\\\\\1" D R0 G 6:K="-",51:K="," S FP=1316 W @F,@F2 I $L(OM1) W @F,$P($T(@("T8"_QT)),U,3),K
 ;
7 G 41^cT681
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84