WIP - SSM SavePoint

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1813

VECTOAux/VectoAuxiliaries/Hvac/ISSMCalculate.vb

+Namespace Hvac
+
+   Public Interface ISSMCalculate
+
+       Property Run1 As ISSMRun
+       Property Run2 As ISSMRun
+
+
+
+       'BaseValues
+       '- Heating
+       ReadOnly Property BaseHeatingW_Mechanical                   As Double 
+       ReadOnly Property BaseHeatingW_ElectricalCoolingHeating     As Double 
+       ReadOnly Property BaseHeatingW_ElectricalVentilation        As Double 
+       ReadOnly Property BaseHeatingW_FuelFiredHeating             As Double
+                                                                   
+       'Cooling                                                    
+       ReadOnly Property BaseCoolingW_Mechanical                   As Double 
+       ReadOnly Property BaseCoolingW_ElectricalCoolingHeating     As Double 
+       ReadOnly Property BaseCoolingW_ElectricalVentilation        As Double 
+       ReadOnly Property BaseCoolingW_FuelFiredHeating            As Double
+       
+       'Cooling
+       ReadOnly Property BaseVentilationW_Mechanical               As Double 
+       ReadOnly Property BaseVentilationW_ElectricalCoolingHeating As Double 
+       ReadOnly Property BaseVentilationW_ElectricalVentilation    As Double 
+       ReadOnly Property BaseVentilationW_FuelFiredHeating        As Double
+  
+       
+       'TechListBenefits
+       '- Heating
+       ReadOnly Property TechListAdjustedHeatingW_Mechanical                   As Double 
+       ReadOnly Property TechListAdjustedHeatingW_ElectricalCoolingHeating     As Double 
+       ReadOnly Property TechListAdjustedHeatingW_ElectricalVentilation        As Double 
+       ReadOnly Property TechListAdjustedHeatingW_FuelFiredHeating            As Double
+                                                                               
+       'Cooling          TechListAdjusted                                      
+       ReadOnly Property TechListAdjustedCoolingW_Mechanical                   As Double 
+       ReadOnly Property TechListAdjustedCoolingW_ElectricalCoolingHeating     As Double 
+       ReadOnly Property TechListAdjustedCoolingW_ElectricalVentilation        As Double 
+       ReadOnly Property TechListAdjustedCoolingW_FuelFiredHeating            As Double
+                        
+       'Cooling          TechListAdjusted
+       ReadOnly Property TechListAdjustedVentilationW_Mechanical               As Double 
+       ReadOnly Property TechListAdjustedVentilationW_ElectricalCoolingHeating As Double 
+       ReadOnly Property TechListAdjustedVentilationW_ElectricalVentilation    As Double 
+       ReadOnly Property TechListAdjustedVentilationW_FuelFiredHeating        As Double
+   
+   
+   End interface
+
+   
+
+End Namespace
+
+
+

VECTOAux/VectoAuxiliaries/Hvac/ISSMRun.vb

+
+Namespace Hvac
+
+
+Public Interface ISSMRun
+
+   ReadOnly Property HVACOperation As Double
+   ReadOnly Property TCalc As Double
+   ReadOnly Property TemperatureDelta as Double
+   ReadOnly Property QWall as Double
+   ReadOnly Property WattsPerPass as double
+   ReadOnly Property Solar as double
+   ReadOnly Property TotalW as double
+   ReadOnly Property TotalKW as double
+   ReadOnly Property FuelW as double
+   ReadOnly Property TechListAmendedFuelW as double
+
+End Interface
+
+
+
+
+End Namespace
+
+

VECTOAux/VectoAuxiliaries/Hvac/ISSMTOOL.vb

-Public Interface ISSMTOOL
+Imports VectoAuxiliaries.Hvac
+
+Public Interface ISSMTOOL
+
+
+ Property GenInputs As ISSMGenInputs
+ Property TechList As ISSMTechList
+ Property Calculate As ISSMCalculate
+
 
 
 ReadOnly Property ElectricalWBase As Single

VECTOAux/VectoAuxiliaries/Hvac/SSMCalculate.vb

