lib
proc Form_Start()
call SetCaption
("Goods S
ending"
)
end
proc Lst_DblClick()
event = TGetFld
(q
,"AU_EVENT"
)
code = TGetFld
(q
, "CODE"
)
expr = strcat
(event
,"=AU_EVENT"
)
if (code = "AU_OFFER"
) then
call OpenForm
("ptEdit"
,"
AU_EVENT_SALE_OFFER_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
else
call OpenForm
("ptEdit"
,"
AU_SALE_GOODRECEIPT_E.FM"
,"WORK.AU_EVENT"
,1
,expr
)
endif
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_T_EVENT.CODE
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_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_CURRENCY.CCODE
,
AU_BUSINESS.TITLE
, AU_EVENT.NUMBER
, AU_EVENT.TOTAL_AMOUNT
, AU_T_EVENT.DESCR
,
AU_T_EVENT.CODE
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_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
proc cost
()
id = TGetFld
(q
,"AU_EVENT"
)
call OpenFormTop
("ptBrowse";"
AU_STANDARDCOST_B.FM";"QRY.DATA"
,"EVENT_MODE"
,id
)
end
{----------------------------- Print_Sale -------------------------------------}
proc print_sale
()
resdir = GetResourceDir
()
filename = "AU_PRINTSALE.HTM"
id = TGetFld
(q
,"AU_EVENT"
)
call html_processfile
(filename
, id
)
filename = strcat
(resdir
,"\HTML\_AU_PRINTSALE.HTM"
)
call Browse
(filename
)
end
proc res_cost
()
call OpenFormTop
("ptBrowse";"
AU_RESOURCE_COST_B.FM";"QRY.DATA"
,"ALL_MODE"
)
end
proc bom
()
id = TGetFld
(q
,"AU_EVENT"
)
call OpenFormTop
("ptBrowse";"AU_BOM_B.1111FM";"QRY.DATA"
,"EVENT_MODE"
,id
)
end
proc new_offer
()
call OpenForm
("ptApp
end"
,"
AU_EVENT_SALE_OFFER_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
)
end
