cT640 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  2:21 PM ]
 G 1
 ;
T0 ;Inschrijven inkomende documenten ;
T1 ;De leverancier;BTW-nr : ;
T3 ;Muntcode ;
T4 ;Factuur of creditnota\"[] = factuur   1[] = creditnota   ,[] = naar leverancierskeuze";
T5 ;Datum document\"dd.mm.jj[] = bepaalde datum";
T6 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum";
T7 ;   Factuur;Creditnota;
T8 ;Omschrijving\;omschrijv. : ;
T9 ;Boekhoudkundige ventilaties ;
T10 ;Gestructureerde mededeling; OGM : ;
 ;
T0F ;Encodage documents d'entrée ;
T1F ;Fournisseur;N° TVA : ;
T3F ;Code monétaire ;
T4F ;Type de document\"[] = facture   1[] = note de crédit   ,[] = choix fournisseur";
T5F ;Date du document\"jj.mm.aa[] = date spécifique";
T6F ;Date d'échéance\"jj.mm.aa[] = date spécifique";
T7F ;  Facture;Note de crédit;
T8F ;Description\;descr. : ;
T9F ;Imputations ;
T10F ;Communication structurée; VCS : ;
 ;
T0E ;Registration of incoming documents ;
T1E ;The supplier;VAT nr : ;
T3E ;Currency ;
T4E ;Invoice or credit note\"[] = invoice   1[] = credit note   ,[] = to choice of supplier";
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 ;
T10E ;Structured communication; OGM : ;
 ;
1 F I=0:1:11 S FP=I#4+8*100+16+(I\4*27) W @F,$E(PNT,1,10)
11 S FP=1216 W @F,$E(PNT,1,10) S FP=1256 W @F,$E(PNT,1,15) I SWX S FP=1279 W @F,$E(PNT)
13 S FP=1402 W @F,@F4,$J($P($T(@("T9"_QT)),U,2),77),@F5,@F1
 ;
 ; leverancier
2 K FNR I SWTOL,K="-"!(K=",") G Y^cT643
20 I 'SWTOL L  S I1=$$^cANSYN("LE") 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 I 'SWTOL S KCAK=$P(^(1),D,20),KPC=$P(B(1),D,17),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) D
 . S:VM="" VM=BF S VM(VM)=$P($G(@("^"_Q_"BA(11,VM)"),VM),D)
24 I 'KCAK S KCAK=KC,QAK=Q
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 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_"LE(I1)"):2 E  S R=14 D F2 G YZ:SWTOL,2
35 I '$D(@("^"_Q_"BA(11,VM)")) S K=$P($T(@("T3"_QT)),U,2)_VM,R=76 D F2 G YZ:SWTOL,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,"A",99),FP=1306 W @F,":",$E($J($$S1^cA3331(VM,MPAR,"A"),8),1,8)
42 I BP<1999,VM="EUR" D E1^cT64 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,"A"),8),1,8) G 5
49 S R="VM\2000" D ^cA329:'SWTOL G 2:K="-"!(K=","),3
 ;
5 S FP=1315 W @F,@F93 F I=0:1:2 F J=8:1:12 S FP=J*100+11+(I*27) I FP'=1238,FP'=1265 W @F,VM,$J("",3-$L(VM))
51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""1-,""[K" D R0:'SWTOL G 49:K="-",2:K="," I SWTOL S K=FC="C"
52 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
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 I SWY D ^cT6400 G 53:K="-",51:K=",",61
59 S R=FDT_D_CBT D ^cA104 S VVD=R I 'SWY S DVO=FDT
 ;
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
61 S FP=626 W @F,VVD
63 S R=VVD_D_FDT D ^cA326 I R<0 S R=136 D F2 G 6
65 S KR=$G(OM1),R="KR\22\3\"_$P($T(@("T8"_QT)),U,2)_"\50\\\\\\\1" D R0 G 57:K="-"&SWY,6:K="-",51:K=","
67 S OM1=K,FP=1316 W @F,@F2 I $L(OM1) W @F,$P($T(@("T8"_QT)),U,3),K
69 I 'SWZ S K=""
 ;
7 S KR=$G(OGM),R="KR\22\3\"_$P($T(@("T10"_QT)),U,2)_"\\12\\""-,""[K!(K?12N)\\\\\1" D R0:SWZ G 65:K="-",51:K=","
71 S OGM=K,FP=1316 W @F,@F2 W:$L(OM1) @F,$P($T(@("T8"_QT)),U,3),OM1 I OGM="" G 8
73 I @^BA(6,"B",1) S FP=1355 W @F,$P($T(@("T10"_QT)),U,3),$E(OGM,1,3)_"/"_$E(OGM,4,7)_"/"_$E(OGM,8,12),@F2 G 8
75 G 7
 ;
8 G 41^cT641
 ;
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