Window 3.1h1 :

- aggiunta gestione flip pezzi per lavorare in prima fase interno invece di esterno
- aggiunta cancellazione di tutti i vecchi file risultato in modalità manuale.
This commit is contained in:
Dario Sassi
2026-08-07 11:55:06 +02:00
parent 740fbf6658
commit c8ec5c73ad
9 changed files with 155 additions and 60 deletions
+23
View File
@@ -46,6 +46,29 @@ if not vRes or #vRes < 1 then
end
local sMGrpName = EgtReplaceString( vRes[1], ' [===]', '')
-- cancello eventuali file generati dalla macchinata
local sMGrpFile = sDir .. sMGrpName .. '.bwe'
if EgtExistsFile( sMGrpFile) then
local nOrigCtx = EgtGetContext()
local nCtx = EgtCreateContext()
if nCtx and EgtOpenFile( sMGrpFile) then
local nMgId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'MachBase') or GDB_ID.NULL)
if nMgId then
local sNcName = EgtGetInfo( nMgId, 'NcName')
if sNcName then
local _, sSpecName, _ = EgtSplitPath( sNcName)
local vFiles = EgtFindAllFiles( sDir .. sSpecName .. '*.*') or {}
for i = 1, #vFiles do
local sFileToErase = sDir .. vFiles[i]
EgtEraseFile( sFileToErase)
end
end
end
end
EgtDeleteContext( nCtx)
EgtSetContext( nOrigCtx)
end
-- cancello tutti i file del direttorio con il nome della macchinata
local vFiles = EgtFindAllFiles( sDir .. sMGrpName .. '.*') or {}
for i = 1, #vFiles do