private void OnCLEMInitialiseActivity(object sender, EventArgs e)
{
// get bank account object to use
bankAccount = Resources.FindResourceType <Finance, FinanceType>(this, AccountName, OnMissingResourceActionTypes.ReportWarning, OnMissingResourceActionTypes.ReportErrorAndStop);
// get resource type to sell
resourceToSell = Resources.FindResourceType <ResourceBaseWithTransactions, IResourceType>(this, ResourceTypeName, OnMissingResourceActionTypes.ReportErrorAndStop, OnMissingResourceActionTypes.ReportErrorAndStop);
// find market if present
Market market = Resources.FoundMarket;
// find a suitable store to place resource
if (market != null)
{
resourceToPlace = market.Resources.LinkToMarketResourceType(resourceToSell as CLEMResourceTypeBase) as IResourceType;
}
if (resourceToPlace != null)
{
price = resourceToPlace.Price(PurchaseOrSalePricingStyleType.Purchase);
}
if (price is null && resourceToSell.Price(PurchaseOrSalePricingStyleType.Sale) != null)
{
price = resourceToSell.Price(PurchaseOrSalePricingStyleType.Sale);
}
}
private void OnCLEMInitialiseActivity(object sender, EventArgs e)
{
// get bank account object to use
bankAccount = Resources.FindResourceType<Finance, FinanceType>(this, AccountName, OnMissingResourceActionTypes.ReportWarning, OnMissingResourceActionTypes.ReportErrorAndStop);
// get resource type to buy
resourceToBuy = Resources.FindResourceType<ResourceBaseWithTransactions, IResourceType>(this, ResourceTypeName, OnMissingResourceActionTypes.ReportErrorAndStop, OnMissingResourceActionTypes.ReportErrorAndStop);
// get pricing
if((resourceToBuy as CLEMResourceTypeBase).MarketStoreExists)
if ((resourceToBuy as CLEMResourceTypeBase).EquivalentMarketStore.PricingExists(PurchaseOrSalePricingStyleType.Sale))
price = (resourceToBuy as CLEMResourceTypeBase).EquivalentMarketStore.Price(PurchaseOrSalePricingStyleType.Sale);
// no market price found... look in local resources and allow 0 price if not found
if(price is null)
price = resourceToBuy.Price(PurchaseOrSalePricingStyleType.Purchase);
}
/// <summary>
/// Validate this object
/// </summary>
/// <param name="validationContext"></param>
/// <returns></returns>
public IEnumerable <ValidationResult> Validate(ValidationContext validationContext)
{
var results = new List <ValidationResult>();
// get pricing if available
IResourceType parentResource = FindAncestor <CLEMResourceTypeBase>() as IResourceType;
if (parentResource != null)
{
pricing = parentResource.Price(PurchaseOrSalePricingStyleType.Purchase);
}
if (pricing is null)
{
string[] memberNames = new string[] { "Resource pricing" };
results.Add(new ValidationResult($"No resource pricing was found for [r={(parentResource as IModel).Name}] required for a price based transmutation [{this.Name}]", memberNames));
}
return(results);
}
/// <inheritdoc/>
public override List <ResourceRequest> GetResourcesNeededForActivity()
{
List <ResourceRequest> requests = new List <ResourceRequest>();
earned = 0;
spent = 0;
// get data
currentEntries = fileResource.GetCurrentResourceData(clock.Today.Month, clock.Today.Year);
resourceList = new List <IResourceType>();
if (currentEntries.Count > 0)
{
IResourceType resource = null;
foreach (DataRowView item in currentEntries)
{
// find resource
string resName = item[fileResource.ResourceNameColumnName].ToString();
if (resName.Contains("."))
{
resource = Resources.FindResourceType <ResourceBaseWithTransactions, IResourceType>(this, resName, OnMissingResourceActionTypes.ReportErrorAndStop, OnMissingResourceActionTypes.ReportErrorAndStop);
}
else
{
var found = Resources.FindAllDescendants <IResourceType>(resName);
if (found.Count() == 1)
{
resource = found.FirstOrDefault();
// highlight unsupported resource types
// TODO: add ability to include labour (days) and ruminants (number added/removed)
switch (resource.GetType().ToString())
{
case "Models.CLEM.Resources.LandType":
case "Models.CLEM.Resources.RuminantType":
case "Models.CLEM.Resources.LabourType":
case "Models.CLEM.Resources.GrazeFoodStoreType":
case "Models.CLEM.Resources.OtherAnimalsType":
string warn = $"[a={this.Name}] does not support [r={resource.GetType()}]\r\nThis resource will be ignored. Contact developers for more information";
Warnings.CheckAndWrite(warn, Summary, this);
resource = null;
break;
default:
break;
}
// if finances
if (resource != null && bankAccount != null)
{
double amount = Convert.ToDouble(item[fileResource.AmountColumnName], CultureInfo.InvariantCulture);
// get price of resource
ResourcePricing price = resource.Price((amount > 0 ? PurchaseOrSalePricingStyleType.Purchase : PurchaseOrSalePricingStyleType.Sale));
double amountAvailable = (amount < 0) ? Math.Min(Math.Abs(amount), resource.Amount) : amount;
double packets = amountAvailable / price.PacketSize;
if (price.UseWholePackets)
{
packets = Math.Truncate(packets);
}
if (amount < 0)
{
earned += packets * price.PricePerPacket;
}
else
{
spent += packets * price.PricePerPacket;
}
}
}
else
{
string warn = "";
if (found.Count() == 0)
{
warn = $"[a={this.Name}] could not find a resource [r={resName}] provided by [x={fileResource.Name}] in the local [r=ResourcesHolder]\r\nExternal transactions with this resource will be ignored\r\nYou can either add this resource to your simulation or remove it from the input file to avoid this warning";
}
else
{
warn = $"[a={this.Name}] could not distinguish between multiple occurences of resource [r={resName}] provided by [x={fileResource.Name}] in the local [r=ResourcesHolder]\r\nEnsure all resource names are unique across stores, or use ResourceStore.ResourceType notation to specify resources in the input file";
}
Warnings.CheckAndWrite(warn, Summary, this);
}
}
if (resource != null)
{
resourceList.Add(resource);
}
}
}
return(requests);
}
