EgtBEAMWALL 2.6f1 :

- correzioni a gestione riferimento di feature entrando in modifica Freecontour.
EgtBeamWall :
2024-06-03 18:19:24 +02:00 · 2024-01-17 17:19:08 +01:00 · 2023-12-21 08:48:39 +01:00 · 2023-12-14 20:31:52 +01:00 · 2023-12-14 12:52:12 +01:00 · 2023-12-14 12:51:47 +01:00
26 changed files with 83 additions and 58 deletions
@@ -587,7 +587,7 @@ Public Class BTLPartM
   Public ReadOnly Property nINPROD As Integer
      Get
         Dim INPROD As Integer = 0
-         EgtDuploCount(m_nPartId, INPROD)
+         EgtDuploInRawCount(m_nPartId, INPROD)
         Return INPROD
      End Get
   End Property
@@ -168,8 +168,6 @@ Public Module ConstIni
   Public Const K_EXTERNALFILEPATH As String = "ExternalFilePath"
   Public Const K_REMINDERFREQUENCY As String = "ReminderFrequency"

-   Public Const K_SPECIALPANEL As String = "SpecialPanel"
-
   Public Const S_SPECIAL As String = "Special"
   Public Const K_SPECIALENABLE As String = "SpecialEnable"

@@ -16,7 +16,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("EgtBEAMWALL.Core")>
-<Assembly: AssemblyCopyright("Copyright ©  2020-2023 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2020-2024 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>

 <Assembly: ComVisible(False)>
@@ -35,5 +35,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("2.5.8.1")>
-<Assembly: AssemblyFileVersion("2.5.8.1")>
+<Assembly: AssemblyVersion("2.6.6.1")>
+<Assembly: AssemblyFileVersion("2.6.6.1")>
@@ -32,6 +32,7 @@ Public MustInherit Class NewOpenProjectFileDialogVM
      LAST3MONTHS = 1
      LAST6MONTHS = 2
      PERIOD = 3
+      ALWAYS = 4
   End Enum

   Public Enum RowQuantities As Integer
@@ -189,7 +190,7 @@ Public MustInherit Class NewOpenProjectFileDialogVM
   End Property

   Private m_DayTypeList As New List(Of String)({EgtMsg(62532), EgtMsg(62533), EgtMsg(62534), EgtMsg(62531)})
-   Public ReadOnly Property DayTypeList As List(Of String)
+   Public Overridable ReadOnly Property DayTypeList As List(Of String)
      Get
         Return m_DayTypeList
      End Get
@@ -209,13 +210,16 @@ Public MustInherit Class NewOpenProjectFileDialogVM
            Select Case PrevSelDayType
               Case DayTypes.LASTMONTH
                  m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31)
+                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5)
               Case DayTypes.LAST3MONTHS
                  m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 3)
+                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 3)
               Case DayTypes.LAST6MONTHS
                  m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 6)
+                  m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 6)
+               Case DayTypes.ALWAYS
+                  m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
+                  m_dtStartDate = New DateTime(2020, 1, 1)
            End Select
            NotifyPropertyChanged(NameOf(dtStartDate))
            NotifyPropertyChanged(NameOf(dtEndDate))
@@ -556,13 +560,13 @@ Public MustInherit Class NewOpenProjectFileDialogVM
      Select Case m_SelDayType
         Case DayTypes.LASTMONTH
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5)
         Case DayTypes.LAST3MONTHS
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 3)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 3)
         Case DayTypes.LAST6MONTHS
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 6)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 6)
         Case DayTypes.PERIOD
            Dim sStartDate As String = "0"
            Dim lStartDate As Long = 0
@@ -167,7 +167,7 @@ Public MustInherit Class OpenProjectFileDialogVM
            Select Case PrevSelDayType
               Case DayTypes.LASTMONTH
                  m_dtStartDate = DateTime.Today + TimeSpan.FromDays(1)
-                  m_dtEndDate = m_dtStartDate - TimeSpan.FromDays(31)
+                  m_dtEndDate = m_dtStartDate - TimeSpan.FromDays(30.5)
               Case DayTypes.LAST3MONTHS

               Case DayTypes.LAST6MONTHS