+Namespace Hvac
+
+
+Public Class SSMCalculate
+  Implements ISSMCalculate
+
+
+         Private ssmTOOL As ISSMTOOL
+
+
+         private Property Run1 As ISSMRun Implements ISSMCalculate.Run1
+
+
+        Public  Property Run2 As ISSMRun Implements ISSMCalculate.Run2
+
+
+        Sub new( ssmTool As ISSMTOOL)
+
+          Me.ssmTOOL = ssmTool
+          Run1 = New SSMRun(Me.ssmTOOL,1)
+          Run2 = New SSMRun(Me.ssmTOOL,2)
+
+        End Sub
+
+
+
+        'Base Values
+        Public ReadOnly Property BaseHeatingW_Mechanical As Double Implements ISSMCalculate.BaseHeatingW_Mechanical
+            Get
+              Return nothing
+            End Get
+        End Property
+        Public ReadOnly Property BaseHeatingW_ElectricalCoolingHeating As Double Implements ISSMCalculate.BaseHeatingW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseHeatingW_ElectricalVentilation As Double Implements ISSMCalculate.BaseHeatingW_ElectricalVentilation
+            Get
+             Return nothing
+            End Get
+        End Property
+        Public ReadOnly Property BaseHeatingW_FuelFiredHeating As Double Implements ISSMCalculate.BaseHeatingW_FuelFiredHeating
+            Get
+            '=IF(AND(M79<0,M80<0),IF(AND(C52="yes",C56="high"),C30,IF(AND(C52="yes",C56="low"),C31,0)),0)
+
+            Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+
+
+
+
+
+
+            End Get
+        End Property
+
+        Public ReadOnly Property BaseCoolingW_Mechanical As Double Implements ISSMCalculate.BaseCoolingW_Mechanical
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseCoolingW_ElectricalCoolingHeating As Double Implements ISSMCalculate.BaseCoolingW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseCoolingW_ElectricalVentilation As Double Implements ISSMCalculate.BaseCoolingW_ElectricalVentilation
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseCoolingW_FuelFiredHeating As Double Implements ISSMCalculate.BaseCoolingW_FuelFiredHeating
+            Get
+
+            End Get
+        End Property
+
+        Public ReadOnly Property BaseVentilationW_Mechanical As Double Implements ISSMCalculate.BaseVentilationW_Mechanical
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseVentilationW_ElectricalCoolingHeating As Double Implements ISSMCalculate.BaseVentilationW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseVentilationW_ElectricalVentilation As Double Implements ISSMCalculate.BaseVentilationW_ElectricalVentilation
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property BaseVentilationW_FuelFiredHeating As Double Implements ISSMCalculate.BaseVentilationW_FuelFiredHeating
+            Get
+
+            End Get
+        End Property
+
+
+        'Adjusted Values
+        Public ReadOnly Property TechListAdjustedHeatingW_Mechanical As Double Implements ISSMCalculate.TechListAdjustedHeatingW_Mechanical
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedHeatingW_ElectricalCoolingHeating As Double Implements ISSMCalculate.TechListAdjustedHeatingW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedHeatingW_ElectricalVentilation As Double Implements ISSMCalculate.TechListAdjustedHeatingW_ElectricalVentilation
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedHeatingW_FuelFiredHeating As Double Implements ISSMCalculate.TechListAdjustedHeatingW_FuelFiredHeating
+            Get
+
+            End Get
+        End Property
+
+        Public ReadOnly Property TechListAdjustedCoolingW_Mechanical As Double Implements ISSMCalculate.TechListAdjustedCoolingW_Mechanical
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedCoolingW_ElectricalCoolingHeating As Double Implements ISSMCalculate.TechListAdjustedCoolingW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedCoolingW_ElectricalVentilation As Double Implements ISSMCalculate.TechListAdjustedCoolingW_ElectricalVentilation
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedCoolingW_FuelFiredHeating As Double Implements ISSMCalculate.TechListAdjustedCoolingW_FuelFiredHeating
+            Get
+
+            End Get
+        End Property
+
+        Public ReadOnly Property TechListAdjustedVentilationW_Mechanical As Double Implements ISSMCalculate.TechListAdjustedVentilationW_Mechanical
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedVentilationW_ElectricalCoolingHeating As Double Implements ISSMCalculate.TechListAdjustedVentilationW_ElectricalCoolingHeating
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedVentilationW_ElectricalVentilation As Double Implements ISSMCalculate.TechListAdjustedVentilationW_ElectricalVentilation
+            Get
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAdjustedVentilationW_FuelFiredHeating As Double Implements ISSMCalculate.TechListAdjustedVentilationW_FuelFiredHeating
+            Get
+
+            End Get
+        End Property
+
+
+
+End Class
+
+
+
+End Namespace
+
+
+

