OmagCUT 2.2i4 :

- ora movimento dei pezzi dopo il termine delle lavorazioni non resetta più OrderMachiningFlag (altrimenti si ricalcolavano in automatico le lavorazioni producendo la cancellazione di questi movimenti).
This commit is contained in:
Dario Sassi
2020-09-14 10:01:28 +00:00
parent d9f0120be9
commit c9f0108d25
3 changed files with 7 additions and 5 deletions
+4 -2
View File
@@ -146,7 +146,7 @@ Friend Module CamAuto
Return bOk
End Function
Friend Function SpecialApplyDisposition(nDispId As Integer, bRecalc As Boolean) As Boolean
Friend Function SpecialApplyDisposition(nDispId As Integer, bRecalc As Boolean, Optional ResetOrderMachiningFlag As Boolean = True) As Boolean
EgtLuaCreateGlobTable("CAM")
EgtLuaSetGlobIntVar("CAM.DISPID", nDispId)
EgtLuaSetGlobBoolVar("CAM.RECALC", bRecalc)
@@ -160,7 +160,9 @@ Friend Module CamAuto
bOk = False
EgtOutLog("Error in CamAuto : " & nErr.ToString())
End If
m_MainWindow.m_CurrentProjectPageUC.ResetOrderMachiningFlag()
If ResetOrderMachiningFlag Then
m_MainWindow.m_CurrentProjectPageUC.ResetOrderMachiningFlag()
End If
Return bOk
End Function
+1 -1
View File
@@ -634,7 +634,7 @@ Public Class MoveRawPartPage
' imposto eventuale movimento pezzi su tavola ausiliaria
SaveMovePartsOnAuxTable( nDispId, m_SplitPage.m_bOnAuxTab)
' Eseguo calcolo speciale dei movimenti
SpecialApplyDisposition(nDispId, True)
SpecialApplyDisposition(nDispId, True, Not m_SplitPage.m_bOnAuxTab)
End If
' se altrimenti movimento senza ventose perchè lama troppo grande
ElseIf GetVacuumType() > 0 Then
+2 -2
View File
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.2.9.3")>
<Assembly: AssemblyFileVersion("2.2.9.3")>
<Assembly: AssemblyVersion("2.2.9.4")>
<Assembly: AssemblyFileVersion("2.2.9.4")>