修复固件版本换算方式和设备上传报错

BLV_Studio/Test/GridTest/ReportingScenario.vb

@@ -16,6 +16,10 @@ Public Class ReportingScenario
         'Runing(grd， Devicemodel, ActionConfiguration)
 
     End Sub
+    Sub New(grd As FlexCell.Grid, Devicemodel As Dictionary(Of String， DeviceModel）)
+        Tgrd = grd
+        TDevicemodel = Devicemodel
+    End Sub
     '配置名称
     Public ConfigurationName As String
     '配置版本

BLV_Studio/Test/GridTest/TableInteraction.vb

@@ -7141,6 +7141,10 @@ ON DUPLICATE KEY UPDATE {updatastr};"
         GetAccountAuth(nsurl, str)
         Return aaa
     End Function
+      Public Function TestReportingScenario1() As ReportingScenario
+        Dim aaa As New ReportingScenario( _grd, Dic_Devicemodel)
+         Return aaa
+     End Function
     Private Function GetAccountAuth(url As String, data As String) As Boolean
         Dim jsonString As String = HttpMothod.PostData2(url, data)
         If String.IsNullOrWhiteSpace(jsonString) OrElse jsonString.ToUpper.Contains("False".ToUpper) Then