- rimossa colonna tempo di scarico

- corretto orario in 24h
- gestito ritorno a ready anche per on load station
This commit is contained in:
Emmanuele Sassi
2024-12-30 10:58:16 +01:00
parent aa882ff5f1
commit 4f5ab7f3c2
4 changed files with 47 additions and 47 deletions
@@ -201,12 +201,12 @@
IsReadOnly="True" IsReadOnly="True"
ElementStyle="{StaticResource DataGridTextColumn_TextBlock}" ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/> EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
<DataGridTextColumn Header="Scarico" <!--<DataGridTextColumn Header="Scarico"
Binding="{Binding sUnloadTime}" Binding="{Binding sUnloadTime}"
Width="Auto" Width="Auto"
IsReadOnly="True" IsReadOnly="True"
ElementStyle="{StaticResource DataGridTextColumn_TextBlock}" ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/> EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>-->
</DataGrid.Columns> </DataGrid.Columns>
<!--<DataGrid.InputBindings> <!--<DataGrid.InputBindings>
<KeyBinding Key="Delete" Command="{Binding Tag.SelectedMachGroup.DeleteMachGroup_Command, <KeyBinding Key="Delete" Command="{Binding Tag.SelectedMachGroup.DeleteMachGroup_Command,
@@ -254,7 +254,7 @@ Public Class DoorListPageVM
Friend Sub ResetStateAfterReset() Friend Sub ResetStateAfterReset()
For Each Door In m_DoorList For Each Door In m_DoorList
If Door.nState > Door.DoorStates.VERIFIED AndAlso Door.nState < Door.DoorStates.PRODUCED Then If Door.nState > Door.DoorStates.VERIFIED AndAlso Door.nState < Door.DoorStates.MACHINE_1_END Then
Door.SetState(Door.DoorStates.VERIFIED, False) Door.SetState(Door.DoorStates.VERIFIED, False)
End If End If
Next Next
@@ -709,7 +709,7 @@ Public Class DoorListPageVM
WriteBackup() WriteBackup()
End Sub End Sub
#End Region ' SkipDoor #End Region ' NotProduceDoor
#Region "AddDoor" #Region "AddDoor"
@@ -909,6 +909,7 @@ Public Class DoorListPageVM
Public Sub ProduceDoor(DoorToProduce As Door, Optional bWriteBackup As Boolean = True) Public Sub ProduceDoor(DoorToProduce As Door, Optional bWriteBackup As Boolean = True)
If IsNothing(DoorToProduce) OrElse DoorToProduce.nState = Door.DoorStates.SKIPPED OrElse If IsNothing(DoorToProduce) OrElse DoorToProduce.nState = Door.DoorStates.SKIPPED OrElse
DoorToProduce.nState = Door.DoorStates.NOTPRODUCE OrElse
DoorToProduce.nState = Door.DoorStates.VERIFICATION_FAILED OrElse DoorToProduce.nState = Door.DoorStates.VERIFICATION_FAILED OrElse
DoorToProduce.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return DoorToProduce.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
' la sposto dopo l'ultima da produrre ' la sposto dopo l'ultima da produrre
@@ -960,7 +961,7 @@ Public Class DoorListPageVM
Public Sub ResetProductionQueue() Public Sub ResetProductionQueue()
For Each Door In m_DoorList For Each Door In m_DoorList
If Door.nState = Door.DoorStates.READY_FOR_PRODUCTION Then If Door.nState = Door.DoorStates.READY_FOR_PRODUCTION OrElse Door.nState = Door.DoorStates.ON_LOAD_STATION Then
Door.SetState(Door.DoorStates.VERIFIED) Door.SetState(Door.DoorStates.VERIFIED)
End If End If
Next Next
@@ -1420,7 +1421,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sLoadTime As String Public ReadOnly Property sLoadTime As String
Get Get
Return If(m_dtLoadTime <> DateTime.MinValue, m_dtLoadTime.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtLoadTime <> DateTime.MinValue, m_dtLoadTime.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetLoadTime(LoadTime As Long) Friend Sub SetLoadTime(LoadTime As Long)
@@ -1436,7 +1437,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sMachining1Start As String Public ReadOnly Property sMachining1Start As String
Get Get
Return If(m_dtMachining1Start <> DateTime.MinValue, m_dtMachining1Start.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtMachining1Start <> DateTime.MinValue, m_dtMachining1Start.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetMachining1Start(Machining1Start As Long) Friend Sub SetMachining1Start(Machining1Start As Long)
@@ -1452,7 +1453,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sMachining1End As String Public ReadOnly Property sMachining1End As String
Get Get
Return If(m_dtMachining1End <> DateTime.MinValue, m_dtMachining1End.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtMachining1End <> DateTime.MinValue, m_dtMachining1End.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetMachining1End(Machining1End As Long) Friend Sub SetMachining1End(Machining1End As Long)
@@ -1468,7 +1469,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sMachining2Start As String Public ReadOnly Property sMachining2Start As String
Get Get
Return If(m_dtMachining2Start <> DateTime.MinValue, m_dtMachining2Start.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtMachining2Start <> DateTime.MinValue, m_dtMachining2Start.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetMachining2Start(Machining2Start As Long) Friend Sub SetMachining2Start(Machining2Start As Long)
@@ -1484,7 +1485,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sMachining2End As String Public ReadOnly Property sMachining2End As String
Get Get
Return If(m_dtMachining2End <> DateTime.MinValue, m_dtMachining2End.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtMachining2End <> DateTime.MinValue, m_dtMachining2End.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetMachining2End(Machining2End As Long) Friend Sub SetMachining2End(Machining2End As Long)
@@ -1500,7 +1501,7 @@ Public Class Door
End Property End Property
Public ReadOnly Property sUnloadTime As String Public ReadOnly Property sUnloadTime As String
Get Get
Return If(m_dtUnloadTime <> DateTime.MinValue, m_dtUnloadTime.ToString("yy/MM/dd hh:mm:ss"), "") Return If(m_dtUnloadTime <> DateTime.MinValue, m_dtUnloadTime.ToString("yy/MM/dd HH:mm:ss"), "")
End Get End Get
End Property End Property
Friend Sub SetUnloadTime(UnloadTime As Long) Friend Sub SetUnloadTime(UnloadTime As Long)
@@ -2,7 +2,8 @@
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
SizeToContent="WidthAndHeight" SizeToContent="WidthAndHeight"
WindowStartupLocation="CenterOwner"> WindowStartupLocation="CenterOwner"
ShowInTaskbar="False">
<Grid Margin="5"> <Grid Margin="5">
<Grid.RowDefinitions> <Grid.RowDefinitions>
<RowDefinition Height="1*"/> <RowDefinition Height="1*"/>
@@ -75,9 +75,6 @@
<Color x:Key="Effector_Purple_Color" R="167" G="76" B="119" A="255"/> <Color x:Key="Effector_Purple_Color" R="167" G="76" B="119" A="255"/>
<SolidColorBrush x:Key="Effector_Purple" Color="{StaticResource Effector_Purple_Color}" />--> <SolidColorBrush x:Key="Effector_Purple" Color="{StaticResource Effector_Purple_Color}" />-->
<!--Colori per EgtWPFLib5-->
<SolidColorBrush x:Key="TextBox.Static.Border" Color="#FFABAdB3"/>
<!--Colori default dei controlli--> <!--Colori default dei controlli-->
<SolidColorBrush x:Key="Button.Static.Background" Color="#FFDDDDDD"/> <SolidColorBrush x:Key="Button.Static.Background" Color="#FFDDDDDD"/>
<SolidColorBrush x:Key="Button.Static.Border" Color="#FF707070"/> <SolidColorBrush x:Key="Button.Static.Border" Color="#FF707070"/>
@@ -155,6 +152,7 @@
<Setter Property="Height" Value="30"/> <Setter Property="Height" Value="30"/>
<Setter Property="Padding" Value="10,0,10,0"/> <Setter Property="Padding" Value="10,0,10,0"/>
</Style> </Style>
<!--ToggleButton--> <!--ToggleButton-->
<Style TargetType="{x:Type ToggleButton}"> <Style TargetType="{x:Type ToggleButton}">
@@ -204,35 +202,6 @@
<Style x:Key="MainMenu_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource {x:Type ToggleButton}}"> <Style x:Key="MainMenu_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource {x:Type ToggleButton}}">
<Setter Property="Padding" Value="25,0,25,0"/> <Setter Property="Padding" Value="25,0,25,0"/>
</Style> </Style>
<!--Stili per disegno macchina con porte-->
<Style x:Key="Table" TargetType="Border">
<Setter Property="BorderBrush" Value="Gray"/>
<Setter Property="BorderThickness" Value="2"/>
</Style>
<Style x:Key="Door" TargetType="Border">
<Setter Property="BorderBrush" Value="SaddleBrown"/>
<Setter Property="BorderThickness" Value="5"/>
<Setter Property="Background" Value="SandyBrown"/>
</Style>
<Style x:Key="Advancement_Button" TargetType="Button">
<Setter Property="HorizontalAlignment" Value="Center"/>
<Setter Property="VerticalAlignment" Value="Center"/>
<Setter Property="TextBlock.TextAlignment" Value="Center"/>
</Style>
<Style x:Key="Sensor" TargetType="Ellipse">
<Setter Property="Height" Value="{Binding ActualWidth, RelativeSource={RelativeSource Self}}"/>
</Style>
<Style x:Key="MachDrawVar_TextBlock" TargetType="TextBlock">
<Setter Property="HorizontalAlignment" Value="Center"/>
<Setter Property="VerticalAlignment" Value="Center"/>
</Style>
<Style x:Key="MachDrawVar_CheckBox" TargetType="CheckBox">
<Setter Property="IsHitTestVisible" Value="False"/>
<Setter Property="Focusable" Value="False"/>
<Setter Property="BorderThickness" Value="0"/>
</Style>
<!--Border--> <!--Border-->
@@ -262,7 +231,7 @@
<SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightTextBrushKey}" Color="Black" /> <SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightTextBrushKey}" Color="Black" />
</Style.Resources> </Style.Resources>
</Style> </Style>
<!--Styles for DataGrid columns--> <!--Styles for DataGrid columns-->
<Style x:Key="DataGridTextColumn_TextBlock" TargetType="{x:Type TextBlock}"> <Style x:Key="DataGridTextColumn_TextBlock" TargetType="{x:Type TextBlock}">
@@ -278,13 +247,42 @@
<Setter Property="HorizontalContentAlignment" Value="Center"/> <Setter Property="HorizontalContentAlignment" Value="Center"/>
<Setter Property="VerticalContentAlignment" Value="Center"/> <Setter Property="VerticalContentAlignment" Value="Center"/>
</Style> </Style>
<!--Style for page tabcontrol--> <!--Style for page tabcontrol-->
<Style x:Key="MainPage_Tabcontrol" TargetType="{x:Type TabControl}"> <Style x:Key="MainPage_Tabcontrol" TargetType="{x:Type TabControl}">
<Setter Property="BorderThickness" Value="0"/> <Setter Property="BorderThickness" Value="0"/>
<Setter Property="Margin" Value="0"/> <Setter Property="Margin" Value="0"/>
<Setter Property="Padding" Value="0"/> <Setter Property="Padding" Value="0"/>
</Style> </Style>
<!--Stili per disegno macchina con porte-->
<Style x:Key="Table" TargetType="Border">
<Setter Property="BorderBrush" Value="Gray"/>
<Setter Property="BorderThickness" Value="2"/>
</Style>
<Style x:Key="Door" TargetType="Border">
<Setter Property="BorderBrush" Value="SaddleBrown"/>
<Setter Property="BorderThickness" Value="5"/>
<Setter Property="Background" Value="SandyBrown"/>
</Style>
<Style x:Key="Advancement_Button" TargetType="Button">
<Setter Property="HorizontalAlignment" Value="Center"/>
<Setter Property="VerticalAlignment" Value="Center"/>
<Setter Property="TextBlock.TextAlignment" Value="Center"/>
</Style>
<Style x:Key="Sensor" TargetType="Ellipse">
<Setter Property="Height" Value="{Binding ActualWidth, RelativeSource={RelativeSource Self}}"/>
</Style>
<Style x:Key="MachDrawVar_TextBlock" TargetType="TextBlock">
<Setter Property="HorizontalAlignment" Value="Center"/>
<Setter Property="VerticalAlignment" Value="Center"/>
</Style>
<Style x:Key="MachDrawVar_CheckBox" TargetType="CheckBox">
<Setter Property="IsHitTestVisible" Value="False"/>
<Setter Property="Focusable" Value="False"/>
<Setter Property="BorderThickness" Value="0"/>
</Style>
</ResourceDictionary> </ResourceDictionary>