lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Production Orders"
)
elseif (mode = "EVENT_MODE"
) then
str = strcat
("Production Orders
for Schedule : "
,__params[5]
)
call SetCaption
(str
)
endif
end
proc Lst_DblClick()
stat = TGetFld
(q
,"STATUS"
)
if (stat = "MASSIVE"
) then
call OpenFormTop
("ptEdit";"
AU_MASS_PROD_ORDER_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
else
call OpenFormTop
("ptEdit";"
AU_PROD_ORDER_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
endif
end
proc Panels_Start()
mode = __params[4]
kevent = GetParameter
("AU_KEVENT_PRODUCTION_ORDER"
)
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.*
FROM AU_EVENT
FROM AU_T_EVENT INNER
JOIN AU_EVENT
ON AU_T_EVENT.AU_T_EVENT = AU_EVENT.AU_T_EVENT
WHERE (AU_T_EVENT.KEVENT1 = :KE
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"KE"
,kevent
)
endif
if (mode = "PORDER_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.*
FROM AU_EVENT
FROM AU_T_EVENT INNER
JOIN AU_EVENT
ON AU_T_EVENT.AU_T_EVENT = AU_EVENT.AU_T_EVENT
WHERE (AU_T_EVENT.KEVENT1 = :KE
)
AND (AU_EVENT = :PO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PO"
,__params[5]
)
call TSetParam
(q
,"KE"
,kevent
)
endif
if (mode = "SORDER_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.*
FROM AU_EVENT
FROM AU_T_EVENT INNER
JOIN AU_EVENT
ON AU_T_EVENT.AU_T_EVENT = AU_EVENT.AU_T_EVENT
WHERE (AU_T_EVENT.KEVENT1 = :KE
)
AND (AU_EVENT = :SO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"KE"
,kevent
)
call TSetParam
(q
,"SO"
,__params[5]
)
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.*
FROM AU_EVENT
FROM AU_T_EVENT INNER
JOIN AU_EVENT
ON AU_T_EVENT.AU_T_EVENT = AU_EVENT.AU_T_EVENT
WHERE (AU_T_EVENT.KEVENT1 = :KE
)
AND (AU_EVENT.EVENT_E = :SO
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"KE"
,kevent
)
call TSetParam
(q
,"SO"
,__params[5]
)
endif
call TPrepare
(q
)
end
proc app
end()
if (mode = "SORDER_MODE"
) then
call OpenFormTop
("ptApp
end";"
AU_PROD_ORDER_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
,__params[5]
)
else
call OpenFormTop
("ptApp
end";"
AU_PROD_ORDER_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
endif
end
proc app
end1
()
call OpenFormTop
("ptApp
end";"
AU_MASS_PROD_ORDER_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
end
