lib
proc Lst_DblClick()
error = TGetFld
(q
,"ERROR_FLAG"
)
if (error = 1
) then
errormsg = TGetFld
(q
,"CALC_ERROR"
)
if (errormsg = "Missing Resource Cost"
) then
res_id = TGetFld
(q
,"AU_RESOURCE"
)
call OpenFormTop
("ptApp
end"
,"
AU_RESOURCE_COST_E.FM"
,"WORK.AU_RESOURCE_COST"
,1
,"?=AU_RESOURCE_COST"
,res_id
)
else
call OpenFormTop
("ptEdit";"
AU_PROD_FORM_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
)
endif
else
call OpenFormTop
("ptEdit";"
AU_PROD_FORM_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
)
endif
end
proc Form_Start()
call CollapseNavBar
()
call SetCaption
("Standard Cost"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_RESOURCE.RTITLE
, AU_RESOURCE.RNAME
, AU_RESOURCE.PTITLE
, AU_COST.COMM
, AU_CURRENCY.DESCR
,
AU_COST.AU_PROD_FORM
, AU_UNITMEAS.CODE
, AU_COST.CQUANT
, AU_COST.BUDGET_FLAG
, AU_COST.AU_EVENT
, AU_COST.CPRICE
,
AU_COST.CVALUE
, AU_COST.[CDATE]
, AU_CURRENCY.CCODE
, AU_PROD_FORM.DESCR
AS BOMD
FROM ((((AU_RESOURCE_COST
RIGHT JOIN AU_COST
ON AU_RESOURCE_COST.AU_RESOURCE_COST = AU_COST.AU_RESOURCE_COST
)
LEFT JOIN AU_RESOURCE
ON AU_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_CURRENCY
ON AU_COST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
LEFT JOIN AU_UNITMEAS
ON AU_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_PROD_FORM
ON AU_COST.AU_PROD_FORM = AU_PROD_FORM.AU_PROD_FORM
LEFT JOIN AU_UNITMEAS
AS AU_UNITMEAS1
ON AU_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
ORDER BY AU_COST.AU_COST
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_RESOURCE.RTITLE
, AU_RESOURCE.RNAME
, AU_RESOURCE.PTITLE
, AU_COST.COMM
,
AU_CURRENCY.DESCR
, AU_COST.AU_PROD_FORM
, AU_RESOURCE.AU_RESOURCE
,
AU_COST.CALC_CONTEXT0
, AU_COST.CALC_CONTEXT1
, AU_COST.CALC_ERROR
, AU_COST.ERROR_FLAG
,
AU_UNITMEAS.CODE
, AU_COST.CQUANT
, AU_COST.BUDGET_FLAG
, AU_COST.AU_EVENT
,
AU_COST.CPRICE
, AU_COST.CVALUE
, AU_COST.[CDATE]
,
AU_CURRENCY.CCODE
, AU_PROD_FORM.DESCR
AS BOMD
FROM ((((AU_RESOURCE_COST
RIGHT JOIN AU_COST
ON AU_RESOURCE_COST.AU_RESOURCE_COST = AU_COST.AU_RESOURCE_COST
)
LEFT JOIN AU_RESOURCE
ON AU_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_CURRENCY
ON AU_COST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
LEFT JOIN AU_UNITMEAS
AS AU_UNITMEAS1
ON AU_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_PROD_FORM
ON AU_COST.AU_PROD_FORM = AU_PROD_FORM.AU_PROD_FORM
WHERE (AU_COST.AU_EVENT = :PO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PO"
,__params[5]
)
endif
if (mode = "BOM_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_RESOURCE.RTITLE
, AU_RESOURCE.RNAME
, AU_RESOURCE.PTITLE
, AU_COST.COMM
,
AU_CURRENCY.DESCR
, AU_COST.AU_PROD_FORM
,
AU_UNITMEAS.CODE
, AU_COST.CQUANT
, AU_COST.BUDGET_FLAG
, AU_COST.AU_EVENT
,
AU_COST.CPRICE
, AU_COST.CVALUE
, AU_COST.[CDATE]
,
AU_CURRENCY.CCODE
, AU_PROD_FORM.DESCR
AS BOMD
FROM ((((AU_RESOURCE_COST
RIGHT JOIN AU_COST
ON AU_RESOURCE_COST.AU_RESOURCE_COST = AU_COST.AU_RESOURCE_COST
)
LEFT JOIN AU_RESOURCE
ON AU_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_CURRENCY
ON AU_COST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
LEFT JOIN AU_UNITMEAS
ON AU_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_PROD_FORM
ON AU_COST.AU_PROD_FORM = AU_PROD_FORM.AU_PROD_FORM
LEFT JOIN AU_UNITMEAS
AS AU_UNITMEAS1
ON AU_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
WHERE (AU_COST.AU_PROD_FORM = :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_PROD_FORM_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
,__params[5]
)
else
call OpenFormTop
("ptApp
end";"
AU_PROD_FORM_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
