lib
{===============================
Form_Start =================================}
proc Form_Start()
call SetCaption
("Calls"
)
if (mode = "USER_UNANSMODE"
) then
call SetCaption
("Unanswered"
)
endif
call CollapseNavBar
()
call SetClass
("grid"
,"TStringGrid1"
)
end
{================================ Form_Prepared ==============================}
proc Form_Prepared
()
mode = __params[4]
if (mode = "USER_UNANSMODE"
) or
(mode = "USER_MODE"
) then
crdat = DateToNum
(crDate
)
crdat = crdat - 1
crdat = NumToDate
(crdat
)
if (DBModel = "MSACCESS"
) then
filter = strcat
("
(AU_TEL.DATE1 >= CDATE
('"
,crdat
,"'
))"
)
elseif (DBModel = "MSSQLSERVER"
) then
filter = strcat
("
(AU_TEL.DATE1 >= "
,crdat
,"
)"
)
endif
call BrowseFilter
(filter
)
endif
end
{==============================
Lst_DblClick ===============================}
proc Lst_DblClick()
userid = GetUserId
()
tel_id = TGetFld
(q
,"AU_TEL"
)
phone = TGetFld
(q
,"TEL_NUM"
)
if (mode = "REC_MODE"
) then
towner = __params[5]
rowner = __params[6]
else
towner = TGetFld
(q
,"OWN_TBL"
)
rowner = TGetFld
(q
,"OWN_ID"
)
endif
call NewPhoneCall
( tel_id
, userid
, phone
, towner
, rowner
)
end
{================================= tel_notes ===================================}
proc tel_notes
()
tel_id = TGetFld
(q
,"AU_TEL"
)
expr = strcat
(tel_id
,"=AU_TEL"
)
call OpenFormTop
("ptEdit"
,"
AU_TEL_E.FM"
,"WORK.AU_TEL"
,1
,expr
)
end
{===============================
Panels_Start =================================}
proc Panels_Start()
mode = __params[4]
flag = strcomp
(mode
,"USER_MODE"
)
if (flag = 1
) then
start_sql "DATA" "KOSMOS"
SELECT AU_TEL.*
FROM AU_TEL
WHERE ((AU_TEL.IN_REC_NAME = :T
) AND (AU_TEL.IN_REC_ID = :ID
))
OR ((AU_TEL.OUT_REC_NAME = :T
) AND (AU_TEL.OUT_REC_ID = :ID
))
ORDER BY AU_TEL.AU_TEL DESC
end_sql
q = QueryByName
("DATA"
)
user_id = GetUserId
()
call TSetParam
(q
,"T"
,"AU_USER"
)
call TSetParam
(q
,"ID"
,user_id
)
endif
flag = strcomp
(mode
,"USER_UNANSMODE"
)
if (flag = 1
) then
start_sql "DATA" "KOSMOS"
SELECT AU_TEL.*
FROM AU_TEL
WHERE (((AU_TEL.IN_REC_NAME = :T
) AND (AU_TEL.IN_REC_ID = :ID
))
OR ((AU_TEL.OUT_REC_NAME = :T
) AND (AU_TEL.OUT_REC_ID = :ID
)))
AND (AU_TEL.UNANSWERED_FLAG = '1'
)
ORDER BY AU_TEL.AU_TEL DESC
end_sql
q = QueryByName
("DATA"
)
user_id = GetUserId
()
call TSetParam
(q
,"T"
,"AU_USER"
)
call TSetParam
(q
,"ID"
,user_id
)
endif
flag = strcomp
(mode
,"REC_MODE"
)
if (flag = 1
) then
start_sql "DATA" "KOSMOS"
SELECT AU_TEL.*
FROM AU_TEL
WHERE ((AU_TEL.IN_REC_NAME = :T
) AND (AU_TEL.IN_REC_ID = :ID
))
OR ((AU_TEL.OUT_REC_NAME = :T
) AND (AU_TEL.OUT_REC_ID = :ID
))
ORDER BY AU_TEL.AU_TEL DESC
end_sql
q = QueryByName
("DATA"
)
call TSetParam
(q
,"T"
,__params[5]
)
call TSetParam
(q
,"ID"
,__params[6]
)
endif
flag = strcomp
(mode
,"ALL_MODE"
)
if (flag = 1
) then
start_sql "DATA" "KOSMOS"
SELECT AU_TEL.*
FROM AU_TEL
ORDER BY AU_TEL.AU_TEL DESC
end_sql
q = QueryByName
("DATA"
)
endif
call TPrepare
(q
)
end
{===================================== Form_DrawCell ===========================}
proc Form_DrawCell
( grid
, fname
, fval
, q
)
unanswered = TGetFld
(q
,"UNANSWERED_FLAG"
)
unanswered = val
(unanswered
)
if (unanswered = 1
) then
grid.Canvas.Font.Style = "[fsBold]"
grid.Canvas.Font.Color = "clBlack"
endif
end
{==================================== re
call ================================}
proc recall
()
userid = GetUserId
()
tel_id = TGetFld
(q
,"AU_TEL"
)
phone = TGetFld
(q
,"TEL_NUM"
)
powner = TGetFld
(q
,"OWN_NAME"
)
call NewPhoneCall
( tel_id
, userid
, phone
, powner
)
end
