R/log.R

In takewiki/tsda: data access and driver interface in takewiki solutions

#' 创建日志表
#'
#' @param FToken 口令
#' @param objectName  对象名
#'
#' @return 返回值
#' @export
#'
#' @examples
#' log_createTable()
log_createTable <- function(FToken ='9B6F803F-9D37-41A2-BDA0-70A7179AF0F3',objectName = 't_sec_log') {
flag = object_isNew(FToken = FToken,objectName = objectName)
if(flag){
  sql <- paste0("create table ",objectName," (
FInterId int,
FFormName nvarchar(100),
FActionDesc nvarchar(100),
FApiFunction nvarchar(100),
FUpdateTime datetime,
FStatus int,
FData nvarchar(100),
FMsg nvarchar(2000)
)")
  conn = sql_getConn(token = FToken)
  sql_update(conn,sql)
  res <- TRUE
}else{
  res<-FALSE
}

return(res)


}

#' 写入日志信息
#'
#' @param FToken 口令
#' @param objectName 日志对象表
#' @param FFormName  表单名称
#' @param FActionDesc 操作名称
#' @param FApiFunction  函数名
#' @param FStatus 状态
#' @param FData  单据编号
#' @param FMsg   操作内容
#'
#' @return 返回值
#' @export
#'
#' @examples
#' log_on()
log_on <- function(FToken ='9B6F803F-9D37-41A2-BDA0-70A7179AF0F3',
                   objectName = 't_sec_log',
                   FFormName='销售订单',
                   FActionDesc='保存',
                   FApiFunction='rderpr::SaleOrder_apiSave',
                   FStatus=TRUE,
                   FData='demo-001',
                   FMsg='demo-001保存成功'
                   ) {
  conn = sql_getConn(token = FToken)
  log_data =list()
  log_data$FInterId <- db_maxId2(token = FToken,FTableName = objectName) +1

  log_data$FFormName <- FFormName
  log_data$FActionDesc <-FActionDesc
  log_data$FApiFunction <- FApiFunction
  log_data$FUpdateTime <- tsdo::getTime()
  log_data$FStatus <- as.integer(FStatus)
  log_data$FData <- as.character(FData)
  log_data$FMsg <- as.character(FMsg)
  data = data.frame(log_data,stringsAsFactors = F)
  tsda::db_writeTable(conn = conn,table_name =objectName,r_object = data,append = T)
  res <- TRUE
  return(res)
}