Abilitazione comando lettura Barcode da file ini

AboutBoxWindow/AboutBoxV.xaml

@@ -31,7 +31,7 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Border Name="LogoBrd" Grid.Column="1" Background="White">
-               <Image Source="/Resources/AboutBoxImage.png" Stretch="Uniform"/>
+               <Image Source="/Resources/LogoOmag.jpg" Stretch="Uniform"/>
             </Border>
          </Grid>
          <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"

Application.xaml.vb

@@ -1,21 +1,14 @@
-Imports EgtPHOTOLib
+Class Application
 
-Class Application
+    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
-
+    ' can be handled in this file.
-   ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
-   ' can be handled in this file.
    Protected Overrides Sub OnStartup(e As StartupEventArgs)
       MyBase.OnStartup(e)
       ShutdownMode = System.Windows.ShutdownMode.OnMainWindowClose
       ' Creo la View principale
       Me.MainWindow = New MainWindowV
       ' Mostro la View principale
-      If PhotoMap.ContinueApplication Then
+      Me.MainWindow.Show()
-         Me.MainWindow.Show()
-      Else
-         End
-      End If
-
    End Sub
 
 End Class

Constants/ConstIni.vb

@@ -11,10 +11,6 @@
 '
 '----------------------------------------------------------------------------
 
-Imports System.Data
-Imports EgtPHOTOLib
-Imports EgtWPFLib5
-
 Module ConstIni
 
    Public Const INI_FILE_NAME As String = "OmagPHOTO.ini"
@@ -22,7 +18,6 @@ Module ConstIni
    Public Const S_GENERAL As String = "General"
    Public Const K_DEBUG As String = "Debug"
    Public Const K_LICENCE As String = "Licence"
-   Public Const K_NETKEY As String = "NetKey"
    Public Const K_USERLEVEL As String = "UserLevel"
    Public Const K_MAXINST As String = "MaxInstances"
    Public Const K_INSTANCES As String = "Instances"
@@ -41,7 +36,7 @@ Module ConstIni
    Public Const K_PHOTODIR As String = "PhotoDir"
    Public Const K_CAMERALINK As String = "CameraLink"
    Public Const K_LASTID As String = "LastId"
-   Public Const K_CAPSLOCK As String = "CapsLock"
+   Public Const K_LISTRAWFROMCSV As String = "ListRawFromCSV"
 
    Public Const S_PRINTER As String = "Printer"
    Public Const K_TEMPLATE As String = "Template"
@@ -93,13 +88,6 @@ Module ConstIni
    Public Const K_MINLNCOLOR As String = "MinLnColor"
    Public Const K_MAJLNCOLOR As String = "MajLnColor"
 
-   Public Const S_AUTOCLICK As String = "AutoClick"
-   Public Const K_CLICKDIR As String = "ClickDir"
-   Public Const K_STATE As String = "State"
-   Public Const K_AUTOMATERIAL As String = "Material"
-   Public Const K_THICKNESS As String = "Thickness"
-   Public Const K_WAREHAOUSE As String = "WareHouse"
-
    Public Const S_CAMERA As String = "Camera"
    Public Const K_CAM_COUNT As String = "Count"
    Public Const K_CAM_EXEPATH As String = "ExePath"

MainWindow/MainWindowM.vb

@@ -5,7 +5,6 @@ Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 Imports EgtPHOTOLib
-Imports System.Windows.Forms.Integration
 
 Public Class MainWindowM
 
@@ -15,12 +14,6 @@ Public Class MainWindowM
    Private m_TimerIsBusy As Boolean = False
    Private m_RefreshTimer As New DispatcherTimer
 
-   ' Per lettura modifica direttorio
-   Private fsWatch As FileSystemWatcher
-   Private m_RefreshNewFileClick As New DispatcherTimer
-   Private m_bNewFileClick As Boolean = False
-   Private m_sNewFileClickPath As String = String.Empty
-
    Private m_sDataRoot As String = String.Empty
    Friend ReadOnly Property sDataRoot As String
       Get
