Report Information
Description Converted By: Crystal Migration Services, support@crystalmigrater.com
Embedded Images
Picture_42479A267558DCD8F6B0827CCC203962
Name Picture_42479A267558DCD8F6B0827CCC203962
Type jpeg
Picture_3271E8CAE16ACC39735D73047348ECF8
Name Picture_3271E8CAE16ACC39735D73047348ECF8
Type jpeg
Picture_3DDD5FBBDD90DFAE364DB731242C6A91
Name Picture_3DDD5FBBDD90DFAE364DB731242C6A91
Type jpeg
Picture_F052CE2B595F1B1B142D4134675243DA
Name Picture_F052CE2B595F1B1B142D4134675243DA
Type jpeg
Picture_032F94D19307B0134F2784D30C10E719
Name Picture_032F94D19307B0134F2784D30C10E719
Type jpeg
Picture_135C18709752EBFF8EB3BB4A62EDC1DB
Name Picture_135C18709752EBFF8EB3BB4A62EDC1DB
Type jpeg
Picture_FBDDC56D113BCD6ED6D20979519B6E56
Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Type jpeg
Picture_8E05E7CF60CBADCA2096F0F0828A8CC0
Name Picture_8E05E7CF60CBADCA2096F0F0828A8CC0
Type jpeg
Custom Code
Public Function CalcCertIsGivenOn_1 () As String
Dim formula As String
If UCase(valCertBasedOn ()) = "1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcCertIsGivenOn_2 () As String
Dim formula As String
If UCase(valCertBasedOn ()) = "2" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcCertIsGivenOn_3 () As String
Dim formula As String
If UCase(valCertBasedOn ()) = "3" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function Object_Visibility4 () As Boolean
Dim formula As Boolean
If CalcET () > 0 And CalcET () < val(valStartB ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility5 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartB ()) And CalcET () < val(valStartC ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility6 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartC ()) And CalcET () < val(valStartD ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility7 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartD ()) And CalcET () < val(valStartE ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility8 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartE ()) And CalcET () < val(valStartF ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility9 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartF ()) And CalcET () < val(valStartG ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function Object_Visibility10 () As Boolean
Dim formula As Boolean
If CalcET () >= val(valStartG ()) Then
formula = False
Else
formula = True
End If
Return formula
End Function
Public Function lblET () As String
Dim formula As String
formula = "ET-luku"
Return formula
End Function
Public Function lblSmallCons () As String
Dim formula As String
formula = "Vähän kuluttava"
Return formula
End Function
Public Function lblBuildingETclass () As String
Dim formula As String
formula = "Rakennuksen ET-luokka"
Return formula
End Function
Public Function lblHighCons () As String
Dim formula As String
formula = "Paljon kuluttava"
Return formula
End Function
Public Function CalcRangeA () As String
Dim formula As String
formula = ("- " & (Format (val(valStartB ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeB () As String
Dim formula As String
formula = ((valStartB () & " - ") & (Format (val(valStartC ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeC () As String
Dim formula As String
formula = ((valStartC () & " - ") & (Format (val(valStartD ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeD () As String
Dim formula As String
formula = ((valStartD () & " - ") & (Format (val(valStartE ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeE () As String
Dim formula As String
formula = ((valStartE () & " - ") & (Format (val(valStartF ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeF () As String
Dim formula As String
formula = ((valStartF () & " - ") & (Format (val(valStartG ()) - 1, "#,##0")))
Return formula
End Function
Public Function CalcRangeG () As String
Dim formula As String
formula = (valStartG () & " -")
Return formula
End Function
Public Function valETclass () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblETwUnit () As String
Dim formula As String
formula = "Rakennuksen energiatehokkuusluku (ETluku, kWh/brm²/vuosi):"
Return formula
End Function
Public Function lblETscale () As String
Dim formula As String
formula = "Energiatehokkuusluvun luokitteluasteikko:"
Return formula
End Function
Public Function CalcET () As Decimal
Dim formula As Decimal
If valArea () <> "" Then
If (CalcConsSum () / CDbl(valArea ())) - Round(CalcConsSum () / CDbl(valArea ()) - 0.5) <> 0 Then
formula = (Round(CalcConsSum () / CDbl(valArea ()) - 0.5) + 1)
Else
formula = (CalcConsSum () / CDbl(valArea ()))
End If
Else
formula = (-1)
End If
Return formula
End Function
Public Function Object_Visibility12 () As Boolean
Dim formula As Boolean
If CalcET () < 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function valBuildingType () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAddress () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valCity () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valBuiltYear () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valBuildingID () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valCertGranter () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valCertOrderer () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valCertGrantedDate () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valCertExpiresDate () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblCaption () As String
Dim formula As String
formula = "ENERGIATODISTUS"
Return formula
End Function
Public Function lblBuilding () As String
Dim formula As String
formula = "Rakennus"
Return formula
End Function
Public Function lblBuildingType () As String
Dim formula As String
formula = "Rakennustyyppi:"
Return formula
End Function
Public Function lblAddress () As String
Dim formula As String
formula = "Osoite:"
Return formula
End Function
Public Function lblBuiltYear () As String
Dim formula As String
formula = "Rakennusvuosi:"
Return formula
End Function
Public Function lblBuildingID () As String
Dim formula As String
formula = "Rakennustunnus:"
Return formula
End Function
Public Function lblCertGranted () As String
Dim formula As String
formula = "Energiatodistus on annettu"
Return formula
End Function
Public Function lblCertGrantedOpt1 () As String
Dim formula As String
formula = "rakennuslupamenettelyn yhteydessä ja perustuu laskennalliseen kulutukseen"
Return formula
End Function
Public Function lblCertGrantedOpt2 () As String
Dim formula As String
formula = "energiakatselmuksen yhteydessä ja perustuu toteutuneeseen kulutukseen"
Return formula
End Function
Public Function lblCertGrantedOpt3 () As String
Dim formula As String
formula = "erillisen tarkastuksen yhteydessä ja perustuu toteutuneeseen kulutukseen"
Return formula
End Function
Public Function lblCertGranter () As String
Dim formula As String
formula = "Todistuksen antaja:"
Return formula
End Function
Public Function lblCertOrderer () As String
Dim formula As String
formula = "Todistuksen tilaaja"
Return formula
End Function
Public Function lblCertGranterSignature () As String
Dim formula As String
formula = "Allekirjoitus:"
Return formula
End Function
Public Function lblCertGrantedDate () As String
Dim formula As String
formula = "Todistuksen antamispäivä:"
Return formula
End Function
Public Function lblCertExpires () As String
Dim formula As String
formula = "Viimeinen voimassaolopäivä:"
Return formula
End Function
Public Function lblETCalcRules () As String
Dim formula As String
formula = "Energiatehokkuusluvun laskenta"
Return formula
End Function
Public Function lblConsHistory () As String
Dim formula As String
formula = "Toteutuneet energian ja veden kulutukset"
Return formula
End Function
Public Function lblConsConversion () As String
Dim formula As String
formula = "Toteutuneiden kulutusten muuntaminen energiatehokkuusluvun laskentaa varten"
Return formula
End Function
Public Function lblHVACcaption () As String
Dim formula As String
formula = "Rakennuksen sisäilmasto sekä ilmanvaihto- ja lämmitysjärjestelmä"
Return formula
End Function
Public Function CalcHVACopt1 () As String
Dim formula As String
If UCase(valHVACopt ()) = "1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVAcopt2 () As String
Dim formula As String
If UCase(valHVACopt ()) = "2" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVACopt3 () As String
Dim formula As String
If UCase(valHVACopt ()) = "3" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVACadv1 () As String
Dim formula As String
If UCase(valHVAChasValves ()) = "-1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVACadv2 () As String
Dim formula As String
If UCase(valHVAChasFilter ()) = "-1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVACadv3 () As String
Dim formula As String
If UCase(valHVAChasHeatRec ()) = "-1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function CalcHVACadv4 () As String
Dim formula As String
If UCase(valHVAChasAc ()) = "-1" Then
formula = "x"
Else
formula = ""
End If
Return formula
End Function
Public Function valHVACmeasuredYear () As String
Dim formula As String
formula = "-"
Return formula
End Function
Public Function valHVACMaintYear () As String
Dim formula As String
formula = "-"
Return formula
End Function
Public Function valHVACeffYear () As String
Dim formula As String
formula = "-"
Return formula
End Function
Public Function valHVACheatMaintYear () As String
Dim formula As String
formula = "-"
Return formula
End Function
Public Function CalcConsSum () As Decimal
Dim formula As Decimal
formula = ((CalcConsHeatEne () + CalcConsElec_Top ()) + CalcConsCold ())
Return formula
End Function
Public Function valHeatSource1_Name () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatSource2_Name () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatSource1_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatSource2_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsElecYear () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_District_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_Elec_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsWater_Total_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsWater_Warm_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatRef_City () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatIndex_RefCity_NormalYear () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatIndex_RefCity_RefYear () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatIndex_CorrectFactor () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblConsCaption () As String
Dim formula As String
formula = "RAKENNUKSEN ENERGIANKULUTUS"
Return formula
End Function
Public Function lblConsHeat () As String
Dim formula As String
formula = "Lämmitysenergian kulutus *"
Return formula
End Function
Public Function lblConsElec () As String
Dim formula As String
formula = "Kiinteistösähkön kulutus"
Return formula
End Function
Public Function lblConsCold () As String
Dim formula As String
formula = "Jäähdytysenergian kulutus *"
Return formula
End Function
Public Function lblConsSum () As String
Dim formula As String
formula = "Yhteensä"
Return formula
End Function
Public Function lblArea () As String
Dim formula As String
formula = "Rakennuksen bruttoala"
Return formula
End Function
Public Function lblBuildingET () As String
Dim formula As String
formula = "Rakennuksen energiatehokkuusluku"
Return formula
End Function
Public Function lblkWhPerYear () As String
Dim formula As String
formula = "kWh/vuosi"
Return formula
End Function
Public Function lblkWhPerAreaPerYear () As String
Dim formula As String
formula = "kWh/brm²/vuosi"
Return formula
End Function
Public Function lblETCalcInfo1 () As String
Dim formula As String
formula = "* Uudisrakennuksen energiankulutus lasketaan käyttäen"
Return formula
End Function
Public Function lblETCalcInfo2 () As String
Dim formula As String
formula = "RakMk D5 Liite 1 säävyöhyke III (JyväskyläLuonetjärvi) mukaisia säätietoja."
Return formula
End Function
Public Function lblConsType () As String
Dim formula As String
formula = "Kulutuskohde"
Return formula
End Function
Public Function lblConsValue () As String
Dim formula As String
formula = "Kulutus"
Return formula
End Function
Public Function lblConsUnit () As String
Dim formula As String
formula = "Yksikkö"
Return formula
End Function
Public Function lblConsYear () As String
Dim formula As String
formula = "Vuosi"
Return formula
End Function
Public Function lblConsHeatTable () As String
Dim formula As String
formula = "Lämmitysenergia"
Return formula
End Function
Public Function lblConsElecTable () As String
Dim formula As String
formula = "Kiinteistösähkö"
Return formula
End Function
Public Function lblConsElecMeasured () As String
Dim formula As String
formula = "Mitattu kiinteistösähkö"
Return formula
End Function
Public Function lblConsColdTable () As String
Dim formula As String
formula = "Jäähdetysenergia"
Return formula
End Function
Public Function lblConsColdDistrict () As String
Dim formula As String
formula = "Kaukojäähdytys"
Return formula
End Function
Public Function lblConsColdElec () As String
Dim formula As String
formula = "Jäähdytyssähkö"
Return formula
End Function
Public Function lblConsWaterTable () As String
Dim formula As String
formula = "Vedenkulutus"
Return formula
End Function
Public Function lblConsWaterTotal () As String
Dim formula As String
formula = "Kokonaiskulutus"
Return formula
End Function
Public Function lblConsWaterWarm () As String
Dim formula As String
formula = "Lämpimän veden kulutus"
Return formula
End Function
Public Function lblHeatRefCity () As String
Dim formula As String
formula = "Vertailupaikkakunta:"
Return formula
End Function
Public Function lblHeatIndexRefNormal () As String
Dim formula As String
formula = "Normaalivuoden lämmitystarveluku vertailupaikkakunnalla:"
Return formula
End Function
Public Function lblHeatIndexYear () As String
Dim formula As String
formula = "Vuoden"
Return formula
End Function
Public Function valHeatIndex_Year () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblHeatIndexCorrectFactor () As String
Dim formula As String
formula = "Paikkakuntakohtainen korjauskerroin Jyväskylään k2:"
Return formula
End Function
Public Function lblHeatEfficiencyFactor () As String
Dim formula As String
formula = "Lämmöntuottojärjestelmän hyötysuhde:"
Return formula
End Function
Public Function lblHVACopt1 () As String
Dim formula As String
formula = "Painovoimainen ilmanvaihto"
Return formula
End Function
Public Function lblHVACopt2 () As String
Dim formula As String
formula = "Koneellinen poistoilmanvaihto"
Return formula
End Function
Public Function lblHVACopt3 () As String
Dim formula As String
formula = "Koneellinen tulo- ja poistoilmanvaihto"
Return formula
End Function
Public Function lblHVACheat () As String
Dim formula As String
formula = "Lämmönjakotapa:"
Return formula
End Function
Public Function lblHVACheatMaintYear () As String
Dim formula As String
formula = "Lämmitysjärjestelmä on tasapainotettu vuonna"
Return formula
End Function
Public Function lblHVACmaintYear () As String
Dim formula As String
formula = "Ilmanvaihtojärjestelmä on puhdistettu ja tasapainotettu vuonna"
Return formula
End Function
Public Function lblHVACmeasuredYear () As String
Dim formula As String
formula = "Ilmanvaihdon ilmavirrat on mitattu ja todettu riittäviksi vuonna"
Return formula
End Function
Public Function lblHVACeffYear () As String
Dim formula As String
formula = "Ilmastoinnin kylmälaitteiden kunto ja energiatehokkuus on tarkastettu vuonna"
Return formula
End Function
Public Function lblHVACadvanced1 () As String
Dim formula As String
formula = "Ulkoilmaventtiilit"
Return formula
End Function
Public Function lblHVACadvanced2 () As String
Dim formula As String
formula = "Tuloilman suodatus"
Return formula
End Function
Public Function lblHVACadvanced3 () As String
Dim formula As String
formula = "Lämmöntalteenotto"
Return formula
End Function
Public Function lblHVACadvanced4 () As String
Dim formula As String
formula = "Jäähdytys"
Return formula
End Function
Public Function valHVACheat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function CalcConsHeatEne () As Decimal
Dim formula As Decimal
If valHeatIndex_CorrectFactor () <> "" And valHeatIndex_RefCity_NormalYear () <> "" And valHeatIndex_RefCity_RefYear () <> "" And valHeatSource1_Value () <> "" Then
formula = (((val(replace(valHeatIndex_CorrectFactor (), ",", ".")) * (val(valHeatIndex_RefCity_NormalYear ()) / val(valHeatIndex_RefCity_RefYear ()))) * ((((val(valHeatSource1_Value ()) * CDbl(valHeat_EfficiencyFactor ())) + val(valHeatSource2_Value ())) + val(valConsHeatElec ())) - CalcConsWaterWarmEne ())) + CalcConsWaterWarmEne ())
Else
formula = 0
End If
Return formula
End Function
Public Function Font_Color () As Decimal
Dim formula As Decimal
If CalcConsHeatEne () < 0 Then
formula = "Red"
End If
Return formula
End Function
Public Function Object_Visibility11 () As Boolean
Dim formula As Boolean
If CalcET () < 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function lblHeatIndexYear1 () As String
Dim formula As String
formula = "lämmitystarveluku vertailuvuonna vertailupaikkakunnalla:"
Return formula
End Function
Public Function CalcConsCold () As Decimal
Dim formula As Decimal
If valConsCold () <> "" Then
formula = val(valConsCold ())
ElseIf valConsCold_District () <> "" Then
formula = val(valConsCold_District ())
Else
formula = 0
End If
Return formula
End Function
Public Function Font_Color2 () As Decimal
Dim formula As Decimal
If CalcConsCold () < 0 Then
formula = "Red"
End If
Return formula
End Function
Public Function CalcHeatEfficiencyFactor () As Decimal
Dim formula As Decimal
If valHeat_EfficiencyFactor () <> "" Then
formula = val(valHeat_EfficiencyFactor ())
End If
Return formula
End Function
Public Function CalcArea () As Decimal
Dim formula As Decimal
If valArea () <> "" Then
formula = val(valArea ())
Else
formula = 0
End If
Return formula
End Function
Public Function CalcHeatSource1_Value () As Decimal
Dim formula As Decimal
If valHeatSource1_Value () <> "" Then
formula = val(valHeatSource1_Value ())
Else
formula = 0
End If
Return formula
End Function
Public Function Object_Visibility13 () As Boolean
Dim formula As Boolean
If CalcHeatSource1_Value () = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcHeatSource2_Value () As Decimal
Dim formula As Decimal
If valHeatSource2_Value () <> "" Then
formula = val(valHeatSource2_Value ())
Else
formula = 0
End If
Return formula
End Function
Public Function Object_Visibility14 () As Boolean
Dim formula As Boolean
If CalcHeatSource2_Value () = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcConsElec () As Decimal
Dim formula As Decimal
If valConsElec () <> "" Then
formula = val(valConsElec ())
Else
formula = 0
End If
Return formula
End Function
Public Function Object_Visibility15 () As Boolean
Dim formula As Boolean
If CalcConsElec () = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcConsCold_District () As Decimal
Dim formula As Decimal
If valConsCold_District () <> "" Then
formula = val(valConsCold_District ())
Else
formula = 0
End If
Return formula
End Function
Public Function CalcConsCold_Elec () As Decimal
Dim formula As Decimal
If valConsCold_Elec () <> "" Then
formula = val(valConsCold_Elec ())
Else
formula = 0
End If
Return formula
End Function
Public Function CalcConsWater_Total () As Decimal
Dim formula As Decimal
If valConsWater_Total () <> "" Then
formula = val(valConsWater_Total ())
Else
formula = 0
End If
Return formula
End Function
Public Function CalcConsWater_Warm () As Decimal
Dim formula As Decimal
If valConsWater_Warm () <> "" Then
formula = val(valConsWater_Warm ())
Else
formula = 0
End If
Return formula
End Function
Public Function CalcConsElec_Top () As Decimal
Dim formula As Decimal
If valConsElec_Top () <> "" Then
formula = val(valConsElec_Top ())
Else
formula = 0
End If
Return formula
End Function
Public Function Font_Color1 () As Decimal
Dim formula As Decimal
If CalcConsElec_Top () < 0 Then
formula = "Red"
End If
Return formula
End Function
Public Function valConsCold_ElecCalc () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function CalcHeatElecInfo () As String
Dim formula As String
If valConsHeatElec () <> "" Then
If UCase(valHeatElecInfoHelp ()) = "1" Then
formula = (((((((lblHeatElecInfo () & "kWh * ") & (Format (val(valConsSepElecSquare ()), "#,##0"))) & " m² = ") & (Format (val(valConsHeatElec ()), "#,##0"))) & " ") & lblkWhPerYear ()) & chr(13))
Else
formula = (((((lblHeatElecInfo1 () & " ") & (Format (val(valConsHeatElec ()), "#,##0"))) & " ") & lblkWhPerYear ()) & chr(13))
End If
Else
formula = ""
End If
Return formula
End Function
Public Function valConsCold_Elec_Measured () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_Elec_Measured1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_Elec_Measured2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblAPhullCaption () As String
Dim formula As String
formula = "Ulkoseinät, ovet ja ikkunat"
Return formula
End Function
Public Function lblAPfloorCaption () As String
Dim formula As String
formula = "Ylä- ja alapohja"
Return formula
End Function
Public Function lblAPheatCaption () As String
Dim formula As String
formula = "Tilojen ja käyttöveden lämmitysjärjestelmät"
Return formula
End Function
Public Function lblAPcaption () As String
Dim formula As String
formula = "HUOMIOT JA TOIMENPIDE-EHDOTUKSET"
Return formula
End Function
Public Function lblAPHeat () As String
Dim formula As String
formula = "Lämpö"
Return formula
End Function
Public Function lblAPElec () As String
Dim formula As String
formula = "Sähkö"
Return formula
End Function
Public Function lblAPCold () As String
Dim formula As String
formula = "Kylmä"
Return formula
End Function
Public Function lblAPTable () As String
Dim formula As String
formula = "Toimenpide-ehdotus"
Return formula
End Function
Public Function lblAPSave () As String
Dim formula As String
formula = "Arvioitu energiansäästö (kWh/vuosi)"
Return formula
End Function
Public Function valAPhull1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull1Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull1Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull1Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull2Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull2Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull2Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull3Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull3Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhull3Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor1Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor1Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor1Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor2Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor2Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor2Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor3Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor3Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloor3Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat1Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat1Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat1Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat2Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat2Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat2Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat3Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat3Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHeat3Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPheatInfo () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPheatInfo1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPheatInfo2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPheatInfo3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPheatInfo4 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloorInfo () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloorInfo1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloorInfo2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPfloorInfo3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhullInfo () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhullInfo1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhullInfo2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPhullInfo3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblAPHVACCaption () As String
Dim formula As String
formula = "Ilmanvaihto- ja ilmastointijärjestelmä"
Return formula
End Function
Public Function lblAPlightCaption () As String
Dim formula As String
formula = "Valaistus, sähköiset erillislämmitykset ja muut järjestelmät"
Return formula
End Function
Public Function lblAPSumCaption () As String
Dim formula As String
formula = "KAIKKIEN TOIMENPITEIDEN YHTEISVAIKUTUS"
Return formula
End Function
Public Function lblNotes () As String
Dim formula As String
formula = "Lisämerkintöjä"
Return formula
End Function
Public Function lblSummaryHeat () As String
Dim formula As String
formula = "Arvioitu lämmitysenergian säästö"
Return formula
End Function
Public Function lblSummaryElec () As String
Dim formula As String
formula = "Arvioitu kiinteistösähköenergian säästö"
Return formula
End Function
Public Function lblSummaryCold () As String
Dim formula As String
formula = "Arvioitu jäähdytysenergian (kylmäenergian) säästö"
Return formula
End Function
Public Function lblSummaryETafter () As String
Dim formula As String
formula = "Rakennuksen energiatehokkuusluku kaikkien toimenpiteiden jälkeen"
Return formula
End Function
Public Function lblSummaryETclass () As String
Dim formula As String
formula = "Energiatehokkuusluokka kaikkien toimenpiteiden toteutuksen jälkeen"
Return formula
End Function
Public Function valAPHVAC1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC1Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC1Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC1Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC2Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC2Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC2Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC3Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC3Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVAC3Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight1Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight1Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight1Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight2Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight2Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight2Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight3Heat () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight3Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlight3Cold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function CalcSumHeat () As String
Dim formula As String
formula = (Format ((((((((((((((val(valAPfloor1Heat ()) + val(valAPfloor2Heat ())) + val(valAPfloor3Heat ())) + val(valAPHeat1Heat ())) + val(valAPHeat2Heat ())) + val(valAPHeat3Heat ())) + val(valAPhull1Heat ())) + val(valAPhull2Heat ())) + val(valAPhull3Heat ())) + val(valAPHVAC1Heat ())) + val(valAPHVAC2Heat ())) + val(valAPHVAC3Heat ())) + val(valAPlight1Heat ())) + val(valAPlight2Heat ())) + val(valAPlight3Heat ()), "#,##0"))
Return formula
End Function
Public Function Object_Visibility () As Boolean
Dim formula As Boolean
If val(CalcSumHeat ()) = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcSumElec () As String
Dim formula As String
formula = (Format ((((((((((((((val(valAPfloor1Elec ()) + val(valAPfloor2Elec ())) + val(valAPfloor3Elec ())) + val(valAPHeat1Elec ())) + val(valAPHeat2Elec ())) + val(valAPHeat3Elec ())) + val(valAPhull1Elec ())) + val(valAPhull2Elec ())) + val(valAPhull3Elec ())) + val(valAPHVAC1Elec ())) + val(valAPHVAC2Elec ())) + val(valAPHVAC3Elec ())) + val(valAPlight1Elec ())) + val(valAPlight2Elec ())) + val(valAPlight3Elec ()), "#,##0"))
Return formula
End Function
Public Function Object_Visibility1 () As Boolean
Dim formula As Boolean
If val(CalcSumElec ()) = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcSumCold () As String
Dim formula As String
formula = (Format ((((((((((((((val(valAPfloor1Cold ()) + val(valAPfloor2Cold ())) + val(valAPfloor3Cold ())) + val(valAPHeat1Cold ())) + val(valAPHeat2Cold ())) + val(valAPHeat3Cold ())) + val(valAPhull1Cold ())) + val(valAPhull2Cold ())) + val(valAPhull3Cold ())) + val(valAPHVAC1Cold ())) + val(valAPHVAC2Cold ())) + val(valAPHVAC3Cold ())) + val(valAPlight1Cold ())) + val(valAPlight2Cold ())) + val(valAPlight3Cold ()), "#,##0"))
Return formula
End Function
Public Function Object_Visibility2 () As Boolean
Dim formula As Boolean
If val(CalcSumCold ()) = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcNewET () As Decimal
Dim formula As Decimal
If valArea () <> "" And (CalcSumCold () <> "0" Or CalcSumElec () <> "0" Or CalcSumHeat () <> "0") Then
If ((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ())) - Round((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ()) - 0.5) <> 0 Then
formula = (Round((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ()) - 0.5) + 1)
Else
formula = ((((CalcConsSum () - CDbl(CalcSumCold ())) - CDbl(CalcSumElec ())) - CDbl(CalcSumHeat ())) / CDbl(valArea ()))
End If
If CalcET () < 0 Then
formula = 0
'Missing Else Statement!
' Else
' Return 0
End If
Return 0
Else
formula = 0
End If
Return formula
End Function
Public Function Object_Visibility3 () As Boolean
Dim formula As Boolean
If CalcNewET () = 0 Then
formula = True
Else
formula = False
End If
Return formula
End Function
Public Function CalcNewETclass () As String
Dim formula As String
Dim lngTmp As Decimal
lngTmp = CalcNewET ()
If lngTmp = 0 Then
formula = ""
ElseIf lngTmp > 0 And lngTmp < val(valStartB ()) Then
formula = "A"
ElseIf lngTmp >= val(valStartB ()) And lngTmp < val(valStartC ()) Then
formula = "B"
ElseIf lngTmp >= val(valStartC ()) And lngTmp < val(valStartD ()) Then
formula = "C"
ElseIf lngTmp >= val(valStartD ()) And lngTmp < val(valStartE ()) Then
formula = "D"
ElseIf lngTmp >= val(valStartE ()) And lngTmp < val(valStartF ()) Then
formula = "E"
ElseIf lngTmp >= val(valStartF ()) And lngTmp < val(valStartG ()) Then
formula = "F"
Else
formula = "G"
End If
Return formula
End Function
Public Function valNotes () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valNotes1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valNotes2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valNotes3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valNotes4 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valNotes5 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlightInfo () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlightInfo1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlightInfo2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPlightInfo3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVACInfo () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVACInfo1 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVACInfo2 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valAPHVACInfo3 () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblkWhPerAreaPerYear2 () As String
Dim formula As String
formula = "kWh/brm²/vuosi"
Return formula
End Function
Public Function lblLegalText () As String
Dim formula As String
formula = "Energiatodistus perustuu lakiin rakennusten energiatodistuksesta (487/2007) ja 19.6.2007 annettuun ympäristöministeriön asetukseen energiatodistuksesta. Tämä energiatodistus on asetuksen lomakkeen 2 mukainen."
Return formula
End Function
Public Function valConsElec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valArea () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatSource1_Value () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatSource2_Value () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_District () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsCold_Elec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsWater_Total () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsWater_Warm () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeat_EfficiencyFactor () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function CalcConsWaterWarmEne () As Decimal
Dim formula As Decimal
If valConsWater_Warm () = "" And valConsWater_Total () <> "" Then
formula = (((val(valConsWater_Warm_Procent ()) / 100) * val(valConsWater_Total ())) * 58)
ElseIf valConsWater_Warm () <> "" Then
formula = (val(valConsWater_Warm ()) * 58)
End If
Return formula
End Function
Public Function valStartB () As String
Dim formula As String
formula = "91"
Return formula
End Function
Public Function valStartC () As String
Dim formula As String
formula = "111"
Return formula
End Function
Public Function valStartD () As String
Dim formula As String
formula = "131"
Return formula
End Function
Public Function valStartE () As String
Dim formula As String
formula = "171"
Return formula
End Function
Public Function valStartF () As String
Dim formula As String
formula = "231"
Return formula
End Function
Public Function valStartG () As String
Dim formula As String
formula = "321"
Return formula
End Function
Public Function valCertBasedOn () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHVACopt () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHVAChasValves () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHVAChasFilter () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHVAChasHeatRec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHVAChasAc () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsWater_Warm_Procent () As String
Dim formula As String
formula = "30"
Return formula
End Function
Public Function valConsElec_Top () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valConsHeatElec () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function valHeatElecInfoHelp () As String
Dim formula As String
formula = ""
Return formula
End Function
Public Function lblHeatElecInfo () As String
Dim formula As String
formula = "Arvioitu erillisten sähkölämmittimien kulutus: 40 kWh/brm²/vuosi"
Return formula
End Function
Public Function lblHeatElecInfo1 () As String
Dim formula As String
formula = "Mitattu erillisten sähkölämmittimien kulutus:"
Return formula
End Function
Public Function valConsSepElecSquare () As String
Dim formula As String
formula = ""
Return formula
End Function
Body
Report Items
Box1
Name Box1
Type Rectangle
Box2
Name Box2
Type Rectangle
Box3
Name Box3
Type Rectangle
Field8_CalcCertIsGivenOn_1
Name Field8_CalcCertIsGivenOn_1
Type Text Box
Content =Code.CalcCertIsGivenOn_1 ()
Field9_CalcCertIsGivenOn_2
Name Field9_CalcCertIsGivenOn_2
Type Text Box
Content =Code.CalcCertIsGivenOn_2 ()
Field10_CalcCertIsGivenOn_3
Name Field10_CalcCertIsGivenOn_3
Type Text Box
Content =Code.CalcCertIsGivenOn_3 ()
Box4
Name Box4
Type Rectangle
Box5
Name Box5
Type Rectangle
Picture4
Name Picture4
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility4 ()
Text17
Name Text17
Type Text Box
Content A
Picture1
Name Picture1
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility5 ()
Picture2
Name Picture2
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility6 ()
Picture3
Name Picture3
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility7 ()
Picture10
Name Picture10
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility8 ()
Picture11
Name Picture11
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility9 ()
Picture12
Name Picture12
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_FBDDC56D113BCD6ED6D20979519B6E56
Visibility
Show or hide based on expression =Code.Object_Visibility10 ()
Text11
Name Text11
Type Text Box
Content B
Text12
Name Text12
Type Text Box
Content C
Text13
Name Text13
Type Text Box
Content D
Text18
Name Text18
Type Text Box
Content E
Text19
Name Text19
Type Text Box
Content F
Text20
Name Text20
Type Text Box
Content G
Picture5
Name Picture5
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_032F94D19307B0134F2784D30C10E719
Picture6
Name Picture6
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_F052CE2B595F1B1B142D4134675243DA
Picture7
Name Picture7
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_135C18709752EBFF8EB3BB4A62EDC1DB
Picture8
Name Picture8
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_8E05E7CF60CBADCA2096F0F0828A8CC0
Picture13
Name Picture13
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_3DDD5FBBDD90DFAE364DB731242C6A91
Picture14
Name Picture14
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_3271E8CAE16ACC39735D73047348ECF8
Picture15
Name Picture15
Type Image
Source Type Embedded Image Name
Embedded Image Name Picture_42479A267558DCD8F6B0827CCC203962
Text1
Name Text1
Type Text Box
Content A
Text2
Name Text2
Type Text Box
Content B
Text3
Name Text3
Type Text Box
Content C
Text4
Name Text4
Type Text Box
Content D
Text5
Name Text5
Type Text Box
Content E
Text6
Name Text6
Type Text Box
Content F
Text7
Name Text7
Type Text Box
Content G
Field57_lblET
Name Field57_lblET
Type Text Box
Content =Code.lblET ()
Field58_lblSmallCons
Name Field58_lblSmallCons
Type Text Box
Content =Code.lblSmallCons ()
Field59_lblBuildingETclass
Name Field59_lblBuildingETclass
Type Text Box
Content =Code.lblBuildingETclass ()
Field60_lblHighCons
Name Field60_lblHighCons
Type Text Box
Content =Code.lblHighCons ()
Field248_CalcRangeA
Name Field248_CalcRangeA
Type Text Box
Content =Code.CalcRangeA ()
Field249_CalcRangeB
Name Field249_CalcRangeB
Type Text Box
Content =Code.CalcRangeB ()
Field250_CalcRangeC
Name Field250_CalcRangeC
Type Text Box
Content =Code.CalcRangeC ()
Field251_CalcRangeD
Name Field251_CalcRangeD
Type Text Box
Content =Code.CalcRangeD ()
Field252_CalcRangeE
Name Field252_CalcRangeE
Type Text Box
Content =Code.CalcRangeE ()
Field253_CalcRangeF
Name Field253_CalcRangeF
Type Text Box
Content =Code.CalcRangeF ()
Field254_CalcRangeG
Name Field254_CalcRangeG
Type Text Box
Content =Code.CalcRangeG ()
Box6
Name Box6
Type Rectangle
Field2_valETclass
Name Field2_valETclass
Type Text Box
Content =Code.valETclass ()
Field61_lblETwUnit
Name Field61_lblETwUnit
Type Text Box
Content =Code.lblETwUnit ()
Field62_lblETscale
Name Field62_lblETscale
Type Text Box
Content =Code.lblETscale ()
Field1_CalcET
Name Field1_CalcET
Type Text Box
Content =Code.CalcET ()
Visibility
Show or hide based on expression =Code.Object_Visibility12 ()
Field3_valBuildingType
Name Field3_valBuildingType
Type Text Box
Content =Code.valBuildingType ()
Field4_valAddress
Name Field4_valAddress
Type Text Box
Content =Code.valAddress ()
Field5_valCity
Name Field5_valCity
Type Text Box
Content =Code.valCity ()
Field6_valBuiltYear
Name Field6_valBuiltYear
Type Text Box
Content =Code.valBuiltYear ()
Field7_valBuildingID
Name Field7_valBuildingID
Type Text Box
Content =Code.valBuildingID ()
Field11_valCertGranter
Name Field11_valCertGranter
Type Text Box
Content =Code.valCertGranter ()
Field12_valCertOrderer
Name Field12_valCertOrderer
Type Text Box
Content =Code.valCertOrderer ()
Field13_valCertGrantedDate
Name Field13_valCertGrantedDate
Type Text Box
Content =Code.valCertGrantedDate ()
Field14_valCertExpiresDate
Name Field14_valCertExpiresDate
Type Text Box
Content =Code.valCertExpiresDate ()
Field47_lblCaption
Name Field47_lblCaption
Type Text Box
Content =Code.lblCaption ()
Field48_lblBuilding
Name Field48_lblBuilding
Type Text Box
Content =Code.lblBuilding ()
Field49_lblBuildingType
Name Field49_lblBuildingType
Type Text Box
Content =Code.lblBuildingType ()
Field50_lblAddress
Name Field50_lblAddress
Type Text Box
Content =Code.lblAddress ()
Field51_lblBuiltYear
Name Field51_lblBuiltYear
Type Text Box
Content =Code.lblBuiltYear ()
Field52_lblBuildingID
Name Field52_lblBuildingID
Type Text Box
Content =Code.lblBuildingID ()
Field53_lblCertGranted
Name Field53_lblCertGranted
Type Text Box
Content =Code.lblCertGranted ()
Field54_lblCertGrantedOpt1
Name Field54_lblCertGrantedOpt1
Type Text Box
Content =Code.lblCertGrantedOpt1 ()
Field55_lblCertGrantedOpt2
Name Field55_lblCertGrantedOpt2
Type Text Box
Content =Code.lblCertGrantedOpt2 ()
Field56_lblCertGrantedOpt3
Name Field56_lblCertGrantedOpt3
Type Text Box
Content =Code.lblCertGrantedOpt3 ()
Field63_lblCertGranter
Name Field63_lblCertGranter
Type Text Box
Content =Code.lblCertGranter ()
Field64_lblCertOrderer
Name Field64_lblCertOrderer
Type Text Box
Content =Code.lblCertOrderer ()
Field65_lblCertGranterSignature
Name Field65_lblCertGranterSignature
Type Text Box
Content =Code.lblCertGranterSignature ()
Field66_lblCertGrantedDate
Name Field66_lblCertGrantedDate
Type Text Box
Content =Code.lblCertGrantedDate ()
Field67_lblCertExpires
Name Field67_lblCertExpires
Type Text Box
Content =Code.lblCertExpires ()
Box8
Name Box8
Type Rectangle
Box7
Name Box7
Type Rectangle
Field70_lblETCalcRules
Name Field70_lblETCalcRules
Type Text Box
Content =Code.lblETCalcRules ()
Box9
Name Box9
Type Rectangle
Field81_lblConsHistory
Name Field81_lblConsHistory
Type Text Box
Content =Code.lblConsHistory ()
Box10
Name Box10
Type Rectangle
Field95_lblConsConversion
Name Field95_lblConsConversion
Type Text Box
Content =Code.lblConsConversion ()
Box11
Name Box11
Type Rectangle
Field105_lblHVACcaption
Name Field105_lblHVACcaption
Type Text Box
Content =Code.lblHVACcaption ()
Box12
Name Box12
Type Rectangle
Field120_CalcHVACopt1
Name Field120_CalcHVACopt1
Type Text Box
Content =Code.CalcHVACopt1 ()
Field121_CalcHVAcopt2
Name Field121_CalcHVAcopt2
Type Text Box
Content =Code.CalcHVAcopt2 ()
Field122_CalcHVACopt3
Name Field122_CalcHVACopt3
Type Text Box
Content =Code.CalcHVACopt3 ()
Box15
Name Box15
Type Rectangle
Field123_CalcHVACadv1
Name Field123_CalcHVACadv1
Type Text Box
Content =Code.CalcHVACadv1 ()
Field124_CalcHVACadv2
Name Field124_CalcHVACadv2
Type Text Box
Content =Code.CalcHVACadv2 ()
Field125_CalcHVACadv3
Name Field125_CalcHVACadv3
Type Text Box
Content =Code.CalcHVACadv3 ()
Field126_CalcHVACadv4
Name Field126_CalcHVACadv4
Type Text Box
Content =Code.CalcHVACadv4 ()
Box16
Name Box16
Type Rectangle
Field127_valHVACmeasuredYear
Name Field127_valHVACmeasuredYear
Type Text Box
Content =Code.valHVACmeasuredYear ()
Field128_valHVACMaintYear
Name Field128_valHVACMaintYear
Type Text Box
Content =Code.valHVACMaintYear ()
Field129_valHVACeffYear
Name Field129_valHVACeffYear
Type Text Box
Content =Code.valHVACeffYear ()
Box13
Name Box13
Type Rectangle
Field130_valHVACheatMaintYear
Name Field130_valHVACheatMaintYear
Type Text Box
Content =Code.valHVACheatMaintYear ()
Text22
Name Text22
Type Text Box
Content brm²
Field18_CalcConsSum
Name Field18_CalcConsSum
Type Text Box
Content =Code.CalcConsSum ()
Text23
Name Text23
Type Text Box
Content kWh
Text24
Name Text24
Type Text Box
Content kWh
Text25
Name Text25
Type Text Box
Content kWh
Text26
Name Text26
Type Text Box
Content m³
Text27
Name Text27
Type Text Box
Content m³
Field21_valHeatSource1_Name
Name Field21_valHeatSource1_Name
Type Text Box
Content =Code.valHeatSource1_Name ()
Field22_valHeatSource2_Name
Name Field22_valHeatSource2_Name
Type Text Box
Content =Code.valHeatSource2_Name ()
Field32_valHeatSource1_Year
Name Field32_valHeatSource1_Year
Type Text Box
Content =Code.valHeatSource1_Year ()
Field33_valHeatSource2_Year
Name Field33_valHeatSource2_Year
Type Text Box
Content =Code.valHeatSource2_Year ()
Field34_valConsElecYear
Name Field34_valConsElecYear
Type Text Box
Content =Code.valConsElecYear ()
Field35_valConsCold_District_Year
Name Field35_valConsCold_District_Year
Type Text Box
Content =Code.valConsCold_District_Year ()
Field36_valConsCold_Elec_Year
Name Field36_valConsCold_Elec_Year
Type Text Box
Content =Code.valConsCold_Elec_Year ()
Field37_valConsWater_Total_Year
Name Field37_valConsWater_Total_Year
Type Text Box
Content =Code.valConsWater_Total_Year ()
Field38_valConsWater_Warm_Year
Name Field38_valConsWater_Warm_Year
Type Text Box
Content =Code.valConsWater_Warm_Year ()
Field39_valHeatRef_City
Name Field39_valHeatRef_City
Type Text Box
Content =Code.valHeatRef_City ()
Field40_valHeatIndex_RefCity_NormalYear
Name Field40_valHeatIndex_RefCity_NormalYear
Type Text Box
Content =Code.valHeatIndex_RefCity_NormalYear ()
Field42_valHeatIndex_RefCity_RefYear
Name Field42_valHeatIndex_RefCity_RefYear
Type Text Box
Content =Code.valHeatIndex_RefCity_RefYear ()
Field43_valHeatIndex_CorrectFactor
Name Field43_valHeatIndex_CorrectFactor
Type Text Box
Content =Code.valHeatIndex_CorrectFactor ()
Field69_lblConsCaption
Name Field69_lblConsCaption
Type Text Box
Content =Code.lblConsCaption ()
Field71_lblConsHeat
Name Field71_lblConsHeat
Type Text Box
Content =Code.lblConsHeat ()
Field72_lblConsElec
Name Field72_lblConsElec
Type Text Box
Content =Code.lblConsElec ()
Field73_lblConsCold
Name Field73_lblConsCold
Type Text Box
Content =Code.lblConsCold ()
Field74_lblConsSum
Name Field74_lblConsSum
Type Text Box
Content =Code.lblConsSum ()
Field75_lblArea
Name Field75_lblArea
Type Text Box
Content =Code.lblArea ()
Field76_lblBuildingET
Name Field76_lblBuildingET
Type Text Box
Content =Code.lblBuildingET ()
Field77_lblkWhPerYear
Name Field77_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field41_lblkWhPerYear
Name Field41_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field106_lblkWhPerYear
Name Field106_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field107_lblkWhPerYear
Name Field107_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field78_lblkWhPerAreaPerYear
Name Field78_lblkWhPerAreaPerYear
Type Text Box
Content =Code.lblkWhPerAreaPerYear ()
Field79_lblETCalcInfo1
Name Field79_lblETCalcInfo1
Type Text Box
Content =Code.lblETCalcInfo1 ()
Field80_lblETCalcInfo2
Name Field80_lblETCalcInfo2
Type Text Box
Content =Code.lblETCalcInfo2 ()
Field82_lblConsType
Name Field82_lblConsType
Type Text Box
Content =Code.lblConsType ()
Field83_lblConsValue
Name Field83_lblConsValue
Type Text Box
Content =Code.lblConsValue ()
Field84_lblConsUnit
Name Field84_lblConsUnit
Type Text Box
Content =Code.lblConsUnit ()
Field85_lblConsYear
Name Field85_lblConsYear
Type Text Box
Content =Code.lblConsYear ()
Field86_lblConsHeatTable
Name Field86_lblConsHeatTable
Type Text Box
Content =Code.lblConsHeatTable ()
Field87_lblConsElecTable
Name Field87_lblConsElecTable
Type Text Box
Content =Code.lblConsElecTable ()
Field88_lblConsElecMeasured
Name Field88_lblConsElecMeasured
Type Text Box
Content =Code.lblConsElecMeasured ()
Field89_lblConsColdTable
Name Field89_lblConsColdTable
Type Text Box
Content =Code.lblConsColdTable ()
Field90_lblConsColdDistrict
Name Field90_lblConsColdDistrict
Type Text Box
Content =Code.lblConsColdDistrict ()
Field91_lblConsColdElec
Name Field91_lblConsColdElec
Type Text Box
Content =Code.lblConsColdElec ()
Field92_lblConsWaterTable
Name Field92_lblConsWaterTable
Type Text Box
Content =Code.lblConsWaterTable ()
Field93_lblConsWaterTotal
Name Field93_lblConsWaterTotal
Type Text Box
Content =Code.lblConsWaterTotal ()
Field94_lblConsWaterWarm
Name Field94_lblConsWaterWarm
Type Text Box
Content =Code.lblConsWaterWarm ()
Field96_lblHeatRefCity
Name Field96_lblHeatRefCity
Type Text Box
Content =Code.lblHeatRefCity ()
Field97_lblHeatIndexRefNormal
Name Field97_lblHeatIndexRefNormal
Type Text Box
Content =Code.lblHeatIndexRefNormal ()
Field98_lblHeatIndexYear
Name Field98_lblHeatIndexYear
Type Text Box
Content =Code.lblHeatIndexYear ()
Field99_valHeatIndex_Year
Name Field99_valHeatIndex_Year
Type Text Box
Content =Code.valHeatIndex_Year ()
Field101_lblHeatIndexCorrectFactor
Name Field101_lblHeatIndexCorrectFactor
Type Text Box
Content =Code.lblHeatIndexCorrectFactor ()
Field102_lblHeatEfficiencyFactor
Name Field102_lblHeatEfficiencyFactor
Type Text Box
Content =Code.lblHeatEfficiencyFactor ()
Field108_lblHVACopt1
Name Field108_lblHVACopt1
Type Text Box
Content =Code.lblHVACopt1 ()
Field109_lblHVACopt2
Name Field109_lblHVACopt2
Type Text Box
Content =Code.lblHVACopt2 ()
Field110_lblHVACopt3
Name Field110_lblHVACopt3
Type Text Box
Content =Code.lblHVACopt3 ()
Field111_lblHVACheat
Name Field111_lblHVACheat
Type Text Box
Content =Code.lblHVACheat ()
Field112_lblHVACheatMaintYear
Name Field112_lblHVACheatMaintYear
Type Text Box
Content =Code.lblHVACheatMaintYear ()
Field113_lblHVACmaintYear
Name Field113_lblHVACmaintYear
Type Text Box
Content =Code.lblHVACmaintYear ()
Field114_lblHVACmeasuredYear
Name Field114_lblHVACmeasuredYear
Type Text Box
Content =Code.lblHVACmeasuredYear ()
Field115_lblHVACeffYear
Name Field115_lblHVACeffYear
Type Text Box
Content =Code.lblHVACeffYear ()
Field116_lblHVACadvanced1
Name Field116_lblHVACadvanced1
Type Text Box
Content =Code.lblHVACadvanced1 ()
Field117_lblHVACadvanced2
Name Field117_lblHVACadvanced2
Type Text Box
Content =Code.lblHVACadvanced2 ()
Field118_lblHVACadvanced3
Name Field118_lblHVACadvanced3
Type Text Box
Content =Code.lblHVACadvanced3 ()
Field119_lblHVACadvanced4
Name Field119_lblHVACadvanced4
Type Text Box
Content =Code.lblHVACadvanced4 ()
Field131_valHVACheat
Name Field131_valHVACheat
Type Text Box
Content =Code.valHVACheat ()
Field246_CalcConsHeatEne
Name Field246_CalcConsHeatEne
Type Text Box
Content =Code.CalcConsHeatEne ()
Field247_CalcET
Name Field247_CalcET
Type Text Box
Content =Code.CalcET ()
Visibility
Show or hide based on expression =Code.Object_Visibility11 ()
Text8
Name Text8
Type Text Box
Content kWh
Text9
Name Text9
Type Text Box
Content kWh
Field15_lblHeatIndexYear1
Name Field15_lblHeatIndexYear1
Type Text Box
Content =Code.lblHeatIndexYear1 ()
Field17_CalcConsCold
Name Field17_CalcConsCold
Type Text Box
Content =Code.CalcConsCold ()
Field20_CalcHeatEfficiencyFactor
Name Field20_CalcHeatEfficiencyFactor
Type Text Box
Content =Code.CalcHeatEfficiencyFactor ()
Field30_CalcArea
Name Field30_CalcArea
Type Text Box
Content =Code.CalcArea ()
Field23_CalcHeatSource1_Value
Name Field23_CalcHeatSource1_Value
Type Text Box
Content =Code.CalcHeatSource1_Value ()
Visibility
Show or hide based on expression =Code.Object_Visibility13 ()
Field24_CalcHeatSource2_Value
Name Field24_CalcHeatSource2_Value
Type Text Box
Content =Code.CalcHeatSource2_Value ()
Visibility
Show or hide based on expression =Code.Object_Visibility14 ()
Field25_CalcConsElec
Name Field25_CalcConsElec
Type Text Box
Content =Code.CalcConsElec ()
Visibility
Show or hide based on expression =Code.Object_Visibility15 ()
Field100_CalcConsCold_District
Name Field100_CalcConsCold_District
Type Text Box
Content =Code.CalcConsCold_District ()
Field103_CalcConsCold_Elec
Name Field103_CalcConsCold_Elec
Type Text Box
Content =Code.CalcConsCold_Elec ()
Field104_CalcConsWater_Total
Name Field104_CalcConsWater_Total
Type Text Box
Content =Code.CalcConsWater_Total ()
Field134_CalcConsWater_Warm
Name Field134_CalcConsWater_Warm
Type Text Box
Content =Code.CalcConsWater_Warm ()
Field214_CalcConsElec_Top
Name Field214_CalcConsElec_Top
Type Text Box
Content =Code.CalcConsElec_Top ()
Text29
Name Text29
Type Text Box
Content =Code.valConsCold_ElecCalc ()
=Code.CalcHeatElecInfo ()=Code.valConsCold_Elec_Measured ()
=Code.valConsCold_Elec_Measured1 ()
=Code.valConsCold_Elec_Measured2 ()
Box20
Name Box20
Type Rectangle
Box17
Name Box17
Type Rectangle
Field133_lblAPhullCaption
Name Field133_lblAPhullCaption
Type Text Box
Content =Code.lblAPhullCaption ()
Box18
Name Box18
Type Rectangle
Field135_lblAPfloorCaption
Name Field135_lblAPfloorCaption
Type Text Box
Content =Code.lblAPfloorCaption ()
Box19
Name Box19
Type Rectangle
Field136_lblAPheatCaption
Name Field136_lblAPheatCaption
Type Text Box
Content =Code.lblAPheatCaption ()
Field132_lblAPcaption
Name Field132_lblAPcaption
Type Text Box
Content =Code.lblAPcaption ()
Field138_lblAPHeat
Name Field138_lblAPHeat
Type Text Box
Content =Code.lblAPHeat ()
Field139_lblAPElec
Name Field139_lblAPElec
Type Text Box
Content =Code.lblAPElec ()
Field140_lblAPCold
Name Field140_lblAPCold
Type Text Box
Content =Code.lblAPCold ()
Field141_lblAPTable
Name Field141_lblAPTable
Type Text Box
Content =Code.lblAPTable ()
Field142_lblAPSave
Name Field142_lblAPSave
Type Text Box
Content =Code.lblAPSave ()
Field137_lblAPTable
Name Field137_lblAPTable
Type Text Box
Content =Code.lblAPTable ()
Field153_lblAPCold
Name Field153_lblAPCold
Type Text Box
Content =Code.lblAPCold ()
Field154_lblAPElec
Name Field154_lblAPElec
Type Text Box
Content =Code.lblAPElec ()
Field225_lblAPSave
Name Field225_lblAPSave
Type Text Box
Content =Code.lblAPSave ()
Field226_lblAPCold
Name Field226_lblAPCold
Type Text Box
Content =Code.lblAPCold ()
Field227_lblAPElec
Name Field227_lblAPElec
Type Text Box
Content =Code.lblAPElec ()
Field229_lblAPSave
Name Field229_lblAPSave
Type Text Box
Content =Code.lblAPSave ()
Field230_valAPhull1
Name Field230_valAPhull1
Type Text Box
Content =Code.valAPhull1 ()
Field231_lblAPTable
Name Field231_lblAPTable
Type Text Box
Content =Code.lblAPTable ()
Field155_valAPhull2
Name Field155_valAPhull2
Type Text Box
Content =Code.valAPhull2 ()
Field156_valAPhull3
Name Field156_valAPhull3
Type Text Box
Content =Code.valAPhull3 ()
Field157_valAPhull1Heat
Name Field157_valAPhull1Heat
Type Text Box
Content =Code.valAPhull1Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull1Heat ()) <= 0), (True), False)
Field158_valAPhull1Elec
Name Field158_valAPhull1Elec
Type Text Box
Content =Code.valAPhull1Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull1Elec ()) <= 0), (True), False)
Field159_valAPhull1Cold
Name Field159_valAPhull1Cold
Type Text Box
Content =Code.valAPhull1Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull1Cold ()) <= 0), (True), False)
Field160_valAPhull2Heat
Name Field160_valAPhull2Heat
Type Text Box
Content =Code.valAPhull2Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull2Heat ()) <= 0), (True), False)
Field161_valAPhull2Elec
Name Field161_valAPhull2Elec
Type Text Box
Content =Code.valAPhull2Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull2Elec ()) <= 0), (True), False)
Field162_valAPhull2Cold
Name Field162_valAPhull2Cold
Type Text Box
Content =Code.valAPhull2Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull2Cold ()) <= 0), (True), False)
Field163_valAPhull3Heat
Name Field163_valAPhull3Heat
Type Text Box
Content =Code.valAPhull3Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull3Heat ()) <= 0), (True), False)
Field164_valAPhull3Elec
Name Field164_valAPhull3Elec
Type Text Box
Content =Code.valAPhull3Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull3Elec ()) <= 0), (True), False)
Field165_valAPhull3Cold
Name Field165_valAPhull3Cold
Type Text Box
Content =Code.valAPhull3Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPhull3Cold ()) <= 0), (True), False)
Field166_valAPfloor1
Name Field166_valAPfloor1
Type Text Box
Content =Code.valAPfloor1 ()
Field167_valAPfloor2
Name Field167_valAPfloor2
Type Text Box
Content =Code.valAPfloor2 ()
Field168_valAPfloor3
Name Field168_valAPfloor3
Type Text Box
Content =Code.valAPfloor3 ()
Field169_valAPfloor1Heat
Name Field169_valAPfloor1Heat
Type Text Box
Content =Code.valAPfloor1Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor1Heat ()) <= 0), (True), False)
Field170_valAPfloor1Elec
Name Field170_valAPfloor1Elec
Type Text Box
Content =Code.valAPfloor1Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor1Elec ()) <= 0), (True), False)
Field171_valAPfloor1Cold
Name Field171_valAPfloor1Cold
Type Text Box
Content =Code.valAPfloor1Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor1Cold ()) <= 0), (True), False)
Field172_valAPfloor2Heat
Name Field172_valAPfloor2Heat
Type Text Box
Content =Code.valAPfloor2Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor2Heat ()) <= 0), (True), False)
Field173_valAPfloor2Elec
Name Field173_valAPfloor2Elec
Type Text Box
Content =Code.valAPfloor2Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor2Elec ()) <= 0), (True), False)
Field174_valAPfloor2Cold
Name Field174_valAPfloor2Cold
Type Text Box
Content =Code.valAPfloor2Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor2Cold ()) <= 0), (True), False)
Field175_valAPfloor3Heat
Name Field175_valAPfloor3Heat
Type Text Box
Content =Code.valAPfloor3Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor3Heat ()) <= 0), (True), False)
Field176_valAPfloor3Elec
Name Field176_valAPfloor3Elec
Type Text Box
Content =Code.valAPfloor3Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor3Elec ()) <= 0), (True), False)
Field177_valAPfloor3Cold
Name Field177_valAPfloor3Cold
Type Text Box
Content =Code.valAPfloor3Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPfloor3Cold ()) <= 0), (True), False)
Field178_valAPHeat1
Name Field178_valAPHeat1
Type Text Box
Content =Code.valAPHeat1 ()
Field179_valAPHeat2
Name Field179_valAPHeat2
Type Text Box
Content =Code.valAPHeat2 ()
Field180_valAPHeat3
Name Field180_valAPHeat3
Type Text Box
Content =Code.valAPHeat3 ()
Field181_valAPHeat1Heat
Name Field181_valAPHeat1Heat
Type Text Box
Content =Code.valAPHeat1Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat1Heat ()) <= 0), (True), False)
Field182_valAPHeat1Elec
Name Field182_valAPHeat1Elec
Type Text Box
Content =Code.valAPHeat1Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat1Elec ()) <= 0), (True), False)
Field183_valAPHeat1Cold
Name Field183_valAPHeat1Cold
Type Text Box
Content =Code.valAPHeat1Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat1Cold ()) <= 0), (True), False)
Field184_valAPHeat2Heat
Name Field184_valAPHeat2Heat
Type Text Box
Content =Code.valAPHeat2Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat2Heat ()) <= 0), (True), False)
Field185_valAPHeat2Elec
Name Field185_valAPHeat2Elec
Type Text Box
Content =Code.valAPHeat2Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat2Elec ()) <= 0), (True), False)
Field186_valAPHeat2Cold
Name Field186_valAPHeat2Cold
Type Text Box
Content =Code.valAPHeat2Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat2Cold ()) <= 0), (True), False)
Field187_valAPHeat3Heat
Name Field187_valAPHeat3Heat
Type Text Box
Content =Code.valAPHeat3Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat3Heat ()) <= 0), (True), False)
Field188_valAPHeat3Elec
Name Field188_valAPHeat3Elec
Type Text Box
Content =Code.valAPHeat3Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat3Elec ()) <= 0), (True), False)
Field189_valAPHeat3Cold
Name Field189_valAPHeat3Cold
Type Text Box
Content =Code.valAPHeat3Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHeat3Cold ()) <= 0), (True), False)
Text16
Name Text16
Type Text Box
Content =Code.valAPheatInfo ()=Code.valAPheatInfo1 ()=Code.valAPheatInfo2 ()=Code.valAPheatInfo3 ()=Code.valAPheatInfo4 ()
Text21
Name Text21
Type Text Box
Content =Code.valAPfloorInfo ()=Code.valAPfloorInfo1 ()=Code.valAPfloorInfo2 ()=Code.valAPfloorInfo3 ()
Text28
Name Text28
Type Text Box
Content =Code.valAPhullInfo ()=Code.valAPhullInfo1 ()=Code.valAPhullInfo2 ()=Code.valAPhullInfo3 ()
Field16_lblAPHeat
Name Field16_lblAPHeat
Type Text Box
Content =Code.lblAPHeat ()
Field19_lblAPHeat
Name Field19_lblAPHeat
Type Text Box
Content =Code.lblAPHeat ()
Box27
Name Box27
Type Rectangle
Box23
Name Box23
Type Rectangle
Field143_lblAPHVACCaption
Name Field143_lblAPHVACCaption
Type Text Box
Content =Code.lblAPHVACCaption ()
Box24
Name Box24
Type Rectangle
Field144_lblAPlightCaption
Name Field144_lblAPlightCaption
Type Text Box
Content =Code.lblAPlightCaption ()
Box25
Name Box25
Type Rectangle
Field145_lblAPSumCaption
Name Field145_lblAPSumCaption
Type Text Box
Content =Code.lblAPSumCaption ()
Box29
Name Box29
Type Rectangle
Field146_lblNotes
Name Field146_lblNotes
Type Text Box
Content =Code.lblNotes ()
Field233_lblAPElec
Name Field233_lblAPElec
Type Text Box
Content =Code.lblAPElec ()
Field234_lblAPCold
Name Field234_lblAPCold
Type Text Box
Content =Code.lblAPCold ()
Field235_lblAPTable
Name Field235_lblAPTable
Type Text Box
Content =Code.lblAPTable ()
Field236_lblAPSave
Name Field236_lblAPSave
Type Text Box
Content =Code.lblAPSave ()
Field237_lblAPTable
Name Field237_lblAPTable
Type Text Box
Content =Code.lblAPTable ()
Field238_lblAPCold
Name Field238_lblAPCold
Type Text Box
Content =Code.lblAPCold ()
Field239_lblAPElec
Name Field239_lblAPElec
Type Text Box
Content =Code.lblAPElec ()
Field241_lblAPSave
Name Field241_lblAPSave
Type Text Box
Content =Code.lblAPSave ()
Field147_lblSummaryHeat
Name Field147_lblSummaryHeat
Type Text Box
Content =Code.lblSummaryHeat ()
Field148_lblSummaryElec
Name Field148_lblSummaryElec
Type Text Box
Content =Code.lblSummaryElec ()
Field149_lblSummaryCold
Name Field149_lblSummaryCold
Type Text Box
Content =Code.lblSummaryCold ()
Field150_lblSummaryETafter
Name Field150_lblSummaryETafter
Type Text Box
Content =Code.lblSummaryETafter ()
Field151_lblSummaryETclass
Name Field151_lblSummaryETclass
Type Text Box
Content =Code.lblSummaryETclass ()
Field152_lblkWhPerYear
Name Field152_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field242_lblkWhPerYear
Name Field242_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field243_lblkWhPerYear
Name Field243_lblkWhPerYear
Type Text Box
Content =Code.lblkWhPerYear ()
Field190_valAPHVAC1
Name Field190_valAPHVAC1
Type Text Box
Content =Code.valAPHVAC1 ()
Field191_valAPHVAC2
Name Field191_valAPHVAC2
Type Text Box
Content =Code.valAPHVAC2 ()
Field192_valAPHVAC3
Name Field192_valAPHVAC3
Type Text Box
Content =Code.valAPHVAC3 ()
Field193_valAPHVAC1Heat
Name Field193_valAPHVAC1Heat
Type Text Box
Content =Code.valAPHVAC1Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC1Heat ()) <= 0), (True), False)
Field194_valAPHVAC1Elec
Name Field194_valAPHVAC1Elec
Type Text Box
Content =Code.valAPHVAC1Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC1Elec ()) <= 0), (True), False)
Field195_valAPHVAC1Cold
Name Field195_valAPHVAC1Cold
Type Text Box
Content =Code.valAPHVAC1Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC1Cold ()) <= 0), (True), False)
Field196_valAPHVAC2Heat
Name Field196_valAPHVAC2Heat
Type Text Box
Content =Code.valAPHVAC2Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC2Heat ()) <= 0), (True), False)
Field197_valAPHVAC2Elec
Name Field197_valAPHVAC2Elec
Type Text Box
Content =Code.valAPHVAC2Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC2Elec ()) <= 0), (True), False)
Field198_valAPHVAC2Cold
Name Field198_valAPHVAC2Cold
Type Text Box
Content =Code.valAPHVAC2Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC2Cold ()) <= 0), (True), False)
Field199_valAPHVAC3Heat
Name Field199_valAPHVAC3Heat
Type Text Box
Content =Code.valAPHVAC3Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC3Heat ()) <= 0), (True), False)
Field200_valAPHVAC3Elec
Name Field200_valAPHVAC3Elec
Type Text Box
Content =Code.valAPHVAC3Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC3Elec ()) <= 0), (True), False)
Field201_valAPHVAC3Cold
Name Field201_valAPHVAC3Cold
Type Text Box
Content =Code.valAPHVAC3Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPHVAC3Cold ()) <= 0), (True), False)
Field202_valAPlight1
Name Field202_valAPlight1
Type Text Box
Content =Code.valAPlight1 ()
Field203_valAPlight2
Name Field203_valAPlight2
Type Text Box
Content =Code.valAPlight2 ()
Field204_valAPlight3
Name Field204_valAPlight3
Type Text Box
Content =Code.valAPlight3 ()
Field205_valAPlight1Heat
Name Field205_valAPlight1Heat
Type Text Box
Content =Code.valAPlight1Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight1Heat ()) <= 0), (True), False)
Field206_valAPlight1Elec
Name Field206_valAPlight1Elec
Type Text Box
Content =Code.valAPlight1Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight1Elec ()) <= 0), (True), False)
Field207_valAPlight1Cold
Name Field207_valAPlight1Cold
Type Text Box
Content =Code.valAPlight1Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight1Cold ()) <= 0), (True), False)
Field208_valAPlight2Heat
Name Field208_valAPlight2Heat
Type Text Box
Content =Code.valAPlight2Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight2Heat ()) <= 0), (True), False)
Field209_valAPlight2Elec
Name Field209_valAPlight2Elec
Type Text Box
Content =Code.valAPlight2Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight2Elec ()) <= 0), (True), False)
Field210_valAPlight2Cold
Name Field210_valAPlight2Cold
Type Text Box
Content =Code.valAPlight2Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight2Cold ()) <= 0), (True), False)
Field211_valAPlight3Heat
Name Field211_valAPlight3Heat
Type Text Box
Content =Code.valAPlight3Heat ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight3Heat ()) <= 0), (True), False)
Field212_valAPlight3Elec
Name Field212_valAPlight3Elec
Type Text Box
Content =Code.valAPlight3Elec ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight3Elec ()) <= 0), (True), False)
Field213_valAPlight3Cold
Name Field213_valAPlight3Cold
Type Text Box
Content =Code.valAPlight3Cold ()
Visibility
Show or hide based on expression =IIF ((val(Code.valAPlight3Cold ()) <= 0), (True), False)
Field219_CalcSumHeat
Name Field219_CalcSumHeat
Type Text Box
Content =Code.CalcSumHeat ()
Visibility
Show or hide based on expression =Code.Object_Visibility ()
Field220_CalcSumElec
Name Field220_CalcSumElec
Type Text Box
Content =Code.CalcSumElec ()
Visibility
Show or hide based on expression =Code.Object_Visibility1 ()
Field221_CalcSumCold
Name Field221_CalcSumCold
Type Text Box
Content =Code.CalcSumCold ()
Visibility
Show or hide based on expression =Code.Object_Visibility2 ()
Field222_CalcNewET
Name Field222_CalcNewET
Type Text Box
Content =Code.CalcNewET ()
Visibility
Show or hide based on expression =Code.Object_Visibility3 ()
Field223_CalcNewETclass
Name Field223_CalcNewETclass
Type Text Box
Content =Code.CalcNewETclass ()
Text10
Name Text10
Type Text Box
Content =Code.valNotes ()=Code.valNotes1 ()=Code.valNotes2 ()=Code.valNotes3 ()=Code.valNotes4 ()=Code.valNotes5 ()
Text14
Name Text14
Type Text Box
Content =Code.valAPlightInfo ()=Code.valAPlightInfo1 ()=Code.valAPlightInfo2 ()=Code.valAPlightInfo3 ()
Text15
Name Text15
Type Text Box
Content =Code.valAPHVACInfo ()=Code.valAPHVACInfo1 ()=Code.valAPHVACInfo2 ()=Code.valAPHVACInfo3 ()
Field26_lblAPHeat
Name Field26_lblAPHeat
Type Text Box
Content =Code.lblAPHeat ()
Field27_lblAPHeat
Name Field27_lblAPHeat
Type Text Box
Content =Code.lblAPHeat ()
Field28_lblkWhPerAreaPerYear2
Name Field28_lblkWhPerAreaPerYear2
Type Text Box
Content =Code.lblkWhPerAreaPerYear2 ()
Field68_lblLegalText
Name Field68_lblLegalText
Type Text Box
Content =Code.lblLegalText ()