**************************************************************************** Location : Local or Network Folders Host : FINDITEZ-T460P Path : C:\Users\ken\Documents\Test Cases\SSRS\EnergyCertificate.rdl **************************************************************************** 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 ()