lib
proc Form_Start()
call SetCaption
("Goods S
ending"
)
end
proc Lst_DblClick()
event = TGetFld
(q
,"AU_EVENT"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptEdit"
,"
AU_SALE_GOODRECEIPT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
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_WAREHOUSE.DESCR
,
AU_GOOD.TITLE
, AU_KE_GOOD.QUANT
, AU_CURRENCY.CCODE
, AU_BUSINESS.TITLE
,
AU_EVENT.NUMBER
, AU_EVENT.TOTAL_AMOUNT
, AU_T_EVENT.DESCR
FROM (((((AU_EVENT INNER
JOIN AU_KE_GOOD
ON AU_EVENT.AU_EVENT = AU_KE_GOOD.AU_EVENT
)
INNER
JOIN AU_GOOD
ON AU_KE_GOOD.AU_GOOD = AU_GOOD.AU_GOOD
)
INNER
JOIN AU_WAREHOUSE
ON AU_EVENT.FROM_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
)
INNER
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_TO = AU_BUSINESS.AU_BUSINESS
WHERE (AU_T_EVENT.KEVENT1 = 2
) 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_EVENT.EVENT_E
, AU_WAREHOUSE.DESCR
,
AU_GOOD.TITLE
, AU_KE_GOOD.QUANT
, AU_CURRENCY.CCODE
, AU_BUSINESS.TITLE
,
AU_EVENT.NUMBER
, AU_EVENT.TOTAL_AMOUNT
, AU_T_EVENT.DESCR
FROM (((((AU_EVENT INNER
JOIN AU_KE_GOOD
ON AU_EVENT.AU_EVENT = AU_KE_GOOD.AU_EVENT
)
INNER
JOIN AU_GOOD
ON AU_KE_GOOD.AU_GOOD = AU_GOOD.AU_GOOD
)
INNER
JOIN AU_WAREHOUSE
ON AU_EVENT.FROM_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE
)
INNER
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_TO = 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 paral
()
call OpenForm
("ptApp
end"
,"
AU_SALE_GOODRECEIPT_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
,pevent
)
end
