R/sale.R

In CannaData/CannaLeafDataSystems: Wrapper for Leaf Data Systems API

#' Get information about areas
#' @export
lds_get_sale <- function(...) {
  
  lds_call("sales", "GET", query = ...)
  
}

#' Create areas
#' @export
lds_post_sale <- function(external_id = NA, sold_at, status, sale_type, global_id = NA,
                          global_inventory_id = NA, name = NA, qty, uom, global_batch_id, unit_price = NA,
                          price_total = NA, global_mme_id = NA, global_user_id = NA,
                          global_area_id, global_sold_by_user_id) {
  
  lds_call("sales", "POST", body = list(
    sale = data_frame(external_id, sold_at, status, sale_type, global_id, global_area_id,
                      sale_items = list(data_frame(global_inventory_id, name, qty, uom, unit_price, global_batch_id)),
                      price_total, global_mme_id, global_user_id, global_sold_by_user_id)
  ))
  
}

#' Update area
#' @export
lds_put_sale <- function(global_id, external_id = NA,  sold_at, status, sale_type,
                         global_inventory_id, name = NA, qty, uom, unit_price = NA,
                         price_total = NA, global_mme_id = NA, global_user_id = NA,
                         global_area_id, global_sold_by_user_id) {
  
  lds_call("sales", "PUT", body = list(
    sale = data_frame(external_id, sold_at, status, sale_type, global_id, global_area_id,
                      sale_items = list(data_frame(global_inventory_id, name, qty, uom, unit_price, global_batch_id)),
                      price_total, global_mme_id, global_user_id, global_sold_by_user_id)
  ))
  
}

#' Delete area
#' @export
lds_delete_sale <- function(global_id) {
  
  lds_call("sales", "DELETE", global_id = global_id)
  
}