|
######################################################################: h" a8 @1 V% h; [. @
( t( e# s. r% w4 {" u# S H O P D O C _ P R O G R A M V I E W _ T E X T . T C L: o% W1 w! N0 o: }1 [ ]
0 Z4 [+ \( m. j3 B. G######################################################################3 X" R/ \1 M% F' x; o
: Q9 U1 ~7 X. y# EVENT HANDLER SECTION
6 z% ~& q7 Y' f1 I; h5 E8 B: R; }% Y8 a' Y$ M7 M A# This section contains the control section for creating an operation list T$ {" @4 j: z0 A- u
! U F9 \! L0 ? o2 ^- l# 8 F1 J- V$ K0 j* Z# Q
" x7 T! I! t; S/ o& z1 m+ d# CAM will loop thru each event in the path and call the procedure9 Q `) O+ B3 M5 y. _( \3 o6 n
8 ?% Z# e+ _+ f2 j% z0 r# whose name is the name of the event.
- H5 I- v% ?+ b# h1 g1 t3 c& F% z q7 }8 u, Q! g" U5 G# Y9 U( h g& Y# J#
0 N9 r, O, N# {- @1 L' E' j, }# F7 ]/ ]- e7 ~#/ a3 d- i S9 g _1 i$ I8 G1 Z: x: `& Q5 y3 T. G
#
( F1 J4 k* O2 a# e6 q) A v3 X9 ^4 m' m% a. C9 R5 M#) Q6 H" w" ]* F* H# G8 c9 V& H* G5 y
#_______________________________________________________________________________- j: t2 E2 r+ C; `. i/ g& }$ d8 R9 P5 v
# Here you should define any global variables that will be used in any one3 s2 |4 w5 ~' U" H+ U- X. _0 n
4 @! b. A% ?' B1 f, u# of the event handler.3 T$ h9 W- y. v4 B" I! E. J7 n" }$ [/ _9 c. Y7 w
#_______________________________________________________________________________0 p" L" _7 t: ~+ s2 I* s+ u4 A8 | B0 u
set mom_source_directory [MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]6 L3 o' |3 t3 p5 X6 G. j/ d: A8 w
* I. {1 r3 `1 g- i wsource "$mom_source_directory/shopdoc_header.tcl"+ L' y; o( \$ l. `9 `! `; J' F9 T& o# _
set line_flag 0. u6 c' h7 h% g7 |$ e1 c- d
" f- {# i, e0 Z9 l8 @, T/ k: K. oset template_type ""+ u) ]; M! i' ?+ k+ V6 Y: P/ [- ?: Y8 P
set template_subtype ""4 X! Q2 T4 u) d. y0 @" s5 L/ X; i) E
) J N# t9 F7 W7 e# This procedure creates a part documentation., j! x7 T* |5 r) [! K, v0 n
" t9 Z0 i4 W7 [8 d: [# W#_______________________________________________________________________________1 @ Y. q9 F. r
& K, G9 r6 B9 D, Y#==============================================================================/ U3 A+ `# Q5 X( T
" B- P/ f* K; iproc MOM_Start_Part_Documentation {} {9 f# ~5 Q2 v( g' ? A9 I. r
5 U$ F5 O8 U4 J4 ?#==============================================================================
/ U' H9 w5 q- q3 H. i9 t, t9 X# y+ D) l( c6 v& e # Calls the shopdocs header8 s! Z; Z j0 h) }6 u5 e p5 v
* V, h( A# g' ~* t0 C4 k, Q3 U( ~! ` global mom_sys_output_file_suffix
_! S: c% _' h% u* b8 r# w" n) t set mom_sys_output_file_suffix "txt"/ {5 Q) ^" @% V- L0 ~3 j7 I! v- L6 H$ s, Q
7 W9 D# t7 d6 R- [( C1 ?4 x0 i( v* T. P6 B9 F
Open_Files
0 g, V0 a$ J7 p x% o# j1 T& T# z2 k. |: V. |1 ^ ShopDoc_Header_text
3 [, S- t: @( j0 E/ W2 q2 m. [4 O9 z3 G0 b0 p# C$ g% l- w}. F; I! \) P0 @ }
! p9 L3 s. |3 |; q" ~' s- a#==============================================================================% F0 k3 E: [# F& a7 u$ E+ E; M! O3 D3 \* x! Z& {. o- Z
proc MOM_Part_Documentation {} {) L8 |5 \. L$ C( b$ X9 x5 i+ {5 t
#==============================================================================0 W7 a% a8 m' D/ i& c) J. {6 k
5 ?. }) i) [" Q. v6 f0 i MOM_do_template_file "[MOM_ask_env_var UGII_CAM_SHOP_DOC_DIR]shopdoc_programview_text.tpl"* e. G0 X2 Z1 K1 f6 | G1 [% c& `% [
}
1 w9 j9 Q6 L U3 r- l* W! r* } _4 S#==============================================================================
; I$ U1 G9 ~# V3 y# a7 w: t4 S% M3 n: S/ Z$ oproc MOM_End_Part_Documentation {} {$ Z6 J/ l4 M6 U: ^1 c& L
* d4 ]. I" c. f, x; T C) Z#==============================================================================, m& r$ }" U- ?% h7 ^
" i+ z" R# Y! y8 e% w5 |; \& ?: Z} _% | I& ~' }/ r' I+ q( k, L( V/ K; Z+ b6 y6 ~% F! o# Z) G# N) Q! ~7 p
#===============================================================================8 V7 _' ? |4 _( n' W! S7 |- e- ~- p+ X" e9 R' T) y! S
# Setup6 }2 w9 a( T0 J$ Y' G3 p- V Z
3 _& E4 {1 x: r#===============================================================================' @5 l! S4 `* @' E! d# u. q
# `; t4 a; i$ O3 i' q% h% n#==============================================================================4 b( ^6 y7 G1 z N% E) Y
+ o% I7 ~, h5 k( p. x1 d6 b4 e( hproc MOM_SETUP_HDR {} {+ ~+ d* j; R: y/ h
; o5 P1 L7 h O, v) [#==============================================================================5 P. V, E) p( K: F l& P- a' h9 F' A, q$ G9 \- e6 o
# Calls the setup header2 u2 X5 A/ h7 c% \; L
7 H; j" h- |& z Setup_Header_text% e, o4 C2 N U1 e, D+ b+ Y+ c- R: F" f; U- j/ i" V
}* b1 `0 R/ E2 r( F8 \7 N% l' x! s9 S @9 @: V
- F$ A* g/ q5 y" W7 Z) L5 y& ^7 E) H" ~( ^& j. ]
#==============================================================================
. J/ e m, X3 l2 l+ w9 v0 C% D. t' @% G1 I- D" Gproc MOM_SETUP_BODY {} {& ]: {' y R4 S; f0 ]; @
* ]# K+ c z# z X3 L2 G# z' D/ R#==============================================================================8 r* Z+ ?6 R* @) A) a# b9 O4 |
% s7 Q, O- [+ q1 w( A, X global mom_template_type% F4 ?2 ~" y8 z
+ Q0 f+ v: q S2 { global mom_template_subtype
7 j- t4 |9 W5 V1 l, `; ?8 I$ T2 E+ c0 ?9 R MOM_output_literal " OPERATION LIST BY PROGRAM"- {# N( y) }0 z/ s- a8 Y
1 W$ L3 w/ P8 m% A MOM_output_literal " ********* **** ** *******"+ N! f, d) C' ~+ E
) o/ A: K( Y' M% ^, ?: @}
2 _3 z: O# z8 n \" @4 G! Z+ ^# d3 E1 m# @, u- U' Q6 k+ C, i- G; D8 H% `+ T2 \. q( t; b& j; e( K( N' Y
#============================================================================== z8 p2 s; s- D
# {& ^; ?2 |' _% B( h6 @6 E6 rproc MOM_SETUP_FTR {} {( }8 v4 ]/ s3 H, B8 l; b8 v
- a1 _8 S$ Q6 D8 A9 C$ u, }#==============================================================================1 ^- c4 ^- l. \6 P1 u' G6 y3 Z+ z' {' W) f! N
}' a9 p; o, x' e2 O. o
# b$ S X1 R) Z" y, f. O+ c+ ?. L/ I2 q* q, Z
6 B$ M; p* y+ Z9 X7 _5 ^8 h#===============================================================================
. D) \# g, B2 ]) |9 @1 _' p o8 Y, H# Operation; y4 u4 ~# d0 N) X$ E2 X
" L7 \$ ^9 `- T) L2 K( a+ [#===============================================================================0 T0 G+ M2 @& |$ p# ~9 O1 [: ]2 O: V6 J# Y0 n+ e
#===============================================================================, Q2 y- z5 K" [9 U3 w) V, d! N
, |, M$ U D0 w* O3 }5 Xproc MOM_OPER_BODY { } {
; D7 x" R* c7 `8 k4 I5 \8 T4 h- c' q1 Y9 N! z#===============================================================================
$ ?2 P* \+ ]3 I1 i! f6 @' n) c. H& S5 y* D; d4 ?0 A5 U global mom_template_type0 \3 M ~: u6 y- o: H9 s7 N! R4 l/ |/ P- R8 D
global mom_template_subtype! T) N V5 Z8 A/ d2 r `7 Q% P
N6 U4 |4 {5 L' ]% P3 O global template_type( V! ]1 U3 _0 P" n- k- M( ], ?% [
+ ^' Y! {. h; a7 r f# n global template_subtype
- K" T" C N. e. }. f* s: E* C1 x* p% p# y3 B9 _ global mom_operation_name& a2 W- S+ T5 W' g* i7 a: R' Z, p1 L7 @: M4 X' K# ^" p
global mom_operation_type' a& \0 Z' A7 V( ^
' X% I0 c/ {- Y: _: y set template_type $mom_template_type
; X4 N3 D# I9 k) ^; P3 y& Q! o6 Z. |" [! ?0 H set template_subtype $mom_template_subtype
7 s, Q# L4 @* B/ z/ q$ k" ]1 Q J1 s$ A, f( A n# ~ if { $mom_operation_type == "Wire EDM" } \7 V, Q& v' i- k3 e( Y* p; V1 T, `1 [3 B6 I3 J
{2 H- s: i- D: X
% U! n& d% r4 G6 ? h J set oper_desc "$template_type/$template_subtype"
( Y) |: k) ~& }8 X0 c3 p/ D4 ]3 a4 d' }* I set output [format "%-30s %-35s %5s \n" $mom_operation_name \& e. Q2 \" Y5 u3 _" N! K& k
0 }/ u2 E7 J4 p $oper_desc "WIRE"]8 h5 I/ p. S0 v0 o4 ]( u e, U; X a# y, R/ Q- h4 V
MOM_output_literal "$output"" e" \2 ~: l5 @' y, @+ k, p# b' t
& G$ E/ m6 r8 G4 ?7 _ }6 A" P$ {2 q8 k: _* z$ M
2 {6 R( h5 f- ?* N7 v/ R: J( R, I/ N0 d}0 r: l; {# K0 _9 C
& n6 M; a/ R+ w#==============================================================================' X# m8 n2 l- h- _& z, A9 v
( Z o0 X8 D/ T* |( m% iproc MOM_TOOL_BODY {} {9 e, M: E. g" |) Z; a6 c. ?4 j0 k& s: _% j: j5 k
#==============================================================================( S) N( o5 R+ i& y& V
( `) B2 C# u3 O6 q global mom_operation_name2 S$ F% L- ^7 b* h# U- Q- s/ X4 c( F# t! S4 y) ^
global mom_operation_type/ b. m; ?8 h6 Q1 o+ V
$ f. Z# }6 C x2 i6 x global template_type
& i! i0 p9 R7 R- i" D& H( P3 U z7 w* K global template_subtype
* C% I4 r* Z+ Q& f& _, N9 V8 |- p+ u+ V& r2 ]$ ~, b: a9 p, X9 d global mom_tool_name6 V$ N2 l5 c/ s' W7 R L: a$ x( W# P; [/ o% [/ [/ t6 W
global line_flag9 E/ O/ n1 v' Q- o
" u R9 _ G, s8 m+ O global mom_stock_part Q0 f+ q( v% F- X+ T: `8 P9 e& N1 Y; r# C9 ?
global mom_stepover_distance6 _3 i8 I1 v& E; ~- O$ a' i
" O A8 v4 A7 P global mom_tool_length
! d4 O% ?9 |! x0 a9 `. ]. |: a' g4 `5 i4 b: [. K( o' S global mom_inside_outside_tolerances3 M# `1 x6 H5 c5 K; N; [ ?! q* ]4 r# y3 A
set oper_name "OPERATION NAME"
& M+ F" I# g) k7 w% `! H8 Y9 {9 s8 w set oper_type "OPERATION DESCRIPTION"
6 M0 V' f* m K- n: z9 y, p# S+ h$ l1 t3 s: X* a set tool_name "TOOL NAME"# [! Q# s; P. X& Q. q2 e2 @) k
' x- ]; H) y, D0 x& D set stock_part "STOCK"! T6 o: R3 c& Z4 [
- {) n/ y# M. V6 R% e" K set stepover_distance "stepover"9 i, M; _. h* T! `/ ^& x* N3 _8 O
/ b5 \( p! @! ~/ l set tool_length "length"2 t$ M" S. F8 Y. r- K" ~& Z' }" f6 a! X* V& D8 |
set inside_outside_tolerances(0) "toll in"
& b" W& b- @0 I. a) y: U* N# j. Q" D0 B5 I set inside_outside_tolerances(1) "toll out"; o5 S3 r9 S' ?
: J1 `# F9 |2 {( B: Z. w# L% ^# d# J" X: d
/ U: @, _9 p+ P0 o if {!$line_flag} \2 d3 c* M5 J# W; w( t! V" Y) O3 m
/ U6 |2 W$ E- z {2 k. a/ ?# a) s' t3 g
7 d; m) S. f. H+ h) m5 g+ o$ c MOM_output_literal "-----------------------------------------------------------------------------------------------"
% B, j$ R& Z0 Z# b% w. D7 R$ i2 `8 A# {/ a7 B: H, K set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s" $oper_name $oper_type $tool_name $stock_part $stepover_distance $tool_length $inside_outside_tolerances(0) $inside_outside_tolerances(1) ], U" b( w* ?1 ~. d
+ `$ M! x# \2 F/ I$ m7 y MOM_output_literal $output
" h1 D) Q; f* g4 N& U5 }% ?% e2 O8 A MOM_output_literal "-----------------------------------------------------------------------------------------------"
% l1 v2 D0 }; h( a8 } }: r, T3 m2 N u3 | D5 g R& Q7 G) T set line_flag 1" w$ c1 y, q) _% a2 X& C1 t+ G+ O. ?+ r2 V3 P3 R
}
. ~1 D" z3 Y' p/ y7 ]3 u, E3 R: A- P if { $template_type == "" && $template_subtype == ""} \, b6 d# S/ i' j. a* [
! P: s! }1 F( N, l {
' p* z+ S+ \; F- v/ X5 C' u) u5 G% L, d& A set oper_desc "--/--": K3 F a. ~1 ^6 b; V5 ^ ~
8 c+ [; j: {* _# f6 r } elseif { $template_type == "" } \
4 n% @! D; Z2 ^# e* t" {/ C, V- {( [ r6 Z5 l {# O7 ~/ B- H! r5 ~' ~# e& D
& l/ F/ Z2 L4 E- P: F2 l/ K set oper_desc "--/"2 b! b: F/ ~& G! n! e) H* D
" j* x& K, ^: Q- W `0 C7 a$ L append oper_desc $template_type. B: J$ J/ h" p5 {. M+ Y. O
/ U5 t4 k! f9 D; i* P } elseif { $template_subtype == ""} \; [% h" c' V& _& M
5 C5 M" G: l; w$ P. Y t$ w/ M, s {) H4 c8 V4 A4 r4 n; c4 s+ G2 N& V+ t. r
set oper_desc "$template_type/", h: v* D" H2 r8 X! @- D5 I
# ]$ X% l/ G9 C# A6 b append oper_desc "--"; \3 l, }0 D" v" w, s1 Q5 S
# b3 ^# k, B1 ^+ z } else \1 [0 c" t3 W! m& d( M# P
# U" I$ C; {4 V2 |6 D1 k5 v. _ {7 F. z3 a# W' Z+ H' e V) X& J/ F
& F7 V/ i! z5 l# G1 ?$ X( o set oper_desc "$template_type/$template_subtype"
3 [4 ]# J( g' e9 Z, ]2 k6 d' @# Q# O! Q( G: @+ g# \ }
! X2 y) I/ c B: _; d" G* f( V* A$ O% Z set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s\n" $mom_operation_name \. C- n" }% k0 Y- A' Z% B
5 }! X- Z. S6 n: _' e $oper_desc $mom_tool_name $mom_stock_part $mom_stepover_distance $mom_tool_length $mom_inside_outside_tolerances(0) $mom_inside_outside_tolerances(1)]( P5 [3 h1 c/ y3 [- _5 j% q$ `# r [& E! r2 x$ @3 C- u- }: x3 ~
MOM_output_literal "$output". J" T( K5 O2 _7 B! e! l
; e! m. P, R$ a3 K set template_type ""; W: O- Z% F4 ~5 ]- m0 S* N$ ~$ ` U$ \. G* N+ v' ~
set template_subtype ""
3 R ]" b3 q/ I# Q5 N" m" c1 i2 e/ @) z% v6 i# r% e/ A}& R5 a3 L# R5 q6 e4 T3 V0 t
3 W/ F5 C$ Q- z$ h5 M' Y; m+ Zproc MOM_PROGRAMVIEW_HDR {} {
$ L0 I* c* Y+ E6 E" _$ H- {3 x" p5 F7 e% N9 L* Z( a global mom_member_nest_level& w3 O& T9 O# R$ z' t# p5 V7 _1 [- x E2 z0 X
}6 _: |$ s4 X: M; T6 L: V
& E' g6 n$ b. \6 b; d8 `/ R$ a: p
- Z4 p5 h( _/ p" F#==============================================================================' E9 b; _; n" A- K' d* {
) K0 M! r& E# l: x* }proc MOM_PROGRAMVIEW_FTR {} {8 y1 Y! Q* p+ Z
' v: \$ I9 T+ m* X$ t2 v$ p#==============================================================================! {0 P7 l/ \; p5 Z! Y+ N! K3 Y& X
4 H$ x) ^/ A+ X& B}# |8 H( a* V! Q+ q" [ k
& M( L/ x" Q4 U$ L% K; i( i#==============================================================================+ J- N/ f0 }. f5 y
3 A6 m$ n ]7 P( F- \proc MOM_PROGRAM_BODY {} {
/ A y& e$ d# H$ n6 K; J+ @# l9 w8 c! g( e- C& @9 V/ m& f2 |7 e#==============================================================================3 J u6 _! x6 c6 M" Z
p+ o" N. X. a' F global mom_member_nest_level. Z8 k: G% c0 j# m% r. [2 S+ [8 I# V5 R! s. K
global mom_object_name
7 A, D' i* z y @9 D5 r- Z2 w7 r2 ` Y# i* c% U0 |3 T/ H global line_flag
5 |- p! \% `2 s4 E. z! [3 ?: l. q; T& \# U% L* J! {, B j$ [/ m global mom_stock_part& F/ w. `% f6 v/ t8 K; U! G: h, B7 N
3 [! N/ R, F8 E global mom_stepover_distance( ]/ N, S3 p& V
/ n3 _/ J' K4 A3 P global mom_tool_length" ?& j$ T ]. ]4 v1 T
% }8 N1 B( ?& J* V! @$ ^3 U global mom_inside_outside_tolerances
: g A7 p# s5 P7 X5 P: H! ^" b3 k1 ~- j% n) h' X) w4 ~ Y I, g set oper_name "OPERATION NAME"( x* ~' l2 P' I h: A8 f
2 J9 g6 Y1 B6 ~" v1 f: P5 L* N1 } set oper_type "OPERATION DESCRIPTION"& t8 I6 R$ F$ |7 X _$ `4 w& ~6 y; K" T- e2 `8 b4 c
set tool_name "TOOL NAME"
! v g& p, d0 c! t* l, o. k4 K( Y& T5 [2 d/ y set stock_part "STOCK"
) {/ i! ?- N8 ?. ?! @2 E2 B8 C# H% A set stepover_distance "步距"3 f9 y) d" {+ U1 u+ ^. k* v) [- }
+ ^& t2 e# }7 u- J- u- v+ n5 J set tool_length "刀长"4 f1 E6 e; k7 [4 T, {- u, H, {( Q% @& d9 b2 S, j
set inside_outside_tolerances(0) "内公差"/ q7 H/ k0 P% J, B( ]) `3 Y& P0 m, A: \# z8 \
set inside_outside_tolerances(1) "外公差", x8 @% X4 i/ c9 ~+ k4 @& [% Z: C5 m( ?: c
* i" h' m0 r- K& m3 N+ [6 I, L' }0 L' l3 c! n) S0 v if {$line_flag} \2 K. J2 C Y9 h4 y
4 d. M: j4 K0 W/ ^2 { {' A0 ?/ | L" }9 \9 ], D
, S; o' y! T# ^( J' M- |, Q MOM_output_literal "-----------------------------------------------------------------------------------------------"1 c. [7 R4 t6 p. J& f8 v
: B6 e, Q2 x. i8 W+ x( w3 k; m MOM_output_literal " "1 J' ^; K% u$ g6 \/ N5 Q4 P8 n1 Y3 p$ {$ c/ X1 F b, T
set line_flag 0
( L v1 w6 x, u1 j2 L5 c0 {+ b! N+ j5 {9 N6 e* u }
! ^7 ?9 V! E2 ~ W4 {. Y8 Z% t$ z% n) ?, B set output [format "PROGRAM NAME : %-25s" $mom_object_name]6 M9 b' m, ~; I* f2 l% v4 q3 r" z0 Q- ^6 `( z% I0 c, r: G: e
MOM_output_literal "$output" m* d3 O1 Y0 U5 ~' W/ b: ?, e; [( b. \/ t
# puts the header only for the operations
. a: [6 o2 W" z1 j4 P( o2 V3 \6 P% G- Y+ {: \: F; I MOM_output_literal "-----------------------------------------------------------------------------------------------"
1 N W# |2 u/ Z" k; e, H: d) p/ p) d% j+ m8 ? set output [format "%-30s %-35s %-25s %-25s %-25s %-25s %-25s %-25s" $oper_name $oper_type $tool_name $stock_part $stepover_distance $tool_length $inside_outside_tolerances(0) $inside_outside_tolerances(1)]
" C' P1 t; {+ b6 E) E8 P- \& R9 q: @ ? MOM_output_literal $output
: c# C) Z# m/ b& X" ?- x- F1 n$ j1 Z3 \ MOM_output_literal "-----------------------------------------------------------------------------------------------" D: n7 K. ?7 _$ D# n# \8 C9 E6 |: t: P) f$ z, p( `+ ?
set line_flag 1
$ L! K) ~: {* k; L. z c4 T+ y: {! T! I / R2 H6 x! j2 O& q% y9 |
, }8 g1 Q4 t! g}4 T) I7 J2 r( U. [# S }: |/ x/ i A& D5 y$ r
#==============================================================================4 ?$ J6 {0 Y4 Q& c) ?# D5 Y# `7 v: F( k* v, [% k
proc MOM_MEMBERS_FTR {} { D% Q+ ~2 U2 }: n7 m! V/ L! U& i
. R8 \8 a& f+ |7 u2 K3 m#==============================================================================1 B1 u. t. a) {. Q+ K
. j# @8 S/ Q3 ~: } global line_flag
) _1 w6 d7 i) U$ m ^# T5 m$ ~8 \. {7 }2 V5 s: z9 h if {$line_flag} \
3 v- i |# l& N9 N$ C, K- ~3 d4 [( o' H$ o7 s6 v# Y- u {6 \# N, {: I+ V& F2 y" B$ M2 j$ Q$ U. m% P
MOM_output_literal "-----------------------------------------------------------------------------------------------"8 X# O# _, w# c$ B# T5 J: S+ w
! z' H8 A& e1 d( r- q( I6 X; v MOM_output_literal " "# N/ t, G8 O( r6 e7 C
7 ~. ?) u' a. t8 d3 B set line_flag 0& u/ a0 d* `. e K6 X+ m. {, y1 `
, y, c. Q* i; b( U }
# v7 q- d1 Y p$ s+ u2 o4 A( F7 U+ q8 Y3 ~3 _0 ^, i}
7 e- M7 [& z9 y3 R! ?7 p' }6 k& K% g9 q$ S/ ~9 ~; }3 L
. a4 A% b0 g, b" ~% A o, d1 |1 z, k#==============================================================================
{, G0 m8 c- @! c2 z. n. n# a5 a& k2 N! K/ E1 W8 }5 @proc MOM_MEMBERS_HRD {} {5 {- n7 M5 O$ C* X
5 G$ B2 i# E" {. X8 R#==============================================================================) m) T: T# f* a& a# e: n
% A6 T8 Q4 u4 C* H# m} |
|