CAMAuto : modificato ordinamento lavorazioni testa

CAMAuto/BatchProcessWin.lua

@@ -179,10 +179,10 @@ local function MyProcessPieces()
    end
 
    -- si dispongono i pezzi sulla tavola
-   local bDispOk, sErr = WinData.AdjustDisposition( PARTS)
+   local bDispOk, sErr = WinData.Disposition( PARTS, false)
    if not bDispOk then
       if not sErr then
-         sErr = 'Errore non gestito in WinData.AdjustDisposition'
+         sErr = 'Errore non gestito in WinData.Disposition'
       end
       EgtOutBox( sErr, 'BatchProcessWin', 'ERROR', 'OK')
       return false

CAMAuto/CreateMachGroups.lua

@@ -295,10 +295,10 @@ local function CreateMachGroups()
       PartData.AddOverMaterialToRaw( GROUPS[j], true)
 
       -- si dispongono i pezzi sulla tavola
-      local bDispOk, sErr = WinData.ExecDisposition( GROUPS[j])
+      local bDispOk, sErr = WinData.Disposition( GROUPS[j], true)
       if not bDispOk then
          if not sErr then
-            sErr = 'Errore non gestito in WinData.ExecDisposition'
+            sErr = 'Errore non gestito in WinData.Disposition'
          end
          return false
       end

CAMAuto/LuaLibs/WinExec.lua

@@ -383,6 +383,11 @@ local function OrderMachining( MACHININGS)
             return false
          elseif B2.Proc.sProfileInfo == 'Mixed'  and  B1.Proc.sProfileInfo ~= 'Mixed' then
             return true
+         -- prima i tutti i profili di testa
+         elseif B1.Proc.bHeadProfile  and  not B2.Proc.bHeadProfile then
+            return true
+         elseif B2.Proc.bHeadProfile  and  not B1.Proc.bHeadProfile then
+            return false
          -- negli altri casi si ordina solo in base alla posizione
          elseif B1.Proc.b3Box:getCenter():getX() - B2.Proc.b3Box:getCenter():getX() < 10 * GEO.EPS_SMALL then
             return EgtIf( B1.AuxiliaryData.nPhase == 1, true, false) -- se arrivati a questo controllo, la fase di lavorazione di entrambe è la stessa, quindi mi basta controllarne una