lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Production Quantities"
)
elseif (mode = "EVENT_MODE"
) then
str = strcat
("Production Quantities
for Schedule : "
,__params[5]
)
call SetCaption
(str
)
endif
call SetEditableFields
(f
,"PDATE0"
)
call SetClass
("grid"
,"TStringGrid1"
)
end
proc Lst_DblClick()
call OpenFormTop
("ptEdit";"
AU_EVENT_PROD_E.FM";"WORK.AU_EVENT_PROD";1;"?=AU_EVENT_PROD"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PROD.AU_EVENT_PROD
,
AU_EVENT_PROD.QUANT
, AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_PROD.RELEASED_FLAG
,
AU_EVENT_PROD.PDATE0
, AU_EVENT_PROD.PDATE
, AU_EVENT_PROD.SCOLOR
,
AU_EVENT_PROD.AU_BUSINESS
, AU_EVENT_PROD.AU_OBJCOLOR
,
AU_EVENT_PROD.GIVEN_ORDER
, AU_EVENT_PROD.OPTIM_ORDER
, AU_BUSINESS.TITLE
AS BTITLE
, AU_USER.UNAME
,
AU_EVENT_PROD.SALESMAN
, AU_EVENT_PROD.PDATE1
, AU_EVENT_PROD.AU_EVENT
, AU_EVENT_PROD.LEV
,
AU_EVENT_PROD.SCHEDULED_FLAG
, AU_EVENT_PROD.CANCELED_FLAG
, AU_EVENT_PROD.DONE_FLAG
FROM (((AU_EVENT_PROD
LEFT JOIN AU_GOOD
ON AU_EVENT_PROD.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_PROD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_PROD.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_PROD.SALESMAN = AU_USER.AU_USER
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PROD.AU_EVENT_PROD
,
AU_EVENT_PROD.QUANT
, AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_PROD.RELEASED_FLAG
,
AU_EVENT_PROD.PDATE0
, AU_EVENT_PROD.PDATE
, AU_EVENT_PROD.SCOLOR
,
AU_EVENT_PROD.AU_BUSINESS
, AU_EVENT_PROD.AU_OBJCOLOR
,
AU_EVENT_PROD.GIVEN_ORDER
, AU_EVENT_PROD.OPTIM_ORDER
, AU_BUSINESS.TITLE
AS BTITLE
, AU_USER.UNAME
,
AU_EVENT_PROD.SALESMAN
, AU_EVENT_PROD.PDATE1
, AU_EVENT_PROD.AU_EVENT
, AU_EVENT_PROD.LEV
,
AU_EVENT_PROD.SCHEDULED_FLAG
, AU_EVENT_PROD.CANCELED_FLAG
, AU_EVENT_PROD.DONE_FLAG
FROM (((AU_EVENT_PROD
LEFT JOIN AU_GOOD
ON AU_EVENT_PROD.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_PROD.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_PROD.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_PROD.SALESMAN = AU_USER.AU_USER
WHERE (AU_EVENT_PROD.AU_EVENT = :EV
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,__params[5]
endif
call TPrepare
(q
)
end
{===================================== Form_DrawCell =====================================}
proc Form_DrawCell111
( grid
, fname
, fval
, q
)
lev = TGetFld
(q
,"LEV"
)
if (lev = 0
) then
grid.Canvas.Font.Style = "[fsBold]"
grid.Canvas.Font.Color = "clBlack"
endif
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
