Miglioramenti travi e sesting

2021-05-13 19:50:17 +02:00
parent 025c57d78f
commit fcff7cfbb7
19 changed files with 568 additions and 517 deletions
@@ -63,13 +63,13 @@ Public Class MainWindowVM
      Select Case Map.refMainMenuVM.SelPage
         Case Pages.VIEW
            If Map.refProjManagerVM.CurrProj.bIsNew Then
-               m_Title = "New"
+               m_Title = "New - " & Map.refProjManagerVM.CurrProj.nProjId.ToString("0000")
            Else
               m_Title = Map.refProjManagerVM.CurrProj.nProjId.ToString("0000") & " - " & Map.refProjManagerVM.CurrProj.sBTLFileName
            End If
         Case Pages.MACHINING
            If Map.refProdManagerVM.CurrProd.bIsNew Then
-               m_Title = "New"
+               m_Title = "New" & Map.refProdManagerVM.CurrProd.nProdId.ToString("0000")
            Else
               m_Title = Map.refProdManagerVM.CurrProd.nProdId.ToString("0000")
            End If