R/inventory_transfer.R

In CannaData/CannaLeafDataSystems: Wrapper for Leaf Data Systems API

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

#' Create areas
#' @export
lds_post_inventory_transfer <- function(manifest_type, multi_stop, global_to_mme_id,
                                        global_inventory_id, qty, uom, transporter_name1 = NA,
                                        vehicle_license_plate = NA, vehicle_vin = NA, 
                                        est_departed_at = NA, est_arrival_at = NA, status = NA,
                                        transporting_mme_id = NA, is_sample = NA, sample_type = NA) {
  
  lds_call("inventory_transfers", "POST", body = list(
    inventory_transfer = list(manifest_type = manifest_type, status = status,
                              multi_stop = multi_stop, global_to_mme_id = global_to_mme_id,
                              inventory_transfer_items = data.frame(
                                global_inventory_id, qty, uom, is_sample, sample_type
                              ), transporter_name1 = transporter_name1,
                              vehicle_license_plate = vehicle_license_plate, 
                              vehicle_vin = vehicle_vin, est_departed_at = est_departed_at, 
                              est_arrival_at = est_arrival_at, transporting_mme_id = transporting_mme_id)
  ))
  
}

#' @export
lds_post_inventory_transfer_api_in_transit <- function(global_id) {
  
  lds_call("inventory_transfers/api_in_transit", "POST", body = list(global_id = global_id))
  
}

#' @export
lds_post_inventory_transfer_api_receive <- function(global_id, global_received_inventory_id, received_qty,
                                                    global_received_area_id = NA, global_received_strain_id = NA,
                                                    global_received_batch_id = NA, 
                                                    global_received_plant_id = NA) {
  lds_call("inventory_transfers/api_receive", "POST", body = list(
    global_id = global_id, inventory_transfer_items = data.frame(
      global_id = global_received_inventory_id,
      received_qty, global_received_area_id,
      global_received_strain_id, global_received_batch_id, 
      global_received_plant_id
    )
  ))
  
}