@@ -160,10 +153,10 @@ Public Class MainWindowM
       End Set
    End Property
 
-   Private m_bCapsLock As Boolean
+   Private m_FileRawCSV As String
-   Public ReadOnly Property bCapsLock As Boolean
+   Friend ReadOnly Property FileRawCS As String
       Get
-         Return m_bCapsLock
+         Return m_FileRawCSV
       End Get
    End Property
 
@@ -206,11 +199,9 @@ Public Class MainWindowM
       Dim sKey As String = String.Empty
       EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
       EgtSetKey(sKey)
-      Dim bNetHwKey As Boolean = (GetMainPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1)
-      EgtSetNetHwKey(bNetHwKey)
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2707, 1, m_nKeyLevel) And
+      Dim bKey As Boolean = EgtGetKeyLevel(9423, 2405, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(9423, 2707, 1, m_nKeyOptions)
+                            EgtGetKeyOptions(9423, 2405, 1, m_nKeyOptions)
       ' Verifico abilitazione prodotto
       Dim bProd As Boolean = GetKeyOption(KEY_OPT.PHOTO_BASE)
       ' Inizializzazione generale di EgtInterface
@@ -277,120 +268,46 @@ Public Class MainWindowM
       GetMainPrivateProfileString(S_PRINTER, K_ZEBRAUTILITIES, System.AppDomain.CurrentDomain.BaseDirectory & "ZebraPrinterUtilitiesR32.exe", m_ZebraUtilitiesExe)
       ' verifico che sia abilitata la stampante con flag
       m_PrinterIsVisible = (GetMainPrivateProfileInt(S_PRINTER, K_ENABLE_PRINTER, 0) = 1)
-      ' verifico che sia abilitata il CapsLock
+      ' leggo il nome del file CSV che contiene gli identificativi dei grezzi
-      m_bCapsLock = (GetMainPrivateProfileInt(S_GENERAL, K_CAPSLOCK, 0) = 1)
+      GetMainPrivateProfileString(S_GENERAL, K_LISTRAWFROMCSV, sDataRoot & "\Data\RawList.csv", m_FileRawCSV)
       ' Creo connessione al Db
       If Not ManageDb.ConnectToDb(m_sPhotoDir & "\" & DB_FILENAME) Then
          EgtOutLog("Error connecting to DB")
          MessageBox.Show(EgtMsg(MSG_OMAGPHOTO + 1) & EgtMsg(MSG_OMAGPHOTO + 2), EgtMsg(MSG_EGTMSGBOX + 15), MessageBoxButton.OK, MessageBoxImage.Error)
          End
       End If
+
+      Dim sLastBlock As String = String.Empty
+
       ' Info su opzioni chiave
       EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString() & " " & bProd.ToString())
       ' Imposto parametri EgtPHOTOLib
-      EgtPHOTOLib.MainData.SetDebugLevel(m_nDebug)
       EgtPHOTOLib.MainData.SetConfigDir(m_sConfigDir)
       EgtPHOTOLib.MainData.SetKeyLevel(m_nKeyLevel)
       EgtPHOTOLib.MainData.SetKeyOptions(m_nKeyOptions)
-      EgtPHOTOLib.MainData.SetUser(Environment.MachineName & "\" & Environment.UserName & " (" & nInstance.ToString() & ")")
       EgtPHOTOLib.MainData.SetPhotoDir(m_sPhotoDir)
       EgtPHOTOLib.MainData.SetBackUpDir(m_sBackUpDir)
       EgtPHOTOLib.MainData.SetTemplateFilePrinter(m_TemplateFilePrinter)
       EgtPHOTOLib.MainData.SetDataFilePrinter(m_DatFilePrinter)
       EgtPHOTOLib.MainData.SetZebraPrinterExe(m_ZebraUtilitiesExe)
       EgtPHOTOLib.MainData.SetPrinterVisibility(m_PrinterIsVisible)
-      EgtPHOTOLib.MainData.SetCapsLock(m_bCapsLock)
-      Dim sLastBlock As String = String.Empty
       If GetMainPrivateProfileString(S_GENERAL, "LastBlock", "", sLastBlock) <> 0 Then EgtPHOTOLib.MainData.SetLastBlock(sLastBlock)
+      If File.Exists(m_FileRawCSV) Then
+         EgtPHOTOLib.MainData.SetRawFileCSV(m_FileRawCSV)
+         EgtPHOTOLib.MainData.SetEnableReadrawCSV(GetMainPrivateProfileInt(S_GENERAL, "EnableListRawFromCSV", 0) <> 0)
+      End If
       Dim sIdKey As String = String.Empty
       EgtGetKeyInfo(sIdKey)
       EgtPHOTOLib.MainData.SetKey(sIdKey)
-      ' lancio il timer di aggiornamento dell'interfaccia, per la gestione di due OmagPHOTO che accedono allo stesso SQL
+      '' lancio il timer di aggiornamento dell'interfaccia, per la gestione di due OmagPHOTO che accedono allo stesso SQL
-      AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_Tick
+      ' AddHandler m_RefreshTimer.Tick, AddressOf RefreshTimer_Tick
-      m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(2000)
+      ' m_RefreshTimer.Interval = TimeSpan.FromMilliseconds(2000)
-      m_RefreshTimer.Start()
+      ' m_RefreshTimer.Start()
-      ' sec onfigurato lancio il controllo di uno specifico direttorio per leggere quando scattare una nuova foto
-      Dim sClidkDir As String = String.Empty
-      Dim bEnableLineProduction As Boolean = GetMainPrivateProfileString(S_AUTOCLICK, K_CLICKDIR, "", sClidkDir) <> 0
-      If bEnableLineProduction Then
-         fsWatch = New FileSystemWatcher(sClidkDir) With {.EnableRaisingEvents = True}
-         'fsWatch.EnableRaisingEvents = True
-         AddHandler fsWatch.Created, AddressOf AutoClick
-         AddHandler fsWatch.Changed, AddressOf AutoClick
-         AddHandler fsWatch.Renamed, AddressOf AutoClick
-         m_bNewFileClick = False
-         AddHandler m_RefreshNewFileClick.Tick, AddressOf AutoClick_Cmd
-         m_RefreshNewFileClick.Interval = TimeSpan.FromMilliseconds(2000)
-         m_RefreshNewFileClick.Start()
-      End If
-   End Sub
-
-   Private Sub AutoClick(ByVal sender As Object, ByVal e As FileSystemEventArgs)
-      EgtOutLog("File '" & e.FullPath & "' has been created: ready to Click")
-      m_sNewFileClickPath = e.FullPath
-      m_bNewFileClick = True
-   End Sub
-
-   Private Sub AutoClick_Cmd()
-      If Not m_bNewFileClick Then Return
-      ' deseleziono la precedente lastra
-      If Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab) Then
-         EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab.IsSelected = 0
-      End If
-      ' verifico se esite una lastra corrente in modifica, quindi chiedo se salvare
-      Map.refTopCommandBarVM.NewCmd(True)
-      ' apro la pagina per inserire una nuova lastra, se esiste un oggetto di tipo lastra allora procedo
-      If Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab) Then
-         ' Autocompilazione dei campi con i dati dell'ultima lastra salvata
-         ReadLastInfoAutoClick(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab)
-         ' scatto la foto
-         EgtPHOTOLib.PhotoMap.refOptionPanelVM.Photo(Nothing)
-         ' notifico che è stata scattata una foto
-         Try
-            File.Delete(m_sNewFileClickPath)
-            EgtOutLog("File '" & m_sNewFileClickPath & "' has been deleted!")
-            m_bNewFileClick = False
-         Catch ex As Exception
-            EgtOutLog("File '" & m_sNewFileClickPath & "' can't be deleted! " & ex.ToString)
-
-         End Try
-         ' se è stata scattata una foto provvedo a salvare l'inserimento
-         If Not m_bNewFileClick Then
-            ' salvo i dati inseriti ( nel file ini e nel DB )
-            EgtPHOTOLib.PhotoMap.refOptionPanelVM.Save()
-            ' ricarico la pagina
-            EgtPHOTOLib.PhotoMap.refProjectVM.SelProjectMode = ProjectSlabVM.ProjectModeOpt.DETAIL
-            EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok_IsEnabled = False
-            ' stampo etichetta
-            EgtPHOTOLib.PhotoMap.refOptionPanelVM.PrintLabel()
-         End If
-      End If
-   End Sub
-
-   Private Sub ReadLastInfoAutoClick(CurrSlab As Slab)
-      Dim nIndState As Integer = 1
-      Dim sMaterial As String = ""
-      Dim dThick As Double = 0
-      Dim sWarehouse As String = ""
-      nIndState = GetMainPrivateProfileInt(S_AUTOCLICK, K_STATE, nIndState)
-      GetMainPrivateProfileString(S_AUTOCLICK, K_AUTOMATERIAL, "", sMaterial)
-      dThick = GetMainPrivateProfileDouble(S_AUTOCLICK, K_THICKNESS, 1)
-      GetMainPrivateProfileString(S_AUTOCLICK, K_WAREHAOUSE, "", sWarehouse)
-      CurrSlab.State = nIndState
-      For IndexMat As Integer = 0 To EgtPHOTOLib.PhotoMap.refProjectVM.MaterialList.Count - 1
-         If EgtPHOTOLib.PhotoMap.refProjectVM.MaterialList(IndexMat).Trim = sMaterial.Trim Then
-            CurrSlab.SetMaterial(EgtPHOTOLib.PhotoMap.refProjectVM.MaterialList(IndexMat))
-            Exit For
-         End If
-      Next
-      CurrSlab.SetThickness(dThick)
-      CurrSlab.WarehousePosition = sWarehouse
    End Sub
 
    ' per la gestione di due OmagPHOTO che accedono allo stesso SQL
    Private Sub RefreshTimer_Tick()