@@ -413,13 +413,13 @@ Public MustInherit Class OpenProjectFileDialogVM
      Select Case m_SelDayType
         Case DayTypes.LASTMONTH
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5)
         Case DayTypes.LAST3MONTHS
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 3)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 3)
         Case DayTypes.LAST6MONTHS
            m_dtEndDate = DateTime.Today + TimeSpan.FromDays(1)
-            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(31 * 6)
+            m_dtStartDate = m_dtEndDate - TimeSpan.FromDays(30.5 * 6)
         Case DayTypes.PERIOD
            Dim sStartDate As String = "0"
            Dim lStartDate As Long = 0
@@ -87,7 +87,6 @@

   Public ReadOnly Property sPROD As String
      Get
-
         Return m_VarValue
      End Get
   End Property
@@ -10,7 +10,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("Egalware s.r.l.")]
 [assembly: AssemblyProduct("EgtBEAMWALL.DataLayer")]
-[assembly: AssemblyCopyright("Copyright ©  2020-2023 by Egalware s.r.l.")]
+[assembly: AssemblyCopyright("Copyright ©  2020-2024 by Egalware s.r.l.")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]

@@ -32,5 +32,5 @@ using System.Runtime.InteropServices;
 // You can specify all the values or you can default the Build and Revision Numbers
 // by using the '*' as shown below:
 // [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("2.5.8.1")]
-[assembly: AssemblyFileVersion("2.5.8.1")]
+[assembly: AssemblyVersion("2.6.6.1")]
+[assembly: AssemblyFileVersion("2.6.6.1")]
@@ -219,6 +219,7 @@ Friend Class MyComparer
               Return 0
            End If
      End Select
+      Return 0
   End Function

 End Class
@@ -437,6 +437,10 @@ Public Class LeftPanelVM
                                                         New OPState("Reset", OPStates.End),
                                                         New OPState("Unspecified", OPStates.Unspecified)
         }
+         Case Else
+            m_OPStateList = New List(Of OPState) From {
+                                                         New OPState("Unspecified", OPStates.Unspecified)
+         }
      End Select
      ' seleziono in partenza unspecified
      Dim UnspecifiedState As OPState = m_OPStateList.FirstOrDefault(Function(x) x.Id = OPStates.Unspecified)
@@ -317,6 +317,7 @@ Public Class MyMachGroupVM
         ' segno pezzo da produrre
         MachGroup.m_bToBeProduced = True
         MachGroup.NotifyPropertyChanged(NameOf(MachGroup.Production_Background))
+         Map.refSupervisorMachGroupPanelVM.MachGroupVMList_View.Refresh()

         ' sposto MachGroup in lista come ultimo dei pronti da produrre
         Dim OldIndex As Integer = Map.refProjectVM.SupervisorMachGroupPanelVM.MachGroupVMList.IndexOf(MachGroup)
@@ -248,8 +248,8 @@ Public Class MainWindowM
         EgtSetLockId( sLockId)
      End If
      ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2508, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5327, 2508, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2606, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5327, 2606, 1, m_nKeyOptions)
      ' Inizializzazione generale di EgtInterface
      m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
      m_sLogFile = m_sTempDir & "\" & SUPGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
@@ -30,7 +30,7 @@ Imports System.Windows
 #End if
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("EgtBEAMWALL.Supervisor")>
-<Assembly: AssemblyCopyright("Copyright ©  2020-2023 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2020-2024 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(false)>

@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("2.5.8.1")>
-<Assembly: AssemblyFileVersion("2.5.8.1")>
+<Assembly: AssemblyVersion("2.6.1.1")>
+<Assembly: AssemblyFileVersion("2.6.1.1")>
@@ -43,13 +43,13 @@ Public Class OpenProjectFileDialogVM
      Select Case m_SelDayType
         Case DayTypes.LASTMONTH
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(31)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5)
         Case DayTypes.LAST3MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(31 * 3)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 3)
         Case DayTypes.LAST6MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(31 * 6)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 6)
         Case DayTypes.PERIOD
            dtStart = dtStartDate + TimeSpan.FromDays(1)
            dtEnd = dtEndDate
