lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Inspect BOMs"
)
elseif (mode = "EVENT_MODE"
) then
str = strcat
("Inspect BOMs
for Schedule : "
,__params[5]
)
call SetCaption
(str
)
endif
call SetEditableFields
(f
,"PDATE0"
)
call SetClass
("grid"
,"TStringGrid1"
)
end
proc Lst_DblClick()
call OpenFormTop
("ptEdit";"
AU_PROD_FORM_E.FM";"WORK.AU_PROD_FORM";1;"?=AU_PROD_FORM"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT_PROD.AU_EVENT
, AU_JOB_TYPE.AU_JOB_TYPE_D
AS JT_SETUP
, AU_JOB_TYPE_1.AU_JOB_TYPE_D
AS JT_PROD
,
AU_EVENT_PROD.ERROR_FLAG
, AU_EVENT_PROD.SYS_MESSAGE
, AU_EVENT_PROD.AU_PROD_FORM
, AU_EVENT_PROD.AU_EVENT_PROD
,
AU_EQUIPSETUP_JOB_TYPE.PC_PART
AS PC_PART_SETUP
, AU_EQUIPSETUP_JOB_TYPE.ASSOC_COUNT
AS ASSOC_COUNT_SETUP
,
AU_PRODFORM_EQUIP.PREFERENCE_ORDER
, AU_PRODFORM_EQUIP.ASSOC_COUNT
AS ASSOC_COUNT_PROD
,
AU_PROD_FORM.AU_EVENT
, AU_PROD_FORM.AU_KE_GOOD
, AU_EQUIPMENT_SETUP.TIME_MIN
,
AU_GOOD.TITLE
, AU_PRODFORM_EQUIP.PC_PART
AS PC_PART_PROD
, AU_RESOURCE_GROUP.GTITLE
AS ETITLE
FROM (((((AU_EVENT_PROD
LEFT JOIN
(AU_EQUIPSETUP_JOB_TYPE
RIGHT JOIN
(AU_PROD_FORM
LEFT JOIN AU_EQUIPMENT_SETUP
ON AU_PROD_FORM.AU_EQUIPMENT_SETUP = AU_EQUIPMENT_SETUP.AU_EQUIPMENT_SETUP
)
ON AU_EQUIPSETUP_JOB_TYPE.AU_EQUIPMENT_SETUP = AU_EQUIPMENT_SETUP.AU_EQUIPMENT_SETUP
)
ON AU_EVENT_PROD.AU_PROD_FORM = AU_PROD_FORM.AU_PROD_FORM
) LEFT JOIN AU_GOOD
ON AU_EVENT_PROD.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_JOB_TYPE
ON AU_EQUIPSETUP_JOB_TYPE.AU_JOB_TYPE = AU_JOB_TYPE.AU_JOB_TYPE
)
LEFT JOIN AU_PRODFORM_EQUIP
ON AU_PROD_FORM.AU_PROD_FORM = AU_PRODFORM_EQUIP.AU_PROD_FORM
)
LEFT JOIN AU_RESOURCE_GROUP
ON AU_PRODFORM_EQUIP.AU_RESOURCE_GROUP = AU_RESOURCE_GROUP.AU_RESOURCE_GROUP
)
LEFT JOIN AU_JOB_TYPE
AS AU_JOB_TYPE_1
ON AU_PRODFORM_EQUIP.AU_JOB_TYPE = AU_JOB_TYPE_1.AU_JOB_TYPE
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT_PROD.AU_EVENT
, AU_JOB_TYPE.AU_JOB_TYPE_D
AS JT_SETUP
, AU_JOB_TYPE_1.AU_JOB_TYPE_D
AS JT_PROD
,
AU_EVENT_PROD.ERROR_FLAG
, AU_EVENT_PROD.SYS_MESSAGE
, AU_EVENT_PROD.AU_PROD_FORM
, AU_EVENT_PROD.AU_EVENT_PROD
,
AU_EQUIPSETUP_JOB_TYPE.PC_PART
AS PC_PART_SETUP
, AU_EQUIPSETUP_JOB_TYPE.ASSOC_COUNT
AS ASSOC_COUNT_SETUP
,
AU_PRODFORM_EQUIP.PREFERENCE_ORDER
, AU_PRODFORM_EQUIP.ASSOC_COUNT
AS ASSOC_COUNT_PROD
,
AU_PROD_FORM.AU_EVENT
, AU_PROD_FORM.AU_KE_GOOD
, AU_EQUIPMENT_SETUP.TIME_MIN
,
AU_GOOD.TITLE
, AU_PRODFORM_EQUIP.PC_PART
AS PC_PART_PROD
, AU_RESOURCE_GROUP.GTITLE
AS ETITLE
FROM (((((AU_EVENT_PROD
LEFT JOIN
(AU_EQUIPSETUP_JOB_TYPE
RIGHT JOIN
(AU_PROD_FORM
LEFT JOIN AU_EQUIPMENT_SETUP
ON AU_PROD_FORM.AU_EQUIPMENT_SETUP = AU_EQUIPMENT_SETUP.AU_EQUIPMENT_SETUP
)
ON AU_EQUIPSETUP_JOB_TYPE.AU_EQUIPMENT_SETUP = AU_EQUIPMENT_SETUP.AU_EQUIPMENT_SETUP
)
ON AU_EVENT_PROD.AU_PROD_FORM = AU_PROD_FORM.AU_PROD_FORM
) LEFT JOIN AU_GOOD
ON AU_EVENT_PROD.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_JOB_TYPE
ON AU_EQUIPSETUP_JOB_TYPE.AU_JOB_TYPE = AU_JOB_TYPE.AU_JOB_TYPE
)
LEFT JOIN AU_PRODFORM_EQUIP
ON AU_PROD_FORM.AU_PROD_FORM = AU_PRODFORM_EQUIP.AU_PROD_FORM
)
LEFT JOIN AU_RESOURCE_GROUP
ON AU_PRODFORM_EQUIP.AU_RESOURCE_GROUP = AU_RESOURCE_GROUP.AU_RESOURCE_GROUP
)
LEFT JOIN AU_JOB_TYPE
AS AU_JOB_TYPE_1
ON AU_PRODFORM_EQUIP.AU_JOB_TYPE = AU_JOB_TYPE_1.AU_JOB_TYPE
WHERE (AU_EVENT_PROD.AU_EVENT = :EV
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,__params[5]
endif
call TPrepare
(q
)
end
proc app
end()
if (mode = "EVENT_MODE"
) then
call OpenFormTop
("ptApp
end";"
AU_EVENT_PROD_E.FM";"WORK.AU_EVENT_PROD";1;"?=AU_EVENT_PROD"
,mode
,__params[5]
)
else
call OpenFormTop
("ptApp
end";"
AU_EVENT_PROD_E.FM";"WORK.AU_EVENT_PROD";1;"?=AU_EVENT_PROD"
)
endif
end
{------------------------------------- expand ----------------------------------------}
proc expand
()
event_id = TGetFld
(q
,"AU_EVENT"
)
call CreateSemifinished
(event_id
)
call Refresh
(f
)
call message
("done!"
)
end
{---------------------------------------- rowmat --------------------------------------}
proc rowmat
()
event_id = TGetFld
(q
,"AU_EVENT"
)
call CreateRawmaterials
(event_id
)
call message
("done!"
)
end
{---------------------------------------- rowmat --------------------------------------}
proc showrowmat
()
event_id = TGetFld
(q
,"AU_EVENT"
)
call OpenFormTop
("ptBrowse"
,"
AU_EVENT_PROD_RAWMAT_B.FM"
,"QRY.DATA"
,"PROD_MODE"
,event_id
)
end
