lib
proc Lst_DblClick()
act_id = TGetFld
(q
,"AU_ACTIVITY"
)
expr = strcat
(act_id
,"=AU_ACTIVITY"
)
call OpenFormTop
("ptEdit";"
AU_ACTIVITY_LABTRACE_E.FM";"WORK.AU_ACTIVITY";1;expr
)
end
proc Form_Start()
call CollapseNavBar
()
call SetCaption
("Activities Mat Tracing and Cost"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT DISTINCT AU_PROCESS.COMM
, AU_STEP.ACTIVITY
, AU_STEP.STEP_DESCR
, AU_STEP_COST.SERIAL_NUMBER
, AU_STEP_COST.LOT_NUM
,
AU_RESOURCE.RTITLE
, AU_WAREHOUSE.DESCR
, AU_STEP.FINISHED_AT_DATE
, AU_PROCESS.AU_PROCESS
, AU_STEP.AU_STEP
,
AU_RESOURCE.RECID
, AU_STEP.AU_ACTIVITY
FROM ((((AU_STEP
LEFT JOIN AU_PROCESS
ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
)
LEFT JOIN AU_STEP_COST
ON AU_STEP.AU_STEP = AU_STEP_COST.AU_STEP
)
LEFT JOIN AU_RESOURCE
ON AU_STEP_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_ACTIVITY_COST
ON AU_STEP.AU_ACTIVITY = AU_ACTIVITY_COST.AU_ACTIVITY
)
LEFT JOIN AU_WAREHOUSE
ON AU_ACTIVITY_COST.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "PROCESS_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT DISTINCT AU_PROCESS.COMM
, AU_STEP.ACTIVITY
, AU_STEP.STEP_DESCR
, AU_STEP_COST.SERIAL_NUMBER
, AU_STEP_COST.LOT_NUM
,
AU_RESOURCE.RTITLE
, AU_WAREHOUSE.DESCR
, AU_STEP.FINISHED_AT_DATE
, AU_PROCESS.AU_PROCESS
, AU_STEP.AU_STEP
,
AU_RESOURCE.RECID
, AU_STEP.AU_ACTIVITY
FROM ((((AU_STEP
LEFT JOIN AU_PROCESS
ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
)
LEFT JOIN AU_STEP_COST
ON AU_STEP.AU_STEP = AU_STEP_COST.AU_STEP
)
LEFT JOIN AU_RESOURCE
ON AU_STEP_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_ACTIVITY_COST
ON AU_STEP.AU_ACTIVITY = AU_ACTIVITY_COST.AU_ACTIVITY
)
LEFT JOIN AU_WAREHOUSE
ON AU_ACTIVITY_COST.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
WHERE (AU_STEP.AU_PROCESS = :PR
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PR"
,__params[5]
)
endif
if (mode = "BUSINESS_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT DISTINCT AU_PROCESS.COMM
, AU_STEP.ACTIVITY
, AU_STEP.STEP_DESCR
, AU_STEP_COST.SERIAL_NUMBER
, AU_STEP_COST.LOT_NUM
,
AU_RESOURCE.RTITLE
, AU_WAREHOUSE.DESCR
, AU_STEP.FINISHED_AT_DATE
, AU_PROCESS.AU_PROCESS
, AU_STEP.AU_STEP
,
AU_RESOURCE.RECID
, AU_STEP.AU_ACTIVITY
FROM ((((AU_STEP
LEFT JOIN AU_PROCESS
ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
)
LEFT JOIN AU_STEP_COST
ON AU_STEP.AU_STEP = AU_STEP_COST.AU_STEP
)
LEFT JOIN AU_RESOURCE
ON AU_STEP_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
)
LEFT JOIN AU_ACTIVITY_COST
ON AU_STEP.AU_ACTIVITY = AU_ACTIVITY_COST.AU_ACTIVITY
)
LEFT JOIN AU_WAREHOUSE
ON AU_ACTIVITY_COST.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
WHERE (AU_STEP.AU_BUSINESS = :B
) AND (AU_STEP.AU_BUSINESS > 0
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"B"
,__params[5]
)
endif
if (mode = "GOOD_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT DISTINCT AU_PROCESS.COMM
, AU_STEP.ACTIVITY
, AU_STEP.STEP_DESCR
, AU_STEP_COST.SERIAL_NUMBER
,
AU_STEP_COST.LOT_NUM
, AU_RESOURCE.RTITLE
, AU_WAREHOUSE.DESCR
, AU_STEP.FINISHED_AT_DATE
,
AU_PROCESS.AU_PROCESS
, AU_STEP.AU_STEP
, AU_RESOURCE.RECID
AS AU_GOOD
,
AU_GOOD.AU_GOOD
, AU_RESOURCE.RTYPE
,
AU_RESOURCE.RECID
, AU_STEP.AU_ACTIVITY
FROM (((((AU_STEP
LEFT JOIN AU_PROCESS
ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
)
LEFT JOIN AU_STEP_COST
ON AU_STEP.AU_STEP = AU_STEP_COST.AU_STEP
) LEFT JOIN AU_RESOURCE
ON AU_STEP_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
) LEFT JOIN AU_ACTIVITY_COST
ON AU_STEP.AU_ACTIVITY = AU_ACTIVITY_COST.AU_ACTIVITY
) LEFT JOIN AU_WAREHOUSE
ON AU_ACTIVITY_COST.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
)
LEFT JOIN AU_GOOD
ON AU_RESOURCE.RECID = AU_GOOD.AU_GOOD
WHERE (AU_GOOD.AU_GOOD = :G
) AND (AU_RESOURCE.RTYPE = 'AU_GOOD'
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"G"
,__params[5]
)
endif
call TPrepare
(q
)
end
proc history
()
process_id = TGetFld
(q
,"AU_PROCESS"
)
call OpenFormTop
("ptBrowse";"
AU_PROOD.FM";"QRY.DATA"
,process_id
)
end
{=========================== consume ===================================}
proc consume
()
id = TGetFld
(q
,"RECID"
)
str = SelectFrom
("
SELECT CODE
, TITLE
FROM AU_GOOD
WHERE (AU_GOOD="
,id
,"
)"
)
code = GetSQLSelectItem
(str
,1
)
title = GetSQLSelectItem
(str
,2
)
ser = TGetFld
(q
,"SERIAL_NUMBER"
)
lot = TGetFld
(q
,"LOT_NUM"
)
exp = TGetFld
(q
,"EXP_DATE"
)
wdescr = TGetFld
(q
,"WDESCR"
)
wid = TGetFld
(q
,"AU_WAREHOUSE"
)
ucode = TGetFld
(q
,"UCODE"
)
uid = TGetFld
(q
,"AU_UNITMEAS"
)
fm = FByResName
("AU_GOOD_CONSMOVE_E.FM"
)
if (fm = 0
) then
call OpenFormTop
("ptApp
end";"
AU_GOOD_CONSMOVE_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
,"ADD_GOODS"
)
fm = FByResName
("AU_GOOD_CONSMOVE_E.FM"
)
pm0 = PByName
(fm
,"AU_EVENT"
)
tm0 = TByName
(pm0
,"AU_EVENT"
)
call TEdit
(tm0
)
call TSetFld
(tm0
,"FROM_WAREHOUSE"
,wid
)
call TSetFld
(tm0
,"F_FROM_WAREHOUSE_DESCR"
,wdescr
)
call TPost
(tm0
)
endif
pm = PByName
(fm
,"AU_KE_GOOD"
)
tm = TByName
(pm
,"AU_KE_GOOD"
)
call TApp
end(tm
)
call TSetFld
(tm
,"AU_GOOD"
,id
)
call TSetFld
(tm
,"F_AU_GOOD_CODE"
,code
)
call TSetFld
(tm
,"F_AU_GOOD_TITLE"
,title
)
call TSetFld
(tm
,"SERIAL_NUMBER"
,ser
)
call TSetFld
(tm
,"LOT_NUM"
,lot
)
call TSetFld
(tm
,"EXPIR_DATE"
,exp
)
call TSetFld
(tm
,"QUANT"
,1
)
call TSetFld
(tm
,"AU_UNITMEAS"
,uid
)
call TSetFld
(tm
,"F_AU_UNITMEAS_CODE"
,ucode
)
call TPost
(tm
)
call ReloadEditFields
(fm
)
end