VECTOAux/VectoAuxiliaries/Hvac/SSMRun.vb

+
+Namespace Hvac 
+
+
+Public Class SSMRun
+  Implements ISSMRun
+
+
+  Private ssmTOOL As ISSMTOOL
+  Private runNumber As Integer
+
+
+ Sub new ( ssm As ISSMTOOL, runNumber As Integer )
+
+    If runNumber<>1 AndAlso runNumber<>2 then Throw New ArgumentException("Run number must be either 1 or 2")
+
+ End Sub
+
+
+        Public ReadOnly Property HVACOperation As Double Implements ISSMRun.HVACOperation
+            Get
+            '=IF(C43>C25,3,IF(C43<C24,1,2))
+            'C43 = EC_Enviromental Temperature
+            'C25 = BC_CoolingBoundary Temperature
+            'C24 = BC_HeatingBoundaryTemperature
+
+            Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+                       
+            Return If( gen.EC_EnviromentalTemperature> gen.BC_CoolingBoundaryTemperature,3,If( gen.EC_EnviromentalTemperature<gen.BC_HeatingBoundaryTemperature,1,2 ))
+
+            End Get
+
+        End Property
+        Public ReadOnly Property TCalc As Double Implements ISSMRun.TCalc
+            Get
+
+            'C24 = BC_HeatingBoundaryTemperature
+            'C25 = BC_CoolingBoundary Temperature
+            'C6  = BP_BusFloorType
+            'C43 = EC_Enviromental Temperature
+            'C39 = BC_FontAndRearWindowArea
+
+            Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+            Dim returnVal As double
+
+             If runNumber=1  then '=C24
+
+               returnVal = gen.BC_HeatingBoundaryTemperature
+
+             else   '=IF(C6="low floor",IF((C43-C25)<C39,C25,C43-3),C25)
+
+                returnVal =IF(gen.BP_BusFloorType="low floor",IF((gen.EC_EnviromentalTemperature-gen.BC_CoolingBoundaryTemperature)<gen.BC_FrontRearWindowArea,gen.BC_CoolingBoundaryTemperature,gen.EC_EnviromentalTemperature-3),gen.BC_CoolingBoundaryTemperature)
+
+             End If
+
+
+             Return returnVal
+
+            End Get
+        End Property
+        Public ReadOnly Property TemperatureDelta As Double Implements ISSMRun.TemperatureDelta
+            Get
+             '=C43-F79/F80
+             'C43 = EC_Enviromental Temperature
+             'F79/80 = Me.TCalc
+
+              Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+              Return  gen.EC_EnviromentalTemperature - TCalc
+
+            End Get
+        End Property
+        Public ReadOnly Property QWall As Double Implements ISSMRun.QWall
+            Get
+            '=I79*D8*C23  or '=I80*D8*C23
+              'Translated to
+            '=I79*C8*C23  or '=I80*C8*C23
+
+            'C23 = BC_UValues
+            'C8  = BP_BusSurfaceAreaM2
+            'I78/I80 = Me.TemperatureDelta
+
+             Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+
+             Return TemperatureDelta * gen.BP_BusSurfaceAreaM2 *  gen.BC_UValues
+
+            End Get
+        End Property
+        Public ReadOnly Property WattsPerPass As Double Implements ISSMRun.WattsPerPass
+            Get
+
+              '=IF(D5="",C22,IF(E5="",IF(C22<D5,C22,D5),E5))*C17
+                'Translated to
+              '=IF(IF(C22<C5,C22,C5))*C17
+                'Simplified to
+              'Max( C22,C5 )
+
+              'C5   = BP_NumberOfPassengers
+              'C22  = BC_Calculated Passenger Number
+              'C17  = BC_Heat Per Passenger into cabin
+
+               
+              Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+
+              Return  Math.Max( gen.BP_NumberOfPassengers, gen.BC_CalculatedPassengerNumber) *  gen.BC_HeatPerPassengerIntoCabinW
+
+
+            End Get
+        End Property
+        Public ReadOnly Property Solar As Double Implements ISSMRun.Solar
+            Get
+              '=C44*D9*C15*C16*0.25
+                'Translated to 
+              '=C44*C9*C15*C16*0.25
+
+              'C44 = EC_Solar
+              'C9  = BP_BusWindowSurfaceArea
+              'C15 = BC_GFactor
+              'C16 = BC_SolarClouding
+
+              Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+
+
+              Return gen.EC_Solar * gen.BP_BusSurfaceAreaM2 * gen.BC_GFactor * gen.BC_SolarClouding
+
+
+            End Get
+        End Property
+        Public ReadOnly Property TotalW As Double Implements ISSMRun.TotalW
+            Get
+
+              '=SUM(J79:L79) or =SUM(J80:L80)             
+                 'Tanslated to 
+              '=Sum ( Me.Qwall	,Me.WattsPerPass,Me.Solar )
+              
+              Return Me.QWall + Me.WattsPerPass + Me.Solar
+
+            End Get
+        End Property
+        Public ReadOnly Property TotalKW As Double Implements ISSMRun.TotalKW
+            Get
+              '=M79 or =M80  / (1000)
+
+              Return Me.TotalW / 1000
+
+            End Get
+        End Property
+        Public ReadOnly Property FuelW As Double Implements ISSMRun.FuelW
+            Get
+              '=IF(AND(N79<0,N79<(C60*-1)),N79-(C60*-1),0)*1000
+
+              'N79 =  TotalKW
+              'C60 = Aux_EngineWasteHeat
+
+              Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+
+              Return If( Me.TotalW<0 AndAlso TotalKW<( gen.AH_EngineWasteHeatkW-1), TotalKW-(gen.AH_EngineWasteHeatkW-1),0 ) * 1000
+
+            End Get
+        End Property
+        Public ReadOnly Property TechListAmendedFuelW As Double Implements ISSMRun.TechListAmendedFuelW
+            Get
+            '=IF(IF(AND((N79*(1-$J$89))<0, 
+                           '(N79*(1-$J$89))<(C60*-1)),
+                           '(N79*(1-$J$89))-(C60*-1),0)*1000<0,
+                                   'IF(AND((N79*(1-$J$89))<0,
+                                       '(N79*(1-$J$89))<(C60*-1)),
+                                       '(N79*(1-$J$89))-(C60*-1),0)*1000,
+                                       '0)
+
+            'N79  = Me.TotalKW
+            'C40  = BC_MaxPOssibleBenefitFromTechList
+            'C60  = AH_FuelFiredHeaterKW
+            '$J$89 = Calculate.TechListAdjustedHeatingW_FuelFiredHeating ( TLFFH )
+            'Translated to 
+
+
+            Dim TLFFH As Double =  ssmTOOL.Calculate.TechListAdjustedVentilationW_FuelFiredHeating
+            Dim gen As ISSMGenInputs = ssmTOOL.GenInputs
+            Dim C40 As Double = gen.BC_MaxPossibleBenefitFromTechnologyList
+            Dim C60 As Double = gen.AH_FuelFiredHeaterkW
+            Dim N79 As Double = Me.TotalKW
+
+
+            Return IF( _
+                       IF( (N79*(1-TLFFH))<0 AndAlso (N79*(1-TLFFH))<(C60*-1),(N79*(1-TLFFH))-(C60*-1),0)*1000<0, _
+                                   IF((N79*(1-TLFFH))<0 AndAlso (N79*(1-TLFFH))<(C60*-1),(N79*(1-TLFFH))-(C60*-1),0)*1000,0)
+
+
+            End Get
+
+        End Property
+
+
+
+End Class
+
+
+
+End Namespace
+
+
+
+

