cT68	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/11/01  2:57 PM ]
	G 1
	;
T0	;Inschrijven uitgaande documenten ;
T1	;Klant;Factuur ...... van ../../..;Vervaldatum;
T2	;Boekingsmaand\"-[] = einde programma";
T3	;Totaal document\Netto goederen\Korting contant\Totaal BTW\Speciale taks\Omzet\Omzet\Omzet\Omzet\Omzet\;
T4	;Eerstvolgend documentnummer ;
T5	;Boekingsmaand :         ;
T6	;Domiciliëring\"[] = geen facturen voor domiciliëring   1[] = wel";
T7	;In ; mag u de muntcode ; niet gebruiken ;
	;
T0F	;Encodage de documents de sortie ;
T1F	;Client;Facture ......  du ../../..;Echéance;
T2F	;Mois comptable\"-[] = fin du programme";
T3F	;Total document\Montant net\Esc. comptant\Total T.V.A.\Taxe spéciale\C.A.\C.A.\C.A.\C.A.\C.A.\;
T4F	;N° du document suivant ;
T5F	;Mois comptable:         ;
T6F	;Domiciliation\"[] = pas de factures pour domiciliation   1[] = si";
T7F	;En ; vous ne pouvez pas utiliser le code ;
	;
T0E	;Sales invoices ;
T1E	;Cust.;Invoice ......  of ../../..;Due date;
T2E	;Fiscal month\"-[] = end program";
T3E	;Total document\Net goods\I.c. discount\Total VAT\Special tax\T.O.\T.O.\T.O.\T.O.\T.O.\;
T4E	;Next document number ;
T5E	;Fiscal month  :         ;
T6E	;Domiciliation\"[] = no invoices for domiciliation   1[] = invoices for domiciliation";
T7E	;In ; currency ; can not be used ;
	;
T0D	;Codierung der Ausgangsbelege ;
T1D	;Kunde;Faktura ...... von ../../..;Verfalldatum;
T2D	;Rechnungsmonat\"-[] = Ende Programm";
T3D	;Total Dokument\Netto Gueter\Rabatt\Total MWSt\Spezielle taks\Umsatz\Umsatz\Umsatz\Umsatz\Umsatz\;
T4D	;Nächste Dokumentnummer ;
T5D	;Rechnungsmonat :         ;
T6D	;Domizilierung\"[] = kein Faktura für Domizilierung   1[] = doch";
T7D	;In ; mag u de muntcode ; niet gebruiken ;
	;
S1	S R=256 D F2 S OK=0
S1Z	Q
	;
	; schermopbouw
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
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,"../../.."
	;
	; journaalkeuze
2	S R="SRT\V\900" D ^cA336 G YZ:K="-",3:SRT="" S K="V"_$E(1000+SRT,2,4)
29	S FP=403 W @F,$J("",31),@F93,@F,@F92,$P(^(K),D),@F93
	;
	; initialisatie
3	S DOM="",Q91="^"_Q_"BA(BJ,""VFNR"_SRT_""")",BPB=@("^"_Q_"BA(2)"),I=$P(BPB,D,2)\1,EXBA=$G(^(69))
31	F R=0,1 S J=I+R I $D(@("^"_Q_"BA(J,""VFNR""_SRT)")) S K=^("VFNR"_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 D S1:'$D(@Q91) G 33:'OK
35	S FP=169 W @F,@F4,BP," ",@F5 S (BPE,BPEC)=$G(@("^"_Q_"BA(""SWBP"")")) I $L(BPE) D @BPEC
37	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
39	I $D(@("^"_Q_"BA(72)")) S R="DOM\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""1-""[K" D R0 G 33:K="-"
	;
4	D S1^cA305 S FDT=DT,Q41="^"_Q_"AR(BR,0)",RV="840#1240" D ^cA319
41	S EXLN="",PNT=".",$P(PNT,PNT,15)=PNT,K=$O(@("^"_Q_"BA(14,0)")) F K=0:1:9 S CE(K)=$P(^(K),D)
43	S (DOMVVD,SWF,IT,ITC,BIT,KATP)=""
45	S SWF=$P(@("^"_Q_"BA(39)"),D,3)="F",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:9 S FP=I#5+8*100+2+(I\5*40) W @F,$P(K,D,I+1) S FP=FP+20 W @F,":"
49	S VERBOT=$P(VERBOT,D,2,6) F K=1:1:4 S R=$P(VERBOT,D,K),$P(VERBOT,D,K)=" "_R
	;
5	K OK G ^cT680
	;
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