-      If Not m_TimerIsBusy AndAlso Not IsNothing(PhotoMap.refProjectVM) AndAlso
+      If Not m_TimerIsBusy And PhotoMap.refProjectVM.SelProjectMode = ProjectSlabVM.ProjectModeOpt.LIST Then
-         PhotoMap.refProjectVM.SelProjectMode = ProjectSlabVM.ProjectModeOpt.LIST Then
          m_TimerIsBusy = True
          m_RefreshTimer.Stop()
          EgtPHOTOLib.PhotoMap.refListPageVM.RefreshLisPage()

MainWindow/MainWindowV.xaml

@@ -6,7 +6,6 @@
    xmlns:EgtPHOTOLib="clr-namespace:EgtPHOTOLib;assembly=EgtPHOTOLib"
    DataContext="{StaticResource MainWindowVM}"
    Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
-   TitleBarForeground="{StaticResource Omag_White}"                         
    Title="{Binding Title}" Icon="/Resources/OmagPHOTO.ico"
    MinHeight="600" MinWidth="800"
    AboutBoxCommand="{Binding AboutBoxCommand}" WindowStyle="None" ResizeMode="NoResize"

MainWindow/MainWindowVM.vb

@@ -125,11 +125,6 @@ Public Class MainWindowVM
             EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok(Nothing)
          End If
       End If