VECTOAux/VectoAuxiliaries/Hvac/SSMTOOL.vb

@@ -10,11 +10,18 @@ Namespace Hvac
 Public Class SSMTOOL
 Implements ISSMTOOL
 
- Private filePath As String
- Public genInputs As ISSMGenInputs
- Public techList As ISSMTechList
 
 
+
+
+
+
+
+ Private filePath As String
+ Public Property GenInputs As ISSMGenInputs Implements ISSMTOOL.GenInputs
+ Public Property TechList As ISSMTechList Implements ISSMTOOL.TechList
+ Public Property Calculate As ISSMCalculate Implements ISSMTOOL.Calculate
+
  'Public facing properties, final results from calculations.
  Public ReadOnly Property ElectricalWAdjusted As Single Implements ISSMTOOL.ElectricalWAdjusted
    Get
@@ -58,7 +65,9 @@ Implements ISSMTOOL
 
    Me.filePath = filePath
    genInputs = New SSMGenInputs(useTestValues)
-   techList = New SSMTechList(filePath, genInputs)
+   TechList = New SSMTechList(filePath, genInputs)
+
+   Calculate = New SSMCalculate( Me )
 
  End Sub
 
@@ -69,11 +78,11 @@ Implements ISSMTOOL
 
      genInputs.InjectFrom(DirectCast(from, SSMTOOL).genInputs)
 