@@ -93,10 +93,14 @@ Public Class BTLPartVM
                  Dim LSTValues() As String = sSwapItem.Split(","c)
                  If Not IsNothing(LSTValues(LSTValues.Count - 1)) AndAlso Integer.TryParse(LSTValues(LSTValues.Count - 1), nSwapItem) AndAlso nSwapItem > 0 Then
                     Dim nMachgroupId As Integer = EgtGetParent(EgtGetParent(EgtGetParent(nSwapItem)))
-                     Dim MachGroupModel = DbControllers.m_MachGroupController.FindByMachGroupId(Map.refProjManagerVM.CurrProj.nProdId, nMachgroupId)
-                     If MachGroupModel.State > ItemState.ND Then
-                        bDuploInProduction = True
-                        Exit For
+                     If nMachgroupId = GDB_ID.NULL Then
+                        EgtOutLog("Trovato Duplo Ghost")
+                     Else
+                        Dim MachGroupModel = DbControllers.m_MachGroupController.FindByMachGroupId(Map.refProjManagerVM.CurrProj.nProdId, nMachgroupId)
+                        If MachGroupModel.State > ItemState.ND Then
+                           bDuploInProduction = True
+                           Exit For
+                        End If
                     End If
                  End If
               Next
@@ -398,7 +398,8 @@ Public Class BTLStructureVM
         End If
      End If

-      SelBTLParts.AddToList(SelBTLPart)
+      If Not IsNothing(SelBTLPart) Then SelBTLParts.AddToList(SelBTLPart)
+
      If bByOptim Then
         m_bOnlySelectItem = False
      End If
@@ -427,7 +427,7 @@ Public Class FreeContourManagerVM
      ' posiziono la griglia sul riferimento del contorno libero
      Dim frFace As New Frame3d
      EgtBeamGetSideData(SelFeature.nSelSIDE, frFace)
-      Dim frFrame As Frame3d = SelFeature.BTLFeatureM.frFRAME
+      Dim frFrame As New Frame3d( SelFeature.BTLFeatureM.frFRAME)
      frFrame.ToGlob( frFace)
      EgtSetGridFrame(frFrame)
      EgtSetGridShow(True, True)
@@ -172,13 +172,17 @@ Public Class MyMachGroupPanelVM
                  ' elimino pezzo copia
                  EgtRemovePartFromRawPart(nDuploId)
                  EgtErase(nDuploId)
-                  '' recupero gruppo di lavorazione e trave dell'interfaccia
+                  ' recupero gruppo di lavorazione e trave dell'interfaccia
                  Dim BeamMachGroup As MyMachGroupVM = MachGroupVMList.FirstOrDefault(Function(x) x.Id = nMachGroupId)
                  If Not IsNothing(BeamMachGroup) Then
                     Dim Beam As PartVM = BeamMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nDuploId)
                     EgtSetCurrMachGroup(BeamMachGroup.Id)
                     Beam.DeletePart()
                  End If
+                  ' reset necessario per poter ottenere nMachGroupId corretto
+                  EgtResetCurrMachGroup()
+                  ' aggiorno dati utilizzo barra
+                  BeamMachGroup.UpdateUsage()
               Next
               ' aggiorno quantita' in prod
               Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromBTLPartId(nPartId)
@@ -242,8 +242,8 @@ Public Class MainWindowM
         EgtSetLockId( sLockId)
      End If
      ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2508, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5327, 2508, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2606, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5327, 2606, 1, m_nKeyOptions)
      ' Inizializzazione generale di EgtInterface
      m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
      m_sLogFile = m_sTempDir & "\" & VWOPTGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
@@ -286,7 +286,7 @@ Public Class MainWindowM
      ' Leggo e imposto livello utilizzatore
      m_nUserLevel = Math.Min(m_nKeyLevel, GetMainPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1))
      ' Recupero flag SpecialPanel
