cT64	;Inkomende documenten ;%T64 ;go naar %T640 ;   [ 04/12/09  16:23:21 ]
	G 1
	;
T0	;Inschrijven inkomende documenten ;
T1	;Lev.;Factuur ...... van ../../..;Vervaldatum;
T2	;Boekingsmaand\"-[] = einde programma";
T3	;Tot.doc.\Goederen\Diensten\Invest.\Kort.ct.\Maatstaf\Aftr.BTW\N.af.BTW\BTW MC\BTW IC\IC-invest.\BTW verl;
T4	;Eerstvolgend factuurnummer ;
T5	;Boekingsmaand :         ;
T6	;Andere\Factuurnummer leverancier:\B.V. :;
T7	;In ; mag u de muntcode ; niet gebruiken ;
	;
T0F	;Encodage documents d'achat ;
T1F	;Fourn.;Facture ......  de ../../..;Date d'échéance;
T2F	;Mois comptable\"-[] = fin du programme";
T3F	;Tot.doc.\Marchand\Services\Invest.\Escompte\Mes.tax.\TVA déd.\TVA n.déd\TVA CC\TVA IC\Invest. IC\TVA rep.;
T4F	;N° du document suivant ;
T5F	;Mois comptable:         ;
T6F	;Autres\N° de facture fournisseur:\P.P. :;
T7F	;En ; vous ne pouvez pas utiliser le code ;
	;
T0E	;Registration of incoming documents ;
T1E	;Sup.;Invoice ...... from ../../..;Due date;
T2E	;Fiscal month\"-[] = end program";
T3E	;Tot.doc.\Goods\Services\Invest.\I.c.disc\VAT bas.\Ded. VAT\N.de.VAT\VAT CoCo\VAT InCo\InCo Invest.\VAT TrCh;
T4E	;Next document number ;
T5E	;Fiscal month :
T6E	;Other\Supplier voucher number:\P.P. :;
T7E	;In ; currency ; can not be used;
	;
T0D	;Codierung der Eingangsbelege ;
T1D	;Lief.;Rechnung ...... vom ../../..;Verfalldatum;
T2D	;Rechnungsmonat\"-[] = Programmende";
T3D	;Belegtot.\Waren\Dienstlstg.\Invest.\Skonto\Steuerbas\Abz.MWSt\N.ab.MWSt\MWst MC\MWSt IC\IC-invest.\MWSt Aussl;
T4D	;Nr. Folgedokument ;
T5D	;Rechnungsmonat :         ;
T6D	;Andere\Rechg.Nr.Lieferant:\B.V. :;
T7D	;In ; mag u de muntcode ; niet gebruiken ;
	;
1	; schermopbouw - titel wordt gezet in %T29
11	S R="302\735" D ^cA319
13	S R="336\779",RH="536#544",RV="544#744" D ^cA319
17	D ^cT164 G YZ:'OK S FP=180 W @F,@F5 S FP=153 W @F,@F4,$P($T(@("T5"_QT)),U,2),@F5 F FP=455,624 W @F,@F9
19	S FP=437,K=$T(@("T1"_QT)) W @F,@F6,$P(K,U,2),@F9,":" S FP=507 W @F,$P(K,U,3) S K=$P(K,U,4),FP=624-$L(K) W @F,@F6,K,@F9,"../../.."
	;
	; journaal
2	S R="SRT\A\1500" D ^cA336 G YZ:K="-",3:SRT=""
21	S K="A"_$E(1000+SRT,2,4) I $D(@("^"_Q_"BA(""%T"",K)"))
29	S FP=403 W @F,$J("",31),@F93,@F,@F92,$P(^(K),D),@F93 S FP=801 W @F,@F1
	;
	; initialisatie
3	S Q91="^"_Q_"BA(BJ,""AFNR"_SRT_""")",BPB=@("^"_Q_"BA(2)"),I=$P(BPB,D,2)\1,EXBA=$G(^(79))
31	F R=0,1 S J=I+R I $D(@("^"_Q_"BA(J,""AFNR""_SRT)")) S K=^("AFNR"_SRT),FP=R*100+1703 W @F,$P($T(@("T4"_QT)),U,2),J," : ",$P(K,D)
33	S R="BM\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K=""-""!(K&(K<13))" D R0 G YZ:K="-" S R=+K D ^cT163 G 33:'OK
34	I '$D(@Q91) S R=256 D F2 G YZ
35	S FP=169 W @F,@F4,BP," ",@F5 S (BPE,BPEC)=$G(@("^"_Q_"BA(""SWBP"")")) I $L(BPE) D @BPEC
36	S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2) I BP<1999,BF="EUR" S VM=BF D E1 G 33
37	I $D(@("^"_Q_"BA(67)")) D ^cT23 S FP=801 W @F,@F1
39	S SWX=$P(@("^"_Q_"BA(""%T"",2)"),D,5),SWY=$P(^(2),D,4),SWZ=$P(^(2),D,7) I SWX=2 S SWX=0
	;
4	D S1^cA305 S (DVO,FDT)=DT,Q41="^"_Q_"AR(BR,0)",RV="827#1227\854#1154" D ^cA319
41	S EXLN="",PNT=".",$P(PNT,PNT,15)=PNT,K=$O(@("^"_Q_"BA(15,0)")) F K=0:1:9 S CE(K)=$P(^(K),D)
45	S LL=$P(@("^"_Q_"BA(39)"),D,4),VM(BF)=BF I $D(^(11,BF)) S VM(BF)=$P(^(BF),D)
47	S K=$P($T(@("T3"_QT)),U,2) F I=0:1:11 S FP=I#4+8*100+2+(I\4*27) W @F,$P(K,D,I+1) S FP=FP+12 W @F,":"
49	S K=$P($T(@("T6"_QT)),U,2),FP=1202 W @F,$P(K,D) S FP=FP+12 W @F,":" S FP=FP+15 W @F,$P(K,D,2) I SWX S FP=1272 W @F,$P(K,D,3)
	;
5	K OK G ^cT640
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
E1	S R=$T(@("T7"_QT)),K=$P(R,U,2)_BP_$P(R,U,3)_VM_$P(R,U,4) D F1 Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8