Title : Bill Of Materials
Toolbars
call BrowseEditInsert()
call BrowseEditDoVKUp(fld_id,fld_val,key)
call BrowseEditDoVKDown(fld_id,fld_val,key)
call BrowseEditDelete()
call BrowseEditInsert()
call BrowseEditDoVKUp(fld_id,fld_val,key)
call BrowseEditDoVKDown(fld_id,fld_val,key)
call BrowseEditDelete()
call CloseForm(True)
call CloseForm(False)
Buttons
Fields
(AU_GOOD.CODE)
(AU_PROD_FORM_GOOD.SPC)
(AU_UNITMEAS.DESCR)
(AU_GOOD.TITLE)
(AU_PROD_FORM_GOOD.GCOST)
(AU_PROD_FORM_GOOD.COMM)
Is Valid (AU_PROD_FORM.IS_VALID)
Description (AU_PROD_FORM.DESCR)
Product (AU_GOOD.TITLE)
Machine Setup (AU_EQUIPMENT_SETUP.TITLE)
Quantity (AU_PROD_FORM.PQUANT)
UOM (AU_UNITMEAS.DESCR)
From (AU_PROD_FORM.DATE1)
- (AU_PROD_FORM.DATE2)
Setup Time / Prod Time (AU_PROD_FORM.SETUP_PROD_1)
Cleanup Time / Prod Time (AU_PROD_FORM.SETUP_PROD_2)
Comments (EIDH0_DELT_PAR0.COMM)
(AU_JOB_TYPE.AU_JOB_TYPE_D)
(AU_PRODFORM_EQUIP.PC_PART)
(AU_PRODFORM_EQUIP.ASSOC_COUNT)
(AU_UNITMEAS.DESCR)
(AU_PRODFORM_EQUIP.RATE_HR)
(AU_PRODFORM_EQUIP.PREFERENCE_ORDER)
(AU_PRODFORM_EQUIP.EPC_PART)
(AU_RESOURCE_GROUP.GTITLE)
AutoScript
lib
proc Form_Start()
call SetCaption("Bill Of Materials")
f = TopForm()
p = PByName(f,"AU_PROD_FORM")
t = TByName(p,"AU_PROD_FORM")
mode = __params[6]
if (mode = "OFFERTOBOM") then
ev_id = __params[7]
parent_id = __params[8]
endif
if (mode = "SELONGOOD_MODE") then
good_id = __params[7]
goodt = LookUpId("AU_GOOD",good_id,"TITLE")
call TEdit(t)
call TSetFld(t,"AU_GOOD",good_id)
call TSetFld(t,"F_AU_GOOD_TITLE",goodt)
call TSetFld(t,"DESCR",goodt)
call TPost(t)
call ReLoadEditFields(f)
endif
end
proc Form_End ( uvalue )
if (mode = "OFFERTOBOM") then
{....start relations}
call ExecuteServer("ADD_RELATION", "AU_OFFERTOBOM", "AU_OFFERTOBOM", ev_id, uvalue, parent_id )
endif
end
