Rockwell Automation 9307 FactoryTalk EnergyMetrix - Manual (Page 145)

5 • Visualize Energy Usage
145
If TestCharge > Charge Then
Charge = TestCharge
Quantity = TestQty
RatePerUnit = 3.63
End If
End Select
Charge = ProRateMonthlyCharge(Charge)
If Charge = 0 then Visible = False
 Transmission Demand
This line item uses global variables assigned in the first line item above, determines
the largest demand variable, assigns the rate per kw and prorates the charge.
Dim TestQty
Unit = GetUnit(ValueType.RealPowerDemand)
Quantity = 0
Select Case PctWinter
Case >= 50
Quantity = DemandGenSysPeakWinter
TestQty = DemandGenSysInterWinter : If TestQty > Quantity Then
Quantity = TestQty
Case Else
TestQty = DemandGenSysPeakSummer : If TestQty > Quantity Then
Quantity = TestQty
TestQty = DemandGenSysInterSummer : If TestQty > Quantity Then
Quantity = TestQty
End Select
Charge = ProRateMonthlyCharge(Quantity * RatePerUnit)
If Charge = 0 then Visible = False
Penalties
This example script shows the use of the Ratchet function to implement the demand
penalty entitled ‘Customer Demand’ in the sample tariff. The ProRateMonthlyCharge
function applies the appropriate proration of the demand charge if the report period is less
than a month.