lib.tcl

#********************************************************************
# 功能描述：定义公共的函数
# 依赖关系：依赖于全局aitools工具包（因为存在对数据库的操作）
# 调用方法：无
# 数据流向：无
# 创建人：wengdan
# 创建日期：20151016
# 修改历史：
# 序号日期修改人修改原因修改内容
#*********************************************************************

# include.tcl定义了一些公共变量
#source /crm/crmwk/aiomnivision/bin/include.tcl

####################################################################################################################################################################
#程序执行函数
#################

#*********************************************************************
# 功能描述：执行sql，执行后将返回成功失败标志，并提交数据库
# 数据流向：无
# 参数说明：
# sqlStr：表示将执行的sql
# errCode：表示sql执行的返回码，在一个程序里面应该唯一（递增），用于唯一标示执行的sql
#
# 返回值说明：
# -1 执行失败
# 0 执行成功
#*********************************************************************
proc exeSql {p_sqlStr p_errCode} {
set rt [ _exeSql $p_sqlStr $p_errCode 1 1 ]
return $rt
}

#*********************************************************************
# 功能描述：执行sql（原型）
# 数据流向：无
# 参数说明：
# sqlStr：表示将执行的sql
# errCode：表示sql执行的返回码，在一个程序里面应该唯一（递增），用于唯一标示执行的sql
# isReturn：表示sql执行是否判断aidb_sql的执行结果并返回（如果返回-1将导致程序结束运行），默认返回
# 1:表示返回错误 0:表示不返回错误
# isCommit：表示sql执行后是否提交
# 1:表示执行完后立即提交 0:表示不立即提交
#
# 返回值说明：
# -1 执行失败
# 0 执行成功
#*********************************************************************
proc _exeSql {p_sqlStr p_errCode p_isReturn p_isCommit} {
global conn
global handle

traceLog "======= 开始执行SQL语句 =======" ""
traceLog ${p_sqlStr} ""
if [catch { aidb_sql ${handle} ${p_sqlStr} } errmsg ] {

traceLog [string range ${errmsg} 30 [string length ${errmsg}] ] ${p_errCode}
set systime [exec date "+%Y-%m-%d %H:%M:%S"]
puts "\[${systime}\] -> ${p_sqlStr} "
puts "\[${systime}\] -> ERROR:[string range ${errmsg} 30 [string length ${errmsg}] ] LINE=${p_errCode}"

if { ${p_isReturn} == 1 } {
return -1
}
}
if { ${p_isCommit} == 1 } {
aidb_commit ${conn}
}
traceLog "======= SQL语句执行结束 =======" ""
return 0
}

#*********************************************************************
# 功能描述：检查某表是否在数据库中存在
# 数据流向：无
# 参数说明：检查的表名
# 返回值说明：
# 0 不存在
# 1 存在
# -1 检查出错
#*********************************************************************
proc isTabExist {p_tabName} {
global conn
global handle

set tabNm [string toupper $p_tabName]
# 检查syscat.tables系统表
# 20100421,wanggy@asiainfo.com增加对数据库当前SCHEMA的判断
set sqlstat "select count(1) from syscat.tables where tabname='$tabNm' and tabschema = current schema with ur"
if [catch {aidb_sql $handle $sqlstat} errmsg] {
trace_sql $errmsg 1000
# 如果语句执行出错，返回-1
return -1
} else {
set v [aidb_fetch $handle ]
aidb_commit $conn
aidb_close $handle
set handle [aidb_open $conn]
if {$v != 1} {
return 0
} else {
return 1
}
}
}
####################################################################################################################################################################
#日期函数

#*********************************************************************
# 功能描述：1.1、获取参数日期yyyymmdd格式
# 参数说明：yyyy-mm-dd
# 返回值说明：参数月[日期]，格式：yyyymmdd
#*********************************************************************
proc get_yyyymmdd {p_optime} {
set year 0
set month 0
set day 0

scan $p_optime "%04s-%02s-%02s" year month day
return ${year}${month}${day}
}

#*********************************************************************
# 功能描述：1.2、获取参数日期yyyymm格式
# 参数说明：yyyy-mm-dd
# 返回值说明：参数月[日期]，格式：yyyymm
#*********************************************************************
proc get_yyyymm {p_optime} {
set year 0
set month 0

scan $p_optime "%04s-%02s" year month
return ${year}${month}
}