-      m_bSpecialPanel = GetMainPrivateProfileInt(S_GENERAL, K_SPECIALPANEL, 0) = 1
+      m_bSpecialPanel = GetMainPrivateProfileInt(S_SPECIAL, K_SPECIALENABLE, 0) = 1
      ' Imposto dir font Nfe e font default
      Dim sNfeDir As String = String.Empty
      GetMainPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir)
@@ -30,7 +30,7 @@ Imports System.Windows
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("EgtBEAMWALL.ViewerOptimizer")>
-<Assembly: AssemblyCopyright("Copyright ©  2020-2023 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2020-2024 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(false)>

@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("2.5.8.1")>
-<Assembly: AssemblyFileVersion("2.5.8.1")>
+<Assembly: AssemblyVersion("2.6.6.1")>
+<Assembly: AssemblyFileVersion("2.6.6.1")>
@@ -8,6 +8,16 @@ Imports EgtWPFLib5
 Public Class NewOpenProjectFileDialogVM
   Inherits Core.NewOpenProjectFileDialogVM

+   Public Overrides ReadOnly Property DayTypeList As List(Of String)
+      Get
+         Dim CurrDayTypeList As New List(Of String)({EgtMsg(62532), EgtMsg(62533), EgtMsg(62534), EgtMsg(62531)})
+         If Map.refMainWindowVM.MainWindowM.nUserLevel > 5 Then
+            CurrDayTypeList.Add("Always")
+         End If
+         Return CurrDayTypeList
+      End Get
+   End Property
+
 #Region "METHODS"

   Public Overrides Function Init(ProjectType As ProjectType, Optional CurrProjectList As List(Of ProjectFileVM) = Nothing, Optional GoToProd As Boolean = False) As Boolean?
@@ -44,24 +54,27 @@ Public Class NewOpenProjectFileDialogVM
      Select Case m_SelDayType
         Case DayTypes.LASTMONTH
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5)
         Case DayTypes.LAST3MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30 * 3)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 3)
         Case DayTypes.LAST6MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30 * 6)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 6)
         Case DayTypes.PERIOD
            dtEnd = dtEndDate + TimeSpan.FromDays(1)
            dtStart = dtStartDate
+         Case DayTypes.ALWAYS
+            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
+            dtStart = New DateTime(2020, 1, 1)
      End Select
      ' leggo da db
      If m_ProjectType = ProjectType.PROJ Then
         Dim DbProjList As New List(Of ProjFileM)
         If m_SelBTLDateType = BTLDateTypes.CREATEDATE Then
-            DbProjList = DbControllers.m_ProjController.GetLastDesc(dtStart, dtEnd, nRowQuantity, True, bViewArchived)
+            DbProjList = DbControllers.m_ProjController.GetLastDesc(dtStart, dtEnd, nRowQuantity * 3, True, bViewArchived)
         Else
-            DbProjList = DbControllers.m_ProjController.GetLastByExpDesc(dtStart, dtEnd, nRowQuantity, True, bViewArchived)
+            DbProjList = DbControllers.m_ProjController.GetLastByExpDesc(dtStart, dtEnd, nRowQuantity * 3, True, bViewArchived)
         End If
         For Each Project In DbProjList
            If IsNothing(Project.nProjId) OrElse Project.nProjId = 0 Then Continue For
@@ -46,13 +46,13 @@ Public Class OpenProjectFileDialogVM
      Select Case m_SelDayType
         Case DayTypes.LASTMONTH
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5)
         Case DayTypes.LAST3MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30 * 3)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 3)
         Case DayTypes.LAST6MONTHS
            dtEnd = DateTime.Today + TimeSpan.FromDays(1)
-            dtStart = dtEnd - TimeSpan.FromDays(30 * 6)
+            dtStart = dtEnd - TimeSpan.FromDays(30.5 * 6)
         Case DayTypes.PERIOD
            dtEnd = dtEndDate + TimeSpan.FromDays(1)
            dtStart = dtStartDate
@@ -198,7 +198,7 @@ Public Class ProjectVM

   Public ReadOnly Property SpecialPanel_Visibility As Visibility
      Get
