cTI10	;REGISTRATIE UITLEVERINGEN (SELEKTIE UITLEV.) ;Go van %TI1 - Quit naar MENU - Do naar %TI12,%TI13,%TI14,%TI11 [ 09/19/96  11:37 AM ]
	G 1
	;
T0	;Registratie Intrastat (selectie factuur) ;
T2	;nummer\"[] = automatisch nummer   K[] = selectie via ;
T3	; in gebruik ! [] = ok ;
T4	; is reeds ;gefactureerd;overgeboekt;factuur;
	;
T0F	;Enregistrement intrastat (sélection document) ;
T2F	;numéro\"[] = numéro automatique   K[] = sélection via ;
T3F	; en usage ! [] = ok ;
T4F	; est déjà ;facturé;transcrit;facture;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
1	G 2
	;
2	S SW13=0,UL=+UD,FP=UD*100+1 W @F,@F1 K UTA,UF,KC L
20	I $D(UFS),$L($P(UFS,D)) D @$P(UFS,D) G 22
21	S R="UR\22\3\"_UOU_$P($T(@("T2"_QT)),U,2)_$P(UCO,U,2)_"""\6\\""-""[K!(K=""K"")!(K?.N&$E(K))\\\1" D R0
22	I K="-" G YZ
23	G 29:$D(@("^"_Q_UG1_"(US,+UR)")) I K="K" D ^cTI11 G 2:K="-"!(K=","),27:K="",3
27	D ^cTI12 G 2:K="-",31
29	D S3 G 2:K="-" S KC=$P(U2,D)
	;
3	S FP=UD*100+1 W @F,@F1 D ^cTI13
31	L @("^"_Q_UGL_"(KC,US,UR)"):2 E  S FP=2403+F60 W @F,@F2,@F4,UOU," ",UR,$P($T(@("T3"_QT)),U,2),@F5,@F0 R *KY G YZ
33	K A,B S FP=UL*100+1 W @F,@F1 D ^cTI14 I SW13,$D(@("^"_Q_UGL_"(KC,US,UR)")) S @("^"_Q_UGB_"(US,UR)")=KC_D
35	I $D(UR),$D(@("^"_Q_UGL_"(KC,US,UR)")) D S1
	;
YZ	Q
	;
S1	G S1Z:'$D(@("^"_Q_UG1_"(US,UR)")),S1Z:$O(@("^"_Q_UGL_"(KC,US,UR,100)"))'="",S1Z:$P(^(1),D,24) I $D(UVE) S OK=1 X UVE G S1Z:'OK
S1A	K @("^"_Q_UG1_"(US,UR)"),@("^"_Q_UGB_"(US,UR)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)") S SW13=0
S1Z	K OK Q
	;
S2	S U1=100 I '$D(A) S X=@Q1,(X,K)=100 I $D(^(X)) S I=^(X) I I,$O(@("^"_QT_"BIB(UGL,X,I,X)"))\100*100'=X S I=$D(@Q1)
S2A	F I=1:1 S X=$O(^(X)) Q:X<100!(X>199)  S K=K+1,A(K)=^(X)
S2B	F I=1:1 S U1=$O(A(U1)) Q:U1=""  S X=A(U1),FP=$P(UD,D,3)+$P(X,U,5)*100+$P(X,U,6) W @F,$J("",$P(X,U,9)+$P(X,U,13))
S2C	S K="" D S4
S2Z	Q
	;
S3	S K="",U2=^(UR) G S3Z:'$P(U2,D,2)!$D(@("^"_Q_UGL_"($P(U2,D),US,UR)")) S K="-"
S3A	S FP=2203+F60 W @F,@F1 S FP=2402+F60
S3B	W @F,@F4,UOU," ",K,$P($T(@("T4"_QT)),U,2),$S(UGL="UL":$P($T(@("T4"_QT)),U,3),1:$P($T(@("T4"_QT)),U,4))," - ",$S(UGL="UL":$P($T(@("T4"_QT)),U,5),1:@("^"_Q_"UL(0,US,""UOU"")"))," : ",$P(U2,D,2)," [] = ok ",@F5,@F0 D ^cAFA0("",0,0,0,0,27)
S3Z	Q
	;
S4	I $D(@Q1),$L($P(^("UR"),D,2)) X $P(^("UR"),D,2)
S4Z	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05