lib
proc Form_Start()
cap = GetMessage
("Attached Documents"
)
call SetCaption
(cap
)
end
proc Panels_Start( form
)
start_sql "DATA" "KOSMOS"
SELECT AU_DOC.*
, AU_DOC_REL.RELDATE
AS RELDATE
, AU_DOC_REL.AU_DOC_REL
, AU_DOC_REL.RTYPE
,
AU_DOC_RELTYPE2.AU_DOC_RELTYPE2_D
, AU_DOC_REL.REL_TABLE_NAME
FROM (AU_DOC_REL
LEFT JOIN AU_DOC
ON AU_DOC_REL.AU_DOC = AU_DOC.AU_DOC
)
LEFT
JOIN AU_DOC_RELTYPE2
ON AU_DOC.AU_DOC_RELTYPE2 = AU_DOC_RELTYPE2.AU_DOC_RELTYPE2
WHERE (((AU_DOC_REL.REL_TABLE_NAME
)=:T
) AND ((AU_DOC_REL.REL_REC_ID
)=:R
))
ORDER BY AU_DOC_REL.RELDATE
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"T"
,__params[4]
)
call TSetParam
(q
,"R"
,__params[5]
)
call TPrepare
(q
)
end
{=================================
Lst_DblClick =============================}
proc Lst_DblClick()
doc = TGetFld
(q
,"AU_DOC"
)
islink = TGetFld
(q
,"ISLINK"
)
file = TGetFld
(q
,"FILE_NAME"
)
command = TGetFld
(q
,"OPENCOMMAND"
)
if (islink = 1
) then
call Browse
(file
)
else
call DocView
(doc
,""
,command
)
endif
end
proc edit
()
rel_id = TGetFld
(q
,"AU_DOC_REL"
)
str = strcat
(rel_id
,"=AU_DOC_REL"
)
call OpenFormTop
("ptEdit"
,"
AU_DOC_REL_E.FM"
,"WORK.AU_DOC_REL"
,1
,str
)
end
proc edit_doc
()
doc_id = TGetFld
(q
,"AU_DOC"
)
str = strcat
(doc_id
,"=AU_DOC"
)
call OpenFormTOP
("ptEdit"
,"
AU_DOC_E0.FM"
,"WORK.AU_DOC"
,1
,str
,"ALL_MODE"
)
end
{===================================== unrelate ========================================}
proc unrelate
()
f = TopForm
()
file = TGetFld
(q
,"FILE_NAME"
)
flag = message_yes_no
("Να απομακρυνθεί το έγγραφο "
,file
,";"
)
if
(flag = 1
) then
fprev = PreviousForm
(f
)
rdoc = getfprevfield
("AU_DOC_REL"
)
call DocUnRelate
(rdoc
)
call message
("The
document was deattached!"
)
call Refresh
(f
)
call ShowAll
(fprev
)
endif
end
