private void BuyWithTrucking()
{
// This activity will purchase animals based on available funds.
int trucks = 0;
int head = 0;
double aESum = 0;
double fundsAvailable = 0;
if (bankAccount != null)
{
fundsAvailable = bankAccount.FundsAvailable;
}
double cost = 0;
double shortfall = 0;
bool fundsexceeded = false;
// get current untrucked list of animal purchases
List <Ruminant> herd = HerdResource.PurchaseIndividuals.Where(a => a.BreedParams.Breed == this.PredictedHerdBreed).OrderByDescending(a => a.Weight).ToList();
if (herd.Count == 0)
{
return;
}
List <Ruminant> boughtIndividuals = new List <Ruminant>();
// if purchase herd > min loads before allowing trucking
if (herd.Select(a => a.Weight / 450.0).Sum() / trucking.Number450kgPerTruck >= trucking.MinimumTrucksBeforeBuying)
{
// while truck to fill
while (herd.Select(a => a.Weight / 450.0).Sum() / trucking.Number450kgPerTruck > trucking.MinimumLoadBeforeBuying)
{
bool nonloaded = true;
trucks++;
double load450kgs = 0;
// while truck below carrying capacity load individuals
foreach (var ind in herd)
{
if (load450kgs + (ind.Weight / 450.0) <= trucking.Number450kgPerTruck)
{
nonloaded = false;
head++;
aESum += ind.AdultEquivalent;
load450kgs += ind.Weight / 450.0;
if (bankAccount != null) // perform with purchasing
{
double value = 0;
AnimalPriceGroup pricing = null;
if (ind.SaleFlag == HerdChangeReason.SirePurchase)
{
pricing = ind.BreedParams.ValueofIndividual(ind, PurchaseOrSalePricingStyleType.Purchase, "IsSire", "true");
}
else
{
pricing = ind.BreedParams.ValueofIndividual(ind, PurchaseOrSalePricingStyleType.Purchase);
}
if (pricing != null)
{
value = pricing.CalculateValue(ind);
}
if (cost + value <= fundsAvailable && fundsexceeded == false)
{
ind.ID = HerdResource.NextUniqueID;
boughtIndividuals.Add(ind);
HerdResource.AddRuminant(ind, this);
HerdResource.PurchaseIndividuals.Remove(ind);
cost += value;
}
else
{
fundsexceeded = true;
shortfall += value;
}
}
else // no financial transactions
{
ind.ID = HerdResource.NextUniqueID;
boughtIndividuals.Add(ind);
HerdResource.AddRuminant(ind, this);
HerdResource.PurchaseIndividuals.Remove(ind);
}
}
}
if (nonloaded)
{
Summary.WriteWarning(this, String.Format("There was a problem loading the purchase truck as purchase individuals did not meet the loading criteria for breed [r={0}]", this.PredictedHerdBreed));
break;
}
if (shortfall > 0)
{
break;
}
herd = HerdResource.PurchaseIndividuals.Where(a => a.BreedParams.Breed == this.PredictedHerdBreed).OrderByDescending(a => a.Weight).ToList();
}
if (Status != ActivityStatus.Warning)
{
if (HerdResource.PurchaseIndividuals.Where(a => a.BreedParams.Breed == this.PredictedHerdBreed).Any() == false)
{
SetStatusSuccess();
}
else
{
Status = ActivityStatus.Partial;
}
}
// create trucking emissions
if (trucking != null && trucks > 0)
{
trucking.ReportEmissions(trucks, false);
}
if (bankAccount != null && (trucks > 0 || trucking == null))
{
ResourceRequest purchaseRequest = new ResourceRequest
{
ActivityModel = this,
Required = cost,
AllowTransmutation = false,
Category = TransactionCategory,
RelatesToResource = this.PredictedHerdName
};
var groupedIndividuals = HerdResource.SummarizeIndividualsByGroups(boughtIndividuals, PurchaseOrSalePricingStyleType.Purchase);
foreach (var item in groupedIndividuals)
{
foreach (var item2 in item.RuminantTypeGroup)
{
purchaseRequest.Required = item2.TotalPrice ?? 0;
purchaseRequest.Category = $"{TransactionCategory}.{item2.GroupName}";
bankAccount.Remove(purchaseRequest);
}
}
// report any financial shortfall in purchases
if (shortfall > 0)
{
purchaseRequest.Available = bankAccount.Amount;
purchaseRequest.Required = cost + shortfall;
purchaseRequest.Provided = cost;
purchaseRequest.ResourceType = typeof(Finance);
purchaseRequest.ResourceTypeName = BankAccountName;
ResourceRequestEventArgs rre = new ResourceRequestEventArgs()
{
Request = purchaseRequest
};
OnShortfallOccurred(rre);
}
ResourceRequest expenseRequest = new ResourceRequest
{
Available = bankAccount.Amount,
ActivityModel = this,
AllowTransmutation = false
};
// calculate transport costs
if (trucking != null)
{
expenseRequest.Required = trucks * trucking.DistanceToMarket * trucking.CostPerKmTrucking;
expenseRequest.Category = trucking.TransactionCategory;
bankAccount.Remove(expenseRequest);
if (expenseRequest.Required > expenseRequest.Available)
{
expenseRequest.Available = bankAccount.Amount;
expenseRequest.ResourceType = typeof(Finance);
expenseRequest.ResourceTypeName = BankAccountName;
ResourceRequestEventArgs rre = new ResourceRequestEventArgs()
{
Request = expenseRequest
};
OnShortfallOccurred(rre);
}
}
}
}
else
{
this.Status = ActivityStatus.Warning;
}
}
private void BuyWithoutTrucking()
{
// This activity will purchase animals based on available funds.
// get current untrucked list of animal purchases
List <Ruminant> herd = HerdResource.PurchaseIndividuals.Where(a => a.BreedParams.Breed == this.PredictedHerdBreed).ToList();
if (herd.Count > 0)
{
if (this.Status != ActivityStatus.Warning)
{
this.Status = ActivityStatus.Success;
}
}
else
{
return;
}
List <Ruminant> boughtIndividuals = new List <Ruminant>();
double fundsAvailable = 0;
if (bankAccount != null)
{
fundsAvailable = bankAccount.FundsAvailable;
}
double cost = 0;
double shortfall = 0;
bool fundsexceeded = false;
foreach (var newind in herd)
{
if (bankAccount != null) // perform with purchasing
{
double value = 0;
AnimalPriceGroup pricing = null;
if (newind.SaleFlag == HerdChangeReason.SirePurchase)
{
pricing = newind.BreedParams.ValueofIndividual(newind, PurchaseOrSalePricingStyleType.Purchase, "Male.IsSire", "true");
}
else
{
pricing = newind.BreedParams.ValueofIndividual(newind, PurchaseOrSalePricingStyleType.Purchase);
}
if (pricing != null)
{
value = pricing.CalculateValue(newind);
}
if (cost + value <= fundsAvailable && fundsexceeded == false)
{
boughtIndividuals.Add(newind);
HerdResource.PurchaseIndividuals.Remove(newind);
newind.ID = HerdResource.NextUniqueID;
HerdResource.AddRuminant(newind, this);
cost += value;
}
else
{
fundsexceeded = true;
shortfall += value;
}
}
else // no financial transactions
{
boughtIndividuals.Add(newind);
HerdResource.PurchaseIndividuals.Remove(newind);
newind.ID = HerdResource.NextUniqueID;
HerdResource.AddRuminant(newind, this);
}
}
if (bankAccount != null)
{
ResourceRequest purchaseRequest = new ResourceRequest
{
ActivityModel = this,
Required = cost,
AllowTransmutation = false,
Category = TransactionCategory,
RelatesToResource = this.PredictedHerdName
};
//bankAccount.Add(saleValue, this, this.PredictedHerdName, TransactionCategory);
var groupedIndividuals = HerdResource.SummarizeIndividualsByGroups(boughtIndividuals, PurchaseOrSalePricingStyleType.Purchase);
foreach (var item in groupedIndividuals)
{
foreach (var item2 in item.RuminantTypeGroup)
{
purchaseRequest.Required = item2.TotalPrice ?? 0;
purchaseRequest.Category = $"{TransactionCategory}.{item2.GroupName}";
bankAccount.Remove(purchaseRequest);
// bankAccount.Add(item2.TotalPrice, this, item.RuminantTypeName, $"{TransactionCategory}.{item2.GroupName}");
}
}
// report any financial shortfall in purchases
if (shortfall > 0)
{
purchaseRequest.Available = bankAccount.Amount;
purchaseRequest.Required = cost + shortfall;
purchaseRequest.Provided = cost;
purchaseRequest.ResourceType = typeof(Finance);
purchaseRequest.ResourceTypeName = BankAccountName;
ResourceRequestEventArgs rre = new ResourceRequestEventArgs()
{
Request = purchaseRequest
};
OnShortfallOccurred(rre);
}
}
}