OmagCUT :
- eliminato parametro FinalDepth da config. macchina (ora viene preso dalla lavorazione "Ultimo Taglio").
This commit is contained in:
@@ -579,7 +579,7 @@
|
||||
|
||||
</GroupBox>
|
||||
|
||||
<GroupBox Name="FinalSawCutGpBx" Grid.Column="2" Grid.Row="4" Grid.RowSpan="2" Margin="0,0,5,0"
|
||||
<GroupBox Name="FinalSawCutGpBx" Grid.Column="2" Grid.Row="4" Margin="0,0,5,0"
|
||||
Style="{DynamicResource OmagCut_GroupBox}">
|
||||
<Grid>
|
||||
<Grid.ColumnDefinitions>
|
||||
@@ -588,7 +588,6 @@
|
||||
</Grid.ColumnDefinitions>
|
||||
<Grid.RowDefinitions>
|
||||
<RowDefinition Height="0.5*"/>
|
||||
<RowDefinition Height="0.5*"/>
|
||||
</Grid.RowDefinitions>
|
||||
|
||||
<TextBlock Name="EnableFinalSawCutTxBl" Grid.Column="0" Grid.Row="0"
|
||||
@@ -596,14 +595,6 @@
|
||||
<CheckBox Name="EnableFinalSawCutChBx" Grid.Column="1" Grid.Row="0" Margin="10,0,10,0"
|
||||
Style="{StaticResource OmagCut_CheckBox_Single}"
|
||||
HorizontalAlignment="Right"/>
|
||||
|
||||
<TextBlock Name="FinalDepthTxBl" Grid.Column="0" Grid.Row="1"
|
||||
Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
|
||||
<EgtWPFLib:EgtTextBox Name="FinalDepthTxBx" Grid.Column="1" Grid.Row="1" Margin="10,0,10,0"
|
||||
Style="{DynamicResource OmagCut_CalculatorTextBox}" />
|
||||
|
||||
|
||||
|
||||
</Grid>
|
||||
</GroupBox>
|
||||
|
||||
|
||||
@@ -108,7 +108,6 @@ Public Class AlarmsPageUC
|
||||
WashingTxBl.Text = EgtMsg(90941) ' Lavaggio
|
||||
FinalSawCutGpBx.Header = EgtMsg(91254) ' Taglio Finale
|
||||
EnableFinalSawCutTxBl.Text = EgtMsg(91255) ' Abilita
|
||||
FinalDepthTxBl.Text = EgtMsg(91256) ' Ultimo Spessore
|
||||
AutoRawImageParamGpBx.Visibility = Windows.Visibility.Hidden
|
||||
End Sub
|
||||
|
||||
@@ -388,7 +387,6 @@ Public Class AlarmsPageUC
|
||||
End If
|
||||
|
||||
EnableFinalSawCutChBx.IsChecked = m_MainWindow.m_CurrentMachine.bEnableFinalSawCut
|
||||
FinalDepthTxBx.Text = m_MainWindow.m_CurrentMachine.dFinalDepth
|
||||
End Sub
|
||||
|
||||
' aggiorna le text delle lavorazioni (la selezione avviene nella pagina del grezzo o dalla pagina del progetto corrente)
|
||||
@@ -1350,11 +1348,4 @@ Public Class AlarmsPageUC
|
||||
WritePrivateProfileString(S_MACH, K_ENABLEFINALSAWCUT, If(m_MainWindow.m_CurrentMachine.bEnableFinalSawCut, "1", "0"), m_MainWindow.GetMachIniFile())
|
||||
End Sub
|
||||
|
||||
Private Sub FinalDepthTxBx_EgtClosed() Handles FinalDepthTxBx.EgtClosed
|
||||
Dim dVal As Double = 0
|
||||
StringToLen(FinalDepthTxBx.Text, dVal)
|
||||
m_MainWindow.m_CurrentMachine.dFinalDepth = dVal
|
||||
WritePrivateProfileString(S_MACH, K_FINALDEPTH, DoubleToString(m_MainWindow.m_CurrentMachine.dFinalDepth, 3), m_MainWindow.GetMachIniFile())
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -217,9 +217,6 @@ Public Class CurrentMachine
|
||||
' Massima altezza lavorabile con lama grande
|
||||
Private m_dHighPieceZ As Double = 200.0
|
||||
|
||||
'
|
||||
Private m_dFinalDepth As Double = 0.0
|
||||
|
||||
' Flag che abilita l'esecuzione del taglio finale
|
||||
Private m_bEnableFinalSawCut As Boolean = False
|
||||
|
||||
@@ -1236,15 +1233,6 @@ Public Class CurrentMachine
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Friend Property dFinalDepth As Double
|
||||
Get
|
||||
Return m_dFinalDepth
|
||||
End Get
|
||||
Set(value As Double)
|
||||
m_dFinalDepth = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Sub New()
|
||||
@@ -1542,9 +1530,6 @@ Public Class CurrentMachine
|
||||
|
||||
' Flag per abilitare taglio finale
|
||||
m_bEnableFinalSawCut = GetPrivateProfileInt(S_MACH, K_ENABLEFINALSAWCUT, 0, m_MainWindow.GetMachIniFile()) <> 0
|
||||
|
||||
' Flag per abilitare taglio finale
|
||||
m_dFinalDepth = GetPrivateProfileDouble(S_MACH, K_FINALDEPTH, 0.0, m_MainWindow.GetMachIniFile())
|
||||
End Sub
|
||||
|
||||
' Per il controllo FANUC al momento dell'inizializzazione del CN devono essere lette alcune variabili
|
||||
|
||||
Reference in New Issue
Block a user