R/mrpt_review.R

In takewiki/jlrdspkg: package for jlrds app

#' 根据计算结果检验品牌报表的差异
#'
#' @param conn 连接
#' @param FFinancialPartner 财务人员
#' @param FYear 年
#' @param FPeriod 月
#'
#' @return 返回值
#' @export
#'
#' @examples
#' mrpt_res_review_brandChannel()
mrpt_res_review_brandChannel <- function(conn=tsda::conn_rds('jlrds'),
                                         FFinancialPartner='周彬,李娟',
                                         FYear =2021,
                                         FPeriod =6

                                         ) {


  sql <- paste0("select
b.FFinancialPartner as 财务人员,
a.Fbrand as 品牌,
a.Fchannel as 渠道,
Fyear as 年份,
Fperiod AS 期间,
FRptItemNumber as 报表项目代码,
FRptItemName as 报表项目名称,
round(FRptAmt,2) as 手工金额,
round(FAcualAmt,2) AS RPA金额,
round(FDiffAmt,2) as 差异金额
from  rds_vw_mrpt_TargetRpa_review a
left join  t_mrpt_division b
on a.Fbrand =b.FBrand and a.Fchannel = b.FChannel
where b.FChannel  <> '市场' and b.FFinancialPartner =  '",FFinancialPartner,"'  and a.fyear =  ",FYear," and a.fperiod =  ",FPeriod,"
order by a.Fyear,a.Fperiod,a.Fbrand,a.Fchannel,a.FRptItemNumber"
  )
  res <- tsda::sql_select(conn,sql)
  return(res)

}



#' 获取财务人员
#'
#' @param conn 连接
#'
#' @return 返回值
#' @export
#'
#' @examples
#' mrpt_res_review_financialMan()
mrpt_res_review_financialMan <- function(conn=tsda::conn_rds('jlrds')

) {


  sql <- paste0("select FFinancialPartner  from rds_vw_mrpt_division"
  )
  res <- tsda::sql_select(conn,sql)
  data <- res$FFinancialPartner
  data2 <- tsdo::vect_as_list( data )
  return(data2)

}