-     techList.Clear()
+     TechList.Clear()
 
-     For Each line As TechListBenefitLine In DirectCast(from, SSMTOOL).techList.TechLines
+     For Each line As TechListBenefitLine In DirectCast(from, SSMTOOL).TechList.TechLines
 
-         techList.Add(line, feedback)
+         TechList.Add(line, feedback)
 
     Next
 
@@ -119,9 +128,9 @@ End Function
 
        tmpAux = JsonConvert.DeserializeObject(Of SSMTOOL)(output, settings)
 
-       tmpAux.techList.SetSSMGeneralInputs(tmpAux.genInputs)
+       tmpAux.TechList.SetSSMGeneralInputs(tmpAux.genInputs)
 
-       For Each tll As TechListBenefitLine In tmpAux.techList.TechLines
+       For Each tll As TechListBenefitLine In tmpAux.TechList.TechLines
 
          tll.inputSheet = tmpAux.genInputs
 
@@ -182,19 +191,19 @@ End Function
    Dim src As SSMTOOL = DirectCast(source, SSMTOOL)
 
    'Equal numbers of lines check
-   If Me.techList.TechLines.Count <> src.techList.TechLines.Count Then Return False
+   If Me.TechList.TechLines.Count <> src.TechList.TechLines.Count Then Return False
 
-     For Each tl As ITechListBenefitLine In Me.techList.TechLines.OrderBy(Function(o) o.Category).ThenBy(Function(n) n.BenefitName)
+     For Each tl As ITechListBenefitLine In Me.TechList.TechLines.OrderBy(Function(o) o.Category).ThenBy(Function(n) n.BenefitName)
 
         'First Check line exists in other
-        If src.techList.TechLines.Where(Function(w) w.BenefitName = tl.BenefitName AndAlso w.Category = tl.Category).Count <> 1 Then
+        If src.TechList.TechLines.Where(Function(w) w.BenefitName = tl.BenefitName AndAlso w.Category = tl.Category).Count <> 1 Then
 
          Return False
         Else
 
          'check are equal
 
-           If Not src.techList.TechLines.First(Function(w) w.BenefitName = tl.BenefitName AndAlso w.Category = tl.Category).IsEqualTo(tl) Then
+           If Not src.TechList.TechLines.First(Function(w) w.BenefitName = tl.BenefitName AndAlso w.Category = tl.Category).IsEqualTo(tl) Then
              Return False
            End If
 
@@ -209,6 +218,11 @@ End Function
  End Function
 
 
+
+
+
+
+
 End Class
 
 

VECTOAux/VectoAuxiliaries/UI/frmHVACTool.vb

@@ -50,7 +50,7 @@ End Function
 
   Private sub BindGrid(  )
 
-      Dim gvTechListBinding As New BindingList(Of ITechListBenefitLine)(ssmTOOL.techList.TechLines.OrderBy( Function(o) o.Category).ThenBy( Function(t) t.BenefitName).ToList())
+      Dim gvTechListBinding As New BindingList(Of ITechListBenefitLine)(ssmTOOL.TechList.TechLines.OrderBy( Function(o) o.Category).ThenBy( Function(t) t.BenefitName).ToList())
       Me.gvTechBenefitLines.DataSource = gvTechListBinding
 
 
@@ -58,12 +58,12 @@ End Function
 
   Private function GetCategories( ) As List(Of String)
 
-     If Not ssmTOOL is Nothing AndAlso Not ssmTOOL.techList is Nothing AndAlso ssmTOOL.techList.TechLines.Count>0
+     If Not ssmTOOL is Nothing AndAlso Not ssmTOOL.TechList is Nothing AndAlso ssmTOOL.TechList.TechLines.Count>0
 
         'Fuse Lists          
         Dim fusedList As new List(Of String )
         
-        For Each s As String In ssmTOOL.techList.TechLines.Select( Function(sel) sel.Category)
+        For Each s As String In ssmTOOL.TechList.TechLines.Select( Function(sel) sel.Category)
 
           If Not fusedList.Contains(s) then
            fusedList.Add(s)
