cTI11	;REGISTRATIE UITLEVERINGEN (synoniemen klanten) ; Do van %A220 - Quit naar %TI10 [ 04/12/00   9:03 AM ]
	G 1
	;
T0	;Registratie uitleveringen (synoniemen klanten) ;
T3	;nummer\"[] = automatisch nummer   ;.[] = vervolg;
T4	;nummer ; is in gebruik voor andere ;
T5	; is reeds ;gefactureerd;overgeboekt;factuur;
	;
T0F	;Enregistrement livraisons (synonymes clients) ;
T3F	;numéro\"[] = numéro automatique   ;.[] = suite;
T4F	;numéro ; est déjà en usage pour autre ;
T5F	; est déjà ;facturé;transcrit;facture;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
1	S UOB="",UOK=1,K=$D(@("^"_Q_UGL_"(0,US,""UOB"")")) S:K UOB=^("UOB") S:$P(^("ULNT"),D,24) UOK=-1
11	D S1 G YZ:K="-"!(K=",") S KC=$P(K," ",2)
	;
2	S FP=UD+1*100+2 W @F,@F1,$P(UCO,U)," : ",$P(^(K,0),D,2)
21	S X=UD+2,UR=""
23	G 3:X'<20 S UR=$O(@("^"_Q_UGL_"(KC,US,UR)"),UOK)
25	G 3:UR="" S X=X+1,FX=X*100,U8=^(UR,1),U7=UR I $L(UOB) D ^cTI550 G 23
27	S FP=FX+1 W @F,$$CR^cA334 W ?1+6-$L(UR),UR,?10,$P(U8,D,2),?21,$P(U8,D,3) G 23
	;
3	S R="K\22\3\"_UOU_$P($T(@("T3"_QT)),U,2) S:UR'="" R=R_$P($T(@("T3"_QT)),U,3) S R=R_"""\6\\""-,.""[K!(K?.N&$E(K))\\" D R0 
31	G YZ:K="," I K="." S X=UD+2,FP=X*100+1 W @F,@F1 G 23
33	S FP=UD*100+1 W @F,@F1 G 11:K="-" I K="" S UR=K G YZ
35	I '$D(@("^"_Q_UG1_"(US,K)")) S UR=K,K="" G YZ
37	I $P(^(K),D)'=KC S FP=2203+F60 W @F,@F1 S FP=2403+F60 W @F,@F4,UOU,$P($T(@("T4"_QT)),U,2),K,$P($T(@("T4"_QT)),U,3),$P(UCO,U)," !  [] = ok ",@F5,@F0 D ^cAFA0("",0,0,0,0,27) G 3
39	S UR=K D S3 G 3:K="-" S K=UR
	;
YZ	K U8,UOB Q
	;
S1	S K=$$^cANSYN($P($P(UDO,U,3),D))
S1Z	Q
	;
S3	S U2=^(K),K="" 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(@("T5"_QT)),U,2),$P($T(@("T5"_QT)),U,4)," - ",UOU," : ",$P(U2,D,2)," [] = ok ",@F5,@F0 D ^cAFA0("",0,0,0,0,27)
S3Z	Q
	;
ZZ	; 19.04.00 - 14 u 04 * V7.3