lib
proc Form_Start()
call SetCaption
("Purchases"
)
end
proc Panels_Start()
mode = __params[4]
pevent = __params[5]
bus_id = GetActiveEtair
("AU_BUSINESS"
)
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.AU_EVENT
, AU_EVENT.DATE
, AU_EVENT.EVENT_E
, AU_CURRENCY.CCODE
,
AU_BUSINESS.TITLE
, AU_EVENT.NUMBER
, AU_EVENT.TOTAL_AMOUNT
, AU_T_EVENT.DESCR
,
AU_EVENT.AU_POSTINGFORM
FROM ((AU_EVENT
LEFT JOIN AU_CURRENCY
ON AU_EVENT.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
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_
FROM = AU_BUSINESS.AU_BUSINESS
WHERE (AU_T_EVENT.KEVENT1 = 2
)
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_EVENT.EVENT_E
, AU_CURRENCY.CCODE
,
AU_BUSINESS.TITLE
, AU_EVENT.NUMBER
, AU_EVENT.TOTAL_AMOUNT
, AU_T_EVENT.DESCR
,
AU_EVENT.AU_POSTINGFORM
FROM ((AU_EVENT
RIGHT JOIN AU_CURRENCY
ON AU_EVENT.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
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_
FROM = AU_BUSINESS.AU_BUSINESS
WHERE (AU_T_EVENT.KEVENT1 = 2
) AND (AU_EVENT.BUSINESS_
FROM = :B
)
AND (AU_EVENT.EVENT_E = :EV
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,pevent
)
call TSetParam
(q
,"B"
,bus_id
)
endif
call TPrepare
(q
)
end
proc Lst_DblClick()
event = TGetFld
(q
,"AU_EVENT"
)
form = TGetFld
(q
,"AU_POSTINGFORM"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end
proc delete
()
event = TGetFld
(q
,"AU_EVENT"
)
form = TGetFld
(q
,"AU_POSTINGFORM"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptDelete"
,form
,"WORK.AU_EVENT"
,1
,expr
)
end
proc paral
()
call OpenForm
("ptApp
end"
,"
AU_EVENT_GOODSIN21_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
)
end
proc invoice
()
call OpenForm
("ptApp
end"
,"
AU_PURCHASE_GOODRECEIPT_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
)
end
