#=================================================================================== proc MOM_Start_Part_Documentation {} { #=================================================================================== global mom_part_name global mom_logname global mom_date # following are part attributes (DWG_NO, CUST_NAME, CUST_NO, JOB_NO) global mom_dwg_no global mom_cust_name global mom_cust_no global mom_job_no MOM_output_literal "" MOM_output_literal " CL File Data" MOM_output_literal "" MOM_output_literal "" MOM_output_literal "

Company

" MOM_output_literal "

CL File Data

" MOM_output_literal "" if {[info exists mom_job_no] } then { MOM_output_literal "
Job Number $mom_job_no" } else { MOM_output_literal "
Job Number ATTRIBUTES NOT YET ASSIGNED IN PART FILE!" } if {[info exists mom_cust_name] } then { MOM_output_literal "
Customer $mom_cust_name" } else { MOM_output_literal "
Customer ATTRIBUTES NOT YET ASSIGNED IN PART FILE!" } if {[info exists mom_cust_no]} then { if {[string length $mom_cust_no] > 1 } then { MOM_output_literal "
Customer Job No. $mom_cust_no" } else { MOM_output_literal "
Customer Job No. None available" } } MOM_output_literal "
UG Part File $mom_part_name" MOM_output_literal "
Created by $mom_logname" MOM_output_literal "
HTML Docs File Date $mom_date" MOM_output_literal "
" }