lib
proc Form_Start()
call SetCaption
("Purchase Covers"
)
end
proc Lst_DblClick()
event = TGetFld
(q
,"AU_EVENT"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptEdit"
,"
AU_PURCHASE_COVER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
end
proc Panels_Start()
mode = __params[4]
pevent = __params[5]
bus_id = GetActiveEtair
("AU_BUSINESS"
)
if (mode = ""
) then
mode = "ALL_MODE"
endif
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.AU_EVENT
, AU_EVENT.DATE
, AU_KE_EVENT.FLAG1
, AU_KE_EVENT.AMOUNT
, AU_BUSINESS.TITLE
,
AU_EVENT.TOTAL_AMOUNT
, AU_CURRENCY.CCODE
, AU_EVENT.NUMBER
, AU_EVENT.BUDGET_FLAG
FROM AU_CURRENCY INNER
JOIN (((AU_EVENT INNER
JOIN AU_KE_EVENT
ON AU_EVENT.AU_EVENT = AU_KE_EVENT.AU_EVENT
)
INNER
JOIN AU_T_EVENT
ON AU_EVENT.AU_T_EVENT = AU_T_EVENT.AU_T_EVENT
)
INNER
JOIN AU_BUSINESS
ON AU_EVENT.BUSINESS_TO = AU_BUSINESS.AU_BUSINESS
)
ON AU_CURRENCY.AU_CURRENCY = AU_EVENT.AU_CURRENCY
WHERE (AU_T_EVENT.KEVENT1 = 3
) AND (AU_EVENT.BUSINESS_
FROM = :B
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"B"
,bus_id
)
endif
if (mode = "SORDER_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.AU_EVENT
, AU_EVENT.DATE
, AU_KE_EVENT.FLAG1
, AU_KE_EVENT.AMOUNT
, AU_BUSINESS.TITLE
,
AU_EVENT.TOTAL_AMOUNT
, AU_CURRENCY.CCODE
, AU_EVENT.NUMBER
, AU_EVENT.BUDGET_FLAG
FROM AU_CURRENCY INNER
JOIN (((AU_EVENT INNER
JOIN AU_KE_EVENT
ON AU_EVENT.AU_EVENT = AU_KE_EVENT.AU_EVENT
)
INNER
JOIN AU_T_EVENT
ON AU_EVENT.AU_T_EVENT = AU_T_EVENT.AU_T_EVENT
)
INNER
JOIN AU_BUSINESS
ON AU_EVENT.BUSINESS_TO = AU_BUSINESS.AU_BUSINESS
)
ON AU_CURRENCY.AU_CURRENCY = AU_EVENT.AU_CURRENCY
WHERE (AU_T_EVENT.KEVENT1 = 3
) AND (AU_EVENT.BUSINESS_
FROM = :B
)
AND (AU_EVENT.EVENT_E=:EV
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"B"
,bus_id
)
call TSetParam
(q
,"EV"
,pevent
)
endif
call TPrepare
(q
)
end
proc paral
()
call OpenForm
("ptApp
end"
,"
AU_PURCHASE_COVER_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
,pevent
)
end