-      ' deseleziono la lastra corrente
-      If Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM) AndAlso
-         Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab) Then
-         EgtPHOTOLib.PhotoMap.refOptionPanelVM.Cancel(Nothing)
-      End If
       ' Imposto contesto principale
       EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
       ' Chiudo il gestore della macchina fotografica

My Project/AssemblyInfo.vb

@@ -18,8 +18,8 @@ Imports System.Windows
 <Assembly: AssemblyDescription("OmagPHOTO 32 bit")> 
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")> 
-<Assembly: AssemblyProduct("OmagPHOTO")>
+<Assembly: AssemblyProduct("OmagPHOTO")> 
-<Assembly: AssemblyCopyright("Copyright ©  2017-2025 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2017-2022 by Egalware s.r.l.")> 
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
 
@@ -59,5 +59,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.7.1")>
+<Assembly: AssemblyVersion("2.4.5.1")>
-<Assembly: AssemblyFileVersion("2.7.7.1")>
+<Assembly: AssemblyFileVersion("2.4.5.1")>

OmagPHOTO.sln

@@ -1,18 +1,22 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
+# Visual Studio Version 16
-VisualStudioVersion = 15.0.28307.271
+VisualStudioVersion = 16.0.31205.134
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "OmagPHOTO", "OmagPHOTO.vbproj", "{79B976E3-FAB4-4663-B1FA-DC94FC380094}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
 		Debug|x86 = Debug|x86
