OmagCUT 1.6u4 :

- gestione nesting allineato (con regione di riferimento a L)
- gestione epl pezzi rovinati da OmagVIEW per linee di produzione
- piccole migliorie varie.

MainWindow.xaml.vb

@@ -18,8 +18,8 @@ Class MainWindow
    ' Dichiarazione della MachineStatusBar
    Friend m_MachineStatusUC As MachineStatusUC
 
-   ' Coefficiente di scalatura orizzontale rispetto a standard
-   Friend m_dHorScale As Double = 1
+   ' Coefficiente di scalatura della finestra rispetto a standard
+   Friend m_dMWinScale As Double = 1
 
    ' Dichiarazione delle Page UserControl
    Friend m_WorkInProgressPageUC As WorkInProgressPageUC
@@ -275,7 +275,7 @@ Class MainWindow
       Me.Height = nHeight
       Me.Width = nWidth
       WindowState = If(nFlag = 1, WindowState.Maximized, WindowState.Normal)
-      m_dHorScale = Me.Width / 1280
+      m_dMWinScale = Math.Min(Me.Width / 1280, Me.Height / 832)
       ' Info su opzioni chiave
       EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString())
       ' Inizializzazione della libreria EgtWPFLib
@@ -874,8 +874,29 @@ Class MainWindow
 
    ' OnProdLine
    Private Sub OnProdLine()
-      ' Acquisizione eventuale file epl
-      ' !!! DA FARE !!!
+      ' Acquisizione eventuale file epl dei pezzi rovinati :
+      '   lo sposto dal direttorio condiviso al direttorio corrente dei CSV
+      Const CURR_PROJ_EPL As String = "CurrProj.epl"
+      If My.Computer.FileSystem.FileExists(m_CurrentMachine.sLineDataDir & "\" & CURR_PROJ_EPL) Then
+         ' Leggo direttorio corrente dei file CSV
+         Dim sCurrDir As String = String.Empty
+         GetPrivateProfileString(S_CSV, K_CSVCURRDIR, "C:\", sCurrDir, GetIniFile())
+         If My.Computer.FileSystem.DirectoryExists(sCurrDir) Then
+            ' Recupero da INI ultimo progetto mandato a View
+            Dim sName As String = String.Empty
+            GetPrivateProfileString(S_GENERAL, K_LASTPROJTOVIEW, "", sName, GetIniFile())
+            ' Eseguo spostamento
+            Try
+               My.Computer.FileSystem.MoveFile(m_CurrentMachine.sLineDataDir & "\" & CURR_PROJ_EPL, sCurrDir & "\Ruined" & sName & ".epl", True)
+            Catch ex As Exception
+               EgtOutLog("Error moving " & CURR_PROJ_EPL)
+            End Try
+         Else
+            EgtOutLog("Error in ruined parts management : " & sCurrDir & " not found")
+            ' Errore nella gestione dei pezzi rovinati
+            m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(91119))
+         End If
+      End If
       ' Leggo variabile con indice progetto da copiare per OmagVIEW (standard E80025)
       m_CNCommunication.m_CN.n_DReadELS_handle = 0
       m_CNCommunication.m_CN.ReadEls_Add_Parameter(m_CurrentMachine.sVarProjCopy, 1)
@@ -892,8 +913,10 @@ Class MainWindow
          ' Verifico esistenza progetto con numerazione equivalente e assenza file di lock
          Dim sNgeFile As String = GetSaveDir() & "\" & nVarCopy.ToString("D4") & ".nge"
          Dim sLockFile As String = m_CurrentMachine.sLineDataDir & "\CurrProj.lck"
+         Dim sEplFile As String = m_CurrentMachine.sLineDataDir & "\" & CURR_PROJ_EPL
          If My.Computer.FileSystem.FileExists(sNgeFile) And
-            Not My.Computer.FileSystem.FileExists(sLockFile) Then
+            Not My.Computer.FileSystem.FileExists(sLockFile) And
+            Not My.Computer.FileSystem.FileExists(sEplFile) Then
             Try
                ' Copio file di progetto nge
                Dim sNgeDest As String = m_CurrentMachine.sLineDataDir & "\CurrProj.nge"
@@ -912,7 +935,10 @@ Class MainWindow
                FileClose(nF)
                ' Dichiaro progetto copiato
                m_CNCommunication.m_CN.DVariables_WriteVariables2(m_CurrentMachine.sVarProjCopy, "0")
+               ' Salvo in INI indice del progetto copiato
+               WritePrivateProfileString(S_GENERAL, K_LASTPROJTOVIEW, nVarCopy.ToString("D4"), GetIniFile())
             Catch ex As Exception
+               EgtOutLog("Error copying files to OmagVIEW")
                ' Errore in copia file per OmagVIEW
                m_CurrentProjectPageUC.SetErrorMessage(EgtMsg(91117))
             End Try