\n"
}
mysql::endquery $query
- #set result "$result [encoding convertto utf-8 $rowData]"
set result "$result $rowData"
-
+ disconnectDB $conn
return "$result
\n"
-
}
+
+
# Список пользователей (ФИО, телефон, почта, отдел) из LDAP (AD)
proc getLDAPusers {} {
}
+
+# Список внешних линий
proc getCOline {} {
+ set conn [connectDB]
+ set order "ext_co_line"
+ set result "
Список городских линий
"
+ set qr "SELECT * FROM ext_co_line ORDER by $order"
+ set query [mysql::query $conn $qr]
+
+ set listHeader "
"
+ return $txtReportForm
+}
+
+proc reportData {} {
+ set result ""
+ set err ""
+ # Проверяем введенные параметры отчёта как на наличие так и на корректность
+ if { [::rivet::var exists int_number] } {
+ set number [::rivet::var get int_number]
+ if {[regexp -nocase -all -- {^([0-9][0-9][0-9])$} $number match v1]} {
+ append result $number
+ } else {
+ append err "
Введите номер телефона
"
+ }
+ } else {
+ return
+ }
+ if { [::rivet::var exists date_begin] } {
+ if [regexp -nocase -- {^(0[1-9]|[12][0-9]|3[01])[.](0[1-9]|1[012])[.](19|20[0-9][0-9])$} [::rivet::var get date_begin] match d m y] {
+ set dBegin "$y-$m-$d"
+ } else {
+ append err "
Введите дату начала
"
+ }
+ }
+ if { [::rivet::var exists date_end] } {
+ if [regexp -nocase -- {^(0[1-9]|[12][0-9]|3[01])[.](0[1-9]|1[012])[.](19|20[0-9][0-9])$} [::rivet::var get date_end] match d m y] {
+ set dEnd "$y-$m-$d"
+ } else {
+ append err "
Введите дату окончания
"
+ }
+ }
+ if {$err ne ""} {
+ return "
$err
"
+ }
+ set conn [connectDB]
+ set order "call_date"
+ set result "
Список звонков с номера $number
"
+ set qr "SELECT * FROM cdr where int_number=\'$number\' AND call_date BETWEEN CAST(\'$dBegin\' AS DATE) AND CAST(\'$dEnd\' AS DATE) LIMIT 1000"
+ set query [mysql::query $conn $qr]
+ set listHeader "
+
№ п/п
Дата
Время
Внут.номер
Внеш.линия
Вызываемый номер
+
Ring
Длительность
АСС
Код звонка
Направление
"
+
+ append result $listHeader
+ set rowData ""
+ while {[set row [mysql::fetch $query]]!=""} {
+ append rowData "