#*********************************************************************
# 功能描述：1.3、获取参数日期yyyy-mm格式
# 参数说明：yyyy-mm-dd
# 返回值说明：参数月[日期]，格式：yyyy-mm
#*********************************************************************
proc get_l_yyyymm {p_optime} {
set year 0
set month 0

scan $p_optime "%04s-%02s" year month
return ${year}-${month}
}

#*********************************************************************
# 功能描述：1.4、获取参数日期的年
# 参数说明：yyyy-mm-dd
# 返回值说明：参数月[日期]所在年，格式：yyyy
#*********************************************************************
proc get_yyyy {p_optime} {
set year 0

scan $p_optime "%04s" year
return ${year}
}

#*********************************************************************
# 功能描述：1.5、获取某日所在月的总天数
# 数据流向：无
# 参数说明：yyyy-mm[-dd]
# 返回值说明：参数月[日期]所在月的总天数，格式：dd
#*********************************************************************
proc get_days {p_optime} {
set year 0
set month 0

scan $p_optime "%04s-%02s" year month
set cal [ exec cal $month $year ]
set lastMday [lindex $cal end]
return ${lastMday}
}

#*********************************************************************
# 功能描述：1.6、获取当月最后一天的日期
# 参数说明：yyyy-mm[-dd]
# 返回值说明：参数月[日期]所在月的最后一天的日期，格式yyyy-mm-dd
#*********************************************************************
proc get_l_ymds {p_optime} {
set year 0
set month 0

scan $p_optime "%04s-%02s" year month
set lastMday [ get_days $p_optime ]
return ${year}-${month}-${lastMday}
}

#*********************************************************************
# 功能描述：1.7、获取当月最后一天的日期
# 参数说明：yyyy-mm[-dd]
# 返回值说明：参数月[日期]所在月的最后一天的日期，格式yyyymmdd
#*********************************************************************
proc get_ymds {p_optime} {
set year 0
set month 0

scan $p_optime "%04s-%02s" year month
set lastMday [ get_days $p_optime ]
return ${year}${month}${lastMday}
}

#*********************************************************************
# 功能描述：2.1、获取某日的前一天日期
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前一天日期，格式为yyyy-mm-dd
#*********************************************************************
proc get_l_pyyyymmdd {p_optime} {
set year 0
set month 0
set day 0
scan $p_optime "%04d-%02d-%02d" year month day

if { $day == 1 && $month == 1} {
# 返回上年12月31日
set day 31
set month 12
set year [expr $year -1]
} elseif {$day == 1} {
# 返回前月最后一天
set month [expr $month - 1]
set cal [exec cal $month $year]
set day [lindex $cal end]
} else {
# 返回同年同月前一天
set day [expr $day - 1]
}

set month [format "%02s" $month]
set day [format "%02s" $day]

return $year-$month-$day
}

#*********************************************************************
# 功能描述：2.2、获取某日的前一天日期
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前一天日期，格式为yyyymmdd
#*********************************************************************
proc get_pyyyymmdd {p_optime} {
set year 0
set month 0
set day 0

set tmp_optime [ get_l_pyyyymmdd $p_optime ]

scan $tmp_optime "%04s-%02s-%02s" year month day

return ${year}${month}${day}
}

#*********************************************************************
# 功能描述：2.3、获取某日的前一天的年月
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前一天的年月，格式为yyyy-mm
#*********************************************************************
proc get_l_pyyyymm {p_optime} {
set year 0
set month 0

set tmp_optime [ get_l_pyyyymmdd $p_optime ]

scan $tmp_optime "%04s-%02s" year month

return ${year}-${month}
}

#*********************************************************************
# 功能描述：2.4、获取某日的前一天的年月
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前一天的年月，格式为yyyymm
#*********************************************************************
proc get_pyyyymm {p_optime} {
set year 0
set month 0

set tmp_optime [ get_l_pyyyymmdd $p_optime ]

scan $tmp_optime "%04s-%02s" year month

return ${year}${month}
}

#*********************************************************************
# 功能描述：2.5、获取某日的前一天的年
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前一天的年，格式为yyyy
#*********************************************************************
proc get_pyyyy {p_optime} {
set year 0

set tmp_optime [ get_l_pyyyymmdd $p_optime ]

scan $tmp_optime "%04s" year

return ${year}
}

#*********************************************************************
# 功能描述：3.1、获取前月最后一日日期
# 参数说明：yyyy-mm-dd
# 返回值说明：基准日期的前月最后一天的日期，格式为yyyy-mm-dd
#*********************************************************************
proc get_l_lymds {p_optime} {
set year 0
set month 0
set day 0