+		Release|Any CPU = Release|Any CPU
 		Release|x86 = Release|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Debug|x86.ActiveCfg = Debug|x86
 		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Debug|x86.Build.0 = Debug|x86
+		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Release|Any CPU.ActiveCfg = Release|x86
 		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Release|x86.ActiveCfg = Release|x86
 		{79B976E3-FAB4-4663-B1FA-DC94FC380094}.Release|x86.Build.0 = Release|x86
 	EndGlobalSection

OmagPHOTO.vbproj

@@ -55,7 +55,8 @@
     <ApplicationManifest>app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="EgtPHOTOLib">
+    <Reference Include="EgtPHOTOLib, Version=2.4.5.1, Culture=neutral, processorArchitecture=x86">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\EgtProg\Dll32\EgtPHOTOLib.dll</HintPath>
     </Reference>
     <Reference Include="EgtUILib, Version=2.3.4.5, Culture=neutral, processorArchitecture=MSIL">
@@ -217,40 +218,7 @@
     <Resource Include="Resources\TopCommandBar\Search.png" />
   </ItemGroup>
   <ItemGroup>
-    <Resource Include="Resources\InstrumentPanel\Matitina.png" />
+    <Resource Include="Resources\DetailPage\BarCode.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\AboutBoxImage.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Save.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Print.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Elimina.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Cancel.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Confirm.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Reset.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Pencil.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Polygon.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\Rubber.png" />
-  </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\DetailPage\ZoomAll.png" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>

OptionWindow/OptionWindowV.xaml

@@ -44,7 +44,7 @@
          <UniformGrid Columns="2">
             <TextBlock Text="{Binding ThicknessToleranceMsg}"/>
             <EgtWPFLib5:EgtTextBox Text="{Binding ThicknessTolerance}"
-                                   Margin="36,0,0,0"
+                                   Margin="13,0,0,0"
                                    TextAlignment="Right"/>
          </UniformGrid>
       </GroupBox>
@@ -58,7 +58,7 @@
                  <ColumnDefinition Width="3*"/>
                  <ColumnDefinition Width="1*"/>
              </Grid.ColumnDefinitions>
-             <TextBlock Text="{Binding LabelFileName}" VerticalAlignment="Center"/>
+             <TextBlock Text="{Binding LabelFileName}"/>
              <Button Content="{Binding BrowseMsg}" Grid.Column="1"
                   Command="{Binding BrowseCommand}"
                   Style="{StaticResource OptionPanel_TextButton}"
@@ -112,9 +112,6 @@
 
              <ListBox ItemsSource="{Binding MaterialList}"
                   SelectedItem="{Binding SelMaterial}"
-                  Background="{StaticResource Omag_Black}"
-                  Foreground="{StaticResource Omag_White}"
-                  BorderThickness="0"
                   Grid.RowSpan="2"
                   Margin="0,0,0,5"
                   Height="150"/>