@@ -756,7 +756,7 @@ End Function
        benefitName = gvTechBenefitLines.Rows(row).Cells("BenefitName").Value
        category = gvTechBenefitLines.Rows(row).Cells("Category").Value
   
-       editTechLine = ssmTOOL.techList.TechLines.First( Function(f) f.BenefitName=benefitName AndAlso f.Category=category)
+       editTechLine = ssmTOOL.TechList.TechLines.First( Function(f) f.BenefitName=benefitName AndAlso f.Category=category)
   
        FillTechLineEditPanel( row )
   
@@ -780,7 +780,7 @@ End Function
   
         If dr= Windows.Forms.DialogResult.Yes then
         
-         If  ssmTOOL.techList.Delete( New TechListBenefitLine With {.BenefitName= benefit, .Category=category}, feedback) then
+         If  ssmTOOL.TechList.Delete( New TechListBenefitLine With {.BenefitName= benefit, .Category=category}, feedback) then
   
            BindGrid
   
@@ -805,7 +805,7 @@ End Sub
     
     If txtIndex.Text.Trim.Length=0 then 
     'This is an Add
-     If Not ssmTOOL.techList.Add( GetTechLineFromPanel(), feedback) then
+     If Not ssmTOOL.TechList.Add( GetTechLineFromPanel(), feedback) then
        MessageBox.Show( feedback )
        Else
         BindGrid()
@@ -818,7 +818,7 @@ End Sub
   
     Else
     'This is an update
-      If Not ssmTOOL.techList.Modify( editTechLine, GetTechLineFromPanel() , feedback) then
+      If Not ssmTOOL.TechList.Modify( editTechLine, GetTechLineFromPanel() , feedback) then
           MessageBox.Show( feedback )
        Else
          gvTechBenefitLines.Refresh()
@@ -859,7 +859,7 @@ End Sub
      benefitName = gvTechBenefitLines.Rows(index).Cells("BenefitName").Value
      category = gvTechBenefitLines.Rows(index).Cells("Category").Value
 
-     techline = ssmTOOL.techList.TechLines.First( Function(f) f.BenefitName=benefitName AndAlso f.Category=category)
+     techline = ssmTOOL.TechList.TechLines.First( Function(f) f.BenefitName=benefitName AndAlso f.Category=category)
 
      txtIndex.Text=index
      cboCategory.Text= techline.Category

VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj

@@ -140,11 +140,15 @@
     <Compile Include="Hvac\IHVACSteadyStateModel.vb" />
     <Compile Include="Hvac\IHVACUserInputsConfig.vb" />
     <Compile Include="Hvac\IM1_AverageHVACLoadDemand.vb" />
+    <Compile Include="Hvac\ISSMCalculate.vb" />
     <Compile Include="Hvac\ISSMGenInputs.vb" />
+    <Compile Include="Hvac\ISSMRun.vb" />
     <Compile Include="Hvac\ISSMTechList.vb" />
     <Compile Include="Hvac\ISSMTOOL.vb" />
     <Compile Include="Hvac\ITechListBenefitLine.vb" />
+    <Compile Include="Hvac\SSMCalculate.vb" />
     <Compile Include="Hvac\SSMGenInputs.vb" />
+    <Compile Include="Hvac\SSMRun.vb" />
     <Compile Include="Hvac\SSMTechList.vb" />
     <Compile Include="Hvac\SSMTOOL.vb" />
     <Compile Include="Hvac\TechListBenefitLine.vb" />

VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb

@@ -47,7 +47,7 @@ Namespace UnitTests
 
       Dim feedback As String = String.Empty
 
-      Assert.istrue(src.techList.Add( newItem, feedback))
+      Assert.istrue(src.TechList.Add( newItem, feedback))
 
   End Function
 
@@ -674,7 +674,7 @@ End Sub
          AddDefaultTechLine( ssmTool2)
 
          'Make Unequal
-         ssmTool2.techList.TechLines(0).BenefitName="Doobie"
+         ssmTool2.TechList.TechLines(0).BenefitName="Doobie"
 
          Assert.IsFalse ( ssmTool1.IsEqualTo( ssmTool2))
 
@@ -693,7 +693,7 @@ End Sub
          AddDefaultTechLine( ssmTool2)
 
          'Make Unequal
-         ssmTool2.techList.TechLines(0).ActiveVV=False
+         ssmTool2.TechList.TechLines(0).ActiveVV=False
 
          Assert.IsFalse ( ssmTool1.IsEqualTo( ssmTool2))