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

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