-         Return If(Map.refMainWindowVM.MainWindowM.bSpecialPanel AndAlso Map.refMainWindowVM.MainWindowM.nUserLevel = 5, Visibility.Visible, Visibility.Collapsed)
+         Return If(Map.refMainWindowVM.MainWindowM.bSpecialPanel AndAlso Map.refMainWindowVM.MainWindowM.nUserLevel > 5, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property

@@ -1,6 +1,7 @@
 Imports System.IO
 Imports EgtBEAMWALL.Core
 Imports EgtUILib
+Imports EgtWPFLib5

 Public Class ProdFileVM
   Inherits Core.ProdFileVM
@@ -155,7 +156,7 @@ Public Class ProdFileVM
                  End Try
                  Map.refProdManagerVM.m_MruFiles.Remove(CurrProject.sProdPath)
                  Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
-                  DbControllers.m_ProdController.DeleteProd(CurrProject.nProdId, True)
+                  DbControllers.m_ProdController.DeleteProd(CurrProject.nProdId, False)
                  If CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId Then
                     ' reset prod in path proj
                     Map.refProjManagerVM.UpdateCurrProj()
@@ -16,7 +16,7 @@ Public Class SpecialPanelVM
      ' Creo riferimento a questa classe in Map
      Map.SetRefSpecialPanelVM(Me)
      ' se attivo, inizializzo i bottoni leggendoli da file ini
-      If IsActiveSpecialPanel() Then
+      If Map.refMainWindowVM.MainWindowM.bSpecialPanel Then
         Dim BtnIndex As Integer = 1
         Dim CurrBtn As ButtonItem = Nothing
         While GetPrivateProfileButton(S_SPECIAL, K_BUTTON & BtnIndex, "", CurrBtn)
@@ -58,11 +58,6 @@ Public Class SpecialPanelVM
      Next
   End Sub

-   Friend Function IsActiveSpecialPanel() As Boolean
-      Dim btDummy As ButtonItem = Nothing
-      Return GetMainPrivateProfileInt(S_SPECIAL, K_SPECIALENABLE, 0) <> 0 AndAlso GetPrivateProfileButton(S_SPECIAL, K_BUTTON & "1", "", btDummy)
-   End Function
-
   Public Function GetPrivateProfileButton(sSection As String, sKey As String, sBaseDir As String, ByRef ReadButtonItem As ButtonItem) As Boolean
      ReadButtonItem = Nothing
      Dim sVal As String = String.Empty
Author	SHA1	Message	Date
Dario Sassi	4499a042f8	EgtBEAMWALL 2.6f1 : - correzioni a gestione riferimento di feature entrando in modifica Freecontour.	2024-06-03 18:19:24 +02:00
Dario Sassi	958421f4f5	EgtBeamWall : - aggiornate dll da cui dipende.	2024-01-17 17:19:08 +01:00
Demetrio Cassarino	ef59f66c67	-correzione dulo ghost -correzione deleteduplo	2023-12-21 08:48:39 +01:00
Dario Sassi	14bf36ed68	EgtBEAMWALL : - aggiornamento EgtUILib e EgtWPFLib5 - piccola miglioria per SpecialPanel - correzione calcolo numero pezzi inseriti in barre grazie a nuova funzione EgtDuploInRawCount.	2023-12-14 20:31:52 +01:00
Dario Sassi	06bac914ef	Merge commit '625f12a1e8df19e094d02b068f3bb988602a7c04'	2023-12-14 12:52:12 +01:00
Dario Sassi	1b956580c9	EgtBEAMWALL 2.5l2 : - ricompilazione con aggiornamento versione.	2023-12-14 12:51:47 +01:00
Emmanuele Sassi	84dffd8966	- aggiunta gestione modi controllo in caso di nuovo controllo - aggiunto refresh sort su lista supervisore	2023-11-08 09:27:21 +01:00
Emmanuele Sassi	9f16294994	- cambiato giorni del mese da 30 o 31 a sempre 30.5 - aggiunta gestione sempre tra i filtri temporali NewOpenDialog	2023-09-27 18:14:27 +02:00
Emmanuele Sassi	fd4e961b39	- correzione eliminazione nuovo prod non salvato	2023-09-18 16:02:06 +02:00