Index: cT683.mac.rou
===================================================================
diff -u -r734 -r3542
--- cT683.mac.rou	(.../cT683.mac.rou)	(revision 734)
+++ cT683.mac.rou	(.../cT683.mac.rou)	(revision 3542)
@@ -1,28 +1,29 @@
-cT683 ;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:55 PM ]
- G 1
- ;
-T0 ;Uitgaande fact/creditn ;
- ;
-T0F ;Fact/n.c. vente ;
- ;
-T0E ;Registration of outgoing documents ;
- ;
- ; ophalen factuurnummer
-1 S R="FNR\V\"_SRT_D_BJ_D_1 D ^cA337 I 'FNR G 2^cT682
-11 S FP=515 W @F,FNR S @%Q1=0
- ;
- ; registratie factuur
-2 I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
-21 I $D(@("^"_Q_"BA(84)")),$L(^(84)) D @("S1"_^(84))
- ;
- ; boekhoudkundige verwerking
-25 S TTBF=$J(NET+BTW+LXT*MPAR,0,QD)
-27 D ^cT686 S @%Q1=1
- ;
- ; link Intrastat
-3 G YZ:'$D(@("^"_Q_"BA(50)")),YZ:$P(^(50),D)'[1 S K=$P(@("^"_Q_"KL(I1,0)"),D,16) D S1^cTI0
-31 I OK S R=U_BP_U_FNR_U_U_22_U_13 D ^cTI0
- ;
-YZ G ^cT680
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cT683	;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  3:55 PM ]
+	G 1
+	;
+T0	;Uitgaande fact/creditn ;
+	;
+T0F	;Fact/n.c. vente ;
+	;
+T0E	;Registration of outgoing documents ;
+	;
+	; ophalen factuurnummer
+1	S R="FNR\V\"_SRT_D_BJ_D_1 D ^cA337 I 'FNR G 2^cT682
+11	S FP=515 W @F,FNR S @%Q1=0
+	;
+	; registratie factuur
+2	I $L($P(EXBA,D)) D @("S1"_$P(EXBA,D))
+21	I $D(@("^"_Q_"BA(84)")),$L(^(84)) D @("S1"_^(84))
+	;
+	; boekhoudkundige verwerking
+25	S TTBF=$J(NET+BTW+LXT*MPAR,0,QD)
+27	D ^cT686 S @%Q1=1
+	;
+	; link Intrastat
+3	G YZ:'$D(@("^"_Q_"BA(50)")),YZ:$P(^(50),D)'[1 S K=$P(@("^"_Q_"KL(I1,0)"),D,16) S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".","")))
+31	I OK S R=U_BP_U_FNR_U_U_22_U_13 D ^cTI0
+	;
+YZ	G ^cT680
+	;
+ZZ	; 18.05.04 - 15 u 48 * V8
+