lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Products Transfer"
)
elseif (mode = "EVENT_MODE"
) then
str = strcat
("Products Transfer
for Schedule : "
,__params[5]
)
call SetCaption
(str
)
endif
end
proc Lst_DblClick()
call OpenFormTop
("ptEdit";"
AU_GOOD_MOVE_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.DATE
, AU_UNITMEAS.CODE
, AU_KE_GOOD.QUANT
, AU_GOOD.TITLE
, AU_GOOD.CODE
,
AU_EVENT.REASON1
, AU_EVENT.AU_EVENT
FROM AU_GOOD INNER
JOIN (AU_UNITMEAS INNER
JOIN (AU_KE_GOOD
INNER
JOIN AU_EVENT
ON AU_KE_GOOD.AU_EVENT = AU_EVENT.AU_EVENT
)
ON AU_UNITMEAS.AU_UNITMEAS = AU_KE_GOOD.AU_UNITMEAS
) ON AU_GOOD.AU_GOOD = AU_KE_GOOD.AU_GOOD
end_sql
q = QueryByName
("DATA"
)
{
WHERE (((AU_EVENT.TO_WAREHOUSE
)>0
) AND ((AU_EVENT.FROM_WAREHOUSE
)>0
))}
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.DATE
, AU_UNITMEAS.CODE
, AU_KE_GOOD.QUANT
, AU_GOOD.TITLE
, AU_GOOD.CODE
,
AU_EVENT.REASON1
, AU_EVENT.AU_EVENT
FROM AU_GOOD INNER
JOIN (AU_UNITMEAS INNER
JOIN (AU_KE_GOOD
INNER
JOIN AU_EVENT
ON AU_KE_GOOD.AU_EVENT = AU_EVENT.AU_EVENT
)
ON AU_UNITMEAS.AU_UNITMEAS = AU_KE_GOOD.AU_UNITMEAS
) ON AU_GOOD.AU_GOOD = AU_KE_GOOD.AU_GOOD
WHERE (((AU_EVENT.TO_WAREHOUSE
)>0
) AND ((AU_EVENT.FROM_WAREHOUSE
)>0
))
AND (AU_EVENT.EVENT_E = :E
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"E"
,__params[5]
endif
if (mode = "PORDER1_MODE"
) or
(mode = "PORDER2_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.DATE
, AU_UNITMEAS.CODE
, AU_KE_GOOD.QUANT
, AU_GOOD.TITLE
,
AU_GOOD.CODE
, AU_EVENT.REASON1
, AU_EVENT.AU_EVENT
FROM AU_GOOD INNER
JOIN (AU_UNITMEAS INNER
JOIN ((((AU_KE_GOOD INNER
JOIN AU_EVENT
ON AU_KE_GOOD.AU_EVENT = AU_EVENT.AU_EVENT
)
INNER
JOIN AU_EVENT
AS AU_EVENT_1
ON AU_EVENT.EVENT_E = AU_EVENT_1.AU_EVENT
)
INNER
JOIN AU_T_EVENT
ON AU_EVENT_1.AU_T_EVENT = AU_T_EVENT.AU_T_EVENT
)
INNER
JOIN AU_KEVENT
ON AU_T_EVENT.KEVENT1 = AU_KEVENT.AU_KEVENT
)
ON AU_UNITMEAS.AU_UNITMEAS = AU_KE_GOOD.AU_UNITMEAS
)
ON AU_GOOD.AU_GOOD = AU_KE_GOOD.AU_GOOD
WHERE (((AU_KEVENT.AU_KEVENT
)=15
) AND (AU_EVENT_1.AU_EVENT=:PO
))
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"PO"
,__params[5]
endif
call TPrepare
(q
)
end
proc app
end()
if (mode = "PORDER1_MODE"
) or
(mode = "PORDER2_MODE"
) then
call OpenFormTop
("ptApp
end";"
AU_GOOD_MOVE_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
,mode
,__params[5]
)
else
call OpenFormTop
("ptApp
end";"
AU_GOOD_MOVE_E.FM";"WORK.AU_EVENT";1;"?=AU_EVENT"
)
endif
end
