lib
{===================================== Form_OnSelect ==================================}
proc Form_OnSelect
( table
, field
, fvalue
)
if (table = "AU_SECUR_TYPE"
) then
f = TopForm
()
tt = PByName
(f
,"AU_SECUR_PROP"
)
tt = TByName
(tt
,"AU_SECUR_PROP"
)
cnt = TRecordCount
(tt
)
if (cnt > 0
) then
call message
("Existing Properties must be deleted!"
)
return
endif
start_sql "*" "KOSMOS"
SELECT AU_SECUR_TYPE_PROP.AU_SECUR_TYPE
, AU_SECUR_TYPE_PROP.AU_SECURPROPERTY
,
AU_SECURPROPERTY.AU_SECURPROPERTY_D
FROM AU_SECUR_TYPE_PROP INNER
JOIN AU_SECURPROPERTY
ON AU_SECUR_TYPE_PROP.AU_SECURPROPERTY = AU_SECURPROPERTY.AU_SECURPROPERTY
WHERE (AU_SECUR_TYPE_PROP.AU_SECUR_TYPE = :T
)
end_sql
q = QueryByName
()
type = AU_SECUR!AU_SECUR!AU_SECUR_TYPE
call TSetParam
(q
,"T"
,type
)
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
descr = TGetFld
(q
,"AU_SECURPROPERTY_D"
)
id = TGetFld
(q
,"AU_SECURPROPERTY"
)
call TApp
end(tt
)
call TSetFld
(tt
,"AU_SECURPROPERTY"
,id
)
call TSetFld
(tt
,"F_AU_SECURPROPERTY_AU_SECURPROPERTY_D"
,descr
)
call TPost
(tt
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
call ReLoadEditFields
(f
)
endif
end
{=========================
Form_Start =========================}
proc Form_Start()
f = TopForm
()
p = PByName
(f
,"AU_SECUR"
)
t = TByName
(p
,"AU_SECUR"
)
call SetCaption
("Security"
)
call OnOpenForm_DisableField
("F_AU_SECURPROPERTY_AU_SECURPROPERTY_D"
)
end
{=========================
Panels_Start =========================}
proc Panels_Start()
return
id = val
(__params[6]
)
start_sql "GOODS" "KOSMOS"
SELECT AU_GOOD.TITLE
, AU_GOOD.GTYPE
, AU_CONTRACT_GOOD.AU_CONTRACT
FROM AU_CONTRACT INNER
JOIN (AU_CONTRACT_GOOD INNER
JOIN AU_GOOD
ON AU_CONTRACT_GOOD.AU_GOOD = AU_GOOD.AU_GOOD
)
ON AU_CONTRACT.AU_CONTRACT = AU_CONTRACT_GOOD.AU_CONTRACT
WHERE (AU_CONTRACT_GOOD.AU_CONTRACT = :C
)
end_sql
q1 = QueryByName
("GOODS"
)
call TSetParam
(q1
,"C"
,id
)
call TPrepare
(q1
)
call TExecute
(q1
)
start_sql "PROCESS" "KOSMOS"
SELECT AU_PROCESS_INFO.INFOTYPE
, AU_PROCESS_INFO.TNAME
, AU_PROCESS_INFO.RID
,
AU_PROCESS.AU_PROCESS
,
AU_PROCESS_INFO.PINFO
, AU_PROCESS.COMM
, AU_PROCESS.STARTED_AT_DATE
,
AU_PROCESS.FINISHED_AT_DATE
, AU_PROCESS.FINAL_TIME
, AU_PROCESS.FINISHED
FROM AU_PROCESS INNER
JOIN AU_PROCESS_INFO
ON AU_PROCESS.AU_PROCESS = AU_PROCESS_INFO.AU_PROCESS
WHERE (((AU_PROCESS_INFO.TNAME
)='AU_CONTRACT'
)
AND
((AU_PROCESS_INFO.RID
)=:C
))
end_sql
q_pro = QueryByName
("PROCESS"
)
call TSetParam
(q_pro
,"C"
,0
)
call TPrepare
(q_pro
)
end
{================================= history ====================================}
proc PROC_DblClick
()
return
process_id = TGetFld
(q_pro
,"AU_PROCESS"
)
if (process_id > 0
) then
call OpenFormTop
("ptBrowse"
,"
AU_PROOD.FM"
,"QRY.DATA"
,process_id
)
endif
end
