lib
proc Form_Start()
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Sale Offer Quantities"
)
elseif (mode = "EVENT_MODE"
) then
str = strcat
("Sale Offer Quantities
for Schedule : "
,__params[5]
)
call SetCaption
(str
)
endif
call SetEditableFields
(f
,"PDATE0"
)
end
proc Lst_DblClick()
call OpenFormTop
("ptEdit";"
AU_EVENT_SALE_E.FM";"WORK.AU_EVENT_SALE";1;"?=AU_EVENT_SALE"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_KE_GOOD.COMMENT
, AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_SALE.AU_EVENT_SALE
, AU_EVENT_SALE.QUANT
,
AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_SALE.QUANT1
, AU_EVENT_SALE.QUANT2
, AU_EVENT_SALE.STAT
,
AU_EVENT_SALE.SDATE1
, AU_EVENT_SALE.SCOLOR
, AU_EVENT_SALE.AU_BUSINESS
, AU_BUSINESS.TITLE
AS BTITLE
,
AU_USER.UNAME
, AU_EVENT_SALE.AU_PROCESS
, AU_GOOD.AU_GOOD
, AU_EVENT_SALE.SALESMAN
,
AU_EVENT_SALE.SDATE2
, AU_EVENT_SALE.SDATE3
, AU_EVENT_SALE.ORDER_EVENT
,
AU_EVENT_SALE.SCHEDULED_FLAG
, AU_EVENT_SALE.CANCELED_FLAG
, AU_EVENT_SALE.DONE_FLAG
FROM ((((AU_EVENT_SALE
LEFT JOIN AU_KE_GOOD
ON AU_EVENT_SALE.AU_EVENT_SALE = AU_KE_GOOD.CR_ID
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_SALE.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_GOOD
ON AU_EVENT_SALE.AU_GOOD = AU_GOOD.AU_GOOD
) LEFT JOIN AU_BUSINESS
ON AU_EVENT_SALE.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_SALE.SALESMAN = AU_USER.AU_USER
WHERE (((AU_KE_GOOD.CR_NAME
)='AU_EVENT_SALE' Or
(AU_KE_GOOD.CR_NAME
) Is Null
))
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "OPEN_PURCH_ORDERS"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_KE_GOOD.COMMENT
, AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PURCH.AU_EVENT_PURCH
, AU_EVENT_PURCH.QUANT
,
AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_PURCH.QUANT1
, AU_EVENT_PURCH.QUANT2
, AU_EVENT_PURCH.STAT
,
AU_EVENT_PURCH.SDATE1
, AU_EVENT_PURCH.SCOLOR
, AU_EVENT_PURCH.AU_BUSINESS
, AU_BUSINESS.TITLE
AS BTITLE
,
AU_USER.UNAME
, AU_EVENT_PURCH.AU_PROCESS
, AU_GOOD.AU_GOOD
, AU_EVENT_PURCH.PURCHSMAN
,
AU_EVENT_PURCH.SDATE2
, AU_EVENT_PURCH.SDATE3
, AU_EVENT_PURCH.ORDER_EVENT
, AU_EVENT_PURCH.SCHEDULED_FLAG
,
AU_EVENT_PURCH.CANCELED_FLAG
, AU_EVENT_PURCH.DONE_FLAG
FROM ((((AU_EVENT_PURCH
LEFT JOIN AU_GOOD
ON AU_EVENT_PURCH.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_PURCH.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_PURCH.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER
)
LEFT JOIN AU_KE_GOOD
ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH'
) OR (AU_KE_GOOD.CR_NAME Is Null
))
AND (AU_EVENT_PURCH.DONE_FLAG = '0'
) AND (AU_EVENT_PURCH.QUANT > 0
)
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "PRODOPEN_PURCH_ORDERS"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_KE_GOOD.COMMENT
, AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PURCH.AU_EVENT_PURCH
, AU_EVENT_PURCH.QUANT
,
AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_PURCH.QUANT1
, AU_EVENT_PURCH.QUANT2
, AU_EVENT_PURCH.STAT
,
AU_EVENT_PURCH.SDATE1
, AU_EVENT_PURCH.SCOLOR
, AU_EVENT_PURCH.AU_BUSINESS
, AU_BUSINESS.TITLE
AS BTITLE
,
AU_USER.UNAME
, AU_EVENT_PURCH.AU_PROCESS
, AU_GOOD.AU_GOOD
, AU_EVENT_PURCH.PURCHSMAN
,
AU_EVENT_PURCH.SDATE2
, AU_EVENT_PURCH.SDATE3
, AU_EVENT_PURCH.ORDER_EVENT
, AU_EVENT_PURCH.SCHEDULED_FLAG
,
AU_EVENT_PURCH.CANCELED_FLAG
, AU_EVENT_PURCH.DONE_FLAG
FROM ((((AU_EVENT_PURCH
LEFT JOIN AU_GOOD
ON AU_EVENT_PURCH.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_PURCH.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_PURCH.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER
)
LEFT JOIN AU_KE_GOOD
ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH'
) OR (AU_KE_GOOD.CR_NAME Is Null
))
AND (AU_GOOD.AU_GOOD = :G
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"G"
,__params[5]
)
endif
if (mode = "EVENT_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_KE_GOOD.COMMENT
, AU_GOOD.TITLE
AS GTITLE
, AU_EVENT_PURCH.AU_EVENT_PURCH
, AU_EVENT_PURCH.QUANT
,
AU_UNITMEAS.CODE
AS UCODE
, AU_EVENT_PURCH.QUANT1
, AU_EVENT_PURCH.QUANT2
, AU_EVENT_PURCH.STAT
,
AU_EVENT_PURCH.SDATE1
, AU_EVENT_PURCH.SCOLOR
, AU_EVENT_PURCH.AU_BUSINESS
, AU_BUSINESS.TITLE
AS BTITLE
,
AU_USER.UNAME
, AU_EVENT_PURCH.AU_PROCESS
, AU_GOOD.AU_GOOD
, AU_EVENT_PURCH.PURCHSMAN
,
AU_EVENT_PURCH.SDATE2
, AU_EVENT_PURCH.SDATE3
, AU_EVENT_PURCH.ORDER_EVENT
, AU_EVENT_PURCH.SCHEDULED_FLAG
,
AU_EVENT_PURCH.CANCELED_FLAG
, AU_EVENT_PURCH.DONE_FLAG
FROM ((((AU_EVENT_PURCH
LEFT JOIN AU_GOOD
ON AU_EVENT_PURCH.AU_GOOD = AU_GOOD.AU_GOOD
)
LEFT JOIN AU_UNITMEAS
ON AU_EVENT_PURCH.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_PURCH.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_USER
ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER
)
LEFT JOIN AU_KE_GOOD
ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH'
) OR (AU_KE_GOOD.CR_NAME Is Null
))
AND (AU_EVENT_PURCH.AU_EVENT = :EV
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,__params[5]
endif
call TPrepare
(q
)
end
proc app
end()
if (mode = "EVENT_MODE"
) then
call OpenFormTop
("ptApp
end";"
AU_EVENT_SALE_E.FM";"WORK.AU_EVENT_SALE";1;"?=AU_EVENT_SALE"
,mode
,__params[5]
)
else
bus_id = TGetFld
(q
,"AU_BUSINESS"
)
btitle = TGetFld
(q
,"BTITLE"
)
call OpenFormTop
("ptApp
end";"
AU_EVENT_SALE_E.FM";"WORK.AU_EVENT_SALE";1;"?=AU_EVENT_SALE"
,"SUPPLIER_MODE"
,bus_id
,btitle
)
endif
end
