lib
proc Lst_DblClick()
if (mode = "SELONGOOD_MODE"
) then
call message
("Product BOM has been selected!"
)
else
call OpenFormTop
("ptEdit";"
AU_BILLOFMATERIALS_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
)
endif
end
proc Form_Start()
call CollapseNavBar
()
call SetCaption
("Bill Of Resources"
)
mode = __params[4]
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT *
FROM AU_PROD_FORM
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "SOFFER_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT *
FROM AU_PROD_FORM
WHERE (AU_EVENT = :PO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PO"
,__params[5]
)
endif
if (mode = "SELONGOOD_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT *
FROM AU_PROD_FORM
WHERE (AU_GOOD = :PO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PO"
,__params[5]
)
endif
call TPrepare
(q
)
end
proc app
end()
if (mode = "SOFFER_MODE"
) then
call OpenFormTop
("ptApp
end";"
AU_BILLOFMATERIALS_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
,__params[5]
)
elseif (mode = "SELONGOOD_MODE"
) then
good_id = __params[5]
call OpenFormTop
("ptApp
end";"
AU_BILLOFMATERIALS_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
,"SELONGOOD_MODE"
,good_id
)
else
call OpenFormTop
("ptApp
end";"
AU_BILLOFMATERIALS_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
)
endif
end
proc expand
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse"
,"
AU_PROD_FORM_GOOD_B.FM"
,"QRY.DATA"
,"BOM_MODE"
,id
)
end
proc cost
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse";"AU_STANDARDCOST_B.1FM";"QRY.DATA"
,"BOM_MODE"
,id
)
end
{=================================== Request For Quotation ==========================}
proc rfq
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse";"
AU_BOM_RFQ.FM";"QRY.DATA"
,"BOM_MODE"
,id
)
end
proc bom
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse";"AU_BOM_B.111FM";"QRY.DATA"
,"PRODFORM_MODE"
,id
)
end
