lib
proc Lst_DblClick()
event = TGetFld
(q
,"EV1"
)
if (event > 0
) then
form = TGetFld
(q
,"AU_POSTINGFORM"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptEdit"
,form
,"WORK.AU_EVENT"
,1
,expr
)
else
call message
("Does not exists RFI
for this Product!"
)
endif
end
proc Form_Start()
call CollapseNavBar
()
call SetCaption
("Request
for Quotation"
)
f = TopForm
()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call OnOpenForm_HideControl
("NBAR1_BTN0"
)
call OnOpenForm_HideControl
("NBAR1_BTN1"
)
call OnOpenForm_HideControl
("NBAR1_BTN2"
)
endif
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_GOOD.CODE
, AU_GOOD.TITLE
, AU_UNITMEAS.DESCR
, AU_BOM.QUANT
, AU_UNITMEAS_1.DESCR
,
AU_BOM_REQUEST.RFI_FLAG
, AU_BOM_REQUEST.RFQ_FLAG
, AU_BOM_REQUEST.UPRICE
, AU_CURRENCY.CCODE
,
AU_BUSINESS.TITLE
, AU_BOM.AU_BOM
, AU_BOM.AU_BOM
, AU_BOM_REQUEST.AU_BOM_REQUEST
, AU_GOOD.AU_GOOD
FROM (AU_GOOD
RIGHT JOIN
((((AU_BOM
LEFT JOIN AU_BOM_REQUEST
ON AU_BOM.AU_BOM = AU_BOM_REQUEST.AU_BOM
)
LEFT JOIN AU_BUSINESS
ON AU_BOM_REQUEST.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
)
LEFT JOIN AU_CURRENCY
ON AU_BOM_REQUEST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
)
LEFT JOIN AU_UNITMEAS
ON AU_BOM.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS
)
ON AU_GOOD.AU_GOOD = AU_BOM.AU_GOOD
) LEFT JOIN AU_UNITMEAS
AS AU_UNITMEAS_1
ON AU_BOM_REQUEST.AU_UNITMEAS = AU_UNITMEAS_1.AU_UNITMEAS
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "BOM_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_EVENT.AU_EVENT
AS AU_EVENT
, AU_K_GOOD.BUY_FLAG
, AU_K_GOOD_1.TBL_NAME
,
AU_K_GOOD_1.TBL_RELAT
, AU_UNITMEAS.DESCR
,
AU_GOOD.TITLE
, AU_UNITMEAS.AU_UNITMEAS
, AU_GOOD.CODE
, AU_K_GOOD.QUANT
, AU_K_GOOD.AU_GOOD
,
AU_K_GOOD.CREDIT_OF_Q
, AU_K_GOOD.DEBIT_OF_Q
, AU_K_GOOD.AU_K_GOOD
, AU_K_GOOD.CREDIT_PR_Q
,
AU_K_GOOD.DEBIT_PR_Q
, AU_BUSINESS.TITLE
,
AU_EVENT_1.AU_EVENT
AS EV1
, AU_EVENT_1.AU_POSTINGFORM
, AU_EVENT_1.RFQ_ACCEPT_FLAG
,
AU_K_GOOD_1.CREDIT_Q0
, AU_K_GOOD_1.DEBIT_Q0
, AU_BUSINESS.TITLE
AS SUPLIER
FROM (AU_GOOD
RIGHT JOIN
((AU_EVENT
RIGHT JOIN AU_K_GOOD
ON AU_EVENT.AU_EVENT = AU_K_GOOD.AU_EVENT
)
LEFT JOIN AU_UNITMEAS
ON AU_K_GOOD.UNIT = AU_UNITMEAS.AU_UNITMEAS
)
ON AU_GOOD.AU_GOOD = AU_K_GOOD.AU_GOOD
) LEFT JOIN
((AU_K_GOOD
AS AU_K_GOOD_1
LEFT JOIN AU_EVENT
AS AU_EVENT_1
ON AU_K_GOOD_1.AU_EVENT = AU_EVENT_1.AU_EVENT
)
LEFT JOIN AU_BUSINESS
ON AU_EVENT_1.BUSINESS_
FROM = AU_BUSINESS.AU_BUSINESS
)
ON AU_K_GOOD.AU_K_GOOD = AU_K_GOOD_1.TBL_REC
WHERE (((AU_EVENT.AU_EVENT
)=:EV
)
AND ((AU_K_GOOD.BUY_FLAG
)='1'
) AND ((AU_K_GOOD_1.TBL_NAME
) Is Null
)
AND ((AU_K_GOOD_1.TBL_RELAT
) Is Null
))
OR (((AU_EVENT.AU_EVENT
)=:EV
)
AND ((AU_K_GOOD_1.TBL_NAME
)='AU_K_GOOD'
) AND ((AU_K_GOOD_1.TBL_RELAT
)='RFQFROMBOM'
))
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"EV"
,__params[5]
)
endif
call TPrepare
(q
)
end
proc app
end()
id = TGetFld
(q
,"AU_EVENT"
)
call OpenFormTop
("ptApp
end"
,"
AU_EVENT_PURCH_RFI_E.FM"
,"WORK.AU_EVENT"
,1
,"?=AU_EVENT"
,"BOM_RFI"
,f
,q
,id
)
end
proc expand
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse"
,"
AU_PROD_FORM_GOOD_B.FM"
,"QRY.DATA"
,"BOM_MODE"
,id
)
end
proc cost
()
id = TGetFld
(q
,"AU_PROD_FORM"
)
call OpenFormTop
("ptBrowse";"
AU_STANDARDCOST_B.FM";"QRY.DATA"
,"BOM_MODE"
,id
)
end
proc delrfq
()
event = TGetFld
(q
,"EV1"
)
if (event > 0
) then
form = TGetFld
(q
,"AU_POSTINGFORM"
)
expr = strcat
(event
,"=AU_EVENT"
)
call OpenForm
("ptDelete"
,form
,"WORK.AU_EVENT"
,1
,expr
)
else
call message
("Does not exists RFI
for this Product!"
)
endif
end
proc rfq
()
resdir = GetResourceDir
()
filename = "AU_PRINT_GOOD_RFQ.HTM"
id = TGetFld
(q
,"EV1"
)
call html_processfile
(filename
, id
)
filename = strcat
(resdir
,"\HTML\_"
,filename
)
{
call Browse
(filename
) }
call ShellExecute
("open"
,filename
)
end
