#=================================================================================== 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 "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 " |