- aggiunto parametro FreeOrWaitingAnswerProcesses

- cambiato formato tempo di esecuzione in statistiche
- gestita risposta SubMode 4 in Rest
This commit is contained in:
Emmanuele Sassi
2026-01-29 10:25:23 +01:00
parent da5bb6f05b
commit 236c1f5be1
8 changed files with 21 additions and 13 deletions
@@ -134,6 +134,12 @@ Public Class ExecProcessManager
End Get
End Property
Public ReadOnly Property nFreeOrWaitingAnswerProcesses As Integer
Get
Return ThreadDataList.Count(Function(x) x IsNot Nothing AndAlso (x.ProcessStatus = ThreadData.ProcessStatuses.NULL OrElse x.ProcessStatus = ThreadData.ProcessStatuses.ANSWERRECEIVED))
End Get
End Property
Private PerMinResultQueueLock As New Object
Private m_PerMinResultQueue As New Queue(Of Integer)
Public ReadOnly Property PerMinResultQueue As Queue(Of Integer)
@@ -28,5 +28,5 @@ Imports System.Runtime.InteropServices
' Revision
'
<Assembly: AssemblyVersion("3.1.1.1")>
<Assembly: AssemblyFileVersion("3.1.1.1")>
<Assembly: AssemblyVersion("3.1.1.2")>
<Assembly: AssemblyFileVersion("3.1.1.2")>
@@ -5,10 +5,10 @@
<TargetFramework>netstandard2.0</TargetFramework>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<Copyright>Copyright © 2020-2025 by Egalware s.r.l.</Copyright>
<AssemblyVersion>3.1.1.1</AssemblyVersion>
<FileVersion>3.1.1.1</FileVersion>
<AssemblyVersion>3.1.1.2</AssemblyVersion>
<FileVersion>3.1.1.2</FileVersion>
<Company>Egalware s.r.l.</Company>
<Version>3.1.1.1</Version>
<Version>3.1.1.2</Version>
<Authors>Emmanuele Sassi</Authors>
<Description>Specifiche comunicazione con EgwMultiEngineManager</Description>
</PropertyGroup>
@@ -125,7 +125,7 @@ Class Application
sTooltip &= If(nGroupType = EnvironmentCommunicationTypes.REST, "R", "G") & nGroupIndex.ToString() &
CurrStatistics.nEngineRunningQty &
CurrStatistics.nEngineProcessingQty &
CurrStatistics.dMidProcessingTime.ToString("N1") &
(CurrStatistics.dMidProcessingTime / 1000).ToString("N1") &
CurrStatistics.nQuestionInQueue &
CurrStatistics.nLastMinAnswer &
CurrStatistics.nLast5MinAnswer &
@@ -66,8 +66,8 @@
<Prefer32Bit>true</Prefer32Bit>
</PropertyGroup>
<ItemGroup>
<Reference Include="EgtDotNETBasis, Version=2.7.11.20, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\EgtDotNETBasis.2.7.11.20\lib\EgtDotNETBasis.dll</HintPath>
<Reference Include="EgtDotNETBasis, Version=3.1.1.3, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\EgtDotNETBasis.3.1.1.3\lib\EgtDotNETBasis.dll</HintPath>
</Reference>
<Reference Include="EgwWPFBaseLib">
<HintPath>..\..\EgwWPFBaseLib\EgwWPFBaseLib\bin\Debug\EgwWPFBaseLib.dll</HintPath>
@@ -247,10 +247,10 @@
<ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\Microsoft.Extensions.Logging.Abstractions.6.0.0\build\Microsoft.Extensions.Logging.Abstractions.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Extensions.Logging.Abstractions.6.0.0\build\Microsoft.Extensions.Logging.Abstractions.targets'))" />
<Error Condition="!Exists('..\packages\EgtDotNETBasis.2.7.11.20\build\EgtDotNETBasis.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EgtDotNETBasis.2.7.11.20\build\EgtDotNETBasis.targets'))" />
<Error Condition="!Exists('..\packages\EgtDotNETBasis.3.1.1.3\build\EgtDotNETBasis.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\EgtDotNETBasis.3.1.1.3\build\EgtDotNETBasis.targets'))" />
</Target>
<PropertyGroup>
<PostBuildEvent>powershell.exe -ExecutionPolicy Unrestricted -NoProfile -NonInteractive -File $(ProjectDir)\post-build.ps1 $(ConfigurationName) $(TargetDir) $(TargetPath)</PostBuildEvent>
</PropertyGroup>
<Import Project="..\packages\EgtDotNETBasis.2.7.11.20\build\EgtDotNETBasis.targets" Condition="Exists('..\packages\EgtDotNETBasis.2.7.11.20\build\EgtDotNETBasis.targets')" />
<Import Project="..\packages\EgtDotNETBasis.3.1.1.3\build\EgtDotNETBasis.targets" Condition="Exists('..\packages\EgtDotNETBasis.3.1.1.3\build\EgtDotNETBasis.targets')" />
</Project>
@@ -52,5 +52,5 @@ Imports System.Windows
' Revision
'
<Assembly: AssemblyVersion("3.1.1.1")>
<Assembly: AssemblyFileVersion("3.1.1.1")>
<Assembly: AssemblyVersion("3.1.1.2")>
<Assembly: AssemblyFileVersion("3.1.1.2")>
@@ -296,6 +296,8 @@ Public Class ExecEnvironmentManager
request = New RestRequest("Prod/jobreturn", Method.Post)
Case 3
request = New RestRequest("Prod/jobreturn", Method.Post)
Case 4
request = New RestRequest("Prod/jobreturn", Method.Post)
End Select
End Select
'request.AddBody(JsonConvert.SerializeObject(Answer))
+1 -1
View File
@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="EgtDotNETBasis" version="2.7.11.20" targetFramework="net472" />
<package id="EgtDotNETBasis" version="3.1.1.3" targetFramework="net472" />
<package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net472" />
<package id="Microsoft.Extensions.Logging.Abstractions" version="6.0.0" targetFramework="net472" />
<package id="Newtonsoft.Json" version="13.0.4" targetFramework="net472" />