Carlo Baronchelli
34 lines
1.4 KiB
Lua
34 lines
1.4 KiB
Lua
-- 20/01/2021
|
|
require( 'EgtBase')
|
|
EgtEnableDebug( false)
|
|
local S = require( "Berny")
|
|
S.NomeDirettorioBatch = EgtGetSourceDir()
|
|
if S.EseguiSimulazione then
|
|
local NomeProposto = "Batch_".. os.date("%d_%m_%y")
|
|
-- inserire il campo per dare la possibilità di gestire anche la visualizzazione delle simulazioni: S.EseguiSimulazione (in FinestraEseguiComandi() di TestCarrelliONE)
|
|
local ComboBoxSelezione = "CB: No, Sì"
|
|
local IndicaNomeDirettorioBatch = EgtDialogBox( "Crea Direttorio Batch",
|
|
{ "Nome Direttorio", NomeProposto},
|
|
{ "Visulizza Simulazioni", ComboBoxSelezione})
|
|
if not IndicaNomeDirettorioBatch then
|
|
return
|
|
end
|
|
|
|
if IndicaNomeDirettorioBatch[1] == "" then
|
|
return
|
|
elseif EgtExistsDirectory( IndicaNomeDirettorioBatch[1]) then
|
|
EgtOutBox('Il direttorio è già esistente', 'Informazione', 'WARNING')
|
|
return
|
|
end
|
|
S.NomeDirettorioBatch = EgtGetSourceDir() ..IndicaNomeDirettorioBatch[1]
|
|
EgtCreateDirectory( S.NomeDirettorioBatch)
|
|
if EgtTrim( IndicaNomeDirettorioBatch[2]) == "Sì" then
|
|
S.EseguiSimulazione = false
|
|
end
|
|
S.EseguiTuttiTest()
|
|
return
|
|
end
|
|
if S.PosizionaEseguiComandi() then
|
|
dofile(S.NomeFileComandi)
|
|
S.VerificaPoiszionamentoMorse()
|
|
end |