lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Production Materials"
)
elseif (mode = "PROD_MODE"
) then
str = strcat
("Production Materials : "
,__params[5]
)
call SetCaption
(str
)
endif
call SetClass
("grid"
,"TStringGrid1"
)
end
proc Lst_DblClick()
event_prod = TGetFld
(q
,"EVENT0"
)
expr = strcat
(event_prod
,"=AU_EVENT_PROD"
)
call OpenFormTop
("ptEdit";"
AU_EVENT_PROD_E.FM";"WORK.AU_EVENT_PROD";1;expr
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_K_GOOD.TYPE
, AU_K_GOOD.AU_K_GOOD
, AU_GOOD.TITLE
, AU_K_GOOD.DEBIT_P_Q
, AU_K_GOOD.CREDIT_P_Q
,
AU_UNITMEAS.CODE
, AU_K_GOOD.AU_EVENT
, AU_K_GOOD.EVENT0
, AU_K_GOOD.COLOR_ID
, AU_K_GOOD.REASON
,
AU_K_GOOD.AU_K_GOOD
, AU_K_GOOD.RUN_SUM_Q
, AU_EVENT_PROD.AU_EVENT_PROD0
, AU_EVENT_PROD.LEV
FROM ((AU_GOOD INNER
JOIN AU_K_GOOD
ON AU_GOOD.AU_GOOD = AU_K_GOOD.AU_GOOD
) INNER
JOIN AU_UNITMEAS
ON AU_K_GOOD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
) INNER
JOIN AU_EVENT_PROD
ON AU_K_GOOD.EVENT0 = AU_EVENT_PROD.AU_EVENT_PROD
ORDER BY AU_K_GOOD.TYPE
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "PROD_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_K_GOOD.TYPE
, AU_K_GOOD.AU_K_GOOD
, AU_GOOD.TITLE
, AU_K_GOOD.DEBIT_P_Q
, AU_K_GOOD.CREDIT_P_Q
,
AU_UNITMEAS.CODE
, AU_K_GOOD.AU_EVENT
, AU_K_GOOD.EVENT0
, AU_K_GOOD.COLOR_ID
, AU_K_GOOD.REASON
,
AU_K_GOOD.AU_K_GOOD
, AU_K_GOOD.RUN_SUM_Q
, AU_EVENT_PROD.AU_EVENT_PROD0
, AU_EVENT_PROD.LEV
FROM ((AU_GOOD INNER
JOIN AU_K_GOOD
ON AU_GOOD.AU_GOOD = AU_K_GOOD.AU_GOOD
) INNER
JOIN AU_UNITMEAS
ON AU_K_GOOD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
) INNER
JOIN AU_EVENT_PROD
ON AU_K_GOOD.EVENT0 = AU_EVENT_PROD.AU_EVENT_PROD
WHERE (AU_K_GOOD.AU_EVENT = :EV
)
ORDER BY AU_K_GOOD.TYPE
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,__params[5]
)
endif
call TPrepare
(q
)
end
{===================================== Form_DrawCell =====================================}
proc Form_DrawCell
( grid
, fname
, fval
, q
)
color_id = TGetFld
(q
,"COLOR_ID"
)
if (color_id > 0
) then
grid.Canvas.Font.Style = "[fsBold]"
grid.Canvas.Font.Color = color_id
endif
end
