From 6bfc2d71884815be84f02ed3208f36cdb38ea97f Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Wed, 2 Jun 2021 23:19:55 +0200
Subject: [PATCH] DataBeam : - correzione a gestione verifica barre con pezzi
 modificati per nuova interfaccia.

---
 BatchProcessNew.lua | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua
index 108f903..d86658b 100644
--- a/BatchProcessNew.lua
+++ b/BatchProcessNew.lua
@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2021/02/30
+-- BatchProcess.lua by Egaltech s.r.l. 2021/06/02
 -- Gestione calcolo batch disposizione e lavorazioni per Travi
 -- 2021/01/07 Per nuova interfaccia Egt.
 -- 2021/01/15 CREATE_BAR ora FLAG = 6 (prima 5).
@@ -209,7 +209,7 @@ if bToProcess then
          local nRawId = EgtGetFirstRawPart()
          if not nRawId then
             BEAM.ERR = 14
-            BEAM.MSG = 'Error no Raw Oarts in the file : ' .. BEAM.FILE
+            BEAM.MSG = 'Error no Raw Parts in the file : ' .. BEAM.FILE
             WriteErrToLogFile( BEAM.ERR, BEAM.MSG)
             PostErrView( BEAM.ERR, BEAM.MSG)
             return
@@ -409,6 +409,27 @@ if bToProcess then
          EgtSetInfo(nMGrpId, 'BARHEIGHT', dRawH)
          EgtSetInfo(nMGrpId, 'BARWIDTH', dRawW)
       end
+   -- sistemazioni per pezzi nella barra
+   else
+      -- ciclo sui grezzi
+      local nRawId = EgtGetFirstRawPart()
+      while nRawId do
+         -- massimo un pezzo per grezzo
+         local nPartId = EgtGetFirstPartInRawPart( nRawId)
+         -- box del pezzo
+         local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
+         local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
+         -- creo o pulisco gruppo geometrie aggiuntive
+         if nPartId then
+            BL.CreateOrEmptyAddGroup( nPartId)
+         end
+         -- aggiungo faccia per taglio iniziale al pezzo
+         BL.AddPartStartFace( nPartId, b3Solid)
+         -- aggiungo faccia per taglio finale al pezzo
+         BL.AddPartEndFace( nPartId, b3Solid)
+         -- passo al successivo grezzo
+         nRawId = EgtGetNextRawPart( nRawId)
+      end
    end
 
    -- Se richiesta solo barra, esco