data-raw/I0203/I0203_upload_db.R

In takewiki/jlrdspkg: package for jlrds app

sap_rpt_costItem_readData(file="data-raw/mrpt01/SAPdata/SAP成本要素对应关系表.xlsx",
                          FYear =2021,
                          FPeriod =1,
                          conn=tsda::conn_rds('jlrds'))


library(readxl)
I02_data <- read_excel("data-raw/I0203/I02-公司零售.xls",
                       col_types = c("numeric", "numeric", "text",
                                     "text", "text", "text", "numeric"))
I02_data$FAmt = I02_data$FAmt *10000
View(I02_data)
conn=tsda::conn_rds('jlrds')
tsda::db_writeTable(conn = conn,table_name = 'rds_t_mrpt_res_I02_RetailSales',r_object = I02_data,append = T)



library(readxl)
I03_data <- read_excel("data-raw/I0203/I03-公司回款.xls")
I03_data$FAmt = I03_data$FAmt *10000
View(I03_data)
conn=tsda::conn_rds('jlrds')
tsda::db_writeTable(conn = conn,table_name = 'rds_t_mrpt_res_I03_receive',r_object = I03_data,append = T)