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_PROD_FORM_GOOD.SPC)
(AU_UNITMEAS.DESCR)
(AU_PROD_FORM_GOOD.GCOST)
(AU_PROD_FORM_GOOD.COMM)
(AU_RESOURCE.RTITLE)
(AU_RESOURCE.RNAME)
Is Valid (AU_PROD_FORM.IS_VALID)
Description (AU_PROD_FORM.DESCR)
Quantity (AU_PROD_FORM.PQUANT)
UOM (AU_UNITMEAS.DESCR)
From (AU_PROD_FORM.DATE1)
- (AU_PROD_FORM.DATE2)
Activity (AU_RESOURCE.RTITLE)
Activity Type (AU_ACTIV_TYPE.AU_ACTIV_TYPE_D)
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