TopCommandBar/TopCommandBarV.xaml

@@ -6,14 +6,12 @@
 
    <!--Barra superiore dei comandi-->
    <Button Command="{Binding NewCommand}"
-           ToolTip="{Binding NewToolTip}"
+           ToolTip="{Binding NewToolTip}">
-           Style="{StaticResource TopCmdBar_Button}">
       <Image Source="/Resources/TopCommandBar/New.png" Stretch="Uniform"/>
    </Button>
     <ToggleButton IsChecked="{Binding Search_IsChecked}"
                  IsEnabled="{Binding Search_IsEnabled}"
-                 ToolTip="{Binding SearchToolTip}"
+                 ToolTip="{Binding SearchToolTip}">
-                 Style="{StaticResource TopCmdBar_ToggleButton}">
       <Image Source="/Resources/TopCommandBar/Search.png" Stretch="Uniform"/>
    </ToggleButton>
    <!--<Button Command="{Binding OpenCommand}"
@@ -43,8 +41,7 @@
    </Button>-->
    <Button Command="{Binding OptionsCommand}"
            ToolTip="{Binding OptionsToolTip}"
-           IsEnabled="{Binding IsEnabled}"
+           IsEnabled="{Binding IsEnabled}">
-           Style="{StaticResource TopCmdBar_Button}">
       <Image Source="/Resources/TopCommandBar/Options.png" Stretch="Uniform"/>
    </Button>
    

TopCommandBar/TopCommandBarVM.vb

@@ -7,8 +7,6 @@ Imports EgtPHOTOLib
 Public Class TopCommandBarVM
    Inherits VMBase
 
-   Private m_bFirstResearch As Boolean = True
-
 #Region "FIELDS & PROPERTIES"
 
    Friend m_MruFiles As New MruList
@@ -25,16 +23,7 @@ Public Class TopCommandBarVM
       End Get
       Set(value As Boolean)
          If value Then
-            If m_bFirstResearch Then
-               ' Resetto la data corrente per la prima ricerca 
-               PhotoMap.refSearchPanelVM.StartAddedDate = Nothing
-               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("StartAddedDate")
-               PhotoMap.refSearchPanelVM.EndAddedDate = Nothing
-               PhotoMap.refSearchPanelVM.NotifyPropertyChanged("EndAddedDate")
-               m_bFirstResearch = False
-            End If
             PhotoMap.refSearchPanelVM.InitSearchPanel()
-
          Else
             PhotoMap.refListPageVM.InitListPage()
          End If
@@ -167,23 +156,6 @@ Public Class TopCommandBarVM
    Friend Sub NewCmd(Optional bUseDefaults As Boolean = False)
       ' passo alla libreria l'oggetto Camera che è stato inizializzato nel Omag-PHOTO
       EgtPHOTOLib.MainData.SetCamera(Map.refMainWindowVM.m_Camera)
-      Dim bIsSaved As Boolean = False
-      If Not IsNothing(EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab) Then
-         If EgtPHOTOLib.PhotoMap.refProjectVM.SelSlab.IsModified Then
-            ' 91125: Salvare le modifiche correnti? - 92201: Avviso
-            If MessageBox.Show(EgtMsg(91125), EgtMsg(92201), MessageBoxButton.YesNo, MessageBoxImage.Asterisk) = MessageBoxResult.Yes Then
-               EgtPHOTOLib.PhotoMap.refOptionPanelVM.Save()
-               bIsSaved = True
-            End If
-         Else
-            bIsSaved = True
-         End If
-         If Not bIsSaved Then
-            EgtPHOTOLib.PhotoMap.refOptionPanelVM.Cancel(Nothing)
-         Else
-            EgtPHOTOLib.PhotoMap.refListPageVM.RefreshLisPage()
-         End If
-      End If
       Map.refProjectVM.SelProjectMode = ProjectSlabVM.ProjectModeOpt.NEWSLAB
    End Sub