lib
proc Form_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
call SetCaption
("Users Log"
)
elseif (mode = "USER_MODE"
) then
call SetCaption
("User Log"
)
elseif (mode = "REC_MODE"
) then
call SetCaption
("Record Log"
)
endif
end
proc Lst_DblClick()
call OpenFormTop
("ptEdit";"
AU_DATAUPDATE_LOG_E.FM";"WORK.AU_DATAUPDATE_LOG";1;"?=AU_DATAUPDATE_LOG"
)
end
proc Panels_Start()
mode = __params[4]
if (mode = "ALL_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_DATAUPDATE_LOG.AU_DATAUPDATE_LOG
,
AU_DATAUPDATE_LOG.UDATE
, AU_DATAUPDATE_LOG.UTIME
,
AU_DATAUPDATE_LOG.UMODE
, AU_DATAUPDATE_LOG.HOST
, AU_USER.UNAME
, AU_PROCESS.COMM
,
AU_DATAUPDATE_LOG.AU_USER
, AU_DATAUPDATE_LOG.AU_PROCESS
,
AU_DATAUPDATE_LOG.REC_NAME
, AU_DATAUPDATE_LOG.REC_ID
FROM (AU_DATAUPDATE_LOG
LEFT JOIN AU_USER
ON AU_DATAUPDATE_LOG.AU_USER = AU_USER.AU_USER
)
LEFT JOIN AU_PROCESS
ON AU_DATAUPDATE_LOG.AU_PROCESS = AU_PROCESS.AU_PROCESS
end_sql
q = QueryByName
("DATA"
)
endif
if (mode = "USER_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_DATAUPDATE_LOG.AU_DATAUPDATE_LOG
,
AU_DATAUPDATE_LOG.UDATE
, AU_DATAUPDATE_LOG.UTIME
,
AU_DATAUPDATE_LOG.UMODE
, AU_USER.HOST
, AU_USER.UNAME
, AU_PROCESS.COMM
,
AU_DATAUPDATE_LOG.AU_USER
, AU_DATAUPDATE_LOG.AU_PROCESS
,
AU_DATAUPDATE_LOG.REC_NAME
, AU_DATAUPDATE_LOG.REC_ID
FROM (AU_DATAUPDATE_LOG
LEFT JOIN AU_USER
ON AU_DATAUPDATE_LOG.AU_USER = AU_USER.AU_USER
)
LEFT JOIN AU_PROCESS
ON AU_DATAUPDATE_LOG.AU_PROCESS = AU_PROCESS.AU_PROCESS
WHERE (AU_DATAUPDATE_LOG.AU_USER = :U
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"U"
,__params[5]
)
endif
if (mode = "REC_MODE"
) then
start_sql "DATA" "KOSMOS"
SELECT AU_DATAUPDATE_LOG.AU_DATAUPDATE_LOG
,
AU_DATAUPDATE_LOG.UDATE
, AU_DATAUPDATE_LOG.UTIME
,
AU_DATAUPDATE_LOG.UMODE
, AU_USER.HOST
, AU_USER.UNAME
, AU_PROCESS.COMM
,
AU_DATAUPDATE_LOG.AU_USER
, AU_DATAUPDATE_LOG.AU_PROCESS
,
AU_DATAUPDATE_LOG.REC_NAME
, AU_DATAUPDATE_LOG.REC_ID
FROM (AU_DATAUPDATE_LOG
LEFT JOIN AU_USER
ON AU_DATAUPDATE_LOG.AU_USER = AU_USER.AU_USER
)
LEFT JOIN AU_PROCESS
ON AU_DATAUPDATE_LOG.AU_PROCESS = AU_PROCESS.AU_PROCESS
WHERE (AU_DATAUPDATE_LOG.REC_NAME = :TN
)
AND (AU_DATAUPDATE_LOG.REC_ID = :ID
)
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"ID"
,__params[5]
)
call TSetParam
(q
,"TN"
,__params[6]
)
endif
call TPrepare
(q
)
end
